> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 00 00 8F 20 31 35 34 31 20 55 53 45 |..&.... 1541 USE|
00000010: 52 27 53 20 47 55 49 44 45 20 53 45 43 54 49 4F |R'S GUIDE SECTIO|
00000020: 4E 20 31 32 2E 35 00 35 08 01 00 8F 20 50 41 47 |N 12.5.5.... PAG|
00000030: 45 20 32 38 32 00 3B 08 02 00 3A 00 68 08 03 00 |E 282.;...:.h...|
00000040: 8F 20 43 48 45 43 4B 20 41 4C 49 47 4E 4D 45 4E |. CHECK ALIGNMEN|
00000050: 54 20 41 4E 44 2F 4F 52 20 52 45 2D 41 4C 49 47 |T AND/OR RE-ALIG|
00000060: 4E 20 41 20 31 35 34 31 00 6E 08 04 00 3A 00 88 |N A 1541.n...:..|
00000070: 08 64 00 99 22 93 11 20 20 31 35 34 31 20 41 4C |.d..".. 1541 AL|
00000080: 49 47 4E 4D 45 4E 54 22 00 A6 08 6E 00 99 22 11 |IGNMENT"...n..".|
00000090: 11 49 4E 53 45 52 54 20 53 54 41 4E 44 41 52 44 |.INSERT STANDARD|
000000A0: 20 44 49 53 4B 22 00 C9 08 78 00 99 22 11 11 50 | DISK"...x.."..P|
000000B0: 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 57 48 |RESS .RETURN. WH|
000000C0: 45 4E 20 52 45 41 44 59 22 00 CF 08 82 00 3A 00 |EN READY".....:.|
000000D0: FB 08 8C 00 8F 20 4D 41 43 48 49 4E 45 20 43 4F |..... MACHINE CO|
000000E0: 44 45 20 52 4F 55 54 49 4E 45 20 54 4F 20 52 45 |DE ROUTINE TO RE|
000000F0: 41 44 20 41 20 48 45 41 44 45 52 00 1E 09 96 00 |AD A HEADER.....|
00000100: 8F 20 52 45 53 49 44 45 53 20 41 54 20 24 30 33 |. RESIDES AT $03|
00000110: 30 30 20 28 42 55 46 46 45 52 20 23 30 29 00 24 |00 (BUFFER #0).$|
00000120: 09 A0 00 3A 00 41 09 AA 00 83 31 36 39 2C 34 38 |...:.A....169,48|
00000130: 3A 20 20 20 20 20 3A 8F 20 4C 44 41 20 23 24 33 |: :. LDA #$3|
00000140: 30 00 5D 09 B4 00 83 31 33 33 2C 36 39 3A 20 20 |0.]....133,69: |
00000150: 20 20 20 3A 8F 20 53 54 41 20 24 34 35 00 7A 09 | :. STA $45.z.|
00000160: BE 00 83 31 36 39 2C 30 30 3A 20 20 20 20 20 3A |...169,00: :|
00000170: 8F 20 4C 44 41 20 23 24 30 30 00 96 09 C8 00 83 |. LDA #$00......|
00000180: 31 33 33 2C 36 33 3A 20 20 20 20 20 3A 8F 20 53 |133,63: :. S|
00000190: 54 41 20 24 33 46 00 B4 09 D2 00 83 37 36 2C 31 |TA $3F......76,1|
000001A0: 37 37 2C 32 34 33 20 20 3A 8F 20 4A 4D 50 20 24 |77,243 :. JMP $|
000001B0: 46 33 42 31 00 BA 09 DC 00 3A 00 EA 09 E6 00 44 |F3B1.....:.....D|
000001C0: 24 28 30 29 B2 22 30 30 22 3A 44 24 28 31 29 B2 |$(0)."00":D$(1).|
000001D0: 22 30 31 22 3A 44 24 28 32 29 B2 22 31 30 22 3A |"01":D$(2)."10":|
000001E0: 44 24 28 33 29 B2 22 31 31 22 00 FA 09 F0 00 53 |D$(3)."11".....S|
000001F0: 49 44 20 B2 20 35 34 32 37 32 00 08 0A FA 00 86 |ID . 54272......|
00000200: 20 46 44 24 28 31 36 29 00 2F 0A 04 01 46 44 24 | FD$(16)./...FD$|
00000210: 28 30 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |(0)." |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000230: 56 0A 0E 01 46 44 24 28 31 29 B2 22 43 4C 45 41 |V...FD$(1)."CLEA|
00000240: 4E 20 52 45 41 44 20 4F 46 20 54 52 41 43 4B 20 |N READ OF TRACK |
00000250: 20 20 20 20 20 22 00 7D 0A 18 01 46 44 24 28 32 | ".}...FD$(2|
00000260: 29 B2 22 43 4C 4F 53 45 20 54 4F 20 48 41 4C 46 |)."CLOSE TO HALF|
00000270: 57 41 59 20 50 4F 49 4E 54 20 20 20 22 00 A4 0A |WAY POINT "...|
00000280: 22 01 46 44 24 28 33 29 B2 22 45 58 41 4B 54 4C |".FD$(3)."EXAKTL|
00000290: 59 20 48 41 4C 46 57 41 59 20 42 45 54 57 45 45 |Y HALFWAY BETWEE|
000002A0: 4E 20 20 22 00 CB 0A 2C 01 46 44 24 28 39 29 B2 |N "...,.FD$(9).|
000002B0: 22 43 4C 4F 53 45 20 54 4F 20 48 41 4C 46 57 41 |"CLOSE TO HALFWA|
000002C0: 59 20 50 4F 49 4E 54 20 20 20 22 00 EB 0A 36 01 |Y POINT "...6.|
000002D0: 54 B2 31 38 3A 4E 31 24 B2 22 3F 22 3A 4E 32 24 |T.18:N1$."?":N2$|
000002E0: B2 22 3F 22 3A 54 52 B2 32 35 35 00 06 0B 40 01 |."?":TR.255...@.|
000002F0: A1 20 41 24 3A 8B 20 41 24 B3 B1 C7 28 31 33 29 |. A$:. A$...(13)|
00000300: 20 89 20 33 32 30 00 0C 0B 4A 01 3A 00 1D 0B 54 | . 320...J.:...T|
00000310: 01 9F 31 35 2C 38 2C 31 35 2C 22 49 22 00 26 0B |..15,8,15,"I".&.|
00000320: 5E 01 99 22 93 22 00 2C 0B 68 01 3A 00 50 0B 72 |^..".".,.h.:.P.r|
00000330: 01 8F 20 52 45 41 44 20 54 48 45 20 44 49 53 4B |.. READ THE DISK|
00000340: 20 43 4F 4E 54 52 4F 4C 4C 45 52 20 50 4F 52 54 | CONTROLLER PORT|
00000350: 00 56 0B 7C 01 3A 00 6D 0B 86 01 98 31 35 2C 22 |.V.|.:.m....15,"|
00000360: 4D 2D 52 22 C7 28 30 29 C7 28 32 38 29 00 8B 0B |M-R".(0).(28)...|
00000370: 90 01 A1 23 31 35 2C 41 24 3A 8B 20 41 24 B2 22 |...#15,A$:. A$."|
00000380: 22 20 A7 20 41 24 B2 C7 28 30 29 00 97 0B 9A 01 |" . A$..(0).....|
00000390: 41 B2 C6 28 41 24 29 00 A4 0B A4 01 43 56 B2 33 |A..(A$).....CV.3|
000003A0: 20 AF 20 41 00 D1 0B AE 01 41 B2 28 31 35 39 AF | . A.....A.(159.|
000003B0: 41 29 B0 28 39 36 AA 33 32 AC 28 28 54 B1 31 37 |A).(96.32.((T.17|
000003C0: 29 AA 28 54 B1 32 34 29 AA 28 54 B1 33 30 29 29 |).(T.24).(T.30))|
000003D0: 29 00 F4 0B B8 01 98 31 35 2C 22 4D 2D 57 22 C7 |)......15,"M-W".|
000003E0: 28 30 29 C7 28 32 38 29 C7 28 31 29 C7 28 41 20 |(0).(28).(1).(A |
000003F0: B0 20 34 29 00 FA 0B C2 01 3A 00 0F 0C CC 01 8F |. 4).....:......|
00000400: 20 44 49 53 50 4C 41 59 20 56 41 4C 55 45 53 00 | DISPLAY VALUES.|
00000410: 15 0C D6 01 3A 00 35 0C E0 01 99 22 13 11 20 20 |....:.5....".. |
00000420: 41 4C 49 47 4E 20 54 48 45 20 31 35 34 31 20 44 |ALIGN THE 1541 D|
00000430: 52 49 56 45 22 00 5B 0C EA 01 99 22 11 54 52 41 |RIVE".[....".TRA|
00000440: 43 4B 20 23 20 46 52 4F 4D 20 53 54 45 50 50 45 |CK # FROM STEPPE|
00000450: 52 3A 22 54 22 9D 20 20 20 20 22 00 78 0C F4 01 |R:"T". ".x...|
00000460: 99 22 11 48 45 41 44 20 50 4F 53 49 54 49 4F 4E |.".HEAD POSITION|
00000470: 3A 22 46 44 24 28 45 29 00 B7 0C FE 01 54 24 B2 |:"FD$(E).....T$.|
00000480: C4 28 54 52 29 3A 53 24 B2 C4 28 53 45 29 3A 8B |.(TR):S$..(SE):.|
00000490: 20 45 B3 B1 31 20 A7 20 54 24 B2 22 3F 3F 22 3A | E..1 . T$."??":|
000004A0: 4E 31 24 B2 22 3F 22 3A 4E 32 24 B2 22 3F 22 3A |N1$."?":N2$."?":|
000004B0: 53 24 B2 22 3F 3F 22 00 D9 0C 08 02 99 22 11 54 |S$."??"......".T|
000004C0: 52 41 43 4B 20 23 20 41 53 20 52 45 41 44 3A 20 |RACK # AS READ: |
000004D0: 20 22 C9 28 54 24 2C 32 29 00 FA 0C 12 02 99 22 | ".(T$,2)......"|
000004E0: 53 45 43 54 4F 52 20 23 20 41 53 20 52 45 41 44 |SECTOR # AS READ|
000004F0: 3A 20 22 C9 28 53 24 2C 32 29 00 1B 0D 1C 02 99 |: ".(S$,2)......|
00000500: 22 49 44 20 4F 46 20 54 52 41 43 4B 20 52 45 41 |"ID OF TRACK REA|
00000510: 44 3A 20 22 4E 31 24 3B 4E 32 24 00 2E 0D 26 02 |D: "N1$;N2$...&.|
00000520: 99 22 11 11 43 4F 4D 4D 41 4E 44 53 3A 22 00 59 |."..COMMANDS:".Y|
00000530: 0D 30 02 99 22 11 20 46 31 20 3D 20 4D 4F 56 45 |.0..". F1 = MOVE|
00000540: 20 48 45 41 44 20 4F 55 54 20 28 4C 4F 57 45 52 | HEAD OUT (LOWER|
00000550: 20 54 52 41 43 4B 20 23 29 00 83 0D 3A 02 99 22 | TRACK #)...:.."|
00000560: 20 46 33 20 3D 20 4D 4F 56 45 20 48 45 41 44 20 | F3 = MOVE HEAD |
00000570: 49 4E 20 28 48 49 47 48 45 52 20 54 52 41 43 4B |IN (HIGHER TRACK|
00000580: 20 23 29 00 A2 0D 44 02 99 22 20 46 37 20 3D 20 | #)...D.." F7 = |
00000590: 54 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 |TERMINATE PROGRA|
000005A0: 4D 22 00 C8 0D 4E 02 99 22 20 20 49 20 3D 20 49 |M"...N.." I = I|
000005B0: 4E 49 54 49 41 4C 49 5A 45 20 28 54 4F 20 54 52 |NITIALIZE (TO TR|
000005C0: 41 43 4B 20 31 38 29 22 00 DE 0D 58 02 A1 20 41 |ACK 18)"...X.. A|
000005D0: 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 00 F0 |$:A..(A$..(0))..|
000005E0: 0D 62 02 8B 20 41 B2 31 33 36 20 89 20 38 30 30 |.b.. A.136 . 800|
000005F0: 00 0F 0E 6C 02 8B 20 41 B2 31 33 33 20 AF 20 54 |...l.. A.133 . T|
00000600: B1 31 20 A7 20 43 B2 AB 31 3A 89 20 36 39 30 00 |.1 . C..1:. 690.|
00000610: 2E 0E 76 02 8B 20 41 B2 31 33 34 20 AF 20 54 B3 |..v.. A.134 . T.|
00000620: 33 35 20 A7 20 43 B2 31 3A 89 20 36 39 30 00 57 |35 . C.1:. 690.W|
00000630: 0E 80 02 8B 20 41 B2 37 33 20 A7 20 98 31 35 2C |.... A.73 . .15,|
00000640: 22 49 22 3A 54 B2 31 38 3A 45 B2 30 3A 41 B2 32 |"I":T.18:E.0:A.2|
00000650: 31 34 3A 89 34 32 30 00 61 0E 8A 02 89 20 38 39 |14:.420.a.... 89|
00000660: 30 00 67 0E 94 02 3A 00 90 0E 9E 02 8F 20 4D 4F |0.g...:...... MO|
00000670: 56 45 20 48 45 41 44 20 4F 4E 45 20 48 41 4C 46 |VE HEAD ONE HALF|
00000680: 2D 54 52 41 43 4B 20 49 4E 20 4F 52 20 4F 55 54 |-TRACK IN OR OUT|
00000690: 00 96 0E A8 02 3A 00 A8 0E B2 02 43 56 B2 28 43 |.....:.....CV.(C|
000006A0: 56 20 AA 20 43 29 AF 33 00 BE 0E BC 02 54 B2 54 |V . C).3.....T.T|
000006B0: AA 43 AC 2E 35 3A 8B 54 B3 31 A7 54 B2 31 00 CD |.C..5:.T.1.T.1..|
000006C0: 0E C6 02 8B 54 B1 33 36 A7 54 B2 33 36 00 DB 0E |....T.36.T.36...|
000006D0: D0 02 42 B2 41 20 AF 20 32 35 32 00 E6 0E DA 02 |..B.A . 252.....|
000006E0: 43 B2 42 AA 43 56 00 05 0F E4 02 98 31 35 2C 22 |C.B.CV......15,"|
000006F0: 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 31 |M-W".(0).(28).(1|
00000700: 29 C7 28 43 29 00 0D 0F EE 02 45 B2 30 00 17 0F |).(C).....E.0...|
00000710: F8 02 89 20 33 39 30 00 1D 0F 02 03 3A 00 41 0F |... 390.....:.A.|
00000720: 0C 03 8F 20 54 45 52 4D 49 4E 41 54 45 20 50 52 |... TERMINATE PR|
00000730: 4F 47 52 41 4D 20 28 44 52 49 56 45 20 4F 46 46 |OGRAM (DRIVE OFF|
00000740: 29 00 47 0F 16 03 3A 00 68 0F 20 03 98 31 35 2C |).G...:.h. ..15,|
00000750: 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 |"M-W".(0).(28).(|
00000760: 31 29 C7 28 32 34 30 29 00 85 0F 2A 03 81 20 49 |1).(240)...*.. I|
00000770: B2 53 49 44 20 A4 20 53 49 44 AA 32 33 3A 97 20 |.SID . SID.23:. |
00000780: 49 2C 30 3A 82 00 98 0F 34 03 81 20 4B B2 31 A4 |I,0:....4.. K.1.|
00000790: 31 30 3A A1 41 24 3A 82 00 A2 0F 3E 03 A0 31 35 |10:.A$:....>..15|
000007A0: 3A 80 00 A8 0F 48 03 3A 00 C9 0F 52 03 8F 20 41 |:....H.:...R.. A|
000007B0: 54 54 45 4D 50 54 20 54 4F 20 52 45 41 44 20 41 |TTEMPT TO READ A|
000007C0: 4E 59 20 48 45 41 44 45 52 00 CF 0F 5C 03 3A 00 |NY HEADER...\.:.|
000007D0: F6 0F 66 03 8F 20 52 45 41 44 20 26 20 53 45 4E |..f.. READ & SEN|
000007E0: 44 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 52 |D MACHINE CODE R|
000007F0: 4F 55 54 49 4E 45 00 FC 0F 70 03 3A 00 08 10 7A |OUTINE...p.:...z|
00000800: 03 8C 3A 43 24 B2 22 22 00 24 10 84 03 81 4B B2 |..:C$."".$....K.|
00000810: 31 A4 31 31 3A 87 58 3A 43 24 B2 43 24 AA C7 28 |1.11:.X:C$.C$..(|
00000820: 58 29 3A 82 00 41 10 8E 03 98 31 35 2C 22 4D 2D |X):..A....15,"M-|
00000830: 57 22 C7 28 30 29 C7 28 33 29 C7 28 31 31 29 43 |W".(0).(3).(11)C|
00000840: 24 00 47 10 98 03 3A 00 6A 10 A2 03 8F 20 50 55 |$.G...:.j.... PU|
00000850: 54 20 4A 4D 50 20 4A 4F 42 20 49 4E 20 54 48 45 |T JMP JOB IN THE|
00000860: 20 4A 4F 42 20 51 55 45 55 45 00 70 10 AC 03 3A | JOB QUEUE.p...:|
00000870: 00 90 10 B6 03 98 31 35 2C 22 4D 2D 57 22 C7 28 |......15,"M-W".(|
00000880: 30 29 C7 28 30 29 C7 28 31 29 C7 28 32 30 38 29 |0).(0).(1).(208)|
00000890: 00 96 10 C0 03 3A 00 B3 10 CA 03 8F 20 57 41 49 |.....:...... WAI|
000008A0: 54 20 46 4F 52 20 4A 4F 42 20 54 4F 20 46 49 4E |T FOR JOB TO FIN|
000008B0: 49 53 48 00 B9 10 D4 03 3A 00 CF 10 DE 03 98 31 |ISH.....:......1|
000008C0: 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 30 29 00 |5,"M-R".(0).(0).|
000008D0: E8 10 E8 03 A1 23 31 35 2C 45 24 3A 45 B2 C6 28 |.....#15,E$:E..(|
000008E0: 45 24 AA C7 28 30 29 29 00 FA 10 F2 03 8B 20 45 |E$..(0))...... E|
000008F0: B1 31 32 37 20 89 20 36 39 30 00 00 11 FC 03 3A |.127 . 690.....:|
00000900: 00 25 11 06 04 8F 20 22 45 22 20 49 53 20 46 44 |.%.... "E" IS FD|
00000910: 43 20 45 52 52 4F 52 20 43 4F 44 45 20 52 45 54 |C ERROR CODE RET|
00000920: 55 52 4E 45 44 00 3F 11 10 04 8B 20 45 B2 33 20 |URNED.?.... E.3 |
00000930: A7 20 48 5A B2 31 30 30 30 3A 8D 31 31 39 30 00 |. HZ.1000:.1190.|
00000940: 60 11 1A 04 8B 20 45 B2 32 20 B0 20 45 B2 39 20 |`.... E.2 . E.9 |
00000950: A7 20 48 5A B2 31 35 30 30 3A 8D 20 31 31 39 30 |. HZ.1500:. 1190|
00000960: 00 71 11 24 04 8B 20 45 B3 B1 31 20 89 20 33 39 |.q.$.. E..1 . 39|
00000970: 30 00 77 11 2E 04 3A 00 A4 11 38 04 8F 20 43 4C |0.w...:...8.. CL|
00000980: 45 41 4E 20 52 45 41 44 20 53 4F 20 44 49 47 20 |EAN READ SO DIG |
00000990: 4F 55 54 20 49 44 2C 20 54 52 41 43 4B 20 26 20 |OUT ID, TRACK & |
000009A0: 53 45 43 54 00 AA 11 42 04 3A 00 C5 11 4C 04 98 |SECT...B.:...L..|
000009B0: 31 35 2C 22 4D 2D 52 22 C7 28 32 32 29 C7 28 30 |15,"M-R".(22).(0|
000009C0: 29 C7 28 34 29 00 D2 11 56 04 A1 23 31 35 2C 4E |).(4)...V..#15,N|
000009D0: 31 24 00 DF 11 60 04 A1 23 31 35 2C 4E 32 24 00 |1$...`..#15,N2$.|
000009E0: F9 11 6A 04 A1 23 31 35 2C 58 24 3A 54 52 B2 C6 |..j..#15,X$:TR..|
000009F0: 28 58 24 AA C7 28 30 29 29 00 13 12 74 04 A1 23 |(X$..(0))...t..#|
00000A00: 31 35 2C 58 24 3A 53 45 B2 C6 28 58 24 AA C7 28 |15,X$:SE..(X$..(|
00000A10: 30 29 29 00 1D 12 7E 04 89 20 33 39 30 00 23 12 |0))...~.. 390.#.|
00000A20: 88 04 3A 00 3A 12 92 04 8F 20 42 4C 45 45 50 20 |..:.:.... BLEEP |
00000A30: 49 46 20 4E 4F 20 53 59 4E 43 00 40 12 9C 04 3A |IF NO SYNC.@...:|
00000A40: 00 5D 12 A6 04 81 20 49 B2 53 49 44 20 A4 20 53 |.].... I.SID . S|
00000A50: 49 44 AA 32 33 3A 97 20 49 2C 30 3A 82 00 6B 12 |ID.23:. I,0:..k.|
00000A60: B0 04 97 20 53 49 44 AA 35 2C 39 00 79 12 BA 04 |... SID.5,9.y...|
00000A70: 97 20 53 49 44 AA 36 2C 39 00 89 12 C4 04 97 20 |. SID.6,9...... |
00000A80: 53 49 44 AA 32 34 2C 31 35 00 9A 12 CE 04 97 20 |SID.24,15...... |
00000A90: 53 49 44 AA 31 2C 45 AA 32 30 00 A8 12 D8 04 97 |SID.1,E.20......|
00000AA0: 20 53 49 44 2C 31 37 37 00 C2 12 E2 04 97 20 53 | SID,177...... S|
00000AB0: 49 44 AA 34 2C 31 37 3A 81 20 49 B2 31 A4 35 30 |ID.4,17:. I.1.50|
00000AC0: 3A 82 00 D6 12 EC 04 8F 20 50 4F 4B 45 20 53 49 |:....... POKE SI|
00000AD0: 44 2B 32 34 2C 30 00 DC 12 F6 04 8E 00 F9 12 00 |D+24,0..........|
00000AE0: 05 97 20 41 31 2C 38 35 3A 97 20 53 31 2C 31 35 |.. A1,85:. S1,15|
00000AF0: 30 3A 97 20 57 31 2C 36 35 00 0B 13 0A 05 81 4B |0:. W1,65......K|
00000B00: B2 31 20 A4 20 31 30 30 30 3A 82 00 11 13 14 05 |.1 . 1000:......|
00000B10: 8E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000BE0: 00 00 00 00 00 00 00 00 |........ |
..&.... 1541 USER'S GUIDE SECTION 12.5.5
.... PAGE 282.;...:.H.... CHECK ALIGNMEN
T AND/OR RE-ALIGN A 1541.N...:...D.."..
1541 ALIGNMENT"...N.."..INSERT STANDARD
DISK".I.X.."..PRESS .RETURN. WHEN READY
".O...:...... MACHINE CODE ROUTINE TO RE
AD A HEADER...... RESIDES AT $0300 (BUFF
ER #0).$. .:.A....169,48: :. LDA #$3
0.]....133,69: :. STA $45.Z....169,0
0: :. LDA #$00...H..133,63: :. S
TA $3F...R..76,177,243 :. JMP $F3B1....
.:.....D$(0)."00":D$(1)."01":D$(2)."10":
D$(3)."11".....SID . 54272...... FD$(16)
./...FD$(0)." ".
V...FD$(1)."CLEAN READ OF TRACK ".}
...FD$(2)."CLOSE TO HALFWAY POINT "...
".FD$(3)."EXAKTLY HALFWAY BETWEEN ".K.,
.FD$(9)."CLOSE TO HALFWAY POINT "...6.
T.18:N1$."?":N2$."?":TR.255...@.. A$:. A
$..G(13) . 320...J.:...T..15,8,15,"I".&.
^..".".,.H.:.P.R.. READ THE DISK CONTROL
LER PORT.V.|.:.M....15,"M-R"G(0)G(28)...
...#15,A$:. A$."" . A$.G(0).....A.F(A$).
....CV.3 . A.Q...A.(159.A).(96.32.((T.17
).(T.24).(T.30)))......15,"M-W"G(0)G(28)
G(1)G(A . 4)...B.:...L.. DISPLAY VALUES.
..V.:.5....".. ALIGN THE 1541 DRIVE".[.
...".TRACK # FROM STEPPER:"T". ".X...
.".HEAD POSITION:"FD$(E).....T$.D(TR):S$
.D(SE):. E..1 . T$."??":N1$."?":N2$."?":
S$."??".Y....".TRACK # AS READ: "I(T$,2
)......"SECTOR # AS READ: "I(S$,2)......
"ID OF TRACK READ: "N1$;N2$...&.."..COMM
ANDS:".Y.0..". F1 = MOVE HEAD OUT (LOWER
TRACK #)...:.." F3 = MOVE HEAD IN (HIGH
ER TRACK #)...D.." F7 = TERMINATE PROGRA
M".H.N.." I = INITIALIZE (TO TRACK 18)"
...X.. A$:A.F(A$.G(0))...B.. A.136 . 800
...L.. A.133 . T.1 . C..1:. 690...V.. A.
134 . T.35 . C.1:. 690.W.... A.73 . .15,
"I":T.18:E.0:A.214:.420.A.... 890.G...:.
..... MOVE HEAD ONE HALF-TRACK IN OR OUT
.....:.....CV.(CV . C).3.....T.T.C..5:.T
.1.T.1.M.F..T.36.T.36...P.B.A . 252...Z.
C.B.CV......15,"M-W"G(0)G(28)G(1)G(C)...
..E.0...... 390.....:.A.... TERMINATE PR
OGRAM (DRIVE OFF).G...:.H. ..15,"M-W"G(0
)G(28)G(1)G(240)...*.. I.SID . SID.23:.
I,0:....4.. K.1.10:.A$:....>. 15:....H.:
.I.R.. ATTEMPT TO READ ANY HEADER.O.\.:.
..F.. READ & SEND MACHINE CODE ROUTINE..
.P.:...Z..:C$."".$....K.1.11:.X:C$.C$.G(
X):..A....15,"M-W"G(0)G(3)G(11)C$.G...:.
J.... PUT JMP JOB IN THE JOB QUEUE.P...:
......15,"M-W"G(0)G(0)G(1)G(208).....:..
.J.. WAIT FOR JOB TO FINISH...T.:.O....1
5,"M-R"G(0)G(0)......#15,E$:E.F(E$.G(0))
...... E.127 . 690.....:.%.... "E" IS FD
C ERROR CODE RETURNED.?.... E.3 . HZ.100
0:.1190.`.... E.2 . E.9 . HZ.1500:. 1190
.Q.$.. E..1 . 390.W...:...8.. CLEAN READ
SO DIG OUT ID, TRACK & SECT...B.:.E.L..
15,"M-R"G(22)G(0)G(4).R.V..#15,N1$...`..
#15,N2$...J..#15,X$:TR.F(X$.G(0))...T..#
15,X$:SE.F(X$.G(0))...~.. 390.#...:.:...
. BLEEP IF NO SYNC.@...:.].... I.SID . S
ID.23:. I,0:..K.... SID.5,9.Y.... SID.6,
9...D.. SID.24,15...N.. SID.1,E.20...X..
SID,177.B.... SID.4,17:. I.1.50:..V....
POKE SID+24,0............ A1,85:. S1,15
0:. W1,65......K.1 . 1000:..............
........................................
........................................
........................................
........................................
........................................
........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL