00000000: 01 40 25 40 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 40 F2 03 8F 00 4F 40 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 40 06 04 8F 00 71 40 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 40 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 40 24 04 9F 38 2C 38 2C 38 2C |1720..@$..8,8,8,|
000000B0: 22 23 22 00 D7 40 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 40 38 04 3A 20 20 A1 |-P";8;5..@8.: .|
000000E0: 23 38 2C 42 41 24 00 FB 40 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 41 4C 04 |U1:8 0 1 0".'AL.|
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 41 56 04 8B 20 28 C6 |A$)): ..?AV.. (.|
00000130: 28 42 41 24 29 AF 31 29 B2 30 20 A7 20 FE 18 00 |(BA$).1).0 . ...|
00000140: 5C 41 60 04 3A 20 20 8B 20 C8 28 42 4C 24 2C 33 |\A`.: . .(BL$,3|
00000150: 29 B2 22 43 42 4D 22 20 A7 20 FE 18 00 84 41 6A |)."CBM" . ....Aj|
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 41 74 04 3A 20 20 20 20 20 49 |: ";..At.: I|
00000190: B2 38 00 9E 41 7E 04 3A 20 20 20 20 20 EB 00 B9 |.8..A~.: ...|
000001A0: 41 88 04 3A 20 20 20 20 20 20 20 20 41 24 B2 CA |A..: A$..|
000001B0: 28 42 4C 24 2C 49 2C 31 29 00 CB 41 92 04 3A 20 |(BL$,I,1)..A..: |
000001C0: 20 20 20 20 20 20 20 99 41 24 3B 00 DE 41 9C 04 | .A$;..A..|
000001D0: 3A 20 20 20 20 20 20 20 20 49 B2 49 AA 31 00 F6 |: I.I.1..|
000001E0: 41 A6 04 3A 20 20 20 20 20 20 20 20 EC 20 FC 20 |A..: . . |
000001F0: 41 24 B2 4E 55 24 00 01 42 B0 04 3A 20 20 20 20 |A$.NU$..B..: |
00000200: 99 00 13 42 BA 04 3A 20 20 20 20 FE 19 3A 20 D5 |...B..: ..: .|
00000210: 20 FE 18 00 4C 42 C4 04 3A 20 20 20 20 20 99 22 | ...LB..: ."|
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 42 CE |PROGRAM ***".XB.|
00000250: 04 3A 20 20 20 20 FE 19 00 83 42 D8 04 3A 20 85 |.: ....B..: .|
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 42 E2 04 3A 20 8B 20 41 24 B3 B1 |;A$..B..: . 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 42 EC 04 3A 20 42 41 20 B2 20 AB 31 00 |0..B..: BA . .1.|
000002B0: B6 42 F6 04 FE 19 00 DB 42 00 05 99 22 11 12 20 |.B......B...".. |
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 42 0A 05 |AM'S NAME "..B..|
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 43 14 05 85 22 11 20 20 53 54 41 52 54 55 50 |.C...". STARTUP|
00000310: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 46 24 00 23 43 |.........";F$.#C|
00000320: 1E 05 3A 00 36 43 28 05 8B C3 28 46 24 29 B1 31 |..:.6C(...(F$).1|
00000330: 36 20 A7 20 FE 18 00 57 43 32 05 3A 20 20 99 22 |6 . ...WC2.: ."|
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 43 3C 05 3A 20 20 FE | BIG!";.bC<.: .|
00000360: 0B 32 00 6F 43 46 05 3A 20 20 89 31 33 30 30 00 |.2.oCF.: .1300.|
00000370: 79 43 50 05 3A 20 20 FE 19 00 86 43 5A 05 8B 46 |yCP.: ....CZ..F|
00000380: 24 B2 22 22 A7 80 00 8C 43 64 05 3A 00 B1 43 6E |$.""....Cd.:..Cn|
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 43 78 05 99 22 12 20 28 27 42 41 53 49 |"..Cx..". ('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 43 82 05 85 22 11 20 20 42 | "..C...". B|
000003E0: 41 53 49 43 9D 9D 9D 9D 9D 9D 9D 22 3B 54 24 00 |ASIC.......";T$.|
000003F0: F5 43 8C 05 3A 00 1D 44 96 05 8B 20 54 24 B3 B1 |.C..:..D... 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 44 |"BINARY" . ...HD|
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 44 AA 05 3A 20 20 |INARY'";.SD..: |
00000450: FE 0B 32 00 6A 44 B4 05 3A 20 20 99 22 91 91 91 |..2.jD..: ."...|
00000460: 22 C7 28 32 37 29 22 40 91 22 00 77 44 BE 05 3A |".(27)"@.".wD..:|
00000470: 20 20 89 31 34 31 30 00 81 44 C8 05 3A 20 20 FE | .1410..D..: .|
00000480: 19 00 AD 44 D2 05 8B 20 54 24 B2 22 42 41 53 49 |...D... 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 44 | . RM$."BOOT"..D|
000004B0: DC 05 3A 00 D8 44 E6 05 99 22 11 12 20 52 45 4D |..:..D...".. 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 44 F0 05 99 22 12 |ROTECT "..D...".|
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 45 FA |SK AND PUT ". E.|
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 45 04 06 99 22 12 20 55 4E 49 54 20 38 2E |.DE...". 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 45 0E 06 99 22 12 20 54 48 49 |L! ".hE...". 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 45 18 06 99 22 12 |ESTROY "..E...".|
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 45 22 | SECTOR 0. "..E"|
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 45 2C 06 A1 F9 41 24 3A 20 8B 20 C6 28 41 |..E,...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 45 36 06 3A 00 F4 45 40 06 41 |1720..E6.:..E@.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 46 4A 06 41 4C B2 20 41 41 20 |).15..FJ.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 46 54 06 3A 00 2D 46 5E 06 |. 256..FT.:.-F^.|
00000620: 98 31 35 2C 22 42 2D 50 20 38 20 30 22 00 57 46 |.15,"B-P 8 0".WF|
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 46 72 06 98 38 2C 20 |U$;NU$;.zFr..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 46 7C 06 98 |60);.(AH);..F|..|
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 46 86 06 98 38 2C 20 52 4D 24 3B C7 28 33 34 |.F...8, RM$;.(34|
000006B0: 29 3B 46 24 3B 4E 55 24 00 CE 46 90 06 98 31 35 |);F$;NU$..F...15|
000006C0: 2C 20 22 55 32 3A 38 20 30 20 31 20 30 22 00 EC |, "U2:8 0 1 0"..|
000006D0: 46 9A 06 8B 20 42 41 B2 30 20 A7 20 98 31 35 2C |F... BA.0 . .15,|
000006E0: 20 22 42 2D 41 20 30 20 31 20 30 22 00 F7 46 A4 | "B-A 0 1 0"..F.|
000006F0: 06 41 24 B2 44 53 24 00 FD 46 AE 06 3A 00 09 47 |.A$.DS$..F..:..G|
00000700: B8 06 A0 38 3A 20 A0 31 35 00 2A 47 C2 06 8B 20 |...8: .15.*G... |
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 47 CC 06 99 |ED ***": ..@G...|
00000730: 20 22 11 2A 2A 2A 20 44 4F 4E 45 20 2A 2A 2A 22 | ".*** DONE ***"|
00000740: 00 46 47 D6 06 80 00 00 00 |.FG...... |
.@%@...". *** 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".'AL.: .I.0.24: .#8,A$: BL$.
BL$.G(F(A$)): ..?AV.. (F(BA$).1).0 . ...
\A`.: . H(BL$,3)."CBM" . ....AJ.: .
"*** ALREADY A BOOT DISK: ";..AT.: I
.8..A~.: ...A..: A$.J(BL$,I,1
).KA..: .A$;..A..: I.I.1..
A..: . . A$.NU$..B..: ...B..:
..: U ...LBD.: ."*** BOOT SECTOR
USED BY ANOTHER PROGRAM ***".XBN.: ..
..BX.: .".. CONTINUE (Y/N) . .N..."
;A$..B..: . A$.."Y" . E..1: .1720..B..:
BA . .1..B......B...".. ENTER YOUR PROGR
AM'S NAME "..B...". (UP TO 16 CHARACTERS
) "..C...". STARTUP.........";F$.#C
..:.6C(..C(F$).16 . ...WC2.: .". TH
AT'S TOO BIG!";.BC<.: ..2.OCF.: .1300.
YCP.: ....CZ..F$.""....CD.:..CN..".. EN
TER YOUR PROGRAM'S TYPE ".UCX..". ('BASI
C' OR 'BINARY') "..C...". BASIC....
...";T$..C..:..D... T$.."BASIC" . T$ ..
"BINARY" . ...HD .: .". ENTER 'BASI
C' OR 'BINARY'";.SD..: ..2.JD..: ."...
"G(27)"@.".WD..: .1410..DH.: ....DR..
T$."BASIC" . RM$."RUN" : U RM$."BOOT"..D
..:.XD...".. REMOVE THE WRITE PROTECT "
..D...". TAB FROM THE DISK AND PUT ". E.
..". YOUR DISK INTO DRIVE 0 OF ".DE...".
UNIT 8. BE VERY CAREFUL! ".HE...". THI
S PROGRAM WILL DESTROY "..E...". DATA IN
TRACK 1 SECTOR 0. "..E"..". PRESS RETU
RN TO CONTINUE ".TE,...A$: . F(A$)..13 .
E..1: .1720.ZE6.:..E@.AA. C(F$).Q("B00"
).15..FJ.AL. AA . 255: AH. AA . 256..F
T.:.-F^..15,"B-P 8 0".WFH..8, "CBM";NU$;
NU$;NU$;NU$;F$;NU$;NU$;.ZFR..8, G(162);G
(AL);G(160);G(AH);..F|..8, G(76);G(Q("A5
"));G(Q("AF"));..F...8, RM$;G(34);F$;NU$
.NF...15, "U2:8 0 1 0"..F... BA.0 . .15,
"B-A 0 1 0"..F..A$.DS$..F..:..G.. 8: 1
5.*GB.. E . .".*** ABORTED ***": ..@GL..
".*** DONE ***".FGV.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL