00000000: 01 1C 25 1C E8 03 99 22 93 20 2A 2A 2A 20 41 55 |..%....". *** AU|
00000010: 54 4F 20 42 4F 4F 54 20 43 52 45 41 54 4F 52 20 |TO BOOT CREATOR |
00000020: 2A 2A 2A 11 22 00 2B 1C F2 03 8F 00 4F 1C FC 03 |***.".+.....O...|
00000030: 8F 20 20 20 42 59 20 20 46 52 45 44 20 42 4F 57 |. BY FRED BOW|
00000040: 45 4E 20 26 20 54 45 52 52 59 20 52 59 41 4E 00 |EN & TERRY RYAN.|
00000050: 55 1C 06 04 8F 00 71 1C 10 04 9F 31 35 2C 38 2C |U.....q....15,8,|
00000060: 31 35 2C 22 49 4A 22 3A 20 4E 55 24 B2 C7 28 30 |15,"IJ": NU$..(0|
00000070: 29 00 A4 1C 1A 04 3A 20 20 8B 20 44 53 20 A7 20 |).....: . DS . |
00000080: 99 22 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 |."*** DISK ERROR|
00000090: 3A 20 22 3B 44 53 24 3A 20 45 B2 AB 31 3A 20 89 |: ";DS$: E..1: .|
000000A0: 31 37 32 30 00 B3 1C 24 04 9F 38 2C 38 2C 38 2C |1720...$..8,8,8,|
000000B0: 22 23 22 00 D7 1C 2E 04 98 31 35 2C 22 55 31 3A |"#"......15,"U1:|
000000C0: 38 20 30 20 31 38 20 30 22 3A 98 31 35 2C 22 42 |8 0 18 0":.15,"B|
000000D0: 2D 50 22 3B 38 3B 35 00 E6 1C 38 04 3A 20 20 A1 |-P";8;5...8.: .|
000000E0: 23 38 2C 42 41 24 00 FB 1C 42 04 98 31 35 2C 22 |#8,BA$...B..15,"|
000000F0: 55 31 3A 38 20 30 20 31 20 30 22 00 27 1D 4C 04 |U1:8 0 1 0".'.L.|
00000100: 3A 20 20 81 49 B2 30 A4 32 34 3A 20 A1 23 38 2C |: .I.0.24: .#8,|
00000110: 41 24 3A 20 42 4C 24 B2 42 4C 24 AA C7 28 C6 28 |A$: BL$.BL$..(.(|
00000120: 41 24 29 29 3A 20 82 00 3F 1D 56 04 8B 20 28 C6 |A$)): ..?.V.. (.|
00000130: 28 42 41 24 29 AF 31 29 B2 30 20 A7 20 FE 18 00 |(BA$).1).0 . ...|
00000140: 5C 1D 60 04 3A 20 20 8B 20 C8 28 42 4C 24 2C 33 |\.`.: . .(BL$,3|
00000150: 29 B2 22 43 42 4D 22 20 A7 20 FE 18 00 84 1D 6A |)."CBM" . .....j|
00000160: 04 3A 20 20 20 20 20 99 22 2A 2A 2A 20 41 4C 52 |.: ."*** ALR|
00000170: 45 41 44 59 20 41 20 42 4F 4F 54 20 44 49 53 4B |EADY A BOOT DISK|
00000180: 3A 20 22 3B 00 92 1D 74 04 3A 20 20 20 20 20 49 |: ";...t.: I|
00000190: B2 38 00 9E 1D 7E 04 3A 20 20 20 20 20 EB 00 B9 |.8...~.: ...|
000001A0: 1D 88 04 3A 20 20 20 20 20 20 20 20 41 24 B2 CA |...: A$..|
000001B0: 28 42 4C 24 2C 49 2C 31 29 00 CB 1D 92 04 3A 20 |(BL$,I,1).....: |
000001C0: 20 20 20 20 20 20 20 99 41 24 3B 00 DE 1D 9C 04 | .A$;.....|
000001D0: 3A 20 20 20 20 20 20 20 20 49 B2 49 AA 31 00 F6 |: I.I.1..|
000001E0: 1D A6 04 3A 20 20 20 20 20 20 20 20 EC 20 FC 20 |...: . . |
000001F0: 41 24 B2 4E 55 24 00 01 1E B0 04 3A 20 20 20 20 |A$.NU$.....: |
00000200: 99 00 13 1E BA 04 3A 20 20 20 20 FE 19 3A 20 D5 |......: ..: .|
00000210: 20 FE 18 00 4C 1E C4 04 3A 20 20 20 20 20 99 22 | ...L...: ."|
00000220: 2A 2A 2A 20 42 4F 4F 54 20 53 45 43 54 4F 52 20 |*** BOOT SECTOR |
00000230: 55 53 45 44 20 42 59 20 41 4E 4F 54 48 45 52 20 |USED BY ANOTHER |
00000240: 50 52 4F 47 52 41 4D 20 2A 2A 2A 22 00 58 1E CE |PROGRAM ***".X..|
00000250: 04 3A 20 20 20 20 FE 19 00 83 1E D8 04 3A 20 85 |.: .......: .|
00000260: 22 11 12 20 43 4F 4E 54 49 4E 55 45 20 28 59 2F |".. CONTINUE (Y/|
00000270: 4E 29 20 20 20 92 20 20 20 20 92 4E 9D 9D 9D 22 |N) . .N..."|
00000280: 3B 41 24 00 A1 1E E2 04 3A 20 8B 20 41 24 B3 B1 |;A$.....: . A$..|
00000290: 22 59 22 20 A7 20 45 B2 AB 31 3A 20 89 31 37 32 |"Y" . E..1: .172|
000002A0: 30 00 AF 1E EC 04 3A 20 42 41 20 B2 20 AB 31 00 |0.....: BA . .1.|
000002B0: B6 1E F6 04 FE 19 00 DB 1E 00 05 99 22 11 12 20 |............".. |
000002C0: 45 4E 54 45 52 20 59 4F 55 52 20 50 52 4F 47 52 |ENTER YOUR PROGR|
000002D0: 41 4D 27 53 20 4E 41 4D 45 20 22 00 FF 1E 0A 05 |AM'S NAME ".....|
000002E0: 99 22 12 20 28 55 50 20 54 4F 20 31 36 20 43 48 |.". (UP TO 16 CH|
000002F0: 41 52 41 43 54 45 52 53 29 20 20 20 20 20 22 00 |ARACTERS) ".|
00000300: 1D 1F 14 05 85 22 11 20 20 53 54 41 52 54 55 50 |.....". STARTUP|
00000310: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 46 24 00 23 1F |.........";F$.#.|
00000320: 1E 05 3A 00 36 1F 28 05 8B C3 28 46 24 29 B1 31 |..:.6.(...(F$).1|
00000330: 36 20 A7 20 FE 18 00 57 1F 32 05 3A 20 20 99 22 |6 . ...W.2.: ."|
00000340: 11 20 20 20 20 20 54 48 41 54 27 53 20 54 4F 4F |. THAT'S TOO|
00000350: 20 42 49 47 21 22 3B 00 62 1F 3C 05 3A 20 20 FE | BIG!";.b.<.: .|
00000360: 0B 32 00 6F 1F 46 05 3A 20 20 89 31 33 30 30 00 |.2.o.F.: .1300.|
00000370: 79 1F 50 05 3A 20 20 FE 19 00 86 1F 5A 05 8B 46 |y.P.: .....Z..F|
00000380: 24 B2 22 22 A7 80 00 8C 1F 64 05 3A 00 B1 1F 6E |$."".....d.:...n|
00000390: 05 99 22 11 12 20 45 4E 54 45 52 20 59 4F 55 52 |..".. ENTER YOUR|
000003A0: 20 50 52 4F 47 52 41 4D 27 53 20 54 59 50 45 20 | PROGRAM'S TYPE |
000003B0: 22 00 D5 1F 78 05 99 22 12 20 28 27 42 41 53 49 |"...x..". ('BASI|
000003C0: 43 27 20 4F 52 20 27 42 49 4E 41 52 59 27 29 20 |C' OR 'BINARY') |
000003D0: 20 20 20 20 22 00 EF 1F 82 05 85 22 11 20 20 42 | "......". B|
000003E0: 41 53 49 43 9D 9D 9D 9D 9D 9D 9D 22 3B 54 24 00 |ASIC.......";T$.|
000003F0: F5 1F 8C 05 3A 00 1D 20 96 05 8B 20 54 24 B3 B1 |....:.. ... T$..|
00000400: 22 42 41 53 49 43 22 20 AF 20 54 24 20 B3 B1 20 |"BASIC" . T$ .. |
00000410: 22 42 49 4E 41 52 59 22 20 A7 20 FE 18 00 48 20 |"BINARY" . ...H |
00000420: A0 05 3A 20 20 99 22 11 20 20 20 20 20 45 4E 54 |..: .". ENT|
00000430: 45 52 20 27 42 41 53 49 43 27 20 4F 52 20 27 42 |ER 'BASIC' OR 'B|
00000440: 49 4E 41 52 59 27 22 3B 00 53 20 AA 05 3A 20 20 |INARY'";.S ..: |
00000450: FE 0B 32 00 6A 20 B4 05 3A 20 20 99 22 91 91 91 |..2.j ..: ."...|
00000460: 22 C7 28 32 37 29 22 40 91 22 00 77 20 BE 05 3A |".(27)"@.".w ..:|
00000470: 20 20 89 31 34 31 30 00 81 20 C8 05 3A 20 20 FE | .1410.. ..: .|
00000480: 19 00 AD 20 D2 05 8B 20 54 24 B2 22 42 41 53 49 |... ... T$."BASI|
00000490: 43 22 20 A7 20 52 4D 24 B2 22 52 55 4E 22 20 3A |C" . RM$."RUN" :|
000004A0: 20 D5 20 52 4D 24 B2 22 42 4F 4F 54 22 00 B3 20 | . RM$."BOOT".. |
000004B0: DC 05 3A 00 D8 20 E6 05 99 22 11 12 20 52 45 4D |..:.. ...".. REM|
000004C0: 4F 56 45 20 54 48 45 20 20 57 52 49 54 45 20 50 |OVE THE WRITE P|
000004D0: 52 4F 54 45 43 54 20 22 00 FC 20 F0 05 99 22 12 |ROTECT ".. ...".|
000004E0: 20 54 41 42 20 46 52 4F 4D 20 54 48 45 20 44 49 | TAB FROM THE DI|
000004F0: 53 4B 20 41 4E 44 20 50 55 54 20 22 00 20 21 FA |SK AND PUT ". !.|
00000500: 05 99 22 12 20 59 4F 55 52 20 44 49 53 4B 20 49 |..". YOUR DISK I|
00000510: 4E 54 4F 20 44 52 49 56 45 20 30 20 4F 46 20 22 |NTO DRIVE 0 OF "|
00000520: 00 44 21 04 06 99 22 12 20 55 4E 49 54 20 38 2E |.D!...". UNIT 8.|
00000530: 20 20 42 45 20 56 45 52 59 20 43 41 52 45 46 55 | BE VERY CAREFU|
00000540: 4C 21 20 22 00 68 21 0E 06 99 22 12 20 54 48 49 |L! ".h!...". THI|
00000550: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 44 |S PROGRAM WILL D|
00000560: 45 53 54 52 4F 59 20 22 00 8C 21 18 06 99 22 12 |ESTROY "..!...".|
00000570: 20 44 41 54 41 20 49 4E 20 54 52 41 43 4B 20 31 | DATA IN TRACK 1|
00000580: 20 53 45 43 54 4F 52 20 30 2E 20 22 00 B0 21 22 | SECTOR 0. "..!"|
00000590: 06 99 22 12 20 50 52 45 53 53 20 20 52 45 54 55 |..". PRESS RETU|
000005A0: 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 22 |RN TO CONTINUE "|
000005B0: 00 D4 21 2C 06 A1 F9 41 24 3A 20 8B 20 C6 28 41 |..!,...A$: . .(A|
000005C0: 24 29 B3 B1 31 33 20 A7 20 45 B2 AB 31 3A 20 89 |$)..13 . E..1: .|
000005D0: 31 37 32 30 00 DA 21 36 06 3A 00 F4 21 40 06 41 |1720..!6.:..!@.A|
000005E0: 41 B2 20 C3 28 46 24 29 AA D1 28 22 42 30 30 22 |A. .(F$)..("B00"|
000005F0: 29 AA 31 35 00 15 22 4A 06 41 4C B2 20 41 41 20 |).15.."J.AL. AA |
00000600: AF 20 32 35 35 3A 20 20 20 41 48 B2 20 41 41 20 |. 255: AH. AA |
00000610: AD 20 32 35 36 00 1B 22 54 06 3A 00 2D 22 5E 06 |. 256.."T.:.-"^.|
00000620: 98 31 35 2C 22 42 2D 50 20 38 20 30 22 00 57 22 |.15,"B-P 8 0".W"|
00000630: 68 06 98 38 2C 20 22 43 42 4D 22 3B 4E 55 24 3B |h..8, "CBM";NU$;|
00000640: 4E 55 24 3B 4E 55 24 3B 4E 55 24 3B 46 24 3B 4E |NU$;NU$;NU$;F$;N|
00000650: 55 24 3B 4E 55 24 3B 00 7A 22 72 06 98 38 2C 20 |U$;NU$;.z"r..8, |
00000660: C7 28 31 36 32 29 3B C7 28 41 4C 29 3B C7 28 31 |.(162);.(AL);.(1|
00000670: 36 30 29 3B C7 28 41 48 29 3B 00 9F 22 7C 06 98 |60);.(AH);.."|..|
00000680: 38 2C 20 C7 28 37 36 29 3B C7 28 D1 28 22 41 35 |8, .(76);.(.("A5|
00000690: 22 29 29 3B C7 28 D1 28 22 41 46 22 29 29 3B 00 |"));.(.("AF"));.|
000006A0: B8 22 86 06 98 38 2C 20 52 4D 24 3B C7 28 33 34 |."...8, RM$;.(34|
000006B0: 29 3B 46 24 3B 4E 55 24 00 CE 22 90 06 98 31 35 |);F$;NU$.."...15|
000006C0: 2C 20 22 55 32 3A 38 20 30 20 31 20 30 22 00 EC |, "U2:8 0 1 0"..|
000006D0: 22 9A 06 8B 20 42 41 B2 30 20 A7 20 98 31 35 2C |"... BA.0 . .15,|
000006E0: 20 22 42 2D 41 20 30 20 31 20 30 22 00 F7 22 A4 | "B-A 0 1 0"..".|
000006F0: 06 41 24 B2 44 53 24 00 FD 22 AE 06 3A 00 09 23 |.A$.DS$.."..:..#|
00000700: B8 06 A0 38 3A 20 A0 31 35 00 2A 23 C2 06 8B 20 |...8: .15.*#... |
00000710: 45 20 A7 20 99 22 11 2A 2A 2A 20 41 42 4F 52 54 |E . .".*** ABORT|
00000720: 45 44 20 2A 2A 2A 22 3A 20 80 00 40 23 CC 06 99 |ED ***": ..@#...|
00000730: 20 22 11 2A 2A 2A 20 44 4F 4E 45 20 2A 2A 2A 22 | ".*** DONE ***"|
00000740: 00 46 23 D6 06 80 00 00 00 54 |.F#......T |
..%....". *** AUTO BOOT CREATOR ***.".+.
....O.... BY FRED BOWEN & TERRY RYAN.
U.....Q....15,8,15,"IJ": NU$.G(0).....:
. DS . ."*** DISK ERROR: ";DS$: E..1: .
1720...$..8,8,8,"#".W....15,"U1:8 0 18 0
":.15,"B-P";8;5...8.: .#8,BA$...B..15,"
U1:8 0 1 0".'.L.: .I.0.24: .#8,A$: BL$.
BL$.G(F(A$)): ..?.V.. (F(BA$).1).0 . ...
\.`.: . H(BL$,3)."CBM" . .....J.: .
"*** ALREADY A BOOT DISK: ";...T.: I
.8...~.: ......: A$.J(BL$,I,1
).K...: .A$;.....: I.I.1..
...: . . A$.NU$.....: ......:
..: U ...L.D.: ."*** BOOT SECTOR
USED BY ANOTHER PROGRAM ***".X.N.: ..
...X.: .".. CONTINUE (Y/N) . .N..."
;A$.....: . A$.."Y" . E..1: .1720.....:
BA . .1.............".. ENTER YOUR PROGR
AM'S NAME "......". (UP TO 16 CHARACTERS
) "......". STARTUP.........";F$.#.
..:.6.(..C(F$).16 . ...W.2.: .". TH
AT'S TOO BIG!";.B.<.: ..2.O.F.: .1300.
Y.P.: .....Z..F$."".....D.:...N..".. EN
TER YOUR PROGRAM'S TYPE ".U.X..". ('BASI
C' OR 'BINARY') "......". BASIC....
...";T$.....:.. ... T$.."BASIC" . T$ ..
"BINARY" . ...H .: .". ENTER 'BASI
C' OR 'BINARY'";.S ..: ..2.J ..: ."...
"G(27)"@.".W ..: .1410.. H.: .... R..
T$."BASIC" . RM$."RUN" : U RM$."BOOT"..
..:.X ...".. REMOVE THE WRITE PROTECT "
.. ...". TAB FROM THE DISK AND PUT ". !.
..". YOUR DISK INTO DRIVE 0 OF ".D!...".
UNIT 8. BE VERY CAREFUL! ".H!...". THI
S PROGRAM WILL DESTROY "..!...". DATA IN
TRACK 1 SECTOR 0. "..!"..". PRESS RETU
RN TO CONTINUE ".T!,...A$: . F(A$)..13 .
E..1: .1720.Z!6.:..!@.AA. C(F$).Q("B00"
).15.."J.AL. AA . 255: AH. AA . 256.."
T.:.-"^..15,"B-P 8 0".W"H..8, "CBM";NU$;
NU$;NU$;NU$;F$;NU$;NU$;.Z"R..8, G(162);G
(AL);G(160);G(AH);.."|..8, G(76);G(Q("A5
"));G(Q("AF"));.."...8, RM$;G(34);F$;NU$
.N"...15, "U2:8 0 1 0".."... BA.0 . .15,
"B-A 0 1 0".."..A$.DS$.."..:..#.. 8: 1
5.*#B.. E . .".*** ABORTED ***": ..@#L..
".*** DONE ***".F#V.....T
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL