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

scan		equ	99

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

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

ini10		nop
		call	tie

inif		end

; tie. lee registros cada vez que cambio el horario

tie
		movri	horario
		movri	horariot
		cpei	tief

tie10		call	cam

		movri	horario	
		stoi	horariot

tief		ret

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

;cam. cambia registros

cam
		
cam00		ld	ent0
		out	400
		ld	ent0

		jnz	cam01		;es on

		inc	ent0of	1

		jmp	cam10

cam01		inc	ent0on	1

cam10		ld	ent0
		xor	ent0t
		out	ent0tc

		ld	ent0tc
		jz	camf

		write	0	1

camf		ld	ent0
		out	ent0t
		ret

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

&leavar
;[REG_RELAYS]

ent0		equ	0
ent1		equ	1

ent0t		equ	250
ent0tc	equ	251
 
;[REG_INTEGERS]

horario	equ	40
horariot	equ	250 

ent0on	equ	260
ent0of	equ	261
ent1on	equ	262
ent1of	equ	263


;[TIM] 

;[CNT] 

;[NOP]

		file 0,400r,500d,520t,len=200,type=l
;VARIABLES PARA INICIAR

&leavarf		ret


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