100 (null)
110 .OPT OO
120 *= $033C    ;ANFANGSADRESSE
130 ;
140 ;
150 ;
160 JSR $AEFD   ;AUF KOMMA PRUEFEN
170 JSR $B79E   ;WERT NACH X HOLEN
180 TXA         ;WERT IN ACCU
190 SEI         ;INTERRUPT SPERREN
200 ;
210 ;
220 PHA         ;ACCU AUF STACK
230 LDA #$2C    ;WERT FUER KOMMA
240 LDY #$00
250 CMP ($7A),Y ;AUF KOMMA PRUEFEN
260 BEQ STEP    ;WENN JA, DANN MEHR ALS 1 PARAMETER
270 START PLA   ;ACCU VOM STACK
280 CLI         ;INTERRUPT FREIGEBEN
290 CMP #$01    ;1 = FORTSETZUNG
300 BEQ EIN     ;SPRUNG ZUR FORTSETZUNG
310 CMP #$02    ;2 = NEUSTART
320 BEQ NEU     ;SPRUNG ZUM NEUSTART
330 CMP #$00    ;0 = AUSSCHALTEN
340 BEQ AUS     ;SPRUNG ZU AUS
350 RTS
360 AUS LDA #$EA  ; AUSSCHALTEN
370 ;
380 STA $C014
390 LDA #$31
400 STA $C019
410 JSR $C000
420 LDA #$00
430 STA $D418
440 RTS
450 EIN LDA #$C0  ; EINSCHALTEN
460 STA $C014
470 LDA #$1F
480 STA $C019
490 JMP $C000
500 NEU LDA #$01  ; NEUSTART
510 STA $C00F
520 JMP EIN
530 ;            ;STEP VON/BIS
540 STEP JSR $0073   ;NAECHSTES ZEICHEN
550 JSR $B79E   ;WERT NACH X HOLEN
560 PLA         ;ACCU VOM STACK
570 STA $C011   ;NACH $C011 SPEICHERN
580 STX $C010   ;X NACH $C010 SPEICHERN
590 CLI         ;INTERRUPT FREIGEBEN
600 JMP NEU     ;NEUSTART
610 END