TRIG: btfss ALARMSTATUS,STROBE ; has alarm already been triggered?
bsf ALARMSTATUS,BELL ; no, so trigger bell
bsf ALARMSTATUS,BUZZER
[COLOR="Red"]bsf ALARMSTATUS,STROBE[/COLOR]
movf ALARMSTATUS,W ; store ALARMSTATUS (but with bell off) to eeprom
movwf STORE1
bcf STORE1,BELL
movlw 8
call SETPRM
return
AND ALSO IN
PANICSET: btfsc PORTB,PANIC ; has RB4 called Panic interrupt ( = 0)?
goto PSET2 ; no
bsf ALARMSTATUS,PANIC ; yes
bsf ALARMSTATUS,7 ;
bsf ALARMSTATUS,BELL ; trigger bell etc
bsf ALARMSTATUS,BUZZER
[COLOR="Red"]bsf ALARMSTATUS,STROBE[/COLOR]
movlw %00000111
movwf PORTE