' {$STAMP BS2}
' {$PBASIC 2.5}
' {$PORT COM1}

INPUT 15
OUTPUT 14
INPUT 13

ss VAR Byte
mm VAR Byte
hh VAR Byte
dd VAR Byte
mo VAR Byte
yl VAR Byte
yh VAR Byte

Begin:
HIGH 14
PAUSE 1000
SetTimeCommand:
  SEROUT 14,84,[$55,$00,$00,$1E,$06,$03,$06,$61]
SetAlarmCommand:
  SEROUT 14,84,[$55,$01,$0F,$1E,$06,$03,$06,$61]
ReadAlarmCommand:
  SEROUT 14,84,[$55,$03]
  SERIN 15,84,5000,BadAlarm1,[ss,mm,hh,dd,mo,yl]
  DEBUG "Alarm: ",DEC2 hh,":",DEC2 mm,":",DEC2 ss,":",DEC2 mo,"/",DEC2 dd,"/",DEC2 yl,CR
Done:
  DEBUG CR,CR,"Done with AN-501"
DoneLoop:
  GOTO DoneLoop
BadAlarm1:
  DEBUG "Alarm read 1 bad",CR
  GOTO ReadAlarmCommand
 