The Microcontroller Idea Book - Jan Axelson's Lakeview Research

Clocks and Calendars
Listing 10-3 (page 3 of 4).
1210 REM get month
1220 X=XBY(WT+9).AND.3FH
1230 GOSUB 3100
1240 PRINT “Date = ”,X,"/",
1250 REM get day of month
1260 X=XBY(WT+8)
1270 GOSUB 3100
1280 PRINT X,"/",
1290 REM get year
1300 X=XBY(WT+0AH)
1310 GOSUB 3100
1320 PRINT X
1330 REM get day of week
1340 X=XBY(WT+6)
1350 GOSUB 3100
1360 PRINT “Day of week = ”,X
1370 REM set TE when reads are done
1380 XBY(WT+0BH)=XBY(WT+0BH.OR.80H)
1390 RETURN
2000 REM set alarm
2010 PRINT “Select alarm type:”
2020 PRINT “Once per minute (1)”
2030 PRINT “When minutes match (2)”
2040 PRINT “When hours and minutes match (3)”
2050 PRINT “When hours, minutes, and days match (4)”
2060 INPUT AF
2070 REM clear all 3 alarm mask bits
2080 XBY(WT+3)=XBY(WT+3).AND.7FH
2090 XBY(WT+5)=XBY(WT+5).AND.7FH
2100 XBY(WT+7)=XBY(WT+7).AND.7FH
2110 REM set alarm mask bits as needed
2120 IF AF2 THEN INPUT “Hour? ”,H
2170 IF AF=4 THEN INPUT “Day? ”,D
The Microcontroller Idea Book 183