OP.RTC-IMMERUHR

FILE INFORMATION

FILENAME(S): OP.RTC-IMMERUHR

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:12:41

APPEARS ON: 2 disk(s)

FILE HASH

c5b290bac6fdb48d8b1c4b1785d1ffb7a1d9d8975d20ed3a7ddfe4d401da1754

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
64 ER SONDERH 67	OP.RTC-IMMERUHR	PRG	C64er	16	5	DOWNLOAD FILE
64 ER SONDERH 67	OP.RTC-IMMERUHR	PRG	DuncanTwain	16	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0C 08 0A 00 9E 33  36 38 36 34 00 18 08 14  |.......36864....|
00000010: 00 2E 4F 50 54 20 4F 4F  00 25 08 1E 00 AC B2 20  |..OPT OO.%..... |
00000020: 35 32 30 30 30 00 34 08  64 00 43 49 41 20 B2 24  |52000.4.d.CIA .$|
00000030: 44 44 30 30 00 44 08 66  00 44 44 52 41 20 B2 43  |DD00.D.f.DDRA .C|
00000040: 49 41 AA 32 00 54 08 68  00 44 44 52 42 20 B2 43  |IA.2.T.h.DDRB .C|
00000050: 49 41 AA 33 00 62 08 6A  00 50 52 54 41 20 B2 43  |IA.3.b.j.PRTA .C|
00000060: 49 41 00 72 08 6C 00 50  52 54 42 20 B2 43 49 41  |IA.r.l.PRTB .CIA|
00000070: AA 31 00 84 08 6E 00 45  52 52 4F 55 54 20 B2 24  |.1...n.ERROUT .$|
00000080: 41 34 34 35 00 94 08 70  00 45 52 52 50 54 52 20  |A445...p.ERRPTR |
00000090: B2 24 32 32 00 A1 08 72  00 50 4E 54 20 B2 31 38  |.$22...r.PNT .18|
000000A0: 31 00 B3 08 F4 01 4A 4D  50 20 5A 45 49 54 4C 45  |1.....JMP ZEITLE|
000000B0: 53 45 4E 00 CD 08 F6 01  53 45 49 3A 4A 53 52 20  |SEN.....SEI:JSR |
000000C0: 36 35 34 31 38 3A 43 4C  49 3A 52 54 53 00 EF 08  |65418:CLI:RTS...|
000000D0: 58 02 45 52 52 54 20 2E  C6 20 22 55 4E 41 42 4C  |X.ERRT .. "UNABL|
000000E0: 45 20 54 4F 20 41 43 43  45 53 53 20 52 54 C3 00  |E TO ACCESS RT..|
000000F0: FB 08 5A 02 54 52 59 20  42 52 4B 00 08 09 5C 02  |..Z.TRY BRK...\.|
00000100: 57 45 52 54 20 42 52 4B  00 1B 09 5E 02 54 49 4D  |WERT BRK...^.TIM|
00000110: 45 20 2E 57 B0 20 30 2C  30 2C 30 00 35 09 E8 03  |E .W. 0,0,0.5...|
00000120: 5A 45 49 54 4C 45 53 45  4E 20 4A 53 52 20 52 54  |ZEITLESEN JSR RT|
00000130: 43 49 4E 49 54 00 51 09  EA 03 4A 53 52 20 57 41  |CINIT.Q...JSR WA|
00000140: 52 54 20 3B 20 55 48 52  20 41 4E 48 41 4C 54 45  |RT ; UHR ANHALTE|
00000150: 4E 00 70 09 EC 03 4C 44  58 20 23 35 3A 4A 53 52  |N.p...LDX #5:JSR|
00000160: 20 C2 3A AF 20 23 33 3A  53 54 41 20 54 49 4D 45  | .:. #3:STA TIME|
00000170: 00 8C 09 EE 03 4C 44 58  20 23 34 3A 4A 53 52 20  |.....LDX #4:JSR |
00000180: C2 3A 53 54 41 20 54 49  4D 45 AA 31 00 A8 09 F2  |.:STA TIME.1....|
00000190: 03 4C 44 58 20 23 33 3A  4A 53 52 20 C2 3A 53 54  |.LDX #3:JSR .:ST|
000001A0: 41 20 54 49 4D 45 AA 32  00 C4 09 F4 03 4C 44 58  |A TIME.2.....LDX|
000001B0: 20 23 32 3A 4A 53 52 20  C2 3A 53 54 41 20 54 49  | #2:JSR .:STA TI|
000001C0: 4D 45 AA 33 00 E0 09 F8  03 4C 44 58 20 23 31 3A  |ME.3.....LDX #1:|
000001D0: 4A 53 52 20 C2 3A 53 54  41 20 54 49 4D 45 AA 34  |JSR .:STA TIME.4|
000001E0: 00 FC 09 FA 03 4C 44 58  20 23 30 3A 4A 53 52 20  |.....LDX #0:JSR |
000001F0: C2 3A 53 54 41 20 54 49  4D 45 AA 35 00 1F 0A FC  |.:STA TIME.5....|
00000200: 03 4A 53 52 20 57 45 49  54 45 52 20 3B 20 55 48  |.JSR WEITER ; UH|
00000210: 52 20 4C 41 45 55 46 54  20 57 45 49 54 45 52 00  |R LAEUFT WEITER.|
00000220: 5E 0A FE 03 4C 44 41 20  43 49 41 AA 31 34 3A B0  |^...LDA CIA.14:.|
00000230: 41 20 23 31 32 38 3A 53  54 41 20 43 49 41 AA 31  |A #128:STA CIA.1|
00000240: 34 3A 4C 44 41 20 43 49  41 AA 31 35 3A AF 20 23  |4:LDA CIA.15:. #|
00000250: 31 32 37 3A 53 54 41 20  43 49 41 AA 31 35 00 9E  |127:STA CIA.15..|
00000260: 0A 00 04 4C 44 41 20 54  49 4D 45 3A 41 53 4C 3A  |...LDA TIME:ASL:|
00000270: 41 53 4C 3A 41 53 4C 3A  41 53 4C 3A B0 41 20 54  |ASL:ASL:ASL:.A T|
00000280: 49 4D 45 AA 31 3A 42 4E  45 20 A8 30 3A 4C 44 41  |IME.1:BNE .0:LDA|
00000290: 20 23 24 39 32 3A 42 4E  45 20 53 45 54 31 00 D4  | #$92:BNE SET1..|
000002A0: 0A 02 04 A8 30 20 43 4D  50 20 23 24 31 33 3A 42  |....0 CMP #$13:B|
000002B0: 43 43 20 53 45 54 31 3A  53 45 43 3A 53 45 44 3A  |CC SET1:SEC:SED:|
000002C0: 53 42 43 20 23 24 31 32  3A 43 4C 44 3A B0 41 20  |SBC #$12:CLD:.A |
000002D0: 23 31 32 38 00 E8 0A 04  04 53 45 54 31 20 53 54  |#128.....SET1 ST|
000002E0: 41 20 43 49 41 AA 24 42  00 1C 0B 06 04 4C 44 41  |A CIA.$B.....LDA|
000002F0: 20 54 49 4D 45 AA 32 3A  41 53 4C 3A 41 53 4C 3A  | TIME.2:ASL:ASL:|
00000300: 41 53 4C 3A 41 53 4C 3A  B0 41 20 54 49 4D 45 AA  |ASL:ASL:.A TIME.|
00000310: 33 3A 53 54 41 20 43 49  41 AA 24 41 00 50 0B 08  |3:STA CIA.$A.P..|
00000320: 04 4C 44 41 20 54 49 4D  45 AA 34 3A 41 53 4C 3A  |.LDA TIME.4:ASL:|
00000330: 41 53 4C 3A 41 53 4C 3A  41 53 4C 3A B0 41 20 54  |ASL:ASL:ASL:.A T|
00000340: 49 4D 45 AA 35 3A 53 54  41 20 43 49 41 AA 24 39  |IME.5:STA CIA.$9|
00000350: 00 66 0B 0A 04 4C 44 41  20 23 30 3A 53 54 41 20  |.f...LDA #0:STA |
00000360: 43 49 41 AA 24 38 00 A2  0B 0C 04 53 45 49 3A 4C  |CIA.$8.....SEI:L|
00000370: 44 41 20 23 B3 54 49 4D  49 52 51 3A 4C 44 59 20  |DA #.TIMIRQ:LDY |
00000380: 23 B1 54 49 4D 49 52 51  3A 53 54 41 20 24 33 31  |#.TIMIRQ:STA $31|
00000390: 34 3A 53 54 59 20 24 33  31 35 3A 43 4C 49 3A 52  |4:STY $315:CLI:R|
000003A0: 54 53 00 BB 0B 24 04 57  41 52 54 20 4C 44 41 20  |TS...$.WART LDA |
000003B0: 23 31 30 3A 53 54 41 20  54 52 59 00 E4 0B 25 04  |#10:STA TRY...%.|
000003C0: 57 33 20 4C 44 58 20 23  31 33 3A 4A 53 52 20 C2  |W3 LDX #13:JSR .|
000003D0: 3A B0 41 20 23 31 3A 4C  44 58 20 23 31 33 3A 4A  |:.A #1:LDX #13:J|
000003E0: 53 52 20 97 00 05 0C 26  04 57 32 20 4C 44 58 20  |SR ....&.W2 LDX |
000003F0: 23 31 33 3A 4A 53 52 20  C2 3A AF 20 23 32 3A 42  |#13:JSR .:. #2:B|
00000400: 45 51 20 57 31 00 14 0C  28 04 4A 53 52 20 57 45  |EQ W1...(.JSR WE|
00000410: 49 54 45 52 00 27 0C 2A  04 44 45 43 20 54 52 59  |ITER.'.*.DEC TRY|
00000420: 3A 42 4E 45 20 57 33 00  32 0C 2C 04 57 31 20 52  |:BNE W3.2.,.W1 R|
00000430: 54 53 00 60 0C 2E 04 57  45 49 54 45 52 20 4C 44  |TS.`...WEITER LD|
00000440: 58 20 23 31 33 3A 4A 53  52 20 C2 3A AF 20 23 32  |X #13:JSR .:. #2|
00000450: 35 34 3A 4C 44 58 20 23  31 33 3A 4A 4D 50 20 97  |54:LDX #13:JMP .|
00000460: 00 77 0C 4C 04 58 20 B0  41 20 23 34 38 3A 4A 4D  |.w.L.X .A #48:JM|
00000470: 50 20 24 46 46 44 32 00  91 0C D0 07 3B 20 52 45  |P $FFD2.....; RE|
00000480: 47 49 53 54 45 52 20 58  20 41 4E 46 41 48 52 45  |GISTER X ANFAHRE|
00000490: 4E 00 C2 0C D2 07 52 45  47 58 20 4C 44 41 20 50  |N.....REGX LDA P|
000004A0: 52 54 41 3A B0 41 20 23  34 3A 53 54 41 20 50 52  |RTA:.A #4:STA PR|
000004B0: 54 41 3A AF 20 23 32 35  31 3A 53 54 41 20 50 52  |TA:. #251:STA PR|
000004C0: 54 41 00 E1 0C D4 07 4C  31 20 4C 44 41 20 50 52  |TA.....L1 LDA PR|
000004D0: 54 42 3A AF 20 23 31 36  3A 42 4E 45 20 45 52 52  |TB:. #16:BNE ERR|
000004E0: B0 00 F3 0C D6 07 54 58  41 3A 42 45 51 20 52 45  |......TXA:BEQ RE|
000004F0: 41 43 48 00 20 0D D8 07  4C 44 41 20 50 52 54 42  |ACH. ...LDA PRTB|
00000500: 3A AF 20 23 32 32 33 3A  53 54 41 20 50 52 54 42  |:. #223:STA PRTB|
00000510: 3A B0 41 20 23 33 32 3A  53 54 41 20 50 52 54 42  |:.A #32:STA PRTB|
00000520: 00 2F 0D DA 07 44 45 58  3A 42 4E 45 20 4C 31 00  |./...DEX:BNE L1.|
00000530: 3D 0D DC 07 52 45 41 43  48 20 52 54 53 00 5F 0D  |=...REACH RTS._.|
00000540: 34 08 3B 20 50 4C 41 54  49 4E 45 20 4E 49 43 48  |4.; PLATINE NICH|
00000550: 54 20 41 4E 47 45 53 43  48 4C 4F 53 53 45 4E 00  |T ANGESCHLOSSEN.|
00000560: 94 0D 38 08 45 52 52 B0  20 4C 44 41 20 23 B3 45  |..8.ERR. LDA #.E|
00000570: 52 52 54 3A 53 54 41 20  45 52 52 50 54 52 3A 4C  |RRT:STA ERRPTR:L|
00000580: 44 41 20 23 B1 45 52 52  54 3A 4A 4D 50 20 45 52  |DA #.ERRT:JMP ER|
00000590: 52 4F 55 54 00 B2 0D 98  08 3B 20 52 45 47 49 53  |ROUT.....; REGIS|
000005A0: 54 45 52 20 58 20 4E 41  43 48 20 41 20 4C 45 53  |TER X NACH A LES|
000005B0: 45 4E 00 C1 0D 9A 08 C2  20 4A 53 52 20 52 45 47  |EN...... JSR REG|
000005C0: 58 00 D7 0D 9C 08 4C 44  41 20 23 32 32 34 3A 53  |X.....LDA #224:S|
000005D0: 54 41 20 44 44 52 42 00  F4 0D 9E 08 4C 44 41 20  |TA DDRB.....LDA |
000005E0: 50 52 54 42 3A AF 20 23  31 32 37 3A 53 54 41 20  |PRTB:. #127:STA |
000005F0: 50 52 54 42 00 0B 0E A0  08 4C 44 41 20 50 52 54  |PRTB.....LDA PRT|
00000600: 42 3A AF 20 23 31 35 3A  50 48 41 00 29 0E A2 08  |B:. #15:PHA.)...|
00000610: 4C 44 41 20 50 52 54 42  3A B0 41 20 23 31 39 32  |LDA PRTB:.A #192|
00000620: 3A 53 54 41 20 50 52 54  42 00 35 0E A4 08 50 4C  |:STA PRTB.5...PL|
00000630: 41 3A 52 54 53 00 4E 0E  60 09 3B 20 55 48 52 20  |A:RTS.N.`.; UHR |
00000640: 49 4E 49 54 49 41 4C 49  53 49 45 52 45 4E 00 8D  |INITIALISIEREN..|
00000650: 0E 62 09 52 54 43 49 4E  49 54 20 4C 44 41 20 44  |.b.RTCINIT LDA D|
00000660: 44 52 41 3A B0 41 20 23  34 3A 53 54 41 20 44 44  |DRA:.A #4:STA DD|
00000670: 52 41 3A 4C 44 41 20 23  32 32 34 3A 53 54 41 20  |RA:LDA #224:STA |
00000680: 44 44 52 42 3A 53 54 41  20 50 52 54 42 00 B9 0E  |DDRB:STA PRTB...|
00000690: 6A 09 4C 44 41 20 50 52  54 41 3A B0 41 20 23 34  |j.LDA PRTA:.A #4|
000006A0: 3A 53 54 41 20 50 52 54  41 3A AF 20 23 32 35 31  |:STA PRTA:. #251|
000006B0: 3A 53 54 41 20 50 52 54  41 00 C5 0E 6C 09 4C 44  |:STA PRTA...l.LD|
000006C0: 58 20 23 31 36 00 DB 0E  6E 09 4C 32 20 4C 44 41  |X #16...n.L2 LDA|
000006D0: 20 50 52 54 42 3A AF 20  23 31 36 00 E8 0E 6F 09  | PRTB:. #16...o.|
000006E0: 42 4E 45 20 45 52 52 B0  00 15 0F 70 09 4C 44 41  |BNE ERR....p.LDA|
000006F0: 20 50 52 54 42 3A AF 20  23 32 32 33 3A 53 54 41  | PRTB:. #223:STA|
00000700: 20 50 52 54 42 3A B0 41  20 23 33 32 3A 53 54 41  | PRTB:.A #32:STA|
00000710: 20 50 52 54 42 00 24 0F  72 09 44 45 58 3A 42 4E  | PRTB.$.r.DEX:BN|
00000720: 45 20 4C 32 00 30 0F 74  09 4C 44 58 20 23 31 36  |E L2.0.t.LDX #16|
00000730: 00 4F 0F 76 09 4C 33 20  4C 44 41 20 50 52 54 42  |.O.v.L3 LDA PRTB|
00000740: 3A AF 20 23 31 36 3A 42  45 51 20 45 52 52 B0 00  |:. #16:BEQ ERR..|
00000750: 7C 0F 78 09 4C 44 41 20  50 52 54 42 3A AF 20 23  ||.x.LDA PRTB:. #|
00000760: 32 32 33 3A 53 54 41 20  50 52 54 42 3A B0 41 20  |223:STA PRTB:.A |
00000770: 23 33 32 3A 53 54 41 20  50 52 54 42 00 8B 0F 7A  |#32:STA PRTB...z|
00000780: 09 44 45 58 3A 42 4E 45  20 4C 33 00 AB 0F 7C 09  |.DEX:BNE L3...|.|
00000790: 4C 44 41 20 50 52 54 42  3A AF 20 23 31 36 3A 42  |LDA PRTB:. #16:B|
000007A0: 4E 45 20 45 52 52 B0 3A  52 54 53 00 CA 0F C4 09  |NE ERR.:RTS.....|
000007B0: 3B 20 53 43 48 52 45 49  42 54 20 41 20 49 4E 20  |; SCHREIBT A IN |
000007C0: 52 45 47 49 53 54 45 52  20 58 00 E8 0F C6 09 97  |REGISTER X......|
000007D0: 20 AF 20 23 31 35 3A 53  54 41 20 57 45 52 54 3A  | . #15:STA WERT:|
000007E0: 4A 53 52 20 52 45 47 58  00 06 10 C8 09 4C 44 41  |JSR REGX.....LDA|
000007F0: 20 50 52 54 42 3A B0 41  20 23 31 39 32 3A 53 54  | PRTB:.A #192:ST|
00000800: 41 20 50 52 54 42 00 1C  10 CA 09 4C 44 41 20 23  |A PRTB.....LDA #|
00000810: 32 33 39 3A 53 54 41 20  44 44 52 42 00 41 10 CC  |239:STA DDRB.A..|
00000820: 09 4C 44 41 20 50 52 54  42 3A AF 20 23 32 34 30  |.LDA PRTB:. #240|
00000830: 3A B0 41 20 57 45 52 54  3A 53 54 41 20 50 52 54  |:.A WERT:STA PRT|
00000840: 42 00 5E 10 CE 09 4C 44  41 20 50 52 54 42 3A AF  |B.^...LDA PRTB:.|
00000850: 20 23 31 39 31 3A 53 54  41 20 50 52 54 42 00 7C  | #191:STA PRTB.||
00000860: 10 D0 09 4C 44 41 20 50  52 54 42 3A B0 41 20 23  |...LDA PRTB:.A #|
00000870: 31 39 32 3A 53 54 41 20  50 52 54 42 00 92 10 D2  |192:STA PRTB....|
00000880: 09 4C 44 41 20 23 32 32  34 3A 53 54 41 20 44 44  |.LDA #224:STA DD|
00000890: 52 42 00 9A 10 D4 09 52  54 53 00 BF 10 B8 0B 54  |RB.....RTS.....T|
000008A0: 49 4D 49 52 51 20 4C 44  41 20 50 4E 54 3A 50 48  |IMIRQ LDA PNT:PH|
000008B0: 41 3A 4C 44 41 20 50 4E  54 AA 31 3A 50 48 41 00  |A:LDA PNT.1:PHA.|
000008C0: EC 10 BA 0B 4C 44 41 20  23 30 3A 53 54 41 20 50  |....LDA #0:STA P|
000008D0: 4E 54 3A 4C 44 41 20 36  34 38 3A 53 54 41 20 50  |NT:LDA 648:STA P|
000008E0: 4E 54 AA 31 3A 4C 44 59  20 23 33 32 00 23 11 BC  |NT.1:LDY #32.#..|
000008F0: 0B 4C 44 41 20 43 49 41  AA 24 42 3A 43 4D 50 20  |.LDA CIA.$B:CMP |
00000900: 23 24 31 32 3A 42 45 51  20 4E 49 4C 3A 43 4D 50  |#$12:BEQ NIL:CMP|
00000910: 20 23 24 38 30 3A 42 43  43 20 41 4D 3A AF 20 23  | #$80:BCC AM:. #|
00000920: 31 32 37 00 53 11 BE 0B  43 4D 50 20 23 24 31 32  |127.S...CMP #$12|
00000930: 3A 42 45 51 20 41 4D 3A  53 45 44 3A 43 4C 43 3A  |:BEQ AM:SED:CLC:|
00000940: 41 44 43 20 23 24 31 32  3A 43 4C 44 3A 42 4E 45  |ADC #$12:CLD:BNE|
00000950: 20 41 4D 00 62 11 C0 0B  4E 49 4C 20 4C 44 41 20  | AM.b...NIL LDA |
00000960: 23 30 00 9D 11 C2 0B 41  4D 20 53 45 43 3A 4A 53  |#0.....AM SEC:JS|
00000970: 52 20 99 3A 4C 44 41 20  43 49 41 AA 24 41 3A 53  |R .:LDA CIA.$A:S|
00000980: 45 43 3A 4A 53 52 20 99  3A 4C 44 41 20 43 49 41  |EC:JSR .:LDA CIA|
00000990: AA 24 39 3A 43 4C 43 3A  4A 53 52 20 99 00 D0 11  |.$9:CLC:JSR ....|
000009A0: C4 0B 4C 44 41 20 43 49  41 AA 24 38 3A 50 4C 41  |..LDA CIA.$8:PLA|
000009B0: 3A 53 54 41 20 50 4E 54  AA 31 3A 50 4C 41 3A 53  |:STA PNT.1:PLA:S|
000009C0: 54 41 20 50 4E 54 3A 4A  4D 50 20 24 45 41 33 31  |TA PNT:JMP $EA31|
000009D0: 00 05 12 C6 0B 99 20 50  48 50 3A 50 48 41 3A AF  |...... PHP:PHA:.|
000009E0: 20 23 24 46 30 3A 4C 53  52 3A 4C 53 52 3A 4C 53  | #$F0:LSR:LSR:LS|
000009F0: 52 3A 4C 53 52 3A B0 41  20 23 34 38 3A 4A 53 52  |R:LSR:.A #48:JSR|
00000A00: 20 50 52 49 31 00 32 12  C8 0B 50 4C 41 3A AF 20  | PRI1.2...PLA:. |
00000A10: 23 31 35 3A B0 41 20 23  34 38 3A 4A 53 52 20 50  |#15:.A #48:JSR P|
00000A20: 52 49 31 3A 50 4C 50 3A  42 43 53 20 44 50 3A 52  |RI1:PLP:BCS DP:R|
00000A30: 54 53 00 41 12 CA 0B 44  50 20 4C 44 41 20 23 35  |TS.A...DP LDA #5|
00000A40: 38 00 72 12 CC 0B 50 52  49 31 20 53 54 41 20 28  |8.r...PRI1 STA (|
00000A50: 50 4E 54 29 2C 59 3A 4C  44 41 20 36 34 36 3A 53  |PNT),Y:LDA 646:S|
00000A60: 54 41 20 35 35 32 39 36  2C 59 3A 49 4E 59 3A 52  |TA 55296,Y:INY:R|
00000A70: 54 53 00 00 00                                    |TS...           |

.......36864......OPT OO.%..... 52000.4.
D.CIA .$DD00.D.F.DDRA .CIA.2.T.H.DDRB .C
IA.3.B.J.PRTA .CIA.R.L.PRTB .CIA.1...N.E
RROUT .$A445...P.ERRPTR .$22...R.PNT .18
1.....JMP ZEITLESEN.M...SEI:JSR 65418:CL
I:RTS...X.ERRT .F "UNABLE TO ACCESS RTC.
..Z.TRY BRK...\.WERT BRK...^.TIME .W. 0,
0,0.5...ZEITLESEN JSR RTCINIT.Q...JSR WA
RT ; UHR ANHALTEN.P...LDX #5:JSR B:. #3:
STA TIME.....LDX #4:JSR B:STA TIME.1....
.LDX #3:JSR B:STA TIME.2.D...LDX #2:JSR 
B:STA TIME.3.....LDX #1:JSR B:STA TIME.4
.....LDX #0:JSR B:STA TIME.5.....JSR WEI
TER ; UHR LAEUFT WEITER.^...LDA CIA.14:.
A #128:STA CIA.14:LDA CIA.15:. #127:STA 
CIA.15.....LDA TIME:ASL:ASL:ASL:ASL:.A T
IME.1:BNE .0:LDA #$92:BNE SET1.T....0 CM
P #$13:BCC SET1:SEC:SED:SBC #$12:CLD:.A 
#128.....SET1 STA CIA.$B.....LDA TIME.2:
ASL:ASL:ASL:ASL:.A TIME.3:STA CIA.$A.P..
.LDA TIME.4:ASL:ASL:ASL:ASL:.A TIME.5:ST
A CIA.$9.F...LDA #0:STA CIA.$8.....SEI:L
DA #.TIMIRQ:LDY #.TIMIRQ:STA $314:STY $3
15:CLI:RTS...$.WART LDA #10:STA TRY...%.
W3 LDX #13:JSR B:.A #1:LDX #13:JSR ....&
.W2 LDX #13:JSR B:. #2:BEQ W1...(.JSR WE
ITER.'.*.DEC TRY:BNE W3.2.,.W1 RTS.`...W
EITER LDX #13:JSR B:. #254:LDX #13:JMP .
.W.L.X .A #48:JMP $FFD2...P.; REGISTER X
 ANFAHREN.B.R.REGX LDA PRTA:.A #4:STA PR
TA:. #251:STA PRTA...T.L1 LDA PRTB:. #16
:BNE ERR....V.TXA:BEQ REACH. .X.LDA PRTB
:. #223:STA PRTB:.A #32:STA PRTB./.Z.DEX
:BNE L1.=...REACH RTS._.4.; PLATINE NICH
T ANGESCHLOSSEN...8.ERR. LDA #.ERRT:STA 
ERRPTR:LDA #.ERRT:JMP ERROUT.....; REGIS
TER X NACH A LESEN.A...B JSR REGX.W...LD
A #224:STA DDRB.....LDA PRTB:. #127:STA 
PRTB... .LDA PRTB:. #15:PHA.)...LDA PRTB
:.A #192:STA PRTB.5...PLA:RTS.N.`.; UHR 
INITIALISIEREN...B.RTCINIT LDA DDRA:.A #
4:STA DDRA:LDA #224:STA DDRB:STA PRTB...
J.LDA PRTA:.A #4:STA PRTA:. #251:STA PRT
A.E.L.LDX #16...N.L2 LDA PRTB:. #16...O.
BNE ERR....P.LDA PRTB:. #223:STA PRTB:.A
 #32:STA PRTB.$.R.DEX:BNE L2.0.T.LDX #16
.O.V.L3 LDA PRTB:. #16:BEQ ERR..|.X.LDA 
PRTB:. #223:STA PRTB:.A #32:STA PRTB...Z
.DEX:BNE L3...|.LDA PRTB:. #16:BNE ERR.:
RTS.J.D.; SCHREIBT A IN REGISTER X...F..
 . #15:STA WERT:JSR REGX...H.LDA PRTB:.A
 #192:STA PRTB...J.LDA #239:STA DDRB.A.L
.LDA PRTB:. #240:.A WERT:STA PRTB.^.N.LD
A PRTB:. #191:STA PRTB.|.P.LDA PRTB:.A #
192:STA PRTB...R.LDA #224:STA DDRB...T.R
TS.....TIMIRQ LDA PNT:PHA:LDA PNT.1:PHA.
....LDA #0:STA PNT:LDA 648:STA PNT.1:LDY
 #32.#...LDA CIA.$B:CMP #$12:BEQ NIL:CMP
 #$80:BCC AM:. #127.S...CMP #$12:BEQ AM:
SED:CLC:ADC #$12:CLD:BNE AM.B...NIL LDA 
#0...B.AM SEC:JSR .:LDA CIA.$A:SEC:JSR .
:LDA CIA.$9:CLC:JSR ..P.D.LDA CIA.$8:PLA
:STA PNT.1:PLA:STA PNT:JMP $EA31...F.. P
HP:PHA:. #$F0:LSR:LSR:LSR:LSR:.A #48:JSR
 PRI1.2.H.PLA:. #15:.A #48:JSR PRI1:PLP:
BCS DP:RTS.A.J.DP LDA #58.R.L.PRI1 STA (
PNT),Y:LDA 646:STA 55296,Y:INY:RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL