home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 July / 64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64 / listing5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  30 lines
  1. 10 sys9*4096:.opt oo          ; assembler aufrufen
  2. 11 :
  3. 12 s = 54272                  ; basisadresse des sid
  4. 15 :
  5. 20 jsr $b7f1:stx stimme       ; nummer der stimme in 'stimme' schreiben.
  6. 21 :
  7. 22 jsr $b7f1:stx tonlo        ; low-byte der tonhoehe und...
  8. 24 jsr $b7f1:stx tonhi        ; ...high-byte holen und merken.
  9. 26 :
  10. 28 jsr $b7f1:stx pulselo      ; low-, und high-byte des...
  11. 30 jsr $b7f1:stx pulsehi      ; ...tastverhaeltnisses holen und merken.
  12. 32 :
  13. 34 ldy stimme:ldx register,y  ; je nach stimmen-nr. 0, 7 oder 14 ins x-register
  14. 36 lda tonlo:sta s+0,x        ; low-byte der tonhoehe in den sid
  15. 37 lda tonhi:sta s+1,x        ; high-byte der tonhoehe in den sid
  16. 38 lda pulselo:sta s+2,x      ; pulse-low...
  17. 39 lda pulsehi:sta s+3,x      ; ...und high-byte ebenfalls !
  18. 40 :
  19. 42 rts                        ; ...und zurueck zum basic.
  20. 43 :
  21. 44 :
  22. 49 register .byt 0,7,14       ; werte, die zu den registern addiert werden
  23. 50 :
  24. 51 stimme .byt 0              ; zwischenspeicher fuer die stimme...
  25. 52 tonlo .byt 0               ; ...fuer die tonhoehe (low)...
  26. 53 tonhi .byt 0               ; ...und high...
  27. 54 pulselo .byt 0             ; ...und fuer das tastverhaeltnis low...
  28. 55 pulsehi .byt 0             ; ...und high-byte.
  29. 56 :
  30.