MOVE 1541 HEAD

FILE INFORMATION

FILENAME(S): MOVE 1541 HEAD

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 21:09:18

APPEARS ON: 2 disk(s)

FILE HASH

b2ecfbb9a906d6620bb8339fbbded135cd657c9c1d3657b14b15cf86c019faa9

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HULPPROGRAM	MOVE 1541 HEAD	PRG	DuncanTwain	13	2	DOWNLOAD FILE
C64 HULP 43 1	MOVE 1541 HEAD	PRG	DuncanTwain	21	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2D 08 64 00 99 22  93 11 20 20 20 4D 4F 56  |..-.d.."..   MOV|
00000010: 45 20 54 48 45 20 31 35  34 31 27 53 20 52 45 41  |E THE 1541'S REA|
00000020: 44 2F 57 52 49 54 45 20  48 45 41 44 22 00 47 08  |D/WRITE HEAD".G.|
00000030: 6E 00 99 22 11 11 49 4E  53 45 52 54 20 54 45 53  |n.."..INSERT TES|
00000040: 54 20 44 49 53 4B 22 00  6A 08 78 00 99 22 11 11  |T DISK".j.x.."..|
00000050: 50 52 45 53 53 20 12 52  45 54 55 52 4E 92 20 57  |PRESS .RETURN. W|
00000060: 48 45 4E 20 52 45 41 44  59 22 00 70 08 82 00 3A  |HEN READY".p...:|
00000070: 00 9C 08 8C 00 8F 20 4D  41 43 48 49 4E 45 20 43  |...... MACHINE C|
00000080: 4F 44 45 20 52 4F 55 54  49 4E 45 20 54 4F 20 52  |ODE ROUTINE TO R|
00000090: 45 41 44 20 41 20 48 45  41 44 45 52 00 BF 08 96  |EAD A HEADER....|
000000A0: 00 8F 20 52 45 53 49 44  45 53 20 41 54 20 24 30  |.. RESIDES AT $0|
000000B0: 33 30 30 20 28 42 55 46  46 45 52 20 23 30 29 00  |300 (BUFFER #0).|
000000C0: C5 08 A0 00 3A 00 E1 08  AA 00 83 31 36 39 2C 34  |....:......169,4|
000000D0: 38 3A 20 20 20 20 3A 8F  20 4C 44 41 20 23 24 33  |8:    :. LDA #$3|
000000E0: 30 00 FC 08 B4 00 83 31  33 33 2C 36 39 3A 20 20  |0......133,69:  |
000000F0: 20 20 3A 8F 20 53 54 41  20 24 34 35 00 18 09 BE  |  :. STA $45....|
00000100: 00 83 31 36 39 2C 30 30  3A 20 20 20 20 3A 8F 20  |..169,00:    :. |
00000110: 4C 44 41 20 23 24 30 30  00 33 09 C8 00 83 31 33  |LDA #$00.3....13|
00000120: 33 2C 36 33 3A 20 20 20  20 3A 8F 20 53 54 41 20  |3,63:    :. STA |
00000130: 24 33 46 00 50 09 D2 00  83 37 36 2C 31 37 37 2C  |$3F.P....76,177,|
00000140: 32 34 33 20 3A 8F 20 4A  4D 50 20 24 46 33 42 31  |243 :. JMP $F3B1|
00000150: 00 56 09 DC 00 3A 00 86  09 E6 00 44 24 28 30 29  |.V...:.....D$(0)|
00000160: B2 22 30 30 22 3A 44 24  28 31 29 B2 22 30 31 22  |."00":D$(1)."01"|
00000170: 3A 44 24 28 32 29 B2 22  31 30 22 3A 44 24 28 33  |:D$(2)."10":D$(3|
00000180: 29 B2 22 31 31 22 00 93  09 F0 00 86 46 44 24 28  |)."11"......FD$(|
00000190: 31 36 29 00 BA 09 FA 00  46 44 24 28 30 29 B2 22  |16).....FD$(0)."|
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001B0: 20 20 20 20 20 20 20 20  20 22 00 E1 09 04 01 46  |         ".....F|
000001C0: 44 24 28 31 29 B2 22 30  31 20 41 4C 4C 20 4F 4B  |D$(1)."01 ALL OK|
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001E0: 22 00 08 0A 0E 01 46 44  24 28 32 29 B2 22 30 32  |".....FD$(2)."02|
000001F0: 20 48 45 41 44 45 52 20  42 4C 4F 43 4B 20 4E 4F  | HEADER BLOCK NO|
00000200: 54 20 46 4F 55 4E 44 22  00 2F 0A 18 01 46 44 24  |T FOUND"./...FD$|
00000210: 28 33 29 B2 22 30 33 20  4E 4F 20 53 59 4E 43 20  |(3)."03 NO SYNC |
00000220: 43 48 41 52 41 43 54 45  52 20 20 20 20 20 22 00  |CHARACTER     ".|
00000230: 56 0A 22 01 46 44 24 28  39 29 B2 22 30 39 20 48  |V.".FD$(9)."09 H|
00000240: 45 41 44 45 52 20 42 4C  4F 43 4B 20 43 48 4B 53  |EADER BLOCK CHKS|
00000250: 55 4D 20 45 52 22 00 76  0A 2C 01 54 B2 31 38 3A  |UM ER".v.,.T.18:|
00000260: 4E 31 24 B2 22 3F 22 3A  4E 32 24 B2 22 3F 22 3A  |N1$."?":N2$."?":|
00000270: 54 52 B2 32 35 35 00 8D  0A 36 01 A1 41 24 3A 8B  |TR.255...6..A$:.|
00000280: 41 24 B3 B1 C7 28 31 33  29 89 33 31 30 00 93 0A  |A$...(13).310...|
00000290: 40 01 3A 00 A4 0A 4A 01  9F 31 35 2C 38 2C 31 35  |@.:...J..15,8,15|
000002A0: 2C 22 49 22 00 AA 0A 54  01 3A 00 C7 0A 5E 01 8F  |,"I"...T.:...^..|
000002B0: 20 44 49 47 20 4F 55 54  20 4D 41 53 54 45 52 20  | DIG OUT MASTER |
000002C0: 44 49 53 4B 20 49 44 00  CD 0A 68 01 3A 00 E8 0A  |DISK ID...h.:...|
000002D0: 72 01 98 31 35 2C 22 4D  2D 52 22 C7 28 31 38 29  |r..15,"M-R".(18)|
000002E0: C7 28 30 29 C7 28 32 29  00 06 0B 7C 01 A1 23 31  |.(0).(2)...|..#1|
000002F0: 35 2C 49 31 24 3A 8B 49  31 24 B2 22 22 A7 49 31  |5,I1$:.I1$."".I1|
00000300: 24 B2 C7 28 30 29 00 24  0B 86 01 A1 23 31 35 2C  |$..(0).$....#15,|
00000310: 49 32 24 3A 8B 49 32 24  B2 22 22 A7 49 32 24 B2  |I2$:.I2$."".I2$.|
00000320: C7 28 30 29 00 2A 0B 90  01 3A 00 33 0B 9A 01 99  |.(0).*...:.3....|
00000330: 22 93 22 00 39 0B A4 01  3A 00 5D 0B AE 01 8F 20  |".".9...:.].... |
00000340: 52 45 41 44 20 54 48 45  20 44 49 53 4B 20 43 4F  |READ THE DISK CO|
00000350: 4E 54 52 4F 4C 4C 45 52  20 50 4F 52 54 00 63 0B  |NTROLLER PORT.c.|
00000360: B8 01 3A 00 7A 0B C2 01  98 31 35 2C 22 4D 2D 52  |..:.z....15,"M-R|
00000370: 22 C7 28 30 29 C7 28 32  38 29 00 95 0B CC 01 A1  |".(0).(28)......|
00000380: 23 31 35 2C 41 24 3A 8B  41 24 B2 22 22 A7 41 24  |#15,A$:.A$."".A$|
00000390: B2 C7 28 30 29 00 A1 0B  D6 01 41 B2 C6 28 41 24  |..(0).....A..(A$|
000003A0: 29 00 AC 0B E0 01 43 56  B2 33 AF 41 00 D9 0B EA  |).....CV.3.A....|
000003B0: 01 41 B2 28 31 35 39 AF  41 29 B0 28 39 36 AA 33  |.A.(159.A).(96.3|
000003C0: 32 AC 28 28 54 B1 31 37  29 AA 28 54 B1 32 34 29  |2.((T.17).(T.24)|
000003D0: AA 28 54 B1 33 30 29 29  29 00 FA 0B F4 01 98 31  |.(T.30)))......1|
000003E0: 35 2C 22 4D 2D 57 22 C7  28 30 29 C7 28 32 38 29  |5,"M-W".(0).(28)|
000003F0: C7 28 31 29 C7 28 41 B0  34 29 00 00 0C FE 01 3A  |.(1).(A.4).....:|
00000400: 00 15 0C 08 02 8F 20 44  49 53 50 4C 41 59 20 56  |...... DISPLAY V|
00000410: 41 4C 55 45 53 00 1B 0C  12 02 3A 00 46 0C 1C 02  |ALUES.....:.F...|
00000420: 99 22 13 11 20 20 4D 4F  56 45 20 54 48 45 20 31  |."..  MOVE THE 1|
00000430: 35 34 31 27 53 20 52 45  41 44 2F 57 52 49 54 45  |541'S READ/WRITE|
00000440: 20 48 45 41 44 22 00 60  0C 26 02 99 22 11 43 55  | HEAD".`.&..".CU|
00000450: 52 52 45 4E 54 20 50 48  41 53 45 20 3D 22 43 56  |RRENT PHASE ="CV|
00000460: 00 86 0C 30 02 99 22 42  49 54 53 20 31 20 26 20  |...0.."BITS 1 & |
00000470: 30 20 4F 46 20 24 31 43  30 30 20 41 52 45 20 22  |0 OF $1C00 ARE "|
00000480: 44 24 28 43 56 29 00 A6  0C 3A 02 99 22 11 4D 41  |D$(CV)...:..".MA|
00000490: 53 54 45 52 20 44 49 53  4B 20 49 44 3A 20 22 49  |STER DISK ID: "I|
000004A0: 31 24 3B 49 32 24 00 CC  0C 44 02 99 22 11 54 52  |1$;I2$...D..".TR|
000004B0: 41 43 4B 20 23 20 46 52  4F 4D 20 53 54 45 50 50  |ACK # FROM STEPP|
000004C0: 45 52 3A 22 54 22 9D 20  20 20 20 22 00 E5 0C 4E  |ER:"T".    "...N|
000004D0: 02 99 22 11 46 44 43 20  45 52 52 4F 52 3A 22 46  |..".FDC ERROR:"F|
000004E0: 44 24 28 45 29 00 21 0D  58 02 54 24 B2 C4 28 54  |D$(E).!.X.T$..(T|
000004F0: 52 29 3A 53 24 B2 C4 28  53 45 29 3A 8B 45 B3 B1  |R):S$..(SE):.E..|
00000500: 31 A7 54 24 B2 22 3F 3F  22 3A 4E 31 24 B2 22 3F  |1.T$."??":N1$."?|
00000510: 22 3A 4E 32 24 B2 22 3F  22 3A 53 24 B2 22 3F 3F  |":N2$."?":S$."??|
00000520: 22 00 43 0D 62 02 99 22  11 54 52 41 43 4B 20 23  |".C.b..".TRACK #|
00000530: 20 41 53 20 52 45 41 44  3A 20 20 22 C9 28 54 24  | AS READ:  ".(T$|
00000540: 2C 32 29 00 64 0D 6C 02  99 22 53 45 43 54 4F 52  |,2).d.l.."SECTOR|
00000550: 20 23 20 41 53 20 52 45  41 44 3A 20 22 C9 28 53  | # AS READ: ".(S|
00000560: 24 2C 32 29 00 85 0D 76  02 99 22 49 44 20 4F 46  |$,2)...v.."ID OF|
00000570: 20 54 52 41 43 4B 20 52  45 41 44 3A 20 22 4E 31  | TRACK READ: "N1|
00000580: 24 3B 4E 32 24 00 98 0D  80 02 99 22 11 11 43 4F  |$;N2$......"..CO|
00000590: 4D 4D 41 4E 44 53 3A 22  00 C4 0D 8A 02 99 22 11  |MMANDS:"......".|
000005A0: 20 20 46 31 20 3D 20 4D  4F 56 45 20 48 45 41 44  |  F1 = MOVE HEAD|
000005B0: 20 4F 55 54 20 28 4C 4F  57 45 52 20 54 52 41 43  | OUT (LOWER TRAC|
000005C0: 4B 20 23 29 00 EF 0D 94  02 99 22 20 20 46 33 20  |K #)......"  F3 |
000005D0: 3D 20 4D 4F 56 45 20 48  45 41 44 20 49 4E 20 28  |= MOVE HEAD IN (|
000005E0: 48 49 47 48 45 52 20 54  52 41 43 4B 20 23 29 00  |HIGHER TRACK #).|
000005F0: 1A 0E 9E 02 99 22 20 20  46 35 20 3D 20 41 54 54  |....."  F5 = ATT|
00000600: 41 4D 50 54 20 54 4F 20  52 45 41 44 20 54 52 41  |AMPT TO READ TRA|
00000610: 43 4B 20 23 20 26 20 49  44 22 00 3A 0E A8 02 99  |CK # & ID".:....|
00000620: 22 20 20 46 37 20 3D 20  54 45 52 4D 49 4E 41 54  |"  F7 = TERMINAT|
00000630: 45 20 50 52 4F 47 52 41  4D 22 00 61 0E B2 02 99  |E PROGRAM".a....|
00000640: 22 20 20 20 49 20 3D 20  49 4E 49 54 49 41 4C 49  |"   I = INITIALI|
00000650: 5A 45 20 28 54 4F 20 54  52 41 43 4B 20 31 38 29  |ZE (TO TRACK 18)|
00000660: 22 00 6E 0E BC 02 50 B2  C2 28 31 39 37 29 00 7B  |".n...P..(197).{|
00000670: 0E C6 02 8B 50 B2 33 89  39 31 30 00 92 0E D0 02  |....P.3.910.....|
00000680: 8B 50 B2 34 AF 54 B1 31  A7 43 B2 AB 31 3A 89 38  |.P.4.T.1.C..1:.8|
00000690: 30 30 00 A9 0E DA 02 8B  50 B2 35 AF 54 B3 33 35  |00......P.5.T.35|
000006A0: A7 43 B2 31 3A 89 38 30  30 00 B6 0E E4 02 8B 50  |.C.1:.800......P|
000006B0: B2 36 89 39 39 30 00 DC  0E EE 02 8B 50 B2 33 33  |.6.990......P.33|
000006C0: A7 98 31 35 2C 22 49 22  3A 54 B2 31 38 3A 45 B2  |..15,"I":T.18:E.|
000006D0: 30 3A 41 B2 32 31 34 3A  89 34 38 30 00 E5 0E F8  |0:A.214:.480....|
000006E0: 02 89 34 35 30 00 EB 0E  02 03 3A 00 15 0F 0C 03  |..450.....:.....|
000006F0: 8F 20 43 48 41 4E 47 45  20 50 48 41 53 45 20 49  |. CHANGE PHASE I|
00000700: 4E 20 52 45 53 50 4F 4E  53 45 20 54 4F 20 43 4F  |N RESPONSE TO CO|
00000710: 4D 4D 41 4E 44 00 1B 0F  16 03 3A 00 2B 0F 20 03  |MMAND.....:.+. .|
00000720: 43 56 B2 28 43 56 AA 43  29 AF 33 00 41 0F 2A 03  |CV.(CV.C).3.A.*.|
00000730: 54 B2 54 AA 43 AC 2E 35  3A 8B 54 B3 31 A7 54 B2  |T.T.C..5:.T.1.T.|
00000740: 31 00 50 0F 34 03 8B 54  B1 33 36 A7 54 B2 33 36  |1.P.4..T.36.T.36|
00000750: 00 5C 0F 3E 03 42 B2 41  AF 32 35 32 00 67 0F 48  |.\.>.B.A.252.g.H|
00000760: 03 43 B2 42 AA 43 56 00  86 0F 52 03 98 31 35 2C  |.C.B.CV...R..15,|
00000770: 22 4D 2D 57 22 C7 28 30  29 C7 28 32 38 29 C7 28  |"M-W".(0).(28).(|
00000780: 31 29 C7 28 43 29 00 8E  0F 5C 03 45 B2 30 00 97  |1).(C)...\.E.0..|
00000790: 0F 66 03 89 34 35 30 00  9D 0F 70 03 3A 00 C1 0F  |.f..450...p.:...|
000007A0: 7A 03 8F 20 54 45 52 4D  49 4E 41 54 45 20 50 52  |z.. TERMINATE PR|
000007B0: 4F 47 52 41 4D 20 28 44  52 49 56 45 20 4F 46 46  |OGRAM (DRIVE OFF|
000007C0: 29 00 C7 0F 84 03 3A 00  E8 0F 8E 03 98 31 35 2C  |).....:......15,|
000007D0: 22 4D 2D 57 22 C7 28 30  29 C7 28 32 38 29 C7 28  |"M-W".(0).(28).(|
000007E0: 31 29 C7 28 32 34 30 29  00 FA 0F 98 03 81 4B B2  |1).(240)......K.|
000007F0: 31 A4 31 30 3A A1 41 24  3A 82 00 04 10 A2 03 A0  |1.10:.A$:.......|
00000800: 31 35 3A 80 00 0A 10 AC  03 3A 00 2B 10 B6 03 8F  |15:......:.+....|
00000810: 20 41 54 54 45 4D 50 54  20 54 4F 20 52 45 41 44  | ATTEMPT TO READ|
00000820: 20 41 4E 59 20 48 45 41  44 45 52 00 31 10 C0 03  | ANY HEADER.1...|
00000830: 3A 00 58 10 CA 03 8F 20  52 45 41 44 20 26 20 53  |:.X.... READ & S|
00000840: 45 4E 44 20 4D 41 43 48  49 4E 45 20 43 4F 44 45  |END MACHINE CODE|
00000850: 20 52 4F 55 54 49 4E 45  00 5E 10 D4 03 3A 00 6A  | ROUTINE.^...:.j|
00000860: 10 DE 03 8C 3A 43 24 B2  22 22 00 86 10 E8 03 81  |....:C$.""......|
00000870: 4B B2 31 A4 31 31 3A 87  58 3A 43 24 B2 43 24 AA  |K.1.11:.X:C$.C$.|
00000880: C7 28 58 29 3A 82 00 A3  10 F2 03 98 31 35 2C 22  |.(X):.......15,"|
00000890: 4D 2D 57 22 C7 28 30 29  C7 28 33 29 C7 28 31 31  |M-W".(0).(3).(11|
000008A0: 29 43 24 00 A9 10 FC 03  3A 00 CC 10 06 04 8F 20  |)C$.....:...... |
000008B0: 50 55 54 20 4A 4D 50 20  4A 4F 42 20 49 4E 20 54  |PUT JMP JOB IN T|
000008C0: 48 45 20 4A 4F 42 20 51  55 45 55 45 00 D2 10 10  |HE JOB QUEUE....|
000008D0: 04 3A 00 F2 10 1A 04 98  31 35 2C 22 4D 2D 57 22  |.:......15,"M-W"|
000008E0: C7 28 30 29 C7 28 30 29  C7 28 31 29 C7 28 32 30  |.(0).(0).(1).(20|
000008F0: 38 29 00 F8 10 24 04 3A  00 15 11 2E 04 8F 20 57  |8)...$.:...... W|
00000900: 41 49 54 20 46 4F 52 20  4A 4F 42 20 54 4F 20 46  |AIT FOR JOB TO F|
00000910: 49 4E 49 53 48 00 1B 11  38 04 3A 00 31 11 42 04  |INISH...8.:.1.B.|
00000920: 98 31 35 2C 22 4D 2D 52  22 C7 28 30 29 C7 28 30  |.15,"M-R".(0).(0|
00000930: 29 00 4A 11 4C 04 A1 23  31 35 2C 45 24 3A 45 B2  |).J.L..#15,E$:E.|
00000940: C6 28 45 24 AA C7 28 30  29 29 00 59 11 56 04 8B  |.(E$..(0)).Y.V..|
00000950: 45 B1 31 32 37 89 37 39  30 00 5F 11 60 04 3A 00  |E.127.790._.`.:.|
00000960: 84 11 6A 04 8F 20 22 45  22 20 49 53 20 46 44 43  |..j.. "E" IS FDC|
00000970: 20 45 52 52 4F 52 20 43  4F 44 45 20 52 45 54 55  | ERROR CODE RETU|
00000980: 52 4E 45 44 00 92 11 74  04 8B 45 B3 B1 31 89 34  |RNED...t..E..1.4|
00000990: 35 30 00 98 11 7E 04 3A  00 C4 11 88 04 8F 20 43  |50...~.:...... C|
000009A0: 4C 45 41 4E 20 52 45 41  44 20 53 4F 20 44 49 47  |LEAN READ SO DIG|
000009B0: 20 4F 55 54 20 49 44 2C  20 54 52 41 4B 20 26 20  | OUT ID, TRAK & |
000009C0: 53 45 43 54 00 CA 11 92  04 3A 00 E5 11 9C 04 98  |SECT.....:......|
000009D0: 31 35 2C 22 4D 2D 52 22  C7 28 32 32 29 C7 28 30  |15,"M-R".(22).(0|
000009E0: 29 C7 28 34 29 00 F2 11  A6 04 A1 23 31 35 2C 4E  |).(4)......#15,N|
000009F0: 31 24 00 FF 11 B0 04 A1  23 31 35 2C 4E 32 24 00  |1$......#15,N2$.|
00000A00: 19 12 BA 04 A1 23 31 35  2C 58 24 3A 54 52 B2 C6  |.....#15,X$:TR..|
00000A10: 28 58 24 AA C7 28 30 29  29 00 33 12 C4 04 A1 23  |(X$..(0)).3....#|
00000A20: 31 35 2C 58 24 3A 53 45  B2 C6 28 58 24 AA C7 28  |15,X$:SE..(X$..(|
00000A30: 30 29 29 00 3C 12 CE 04  89 34 35 30 00 00 00     |0)).<....450... |

..-.D.."..   MOVE THE 1541'S READ/WRITE 
HEAD".G.N.."..INSERT TEST DISK".J.X.."..
PRESS .RETURN. WHEN READY".P...:...... M
ACHINE CODE ROUTINE TO READ A HEADER....
.. RESIDES AT $0300 (BUFFER #0).E. .:...
...169,48:    :. LDA #$30......133,69:  
  :. STA $45......169,00:    :. LDA #$00
.3.H..133,63:    :. STA $3F.P.R..76,177,
243 :. JMP $F3B1.V...:.....D$(0)."00":D$
(1)."01":D$(2)."10":D$(3)."11"......FD$(
16).....FD$(0)."                        
 ".....FD$(1)."01 ALL OK                
".....FD$(2)."02 HEADER BLOCK NOT FOUND"
./...FD$(3)."03 NO SYNC CHARACTER     ".
V.".FD$(9)."09 HEADER BLOCK CHKSUM ER".V
.,.T.18:N1$."?":N2$."?":TR.255...6..A$:.
A$..G(13).310...@.:...J..15,8,15,"I"...T
.:.G.^.. DIG OUT MASTER DISK ID.M.H.:...
R..15,"M-R"G(18)G(0)G(2)...|..#15,I1$:.I
1$."".I1$.G(0).$....#15,I2$:.I2$."".I2$.
G(0).*...:.3....".".9...:.].... READ THE
 DISK CONTROLLER PORT.C...:.Z.B..15,"M-R
"G(0)G(28)...L..#15,A$:.A$."".A$.G(0)...
V.A.F(A$).....CV.3.A.Y...A.(159.A).(96.3
2.((T.17).(T.24).(T.30)))......15,"M-W"G
(0)G(28)G(1)G(A.4).....:...... DISPLAY V
ALUES.....:.F...."..  MOVE THE 1541'S RE
AD/WRITE HEAD".`.&..".CURRENT PHASE ="CV
...0.."BITS 1 & 0 OF $1C00 ARE "D$(CV)..
.:..".MASTER DISK ID: "I1$;I2$.L.D..".TR
ACK # FROM STEPPER:"T".    "...N..".FDC 
ERROR:"FD$(E).!.X.T$.D(TR):S$.D(SE):.E..
1.T$."??":N1$."?":N2$."?":S$."??".C.B.."
.TRACK # AS READ:  "I(T$,2).D.L.."SECTOR
 # AS READ: "I(S$,2)...V.."ID OF TRACK R
EAD: "N1$;N2$......"..COMMANDS:".D....".
  F1 = MOVE HEAD OUT (LOWER TRACK #)....
.."  F3 = MOVE HEAD IN (HIGHER TRACK #).
....."  F5 = ATTAMPT TO READ TRACK # & I
D".:...."  F7 = TERMINATE PROGRAM".A....
"   I = INITIALIZE (TO TRACK 18)".N...P.
B(197).{.F..P.3.910...P..P.4.T.1.C..1:.8
00...Z..P.5.T.35.C.1:.800......P.6.990..
....P.33..15,"I":T.18:E.0:A.214:.480....
..450.....:...... CHANGE PHASE IN RESPON
SE TO COMMAND.....:.+. .CV.(CV.C).3.A.*.
T.T.C..5:.T.1.T.1.P.4..T.36.T.36.\.>.B.A
.252.G.H.C.B.CV...R..15,"M-W"G(0)G(28)G(
1)G(C)...\.E.0...F..450...P.:.A.Z.. TERM
INATE PROGRAM (DRIVE OFF).G...:......15,
"M-W"G(0)G(28)G(1)G(240)......K.1.10:.A$
:...... 15:......:.+.... ATTEMPT TO READ
 ANY HEADER.1...:.X.J.. READ & SEND MACH
INE CODE ROUTINE.^.T.:.J....:C$.""......
K.1.11:.X:C$.C$.G(X):.......15,"M-W"G(0)
G(3)G(11)C$.....:.L.... PUT JMP JOB IN T
HE JOB QUEUE.R...:......15,"M-W"G(0)G(0)
G(1)G(208)...$.:...... WAIT FOR JOB TO F
INISH...8.:.1.B..15,"M-R"G(0)G(0).J.L..#
15,E$:E.F(E$.G(0)).Y.V..E.127.790._.`.:.
..J.. "E" IS FDC ERROR CODE RETURNED...T
..E..1.450...~.:.D.... CLEAN READ SO DIG
 OUT ID, TRAK & SECT.J...:......15,"M-R"
G(22)G(0)G(4)......#15,N1$......#15,N2$.
.....#15,X$:TR.F(X$.G(0)).3.D..#15,X$:SE
.F(X$.G(0)).<.N..450...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL