_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SCAN.QU

FILE INFORMATION

FILENAME(S): SCAN.QU

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 01:13:12

APPEARS ON: 2 disk(s)

FILE HASH

04d936afd95f7514691d5d533b49e20e9489ee1c905531e4c16556e8ce3b25af

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10903 SEITE A SCAN.QU PRG C64er, DuncanTwain 11 0 DOWNLOAD FILE
10903 SEITE A SCAN.QU PRG DuncanTwain 11 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL