DISK

FILE INFORMATION

FILENAME(S): DISK

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 21:07:02

APPEARS ON: 1 disk(s)

FILE HASH

daa00133bc637cf8f441a5a2a641363f7c0f23b713516739a9aa09939f30ae98

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
VIC 20	DISK	PRG	DuncanTwain	23	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 42  41 20 24 37 30 30 30 00  |....d..BA $7000.|
00000010: FA 1F 6E 00 2E 45 51 20  44 52 41 20 3D 20 24 39  |..n..EQ DRA = $9|
00000020: 38 31 30 00 0E 20 78 00  2E 45 51 20 43 52 41 20  |810.. x..EQ CRA |
00000030: 3D 20 44 52 41 2B 31 00  22 20 82 00 2E 45 51 20  |= DRA+1." ...EQ |
00000040: 44 52 42 20 3D 20 44 52  41 2B 32 00 36 20 8C 00  |DRB = DRA+2.6 ..|
00000050: 2E 45 51 20 43 52 42 20  3D 20 44 52 41 2B 33 00  |.EQ CRB = DRA+3.|
00000060: 4A 20 96 00 2E 45 51 20  43 41 43 20 3D 20 44 52  |J ...EQ CAC = DR|
00000070: 41 2B 34 00 5E 20 A0 00  2E 45 51 20 44 41 43 20  |A+4.^ ...EQ DAC |
00000080: 3D 20 44 52 41 2B 35 00  75 20 AA 00 2E 45 51 20  |= DRA+5.u ...EQ |
00000090: 4C 4F 44 56 45 43 20 3D  20 24 30 30 46 44 00 8C  |LODVEC = $00FD..|
000000A0: 20 B4 00 2E 45 51 20 50  41 47 45 53 20 20 3D 20  | ...EQ PAGES  = |
000000B0: 24 30 30 46 46 00 92 20  E7 03 3B 00 A3 20 E8 03  |$00FF.. ..;.. ..|
000000C0: 49 4E 49 44 53 4B 20 4C  44 59 23 30 00 AF 20 F2  |INIDSK LDY#0.. .|
000000D0: 03 20 53 54 59 43 52 41  00 C3 20 FC 03 20 4C 44  |. STYCRA.. .. LD|
000000E0: 41 23 24 34 30 3B 41 36  3D 30 55 54 00 CF 20 06  |A#$40;A6=0UT.. .|
000000F0: 04 20 53 54 41 44 52 41  00 DA 20 10 04 20 4C 44  |. STADRA.. .. LD|
00000100: 58 23 34 00 E6 20 1A 04  20 53 54 58 43 52 41 00  |X#4.. .. STXCRA.|
00000110: F3 20 24 04 20 4C 44 41  23 24 34 30 00 FF 20 2E  |. $. LDA#$40.. .|
00000120: 04 20 53 54 41 44 52 41  00 0B 21 38 04 20 53 54  |. STADRA..!8. ST|
00000130: 59 43 52 42 00 18 21 42  04 20 4C 44 41 23 24 46  |YCRB..!B. LDA#$F|
00000140: 46 00 2C 21 4C 04 20 53  54 41 44 52 42 3B 41 4C  |F.,!L. STADRB;AL|
00000150: 4C 3D 4F 55 54 00 38 21  56 04 20 53 54 58 43 52  |L=OUT.8!V. STXCR|
00000160: 42 00 44 21 60 04 20 53  54 41 44 52 42 00 4A 21  |B.D!`. STADRB.J!|
00000170: A6 04 3B 00 5B 21 B0 04  42 4F 4F 54 20 4C 44 41  |..;.[!..BOOT LDA|
00000180: 23 24 46 42 00 6F 21 BA  04 20 42 4E 45 54 52 4B  |#$FB.o!.. BNETRK|
00000190: 30 3B 41 4C 57 41 59 53  00 80 21 C4 04 53 54 45  |0;ALWAYS..!..STE|
000001A0: 50 4C 4F 20 4C 44 41 23  32 00 94 21 CE 04 20 42  |PLO LDA#2..!.. B|
000001B0: 49 54 44 52 41 3B 54 52  4B 20 30 20 3F 00 AA 21  |ITDRA;TRK 0 ?..!|
000001C0: D8 04 20 42 45 51 49 4E  44 45 58 50 3B 59 45 53  |.. BEQINDEXP;YES|
000001D0: 20 2D 3E 00 B7 21 E2 04  20 4C 44 41 23 24 46 46  | ->..!.. LDA#$FF|
000001E0: 00 C7 21 EC 04 54 52 4B  30 20 53 54 41 44 52 42  |..!..TRK0 STADRB|
000001F0: 00 D5 21 F6 04 20 4A 53  52 44 45 4C 41 59 00 E9  |..!.. JSRDELAY..|
00000200: 21 00 05 20 41 4E 44 23  24 46 37 3B 53 54 45 50  |!.. AND#$F7;STEP|
00000210: 20 30 00 F5 21 0A 05 20  53 54 41 44 52 42 00 03  | 0..!.. STADRB..|
00000220: 22 14 05 20 4A 53 52 44  45 4C 41 59 00 15 22 1E  |".. JSRDELAY..".|
00000230: 05 20 4F 52 41 23 38 3B  53 54 45 50 20 31 00 21  |. ORA#8;STEP 1.!|
00000240: 22 28 05 20 53 54 41 44  52 42 00 30 22 32 05 20  |"(. STADRB.0"2. |
00000250: 4A 53 52 46 44 45 4C 41  59 00 46 22 3C 05 20 42  |JSRFDELAY.F"<. B|
00000260: 45 51 53 54 45 50 4C 4F  3B 41 4C 57 41 59 53 00  |EQSTEPLO;ALWAYS.|
00000270: 59 22 46 05 49 4E 44 45  58 50 20 4C 44 58 23 24  |Y"F.INDEXP LDX#$|
00000280: 37 46 00 65 22 50 05 20  53 54 58 44 52 42 00 73  |7F.e"P. STXDRB.s|
00000290: 22 5A 05 20 4A 53 52 44  45 4C 41 59 00 8D 22 64  |"Z. JSRDELAY.."d|
000002A0: 05 49 4E 44 42 45 47 20  4C 44 41 44 52 41 3B 49  |.INDBEG LDADRA;I|
000002B0: 4E 44 45 58 20 3F 00 A2  22 6E 05 20 42 4D 49 49  |NDEX ?.."n. BMII|
000002C0: 4E 44 42 45 47 3B 4E 4F  20 2D 3E 00 BC 22 78 05  |NDBEG;NO ->.."x.|
000002D0: 49 4E 44 45 4E 44 20 4C  44 41 44 52 41 3B 49 4E  |INDEND LDADRA;IN|
000002E0: 44 45 58 20 3F 00 D2 22  82 05 20 42 50 4C 49 4E  |DEX ?..".. BPLIN|
000002F0: 44 42 45 47 3B 59 45 53  20 2D 3E 00 DD 22 8C 05  |DBEG;YES ->.."..|
00000300: 20 4C 44 41 23 33 00 F0  22 96 05 20 53 54 41 43  | LDA#3..".. STAC|
00000310: 41 43 3B 20 52 45 53 45  54 00 FD 22 A0 05 20 4C  |AC; RESET..".. L|
00000320: 44 41 23 24 35 38 00 09  23 AA 05 20 53 54 41 43  |DA#$58..#.. STAC|
00000330: 41 43 00 17 23 B4 05 20  4A 53 52 52 42 59 54 45  |AC..#.. JSRRBYTE|
00000340: 00 28 23 BE 05 20 53 54  41 4C 4F 44 56 45 43 2B  |.(#.. STALODVEC+|
00000350: 31 00 31 23 C8 05 20 54  41 58 00 3F 23 D2 05 20  |1.1#.. TAX.?#.. |
00000360: 4A 53 52 52 42 59 54 45  00 4E 23 DC 05 20 53 54  |JSRRBYTE.N#.. ST|
00000370: 41 4C 4F 44 56 45 43 00  5C 23 E6 05 20 4A 53 52  |ALODVEC.\#.. JSR|
00000380: 52 42 59 54 45 00 6A 23  F0 05 20 53 54 41 50 41  |RBYTE.j#.. STAPA|
00000390: 47 45 53 00 70 23 4F C3  3B 00 81 23 50 C3 44 45  |GES.p#O.;..#P.DE|
000003A0: 4C 41 59 20 4C 44 58 23  31 38 00 8A 23 5A C3 20  |LAY LDX#18..#Z. |
000003B0: 44 45 58 00 98 23 64 C3  20 42 4E 45 44 45 4C 41  |DEX..#d. BNEDELA|
000003C0: 59 00 A1 23 6E C3 20 52  54 53 00 A7 23 78 C3 3B  |Y..#n. RTS..#x.;|
000003D0: 00 BA 23 B4 C3 46 44 45  4C 41 59 20 4C 44 59 23  |..#..FDELAY LDY#|
000003E0: 24 46 46 00 C3 23 BE C3  20 44 45 59 00 D2 23 C8  |$FF..#.. DEY..#.|
000003F0: C3 20 42 4E 45 46 44 45  4C 41 59 00 DB 23 D2 C3  |. BNEFDELAY..#..|
00000400: 20 44 45 58 00 EA 23 DC  C3 20 42 4E 45 46 44 45  | DEX..#.. BNEFDE|
00000410: 4C 41 59 00 F3 23 E6 C3  20 52 54 53 00 F9 23 F0  |LAY..#.. RTS..#.|
00000420: C3 3B 00 0A 24 18 C4 52  42 59 54 45 20 4C 44 41  |.;..$..RBYTE LDA|
00000430: 43 41 43 00 13 24 22 C4  20 4C 53 52 00 21 24 2C  |CAC..$". LSR.!$,|
00000440: C4 20 42 43 43 52 42 59  54 45 00 2D 24 36 C4 20  |. BCCRBYTE.-$6. |
00000450: 4C 44 41 44 41 43 00 36  24 40 C4 20 52 54 53 00  |LDADAC.6$@. RTS.|
00000460: 3C 24 4A C4 3B 00 00 00                           |<$J.;...        |

X...D..BA $7000...N..EQ DRA = $9810.. X.
.EQ CRA = DRA+1." ...EQ DRB = DRA+2.6 ..
.EQ CRB = DRA+3.J ...EQ CAC = DRA+4.^  .
.EQ DAC = DRA+5.U ...EQ LODVEC = $00FD..
 ...EQ PAGES  = $00FF.. ..;.. ..INIDSK L
DY#0.. .. STYCRA.C .. LDA#$40;A6=0UT.O .
. STADRA.Z .. LDX#4.. .. STXCRA.. $. LDA
#$40.. .. STADRA..!8. STYCRB..!B. LDA#$F
F.,!L. STADRB;ALL=OUT.8!V. STXCRB.D!`. S
TADRB.J!..;.[!..BOOT LDA#$FB.O!.. BNETRK
0;ALWAYS..!D.STEPLO LDA#2..!N. BITDRA;TR
K 0 ?..!X. BEQINDEXP;YES ->..!.. LDA#$FF
.G!..TRK0 STADRB.U!.. JSRDELAY..!.. AND#
$F7;STEP 0..!.. STADRB..".. JSRDELAY..".
. ORA#8;STEP 1.!"(. STADRB.0"2. JSRFDELA
Y.F"<. BEQSTEPLO;ALWAYS.Y"F.INDEXP LDX#$
7F.E"P. STXDRB.S"Z. JSRDELAY.."D.INDBEG 
LDADRA;INDEX ?.."N. BMIINDBEG;NO ->.."X.
INDEND LDADRA;INDEX ?.R".. BPLINDBEG;YES
 ->..".. LDA#3..".. STACAC; RESET.." . L
DA#$58..#.. STACAC..#.. JSRRBYTE.(#.. ST
ALODVEC+1.1#H. TAX.?#R. JSRRBYTE.N#.. ST
ALODVEC.\#.. JSRRBYTE.J#.. STAPAGES.P#OC
;..#PCDELAY LDX#18..#ZC DEX..#DC BNEDELA
Y..#NC RTS..#XC;..#.CFDELAY LDY#$FF.C#.C
 DEY.R#HC BNEFDELAY..#RC DEX..#.C BNEFDE
LAY..#.C RTS..#.C;..$.DRBYTE LDACAC..$"D
 LSR.!$,D BCCRBYTE.-$6D LDADAC.6$@D RTS.
<$JD;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL