BIG MOVE
FILE INFORMATION
FILENAME(S): BIG MOVE
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
f1878c4d107ee1f01c6eed451274c80d9e16134ce47084b64689ada762cd6cc3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | BIG MOVE | PRG | Radd Maxx | 26 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2D 04 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 04 |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 04 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 04 82 00 3A |HEN READY".p...:|
00000070: 00 9D 04 8C 00 8F 20 20 4D 41 43 48 49 4E 45 20 |...... MACHINE |
00000080: 43 4F 44 45 20 52 4F 55 54 49 4E 45 20 54 4F 20 |CODE ROUTINE TO |
00000090: 52 45 41 44 20 41 20 48 45 41 44 45 52 00 C1 04 |READ A HEADER...|
000000A0: 96 00 8F 20 20 52 45 52 E9 44 45 53 20 41 54 20 |... RER.DES AT |
000000B0: 24 30 33 30 30 20 28 42 55 46 46 45 52 20 23 30 |$0300 (BUFFER #0|
000000C0: 29 00 C7 04 A0 00 3A 00 E4 04 AA 00 83 20 31 36 |).....:...... 16|
000000D0: 39 2C 34 38 3A 20 20 20 20 3A 8F 20 4C 44 41 20 |9,48: :. LDA |
000000E0: 23 24 33 30 00 00 05 B4 00 83 20 31 33 33 2C 36 |#$30...... 133,6|
000000F0: 39 3A 20 20 20 20 3A 8F 20 53 54 41 20 24 34 35 |9: :. STA $45|
00000100: 00 1D 05 BE 00 83 20 31 36 39 2C 30 30 3A 20 20 |...... 169,00: |
00000110: 20 20 3A 8F 20 4C 44 41 20 23 24 30 30 00 39 05 | :. LDA #$00.9.|
00000120: C8 00 83 20 31 33 33 2C 36 33 3A 20 20 20 20 3A |... 133,63: :|
00000130: 8F 20 53 54 41 20 24 33 46 00 57 05 D2 00 83 20 |. STA $3F.W.... |
00000140: 37 36 2C 31 37 37 2C 32 34 33 20 3A 8F 20 4A 4D |76,177,243 :. JM|
00000150: 50 20 24 46 33 42 31 00 5D 05 DC 00 3A 00 8D 05 |P $F3B1.]...:...|
00000160: E6 00 44 24 28 30 29 B2 22 30 30 22 3A 44 24 28 |..D$(0)."00":D$(|
00000170: 31 29 B2 22 30 31 22 3A 44 24 28 32 29 B2 22 31 |1)."01":D$(2)."1|
00000180: 30 22 3A 44 24 28 33 29 B2 22 31 31 22 00 9B 05 |0":D$(3)."11"...|
00000190: F0 00 86 20 46 44 24 28 31 36 29 00 C2 05 FA 00 |... FD$(16).....|
000001A0: 46 44 24 28 30 29 B2 22 20 20 20 20 20 20 20 20 |FD$(0)." |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 22 00 E9 05 04 01 46 44 24 28 31 29 B2 22 30 | ".....FD$(1)."0|
000001D0: 31 20 41 4C 4C 20 4F 4B 20 20 20 20 20 20 20 20 |1 ALL OK |
000001E0: 20 20 20 20 20 20 20 20 22 00 10 06 0E 01 46 44 | ".....FD|
000001F0: 24 28 32 29 B2 22 30 32 20 48 45 41 44 45 52 20 |$(2)."02 HEADER |
00000200: 42 4C 4F 43 4B 20 4E 4F 54 20 46 4F 55 4E 44 22 |BLOCK NOT FOUND"|
00000210: 00 37 06 18 01 46 44 24 28 33 29 B2 22 30 33 20 |.7...FD$(3)."03 |
00000220: 4E 4F 20 53 59 4E 43 20 43 48 41 52 41 43 54 45 |NO SYNC CHARACTE|
00000230: 52 20 20 20 20 20 22 00 5E 06 22 01 46 44 24 28 |R ".^.".FD$(|
00000240: 39 29 B2 22 30 39 20 48 45 41 44 45 52 20 42 4C |9)."09 HEADER BL|
00000250: 4F 43 4B 20 43 48 4B 53 55 4D 20 45 52 22 00 7E |OCK CHKSUM ER".~|
00000260: 06 2C 01 54 B2 31 38 3A 4E 31 24 B2 22 3F 22 3A |.,.T.18:N1$."?":|
00000270: 4E 32 24 B2 22 3F 22 3A 54 52 B2 32 35 35 00 99 |N2$."?":TR.255..|
00000280: 06 36 01 A1 20 41 24 3A 8B 20 41 24 B3 B1 C7 28 |.6.. A$:. A$...(|
00000290: 31 33 29 20 89 20 33 31 30 00 9F 06 40 01 3A 00 |13) . 310...@.:.|
000002A0: B1 06 4A 01 9F 20 31 35 2C 38 2C 31 35 2C 22 49 |..J.. 15,8,15,"I|
000002B0: 22 00 B7 06 54 01 3A 00 D4 06 5E 01 8F 20 44 49 |"...T.:...^.. DI|
000002C0: 47 20 4F 55 54 20 4D 41 53 54 45 52 20 44 49 53 |G OUT MASTER DIS|
000002D0: 4B 20 49 44 00 DA 06 68 01 3A 00 F5 06 72 01 98 |K ID...h.:...r..|
000002E0: 31 35 2C 22 4D 2D 52 22 C7 28 31 38 29 C7 28 30 |15,"M-R".(18).(0|
000002F0: 29 C7 28 32 29 00 13 07 7C 01 A1 23 31 35 2C 49 |).(2)...|..#15,I|
00000300: 31 24 3A 8B 49 31 24 B2 22 22 A7 49 31 24 B2 C7 |1$:.I1$."".I1$..|
00000310: 28 30 29 00 31 07 86 01 A1 23 31 35 2C 49 32 24 |(0).1....#15,I2$|
00000320: 3A 8B 49 32 24 B2 22 22 A7 49 32 24 B2 C7 28 30 |:.I2$."".I2$..(0|
00000330: 29 00 37 07 90 01 3A 00 40 07 9A 01 99 22 93 22 |).7...:.@...."."|
00000340: 00 46 07 A4 01 3A 00 6A 07 AE 01 8F 20 52 45 41 |.F...:.j.... REA|
00000350: 44 20 54 48 45 20 44 49 53 4B 20 43 4F 4E 54 52 |D THE DISK CONTR|
00000360: 4F 4C 4C 45 52 20 50 4F 52 54 00 70 07 B8 01 3A |OLLER PORT.p...:|
00000370: 00 87 07 C2 01 98 31 35 2C 22 4D 2D 52 22 C7 28 |......15,"M-R".(|
00000380: 30 29 C7 28 32 38 29 00 A4 07 CC 01 A1 23 31 35 |0).(28)......#15|
00000390: 2C 41 24 3A 8B 20 41 24 B2 22 22 A7 20 41 24 B2 |,A$:. A$."". A$.|
000003A0: C7 28 30 29 00 B0 07 D6 01 41 B2 C6 28 41 24 29 |.(0).....A..(A$)|
000003B0: 00 BD 07 E0 01 43 56 B2 33 20 AF 20 41 00 EA 07 |.....CV.3 . A...|
000003C0: EA 01 41 B2 28 31 35 39 AF 41 29 B0 28 39 36 AA |..A.(159.A).(96.|
000003D0: 33 32 AC 28 28 54 B1 31 37 29 AA 28 54 B1 32 34 |32.((T.17).(T.24|
000003E0: 29 AA 28 54 B1 33 30 29 29 29 00 0D 08 F4 01 98 |).(T.30)))......|
000003F0: 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 |15,"M-W".(0).(28|
00000400: 29 C7 28 31 29 C7 28 41 20 B0 20 34 29 00 13 08 |).(1).(A . 4)...|
00000410: FE 01 3A 00 28 08 08 02 8F 20 44 49 53 50 4C 41 |..:.(.... DISPLA|
00000420: 59 20 56 41 4C 55 45 53 00 2E 08 12 02 3A 00 5A |Y VALUES.....:.Z|
00000430: 08 1C 02 99 22 13 11 20 20 20 4D 4F 56 45 20 54 |....".. MOVE T|
00000440: 48 45 20 31 35 34 31 27 53 20 52 45 41 44 2F 57 |HE 1541'S READ/W|
00000450: 52 49 54 45 20 48 45 41 44 22 00 74 08 26 02 99 |RITE HEAD".t.&..|
00000460: 22 11 43 55 52 52 45 4E 54 20 50 48 41 53 45 20 |".CURRENT PHASE |
00000470: 3D 22 43 56 00 9A 08 30 02 99 22 42 49 54 53 20 |="CV...0.."BITS |
00000480: 31 20 26 20 30 20 4F 46 20 24 31 43 30 30 20 41 |1 & 0 OF $1C00 A|
00000490: 52 45 20 22 44 24 28 43 56 29 00 BA 08 3A 02 99 |RE "D$(CV)...:..|
000004A0: 22 11 4D 41 53 54 45 52 20 44 49 53 4B 20 49 44 |".MASTER DISK ID|
000004B0: 3A 20 22 49 31 24 3B 49 32 24 00 E0 08 44 02 99 |: "I1$;I2$...D..|
000004C0: 22 11 54 52 41 43 4B 20 23 20 46 52 4F 4D 20 53 |".TRACK # FROM S|
000004D0: 54 45 50 50 45 52 3A 22 54 22 9D 20 20 20 20 22 |TEPPER:"T". "|
000004E0: 00 F9 08 4E 02 99 22 11 46 44 43 20 45 52 52 4F |...N..".FDC ERRO|
000004F0: 52 3A 22 46 44 24 28 45 29 00 38 09 58 02 54 24 |R:"FD$(E).8.X.T$|
00000500: B2 C4 28 54 52 29 3A 53 24 B2 C4 28 53 45 29 3A |..(TR):S$..(SE):|
00000510: 8B 20 45 B3 B1 31 20 A7 20 54 24 B2 22 3F 3F 22 |. E..1 . T$."??"|
00000520: 3A 4E 31 24 B2 22 3F 22 3A 4E 32 24 B2 22 3F 22 |:N1$."?":N2$."?"|
00000530: 3A 53 24 B2 22 3F 3F 22 00 5A 09 62 02 99 22 11 |:S$."??".Z.b..".|
00000540: 54 52 41 43 4B 20 23 20 41 53 20 52 45 41 44 3A |TRACK # AS READ:|
00000550: 20 20 22 C9 28 54 24 2C 32 29 00 7B 09 6C 02 99 | ".(T$,2).{.l..|
00000560: 22 53 45 43 54 4F 52 20 23 20 41 53 20 52 45 41 |"SECTOR # AS REA|
00000570: 44 3A 20 22 C9 28 53 24 2C 32 29 00 9C 09 76 02 |D: ".(S$,2)...v.|
00000580: 99 22 49 44 20 4F 46 20 54 52 41 43 4B 20 52 45 |."ID OF TRACK RE|
00000590: 41 44 3A 20 22 4E 31 24 3B 4E 32 24 00 AF 09 80 |AD: "N1$;N2$....|
000005A0: 02 99 22 11 11 43 4F 4D 4D 41 4E 44 53 3A 22 00 |.."..COMMANDS:".|
000005B0: DB 09 8A 02 99 22 11 20 20 46 31 20 3D 20 4D 4F |.....". F1 = MO|
000005C0: 56 45 20 48 45 41 44 20 4F 55 54 20 28 4C 4F 57 |VE HEAD OUT (LOW|
000005D0: 45 52 20 54 52 41 43 4B 20 23 29 00 06 0A 94 02 |ER TRACK #).....|
000005E0: 99 22 20 20 46 33 20 3D 20 4D 4F 56 45 20 48 45 |." F3 = MOVE HE|
000005F0: 41 44 20 49 4E 20 28 48 49 47 48 45 52 20 54 52 |AD IN (HIGHER TR|
00000600: 41 43 4B 20 23 29 00 31 0A 9E 02 99 22 20 20 46 |ACK #).1...." F|
00000610: 35 20 3D 20 41 54 54 45 4D 50 54 20 54 4F 20 52 |5 = ATTEMPT TO R|
00000620: 45 41 44 20 54 52 41 43 4B 20 23 20 26 20 49 44 |EAD TRACK # & ID|
00000630: 22 00 51 0A A8 02 99 22 20 20 46 37 20 3D 20 54 |".Q...." F7 = T|
00000640: 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 4D |ERMINATE PROGRAM|
00000650: 22 00 78 0A B2 02 99 22 20 20 20 49 20 3D 20 49 |".x...." I = I|
00000660: 4E 49 54 49 41 4C 49 5A 45 20 28 54 4F 20 54 52 |NITIALIZE (TO TR|
00000670: 41 43 4B 20 31 38 29 22 00 85 0A BC 02 50 B2 C2 |ACK 18)".....P..|
00000680: 28 31 39 37 29 00 95 0A C6 02 8B 20 50 B2 33 20 |(197)...... P.3 |
00000690: 89 20 39 31 30 00 B2 0A D0 02 8B 20 50 B2 34 20 |. 910...... P.4 |
000006A0: AF 20 54 B1 31 20 A7 20 43 B2 AB 31 3A 89 20 38 |. T.1 . C..1:. 8|
000006B0: 30 30 00 CF 0A DA 02 8B 20 50 B2 35 20 AF 20 54 |00...... P.5 . T|
000006C0: B3 33 35 20 A7 20 43 B2 31 3A 89 20 38 30 30 00 |.35 . C.1:. 800.|
000006D0: DF 0A E4 02 8B 20 50 B2 36 20 89 20 39 39 30 00 |..... P.6 . 990.|
000006E0: 08 0B EE 02 8B 20 50 B2 33 33 20 A7 20 98 31 35 |..... P.33 . .15|
000006F0: 2C 22 49 22 3A 54 B2 31 38 3A 45 B2 30 3A 41 B2 |,"I":T.18:E.0:A.|
00000700: 32 31 34 3A 89 34 38 30 00 12 0B F8 02 89 20 34 |214:.480...... 4|
00000710: 35 30 00 18 0B 02 03 3A 00 42 0B 0C 03 8F 20 43 |50.....:.B.... C|
00000720: 48 41 4E 47 45 20 50 48 41 53 45 20 49 4E 20 52 |HANGE PHASE IN R|
00000730: 45 53 50 4F 4E 53 45 20 54 4F 20 43 4F 4D 4D 41 |ESPONSE TO COMMA|
00000740: 4E 44 00 48 0B 16 03 3A 00 5A 0B 20 03 43 56 B2 |ND.H...:.Z. .CV.|
00000750: 28 43 56 20 AA 20 43 29 AF 33 00 71 0B 2A 03 54 |(CV . C).3.q.*.T|
00000760: B2 54 AA 43 AC 2E 35 3A 8B 54 B3 31 20 A7 54 B2 |.T.C..5:.T.1 .T.|
00000770: 31 00 80 0B 34 03 8B 54 B1 33 36 A7 54 B2 33 36 |1...4..T.36.T.36|
00000780: 00 8E 0B 3E 03 42 B2 41 20 AF 20 32 35 32 00 99 |...>.B.A . 252..|
00000790: 0B 48 03 43 B2 42 AA 43 56 00 B8 0B 52 03 98 31 |.H.C.B.CV...R..1|
000007A0: 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 |5,"M-W".(0).(28)|
000007B0: C7 28 31 29 C7 28 43 29 00 C0 0B 5C 03 45 B2 30 |.(1).(C)...\.E.0|
000007C0: 00 CA 0B 66 03 89 20 34 35 30 00 D0 0B 70 03 3A |...f.. 450...p.:|
000007D0: 00 F4 0B 7A 03 8F 20 54 45 52 4D 49 4E 41 54 45 |...z.. TERMINATE|
000007E0: 20 50 52 4F 47 52 41 4D 20 28 44 52 49 56 45 20 | PROGRAM (DRIVE |
000007F0: 4F 46 46 29 00 FA 0B 84 03 3A 00 1B 0C 8E 03 98 |OFF).....:......|
00000800: 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 |15,"M-W".(0).(28|
00000810: 29 C7 28 31 29 C7 28 32 34 30 29 00 2E 0C 98 03 |).(1).(240).....|
00000820: 81 20 4B B2 31 A4 31 30 3A A1 41 24 3A 82 00 39 |. K.1.10:.A$:..9|
00000830: 0C A2 03 A0 20 31 35 3A 80 00 3F 0C AC 03 3A 00 |.... 15:..?...:.|
00000840: 60 0C B6 03 8F 20 41 54 54 45 4D 50 54 20 54 4F |`.... ATTEMPT TO|
00000850: 20 52 45 41 44 20 41 4E 59 20 48 45 41 44 45 52 | READ ANY HEADER|
00000860: 00 66 0C C0 03 3A 00 8D 0C CA 03 8F 20 52 45 41 |.f...:...... REA|
00000870: 44 20 26 20 53 45 4E 44 20 4D 41 43 48 49 4E 45 |D & SEND MACHINE|
00000880: 20 43 4F 44 45 20 52 4F 55 54 49 4E 45 00 93 0C | CODE ROUTINE...|
00000890: D4 03 3A 00 9F 0C DE 03 8C 3A 43 24 B2 22 22 00 |..:......:C$."".|
000008A0: BF 0C E8 03 81 20 4B B2 31 20 A4 20 31 31 3A 87 |..... K.1 . 11:.|
000008B0: 20 58 3A 43 24 B2 43 24 AA C7 28 58 29 3A 82 00 | X:C$.C$..(X):..|
000008C0: DC 0C F2 03 98 31 35 2C 22 4D 2D 57 22 C7 28 30 |.....15,"M-W".(0|
000008D0: 29 C7 28 33 29 C7 28 31 31 29 43 24 00 E2 0C FC |).(3).(11)C$....|
000008E0: 03 3A 00 05 0D 06 04 8F 20 50 55 54 20 4A 4D 50 |.:...... PUT JMP|
000008F0: 20 4A 4F 42 20 49 4E 20 54 48 45 20 4A 4F 42 20 | JOB IN THE JOB |
00000900: 51 55 45 55 45 00 0B 0D 10 04 3A 00 2B 0D 1A 04 |QUEUE.....:.+...|
00000910: 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 |.15,"M-W".(0).(0|
00000920: 29 C7 28 31 29 C7 28 32 30 38 29 00 31 0D 24 04 |).(1).(208).1.$.|
00000930: 3A 00 4E 0D 2E 04 8F 20 57 41 49 54 20 46 4F 52 |:.N.... WAIT FOR|
00000940: 20 4A 4F 42 20 54 4F 20 46 49 4E 49 53 48 00 54 | JOB TO FINISH.T|
00000950: 0D 38 04 3A 00 6A 0D 42 04 98 31 35 2C 22 4D 2D |.8.:.j.B..15,"M-|
00000960: 52 22 C7 28 30 29 C7 28 30 29 00 83 0D 4C 04 A1 |R".(0).(0)...L..|
00000970: 23 31 35 2C 45 24 3A 45 B2 C6 28 45 24 AA C7 28 |#15,E$:E..(E$..(|
00000980: 30 29 29 00 95 0D 56 04 8B 20 45 B1 31 32 37 20 |0))...V.. E.127 |
00000990: 89 20 37 39 30 00 9B 0D 60 04 3A 00 C0 0D 6A 04 |. 790...`.:...j.|
000009A0: 8F 20 22 45 22 20 49 53 20 46 44 43 20 45 52 52 |. "E" IS FDC ERR|
000009B0: 4F 52 20 43 4F 44 45 20 52 45 54 55 52 4E 45 44 |OR CODE RETURNED|
000009C0: 00 D1 0D 74 04 8B 20 45 B3 B1 31 20 89 20 34 35 |...t.. E..1 . 45|
000009D0: 30 00 D7 0D 7E 04 3A 00 03 0E 88 04 8F 20 43 4C |0...~.:...... CL|
000009E0: 45 41 4E 20 52 45 41 44 20 53 4F 20 44 49 47 20 |EAN READ SO DIG |
000009F0: 4F 55 54 20 49 44 2C 20 54 52 41 4B 20 26 20 53 |OUT ID, TRAK & S|
00000A00: 45 43 54 00 09 0E 92 04 3A 00 24 0E 9C 04 98 31 |ECT.....:.$....1|
00000A10: 35 2C 22 4D 2D 52 22 C7 28 32 32 29 C7 28 30 29 |5,"M-R".(22).(0)|
00000A20: C7 28 34 29 00 31 0E A6 04 A1 23 31 35 2C 4E 31 |.(4).1....#15,N1|
00000A30: 24 00 3E 0E B0 04 A1 23 31 35 2C 4E 32 24 00 58 |$.>....#15,N2$.X|
00000A40: 0E BA 04 A1 23 31 35 2C 58 24 3A 54 52 B2 C6 28 |....#15,X$:TR..(|
00000A50: 58 24 AA C7 28 30 29 29 00 72 0E C4 04 A1 23 31 |X$..(0)).r....#1|
00000A60: 35 2C 58 24 3A 53 45 B2 C6 28 58 24 AA C7 28 30 |5,X$:SE..(X$..(0|
00000A70: 29 29 00 7C 0E CE 04 89 20 34 35 30 00 00 00 |)).|.... 450... |
..-.D..".. MOVE THE 1541'S READ/WRITE
HEAD".G.N.."..INSERT TEST DISK".J.X.."..
PRESS .RETURN. WHEN READY".P...:......
MACHINE CODE ROUTINE TO READ A HEADER.A.
... RER.DES AT $0300 (BUFFER #0).G. .:.
..... 169,48: :. LDA #$30...... 133,6
9: :. STA $45...... 169,00: :. LDA
#$00.9.H.. 133,63: :. STA $3F.W.R..
76,177,243 :. JMP $F3B1.]...:.....D$(0).
"00":D$(1)."01":D$(2)."10":D$(3)."11"...
... FD$(16).B...FD$(0)."
".....FD$(1)."01 ALL OK
".....FD$(2)."02 HEADER BLOCK NO
T FOUND".7...FD$(3)."03 NO SYNC CHARACTE
R ".^.".FD$(9)."09 HEADER BLOCK CHKS
UM ER".~.,.T.18:N1$."?":N2$."?":TR.255..
.6.. A$:. A$..G(13) . 310...@.:...J.. 15
,8,15,"I"...T.:.T.^.. DIG OUT MASTER DIS
K ID.Z.H.:...R..15,"M-R"G(18)G(0)G(2)...
|..#15,I1$:.I1$."".I1$.G(0).1....#15,I2$
:.I2$."".I2$.G(0).7...:.@....".".F...:.J
.... READ THE DISK CONTROLLER PORT.P...:
...B..15,"M-R"G(0)G(28)...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.....:.Z...."..
MOVE THE 1541'S READ/WRITE HEAD".T.&..
".CURRENT PHASE ="CV...0.."BITS 1 & 0 OF
$1C00 ARE "D$(CV)...:..".MASTER DISK ID
: "I1$;I2$...D..".TRACK # FROM STEPPER:"
T". "...N..".FDC ERROR:"FD$(E).8.X.T$
.D(TR):S$.D(SE):. E..1 . T$."??":N1$."?"
:N2$."?":S$."??".Z.B..".TRACK # AS READ:
"I(T$,2).{.L.."SECTOR # AS READ: "I(S$
,2)...V.."ID OF TRACK READ: "N1$;N2$....
.."..COMMANDS:"......". F1 = MOVE HEAD
OUT (LOWER TRACK #)......" F3 = MOVE HE
AD IN (HIGHER TRACK #).1...." F5 = ATTE
MPT TO READ TRACK # & ID".Q...." F7 = T
ERMINATE PROGRAM".X...." I = INITIALIZ
E (TO TRACK 18)".....P.B(197)...F.. P.3
. 910...P.. P.4 . T.1 . C..1:. 800.O.Z..
P.5 . T.35 . C.1:. 800...... P.6 . 990.
..... P.33 . .15,"I":T.18:E.0:A.214:.480
...... 450.....:.B.... CHANGE PHASE IN R
ESPONSE TO COMMAND.H...:.Z. .CV.(CV . C)
.3.Q.*.T.T.C..5:.T.1 .T.1...4..T.36.T.36
...>.B.A . 252...H.C.B.CV...R..15,"M-W"G
(0)G(28)G(1)G(C)...\.E.0.J.F.. 450.P.P.:
...Z.. TERMINATE PROGRAM (DRIVE OFF)....
.:......15,"M-W"G(0)G(28)G(1)G(240).....
. K.1.10:.A$:..9... 15:..?...:.`.... AT
TEMPT TO READ ANY HEADER.F...:...J.. REA
D & SEND MACHINE CODE ROUTINE...T.:.....
.:C$.""...... K.1 . 11:. X:C$.C$.G(X):..
.....15,"M-W"G(0)G(3)G(11)C$.....:......
PUT JMP JOB IN THE JOB QUEUE.....:.+...
.15,"M-W"G(0)G(0)G(1)G(208).1.$.:.N....
WAIT FOR JOB TO FINISH.T.8.:.J.B..15,"M-
R"G(0)G(0)...L..#15,E$:E.F(E$.G(0))...V.
. E.127 . 790...`.:...J.. "E" IS FDC ERR
OR CODE RETURNED.Q.T.. E..1 . 450.W.~.:.
..... CLEAN READ SO DIG OUT ID, TRAK & S
ECT.....:.$....15,"M-R"G(22)G(0)G(4).1..
..#15,N1$.>....#15,N2$.X....#15,X$:TR.F(
X$.G(0)).R.D..#15,X$:SE.F(X$.G(0)).|.N..
450...
> CLICK IMAGE PREVIEW FOR FULL MODAL