MOVE R/W HEAD
FILE INFORMATION
FILENAME(S): MOVE R/W HEAD
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-01 02:25:40
APPEARS ON: 1 disk(s)
FILE HASH
23c7a4e2f26b1c6a32068f046ae87d92271050641392cd4573f9c463422dc447
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INSIDE C DOS 1 | MOVE R/W HEAD | PRG | hedning, shine | 22 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 49 4E 53 49 44 45 20 |..(.... *INSIDE | 00000010: 43 4F 4D 4D 4F 44 4F 52 45 20 44 4F 53 2A 20 2A |COMMODORE DOS* *| 00000020: 50 47 2E 20 31 39 36 2A 00 3F 08 14 00 8F 20 2A |PG. 196*.?.... *| 00000030: 4A 4A 4D 2A 20 20 20 2A 30 34 31 37 38 37 2A 00 |JJM* *041787*.| 00000040: 5C 08 32 00 8F 20 4D 4F 56 45 20 54 48 45 20 31 |\.2.. MOVE THE 1| 00000050: 35 34 31 20 52 2F 57 20 48 45 41 44 00 85 08 64 |541 R/W HEAD...d| 00000060: 00 99 22 93 11 4D 4F 56 45 20 54 48 45 20 31 35 |.."..MOVE THE 15| 00000070: 34 31 27 53 20 52 45 41 44 2F 57 52 49 54 45 20 |41'S READ/WRITE | 00000080: 48 45 41 44 22 00 9F 08 6E 00 99 22 11 11 49 4E |HEAD"...n.."..IN| 00000090: 53 45 52 54 20 54 45 53 54 20 44 49 53 4B 22 00 |SERT TEST DISK".| 000000A0: C2 08 78 00 99 22 11 11 50 52 45 53 53 20 12 52 |..x.."..PRESS .R| 000000B0: 45 54 55 52 4E 92 20 57 48 45 4E 20 52 45 41 44 |ETURN. WHEN READ| 000000C0: 59 22 00 C8 08 82 00 3A 00 F4 08 8C 00 8F 20 4D |Y".....:...... M| 000000D0: 41 43 48 49 4E 45 20 43 4F 44 45 20 52 4F 55 54 |ACHINE CODE ROUT| 000000E0: 49 4E 45 20 54 4F 20 52 45 41 44 20 41 20 48 45 |INE TO READ A HE| 000000F0: 41 44 45 52 00 17 09 96 00 8F 20 52 45 53 49 44 |ADER...... RESID| 00000100: 45 53 20 41 54 20 24 30 33 30 30 20 28 42 55 46 |ES AT $0300 (BUF| 00000110: 46 45 52 20 23 30 29 00 1D 09 A0 00 3A 00 3A 09 |FER #0).....:.:.| 00000120: AA 00 83 20 31 36 39 2C 34 38 3A 20 20 20 20 3A |... 169,48: :| 00000130: 8F 20 4C 44 41 20 23 24 33 30 00 56 09 B4 00 83 |. LDA #$30.V....| 00000140: 20 31 33 33 2C 36 39 3A 20 20 20 20 3A 8F 20 53 | 133,69: :. S| 00000150: 54 41 20 24 34 35 00 73 09 BE 00 83 20 31 36 39 |TA $45.s.... 169| 00000160: 2C 30 30 3A 20 20 20 20 3A 8F 20 4C 44 41 20 23 |,00: :. LDA #| 00000170: 24 30 30 00 8F 09 C8 00 83 20 31 33 33 2C 36 33 |$00...... 133,63| 00000180: 3A 20 20 20 20 3A 8F 20 53 54 41 20 24 33 46 00 |: :. STA $3F.| 00000190: AD 09 D2 00 83 20 37 36 2C 31 37 37 2C 32 34 33 |..... 76,177,243| 000001A0: 20 3A 8F 20 4A 4D 50 20 24 46 33 42 31 00 B3 09 | :. JMP $F3B1...| 000001B0: DC 00 3A 00 E3 09 E6 00 44 24 28 30 29 B2 22 30 |..:.....D$(0)."0| 000001C0: 30 22 3A 44 24 28 31 29 B2 22 30 31 22 3A 44 24 |0":D$(1)."01":D$| 000001D0: 28 32 29 B2 22 31 30 22 3A 44 24 28 33 29 B2 22 |(2)."10":D$(3)."| 000001E0: 31 31 22 00 F0 09 F0 00 86 46 44 24 28 31 36 29 |11"......FD$(16)| 000001F0: 00 17 0A FA 00 46 44 24 28 30 29 B2 22 20 20 20 |.....FD$(0)." | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 20 22 00 3E 0A 04 01 46 44 24 28 | ".>...FD$(| 00000220: 31 29 B2 22 30 31 20 41 4C 4C 20 4F 4B 20 20 20 |1)."01 ALL OK | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 65 | ".e| 00000240: 0A 0E 01 46 44 24 28 32 29 B2 22 30 32 20 48 45 |...FD$(2)."02 HE| 00000250: 41 44 45 52 20 42 4C 4F 43 4B 20 4E 4F 54 20 46 |ADER BLOCK NOT F| 00000260: 4F 55 4E 44 22 00 8C 0A 18 01 46 44 24 28 33 29 |OUND".....FD$(3)| 00000270: B2 22 30 33 20 4E 4F 20 53 59 4E 43 20 43 48 41 |."03 NO SYNC CHA| 00000280: 52 41 43 54 45 52 20 20 20 20 20 22 00 B3 0A 22 |RACTER "..."| 00000290: 01 46 44 24 28 39 29 B2 22 30 39 20 48 45 41 44 |.FD$(9)."09 HEAD| 000002A0: 45 52 20 42 4C 4F 43 4B 20 43 48 4B 53 55 4D 20 |ER BLOCK CHKSUM | 000002B0: 45 52 22 00 D3 0A 2C 01 54 B2 31 38 3A 4E 31 24 |ER"...,.T.18:N1$| 000002C0: B2 22 3F 22 3A 4E 32 24 B2 22 3F 22 3A 54 52 B2 |."?":N2$."?":TR.| 000002D0: 32 35 35 00 EA 0A 36 01 A1 41 24 3A 8B 41 24 B3 |255...6..A$:.A$.| 000002E0: B1 C7 28 31 33 29 89 33 31 30 00 F0 0A 40 01 3A |..(13).310...@.:| 000002F0: 00 01 0B 4A 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |...J..15,8,15,"I| 00000300: 22 00 07 0B 54 01 3A 00 24 0B 5E 01 8F 20 44 49 |"...T.:.$.^.. DI| 00000310: 47 20 4F 55 54 20 4D 41 53 54 45 52 20 44 49 53 |G OUT MASTER DIS| 00000320: 4B 20 49 44 00 2A 0B 68 01 3A 00 45 0B 72 01 98 |K ID.*.h.:.E.r..| 00000330: 31 35 2C 22 4D 2D 52 22 C7 28 31 38 29 C7 28 30 |15,"M-R".(18).(0| 00000340: 29 C7 28 32 29 00 63 0B 7C 01 A1 23 31 35 2C 49 |).(2).c.|..#15,I| 00000350: 31 24 3A 8B 49 31 24 B2 22 22 A7 49 31 24 B2 C7 |1$:.I1$."".I1$..| 00000360: 28 30 29 00 81 0B 86 01 A1 23 31 35 2C 49 32 24 |(0)......#15,I2$| 00000370: 3A 8B 49 32 24 B2 22 22 A7 49 32 24 B2 C7 28 30 |:.I2$."".I2$..(0| 00000380: 29 00 87 0B 90 01 3A 00 90 0B 9A 01 99 22 93 22 |).....:......"."| 00000390: 00 96 0B A4 01 3A 00 BA 0B AE 01 8F 20 52 45 41 |.....:...... REA| 000003A0: 44 20 54 48 45 20 44 49 53 4B 20 43 4F 4E 54 52 |D THE DISK CONTR| 000003B0: 4F 4C 4C 45 52 20 50 4F 52 54 00 C0 0B B8 01 3A |OLLER PORT.....:| 000003C0: 00 D7 0B C2 01 98 31 35 2C 22 4D 2D 52 22 C7 28 |......15,"M-R".(| 000003D0: 30 29 C7 28 32 38 29 00 F2 0B CC 01 A1 23 31 35 |0).(28)......#15| 000003E0: 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 |,A$:.A$."".A$..(| 000003F0: 30 29 00 FE 0B D6 01 41 B2 C6 28 41 24 29 00 09 |0).....A..(A$)..| 00000400: 0C E0 01 43 56 B2 33 AF 41 00 36 0C EA 01 41 B2 |...CV.3.A.6...A.| 00000410: 28 31 35 39 AF 41 29 B0 28 39 36 AA 33 32 AC 28 |(159.A).(96.32.(| 00000420: 28 54 B1 31 37 29 AA 28 54 B1 32 34 29 AA 28 54 |(T.17).(T.24).(T| 00000430: B1 33 30 29 29 29 00 57 0C F4 01 98 31 35 2C 22 |.30))).W....15,"| 00000440: 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 31 |M-W".(0).(28).(1| 00000450: 29 C7 28 41 B0 34 29 00 5D 0C FE 01 3A 00 72 0C |).(A.4).]...:.r.| 00000460: 08 02 8F 20 44 49 53 50 4C 41 59 20 56 41 4C 55 |... DISPLAY VALU| 00000470: 45 53 00 78 0C 12 02 3A 00 A1 0C 1C 02 99 22 13 |ES.x...:......".| 00000480: 11 4D 4F 56 45 20 54 48 45 20 31 35 34 31 27 53 |.MOVE THE 1541'S| 00000490: 20 52 45 41 44 2F 57 52 49 54 45 20 48 45 41 44 | READ/WRITE HEAD| 000004A0: 22 00 BB 0C 26 02 99 22 11 43 55 52 52 45 4E 54 |"...&..".CURRENT| 000004B0: 20 50 48 41 53 45 20 3D 22 43 56 00 E1 0C 30 02 | PHASE ="CV...0.| 000004C0: 99 22 42 49 54 53 20 31 20 26 20 30 20 4F 46 20 |."BITS 1 & 0 OF | 000004D0: 24 31 43 30 30 20 41 52 45 20 22 44 24 28 43 56 |$1C00 ARE "D$(CV| 000004E0: 29 00 02 0D 3A 02 99 22 11 4D 41 53 54 45 52 20 |)...:..".MASTER | 000004F0: 44 49 53 4B 20 49 44 3A 20 20 22 49 31 24 3B 49 |DISK ID: "I1$;I| 00000500: 32 24 00 28 0D 44 02 99 22 11 54 52 41 43 4B 20 |2$.(.D..".TRACK | 00000510: 23 20 46 52 4F 4D 20 53 54 45 50 50 45 52 3A 22 |# FROM STEPPER:"| 00000520: 54 22 9D 20 20 20 20 22 00 41 0D 4E 02 99 22 11 |T". ".A.N..".| 00000530: 46 44 43 20 45 52 52 4F 52 3A 22 46 44 24 28 45 |FDC ERROR:"FD$(E| 00000540: 29 00 7D 0D 58 02 54 24 B2 C4 28 54 52 29 3A 53 |).}.X.T$..(TR):S| 00000550: 24 B2 C4 28 53 45 29 3A 8B 45 B3 B1 31 A7 54 24 |$..(SE):.E..1.T$| 00000560: B2 22 3F 3F 22 3A 4E 31 24 B2 22 3F 22 3A 4E 32 |."??":N1$."?":N2| 00000570: 24 B2 22 3F 22 3A 53 24 B2 22 3F 3F 22 00 9F 0D |$."?":S$."??"...| 00000580: 62 02 99 22 11 54 52 41 43 4B 20 23 20 41 53 20 |b..".TRACK # AS | 00000590: 52 45 41 44 3A 20 20 22 C9 28 54 24 2C 32 29 00 |READ: ".(T$,2).| 000005A0: C1 0D 6C 02 99 22 53 45 43 54 4F 52 20 23 20 41 |..l.."SECTOR # A| 000005B0: 53 20 52 45 41 44 3A 20 20 22 C9 28 53 24 2C 32 |S READ: ".(S$,2| 000005C0: 29 00 E2 0D 76 02 99 22 49 44 20 4F 46 20 54 52 |)...v.."ID OF TR| 000005D0: 41 43 4B 20 52 45 41 44 3A 20 22 4E 31 24 3B 4E |ACK READ: "N1$;N| 000005E0: 32 24 00 F5 0D 80 02 99 22 11 11 43 4F 4D 4D 41 |2$......"..COMMA| 000005F0: 4E 44 53 3A 22 00 22 0E 8A 02 99 22 11 20 20 46 |NDS:"."....". F| 00000600: 31 20 3D 20 4D 4F 56 45 20 48 45 41 44 20 4F 55 |1 = MOVE HEAD OU| 00000610: 54 20 28 4C 4F 57 45 52 20 54 52 41 43 4B 20 23 |T (LOWER TRACK #| 00000620: 29 22 00 4E 0E 94 02 99 22 20 20 46 33 20 3D 20 |)".N...." F3 = | 00000630: 4D 4F 56 45 20 48 45 41 44 20 49 4E 20 28 48 49 |MOVE HEAD IN (HI| 00000640: 47 48 45 52 20 54 52 41 43 4B 20 23 29 22 00 79 |GHER TRACK #)".y| 00000650: 0E 9E 02 99 22 20 20 46 35 20 3D 20 41 54 54 45 |...." F5 = ATTE| 00000660: 4D 50 54 20 54 4F 20 52 45 41 44 20 54 52 41 43 |MPT TO READ TRAC| 00000670: 4B 20 23 20 26 20 49 44 22 00 99 0E A8 02 99 22 |K # & ID"......"| 00000680: 20 20 46 37 20 3D 20 54 45 52 4D 49 4E 41 54 45 | F7 = TERMINATE| 00000690: 20 50 52 4F 47 52 41 4D 22 00 C0 0E B2 02 99 22 | PROGRAM"......"| 000006A0: 20 20 20 49 20 3D 20 49 4E 49 54 49 41 4C 49 5A | I = INITIALIZ| 000006B0: 45 20 28 54 4F 20 54 52 41 43 4B 20 31 38 29 22 |E (TO TRACK 18)"| 000006C0: 00 CD 0E BC 02 50 B2 C2 28 31 39 37 29 00 DA 0E |.....P..(197)...| 000006D0: C6 02 8B 50 B2 33 89 39 31 30 00 F1 0E D0 02 8B |...P.3.910......| 000006E0: 50 B2 34 AF 54 B1 31 A7 43 B2 AB 31 3A 89 38 30 |P.4.T.1.C..1:.80| 000006F0: 30 00 08 0F DA 02 8B 50 B2 35 AF 54 B3 33 35 A7 |0......P.5.T.35.| 00000700: 43 B2 31 3A 89 38 30 30 00 15 0F E4 02 8B 50 B2 |C.1:.800......P.| 00000710: 36 89 39 39 30 00 3B 0F EE 02 8B 50 B2 33 33 A7 |6.990.;....P.33.| 00000720: 98 31 35 2C 22 49 22 3A 54 B2 31 38 3A 45 B2 30 |.15,"I":T.18:E.0| 00000730: 3A 41 B2 32 31 34 3A 89 34 38 30 00 44 0F F8 02 |:A.214:.480.D...| 00000740: 89 34 35 30 00 4A 0F 02 03 3A 00 74 0F 0C 03 8F |.450.J...:.t....| 00000750: 20 43 48 41 4E 47 45 20 50 48 41 53 45 20 49 4E | CHANGE PHASE IN| 00000760: 20 52 45 53 50 4F 4E 53 45 20 54 4F 20 43 4F 4D | RESPONSE TO COM| 00000770: 4D 41 4E 44 00 7A 0F 16 03 3A 00 8A 0F 20 03 43 |MAND.z...:... .C| 00000780: 56 B2 28 43 56 AA 43 29 AF 33 00 A0 0F 2A 03 54 |V.(CV.C).3...*.T| 00000790: B2 54 AA 43 AC 2E 35 3A 8B 54 B3 31 A7 54 B2 31 |.T.C..5:.T.1.T.1| 000007A0: 00 AF 0F 34 03 8B 54 B1 33 36 A7 54 B2 33 36 00 |...4..T.36.T.36.| 000007B0: BB 0F 3E 03 42 B2 41 AF 32 35 32 00 C6 0F 48 03 |..>.B.A.252...H.| 000007C0: 43 B2 42 AA 43 56 00 E5 0F 52 03 98 31 35 2C 22 |C.B.CV...R..15,"| 000007D0: 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 31 |M-W".(0).(28).(1| 000007E0: 29 C7 28 43 29 00 ED 0F 5C 03 45 B2 30 00 F6 0F |).(C)...\.E.0...| 000007F0: 66 03 89 34 35 30 00 FC 0F 70 03 3A 00 20 10 7A |f..450...p.:. .z| 00000800: 03 8F 20 54 45 52 4D 49 4E 41 54 45 20 50 52 4F |.. TERMINATE PRO| 00000810: 47 52 41 4D 20 28 44 52 49 56 45 20 4F 46 46 29 |GRAM (DRIVE OFF)| 00000820: 00 26 10 84 03 3A 00 47 10 8E 03 98 31 35 2C 22 |.&...:.G....15,"| 00000830: 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 31 |M-W".(0).(28).(1| 00000840: 29 C7 28 32 34 30 29 00 59 10 98 03 81 4B B2 31 |).(240).Y....K.1| 00000850: A4 31 30 3A A1 41 24 3A 82 00 63 10 A2 03 A0 31 |.10:.A$:..c....1| 00000860: 35 3A 80 00 69 10 AC 03 3A 00 8A 10 B6 03 8F 20 |5:..i...:...... | 00000870: 41 54 54 45 4D 50 54 20 54 4F 20 52 45 41 44 20 |ATTEMPT TO READ | 00000880: 41 4E 59 20 48 45 41 44 45 52 00 90 10 C0 03 3A |ANY HEADER.....:| 00000890: 00 B7 10 CA 03 8F 20 52 45 41 44 20 26 20 53 45 |...... READ & SE| 000008A0: 4E 44 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 |ND MACHINE CODE | 000008B0: 52 4F 55 54 49 4E 45 00 BD 10 D4 03 3A 00 C9 10 |ROUTINE.....:...| 000008C0: DE 03 8C 3A 43 24 B2 22 22 00 E5 10 E8 03 81 4B |...:C$.""......K| 000008D0: B2 31 A4 31 31 3A 87 58 3A 43 24 B2 43 24 AA C7 |.1.11:.X:C$.C$..| 000008E0: 28 58 29 3A 82 00 02 11 F2 03 98 31 35 2C 22 4D |(X):.......15,"M| 000008F0: 2D 57 22 C7 28 30 29 C7 28 33 29 C7 28 31 31 29 |-W".(0).(3).(11)| 00000900: 43 24 00 08 11 FC 03 3A 00 2B 11 06 04 8F 20 50 |C$.....:.+.... P| 00000910: 55 54 20 4A 4D 50 20 4A 4F 42 20 49 4E 20 54 48 |UT JMP JOB IN TH| 00000920: 45 20 4A 4F 42 20 51 55 45 55 45 00 31 11 10 04 |E JOB QUEUE.1...| 00000930: 3A 00 51 11 1A 04 98 31 35 2C 22 4D 2D 57 22 C7 |:.Q....15,"M-W".| 00000940: 28 30 29 C7 28 30 29 C7 28 31 29 C7 28 32 30 38 |(0).(0).(1).(208| 00000950: 29 00 57 11 24 04 3A 00 74 11 2E 04 8F 20 57 41 |).W.$.:.t.... WA| 00000960: 49 54 20 46 4F 52 20 4A 4F 42 20 54 4F 20 46 49 |IT FOR JOB TO FI| 00000970: 4E 49 53 48 00 7A 11 38 04 3A 00 90 11 42 04 98 |NISH.z.8.:...B..| 00000980: 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 30 29 |15,"M-R".(0).(0)| 00000990: 00 A9 11 4C 04 A1 23 31 35 2C 45 24 3A 45 B2 C6 |...L..#15,E$:E..| 000009A0: 28 45 24 AA C7 28 30 29 29 00 B9 11 56 04 8B 20 |(E$..(0))...V.. | 000009B0: 45 B1 31 32 37 89 37 39 30 00 BF 11 60 04 3A 00 |E.127.790...`.:.| 000009C0: E4 11 6A 04 8F 20 22 45 22 20 49 53 20 46 44 43 |..j.. "E" IS FDC| 000009D0: 20 45 52 52 4F 52 20 43 4F 44 45 20 52 45 54 55 | ERROR CODE RETU| 000009E0: 52 4E 45 44 00 F2 11 74 04 8B 45 B3 B1 31 89 34 |RNED...t..E..1.4| 000009F0: 35 30 00 F8 11 7E 04 3A 00 27 12 88 04 8F 20 43 |50...~.:.'.... C| 00000A00: 4C 45 41 4E 20 52 45 41 44 20 53 4F 20 44 49 47 |LEAN READ SO DIG| 00000A10: 20 4F 55 54 20 49 44 2C 20 54 52 41 43 4B 20 26 | OUT ID, TRACK &| 00000A20: 20 53 45 43 54 4F 52 00 2D 12 92 04 3A 00 48 12 | SECTOR.-...:.H.| 00000A30: 9C 04 98 31 35 2C 22 4D 2D 52 22 C7 28 32 32 29 |...15,"M-R".(22)| 00000A40: C7 28 30 29 C7 28 34 29 00 55 12 A6 04 A1 23 31 |.(0).(4).U....#1| 00000A50: 35 2C 4E 31 24 00 62 12 B0 04 A1 23 31 35 2C 4E |5,N1$.b....#15,N| 00000A60: 32 24 00 7C 12 BA 04 A1 23 31 35 2C 58 24 3A 54 |2$.|....#15,X$:T| 00000A70: 52 B2 C6 28 58 24 AA C7 28 30 29 29 00 96 12 C4 |R..(X$..(0))....| 00000A80: 04 A1 23 31 35 2C 58 24 3A 53 45 B2 C6 28 58 24 |..#15,X$:SE..(X$| 00000A90: AA C7 28 30 29 29 00 9F 12 CE 04 89 34 35 30 00 |..(0))......450.| 00000AA0: 00 00 |.. |
..(.... *INSIDE COMMODORE DOS* *PG. 196*
.?.... *JJM* *041787*.\.2.. MOVE THE 1
541 R/W HEAD...D.."..MOVE THE 1541'S REA
D/WRITE HEAD"...N.."..INSERT TEST DISK".
B.X.."..PRESS .RETURN. WHEN READY".H...:
...... MACHINE CODE ROUTINE TO READ A HE
ADER...... RESIDES AT $0300 (BUFFER #0).
.. .:.:.... 169,48: :. LDA #$30.V....
133,69: :. STA $45.S.... 169,00:
:. LDA #$00...H.. 133,63: :. STA $3F.
..R.. 76,177,243 :. JMP $F3B1.....:.....
D$(0)."00":D$(1)."01":D$(2)."10":D$(3)."
11"......FD$(16).....FD$(0)."
".>...FD$(1)."01 ALL OK
".E...FD$(2)."02 HEADER BLO
CK NOT FOUND".....FD$(3)."03 NO SYNC CHA
RACTER "...".FD$(9)."09 HEADER BLOCK
CHKSUM ER".S.,.T.18:N1$."?":N2$."?":TR.
255...6..A$:.A$..G(13).310...@.:...J..15
,8,15,"I"...T.:.$.^.. DIG OUT MASTER DIS
K ID.*.H.:.E.R..15,"M-R"G(18)G(0)G(2).C.
|..#15,I1$:.I1$."".I1$.G(0)......#15,I2$
:.I2$."".I2$.G(0).....:......".".....:..
.... READ THE DISK CONTROLLER PORT.....:
.W.B..15,"M-R"G(0)G(28)...L..#15,A$:.A$.
"".A$.G(0)...V.A.F(A$).....CV.3.A.6...A.
(159.A).(96.32.((T.17).(T.24).(T.30))).W
....15,"M-W"G(0)G(28)G(1)G(A.4).]...:.R.
... DISPLAY VALUES.X...:......"..MOVE TH
E 1541'S READ/WRITE HEAD"...&..".CURRENT
PHASE ="CV...0.."BITS 1 & 0 OF $1C00 AR
E "D$(CV)...:..".MASTER DISK ID: "I1$;I
2$.(.D..".TRACK # FROM STEPPER:"T". "
.A.N..".FDC ERROR:"FD$(E).}.X.T$.D(TR):S
$.D(SE):.E..1.T$."??":N1$."?":N2$."?":S$
."??"...B..".TRACK # AS READ: "I(T$,2).
A.L.."SECTOR # AS READ: "I(S$,2)...V.."
ID OF TRACK READ: "N1$;N2$......"..COMMA
NDS:"."....". F1 = MOVE HEAD OUT (LOWER
TRACK #)".N...." F3 = MOVE HEAD IN (HI
GHER TRACK #)".Y...." F5 = ATTEMPT TO R
EAD TRACK # & ID"......" F7 = TERMINATE
PROGRAM"......" I = INITIALIZE (TO TR
ACK 18)".M...P.B(197).Z.F..P.3.910...P..
P.4.T.1.C..1:.800...Z..P.5.T.35.C.1:.800
......P.6.990.;....P.33..15,"I":T.18:E.0
:A.214:.480.D....450.J...:.T.... CHANGE
PHASE IN RESPONSE TO COMMAND.Z...:... .C
V.(CV.C).3. .*.T.T.C..5:.T.1.T.1...4..T.
36.T.36...>.B.A.252.F.H.C.B.CV...R..15,"
M-W"G(0)G(28)G(1)G(C)...\.E.0...F..450..
.P.:. .Z.. TERMINATE PROGRAM (DRIVE OFF)
.&...:.G....15,"M-W"G(0)G(28)G(1)G(240).
Y....K.1.10:.A$:..C... 15:..I...:......
ATTEMPT TO READ ANY HEADER.....:...J.. R
EAD & SEND MACHINE CODE ROUTINE...T.:.I.
...:C$.""......K.1.11:.X:C$.C$.G(X):....
...15,"M-W"G(0)G(3)G(11)C$.....:.+.... P
UT JMP JOB IN THE JOB QUEUE.1...:.Q....1
5,"M-W"G(0)G(0)G(1)G(208).W.$.:.T.... WA
IT FOR JOB TO FINISH.Z.8.:...B..15,"M-R"
G(0)G(0)...L..#15,E$:E.F(E$.G(0))...V..
E.127.790...`.:...J.. "E" IS FDC ERROR C
ODE RETURNED...T..E..1.450...~.:.'.... C
LEAN READ SO DIG OUT ID, TRACK & SECTOR.
-...:.H....15,"M-R"G(22)G(0)G(4).U....#1
5,N1$.B....#15,N2$.|....#15,X$:TR.F(X$.G
(0))...D..#15,X$:SE.F(X$.G(0))...N..450.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL