1581 SECTOR READ
FILE INFORMATION
FILENAME(S): 1581 SECTOR READ
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-10-20 14:30:45
APPEARS ON: 1 disk(s)
FILE HASH
d933af88f40006559c8469f2ef621a25856853ea526f5d214e0d35facd26b5a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 86 | 1581 SECTOR READ | PRG | Treasure Chest - Klaus Der Suhler | 8 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0F 1C 05 00 44 52 B2 C2 28 31 38 36 29 00 |......DR..(186).| 00000010: 32 1C 0A 00 9F 31 2C 44 52 2C 31 35 3A 8F 20 4F |2....1,DR,15:. O| 00000020: 50 45 4E 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E |PEN COMMAND CHAN| 00000030: 45 4C 00 5B 1C 14 00 9F 32 2C 44 52 2C 32 2C 22 |EL.[....2,DR,2,"| 00000040: 23 22 3A 8F 20 4F 50 45 4E 20 42 55 46 46 45 52 |#":. OPEN BUFFER| 00000050: 20 30 20 41 54 20 24 30 33 30 30 00 7F 1C 1E 00 | 0 AT $0300.....| 00000060: 85 22 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |."TRACK AND SECT| 00000070: 4F 52 20 54 4F 20 52 45 41 44 22 3B 54 2C 53 00 |OR TO READ";T,S.| 00000080: C2 1C 28 00 8F 20 57 52 49 54 45 20 54 52 41 43 |..(.. WRITE TRAC| 00000090: 4B 20 26 20 53 45 43 54 4F 52 20 50 41 52 41 4D |K & SECTOR PARAM| 000000A0: 45 54 45 52 53 20 54 4F 20 48 44 52 53 20 49 4E |ETERS TO HDRS IN| 000000B0: 20 31 35 38 31 20 52 41 4D 20 41 54 20 24 30 30 | 1581 RAM AT $00| 000000C0: 30 42 00 E9 1C 32 00 98 31 2C 22 4D 2D 57 22 AA |0B...2..1,"M-W".| 000000D0: C7 28 31 31 29 AA C7 28 30 29 AA C7 28 32 29 AA |.(11)..(0)..(2).| 000000E0: C7 28 54 29 AA C7 28 53 29 00 24 1D 3C 00 8F 20 |.(T)..(S).$.<.. | 000000F0: 50 55 54 20 54 48 45 20 52 45 41 44 20 53 45 43 |PUT THE READ SEC| 00000100: 54 4F 52 20 28 24 38 30 29 20 43 4F 4D 4D 41 4E |TOR ($80) COMMAN| 00000110: 44 20 49 4E 54 4F 20 54 48 45 20 4A 4F 42 20 51 |D INTO THE JOB Q| 00000120: 55 45 55 45 00 47 1D 46 00 98 31 2C 22 4D 2D 57 |UEUE.G.F..1,"M-W| 00000130: 22 AA C7 28 32 29 AA C7 28 30 29 AA C7 28 31 29 |"..(2)..(0)..(1)| 00000140: AA C7 28 31 32 38 29 00 87 1D 50 00 8F 20 52 45 |..(128)...P.. RE| 00000150: 41 44 20 42 41 43 4B 20 54 48 45 20 4A 4F 42 20 |AD BACK THE JOB | 00000160: 51 55 45 55 45 20 57 48 45 52 45 20 54 48 45 20 |QUEUE WHERE THE | 00000170: 43 4F 4D 4D 41 4E 44 20 57 41 53 20 4A 55 53 54 |COMMAND WAS JUST| 00000180: 20 57 52 49 54 45 4E 00 BA 1D 5A 00 8F 20 57 41 | WRITEN...Z.. WA| 00000190: 49 54 49 4E 47 20 46 4F 52 20 54 48 45 20 53 54 |ITING FOR THE ST| 000001A0: 41 54 55 53 20 54 4F 20 42 45 20 57 52 49 54 54 |ATUS TO BE WRITT| 000001B0: 45 4E 20 49 4E 54 4F 20 49 54 00 D6 1D 64 00 98 |EN INTO IT...d..| 000001C0: 31 2C 22 4D 2D 52 22 AA C7 28 32 29 AA C7 28 30 |1,"M-R"..(2)..(0| 000001D0: 29 AA C7 28 31 29 00 F3 1D 6E 00 A1 23 31 2C 41 |)..(1)...n..#1,A| 000001E0: 24 3A 8B 20 C6 28 41 24 29 B1 31 32 37 20 A7 20 |$:. .(A$).127 . | 000001F0: 31 30 30 00 13 1E 78 00 99 22 53 54 41 54 55 53 |100...x.."STATUS| 00000200: 20 52 45 54 55 52 4E 45 44 20 3D 20 22 3B C6 28 | RETURNED = ";.(| 00000210: 41 24 29 00 51 1E 7D 00 8F 20 52 45 41 44 20 54 |A$).Q.}.. READ T| 00000220: 48 45 20 54 54 52 41 4E 53 4C 41 54 45 44 20 54 |HE TTRANSLATED T| 00000230: 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 |RACK AND SECTOR | 00000240: 56 41 4C 55 45 53 20 46 52 4F 4D 20 48 44 52 53 |VALUES FROM HDRS| 00000250: 32 00 71 1E 82 00 98 31 2C 22 4D 2D 52 22 AA C7 |2.q....1,"M-R"..| 00000260: 28 31 38 38 29 AA C7 28 30 31 29 AA C7 28 30 32 |(188)..(01)..(02| 00000270: 29 00 85 1E 8C 00 A1 23 31 2C 41 24 3A 50 54 B2 |)......#1,A$:PT.| 00000280: C6 28 41 24 29 00 99 1E 96 00 A1 23 31 2C 41 24 |.(A$)......#1,A$| 00000290: 3A 50 53 B2 C6 28 41 24 29 00 BE 1E A0 00 8F 20 |:PS..(A$)...... | 000002A0: 52 45 41 44 20 54 48 45 20 54 52 41 4E 53 4C 41 |READ THE TRANSLA| 000002B0: 54 45 44 20 53 49 44 45 20 56 41 4C 55 45 00 DC |TED SIDE VALUE..| 000002C0: 1E AA 00 98 31 2C 22 4D 2D 52 22 AA C7 28 32 33 |....1,"M-R"..(23| 000002D0: 39 29 AA C7 28 30 29 AA C7 28 31 29 00 F2 1E B4 |9)..(0)..(1)....| 000002E0: 00 A1 23 31 2C 41 24 3A 53 49 44 45 B2 C6 28 41 |..#1,A$:SIDE..(A| 000002F0: 24 29 00 2E 1F BE 00 99 22 54 52 41 4E 53 4C 41 |$)......"TRANSLA| 00000300: 54 45 44 20 54 52 41 43 4B 3D 20 22 3B 50 54 3B |TED TRACK= ";PT;| 00000310: 22 20 53 45 43 54 4F 52 3D 20 22 3B 50 53 3B 22 |" SECTOR= ";PS;"| 00000320: 20 53 49 44 45 20 3D 20 22 3B 53 49 44 45 00 34 | SIDE = ";SIDE.4| 00000330: 1F C8 00 99 00 81 1F D2 00 8F 20 52 45 41 44 20 |.......... READ | 00000340: 54 48 45 20 32 35 36 20 42 59 54 45 53 20 4F 46 |THE 256 BYTES OF| 00000350: 20 44 41 54 41 20 46 52 4F 4D 20 54 48 45 20 31 | DATA FROM THE 1| 00000360: 35 38 31 20 4A 4F 42 20 51 55 45 55 45 20 42 55 |581 JOB QUEUE BU| 00000370: 46 46 45 52 20 49 4E 54 4F 20 43 50 55 20 52 41 |FFER INTO CPU RA| 00000380: 4D 00 9D 1F DC 00 98 31 2C 22 4D 2D 52 22 AA C7 |M......1,"M-R"..| 00000390: 28 30 29 AA C7 28 33 29 AA C7 28 30 29 00 B8 1F |(0)..(3)..(0)...| 000003A0: E6 00 8F 20 4C 49 53 54 20 54 48 45 20 53 45 43 |... LIST THE SEC| 000003B0: 54 4F 52 20 44 41 54 41 00 C9 1F F0 00 99 22 20 |TOR DATA......" | 000003C0: 20 20 20 20 20 20 20 22 3B 00 0E 20 F5 00 99 22 | ";.. ..."| 000003D0: 30 20 20 20 31 20 20 20 32 20 20 20 33 20 20 20 |0 1 2 3 | 000003E0: 34 20 20 20 35 20 20 20 36 20 20 20 37 20 20 20 |4 5 6 7 | 000003F0: 38 20 20 20 39 20 20 20 41 20 20 20 42 20 20 20 |8 9 A B | 00000400: 43 20 20 20 44 20 20 20 45 20 20 20 46 22 00 1E |C D E F"..| 00000410: 20 FA 00 99 22 2D 2D 2D 2D 2D 2D 2D 22 3B 00 63 | ..."-------";.c| 00000420: 20 FF 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ..."-----------| 00000430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000460: 2D 2D 22 00 72 20 04 01 81 20 58 B2 30 20 A4 20 |--".r ... X.0 . | 00000470: 31 35 00 86 20 0E 01 99 C9 28 D2 28 58 29 2C 31 |15.. ....(.(X),1| 00000480: 29 3B A3 36 29 3B 00 97 20 18 01 81 20 59 20 B2 |);.6);.. ... Y .| 00000490: 20 31 20 A4 20 31 36 00 A2 20 22 01 A1 23 31 2C | 1 . 16.. "..#1,| 000004A0: 41 24 00 BE 20 2C 01 99 FB 22 23 23 23 23 22 3B |A$.. ,..."####";| 000004B0: C9 28 D2 28 C6 28 41 24 29 29 2C 32 29 3B 00 C5 |.(.(.(A$)),2);..| 000004C0: 20 36 01 82 59 00 CB 20 40 01 99 00 D2 20 4A 01 | 6..Y.. @.... J.| 000004D0: 82 58 00 00 00 |.X... |
......DR.B(186).2....1,DR,15:. OPEN COMM
AND CHANEL.[....2,DR,2,"#":. OPEN BUFFER
0 AT $0300....."TRACK AND SECTOR TO RE
AD";T,S.B.(.. WRITE TRACK & SECTOR PARAM
ETERS TO HDRS IN 1581 RAM AT $000B...2..
1,"M-W".G(11).G(0).G(2).G(T).G(S).$.<..
PUT THE READ SECTOR ($80) COMMAND INTO T
HE JOB QUEUE.G.F..1,"M-W".G(2).G(0).G(1)
.G(128)...P.. READ BACK THE JOB QUEUE WH
ERE THE COMMAND WAS JUST WRITEN...Z.. WA
ITING FOR THE STATUS TO BE WRITTEN INTO
IT.V.D..1,"M-R".G(2).G(0).G(1)...N..#1,A
$:. F(A$).127 . 100...X.."STATUS RETURNE
D = ";F(A$).Q.}.. READ THE TTRANSLATED T
RACK AND SECTOR VALUES FROM HDRS2.Q....1
,"M-R".G(188).G(01).G(02)......#1,A$:PT.
F(A$)......#1,A$:PS.F(A$)... .. READ THE
TRANSLATED SIDE VALUE......1,"M-R".G(23
9).G(0).G(1)......#1,A$:SIDE.F(A$)......
"TRANSLATED TRACK= ";PT;" SECTOR= ";PS;"
SIDE = ";SIDE.4.H.....R.. READ THE 256
BYTES OF DATA FROM THE 1581 JOB QUEUE BU
FFER INTO CPU RAM......1,"M-R".G(0).G(3)
.G(0)...... LIST THE SECTOR DATA.I...."
";.. ..."0 1 2 3 4 5
6 7 8 9 A B C D E F"..
..."-------";.C ..."-------------------
----------------------------------------
--".R ... X.0 . 15.. ...I(R(X),1);.6);..
... Y . 1 . 16.. "..#1,A$.. ,..."####";
I(R(F(A$)),2);.E 6..Y.K @...R J..X...
> CLICK IMAGE PREVIEW FOR FULL MODAL