mida 14
;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------

scan		equ	99

;programa principal---------------------------------------

&ini		ld	scan
		jz	&lea
		jmp	ini10
&lea		call	&leavar

ini10		nop

inif		end

;-------------------------------------------

;orden. ordena datos en registros enteros------------------

orden		movcf	1
		stof	ordaux1

		movcf	100000
		stof	ordtaux2

		setri	ordauxi	32
		set	ordauxr

orden1	movrf	peso
		movrf	ordaux1
		cplef	orden3

		movrf	ordaux1
		movcf	10
		divif
		stof	ordaux2

		movri	ordauxi
		movci	2
		divi
		stoi	ordauxi

		ld	ordauxr
		jz	



;envia. envia datos al visualizador-------------------------

envia		movri	idebas
		com	9
		disb	2	1
		com	3
		clear

		movri	dato1
		com	9
		disb	2	1
		com	3
		clear

		movri	dato2
		com	9
		disb	2	1
		com	3
		clear

		movri	dato3
		com	9
		disb	2	1
		com	3
		clear

		movri	dato4
		com	9
		disb	2	1
		com	3
		clear

		movri	dato5
		com	9
		disb	2	1
		com	3
		clear

		movri	dato6
		com	9
		disb	2	1
		com	3
		clear

		movri	dato7
		com	9
		disb	2	1
		com	3
		clear

		movci	59
		com	9
		disb	2	1
		com	3
		clear

enviaf	ret

;tempo.  temporizador universal---------------------------------
;parametros: temtie=registro valor de tiempo

tempo		reset	temaux1
		reset	temaux2

tempo1	ld	temaux1
		timr	timtem	temtie
		out	temaux2
		set	temaux1
		ld	temaux2
		jz	tempo1

tempof	ret

;----------------------------------------------------------------
&leavar
;[REG_RELAYS]
 
;[REG_INTEGERS] 

dato1		equ	150	;numeros de peso
dato2		equ	151
dato2		equ	152
dato2		equ	153
dato2		equ	154
dato2		equ	155
dato2		equ	156
dato2		equ	157

idebas	equ	162	;identifica la bascula

temtie	equ	170	;dato de tempo

;[REG_FLOATS]



;[TIM] 

timtem	equ	48

;[CNT] 

;[NOP]

;VARIABLES PARA INICIAR

	setri	127	1

&leavarf		ret


;-----------------------------------------------