MOVE 1541 HEAD

FILE INFORMATION

FILENAME(S): MOVE 1541 HEAD

FILE TYPE(S): PRG

FILE SIZE: 2.5K

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

APPEARS ON: 1 disk(s)

FILE HASH

40ae8364e287ac4d04d6527c7731138285080862e7061c649f248fc5dcae72c1

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COPY PROGRAMS	MOVE 1541 HEAD	PRG	Sailor, Ganheden	9	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2A 08 64 00 99 22  93 11 4D 4F 56 45 20 54  |..*.d.."..MOVE T|
00000010: 48 45 20 31 35 34 31 27  53 20 52 45 41 44 2F 57  |HE 1541'S READ/W|
00000020: 52 49 54 45 20 48 45 41  44 22 00 44 08 6E 00 99  |RITE HEAD".D.n..|
00000030: 22 11 11 49 4E 53 45 52  54 20 54 45 53 54 20 44  |"..INSERT TEST D|
00000040: 49 53 4B 22 00 69 08 78  00 99 22 11 11 50 52 45  |ISK".i.x.."..PRE|
00000050: 53 53 20 12 20 52 45 54  55 52 4E 20 92 20 57 48  |SS . RETURN . WH|
00000060: 45 4E 20 52 45 41 44 59  22 00 6F 08 82 00 3A 00  |EN READY".o...:.|
00000070: 8E 08 8C 00 8F 20 4D 41  43 48 49 4E 45 20 43 4F  |..... MACHINE CO|
00000080: 44 45 20 52 45 41 44 20  48 45 41 44 45 52 00 B1  |DE READ HEADER..|
00000090: 08 96 00 8F 20 52 45 53  49 44 45 53 20 41 54 20  |.... RESIDES AT |
000000A0: 24 30 33 30 30 20 28 42  55 46 46 45 52 20 23 30  |$0300 (BUFFER #0|
000000B0: 29 00 B7 08 A0 00 3A 00  D3 08 AA 00 83 31 36 39  |).....:......169|
000000C0: 2C 34 38 3A 20 20 20 20  3A 8F 20 4C 44 41 20 23  |,48:    :. LDA #|
000000D0: 24 33 30 00 EE 08 B4 00  83 31 33 33 2C 36 39 3A  |$30......133,69:|
000000E0: 20 20 20 20 3A 8F 20 53  54 41 20 24 34 35 00 0A  |    :. STA $45..|
000000F0: 09 BE 00 83 31 36 39 2C  30 30 3A 20 20 20 20 3A  |....169,00:    :|
00000100: 8F 20 4C 44 41 20 23 24  30 30 00 25 09 C8 00 83  |. LDA #$00.%....|
00000110: 31 33 33 2C 36 33 3A 20  20 20 20 3A 8F 20 53 54  |133,63:    :. ST|
00000120: 41 20 24 33 46 00 42 09  D2 00 83 37 36 2C 31 37  |A $3F.B....76,17|
00000130: 37 2C 32 34 33 20 3A 8F  20 4A 4D 50 20 24 46 33  |7,243 :. JMP $F3|
00000140: 42 31 00 48 09 DC 00 3A  00 78 09 E6 00 44 24 28  |B1.H...:.x...D$(|
00000150: 30 29 B2 22 30 30 22 3A  44 24 28 31 29 B2 22 30  |0)."00":D$(1)."0|
00000160: 31 22 3A 44 24 28 32 29  B2 22 31 30 22 3A 44 24  |1":D$(2)."10":D$|
00000170: 28 33 29 B2 22 31 31 22  00 7E 09 F0 00 3A 00 A5  |(3)."11".~...:..|
00000180: 09 FA 00 46 44 24 28 30  29 B2 22 20 20 20 20 20  |...FD$(0)."     |
00000190: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001A0: 20 20 20 20 22 00 CC 09  04 01 46 44 24 28 31 29  |    ".....FD$(1)|
000001B0: B2 22 30 31 20 41 4C 4C  20 4F 4B 20 20 20 20 20  |."01 ALL OK     |
000001C0: 20 20 20 20 20 20 20 20  20 20 20 22 00 F3 09 0E  |           "....|
000001D0: 01 46 44 24 28 32 29 B2  22 30 32 20 48 45 41 44  |.FD$(2)."02 HEAD|
000001E0: 45 52 20 42 4C 4F 43 4B  20 4E 4F 54 20 46 4F 55  |ER BLOCK NOT FOU|
000001F0: 4E 44 22 00 1A 0A 18 01  46 44 24 28 33 29 B2 22  |ND".....FD$(3)."|
00000200: 30 33 20 4E 4F 20 53 59  4E 43 20 43 48 41 52 41  |03 NO SYNC CHARA|
00000210: 43 54 45 52 20 20 20 20  20 22 00 41 0A 22 01 46  |CTER     ".A.".F|
00000220: 44 24 28 39 29 B2 22 30  39 20 48 45 41 44 45 52  |D$(9)."09 HEADER|
00000230: 20 42 4C 4F 43 4B 20 43  48 4B 53 55 4D 20 45 52  | BLOCK CHKSUM ER|
00000240: 22 00 61 0A 2C 01 54 B2  31 38 3A 4E 31 24 B2 22  |".a.,.T.18:N1$."|
00000250: 3F 22 3A 4E 32 24 B2 22  3F 22 3A 54 52 B2 32 35  |?":N2$."?":TR.25|
00000260: 35 00 7A 0A 36 01 A1 41  24 3A 8B 20 41 24 B3 B1  |5.z.6..A$:. A$..|
00000270: C7 28 31 33 29 20 89 33  31 30 00 80 0A 40 01 3A  |.(13) .310...@.:|
00000280: 00 91 0A 4A 01 9F 31 35  2C 38 2C 31 35 2C 22 49  |...J..15,8,15,"I|
00000290: 22 00 A6 0A 5E 01 8F 20  4D 41 53 54 45 52 20 44  |"...^.. MASTER D|
000002A0: 49 53 4B 20 49 44 00 AC  0A 68 01 3A 00 C7 0A 72  |ISK ID...h.:...r|
000002B0: 01 98 31 35 2C 22 4D 2D  52 22 C7 28 31 38 29 C7  |..15,"M-R".(18).|
000002C0: 28 30 29 C7 28 32 29 00  E5 0A 7C 00 01 23 31 FF  |(0).(2)...|..#1.|
000002D0: FF D3 C4 8A 88 FF D0 F1  24 B2 22 22 A7 49 11 24  |........$."".I.$|
000002E0: B2 C7 28 30 29 00 03 0B  86 01 A1 23 2F 95 FF 1F  |..(0)......#/...|
000002F0: FF FF FF 24 BF 04 08 B4  00 00 A7 49 32 24 B2 C7  |...$.......I2$..|
00000300: 28 30 29 00 09 0B 90 01  3A 00 12 0B 9A 01 99 22  |(0).....:......"|
00000310: 93 22 00 18 0B A4 01 3A  00 37 0B AE 01 8F 20 52  |.".....:.7.... R|
00000320: 45 41 44 20 44 49 53 4B  20 43 4F 4E 54 52 4F 4C  |EAD DISK CONTROL|
00000330: 45 52 20 50 4F 52 54 00  3D 0B B8 01 3A 00 54 0B  |ER PORT.=...:.T.|
00000340: C2 01 98 31 35 2C 22 4D  2D 52 22 C7 28 30 29 C7  |...15,"M-R".(0).|
00000350: 28 32 38 29 00 70 0B CC  01 A1 23 31 35 2C 41 24  |(28).p....#15,A$|
00000360: 3A 8B 20 41 24 B2 22 22  A7 41 24 B2 C7 28 30 29  |:. A$."".A$..(0)|
00000370: 00 7C 0B D6 01 41 B2 C6  28 41 24 29 00 89 0B E0  |.|...A..(A$)....|
00000380: 01 43 56 B2 33 20 AF 20  41 00 B8 0B EA 01 41 B2  |.CV.3 . A.....A.|
00000390: 28 31 35 39 AF 20 41 29  B0 20 28 39 36 AA 33 32  |(159. A). (96.32|
000003A0: AC 28 28 54 B1 31 37 29  AA 28 54 B1 32 34 29 AA  |.((T.17).(T.24).|
000003B0: 28 54 B1 33 30 29 29 29  00 DB 0B F4 01 98 31 35  |(T.30)))......15|
000003C0: 2C 22 4D 2D 57 22 C7 28  30 29 C7 28 32 38 29 C7  |,"M-W".(0).(28).|
000003D0: 28 31 29 C7 28 41 20 B0  20 34 29 00 E1 0B FE 01  |(1).(A . 4).....|
000003E0: 3A 00 F6 0B 08 02 8F 20  44 49 53 50 4C 41 59 20  |:...... DISPLAY |
000003F0: 56 41 4C 55 45 53 00 FC  0B 12 02 3A 00 28 0C 1C  |VALUES.....:.(..|
00000400: 02 99 22 93 11 20 20 20  4D 4F 56 45 20 54 48 45  |.."..   MOVE THE|
00000410: 20 31 35 34 31 27 53 20  52 45 41 44 2F 57 52 49  | 1541'S READ/WRI|
00000420: 54 45 20 48 45 41 44 22  00 42 0C 26 02 99 22 11  |TE HEAD".B.&..".|
00000430: 43 55 52 52 45 4E 54 20  50 48 41 53 45 20 3D 22  |CURRENT PHASE ="|
00000440: 43 56 00 68 0C 30 02 99  22 42 49 54 53 20 31 20  |CV.h.0.."BITS 1 |
00000450: 26 20 30 20 4F 46 20 24  31 43 30 30 20 41 52 45  |& 0 OF $1C00 ARE|
00000460: 20 22 44 24 28 43 56 29  00 88 0C 3A 02 99 22 11  | "D$(CV)...:..".|
00000470: 4D 41 53 54 45 52 20 44  49 53 4B 20 49 44 3A 20  |MASTER DISK ID: |
00000480: 22 49 31 24 3B 49 32 24  00 B0 0C 44 02 99 22 11  |"I1$;I2$...D..".|
00000490: 54 52 41 43 4B 20 23 20  46 52 4F 4D 20 53 54 45  |TRACK # FROM STE|
000004A0: 50 50 45 52 20 3D 22 54  22 9D 20 20 20 20 20 22  |PPER ="T".     "|
000004B0: 00 CA 0C 4E 02 99 22 11  46 44 43 20 45 52 52 4F  |...N..".FDC ERRO|
000004C0: 52 3A 20 22 46 44 24 28  45 29 00 09 0D 58 02 54  |R: "FD$(E)...X.T|
000004D0: 24 B2 C4 28 54 52 29 3A  53 24 B2 C4 28 53 45 29  |$..(TR):S$..(SE)|
000004E0: 3A 8B 20 45 B3 B1 31 20  A7 20 54 24 B2 22 3F 3F  |:. E..1 . T$."??|
000004F0: 22 3A 4E 31 24 B2 22 3F  22 3A 4E 32 24 B2 22 3F  |":N1$."?":N2$."?|
00000500: 22 3A 53 24 B2 22 3F 3F  22 00 2B 0D 62 02 99 22  |":S$."??".+.b.."|
00000510: 11 54 52 41 43 4B 20 23  20 41 53 20 52 45 41 44  |.TRACK # AS READ|
00000520: 3A 20 20 22 C9 28 54 24  2C 32 29 00 4D 0D 6C 02  |:  ".(T$,2).M.l.|
00000530: 99 22 53 45 43 54 4F 52  20 23 20 41 53 20 52 45  |."SECTOR # AS RE|
00000540: 41 44 3A 20 20 22 C9 28  53 24 2C 32 29 00 6F 0D  |AD:  ".(S$,2).o.|
00000550: 76 02 99 22 49 44 20 4F  46 20 54 52 41 43 4B 20  |v.."ID OF TRACK |
00000560: 52 45 41 44 3A 20 20 22  4E 31 24 3B 4E 32 24 00  |READ:  "N1$;N2$.|
00000570: 82 0D 80 02 99 22 11 11  43 4F 4D 4D 41 4E 44 53  |....."..COMMANDS|
00000580: 3A 22 00 AE 0D 8A 02 99  22 11 46 31 20 3D 20 4D  |:"......".F1 = M|
00000590: 4F 56 45 20 48 45 41 44  20 4F 55 54 20 28 4C 4F  |OVE HEAD OUT (LO|
000005A0: 57 45 52 20 54 52 41 43  4B 20 23 27 53 29 00 DB  |WER TRACK #'S)..|
000005B0: 0D 94 02 99 22 20 46 33  20 3D 20 4D 4F 56 45 20  |...." F3 = MOVE |
000005C0: 48 45 41 44 20 49 4E 20  20 28 48 49 47 48 45 52  |HEAD IN  (HIGHER|
000005D0: 20 54 52 41 43 4B 20 23  27 53 29 00 05 0E 9E 02  | TRACK #'S).....|
000005E0: 99 22 20 46 35 20 3D 20  41 54 54 45 4D 50 54 20  |." F5 = ATTEMPT |
000005F0: 54 4F 20 52 45 41 44 20  54 52 41 43 4B 20 23 20  |TO READ TRACK # |
00000600: 26 20 49 44 22 00 24 0E  A8 02 99 22 20 46 37 20  |& ID".$...." F7 |
00000610: 3D 20 54 45 52 4D 49 4E  41 54 45 20 50 52 4F 47  |= TERMINATE PROG|
00000620: 52 41 4D 22 00 4A 0E B2  02 99 22 20 20 49 20 3D  |RAM".J...."  I =|
00000630: 20 49 4E 49 54 49 41 4C  49 5A 45 20 28 54 4F 20  | INITIALIZE (TO |
00000640: 54 52 41 43 4B 20 31 38  29 22 00 57 0E BC 02 50  |TRACK 18)".W...P|
00000650: B2 C2 28 31 39 37 29 00  66 0E C6 02 8B 20 50 B2  |..(197).f.... P.|
00000660: 33 20 89 39 31 30 00 82  0E D0 02 8B 20 50 B2 34  |3 .910...... P.4|
00000670: 20 AF 20 54 B1 31 20 A7  20 43 B2 AB 31 3A 89 38  | . T.1 . C..1:.8|
00000680: 30 30 00 9E 0E DA 02 8B  20 50 B2 35 20 AF 20 54  |00...... P.5 . T|
00000690: B3 33 35 20 A7 20 43 B2  31 3A 89 38 30 30 00 AE  |.35 . C.1:.800..|
000006A0: 0E E4 02 8B 20 50 B2 36  20 89 20 39 39 30 00 D6  |.... P.6 . 990..|
000006B0: 0E EE 02 8B 20 50 B2 33  33 A7 20 98 31 35 2C 22  |.... P.33. .15,"|
000006C0: 49 22 3A 54 B2 31 38 3A  45 B2 30 3A 41 B2 32 31  |I":T.18:E.0:A.21|
000006D0: 34 3A 89 34 38 30 00 DF  0E F8 02 89 34 35 30 00  |4:.480......450.|
000006E0: E5 0E 02 03 3A 00 F8 0E  0C 03 8F 20 43 48 41 4E  |....:...... CHAN|
000006F0: 47 45 20 50 48 41 53 45  00 FE 0E 16 03 3A 00 10  |GE PHASE.....:..|
00000700: 0F 20 03 43 56 B2 28 43  56 20 AA 20 43 29 AF 33  |. .CV.(CV . C).3|
00000710: 00 26 0F 2A 03 54 B2 54  AA 43 AC 2E 35 3A 8B 54  |.&.*.T.T.C..5:.T|
00000720: B3 31 A7 54 B2 31 00 35  0F 34 03 8B 54 B1 33 36  |.1.T.1.5.4..T.36|
00000730: A7 54 B2 33 36 00 43 0F  3E 03 42 B2 41 20 AF 20  |.T.36.C.>.B.A . |
00000740: 32 35 32 00 4E 0F 48 03  43 B2 42 AA 43 56 00 6D  |252.N.H.C.B.CV.m|
00000750: 0F 52 03 98 31 35 2C 22  4D 2D 57 22 C7 28 30 29  |.R..15,"M-W".(0)|
00000760: C7 28 32 38 29 C7 28 31  29 C7 28 43 29 00 75 0F  |.(28).(1).(C).u.|
00000770: 5C 03 45 B2 30 00 7E 0F  66 03 89 34 35 30 00 84  |\.E.0.~.f..450..|
00000780: 0F 70 03 3A 00 9C 0F 7A  03 8F 20 54 45 52 4D 49  |.p.:...z.. TERMI|
00000790: 4E 41 54 45 20 50 52 4F  47 52 41 4D 00 A2 0F 84  |NATE PROGRAM....|
000007A0: 03 3A 00 C3 0F 8E 03 98  31 35 2C 22 4D 2D 57 22  |.:......15,"M-W"|
000007B0: C7 28 30 29 C7 28 32 38  29 C7 28 31 29 C7 28 32  |.(0).(28).(1).(2|
000007C0: 34 30 29 00 D6 0F 98 03  81 20 4B B2 31 A4 31 30  |40)...... K.1.10|
000007D0: 3A A1 41 24 3A 82 00 E0  0F A2 03 A0 31 35 3A 80  |:.A$:.......15:.|
000007E0: 00 E6 0F AC 03 3A 00 F9  0F B6 03 8F 20 41 54 54  |.....:...... ATT|
000007F0: 45 4D 50 54 20 52 45 41  44 00 FF 0F C0 03 3A 00  |EMPT READ.....:.|
00000800: 0A 10 CA 03 8F 20 52 45  41 44 00 10 10 D4 03 3A  |..... READ.....:|
00000810: 00 1C 10 DE 03 8C 3A 43  24 B2 22 22 00 38 10 E8  |......:C$."".8..|
00000820: 03 81 4B B2 31 A4 31 31  3A 87 58 3A 43 24 B2 43  |..K.1.11:.X:C$.C|
00000830: 24 AA C7 28 58 29 3A 82  00 55 10 F2 03 98 31 35  |$..(X):..U....15|
00000840: 2C 22 4D 2D 57 22 C7 28  30 29 C7 28 33 29 C7 28  |,"M-W".(0).(3).(|
00000850: 31 31 29 43 24 00 5B 10  FC 03 3A 00 72 10 06 04  |11)C$.[...:.r...|
00000860: 8F 20 4A 4D 50 20 49 4E  20 4A 4F 42 20 51 55 45  |. JMP IN JOB QUE|
00000870: 55 45 00 78 10 10 04 3A  00 98 10 1A 04 98 31 35  |UE.x...:......15|
00000880: 2C 22 4D 2D 57 22 C7 28  30 29 C7 28 30 29 C7 28  |,"M-W".(0).(0).(|
00000890: 31 29 C7 28 32 30 38 29  00 9E 10 24 04 3A 00 A9  |1).(208)...$.:..|
000008A0: 10 2E 04 8F 20 57 41 49  54 00 AF 10 38 04 3A 00  |.... WAIT...8.:.|
000008B0: C5 10 42 04 98 31 35 2C  22 4D 2D 57 22 C7 28 30  |..B..15,"M-W".(0|
000008C0: 29 C7 28 30 29 00 DE 10  4C 04 A1 23 31 35 2C 45  |).(0)...L..#15,E|
000008D0: 24 3A 45 B2 C6 28 45 24  AA C7 28 30 29 29 00 EF  |$:E..(E$..(0))..|
000008E0: 10 56 04 8B 20 45 B1 31  32 37 20 89 37 39 30 00  |.V.. E.127 .790.|
000008F0: F5 10 60 04 3A 00 15 11  6A 04 8F 20 22 45 22 20  |..`.:...j.. "E" |
00000900: 49 53 20 46 4F 52 20 45  52 52 4F 52 20 46 44 43  |IS FOR ERROR FDC|
00000910: 20 43 4F 44 45 00 25 11  74 04 8B 20 45 B3 B1 31  | CODE.%.t.. E..1|
00000920: 20 89 34 35 30 00 2B 11  7E 04 3A 00 55 11 88 04  | .450.+.~.:.U...|
00000930: 8F 20 43 4C 45 41 4E 20  52 45 41 44 20 44 49 47  |. CLEAN READ DIG|
00000940: 20 4F 55 54 20 49 44 2C  54 52 41 43 4B 2C 20 53  | OUT ID,TRACK, S|
00000950: 45 43 54 4F 52 00 5B 11  92 04 3A 00 76 11 9C 04  |ECTOR.[...:.v...|
00000960: 98 31 35 2C 22 4D 2D 52  22 C7 28 32 32 29 C7 28  |.15,"M-R".(22).(|
00000970: 30 29 C7 28 34 29 00 83  11 A6 04 A1 23 31 35 2C  |0).(4)......#15,|
00000980: 4E 31 24 00 90 11 B0 04  A1 23 31 35 2C 4E 32 24  |N1$......#15,N2$|
00000990: 00 AA 11 BA 04 A1 23 31  35 2C 58 24 3A 54 52 B2  |......#15,X$:TR.|
000009A0: C6 28 58 24 AA C7 28 30  29 29 00 C4 11 C4 04 A1  |.(X$..(0))......|
000009B0: 23 31 35 2C 58 24 3A 53  45 B2 C6 28 58 24 AA C7  |#15,X$:SE..(X$..|
000009C0: 28 30 29 29 00 CD 11 CE  04 89 34 35 30 00 00 00  |(0))......450...|

..*.D.."..MOVE THE 1541'S READ/WRITE HEA
D".D.N.."..INSERT TEST DISK".I.X.."..PRE
SS . RETURN . WHEN READY".O...:...... MA
CHINE CODE READ HEADER...... RESIDES AT 
$0300 (BUFFER #0)... .:.S....169,48:    
:. LDA #$30......133,69:    :. STA $45..
....169,00:    :. LDA #$00.%.H..133,63: 
   :. STA $3F.B.R..76,177,243 :. JMP $F3
B1.H...:.X...D$(0)."00":D$(1)."01":D$(2)
."10":D$(3)."11".~...:.....FD$(0)."     
                    ".L...FD$(1)."01 ALL
 OK                ".....FD$(2)."02 HEAD
ER BLOCK NOT FOUND".....FD$(3)."03 NO SY
NC CHARACTER     ".A.".FD$(9)."09 HEADER
 BLOCK CHKSUM ER".A.,.T.18:N1$."?":N2$."
?":TR.255.Z.6..A$:. A$..G(13) .310...@.:
...J..15,8,15,"I"...^.. MASTER DISK ID..
.H.:.G.R..15,"M-R"G(18)G(0)G(2)...|..#1.
.SD...P.$."".I.$.G(0)......#/......$....
...I2$.G(0).....:......".".....:.7.... R
EAD DISK CONTROLER PORT.=...:.T.B..15,"M
-R"G(0)G(28).P.L..#15,A$:. A$."".A$.G(0)
.|.V.A.F(A$).....CV.3 . A.....A.(159. A)
. (96.32.((T.17).(T.24).(T.30)))......15
,"M-W"G(0)G(28)G(1)G(A . 4).....:...... 
DISPLAY VALUES.....:.(...."..   MOVE THE
 1541'S READ/WRITE HEAD".B.&..".CURRENT 
PHASE ="CV.H.0.."BITS 1 & 0 OF $1C00 ARE
 "D$(CV)...:..".MASTER DISK ID: "I1$;I2$
...D..".TRACK # FROM STEPPER ="T".     "
.J.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).M.L.."SECTOR # AS READ:  "I(S$,2).O.
V.."ID OF TRACK READ:  "N1$;N2$......"..
COMMANDS:"......".F1 = MOVE HEAD OUT (LO
WER TRACK #'S)......" F3 = MOVE HEAD IN 
 (HIGHER TRACK #'S)......" F5 = ATTEMPT 
TO READ TRACK # & ID".$...." F7 = TERMIN
ATE PROGRAM".J...."  I = INITIALIZE (TO 
TRACK 18)".W...P.B(197).F.F.. P.3 .910..
.P.. P.4 . T.1 . C..1:.800...Z.. P.5 . T
.35 . C.1:.800...... P.6 . 990.V.... P.3
3. .15,"I":T.18:E.0:A.214:.480......450.
....:...... CHANGE PHASE.....:... .CV.(C
V . C).3.&.*.T.T.C..5:.T.1.T.1.5.4..T.36
.T.36.C.>.B.A . 252.N.H.C.B.CV.M.R..15,"
M-W"G(0)G(28)G(1)G(C).U.\.E.0.~.F..450..
.P.:...Z.. TERMINATE PROGRAM.....:.C....
15,"M-W"G(0)G(28)G(1)G(240).V.... K.1.10
:.A$:...... 15:......:...... ATTEMPT REA
D.....:...J.. READ...T.:......:C$."".8..
..K.1.11:.X:C$.C$.G(X):..U....15,"M-W"G(
0)G(3)G(11)C$.[...:.R.... JMP IN JOB QUE
UE.X...:......15,"M-W"G(0)G(0)G(1)G(208)
...$.:...... WAIT...8.:.E.B..15,"M-W"G(0
)G(0)...L..#15,E$:E.F(E$.G(0))...V.. E.1
27 .790...`.:...J.. "E" IS FOR ERROR FDC
 CODE.%.T.. E..1 .450.+.~.:.U.... CLEAN 
READ DIG OUT ID,TRACK, SECTOR.[...:.V...
.15,"M-R"G(22)G(0)G(4)......#15,N1$.....
.#15,N2$......#15,X$:TR.F(X$.G(0)).D.D..
#15,X$:SE.F(X$.G(0)).M.N..450...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL