;----------------- llam --------------------
;llama telefonicamenta a casa o celular
;llamb variable terminada en b (en todos los programas)
;llamte	0=celular  1=casa

llam		ld		llamb
		jz		llamf			;si 0 sale

		ld		llamte		;bandera selecciona telefono ram bat
		jz		llam1			

		clear				1 telefono casa
		disl		tel_cas
		AT		0
		jmp		llam2

llam1		clear				;0 telefono celular
		disl		tel_cel
		AT		0

llam2		set		llamd
		ld		llamx1
		tim		llamti	200	;cargo 20 segundos para terminar marcacion
		out		llamx2
		set 		llamx1
		ld		llamx2
		jz		llamf

colg		AT		2			;terminar marcacion
		reset		llamx1
		reset		llamx2
		reset		llamb

llamf		ret
-------------------------------------------------

;----------------------------monitoreo patio-------------------------
; moex   sensor patio diferente porue suena beep con alarma desactivada
; moexb	bandera de alarma para alarma activada

moex		ld		senex			;chequea sensor externo 1=ok   0=senso algo
		jnz		moexf	

moex1		ld		batt
		jz		moex2

		set		moexb

		jmp		moexf

moex2		call 		beep	
		reset		moexb
		
moexf		ret

;---------------------------------------------------
;beep  activa alarma pequeña beep

beep		set		sire2			;sonido acti desacti, un tono

		ld		beex1
		tim		beeti		7	
		out		beex2
		set 		beex1
		ld		beex2
		lz		beep

		reset		beex1
		reset		beex2
		reset		sire2
beepf		ret

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

;moin  monitoreo de sensores internos
;moinb  bandera sensor activado

moin		ld		sensor		; 1=ok  0=senso algo
		jnz		moinf

		set		moinb
		jmp		moinf

moin1		reset		moinb

moinf		ret	

;--------------------------------
; act    activa la alarma

act		ld		batt			;ya activada...no hace nada
		jnz		actf

		ld		clave			;oprimio teclado
		jnz		act1

		ld		x10			;oprimio x10
		jnz		act2

		jmp		actf

act1		ld		puerta		;espera hasta abrir la puerta
		or		escal
		out		auxlog

		ld		auxlog
		jz		act1

act2		call 		beep
		call		beep
		set		batt

actf		ret
	
;----------------------------------------------
;des	desactiva alarma

des		ld		batt
		jz		desf

		setri		conta		0
		ld		puerta
		or		escal
		out		auxlog
		ld		auxlog
		jz		desf

des1		call		beep
		setri		temgeni	30
		call		tempo
		inc		conta		1

		movci		5
		cpgi		des2
		
		ld		clave
		jz		des1			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

des2		set		sire1
		set		sirext

		reset		batt

desf		ret
		
		

		







;tempo temporizador generico para tiempos cortos===============
;parametros: temgeni=registro valor de tiempo
;setri	temgeni	10

tempo		reset		temx1
		reset		temx2

tempo1	ld		temx1
		timr		timgen	temgeni
		out		temx2
		set		temx1
		ld		temx2
		jz		tempo1

tempof	ret
;=====================================







leavar

;[REG_RELAYS]

sensor	equ	0			;sensores internos
puerta	equ	1			;sensor puerta
clave		equ	2
escal		equ	3			;boton escalera
x10		equ	4			;activador x10
senex		equ	18			;sensor externo patio



sire1		equ	100			;salida que activa sirena grande
sire2		equ	101			;sirena beep
sirext	equ	102			;salida que activa sirena grande externa
salx10	equ	103			;salida que activa un pulso para x10


llamx1	equ	250			;los auxiliares son ....x.
llamx2	equ	251
llamb		equ	252			;las banderas son ....b.

moexb		equ	253			;bandera alar activada en sensor patio

beex1		equ	254
beex2		equ	255

moinb		equ	256

auxlog	equ	257			;AUX PARA TODAS LAS COMPARACIONES DE OR O AND



batt		equ	900			;1=alarma activada  0=desactivada
llamte	equ	901			;selecciona telefono

;[REG_INTEGERS] 


;[TIM]

llamti	equ	200			;tiempo para cortar la llamada
beeti		equ	201			;tiempo para beep


;[TEXTO]
tel_cas	lite	"2481430"
tel_cel	lite	"033102036819"