CLOCKSET.BUD
FILE INFORMATION
FILENAME(S): CLOCKSET.BUD
FILE TYPE(S): SEQ
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 21:15:11
APPEARS ON: 1 disk(s)
FILE HASH
8c7c572e217b00219ab44695b07c09c91b49ac9ffa1b86534ebabebf2ffa8225
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | CLOCKSET.BUD | SEQ | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 50 55 54 22 40 30 3A 43 4C 4F 43 4B 53 45 54 |;PUT"@0:CLOCKSET| 00000010: 2E 42 55 44 22 0D 3B 20 2A 2A 20 52 45 57 52 49 |.BUD".; ** REWRI| 00000020: 54 54 45 4E 20 49 4E 20 C2 55 44 44 59 20 31 32 |TTEN IN .UDDY 12| 00000030: 38 20 46 4F 52 4D 41 54 0D 3B 0D 2A 3D 24 31 36 |8 FORMAT.;.*=$16| 00000040: 30 30 20 3B 20 35 36 33 32 0D 2E 4F 42 4A 20 22 |00 ; 5632..OBJ "| 00000050: 40 30 3A 43 4C 4B 35 36 33 32 22 0D 3B 2A 20 2A |@0:CLK5632".;* *| 00000060: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000070: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 0D 3B | * * * * * * *.;| 00000080: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 2A 0D 3B 2A 20 43 4C 4F 43 4B 20 26 20 41 4C 41 |*.;* CLOCK & ALA| 000000B0: 52 4D 20 53 45 54 55 50 20 20 20 20 20 20 20 20 |RM SETUP | 000000C0: 20 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 20 20 | *.;* | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 2A 0D 3B 2A 20 57 52 49 54 54 | *.;* WRITT| 000000F0: 45 4E 20 31 32 2D 30 32 2D 38 35 20 20 57 2E 4A |EN 12-02-85 W.J| 00000100: 2E 20 42 52 49 45 52 20 20 2A 0D 3B 2A 20 20 20 |. BRIER *.;* | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A | *.;*| 00000130: 20 52 45 56 49 53 45 44 20 20 31 2D 31 38 2D 38 | REVISED 1-18-8| 00000140: 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A |7 *| 00000150: 0D 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.;* | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 2A 0D 3B 2A 20 43 4F 50 59 52 49 47 48 54 | *.;* COPYRIGHT| 00000180: 20 28 43 29 20 31 39 38 35 20 20 20 20 20 20 20 | (C) 1985 | 00000190: 20 20 20 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 | *.;* | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 41 4C 4C | *.;* ALL| 000001C0: 20 52 49 47 48 54 53 20 52 45 53 45 52 56 45 44 | RIGHTS RESERVED| 000001D0: 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 | *.;* | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D | *.| 00000200: 3B 2A 20 55 53 45 20 57 49 54 48 20 43 4C 4F 43 |;* USE WITH CLOC| 00000210: 4B 2D 43 41 4C 45 4E 44 41 52 20 31 32 38 20 20 |K-CALENDAR 128 | 00000220: 20 2A 0D 3B 2A 20 20 20 20 20 20 20 20 20 20 20 | *.;* | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000240: 20 20 20 20 2A 0D 3B 2A 20 53 45 54 20 54 49 4D | *.;* SET TIM| 00000250: 45 20 4F 46 20 44 41 59 3A 20 53 59 53 20 35 36 |E OF DAY: SYS 56| 00000260: 33 32 2C 30 20 20 20 2A 0D 3B 2A 20 53 45 54 20 |32,0 *.;* SET | 00000270: 41 4C 41 52 4D 20 54 49 4D 45 3A 20 20 53 59 53 |ALARM TIME: SYS| 00000280: 20 35 36 33 32 2C 31 20 20 20 2A 0D 3B 2A 20 20 | 5632,1 *.;* | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B | *.;| 000002B0: 2A 20 45 4E 54 45 52 20 54 49 4D 45 20 49 4E 20 |* ENTER TIME IN | 000002C0: 32 34 20 48 4F 55 52 20 46 4F 52 4D 41 54 20 20 |24 HOUR FORMAT | 000002D0: 2A 0D 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |*.;* | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 20 2A 0D 3B 2A 20 2A 20 2A 20 2A 20 2A 20 | *.;* * * * * | 00000300: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000310: 2A 20 2A 20 2A 20 2A 0D 20 20 20 20 20 20 20 20 |* * * *. | 00000320: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 00000330: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 | ;. | 00000340: 20 20 20 20 20 20 3B 0D 3B 2A 20 2A 20 2A 20 2A | ;.;* * * *| 00000350: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000360: 20 2A 20 2A 20 2A 20 2A 20 2A 0D 3B 2A 20 20 20 | * * * * *.;* | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A | *.;*| 00000390: 20 20 3C 3C 3C 20 50 52 4F 47 52 41 4D 20 41 53 | <<< PROGRAM AS| 000003A0: 53 49 47 4E 4D 45 4E 54 53 20 3E 3E 3E 20 20 2A |SIGNMENTS >>> *| 000003B0: 0D 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.;* | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003D0: 20 20 2A 0D 3B 2A 20 2A 20 2A 20 2A 20 2A 20 2A | *.;* * * * * *| 000003E0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 000003F0: 20 2A 20 2A 20 2A 0D 20 20 20 20 20 20 20 20 20 | * * *. | 00000400: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 | ;. | 00000410: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 | ;. | 00000420: 20 20 20 20 20 3B 0D 3B 53 59 53 54 45 4D 20 56 | ;.;SYSTEM V| 00000430: 45 43 54 4F 52 53 20 26 20 50 4F 49 4E 54 45 52 |ECTORS & POINTER| 00000440: 53 2E 2E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |S.... | 00000450: 20 20 20 3B 0D 4E 44 58 20 20 20 20 3D 24 44 30 | ;.NDX =$D0| 00000460: 20 20 20 3B 4B 45 59 42 4F 41 52 44 20 51 55 45 | ;KEYBOARD QUE| 00000470: 55 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |UE. | 00000480: 20 3B 0D 4D 4F 44 45 20 20 20 3D 24 44 37 20 20 | ;.MODE =$D7 | 00000490: 20 3B 34 30 2F 38 30 20 43 4F 4C 55 4D 4E 20 4D | ;40/80 COLUMN M| 000004A0: 4F 44 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ODE. | 000004B0: 20 20 3B 0D 43 4F 4C 4F 52 20 20 3D 24 46 31 20 | ;.COLOR =$F1 | 000004C0: 20 20 3B 4E 45 58 54 20 41 54 54 52 49 42 55 54 | ;NEXT ATTRIBUT| 000004D0: 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E. | 000004E0: 3B 0D 4B 45 59 43 48 4B 20 3D 24 30 33 33 43 20 |;.KEYCHK =$033C | 000004F0: 3B 4B 45 59 20 44 45 43 4F 44 45 20 56 45 43 54 |;KEY DECODE VECT| 00000500: 4F 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |OR. | 00000510: 20 3B 0D 43 55 52 4F 4E 20 20 3D 24 43 44 36 46 | ;.CURON =$CD6F| 00000520: 20 3B 46 4C 41 53 48 20 43 55 52 53 4F 52 0D 43 | ;FLASH CURSOR.C| 00000530: 55 52 4F 46 31 20 3D 24 43 44 39 46 20 3B 4B 49 |UROF1 =$CD9F ;KI| 00000540: 4C 4C 20 43 55 52 53 4F 52 20 28 34 30 20 43 4F |LL CURSOR (40 CO| 00000550: 4C 29 0D 43 55 52 4F 46 32 20 3D 24 43 44 41 43 |L).CUROF2 =$CDAC| 00000560: 20 3B 4B 49 4C 4C 20 43 55 52 53 4F 52 20 28 38 | ;KILL CURSOR (8| 00000570: 30 20 43 4F 4C 29 0D 20 20 20 20 20 20 20 20 20 |0 COL). | 00000580: 20 20 20 20 20 3B 0D 53 49 47 56 4F 4C 20 3D 24 | ;.SIGVOL =$| 00000590: 44 34 31 38 20 3B 56 4F 4C 55 4D 45 20 43 4F 4E |D418 ;VOLUME CON| 000005A0: 54 52 4F 4C 0D 20 20 20 20 20 20 20 20 20 20 20 |TROL. | 000005B0: 20 20 20 3B 0D 54 4F 44 32 20 20 20 3D 24 44 44 | ;.TOD2 =$DD| 000005C0: 30 38 20 3B 54 49 4D 45 20 4F 46 20 44 41 59 20 |08 ;TIME OF DAY | 000005D0: 43 4C 4F 43 4B 20 23 32 0D 20 20 20 20 20 20 20 |CLOCK #2. | 000005E0: 20 20 20 20 20 20 20 3B 0D 4D 4D 55 20 20 20 20 | ;.MMU | 000005F0: 3D 24 46 46 30 30 20 3B 4D 45 4D 4F 52 59 20 43 |=$FF00 ;MEMORY C| 00000600: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 0D 20 20 20 |ONFIGURATION. | 00000610: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 43 48 52 | ;.CHR| 00000620: 4F 55 54 20 3D 24 46 46 44 32 20 3B 4F 55 54 50 |OUT =$FFD2 ;OUTP| 00000630: 55 54 20 41 20 42 59 54 45 0D 47 45 54 49 4E 20 |UT A BYTE.GETIN | 00000640: 20 3D 24 46 46 45 34 20 3B 47 45 54 20 41 20 42 | =$FFE4 ;GET A B| 00000650: 59 54 45 0D 50 4C 4F 54 20 20 20 3D 24 46 46 46 |YTE.PLOT =$FFF| 00000660: 30 20 3B 50 4F 53 49 54 49 4F 4E 20 43 55 52 53 |0 ;POSITION CURS| 00000670: 4F 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |OR. | 00000680: 20 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | ;. | 00000690: 20 3B 0D 3B 4D 49 53 43 45 4C 4C 41 4E 45 4F 55 | ;.;MISCELLANEOU| 000006A0: 53 20 50 4F 49 4E 54 45 52 53 2E 2E 2E 0D 20 20 |S POINTERS.... | 000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 50 54 | ;.PT| 000006C0: 52 20 20 20 20 3D 24 46 41 20 20 20 3B 5A 45 52 |R =$FA ;ZER| 000006D0: 4F 20 50 41 47 45 20 50 4F 49 4E 54 45 52 0D 43 |O PAGE POINTER.C| 000006E0: 54 52 20 20 20 20 3D 24 46 43 20 20 20 3B 43 4F |TR =$FC ;CO| 000006F0: 55 4E 54 45 52 0D 20 20 20 20 20 20 20 20 20 20 |UNTER. | 00000700: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 20 | ;. | 00000710: 20 20 20 20 3B 0D 3B 43 4C 4F 43 4B 2D 43 41 4C | ;.;CLOCK-CAL| 00000720: 45 4E 44 41 52 20 4C 4F 43 41 54 49 4F 4E 53 2E |ENDAR LOCATIONS.| 00000730: 2E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000740: 20 3B 0D 41 4C 54 43 20 20 20 3D 24 31 33 31 45 | ;.ALTC =$131E| 00000750: 20 3B 41 4C 41 52 4D 20 52 45 47 49 53 54 45 52 | ;ALARM REGISTER| 00000760: 0D 41 46 4C 47 20 20 20 3D 24 31 33 32 30 20 3B |.AFLG =$1320 ;| 00000770: 41 4C 41 52 4D 20 45 4E 41 42 4C 45 20 46 4C 41 |ALARM ENABLE FLA| 00000780: 47 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |G. | 00000790: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. | 000007A0: 3B 0D 3B 56 49 44 45 4F 20 43 4F 4E 53 54 41 4E |;.;VIDEO CONSTAN| 000007B0: 54 53 2E 2E 2E 0D 20 20 20 20 20 20 20 20 20 20 |TS.... | 000007C0: 20 20 20 20 3B 0D 57 48 54 20 20 20 20 3D 35 20 | ;.WHT =5 | 000007D0: 20 20 20 20 3B 57 48 49 54 45 20 54 45 58 54 0D | ;WHITE TEXT.| 000007E0: 43 52 20 20 20 20 20 3D 31 33 20 20 20 20 3B 43 |CR =13 ;C| 000007F0: 41 52 52 49 41 47 45 20 52 45 54 55 52 4E 0D 44 |ARRIAGE RETURN.D| 00000800: 45 4C 20 20 20 20 3D 32 30 20 20 20 20 3B 44 45 |EL =20 ;DE| 00000810: 4C 45 54 45 0D 45 53 43 20 20 20 20 3D 32 37 20 |LETE.ESC =27 | 00000820: 20 20 20 3B 45 53 43 41 50 45 20 43 48 41 52 41 | ;ESCAPE CHARA| 00000830: 43 54 45 52 0D 52 49 47 48 54 20 20 3D 32 39 20 |CTER.RIGHT =29 | 00000840: 20 20 20 3B 43 55 52 53 4F 52 20 52 49 47 48 54 | ;CURSOR RIGHT| 00000850: 0D 43 4C 52 20 20 20 20 3D 31 34 37 20 20 20 3B |.CLR =147 ;| 00000860: 43 4C 45 41 52 20 53 43 52 45 45 4E 0D 59 45 4C |CLEAR SCREEN.YEL| 00000870: 20 20 20 20 3D 31 35 38 20 20 20 3B 59 45 4C 4C | =158 ;YELL| 00000880: 4F 57 20 54 45 58 54 0D 43 59 4E 20 20 20 20 3D |OW TEXT.CYN =| 00000890: 31 35 39 20 20 20 3B 43 59 41 4E 20 54 45 58 54 |159 ;CYAN TEXT| 000008A0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |. ;| 000008B0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |. ;| 000008C0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |. ;| 000008D0: 0D 3B 23 20 23 20 23 20 23 20 23 20 23 20 23 20 |.;# # # # # # # | 000008E0: 23 20 23 20 23 20 23 20 23 20 23 20 23 20 23 20 |# # # # # # # # | 000008F0: 23 20 23 0D 3B 23 20 20 20 20 20 20 20 20 20 20 |# #.;# | 00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000910: 20 20 20 20 20 23 0D 3B 23 20 20 20 20 43 2D 31 | #.;# C-1| 00000920: 32 38 20 20 54 49 4D 45 2F 41 4C 41 52 4D 20 53 |28 TIME/ALARM S| 00000930: 45 54 55 50 20 20 20 20 23 0D 3B 23 20 20 20 20 |ETUP #.;# | 00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000950: 20 20 20 20 20 20 20 20 20 20 20 23 0D 3B 23 20 | #.;# | 00000960: 23 20 23 20 23 20 23 20 23 20 23 20 23 20 23 20 |# # # # # # # # | 00000970: 23 20 23 20 23 20 23 20 23 20 23 20 23 20 23 0D |# # # # # # # #.| 00000980: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00000990: 3B 0D 20 20 20 20 20 20 20 3B 0D 3B 49 4E 49 54 |;. ;.;INIT| 000009A0: 49 41 4C 20 53 45 54 55 50 2E 2E 2E 0D 20 20 20 |IAL SETUP.... | 000009B0: 20 20 20 20 3B 0D 53 54 49 4D 20 20 20 41 4E 44 | ;.STIM AND| 000009C0: 20 23 31 20 3B 4D 41 53 4B 20 47 41 52 42 41 47 | #1 ;MASK GARBAG| 000009D0: 45 20 26 2E 2E 2E 0D 20 20 20 20 20 20 20 53 54 |E &.... ST| 000009E0: 41 20 53 46 4C 47 20 3B 53 45 54 20 45 4E 54 52 |A SFLG ;SET ENTR| 000009F0: 59 20 4D 4F 44 45 20 46 4C 41 47 0D 20 20 20 20 |Y MODE FLAG. | 00000A00: 20 20 20 3B 0D 20 20 20 20 20 20 20 4C 44 41 20 | ;. LDA | 00000A10: 43 4F 4C 4F 52 20 3B 43 55 52 52 45 4E 54 20 41 |COLOR ;CURRENT A| 00000A20: 54 54 52 49 42 55 54 45 0D 20 20 20 20 20 20 20 |TTRIBUTE. | 00000A30: 50 48 41 20 3B 53 41 56 45 0D 20 20 20 20 20 20 |PHA ;SAVE. | 00000A40: 20 3B 0D 20 20 20 20 20 20 20 4C 44 41 20 4D 4D | ;. LDA MM| 00000A50: 55 20 3B 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E |U ;CONFIGURATION| 00000A60: 0D 20 20 20 20 20 20 20 50 48 41 20 3B 53 41 56 |. PHA ;SAV| 00000A70: 45 20 4F 4E 20 53 54 41 43 4B 0D 20 20 20 20 20 |E ON STACK. | 00000A80: 20 20 3B 0D 20 20 20 20 20 20 20 4C 44 58 20 23 | ;. LDX #| 00000A90: 31 34 0D 20 20 20 20 20 20 20 53 54 58 20 4D 4D |14. STX MM| 00000AA0: 55 20 3B 45 4E 41 42 4C 45 20 4B 45 52 4E 41 4C |U ;ENABLE KERNAL| 00000AB0: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00000AC0: 20 49 4E 58 0D 20 20 20 20 20 20 20 53 54 58 20 | INX. STX | 00000AD0: 53 49 47 56 4F 4C 20 3B 4D 41 58 49 4D 55 4D 20 |SIGVOL ;MAXIMUM | 00000AE0: 56 4F 4C 55 4D 45 0D 20 20 20 20 20 20 20 3B 0D |VOLUME. ;.| 00000AF0: 20 20 20 20 20 20 20 4C 44 41 20 23 31 38 33 0D | LDA #183.| 00000B00: 20 20 20 20 20 20 20 53 54 41 20 4B 45 59 43 48 | STA KEYCH| 00000B10: 4B 20 3B 42 59 50 41 53 53 20 46 20 4B 45 59 53 |K ;BYPASS F KEYS| 00000B20: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00000B30: 20 4A 53 52 20 43 48 49 4D 45 20 3B 53 49 47 4E | JSR CHIME ;SIGN| 00000B40: 41 4C 20 55 53 45 52 0D 20 20 20 20 20 20 20 3B |AL USER. ;| 00000B50: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 43 4C 52 |. LDA #CLR| 00000B60: 0D 20 20 20 20 20 20 20 4A 53 52 20 43 48 52 4F |. JSR CHRO| 00000B70: 55 54 20 3B 43 4C 45 41 52 20 53 43 52 45 45 4E |UT ;CLEAR SCREEN| 00000B80: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00000B90: 20 3B 0D 3B 44 49 53 50 4C 41 59 20 49 4E 50 55 | ;.;DISPLAY INPU| 00000BA0: 54 20 50 52 4F 4D 50 54 2E 2E 2E 0D 20 20 20 20 |T PROMPT.... | 00000BB0: 20 20 20 3B 0D 53 54 49 4D 30 31 20 4C 44 58 20 | ;.STIM01 LDX | 00000BC0: 23 32 20 3B 52 4F 57 0D 20 20 20 20 20 20 20 4C |#2 ;ROW. L| 00000BD0: 44 59 20 23 30 20 3B 43 4F 4C 55 4D 4E 0D 20 20 |DY #0 ;COLUMN. | 00000BE0: 20 20 20 20 20 4A 53 52 20 50 4C 4F 54 41 20 3B | JSR PLOTA ;| 00000BF0: 50 4F 53 49 54 49 4F 4E 20 43 55 52 53 4F 52 0D |POSITION CURSOR.| 00000C00: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00000C10: 4C 44 41 20 53 46 4C 47 20 3B 45 4E 54 52 59 20 |LDA SFLG ;ENTRY | 00000C20: 4D 4F 44 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 |MODE. ;. | 00000C30: 20 20 20 20 20 41 53 4C 20 3B 44 4F 55 42 4C 45 | ASL ;DOUBLE| 00000C40: 0D 20 20 20 20 20 20 20 54 41 58 20 3B 42 45 43 |. TAX ;BEC| 00000C50: 4F 4D 45 53 20 50 52 4F 4D 50 54 20 4F 46 46 53 |OMES PROMPT OFFS| 00000C60: 45 54 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |ET. ;. | 00000C70: 20 20 20 4C 44 41 20 50 54 41 42 2C 58 20 3B 50 | LDA PTAB,X ;P| 00000C80: 52 4F 4D 50 54 20 41 44 44 52 45 53 53 0D 20 20 |ROMPT ADDRESS. | 00000C90: 20 20 20 20 20 4C 44 59 20 50 54 41 42 2B 31 2C | LDY PTAB+1,| 00000CA0: 58 0D 20 20 20 20 20 20 20 4A 53 52 20 50 52 4E |X. JSR PRN| 00000CB0: 54 20 3B 4F 55 54 50 55 54 0D 20 20 20 20 20 20 |T ;OUTPUT. | 00000CC0: 20 3B 0D 20 20 20 20 20 20 20 4C 44 58 20 23 32 | ;. LDX #2| 00000CD0: 20 3B 52 4F 57 0D 20 20 20 20 20 20 20 3B 0D 20 | ;ROW. ;. | 00000CE0: 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 | SEC. | 00000CF0: 20 54 59 41 0D 20 20 20 20 20 20 20 53 42 43 20 | TYA. SBC | 00000D00: 23 37 20 3B 47 45 4E 45 52 41 54 45 20 43 4F 4C |#7 ;GENERATE COL| 00000D10: 55 4D 4E 20 56 41 4C 55 45 0D 20 20 20 20 20 20 |UMN VALUE. | 00000D20: 20 54 41 59 0D 20 20 20 20 20 20 20 4A 53 52 20 | TAY. JSR | 00000D30: 50 4C 4F 54 41 20 3B 50 4F 53 49 54 49 4F 4E 20 |PLOTA ;POSITION | 00000D40: 43 55 52 53 4F 52 0D 20 20 20 20 20 20 20 3B 0D |CURSOR. ;.| 00000D50: 20 20 20 20 20 20 20 4A 53 52 20 43 4C 52 51 20 | JSR CLRQ | 00000D60: 3B 43 4C 45 41 52 20 4B 45 59 42 27 44 20 51 55 |;CLEAR KEYB'D QU| 00000D70: 45 55 45 0D 20 20 20 20 20 20 20 53 54 41 20 43 |EUE. STA C| 00000D80: 54 52 20 3B 43 4C 45 41 52 20 49 4E 50 55 54 20 |TR ;CLEAR INPUT | 00000D90: 43 4F 55 4E 54 45 52 0D 20 20 20 20 20 20 20 3B |COUNTER. ;| 00000DA0: 0D 20 20 20 20 20 20 20 3B 0D 3B 46 45 54 43 48 |. ;.;FETCH| 00000DB0: 20 55 53 45 52 20 49 4E 50 55 54 2E 2E 2E 0D 20 | USER INPUT.... | 00000DC0: 20 20 20 20 20 20 3B 0D 53 54 49 4D 30 32 20 53 | ;.STIM02 S| 00000DD0: 45 49 20 3B 49 4E 54 45 52 52 55 50 54 53 20 4F |EI ;INTERRUPTS O| 00000DE0: 46 46 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |FF. ;. | 00000DF0: 20 20 20 4A 53 52 20 43 55 52 4F 4E 20 3B 46 4C | JSR CURON ;FL| 00000E00: 41 53 48 20 43 55 52 53 4F 52 0D 20 20 20 20 20 |ASH CURSOR. | 00000E10: 20 20 3B 0D 20 20 20 20 20 20 20 43 4C 49 20 3B | ;. CLI ;| 00000E20: 49 4E 54 45 52 52 55 50 54 53 20 4F 4E 0D 20 20 |INTERRUPTS ON. | 00000E30: 20 20 20 20 20 3B 0D 53 54 49 4D 30 33 20 4A 53 | ;.STIM03 JS| 00000E40: 52 20 47 45 54 49 4E 20 3B 46 45 54 43 48 20 4B |R GETIN ;FETCH K| 00000E50: 45 59 50 52 45 53 53 0D 20 20 20 20 20 20 20 42 |EYPRESS. B| 00000E60: 45 51 20 53 54 49 4D 30 33 20 3B 4E 4F 20 49 4E |EQ STIM03 ;NO IN| 00000E70: 50 55 54 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 |PUT. ;. | 00000E80: 20 20 20 20 50 48 41 20 3B 53 41 56 45 20 4B 45 | PHA ;SAVE KE| 00000E90: 59 50 52 45 53 53 0D 20 20 20 20 20 20 20 3B 0D |YPRESS. ;.| 00000EA0: 20 20 20 20 20 20 20 42 49 54 20 4D 4F 44 45 0D | BIT MODE.| 00000EB0: 20 20 20 20 20 20 20 42 50 4C 20 53 54 49 4D 30 | BPL STIM0| 00000EC0: 34 20 3B 34 30 20 43 4F 4C 55 4D 4E 53 0D 20 20 |4 ;40 COLUMNS. | 00000ED0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 53 45 | ;. SE| 00000EE0: 49 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |I. ;. | 00000EF0: 20 20 4A 53 52 20 43 55 52 4F 46 32 20 3B 4B 49 | JSR CUROF2 ;KI| 00000F00: 4C 4C 20 38 30 20 43 4F 4C 20 43 55 52 53 4F 52 |LL 80 COL CURSOR| 00000F10: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00000F20: 20 43 4C 49 0D 20 20 20 20 20 20 20 3B 0D 20 20 | CLI. ;. | 00000F30: 20 20 20 20 20 4A 4D 50 20 53 54 49 4D 30 35 0D | JMP STIM05.| 00000F40: 20 20 20 20 20 20 20 3B 0D 53 54 49 4D 30 34 20 | ;.STIM04 | 00000F50: 4A 53 52 20 43 55 52 4F 46 31 20 3B 4B 49 4C 4C |JSR CUROF1 ;KILL| 00000F60: 20 34 30 20 43 4F 4C 20 43 55 52 53 4F 52 0D 20 | 40 COL CURSOR. | 00000F70: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 3B | ;. ;| 00000F80: 0D 3B 46 49 4C 54 45 52 20 26 20 53 54 4F 52 45 |.;FILTER & STORE| 00000F90: 20 49 4E 50 55 54 2E 2E 2E 0D 20 20 20 20 20 20 | INPUT.... | 00000FA0: 20 3B 0D 53 54 49 4D 30 35 20 50 4C 41 20 3B 52 | ;.STIM05 PLA ;R| 00000FB0: 45 54 52 49 45 56 45 20 4B 45 59 50 52 45 53 53 |ETRIEVE KEYPRESS| 00000FC0: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00000FD0: 20 4C 44 59 20 43 54 52 20 3B 46 45 54 43 48 20 | LDY CTR ;FETCH | 00000FE0: 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 42 45 51 |COUNT. BEQ| 00000FF0: 20 53 54 49 4D 30 36 0D 20 20 20 20 20 20 20 3B | STIM06. ;| 00001000: 0D 20 20 20 20 20 20 20 43 4D 50 20 23 44 45 4C |. CMP #DEL| 00001010: 0D 20 20 20 20 20 20 20 42 45 51 20 53 54 49 4D |. BEQ STIM| 00001020: 30 31 20 3B 49 4E 50 55 54 20 44 45 4C 45 54 45 |01 ;INPUT DELETE| 00001030: 44 0D 20 20 20 20 20 20 20 3B 0D 53 54 49 4D 30 |D. ;.STIM0| 00001040: 36 20 43 50 59 20 23 34 0D 20 20 20 20 20 20 20 |6 CPY #4. | 00001050: 42 43 43 20 53 54 49 4D 30 37 20 3B 4D 4F 52 45 |BCC STIM07 ;MORE| 00001060: 20 49 4E 50 55 54 20 4E 45 45 44 45 44 0D 20 20 | INPUT NEEDED. | 00001070: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 43 4D | ;. CM| 00001080: 50 20 23 43 52 0D 20 20 20 20 20 20 20 42 4E 45 |P #CR. BNE| 00001090: 20 53 54 49 4D 30 32 20 3B 4E 4F 54 20 3C 52 45 | STIM02 ;NOT <RE| 000010A0: 54 55 52 4E 3E 0D 20 20 20 20 20 20 20 3B 0D 20 |TURN>. ;. | 000010B0: 20 20 20 20 20 20 42 45 51 20 53 54 49 4D 30 38 | BEQ STIM08| 000010C0: 20 3B 46 49 4E 49 53 48 45 44 0D 20 20 20 20 20 | ;FINISHED. | 000010D0: 20 20 3B 0D 53 54 49 4D 30 37 20 43 4D 50 20 23 | ;.STIM07 CMP #| 000010E0: 22 30 22 0D 20 20 20 20 20 20 20 42 43 43 20 53 |"0". BCC S| 000010F0: 54 49 4D 30 32 20 3B 4F 55 54 20 4F 46 20 52 41 |TIM02 ;OUT OF RA| 00001100: 4E 47 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 |NGE. ;. | 00001110: 20 20 20 20 43 4D 50 20 23 22 3A 22 0D 20 20 20 | CMP #":". | 00001120: 20 20 20 20 42 43 53 20 53 54 49 4D 30 32 20 3B | BCS STIM02 ;| 00001130: 4F 55 54 20 4F 46 20 52 41 4E 47 45 0D 20 20 20 |OUT OF RANGE. | 00001140: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 4A 53 52 | ;. JSR| 00001150: 20 43 48 52 4F 55 54 20 3B 45 43 48 4F 20 44 49 | CHROUT ;ECHO DI| 00001160: 47 49 54 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 |GIT. ;. | 00001170: 20 20 20 20 53 54 41 20 42 55 46 2C 59 20 3B 53 | STA BUF,Y ;S| 00001180: 54 4F 52 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 |TORE. ;. | 00001190: 20 20 20 20 20 49 4E 43 20 43 54 52 20 3B 42 55 | INC CTR ;BU| 000011A0: 4D 50 20 43 48 41 52 41 43 54 45 52 20 43 4F 55 |MP CHARACTER COU| 000011B0: 4E 54 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |NT. ;. | 000011C0: 20 20 20 43 50 59 20 23 31 0D 20 20 20 20 20 20 | CPY #1. | 000011D0: 20 42 4E 45 20 53 54 49 4D 30 32 20 3B 4C 4F 4F | BNE STIM02 ;LOO| 000011E0: 50 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |P. ;. | 000011F0: 20 20 4C 44 41 20 23 52 49 47 48 54 0D 20 20 20 | LDA #RIGHT. | 00001200: 20 20 20 20 4A 53 52 20 43 48 52 4F 55 54 20 3B | JSR CHROUT ;| 00001210: 4A 55 4D 50 20 4F 56 45 52 20 43 4F 4C 4F 4E 0D |JUMP OVER COLON.| 00001220: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00001230: 4A 4D 50 20 53 54 49 4D 30 32 20 3B 4C 4F 4F 50 |JMP STIM02 ;LOOP| 00001240: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00001250: 20 3B 0D 3B 45 4E 43 4F 44 45 20 54 49 4D 45 20 | ;.;ENCODE TIME | 00001260: 49 4E 54 4F 20 42 43 44 2E 2E 2E 0D 20 20 20 20 |INTO BCD.... | 00001270: 20 20 20 3B 0D 53 54 49 4D 30 38 20 4C 44 58 20 | ;.STIM08 LDX | 00001280: 42 55 46 20 3B 46 45 54 43 48 20 48 4F 55 52 53 |BUF ;FETCH HOURS| 00001290: 20 28 54 45 4E 53 29 0D 20 20 20 20 20 20 20 4C | (TENS). L| 000012A0: 44 41 20 42 55 46 2B 31 20 3B 46 45 54 43 48 20 |DA BUF+1 ;FETCH | 000012B0: 48 4F 55 52 53 20 28 55 4E 49 54 53 29 0D 20 20 |HOURS (UNITS). | 000012C0: 20 20 20 20 20 4A 53 52 20 41 53 43 42 43 44 20 | JSR ASCBCD | 000012D0: 3B 43 4F 4E 56 45 52 54 0D 20 20 20 20 20 20 20 |;CONVERT. | 000012E0: 3B 0D 20 20 20 20 20 20 20 43 4D 50 20 23 24 32 |;. CMP #$2| 000012F0: 34 0D 20 20 20 20 20 20 20 42 43 43 20 53 54 49 |4. BCC STI| 00001300: 4D 31 30 0D 20 20 20 20 20 20 20 3B 0D 53 54 49 |M10. ;.STI| 00001310: 4D 30 39 20 4A 53 52 20 42 55 5A 5A 45 52 20 3B |M09 JSR BUZZER ;| 00001320: 49 4C 4C 45 47 41 4C 20 56 41 4C 55 45 0D 20 20 |ILLEGAL VALUE. | 00001330: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 4A 4D | ;. JM| 00001340: 50 20 53 54 49 4D 30 31 20 3B 52 45 45 4E 54 45 |P STIM01 ;REENTE| 00001350: 52 0D 20 20 20 20 20 20 20 3B 0D 53 54 49 4D 31 |R. ;.STIM1| 00001360: 30 20 53 54 41 20 54 4F 44 43 2B 32 20 3B 53 41 |0 STA TODC+2 ;SA| 00001370: 56 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |VE. ;. | 00001380: 20 20 20 4C 44 58 20 42 55 46 2B 32 20 3B 46 45 | LDX BUF+2 ;FE| 00001390: 54 43 48 20 4D 49 4E 55 54 45 53 20 28 54 45 4E |TCH MINUTES (TEN| 000013A0: 53 29 0D 20 20 20 20 20 20 20 4C 44 41 20 42 55 |S). LDA BU| 000013B0: 46 2B 33 20 3B 46 45 54 43 48 20 4D 49 4E 55 54 |F+3 ;FETCH MINUT| 000013C0: 45 53 20 28 55 4E 49 54 53 29 0D 20 20 20 20 20 |ES (UNITS). | 000013D0: 20 20 4A 53 52 20 41 53 43 42 43 44 20 3B 43 4F | JSR ASCBCD ;CO| 000013E0: 4E 56 45 52 54 0D 20 20 20 20 20 20 20 3B 0D 20 |NVERT. ;. | 000013F0: 20 20 20 20 20 20 43 4D 50 20 23 24 36 30 0D 20 | CMP #$60. | 00001400: 20 20 20 20 20 20 42 43 53 20 53 54 49 4D 30 39 | BCS STIM09| 00001410: 20 3B 49 4C 4C 45 47 41 4C 20 4D 49 4E 55 54 45 | ;ILLEGAL MINUTE| 00001420: 20 56 41 4C 55 45 0D 20 20 20 20 20 20 20 3B 0D | VALUE. ;.| 00001430: 20 20 20 20 20 20 20 53 54 41 20 54 4F 44 43 2B | STA TODC+| 00001440: 31 20 3B 53 41 56 45 0D 20 20 20 20 20 20 20 3B |1 ;SAVE. ;| 00001450: 0D 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 |. LDA #0. | 00001460: 20 20 20 20 20 20 53 54 41 20 54 4F 44 43 20 3B | STA TODC ;| 00001470: 5A 45 52 4F 20 53 45 43 4F 4E 44 53 0D 20 20 20 |ZERO SECONDS. | 00001480: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 3B 0D 3B | ;. ;.;| 00001490: 43 4F 4E 46 49 52 4D 20 54 49 4D 45 20 45 4E 54 |CONFIRM TIME ENT| 000014A0: 52 59 2E 2E 2E 0D 20 20 20 20 20 20 20 3B 0D 20 |RY.... ;. | 000014B0: 20 20 20 20 20 20 4C 44 58 20 23 34 0D 20 20 20 | LDX #4. | 000014C0: 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 | LDY #0. | 000014D0: 20 20 4A 53 52 20 50 4C 4F 54 41 0D 20 20 20 20 | JSR PLOTA. | 000014E0: 20 20 20 3B 0D 20 20 20 20 20 20 20 4C 44 41 20 | ;. LDA | 000014F0: 23 3C 54 49 4D 50 33 20 3B 27 43 4F 52 52 45 43 |#<TIMP3 ;'CORREC| 00001500: 54 3F 27 0D 20 20 20 20 20 20 20 4C 44 59 20 23 |T?'. LDY #| 00001510: 3E 54 49 4D 50 33 0D 20 20 20 20 20 20 20 4A 53 |>TIMP3. JS| 00001520: 52 20 50 52 4E 54 0D 20 20 20 20 20 20 20 3B 0D |R PRNT. ;.| 00001530: 20 20 20 20 20 20 20 4A 53 52 20 43 48 49 4D 45 | JSR CHIME| 00001540: 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 |. ;. | 00001550: 20 4A 53 52 20 43 4C 52 51 0D 20 20 20 20 20 20 | JSR CLRQ. | 00001560: 20 3B 0D 53 54 49 4D 31 31 20 4A 53 52 20 47 45 | ;.STIM11 JSR GE| 00001570: 54 49 4E 20 3B 46 45 54 43 48 20 4B 45 59 50 52 |TIN ;FETCH KEYPR| 00001580: 45 53 53 0D 20 20 20 20 20 20 20 43 4D 50 20 23 |ESS. CMP #| 00001590: 22 4E 22 0D 20 20 20 20 20 20 20 42 45 51 20 53 |"N". BEQ S| 000015A0: 54 49 4D 31 35 20 3B 41 42 4F 52 54 0D 20 20 20 |TIM15 ;ABORT. | 000015B0: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 43 4D 50 | ;. CMP| 000015C0: 20 23 22 59 22 0D 20 20 20 20 20 20 20 42 4E 45 | #"Y". BNE| 000015D0: 20 53 54 49 4D 31 31 20 3B 4C 4F 4F 50 0D 20 20 | STIM11 ;LOOP. | 000015E0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 4C 44 | ;. LD| 000015F0: 41 20 53 46 4C 47 0D 20 20 20 20 20 20 20 42 45 |A SFLG. BE| 00001600: 51 20 53 54 49 4D 31 32 20 3B 53 45 54 54 49 4E |Q STIM12 ;SETTIN| 00001610: 47 20 54 4F 44 0D 20 20 20 20 20 20 20 3B 0D 20 |G TOD. ;. | 00001620: 20 20 20 20 20 20 3B 0D 3B 53 45 54 20 41 4C 41 | ;.;SET ALA| 00001630: 52 4D 20 54 49 4D 45 20 26 20 45 4E 41 42 4C 45 |RM TIME & ENABLE| 00001640: 20 46 4C 41 47 2E 2E 2E 0D 20 20 20 20 20 20 20 | FLAG.... | 00001650: 3B 0D 20 20 20 20 20 20 20 4C 44 58 20 54 4F 44 |;. LDX TOD| 00001660: 43 2B 32 20 3B 45 4E 54 45 52 45 44 20 48 4F 55 |C+2 ;ENTERED HOU| 00001670: 52 53 0D 20 20 20 20 20 20 20 4C 44 59 20 54 4F |RS. LDY TO| 00001680: 44 43 2B 31 20 3B 45 4E 54 45 52 45 44 20 4D 49 |DC+1 ;ENTERED MI| 00001690: 4E 55 54 45 53 0D 20 20 20 20 20 20 20 53 54 58 |NUTES. STX| 000016A0: 20 41 4C 54 43 20 3B 53 45 54 20 41 4C 41 52 4D | ALTC ;SET ALARM| 000016B0: 20 52 45 47 49 53 54 45 52 0D 20 20 20 20 20 20 | REGISTER. | 000016C0: 20 53 54 59 20 41 4C 54 43 2B 31 0D 20 20 20 20 | STY ALTC+1. | 000016D0: 20 20 20 3B 0D 20 20 20 20 20 20 20 53 54 41 20 | ;. STA | 000016E0: 41 46 4C 47 20 3B 53 45 54 20 41 4C 41 52 4D 20 |AFLG ;SET ALARM | 000016F0: 46 4C 41 47 0D 20 20 20 20 20 20 20 3B 0D 20 20 |FLAG. ;. | 00001700: 20 20 20 20 20 4A 4D 50 20 53 54 49 4D 31 35 20 | JMP STIM15 | 00001710: 3B 45 58 49 54 0D 20 20 20 20 20 20 20 3B 0D 20 |;EXIT. ;. | 00001720: 20 20 20 20 20 20 3B 0D 3B 53 45 54 20 54 49 4D | ;.;SET TIM| 00001730: 45 20 4F 46 20 44 41 59 2E 2E 2E 0D 20 20 20 20 |E OF DAY.... | 00001740: 20 20 20 3B 0D 53 54 49 4D 31 32 20 4C 44 41 20 | ;.STIM12 LDA | 00001750: 54 4F 44 43 2B 32 20 3B 48 4F 55 52 53 0D 20 20 |TODC+2 ;HOURS. | 00001760: 20 20 20 20 20 42 45 51 20 53 54 49 4D 31 33 20 | BEQ STIM13 | 00001770: 3B 49 53 20 4D 49 44 4E 49 54 45 0D 20 20 20 20 |;IS MIDNITE. | 00001780: 20 20 20 3B 0D 20 20 20 20 20 20 20 43 4D 50 20 | ;. CMP | 00001790: 23 24 31 32 0D 20 20 20 20 20 20 20 42 43 43 20 |#$12. BCC | 000017A0: 53 54 49 4D 31 33 20 3B 49 53 20 41 4D 0D 20 20 |STIM13 ;IS AM. | 000017B0: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 3B 0D | ;. ;.| 000017C0: 3B 43 4F 4E 56 45 52 54 20 32 34 20 48 4F 55 52 |;CONVERT 24 HOUR| 000017D0: 20 45 4E 54 52 59 20 54 4F 20 31 32 20 48 4F 55 | ENTRY TO 12 HOU| 000017E0: 52 2E 2E 2E 0D 20 20 20 20 20 20 20 3B 0D 20 20 |R.... ;. | 000017F0: 20 20 20 20 20 53 45 44 20 3B 44 45 43 49 4D 41 | SED ;DECIMA| 00001800: 4C 20 4D 4F 44 45 0D 20 20 20 20 20 20 20 3B 0D |L MODE. ;.| 00001810: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00001820: 20 20 53 42 43 20 23 24 31 32 20 3B 43 48 41 4E | SBC #$12 ;CHAN| 00001830: 47 45 20 54 4F 20 31 32 20 48 4F 55 52 20 54 49 |GE TO 12 HOUR TI| 00001840: 4D 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |ME. ;. | 00001850: 20 20 20 43 4C 44 20 3B 42 49 4E 41 52 59 20 4D | CLD ;BINARY M| 00001860: 4F 44 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 |ODE. ;. | 00001870: 20 20 20 20 4F 52 41 20 23 31 32 38 20 3B 53 45 | ORA #128 ;SE| 00001880: 54 20 50 4D 20 42 49 54 0D 20 20 20 20 20 20 20 |T PM BIT. | 00001890: 3B 0D 20 20 20 20 20 20 20 53 54 41 20 54 4F 44 |;. STA TOD| 000018A0: 43 2B 32 20 3B 53 41 56 45 20 48 4F 55 52 53 0D |C+2 ;SAVE HOURS.| 000018B0: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 000018C0: 3B 0D 3B 53 45 54 20 43 4C 4F 43 4B 20 52 45 47 |;.;SET CLOCK REG| 000018D0: 49 53 54 45 52 53 2E 2E 2E 0D 20 20 20 20 20 20 |ISTERS.... | 000018E0: 20 3B 0D 20 20 20 20 20 20 20 53 45 49 0D 20 20 | ;. SEI. | 000018F0: 20 20 20 20 20 3B 0D 53 54 49 4D 31 33 20 4C 44 | ;.STIM13 LD| 00001900: 41 20 54 4F 44 32 2B 37 20 3B 43 4F 4E 54 52 4F |A TOD2+7 ;CONTRO| 00001910: 4C 20 52 45 47 49 53 54 45 52 0D 20 20 20 20 20 |L REGISTER. | 00001920: 20 20 41 4E 44 20 23 31 32 37 20 3B 53 45 54 54 | AND #127 ;SETT| 00001930: 49 4E 47 20 54 49 4D 45 20 4F 46 20 44 41 59 0D |ING TIME OF DAY.| 00001940: 20 20 20 20 20 20 20 53 54 41 20 54 4F 44 32 2B | STA TOD2+| 00001950: 37 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |7. ;. | 00001960: 20 20 4C 44 58 20 23 32 20 3B 54 4F 44 43 20 4F | LDX #2 ;TODC O| 00001970: 46 46 53 45 54 0D 20 20 20 20 20 20 20 4C 44 59 |FFSET. LDY| 00001980: 20 23 33 20 3B 54 4F 44 32 20 4F 46 46 53 45 54 | #3 ;TOD2 OFFSET| 00001990: 0D 20 20 20 20 20 20 20 3B 0D 53 54 49 4D 31 34 |. ;.STIM14| 000019A0: 20 4C 44 41 20 54 4F 44 43 2C 58 20 3B 46 45 54 | LDA TODC,X ;FET| 000019B0: 43 48 20 54 49 4D 45 20 26 2E 2E 2E 0D 20 20 20 |CH TIME &.... | 000019C0: 20 20 20 20 53 54 41 20 54 4F 44 32 2C 59 20 3B | STA TOD2,Y ;| 000019D0: 53 54 4F 52 45 20 49 4E 20 43 49 41 20 23 32 2E |STORE IN CIA #2.| 000019E0: 2E 2E 0D 20 20 20 20 20 20 20 44 45 58 20 3B 48 |... DEX ;H| 000019F0: 41 52 44 57 41 52 45 20 52 45 47 49 53 54 45 52 |ARDWARE REGISTER| 00001A00: 53 0D 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 |S. DEY. | 00001A10: 20 20 20 20 42 4E 45 20 53 54 49 4D 31 34 20 3B | BNE STIM14 ;| 00001A20: 4C 4F 4F 50 0D 20 20 20 20 20 20 20 3B 0D 20 20 |LOOP. ;. | 00001A30: 20 20 20 20 20 53 54 41 20 54 4F 44 32 20 3B 53 | STA TOD2 ;S| 00001A40: 54 41 52 54 20 43 4C 4F 43 4B 0D 20 20 20 20 20 |TART CLOCK. | 00001A50: 20 20 3B 0D 20 20 20 20 20 20 20 43 4C 49 0D 20 | ;. CLI. | 00001A60: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 3B | ;. ;| 00001A70: 0D 3B 52 45 53 54 4F 52 45 20 53 59 53 54 45 4D |.;RESTORE SYSTEM| 00001A80: 20 26 20 45 58 49 54 2E 2E 2E 0D 20 20 20 20 20 | & EXIT.... | 00001A90: 20 20 3B 0D 53 54 49 4D 31 35 20 4C 44 58 20 23 | ;.STIM15 LDX #| 00001AA0: 31 37 33 0D 20 20 20 20 20 20 20 4C 44 59 20 23 |173. LDY #| 00001AB0: 30 0D 20 20 20 20 20 20 20 53 54 58 20 4B 45 59 |0. STX KEY| 00001AC0: 43 48 4B 20 3B 45 4E 41 42 4C 45 20 46 20 4B 45 |CHK ;ENABLE F KE| 00001AD0: 59 53 0D 20 20 20 20 20 20 20 53 54 59 20 53 49 |YS. STY SI| 00001AE0: 47 56 4F 4C 20 3B 53 4F 55 4E 44 20 4F 46 46 0D |GVOL ;SOUND OFF.| 00001AF0: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00001B00: 50 4C 41 0D 20 20 20 20 20 20 20 53 54 41 20 4D |PLA. STA M| 00001B10: 4D 55 20 3B 52 45 53 54 4F 52 45 20 43 4F 4E 46 |MU ;RESTORE CONF| 00001B20: 49 47 55 52 41 54 49 4F 4E 0D 20 20 20 20 20 20 |IGURATION. | 00001B30: 20 3B 0D 20 20 20 20 20 20 20 50 4C 41 0D 20 20 | ;. PLA. | 00001B40: 20 20 20 20 20 53 54 41 20 43 4F 4C 4F 52 20 3B | STA COLOR ;| 00001B50: 52 45 53 54 4F 52 45 20 41 54 54 52 49 42 55 54 |RESTORE ATTRIBUT| 00001B60: 45 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 |E. ;. | 00001B70: 20 20 52 54 53 0D 20 20 20 20 20 20 20 3B 0D 3B | RTS. ;.;| 00001B80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001B90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00001BA0: 3D 0D 20 20 20 20 20 20 20 3B 0D 3B 43 4F 4E 56 |=. ;.;CONV| 00001BB0: 45 52 54 20 41 53 43 49 49 20 54 4F 20 42 43 44 |ERT ASCII TO BCD| 00001BC0: 0D 20 20 20 20 20 20 20 3B 0D 41 53 43 42 43 44 |. ;.ASCBCD| 00001BD0: 20 41 4E 44 20 23 31 35 20 3B 55 4E 49 54 53 20 | AND #15 ;UNITS | 00001BE0: 54 4F 20 42 49 4E 41 52 59 0D 20 20 20 20 20 20 |TO BINARY. | 00001BF0: 20 53 54 41 20 43 54 52 20 3B 53 54 4F 52 45 0D | STA CTR ;STORE.| 00001C00: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00001C10: 54 58 41 20 3B 53 57 41 50 20 54 45 4E 53 0D 20 |TXA ;SWAP TENS. | 00001C20: 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 41 | ;. A| 00001C30: 53 4C 20 3B 53 48 49 46 54 20 54 45 4E 53 20 54 |SL ;SHIFT TENS T| 00001C40: 4F 2E 2E 2E 0D 20 20 20 20 20 20 20 41 53 4C 20 |O.... ASL | 00001C50: 3B 48 49 47 48 20 4E 59 42 42 4C 45 0D 20 20 20 |;HIGH NYBBLE. | 00001C60: 20 20 20 20 41 53 4C 20 20 0D 20 20 20 20 20 20 | ASL . | 00001C70: 20 41 53 4C 20 20 0D 20 20 20 20 20 20 20 3B 0D | ASL . ;.| 00001C80: 20 20 20 20 20 20 20 4F 52 41 20 43 54 52 20 3B | ORA CTR ;| 00001C90: 43 4F 4D 42 49 4E 45 20 4E 59 42 42 4C 45 53 0D |COMBINE NYBBLES.| 00001CA0: 20 20 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 | ;. | 00001CB0: 52 54 53 0D 20 20 20 20 20 20 20 3B 0D 3B 2D 2D |RTS. ;.;--| 00001CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00001CE0: 20 20 20 20 20 20 20 3B 0D 3B 50 4F 53 49 54 49 | ;.;POSITI| 00001CF0: 4F 4E 20 43 55 52 53 4F 52 0D 20 20 20 20 20 20 |ON CURSOR. | 00001D00: 20 3B 0D 50 4C 4F 54 41 20 20 43 4C 43 0D 20 20 | ;.PLOTA CLC. | 00001D10: 20 20 20 20 20 3B 0D 20 20 20 20 20 20 20 4A 4D | ;. JM| 00001D20: 50 20 50 4C 4F 54 0D 20 20 20 20 20 20 20 3B 0D |P PLOT. ;.| 00001D30: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00001D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001D50: 2D 2D 0D 20 20 20 20 20 20 20 3B 0D 3B 50 52 49 |--. ;.;PRI| 00001D60: 4E 54 20 54 4F 20 53 43 52 45 45 4E 0D 20 20 20 |NT TO SCREEN. | 00001D70: 20 20 20 20 3B 0D 50 52 4E 54 20 20 20 53 54 41 | ;.PRNT STA| 00001D80: 20 50 54 52 20 3B 53 41 56 45 20 54 45 58 54 20 | PTR ;SAVE TEXT | 00001D90: 50 4F 49 4E 54 45 52 0D 20 20 20 20 20 20 20 53 |POINTER. S| 00001DA0: 54 59 20 50 54 52 2B 31 0D 20 20 20 20 20 20 20 |TY PTR+1. | 00001DB0: 3B 0D 20 20 20 20 20 20 20 4C 44 59 20 23 30 20 |;. LDY #0 | 00001DC0: 3B 4F 46 46 53 45 54 0D 20 20 20 20 20 20 20 3B |;OFFSET. ;| 00001DD0: 0D 50 52 4E 54 30 31 20 4C 44 41 20 28 50 54 52 |.PRNT01 LDA (PTR| 00001DE0: 29 2C 59 20 3B 46 45 54 43 48 0D 20 20 20 20 20 |),Y ;FETCH. | 00001DF0: 20 20 42 45 51 20 43 4C 52 51 30 31 20 3B 45 58 | BEQ CLRQ01 ;EX| 00001E00: 49 54 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |IT. ;. | 00001E10: 20 20 20 4A 53 52 20 43 48 52 4F 55 54 20 3B 50 | JSR CHROUT ;P| 00001E20: 52 49 4E 54 0D 20 20 20 20 20 20 20 49 4E 59 0D |RINT. INY.| 00001E30: 20 20 20 20 20 20 20 42 4E 45 20 50 52 4E 54 30 | BNE PRNT0| 00001E40: 31 20 3B 4C 4F 4F 50 0D 20 20 20 20 20 20 20 3B |1 ;LOOP. ;| 00001E50: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001E70: 2D 2D 2D 0D 20 20 20 20 20 20 20 3B 0D 3B 43 4C |---. ;.;CL| 00001E80: 45 41 52 20 4B 45 59 42 4F 41 52 44 20 51 55 45 |EAR KEYBOARD QUE| 00001E90: 55 45 0D 20 20 20 20 20 20 20 3B 0D 43 4C 52 51 |UE. ;.CLRQ| 00001EA0: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00001EB0: 20 53 54 41 20 4E 44 58 0D 20 20 20 20 20 20 20 | STA NDX. | 00001EC0: 3B 0D 43 4C 52 51 30 31 20 52 54 53 0D 20 20 20 |;.CLRQ01 RTS. | 00001ED0: 20 20 20 20 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | ;.;---------| 00001EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001EF0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 |--------. | 00001F00: 3B 0D 3B 42 55 5A 5A 45 52 0D 20 20 20 20 20 20 |;.;BUZZER. | 00001F10: 20 3B 0D 42 55 5A 5A 45 52 20 4C 44 41 20 23 36 | ;.BUZZER LDA #6| 00001F20: 0D 20 20 20 20 20 20 20 4C 44 58 20 23 32 35 31 |. LDX #251| 00001F30: 0D 20 20 20 20 20 20 20 4C 44 59 20 23 33 33 0D |. LDY #33.| 00001F40: 20 20 20 20 20 20 20 42 4E 45 20 53 49 47 4E 41 | BNE SIGNA| 00001F50: 4C 0D 20 20 20 20 20 20 20 3B 0D 3B 2D 2D 2D 2D |L. ;.;----| 00001F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 |-------------. | 00001F80: 20 20 20 20 20 3B 0D 3B 43 48 49 4D 45 0D 20 20 | ;.;CHIME. | 00001F90: 20 20 20 20 20 3B 0D 43 48 49 4D 45 20 20 4C 44 | ;.CHIME LD| 00001FA0: 41 20 23 35 30 0D 20 20 20 20 20 20 20 4C 44 58 |A #50. LDX| 00001FB0: 20 23 32 35 30 0D 20 20 20 20 20 20 20 4C 44 59 | #250. LDY| 00001FC0: 20 23 31 37 0D 20 20 20 20 20 20 20 3B 0D 3B 2D | #17. ;.;-| 00001FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FF0: 0D 20 20 20 20 20 20 20 3B 0D 3B 53 49 47 4E 41 |. ;.;SIGNA| 00002000: 4C 20 55 53 45 52 0D 20 20 20 20 20 20 20 3B 0D |L USER. ;.| 00002010: 53 49 47 4E 41 4C 20 53 54 41 20 35 34 32 37 33 |SIGNAL STA 54273| 00002020: 0D 20 20 20 20 20 20 20 53 54 58 20 35 34 32 37 |. STX 5427| 00002030: 38 0D 20 20 20 20 20 20 20 53 54 59 20 35 34 32 |8. STY 542| 00002040: 37 36 0D 20 20 20 20 20 20 20 3B 0D 20 20 20 20 |76. ;. | 00002050: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 53 54 | DEY. ST| 00002060: 59 20 35 34 32 37 36 0D 20 20 20 20 20 20 20 3B |Y 54276. ;| 00002070: 0D 20 20 20 20 20 20 20 52 54 53 0D 20 20 20 20 |. RTS. | 00002080: 20 20 20 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ;.;----------| 00002090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000020A0: 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 3B |-------. ;| 000020B0: 0D 3B 49 4E 50 55 54 20 50 52 4F 4D 50 54 20 4C |.;INPUT PROMPT L| 000020C0: 4F 4F 4B 2D 55 50 20 54 41 42 4C 45 0D 20 20 20 |OOK-UP TABLE. | 000020D0: 20 20 20 20 3B 0D 50 54 41 42 20 20 20 2E 57 4F | ;.PTAB .WO| 000020E0: 52 44 20 54 49 4D 50 31 2C 54 49 4D 50 32 0D 20 |RD TIMP1,TIMP2. | 000020F0: 20 20 20 20 20 20 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D | ;.;-------| 00002100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 |----------. | 00002120: 20 20 3B 0D 3B 49 4E 50 55 54 20 50 52 4F 4D 50 | ;.;INPUT PROMP| 00002130: 54 53 0D 20 20 20 20 20 20 20 3B 0D 54 49 4D 50 |TS. ;.TIMP| 00002140: 31 20 20 2E 42 59 54 45 20 59 45 4C 0D 20 20 20 |1 .BYTE YEL. | 00002150: 20 20 20 20 2E 41 53 43 20 22 43 4F 52 52 45 43 | .ASC "CORREC| 00002160: 54 20 54 49 4D 45 20 28 48 48 3A 4D 4D 29 3A 22 |T TIME (HH:MM):"| 00002170: 0D 20 20 20 20 20 20 20 2E 42 59 54 45 20 43 59 |. .BYTE CY| 00002180: 4E 0D 20 20 20 20 20 20 20 2E 41 53 43 20 22 20 |N. .ASC " | 00002190: 20 20 3A 22 20 20 20 20 20 20 20 20 20 20 20 0D | :" .| 000021A0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 45 53 43 | .BYTE ESC| 000021B0: 0D 20 20 20 20 20 20 20 2E 41 53 43 20 22 51 22 |. .ASC "Q"| 000021C0: 0D 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D |. .BYTE 0.| 000021D0: 20 20 20 20 20 20 20 3B 0D 54 49 4D 50 32 20 20 | ;.TIMP2 | 000021E0: 2E 42 59 54 45 20 59 45 4C 0D 20 20 20 20 20 20 |.BYTE YEL. | 000021F0: 20 2E 41 53 43 20 22 41 4C 41 52 4D 20 54 49 4D | .ASC "ALARM TIM| 00002200: 45 20 28 48 48 3A 4D 4D 29 3A 22 0D 20 20 20 20 |E (HH:MM):". | 00002210: 20 20 20 2E 42 59 54 45 20 43 59 4E 0D 20 20 20 | .BYTE CYN. | 00002220: 20 20 20 20 2E 41 53 43 20 22 20 20 20 3A 22 20 | .ASC " :" | 00002230: 20 20 20 20 20 20 20 20 20 20 0D 20 20 20 20 20 | . | 00002240: 20 20 2E 42 59 54 45 20 45 53 43 0D 20 20 20 20 | .BYTE ESC. | 00002250: 20 20 20 2E 41 53 43 20 22 51 22 0D 20 20 20 20 | .ASC "Q". | 00002260: 20 20 20 2E 42 59 54 45 20 30 0D 20 20 20 20 20 | .BYTE 0. | 00002270: 20 20 3B 0D 54 49 4D 50 33 20 20 2E 42 59 54 45 | ;.TIMP3 .BYTE| 00002280: 20 57 48 54 0D 20 20 20 20 20 20 20 2E 41 53 43 | WHT. .ASC| 00002290: 20 22 49 53 20 54 48 49 53 20 54 49 4D 45 20 43 | "IS THIS TIME C| 000022A0: 4F 52 22 0D 20 20 20 20 20 20 20 2E 41 53 43 20 |OR". .ASC | 000022B0: 22 52 45 43 54 20 28 59 2F 4E 29 3F 22 20 20 0D |"RECT (Y/N)?" .| 000022C0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D 20 | .BYTE 0. | 000022D0: 20 20 20 20 20 20 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D | ;.;-------| 000022E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000022F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 |----------. | 00002300: 20 20 3B 0D 3B 50 52 4F 47 52 41 4D 20 53 54 4F | ;.;PROGRAM STO| 00002310: 52 41 47 45 0D 20 20 20 20 20 20 20 3B 0D 42 55 |RAGE. ;.BU| 00002320: 46 20 20 20 20 2A 3D 2A 2B 34 20 3B 49 4E 50 55 |F *=*+4 ;INPU| 00002330: 54 20 42 55 46 46 45 52 0D 20 20 20 20 20 20 20 |T BUFFER. | 00002340: 3B 0D 53 46 4C 47 20 20 20 2A 3D 2A 2B 31 20 3B |;.SFLG *=*+1 ;| 00002350: 45 4E 54 52 59 20 4D 4F 44 45 0D 20 20 20 20 20 |ENTRY MODE. | 00002360: 20 20 3B 0D 54 4F 44 43 20 20 20 2A 3D 2A 2B 33 | ;.TODC *=*+3| 00002370: 20 3B 42 43 44 20 54 49 4D 45 20 28 53 3A 4D 3A | ;BCD TIME (S:M:| 00002380: 48 29 0D 3B 0D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |H).;.;==========| 00002390: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000023A0: 3D 3D 3D 3D 3D 3D 3D 0D 2E 45 4E 44 0D |=======..END. |
;PUT"@0:CLOCKSET.BUD".; ** REWRITTEN IN
BUDDY 128 FORMAT.;.*=$1600 ; 5632..OBJ "
@0:CLK5632".;* * * * * * * * * * * * * *
* * *.;*
*.;* CLOCK & ALARM SETUP *.;*
*.;* WRITT
EN 12-02-85 W.J. BRIER *.;*
*.;* REVISED 1-18-8
7 *.;*
*.;* COPYRIGHT (C) 1985
*.;*
*.;* ALL RIGHTS RESERVED *.;*
*.;* USE W
ITH CLOCK-CALENDAR 128 *.;*
*.;* SET TIME OF DAY
: SYS 5632,0 *.;* SET ALARM TIME: SYS
5632,1 *.;*
*.;* ENTER TIME IN 24 HOUR FORMAT
*.;* *.;*
* * * * * * * * * * * * * * * *.
;. ;. ;.
;* * * * * * * * * * * * * * * * *.;*
*.;* <<< PR
OGRAM ASSIGNMENTS >>> *.;*
*.;* * * * * * * * * *
* * * * * * *. ;.
;. ;.;SYSTEM VECTORS &
POINTERS.... ;.NDX =$D0
;KEYBOARD QUEUE. ;.MODE
=$D7 ;40/80 COLUMN MODE.
;.COLOR =$F1 ;NEXT ATTRIBUTE.
;.KEYCHK =$033C ;KEY DECODE VECT
OR. ;.CURON =$CD6F ;FLASH
CURSOR.CUROF1 =$CD9F ;KILL CURSOR (40 CO
L).CUROF2 =$CDAC ;KILL CURSOR (80 COL).
;.SIGVOL =$D418 ;VOLUME CON
TROL. ;.TOD2 =$DD08 ;TIME
OF DAY CLOCK #2. ;.MMU
=$FF00 ;MEMORY CONFIGURATION.
;.CHROUT =$FFD2 ;OUTPUT A BYTE.GETIN
=$FFE4 ;GET A BYTE.PLOT =$FFF0 ;POSIT
ION CURSOR. ;.
;.;MISCELLANEOUS POINTERS....
;.PTR =$FA ;ZERO PAGE POINTER.C
TR =$FC ;COUNTER. ;.
;.;CLOCK-CALENDAR LOCATIONS.
... ;.ALTC =$131E ;ALARM
REGISTER.AFLG =$1320 ;ALARM ENABLE FLA
G. ;. ;.;VIDEO
CONSTANTS.... ;.WHT =5
;WHITE TEXT.CR =13 ;CARRIAGE
RETURN.DEL =20 ;DELETE.ESC =27
;ESCAPE CHARACTER.RIGHT =29 ;CURS
OR RIGHT.CLR =147 ;CLEAR SCREEN.YEL
=158 ;YELLOW TEXT.CYN =159 ;C
YAN TEXT. ;. ;
. ;.;# # # # # # # # # # #
# # # # # #.;#
#.;# C-128 TIME/ALARM SETUP
#.;# #.;#
# # # # # # # # # # # # # # # #. ;
. ;. ;.;INITIAL SETUP....
;.STIM AND #1 ;MASK GARBAGE &....
STA SFLG ;SET ENTRY MODE FLAG.
;. LDA COLOR ;CURRENT ATTRIBUTE
. PHA ;SAVE. ;. LDA MM
U ;CONFIGURATION. PHA ;SAVE ON STA
CK. ;. LDX #14. STX MM
U ;ENABLE KERNAL. ;. INX.
STX SIGVOL ;MAXIMUM VOLUME. ;.
LDA #183. STA KEYCHK ;BYPAS
S F KEYS. ;. JSR CHIME ;SIGN
AL USER. ;. LDA #CLR.
JSR CHROUT ;CLEAR SCREEN. ;.
;.;DISPLAY INPUT PROMPT.... ;.STI
M01 LDX #2 ;ROW. LDY #0 ;COLUMN.
JSR PLOTA ;POSITION CURSOR. ;
. LDA SFLG ;ENTRY MODE. ;.
ASL ;DOUBLE. TAX ;BECOMES PRO
MPT OFFSET. ;. LDA PTAB,X ;P
ROMPT ADDRESS. LDY PTAB+1,X.
JSR PRNT ;OUTPUT. ;. LDX #2
;ROW. ;. SEC. TYA.
SBC #7 ;GENERATE COLUMN VALUE.
TAY. JSR PLOTA ;POSITION CURSOR.
;. JSR CLRQ ;CLEAR KEYB'D QU
EUE. STA CTR ;CLEAR INPUT COUNTER.
;. ;.;FETCH USER INPUT....
;.STIM02 SEI ;INTERRUPTS OFF.
;. JSR CURON ;FLASH CURSOR.
;. CLI ;INTERRUPTS ON. ;.S
TIM03 JSR GETIN ;FETCH KEYPRESS. B
EQ STIM03 ;NO INPUT. ;. PHA
;SAVE KEYPRESS. ;. BIT MODE.
BPL STIM04 ;40 COLUMNS. ;.
SEI. ;. JSR CUROF2 ;KI
LL 80 COL CURSOR. ;. CLI.
;. JMP STIM05. ;.STIM04
JSR CUROF1 ;KILL 40 COL CURSOR. ;.
;.;FILTER & STORE INPUT....
;.STIM05 PLA ;RETRIEVE KEYPRESS.
;. LDY CTR ;FETCH COUNT. BEQ
STIM06. ;. CMP #DEL.
BEQ STIM01 ;INPUT DELETED. ;.STIM0
6 CPY #4. BCC STIM07 ;MORE INPUT N
EEDED. ;. CMP #CR. BNE
STIM02 ;NOT <RETURN>. ;. BE
Q STIM08 ;FINISHED. ;.STIM07 CMP #
"0". BCC STIM02 ;OUT OF RANGE.
;. CMP #":". BCS STIM02 ;
OUT OF RANGE. ;. JSR CHROUT
;ECHO DIGIT. ;. STA BUF,Y ;S
TORE. ;. INC CTR ;BUMP CHARA
CTER COUNT. ;. CPY #1.
BNE STIM02 ;LOOP. ;. LDA #R
IGHT. JSR CHROUT ;JUMP OVER COLON.
;. JMP STIM02 ;LOOP.
;. ;.;ENCODE TIME INTO BCD....
;.STIM08 LDX BUF ;FETCH HOURS (TENS).
LDA BUF+1 ;FETCH HOURS (UNITS).
JSR ASCBCD ;CONVERT. ;.
CMP #$24. BCC STIM10. ;.STI
M09 JSR BUZZER ;ILLEGAL VALUE. ;.
JMP STIM01 ;REENTER. ;.STIM1
0 STA TODC+2 ;SAVE. ;. LDX B
UF+2 ;FETCH MINUTES (TENS). LDA BU
F+3 ;FETCH MINUTES (UNITS). JSR AS
CBCD ;CONVERT. ;. CMP #$60.
BCS STIM09 ;ILLEGAL MINUTE VALUE.
;. STA TODC+1 ;SAVE. ;
. LDA #0. STA TODC ;ZERO SEC
ONDS. ;. ;.;CONFIRM TIME ENT
RY.... ;. LDX #4. LDY
#0. JSR PLOTA. ;. LDA
#<TIMP3 ;'CORRECT?'. LDY #>TIMP3.
JSR PRNT. ;. JSR CHIME
. ;. JSR CLRQ. ;.STIM1
1 JSR GETIN ;FETCH KEYPRESS. CMP #
"N". BEQ STIM15 ;ABORT. ;.
CMP #"Y". BNE STIM11 ;LOOP.
;. LDA SFLG. BEQ STIM12
;SETTING TOD. ;. ;.;SET ALA
RM TIME & ENABLE FLAG.... ;.
LDX TODC+2 ;ENTERED HOURS. LDY TO
DC+1 ;ENTERED MINUTES. STX ALTC ;S
ET ALARM REGISTER. STY ALTC+1.
;. STA AFLG ;SET ALARM FLAG.
;. JMP STIM15 ;EXIT. ;.
;.;SET TIME OF DAY.... ;.STI
M12 LDA TODC+2 ;HOURS. BEQ STIM13
;IS MIDNITE. ;. CMP #$12.
BCC STIM13 ;IS AM. ;. ;.
;CONVERT 24 HOUR ENTRY TO 12 HOUR....
;. SED ;DECIMAL MODE. ;.
SEC. SBC #$12 ;CHANGE TO 12
HOUR TIME. ;. CLD ;BINARY M
ODE. ;. ORA #128 ;SET PM BIT
. ;. STA TODC+2 ;SAVE HOURS.
;. ;.;SET CLOCK REGISTERS..
.. ;. SEI. ;.STIM13 LD
A TOD2+7 ;CONTROL REGISTER. AND #1
27 ;SETTING TIME OF DAY. STA TOD2+
7. ;. LDX #2 ;TODC OFFSET.
LDY #3 ;TOD2 OFFSET. ;.STIM14
LDA TODC,X ;FETCH TIME &.... STA
TOD2,Y ;STORE IN CIA #2.... DEX ;H
ARDWARE REGISTERS. DEY. BNE
STIM14 ;LOOP. ;. STA TOD2 ;S
TART CLOCK. ;. CLI. ;.
;.;RESTORE SYSTEM & EXIT....
;.STIM15 LDX #173. LDY #0.
STX KEYCHK ;ENABLE F KEYS. STY SI
GVOL ;SOUND OFF. ;. PLA.
STA MMU ;RESTORE CONFIGURATION.
;. PLA. STA COLOR ;RESTORE
ATTRIBUTE. ;. RTS. ;.;
=================================.
;.;CONVERT ASCII TO BCD. ;.ASCBCD
AND #15 ;UNITS TO BINARY. STA CTR
;STORE. ;. TXA ;SWAP TENS.
;. ASL ;SHIFT TENS TO....
ASL ;HIGH NYBBLE. ASL .
ASL . ;. ORA CTR ;COMBINE
NYBBLES. ;. RTS. ;.;--
-------------------------------. ;
.;POSITION CURSOR. ;.PLOTA CLC.
;. JMP PLOT. ;.;-------
--------------------------. ;.;PRI
NT TO SCREEN. ;.PRNT STA PTR ;SA
VE TEXT POINTER. STY PTR+1.
;. LDY #0 ;OFFSET. ;.PRNT01
LDA (PTR),Y ;FETCH. BEQ CLRQ01 ;EX
IT. ;. JSR CHROUT ;PRINT.
INY. BNE PRNT01 ;LOOP. ;
.;---------------------------------.
;.;CLEAR KEYBOARD QUEUE. ;.CLRQ
LDA #0. STA NDX. ;.CLRQ01
RTS. ;.;-------------------------
--------. ;.;BUZZER. ;.BUZZE
R LDA #6. LDX #251. LDY #33.
BNE SIGNAL. ;.;------------
---------------------. ;.;CHIME.
;.CHIME LDA #50. LDX #250.
LDY #17. ;.;-----------------
----------------. ;.;SIGNAL USER.
;.SIGNAL STA 54273. STX 5427
8. STY 54276. ;. DEY.
STY 54276. ;. RTS.
;.;---------------------------------.
;.;INPUT PROMPT LOOK-UP TABLE.
;.PTAB .WORD TIMP1,TIMP2. ;.
;---------------------------------.
;.;INPUT PROMPTS. ;.TIMP1 .BYTE
YEL. .ASC "CORRECT TIME (HH:MM):"
. .BYTE CYN. .ASC " :"
. .BYTE ESC. .ASC "Q"
. .BYTE 0. ;.TIMP2 .BYTE YE
L. .ASC "ALARM TIME (HH:MM):".
.BYTE CYN. .ASC " :"
. .BYTE ESC. .ASC "Q".
.BYTE 0. ;.TIMP3 .BYTE WHT.
.ASC "IS THIS TIME COR". .ASC
"RECT (Y/N)?" . .BYTE 0. ;.
;---------------------------------.
;.;PROGRAM STORAGE. ;.BUF *=*
+4 ;INPUT BUFFER. ;.SFLG *=*+1 ;
ENTRY MODE. ;.TODC *=*+3 ;BCD TI
ME (S:M:H).;.;==========================
=======..END.
> CLICK IMAGE PREVIEW FOR FULL MODAL