;***************************
;En esta seccion, la alarma trabaja en modo armado
;***************************
INICIO:
LCDOUT $FE,1
PAUSE 200
LCDOUT $FE,$80," MODO ALARMA "
LCDOUT $FE,$C0," ACTIVADA "
RF:
SERIN PORTB.1,T2400,50,ZONAS,SENAL
if SENAL="A" then BACKUP
if SENAL="B" then DISPARO
if SENAL="C" then DISPARO
if SENAL="D" then DISPARO
zonas:
if zona1 = 0 then disparo
if zona2 = 0 then disparo
if zona3 = 0 then disparo
if zona4 = 0 then disparo
if zona5 = 0 then disparo
if zona6 = 0 then disparo
IF PORTB.0=0 THEN
LCDOUT $FE,1
LCDOUT $FE,$80," ALARMA PANICO "
LCDOUT $FE,$C0," LLAMANDO "
PAUSE 1500
GOTO DISPARO
ENDIF
PAUSE 50
goto RF