00000000: D8 1F E5 1F 00 00 2E 4C 49 34 2C 34 2C 37 00 F4 |.......LI4,4,7..|
00000010: 1F 64 00 20 2E 45 51 41 4C 3D 24 33 35 00 03 20 |.d. .EQAL=$35.. |
00000020: 6E 00 20 2E 45 51 41 48 3D 24 33 37 00 12 20 78 |n. .EQAH=$37.. x|
00000030: 00 20 2E 45 51 45 4C 3D 24 33 42 00 21 20 82 00 |. .EQEL=$3B.! ..|
00000040: 20 2E 45 51 45 48 3D 24 33 43 00 33 20 8C 00 20 | .EQEH=$3C.3 .. |
00000050: 2E 45 51 54 52 41 43 4B 3D 24 38 30 00 46 20 96 |.EQTRACK=$80.F .|
00000060: 00 20 2E 45 51 53 45 43 54 4F 52 3D 24 38 31 00 |. .EQSECTOR=$81.|
00000070: 56 20 A0 00 20 2E 45 51 44 49 52 3D 24 39 34 00 |V .. .EQDIR=$94.|
00000080: 66 20 AA 00 20 2E 45 51 45 52 52 3D 24 41 35 00 |f .. .EQERR=$A5.|
00000090: 79 20 BE 00 20 2E 45 51 43 4F 44 45 3D 24 30 32 |y .. .EQCODE=$02|
000000A0: 32 41 00 8E 20 C8 00 20 2E 45 51 50 55 46 42 45 |2A.. .. .EQPUFBE|
000000B0: 4C 3D 24 30 32 34 46 00 94 20 68 01 3B 00 A2 20 |L=$024F.. h.;.. |
000000C0: 72 01 20 2E 42 41 24 30 35 30 30 00 A8 20 7C 01 |r. .BA$0500.. |.|
000000D0: 3B 00 B7 20 86 01 20 4C 44 41 50 55 46 42 45 4C |;.. .. LDAPUFBEL|
000000E0: 00 C4 20 90 01 20 4F 52 41 23 24 30 34 00 D3 20 |.. .. ORA#$04.. |
000000F0: 9A 01 20 53 54 41 50 55 46 42 45 4C 00 E0 20 A4 |.. STAPUFBEL.. .|
00000100: 01 20 4C 44 41 23 24 30 41 00 ED 20 AE 01 20 53 |. LDA#$0A.. .. S|
00000110: 54 41 43 4F 44 45 00 FB 20 B8 01 20 4A 53 52 24 |TACODE.. .. JSR$|
00000120: 43 31 45 45 00 09 21 C2 01 20 4A 53 52 24 43 33 |C1EE..!.. JSR$C3|
00000130: 39 38 00 17 21 CC 01 20 4A 53 52 24 43 33 32 30 |98..!.. JSR$C320|
00000140: 00 25 21 D6 01 20 4A 53 52 24 43 33 43 41 00 33 |.%!.. JSR$C3CA.3|
00000150: 21 E0 01 20 4A 53 52 24 43 34 39 44 00 3D 21 EA |!.. JSR$C49D.=!.|
00000160: 01 20 42 50 4C 41 00 4B 21 F4 01 20 4A 4D 50 24 |. BPLA.K!.. JMP$|
00000170: 44 39 34 35 00 59 21 FE 01 41 20 4C 44 59 23 24 |D945.Y!..A LDY#$|
00000180: 30 31 00 69 21 08 02 20 4C 44 41 28 44 49 52 29 |01.i!.. LDA(DIR)|
00000190: 2C 59 00 77 21 12 02 20 53 54 41 54 52 41 43 4B |,Y.w!.. STATRACK|
000001A0: 00 80 21 1C 02 20 49 4E 59 00 90 21 26 02 20 4C |..!.. INY..!&. L|
000001B0: 44 41 28 44 49 52 29 2C 59 00 9F 21 30 02 20 53 |DA(DIR),Y..!0. S|
000001C0: 54 41 53 45 43 54 4F 52 00 AD 21 3A 02 20 4A 53 |TASECTOR..!:. JS|
000001D0: 52 24 44 35 35 46 00 BB 21 44 02 20 4A 53 52 24 |R$D55F..!D. JSR$|
000001E0: 44 34 37 35 00 CC 21 4E 02 20 4A 53 52 52 45 41 |D475..!N. JSRREA|
000001F0: 44 4E 45 58 54 00 DA 21 58 02 20 4A 53 52 24 44 |DNEXT..!X. JSR$D|
00000200: 31 33 37 00 E5 21 62 02 20 53 54 41 41 4C 00 F0 |137..!b. STAAL..|
00000210: 21 6C 02 20 53 54 41 45 4C 00 FE 21 76 02 20 4A |!l. STAEL..!v. J|
00000220: 53 52 24 44 31 33 37 00 09 22 80 02 20 53 54 41 |SR$D137..".. STA|
00000230: 41 48 00 14 22 8A 02 20 53 54 41 45 4C 00 1E 22 |AH..".. STAEL.."|
00000240: 94 02 20 4A 4D 50 43 00 30 22 9E 02 42 20 4A 53 |.. JMPC.0"..B JS|
00000250: 52 52 45 41 44 4E 45 58 54 00 3F 22 A8 02 43 20 |RREADNEXT.?"..C |
00000260: 4C 44 41 54 52 41 43 4B 00 4D 22 B2 02 44 20 42 |LDATRACK.M"..D B|
00000270: 45 51 45 4E 44 45 00 58 22 BC 02 20 4C 44 41 45 |EQENDE.X".. LDAE|
00000280: 4C 00 61 22 C6 02 20 43 4C 43 00 6E 22 D0 02 20 |L.a".. CLC.n".. |
00000290: 41 44 43 23 24 46 45 00 79 22 DA 02 20 53 54 41 |ADC#$FE.y".. STA|
000002A0: 45 4C 00 83 22 E4 02 20 42 43 43 45 00 8E 22 EE |EL..".. BCCE..".|
000002B0: 02 20 49 4E 43 45 48 00 99 22 F8 02 45 20 4A 4D |. INCEH.."..E JM|
000002C0: 50 44 00 AF 22 02 03 52 45 41 44 4E 45 58 54 20 |PD.."..READNEXT |
000002D0: 4A 53 52 24 44 34 34 44 00 BC 22 0C 03 20 4C 44 |JSR$D44D..".. LD|
000002E0: 41 23 24 30 30 00 CA 22 16 03 20 4A 53 52 24 44 |A#$00..".. JSR$D|
000002F0: 34 43 38 00 D8 22 20 03 20 4A 53 52 24 44 31 33 |4C8.." . JSR$D13|
00000300: 37 00 E6 22 2A 03 20 53 54 41 54 52 41 43 4B 00 |7.."*. STATRACK.|
00000310: F4 22 34 03 20 4A 53 52 24 44 31 33 37 00 03 23 |."4. JSR$D137..#|
00000320: 3E 03 20 53 54 41 53 45 43 54 4F 52 00 0C 23 48 |>. STASECTOR..#H|
00000330: 03 20 52 54 53 00 1F 23 52 03 45 4E 44 45 20 4C |. RTS..#R.ENDE L|
00000340: 44 41 53 45 43 54 4F 52 00 28 23 5C 03 20 43 4C |DASECTOR.(#\. CL|
00000350: 43 00 33 23 66 03 20 41 44 43 45 4C 00 3E 23 70 |C.3#f. ADCEL.>#p|
00000360: 03 20 53 54 41 45 4C 00 48 23 7A 03 20 42 43 43 |. STAEL.H#z. BCC|
00000370: 46 00 53 23 84 03 20 49 4E 43 45 48 00 5F 23 8E |F.S#.. INCEH._#.|
00000380: 03 46 20 4C 44 41 45 4C 00 68 23 98 03 20 53 45 |.F LDAEL.h#.. SE|
00000390: 43 00 75 23 A2 03 20 53 42 43 23 24 30 33 00 80 |C.u#.. SBC#$03..|
000003A0: 23 AC 03 20 53 54 41 45 4C 00 8A 23 B6 03 20 42 |#.. STAEL..#.. B|
000003B0: 43 53 47 00 95 23 C0 03 20 44 45 43 45 48 00 A4 |CSG..#.. DECEH..|
000003C0: 23 CA 03 47 20 4A 53 52 24 44 32 32 37 00 B1 23 |#..G JSR$D227..#|
000003D0: D4 03 20 4C 44 58 23 24 30 32 00 BE 23 DE 03 20 |.. LDX#$02..#.. |
000003E0: 4C 44 59 23 24 44 35 00 CA 23 E8 03 20 53 54 59 |LDY#$D5..#.. STY|
000003F0: 45 52 52 00 D8 23 F2 03 20 53 54 58 45 52 52 2B |ERR..#.. STXERR+|
00000400: 31 00 E5 23 FC 03 20 4C 44 59 23 24 30 30 00 F5 |1..#.. LDY#$00..|
00000410: 23 06 04 48 20 4C 44 41 54 45 58 54 2C 59 00 05 |#..H LDATEXT,Y..|
00000420: 24 10 04 20 53 54 41 28 45 52 52 29 2C 59 00 0E |$.. STA(ERR),Y..|
00000430: 24 1A 04 20 49 4E 59 00 1B 24 24 04 20 43 50 59 |$.. INY..$$. CPY|
00000440: 23 24 31 32 00 25 24 2E 04 20 42 43 43 48 00 30 |#$12.%$.. BCCH.0|
00000450: 24 38 04 20 4C 44 41 41 48 00 3C 24 42 04 20 4A |$8. LDAAH.<$B. J|
00000460: 53 52 48 45 58 00 47 24 4C 04 20 4C 44 41 41 4C |SRHEX.G$L. LDAAL|
00000470: 00 53 24 56 04 20 4A 53 52 48 45 58 00 60 24 60 |.S$V. JSRHEX.`$`|
00000480: 04 20 4C 44 41 23 24 32 43 00 70 24 6A 04 20 53 |. LDA#$2C.p$j. S|
00000490: 54 41 28 45 52 52 29 2C 59 00 79 24 74 04 20 49 |TA(ERR),Y.y$t. I|
000004A0: 4E 59 00 86 24 7E 04 20 4C 44 41 23 24 32 34 00 |NY..$~. LDA#$24.|
000004B0: 96 24 88 04 20 53 54 41 28 45 52 52 29 2C 59 00 |.$.. STA(ERR),Y.|
000004C0: 9F 24 92 04 20 49 4E 59 00 AA 24 9C 04 20 4C 44 |.$.. INY..$.. LD|
000004D0: 41 45 48 00 B6 24 A6 04 20 4A 53 52 48 45 58 00 |AEH..$.. JSRHEX.|
000004E0: C1 24 B0 04 20 4C 44 41 45 4C 00 CD 24 BA 04 20 |.$.. LDAEL..$.. |
000004F0: 4A 53 52 48 45 58 00 DB 24 C4 04 20 4A 53 52 24 |JSRHEX..$.. JSR$|
00000500: 45 36 46 37 00 E9 24 CE 04 20 4A 53 52 24 43 31 |E6F7..$.. JSR$C1|
00000510: 41 41 00 F7 24 D8 04 20 4A 4D 50 24 45 42 46 46 |AA..$.. JMP$EBFF|
00000520: 00 03 25 E2 04 48 45 58 20 50 48 41 00 0C 25 EC |..%..HEX PHA..%.|
00000530: 04 20 4C 53 52 00 15 25 F6 04 20 4C 53 52 00 1E |. LSR..%.. LSR..|
00000540: 25 00 05 20 4C 53 52 00 27 25 0A 05 20 4C 53 52 |%.. LSR.'%.. LSR|
00000550: 00 31 25 14 05 20 4A 53 52 49 00 3A 25 1E 05 20 |.1%.. JSRI.:%.. |
00000560: 50 4C 41 00 47 25 28 05 20 41 4E 44 23 24 30 46 |PLA.G%(. AND#$0F|
00000570: 00 55 25 32 05 49 20 43 4D 50 23 24 30 41 00 5F |.U%2.I CMP#$0A._|
00000580: 25 3C 05 20 42 43 43 4A 00 68 25 46 05 20 43 4C |%<. BCCJ.h%F. CL|
00000590: 43 00 75 25 50 05 20 41 44 43 23 24 30 37 00 7F |C.u%P. ADC#$07..|
000005A0: 25 5A 05 4A 20 43 4C 43 00 8C 25 64 05 20 41 44 |%Z.J CLC..%d. AD|
000005B0: 43 23 24 33 30 00 9C 25 6E 05 20 53 54 41 28 45 |C#$30..%n. STA(E|
000005C0: 52 52 29 2C 59 00 A5 25 78 05 20 49 4E 59 00 AE |RR),Y..%x. INY..|
000005D0: 25 82 05 20 52 54 53 00 E6 25 8C 05 54 45 58 54 |%.. RTS..%..TEXT|
000005E0: 20 2E 42 59 24 33 30 2C 24 33 32 2C 24 32 43 2C | .BY$30,$32,$2C,|
000005F0: 24 32 30 2C 24 34 36 2C 24 34 39 2C 24 34 43 2C |$20,$46,$49,$4C,|
00000600: 24 34 35 3B 20 22 30 32 2C 20 46 49 4C 45 22 00 |$45; "02, FILE".|
00000610: 1A 26 96 05 20 2E 42 59 24 32 30 2C 24 35 33 2C |.&.. .BY$20,$53,|
00000620: 24 34 33 2C 24 34 31 2C 24 34 45 2C 24 34 45 2C |$43,$41,$4E,$4E,|
00000630: 24 34 35 2C 24 34 34 3B 20 22 20 53 43 41 4E 4E |$45,$44; " SCANN|
00000640: 45 44 22 00 30 26 A0 05 20 2E 42 59 24 32 43 2C |ED".0&.. .BY$2C,|
00000650: 24 32 34 3B 20 22 2C 24 22 00 3F 26 B4 05 20 4C |$24; ",$".?&.. L|
00000660: 44 41 50 55 46 42 45 4C 00 4C 26 BE 05 20 4F 52 |DAPUFBEL.L&.. OR|
00000670: 41 23 24 30 34 00 5B 26 C8 05 20 53 54 41 50 55 |A#$04.[&.. STAPU|
00000680: 46 42 45 4C 00 64 26 D2 05 20 52 54 53 00 00 00 |FBEL.d&.. RTS...|
X......LI4,4,7...D. .EQAL=$35.. N. .EQAH
=$37.. X. .EQEL=$3B.! .. .EQEH=$3C.3 ..
.EQTRACK=$80.F .. .EQSECTOR=$81.V . .EQ
DIR=$94.F .. .EQERR=$A5.Y .. .EQCODE=$02
2A.. H. .EQPUFBEL=$024F.. H.;.. R. .BA$0
500.. |.;.. .. LDAPUFBEL.D .. ORA#$04.S
.. STAPUFBEL.. .. LDA#$0A.. .. STACODE..
.. JSR$C1EE..!B. JSR$C398..!L. JSR$C320
.%!V. JSR$C3CA.3!.. JSR$C49D.=!.. BPLA.K
!.. JMP$D945.Y!..A LDY#$01.I!.. LDA(DIR)
,Y.W!.. STATRACK..!.. INY..!&. LDA(DIR),
Y..!0. STASECTOR..!:. JSR$D55F..!D. JSR$
D475.L!N. JSRREADNEXT.Z!X. JSR$D137..!B.
STAAL..!L. STAEL..!V. JSR$D137..".. STA
AH..".. STAEL..".. JMPC.0"..B JSRREADNEX
T.?"..C LDATRACK.M"..D BEQENDE.X".. LDAE
L.A"F. CLC.N"P. ADC#$FE.Y"Z. STAEL.."..
BCCE..".. INCEH.."..E JMPD.."..READNEXT
JSR$D44D..".. LDA#$00.J".. JSR$D4C8.X" .
JSR$D137.."*. STATRACK.."4. JSR$D137..#
>. STASECTOR..#H. RTS..#R.ENDE LDASECTOR
.(#\. CLC.3#F. ADCEL.>#P. STAEL.H#Z. BCC
F.S#.. INCEH._#..F LDAEL.H#.. SEC.U#.. S
BC#$03..#.. STAEL..#.. BCSG..#.. DECEH..
#J.G JSR$D227..#T. LDX#$02..#.. LDY#$D5.
J#.. STYERR.X#.. STXERR+1..#.. LDY#$00..
#..H LDATEXT,Y..$.. STA(ERR),Y..$.. INY.
.$$. CPY#$12.%$.. BCCH.0$8. LDAAH.<$B. J
SRHEX.G$L. LDAAL.S$V. JSRHEX.`$`. LDA#$2
C.P$J. STA(ERR),Y.Y$T. INY..$~. LDA#$24.
.$.. STA(ERR),Y..$.. INY..$.. LDAEH..$..
JSRHEX.A$.. LDAEL.M$.. JSRHEX..$D. JSR$
E6F7..$N. JSR$C1AA..$X. JMP$EBFF..%..HEX
PHA..%.. LSR..%.. LSR..%.. LSR.'%.. LSR
.1%.. JSRI.:%.. PLA.G%(. AND#$0F.U%2.I C
MP#$0A._%<. BCCJ.H%F. CLC.U%P. ADC#$07.
%Z.J CLC..%D. ADC#$30..%N. STA(ERR),Y..%
X. INY..%.. RTS..%..TEXT .BY$30,$32,$2C,
$20,$46,$49,$4C,$45; "02, FILE"..&.. .BY
$20,$53,$43,$41,$4E,$4E,$45,$44; " SCANN
ED".0& . .BY$2C,$24; ",$".?&.. LDAPUFBEL
.L&.. ORA#$04.[&H. STAPUFBEL.D&R. RTS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL