OP.RTC
FILE INFORMATION
FILENAME(S): OP.RTC
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 01:12:41
APPEARS ON: 2 disk(s)
FILE HASH
1d5a288a6dfa5acf4a289617e579cef20ac577cb0e42edbca997c4db9e6349d4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 67 | OP.RTC | PRG | C64er | 19 | 4 | DOWNLOAD FILE |
| 64 ER SONDERH 67 | OP.RTC | PRG | DuncanTwain | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 02 00 9F 32 2C 38 2C 32 2C 22 52 54 |.......2,8,2,"RT| 00000010: 43 20 34 39 31 35 32 2C 50 2C 57 00 26 08 0A 00 |C 49152,P,W.&...| 00000020: 9E 33 36 38 36 34 00 32 08 14 00 2E 4F 50 54 20 |.36864.2....OPT | 00000030: 4F 32 00 3F 08 1E 00 AC B2 20 24 43 30 30 30 00 |O2.?..... $C000.| 00000040: 4E 08 64 00 43 49 41 20 B2 24 44 44 30 30 00 5E |N.d.CIA .$DD00.^| 00000050: 08 66 00 44 44 52 41 20 B2 43 49 41 AA 32 00 6E |.f.DDRA .CIA.2.n| 00000060: 08 68 00 44 44 52 42 20 B2 43 49 41 AA 33 00 7C |.h.DDRB .CIA.3.|| 00000070: 08 6A 00 50 52 54 41 20 B2 43 49 41 00 8C 08 6C |.j.PRTA .CIA...l| 00000080: 00 50 52 54 42 20 B2 43 49 41 AA 31 00 9E 08 6E |.PRTB .CIA.1...n| 00000090: 00 45 52 52 4F 55 54 20 B2 24 41 34 34 35 00 AE |.ERROUT .$A445..| 000000A0: 08 70 00 45 52 52 50 54 52 20 B2 24 32 32 00 BB |.p.ERRPTR .$22..| 000000B0: 08 72 00 54 4D 50 20 B2 31 36 36 00 CB 08 74 00 |.r.TMP .166...t.| 000000C0: 42 55 46 46 45 52 20 B2 37 30 34 00 D9 08 76 00 |BUFFER .704...v.| 000000D0: A1 58 20 B2 24 42 37 46 31 00 EA 08 78 00 4B 4F |.X .$B7F1...x.KO| 000000E0: 4D 4D 41 20 B2 24 41 45 46 44 00 FC 08 7A 00 46 |MMA .$AEFD...z.F| 000000F0: 52 4D 45 56 4C 20 B2 24 41 44 39 45 00 0C 09 7C |RMEVL .$AD9E...|| 00000100: 00 B8 53 54 52 20 B2 24 42 36 41 33 00 1C 09 7E |..STR .$B6A3...~| 00000110: 00 53 54 52 50 54 52 20 B2 24 32 32 00 2F 09 80 |.STRPTR .$22./..| 00000120: 00 46 49 4E 44 56 41 52 20 B2 24 42 30 38 42 00 |.FINDVAR .$B08B.| 00000130: 3F 09 82 00 56 41 52 41 44 52 20 B2 24 34 39 00 |?...VARADR .$49.| 00000140: 4D 09 84 00 50 41 52 41 20 B2 24 36 31 00 5F 09 |M...PARA .$61._.| 00000150: 86 00 53 54 52 52 45 53 20 B2 24 42 34 37 35 00 |..STRRES .$B475.| 00000160: 6C 09 88 00 54 52 41 4E 53 20 B2 32 00 7C 09 8A |l...TRANS .2.|..| 00000170: 00 4E 4D 49 56 45 43 20 B2 37 39 32 00 8E 09 8C |.NMIVEC .792....| 00000180: 00 4F 4C 44 4E 4D 49 20 B2 24 46 45 34 37 00 9D |.OLDNMI .$FE47..| 00000190: 09 8E 00 53 49 44 20 B2 24 44 34 30 30 00 AD 09 |...SID .$D400...| 000001A0: F4 01 4A 4D 50 20 52 54 43 49 4E 49 54 00 BB 09 |..JMP RTCINIT...| 000001B0: F6 01 4A 4D 50 20 87 54 49 4D 45 00 CD 09 F8 01 |..JMP .TIME.....| 000001C0: 4A 4D 50 20 57 52 49 54 45 54 49 4D 45 00 DB 09 |JMP WRITETIME...| 000001D0: FA 01 4A 4D 50 20 41 44 4A 33 30 00 E9 09 FC 01 |..JMP ADJ30.....| 000001E0: 4A 4D 50 20 50 49 45 50 53 00 0B 0A 58 02 45 52 |JMP PIEPS...X.ER| 000001F0: 52 54 20 2E C6 20 22 55 4E 41 42 4C 45 20 54 4F |RT .. "UNABLE TO| 00000200: 20 41 43 43 45 53 53 20 52 54 C3 00 26 0A 59 02 | ACCESS RT..&.Y.| 00000210: 4E 49 58 54 20 2E C6 20 22 53 54 52 49 4E 47 20 |NIXT .. "STRING | 00000220: 46 4F 52 4D 41 D4 00 42 0A 5A 02 44 41 59 53 20 |FORMA..B.Z.DAYS | 00000230: 2E C6 20 22 53 4F 4D 4F 44 49 4D 49 44 4F 46 52 |.. "SOMODIMIDOFR| 00000240: 53 41 00 4E 0A BE 02 54 52 59 20 42 52 4B 00 5B |SA.N...TRY BRK.[| 00000250: 0A C0 02 53 54 52 C3 20 42 52 4B 00 68 0A C2 02 |...STR. BRK.h...| 00000260: 42 55 43 31 20 42 52 4B 00 75 0A C4 02 42 55 43 |BUC1 BRK.u...BUC| 00000270: 32 20 42 52 4B 00 81 0A C6 02 41 52 54 20 42 52 |2 BRK.....ART BR| 00000280: 4B 00 8D 0A C8 02 54 59 50 20 42 52 4B 00 9A 0A |K.....TYP BRK...| 00000290: CA 02 54 41 4B 54 20 42 52 4B 00 A7 0A CC 02 58 |..TAKT BRK.....X| 000002A0: 4D 45 4D 20 42 52 4B 00 B4 0A CE 02 59 4D 45 4D |MEM BRK.....YMEM| 000002B0: 20 42 52 4B 00 C1 0A D0 02 5A 45 48 4E 20 42 52 | BRK.....ZEHN BR| 000002C0: 4B 00 DC 0A 20 03 2E C6 20 22 52 54 43 2D 44 49 |K... ... "RTC-DI| 000002D0: 45 4E 53 54 50 52 4F 47 52 41 4D 4D 00 EB 0A 22 |ENSTPROGRAMM..."| 000002E0: 03 2E 42 59 54 20 30 2C 30 2C 30 00 10 0B 24 03 |..BYT 0,0,0...$.| 000002F0: 2E C6 20 22 28 43 29 4F 50 59 52 49 47 48 54 20 |.. "(C)OPYRIGHT | 00000300: 4E 49 4B 4F 4C 41 55 53 20 48 45 55 53 4C 45 52 |NIKOLAUS HEUSLER| 00000310: 00 1F 0B 26 03 2E 42 59 54 20 30 2C 30 2C 30 00 |...&..BYT 0,0,0.| 00000320: 43 0B 28 03 2E C6 20 22 49 2E 41 2E 20 52 45 44 |C.(... "I.A. RED| 00000330: 41 4B 54 49 4F 4E 20 36 34 27 45 52 20 31 32 30 |AKTION 64'ER 120| 00000340: 35 38 39 00 52 0B 2A 03 2E 42 59 54 20 30 2C 30 |589.R.*..BYT 0,0| 00000350: 2C 30 00 6B 0B E8 03 87 54 49 4D 45 20 4A 53 52 |,0.k....TIME JSR| 00000360: 20 A1 58 3A 53 54 58 20 54 59 50 00 AD 0B E9 03 | .X:STX TYP.....| 00000370: 4A 53 52 20 4B 4F 4D 4D 41 3A 4A 53 52 20 46 49 |JSR KOMMA:JSR FI| 00000380: 4E 44 56 41 52 3A 53 54 41 20 56 41 52 41 44 52 |NDVAR:STA VARADR| 00000390: 3A 53 54 59 20 56 41 52 41 44 52 AA 31 3A 4A 53 |:STY VARADR.1:JS| 000003A0: 52 20 B8 53 54 52 3A 4C 44 59 20 23 30 00 C9 0B |R .STR:LDY #0...| 000003B0: EA 03 4A 53 52 20 57 41 52 54 20 3B 20 55 48 52 |..JSR WART ; UHR| 000003C0: 20 41 4E 48 41 4C 54 45 4E 00 FA 0B EC 03 4C 44 | ANHALTEN.....LD| 000003D0: 41 20 54 59 50 3A 42 4D 49 20 4E 50 34 3A 4C 44 |A TYP:BMI NP4:LD| 000003E0: 58 20 23 35 3A 4A 53 52 20 C2 3A AF 20 23 33 3A |X #5:JSR .:. #3:| 000003F0: 4A 53 52 20 4E 55 4D 4F 55 54 00 16 0C EE 03 4C |JSR NUMOUT.....L| 00000400: 44 58 20 23 34 3A 4A 53 52 20 C2 3A 4A 53 52 20 |DX #4:JSR .:JSR | 00000410: 4E 55 4D 4F 55 54 00 3B 0C F0 03 4C 44 41 20 54 |NUMOUT.;...LDA T| 00000420: 59 50 3A 42 4E 45 20 4E 50 31 3A 4C 44 41 20 23 |YP:BNE NP1:LDA #| 00000430: 22 3A 22 3A 4A 53 52 20 4F 55 54 00 5B 0C F2 03 |":":JSR OUT.[...| 00000440: 4E 50 31 20 4C 44 58 20 23 33 3A 4A 53 52 20 C2 |NP1 LDX #3:JSR .| 00000450: 3A 4A 53 52 20 4E 55 4D 4F 55 54 00 77 0C F4 03 |:JSR NUMOUT.w...| 00000460: 4C 44 58 20 23 32 3A 4A 53 52 20 C2 3A 4A 53 52 |LDX #2:JSR .:JSR| 00000470: 20 4E 55 4D 4F 55 54 00 9C 0C F6 03 4C 44 41 20 | NUMOUT.....LDA | 00000480: 54 59 50 3A 42 4E 45 20 4E 50 32 3A 4C 44 41 20 |TYP:BNE NP2:LDA | 00000490: 23 22 3A 22 3A 4A 53 52 20 4F 55 54 00 BC 0C F8 |#":":JSR OUT....| 000004A0: 03 4E 50 32 20 4C 44 58 20 23 31 3A 4A 53 52 20 |.NP2 LDX #1:JSR | 000004B0: C2 3A 4A 53 52 20 4E 55 4D 4F 55 54 00 D8 0C FA |.:JSR NUMOUT....| 000004C0: 03 4C 44 58 20 23 30 3A 4A 53 52 20 C2 3A 4A 53 |.LDX #0:JSR .:JS| 000004D0: 52 20 4E 55 4D 4F 55 54 00 FD 0C FC 03 4C 44 41 |R NUMOUT.....LDA| 000004E0: 20 54 59 50 3A 42 4E 45 20 4E 50 33 3A 4C 44 41 | TYP:BNE NP3:LDA| 000004F0: 20 23 22 20 22 3A 4A 53 52 20 4F 55 54 00 3F 0D | #" ":JSR OUT.?.| 00000500: 04 04 4C 44 58 20 23 31 32 3A 4A 53 52 20 C2 3A |..LDX #12:JSR .:| 00000510: 41 53 4C 3A 54 41 58 3A 4C 44 41 20 44 41 59 53 |ASL:TAX:LDA DAYS| 00000520: 2C 58 3A 4A 53 52 20 4F 55 54 3A 4C 44 41 20 44 |,X:JSR OUT:LDA D| 00000530: 41 59 53 AA 31 2C 58 3A 4A 53 52 20 4F 55 54 00 |AYS.1,X:JSR OUT.| 00000540: 54 0D 06 04 4C 44 41 20 23 22 2C 22 3A 4A 53 52 |T...LDA #",":JSR| 00000550: 20 4F 55 54 00 74 0D 07 04 4E 50 34 20 4C 44 58 | OUT.t...NP4 LDX| 00000560: 20 23 37 3A 4A 53 52 20 C2 3A 4A 53 52 20 4E 55 | #7:JSR .:JSR NU| 00000570: 4D 4F 55 54 00 90 0D 08 04 4C 44 58 20 23 36 3A |MOUT.....LDX #6:| 00000580: 4A 53 52 20 C2 3A 4A 53 52 20 4E 55 4D 4F 55 54 |JSR .:JSR NUMOUT| 00000590: 00 B5 0D 0A 04 42 49 54 20 54 59 50 3A 42 56 53 |.....BIT TYP:BVS| 000005A0: 20 4E 50 35 3A 4C 44 41 20 23 22 2E 22 3A 4A 53 | NP5:LDA #".":JS| 000005B0: 52 20 4F 55 54 00 ED 0D 0C 04 4E 50 35 20 4C 44 |R OUT.....NP5 LD| 000005C0: 58 20 23 39 3A 4A 53 52 20 C2 3A 4A 53 52 20 4E |X #9:JSR .:JSR N| 000005D0: 55 4D 4F 55 54 3A 4C 44 58 20 23 38 3A 4A 53 52 |UMOUT:LDX #8:JSR| 000005E0: 20 C2 3A 4A 53 52 20 4E 55 4D 4F 55 54 00 12 0E | .:JSR NUMOUT...| 000005F0: 0E 04 42 49 54 20 54 59 50 3A 42 56 53 20 4E 50 |..BIT TYP:BVS NP| 00000600: 36 3A 4C 44 41 20 23 22 2E 22 3A 4A 53 52 20 4F |6:LDA #".":JSR O| 00000610: 55 54 00 33 0E 10 04 4E 50 36 20 4C 44 58 20 23 |UT.3...NP6 LDX #| 00000620: 31 31 3A 4A 53 52 20 C2 3A 4A 53 52 20 4E 55 4D |11:JSR .:JSR NUM| 00000630: 4F 55 54 00 50 0E 12 04 4C 44 58 20 23 31 30 3A |OUT.P...LDX #10:| 00000640: 4A 53 52 20 C2 3A 4A 53 52 20 4E 55 4D 4F 55 54 |JSR .:JSR NUMOUT| 00000650: 00 81 0E 14 04 4E 50 33 20 4A 53 52 20 57 45 49 |.....NP3 JSR WEI| 00000660: 54 45 52 3A 53 54 59 20 54 4D 50 3A 54 59 41 3A |TER:STY TMP:TYA:| 00000670: 4A 53 52 20 53 54 52 52 45 53 3A 4C 44 59 20 23 |JSR STRRES:LDY #| 00000680: 32 00 B9 0E 16 04 53 45 54 50 41 52 20 4C 44 41 |2.....SETPAR LDA| 00000690: 20 50 41 52 41 2C 59 3A 53 54 41 20 28 56 41 52 | PARA,Y:STA (VAR| 000006A0: 41 44 52 29 2C 59 3A 44 45 59 3A 42 50 4C 20 53 |ADR),Y:DEY:BPL S| 000006B0: 45 54 50 41 52 3A 49 4E 59 00 03 0F 18 04 53 45 |ETPAR:INY.....SE| 000006C0: 54 54 58 54 20 43 50 59 20 54 4D 50 3A 42 45 51 |TTXT CPY TMP:BEQ| 000006D0: 20 43 41 52 52 49 45 44 3A 4C 44 41 20 42 55 46 | CARRIED:LDA BUF| 000006E0: 46 45 52 2C 59 3A 53 54 41 20 28 50 41 52 41 AA |FER,Y:STA (PARA.| 000006F0: 31 29 2C 59 3A 49 4E 59 3A 42 4E 45 20 53 45 54 |1),Y:INY:BNE SET| 00000700: 54 58 54 00 13 0F 19 04 43 41 52 52 49 45 44 20 |TXT.....CARRIED | 00000710: 52 54 53 00 25 0F 1A 04 4E 55 4D 4F 55 54 20 B0 |RTS.%...NUMOUT .| 00000720: 41 20 23 22 30 00 42 0F 1C 04 4F 55 54 20 53 54 |A #"0.B...OUT ST| 00000730: 41 20 42 55 46 46 45 52 2C 59 3A 49 4E 59 3A 52 |A BUFFER,Y:INY:R| 00000740: 54 53 00 69 0F 24 04 57 41 52 54 20 4C 44 41 20 |TS.i.$.WART LDA | 00000750: 23 31 30 3A 53 54 41 20 54 52 59 20 3B 20 31 30 |#10:STA TRY ; 10| 00000760: 20 56 45 52 53 55 43 48 45 00 92 0F 25 04 57 33 | VERSUCHE...%.W3| 00000770: 20 4C 44 58 20 23 31 33 3A 4A 53 52 20 C2 3A B0 | LDX #13:JSR .:.| 00000780: 41 20 23 31 3A 4C 44 58 20 23 31 33 3A 4A 53 52 |A #1:LDX #13:JSR| 00000790: 20 97 00 B3 0F 26 04 57 32 20 4C 44 58 20 23 31 | ....&.W2 LDX #1| 000007A0: 33 3A 4A 53 52 20 C2 3A AF 20 23 32 3A 42 45 51 |3:JSR .:. #2:BEQ| 000007B0: 20 57 31 00 C2 0F 28 04 4A 53 52 20 57 45 49 54 | W1...(.JSR WEIT| 000007C0: 45 52 00 D5 0F 2A 04 44 45 43 20 54 52 59 3A 42 |ER...*.DEC TRY:B| 000007D0: 4E 45 20 57 33 00 E0 0F 2C 04 57 31 20 52 54 53 |NE W3...,.W1 RTS| 000007E0: 00 0E 10 2E 04 57 45 49 54 45 52 20 4C 44 58 20 |.....WEITER LDX | 000007F0: 23 31 33 3A 4A 53 52 20 C2 3A AF 20 23 32 35 34 |#13:JSR .:. #254| 00000800: 3A 4C 44 58 20 23 31 33 3A 4A 4D 50 20 97 00 2C |:LDX #13:JMP ..,| 00000810: 10 4C 04 3B 20 AA AB 20 33 30 20 53 45 4B 55 4E |.L.; .. 30 SEKUN| 00000820: 44 45 4E 20 45 49 4E 53 54 45 4C C3 00 5D 10 4E |DEN EINSTEL..].N| 00000830: 04 41 44 4A 33 30 20 4C 44 58 20 23 31 33 3A 4A |.ADJ30 LDX #13:J| 00000840: 53 52 20 C2 3A B0 41 20 23 38 20 3B 20 41 44 4A |SR .:.A #8 ; ADJ| 00000850: 33 30 20 42 49 54 20 53 45 54 5A 45 4E 00 6F 10 |30 BIT SETZEN.o.| 00000860: 50 04 4C 44 58 20 23 31 33 3A 4A 4D 50 20 97 00 |P.LDX #13:JMP ..| 00000870: 80 10 A6 04 51 4E 49 58 20 4A 4D 50 20 4E 49 58 |....QNIX JMP NIX| 00000880: 00 C2 10 B0 04 57 52 49 54 45 54 49 4D 45 20 4A |.....WRITETIME J| 00000890: 53 52 20 4B 4F 4D 4D 41 3A 4A 53 52 20 46 52 4D |SR KOMMA:JSR FRM| 000008A0: 45 56 4C 3A 4A 53 52 20 B8 53 54 52 3A 53 54 41 |EVL:JSR .STR:STA| 000008B0: 20 53 54 52 C3 3A 54 41 59 3A 42 45 51 20 51 4E | STR.:TAY:BEQ QN| 000008C0: 49 58 00 D6 10 B2 04 4A 53 52 20 57 41 52 54 3A |IX.....JSR WART:| 000008D0: 4C 44 59 20 23 30 00 F9 10 B4 04 4A 53 52 20 A1 |LDY #0.....JSR .| 000008E0: 4E 55 4D 3A 42 4D 49 20 51 4E 49 58 3A 4C 44 58 |NUM:BMI QNIX:LDX| 000008F0: 20 23 35 3A 4A 53 52 20 97 00 1C 11 B6 04 4A 53 | #5:JSR ......JS| 00000900: 52 20 A1 4E 55 4D 3A 42 4D 49 20 51 4E 49 58 3A |R .NUM:BMI QNIX:| 00000910: 4C 44 58 20 23 34 3A 4A 53 52 20 97 00 3F 11 B8 |LDX #4:JSR ..?..| 00000920: 04 4A 53 52 20 A1 4E 55 4D 3A 42 4D 49 20 51 4E |.JSR .NUM:BMI QN| 00000930: 49 58 3A 4C 44 58 20 23 33 3A 4A 53 52 20 97 00 |IX:LDX #3:JSR ..| 00000940: 62 11 BA 04 4A 53 52 20 A1 4E 55 4D 3A 42 4D 49 |b...JSR .NUM:BMI| 00000950: 20 51 4E 49 58 3A 4C 44 58 20 23 32 3A 4A 53 52 | QNIX:LDX #2:JSR| 00000960: 20 97 00 85 11 BC 04 4A 53 52 20 A1 4E 55 4D 3A | ......JSR .NUM:| 00000970: 42 4D 49 20 51 4E 49 58 3A 4C 44 58 20 23 31 3A |BMI QNIX:LDX #1:| 00000980: 4A 53 52 20 97 00 A8 11 BE 04 4A 53 52 20 A1 4E |JSR ......JSR .N| 00000990: 55 4D 3A 42 4D 49 20 51 4E 49 58 3A 4C 44 58 20 |UM:BMI QNIX:LDX | 000009A0: 23 30 3A 4A 53 52 20 97 00 C5 11 C0 04 3B 20 44 |#0:JSR ......; D| 000009B0: 41 54 55 4D 20 53 45 54 5A 45 4E 20 28 4F 50 54 |ATUM SETZEN (OPT| 000009C0: 49 91 41 4C 29 00 E7 11 C2 04 4A 53 52 20 A1 4E |I.AL).....JSR .N| 000009D0: 55 4D 3A 42 4D 49 20 53 41 54 3A 4C 44 58 20 23 |UM:BMI SAT:LDX #| 000009E0: 37 3A 4A 53 52 20 97 00 0A 12 C4 04 4A 53 52 20 |7:JSR ......JSR | 000009F0: A1 4E 55 4D 3A 42 4D 49 20 51 4E 49 58 3A 4C 44 |.NUM:BMI QNIX:LD| 00000A00: 58 20 23 36 3A 4A 53 52 20 97 00 2D 12 C6 04 4A |X #6:JSR ..-...J| 00000A10: 53 52 20 A1 4E 55 4D 3A 42 4D 49 20 51 4E 49 58 |SR .NUM:BMI QNIX| 00000A20: 3A 4C 44 58 20 23 39 3A 4A 53 52 20 97 00 50 12 |:LDX #9:JSR ..P.| 00000A30: C8 04 4A 53 52 20 A1 4E 55 4D 3A 42 4D 49 20 51 |..JSR .NUM:BMI Q| 00000A40: 4E 49 58 3A 4C 44 58 20 23 38 3A 4A 53 52 20 97 |NIX:LDX #8:JSR .| 00000A50: 00 73 12 CA 04 4A 53 52 20 A1 4E 55 4D 3A 42 4D |.s...JSR .NUM:BM| 00000A60: 49 20 4E 49 58 3A 4C 44 58 20 23 31 31 3A 4A 53 |I NIX:LDX #11:JS| 00000A70: 52 20 97 00 96 12 CC 04 4A 53 52 20 A1 4E 55 4D |R ......JSR .NUM| 00000A80: 3A 42 4D 49 20 4E 49 58 3A 4C 44 58 20 23 31 30 |:BMI NIX:LDX #10| 00000A90: 3A 4A 53 52 20 97 00 B1 12 CE 04 3B 20 54 41 47 |:JSR ......; TAG| 00000AA0: 20 53 45 54 5A 45 4E 20 28 4F 50 54 49 91 41 4C | SETZEN (OPTI.AL| 00000AB0: 29 00 D0 12 D0 04 4A 53 52 20 A1 88 54 45 52 3A |).....JSR ..TER:| 00000AC0: 42 4D 49 20 53 41 54 3A 53 54 41 20 42 55 43 31 |BMI SAT:STA BUC1| 00000AD0: 00 F6 12 D2 04 4A 53 52 20 A1 88 54 45 52 3A 42 |.....JSR ..TER:B| 00000AE0: 4D 49 20 4E 49 58 3A 53 54 41 20 42 55 43 32 3A |MI NIX:STA BUC2:| 00000AF0: 4C 44 58 20 23 30 00 40 13 D4 04 53 55 43 48 44 |LDX #0.@...SUCHD| 00000B00: 4F 4F 47 20 4C 44 41 20 44 41 59 53 2C 58 3A 43 |OOG LDA DAYS,X:C| 00000B10: 4D 50 20 42 55 43 31 3A 42 4E 45 20 4E 45 49 4E |MP BUC1:BNE NEIN| 00000B20: 3A 4C 44 41 20 44 41 59 53 AA 31 2C 58 3A 43 4D |:LDA DAYS.1,X:CM| 00000B30: 50 20 42 55 43 32 3A 42 45 51 20 49 53 53 45 53 |P BUC2:BEQ ISSES| 00000B40: 00 6E 13 D6 04 4E 45 49 4E 20 49 4E 58 3A 49 4E |.n...NEIN INX:IN| 00000B50: 58 3A 43 50 58 20 23 31 34 3A 42 43 43 20 53 55 |X:CPX #14:BCC SU| 00000B60: 43 48 44 4F 4F 47 3A 42 43 53 20 4E 49 58 00 8E |CHDOOG:BCS NIX..| 00000B70: 13 D8 04 49 53 53 45 53 20 54 58 41 3A 4C 53 52 |...ISSES TXA:LSR| 00000B80: 3A 4C 44 58 20 23 31 32 3A 4A 53 52 20 97 00 A1 |:LDX #12:JSR ...| 00000B90: 13 E0 04 53 41 54 20 4A 4D 50 20 57 45 49 54 45 |...SAT JMP WEITE| 00000BA0: 52 00 CB 13 F6 04 A1 88 54 45 52 20 43 50 59 20 |R.......TER CPY | 00000BB0: 53 54 52 C3 3A 42 43 53 20 4D 49 31 3A 4C 44 41 |STR.:BCS MI1:LDA| 00000BC0: 20 28 53 54 52 50 54 52 29 2C 59 00 F3 13 F7 04 | (STRPTR),Y.....| 00000BD0: 43 4D 50 20 23 22 41 22 3A 42 43 43 20 4E 4F 88 |CMP #"A":BCC NO.| 00000BE0: 3A 43 4D 50 20 23 22 5A 22 AA 31 3A 42 43 53 20 |:CMP #"Z".1:BCS | 00000BF0: 4E 4F 88 00 FF 13 F8 04 49 4E 59 3A 52 54 53 00 |NO......INY:RTS.| 00000C00: 1E 14 FA 04 4E 4F 88 20 49 4E 59 3A 43 50 59 20 |....NO. INY:CPY | 00000C10: 53 54 52 C3 3A 42 43 43 20 A1 88 54 45 52 00 32 |STR.:BCC ..TER.2| 00000C20: 14 FC 04 4D 49 31 20 4C 44 41 20 23 AB 31 3A 52 |...MI1 LDA #.1:R| 00000C30: 54 53 00 5B 14 00 05 A1 4E 55 4D 20 43 50 59 20 |TS.[....NUM CPY | 00000C40: 53 54 52 C3 3A 42 43 53 20 4D 49 31 3A 4C 44 41 |STR.:BCS MI1:LDA| 00000C50: 20 28 53 54 52 50 54 52 29 2C 59 00 8B 14 01 05 | (STRPTR),Y.....| 00000C60: 43 4D 50 20 23 22 30 22 3A 42 43 43 20 4E 4F 5A |CMP #"0":BCC NOZ| 00000C70: 8B 3A 43 4D 50 20 23 22 39 22 AA 31 3A 42 43 53 |.:CMP #"9".1:BCS| 00000C80: 20 4E 4F 5A 8B 3A AF 20 23 24 46 00 97 14 02 05 | NOZ.:. #$F.....| 00000C90: 49 4E 59 3A 52 54 53 00 B6 14 04 05 4E 4F 5A 8B |INY:RTS.....NOZ.| 00000CA0: 20 49 4E 59 3A 43 50 59 20 53 54 52 C3 3A 42 43 | INY:CPY STR.:BC| 00000CB0: 43 20 A1 4E 55 4D 00 C6 14 06 05 4C 44 41 20 23 |C .NUM.....LDA #| 00000CC0: AB 31 3A 52 54 53 00 05 15 0A 05 4E 49 58 20 4A |.1:RTS.....NIX J| 00000CD0: 53 52 20 57 45 49 54 45 52 3A 4C 44 41 20 23 B3 |SR WEITER:LDA #.| 00000CE0: 4E 49 58 54 3A 53 54 41 20 45 52 52 50 54 52 3A |NIXT:STA ERRPTR:| 00000CF0: 4C 44 41 20 23 B1 4E 49 58 54 3A 4A 4D 50 20 45 |LDA #.NIXT:JMP E| 00000D00: 52 52 4F 55 54 00 1F 15 D0 07 3B 20 52 45 47 49 |RROUT.....; REGI| 00000D10: 53 54 45 52 20 58 20 41 4E 46 41 48 52 45 4E 00 |STER X ANFAHREN.| 00000D20: 58 15 D2 07 52 45 47 58 20 4C 44 41 20 50 52 54 |X...REGX LDA PRT| 00000D30: 41 3A B0 41 20 23 34 3A 53 54 41 20 50 52 54 41 |A:.A #4:STA PRTA| 00000D40: 3A AF 20 23 32 35 31 3A 53 54 41 20 50 52 54 41 |:. #251:STA PRTA| 00000D50: 20 3B 20 52 45 53 45 54 00 8E 15 D4 07 4C 31 20 | ; RESET.....L1 | 00000D60: 4C 44 41 20 50 52 54 42 3A AF 20 23 31 36 3A 42 |LDA PRTB:. #16:B| 00000D70: 4E 45 20 45 52 52 B0 20 3B 20 51 35 20 44 41 52 |NE ERR. ; Q5 DAR| 00000D80: 46 20 4E 49 43 48 54 20 31 20 53 45 49 4E 00 B4 |F NICHT 1 SEIN..| 00000D90: 15 D6 07 54 58 41 3A 42 45 51 20 52 45 41 43 48 |...TXA:BEQ REACH| 00000DA0: 20 3B 20 52 45 47 49 53 54 45 52 20 45 52 52 45 | ; REGISTER ERRE| 00000DB0: 49 43 48 54 00 E9 15 D8 07 4C 44 41 20 50 52 54 |ICHT.....LDA PRT| 00000DC0: 42 3A AF 20 23 32 32 33 3A 53 54 41 20 50 52 54 |B:. #223:STA PRT| 00000DD0: 42 3A B0 41 20 23 33 32 3A 53 54 41 20 50 52 54 |B:.A #32:STA PRT| 00000DE0: 42 20 3B 20 43 4C 4F 43 4B 00 08 16 DA 07 44 45 |B ; CLOCK.....DE| 00000DF0: 58 3A 42 4E 45 20 4C 31 20 3B 20 58 20 4D 41 4C |X:BNE L1 ; X MAL| 00000E00: 20 43 4C 4F 43 4B 45 4E 00 16 16 DC 07 52 45 41 | CLOCKEN.....REA| 00000E10: 43 48 20 52 54 53 00 38 16 34 08 3B 20 50 4C 41 |CH RTS.8.4.; PLA| 00000E20: 54 49 4E 45 20 4E 49 43 48 54 20 41 4E 47 45 53 |TINE NICHT ANGES| 00000E30: 43 48 4C 4F 53 53 45 4E 00 6F 16 36 08 45 52 52 |CHLOSSEN.o.6.ERR| 00000E40: B0 20 4C 44 41 20 41 52 54 3A 42 45 51 20 45 52 |. LDA ART:BEQ ER| 00000E50: 52 58 3A 4C 44 41 20 23 30 3A 53 54 41 20 41 52 |RX:LDA #0:STA AR| 00000E60: 54 3A 53 54 41 20 54 52 41 4E 53 3A 52 54 53 00 |T:STA TRANS:RTS.| 00000E70: A4 16 38 08 45 52 52 58 20 4C 44 41 20 23 B3 45 |..8.ERRX LDA #.E| 00000E80: 52 52 54 3A 53 54 41 20 45 52 52 50 54 52 3A 4C |RRT:STA ERRPTR:L| 00000E90: 44 41 20 23 B1 45 52 52 54 3A 4A 4D 50 20 45 52 |DA #.ERRT:JMP ER| 00000EA0: 52 4F 55 54 00 C2 16 98 08 3B 20 52 45 47 49 53 |ROUT.....; REGIS| 00000EB0: 54 45 52 20 58 20 4E 41 43 48 20 41 20 4C 45 53 |TER X NACH A LES| 00000EC0: 45 4E 00 DE 16 9A 08 C2 20 4A 53 52 20 52 45 47 |EN...... JSR REG| 00000ED0: 58 20 3B 20 58 20 41 4E 46 41 48 52 45 4E 00 06 |X ; X ANFAHREN..| 00000EE0: 17 9C 08 4C 44 41 20 23 32 32 34 3A 53 54 41 20 |...LDA #224:STA | 00000EF0: 44 44 52 42 20 3B 20 50 B0 54 20 41 55 46 20 45 |DDRB ; P.T AUF E| 00000F00: 49 4E 47 41 42 45 00 2E 17 9E 08 4C 44 41 20 50 |INGABE.....LDA P| 00000F10: 52 54 42 3A AF 20 23 31 32 37 3A 53 54 41 20 50 |RTB:. #127:STA P| 00000F20: 52 54 42 20 3B 20 87 AB 53 49 47 4E 41 4C 00 51 |RTB ; ..SIGNAL.Q| 00000F30: 17 A0 08 4C 44 41 20 50 52 54 42 3A AF 20 23 31 |...LDA PRTB:. #1| 00000F40: 35 3A 50 48 41 20 3B 20 50 B0 54 20 4C 45 53 45 |5:PHA ; P.T LESE| 00000F50: 4E 00 7F 17 A2 08 4C 44 41 20 50 52 54 42 3A B0 |N.....LDA PRTB:.| 00000F60: 41 20 23 31 39 32 3A 53 54 41 20 50 52 54 42 20 |A #192:STA PRTB | 00000F70: 3B 20 87 20 26 20 57 52 49 54 45 20 41 55 53 00 |; . & WRITE AUS.| 00000F80: 8B 17 A4 08 50 4C 41 3A 52 54 53 00 A4 17 FC 08 |....PLA:RTS.....| 00000F90: 3B 20 43 49 41 20 49 4E 49 54 49 41 4C 49 53 49 |; CIA INITIALISI| 00000FA0: 45 52 45 4E 00 D8 17 FE 08 43 49 41 49 4E 49 54 |EREN.....CIAINIT| 00000FB0: 20 4C 44 41 20 44 44 52 41 3A B0 41 20 23 34 3A | LDA DDRA:.A #4:| 00000FC0: 53 54 41 20 44 44 52 41 20 3B 20 52 45 53 45 54 |STA DDRA ; RESET| 00000FD0: 20 41 55 53 47 41 4E 47 00 00 18 00 09 4C 44 41 | AUSGANG.....LDA| 00000FE0: 20 23 32 32 34 3A 53 54 41 20 44 44 52 42 20 3B | #224:STA DDRB ;| 00000FF0: 20 50 B0 54 20 41 55 46 20 45 49 4E 47 41 4E 47 | P.T AUF EINGANG| 00001000: 00 22 18 02 09 53 54 41 20 50 52 54 42 20 3B 20 |."...STA PRTB ; | 00001010: AB 43 4C 4B 2C 20 AB 57 52 2C 20 AB 52 44 20 41 |.CLK, .WR, .RD A| 00001020: 55 53 00 2A 18 04 09 52 54 53 00 43 18 60 09 3B |US.*...RTS.C.`.;| 00001030: 20 55 48 52 20 49 4E 49 54 49 41 4C 49 53 49 45 | UHR INITIALISIE| 00001040: 52 45 4E 00 70 18 62 09 52 54 43 49 4E 49 54 20 |REN.p.b.RTCINIT | 00001050: 4A 53 52 20 A1 58 3A 53 54 58 20 41 52 54 3A 4C |JSR .X:STX ART:L| 00001060: 44 41 20 23 AB 31 3A 53 54 41 20 54 52 41 4E 53 |DA #.1:STA TRANS| 00001070: 00 80 18 63 09 4A 53 52 20 43 49 41 49 4E 49 54 |...c.JSR CIAINIT| 00001080: 00 A1 18 64 09 3B 20 54 45 53 54 2C 20 4F 42 20 |...d.; TEST, OB | 00001090: 52 54 43 20 41 4E 47 45 53 43 48 4C 4F 53 53 45 |RTC ANGESCHLOSSE| 000010A0: 4E 00 D5 18 6A 09 4C 44 41 20 50 52 54 41 3A B0 |N...j.LDA PRTA:.| 000010B0: 41 20 23 34 3A 53 54 41 20 50 52 54 41 3A AF 20 |A #4:STA PRTA:. | 000010C0: 23 32 35 31 3A 53 54 41 20 50 52 54 41 20 3B 20 |#251:STA PRTA ; | 000010D0: 52 45 53 45 54 00 F2 18 6C 09 4C 44 58 20 23 31 |RESET...l.LDX #1| 000010E0: 36 20 3B 20 31 36 20 4D 41 4C 20 43 4C 4F 43 4B |6 ; 16 MAL CLOCK| 000010F0: 45 4E 00 08 19 6E 09 4C 32 20 4C 44 41 20 50 52 |EN...n.L2 LDA PR| 00001100: 54 42 3A AF 20 23 31 36 00 2C 19 6F 09 42 4E 45 |TB:. #16.,.o.BNE| 00001110: 20 45 52 52 B0 20 3B 20 51 35 20 44 41 52 46 20 | ERR. ; Q5 DARF | 00001120: 4E 49 43 48 54 20 31 20 53 45 49 4E 00 61 19 70 |NICHT 1 SEIN.a.p| 00001130: 09 4C 44 41 20 50 52 54 42 3A AF 20 23 32 32 33 |.LDA PRTB:. #223| 00001140: 3A 53 54 41 20 50 52 54 42 3A B0 41 20 23 33 32 |:STA PRTB:.A #32| 00001150: 3A 53 54 41 20 50 52 54 42 20 3B 20 43 4C 4F 43 |:STA PRTB ; CLOC| 00001160: 4B 00 70 19 72 09 44 45 58 3A 42 4E 45 20 4C 32 |K.p.r.DEX:BNE L2| 00001170: 00 8D 19 74 09 4C 44 58 20 23 31 36 20 3B 20 31 |...t.LDX #16 ; 1| 00001180: 36 20 4D 41 4C 20 43 4C 4F 43 4B 45 4E 00 BF 19 |6 MAL CLOCKEN...| 00001190: 76 09 4C 33 20 4C 44 41 20 50 52 54 42 3A AF 20 |v.L3 LDA PRTB:. | 000011A0: 23 31 36 3A 42 45 51 20 51 51 45 52 52 B0 20 3B |#16:BEQ QQERR. ;| 000011B0: 20 51 35 20 4D 55 53 53 20 31 20 53 45 49 4E 00 | Q5 MUSS 1 SEIN.| 000011C0: F4 19 78 09 4C 44 41 20 50 52 54 42 3A AF 20 23 |..x.LDA PRTB:. #| 000011D0: 32 32 33 3A 53 54 41 20 50 52 54 42 3A B0 41 20 |223:STA PRTB:.A | 000011E0: 23 33 32 3A 53 54 41 20 50 52 54 42 20 3B 20 43 |#32:STA PRTB ; C| 000011F0: 4C 4F 43 4B 00 03 1A 7A 09 44 45 58 3A 42 4E 45 |LOCK...z.DEX:BNE| 00001200: 20 4C 33 00 38 1A 7C 09 4C 44 41 20 50 52 54 42 | L3.8.|.LDA PRTB| 00001210: 3A AF 20 23 31 36 3A 42 4E 45 20 51 51 45 52 52 |:. #16:BNE QQERR| 00001220: B0 20 3B 20 51 35 20 44 41 52 46 20 4E 49 43 48 |. ; Q5 DARF NICH| 00001230: 54 20 31 20 53 45 49 4E 00 4D 1A 7E 09 3B 20 55 |T 1 SEIN.M.~.; U| 00001240: 48 52 20 48 4F 43 48 46 41 48 52 45 4E 00 7D 1A |HR HOCHFAHREN.}.| 00001250: 80 09 4C 44 41 20 23 30 3A 4C 44 58 20 23 31 33 |..LDA #0:LDX #13| 00001260: 3A 4A 53 52 20 97 20 3B 20 52 45 47 49 53 54 45 |:JSR . ; REGISTE| 00001270: 52 20 31 33 20 4C 4F 45 53 43 48 45 4E 00 B0 1A |R 13 LOESCHEN...| 00001280: 82 09 4C 44 41 20 23 31 3A 4C 44 58 20 23 31 34 |..LDA #1:LDX #14| 00001290: 3A 4A 53 52 20 97 20 3B 20 52 45 47 49 53 54 45 |:JSR . ; REGISTE| 000012A0: 52 20 31 34 20 52 55 45 43 4B 53 45 54 5A 45 4E |R 14 RUECKSETZEN| 000012B0: 00 F1 1A 84 09 4C 44 41 20 23 34 3A 4C 44 58 20 |.....LDA #4:LDX | 000012C0: 23 31 35 3A 4A 4D 50 20 97 20 3B 20 52 45 47 49 |#15:JMP . ; REGI| 000012D0: 53 54 45 52 20 31 35 20 55 48 52 20 41 4E 46 41 |STER 15 UHR ANFA| 000012E0: 48 52 45 4E 20 32 34 20 53 54 44 20 4D 4F 44 55 |HREN 24 STD MODU| 000012F0: 53 00 05 1B 92 09 51 51 45 52 52 B0 20 4A 4D 50 |S.....QQERR. JMP| 00001300: 20 45 52 52 B0 00 24 1B C4 09 3B 20 53 43 48 52 | ERR..$...; SCHR| 00001310: 45 49 42 54 20 41 20 49 4E 20 52 45 47 49 53 54 |EIBT A IN REGIST| 00001320: 45 52 20 58 00 4E 1B C6 09 97 20 AF 20 23 31 35 |ER X.N.... . #15| 00001330: 3A 53 54 41 20 54 4D 50 3A 4A 53 52 20 52 45 47 |:STA TMP:JSR REG| 00001340: 58 20 3B 20 58 20 41 4E 46 41 48 52 45 4E 00 7C |X ; X ANFAHREN.|| 00001350: 1B C8 09 4C 44 41 20 50 52 54 42 3A B0 41 20 23 |...LDA PRTB:.A #| 00001360: 31 39 32 3A 53 54 41 20 50 52 54 42 20 3B 20 87 |192:STA PRTB ; .| 00001370: 20 26 20 57 52 49 54 45 20 41 55 53 00 A4 1B CA | & WRITE AUS....| 00001380: 09 4C 44 41 20 23 32 33 39 3A 53 54 41 20 44 44 |.LDA #239:STA DD| 00001390: 52 42 20 3B 20 50 B0 54 20 41 55 46 20 41 55 53 |RB ; P.T AUF AUS| 000013A0: 47 41 4E 47 00 D4 1B CC 09 4C 44 41 20 50 52 54 |GANG.....LDA PRT| 000013B0: 42 3A AF 20 23 32 34 30 3A B0 41 20 54 4D 50 3A |B:. #240:.A TMP:| 000013C0: 53 54 41 20 50 52 54 42 20 3B 20 41 20 41 55 46 |STA PRTB ; A AUF| 000013D0: 20 50 B0 54 00 F9 1B CE 09 4C 44 41 20 50 52 54 | P.T.....LDA PRT| 000013E0: 42 3A AF 20 23 31 39 31 3A 53 54 41 20 50 52 54 |B:. #191:STA PRT| 000013F0: 42 20 3B 20 57 52 49 54 45 00 27 1C D0 09 4C 44 |B ; WRITE.'...LD| 00001400: 41 20 50 52 54 42 3A B0 41 20 23 31 39 32 3A 53 |A PRTB:.A #192:S| 00001410: 54 41 20 50 52 54 42 20 3B 20 87 20 26 20 57 52 |TA PRTB ; . & WR| 00001420: 49 54 45 20 41 55 53 00 4F 1C D2 09 4C 44 41 20 |ITE AUS.O...LDA | 00001430: 23 32 32 34 3A 53 54 41 20 44 44 52 42 20 3B 20 |#224:STA DDRB ; | 00001440: 50 B0 54 20 41 55 46 20 45 49 4E 47 41 4E 47 00 |P.T AUF EINGANG.| 00001450: 57 1C D4 09 52 54 53 00 82 1C B8 0B 50 49 45 50 |W...RTS.....PIEP| 00001460: 53 20 4A 53 52 20 A1 58 3A 54 58 41 3A AF 20 23 |S JSR .X:TXA:. #| 00001470: 33 3A 41 53 4C 3A 41 53 4C 3A 53 54 41 20 54 41 |3:ASL:ASL:STA TA| 00001480: 4B 54 00 B8 1C BA 0B 4C 44 41 20 23 B3 4E 45 55 |KT.....LDA #.NEU| 00001490: 4E 4D 49 3A 4C 44 59 20 23 B1 4E 45 55 4E 4D 49 |NMI:LDY #.NEUNMI| 000014A0: 3A 53 54 41 20 4E 4D 49 56 45 43 3A 53 54 59 20 |:STA NMIVEC:STY | 000014B0: 4E 4D 49 56 45 43 AA 31 00 D6 1C BC 0B 4C 44 41 |NMIVEC.1.....LDA| 000014C0: 20 23 25 31 30 30 31 30 30 30 30 3A 53 54 41 20 | #%10010000:STA | 000014D0: 43 49 41 AA 31 33 00 FE 1C BE 0B 4C 44 41 20 54 |CIA.13.....LDA T| 000014E0: 41 4B 54 3A 42 4E 45 20 49 53 44 52 49 4E 3A 4C |AKT:BNE ISDRIN:L| 000014F0: 44 41 20 23 34 3A 53 54 41 20 5A 45 48 4E 00 3B |DA #4:STA ZEHN.;| 00001500: 1D BF 0B 49 53 44 52 49 4E 20 4C 44 58 20 23 31 |...ISDRIN LDX #1| 00001510: 34 3A 4A 53 52 20 97 3A 4C 44 41 20 23 30 3A 4C |4:JSR .:LDA #0:L| 00001520: 44 58 20 23 31 33 3A 4A 53 52 20 97 3A 4C 44 58 |DX #13:JSR .:LDX| 00001530: 20 23 32 34 3A 4C 44 41 20 23 30 00 5F 1D C0 0B | #24:LDA #0._...| 00001540: 9C 53 49 44 20 53 54 41 20 53 49 44 2C 58 3A 44 |.SID STA SID,X:D| 00001550: 45 58 3A 42 50 4C 20 9C 53 49 44 3A 52 54 53 00 |EX:BPL .SID:RTS.| 00001560: A0 1D C2 0B 4E 45 55 4E 4D 49 20 50 48 41 3A 4C |....NEUNMI PHA:L| 00001570: 44 41 20 43 49 41 AA 31 33 3A AF 20 23 25 31 30 |DA CIA.13:. #%10| 00001580: 30 31 30 30 30 30 3A 42 4E 45 20 57 41 52 43 49 |010000:BNE WARCI| 00001590: 41 3A 50 4C 41 3A 4A 4D 50 20 4F 4C 44 4E 4D 49 |A:PLA:JMP OLDNMI| 000015A0: 00 CF 1D C4 0B 57 41 52 43 49 41 20 53 54 58 20 |.....WARCIA STX | 000015B0: 58 4D 45 4D 3A 53 54 59 20 59 4D 45 4D 3A 4C 44 |XMEM:STY YMEM:LD| 000015C0: 41 20 54 41 4B 54 3A 42 4E 45 20 41 4C 53 4F 00 |A TAKT:BNE ALSO.| 000015D0: F6 1D C6 0B 44 45 43 20 5A 45 48 4E 3A 42 4E 45 |....DEC ZEHN:BNE| 000015E0: 20 4E 4F 31 30 3A 4C 44 41 20 23 31 30 3A 53 54 | NO10:LDA #10:ST| 000015F0: 41 20 5A 45 48 4E 00 12 1E CC 0B 41 4C 53 4F 20 |A ZEHN.....ALSO | 00001600: 4C 44 41 20 23 31 35 3A 53 54 41 20 53 49 44 AA |LDA #15:STA SID.| 00001610: 32 34 00 60 1E CE 0B 4C 44 41 20 23 34 30 3A 53 |24.`...LDA #40:S| 00001620: 54 41 20 53 49 44 AA 33 3A 4C 44 41 20 23 31 30 |TA SID.3:LDA #10| 00001630: 30 3A 53 54 41 20 53 49 44 AA 31 3A 4C 44 41 20 |0:STA SID.1:LDA | 00001640: 23 32 34 30 3A 53 54 41 20 53 49 44 AA 36 3A 4C |#240:STA SID.6:L| 00001650: 44 41 20 23 36 35 3A 53 54 41 20 53 49 44 AA 34 |DA #65:STA SID.4| 00001660: 00 74 1E D0 0B 4C 44 58 20 23 31 30 30 3A 4C 44 |.t...LDX #100:LD| 00001670: 59 20 23 30 00 B1 1E D2 0B 44 45 4C 20 44 45 59 |Y #0.....DEL DEY| 00001680: 3A 42 4E 45 20 44 45 4C 3A 44 45 58 3A 42 4E 45 |:BNE DEL:DEX:BNE| 00001690: 20 44 45 4C 3A 4C 44 41 20 23 36 34 3A 53 54 41 | DEL:LDA #64:STA| 000016A0: 20 53 49 44 AA 34 3A 53 54 58 20 53 49 44 AA 32 | SID.4:STX SID.2| 000016B0: 34 00 D4 1E D4 0B 4E 4F 31 30 20 4C 44 58 20 58 |4.....NO10 LDX X| 000016C0: 4D 45 4D 3A 4C 44 59 20 59 4D 45 4D 3A 50 4C 41 |MEM:LDY YMEM:PLA| 000016D0: 3A 52 54 49 00 00 00 |:RTI... |
.......2,8,2,"RTC 49152,P,W.&....36864.2 ....OPT O2.?..... $C000.N.D.CIA .$DD00.^ .F.DDRA .CIA.2.N.H.DDRB .CIA.3.|.J.PRTA .CIA...L.PRTB .CIA.1...N.ERROUT .$A445.. .P.ERRPTR .$22...R.TMP .166.K.T.BUFFER . 704.Y.V..X .$B7F1...X.KOMMA .$AEFD...Z.F RMEVL .$AD9E...|..STR .$B6A3...~.STRPTR .$22./...FINDVAR .$B08B.?...VARADR .$49. M...PARA .$61._...STRRES .$B475.L...TRAN S .2.|...NMIVEC .792.....OLDNMI .$FE47.. ...SID .$D400.....JMP RTCINIT.....JMP .T IME.M...JMP WRITETIME.....JMP ADJ30..... JMP PIEPS...X.ERRT .F "UNABLE TO ACCESS RTC.&.Y.NIXT .F "STRING FORMAT.B.Z.DAYS .F "SOMODIMIDOFRSA.N...TRY BRK.[...STRC BRK.H.B.BUC1 BRK.U.D.BUC2 BRK...F.ART BR K...H.TYP BRK...J.TAKT BRK...L.XMEM BRK. ..N.YMEM BRK.A.P.ZEHN BRK... ..F "RTC-DI ENSTPROGRAMM..."..BYT 0,0,0...$..F "(C)O PYRIGHT NIKOLAUS HEUSLER...&..BYT 0,0,0. C.(..F "I.A. REDAKTION 64'ER 120589.R.*. .BYT 0,0,0.K....TIME JSR .X:STX TYP..... JSR KOMMA:JSR FINDVAR:STA VARADR:STY VAR ADR.1:JSR .STR:LDY #0.I...JSR WART ; UHR ANHALTEN.....LDA TYP:BMI NP4:LDX #5:JSR B:. #3:JSR NUMOUT.....LDX #4:JSR B:JSR NUMOUT.;...LDA TYP:BNE NP1:LDA #":":JSR OUT.[...NP1 LDX #3:JSR B:JSR NUMOUT.W... LDX #2:JSR B:JSR NUMOUT.....LDA TYP:BNE NP2:LDA #":":JSR OUT.....NP2 LDX #1:JSR B:JSR NUMOUT.X...LDX #0:JSR B:JSR NUMOUT .....LDA TYP:BNE NP3:LDA #" ":JSR OUT.?. ..LDX #12:JSR B:ASL:TAX:LDA DAYS,X:JSR O UT:LDA DAYS.1,X:JSR OUT.T...LDA #",":JSR OUT.T...NP4 LDX #7:JSR B:JSR NUMOUT.... .LDX #6:JSR B:JSR NUMOUT.....BIT TYP:BVS NP5:LDA #".":JSR OUT.....NP5 LDX #9:JSR B:JSR NUMOUT:LDX #8:JSR B:JSR NUMOUT... ..BIT TYP:BVS NP6:LDA #".":JSR OUT.3...N P6 LDX #11:JSR B:JSR NUMOUT.P...LDX #10: JSR B:JSR NUMOUT.....NP3 JSR WEITER:STY TMP:TYA:JSR STRRES:LDY #2.....SETPAR LDA PARA,Y:STA (VARADR),Y:DEY:BPL SETPAR:IN Y.....SETTXT CPY TMP:BEQ CARRIED:LDA BUF FER,Y:STA (PARA.1),Y:INY:BNE SETTXT..... CARRIED RTS.%...NUMOUT .A #"0.B...OUT ST A BUFFER,Y:INY:RTS.I.$.WART LDA #10:STA TRY ; 10 VERSUCHE...%.W3 LDX #13:JSR B:. A #1:LDX #13:JSR ....&.W2 LDX #13:JSR B: . #2:BEQ W1.B.(.JSR WEITER.U.*.DEC TRY:B NE W3...,.W1 RTS.....WEITER LDX #13:JSR B:. #254:LDX #13:JMP ..,.L.; .. 30 SEKUN DEN EINSTELC.].N.ADJ30 LDX #13:JSR B:.A #8 ; ADJ30 BIT SETZEN.O.P.LDX #13:JMP .. ....QNIX JMP NIX.B...WRITETIME JSR KOMMA :JSR FRMEVL:JSR .STR:STA STRC:TAY:BEQ QN IX.V...JSR WART:LDY #0.....JSR .NUM:BMI QNIX:LDX #5:JSR ......JSR .NUM:BMI QNIX: LDX #4:JSR ..?...JSR .NUM:BMI QNIX:LDX # 3:JSR ..B...JSR .NUM:BMI QNIX:LDX #2:JSR ......JSR .NUM:BMI QNIX:LDX #1:JSR .... ..JSR .NUM:BMI QNIX:LDX #0:JSR ..E...; D ATUM SETZEN (OPTI.AL)...B.JSR .NUM:BMI S AT:LDX #7:JSR ....D.JSR .NUM:BMI QNIX:LD X #6:JSR ..-.F.JSR .NUM:BMI QNIX:LDX #9: JSR ..P.H.JSR .NUM:BMI QNIX:LDX #8:JSR . .S.J.JSR .NUM:BMI NIX:LDX #11:JSR ....L. JSR .NUM:BMI NIX:LDX #10:JSR ....N.; TAG SETZEN (OPTI.AL).P.P.JSR ..TER:BMI SAT: STA BUC1...R.JSR ..TER:BMI NIX:STA BUC2: LDX #0.@.T.SUCHDOOG LDA DAYS,X:CMP BUC1: BNE NEIN:LDA DAYS.1,X:CMP BUC2:BEQ ISSES .N.V.NEIN INX:INX:CPX #14:BCC SUCHDOOG:B CS NIX...X.ISSES TXA:LSR:LDX #12:JSR ... ...SAT JMP WEITER.K.....TER CPY STRC:BCS MI1:LDA (STRPTR),Y.....CMP #"A":BCC NO. :CMP #"Z".1:BCS NO......INY:RTS.....NO. INY:CPY STRC:BCC ..TER.2...MI1 LDA #.1:R TS.[....NUM CPY STRC:BCS MI1:LDA (STRPTR ),Y.....CMP #"0":BCC NOZ.:CMP #"9".1:BCS NOZ.:. #$F.....INY:RTS.....NOZ. INY:CPY STRC:BCC .NUM.F...LDA #.1:RTS.....NIX J SR WEITER:LDA #.NIXT:STA ERRPTR:LDA #.NI XT:JMP ERROUT...P.; REGISTER X ANFAHREN. X.R.REGX LDA PRTA:.A #4:STA PRTA:. #251: STA PRTA ; RESET...T.L1 LDA PRTB:. #16:B NE ERR. ; Q5 DARF NICHT 1 SEIN...V.TXA:B EQ REACH ; REGISTER ERREICHT...X.LDA PRT B:. #223:STA PRTB:.A #32:STA PRTB ; CLOC K...Z.DEX:BNE L1 ; X MAL CLOCKEN.....REA CH RTS.8.4.; PLATINE NICHT ANGESCHLOSSEN .O.6.ERR. LDA ART:BEQ ERRX:LDA #0:STA AR T:STA TRANS:RTS...8.ERRX LDA #.ERRT:STA ERRPTR:LDA #.ERRT:JMP ERROUT.B...; REGIS TER X NACH A LESEN.....B JSR REGX ; X AN FAHREN.....LDA #224:STA DDRB ; P.T AUF E INGABE.....LDA PRTB:. #127:STA PRTB ; .. SIGNAL.Q. .LDA PRTB:. #15:PHA ; P.T LESE N....LDA PRTB:.A #192:STA PRTB ; . & WR ITE AUS.....PLA:RTS.....; CIA INITIALISI EREN.X...CIAINIT LDA DDRA:.A #4:STA DDRA ; RESET AUSGANG.....LDA #224:STA DDRB ; P.T AUF EINGANG."...STA PRTB ; .CLK, .W R, .RD AUS.*...RTS.C.`.; UHR INITIALISIE REN.P.B.RTCINIT JSR .X:STX ART:LDA #.1:S TA TRANS...C.JSR CIAINIT...D.; TEST, OB RTC ANGESCHLOSSEN.U.J.LDA PRTA:.A #4:STA PRTA:. #251:STA PRTA ; RESET...L.LDX #1 6 ; 16 MAL CLOCKEN...N.L2 LDA PRTB:. #16 .,.O.BNE ERR. ; Q5 DARF NICHT 1 SEIN.A.P .LDA PRTB:. #223:STA PRTB:.A #32:STA PRT B ; CLOCK.P.R.DEX:BNE L2...T.LDX #16 ; 1 6 MAL CLOCKEN...V.L3 LDA PRTB:. #16:BEQ QQERR. ; Q5 MUSS 1 SEIN...X.LDA PRTB:. # 223:STA PRTB:.A #32:STA PRTB ; CLOCK...Z .DEX:BNE L3.8.|.LDA PRTB:. #16:BNE QQERR . ; Q5 DARF NICHT 1 SEIN.M.~.; UHR HOCHF AHREN.}...LDA #0:LDX #13:JSR . ; REGISTE R 13 LOESCHEN.....LDA #1:LDX #14:JSR . ; REGISTER 14 RUECKSETZEN.....LDA #4:LDX #15:JMP . ; REGISTER 15 UHR ANFAHREN 24 STD MODUS.....QQERR. JMP ERR..$.D.; SCHR EIBT A IN REGISTER X.N.F.. . #15:STA TMP :JSR REGX ; X ANFAHREN.|.H.LDA PRTB:.A # 192:STA PRTB ; . & WRITE AUS...J.LDA #23 9:STA DDRB ; P.T AUF AUSGANG.T.L.LDA PRT B:. #240:.A TMP:STA PRTB ; A AUF P.T...N .LDA PRTB:. #191:STA PRTB ; WRITE.'.P.LD A PRTB:.A #192:STA PRTB ; . & WRITE AUS. O.R.LDA #224:STA DDRB ; P.T AUF EINGANG. W.T.RTS.....PIEPS JSR .X:TXA:. #3:ASL:AS L:STA TAKT.....LDA #.NEUNMI:LDY #.NEUNMI :STA NMIVEC:STY NMIVEC.1.V...LDA #%10010 000:STA CIA.13.....LDA TAKT:BNE ISDRIN:L DA #4:STA ZEHN.;...ISDRIN LDX #14:JSR .: LDA #0:LDX #13:JSR .:LDX #24:LDA #0._... .SID STA SID,X:DEX:BPL .SID:RTS. .B.NEUN MI PHA:LDA CIA.13:. #%10010000:BNE WARCI A:PLA:JMP OLDNMI.O.D.WARCIA STX XMEM:STY YMEM:LDA TAKT:BNE ALSO...F.DEC ZEHN:BNE NO10:LDA #10:STA ZEHN...L.ALSO LDA #15: STA SID.24.`.N.LDA #40:STA SID.3:LDA #10 0:STA SID.1:LDA #240:STA SID.6:LDA #65:S TA SID.4.T.P.LDX #100:LDY #0...R.DEL DEY :BNE DEL:DEX:BNE DEL:LDA #64:STA SID.4:S TX SID.24.T.T.NO10 LDX XMEM:LDY YMEM:PLA :RTI...
> CLICK IMAGE PREVIEW FOR FULL MODAL