home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / music-switch.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  53 lines
  1. 100 (null)
  2. 110 .OPT OO
  3. 120 *= $033C    ;ANFANGSADRESSE
  4. 130 ;
  5. 140 ;
  6. 150 ;
  7. 160 JSR $AEFD   ;AUF KOMMA PRUEFEN
  8. 170 JSR $B79E   ;WERT NACH X HOLEN
  9. 180 TXA         ;WERT IN ACCU
  10. 190 SEI         ;INTERRUPT SPERREN
  11. 200 ;
  12. 210 ;
  13. 220 PHA         ;ACCU AUF STACK
  14. 230 LDA #$2C    ;WERT FUER KOMMA
  15. 240 LDY #$00
  16. 250 CMP ($7A),Y ;AUF KOMMA PRUEFEN
  17. 260 BEQ STEP    ;WENN JA, DANN MEHR ALS 1 PARAMETER
  18. 270 START PLA   ;ACCU VOM STACK
  19. 280 CLI         ;INTERRUPT FREIGEBEN
  20. 290 CMP #$01    ;1 = FORTSETZUNG
  21. 300 BEQ EIN     ;SPRUNG ZUR FORTSETZUNG
  22. 310 CMP #$02    ;2 = NEUSTART
  23. 320 BEQ NEU     ;SPRUNG ZUM NEUSTART
  24. 330 CMP #$00    ;0 = AUSSCHALTEN
  25. 340 BEQ AUS     ;SPRUNG ZU AUS
  26. 350 RTS
  27. 360 AUS LDA #$EA  ; AUSSCHALTEN
  28. 370 ;
  29. 380 STA $C014
  30. 390 LDA #$31
  31. 400 STA $C019
  32. 410 JSR $C000
  33. 420 LDA #$00
  34. 430 STA $D418
  35. 440 RTS
  36. 450 EIN LDA #$C0  ; EINSCHALTEN
  37. 460 STA $C014
  38. 470 LDA #$1F
  39. 480 STA $C019
  40. 490 JMP $C000
  41. 500 NEU LDA #$01  ; NEUSTART
  42. 510 STA $C00F
  43. 520 JMP EIN
  44. 530 ;            ;STEP VON/BIS
  45. 540 STEP JSR $0073   ;NAECHSTES ZEICHEN
  46. 550 JSR $B79E   ;WERT NACH X HOLEN
  47. 560 PLA         ;ACCU VOM STACK
  48. 570 STA $C011   ;NACH $C011 SPEICHERN
  49. 580 STX $C010   ;X NACH $C010 SPEICHERN
  50. 590 CLI         ;INTERRUPT FREIGEBEN
  51. 600 JMP NEU     ;NEUSTART
  52. 610 END
  53.