00000000: 01 1C 25 1C 64 00 99 22 93 20 2A 2A 2A 20 41 55 |..%.d..". *** 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 3F 1C 6E 00 99 22 53 54 41 54 |***.".?.n.."STAT|
00000030: 45 20 44 52 49 56 45 20 57 41 4E 54 45 44 22 00 |E DRIVE WANTED".|
00000040: 5D 1C 78 00 85 44 24 3A 44 B2 C5 28 44 24 29 3A |].x..D$:D..(D$):|
00000050: 8B 44 B3 37 B0 44 B1 31 31 A7 31 32 30 00 78 1C |.D.7.D.11.120.x.|
00000060: 82 00 9F 31 35 2C 44 2C 31 35 2C 22 49 4A 22 3A |...15,D,15,"IJ":|
00000070: 4E 55 24 B2 C7 28 30 29 00 A2 1C 8C 00 8B 44 53 |NU$..(0)......DS|
00000080: A7 99 22 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F |.."*** DISK ERRO|
00000090: 52 3A 20 22 3B 44 53 24 3A 45 B2 AB 31 3A 89 37 |R: ";DS$:E..1:.7|
000000A0: 35 30 00 B1 1C 96 00 9F 38 2C 44 2C 38 2C 22 23 |50......8,D,8,"#|
000000B0: 22 00 D5 1C A0 00 98 31 35 2C 22 55 31 3A 38 20 |"......15,"U1:8 |
000000C0: 30 20 31 38 20 30 22 3A 98 31 35 2C 22 42 2D 50 |0 18 0":.15,"B-P|
000000D0: 22 3B 38 3B 35 00 E1 1C AA 00 A1 23 38 2C 42 41 |";8;5......#8,BA|
000000E0: 24 00 F6 1C B4 00 98 31 35 2C 22 55 31 3A 38 20 |$......15,"U1:8 |
000000F0: 30 20 31 20 30 22 00 1C 1D BE 00 81 49 B2 30 A4 |0 1 0"......I.0.|
00000100: 32 34 3A A1 23 38 2C 41 24 3A 42 4C 24 B2 42 4C |24:.#8,A$:BL$.BL|
00000110: 24 AA C7 28 C6 28 41 24 29 29 3A 82 00 31 1D C8 |$..(.(A$)):..1..|
00000120: 00 8B 28 C6 28 42 41 24 29 AF 31 29 B2 30 A7 FE |..(.(BA$).1).0..|
00000130: 18 00 48 1D D2 00 8B C8 28 42 4C 24 2C 33 29 B2 |..H.....(BL$,3).|
00000140: 22 43 42 4D 22 A7 FE 18 00 6A 1D DC 00 99 22 2A |"CBM"....j...."*|
00000150: 2A 2A 20 41 4C 52 45 41 44 59 20 41 20 42 4F 4F |** ALREADY A BOO|
00000160: 54 20 44 49 53 4B 3A 20 22 3B 00 72 1D E6 00 49 |T DISK: ";.r...I|
00000170: B2 38 00 78 1D F0 00 EB 00 8A 1D FA 00 41 24 B2 |.8.x.........A$.|
00000180: CA 28 42 4C 24 2C 49 2C 31 29 00 93 1D 04 01 99 |.(BL$,I,1)......|
00000190: 41 24 3B 00 9D 1D 0E 01 49 B2 49 AA 31 00 AA 1D |A$;.....I.I.1...|
000001A0: 18 01 EC FC 41 24 B2 4E 55 24 00 B0 1D 22 01 99 |....A$.NU$..."..|
000001B0: 00 BB 1D 2C 01 FE 19 3A D5 FE 18 00 EE 1D 36 01 |...,...:......6.|
000001C0: 99 22 2A 2A 2A 20 42 4F 4F 54 20 53 45 43 54 4F |."*** BOOT SECTO|
000001D0: 52 20 55 53 45 44 20 42 59 20 41 4E 4F 54 48 45 |R USED BY ANOTHE|
000001E0: 52 20 50 52 4F 47 52 41 4D 20 2A 2A 2A 22 00 F5 |R PROGRAM ***"..|
000001F0: 1D 40 01 FE 19 00 1E 1E 4A 01 85 22 11 12 20 43 |.@......J..".. C|
00000200: 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 20 20 20 |ONTINUE (Y/N) |
00000210: 92 20 20 20 20 92 4E 9D 9D 9D 22 3B 41 24 00 35 |. .N...";A$.5|
00000220: 1E 54 01 8B 41 24 B3 B1 22 59 22 A7 45 B2 AB 31 |.T..A$.."Y".E..1|
00000230: 3A 89 37 35 30 00 3F 1E 5E 01 42 41 B2 AB 31 00 |:.750.?.^.BA..1.|
00000240: 46 1E 68 01 FE 19 00 6B 1E 72 01 99 22 11 12 20 |F.h....k.r..".. |
00000250: 45 4E 54 45 52 20 59 4F 55 52 20 50 52 4F 47 52 |ENTER YOUR PROGR|
00000260: 41 4D 27 53 20 4E 41 4D 45 20 22 00 8F 1E 7C 01 |AM'S NAME "...|.|
00000270: 99 22 12 20 28 55 50 20 54 4F 20 31 36 20 43 48 |.". (UP TO 16 CH|
00000280: 41 52 41 43 54 45 52 53 29 20 20 20 20 20 22 00 |ARACTERS) ".|
00000290: AD 1E 86 01 85 22 11 20 20 53 54 41 52 54 55 50 |.....". STARTUP|
000002A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 46 24 00 BE 1E |.........";F$...|
000002B0: 90 01 8B C3 28 46 24 29 B1 31 36 A7 FE 18 00 DC |....(F$).16.....|
000002C0: 1E 9A 01 99 22 11 20 20 20 20 20 54 48 41 54 27 |....". THAT'|
000002D0: 53 20 54 4F 4F 20 42 49 47 21 22 3B 00 E4 1E A4 |S TOO BIG!";....|
000002E0: 01 FE 0B 32 00 ED 1E AE 01 89 33 39 30 00 F4 1E |...2......390...|
000002F0: B8 01 FE 19 00 03 1F C2 01 8B 46 24 B2 22 22 A7 |..........F$."".|
00000300: 80 3A A2 00 28 1F CC 01 99 22 11 12 20 45 4E 54 |.:..(....".. ENT|
00000310: 45 52 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 27 |ER YOUR PROGRAM'|
00000320: 53 20 54 59 50 45 20 22 00 4C 1F D6 01 99 22 12 |S TYPE ".L....".|
00000330: 20 28 27 42 41 53 49 43 27 20 4F 52 20 27 42 49 | ('BASIC' OR 'BI|
00000340: 4E 41 52 59 27 29 20 20 20 20 20 22 00 66 1F E0 |NARY') ".f..|
00000350: 01 85 22 11 20 20 42 41 53 49 43 9D 9D 9D 9D 9D |..". BASIC.....|
00000360: 9D 9D 22 3B 54 24 00 87 1F EA 01 8B 54 24 B3 B1 |..";T$......T$..|
00000370: 22 42 41 53 49 43 22 AF 54 24 B3 B1 22 42 49 4E |"BASIC".T$.."BIN|
00000380: 41 52 59 22 A7 FE 18 00 AF 1F F4 01 99 22 11 20 |ARY".........". |
00000390: 20 20 20 20 45 4E 54 45 52 20 27 42 41 53 49 43 | ENTER 'BASIC|
000003A0: 27 20 4F 52 20 27 42 49 4E 41 52 59 27 22 3B 00 |' OR 'BINARY'";.|
000003B0: B7 1F FE 01 FE 0B 32 00 CB 1F 08 02 99 22 91 91 |......2......"..|
000003C0: 91 22 C7 28 32 37 29 22 40 91 22 00 D4 1F 12 02 |.".(27)"@.".....|
000003D0: 89 34 38 30 00 DB 1F 1C 02 FE 19 00 01 20 26 02 |.480......... &.|
000003E0: 8B 54 24 B2 22 42 41 53 49 43 22 A7 52 4D 24 B2 |.T$."BASIC".RM$.|
000003F0: 22 52 55 4E 22 3A D5 52 4D 24 B2 22 42 4F 4F 54 |"RUN":.RM$."BOOT|
00000400: 22 00 26 20 30 02 99 22 11 12 20 52 45 4D 4F 56 |".& 0..".. REMOV|
00000410: 45 20 54 48 45 20 20 57 52 49 54 45 20 50 52 4F |E THE WRITE PRO|
00000420: 54 45 43 54 20 22 00 4A 20 3A 02 99 22 12 20 54 |TECT ".J :..". T|
00000430: 41 42 20 46 52 4F 4D 20 54 48 45 20 44 49 53 4B |AB FROM THE DISK|
00000440: 20 41 4E 44 20 50 55 54 20 22 00 6E 20 44 02 99 | AND PUT ".n D..|
00000450: 22 12 20 59 4F 55 52 20 44 49 53 4B 20 49 4E 54 |". YOUR DISK INT|
00000460: 4F 20 44 52 49 56 45 20 30 20 4F 46 20 22 00 9F |O DRIVE 0 OF "..|
00000470: 20 4E 02 8B 44 B2 B1 37 AF 44 B3 B2 39 A7 99 22 | N..D..7.D..9.."|
00000480: 12 20 55 4E 49 54 22 44 22 9D 2E 20 20 42 45 20 |. UNIT"D".. BE |
00000490: 56 45 52 59 20 43 41 52 45 46 55 4C 21 20 22 00 |VERY CAREFUL! ".|
000004A0: CF 20 58 02 8B 44 B2 31 30 B0 44 B2 31 31 A7 99 |. X..D.10.D.11..|
000004B0: 22 12 20 55 4E 49 54 22 44 22 9D 2E 20 42 45 20 |". UNIT"D".. BE |
000004C0: 56 45 52 59 20 43 41 52 45 46 55 4C 22 20 22 00 |VERY CAREFUL" ".|
000004D0: F3 20 62 02 99 22 12 20 54 48 49 53 20 50 52 4F |. b..". THIS PRO|
000004E0: 47 52 41 4D 20 57 49 4C 4C 20 44 45 53 54 52 4F |GRAM WILL DESTRO|
000004F0: 59 20 22 00 17 21 6C 02 99 22 12 20 44 41 54 41 |Y "..!l..". DATA|
00000500: 20 49 4E 20 54 52 41 43 4B 20 31 20 53 45 43 54 | IN TRACK 1 SECT|
00000510: 4F 52 20 30 2E 20 22 00 3B 21 76 02 99 22 12 20 |OR 0. ".;!v..". |
00000520: 50 52 45 53 53 20 20 52 45 54 55 52 4E 20 54 4F |PRESS RETURN TO|
00000530: 20 43 4F 4E 54 49 4E 55 45 20 22 00 59 21 80 02 | CONTINUE ".Y!..|
00000540: A1 F9 41 24 3A 8B C6 28 41 24 29 B3 B1 31 33 A7 |..A$:..(A$)..13.|
00000550: 45 B2 AB 31 3A 89 37 35 30 00 72 21 8A 02 41 41 |E..1:.750.r!..AA|
00000560: B2 C3 28 46 24 29 AA D1 28 22 42 30 30 22 29 AA |..(F$)..("B00").|
00000570: 31 35 00 8A 21 94 02 41 4C B2 41 41 AF 32 35 35 |15..!..AL.AA.255|
00000580: 3A 41 48 B2 41 41 AD 32 35 36 00 9C 21 9E 02 98 |:AH.AA.256..!...|
00000590: 31 35 2C 22 42 2D 50 20 38 20 30 22 00 C5 21 A8 |15,"B-P 8 0"..!.|
000005A0: 02 98 38 2C 22 43 42 4D 22 3B 4E 55 24 3B 4E 55 |..8,"CBM";NU$;NU|
000005B0: 24 3B 4E 55 24 3B 4E 55 24 3B 46 24 3B 4E 55 24 |$;NU$;NU$;F$;NU$|
000005C0: 3B 4E 55 24 3B 00 E7 21 B2 02 98 38 2C C7 28 31 |;NU$;..!...8,.(1|
000005D0: 36 32 29 3B C7 28 41 4C 29 3B C7 28 31 36 30 29 |62);.(AL);.(160)|
000005E0: 3B C7 28 41 48 29 3B 00 0B 22 BC 02 98 38 2C C7 |;.(AH);.."...8,.|
000005F0: 28 37 36 29 3B C7 28 D1 28 22 41 35 22 29 29 3B |(76);.(.("A5"));|
00000600: C7 28 D1 28 22 41 46 22 29 29 3B 00 23 22 C6 02 |.(.("AF"));.#"..|
00000610: 98 38 2C 52 4D 24 3B C7 28 33 34 29 3B 46 24 3B |.8,RM$;.(34);F$;|
00000620: 4E 55 24 00 39 22 D0 02 98 31 35 2C 20 22 55 32 |NU$.9"...15, "U2|
00000630: 3A 38 20 30 20 31 20 30 22 00 53 22 DA 02 8B 42 |:8 0 1 0".S"...B|
00000640: 41 B2 30 A7 98 31 35 2C 22 42 2D 41 20 30 20 31 |A.0..15,"B-A 0 1|
00000650: 20 30 22 00 5E 22 E4 02 41 24 B2 44 53 24 00 69 | 0".^"..A$.DS$.i|
00000660: 22 EE 02 A0 38 3A A0 31 35 00 86 22 F8 02 8B 45 |"...8:.15.."...E|
00000670: A7 99 22 11 2A 2A 2A 20 41 42 4F 52 54 45 44 20 |..".*** ABORTED |
00000680: 2A 2A 2A 22 3A 80 00 9B 22 02 03 99 22 11 2A 2A |***":..."...".**|
00000690: 2A 20 44 4F 4E 45 20 2A 2A 2A 22 00 A1 22 0C 03 |* DONE ***".."..|
000006A0: A2 00 00 00 |.... |
..%.D..". *** AUTO BOOT CREATOR ***.".?.
N.."STATE DRIVE WANTED".].X..D$:D.E(D$):
.D.7.D.11.120.X....15,D,15,"IJ":NU$.G(0)
......DS.."*** DISK ERROR: ";DS$:E..1:.7
50......8,D,8,"#".U. ..15,"U1:8 0 18 0":
.15,"B-P";8;5......#8,BA$......15,"U1:8
0 1 0"......I.0.24:.#8,A$:BL$.BL$.G(F(A$
)):..1.H..(F(BA$).1).0....H.R..H(BL$,3).
"CBM"....J...."*** ALREADY A BOOT DISK:
";.R...I.8.X.........A$.J(BL$,I,1)......
A$;.....I.I.1.......A$.NU$...".....,...:
U.....6.."*** BOOT SECTOR USED BY ANOTHE
R PROGRAM ***"...@......J..".. CONTINUE
(Y/N) . .N...";A$.5.T..A$.."Y".E..1
:.750.?.^.BA..1.F.H....K.R..".. ENTER YO
UR PROGRAM'S NAME "...|..". (UP TO 16 CH
ARACTERS) "......". STARTUP........
.";F$......C(F$).16.........". THAT'
S TOO BIG!";.......2......390..........B
..F$.""..:..(.L..".. ENTER YOUR PROGRAM'
S TYPE ".L.V..". ('BASIC' OR 'BINARY')
".F....". BASIC.......";T$......T$..
"BASIC".T$.."BINARY".........". ENTE
R 'BASIC' OR 'BINARY'";.......2.K...."..
."G(27)"@.".T....480......... &..T$."BAS
IC".RM$."RUN":URM$."BOOT".& 0..".. REMOV
E THE WRITE PROTECT ".J :..". TAB FROM
THE DISK AND PUT ".N D..". YOUR DISK INT
O DRIVE 0 OF ".. N..D..7.D..9..". UNIT"D
".. BE VERY CAREFUL! ".O X..D.10.D.11..
". UNIT"D".. BE VERY CAREFUL" ".. B..".
THIS PROGRAM WILL DESTROY "..!L..". DATA
IN TRACK 1 SECTOR 0. ".;!V..". PRESS R
ETURN TO CONTINUE ".Y!....A$:.F(A$)..13.
E..1:.750.R!..AA.C(F$).Q("B00").15..!..A
L.AA.255:AH.AA.256..!...15,"B-P 8 0".E!.
..8,"CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;..!
...8,G(162);G(AL);G(160);G(AH);.."...8,G
(76);G(Q("A5"));G(Q("AF"));.#"F..8,RM$;G
(34);F$;NU$.9"P..15, "U2:8 0 1 0".S"Z..B
A.0..15,"B-A 0 1 0".^"..A$.DS$.I".. 8: 1
5.."...E..".*** ABORTED ***":..."...".**
* DONE ***".."......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL