home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / music-switch.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.