> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 04 00 8F 20 56 49 43 31 35 34 30 20 |..@.... VIC1540 |
00000010: 41 4C 49 47 4E 20 42 59 20 4B 4E 55 44 20 48 41 |ALIGN BY KNUD HA|
00000020: 4E 53 45 4E 20 44 2E 31 33 2D 36 2D 38 32 20 43 |NSEN D.13-6-82 C|
00000030: 4F 4D 4D 4F 44 4F 52 45 20 44 45 4E 4D 41 52 4B |OMMODORE DENMARK|
00000040: 00 4B 08 05 00 99 C7 28 31 34 29 00 62 08 06 00 |.K.....(14).b...|
00000050: 97 35 39 34 36 38 2C 31 34 3A 97 35 33 32 38 31 |.59468,14:.53281|
00000060: 2C 31 00 9A 08 07 00 99 22 93 22 3A 99 A3 30 34 |,1......".":..04|
00000070: 29 22 11 11 1C C8 C5 C1 C4 20 C1 CC C9 C7 CE CD |)"....... ......|
00000080: C5 CE D4 A0 1F 22 3A 99 A3 35 29 22 20 20 20 20 |.....":..5)" |
00000090: D6 C9 C3 20 31 35 34 30 20 22 00 B1 08 08 00 99 |... 1540 "......|
000000A0: A3 35 29 22 41 4E 44 20 43 42 4D 20 32 30 33 31 |.5)"AND CBM 2031|
000000B0: 22 00 B9 08 0A 00 99 3A 99 00 C8 08 0F 00 44 4E |"......:......DN|
000000C0: B2 30 38 3A 54 B2 31 37 00 CF 08 14 00 A0 31 00 |.08:T.17......1.|
000000D0: 03 09 23 00 99 3A 99 A3 30 30 29 22 C9 4E 53 45 |..#..:..00)".NSE|
000000E0: 52 54 20 41 4C 49 47 4E 4D 45 4E 54 20 44 49 53 |RT ALIGNMENT DIS|
000000F0: 4B 20 20 20 20 20 50 52 45 53 53 20 12 53 50 41 |K PRESS .SPA|
00000100: 43 45 92 00 17 09 25 00 A1 48 24 3A 8B 48 24 B3 |CE....%..H$:.H$.|
00000110: B1 22 20 22 A7 33 37 00 20 09 27 00 99 22 93 22 |." ".37. .'.."."|
00000120: 00 2D 09 28 00 9F 31 2C 44 4E 2C 31 35 00 3E 09 |.-.(..1,DN,15.>.|
00000130: 32 00 49 24 B2 22 49 22 3A 98 31 2C 49 24 00 47 |2.I$."I":.1,I$.G|
00000140: 09 4E 00 99 22 93 22 00 6E 09 50 00 99 22 13 22 |.N..".".n.P.."."|
00000150: 3A 99 A3 30 32 29 22 11 11 1C 20 20 20 2A 20 C3 |:..02)"... * .|
00000160: CF CD CD C1 CE C4 D3 20 2A 20 20 20 1F 22 00 9C |....... * ."..|
00000170: 09 52 00 99 A3 30 37 29 22 20 20 20 20 20 20 20 |.R...07)" |
00000180: 20 22 3A 99 A3 30 32 29 22 11 12 49 92 20 3D 20 | ":..02)"..I. = |
00000190: 4F 4E 45 20 53 54 45 50 20 49 4E 22 00 BB 09 53 |ONE STEP IN"...S|
000001A0: 00 99 A3 30 32 29 22 11 12 4F 92 20 3D 20 4F 4E |...02)"..O. = ON|
000001B0: 45 20 53 54 45 50 20 4F 55 54 22 00 DB 09 54 00 |E STEP OUT"...T.|
000001C0: 99 A3 30 32 29 22 11 12 42 92 20 3D 20 42 55 4D |..02)"..B. = BUM|
000001D0: 50 20 20 20 20 20 20 20 20 20 22 00 F7 09 55 00 |P "...U.|
000001E0: 99 A3 30 32 29 22 11 12 48 92 20 3D 20 48 59 53 |..02)"..H. = HYS|
000001F0: 54 45 52 49 53 49 53 00 0F 0A 57 00 99 A3 30 32 |TERISIS...W...02|
00000200: 29 22 11 12 44 92 20 3D 20 44 4F 4E 45 20 22 00 |)"..D. = DONE ".|
00000210: 2A 0A 58 00 99 A3 30 32 29 22 11 12 54 92 20 3D |*.X...02)"..T. =|
00000220: 20 52 2F 57 20 54 45 53 54 22 00 48 0A 59 00 99 | R/W TEST".H.Y..|
00000230: A3 30 32 29 22 11 54 52 41 43 4B 20 4E 52 3A 20 |.02)".TRACK NR: |
00000240: 20 20 9D 9D 9D 22 3B 54 00 68 0A 5A 00 4A 42 B2 | ...";T.h.Z.JB.|
00000250: 31 37 36 3A A1 42 24 3A 8B 42 24 B2 22 22 A7 3A |176:.B$:.B$."".:|
00000260: 8D 31 35 30 3A 89 38 30 00 84 0A 64 00 8B 42 24 |.150:.80...d..B$|
00000270: B2 22 49 22 A7 3A 54 B2 54 AA 31 3A 8D 31 35 30 |."I".:T.T.1:.150|
00000280: 3A 89 38 30 00 A0 0A 6E 00 8B 42 24 B2 22 4F 22 |:.80...n..B$."O"|
00000290: A7 3A 54 B2 54 AB 31 3A 8D 31 35 30 3A 89 38 30 |.:T.T.1:.150:.80|
000002A0: 00 C1 0A 73 00 8B 42 24 B2 22 42 22 A7 4A 42 B2 |...s..B$."B".JB.|
000002B0: 31 39 32 3A 54 B2 31 37 3A 8D 31 35 30 3A 89 38 |192:T.17:.150:.8|
000002C0: 30 00 D9 0A 78 00 8B 42 24 B2 22 48 22 A7 4A 42 |0...x..B$."H".JB|
000002D0: B2 31 37 36 3A 89 32 30 30 00 EE 0A 7D 00 8B 42 |.176:.200...}..B|
000002E0: 24 B2 22 44 22 A7 54 B2 31 3A 89 35 30 30 00 05 |$."D".T.1:.500..|
000002F0: 0B 82 00 8B 42 24 B2 22 54 22 A7 8D 38 30 30 3A |....B$."T"..800:|
00000300: 89 31 32 30 30 00 16 0B 8C 00 8B 42 24 B3 B1 22 |.1200......B$.."|
00000310: 54 22 A7 89 38 30 00 44 0B 96 00 8B 54 B3 31 A7 |T"..80.D....T.1.|
00000320: 99 A3 30 32 29 22 12 1C 11 4D 49 4E 2E 20 31 22 |..02)"...MIN. 1"|
00000330: 3A 81 58 B2 31 A4 35 30 30 3A 82 3A 99 22 93 22 |:.X.1.500:.:."."|
00000340: 3A 54 B2 31 00 75 0B 9B 00 8B 54 B1 33 35 A7 99 |:T.1.u....T.35..|
00000350: A3 30 32 29 22 12 1C 11 4D 41 58 2E 20 33 35 22 |.02)"...MAX. 35"|
00000360: 3A 81 58 B2 31 A4 35 30 30 3A 82 3A 99 22 93 22 |:.X.1.500:.:."."|
00000370: 3A 54 B2 33 35 00 92 0B 9D 00 98 31 2C 22 4D 2D |:T.35......1,"M-|
00000380: 57 22 C7 28 36 29 C7 28 30 29 C7 28 31 29 C7 28 |W".(6).(0).(1).(|
00000390: 54 29 00 B0 0B A0 00 98 31 2C 22 4D 2D 57 22 C7 |T)......1,"M-W".|
000003A0: 28 30 29 C7 28 30 29 C7 28 31 29 C7 28 4A 42 29 |(0).(0).(1).(JB)|
000003B0: 00 C5 0B AA 00 98 31 2C 22 4D 2D 52 22 C7 28 30 |......1,"M-R".(0|
000003C0: 29 C7 28 30 29 00 EA 0B B4 00 A1 23 31 2C 58 24 |).(0)......#1,X$|
000003D0: 3A 59 24 B2 58 24 AA C7 28 30 29 3A 8B C6 28 59 |:Y$.X$..(0):..(Y|
000003E0: 24 29 B1 31 32 37 A7 31 37 30 00 F0 0B BE 00 8E |$).127.170......|
000003F0: 00 FC 0B C8 00 48 59 B2 48 59 AA 31 00 1B 0C D2 |.....HY.HY.1....|
00000400: 00 8B 48 59 AF 31 A7 54 B2 54 AA 34 3A 8D 31 35 |..HY.1.T.T.4:.15|
00000410: 30 3A 54 B2 54 AB 34 3A 89 38 30 00 34 0C DC 00 |0:T.T.4:.80.4...|
00000420: 54 B2 54 AB 34 3A 8D 31 35 30 3A 54 B2 54 AA 34 |T.T.4:.150:T.T.4|
00000430: 3A 89 38 30 00 5B 0C F4 01 99 22 93 11 11 1C 20 |:.80.[....".... |
00000440: C1 C4 CA D5 D3 D4 CD C5 CE D4 20 CF C6 20 D4 D2 |.......... .. ..|
00000450: C1 C3 CB 31 20 20 D3 D4 CF D0 22 00 A2 0C FE 01 |...1 ....".....|
00000460: 99 22 11 11 1F 20 C1 44 4A 55 53 54 20 43 41 52 |."... .DJUST CAR|
00000470: 52 49 41 47 45 20 4C 49 4D 49 54 20 53 54 4F 50 |RIAGE LIMIT STOP|
00000480: 20 50 4C 41 54 45 20 46 4F 52 20 30 2E 30 31 30 | PLATE FOR 0.010|
00000490: 20 20 49 4E 43 48 20 43 4C 45 41 52 41 4E 43 45 | INCH CLEARANCE|
000004A0: 20 22 00 E3 0C 08 02 99 22 20 42 45 54 57 45 45 | "......" BETWEE|
000004B0: 4E 20 4C 49 4D 49 54 20 53 54 4F 50 20 2D 20 20 |N LIMIT STOP - |
000004C0: 50 4C 41 54 45 20 41 4E 44 20 48 55 42 20 4F 46 |PLATE AND HUB OF|
000004D0: 20 20 20 20 20 20 53 54 45 50 50 45 52 20 43 41 | STEPPER CA|
000004E0: 4D 2E 22 00 0D 0D 12 02 99 A3 35 29 22 11 11 11 |M.".......5)"...|
000004F0: D0 52 45 53 53 20 12 53 50 41 43 45 92 22 3A 99 |.RESS .SPACE.":.|
00000500: A3 36 29 22 11 57 48 45 4E 20 CF CB 22 00 16 0D |.6)".WHEN .."...|
00000510: 1C 02 8D 31 35 30 00 2C 0D 26 02 A1 43 24 3A 8B |...150.,.&..C$:.|
00000520: 43 24 B3 B1 22 20 22 A7 89 35 34 30 00 41 0D 30 |C$.." "..540.A.0|
00000530: 02 4A 42 B2 31 39 32 3A 54 B2 31 37 3A 8D 31 35 |.JB.192:T.17:.15|
00000540: 30 00 4C 0D 35 02 4A 42 B2 31 37 36 00 67 0D 3A |0.L.5.JB.176.g.:|
00000550: 02 99 22 93 11 11 11 20 C9 53 20 43 41 54 53 20 |..".... .S CATS |
00000560: 45 59 45 20 4F 4B 3F 00 7F 0D 44 02 99 22 11 11 |EYE OK?...D.."..|
00000570: 11 11 20 D0 52 45 53 53 20 12 D9 2F CE 92 22 00 |.. .RESS ../..".|
00000580: 98 0D 4E 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 8D |..N..A$:.A$.""..|
00000590: 31 35 30 3A 89 35 39 30 00 A9 0D 58 02 8B 41 24 |150:.590...X..A$|
000005A0: B2 22 59 22 A7 89 38 30 30 00 B9 0D 62 02 8B 41 |."Y"..800...b..A|
000005B0: 24 B2 22 4E 22 A7 89 37 38 00 CB 0D 64 02 8B 41 |$."N"..78...d..A|
000005C0: 24 B3 B1 22 59 22 A7 89 35 39 30 00 E5 0D 20 03 |$.."Y"..590... .|
000005D0: 41 46 B2 30 3A A0 37 3A A0 31 35 3A 9F 31 35 2C |AF.0:.7:.15:.15,|
000005E0: 44 4E 2C 31 35 00 00 0E 34 03 99 22 93 22 3A 99 |DN,15...4..".":.|
000005F0: A3 37 29 22 11 11 1C D2 2F D7 20 D4 C5 D3 D4 22 |.7)"..../. ...."|
00000600: 00 2B 0E 3E 03 99 22 11 11 1F 20 C9 4E 53 45 52 |.+.>.."... .NSER|
00000610: 54 20 46 4F 52 4D 41 54 45 44 20 44 49 53 4B 20 |T FORMATED DISK |
00000620: 20 20 20 20 20 20 20 20 20 20 22 00 46 0E 48 03 | ".F.H.|
00000630: 99 A3 36 29 22 11 11 11 D0 52 45 53 53 20 12 53 |..6)"....RESS .S|
00000640: 50 41 43 45 92 22 00 5B 0E 52 03 A1 44 24 3A 8B |PACE.".[.R..D$:.|
00000650: 44 24 B3 B1 22 20 22 A7 38 35 30 00 7F 0E 5C 03 |D$.." ".850...\.|
00000660: 4E 24 B2 22 4E 22 AA C4 28 30 29 AA 22 3A 22 3A |N$."N"..(0).":":|
00000670: 46 44 24 B2 22 54 45 53 54 22 3A 41 46 B2 30 00 |FD$."TEST":AF.0.|
00000680: 96 0E 66 03 99 22 11 1C 20 CE 45 57 49 4E 47 20 |..f..".. .EWING |
00000690: 54 45 53 54 1F 22 00 B9 0E 70 03 41 47 B2 30 3A |TEST."...p.AG.0:|
000006A0: 98 31 35 2C 4E 24 2C 46 44 24 3A 8D 31 30 30 30 |.15,N$,FD$:.1000|
000006B0: 3A 8B 41 47 A7 41 46 B2 31 00 DA 0E 7A 03 99 22 |:.AG.AF.1...z.."|
000006C0: 11 11 20 4E 45 57 49 4E 47 20 54 45 53 54 22 3B |.. NEWING TEST";|
000006D0: 3A 8B 41 46 A7 99 22 12 22 3B 00 EB 0E 84 03 99 |:.AF..".";......|
000006E0: 42 24 3A 8B 41 46 A7 31 31 30 30 00 FB 0E 8E 03 |B$:.AF.1100.....|
000006F0: 81 49 B2 31 A4 31 30 30 30 3A 82 00 0B 0F 98 03 |.I.1.1000:......|
00000700: 9F 37 2C 44 4E 2C 37 2C 22 23 22 00 33 0F A2 03 |.7,DN,7,"#".3...|
00000710: 99 22 11 1C 20 D7 52 49 54 45 2F 52 45 41 44 20 |.".. .RITE/READ |
00000720: 54 45 53 54 53 11 1F 22 3A 81 54 52 B2 31 A4 33 |TESTS..":.TR.1.3|
00000730: 35 A9 32 00 3C 0F A7 03 41 47 B2 30 00 52 0F AC |5.2.<...AG.0.R..|
00000740: 03 98 31 35 2C 22 55 32 22 3B 37 3B 30 3B 54 52 |..15,"U2";7;0;TR|
00000750: 3B 31 00 66 0F B6 03 8D 31 30 30 30 3A 8B 41 47 |;1.f....1000:.AG|
00000760: B2 30 A7 39 38 30 00 74 0F C0 03 8B 41 47 B3 33 |.0.980.t....AG.3|
00000770: A7 39 34 30 00 7D 0F CA 03 41 46 B2 31 00 A3 0F |.940.}...AF.1...|
00000780: D4 03 99 22 11 57 52 49 54 45 2F 52 45 41 44 20 |...".WRITE/READ |
00000790: 54 52 41 43 4B 22 54 52 3B 3A 8B 41 47 A7 99 22 |TRACK"TR;:.AG.."|
000007A0: 12 22 3B 00 B0 0F D9 03 99 42 24 22 20 22 41 24 |.";......B$" "A$|
000007B0: 00 B6 0F DE 03 82 00 BD 0F E3 03 A0 37 00 C7 0F |............7...|
000007C0: E5 03 89 31 32 30 30 00 DB 0F E8 03 84 31 35 2C |...1200......15,|
000007D0: 41 24 2C 42 24 2C 43 24 2C 44 24 00 F1 0F F2 03 |A$,B$,C$,D$.....|
000007E0: 8B 41 24 B3 B1 22 30 30 22 A7 41 47 B2 41 47 AA |.A$.."00".AG.AG.|
000007F0: 31 00 F7 0F FC 03 8E 00 22 10 4C 04 99 22 11 11 |1.......".L.."..|
00000800: 1D 50 52 45 45 53 20 12 53 50 41 43 45 92 20 54 |.PREES .SPACE. T|
00000810: 4F 20 20 20 20 20 20 20 20 43 4F 4E 54 49 4E 55 |O CONTINU|
00000820: 45 22 00 39 10 56 04 99 22 11 20 12 52 92 20 54 |E".9.V..". .R. T|
00000830: 4F 20 52 45 50 45 41 54 22 00 4E 10 60 04 A1 4B |O REPEAT".N.`..K|
00000840: 24 3A 8B 4B 24 B2 22 20 22 A7 89 39 32 30 00 61 |$:.K$." "..920.a|
00000850: 10 6A 04 8B 4B 24 B3 B1 22 52 22 A7 89 31 31 32 |.j..K$.."R"..112|
00000860: 30 00 6A 10 74 04 89 38 30 30 00 70 10 7E 04 8E |0.j.t..800.p.~..|
00000870: 00 8A 10 B0 04 99 A3 34 29 22 11 1C D4 C5 D3 D4 |.......4)"......|
00000880: 20 C6 C9 CE C9 D3 C8 C5 C4 22 00 BB 10 C4 04 99 | ........"......|
00000890: 22 11 1F 20 20 20 20 20 D0 52 45 53 53 20 12 53 |".. .RESS .S|
000008A0: 50 41 43 45 92 20 20 20 20 20 20 20 20 20 20 20 |PACE. |
000008B0: 46 4F 52 20 52 45 50 45 41 54 22 00 DA 10 CE 04 |FOR REPEAT".....|
000008C0: 99 22 11 20 20 20 20 4F 52 20 12 46 92 20 46 4F |.". OR .F. FO|
000008D0: 52 20 46 49 4E 49 53 48 20 22 00 EE 10 D8 04 A1 |R FINISH "......|
000008E0: 41 24 3A 8B 41 24 B2 22 20 22 A7 89 35 30 00 01 |A$:.A$." "..50..|
000008F0: 11 E2 04 8B 41 24 B3 B1 22 46 22 A7 89 31 32 34 |....A$.."F"..124|
00000900: 30 00 00 00 A4 11 |0..... |
..@.... VIC1540 ALIGN BY KNUD HANSEN D.1
3-6-82 COMMODORE DENMARK.K....G(14).B...
.59468,14:.53281,1......".":..04)"...HEA
D ALIGNMENT .":..5)" VIC 1540 "......
.5)"AND CBM 2031"......:..H...DN.08:T.17
.O... 1...#..:..00)"INSERT ALIGNMENT DIS
K PRESS .SPACE....%..H$:.H$.." ".37.
.'..".".-.(..1,DN,15.>.2.I$."I":.1,I$.G
.N..".".N.P..".":..02)"... * COMMANDS
* ."...R...07)" ":..02)"..I. =
ONE STEP IN"...S...02)"..O. = ONE STEP O
UT"...T...02)"..B. = BUMP "...U.
..02)"..H. = HYSTERISIS...W...02)"..D. =
DONE ".*.X...02)"..T. = R/W TEST".H.Y..
.02)".TRACK NR: ...";T.H.Z.JB.176:.B$:
.B$."".:.150:.80...D..B$."I".:T.T.1:.150
:.80. .N..B$."O".:T.T.1:.150:.80.A.S..B$
."B".JB.192:T.17:.150:.80.Y.X..B$."H".JB
.176:.200...}..B$."D".T.1:.500......B$."
T"..800:.1200......B$.."T"..80.D....T.1.
..02)"...MIN. 1":.X.1.500:.:.".":T.1.U..
..T.35...02)"...MAX. 35":.X.1.500:.:."."
:T.35......1,"M-W"G(6)G(0)G(1)G(T)... ..
1,"M-W"G(0)G(0)G(1)G(JB).E....1,"M-R"G(0
)G(0)......#1,X$:Y$.X$.G(0):.F(Y$).127.1
70.........H.HY.HY.1...R..HY.1.T.T.4:.15
0:T.T.4:.80.4...T.T.4:.150:T.T.4:.80.[..
..".... ADJUSTMENT OF TRACK1 STOP".....
."... ADJUST CARRIAGE LIMIT STOP PLATE F
OR 0.010 INCH CLEARANCE "......" BETWEE
N LIMIT STOP - PLATE AND HUB OF ST
EPPER CAM.".......5)"...PRESS .SPACE.":.
.6)".WHEN OK"......150.,.&..C$:.C$.." ".
.540.A.0.JB.192:T.17:.150.L.5.JB.176.G.:
..".... IS CATS EYE OK?..D..".... PRESS
.Y/N."...N..A$:.A$.""..150:.590...X..A$
."Y"..800...B..A$."N"..78.K.D..A$.."Y"..
590... .AF.0: 7: 15:.15,DN,15...4..".":.
.7)"...R/W TEST".+.>.."... INSERT FORMAT
ED DISK ".F.H...6)"...PRESS .S
PACE.".[.R..D$:.D$.." ".850..\.N$."N".D
(0).":":FD$."TEST":AF.0...F..".. NEWING
TEST."...P.AG.0:.15,N$,FD$:.1000:.AG.AF.
1.Z.Z..".. NEWING TEST";:.AF..".";......
B$:.AF.1100......I.1.1000:.......7,DN,7,
"#".3....".. WRITE/READ TESTS..":.TR.1.3
5.2.<...AG.0.R....15,"U2";7;0;TR;1.F....
1000:.AG.0.980.T....AG.3.940.}.J.AF.1...
T..".WRITE/READ TRACK"TR;:.AG..".";...Y.
.B$" "A$........... 7.G....1200......15,
A$,B$,C$,D$......A$.."00".AG.AG.1.......
".L.."...PREES .SPACE. TO CONTINU
E".9.V..". .R. TO REPEAT".N.`..K$:.K$."
"..920.A.J..K$.."R"..1120.J.T..800.P.~..
.......4)"..TEST FINISHED"...D.."..
PRESS .SPACE. FOR REPEAT".Z.N.
.". OR .F. FOR FINISH "...X..A$:.A$."
"..50......A$.."F"..1240.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL