The Microcontroller Idea Book - Jan Axelson's Lakeview Research

Chapter 10
Listing 10-3 (page 2 of 4).
450 PRINT “Press any key when ready to start the clock”
460 A=GET : IF A=0 THEN GOTO 460
470 XBY(WT+9)=(XBY(WT+9)).AND.7FH
480 RETURN
500 INPUT “hour (0-23)? ”,X
510 GOSUB 3000
520 XBY(WT+4)=X
530 RETURN
590 REM set up 12-hour clock
600 INPUT “hour (1-12)? ”,X
610 INPUT “AM (0) or PM (1)? ”,AP
620 GOSUB 3000
630 XBY(WT+4)=X+AP*20H+TT*40H
640 RETURN
1000 REM display current time and date
1010 REM clear TE for error-free reads
1020 XBY(WT+0BH)=XBY(WT+0BH).OR.80H
1030 REM get hours
1040 X=XBY(WT+4).AND.1FH
1050 GOSUB 3100
1060 PRINT “Time = ”,X,":",
1070 REM get minutes
1080 X=XBY(WT+2)
1090 GOSUB 3100
1100 PRINT X,":",
1110 REM get seconds
1120 X=XBY(WT+1)
1130 GOSUB 3100
1140 PRINT X,
1150 IF TT=0 THEN 1220
1160 IF AP=1 THEN 1190
1170 PRINT “am”
1180 GOTO 1220
1190 PRINT “pm”
1200 PRINT
182 The Microcontroller Idea Book