home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
music-switch.src
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
53 lines
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