LISTING4
FILE INFORMATION
FILENAME(S): LISTING4
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
892638f9ae5d96ff8a594d81bdb453b2a459b4ef4c6f3770d313a8e3778823b2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10307 SEITE A | LISTING4 | PRG | C64er | 5 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 3B AC AC 20 46 49 4C 54 45 52 |......;.. FILTER| 00000010: 20 4D 43 50 20 AC AC 00 1D 08 0C 00 3A 00 60 08 | MCP .......:.`.| 00000020: 10 00 46 49 4C 54 45 52 20 4C 44 58 20 54 52 49 |..FILTER LDX TRI| 00000030: 47 47 45 52 20 20 20 20 3B 20 53 54 49 4D 4D 45 |GGER ; STIMME| 00000040: 2C 20 44 49 45 20 44 45 4E 20 46 49 4C 54 45 52 |, DIE DEN FILTER| 00000050: 20 4D 4F 44 55 4C 49 45 52 54 2C 20 49 4E 20 58 | MODULIERT, IN X| 00000060: 00 99 08 1A 00 4C 44 41 20 46 49 4C A4 4E 3A 42 |.....LDA FIL.N:B| 00000070: 45 51 20 46 49 4C 54 32 20 20 3B 20 22 46 49 4C |EQ FILT2 ; "FIL| 00000080: 54 45 52 20 41 55 53 20 3F 20 4A 41 2C 20 44 41 |TER AUS ? JA, DA| 00000090: 4E 4E 20 45 4E 44 45 20 21 00 DA 08 1C 00 49 4E |NN ENDE !.....IN| 000000A0: 43 20 46 49 4C 54 5A 41 45 20 20 20 20 20 20 20 |C FILTZAE | 000000B0: 20 20 20 20 3B 20 5A 45 49 54 20 46 55 45 52 20 | ; ZEIT FUER | 000000C0: 52 49 43 48 54 55 4E 47 53 57 45 43 48 53 45 4C |RICHTUNGSWECHSEL| 000000D0: 20 45 52 48 4F 45 48 45 4E 2E 00 15 09 1E 00 4C | ERHOEHEN......L| 000000E0: 44 41 20 46 49 4C 54 52 49 3A 42 4E 45 20 46 49 |DA FILTRI:BNE FI| 000000F0: 4C 54 44 57 20 3B 20 4A 45 20 4E 41 43 48 20 52 |LTDW ; JE NACH R| 00000100: 49 43 48 54 55 4E 47 20 56 45 52 5A 57 45 49 47 |ICHTUNG VERZWEIG| 00000110: 45 4E 2E 2E 2E 00 1B 09 1F 00 3A 00 5B 09 20 00 |EN........:.[. .| 00000120: 46 49 4C 54 55 50 20 4C 44 41 20 46 49 4C 54 5A |FILTUP LDA FILTZ| 00000130: 41 45 3A 43 4D 50 20 55 50 54 49 4D 45 2C 58 20 |AE:CMP UPTIME,X | 00000140: 20 3B 20 22 46 49 4C 54 45 52 20 55 50 2D 54 49 | ; "FILTER UP-TI| 00000150: 4D 45 20 56 4F 52 42 45 49 20 3F 00 90 09 22 00 |ME VORBEI ?...".| 00000160: 42 45 51 20 46 49 4C 54 55 50 32 20 20 20 20 20 |BEQ FILTUP2 | 00000170: 20 20 20 20 20 20 3B 20 4A 41 2C 20 44 41 4E 4E | ; JA, DANN| 00000180: 20 4E 41 43 48 20 27 46 49 4C 54 55 50 32 27 2E | NACH 'FILTUP2'.| 00000190: 00 D5 09 24 00 4C 44 41 20 46 B8 51 3A 43 4C 43 |...$.LDA F.Q:CLC| 000001A0: 3A 41 44 43 20 4C 45 56 45 4C 55 50 2C 58 20 20 |:ADC LEVELUP,X | 000001B0: 3B 20 46 49 4C 54 45 52 B8 51 55 45 4E 5A 20 55 |; FILTER.QUENZ U| 000001C0: 4D 20 27 4C 45 56 45 4C 55 50 27 20 45 52 48 4F |M 'LEVELUP' ERHO| 000001D0: 45 48 45 4E 2E 00 1A 0A 26 00 4C 44 41 20 57 52 |EHEN....&.LDA WR| 000001E0: 41 50 2C 58 3A 42 45 51 20 46 49 4C 54 55 50 33 |AP,X:BEQ FILTUP3| 000001F0: 20 20 20 20 20 20 20 3B 20 22 55 45 42 45 52 54 | ; "UEBERT| 00000200: 52 41 47 20 44 45 52 20 46 52 45 51 55 45 4E 5A |RAG DER FREQUENZ| 00000210: 20 45 52 4C 41 55 42 54 20 3F 00 4D 0A 27 00 42 | ERLAUBT ?.M.'.B| 00000220: 43 53 20 46 49 4C 54 32 20 20 20 20 20 20 20 20 |CS FILT2 | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 4E 45 | ; NE| 00000240: 49 4E 2C 20 44 41 4E 4E 20 80 45 20 21 00 92 0A |IN, DANN .E !...| 00000250: 28 00 46 49 4C 54 55 50 33 20 53 54 41 20 46 B8 |(.FILTUP3 STA F.| 00000260: 51 3A 4A 4D 50 20 46 49 4C 54 32 20 20 3B 20 4A |Q:JMP FILT2 ; J| 00000270: 41 2C 20 44 41 4E 4E 20 4E 45 55 45 20 B8 51 55 |A, DANN NEUE .QU| 00000280: 45 4E 5A 20 53 45 54 5A 45 4E 20 55 4E 44 20 80 |ENZ SETZEN UND .| 00000290: 45 2E 00 D1 0A 2A 00 46 49 4C 54 55 50 32 20 4C |E....*.FILTUP2 L| 000002A0: 44 59 20 23 31 3A 53 54 59 20 46 49 4C 54 52 49 |DY #1:STY FILTRI| 000002B0: 20 20 20 20 3B 20 52 49 43 48 54 55 4E 47 20 41 | ; RICHTUNG A| 000002C0: 55 46 20 27 8A 54 45 52 5A 41 45 48 C3 27 2E 2E |UF '.TERZAEH.'..| 000002D0: 2E 00 0C 0B 2C 00 44 45 59 3A 44 45 59 3A 53 54 |....,.DEY:DEY:ST| 000002E0: 59 20 46 49 4C 54 5A 41 45 20 20 20 3B 20 2E 2E |Y FILTZAE ; ..| 000002F0: 2E 55 4E 44 20 44 49 45 20 5A 45 49 54 20 5A 55 |.UND DIE ZEIT ZU| 00000300: 52 55 45 43 4B 53 45 54 5A 45 4E 2E 00 48 0B 2E |RUECKSETZEN..H..| 00000310: 00 4C 44 41 20 53 54 41 52 54 52 49 2C 58 20 20 |.LDA STARTRI,X | 00000320: 20 20 20 20 20 20 20 3B 20 4A 45 20 4E 41 43 48 | ; JE NACH| 00000330: 20 53 54 41 52 54 52 49 43 48 54 55 4E 47 20 54 | STARTRICHTUNG T| 00000340: 45 53 54 45 4E 2E 2E 2E 00 94 0B 30 00 42 4E 45 |ESTEN......0.BNE| 00000350: 20 46 54 45 53 54 3A 4A 4D 50 20 46 49 4C 54 32 | FTEST:JMP FILT2| 00000360: 20 20 20 3B 20 2E 2E 2E 4F 42 20 44 49 45 20 4D | ; ...OB DIE M| 00000370: 4F 44 55 4C 41 54 49 91 20 4E 45 55 20 47 45 53 |ODULATI. NEU GES| 00000380: 54 41 52 54 20 57 45 52 44 45 4E 20 53 4F 4C 4C |TART WERDEN SOLL| 00000390: 2E 80 45 2E 00 9A 0B 31 00 3A 00 D7 0B 32 00 46 |..E....1.:...2.F| 000003A0: 49 4C 54 44 57 20 4C 44 41 20 46 49 4C 54 5A 41 |ILTDW LDA FILTZA| 000003B0: 45 3A 43 4D 50 20 44 57 54 49 4D 45 2C 58 20 20 |E:CMP DWTIME,X | 000003C0: 3B 20 20 44 41 53 20 53 45 4C 42 45 20 4E 4F 43 |; DAS SELBE NOC| 000003D0: 48 4D 41 4C 2E 2E 2E 00 19 0C 34 00 42 45 51 20 |HMAL......4.BEQ | 000003E0: 46 49 4C 54 44 57 32 20 20 20 20 20 20 20 20 20 |FILTDW2 | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 20 | ; | 00000400: 2E 2E 2E 41 42 45 52 20 46 55 45 52 53 20 8A 54 |...ABER FUERS .T| 00000410: 45 52 5A 41 45 48 C3 20 21 00 37 0C 36 00 4C 44 |ERZAEH. !.7.6.LD| 00000420: 41 20 46 B8 51 3A 53 45 43 3A 53 42 43 20 4C 45 |A F.Q:SEC:SBC LE| 00000430: 56 45 4C 44 57 2C 58 00 52 0C 38 00 4C 44 41 20 |VELDW,X.R.8.LDA | 00000440: 57 52 41 50 2C 58 3A 42 45 51 20 46 49 4C 54 44 |WRAP,X:BEQ FILTD| 00000450: 57 33 00 95 0C 3A 00 42 43 43 20 46 49 4C 54 32 |W3...:.BCC FILT2| 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000470: 20 20 20 20 20 20 20 20 3B 20 55 4E 54 45 52 4C | ; UNTERL| 00000480: 41 55 46 20 44 45 52 20 B8 51 55 45 4E 5A 20 54 |AUF DER .QUENZ T| 00000490: 45 53 54 45 4E 00 B3 0C 3C 00 46 49 4C 54 44 57 |ESTEN...<.FILTDW| 000004A0: 33 20 53 54 41 20 46 B8 51 3A 4A 4D 50 20 46 49 |3 STA F.Q:JMP FI| 000004B0: 4C 54 32 00 FA 0C 3E 00 46 49 4C 54 44 57 32 20 |LT2...>.FILTDW2 | 000004C0: 4C 44 59 20 23 30 3A 53 54 59 20 46 49 4C 54 52 |LDY #0:STY FILTR| 000004D0: 49 20 20 20 20 20 20 20 20 3B 20 46 49 4C 54 45 |I ; FILTE| 000004E0: 52 52 49 43 48 54 55 4E 47 20 41 55 46 20 27 48 |RRICHTUNG AUF 'H| 000004F0: 4F 43 48 5A 41 45 48 C3 27 2E 00 0E 0D 40 00 44 |OCHZAEH.'....@.D| 00000500: 45 59 3A 53 54 59 20 46 49 4C 54 5A 41 45 00 2A |EY:STY FILTZAE.*| 00000510: 0D 42 00 4C 44 41 20 53 54 41 52 54 52 49 2C 58 |.B.LDA STARTRI,X| 00000520: 3A 42 4E 45 20 46 49 4C 54 32 00 30 0D 43 00 3A |:BNE FILT2.0.C.:| 00000530: 00 75 0D 44 00 46 54 45 53 54 20 4C 44 41 20 4E |.u.D.FTEST LDA N| 00000540: 4F 43 48 4D 41 4C 2C 58 3A 42 4E 45 20 46 49 4C |OCHMAL,X:BNE FIL| 00000550: 54 32 20 20 20 20 3B 20 54 45 53 54 45 4E 2C 20 |T2 ; TESTEN, | 00000560: 4F 42 20 4D 4F 44 55 4C 41 54 49 91 20 4E 4F 43 |OB MODULATI. NOC| 00000570: 48 4D 41 4C 2E 00 BE 0D 46 00 4C 44 41 20 23 30 |HMAL....F.LDA #0| 00000580: 3A 53 54 41 20 46 49 4C A4 4E 20 20 20 20 20 20 |:STA FIL.N | 00000590: 20 20 20 20 20 20 20 20 20 20 3B 20 4E 45 49 4E | ; NEIN| 000005A0: 2C 20 44 41 4E 4E 20 46 49 4C 54 45 52 AB 45 46 |, DANN FILTER.EF| 000005B0: 46 45 4B 54 20 B6 43 48 41 4C 54 45 4E 2E 00 CC |FEKT .CHALTEN...| 000005C0: 0D 48 00 46 49 4C 54 32 20 52 54 53 00 D2 0D 4F |.H.FILT2 RTS...O| 000005D0: 00 3A 00 20 0E 50 00 54 52 49 47 47 45 52 20 2E |.:. .P.TRIGGER .| 000005E0: 42 59 54 20 30 20 20 20 20 20 20 20 3B 20 53 54 |BYT 0 ; ST| 000005F0: 49 4D 4D 45 4E AB 4E 52 2E 2C 20 56 91 20 44 45 |IMMEN.NR., V. DE| 00000600: 52 20 44 49 45 20 50 41 52 41 4D 45 54 45 52 20 |R DIE PARAMETER | 00000610: 47 45 4E 4F 4D 4D 45 4E 20 57 45 52 44 45 4E 2E |GENOMMEN WERDEN.| 00000620: 00 5E 0E 52 00 46 49 4C A4 4E 20 20 2E 42 59 54 |.^.R.FIL.N .BYT| 00000630: 20 30 20 20 20 20 20 20 20 3B 20 46 49 4C 54 45 | 0 ; FILTE| 00000640: 52 AB 45 46 46 45 4B 54 20 41 4E 20 28 B2 31 29 |R.EFFEKT AN (.1)| 00000650: 20 4F 44 45 52 20 41 55 53 20 28 B2 30 29 00 9E | ODER AUS (.0)..| 00000660: 0E 54 00 46 B8 51 20 20 20 2E 42 59 54 20 30 20 |.T.F.Q .BYT 0 | 00000670: 20 20 20 20 20 20 3B 20 46 49 4C 54 45 52 B8 51 | ; FILTER.Q| 00000680: 55 45 4E 5A 20 28 57 49 52 44 20 49 4E 20 53 49 |UENZ (WIRD IN SI| 00000690: 44 20 47 45 53 43 48 52 49 45 42 45 4E 29 00 D1 |D GESCHRIEBEN)..| 000006A0: 0E 56 00 46 49 4C 54 52 49 20 20 2E 42 59 54 20 |.V.FILTRI .BYT | 000006B0: 30 20 20 20 20 20 20 20 3B 20 52 49 43 48 54 55 |0 ; RICHTU| 000006C0: 4E 47 20 44 45 52 20 4D 4F 44 55 4C 41 54 49 91 |NG DER MODULATI.| 000006D0: 2E 00 15 0F 58 00 46 49 4C 54 5A 41 45 20 2E 42 |....X.FILTZAE .B| 000006E0: 59 54 20 30 20 20 20 20 20 20 20 3B 20 5A 41 45 |YT 0 ; ZAE| 000006F0: 48 4C 45 52 20 46 55 45 52 20 44 49 45 20 44 41 |HLER FUER DIE DA| 00000700: 55 45 52 20 45 49 4E 45 52 20 53 43 48 57 49 4E |UER EINER SCHWIN| 00000710: 47 55 4E 47 2E 00 5A 0F 5A 00 55 50 54 49 4D 45 |GUNG..Z.Z.UPTIME| 00000720: 20 20 2E 42 59 54 20 30 2C 30 2C 30 20 20 20 3B | .BYT 0,0,0 ;| 00000730: 20 44 41 55 45 52 20 44 45 53 20 27 48 4F 43 48 | DAUER DES 'HOCH| 00000740: 5A 41 45 48 C3 53 27 20 28 45 46 46 45 4B 54 AB |ZAEH.S' (EFFEKT.| 00000750: 50 41 52 41 4D 45 54 45 52 29 00 9F 0F 5C 00 44 |PARAMETER)...\.D| 00000760: 57 54 49 4D 45 20 20 2E 42 59 54 20 30 2C 30 2C |WTIME .BYT 0,0,| 00000770: 30 20 20 20 3B 20 44 41 55 45 52 20 44 45 53 20 |0 ; DAUER DES | 00000780: 27 8A 54 45 52 5A 41 45 48 C3 53 27 20 28 45 46 |'.TERZAEH.S' (EF| 00000790: 46 45 4B 54 AB 50 41 52 41 4D 45 54 45 52 29 00 |FEKT.PARAMETER).| 000007A0: E6 0F 5E 00 4C 45 56 45 4C 55 50 20 2E 42 59 54 |..^.LEVELUP .BYT| 000007B0: 20 30 2C 30 2C 30 20 20 20 3B 20 53 54 41 45 52 | 0,0,0 ; STAER| 000007C0: 4B 45 20 44 45 52 20 4D 4F 44 55 4C 41 54 49 91 |KE DER MODULATI.| 000007D0: 20 42 45 49 20 27 48 4F 43 48 27 20 20 20 28 50 | BEI 'HOCH' (P| 000007E0: 41 52 41 4D 2E 29 00 2B 10 60 00 4C 45 56 45 4C |ARAM.).+.`.LEVEL| 000007F0: 44 57 20 2E 42 59 54 20 30 2C 30 2C 30 20 20 20 |DW .BYT 0,0,0 | 00000800: 3B 20 53 54 41 45 52 4B 45 20 44 45 52 20 4D 4F |; STAERKE DER MO| 00000810: 44 55 4C 41 54 49 91 20 42 45 49 20 27 8A 54 45 |DULATI. BEI '.TE| 00000820: 52 27 20 28 50 41 52 41 4D 2E 29 00 76 10 62 00 |R' (PARAM.).v.b.| 00000830: 57 52 41 50 20 20 20 20 2E 42 59 54 20 30 2C 30 |WRAP .BYT 0,0| 00000840: 2C 30 20 20 20 3B 20 55 45 42 45 52 54 52 41 47 |,0 ; UEBERTRAG| 00000850: 20 45 52 4C 41 55 42 54 20 28 B2 30 29 20 4F 44 | ERLAUBT (.0) OD| 00000860: 45 52 20 4E 49 43 48 54 20 28 B2 31 29 20 28 50 |ER NICHT (.1) (P| 00000870: 41 52 41 4D 2E 29 00 C2 10 64 00 53 54 41 52 54 |ARAM.)...d.START| 00000880: 52 49 20 2E 42 59 54 20 30 2C 30 2C 30 20 20 3B |RI .BYT 0,0,0 ;| 00000890: 20 52 49 43 48 54 55 4E 47 2C 20 42 45 49 20 44 | RICHTUNG, BEI D| 000008A0: 45 52 20 47 45 53 54 41 52 54 45 54 20 57 49 52 |ER GESTARTET WIR| 000008B0: 44 20 28 48 4F 43 48 20 4F 44 45 52 20 8A 54 45 |D (HOCH ODER .TE| 000008C0: 52 29 00 F2 10 66 00 4E 4F 43 48 4D 41 4C 20 2E |R)...f.NOCHMAL .| 000008D0: 42 59 54 20 30 2C 30 2C 30 20 20 3B 20 57 49 45 |BYT 0,0,0 ; WIE| 000008E0: 44 45 52 48 4F 4C 55 4E 47 20 45 49 4E AD 41 55 |DERHOLUNG EIN.AU| 000008F0: 53 2E 00 F8 10 68 00 3A 00 00 00 |S....h.:... |
......;.. FILTER MCP .......:.`...FILTER
LDX TRIGGER ; STIMME, DIE DEN FILTER
MODULIERT, IN X.....LDA FIL.N:BEQ FILT2
; "FILTER AUS ? JA, DANN ENDE !.Z...IN
C FILTZAE ; ZEIT FUER RICHTUNG
SWECHSEL ERHOEHEN......LDA FILTRI:BNE FI
LTDW ; JE NACH RICHTUNG VERZWEIGEN......
..:.[. .FILTUP LDA FILTZAE:CMP UPTIME,X
; "FILTER UP-TIME VORBEI ?...".BEQ FILT
UP2 ; JA, DANN NACH 'FILTUP2'.
.U.$.LDA F.Q:CLC:ADC LEVELUP,X ; FILTER
.QUENZ UM 'LEVELUP' ERHOEHEN....&.LDA WR
AP,X:BEQ FILTUP3 ; "UEBERTRAG DER
FREQUENZ ERLAUBT ?.M.'.BCS FILT2
; NEIN, DANN .E !...(.FILTUP
3 STA F.Q:JMP FILT2 ; JA, DANN NEUE .QU
ENZ SETZEN UND .E..Q.*.FILTUP2 LDY #1:ST
Y FILTRI ; RICHTUNG AUF '.TERZAEHC'..
....,.DEY:DEY:STY FILTZAE ; ...UND DIE
ZEIT ZURUECKSETZEN..H...LDA STARTRI,X
; JE NACH STARTRICHTUNG TESTEN...
...0.BNE FTEST:JMP FILT2 ; ...OB DIE M
ODULATI. NEU GESTART WERDEN SOLL..E....1
.:.W.2.FILTDW LDA FILTZAE:CMP DWTIME,X
; DAS SELBE NOCHMAL......4.BEQ FILTDW2
; ...ABER FUERS .T
ERZAEHC !.7.6.LDA F.Q:SEC:SBC LEVELDW,X.
R.8.LDA WRAP,X:BEQ FILTDW3...:.BCC FILT2
; UNTERLAUF DER
.QUENZ TESTEN...<.FILTDW3 STA F.Q:JMP FI
LT2...>.FILTDW2 LDY #0:STY FILTRI
; FILTERRICHTUNG AUF 'HOCHZAEHC'....@.D
EY:STY FILTZAE.*.B.LDA STARTRI,X:BNE FIL
T2.0.C.:.U.D.FTEST LDA NOCHMAL,X:BNE FIL
T2 ; TESTEN, OB MODULATI. NOCHMAL....
F.LDA #0:STA FIL.N ; NEIN
, DANN FILTER.EFFEKT .CHALTEN..L.H.FILT2
RTS.R.O.:. .P.TRIGGER .BYT 0 ; ST
IMMEN.NR., V. DER DIE PARAMETER GENOMMEN
WERDEN..^.R.FIL.N .BYT 0 ; FILTE
R.EFFEKT AN (.1) ODER AUS (.0)...T.F.Q
.BYT 0 ; FILTER.QUENZ (WIRD IN SI
D GESCHRIEBEN).Q.V.FILTRI .BYT 0
; RICHTUNG DER MODULATI.....X.FILTZAE .B
YT 0 ; ZAEHLER FUER DIE DAUER EINE
R SCHWINGUNG..Z.Z.UPTIME .BYT 0,0,0 ;
DAUER DES 'HOCHZAEHCS' (EFFEKT.PARAMETE
R)...\.DWTIME .BYT 0,0,0 ; DAUER DES
'.TERZAEHCS' (EFFEKT.PARAMETER)...^.LEVE
LUP .BYT 0,0,0 ; STAERKE DER MODULATI.
BEI 'HOCH' (PARAM.).+.`.LEVELDW .BYT
0,0,0 ; STAERKE DER MODULATI. BEI '.TE
R' (PARAM.).V.B.WRAP .BYT 0,0,0 ; U
EBERTRAG ERLAUBT (.0) ODER NICHT (.1) (P
ARAM.).B.D.STARTRI .BYT 0,0,0 ; RICHTUN
G, BEI DER GESTARTET WIRD (HOCH ODER .TE
R)...F.NOCHMAL .BYT 0,0,0 ; WIEDERHOLUN
G EIN.AUS....H.:...
> CLICK IMAGE PREVIEW FOR FULL MODAL