;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------
 MIDA 14
;[REG_RELAYS]
 
;[REG_INTEGERS] 
bascu	equ	200

;[REG_FLOATS]

peso	equ	0
peso1	equ	100

;[TIM] 

;[CNT] 

;[NOP]

;-----------------------------------------------
		movci	0		;carga en la pila aritmetica el resultado del pesaje
		stoi	bascu		;guarda contenido de la pila aritmetica en el registro int bascu(200)		
inicio	Nop			;no operacion
		movrf	0		;carga en pila aritmetica el pesaje
		stof	peso1		;guarda el contenido de la pila aritm. en el reg float 100
		clear			;borra
		disrf	peso1	53	;copia en el buffer el contenido del reg peso1 con 5 cifras, 3 decimales
		com	0		;copia el contenido del buffer en display1 del mida	
		disrf	peso1	53	;copia en el buffer el contenido del reg peso1 con 5 cifras, 3 decimales
		com	1		;copia el contenido del buffer en display2 del mida
		disch	79		;copia en el buffer intermedio el caracter O
		disch 75		;copia en el buffer intermedio el caracter K
		com	2		;copia el contenido del buffer en display3 del mida
		ink	30		;deteccion de tecla enter
		jnz	cali		;si hay enter:va a cali, si no:salta a la siguiente linea
		ink	31		;chequea que se pulse clear
		jnz	tara		;si hay clear:va a tara, si no:va a inicio
		jmp	inicio	;va a inicio (salto incondicional)

cali		func	8	bascu	;autocalibracion de la bascula
		jmp	inicio	;salto incondicional a inicio

tara		func	7	bascu	;realiza el autocero de la bascula contenida en el reg bascu(200)
		jmp	inicio	;salto incondicional a inicio

Fin		end			;fin del programa