FILTER2.HY
FILE INFORMATION
FILENAME(S): FILTER2.HY
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
7e742fdb0b60a54f799fbe0d65422e872db7b58d81e95bbde27908ddf8fa0d57
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | FILTER2.HY | PRG | C64er | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 36 04 10 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..6..';*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 00 6B 04 1A 27 3B 2A 20 20 20 |******.k..';* | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 2A 00 A0 04 24 27 | *...$'| 00000070: 3B 2A 20 20 41 42 20 48 49 45 52 20 42 45 47 49 |;* AB HIER BEGI| 00000080: 4E 4E 54 20 44 41 53 20 45 49 47 45 4E 54 4C 49 |NNT DAS EIGENTLI| 00000090: 43 48 45 20 50 52 4F 47 52 41 4D 4D 20 20 20 2A |CHE PROGRAMM *| 000000A0: 00 D5 04 2E 27 3B 2A 20 20 20 20 20 20 20 20 20 |....';* | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 2A 00 0A 05 38 27 3B 2A 2A 2A 2A 2A | *...8';*****| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 05 42 27 53 |**********.7.B'S| 00000110: 52 43 4E 41 4D 45 20 2E 54 58 22 20 20 20 20 20 |RCNAME .TX" | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 20 | "; | 00000130: 31 38 20 42 59 54 45 00 47 05 4C 27 53 52 43 4C |18 BYTE.G.L'SRCL| 00000140: 45 4E 20 2E 42 59 30 00 7A 05 56 27 44 45 53 54 |EN .BY0.z.V'DEST| 00000150: 4E 41 4D 45 20 2E 54 58 22 20 20 20 20 20 20 20 |NAME .TX" | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 22 3B 20 32 33 20 42 59 54 45 00 8B 05 60 27 44 |"; 23 BYTE...`'D| 00000180: 45 53 54 4C 45 4E 20 2E 42 59 30 00 9A 05 6A 27 |ESTLEN .BY0...j'| 00000190: 45 4E 44 50 54 20 2E 57 4F 30 00 A8 05 74 27 53 |ENDPT .WO0...t'S| 000001A0: 54 41 54 20 2E 42 59 30 00 B5 05 7E 27 44 45 56 |TAT .BY0...~'DEV| 000001B0: 20 2E 42 59 38 00 D7 05 88 27 4D 53 47 20 2E 54 | .BY8....'MSG .T| 000001C0: 58 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X" | 000001D0: 20 20 20 20 20 20 22 00 11 06 92 27 2E 54 58 20 | "....'.TX | 000001E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000001F0: 20 20 20 20 20 22 3B 20 34 30 20 42 59 54 45 20 | "; 40 BYTE | 00000200: 50 4C 41 54 5A 20 46 55 45 52 20 53 54 41 54 55 |PLATZ FUER STATU| 00000210: 53 00 23 06 9C 27 53 54 41 52 54 20 4A 53 52 43 |S.#..'START JSRC| 00000220: 52 4C 46 00 32 06 A6 27 20 4A 53 52 57 52 49 54 |RLF.2..' JSRWRIT| 00000230: 45 53 00 4F 06 B0 27 2E 54 58 20 22 41 4C 4C 47 |ES.O..'.TX "ALLG| 00000240: 45 4D 45 49 4E 45 52 20 46 49 4C 54 45 52 22 00 |EMEINER FILTER".| 00000250: 5A 06 BA 27 2E 42 59 20 43 52 00 87 06 C4 27 2E |Z..'.BY CR....'.| 00000260: 54 58 20 22 20 2E 2E 2E 20 4B 45 49 4E 45 20 4B |TX " ... KEINE K| 00000270: 4F 4E 56 45 52 54 49 45 52 55 4E 47 20 45 49 4E |ONVERTIERUNG EIN| 00000280: 47 45 42 41 55 54 22 00 92 06 CE 27 2E 42 59 20 |GEBAUT"....'.BY | 00000290: 43 52 00 A9 06 D8 27 2E 54 58 20 22 45 49 4E 47 |CR....'.TX "EING| 000002A0: 41 42 45 20 20 20 20 3A 22 00 B3 06 E2 27 2E 42 |ABE :"....'.B| 000002B0: 59 20 30 00 CF 06 EC 27 20 2E 2E 2E 4D 49 4E 50 |Y 0....' ...MINP| 000002C0: 55 54 53 28 53 52 43 4E 41 4D 45 2C 31 38 29 00 |UTS(SRCNAME,18).| 000002D0: DA 06 F6 27 20 43 50 59 23 30 00 E7 06 00 28 20 |...' CPY#0....( | 000002E0: 42 45 51 45 58 49 54 00 F6 06 0A 28 20 53 54 59 |BEQEXIT....( STY| 000002F0: 53 52 43 4C 45 4E 00 03 07 14 28 20 4A 53 52 43 |SRCLEN....( JSRC| 00000300: 52 4C 46 00 12 07 1E 28 20 4A 53 52 57 52 49 54 |RLF....( JSRWRIT| 00000310: 45 53 00 29 07 28 28 2E 54 58 20 22 41 55 53 47 |ES.).((.TX "AUSG| 00000320: 41 42 45 20 20 20 20 3A 22 00 33 07 32 28 2E 42 |ABE :".3.2(.B| 00000330: 59 20 30 00 50 07 3C 28 20 2E 2E 2E 4D 49 4E 50 |Y 0.P.<( ...MINP| 00000340: 55 54 53 28 44 45 53 54 4E 41 4D 45 2C 31 39 29 |UTS(DESTNAME,19)| 00000350: 00 5B 07 46 28 20 43 50 59 23 30 00 66 07 50 28 |.[.F( CPY#0.f.P(| 00000360: 20 42 4E 45 47 4F 00 73 07 5A 28 45 58 49 54 20 | BNEGO.s.Z(EXIT | 00000370: 52 54 53 00 82 07 64 28 47 4F 20 4C 44 41 23 22 |RTS...d(GO LDA#"| 00000380: 53 22 00 97 07 6E 28 20 53 54 41 44 45 53 54 4E |S"...n( STADESTN| 00000390: 41 4D 45 2B 31 2C 59 00 A4 07 78 28 20 4C 44 41 |AME+1,Y...x( LDA| 000003A0: 23 22 57 22 00 B9 07 82 28 20 53 54 41 44 45 53 |#"W"....( STADES| 000003B0: 54 4E 41 4D 45 2B 33 2C 59 00 C6 07 8C 28 20 4C |TNAME+3,Y....( L| 000003C0: 44 41 23 22 2C 22 00 D9 07 96 28 20 53 54 41 44 |DA#","....( STAD| 000003D0: 45 53 54 4E 41 4D 45 2C 59 00 EE 07 A0 28 20 53 |ESTNAME,Y....( S| 000003E0: 54 41 44 45 53 54 4E 41 4D 45 2B 32 2C 59 00 F7 |TADESTNAME+2,Y..| 000003F0: 07 AA 28 20 49 4E 59 00 00 08 B4 28 20 49 4E 59 |..( INY....( INY| 00000400: 00 09 08 BE 28 20 49 4E 59 00 12 08 C8 28 20 49 |....( INY....( I| 00000410: 4E 59 00 22 08 D2 28 20 53 54 59 44 45 53 54 4C |NY."..( STYDESTL| 00000420: 45 4E 00 48 08 DC 28 20 2E 2E 2E 4D 4F 50 45 4E |EN.H..( ...MOPEN| 00000430: 28 31 2C 44 45 56 2C 38 2C 53 52 43 4E 41 4D 45 |(1,DEV,8,SRCNAME| 00000440: 2C 53 52 43 4C 45 4E 29 00 60 08 E6 28 20 2E 2E |,SRCLEN).`..( ..| 00000450: 2E 4D 44 53 54 41 54 28 44 45 56 2C 4D 53 47 29 |.MDSTAT(DEV,MSG)| 00000460: 00 70 08 F0 28 20 42 4E 45 42 41 44 53 54 41 54 |.p..( BNEBADSTAT| 00000470: 00 98 08 FA 28 20 2E 2E 2E 4D 4F 50 45 4E 28 32 |....( ...MOPEN(2| 00000480: 2C 44 45 56 2C 39 2C 44 45 53 54 4E 41 4D 45 2C |,DEV,9,DESTNAME,| 00000490: 44 45 53 54 4C 45 4E 29 00 B0 08 04 29 20 2E 2E |DESTLEN)....) ..| 000004A0: 2E 4D 44 53 54 41 54 28 44 45 56 2C 4D 53 47 29 |.MDSTAT(DEV,MSG)| 000004B0: 00 C0 08 0E 29 20 42 4E 45 42 41 44 53 54 41 54 |....) BNEBADSTAT| 000004C0: 00 D1 08 18 29 20 4A 53 52 45 4D 50 54 59 42 55 |....) JSREMPTYBU| 000004D0: 46 00 DC 08 22 29 20 4C 44 58 23 31 00 EA 08 2C |F...") LDX#1...,| 000004E0: 29 20 4A 53 52 43 48 4B 49 4E 00 00 09 36 29 43 |) JSRCHKIN...6)C| 000004F0: 48 41 52 4C 4F 4F 50 20 4A 53 52 42 41 53 49 4E |HARLOOP JSRBASIN| 00000500: 00 09 09 40 29 20 50 48 41 00 18 09 4A 29 20 4A |...@) PHA...J) J| 00000510: 53 52 52 45 41 44 53 54 00 25 09 54 29 20 53 54 |SRREADST.%.T) ST| 00000520: 41 53 54 41 54 00 2E 09 5E 29 20 50 4C 41 00 3E |ASTAT...^) PLA.>| 00000530: 09 68 29 20 4A 53 52 43 4F 4E 56 45 52 54 00 4A |.h) JSRCONVERT.J| 00000540: 09 72 29 20 4A 53 52 50 55 54 00 59 09 7C 29 20 |.r) JSRPUT.Y.|) | 00000550: 4A 53 52 53 54 4F 50 45 51 00 67 09 86 29 20 42 |JSRSTOPEQ.g..) B| 00000560: 45 51 50 41 4E 49 43 00 74 09 90 29 20 4C 44 41 |EQPANIC.t..) LDA| 00000570: 53 54 41 54 00 85 09 9A 29 20 42 45 51 43 48 41 |STAT....) BEQCHA| 00000580: 52 4C 4F 4F 50 00 93 09 A4 29 20 4A 53 52 46 4C |RLOOP....) JSRFL| 00000590: 55 53 48 00 A7 09 AE 29 50 41 4E 49 43 20 4A 53 |USH....)PANIC JS| 000005A0: 52 43 4C 52 43 48 4E 00 B9 09 B8 29 20 2E 2E 2E |RCLRCHN....) ...| 000005B0: 4D 43 4C 4F 53 45 28 31 29 00 CB 09 C2 29 20 2E |MCLOSE(1)....) .| 000005C0: 2E 2E 4D 43 4C 4F 53 45 28 32 29 00 D4 09 CC 29 |..MCLOSE(2)....)| 000005D0: 20 52 54 53 00 F0 09 D6 29 42 41 44 53 54 41 54 | RTS....)BADSTAT| 000005E0: 20 2E 2E 2E 4D 50 52 49 4E 54 53 28 4D 53 47 29 | ...MPRINTS(MSG)| 000005F0: 00 FD 09 E0 29 20 4A 53 52 43 52 4C 46 00 0B 0A |....) JSRCRLF...| 00000600: EA 29 20 4A 4D 50 50 41 4E 49 43 00 17 0A F4 29 |.) JMPPANIC....)| 00000610: 50 55 54 20 50 48 41 00 28 0A FE 29 20 2E 2E 2E |PUT PHA.(..) ...| 00000620: 4C 44 41 59 28 50 54 29 00 3C 0A 08 2A 20 2E 2E |LDAY(PT).<..* ..| 00000630: 2E 43 4D 50 57 28 45 4E 44 50 54 29 00 4C 0A 12 |.CMPW(ENDPT).L..| 00000640: 2A 20 42 43 43 50 55 54 43 48 41 52 00 82 0A 1C |* BCCPUTCHAR....| 00000650: 2A 20 4A 53 52 46 4C 55 53 48 3B 20 57 45 4E 4E |* JSRFLUSH; WENN| 00000660: 20 50 55 46 46 45 52 20 56 4F 4C 4C 2C 20 44 49 | PUFFER VOLL, DI| 00000670: 45 53 45 4E 20 45 52 53 54 20 41 55 53 47 45 42 |ESEN ERST AUSGEB| 00000680: 45 4E 00 92 0A 26 2A 50 55 54 43 48 41 52 20 50 |EN...&*PUTCHAR P| 00000690: 4C 41 00 9D 0A 30 2A 20 4C 44 59 23 30 00 AC 0A |LA...0* LDY#0...| 000006A0: 3A 2A 20 53 54 41 28 50 54 29 2C 59 00 BD 0A 44 |:* STA(PT),Y...D| 000006B0: 2A 20 2E 2E 2E 49 4E 43 57 28 50 54 29 00 C6 0A |* ...INCW(PT)...| 000006C0: 4E 2A 20 52 54 53 00 E3 0A 58 2A 46 4C 55 53 48 |N* RTS...X*FLUSH| 000006D0: 20 2E 2E 2E 4D 4F 56 45 57 28 50 54 2C 45 4E 44 | ...MOVEW(PT,END| 000006E0: 50 54 29 00 F2 0A 62 2A 20 4A 53 52 43 4C 52 43 |PT)...b* JSRCLRC| 000006F0: 48 4E 00 FD 0A 6C 2A 20 4C 44 58 23 32 00 0C 0B |HN...l* LDX#2...| 00000700: 76 2A 20 4A 53 52 43 48 4B 4F 55 54 00 2B 0B 80 |v* JSRCHKOUT.+..| 00000710: 2A 20 2E 2E 2E 4D 4F 56 45 57 49 28 42 55 46 46 |* ...MOVEWI(BUFF| 00000720: 45 52 53 54 41 52 54 2C 50 54 29 00 45 0B 8A 2A |ERSTART,PT).E..*| 00000730: 46 4C 55 53 48 4C 4F 4F 50 20 2E 2E 2E 4C 44 41 |FLUSHLOOP ...LDA| 00000740: 59 28 50 54 29 00 59 0B 94 2A 20 2E 2E 2E 43 4D |Y(PT).Y..* ...CM| 00000750: 50 57 28 45 4E 44 50 54 29 00 68 0B 9E 2A 20 42 |PW(ENDPT).h..* B| 00000760: 43 53 46 4C 55 53 48 58 00 73 0B A8 2A 20 4C 44 |CSFLUSHX.s..* LD| 00000770: 59 23 30 00 82 0B B2 2A 20 4C 44 41 28 50 54 29 |Y#0....* LDA(PT)| 00000780: 2C 59 00 91 0B BC 2A 20 4A 53 52 42 41 53 4F 55 |,Y....* JSRBASOU| 00000790: 54 00 A2 0B C6 2A 20 2E 2E 2E 49 4E 43 57 28 50 |T....* ...INCW(P| 000007A0: 54 29 00 B1 0B D0 2A 20 4A 53 52 53 54 4F 50 45 |T)....* JSRSTOPE| 000007B0: 51 00 C0 0B DA 2A 20 42 45 51 46 4C 55 53 48 58 |Q....* BEQFLUSHX| 000007C0: 00 D2 0B E4 2A 20 4A 4D 50 46 4C 55 53 48 4C 4F |....* JMPFLUSHLO| 000007D0: 4F 50 00 E9 0B EE 2A 46 4C 55 53 48 58 20 4A 53 |OP....*FLUSHX JS| 000007E0: 52 45 4D 50 54 59 42 55 46 00 F4 0B F8 2A 20 4C |REMPTYBUF....* L| 000007F0: 44 58 23 31 00 02 0C 02 2B 20 4A 53 52 43 48 4B |DX#1....+ JSRCHK| 00000800: 49 4E 00 0B 0C 0C 2B 20 52 54 53 00 32 0C 16 2B |IN....+ RTS.2..+| 00000810: 45 4D 50 54 59 42 55 46 20 2E 2E 2E 4D 4F 56 45 |EMPTYBUF ...MOVE| 00000820: 57 49 28 42 55 46 46 45 52 53 54 41 52 54 2C 50 |WI(BUFFERSTART,P| 00000830: 54 29 00 4E 0C 20 2B 20 2E 2E 2E 4D 4F 56 45 57 |T).N. + ...MOVEW| 00000840: 28 52 41 4D 54 4F 50 2C 45 4E 44 50 54 29 00 57 |(RAMTOP,ENDPT).W| 00000850: 0C 2A 2B 20 52 54 53 00 93 0C 34 2B 43 4F 4E 56 |.*+ RTS...4+CONV| 00000860: 45 52 54 20 52 54 53 3B 20 48 49 45 52 20 44 49 |ERT RTS; HIER DI| 00000870: 45 20 45 49 47 45 4E 54 4C 49 43 48 45 20 55 4D |E EIGENTLICHE UM| 00000880: 43 4F 44 49 45 52 55 4E 47 20 45 49 4E 42 41 55 |CODIERUNG EINBAU| 00000890: 45 4E 21 00 A8 0C 3E 2B 42 55 46 46 45 52 53 54 |EN!...>+BUFFERST| 000008A0: 41 52 54 20 2E 42 59 30 00 B0 0C 48 2B 2E 45 4E |ART .BY0...H+.EN| 000008B0: 00 00 00 |... |
..6..';*********************************
**************.K..';*
*. .$';* AB H
IER BEGINNT DAS EIGENTLICHE PROGRAMM *
.U..';*
*...8';*********************
**************************.7.B'SRCNAME .
TX" "; 18 BYTE.G.L'SRCL
EN .BY0.Z.V'DESTNAME .TX"
"; 23 BYTE...`'DESTLEN .BY0...J'
ENDPT .WO0...T'STAT .BY0...~'DEV .BY8.W.
.'MSG .TX" "....'.TX
" "; 40 BYTE PLATZ FU
ER STATUS.#..'START JSRCRLF.2..' JSRWRIT
ES.O..'.TX "ALLGEMEINER FILTER".Z..'.BY
CR...D'.TX " ... KEINE KONVERTIERUNG EIN
GEBAUT"...N'.BY CR...X'.TX "EINGABE :
"....'.BY 0.O..' ...MINPUTS(SRCNAME,18).
Z..' CPY#0....( BEQEXIT....( STYSRCLEN..
..( JSRCRLF....( JSRWRITES.).((.TX "AUSG
ABE :".3.2(.BY 0.P.<( ...MINPUTS(DEST
NAME,19).[.F( CPY#0.F.P( BNEGO.S.Z(EXIT
RTS...D(GO LDA#"S"...N( STADESTNAME+1,Y.
..X( LDA#"W"....( STADESTNAME+3,Y.F..( L
DA#",".Y..( STADESTNAME,Y... ( STADESTNA
ME+2,Y....( INY....( INY....( INY...H( I
NY.".R( STYDESTLEN.H..( ...MOPEN(1,DEV,8
,SRCNAME,SRCLEN).`..( ...MDSTAT(DEV,MSG)
.P..( BNEBADSTAT....( ...MOPEN(2,DEV,9,D
ESTNAME,DESTLEN)....) ...MDSTAT(DEV,MSG)
....) BNEBADSTAT.Q..) JSREMPTYBUF...") L
DX#1...,) JSRCHKIN...6)CHARLOOP JSRBASIN
...@) PHA...J) JSRREADST.%.T) STASTAT...
^) PLA.>.H) JSRCONVERT.J.R) JSRPUT.Y.|)
JSRSTOPEQ.G..) BEQPANIC.T..) LDASTAT....
) BEQCHARLOOP....) JSRFLUSH....)PANIC JS
RCLRCHN....) ...MCLOSE(1).K.B) ...MCLOSE
(2).T.L) RTS...V)BADSTAT ...MPRINTS(MSG)
....) JSRCRLF....) JMPPANIC....)PUT PHA.
(..) ...LDAY(PT).<..* ...CMPW(ENDPT).L..
* BCCPUTCHAR....* JSRFLUSH; WENN PUFFER
VOLL, DIESEN ERST AUSGEBEN...&*PUTCHAR P
LA...0* LDY#0...:* STA(PT),Y...D* ...INC
W(PT).F.N* RTS...X*FLUSH ...MOVEW(PT,END
PT)...B* JSRCLRCHN...L* LDX#2...V* JSRCH
KOUT.+..* ...MOVEWI(BUFFERSTART,PT).E..*
FLUSHLOOP ...LDAY(PT).Y..* ...CMPW(ENDPT
).H..* BCSFLUSHX.S..* LDY#0....* LDA(PT)
,Y....* JSRBASOUT...F* ...INCW(PT)...P*
JSRSTOPEQ...Z* BEQFLUSHX.R..* JMPFLUSHLO
OP....*FLUSHX JSREMPTYBUF....* LDX#1....
+ JSRCHKIN....+ RTS.2..+EMPTYBUF ...MOVE
WI(BUFFERSTART,PT).N. + ...MOVEW(RAMTOP,
ENDPT).W.*+ RTS...4+CONVERT RTS; HIER DI
E EIGENTLICHE UMCODIERUNG EINBAUEN!...>+
BUFFERSTART .BY0...H+.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL