ALIGN II
FILE INFORMATION
FILENAME(S): ALIGN II
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-12-01 01:48:45
APPEARS ON: 1 disk(s)
FILE HASH
5bb3514dbac1470a4176497e89e23f6b6aeca76dc9d1dd57caf1382f440e58d0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0022A | ALIGN II | PRG | hedning, Mattias H00r | 28 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 64 00 99 22 93 11 20 20 20 20 20 20 |..$.d..".. |
00000010: 20 20 20 20 20 31 35 34 31 20 41 4C 49 47 4E 4D | 1541 ALIGNM|
00000020: 45 4E 54 22 00 4C 08 6E 00 99 22 11 11 1D 1D 1D |ENT".L.n..".....|
00000030: 1D 1D 1D 1D 1D 49 4E 53 45 52 54 20 53 54 41 4E |.....INSERT STAN|
00000040: 44 41 52 44 20 44 49 53 4B 11 11 22 00 74 08 78 |DARD DISK..".t.x|
00000050: 00 99 22 20 20 20 20 20 20 20 50 52 45 53 53 20 |.." PRESS |
00000060: 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 52 45 |.RETURN. WHEN RE|
00000070: 41 44 59 22 00 87 08 82 00 81 49 B2 31 A4 31 35 |ADY"......I.1.15|
00000080: 3A 97 36 34 36 2C 49 00 9C 08 8C 00 99 A3 31 33 |:.646,I.......13|
00000090: 29 22 91 12 52 45 54 55 52 4E 92 22 00 B2 08 96 |)"..RETURN."....|
000000A0: 00 A1 41 24 3A 8B 41 24 B2 C7 28 31 33 29 A7 31 |..A$:.A$..(13).1|
000000B0: 37 30 00 BD 08 A0 00 82 3A 89 31 33 30 00 CA 08 |70......:.130...|
000000C0: AA 00 83 20 31 36 39 2C 34 38 00 D7 08 B4 00 83 |... 169,48......|
000000D0: 20 31 33 33 2C 36 39 00 E4 08 BE 00 83 20 31 36 | 133,69...... 16|
000000E0: 39 2C 30 30 00 F1 08 C8 00 83 20 31 33 33 2C 36 |9,00...... 133,6|
000000F0: 33 00 02 09 D2 00 83 20 37 36 2C 31 37 37 2C 32 |3...... 76,177,2|
00000100: 34 33 00 08 09 DC 00 3A 00 38 09 E6 00 44 24 28 |43.....:.8...D$(|
00000110: 30 29 B2 22 30 30 22 3A 44 24 28 31 29 B2 22 30 |0)."00":D$(1)."0|
00000120: 31 22 3A 44 24 28 32 29 B2 22 31 30 22 3A 44 24 |1":D$(2)."10":D$|
00000130: 28 33 29 B2 22 31 31 22 00 46 09 F0 00 53 49 44 |(3)."11".F...SID|
00000140: B2 35 34 32 37 32 00 54 09 FA 00 86 20 46 44 24 |.54272.T.... FD$|
00000150: 28 31 36 29 00 7B 09 04 01 46 44 24 28 30 29 B2 |(16).{...FD$(0).|
00000160: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000170: 20 20 20 20 20 20 20 20 20 20 22 00 A2 09 0E 01 | ".....|
00000180: 46 44 24 28 31 29 B2 22 43 4C 45 41 4E 20 52 45 |FD$(1)."CLEAN RE|
00000190: 41 44 20 4F 46 20 54 52 41 43 4B 20 20 20 20 20 |AD OF TRACK |
000001A0: 20 22 00 C9 09 18 01 46 44 24 28 32 29 B2 22 43 | ".....FD$(2)."C|
000001B0: 4C 4F 53 45 20 54 4F 20 48 41 4C 46 57 41 59 20 |LOSE TO HALFWAY |
000001C0: 50 4F 49 4E 54 20 20 20 22 00 F0 09 22 01 46 44 |POINT "...".FD|
000001D0: 24 28 33 29 B2 22 45 58 41 43 54 4C 59 20 48 41 |$(3)."EXACTLY HA|
000001E0: 4C 46 20 42 45 54 57 45 45 4E 20 20 20 20 20 22 |LF BETWEEN "|
000001F0: 00 17 0A 2C 01 46 44 24 28 39 29 B2 22 43 4C 4F |...,.FD$(9)."CLO|
00000200: 53 45 20 54 4F 20 48 41 4C 46 57 41 59 20 50 4F |SE TO HALFWAY PO|
00000210: 49 4E 54 20 20 20 22 00 37 0A 36 01 54 B2 31 38 |INT ".7.6.T.18|
00000220: 3A 4E 31 24 B2 22 3F 22 3A 4E 32 24 B2 22 3F 22 |:N1$."?":N2$."?"|
00000230: 3A 54 52 B2 32 35 35 00 48 0A 54 01 9F 31 35 2C |:TR.255.H.T..15,|
00000240: 38 2C 31 35 2C 22 49 22 00 51 0A 5E 01 99 22 93 |8,15,"I".Q.^..".|
00000250: 22 00 57 0A 7C 01 3A 00 6E 0A 86 01 98 31 35 2C |".W.|.:.n....15,|
00000260: 22 4D 2D 52 22 C7 28 30 29 C7 28 32 38 29 00 89 |"M-R".(0).(28)..|
00000270: 0A 90 01 A1 23 31 35 2C 41 24 3A 8B 41 24 B2 22 |....#15,A$:.A$."|
00000280: 22 A7 41 24 B2 C7 28 30 29 00 95 0A 9A 01 41 B2 |".A$..(0).....A.|
00000290: C6 28 41 24 29 00 A0 0A A4 01 43 56 B2 33 AF 41 |.(A$).....CV.3.A|
000002A0: 00 CE 0A AE 01 41 B2 28 31 35 39 AF 41 29 B0 28 |.....A.(159.A).(|
000002B0: 39 36 AA 33 32 AC 28 28 54 B1 31 37 29 AA 28 54 |96.32.((T.17).(T|
000002C0: B1 32 34 29 AA 28 54 B1 33 30 30 29 29 29 00 EF |.24).(T.300)))..|
000002D0: 0A B8 01 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 |....15,"M-W".(0)|
000002E0: C7 28 32 38 29 C7 28 31 29 C7 28 41 B0 34 29 00 |.(28).(1).(A.4).|
000002F0: F5 0A D6 01 3A 00 17 0B E0 01 99 22 13 9F 11 20 |....:......"... |
00000300: 20 20 41 4C 49 47 4E 20 54 48 45 20 31 35 34 31 | ALIGN THE 1541|
00000310: 20 44 52 49 56 45 22 00 3D 0B EA 01 99 22 11 54 | DRIVE".=....".T|
00000320: 52 41 43 4B 20 23 20 46 52 4F 4D 20 53 54 45 50 |RACK # FROM STEP|
00000330: 50 45 52 3A 22 54 22 9D 20 20 20 20 22 00 5A 0B |PER:"T". ".Z.|
00000340: F4 01 99 22 11 48 45 41 44 20 50 4F 53 49 54 49 |...".HEAD POSITI|
00000350: 4F 4E 3A 22 46 44 24 28 45 29 00 96 0B FE 01 54 |ON:"FD$(E).....T|
00000360: 24 B2 C4 28 54 52 29 3A 53 24 B2 C4 28 53 45 29 |$..(TR):S$..(SE)|
00000370: 3A 8B 45 B3 B1 31 A7 54 24 B2 22 3F 3F 22 3A 4E |:.E..1.T$."??":N|
00000380: 31 24 B2 22 3F 22 3A 4E 32 24 B2 22 3F 22 3A 53 |1$."?":N2$."?":S|
00000390: 24 B2 22 3F 3F 22 00 B7 0B 08 02 99 22 54 52 41 |$."??"......"TRA|
000003A0: 43 4B 20 23 20 41 53 20 52 45 41 44 3A 20 20 22 |CK # AS READ: "|
000003B0: C9 28 54 24 2C 32 29 00 D8 0B 12 02 99 22 53 45 |.(T$,2)......"SE|
000003C0: 43 54 4F 52 20 23 20 41 53 20 52 45 41 44 3A 20 |CTOR # AS READ: |
000003D0: 22 C9 28 53 24 2C 32 29 00 F9 0B 1C 02 99 22 49 |".(S$,2)......"I|
000003E0: 44 20 4F 46 20 54 52 41 43 4B 20 52 45 41 44 3A |D OF TRACK READ:|
000003F0: 20 22 4E 31 24 3B 4E 32 24 00 0C 0C 26 02 99 22 | "N1$;N2$...&.."|
00000400: 11 11 43 4F 4D 4D 41 4E 44 53 3A 22 00 38 0C 30 |..COMMANDS:".8.0|
00000410: 02 99 22 11 20 20 46 31 20 3D 20 4D 4F 56 45 20 |..". F1 = MOVE |
00000420: 48 45 41 44 4F 55 54 20 28 4C 4F 57 45 52 20 54 |HEADOUT (LOWER T|
00000430: 52 41 43 4B 20 23 29 22 00 64 0C 3A 02 99 22 20 |RACK #)".d.:.." |
00000440: 20 46 33 20 3D 20 4D 4F 56 45 20 48 45 41 44 20 | F3 = MOVE HEAD |
00000450: 49 4E 20 28 48 49 47 48 45 52 20 54 52 41 43 4B |IN (HIGHER TRACK|
00000460: 20 23 29 22 00 87 0C 3F 02 99 22 20 20 46 35 20 | #)"...?.." F5 |
00000470: 3D 20 4D 4F 56 45 20 48 45 41 44 20 54 4F 20 54 |= MOVE HEAD TO T|
00000480: 52 41 43 4B 23 31 22 00 AB 0C 41 02 99 22 20 20 |RACK#1"...A.." |
00000490: 46 36 20 3D 20 4D 4F 56 45 20 48 45 41 44 20 54 |F6 = MOVE HEAD T|
000004A0: 4F 20 54 52 41 43 4B 23 33 35 22 00 CB 0C 44 02 |O TRACK#35"...D.|
000004B0: 99 22 20 20 46 37 20 3D 20 54 45 52 4D 49 4E 41 |." F7 = TERMINA|
000004C0: 54 45 20 50 52 4F 47 52 41 4D 22 00 F1 0C 4E 02 |TE PROGRAM"...N.|
000004D0: 99 22 20 20 20 49 20 3D 20 49 4E 49 54 49 41 4C |." I = INITIAL|
000004E0: 49 5A 45 20 28 54 4F 20 54 52 41 43 4B 20 31 38 |IZE (TO TRACK 18|
000004F0: 29 00 06 0D 58 02 A1 41 24 3A 41 B2 C6 28 41 24 |)...X..A$:A..(A$|
00000500: AA C7 28 30 29 29 00 15 0D 62 02 8B 41 B2 31 33 |..(0))...b..A.13|
00000510: 36 A7 38 30 30 00 26 0D 67 02 8B 41 B2 31 33 35 |6.800.&.g..A.135|
00000520: A7 8D 34 30 30 30 00 37 0D 69 02 8B 41 B2 31 33 |..4000.7.i..A.13|
00000530: 39 A7 8D 34 30 31 30 00 50 0D 6C 02 8B 41 B2 31 |9..4010.P.l..A.1|
00000540: 33 33 AF 54 B1 31 A7 43 B2 AB 31 3A 89 36 39 30 |33.T.1.C..1:.690|
00000550: 00 69 0D 76 02 8B 41 B2 31 33 34 AF 54 B3 33 35 |.i.v..A.134.T.35|
00000560: A7 43 B2 31 3A 89 36 39 30 00 8F 0D 80 02 8B 41 |.C.1:.690......A|
00000570: B2 37 33 A7 98 31 35 2C 22 49 22 3A 54 B2 31 38 |.73..15,"I":T.18|
00000580: 3A 45 B2 30 3A 41 B2 32 31 34 3A 89 34 32 30 00 |:E.0:A.214:.420.|
00000590: 98 0D 8A 02 89 38 39 30 00 9E 0D A8 02 3A 00 AE |.....890.....:..|
000005A0: 0D B2 02 43 56 B2 28 43 56 AA 43 29 AF 33 00 C4 |...CV.(CV.C).3..|
000005B0: 0D BC 02 54 B2 54 AA 43 AC 2E 35 3A 8B 54 B3 31 |...T.T.C..5:.T.1|
000005C0: A7 54 B2 31 00 D3 0D C6 02 8B 54 B1 33 36 A7 54 |.T.1......T.36.T|
000005D0: B2 33 36 00 DF 0D D0 02 42 B2 41 AF 32 35 32 00 |.36.....B.A.252.|
000005E0: EA 0D DA 02 43 B2 42 AA 43 56 00 09 0E E4 02 98 |....C.B.CV......|
000005F0: 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 38 |15,"M-W".(0).(28|
00000600: 29 C7 28 31 29 C7 28 43 29 00 11 0E EE 02 45 B2 |).(1).(C).....E.|
00000610: 30 00 1A 0E F8 02 89 33 39 30 00 20 0E 16 03 3A |0......390. ...:|
00000620: 00 41 0E 20 03 98 31 35 2C 22 4D 2D 57 22 C7 28 |.A. ..15,"M-W".(|
00000630: 30 29 C7 28 32 38 29 C7 28 31 29 C7 28 32 34 30 |0).(28).(1).(240|
00000640: 29 00 5A 0E 2A 03 81 49 B2 53 49 44 A4 53 49 44 |).Z.*..I.SID.SID|
00000650: AA 32 33 3A 97 49 2C 30 3A 82 00 6D 0E 34 03 81 |.23:.I,0:..m.4..|
00000660: 4B B2 31 A4 31 30 30 3A A1 41 24 3A 82 00 77 0E |K.1.100:.A$:..w.|
00000670: 3E 03 A0 31 35 3A 80 00 7D 0E 70 03 3A 00 89 0E |>..15:..}.p.:...|
00000680: 7A 03 8C 3A 43 24 B2 22 22 00 A5 0E 84 03 81 4B |z..:C$.""......K|
00000690: B2 31 A4 31 31 3A 87 58 3A 43 24 B2 43 24 AA C7 |.1.11:.X:C$.C$..|
000006A0: 28 58 29 3A 82 00 C2 0E 8E 03 98 31 35 2C 22 4D |(X):.......15,"M|
000006B0: 2D 57 22 C7 28 30 29 C7 28 33 29 C7 28 31 31 29 |-W".(0).(3).(11)|
000006C0: 43 24 00 C8 0E A2 03 3A 00 E8 0E B6 03 98 31 35 |C$.....:......15|
000006D0: 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 29 C7 28 |,"M-W".(0).(0).(|
000006E0: 31 29 C7 28 32 30 38 29 00 EE 0E CA 03 3A 00 04 |1).(208).....:..|
000006F0: 0F DE 03 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 |....15,"M-R".(0)|
00000700: C7 28 30 29 00 1D 0F E8 03 A1 23 31 35 2C 45 24 |.(0)......#15,E$|
00000710: 3A 45 B2 C6 28 45 24 AA C7 28 30 29 29 00 2D 0F |:E..(E$..(0)).-.|
00000720: F2 03 8B 45 B1 31 32 37 20 89 36 38 30 00 33 0F |...E.127 .680.3.|
00000730: 06 04 3A 00 4A 0F 10 04 8B 45 B2 33 A7 48 5A B2 |..:.J....E.3.HZ.|
00000740: 31 30 30 30 3A 8D 31 31 39 30 00 65 0F 1A 04 8B |1000:.1190.e....|
00000750: 45 B2 32 B0 45 B2 39 A7 48 5A B2 31 35 30 30 3A |E.2.E.9.HZ.1500:|
00000760: 8D 31 31 39 30 00 73 0F 24 04 8B 45 B3 B1 31 A7 |.1190.s.$..E..1.|
00000770: 33 39 30 00 79 0F 42 04 3A 00 94 0F 4C 04 98 31 |390.y.B.:...L..1|
00000780: 35 2C 22 4D 2D 52 22 C7 28 32 32 29 C7 28 30 29 |5,"M-R".(22).(0)|
00000790: C7 28 34 29 00 A1 0F 56 04 A1 23 31 35 2C 4E 31 |.(4)...V..#15,N1|
000007A0: 24 00 AE 0F 60 04 A1 23 31 35 2C 4E 32 24 00 C8 |$...`..#15,N2$..|
000007B0: 0F 6A 04 A1 23 31 35 2C 58 24 3A 54 52 B2 C6 28 |.j..#15,X$:TR..(|
000007C0: 58 24 AA C7 28 30 29 29 00 E2 0F 74 04 A1 23 31 |X$..(0))...t..#1|
000007D0: 35 2C 58 24 3A 53 45 B2 C6 28 58 24 AA C7 28 30 |5,X$:SE..(X$..(0|
000007E0: 29 29 00 EB 0F 7E 04 89 33 39 30 00 F1 0F 9C 04 |))...~..390.....|
000007F0: 3A 00 0A 10 A6 04 81 49 B2 53 49 44 A4 53 49 44 |:......I.SID.SID|
00000800: AA 32 33 3A 97 49 2C 30 3A 82 00 17 10 B0 04 97 |.23:.I,0:.......|
00000810: 53 49 44 AA 35 2C 39 00 24 10 BA 04 97 53 49 44 |SID.5,9.$....SID|
00000820: AA 36 2C 39 00 33 10 C4 04 97 53 49 44 AA 32 34 |.6,9.3....SID.24|
00000830: 2C 31 35 00 43 10 CE 04 97 53 49 44 AA 31 2C 45 |,15.C....SID.1,E|
00000840: AA 32 30 00 50 10 D8 04 97 53 49 44 2C 31 37 37 |.20.P....SID,177|
00000850: 00 68 10 E2 04 97 53 49 44 AA 34 2C 31 37 3A 81 |.h....SID.4,17:.|
00000860: 49 B2 31 A4 35 30 3A 82 00 79 10 EC 04 8F 20 50 |I.1.50:..y.... P|
00000870: CF 53 49 44 2B 32 34 2C 30 00 7F 10 F6 04 8E 00 |.SID+24,0.......|
00000880: 99 10 00 05 97 41 31 2C 38 35 3A 97 53 31 2C 31 |.....A1,85:.S1,1|
00000890: 35 30 3A 97 57 31 2C 36 35 00 AF 10 0A 05 8F 20 |50:.W1,65...... |
000008A0: 46 4F 52 4B 3D 31 54 4F 31 30 30 30 3A 4E C5 00 |FORK=1TO1000:N..|
000008B0: B5 10 14 05 8E 00 C7 10 A0 0F 54 B2 31 3A 53 B2 |..........T.1:S.|
000008C0: 30 3A 89 34 30 32 30 00 DA 10 AA 0F 54 B2 33 35 |0:.4020.....T.35|
000008D0: 3A 53 B2 30 3A 89 34 30 32 30 00 00 11 B4 0F 9F |:S.0:.4020......|
000008E0: 38 2C 38 2C 38 2C 22 23 22 3A 98 31 35 2C 22 55 |8,8,8,"#":.15,"U|
000008F0: 31 3A 22 3B 38 3B 30 3B 54 3B 53 3A A0 38 3A 8E |1:";8;0;T;S:.8:.|
00000900: 00 00 00 |... |
..$.D..".. 1541 ALIGNMENT".L.N
.."..........INSERT STANDARD DISK..".T.X
.." PRESS .RETURN. WHEN READY"....
..I.1.15:.646,I.......13)"..RETURN."....
..A$:.A$.G(13).170... ..:.130.J.... 169,
48.W.... 133,69...... 169,00...H.. 133,6
3...R.. 76,177,243.....:.8...D$(0)."00":
D$(1)."01":D$(2)."10":D$(3)."11".F...SID
.54272.T.... FD$(16).{...FD$(0)."
".....FD$(1)."CLEAN RE
AD OF TRACK ".I...FD$(2)."CLOSE TO
HALFWAY POINT "...".FD$(3)."EXACTLY HA
LF BETWEEN "...,.FD$(9)."CLOSE TO HA
LFWAY POINT ".7.6.T.18:N1$."?":N2$."?"
:TR.255.H.T..15,8,15,"I".Q.^..".".W.|.:.
N....15,"M-R"G(0)G(28)......#15,A$:.A$."
".A$.G(0).....A.F(A$). ...CV.3.A.N...A.(
159.A).(96.32.((T.17).(T.24).(T.300)))..
....15,"M-W"G(0)G(28)G(1)G(A.4)...V.:...
..."... ALIGN THE 1541 DRIVE".=....".T
RACK # FROM STEPPER:"T". ".Z....".HEA
D POSITION:"FD$(E).....T$.D(TR):S$.D(SE)
:.E..1.T$."??":N1$."?":N2$."?":S$."??"..
...."TRACK # AS READ: "I(T$,2).X...."SE
CTOR # AS READ: "I(S$,2)......"ID OF TRA
CK READ: "N1$;N2$...&.."..COMMANDS:".8.0
..". F1 = MOVE HEADOUT (LOWER TRACK #)"
.D.:.." F3 = MOVE HEAD IN (HIGHER TRACK
#)"...?.." F5 = MOVE HEAD TO TRACK#1".
..A.." F6 = MOVE HEAD TO TRACK#35".K.D.
." F7 = TERMINATE PROGRAM"...N.." I =
INITIALIZE (TO TRACK 18)...X..A$:A.F(A$
.G(0))...B..A.136.800.&.G..A.135..4000.7
.I..A.139..4010.P.L..A.133.T.1.C..1:.690
.I.V..A.134.T.35.C.1:.690......A.73..15,
"I":T.18:E.0:A.214:.420......890.....:..
...CV.(CV.C).3.D...T.T.C..5:.T.1.T.1.S.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......3
90. ...:.A. ..15,"M-W"G(0)G(28)G(1)G(240
).Z.*..I.SID.SID.23:.I,0:..M.4..K.1.100:
.A$:..W.>. 15:..}.P.:...Z..:C$.""......K
.1.11:.X:C$.C$.G(X):..B....15,"M-W"G(0)G
(3)G(11)C$.H...:......15,"M-W"G(0)G(0)G(
1)G(208)...J.:......15,"M-R"G(0)G(0)....
..#15,E$:E.F(E$.G(0)).-....E.127 .680.3.
..:.J....E.3.HZ.1000:.1190.E....E.2.E.9.
HZ.1500:.1190.S.$..E..1.390.Y.B.:...L..1
5,"M-R"G(22)G(0)G(4)...V..#15,N1$...`..#
15,N2$.H.J..#15,X$:TR.F(X$.G(0))...T..#1
5,X$:SE.F(X$.G(0))...~..390.....:......I
.SID.SID.23:.I,0:.......SID.5,9.$....SID
.6,9.3.D..SID.24,15.C.N..SID.1,E.20.P.X.
.SID,177.H....SID.4,17:.I.1.50:..Y.... P
OSID+24,0...........A1,85:.S1,150:.W1,6
5...... FORK=1TO1000:NE.......G. .T.1:S.
0:.4020.Z...T.35:S.0:.4020......8,8,8,"#
":.15,"U1:";8;0;T;S: 8:....
> CLICK IMAGE PREVIEW FOR FULL MODAL