1541 ALIGNMENT
FILE INFORMATION
FILENAME(S): 1541 ALIGNMENT
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:25:25
APPEARS ON: 1 disk(s)
FILE HASH
f2516afad809b372bd2857d9f69059e90178ebb8ca3ac4c9db7af85b6276a437
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64UTIL | 1541 ALIGNMENT | PRG | DuncanTwain | 14 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 20 43 48 45 43 4B 2F 52 |....... CHECK/R|
00000010: 45 2D 41 4C 49 47 4E 20 41 20 31 35 34 31 00 24 |E-ALIGN A 1541.$|
00000020: 08 14 00 3A 00 4C 08 1E 00 8F 20 53 45 45 20 50 |...:.L.... SEE P|
00000030: 52 4F 54 4F 54 59 50 45 20 41 4E 44 20 49 4E 53 |ROTOTYPE AND INS|
00000040: 54 52 55 43 54 49 4F 4E 53 20 49 4E 00 82 08 28 |TRUCTIONS IN...(|
00000050: 00 8F 20 20 47 2E 20 4E 45 55 46 45 4C 44 27 53 |.. G. NEUFELD'S|
00000060: 20 22 31 35 34 31 20 55 53 45 52 27 53 20 47 55 | "1541 USER'S GU|
00000070: 49 44 45 22 20 20 53 45 43 54 49 4F 4E 20 31 32 |IDE" SECTION 12|
00000080: 2E 35 00 9F 08 32 00 8F 20 52 45 57 52 49 54 45 |.5...2.. REWRITE|
00000090: 20 42 59 20 44 41 56 45 20 57 41 4C 54 4F 4E 00 | BY DAVE WALTON.|
000000A0: BB 08 3C 00 99 22 93 11 20 20 20 20 31 35 34 31 |..<..".. 1541|
000000B0: 20 41 4C 49 47 4E 4D 45 4E 54 22 00 DA 08 46 00 | ALIGNMENT"...F.|
000000C0: 99 22 11 11 20 49 4E 53 45 52 54 20 53 54 41 4E |.".. INSERT STAN|
000000D0: 44 41 52 44 20 44 49 53 4B 22 00 E7 08 50 00 86 |DARD DISK"...P..|
000000E0: 20 45 24 28 31 36 29 00 F9 08 5A 00 44 B2 38 3A | E$(16)...Z.D.8:|
000000F0: 8F 20 44 52 49 56 45 20 23 00 21 09 64 00 53 49 |. DRIVE #.!.d.SI|
00000100: 44 B2 35 34 32 37 32 3A 5A 24 B2 C7 28 30 29 3A |D.54272:Z$..(0):|
00000110: 44 43 24 B2 5A 24 AA C7 28 32 38 29 AA C7 28 31 |DC$.Z$..(28)..(1|
00000120: 29 00 3A 09 6E 00 81 49 B2 53 49 44 A4 53 49 44 |).:.n..I.SID.SID|
00000130: AA 32 33 3A 97 49 2C 30 3A 82 00 4D 09 78 00 97 |.23:.I,0:..M.x..|
00000140: 49 2C 31 35 3A 97 53 49 44 AA 35 2C 39 00 71 09 |I,15:.SID.5,9.q.|
00000150: 82 00 45 24 28 30 29 B2 22 20 20 20 20 20 20 20 |..E$(0)." |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 22 00 95 09 8C 00 45 24 28 31 29 B2 22 4F 4B 20 |".....E$(1)."OK |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 22 00 B9 09 96 00 45 24 28 32 29 B2 | ".....E$(2).|
000001A0: 22 43 4C 4F 53 45 20 54 4F 20 48 41 4C 46 57 41 |"CLOSE TO HALFWA|
000001B0: 59 20 20 20 20 20 20 20 22 00 DD 09 A0 00 45 24 |Y ".....E$|
000001C0: 28 33 29 B2 22 48 41 4C 46 57 41 59 20 28 4E 4F |(3)."HALFWAY (NO|
000001D0: 20 44 41 54 41 20 46 4F 55 4E 44 29 22 00 01 0A | DATA FOUND)"...|
000001E0: AA 00 45 24 28 39 29 B2 22 43 4C 4F 53 45 20 54 |..E$(9)."CLOSE T|
000001F0: 4F 20 48 41 4C 46 57 41 59 20 20 20 20 20 20 20 |O HALFWAY |
00000200: 22 00 24 0A B4 00 43 24 B2 22 22 3A 81 49 B2 31 |".$...C$."":.I.1|
00000210: A4 31 31 3A 87 20 41 3A 43 24 B2 43 24 AA C7 28 |.11:. A:C$.C$..(|
00000220: 41 29 3A 82 00 45 0A BE 00 99 22 11 11 20 50 52 |A):..E....".. PR|
00000230: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 |ESS ANY KEY TO S|
00000240: 54 41 52 54 22 00 59 0A C8 00 A1 41 24 3A 8B 41 |TART".Y....A$:.A|
00000250: 24 B2 22 22 20 A7 32 30 30 00 66 0A D2 00 9F 20 |$."" .200.f.... |
00000260: 35 2C 44 2C 31 35 00 87 0A DC 00 8F 20 53 45 4E |5,D,15...... SEN|
00000270: 44 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 54 |D MACHINE CODE T|
00000280: 4F 20 44 52 49 56 45 00 A8 0A E6 00 8F 20 20 28 |O DRIVE...... (|
00000290: 4A 55 4D 50 20 4A 4F 42 20 52 55 4E 53 20 49 4E |JUMP JOB RUNS IN|
000002A0: 20 42 55 46 20 23 30 29 00 C2 0A F0 00 98 35 2C | BUF #0)......5,|
000002B0: 22 4D 2D 57 22 5A 24 C7 28 33 29 C7 28 31 31 29 |"M-W"Z$.(3).(11)|
000002C0: 43 24 00 C8 0A 18 01 3A 00 EC 0A 22 01 8F 20 53 |C$.....:...".. S|
000002D0: 45 4E 44 20 22 49 4E 49 54 20 44 49 53 4B 22 20 |END "INIT DISK" |
000002E0: 43 4D 44 20 54 4F 20 44 52 49 56 45 00 01 0B 2C |CMD TO DRIVE...,|
000002F0: 01 98 35 2C 22 49 22 3A 99 22 93 22 3A 54 B2 31 |..5,"I":.".":T.1|
00000300: 38 00 07 0B 7C 01 3A 00 23 0B 86 01 8F 20 4E 45 |8...|.:.#.... NE|
00000310: 57 20 54 52 41 43 4B 20 2D 20 53 48 4F 57 20 22 |W TRACK - SHOW "|
00000320: 3F 3F 22 00 2B 0B 90 01 45 B2 30 00 31 0B E0 01 |??".+...E.0.1...|
00000330: 3A 00 55 0B EA 01 8F 20 52 45 41 44 20 54 48 45 |:.U.... READ THE|
00000340: 20 44 49 53 4B 20 43 4F 4E 54 52 4F 4C 4C 45 52 | DISK CONTROLLER|
00000350: 20 50 4F 52 54 00 65 0B F4 01 98 35 2C 22 4D 2D | PORT.e....5,"M-|
00000360: 52 22 44 43 24 00 7B 0B FE 01 A1 23 35 2C 41 24 |R"DC$.{....#5,A$|
00000370: 3A 41 B2 C6 28 41 24 AA 5A 24 29 00 86 0B 08 02 |:A..(A$.Z$).....|
00000380: 43 56 B2 33 AF 41 00 B4 0B 12 02 41 B2 28 31 35 |CV.3.A.....A.(15|
00000390: 39 AF 41 29 B0 28 31 30 30 AA 33 32 AC 28 28 54 |9.A).(100.32.((T|
000003A0: B1 31 37 29 AA 28 54 B1 32 34 29 AA 28 54 B1 33 |.17).(T.24).(T.3|
000003B0: 30 29 29 29 00 C8 0B 1C 02 98 35 2C 22 4D 2D 57 |0)))......5,"M-W|
000003C0: 22 44 43 24 C7 28 41 29 00 CE 0B 44 02 3A 00 E3 |"DC$.(A)...D.:..|
000003D0: 0B 4E 02 8F 20 44 49 53 50 4C 41 59 20 56 41 4C |.N.. DISPLAY VAL|
000003E0: 55 45 53 00 22 0C 58 02 54 24 B2 C4 28 54 52 29 |UES.".X.T$..(TR)|
000003F0: 3A 53 24 B2 C4 28 53 45 29 3A 8B 20 45 B3 B1 31 |:S$..(SE):. E..1|
00000400: 20 A7 20 54 24 B2 22 3F 3F 22 3A 48 31 24 B2 22 | . T$."??":H1$."|
00000410: 3F 22 3A 48 32 24 B2 22 3F 22 3A 53 24 B2 22 3F |?":H2$."?":S$."?|
00000420: 3F 22 00 43 0C 62 02 99 22 13 11 20 20 20 41 4C |?".C.b..".. AL|
00000430: 49 47 4E 20 54 48 45 20 31 35 34 31 20 44 52 49 |IGN THE 1541 DRI|
00000440: 56 45 22 00 63 0C 6C 02 99 22 11 54 52 41 43 4B |VE".c.l..".TRACK|
00000450: 20 50 4F 53 49 54 49 4F 4E 3A 22 54 22 9D 20 20 | POSITION:"T". |
00000460: 20 20 22 00 82 0C 76 02 99 22 11 54 52 41 43 4B | "...v..".TRACK|
00000470: 20 23 20 52 45 41 44 3A 20 20 22 C9 28 54 24 2C | # READ: ".(T$,|
00000480: 32 29 00 A0 0C 80 02 99 22 53 45 43 54 4F 52 20 |2)......"SECTOR |
00000490: 23 20 52 45 41 44 3A 20 22 C9 28 53 24 2C 32 29 |# READ: ".(S$,2)|
000004A0: 00 BE 0C 8A 02 99 22 44 49 53 4B 20 49 44 20 52 |......"DISK ID R|
000004B0: 45 41 44 3A 20 20 22 48 31 24 3B 48 32 24 00 D9 |EAD: "H1$;H2$..|
000004C0: 0C 94 02 99 22 11 52 45 41 44 20 52 45 53 55 4C |....".READ RESUL|
000004D0: 54 53 3A 22 45 24 28 45 29 00 DF 0C A8 02 3A 00 |TS:"E$(E).....:.|
000004E0: F2 0C BC 02 99 22 11 11 43 4F 4D 4D 41 4E 44 53 |....."..COMMANDS|
000004F0: 3A 22 00 1E 0D C6 02 99 22 11 20 20 46 31 20 3D |:"......". F1 =|
00000500: 20 4D 4F 56 45 20 48 45 41 44 20 4F 55 54 20 28 | MOVE HEAD OUT (|
00000510: 4C 4F 57 45 52 20 54 52 41 43 4B 20 23 29 00 40 |LOWER TRACK #).@|
00000520: 0D D0 02 99 22 20 20 46 32 20 3D 20 4D 4F 56 45 |...." F2 = MOVE|
00000530: 20 48 45 41 44 20 54 4F 20 54 52 41 43 4B 20 31 | HEAD TO TRACK 1|
00000540: 00 6B 0D DA 02 99 22 20 20 46 33 20 3D 20 4D 4F |.k...." F3 = MO|
00000550: 56 45 20 48 45 41 44 20 49 4E 20 28 48 49 47 48 |VE HEAD IN (HIGH|
00000560: 45 52 20 54 52 41 43 4B 20 23 29 00 8E 0D E4 02 |ER TRACK #).....|
00000570: 99 22 20 20 46 34 20 3D 20 4D 4F 56 45 20 48 45 |." F4 = MOVE HE|
00000580: 41 44 20 54 4F 20 54 52 41 43 4B 20 33 35 00 B5 |AD TO TRACK 35..|
00000590: 0D EE 02 99 22 20 20 46 35 20 3D 20 49 4E 49 54 |...." F5 = INIT|
000005A0: 49 41 4C 49 5A 45 20 28 54 4F 20 54 52 41 43 4B |IALIZE (TO TRACK|
000005B0: 20 31 38 29 22 00 CF 0D F8 02 99 22 20 20 46 37 | 18)"......" F7|
000005C0: 20 3D 20 45 4E 44 20 50 52 4F 47 52 41 4D 22 00 | = END PROGRAM".|
000005D0: D5 0D 0C 03 3A 00 EA 0D 16 03 8F 20 43 48 45 43 |....:...... CHEC|
000005E0: 4B 20 4B 45 59 42 4F 41 52 44 00 01 0E 20 03 A1 |K KEYBOARD... ..|
000005F0: 41 24 3A 4B B2 C6 28 41 24 AA 5A 24 29 AB 31 33 |A$:K..(A$.Z$).13|
00000600: 32 00 2B 0E 2A 03 8B 4B B1 30 A7 20 91 4B 89 31 |2.+.*..K.0. .K.1|
00000610: 33 30 30 2C 31 33 32 30 2C 33 30 30 2C 31 38 30 |300,1320,300,180|
00000620: 30 2C 31 33 34 30 2C 31 33 36 30 00 31 0E 5C 03 |0,1340,1360.1.\.|
00000630: 3A 00 52 0E 66 03 8F 20 41 54 54 45 4D 50 54 20 |:.R.f.. ATTEMPT |
00000640: 54 4F 20 52 45 41 44 20 41 4E 59 20 48 45 41 44 |TO READ ANY HEAD|
00000650: 45 52 00 58 0E 70 03 3A 00 7B 0E 7A 03 8F 20 50 |ER.X.p.:.{.z.. P|
00000660: 55 54 20 4A 4D 50 20 4A 4F 42 20 49 4E 20 54 48 |UT JMP JOB IN TH|
00000670: 45 20 4A 4F 42 20 51 55 45 55 45 00 96 0E 84 03 |E JOB QUEUE.....|
00000680: 98 35 2C 22 4D 2D 57 22 5A 24 5A 24 C7 28 31 29 |.5,"M-W"Z$Z$.(1)|
00000690: C7 28 32 30 38 29 00 9C 0E D4 03 3A 00 B0 0E DE |.(208).....:....|
000006A0: 03 8F 20 43 48 45 43 4B 20 52 45 53 55 4C 54 53 |.. CHECK RESULTS|
000006B0: 00 C1 0E E8 03 98 35 2C 22 4D 2D 52 22 5A 24 5A |......5,"M-R"Z$Z|
000006C0: 24 00 D7 0E F2 03 A1 23 35 2C 41 24 3A 45 B2 C6 |$......#5,A$:E..|
000006D0: 28 41 24 AA 5A 24 29 00 FC 0E FC 03 8F 20 22 45 |(A$.Z$)...... "E|
000006E0: 22 20 49 53 20 46 44 43 20 45 52 52 4F 52 20 43 |" IS FDC ERROR C|
000006F0: 4F 44 45 20 52 45 54 55 52 4E 45 44 00 14 0F 06 |ODE RETURNED....|
00000700: 04 8B 45 B2 33 20 A7 20 46 48 B2 32 30 3A 89 20 |..E.3 . FH.20:. |
00000710: 31 32 30 30 00 31 0F 10 04 8B 45 B2 32 20 B0 20 |1200.1....E.2 . |
00000720: 45 B2 39 20 A7 20 46 48 B2 33 30 3A 89 31 32 30 |E.9 . FH.30:.120|
00000730: 30 00 40 0F 1A 04 8B 45 B3 B1 31 20 A7 34 30 30 |0.@....E..1 .400|
00000740: 00 46 0F 38 04 3A 00 6B 0F 42 04 8F 20 52 45 41 |.F.8.:.k.B.. REA|
00000750: 44 20 4F 4B 3B 20 47 45 54 20 49 44 2C 20 54 52 |D OK; GET ID, TR|
00000760: 41 43 4B 2C 20 53 45 43 54 4F 52 00 83 0F 4C 04 |ACK, SECTOR...L.|
00000770: 98 35 2C 22 4D 2D 52 22 C7 28 32 32 29 5A 24 C7 |.5,"M-R".(22)Z$.|
00000780: 28 34 29 00 9B 0F 56 04 A1 23 35 2C 48 31 24 2C |(4)...V..#5,H1$,|
00000790: 48 32 24 2C 48 33 24 2C 48 34 24 00 AC 0F 60 04 |H2$,H3$,H4$...`.|
000007A0: 54 52 B2 C6 28 48 33 24 AA 5A 24 29 00 BD 0F 6A |TR..(H3$.Z$)...j|
000007B0: 04 53 45 B2 C6 28 48 34 24 AA 5A 24 29 00 C6 0F |.SE..(H4$.Z$)...|
000007C0: 74 04 89 35 30 30 00 CC 0F 9C 04 3A 00 DE 0F A6 |t..500.....:....|
000007D0: 04 8F 20 42 4F 49 4E 47 20 53 4F 55 4E 44 00 EB |.. BOING SOUND..|
000007E0: 0F B0 04 97 53 49 44 AA 34 2C 30 00 F9 0F BA 04 |....SID.4,0.....|
000007F0: 97 53 49 44 AA 31 2C 46 48 00 07 10 C4 04 97 53 |.SID.1,FH......S|
00000800: 49 44 AA 34 2C 31 37 00 10 10 CE 04 89 35 30 30 |ID.4,17......500|
00000810: 00 16 10 00 05 3A 00 30 10 0A 05 8F 20 4D 4F 56 |.....:.0.... MOV|
00000820: 45 20 48 45 41 44 20 49 4E 20 4F 52 20 4F 55 54 |E HEAD IN OR OUT|
00000830: 00 3F 10 14 05 8B 54 B1 31 20 A7 31 35 30 30 00 |.?....T.1 .1500.|
00000840: 48 10 1E 05 89 39 30 30 00 5E 10 28 05 8B 54 B3 |H....900.^.(..T.|
00000850: 34 30 20 A7 20 43 B2 31 3A 89 31 35 31 30 00 67 |40 . C.1:.1510.g|
00000860: 10 32 05 89 39 30 30 00 87 10 3C 05 8B 54 B1 31 |.2..900...<..T.1|
00000870: 20 A7 20 43 B2 AB 31 3A 4C B2 32 AC 28 54 AB 31 | . C..1:L.2.(T.1|
00000880: 29 3A 89 31 34 30 30 00 90 10 46 05 89 39 30 30 |):.1400...F..900|
00000890: 00 B1 10 50 05 8B 54 B3 33 35 20 A7 20 43 B2 31 |...P..T.35 . C.1|
000008A0: 3A 4C B2 32 AC 28 33 35 AB 54 29 3A 89 31 34 30 |:L.2.(35.T):.140|
000008B0: 30 00 C0 10 5A 05 8B 54 B2 33 35 20 A7 39 30 30 |0...Z..T.35 .900|
000008C0: 00 D4 10 64 05 43 B2 AB 31 3A 4C B2 32 AC 28 54 |...d.C..1:L.2.(T|
000008D0: AB 33 35 29 00 EC 10 78 05 81 49 B2 31 A4 4C 3A |.35)...x..I.1.L:|
000008E0: 8D 31 36 30 30 3A 82 3A 89 34 30 30 00 F5 10 DC |.1600:.:.400....|
000008F0: 05 43 B2 AB 31 00 04 11 E6 05 8D 31 36 30 30 3A |.C..1......1600:|
00000900: 89 34 30 30 00 0A 11 2C 06 3A 00 29 11 36 06 8F |.400...,.:.).6..|
00000910: 20 4D 4F 56 45 20 48 45 41 44 20 4F 4E 45 20 48 | MOVE HEAD ONE H|
00000920: 41 4C 46 2D 54 52 41 43 4B 00 36 11 40 06 54 B2 |ALF-TRACK.6.@.T.|
00000930: 54 AA 43 AC 2E 35 00 53 11 4A 06 43 56 B2 28 43 |T.C..5.S.J.CV.(C|
00000940: 56 AA 43 29 AF 33 3A 41 B2 28 32 35 32 AF 41 29 |V.C).3:A.(252.A)|
00000950: AA 43 56 00 69 11 54 06 98 35 2C 22 4D 2D 57 22 |.CV.i.T..5,"M-W"|
00000960: 44 43 24 C7 28 41 29 3A 8E 00 6F 11 F4 06 3A 00 |DC$.(A):..o...:.|
00000970: 92 11 FE 06 8F 20 45 4E 44 20 50 52 4F 47 52 41 |..... END PROGRA|
00000980: 4D 20 28 54 55 52 4E 20 44 52 49 56 45 20 4F 46 |M (TURN DRIVE OF|
00000990: 46 29 00 A8 11 08 07 98 35 2C 22 4D 2D 57 22 44 |F)......5,"M-W"D|
000009A0: 43 24 C7 28 32 34 30 29 00 C2 11 12 07 81 49 B2 |C$.(240)......I.|
000009B0: 53 49 44 20 A4 53 49 44 AA 32 33 3A 97 49 2C 30 |SID .SID.23:.I,0|
000009C0: 3A 82 00 D7 11 1C 07 81 4A B2 31 A4 31 30 30 3A |:.......J.1.100:|
000009D0: 82 4A 3A 97 49 2C 30 00 E0 11 26 07 A0 35 3A 80 |.J:.I,0...&..5:.|
000009E0: 00 E6 11 D0 07 3A 00 13 12 DA 07 8F 20 20 4D 41 |.....:...... MA|
000009F0: 43 48 49 4E 45 20 43 4F 44 45 20 52 4F 55 54 49 |CHINE CODE ROUTI|
00000A00: 4E 45 20 54 4F 20 52 45 41 44 20 41 20 48 45 41 |NE TO READ A HEA|
00000A10: 44 45 52 00 37 12 E4 07 8F 20 20 52 45 53 49 44 |DER.7.... RESID|
00000A20: 45 53 20 41 54 20 24 30 33 30 30 20 28 42 55 46 |ES AT $0300 (BUF|
00000A30: 46 45 52 20 23 30 29 00 54 12 EE 07 83 20 31 36 |FER #0).T.... 16|
00000A40: 39 2C 34 38 3A 20 20 20 20 3A 8F 20 4C 44 41 20 |9,48: :. LDA |
00000A50: 23 24 33 30 00 70 12 F8 07 83 20 31 33 33 2C 36 |#$30.p.... 133,6|
00000A60: 39 3A 20 20 20 20 3A 8F 20 53 54 41 20 24 34 35 |9: :. STA $45|
00000A70: 00 8D 12 02 08 83 20 31 36 39 2C 30 30 3A 20 20 |...... 169,00: |
00000A80: 20 20 3A 8F 20 4C 44 41 20 23 24 30 30 00 A9 12 | :. LDA #$00...|
00000A90: 0C 08 83 20 31 33 33 2C 36 33 3A 20 20 20 20 3A |... 133,63: :|
00000AA0: 8F 20 53 54 41 20 24 33 46 00 C7 12 16 08 83 20 |. STA $3F...... |
00000AB0: 37 36 2C 31 37 37 2C 32 34 33 20 3A 8F 20 4A 4D |76,177,243 :. JM|
00000AC0: 50 20 24 46 33 42 31 00 00 00 28 54 AB 33 35 29 |P $F3B1...(T.35)|
00000AD0: 00 EC 10 78 05 81 49 B2 31 A4 4C 3A 8D 31 36 30 |...x..I.1.L:.160|
00000AE0: 30 3A 82 3A 89 34 30 30 00 F5 |0:.:.400.. |
....... CHECK/RE-ALIGN A 1541.$...:.L..
.. SEE PROTOTYPE AND INSTRUCTIONS IN...(
.. G. NEUFELD'S "1541 USER'S GUIDE" SE
CTION 12.5...2.. REWRITE BY DAVE WALTON.
..<..".. 1541 ALIGNMENT".Z.F..".. INS
ERT STANDARD DISK"...P.. E$(16)...Z.D.8:
. DRIVE #.!.D.SID.54272:Z$.G(0):DC$.Z$.G
(28).G(1).:.N..I.SID.SID.23:.I,0:..M.X..
I,15:.SID.5,9.Q...E$(0)."
".....E$(1)."OK
".....E$(2)."CLOSE TO HALFWAY
"... .E$(3)."HALFWAY (NO DATA FOUND)"...
..E$(9)."CLOSE TO HALFWAY ".$...C$
."":.I.1.11:. A:C$.C$.G(A):..E....".. PR
ESS ANY KEY TO START".Y.H..A$:.A$."" .20
0.F.R.. 5,D,15...... SEND MACHINE CODE T
O DRIVE...... (JUMP JOB RUNS IN BUF #0)
.B....5,"M-W"Z$G(3)G(11)C$.H...:...".. S
END "INIT DISK" CMD TO DRIVE...,..5,"I":
.".":T.18...|.:.#.... NEW TRACK - SHOW "
??".+...E.0.1...:.U.... READ THE DISK CO
NTROLLER PORT.E....5,"M-R"DC$.{....#5,A$
:A.F(A$.Z$).....CV.3.A.....A.(159.A).(10
0.32.((T.17).(T.24).(T.30))).H....5,"M-W
"DC$G(A).N.D.:...N.. DISPLAY VALUES.".X.
T$.D(TR):S$.D(SE):. E..1 . T$."??":H1$."
?":H2$."?":S$."??".C.B..".. ALIGN THE
1541 DRIVE".C.L..".TRACK POSITION:"T".
"...V..".TRACK # READ: "I(T$,2). ....
"SECTOR # READ: "I(S$,2)......"DISK ID R
EAD: "H1$;H2$.Y....".READ RESULTS:"E$(E
).....:......"..COMMANDS:"...F..". F1 =
MOVE HEAD OUT (LOWER TRACK #).@.P.." F
2 = MOVE HEAD TO TRACK 1.K.Z.." F3 = MO
VE HEAD IN (HIGHER TRACK #)......" F4 =
MOVE HEAD TO TRACK 35......" F5 = INIT
IALIZE (TO TRACK 18)".O...." F7 = END P
ROGRAM".U...:...... CHECK KEYBOARD... ..
A$:K.F(A$.Z$).132.+.*..K.0. .K.1300,1320
,300,1800,1340,1360.1.\.:.R.F.. ATTEMPT
TO READ ANY HEADER.X.P.:.{.Z.. PUT JMP J
OB IN THE JOB QUEUE......5,"M-W"Z$Z$G(1)
G(208)...T.:...... CHECK RESULTS.A....5,
"M-R"Z$Z$.W....#5,A$:E.F(A$.Z$)...... "E
" IS FDC ERROR CODE RETURNED......E.3 .
FH.20:. 1200.1....E.2 . E.9 . FH.30:.120
0.@....E..1 .400.F.8.:.K.B.. READ OK; GE
T ID, TRACK, SECTOR...L..5,"M-R"G(22)Z$G
(4)...V..#5,H1$,H2$,H3$,H4$...`.TR.F(H3$
.Z$)...J.SE.F(H4$.Z$).F.T..500.L...:....
.. BOING SOUND......SID.4,0......SID.1,F
H...D..SID.4,17...N..500.....:.0.... MOV
E HEAD IN OR OUT.?....T.1 .1500.H....900
.^.(..T.40 . C.1:.1510.G.2..900...<..T.1
. C..1:L.2.(T.1):.1400...F..900...P..T.
35 . C.1:L.2.(35.T):.1400...Z..T.35 .900
.T.D.C..1:L.2.(T.35)...X..I.1.L:.1600:.:
.400.....C..1......1600:.400...,.:.).6..
MOVE HEAD ONE HALF-TRACK.6.@.T.T.C..5.S
.J.CV.(CV.C).3:A.(252.A).CV.I.T..5,"M-W"
DC$G(A):..O...:...... END PROGRAM (TURN
DRIVE OFF)......5,"M-W"DC$G(240).B....I.
SID .SID.23:.I,0:..W....J.1.100:.J:.I,0.
..&. 5:....P.:...Z.. MACHINE CODE ROUTI
NE TO READ A HEADER.7.... RESIDES AT $0
300 (BUFFER #0).T.... 169,48: :. LDA
#$30.P.... 133,69: :. STA $45...... 1
69,00: :. LDA #$00...... 133,63: :
. STA $3F.G.... 76,177,243 :. JMP $F3B1.
..(T.35)...X..I.1.L:.1600:.:.400..
> CLICK IMAGE PREVIEW FOR FULL MODAL