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

scan		equ	99

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

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

ini0		clear
		disrf	0	42
		com	0

		ink	33
		jz	ini02

		call	tara

ini02		ink	30
		jz	ini1
	
		clear
		disri	1100	3
		loc	3
		disri	1101	3
		loc	6
		disri	1102	3
		loc	9
		disch	13
		loc	10
		disch	10
		
		com	3

ini1		ink	31
		jz	fin
	
		clear
		disl	hola
		loc	20
		disl	hola1
		loc	40
		disl	hola2
		loc	60
		disch	13
		loc	61
		disch	10

		com	3



fin		end	

;---------------------------------------
;tempo. temporizador generico para tiempos cortos
;parametros: temtie=registro valor de tiempo

tempo		reset	160
		reset	161

tempo1	ld	160
		tim	48	10
		out	161
		set	160
		ld	161
		jz	tempo1

tempof	ret


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

tara1		
		func	7	150
		call	tempo
		clear
		disrf	0	42
		com	0


tara1f		ret


tara		movrf	0
		movrf	100
		cpgf	ini010

		movrf	0
		movrf	101
		cplf	ini010

		jmp	taraf

ini010	call	tara1
		jmp	tara

taraf		ret



&leavar

;[REG_RELAYS]

;[REG_INTEGERS] 


;[REG_FLOATS]


;[TIM] 

;[CNT] 

;[NOP]

hola	lite	"hola que tal como esta"
hola1	lite	"bien gracias y usted que"
hola2	lite	"ahi lo mismo mas o menos"

;inicio variables

	setri	127	70

	movcf	0.01
	stof	100

	movcf	-0.01
	stof	101

	setri	150	0

&leavarf		ret


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