# default alarm response, by default at midnight.
# definitely wants a chron/at hook. Alarm-related subroutines also here.
# alarm, setthealarm, churchbell

L alarm
                return

L setthealarm           # hour/24 in C, minute in D, second in E (BP)
                        # ******___ AS packed BCDs ___********.
        = $alarmhour to B
         call writecalendar
        = $alarmminute to B
        = D to C
         call writecalendar
        = $alarmsecond to B
        = E to C
         call writecalendar
                        return


L churchbell			# Init the alarm to all zeros, midnight.
        zero C
        = $alarmhour to B
         call writecalendar
        = $alarmminute to B
         call writecalendar
        = $alarmsecond to B
         call writecalendar
                        return


