P129-TOD & ALARM
FILE INFORMATION
FILENAME(S): P129-TOD & ALARM
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
8a1f6290672e99113e4575165727e62481332a204cd13ecc61764fb970854d4c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | P129-TOD & ALARM | PRG | DuncanTwain | 20 | 7 | DOWNLOAD FILE |
| PROG 64 WEST | P129-TOD & ALARM | PRG | DuncanTwain | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... | 00000030: 2A 44 45 4D 4F 4E 53 54 52 41 54 45 53 20 54 49 |*DEMONSTRATES TI| 00000040: 4D 45 2D 4F 46 2D 44 41 59 20 43 4C 4F 43 4B 20 |ME-OF-DAY CLOCK | 00000050: 2A 00 79 08 02 00 8F 20 2A 41 4E 44 20 41 4C 41 |*.y.... *AND ALA| 00000060: 52 4D 20 46 45 41 54 55 52 45 20 41 53 20 50 41 |RM FEATURE AS PA| 00000070: 47 45 53 20 31 32 38 2D 2A 00 A1 08 03 00 8F 20 |GES 128-*...... | 00000080: 2A 20 31 32 39 20 4F 46 20 27 50 52 4F 47 52 41 |* 129 OF 'PROGRA| 00000090: 4D 4D 49 4E 47 20 54 48 45 20 20 20 20 20 20 20 |MMING THE | 000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 43 4F 4D 4D 4F 44 |*...... * COMMOD| 000000B0: 4F 52 45 20 36 34 27 2E 20 20 20 20 20 20 20 20 |ORE 64'. | 000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 05 00 8F 20 | *...... | 000000D0: 2A 20 20 20 20 20 53 49 4D 50 4C 45 20 49 4E 54 |* SIMPLE INT| 000000E0: 45 52 52 55 50 54 20 53 45 51 55 45 4E 43 45 20 |ERRUPT SEQUENCE | 000000F0: 2A 00 19 09 06 00 8F 20 2A 20 53 48 4F 57 53 20 |*...... * SHOWS | 00000100: 57 48 45 4E 20 41 4C 41 52 4D 20 49 53 20 54 52 |WHEN ALARM IS TR| 00000110: 49 47 47 45 52 45 44 20 2A 00 41 09 07 00 8F 20 |IGGERED *.A.... | 00000120: 2A 20 49 4E 20 54 4F 50 2D 4C 45 46 54 20 4F 46 |* IN TOP-LEFT OF| 00000130: 20 53 43 52 45 45 4E 2E 20 20 20 20 20 20 20 20 | SCREEN. | 00000140: 2A 00 69 09 08 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.i.... ********| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 09 09 00 3A 00 |*********.o...:.| 00000170: 7F 09 0A 00 99 20 22 93 05 11 11 11 11 11 22 00 |..... ".......".| 00000180: B4 09 14 00 81 20 4A B2 34 39 31 35 32 20 A4 20 |..... J.49152 . | 00000190: 34 39 31 37 30 3A 20 87 20 58 3A 20 97 20 4A 2C |49170: . X: . J,| 000001A0: 58 3A 20 82 3A 20 8F 20 49 52 51 20 53 45 51 55 |X: .: . IRQ SEQU| 000001B0: 45 4E 43 45 00 F4 09 1E 00 97 20 35 36 33 33 33 |ENCE...... 56333| 000001C0: 2C 31 32 37 3A 20 97 20 37 38 38 2C 30 3A 20 97 |,127: . 788,0: .| 000001D0: 20 37 38 39 2C 31 39 32 3A 20 97 20 35 36 33 33 | 789,192: . 5633| 000001E0: 33 2C 31 32 39 3A 20 8F 20 49 52 51 20 54 4F 20 |3,129: . IRQ TO | 000001F0: 43 30 30 30 00 36 0A 28 00 83 20 31 37 33 2C 31 |C000.6.(.. 173,1| 00000200: 33 2C 32 32 30 2C 34 31 2C 34 2C 32 30 38 2C 33 |3,220,41,4,208,3| 00000210: 2C 37 36 2C 34 39 2C 32 33 34 2C 32 33 38 2C 30 |,76,49,234,238,0| 00000220: 2C 34 2C 32 33 38 2C 30 2C 32 31 36 2C 37 36 2C |,4,238,0,216,76,| 00000230: 34 39 2C 32 33 34 00 3C 0A 63 00 3A 00 68 0A 64 |49,234.<.c.:.h.d| 00000240: 00 97 20 35 36 33 33 35 2C C2 28 35 36 33 33 35 |.. 56335,.(56335| 00000250: 29 20 20 B0 20 31 32 38 3A 20 8F 20 41 4C 41 52 |) . 128: . ALAR| 00000260: 4D 20 42 49 54 20 4F 4E 00 87 0A 78 00 99 3A 20 |M BIT ON...x..: | 00000270: 99 20 22 53 45 54 20 41 4C 41 52 4D 3A 2D 22 3A |. "SET ALARM:-":| 00000280: 20 8D 20 31 31 30 30 00 8D 0A C7 00 3A 00 B9 0A | . 1100.....:...| 00000290: C8 00 97 20 35 36 33 33 35 2C C2 28 35 36 33 33 |... 56335,.(5633| 000002A0: 35 29 20 AF 20 31 32 37 3A 20 8F 20 41 4C 41 52 |5) . 127: . ALAR| 000002B0: 4D 20 42 49 54 20 4F 46 46 00 D8 0A D2 00 99 3A |M BIT OFF......:| 000002C0: 20 99 20 22 53 45 54 20 43 4C 4F 43 4B 3A 2D 22 | . "SET CLOCK:-"| 000002D0: 3A 20 8D 20 31 31 30 30 00 DE 0A F2 01 3A 00 04 |: . 1100.....:..| 000002E0: 0B F3 01 8F 20 2A 20 42 41 53 49 43 20 52 4F 55 |.... * BASIC ROU| 000002F0: 54 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 54 49 |TINE TO PRINT TI| 00000300: 4D 45 20 2A 00 0E 0B F4 01 99 20 22 13 22 00 1D |ME *...... "."..| 00000310: 0B FE 01 50 B2 C2 28 35 36 33 33 31 29 00 33 0B |...P..(56331).3.| 00000320: 08 02 8B 20 50 B1 31 32 37 20 A7 20 99 20 22 50 |... P.127 . . "P| 00000330: 4D 22 3B 00 49 0B 12 02 8B 20 50 B3 31 32 38 20 |M";.I.... P.128 | 00000340: A7 20 99 20 22 41 4D 22 3B 00 5E 0B 1C 02 50 B2 |. . "AM";.^...P.| 00000350: 50 20 AF 20 31 32 37 3A 20 8D 20 36 30 30 00 74 |P . 127: . 600.t| 00000360: 0B 26 02 50 B2 C2 28 35 36 33 33 30 29 3A 20 8D |.&.P..(56330): .| 00000370: 20 36 30 30 00 8A 0B 30 02 50 B2 C2 28 35 36 33 | 600...0.P..(563| 00000380: 32 39 29 3A 20 8D 20 36 30 30 00 A0 0B 3A 02 99 |29): . 600...:..| 00000390: 20 C2 28 35 36 33 32 38 29 20 22 9D 20 20 20 22 | .(56328) ". "| 000003A0: 00 AA 0B 4E 02 89 20 35 30 30 00 B0 0B 56 02 3A |...N.. 500...V.:| 000003B0: 00 D5 0B 57 02 8F 20 2A 2A 2A 20 43 4F 4E 56 45 |...W.. *** CONVE| 000003C0: 52 54 20 42 43 44 20 54 4F 20 44 45 43 49 4D 41 |RT BCD TO DECIMA| 000003D0: 4C 20 2A 2A 2A 00 E0 0B 58 02 97 20 31 39 2C 31 |L ***...X.. 19,1| 000003E0: 00 01 0C 62 02 99 20 B5 28 50 AD 31 36 29 AC 31 |...b.. .(P.16).1| 000003F0: 30 20 AA 20 28 50 20 AF 20 31 35 29 3B 22 3A 22 |0 . (P . 15);":"| 00000400: 3B 00 0C 0C 63 02 97 20 31 39 2C 30 00 12 0C 6C |;...c.. 19,0...l| 00000410: 02 8E 00 18 0C 4A 04 3A 00 1E 0C 4B 04 3A 00 48 |.....J.:...K.:.H| 00000420: 0C 4C 04 8F 20 2A 20 53 45 54 20 43 4C 4F 43 4B |.L.. * SET CLOCK| 00000430: 20 28 43 49 41 23 31 20 41 54 20 42 43 30 38 2D | (CIA#1 AT BC08-| 00000440: 42 43 30 42 29 20 2A 2A 00 61 0C 56 04 85 20 22 |BC0B) **.a.V.. "| 00000450: 20 20 48 4F 55 52 53 20 28 31 2D 32 34 29 22 3B | HOURS (1-24)";| 00000460: 48 00 7A 0C 60 04 85 20 22 4D 49 4E 55 54 45 53 |H.z.`.. "MINUTES| 00000470: 20 28 30 2D 35 39 29 22 3B 4D 00 93 0C 6A 04 85 | (0-59)";M...j..| 00000480: 20 22 53 45 43 4F 4E 44 53 20 28 30 2D 35 39 29 | "SECONDS (0-59)| 00000490: 22 3B 53 00 AC 0C 74 04 85 20 22 20 20 54 45 4E |";S...t.. " TEN| 000004A0: 54 48 53 20 28 30 2D 39 29 22 3B 54 00 D5 0C B0 |THS (0-9)";T....| 000004B0: 04 96 20 A5 20 42 43 44 28 58 29 B2 B5 28 58 AD |.. . BCD(X)..(X.| 000004C0: 31 30 29 AC 31 36 20 AA 20 58 AB B5 28 58 AD 31 |10).16 . X..(X.1| 000004D0: 30 29 AC 31 30 00 F6 0C BA 04 8B 20 48 B1 31 32 |0).10...... H.12| 000004E0: 20 A7 20 48 B2 A5 20 42 43 44 28 48 AB 31 32 29 | . H.. BCD(H.12)| 000004F0: 20 B0 20 31 32 38 00 19 0D C4 04 8B 20 48 B3 31 | . 128...... H.1| 00000500: 33 20 A7 20 48 B2 A5 20 42 43 44 28 48 29 3A 20 |3 . H.. BCD(H): | 00000510: 97 20 35 36 33 33 31 2C 48 00 27 0D CE 04 97 20 |. 56331,H.'.... | 00000520: 35 36 33 33 31 2C 48 00 3C 0D D8 04 97 20 35 36 |56331,H.<.... 56| 00000530: 33 33 30 2C A5 20 42 43 44 28 4D 29 00 51 0D E2 |330,. BCD(M).Q..| 00000540: 04 97 20 35 36 33 32 39 2C A5 20 42 43 44 28 53 |.. 56329,. BCD(S| 00000550: 29 00 72 0D EC 04 97 20 35 36 33 32 38 2C 54 20 |).r.... 56328,T | 00000560: 20 3A 8F 20 2A 2A 20 53 54 41 52 54 20 43 4C 4F | :. ** START CLO| 00000570: 43 4B 00 78 0D F6 04 8E 00 00 00 53 80 01 FF 9F |CK.x.......S....| 00000580: 00 00 48 00 81 00 00 00 00 4D 00 00 00 00 00 00 |..H......M......| 00000590: 53 00 86 5C 00 00 00 54 00 83 20 00 00 00 C2 43 |S..\...T.. ....C| 000005A0: 5F 09 2C 0C B5 58 00 00 00 00 00 00 50 00 81 00 |_.,..X......P...| 000005B0: 00 00 00 58 80 00 FF 9F 00 00 5F 0C 02 00 20 20 |...X......_... | 000005C0: 20 22 43 47 4F 54 4F 2F 20 47 4F 53 55 42 22 20 | "CGOTO/ GOSUB" | 000005D0: 20 20 20 20 50 52 47 20 20 00 7F 0C 05 00 20 20 | PRG ..... | 000005E0: 20 22 54 4F 44 20 26 20 41 4C 41 52 4D 22 20 20 | "TOD & ALARM" | 000005F0: 20 20 20 20 50 52 47 20 20 00 9D 0C 22 01 42 4C | PRG ...".BL| 00000600: 4F 43 4B 53 20 46 52 45 45 2E 20 20 20 20 20 20 |OCKS FREE. | 00000610: 20 20 20 20 20 20 20 00 00 00 60 00 60 00 60 00 | ...`.`.`.| 00000620: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000630: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 10 60 9F FD |.............`..| 00000640: 00 FF 9F FF 9F FF 9F FF 12 FF 9F 64 8F E9 DF FD |...........d....| 00000650: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000660: 9F FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000670: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000680: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000690: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 000006A0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 000006B0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 71 00 FF 9D |........p...q...| 000006C0: 60 9F FF 9F FF 9F FF 9F 72 9F FF 04 ED 89 BF 9D |`.......r.......| 000006D0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 000006E0: FF 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 000006F0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000700: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000710: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000720: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000730: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1D F9 9F FD |................| 00000740: 00 FF 9F FF 9F FF 9F FF 12 FF 9F 64 8D E9 DD FD |...........d....| 00000750: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000760: 9D FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000770: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000780: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000790: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 000007A0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 000007B0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 7F 99 FF 9D |........p.......| 000007C0: 60 9D FF 9F FF 9F FF 9F 72 9F FF 04 ED 89 BD 9D |`.......r.......| 000007D0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 000007E0: FD 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 000007F0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000800: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000810: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000820: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000830: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1F F9 9F 70 |...............p| 00000840: 00 FD 9F FF 9F FF 9F FF 12 FF 9F 64 8D E9 DF FD |...........d....| 00000850: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000860: 9F FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000870: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000880: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000890: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 000008A0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 000008B0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 7F 99 FF 90 |........p.......| 000008C0: 60 9F FF 9F FF 9F FF 9F 72 9F FF 04 EF 89 BF 9D |`.......r.......| 000008D0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 000008E0: FF 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 000008F0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000900: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000910: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000920: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000930: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1F F9 9F FF |................| 00000940: 00 FF 9F FF 9F FF 9F FF 12 FF 9F 64 8F E9 DF FD |...........d....| 00000950: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000960: 9F FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000970: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000980: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000990: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 000009A0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 000009B0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 7F 99 FF 9D |........p.......| 000009C0: 60 9F FF 9F FF 9F FF 9F 72 9F FF 04 EF 89 BF 9D |`.......r.......| 000009D0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 000009E0: FF 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 000009F0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000A00: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000A10: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000A20: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000A30: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1F F9 9F FD |................| 00000A40: 00 FF 9F FF 9F FF 9F FF 12 FF 9F 64 8F E1 DF F9 |...........d....| 00000A50: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000A60: 9F FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000A70: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000A80: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000A90: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 00000AA0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 00000AB0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 7F 99 FF 9D |........p.......| 00000AC0: 60 9F FF 9F FF 9F FF 9F 72 9F FF 04 EF 81 BF 9D |`.......r.......| 00000AD0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 00000AE0: FF 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 00000AF0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000B00: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000B10: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000B20: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 20 00 |`.`.`.`.`.`.`. .| 00000B30: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1D F8 9F FD |................| 00000B40: 00 F9 9F FF 9F FF 9F FF 12 FF 9F 64 8D E9 DF FD |...........d....| 00000B50: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000B60: 9D FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000B70: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000B80: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |.`.`.`.`.`.`.`.`| 00000B90: 60 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 |``.`.`.`.`.`.`.`| 00000BA0: 00 60 00 60 00 60 00 60 00 60 00 60 00 60 40 60 |.`.`.`.`.`.`.`@`| 00000BB0: 9F 9F FF 9F FF 9F FF 9F 70 91 FF 9F 7F 99 FF 9D |........p.......| 00000BC0: 60 99 FF 9F FF 9F FF 9F 72 9F FF 04 EF 81 BF 9D |`.......r.......| 00000BD0: 9F 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F |................| 00000BE0: FF 9F FF 9F FF 9F FF 9F FF 9F 9F 9F FF 9F FF 9F |................| 00000BF0: 60 00 60 00 60 00 60 00 00 00 60 00 60 00 60 00 |`.`.`.`...`.`.`.| 00000C00: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |`.`.`.`.`.`.`.`.| 00000C10: 00 00 60 00 60 00 60 00 60 00 60 00 60 00 60 00 |..`.`.`.`.`.`.`.| 00000C20: 60 00 60 00 60 00 60 00 60 00 60 00 60 00 00 00 |`.`.`.`.`.`.`...| 00000C30: FF FF 9F FF 9F FF 9F FF 10 F1 9F FF 1F F8 9F FD |................| 00000C40: 00 FD 9F FF 9F FF 9F FF 12 FF 9F 64 8F E0 DF FD |...........d....| 00000C50: FF FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF 9F FF |................| 00000C60: 9D FF 9F FF 9F FF 9F FF 9F FF FF FF 9F FF 9F FF |................| 00000C70: 00 60 00 60 00 60 00 60 60 60 00 60 00 60 00 60 |.`.`.`.```.`.`.`| 00000C80: 00 60 00 60 00 60 00 |.`.`.`. |
..).... ********************************
*.Q.... *DEMONSTRATES TIME-OF-DAY CLOCK
*.Y.... *AND ALARM FEATURE AS PAGES 128-
*...... * 129 OF 'PROGRAMMING THE
*.I.... * COMMODORE 64'.
*...... * SIMPLE INTERRUPT SEQUENCE
*...... * SHOWS WHEN ALARM IS TRIGGERED
*.A.... * IN TOP-LEFT OF SCREEN.
*.I.... ********************************
*.O...:..... "......."...... J.49152 .
49170: . X: . J,X: .: . IRQ SEQUENCE....
.. 56333,127: . 788,0: . 789,192: . 5633
3,129: . IRQ TO C000.6.(.. 173,13,220,41
,4,208,3,76,49,234,238,0,4,238,0,216,76,
49,234.<.C.:.H.D.. 56335,B(56335) . 128
: . ALARM BIT ON...X..: . "SET ALARM:-":
. 1100...G.:...H.. 56335,B(56335) . 127
: . ALARM BIT OFF.X.R..: . "SET CLOCK:-"
: . 1100.....:...... * BASIC ROUTINE TO
PRINT TIME *...... ".".....P.B(56331).3.
... P.127 . . "PM";.I.... P.128 . . "AM"
;.^...P.P . 127: . 600.T.&.P.B(56330): .
600...0.P.B(56329): . 600. .:.. B(56328
) ". "...N.. 500...V.:.U.W.. *** CONVE
RT BCD TO DECIMAL ***...X.. 19,1...B.. .
(P.16).10 . (P . 15);":";...C.. 19,0...L
.....J.:...K.:.H.L.. * SET CLOCK (CIA#1
AT BC08-BC0B) **.A.V.. " HOURS (1-24)";
H.Z.`.. "MINUTES (0-59)";M...J.. "SECOND
S (0-59)";S...T.. " TENTHS (0-9)";T.U..
.. . BCD(X)..(X.10).16 . X..(X.10).10...
... H.12 . H.. BCD(H.12) . 128...D.. H.1
3 . H.. BCD(H): . 56331,H.'.N.. 56331,H.
<.X.. 56330,. BCD(M).Q.... 56329,. BCD(S
).R.... 56328,T :. ** START CLOCK.X....
...S......H......M......S..\...T.. ...BC
_.,..X......P......X......_... "CGOTO/
GOSUB" PRG .... "TOD & ALARM"
PRG ...".BLOCKS FREE. .
..`.`.`.`.`.`.`.`.`.`. ..............`..
...........D............................
.........`.`.`.```.`.`.`.`.`.`.`.`.`.`.`
``.`.`.`.`.`.`.`.`.`.`.`.`.`.`@`........
P...Q...`.......R.......................
................`.`.`.`...`.`.`.`.`.`.`.
`.`.`.`...`.`.`.`.`.`.`.`.`.`.`.`.`.`. .
...........................D............
.........................`.`.`.```.`.`.`
.`.`.`.`.`.`.`.```.`.`.`.`.`.`.`.`.`.`.`
.`.`.`@`........P......`.......R.......
................................`.`.`.`.
..`.`.`.`.`.`.`.`.`.`.`...`.`.`.`.`.`.`.
`.`.`.`.`.`.`. ................P........
...D....................................
.`.`.`.```.`.`.`.`.`.`.`.`.`.`.```.`.`.`
.`.`.`.`.`.`.`.`.`.`.`@`........P......
`.......R...............................
........`.`.`.`...`.`.`.`.`.`.`.`.`.`.`.
..`.`.`.`.`.`.`.`.`.`.`.`.`.`. .........
...................D....................
.................`.`.`.```.`.`.`.`.`.`.`
.`.`.`.```.`.`.`.`.`.`.`.`.`.`.`.`.`.`@`
........P......`.......R...............
........................`.`.`.`...`.`.`.
`.`.`.`.`.`.`.`...`.`.`.`.`.`.`.`.`.`.`.
`.`.`. ............................D....
.................................`.`.`.`
``.`.`.`.`.`.`.`.`.`.`.```.`.`.`.`.`.`.`
.`.`.`.`.`.`.`@`........P......`.......
R.......................................
`.`.`.`...`.`.`.`.`.`.`.`.`.`.`...`.`.`.
`.`.`.`.`.`.`.`.`.`.`. .................
...........D............................
.........`.`.`.```.`.`.`.`.`.`.`.`.`.`.`
``.`.`.`.`.`.`.`.`.`.`.`.`.`.`@`........
P......`.......R.......................
................`.`.`.`...`.`.`.`.`.`.`.
`.`.`.`...`.`.`.`.`.`.`.`.`.`.`.`.`.`...
...........................D............
.........................`.`.`.```.`.`.`
.`.`.`.
> CLICK IMAGE PREVIEW FOR FULL MODAL