;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------
 MIDA 64
;[REG_RELAYS]
 
;[REG_INTEGERS] 

;[REG_FLOATS]

peso	equ	0
peso1	equ	100
bascu	equ	101

;[TIM] 

;[CNT] 

;[NOP]

;-----------------------------------------------
inicio	Nop
		movcf	2
		stof	101
		movrf	0
		stof	peso1
		clear
		disrf	peso1	43
		com	0
		com	3
		ink	340
		jnz	cali
		ink	341
		jnz	tara
		jmp	inicio

cali		func	8	101
		jmp	inicio

tara		func	7	101
		jmp	inicio

Fin		end