;-------------------------------------------------------------
;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
		stoi	bascu	
inicio	Nop
		movrf	0
		stof	peso1
		clear
		disrf	peso1	53
		com	0
		disrf	peso1	53
		com	1

		ink	30
		jnz	cali
		ink	31
		jnz	tara
		jmp	inicio

cali		func	8	bascu
		jmp	inicio

tara		func	7	bascu
		jmp	inicio

Fin		end