10 SYS36864
20 .OPT OO
30 *= $C800
100 CIA =$DD00
102 DDRA =CIA+2
104 DDRB =CIA+3
106 PRTA =CIA
108 PRTB =CIA+1
110 ERROUT =$A445
112 ERRPTR =$22
116 NAMEL =$B7
118 NAMEP =$BB
120 STROUT =$AB1E
122 OLDSAVE =$F5ED
124 SAVEV =$332
126 GA =$BA
128 SETPAR =$FFBA
130 OPEN =$FFC0
132 CLOSE =OPEN+3
134 RD1 =53266
136 RD2 =162
138 GETX =$B7F1
500 JMP SWON
502 JMP SWOFF
600 ERRT .ASC "UNABLE TO ACCESS RT[195]
610 HI .[198] "AUTO-SAVE EINGESCHALTET":.BYT 13,0
620 TS .[198] "AUTO-SAVE ABGESCHALTET ":.BYT 13,0
630 FI[195] .W[176] 0,0,0,0,0,0,0,0
632 .[198] ",U,W
706 BUC1 BRK
708 BUC2 BRK
710 ART BRK
716 XMEM BRK
718 YMEM BRK
720 DIFFE BRK
722 SD .BYT 123
800 AT1 .BYT 20,0,13,141,148,34,160:.ASC "*=,?:
801 ET1 [178][172]
1100 MAKEN LDY #15:LDA #32
1102 [156]N STA FI[195],Y:DEY:BPL [156]N:INY
1104 COPN CPY NAMEL:BCS FULN:LDA (NAMEP),Y:STA FI[195],Y:INY:CPY #4:BCC COPN
1106 FULN LDY #5
1108 LDX #7:JSR DAS:LDX #6:JSR DAS:LDX #9:JSR DAS:LDX #8:JSR DAS
1110 LDX #11:JSR DAS:LDX #10:JSR DAS:INY
1112 LDX #5:JSR DAS:LDX #4:JSR DAS:LDX #3:JSR DAS:LDX #2:JSR DAS
1114 LDA #20:STA NAMEL:LDA #[179]FI[195]:LDY #[177]FI[195]:STA NAMEP:STY NAMEP[170]1
1116 LDX GA:LDA #57:LDY #8:JSR SETPAR:JSR [159]:LDA #57:JSR [160]
1117 LDA D[139]FE:BNE STRICH:RTS
1118 STRICH LDA #"-":LDX #13
1120 SPI STA FI[195],X:DEX:BPL SPI
1122 JSR [187]:STA FI[195][170]14:JSR [187]:STA FI[195][170]15:JSR [159]:LDA #57:JMP [160]
1150 [187] LDA RD1:ADC SD:E[176] RD2:ASL:ADC #0:STA SD:LDX #ET1[171]AT1[171]1
1152 ATTN CMP AT1,X:BEQ [187]:DEX:BPL ATTN:RTS
1200 DAS JSR [194]:[176]A #48:STA FI[195],Y:INY:RTS
1300 SWOFF LDA #[179]OLD[148]:LDY #[177]OLD[148]:STA [148]V:STY [148]V[170]1
1302 LDA #[179]TS:LDY #[177]TS:JMP STROUT
1310 SW[145] JSR [161]X:STX D[139]FE:JSR INITRTC
1312 LDA #[179]NEU[148]:LDY #[177]NEU[148]:STA [148]V:STY [148]V[170]1
1314 LDA #[179]HI:LDY #[177]HI:JMP STROUT
1400 NEU[148] JSR OLD[148]
1402 LDA GA:CMP #8:BCS D[145]EU:RTS
1404 D[145]EU JMP MAKEN
2000 ; REGISTER X ANFAHREN
2002 REGX LDA PRTA:[176]A #4:STA PRTA:[175] #251:STA PRTA ; RESET
2004 L1 LDA PRTB:[175] #16:BNE ERR[176] ; Q5 DARF NICHT 1 SEIN
2006 TXA:BEQ REACH ; REGISTER ERREICHT
2008 LDA PRTB:[175] #223:STA PRTB:[176]A #32:STA PRTB ; CLOCK
2010 DEX:BNE L1 ; X MAL CLOCKEN
2012 REACH RTS
2100 ; PLATINE NICHT ANGESCHLOSSEN
2104 ERR[176] LDA #[179]ERRT:STA ERRPTR:LDA #[177]ERRT:JMP ERROUT
2200 ; REGISTER X NACH A LESEN
2202 [194] JSR REGX ; X ANFAHREN
2204 LDA #224:STA DDRB ; P[176]T AUF EINGABE
2206 LDA PRTB:[175] #127:STA PRTB ; [135][171]SIGNAL
2208 LDA PRTB:[175] #15:PHA ; P[176]T LESEN
2210 LDA PRTB:[176]A #192:STA PRTB ; [135] & WRITE AUS
2212 PLA:RTS
2300 ; CIA INITIALISIEREN
2302 CIAINIT LDA DDRA:[176]A #4:STA DDRA ; RESET AUSGANG
2304 LDA #224:STA DDRB ; P[176]T AUF EINGANG
2306 STA PRTB ; [171]CLK, [171]WR, [171]RD AUS
2308 RTS
2400 ; UHR INITIALISIEREN
2402 INITRTC JSR CIAINIT
2404 ; TEST, OB RTC ANGESCHLOSSEN
2410 LDA PRTA:[176]A #4:STA PRTA:[175] #251:STA PRTA ; RESET
2412 LDX #16 ; 16 MAL CLOCKEN
2414 L2 LDA PRTB:[175] #16
2415 BNE ERR[176] ; Q5 DARF NICHT 1 SEIN
2416 LDA PRTB:[175] #223:STA PRTB:[176]A #32:STA PRTB ; CLOCK
2418 DEX:BNE L2
2420 LDX #16 ; 16 MAL CLOCKEN
2422 L3 LDA PRTB:[175] #16:BEQ ERR[176] ; Q5 MUSS 1 SEIN
2424 LDA PRTB:[175] #223:STA PRTB:[176]A #32:STA PRTB ; CLOCK
2426 DEX:BNE L3
2428 LDA PRTB:[175] #16:BEQ NUDEN:JMP ERR[176]; Q5 DARF NICHT 1 SEIN
2430 ; UHR HOCHFAHREN
2432 NUDEN LDA #0:LDX #13:JSR [151] ; REGISTER 13 LOESCHEN
2434 LDA #1:LDX #14:JSR [151] ; REGISTER 14 RUECKSETZEN
2436 LDA #4:LDX #15          ; REGISTER 15 UHR ANFAHREN 24 STD MODUS
2500 ; SCHREIBT A IN REGISTER X
2502 [151] [175] #15:STA TEP[170]1:JSR REGX ; X ANFAHREN
2504 LDA PRTB:[176]A #192:STA PRTB ; [135] & WRITE AUS
2506 LDA #239:STA DDRB ; P[176]T AUF AUSGANG
2508 LDA PRTB:[175] #240
2509 TEP [176]A #0:STA PRTB ; A AUF P[176]T
2510 LDA PRTB:[175] #191:STA PRTB ; WRITE
2512 LDA PRTB:[176]A #192:STA PRTB ; [135] & WRITE AUS
2514 LDA #224:STA DDRB ; P[176]T AUF EINGANG
2516 RTS