FK.IO2.S
FILE INFORMATION
FILENAME(S): FK.IO2.S
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-20 14:32:02
APPEARS ON: 3 disk(s)
FILE HASH
da6d98efd33534adc6301675344baa007eb13f764e24eb77da74810ebccfafc5
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 01 93 | FK.IO2.S | PRG | DuncanTwain, swasti, dinkel, Treasure Chest - Klaus Der Suhler | 30 | 3 | DOWNLOAD FILE |
| MAGIC DISK 01 93 | FK.IO2.S | PRG | Treasure Chest - ralf | 30 | 3 | DOWNLOAD FILE |
| MAGIC DISK 01 93 | FK.IO2.S | PRG | DuncanTwain | 30 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FD 1F 06 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |......;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 0B 20 0A 00 2E 42 41 20 24 |******.. ...BA $|
00000030: 39 30 30 30 00 1E 20 0B 00 2E 45 51 20 53 54 41 |9000.. ...EQ STA|
00000040: 54 55 53 3D 24 39 30 00 33 20 0C 00 2E 45 51 20 |TUS=$90.3 ...EQ |
00000050: 53 45 54 50 41 52 3D 24 46 46 42 41 00 48 20 0D |SETPAR=$FFBA.H .|
00000060: 00 2E 45 51 20 53 45 54 4E 41 4D 3D 24 46 46 42 |..EQ SETNAM=$FFB|
00000070: 44 00 5B 20 0E 00 2E 45 51 20 4F 50 45 4E 3D 24 |D.[ ...EQ OPEN=$|
00000080: 46 46 43 30 00 6F 20 0F 00 2E 45 51 20 43 4C 4F |FFC0.o ...EQ CLO|
00000090: 53 45 3D 24 46 46 43 33 00 83 20 10 00 2E 45 51 |SE=$FFC3.. ...EQ|
000000A0: 20 43 48 4B 49 4E 3D 24 46 46 43 36 00 97 20 11 | CHKIN=$FFC6.. .|
000000B0: 00 2E 45 51 20 43 4C 52 43 48 3D 24 46 46 43 43 |..EQ CLRCH=$FFCC|
000000C0: 00 AB 20 12 00 2E 45 51 20 42 41 53 49 4E 3D 24 |.. ...EQ BASIN=$|
000000D0: 46 46 43 46 00 BF 20 13 00 2E 45 51 20 42 53 4F |FFCF.. ...EQ BSO|
000000E0: 55 54 3D 24 46 46 44 32 00 D2 20 14 00 2E 45 51 |UT=$FFD2.. ...EQ|
000000F0: 20 4C 4F 41 44 3D 24 46 46 44 35 00 E5 20 15 00 | LOAD=$FFD5.. ..|
00000100: 2E 45 51 20 53 41 56 45 3D 24 46 46 44 38 00 F9 |.EQ SAVE=$FFD8..|
00000110: 20 16 00 2E 45 51 20 43 4B 4F 55 54 3D 24 46 46 | ...EQ CKOUT=$FF|
00000120: 43 39 00 0E 21 18 00 2E 45 51 20 49 4E 54 4F 55 |C9..!...EQ INTOU|
00000130: 54 3D 24 42 44 43 44 00 22 21 19 00 2E 45 51 20 |T=$BDCD."!...EQ |
00000140: 49 4E 4B 45 59 3D 24 46 46 45 34 00 37 21 1A 00 |INKEY=$FFE4.7!..|
00000150: 2E 45 51 20 4C 49 53 54 45 4E 3D 24 46 46 42 31 |.EQ LISTEN=$FFB1|
00000160: 00 4C 21 1B 00 2E 45 51 20 55 4E 4C 49 53 54 3D |.L!...EQ UNLIST=|
00000170: 24 46 46 41 45 00 5F 21 1C 00 2E 45 51 20 54 41 |$FFAE._!...EQ TA|
00000180: 4C 4B 3D 24 46 46 42 34 00 74 21 1D 00 2E 45 51 |LK=$FFB4.t!...EQ|
00000190: 20 55 4E 54 41 4C 4B 3D 24 46 46 41 42 00 88 21 | UNTALK=$FFAB..!|
000001A0: 1E 00 2E 45 51 20 49 45 43 49 4E 3D 24 46 46 41 |...EQ IECIN=$FFA|
000001B0: 35 00 9D 21 1F 00 2E 45 51 20 49 45 43 4F 55 54 |5..!...EQ IECOUT|
000001C0: 3D 24 46 46 41 38 00 B2 21 20 00 2E 45 51 20 53 |=$FFA8..! ..EQ S|
000001D0: 45 43 54 4C 4B 3D 24 46 46 39 36 00 C7 21 21 00 |ECTLK=$FF96..!!.|
000001E0: 2E 45 51 20 53 45 43 4C 53 54 3D 24 46 46 39 33 |.EQ SECLST=$FF93|
000001F0: 00 EC 21 50 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..!P.;**********|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 00 00 22 64 00 52 45 41 44 46 49 |*****.."d.READFI|
00000220: 4C 45 20 53 54 58 24 46 42 00 0C 22 6E 00 20 53 |LE STX$FB.."n. S|
00000230: 54 59 24 46 43 00 12 22 78 00 3B 00 1F 22 82 00 |TY$FC.."x.;.."..|
00000240: 20 4C 44 58 23 24 33 34 00 2C 22 8C 00 20 4C 44 | LDX#$34.,".. LD|
00000250: 59 23 24 30 33 00 3B 22 96 00 20 4A 53 52 53 45 |Y#$03.;".. JSRSE|
00000260: 54 4E 41 4D 00 47 22 A0 00 20 4C 44 41 23 30 31 |TNAM.G".. LDA#01|
00000270: 00 53 22 AA 00 20 4C 44 58 23 30 38 00 60 22 B4 |.S".. LDX#08.`".|
00000280: 00 20 4C 44 59 23 24 36 30 00 6F 22 BE 00 20 4A |. LDY#$60.o".. J|
00000290: 53 52 53 45 54 50 41 52 00 7C 22 C8 00 20 4A 53 |SRSETPAR.|".. JS|
000002A0: 52 4F 50 45 4E 00 82 22 D2 00 3B 00 8E 22 DC 00 |ROPEN.."..;.."..|
000002B0: 20 4C 44 41 23 30 38 00 9B 22 E6 00 20 4A 53 52 | LDA#08..".. JSR|
000002C0: 54 41 4C 4B 00 A8 22 F0 00 20 4C 44 41 23 24 36 |TALK..".. LDA#$6|
000002D0: 30 00 B7 22 FA 00 20 4A 53 52 53 45 43 54 4C 4B |0..".. JSRSECTLK|
000002E0: 00 BD 22 04 01 3B 00 C9 22 0E 01 20 4C 44 59 23 |.."..;..".. LDY#|
000002F0: 30 30 00 DC 22 18 01 4C 4F 4F 50 31 20 4A 53 52 |00.."..LOOP1 JSR|
00000300: 49 45 43 49 4E 00 EC 22 22 01 20 53 54 41 28 24 |IECIN.."". STA($|
00000310: 46 42 29 2C 59 00 F2 22 2C 01 3B 00 FE 22 36 01 |FB),Y..",.;.."6.|
00000320: 20 49 4E 43 24 46 42 00 09 23 40 01 20 42 4E 45 | INC$FB..#@. BNE|
00000330: 4C 31 00 15 23 4A 01 20 49 4E 43 24 46 43 00 1B |L1..#J. INC$FC..|
00000340: 23 54 01 3B 00 29 23 5E 01 4C 31 20 4C 44 41 24 |#T.;.)#^.L1 LDA$|
00000350: 39 30 00 37 23 68 01 20 42 45 51 4C 4F 4F 50 31 |90.7#h. BEQLOOP1|
00000360: 00 3D 23 72 01 3B 00 49 23 7C 01 20 4C 44 41 23 |.=#r.;.I#|. LDA#|
00000370: 30 38 00 58 23 86 01 20 4A 53 52 55 4E 54 41 4C |08.X#.. JSRUNTAL|
00000380: 4B 00 64 23 90 01 20 4C 44 41 23 30 31 00 72 23 |K.d#.. LDA#01.r#|
00000390: 9A 01 20 4A 4D 50 43 4C 4F 53 45 00 97 23 A4 01 |.. JMPCLOSE..#..|
000003A0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 00 AC 23 AE 01 57 52 49 54 45 46 49 4C 45 20 53 |..#..WRITEFILE S|
000003D0: 54 58 24 46 42 00 B8 23 B8 01 20 53 54 59 24 46 |TX$FB..#.. STY$F|
000003E0: 43 00 BE 23 C2 01 3B 00 CB 23 CC 01 20 4C 44 58 |C..#..;..#.. LDX|
000003F0: 23 24 33 34 00 D8 23 D6 01 20 4C 44 59 23 24 30 |#$34..#.. LDY#$0|
00000400: 33 00 E7 23 E0 01 20 4A 53 52 53 45 54 4E 41 4D |3..#.. JSRSETNAM|
00000410: 00 F3 23 EA 01 20 4C 44 41 23 30 31 00 FF 23 F4 |..#.. LDA#01..#.|
00000420: 01 20 4C 44 58 23 30 38 00 0C 24 FE 01 20 4C 44 |. LDX#08..$.. LD|
00000430: 59 23 24 36 31 00 1B 24 08 02 20 4A 53 52 53 45 |Y#$61..$.. JSRSE|
00000440: 54 50 41 52 00 28 24 12 02 20 4A 53 52 4F 50 45 |TPAR.($.. JSROPE|
00000450: 4E 00 2E 24 1C 02 3B 00 3A 24 26 02 20 4C 44 41 |N..$..;.:$&. LDA|
00000460: 23 30 38 00 49 24 30 02 20 4A 53 52 4C 49 53 54 |#08.I$0. JSRLIST|
00000470: 45 4E 00 56 24 3A 02 20 4C 44 41 23 24 36 31 00 |EN.V$:. LDA#$61.|
00000480: 65 24 44 02 20 4A 53 52 53 45 43 4C 53 54 00 6B |e$D. JSRSECLST.k|
00000490: 24 4E 02 3B 00 77 24 58 02 20 4C 44 59 23 30 30 |$N.;.w$X. LDY#00|
000004A0: 00 8C 24 62 02 4C 4F 4F 50 32 20 4C 44 41 28 24 |..$b.LOOP2 LDA($|
000004B0: 46 42 29 2C 59 00 9B 24 6C 02 20 4A 53 52 49 45 |FB),Y..$l. JSRIE|
000004C0: 43 4F 55 54 00 A1 24 76 02 3B 00 AD 24 80 02 20 |COUT..$v.;..$.. |
000004D0: 49 4E 43 24 46 42 00 B8 24 8A 02 20 42 4E 45 4C |INC$FB..$.. BNEL|
000004E0: 32 00 C4 24 94 02 20 49 4E 43 24 46 43 00 CA 24 |2..$.. INC$FC..$|
000004F0: 9E 02 3B 00 D8 24 A8 02 4C 32 20 4C 44 41 24 46 |..;..$..L2 LDA$F|
00000500: 45 00 E4 24 B2 02 20 43 4D 50 24 46 43 00 F2 24 |E..$.. CMP$FC..$|
00000510: BC 02 20 42 4E 45 4C 4F 4F 50 32 00 FE 24 C6 02 |.. BNELOOP2..$..|
00000520: 20 4C 44 41 24 46 44 00 0A 25 D0 02 20 43 4D 50 | LDA$FD..%.. CMP|
00000530: 24 46 42 00 18 25 DA 02 20 42 4E 45 4C 4F 4F 50 |$FB..%.. BNELOOP|
00000540: 32 00 1E 25 E4 02 3B 00 2A 25 EE 02 20 4C 44 41 |2..%..;.*%.. LDA|
00000550: 23 30 38 00 39 25 F8 02 20 4A 53 52 55 4E 4C 49 |#08.9%.. JSRUNLI|
00000560: 53 54 00 45 25 02 03 20 4C 44 41 23 30 31 00 53 |ST.E%.. LDA#01.S|
00000570: 25 0C 03 20 4A 4D 50 43 4C 4F 53 45 00 78 25 16 |%.. JMPCLOSE.x%.|
00000580: 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005A0: 2A 00 8A 25 20 03 45 52 52 43 48 4E 20 4C 44 41 |*..% .ERRCHN LDA|
000005B0: 23 30 30 00 99 25 2A 03 20 4A 53 52 53 45 54 4E |#00..%*. JSRSETN|
000005C0: 41 4D 00 A5 25 34 03 20 4C 44 41 23 30 31 00 B1 |AM..%4. LDA#01..|
000005D0: 25 3E 03 20 4C 44 58 23 30 38 00 BE 25 48 03 20 |%>. LDX#08..%H. |
000005E0: 4C 44 59 23 24 36 46 00 CD 25 52 03 20 4A 53 52 |LDY#$6F..%R. JSR|
000005F0: 53 45 54 50 41 52 00 DA 25 5C 03 20 4A 53 52 4F |SETPAR..%\. JSRO|
00000600: 50 45 4E 00 E0 25 66 03 3B 00 EC 25 70 03 20 4C |PEN..%f.;..%p. L|
00000610: 44 41 23 30 38 00 F9 25 7A 03 20 4A 53 52 54 41 |DA#08..%z. JSRTA|
00000620: 4C 4B 00 06 26 84 03 20 4C 44 41 23 24 36 46 00 |LK..&.. LDA#$6F.|
00000630: 15 26 8E 03 20 4A 53 52 53 45 43 54 4C 4B 00 1B |.&.. JSRSECTLK..|
00000640: 26 98 03 3B 00 30 26 A2 03 45 43 4C 4F 4F 50 31 |&..;.0&..ECLOOP1|
00000650: 20 4A 53 52 49 45 43 49 4E 00 3E 26 AC 03 20 4A | JSRIECIN.>&.. J|
00000660: 53 52 42 53 4F 55 54 00 4A 26 B6 03 20 4C 44 41 |SRBSOUT.J&.. LDA|
00000670: 24 39 30 00 5A 26 C0 03 20 42 45 51 45 43 4C 4F |$90.Z&.. BEQECLO|
00000680: 4F 50 31 00 60 26 CA 03 3B 00 6C 26 D4 03 20 4C |OP1.`&..;.l&.. L|
00000690: 44 41 23 30 38 00 7B 26 DE 03 20 4A 53 52 55 4E |DA#08.{&.. JSRUN|
000006A0: 54 41 4C 4B 00 87 26 E8 03 20 4C 44 41 23 30 31 |TALK..&.. LDA#01|
000006B0: 00 95 26 F2 03 20 4A 4D 50 43 4C 4F 53 45 00 00 |..&.. JMPCLOSE..|
000006C0: 00 |. |
X.....;*******************************..
...BA $9000.. ...EQ STATUS=$90.3 ...EQ
SETPAR=$FFBA.H ...EQ SETNAM=$FFBD.[ ...E
Q OPEN=$FFC0.O ...EQ CLOSE=$FFC3.. ...EQ
CHKIN=$FFC6.. ...EQ CLRCH=$FFCC.. ...EQ
BASIN=$FFCF.. ...EQ BSOUT=$FFD2.R ...EQ
LOAD=$FFD5.. ...EQ SAVE=$FFD8.. ...EQ C
KOUT=$FFC9..!...EQ INTOUT=$BDCD."!...EQ
INKEY=$FFE4.7!...EQ LISTEN=$FFB1.L!...EQ
UNLIST=$FFAE._!...EQ TALK=$FFB4.T!...EQ
UNTALK=$FFAB..!...EQ IECIN=$FFA5..!...E
Q IECOUT=$FFA8..! ..EQ SECTLK=$FF96.G!!.
.EQ SECLST=$FF93..!P.;******************
*************.."D.READFILE STX$FB.."N. S
TY$FC.."X.;..".. LDX#$34.,".. LDY#$03.;"
.. JSRSETNAM.G" . LDA#01.S".. LDX#08.`".
. LDY#$60.O".. JSRSETPAR.|"H. JSROPEN.."
R.;..".. LDA#08..".. JSRTALK..".. LDA#$6
0..".. JSRSECTLK.."..;.I".. LDY#00.."..L
OOP1 JSRIECIN.."". STA($FB),Y..",.;.."6.
INC$FB..#@. BNEL1..#J. INC$FC..#T.;.)#^
.L1 LDA$90.7#H. BEQLOOP1.=#R.;.I#|. LDA#
08.X#.. JSRUNTALK.D#.. LDA#01.R#.. JMPCL
OSE..#..;*******************************
..#..WRITEFILE STX$FB..#.. STY$FC..#B.;.
K#L. LDX#$34.X#V. LDY#$03..#.. JSRSETNAM
..#.. LDA#01..#.. LDX#08..$.. LDY#$61..$
.. JSRSETPAR.($.. JSROPEN..$..;.:$&. LDA
#08.I$0. JSRLISTEN.V$:. LDA#$61.E$D. JSR
SECLST.K$N.;.W$X. LDY#00..$B.LOOP2 LDA($
FB),Y..$L. JSRIECOUT..$V.;..$.. INC$FB..
$.. BNEL2.D$.. INC$FC.J$..;.X$..L2 LDA$F
E..$.. CMP$FC..$.. BNELOOP2..$F. LDA$FD.
.%P. CMP$FB..%Z. BNELOOP2..%..;.*%.. LDA
#08.9%.. JSRUNLIST.E%.. LDA#01.S%.. JMPC
LOSE.X%..;******************************
*..% .ERRCHN LDA#00..%*. JSRSETNAM..%4.
LDA#01..%>. LDX#08..%H. LDY#$6F.M%R. JSR
SETPAR.Z%\. JSROPEN..%F.;..%P. LDA#08..%
Z. JSRTALK..&.. LDA#$6F..&.. JSRSECTLK..
&..;.0&..ECLOOP1 JSRIECIN.>&.. JSRBSOUT.
J&.. LDA$90.Z&.. BEQECLOOP1.`&J.;.L&T. L
DA#08.{&.. JSRUNTALK..&.. LDA#01..&.. JM
PCLOSE...
> CLICK IMAGE PREVIEW FOR FULL MODAL