10 ;** FILTER MCP **
12 :
16 FILTER LDX TRIGGER    ; STIMME, DIE DEN FILTER MODULIERT, IN X
26 LDA FILTON:BEQ FILT2  ; "FILTER AUS ? JA, DANN ENDE !
28 INC FILTZAE           ; ZEIT FUER RICHTUNGSWECHSEL ERHOEHEN.
30 LDA FILTRI:BNE FILTDW ; JE NACH RICHTUNG VERZWEIGEN...
31 :
32 FILTUP LDA FILTZAE:CMP UPTIME,X  ; "FILTER UP-TIME VORBEI ?
34 BEQ FILTUP2           ; JA, DANN NACH 'FILTUP2'.
36 LDA FFREQ:CLC:ADC LEVELUP,X  ; FILTERFREQUENZ UM 'LEVELUP' ERHOEHEN.
38 LDA WRAP,X:BEQ FILTUP3       ; "UEBERTRAG DER FREQUENZ ERLAUBT ?
39 BCS FILT2                    ; NEIN, DANN [128]E !
40 FILTUP3 STA F[184]Q:JMP FILT2  ; JA, DANN NEUE [184]QUENZ SETZEN UND [128]E.
42 FILTUP2 LDY #1:STY FILTRI    ; RICHTUNG AUF '[138]TERZAEH[195]'...
44 DEY:DEY:STY FILTZAE   ; ...UND DIE ZEIT ZURUECKSETZEN.
46 LDA STARTRI,X         ; JE NACH STARTRICHTUNG TESTEN...
48 BNE FTEST:JMP FILT2   ; ...OB DIE MODULATI[145] NEU GESTART WERDEN SOLL.[128]E.
49 :
50 FILTDW LDA FILTZAE:CMP DWTIME,X  ;  DAS SELBE NOCHMAL...
52 BEQ FILTDW2                      ;  ...ABER FUERS [138]TERZAEH[195] !
54 LDA F[184]Q:SEC:SBC LEVELDW,X
56 LDA WRAP,X:BEQ FILTDW3
58 BCC FILT2                        ; UNTERLAUF DER [184]QUENZ TESTEN
60 FILTDW3 STA F[184]Q:JMP FILT2
62 FILTDW2 LDY #0:STY FILTRI        ; FILTERRICHTUNG AUF 'HOCHZAEH[195]'.
64 DEY:STY FILTZAE
66 LDA STARTRI,X:BNE FILT2
67 :
68 FTEST LDA NOCHMAL,X:BNE FILT2    ; TESTEN, OB MODULATI[145] NOCHMAL.
70 LDA #0:STA FIL[164]N                ; NEIN, DANN FILTER[171]EFFEKT [182]CHALTEN.
72 FILT2 RTS
79 :
80 TRIGGER .BYT 0       ; STIMMEN[171]NR., V[145] DER DIE PARAMETER GENOMMEN WERDEN.
82 FIL[164]N  .BYT 0       ; FILTER[171]EFFEKT AN ([178]1) ODER AUS ([178]0)
84 F[184]Q   .BYT 0       ; FILTER[184]QUENZ (WIRD IN SID GESCHRIEBEN)
86 FILTRI  .BYT 0       ; RICHTUNG DER MODULATI[145].
88 FILTZAE .BYT 0       ; ZAEHLER FUER DIE DAUER EINER SCHWINGUNG.
90 UPTIME  .BYT 0,0,0   ; DAUER DES 'HOCHZAEH[195]S' (EFFEKT[171]PARAMETER)
92 DWTIME  .BYT 0,0,0   ; DAUER DES '[138]TERZAEH[195]S' (EFFEKT[171]PARAMETER)
94 LEVELUP .BYT 0,0,0   ; STAERKE DER MODULATI[145] BEI 'HOCH'   (PARAM.)
96 LEVELDW .BYT 0,0,0   ; STAERKE DER MODULATI[145] BEI '[138]TER' (PARAM.)
98 WRAP    .BYT 0,0,0   ; UEBERTRAG ERLAUBT ([178]0) ODER NICHT ([178]1) (PARAM.)
100 STARTRI .BYT 0,0,0  ; RICHTUNG, BEI DER GESTARTET WIRD (HOCH ODER [138]TER)
102 NOCHMAL .BYT 0,0,0  ; WIEDERHOLUNG EIN[173]AUS.
104 :