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

READ1.ASM

FILE INFORMATION

FILENAME(S): READ1.ASM

FILE TYPE(S): PRG

FILE SIZE: 534b

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

APPEARS ON: 2 disk(s)

FILE HASH

ca9af5afd269e2b63e28f6d603522afe501c76fc1c94d58913f47fe73fea3395

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PC FLOP READ1.ASM PRG DuncanTwain 14 6 DOWNLOAD FILE
HARDDISK READ1.ASM PRG DuncanTwain 22 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 42  41 20 32 31 30 30 30 00  |....d..BA 21000.|
00000010: FD 1F 6E 00 2E 45 51 20  44 41 54 41 20 20 20 3D  |..n..EQ DATA   =|
00000020: 20 24 44 45 30 30 00 15  20 78 00 2E 45 51 20 53  | $DE00.. x..EQ S|
00000030: 45 43 4E 55 4D 20 3D 20  44 41 54 41 2B 32 00 2D  |ECNUM = DATA+2.-|
00000040: 20 82 00 2E 45 51 20 53  45 43 54 4F 52 20 3D 20  | ...EQ SECTOR = |
00000050: 44 41 54 41 2B 33 00 45  20 8C 00 2E 45 51 20 54  |DATA+3.E ...EQ T|
00000060: 52 43 4B 4C 4F 20 3D 20  44 41 54 41 2B 34 00 5D  |RCKLO = DATA+4.]|
00000070: 20 96 00 2E 45 51 20 54  52 43 4B 48 49 20 3D 20  | ...EQ TRCKHI = |
00000080: 44 41 54 41 2B 35 00 75  20 A0 00 2E 45 51 20 44  |DATA+5.u ...EQ D|
00000090: 52 48 45 41 44 20 3D 20  44 41 54 41 2B 36 00 8D  |RHEAD = DATA+6..|
000000A0: 20 AA 00 2E 45 51 20 43  4F 4D 4D 4E 44 20 3D 20  | ...EQ COMMND = |
000000B0: 44 41 54 41 2B 37 00 A5  20 B4 00 2E 45 51 20 44  |DATA+7.. ...EQ D|
000000C0: 41 54 41 48 49 20 3D 20  44 41 54 41 2B 38 00 AE  |ATAHI = DATA+8..|
000000D0: 20 84 03 20 53 45 49 00  B9 20 E8 03 20 4C 44 41  | .. SEI.. .. LDA|
000000E0: 23 31 00 C8 20 F2 03 20  53 54 41 53 45 43 4E 55  |#1.. .. STASECNU|
000000F0: 4D 00 D7 20 FC 03 20 53  54 41 53 45 43 54 4F 52  |M.. .. STASECTOR|
00000100: 00 E6 20 06 04 20 53 54  41 54 52 43 4B 4C 4F 00  |.. .. STATRCKLO.|
00000110: F1 20 10 04 20 4C 44 41  23 30 00 00 21 1A 04 20  |. .. LDA#0..!.. |
00000120: 53 54 41 54 52 43 4B 48  49 00 0D 21 1F 04 20 4C  |STATRCKHI..!.. L|
00000130: 44 41 23 24 41 31 00 1C  21 21 04 20 53 54 41 44  |DA#$A1..!!. STAD|
00000140: 52 48 45 41 44 00 2F 21  24 04 20 4C 44 41 23 24  |RHEAD./!$. LDA#$|
00000150: 32 31 3B 20 52 45 41 44  00 3E 21 2E 04 20 53 54  |21; READ.>!.. ST|
00000160: 41 43 4F 4D 4D 4E 44 00  4F 21 38 04 4C 30 20 4C  |ACOMMND.O!8.L0 L|
00000170: 44 41 43 4F 4D 4D 4E 44  00 5A 21 42 04 20 42 4D  |DACOMMND.Z!B. BM|
00000180: 49 4C 30 00 65 21 4C 04  20 4C 44 59 23 30 00 74  |IL0.e!L. LDY#0.t|
00000190: 21 56 04 4C 31 20 4C 44  41 44 41 54 41 00 81 21  |!V.L1 LDADATA..!|
000001A0: 58 04 20 41 4E 44 23 24  30 46 00 91 21 5B 04 20  |X. AND#$0F..![. |
000001B0: 53 54 41 24 30 34 30 30  2C 59 00 AA 21 60 04 3B  |STA$0400,Y..!`.;|
000001C0: 20 20 20 20 20 20 20 20  20 4C 44 41 20 44 41 54  |         LDA DAT|
000001D0: 41 48 49 00 C4 21 65 04  3B 20 20 20 20 20 20 20  |AHI..!e.;       |
000001E0: 20 20 53 54 41 20 24 30  35 31 38 2C 59 00 CD 21  |  STA $0518,Y..!|
000001F0: 6A 04 20 49 4E 59 00 D8  21 74 04 20 42 4E 45 4C  |j. INY..!t. BNEL|
00000200: 31 00 E1 21 79 04 20 43  4C 49 00 EA 21 7E 04 20  |1..!y. CLI..!~. |
00000210: 52 54 53 00 00 00                                 |RTS...          |

X...D..BA 21000...N..EQ DATA   = $DE00..
 X..EQ SECNUM = DATA+2.- ...EQ SECTOR = 
DATA+3.E ...EQ TRCKLO = DATA+4.] ...EQ T
RCKHI = DATA+5.U  ..EQ DRHEAD = DATA+6..
 ...EQ COMMND = DATA+7.. ...EQ DATAHI = 
DATA+8.. .. SEI.. .. LDA#1.H .. STASECNU
M.W .. STASECTOR.. .. STATRCKLO.. .. LDA
#0..!.. STATRCKHI..!.. LDA#$A1..!!. STAD
RHEAD./!$. LDA#$21; READ.>!.. STACOMMND.
O!8.L0 LDACOMMND.Z!B. BMIL0.E!L. LDY#0.T
!V.L1 LDADATA..!X. AND#$0F..![. STA$0400
,Y..!`.;         LDA DATAHI.D!E.;       
  STA $0518,Y.M!J. INY.X!T. BNEL1..!Y. C
LI..!~. RTS...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL