home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 July / 64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64 / listing4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  46 lines
  1. 10 ;** filter mcp **
  2. 12 :
  3. 16 filter ldx trigger    ; stimme, die den filter moduliert, in x
  4. 26 lda filton:beq filt2  ; "filter aus ? ja, dann ende !
  5. 28 inc filtzae           ; zeit fuer richtungswechsel erhoehen.
  6. 30 lda filtri:bne filtdw ; je nach richtung verzweigen...
  7. 31 :
  8. 32 filtup lda filtzae:cmp uptime,x  ; "filter up-time vorbei ?
  9. 34 beq filtup2           ; ja, dann nach 'filtup2'.
  10. 36 lda ffreq:clc:adc levelup,x  ; filterfrequenz um 'levelup' erhoehen.
  11. 38 lda wrap,x:beq filtup3       ; "uebertrag der frequenz erlaubt ?
  12. 39 bcs filt2                    ; nein, dann [128]e !
  13. 40 filtup3 sta f[184]q:jmp filt2  ; ja, dann neue [184]quenz setzen und [128]e.
  14. 42 filtup2 ldy #1:sty filtri    ; richtung auf '[138]terzaeh[195]'...
  15. 44 dey:dey:sty filtzae   ; ...und die zeit zuruecksetzen.
  16. 46 lda startri,x         ; je nach startrichtung testen...
  17. 48 bne ftest:jmp filt2   ; ...ob die modulati[145] neu gestart werden soll.[128]e.
  18. 49 :
  19. 50 filtdw lda filtzae:cmp dwtime,x  ;  das selbe nochmal...
  20. 52 beq filtdw2                      ;  ...aber fuers [138]terzaeh[195] !
  21. 54 lda f[184]q:sec:sbc leveldw,x
  22. 56 lda wrap,x:beq filtdw3
  23. 58 bcc filt2                        ; unterlauf der [184]quenz testen
  24. 60 filtdw3 sta f[184]q:jmp filt2
  25. 62 filtdw2 ldy #0:sty filtri        ; filterrichtung auf 'hochzaeh[195]'.
  26. 64 dey:sty filtzae
  27. 66 lda startri,x:bne filt2
  28. 67 :
  29. 68 ftest lda nochmal,x:bne filt2    ; testen, ob modulati[145] nochmal.
  30. 70 lda #0:sta fil[164]n                ; nein, dann filter[171]effekt [182]chalten.
  31. 72 filt2 rts
  32. 79 :
  33. 80 trigger .byt 0       ; stimmen[171]nr., v[145] der die parameter genommen werden.
  34. 82 fil[164]n  .byt 0       ; filter[171]effekt an ([178]1) oder aus ([178]0)
  35. 84 f[184]q   .byt 0       ; filter[184]quenz (wird in sid geschrieben)
  36. 86 filtri  .byt 0       ; richtung der modulati[145].
  37. 88 filtzae .byt 0       ; zaehler fuer die dauer einer schwingung.
  38. 90 uptime  .byt 0,0,0   ; dauer des 'hochzaeh[195]s' (effekt[171]parameter)
  39. 92 dwtime  .byt 0,0,0   ; dauer des '[138]terzaeh[195]s' (effekt[171]parameter)
  40. 94 levelup .byt 0,0,0   ; staerke der modulati[145] bei 'hoch'   (param.)
  41. 96 leveldw .byt 0,0,0   ; staerke der modulati[145] bei '[138]ter' (param.)
  42. 98 wrap    .byt 0,0,0   ; uebertrag erlaubt ([178]0) oder nicht ([178]1) (param.)
  43. 100 startri .byt 0,0,0  ; richtung, bei der gestartet wird (hoch oder [138]ter)
  44. 102 nochmal .byt 0,0,0  ; wiederholung ein[173]aus.
  45. 104 :
  46.