The Microcontroller Idea Book - Jan Axelson's Lakeview Research

Clocks and Calendars
Listing 10-3 (page 1 of 4). Clock and alarm routines for DS1286 Watchdog
Timer.
10 REM set WT to match address of DS1286 watchdog timer
20 WT=0A000H
30 DO
40 PRINT
50 PRINT “Select function:”
60 PRINT “Initialize and start clock 1"
70 PRINT “Display time and day 2"
80 PRINT “Set alarm 3"
90 INPUT A
100 IF A=1 THEN GOSUB 200
110 IF A=2 THEN GOSUB 1000
120 IF A=3 THEN GOSUB 2000
130 WHILE 1=1
140 END
200 REM initialize and start clock
210 REM stop clock while initializing
220 XBY(WT+9)=XBY(WT+9).OR.80H
230 REM get time and date, convert each value to BCD and
store
240 INPUT “year (0-99)? ”,X
250 GOSUB 3000
260 XBY(WT+0AH)=X
270 INPUT “month (1-12)? ”,X
280 GOSUB 3000
290 XBY(WT+9)=(XBY(WT+9).AND.0E0H)+X
300 INPUT “day of month (1-31)? ”,X
310 GOSUB 3000
320 XBY(WT+8)=X
330 INPUT “day of week (1-7)? ”,X
340 GOSUB 3000
350 XBY(WT+6)=X
360 INPUT “24-hr (0) or 12-hr (1) clock? ”,TT
370 IF TT=0 THEN GOSUB 3000 ELSE GOSUB 600
380 INPUT “minutes (0-59)? ”,X
390 GOSUB 3000
400 XBY(WT+2)=X
410 INPUT “seconds (0-59)? ”,X
420 GOSUB 3000
430 XBY(WT+1)=X
440 XBY(WT)=0
The Microcontroller Idea Book 181