ALIGN
FILE INFORMATION
FILENAME(S): ALIGN
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-01 01:48:45
APPEARS ON: 1 disk(s)
FILE HASH
fd388b5ed1f944c091d4f0f644c5b5a6f6a293b4e5a264bebe4b4ba6809b7ff4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0022A | ALIGN | PRG | hedning, Mattias H00r | 27 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 99 22 93 11 20 20 20 31 35 34 |....d..".. 154| 00000010: 31 20 41 4C 49 47 4E 4D 45 4E 54 22 00 3A 08 6E |1 ALIGNMENT".:.n| 00000020: 00 99 22 11 11 49 4E 53 45 52 54 20 53 54 41 4E |.."..INSERT STAN| 00000030: 44 41 52 44 20 44 49 53 4B 22 00 5D 08 78 00 99 |DARD DISK".].x..| 00000040: 22 11 11 50 52 45 53 53 20 12 52 45 54 55 52 4E |"..PRESS .RETURN| 00000050: 92 20 57 48 45 4E 20 52 45 41 44 59 22 00 63 08 |. WHEN READY".c.| 00000060: 82 00 3A 00 69 08 8C 00 3A 00 6F 08 96 00 3A 00 |..:.i...:.o...:.| 00000070: 75 08 A0 00 3A 00 82 08 AA 00 83 20 31 36 39 2C |u...:...... 169,| 00000080: 34 38 00 8F 08 B4 00 83 20 31 33 33 2C 36 39 00 |48...... 133,69.| 00000090: 9C 08 BE 00 83 20 31 36 39 2C 30 30 00 A9 08 C8 |..... 169,00....| 000000A0: 00 83 20 31 33 33 2C 36 33 00 BA 08 D2 00 83 20 |.. 133,63...... | 000000B0: 37 36 2C 31 37 37 2C 32 34 33 00 C0 08 DC 00 3A |76,177,243.....:| 000000C0: 00 F0 08 E6 00 44 24 28 30 29 B2 22 30 30 22 3A |.....D$(0)."00":| 000000D0: 44 24 28 31 29 B2 22 30 31 22 3A 44 24 28 32 29 |D$(1)."01":D$(2)| 000000E0: B2 22 31 30 22 3A 44 24 28 33 29 B2 22 31 31 22 |."10":D$(3)."11"| 000000F0: 00 FE 08 F0 00 53 49 44 B2 35 34 32 37 32 00 0C |.....SID.54272..| 00000100: 09 FA 00 86 20 46 44 24 28 31 36 29 00 33 09 04 |.... FD$(16).3..| 00000110: 01 46 44 24 28 30 29 B2 22 20 20 20 20 20 20 20 |.FD$(0)." | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 22 00 5A 09 0E 01 46 44 24 28 31 29 B2 22 | ".Z...FD$(1)."| 00000140: 43 4C 45 41 4E 20 52 45 41 44 20 4F 46 20 54 52 |CLEAN READ OF TR| 00000150: 41 43 4B 20 20 20 20 20 20 22 00 81 09 18 01 46 |ACK ".....F| 00000160: 44 24 28 32 29 B2 22 43 4C 4F 53 45 20 54 4F 20 |D$(2)."CLOSE TO | 00000170: 48 41 4C 46 57 41 59 20 50 4F 49 4E 54 20 20 20 |HALFWAY POINT | 00000180: 22 00 A8 09 22 01 46 44 24 28 33 29 B2 22 45 58 |"...".FD$(3)."EX| 00000190: 41 43 54 4C 59 20 48 41 4C 46 20 42 45 54 57 45 |ACTLY HALF BETWE| 000001A0: 45 4E 20 20 20 20 20 22 00 CF 09 2C 01 46 44 24 |EN "...,.FD$| 000001B0: 28 39 29 B2 22 43 4C 4F 53 45 20 54 4F 20 48 41 |(9)."CLOSE TO HA| 000001C0: 4C 46 57 41 59 20 50 4F 49 4E 54 20 20 20 22 00 |LFWAY POINT ".| 000001D0: EF 09 36 01 54 B2 31 38 3A 4E 31 24 B2 22 3F 22 |..6.T.18:N1$."?"| 000001E0: 3A 4E 32 24 B2 22 3F 22 3A 54 52 B2 32 35 35 00 |:N2$."?":TR.255.| 000001F0: 06 0A 40 01 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 |..@..A$:.A$...(1| 00000200: 33 29 A7 33 32 30 00 0C 0A 4A 01 3A 00 1D 0A 54 |3).320...J.:...T| 00000210: 01 9F 31 35 2C 38 2C 31 35 2C 22 49 22 00 26 0A |..15,8,15,"I".&.| 00000220: 5E 01 99 22 93 22 00 2C 0A 68 01 3A 00 32 0A 72 |^..".".,.h.:.2.r| 00000230: 01 3A 00 38 0A 7C 01 3A 00 4F 0A 86 01 98 31 35 |.:.8.|.:.O....15| 00000240: 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 32 38 29 00 |,"M-R".(0).(28).| 00000250: 6A 0A 90 01 A1 23 31 35 2C 41 24 3A 8B 41 24 B2 |j....#15,A$:.A$.| 00000260: 22 22 A7 41 24 B2 C7 28 30 29 00 76 0A 9A 01 41 |"".A$..(0).v...A| 00000270: B2 C6 28 41 24 29 00 81 0A A4 01 43 56 B2 33 AF |..(A$).....CV.3.| 00000280: 41 00 AF 0A AE 01 41 B2 28 31 35 39 AF 41 29 B0 |A.....A.(159.A).| 00000290: 28 39 36 AA 33 32 AC 28 28 54 B1 31 37 29 AA 28 |(96.32.((T.17).(| 000002A0: 54 B1 32 34 29 AA 28 54 B1 33 30 30 29 29 29 00 |T.24).(T.300))).| 000002B0: D0 0A B8 01 98 31 35 2C 22 4D 2D 57 22 C7 28 30 |.....15,"M-W".(0| 000002C0: 29 C7 28 32 38 29 C7 28 31 29 C7 28 41 B0 34 29 |).(28).(1).(A.4)| 000002D0: 00 D6 0A C2 01 3A 00 DC 0A CC 01 3A 00 E2 0A D6 |.....:.....:....| 000002E0: 01 3A 00 03 0B E0 01 99 22 13 11 20 20 20 41 4C |.:......".. AL| 000002F0: 49 47 4E 20 54 48 45 20 31 35 34 31 20 44 52 49 |IGN THE 1541 DRI| 00000300: 56 45 22 00 29 0B EA 01 99 22 11 54 52 41 43 4B |VE".)....".TRACK| 00000310: 20 23 20 46 52 4F 4D 20 53 54 45 50 50 45 52 3A | # FROM STEPPER:| 00000320: 22 54 22 9D 20 20 20 20 22 00 46 0B F4 01 99 22 |"T". ".F...."| 00000330: 11 48 45 41 44 20 50 4F 53 49 54 49 4F 4E 3A 22 |.HEAD POSITION:"| 00000340: 46 44 24 28 45 29 00 82 0B FE 01 54 24 B2 C4 28 |FD$(E).....T$..(| 00000350: 54 52 29 3A 53 24 B2 C4 28 53 45 29 3A 8B 45 B3 |TR):S$..(SE):.E.| 00000360: B1 31 A7 54 24 B2 22 3F 3F 22 3A 4E 31 24 B2 22 |.1.T$."??":N1$."| 00000370: 3F 22 3A 4E 32 24 B2 22 3F 22 3A 53 24 B2 22 3F |?":N2$."?":S$."?| 00000380: 3F 22 00 A3 0B 08 02 99 22 54 52 41 43 4B 20 23 |?"......"TRACK #| 00000390: 20 41 53 20 52 45 41 44 3A 20 20 22 C9 28 54 24 | AS READ: ".(T$| 000003A0: 2C 32 29 00 C4 0B 12 02 99 22 53 45 43 54 4F 52 |,2)......"SECTOR| 000003B0: 20 23 20 41 53 20 52 45 41 44 3A 20 22 C9 28 53 | # AS READ: ".(S| 000003C0: 24 2C 32 29 00 E5 0B 1C 02 99 22 49 44 20 4F 46 |$,2)......"ID OF| 000003D0: 20 54 52 41 43 4B 20 52 45 41 44 3A 20 22 4E 31 | TRACK READ: "N1| 000003E0: 24 3B 4E 32 24 00 F8 0B 26 02 99 22 11 11 43 4F |$;N2$...&.."..CO| 000003F0: 4D 4D 41 4E 44 53 3A 22 00 25 0C 30 02 99 22 11 |MMANDS:".%.0..".| 00000400: 20 20 20 46 31 20 3D 20 4D 4F 56 45 20 48 45 41 | F1 = MOVE HEA| 00000410: 44 4F 55 54 20 28 4C 4F 57 45 52 20 54 52 41 43 |DOUT (LOWER TRAC| 00000420: 4B 20 23 29 22 00 51 0C 3A 02 99 22 20 20 46 33 |K #)".Q.:.." F3| 00000430: 20 3D 20 4D 4F 56 45 20 48 45 41 44 20 49 4E 20 | = MOVE HEAD IN | 00000440: 28 48 49 47 48 45 52 20 54 52 41 43 4B 20 23 29 |(HIGHER TRACK #)| 00000450: 22 00 71 0C 44 02 99 22 20 20 46 37 20 3D 20 54 |".q.D.." F7 = T| 00000460: 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 4D |ERMINATE PROGRAM| 00000470: 22 00 97 0C 4E 02 99 22 20 20 20 49 20 3D 20 49 |"...N.." I = I| 00000480: 4E 49 54 49 41 4C 49 5A 45 20 28 54 4F 20 54 52 |NITIALIZE (TO TR| 00000490: 41 43 4B 20 31 38 29 00 AC 0C 58 02 A1 41 24 3A |ACK 18)...X..A$:| 000004A0: 41 B2 C6 28 41 24 AA C7 28 30 29 29 00 BB 0C 62 |A..(A$..(0))...b| 000004B0: 02 8B 41 B2 31 33 36 A7 38 30 30 00 D4 0C 6C 02 |..A.136.800...l.| 000004C0: 8B 41 B2 31 33 33 AF 54 B1 31 A7 43 B2 AB 31 3A |.A.133.T.1.C..1:| 000004D0: 89 36 39 30 00 ED 0C 76 02 8B 41 B2 31 33 34 AF |.690...v..A.134.| 000004E0: 54 B3 33 35 A7 43 B2 31 3A 89 36 39 30 00 13 0D |T.35.C.1:.690...| 000004F0: 80 02 8B 41 B2 37 33 A7 98 31 35 2C 22 49 22 3A |...A.73..15,"I":| 00000500: 54 B2 31 38 3A 45 B2 30 3A 41 B2 32 31 34 3A 89 |T.18:E.0:A.214:.| 00000510: 34 32 30 00 1C 0D 8A 02 89 38 39 30 00 22 0D 94 |420......890."..| 00000520: 02 3A 00 28 0D 9E 02 3A 00 2E 0D A8 02 3A 00 3E |.:.(...:.....:.>| 00000530: 0D B2 02 43 56 B2 28 43 56 AA 43 29 AF 33 00 54 |...CV.(CV.C).3.T| 00000540: 0D BC 02 54 B2 54 AA 43 AC 2E 35 3A 8B 54 B3 31 |...T.T.C..5:.T.1| 00000550: A7 54 B2 31 00 63 0D C6 02 8B 54 B1 33 36 A7 54 |.T.1.c....T.36.T| 00000560: B2 33 36 00 6F 0D D0 02 42 B2 41 AF 32 35 32 00 |.36.o...B.A.252.| 00000570: 7A 0D DA 02 43 B2 42 AA 43 56 00 99 0D E4 02 98 |z...C.B.CV......| 00000580: 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 |15,"M-W".(0).(28| 00000590: 29 C7 28 31 29 C7 28 43 29 00 A1 0D EE 02 45 B2 |).(1).(C).....E.| 000005A0: 30 00 AA 0D F8 02 89 33 39 30 00 B0 0D 02 03 3A |0......390.....:| 000005B0: 00 B6 0D 0C 03 3A 00 BC 0D 16 03 3A 00 DD 0D 20 |.....:.....:... | 000005C0: 03 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 |..15,"M-W".(0).(| 000005D0: 32 38 29 C7 28 31 29 C7 28 32 34 30 29 00 F6 0D |28).(1).(240)...| 000005E0: 2A 03 81 49 B2 53 49 44 A4 53 49 44 AA 32 33 3A |*..I.SID.SID.23:| 000005F0: 97 49 2C 30 3A 82 00 09 0E 34 03 81 4B B2 31 A4 |.I,0:....4..K.1.| 00000600: 31 30 30 3A A1 41 24 3A 82 00 13 0E 3E 03 A0 31 |100:.A$:....>..1| 00000610: 35 3A 80 00 19 0E 48 03 3A 00 1F 0E 52 03 3A 00 |5:....H.:...R.:.| 00000620: 25 0E 5C 03 3A 00 2B 0E 66 03 3A 00 31 0E 70 03 |%.\.:.+.f.:.1.p.| 00000630: 3A 00 3D 0E 7A 03 8C 3A 43 24 B2 22 22 00 59 0E |:.=.z..:C$."".Y.| 00000640: 84 03 81 4B B2 31 A4 31 31 3A 87 58 3A 43 24 B2 |...K.1.11:.X:C$.| 00000650: 43 24 AA C7 28 58 29 3A 82 00 76 0E 8E 03 98 31 |C$..(X):..v....1| 00000660: 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 33 29 C7 |5,"M-W".(0).(3).| 00000670: 28 31 31 29 43 24 00 7C 0E 98 03 3A 00 82 0E A2 |(11)C$.|...:....| 00000680: 03 3A 00 88 0E AC 03 3A 00 A8 0E B6 03 98 31 35 |.:.....:......15| 00000690: 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 29 C7 28 |,"M-W".(0).(0).(| 000006A0: 31 29 C7 28 32 30 38 29 00 AE 0E C0 03 3A 00 B4 |1).(208).....:..| 000006B0: 0E CA 03 3A 00 BA 0E D4 03 3A 00 D0 0E DE 03 98 |...:.....:......| 000006C0: 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 30 29 |15,"M-R".(0).(0)| 000006D0: 00 E9 0E E8 03 A1 23 31 35 2C 45 24 3A 45 B2 C6 |......#15,E$:E..| 000006E0: 28 45 24 AA C7 28 30 29 29 00 F9 0E F2 03 8B 45 |(E$..(0))......E| 000006F0: B1 31 32 37 20 89 36 38 30 00 FF 0E FC 03 3A 00 |.127 .680.....:.| 00000700: 05 0F 06 04 3A 00 1C 0F 10 04 8B 45 B2 33 A7 48 |....:......E.3.H| 00000710: 5A B2 31 30 30 30 3A 8D 31 31 39 30 00 37 0F 1A |Z.1000:.1190.7..| 00000720: 04 8B 45 B2 32 B0 45 B2 39 A7 48 5A B2 31 35 30 |..E.2.E.9.HZ.150| 00000730: 30 3A 8D 31 31 39 30 00 45 0F 24 04 8B 45 B3 B1 |0:.1190.E.$..E..| 00000740: 31 A7 33 39 30 00 4B 0F 2E 04 3A 00 51 0F 38 04 |1.390.K...:.Q.8.| 00000750: 3A 00 57 0F 42 04 3A 00 72 0F 4C 04 98 31 35 2C |:.W.B.:.r.L..15,| 00000760: 22 4D 2D 52 22 C7 28 32 32 29 C7 28 30 29 C7 28 |"M-R".(22).(0).(| 00000770: 34 29 00 7F 0F 56 04 A1 23 31 35 2C 4E 31 24 00 |4)...V..#15,N1$.| 00000780: 8C 0F 60 04 A1 23 31 35 2C 4E 32 24 00 A6 0F 6A |..`..#15,N2$...j| 00000790: 04 A1 23 31 35 2C 58 24 3A 54 52 B2 C6 28 58 24 |..#15,X$:TR..(X$| 000007A0: AA C7 28 30 29 29 00 C0 0F 74 04 A1 23 31 35 2C |..(0))...t..#15,| 000007B0: 58 24 3A 53 45 B2 C6 28 58 24 AA C7 28 30 29 29 |X$:SE..(X$..(0))| 000007C0: 00 C9 0F 7E 04 89 33 39 30 00 CF 0F 88 04 3A 00 |...~..390.....:.| 000007D0: D5 0F 92 04 3A 00 DB 0F 9C 04 3A 00 F4 0F A6 04 |....:.....:.....| 000007E0: 81 49 B2 53 49 44 A4 53 49 44 AA 32 33 3A 97 49 |.I.SID.SID.23:.I| 000007F0: 2C 30 3A 82 00 01 10 B0 04 97 53 49 44 AA 35 2C |,0:.......SID.5,| 00000800: 39 00 0E 10 BA 04 97 53 49 44 AA 36 2C 39 00 1D |9......SID.6,9..| 00000810: 10 C4 04 97 53 49 44 AA 32 34 2C 31 35 00 2D 10 |....SID.24,15.-.| 00000820: CE 04 97 53 49 44 AA 31 2C 45 AA 32 30 00 3A 10 |...SID.1,E.20.:.| 00000830: D8 04 97 53 49 44 2C 31 37 37 00 52 10 E2 04 97 |...SID,177.R....| 00000840: 53 49 44 AA 34 2C 31 37 3A 81 49 B2 31 A4 35 30 |SID.4,17:.I.1.50| 00000850: 3A 82 00 63 10 EC 04 8F 20 50 CF 53 49 44 2B 32 |:..c.... P.SID+2| 00000860: 34 2C 30 00 69 10 F6 04 8E 00 83 10 00 05 97 41 |4,0.i..........A| 00000870: 31 2C 38 35 3A 97 53 31 2C 31 35 30 3A 97 57 31 |1,85:.S1,150:.W1| 00000880: 2C 36 35 00 99 10 0A 05 8F 20 46 4F 52 4B 3D 31 |,65...... FORK=1| 00000890: 54 4F 31 30 30 30 3A 4E C5 00 9F 10 14 05 8E 00 |TO1000:N........| 000008A0: 00 00 |.. |
....D..".. 1541 ALIGNMENT".:.N.."..INS ERT STANDARD DISK".].X.."..PRESS .RETURN . WHEN READY".C...:.I...:.O...:.U. .:... ... 169,48...... 133,69...... 169,00...H .. 133,63...R.. 76,177,243.....:.....D$( 0)."00":D$(1)."01":D$(2)."10":D$(3)."11" .....SID.54272...... FD$(16).3...FD$(0). " ".Z...FD$(1)." CLEAN READ OF TRACK ".....FD$(2)."C LOSE TO HALFWAY POINT "...".FD$(3)."EX ACTLY HALF BETWEEN ".O.,.FD$(9)."CLO SE TO HALFWAY POINT "...6.T.18:N1$."?" :N2$."?":TR.255...@..A$:.A$..G(13).320.. .J.:...T..15,8,15,"I".&.^..".".,.H.:.2.R .:.8.|.:.O....15,"M-R"G(0)G(28).J....#15 ,A$:.A$."".A$.G(0).V...A.F(A$).....CV.3. A.....A.(159.A).(96.32.((T.17).(T.24).(T .300))).P....15,"M-W"G(0)G(28)G(1)G(A.4) .V.B.:...L.:...V.:......".. ALIGN THE 1541 DRIVE".)....".TRACK # FROM STEPPER: "T". ".F....".HEAD POSITION:"FD$(E).. ...T$.D(TR):S$.D(SE):.E..1.T$."??":N1$." ?":N2$."?":S$."??"......"TRACK # AS READ : "I(T$,2).D...."SECTOR # AS READ: "I(S $,2)......"ID OF TRACK READ: "N1$;N2$... &.."..COMMANDS:".%.0..". F1 = MOVE HEA DOUT (LOWER TRACK #)".Q.:.." F3 = MOVE HEAD IN (HIGHER TRACK #)".Q.D.." F7 = T ERMINATE PROGRAM"...N.." I = INITIALIZ E (TO TRACK 18)...X..A$:A.F(A$.G(0))...B ..A.136.800.T.L..A.133.T.1.C..1:.690...V ..A.134.T.35.C.1:.690......A.73..15,"I": T.18:E.0:A.214:.420......890."...:.(...: .....:.>...CV.(CV.C).3.T...T.T.C..5:.T.1 .T.1.C.F..T.36.T.36.O.P.B.A.252.Z.Z.C.B. CV......15,"M-W"G(0)G(28)G(1)G(C).....E. 0......390.....:.....:.....:... ..15,"M- W"G(0)G(28)G(1)G(240)...*..I.SID.SID.23: .I,0:....4..K.1.100:.A$:....>. 15:....H. :...R.:.%.\.:.+.F.:.1.P.:.=.Z..:C$."".Y. ...K.1.11:.X:C$.C$.G(X):..V....15,"M-W"G (0)G(3)G(11)C$.|...:.....:.....:......15 ,"M-W"G(0)G(0)G(1)G(208).....:...J.:...T .:.P....15,"M-R"G(0)G(0)......#15,E$:E.F (E$.G(0))......E.127 .680.....:.....:... ...E.3.HZ.1000:.1190.7....E.2.E.9.HZ.150 0:.1190.E.$..E..1.390.K...:.Q.8.:.W.B.:. R.L..15,"M-R"G(22)G(0)G(4)..V..#15,N1$. ..`..#15,N2$...J..#15,X$:TR.F(X$.G(0)).. .T..#15,X$:SE.F(X$.G(0)).I.~..390.O...:. U...:.....:......I.SID.SID.23:.I,0:..... ..SID.5,9......SID.6,9...D..SID.24,15.-. N..SID.1,E.20.:.X..SID,177.R....SID.4,17 :.I.1.50:..C.... POSID+24,0.I..........A 1,85:.S1,150:.W1,65...... FORK=1TO1000:N E.........
> CLICK IMAGE PREVIEW FOR FULL MODAL