00000000: 01 1C 0B 1C 05 00 E7 35 2C 31 35 00 20 1C 0A 00 |.......5,15. ...|
00000010: 8F 20 22 52 45 41 44 20 4D 46 4D 20 44 49 53 4B |. "READ MFM DISK|
00000020: 00 4A 1C 14 00 8F 20 42 59 20 4D 49 4B 45 20 4D |.J.... BY MIKE M|
00000030: 49 4C 4C 45 52 20 28 41 43 54 53 20 32 39 29 20 |ILLER (ACTS 29) |
00000040: 20 28 33 2F 32 36 2F 38 36 29 00 50 1C 1E 00 3A | (3/26/86).P...:|
00000050: 00 6F 1C 28 00 8F 20 46 4F 52 20 43 2D 31 32 38 |.o.(.. FOR C-128|
00000060: 20 41 4E 44 20 31 35 37 31 20 44 52 49 56 45 00 | AND 1571 DRIVE.|
00000070: B0 1C 32 00 8F 20 28 42 45 20 53 55 52 45 20 31 |..2.. (BE SURE 1|
00000080: 35 37 31 20 44 52 49 56 45 20 49 53 20 54 48 45 |571 DRIVE IS THE|
00000090: 20 46 49 52 53 54 20 50 45 52 49 50 48 45 52 41 | FIRST PERIPHERA|
000000A0: 4C 20 4F 4E 20 53 45 52 49 41 4C 20 42 55 53 29 |L ON SERIAL BUS)|
000000B0: 00 B6 1C 3C 00 3A 00 F1 1C 46 00 8F 20 2A 2A 2A |...<.:...F.. ***|
000000C0: 2A 2A 20 20 20 50 4C 45 41 53 45 20 4E 4F 54 45 |** PLEASE NOTE|
000000D0: 20 54 48 49 53 20 49 53 20 41 20 56 49 52 47 49 | THIS IS A VIRGI|
000000E0: 4E 20 50 52 4F 47 52 41 4D 20 20 20 2A 2A 2A 2A |N PROGRAM ****|
000000F0: 2A 00 36 1D 50 00 8F 20 49 20 57 52 4F 54 45 20 |*.6.P.. I WROTE |
00000100: 49 54 20 41 4E 44 20 41 4D 20 50 55 54 54 49 4E |IT AND AM PUTTIN|
00000110: 47 20 49 54 20 4F 4E 20 51 4C 49 4E 4B 20 49 4E |G IT ON QLINK IN|
00000120: 20 48 4F 50 45 20 54 48 41 54 20 53 4F 4D 45 4F | HOPE THAT SOMEO|
00000130: 4E 45 20 48 41 53 00 7C 1D 5A 00 8F 20 45 58 50 |NE HAS.|.Z.. EXP|
00000140: 45 52 49 45 4E 43 45 20 41 4E 44 20 4B 4E 4F 57 |ERIENCE AND KNOW|
00000150: 4C 45 44 47 45 20 4F 46 20 4D 53 2D 44 4F 53 20 |LEDGE OF MS-DOS |
00000160: 41 4E 44 20 43 41 4E 20 57 52 49 54 45 20 41 20 |AND CAN WRITE A |
00000170: 52 4F 55 54 49 4E 45 20 54 48 41 54 00 B5 1D 64 |ROUTINE THAT...d|
00000180: 00 8F 20 43 41 4E 20 52 45 41 44 20 4D 53 2D 44 |.. CAN READ MS-D|
00000190: 4F 53 20 44 49 52 45 43 54 4F 52 49 45 53 20 41 |OS DIRECTORIES A|
000001A0: 4E 44 20 44 41 54 41 20 54 45 58 54 20 46 49 4C |ND DATA TEXT FIL|
000001B0: 45 53 2E 2E 2E 00 D7 1D 6E 00 8F 20 20 4D 59 20 |ES......n.. MY |
000001C0: 51 4C 49 4E 4B 20 4E 41 4D 45 20 49 53 20 2D 20 |QLINK NAME IS - |
000001D0: 41 43 54 53 20 32 39 00 EF 1D 78 00 8F 20 2A 2A |ACTS 29...x.. **|
000001E0: 2A 20 54 48 41 4E 4B 20 59 4F 55 20 2A 2A 2A 00 |* THANK YOU ***.|
000001F0: F5 1D 82 00 3A 00 33 1E 8C 00 8F 20 54 48 49 53 |....:.3.... THIS|
00000200: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 45 | PROGRAM WILL RE|
00000210: 41 44 20 35 31 32 20 42 59 54 45 53 20 53 45 43 |AD 512 BYTES SEC|
00000220: 54 4F 52 53 20 28 53 49 4E 47 4C 45 20 53 49 44 |TORS (SINGLE SID|
00000230: 45 44 29 00 59 1E 96 00 8F 20 20 20 20 54 4F 20 |ED).Y.... TO |
00000240: 52 41 4D 20 42 4C 4F 43 4B 20 30 20 41 54 20 24 |RAM BLOCK 0 AT $|
00000250: 34 30 30 30 20 26 20 55 50 00 97 1E A0 00 8D 20 |4000 & UP...... |
00000260: 32 38 30 3A 8F 20 50 4F 4B 45 53 20 54 48 45 20 |280:. POKES THE |
00000270: 4D 2F 4C 20 43 4F 44 45 20 54 48 41 54 20 52 45 |M/L CODE THAT RE|
00000280: 41 44 53 20 44 49 53 4B 20 24 31 38 30 30 20 54 |ADS DISK $1800 T|
00000290: 4F 20 24 31 39 30 30 00 9D 1E AA 00 3A 00 CD 1E |O $1900.....:...|
000002A0: B4 00 FE 26 3A 9F 31 35 2C 38 2C 31 35 3A A0 20 |...&:.15,8,15:. |
000002B0: 31 35 3A 20 8F 20 43 4C 4F 53 45 20 41 4C 4C 20 |15: . CLOSE ALL |
000002C0: 44 49 53 4B 20 43 48 41 4E 4E 45 4C 53 00 00 1F |DISK CHANNELS...|
000002D0: BE 00 97 20 32 35 31 2C 30 20 3A 97 20 32 35 32 |... 251,0 :. 252|
000002E0: 2C 36 34 3A 8F 20 53 54 4F 52 45 20 44 41 54 41 |,64:. STORE DATA|
000002F0: 20 49 4E 20 52 41 4D 20 41 54 20 24 32 30 30 30 | IN RAM AT $2000|
00000300: 00 31 1F C8 00 54 B2 31 38 3A 85 20 22 54 52 41 |.1...T.18:. "TRA|
00000310: 43 4B 20 4E 4F 22 3B 54 3A 97 20 36 33 38 37 2C |CK NO";T:. 6387,|
00000320: 54 20 3A 8F 20 54 52 41 43 4B 20 28 30 2D 33 39 |T :. TRACK (0-39|
00000330: 29 00 62 1F D2 00 53 B2 31 3A 85 20 22 53 45 43 |).b...S.1:. "SEC|
00000340: 54 4F 52 20 4E 4F 22 3B 53 3A 97 20 36 33 38 38 |TOR NO";S:. 6388|
00000350: 2C 31 20 3A 8F 20 53 45 43 54 4F 52 20 28 31 2D |,1 :. SECTOR (1-|
00000360: 39 29 00 C0 1F DC 00 48 B2 38 3A 85 20 22 48 4F |9).....H.8:. "HO|
00000370: 57 20 4D 41 4E 59 20 53 45 43 54 4F 52 53 20 44 |W MANY SECTORS D|
00000380: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 |O YOU WANT TO RE|
00000390: 41 44 22 3B 48 3A 97 20 36 33 38 39 2C 48 AC 32 |AD";H:. 6389,H.2|
000003A0: 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 20 31 2F 32 |:. NUMBER OF 1/2|
000003B0: 20 53 45 43 54 4F 52 53 20 54 4F 20 52 45 41 44 | SECTORS TO READ|
000003C0: 00 F3 1F E6 00 9E 20 36 31 34 34 3A 8F 20 49 4E |...... 6144:. IN|
000003D0: 51 55 49 52 45 20 44 49 53 4B 3B 20 42 55 52 53 |QUIRE DISK; BURS|
000003E0: 54 20 53 54 41 54 55 53 20 42 59 54 45 3B 20 52 |T STATUS BYTE; R|
000003F0: 45 41 44 00 17 20 F0 00 A0 20 31 35 3A 20 8F 20 |EAD.. ... 15: . |
00000400: 43 4C 4F 53 45 20 41 4C 4C 20 44 49 53 4B 20 43 |CLOSE ALL DISK C|
00000410: 48 41 4E 4E 45 4C 53 00 54 20 FA 00 99 22 11 11 |HANNELS.T ..."..|
00000420: 57 49 54 48 20 4D 2F 4C 20 4D 4F 4E 49 54 4F 52 |WITH M/L MONITOR|
00000430: 20 59 4F 55 52 20 44 41 54 41 20 53 48 4F 55 4C | YOUR DATA SHOUL|
00000440: 44 20 42 45 20 41 54 20 24 34 30 30 30 20 41 4E |D BE AT $4000 AN|
00000450: 44 20 55 50 00 5A 20 04 01 80 00 60 20 0E 01 3A |D UP.Z ....` ..:|
00000460: 00 77 20 18 01 53 20 B2 20 36 31 34 34 20 3A 46 |.w ..S . 6144 :F|
00000470: 20 B2 20 36 33 39 39 00 98 20 22 01 FE 25 3A DE | . 6399.. "..%:.|
00000480: 20 9C 3A 81 20 49 B2 53 20 A4 20 46 3A 87 20 41 | .:. I.S . F:. A|
00000490: 3A 97 20 49 2C 41 3A 82 00 BE 20 2C 01 99 22 93 |:. I,A:... ,..".|
000004A0: 11 11 53 59 53 22 3B 53 3B 22 54 4F 20 52 55 4E |..SYS";S;"TO RUN|
000004B0: 20 4D 2F 4C 20 50 52 4F 47 52 41 4D 11 22 00 C4 | M/L PROGRAM."..|
000004C0: 20 36 01 8E 00 01 21 40 01 83 20 31 36 39 2C 31 | 6....!@.. 169,1|
000004D0: 35 2C 31 36 32 2C 38 2C 31 36 30 2C 31 35 2C 33 |5,162,8,160,15,3|
000004E0: 32 2C 31 38 36 2C 32 35 35 2C 31 36 39 2C 30 2C |2,186,255,169,0,|
000004F0: 33 32 2C 31 38 39 2C 32 35 35 2C 33 32 2C 31 39 |32,189,255,32,19|
00000500: 32 00 3C 21 4A 01 83 20 32 35 35 2C 32 33 34 2C |2.<!J.. 255,234,|
00000510: 32 33 34 2C 32 33 34 2C 33 32 2C 36 34 2C 32 34 |234,234,32,64,24|
00000520: 2C 31 36 32 2C 38 2C 31 36 30 2C 33 2C 33 32 2C |,162,8,160,3,32,|
00000530: 38 35 2C 32 34 2C 31 37 36 2C 31 35 00 73 21 54 |85,24,176,15.s!T|
00000540: 01 83 20 33 32 2C 36 34 2C 32 34 2C 31 36 32 2C |.. 32,64,24,162,|
00000550: 30 2C 31 36 30 2C 36 2C 33 32 2C 38 35 2C 32 34 |0,160,6,32,85,24|
00000560: 2C 31 37 36 2C 33 2C 33 32 2C 31 35 30 2C 32 34 |,176,3,32,150,24|
00000570: 2C 38 38 00 9A 21 5E 01 83 20 39 36 2C 30 2C 30 |,88..!^.. 96,0,0|
00000580: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000590: 2C 30 2C 30 2C 30 2C 30 2C 30 00 D7 21 68 01 83 |,0,0,0,0,0..!h..|
000005A0: 20 31 36 39 2C 30 2C 31 33 33 2C 32 35 30 2C 31 | 169,0,133,250,1|
000005B0: 37 33 2C 32 38 2C 31 30 2C 34 31 2C 31 39 31 2C |73,28,10,41,191,|
000005C0: 31 34 31 2C 32 38 2C 31 30 2C 31 36 32 2C 31 35 |141,28,10,162,15|
000005D0: 2C 33 32 2C 32 30 31 00 1A 22 72 01 83 20 32 35 |,32,201.."r.. 25|
000005E0: 35 2C 39 36 2C 32 33 34 2C 32 33 34 2C 32 33 34 |5,96,234,234,234|
000005F0: 2C 31 38 39 2C 32 34 30 2C 32 34 2C 33 32 2C 32 |,189,240,24,32,2|
00000600: 31 30 2C 32 35 35 2C 32 33 32 2C 31 33 36 2C 32 |10,255,232,136,2|
00000610: 30 38 2C 32 34 36 2C 32 33 34 00 57 22 7C 01 83 |08,246,234.W"|..|
00000620: 20 33 32 2C 32 30 34 2C 32 35 35 2C 34 34 2C 32 | 32,204,255,44,2|
00000630: 38 2C 31 30 2C 38 30 2C 39 33 2C 31 32 30 2C 34 |8,10,80,93,120,4|
00000640: 34 2C 31 33 2C 32 32 30 2C 31 37 34 2C 32 34 35 |4,13,220,174,245|
00000650: 2C 32 34 2C 31 37 33 00 93 22 86 01 83 20 30 2C |,24,173.."... 0,|
00000660: 32 32 31 2C 37 33 2C 31 36 2C 31 34 31 2C 30 2C |221,73,16,141,0,|
00000670: 32 32 31 2C 32 33 34 2C 31 36 39 2C 38 2C 32 33 |221,234,169,8,23|
00000680: 34 2C 34 34 2C 31 33 2C 32 32 30 2C 32 34 30 2C |4,44,13,220,240,|
00000690: 32 35 31 00 D0 22 90 01 83 20 31 37 33 2C 30 2C |251.."... 173,0,|
000006A0: 32 32 31 2C 37 33 2C 31 36 2C 31 34 31 2C 30 2C |221,73,16,141,0,|
000006B0: 32 32 31 2C 32 33 34 2C 31 37 33 2C 31 32 2C 32 |221,234,173,12,2|
000006C0: 32 30 2C 31 33 33 2C 32 35 30 2C 34 31 2C 31 35 |20,133,250,41,15|
000006D0: 00 0C 23 9A 01 83 20 32 30 31 2C 32 2C 31 37 36 |..#... 201,2,176|
000006E0: 2C 34 39 2C 39 36 2C 32 33 34 2C 31 36 30 2C 30 |,49,96,234,160,0|
000006F0: 2C 31 36 39 2C 38 2C 32 33 34 2C 34 34 2C 31 33 |,169,8,234,44,13|
00000700: 2C 32 32 30 2C 32 34 30 2C 32 35 31 00 4B 23 A4 |,220,240,251.K#.|
00000710: 01 83 20 31 37 33 2C 30 2C 32 32 31 2C 37 33 2C |.. 173,0,221,73,|
00000720: 31 36 2C 31 34 31 2C 30 2C 32 32 31 2C 31 37 33 |16,141,0,221,173|
00000730: 2C 31 32 2C 32 32 30 2C 31 34 35 2C 32 35 31 2C |,12,220,145,251,|
00000740: 32 30 30 2C 32 30 38 2C 32 33 32 00 89 23 AE 01 |200,208,232..#..|
00000750: 83 20 32 30 32 2C 32 34 30 2C 31 36 2C 32 33 30 |. 202,240,16,230|
00000760: 2C 32 35 32 2C 31 36 35 2C 32 35 32 2C 34 31 2C |,252,165,252,41,|
00000770: 31 2C 32 30 31 2C 31 2C 32 30 38 2C 32 31 39 2C |1,201,1,208,219,|
00000780: 33 32 2C 31 32 30 2C 32 34 00 B8 23 B8 01 83 20 |32,120,24..#... |
00000790: 37 36 2C 31 35 30 2C 32 34 2C 38 38 2C 33 36 2C |76,150,24,88,36,|
000007A0: 35 36 2C 39 36 2C 39 36 2C 30 2C 30 2C 30 2C 30 |56,96,96,0,0,0,0|
000007B0: 2C 30 2C 30 2C 30 2C 30 00 DE 23 C2 01 83 20 30 |,0,0,0,0..#... 0|
000007C0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000007D0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 04 |,0,0,0,0,0,0,0..|
000007E0: 24 CC 01 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |$... 0,0,0,0,0,0|
000007F0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000800: 2C 30 2C 30 00 2F 24 D6 01 83 20 38 35 2C 34 38 |,0,0./$... 85,48|
00000810: 2C 30 2C 31 30 2C 31 2C 32 2C 30 2C 30 2C 38 35 |,0,10,1,2,0,0,85|
00000820: 2C 34 38 2C 34 2C 30 2C 30 2C 30 2C 30 2C 30 00 |,48,4,0,0,0,0,0.|
00000830: 00 00 |.. |
.......5,15. .... "READ MFM DISK.J.... B
Y MIKE MILLER (ACTS 29) (3/26/86).P...:
.O.(.. FOR C-128 AND 1571 DRIVE...2.. (B
E SURE 1571 DRIVE IS THE FIRST PERIPHERA
L ON SERIAL BUS)...<.:...F.. ***** PLE
ASE NOTE THIS IS A VIRGIN PROGRAM ****
*.6.P.. I WROTE IT AND AM PUTTING IT ON
QLINK IN HOPE THAT SOMEONE HAS.|.Z.. EXP
ERIENCE AND KNOWLEDGE OF MS-DOS AND CAN
WRITE A ROUTINE THAT...D.. CAN READ MS-D
OS DIRECTORIES AND DATA TEXT FILES....W.
N.. MY QLINK NAME IS - ACTS 29...X.. **
* THANK YOU ***.....:.3.... THIS PROGRAM
WILL READ 512 BYTES SECTORS (SINGLE SID
ED).Y.... TO RAM BLOCK 0 AT $4000 & U
P... .. 280:. POKES THE M/L CODE THAT RE
ADS DISK $1800 TO $1900.....:.M....&:.15
,8,15: 15: . CLOSE ALL DISK CHANNELS...
... 251,0 :. 252,64:. STORE DATA IN RAM
AT $2000.1.H.T.18:. "TRACK NO";T:. 6387,
T :. TRACK (0-39).B.R.S.1:. "SECTOR NO";
S:. 6388,1 :. SECTOR (1-9).....H.8:. "HO
W MANY SECTORS DO YOU WANT TO READ";H:.
6389,H.2:. NUMBER OF 1/2 SECTORS TO READ
...... 6144:. INQUIRE DISK; BURST STATUS
BYTE; READ.. .. 15: . CLOSE ALL DISK C
HANNELS.T ..."..WITH M/L MONITOR YOUR DA
TA SHOULD BE AT $4000 AND UP.Z ....` ..:
.W ..S . 6144 :F . 6399.. "..%:. .:. I.S
. F:. A:. I,A:... ,.."...SYS";S;"TO RUN
M/L PROGRAM.".D 6....!@.. 169,15,162,8,
160,15,32,186,255,169,0,32,189,255,32,19
2.<!J.. 255,234,234,234,32,64,24,162,8,1
60,3,32,85,24,176,15.S!T.. 32,64,24,162,
0,160,6,32,85,24,176,3,32,150,24,88..!^.
. 96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.W!H..
169,0,133,250,173,28,10,41,191,141,28,1
0,162,15,32,201.."R.. 255,96,234,234,234
,189,240,24,32,210,255,232,136,208,246,2
34.W"|.. 32,204,255,44,28,10,80,93,120,4
4,13,220,174,245,24,173.."... 0,221,73,1
6,141,0,221,234,169,8,234,44,13,220,240,
251.P"... 173,0,221,73,16,141,0,221,234,
173,12,220,133,250,41,15..#... 201,2,176
,49,96,234,160,0,169,8,234,44,13,220,240
,251.K#... 173,0,221,73,16,141,0,221,173
,12,220,145,251,200,208,232..#... 202,24
0,16,230,252,165,252,41,1,201,1,208,219,
32,120,24..#... 76,150,24,88,36,56,96,96
,0,0,0,0,0,0,0,0..#B.. 0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0..$L.. 0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0./$V.. 85,48,0,10,1,2,0,0,85
,48,4,0,0,0,0,0...