;-------------------------------------------------------------
;Aplicación 	-> seguridad
;Fecha		-> sep 30 2002
;-------------------------------------------------------------
 MIDA 20
;[REG_RELAYS]
sensor	equ	0
salida	equ	100
aux1		equ	250
aux2		equ	251
aux3		equ	252
aux4		equ	253
aux5		equ	254
;[REG_INTEGERS] 
clear		equ	62
enter		equ	60
;[REG_FLOATS]

;[TIM] 
tieesp	equ	200
tieala	equ	201
tieini	equ	202
;[CNT] 

;[NOP]

;-----------------------------------------------
inic	call	ajus
	jmp	inic

ala0	reset aux1
	reset	aux2
	reset aux3
	reset	salida
	call	ajus
	ldnt	sensor
	jz	ala0

ala1	reset	salida
	call	ajus
	ld	aux1
	tim	tieesp	50
	out	salida
	set	aux1
	ld	salida
	jz	ala1

ala2	call	ajus
	ld	aux2
	tim	tieala	100
	out	aux3
	set 	aux2
	ld	aux3
	jz	ala2
	jmp	ala0

ajus	ink	clear
	jz	ajus1
	reset	salida
	jmp	inic	
ajus1	ink	enter
	jz	ajus3
	reset	aux4
	reset	aux5

ajus2	ld	aux4
	tim	tieini	100
	out	aux5
	set	aux4
	ld	aux5
	jz	ajus2
	jmp	ala0

ajus3		ret
	

Fin		end