> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 64 00 8F 20 27 31 35 34 31 20 53 50 |....d.. '1541 SP|
00000010: 45 45 44 2D 48 45 41 44 27 00 2B 08 69 00 8F 20 |EED-HEAD'.+.i.. |
00000020: 44 2E 4E 2E 20 41 52 4E 4F 4C 44 00 41 08 6A 00 |D.N. ARNOLD.A.j.|
00000030: 8F 20 4B 49 52 4B 53 56 49 4C 4C 45 2C 20 4D 4F |. KIRKSVILLE, MO|
00000040: 2E 00 50 08 6B 00 8F 20 4D 41 59 20 31 39 38 37 |..P.k.. MAY 1987|
00000050: 00 56 08 6E 00 8F 00 85 08 78 00 86 20 41 2C 4B |.V.n.....x.. A,K|
00000060: 24 2C 43 31 2C 44 44 25 2C 41 53 25 2C 41 46 25 |$,C1,DD%,AS%,AF%|
00000070: 2C 41 4D 25 2C 49 52 25 2C 45 4E 2C 45 4D 24 2C |,AM%,IR%,EN,EM$,|
00000080: 45 54 2C 45 53 00 A3 08 82 00 44 44 25 B2 38 3A |ET,ES.....DD%.8:|
00000090: 20 20 8F 20 44 45 46 41 55 4C 54 20 44 45 56 49 | . DEFAULT DEVI|
000000A0: 43 45 23 00 C6 08 8C 00 41 53 25 B2 31 3A 20 20 |CE#.....AS%.1: |
000000B0: 8F 20 23 20 41 43 43 45 4C 45 52 41 54 49 4F 4E |. # ACCELERATION|
000000C0: 20 53 54 45 50 53 00 E8 08 96 00 41 46 25 B2 31 | STEPS.....AF%.1|
000000D0: 32 3A 20 8F 20 41 43 43 45 4C 45 52 41 54 49 4F |2: . ACCELERATIO|
000000E0: 4E 20 46 41 43 54 4F 52 00 18 09 A0 00 41 4D 25 |N FACTOR.....AM%|
000000F0: B2 33 3A 20 20 8F 20 4D 49 4E 49 4D 55 4D 20 23 |.3: . MINIMUM #|
00000100: 20 53 54 45 50 53 20 46 4F 52 20 46 41 53 54 20 | STEPS FOR FAST |
00000110: 53 54 45 50 50 49 4E 47 00 3F 09 AA 00 49 52 25 |STEPPING.?...IR%|
00000120: B2 33 30 3A 20 8F 20 4E 45 57 20 44 4F 53 20 49 |.30: . NEW DOS I|
00000130: 52 51 20 54 49 4D 45 52 20 48 49 2D 42 59 54 00 |RQ TIMER HI-BYT.|
00000140: 5A 09 B4 00 43 31 B2 35 36 33 32 30 3A 20 8F 20 |Z...C1.56320: . |
00000150: 43 49 41 23 31 20 42 41 53 45 00 77 09 BE 00 96 |CIA#1 BASE.w....|
00000160: 20 A5 42 53 28 41 29 B2 28 41 B1 B2 30 20 AF 20 | .BS(A).(A..0 . |
00000170: 41 B3 B2 32 35 35 29 00 81 09 C8 00 8F 20 2D 2D |A..255)...... --|
00000180: 2D 00 B7 09 D2 00 8B 20 A5 42 53 28 41 53 25 29 |-...... .BS(AS%)|
00000190: 20 AF 20 A5 42 53 28 41 46 25 29 20 AF 20 A5 42 | . .BS(AF%) . .B|
000001A0: 53 28 41 4D 25 29 20 AF 20 A5 42 53 28 49 52 25 |S(AM%) . .BS(IR%|
000001B0: 29 20 A7 20 32 34 30 00 DB 09 DC 00 99 20 22 12 |) . 240...... ".|
000001C0: D0 41 52 41 4D 45 54 45 52 28 53 29 20 4F 55 54 |.ARAMETER(S) OUT|
000001D0: 20 4F 46 20 52 41 4E 47 45 2E 22 00 E1 09 E6 00 | OF RANGE.".....|
000001E0: 90 00 E9 09 F0 00 8F 20 2D 00 1A 0A FA 00 8B 20 |....... -...... |
000001F0: 41 53 25 B3 31 20 A7 20 99 20 22 12 23 20 41 43 |AS%.1 . . ".# AC|
00000200: 43 45 4C 20 53 54 45 50 53 20 4F 55 54 20 4F 46 |CEL STEPS OUT OF|
00000210: 20 52 41 4E 47 45 2E 22 3A 90 00 57 0A 04 01 8B | RANGE.":..W....|
00000220: 20 49 52 25 AB 28 41 46 25 AC 41 53 25 29 B3 31 | IR%.(AF%.AS%).1|
00000230: 36 20 A7 20 99 20 22 12 D4 4F 4F 20 4D 55 43 48 |6 . . "..OO MUCH|
00000240: 20 54 4F 54 41 4C 20 41 43 43 45 4C 45 52 41 54 | TOTAL ACCELERAT|
00000250: 49 4F 4E 2E 22 3A 90 00 88 0A 0E 01 8B 20 49 52 |ION.":....... IR|
00000260: 25 B1 32 35 30 20 A7 20 99 20 22 12 C9 D2 D1 20 |%.250 . . ".... |
00000270: 54 49 4D 45 52 20 56 41 4C 55 45 20 54 4F 4F 20 |TIMER VALUE TOO |
00000280: 48 49 47 48 2E 22 3A 90 00 C2 0A 18 01 8B 20 41 |HIGH.":....... A|
00000290: 4D 25 B3 28 41 53 25 AC 32 AA 31 29 20 A7 20 99 |M%.(AS%.2.1) . .|
000002A0: 20 22 12 D4 4F 4F 20 4D 41 4E 59 20 41 43 43 45 | "..OO MANY ACCE|
000002B0: 4C 45 52 41 54 49 4F 4E 20 53 54 45 50 53 2E 22 |LERATION STEPS."|
000002C0: 3A 90 00 CC 0A 22 01 8F 20 2D 2D 2D 00 E8 0A 2C |:....".. ---...,|
000002D0: 01 99 20 22 0E 91 12 20 31 35 34 31 20 53 50 45 |.. "... 1541 SPE|
000002E0: 45 44 2D 48 45 41 44 22 00 13 0B 36 01 99 20 22 |ED-HEAD"...6.. "|
000002F0: D0 52 4F 56 49 44 45 53 20 46 41 53 54 45 52 20 |.ROVIDES FASTER |
00000300: 31 35 34 31 20 48 45 41 44 20 4D 4F 54 49 4F 4E |1541 HEAD MOTION|
00000310: 20 26 22 00 3A 0B 40 01 99 20 22 48 49 47 48 45 | &".:.@.. "HIGHE|
00000320: 52 20 C4 CF D3 20 49 4E 54 45 52 55 50 54 20 46 |R ... INTERUPT F|
00000330: 52 45 51 55 45 4E 43 59 2E 22 00 58 0B 4A 01 99 |REQUENCY.".X.J..|
00000340: 20 41 53 25 20 A3 36 29 20 22 23 20 41 43 43 45 | AS% .6) "# ACCE|
00000350: 4C 20 53 54 45 50 53 22 00 75 0B 54 01 99 20 41 |L STEPS".u.T.. A|
00000360: 46 25 20 A3 36 29 20 22 41 43 43 45 4C 20 46 41 |F% .6) "ACCEL FA|
00000370: 43 54 4F 52 22 00 A2 0B 5E 01 99 20 20 20 20 20 |CTOR"...^.. |
00000380: A3 36 29 20 22 20 20 28 D3 55 42 54 52 41 43 54 |.6) " (.UBTRACT|
00000390: 45 44 20 46 52 4F 4D 20 C9 D2 D1 20 54 49 4D 45 |ED FROM ... TIME|
000003A0: 52 22 00 CA 0B 68 01 99 20 20 20 20 20 A3 36 29 |R"...h.. .6)|
000003B0: 20 22 20 20 20 41 54 20 45 41 43 48 20 41 43 43 | " AT EACH ACC|
000003C0: 45 4C 20 53 54 45 50 2E 29 22 00 E8 0B 72 01 99 |EL STEP.)"...r..|
000003D0: 20 41 4D 25 20 A3 36 29 20 22 41 43 43 45 4C 20 | AM% .6) "ACCEL |
000003E0: 4D 49 4E 49 4D 55 4D 22 00 16 0C 7C 01 99 20 20 |MINIMUM"...|.. |
000003F0: 20 20 20 A3 36 29 20 22 20 20 28 4D 49 4E 49 4D | .6) " (MINIM|
00000400: 55 4D 20 23 20 53 54 45 50 53 20 54 4F 20 41 43 |UM # STEPS TO AC|
00000410: 54 49 56 41 54 45 00 3D 0C 86 01 99 20 20 20 20 |TIVATE.=.... |
00000420: 20 A3 36 29 20 22 20 20 20 53 54 45 50 20 41 43 | .6) " STEP AC|
00000430: 43 45 4C 45 52 41 54 49 4F 4E 2E 29 22 00 63 0C |CELERATION.)".c.|
00000440: 90 01 99 20 49 52 25 20 A3 36 29 20 22 C4 CF D3 |... IR% .6) "...|
00000450: 20 C9 D2 D1 20 54 49 4D 45 52 20 48 49 2D 48 59 | ... TIMER HI-HY|
00000460: 54 45 22 00 6D 0C 9A 01 8F 20 2D 2D 2D 00 98 0C |TE".m.... ---...|
00000470: A4 01 99 20 22 C5 4E 54 45 52 20 44 49 53 4B 20 |... ".NTER DISK |
00000480: 55 4E 49 54 23 20 4F 52 20 12 20 51 20 92 20 54 |UNIT# OR . Q . T|
00000490: 4F 20 51 55 49 54 2E 22 00 AE 0C AE 01 99 20 22 |O QUIT."...... "|
000004A0: 20 22 20 44 44 25 20 22 9D 9D 9D 9D 22 3B 00 C5 | " DD% "....";..|
000004B0: 0C B8 01 8D 20 36 38 30 3A 20 8F 20 4B 59 42 44 |.... 680: . KYBD|
000004C0: 20 49 4E 50 54 00 DF 0C C2 01 8B 20 4B 24 B2 22 | INPT...... K$."|
000004D0: 51 22 20 B0 20 4B 24 B2 22 D1 22 20 A7 20 80 00 |Q" . K$."." . ..|
000004E0: ED 0C CC 01 44 44 25 B2 C5 28 4B 24 29 00 1E 0D |....DD%..(K$)...|
000004F0: D6 01 8B 20 44 44 25 B3 38 20 B0 20 44 44 25 B1 |... DD%.8 . DD%.|
00000500: 31 31 20 A7 20 99 20 22 12 C9 4E 56 41 4C 49 44 |11 . . "..NVALID|
00000510: 20 55 4E 49 54 23 2E 22 3A 89 20 34 31 30 00 28 | UNIT#.":. 410.(|
00000520: 0D E0 01 8F 20 2D 2D 2D 00 37 0D EA 01 9F 20 31 |.... ---.7.... 1|
00000530: 2C 44 44 25 2C 31 35 00 41 0D F4 01 8D 20 36 32 |,DD%,15.A.... 62|
00000540: 30 00 52 0D FE 01 8B 20 45 4E 20 A7 20 A0 20 31 |0.R.... EN . . 1|
00000550: 3A 90 00 5C 0D 08 02 8F 20 2D 2D 2D 00 88 0D 12 |:..\.... ---....|
00000560: 02 98 31 2C 22 4D 2D 57 22 20 C7 28 39 34 29 20 |..1,"M-W" .(94) |
00000570: C7 28 30 29 20 C7 28 32 29 20 C7 28 41 53 25 29 |.(0) .(2) .(AS%)|
00000580: 20 C7 28 41 46 25 29 3B 00 AE 0D 1C 02 98 31 2C | .(AF%);......1,|
00000590: 22 4D 2D 57 22 20 C7 28 31 30 30 29 20 C7 28 30 |"M-W" .(100) .(0|
000005A0: 29 20 C7 28 31 29 20 C7 28 41 4D 25 29 3B 00 D3 |) .(1) .(AM%);..|
000005B0: 0D 26 02 98 31 2C 22 4D 2D 57 22 20 C7 28 35 29 |.&..1,"M-W" .(5)|
000005C0: 20 C7 28 32 38 29 20 C7 28 31 29 20 C7 28 49 52 | .(28) .(1) .(IR|
000005D0: 25 29 3B 00 DD 0D 30 02 8F 20 2D 2D 2D 00 E5 0D |%);...0.. ---...|
000005E0: 3A 02 A0 20 31 00 EF 0D 44 02 8F 20 2D 2D 2D 00 |:.. 1...D.. ---.|
000005F0: 00 0E 4E 02 99 20 22 12 20 44 4F 4E 45 20 92 22 |..N.. ". DONE ."|
00000600: 00 19 0E 58 02 89 20 34 31 30 20 3A 20 8F 20 44 |...X.. 410 : . D|
00000610: 4F 20 41 4E 4F 54 48 45 52 00 25 0E 62 02 8F 20 |O ANOTHER.%.b.. |
00000620: 3D 3D 3D 3D 3D 00 47 0E 6C 02 8F 20 2D 3C 20 52 |=====.G.l.. -< R|
00000630: 45 41 44 20 44 4F 53 20 43 4D 4D 44 20 43 48 41 |EAD DOS CMMD CHA|
00000640: 4E 4E 45 4C 20 3E 2D 00 5B 0E 76 02 84 31 2C 45 |NNEL >-.[.v..1,E|
00000650: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 6E 0E 80 02 |N,EM$,ET,ES.n...|
00000660: 8B 20 45 4E B2 37 33 20 A7 20 45 4E B2 30 00 88 |. EN.73 . EN.0..|
00000670: 0E 8A 02 8B 20 45 4E 20 A7 20 99 20 45 4E 3B 45 |.... EN . . EN;E|
00000680: 4D 24 3B 45 54 3B 45 53 00 8E 0E 94 02 8E 00 98 |M$;ET;ES........|
00000690: 0E 9E 02 8F 20 3D 3D 3D 00 AF 0E A8 02 8F 20 2D |.... ===...... -|
000006A0: 3C 20 4B 59 42 44 20 49 4E 50 55 54 20 3E 2D 00 |< KYBD INPUT >-.|
000006B0: C7 0E B2 02 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 |..... K$:. K$.."|
000006C0: 22 20 A7 20 36 39 30 00 D0 0E BC 02 85 20 4B 24 |" . 690...... K$|
000006D0: 00 D6 0E C6 02 8E 00 00 00 |......... |
....D.. '1541 SPEED-HEAD'.+.I.. D.N. ARN
OLD.A.J.. KIRKSVILLE, MO..P.K.. MAY 1987
.V.N.....X.. A,K$,C1,DD%,AS%,AF%,AM%,IR%
,EN,EM$,ET,ES.....DD%.8: . DEFAULT DEVI
CE#.F...AS%.1: . # ACCELERATION STEPS..
...AF%.12: . ACCELERATION FACTOR... .AM%
.3: . MINIMUM # STEPS FOR FAST STEPPING
.?...IR%.30: . NEW DOS IRQ TIMER HI-BYT.
Z...C1.56320: . CIA#1 BASE.W.... .BS(A).
(A..0 . A..255)...H.. ---...R.. .BS(AS%)
. .BS(AF%) . .BS(AM%) . .BS(IR%) . 240.
..... ".PARAMETER(S) OUT OF RANGE.".....
....... -...... AS%.1 . . ".# ACCEL STEP
S OUT OF RANGE.":..W.... IR%.(AF%.AS%).1
6 . . ".TOO MUCH TOTAL ACCELERATION.":..
..... IR%.250 . . ".IRQ TIMER VALUE TOO
HIGH.":..B.... AM%.(AS%.2.1) . . ".TOO M
ANY ACCELERATION STEPS.":..L.".. ---...,
.. "... 1541 SPEED-HEAD"...6.. "PROVIDES
FASTER 1541 HEAD MOTION &".:.@.. "HIGHE
R DOS INTERUPT FREQUENCY.".X.J.. AS% .6)
"# ACCEL STEPS".U.T.. AF% .6) "ACCEL FA
CTOR"...^.. .6) " (SUBTRACTED FROM
IRQ TIMER".J.H.. .6) " AT EACH ACC
EL STEP.)"...R.. AM% .6) "ACCEL MINIMUM"
...|.. .6) " (MINIMUM # STEPS TO AC
TIVATE.=.... .6) " STEP ACCELERATI
ON.)".C.... IR% .6) "DOS IRQ TIMER HI-HY
TE".M.... ---...... "ENTER DISK UNIT# OR
. Q . TO QUIT."...... " " DD% "....";.E
.... 680: . KYBD INPT...B.. K$."Q" . K$.
"Q" . ....L.DD%.E(K$)...V.. DD%.8 . DD%.
11 . . ".INVALID UNIT#.":. 410.(.... ---
.7.... 1,DD%,15.A.... 620.R.... EN . 1
:..\.... ---......1,"M-W" G(94) G(0) G(2
) G(AS%) G(AF%);......1,"M-W" G(100) G(0
) G(1) G(AM%);.S.&..1,"M-W" G(5) G(28) G
(1) G(IR%);...0.. ---...:. 1...D.. ---.
..N.. ". DONE ."...X.. 410 : . DO ANOTHE
R.%.B.. =====.G.L.. -< READ DOS CMMD CHA
NNEL >-.[.V..1,EN,EM$,ET,ES.N.... EN.73
. EN.0...... EN . . EN;EM$;ET;ES........
.... ===...... -< KYBD INPUT >-.G.... K$
:. K$.."" . 690.P.... K$.V.F.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL