2READ.ASM

FILE INFORMATION

FILENAME(S): 2READ.ASM

FILE TYPE(S): PRG

FILE SIZE: 1.2K

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

APPEARS ON: 2 disk(s)

FILE HASH

888c5e456c9a7c84bf77b90fb796de64a1de66faef9573423dfff4a7eb9a6ee2

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PC FLOP	2READ.ASM	PRG	DuncanTwain	14	18	DOWNLOAD FILE
HARDDISK	2READ.ASM	PRG	DuncanTwain	22	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 42  41 20 32 30 30 30 30 00  |....d..BA 20000.|
00000010: FD 1F 6E 00 2E 45 51 20  44 41 54 41 4C 4F 20 3D  |..n..EQ DATALO =|
00000020: 20 24 44 45 30 30 00 17  20 78 00 2E 45 51 20 44  | $DE00.. x..EQ D|
00000030: 41 54 41 48 49 20 3D 20  44 41 54 41 4C 4F 2B 32  |ATAHI = DATALO+2|
00000040: 00 31 20 82 00 2E 45 51  20 52 45 47 49 53 54 20  |.1 ...EQ REGIST |
00000050: 3D 20 44 41 54 41 4C 4F  2B 31 00 3E 20 C8 00 20  |= DATALO+1.> .. |
00000060: 4C 44 41 23 24 30 41 00  55 20 E1 00 20 53 54 41  |LDA#$0A.U .. STA|
00000070: 52 45 47 49 53 54 3B 20  23 20 53 45 43 54 00 62  |REGIST; # SECT.b|
00000080: 20 FA 00 20 4C 44 41 23  24 30 32 00 79 20 13 01  | .. LDA#$02.y ..|
00000090: 20 53 54 41 52 45 47 49  53 54 3B 20 23 20 53 45  | STAREGIST; # SE|
000000A0: 43 54 00 84 20 2C 01 20  4C 44 41 23 31 00 93 20  |CT.. ,. LDA#1.. |
000000B0: 5E 01 20 53 54 41 44 41  54 41 4C 4F 00 9E 20 68  |^. STADATALO.. h|
000000C0: 01 20 4C 44 58 23 30 00  AB 20 6A 01 20 4A 53 52  |. LDX#0.. j. JSR|
000000D0: 54 45 53 54 00 B1 20 77  01 3B 00 BE 20 90 01 20  |TEST.. w.;.. .. |
000000E0: 4C 44 41 23 24 30 42 00  D5 20 A9 01 20 53 54 41  |LDA#$0B.. .. STA|
000000F0: 52 45 47 49 53 54 3B 20  53 45 43 54 4F 52 00 E2  |REGIST; SECTOR..|
00000100: 20 C2 01 20 4C 44 41 23  24 30 33 00 F9 20 DB 01  | .. LDA#$03.. ..|
00000110: 20 53 54 41 52 45 47 49  53 54 3B 20 53 45 43 54  | STAREGIST; SECT|
00000120: 4F 52 00 04 21 F4 01 20  4C 44 41 23 31 00 13 21  |OR..!.. LDA#1..!|
00000130: 26 02 20 53 54 41 44 41  54 41 4C 4F 00 1E 21 30  |&. STADATALO..!0|
00000140: 02 20 4C 44 58 23 31 00  2B 21 32 02 20 4A 53 52  |. LDX#1.+!2. JSR|
00000150: 54 45 53 54 00 31 21 3F  02 3B 00 3E 21 58 02 20  |TEST.1!?.;.>!X. |
00000160: 4C 44 41 23 24 30 43 00  55 21 71 02 20 53 54 41  |LDA#$0C.U!q. STA|
00000170: 52 45 47 49 53 54 3B 20  54 52 43 4B 4C 4F 00 62  |REGIST; TRCKLO.b|
00000180: 21 8A 02 20 4C 44 41 23  24 30 34 00 79 21 A3 02  |!.. LDA#$04.y!..|
00000190: 20 53 54 41 52 45 47 49  53 54 3B 20 54 52 43 4B  | STAREGIST; TRCK|
000001A0: 4C 4F 00 84 21 BC 02 20  4C 44 41 23 30 00 93 21  |LO..!.. LDA#0..!|
000001B0: EE 02 20 53 54 41 44 41  54 41 4C 4F 00 9E 21 F8  |.. STADATALO..!.|
000001C0: 02 20 4C 44 58 23 32 00  AB 21 FA 02 20 4A 53 52  |. LDX#2..!.. JSR|
000001D0: 54 45 53 54 00 B1 21 07  03 3B 00 BE 21 20 03 20  |TEST..!..;..! . |
000001E0: 4C 44 41 23 24 30 44 00  D5 21 39 03 20 53 54 41  |LDA#$0D..!9. STA|
000001F0: 52 45 47 49 53 54 3B 20  54 52 43 4B 48 49 00 E2  |REGIST; TRCKHI..|
00000200: 21 52 03 20 4C 44 41 23  24 30 35 00 F9 21 6B 03  |!R. LDA#$05..!k.|
00000210: 20 53 54 41 52 45 47 49  53 54 3B 20 54 52 43 4B  | STAREGIST; TRCK|
00000220: 48 49 00 04 22 84 03 20  4C 44 41 23 30 00 13 22  |HI..".. LDA#0.."|
00000230: B6 03 20 53 54 41 44 41  54 41 4C 4F 00 1E 22 C0  |.. STADATALO..".|
00000240: 03 20 4C 44 58 23 33 00  2B 22 C2 03 20 4A 53 52  |. LDX#3.+".. JSR|
00000250: 54 45 53 54 00 31 22 CF  03 3B 00 3E 22 E8 03 20  |TEST.1"..;.>".. |
00000260: 4C 44 41 23 24 30 45 00  55 22 01 04 20 53 54 41  |LDA#$0E.U".. STA|
00000270: 52 45 47 49 53 54 3B 20  44 52 48 45 41 44 00 62  |REGIST; DRHEAD.b|
00000280: 22 1A 04 20 4C 44 41 23  24 30 36 00 79 22 33 04  |".. LDA#$06.y"3.|
00000290: 20 53 54 41 52 45 47 49  53 54 3B 20 44 52 48 45  | STAREGIST; DRHE|
000002A0: 41 44 00 86 22 4C 04 20  4C 44 41 23 24 41 30 00  |AD.."L. LDA#$A0.|
000002B0: 95 22 7E 04 20 53 54 41  44 41 54 41 4C 4F 00 A0  |."~. STADATALO..|
000002C0: 22 88 04 20 4C 44 58 23  34 00 AD 22 8A 04 20 4A  |".. LDX#4..".. J|
000002D0: 53 52 54 45 53 54 00 B3  22 97 04 3B 00 C0 22 B0  |SRTEST.."..;..".|
000002E0: 04 20 4C 44 41 23 24 30  46 00 D7 22 C9 04 20 53  |. LDA#$0F..".. S|
000002F0: 54 41 52 45 47 49 53 54  3B 20 43 4F 4D 4D 4E 44  |TAREGIST; COMMND|
00000300: 00 E4 22 E2 04 20 4C 44  41 23 24 30 37 00 FB 22  |..".. LDA#$07.."|
00000310: FB 04 20 53 54 41 52 45  47 49 53 54 3B 20 43 4F  |.. STAREGIST; CO|
00000320: 4D 4D 4E 44 00 08 23 14  05 20 4C 44 41 23 24 32  |MMND..#.. LDA#$2|
00000330: 31 00 1D 23 46 05 20 53  54 41 44 41 54 41 4C 4F  |1..#F. STADATALO|
00000340: 3B 20 52 45 41 44 00 32  23 50 05 3B 20 20 20 20  |; READ.2#P.;    |
00000350: 20 20 20 20 20 4C 44 58  20 23 35 00 49 23 52 05  |     LDX #5.I#R.|
00000360: 3B 20 20 20 20 20 20 20  20 20 4A 53 52 20 54 45  |;         JSR TE|
00000370: 53 54 00 4F 23 5F 05 3B  00 60 23 78 05 4C 31 20  |ST.O#_.;.`#x.L1 |
00000380: 4C 44 41 44 41 54 41 4C  4F 00 6B 23 91 05 20 42  |LDADATALO.k#.. B|
00000390: 4D 49 4C 31 00 71 23 DC  05 3B 00 7C 23 F5 05 20  |MIL1.q#..;.|#.. |
000003A0: 4C 44 59 23 38 00 91 23  FA 05 20 53 54 59 52 45  |LDY#8..#.. STYRE|
000003B0: 47 49 53 54 3B 20 44 41  54 41 00 9C 23 FF 05 20  |GIST; DATA..#.. |
000003C0: 4C 44 59 23 30 00 B1 23  0E 06 20 53 54 59 52 45  |LDY#0..#.. STYRE|
000003D0: 47 49 53 54 3B 20 44 41  54 41 00 C2 23 40 06 4C  |GIST; DATA..#@.L|
000003E0: 32 20 4C 44 41 44 41 54  41 4C 4F 00 D2 23 59 06  |2 LDADATALO..#Y.|
000003F0: 20 53 54 41 24 30 34 30  30 2C 59 00 E1 23 5E 06  | STA$0400,Y..#^.|
00000400: 20 4C 44 41 44 41 54 41  48 49 00 F1 23 68 06 20  | LDADATAHI..#h. |
00000410: 53 54 41 24 30 35 31 36  2C 59 00 FA 23 72 06 20  |STA$0516,Y..#r. |
00000420: 49 4E 59 00 05 24 8B 06  20 42 4E 45 4C 32 00 10  |INY..$.. BNEL2..|
00000430: 24 A4 06 20 4C 44 58 23  38 00 16 24 D0 07 3B 00  |$.. LDX#8..$..;.|
00000440: 26 24 B8 0B 54 45 53 54  20 4C 44 41 23 31 31 00  |&$..TEST LDA#11.|
00000450: 35 24 D1 0B 20 53 54 41  52 45 47 49 53 54 00 40  |5$.. STAREGIST.@|
00000460: 24 EA 0B 20 4C 44 41 23  33 00 4F 24 03 0C 20 53  |$.. LDA#3.O$.. S|
00000470: 54 41 52 45 47 49 53 54  00 5E 24 1C 0C 20 4C 44  |TAREGIST.^$.. LD|
00000480: 41 44 41 54 41 4C 4F 00  6E 24 35 0C 20 53 54 41  |ADATALO.n$5. STA|
00000490: 24 30 36 33 30 2C 58 00  77 24 70 17 20 52 54 53  |$0630,X.w$p. RTS|
000004A0: 00 00 00 00 00 00 00 79  23 60 EA 20 52 54 53 00  |.......y#`. RTS.|
000004B0: 86                                                |.               |

X...D..BA 20000...N..EQ DATALO = $DE00..
 X..EQ DATAHI = DATALO+2.1 ...EQ REGIST 
= DATALO+1.> H. LDA#$0A.U .. STAREGIST; 
# SECT.B .. LDA#$02.Y .. STAREGIST; # SE
CT.. ,. LDA#1.. ^. STADATALO.. H. LDX#0.
. J. JSRTEST.. W.;.. .. LDA#$0B.U .. STA
REGIST; SECTOR.. B. LDA#$03.. .. STAREGI
ST; SECTOR..!.. LDA#1..!&. STADATALO..!0
. LDX#1.+!2. JSRTEST.1!?.;.>!X. LDA#$0C.
U!Q. STAREGIST; TRCKLO.B!.. LDA#$04.Y!..
 STAREGIST; TRCKLO..!.. LDA#0..!.. STADA
TALO..!.. LDX#2..!.. JSRTEST..!..;..! . 
LDA#$0D.U!9. STAREGIST; TRCKHI..!R. LDA#
$05..!K. STAREGIST; TRCKHI..".. LDA#0.."
.. STADATALO..".. LDX#3.+"B. JSRTEST.1"O
.;.>".. LDA#$0E.U".. STAREGIST; DRHEAD.B
".. LDA#$06.Y"3. STAREGIST; DRHEAD.."L. 
LDA#$A0.."~. STADATALO. ".. LDX#4..".. J
SRTEST.."..;..".. LDA#$0F.W"I. STAREGIST
; COMMND..".. LDA#$07..".. STAREGIST; CO
MMND..#.. LDA#$21..#F. STADATALO; READ.2
#P.;         LDX #5.I#R.;         JSR TE
ST.O#_.;.`#X.L1 LDADATALO.K#.. BMIL1.Q#.
.;.|#.. LDY#8..#.. STYREGIST; DATA..#.. 
LDY#0..#.. STYREGIST; DATA.B#@.L2 LDADAT
ALO.R#Y. STA$0400,Y..#^. LDADATAHI..#H. 
STA$0516,Y..#R. INY..$.. BNEL2..$.. LDX#
8..$P.;.&$..TEST LDA#11.5$Q. STAREGIST.@
$.. LDA#3.O$.. STAREGIST.^$.. LDADATALO.
N$5. STA$0630,X.W$P. RTS.......Y#`. RTS.
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL