AUTOBOOT
FILE INFORMATION
FILENAME(S): AUTOBOOT
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 1 disk(s)
FILE HASH
d01cad50bd823726069bbbccc15c11240dbca135444cc0fa676b519fafcc8da6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 1 2 | AUTOBOOT | PRG | High Voltage Complete C64 Collection | 17 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 3E 40 0A 00 8F 20 30 39 4A 55 4C 59 38 37 |.@>@... 09JULY87|
00000010: 20 56 45 52 53 49 4F 4E 20 46 4F 52 20 43 31 32 | VERSION FOR C12|
00000020: 38 2C 20 53 55 50 50 4F 52 54 49 4E 47 20 31 35 |8, SUPPORTING 15|
00000030: 34 31 2C 20 31 35 37 31 2C 20 31 35 38 31 00 62 |41, 1571, 1581.b|
00000040: 40 E8 03 99 22 93 20 2A 2A 2A 20 41 55 54 4F 20 |@...". *** AUTO |
00000050: 42 4F 4F 54 20 43 52 45 41 54 4F 52 20 2A 2A 2A |BOOT CREATOR ***|
00000060: 11 22 00 68 40 F2 03 8F 00 7F 40 FC 03 8F 20 20 |.".h@.....@... |
00000070: 20 42 59 20 20 46 52 45 44 20 42 4F 57 45 4E 00 | BY FRED BOWEN.|
00000080: 85 40 06 04 8F 00 AB 40 07 04 85 22 54 41 52 47 |.@.....@..."TARG|
00000090: 45 54 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 20 |ET DISK IN UNIT |
000000A0: 20 20 20 38 9D 9D 9D 22 3B 55 41 00 ED 40 08 04 | 8...";UA..@..|
000000B0: 99 22 91 49 4E 53 45 52 54 20 54 41 52 47 45 54 |.".INSERT TARGET|
000000C0: 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 55 41 | DISK IN UNIT"UA|
000000D0: 3A 99 3A 99 22 12 48 49 54 20 41 4E 59 20 4B 45 |:.:.".HIT ANY KE|
000000E0: 59 20 54 4F 20 42 45 47 49 4E 92 22 3B 00 0C 41 |Y TO BEGIN.";..A|
000000F0: 09 04 A1 F9 41 24 20 3A 4E 55 24 B2 C7 28 30 29 |....A$ :NU$..(0)|
00000100: 3A 20 99 C7 28 32 37 29 22 44 22 3B 00 47 41 10 |: ..(27)"D";.GA.|
00000110: 04 9F 31 35 2C 55 41 2C 31 35 2C 22 55 49 22 3A |..15,UA,15,"UI":|
00000120: 20 84 31 35 2C 41 24 2C 41 24 2C 45 2C 45 20 3A | .15,A$,A$,E,E :|
00000130: 55 54 B2 C5 28 C9 28 41 24 2C 34 29 29 20 3A 98 |UT..(.(A$,4)) :.|
00000140: 31 35 2C 22 49 30 22 00 7A 41 1A 04 3A 20 20 8B |15,"I0".zA..: .|
00000150: 20 44 53 20 A7 20 99 22 2A 2A 2A 20 44 49 53 4B | DS . ."*** DISK|
00000160: 20 45 52 52 4F 52 3A 20 22 3B 44 53 24 3A 20 45 | ERROR: ";DS$: E|
00000170: B2 AB 31 3A 20 89 31 37 32 30 00 93 41 1F 04 3A |..1: .1720..A..:|
00000180: 20 20 99 22 55 4E 49 54 22 55 41 22 49 53 20 41 | ."UNIT"UA"IS A|
00000190: 22 55 54 00 A3 41 24 04 9F 38 2C 55 41 2C 38 2C |"UT..A$..8,UA,8,|
000001A0: 22 23 22 00 DD 41 2E 04 8B 20 55 54 B2 31 35 38 |"#"..A... UT.158|
000001B0: 31 20 A7 20 98 31 35 2C 22 55 31 3A 38 20 30 20 |1 . .15,"U1:8 0 |
000001C0: 34 30 20 31 22 3A 98 31 35 2C 22 42 2D 50 22 3B |40 1":.15,"B-P";|
000001D0: 38 3B 31 37 20 3A 20 89 20 31 30 38 30 00 01 42 |8;17 : . 1080..B|
000001E0: 33 04 98 31 35 2C 22 55 31 3A 38 20 30 20 31 38 |3..15,"U1:8 0 18|
000001F0: 20 30 22 3A 98 31 35 2C 22 42 2D 50 22 3B 38 3B | 0":.15,"B-P";8;|
00000200: 35 00 10 42 38 04 3A 20 20 A1 23 38 2C 42 41 24 |5..B8.: .#8,BA$|
00000210: 00 25 42 42 04 98 31 35 2C 22 55 31 3A 38 20 30 |.%BB..15,"U1:8 0|
00000220: 20 31 20 30 22 00 51 42 4C 04 3A 20 20 81 49 B2 | 1 0".QBL.: .I.|
00000230: 30 A4 32 34 3A 20 A1 23 38 2C 41 24 3A 20 42 4C |0.24: .#8,A$: BL|
00000240: 24 B2 42 4C 24 AA C7 28 C6 28 41 24 29 29 3A 20 |$.BL$..(.(A$)): |
00000250: 82 00 69 42 56 04 8B 20 28 C6 28 42 41 24 29 AF |..iBV.. (.(BA$).|
00000260: 31 29 B2 30 20 A7 20 FE 18 00 86 42 60 04 3A 20 |1).0 . ....B`.: |
00000270: 20 8B 20 C8 28 42 4C 24 2C 33 29 B2 22 43 42 4D | . .(BL$,3)."CBM|
00000280: 22 20 A7 20 FE 18 00 B0 42 6A 04 3A 20 20 20 20 |" . ....Bj.: |
00000290: 20 99 3A 99 22 2A 2A 2A 20 41 4C 52 45 41 44 59 | .:."*** ALREADY|
000002A0: 20 41 20 42 4F 4F 54 20 44 49 53 4B 3A 20 22 3B | A BOOT DISK: ";|
000002B0: 00 BE 42 74 04 3A 20 20 20 20 20 49 B2 38 00 CA |..Bt.: I.8..|
000002C0: 42 7E 04 3A 20 20 20 20 20 EB 00 E5 42 88 04 3A |B~.: ...B..:|
000002D0: 20 20 20 20 20 20 20 20 41 24 B2 CA 28 42 4C 24 | A$..(BL$|
000002E0: 2C 49 2C 31 29 00 F7 42 92 04 3A 20 20 20 20 20 |,I,1)..B..: |
000002F0: 20 20 20 99 41 24 3B 00 0A 43 9C 04 3A 20 20 20 | .A$;..C..: |
00000300: 20 20 20 20 20 49 B2 49 AA 31 00 22 43 A6 04 3A | I.I.1."C..:|
00000310: 20 20 20 20 20 20 20 20 EC 20 FC 20 41 24 B2 4E | . . A$.N|
00000320: 55 24 00 2D 43 B0 04 3A 20 20 20 20 99 00 3F 43 |U$.-C..: ..?C|
00000330: BA 04 3A 20 20 20 20 FE 19 3A 20 D5 20 FE 18 00 |..: ..: . ...|
00000340: 78 43 C4 04 3A 20 20 20 20 20 99 22 2A 2A 2A 20 |xC..: ."*** |
00000350: 42 4F 4F 54 20 53 45 43 54 4F 52 20 55 53 45 44 |BOOT SECTOR USED|
00000360: 20 42 59 20 41 4E 4F 54 48 45 52 20 50 52 4F 47 | BY ANOTHER PROG|
00000370: 52 41 4D 20 2A 2A 2A 22 00 84 43 CE 04 3A 20 20 |RAM ***"..C..: |
00000380: 20 20 FE 19 00 AF 43 D8 04 3A 20 85 22 11 12 20 | ....C..: .".. |
00000390: 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 20 20 |CONTINUE (Y/N) |
000003A0: 20 92 20 20 20 20 92 4E 9D 9D 9D 22 3B 41 24 00 | . .N...";A$.|
000003B0: CD 43 E2 04 3A 20 8B 20 41 24 B3 B1 22 59 22 20 |.C..: . A$.."Y" |
000003C0: A7 20 45 B2 AB 31 3A 20 89 31 37 32 30 00 DB 43 |. E..1: .1720..C|
000003D0: EC 04 3A 20 42 41 20 B2 20 AB 31 00 E2 43 F6 04 |..: BA . .1..C..|
000003E0: FE 19 00 07 44 00 05 99 22 11 12 20 45 4E 54 45 |....D...".. ENTE|
000003F0: 52 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 27 53 |R YOUR PROGRAM'S|
00000400: 20 4E 41 4D 45 20 22 00 2B 44 0A 05 99 22 12 20 | NAME ".+D...". |
00000410: 28 55 50 20 54 4F 20 31 36 20 43 48 41 52 41 43 |(UP TO 16 CHARAC|
00000420: 54 45 52 53 29 20 20 20 20 20 22 00 48 44 14 05 |TERS) ".HD..|
00000430: 85 22 20 20 53 54 41 52 54 55 50 9D 9D 9D 9D 9D |." STARTUP.....|
00000440: 9D 9D 9D 9D 22 3B 46 24 00 4E 44 1E 05 3A 00 61 |....";F$.ND..:.a|
00000450: 44 28 05 8B C3 28 46 24 29 B1 31 36 20 A7 20 FE |D(...(F$).16 . .|
00000460: 18 00 82 44 32 05 3A 20 20 99 22 11 20 20 20 20 |...D2.: .". |
00000470: 20 54 48 41 54 27 53 20 54 4F 4F 20 42 49 47 21 | THAT'S TOO BIG!|
00000480: 22 3B 00 8D 44 3C 05 3A 20 20 FE 0B 32 00 9A 44 |";..D<.: ..2..D|
00000490: 46 05 3A 20 20 89 31 33 30 30 00 A4 44 50 05 3A |F.: .1300..DP.:|
000004A0: 20 20 FE 19 00 B1 44 5A 05 8B 46 24 B2 22 22 A7 | ....DZ..F$."".|
000004B0: 80 00 B7 44 64 05 3A 00 DC 44 6E 05 99 22 11 12 |...Dd.:..Dn.."..|
000004C0: 20 45 4E 54 45 52 20 59 4F 55 52 20 50 52 4F 47 | ENTER YOUR PROG|
000004D0: 52 41 4D 27 53 20 54 59 50 45 20 22 00 00 45 78 |RAM'S TYPE "..Ex|
000004E0: 05 99 22 12 20 28 27 42 41 53 49 43 27 20 4F 52 |..". ('BASIC' OR|
000004F0: 20 27 42 49 4E 41 52 59 27 29 20 20 20 20 20 22 | 'BINARY') "|
00000500: 00 19 45 82 05 85 22 20 20 42 41 53 49 43 9D 9D |..E..." BASIC..|
00000510: 9D 9D 9D 9D 9D 22 3B 54 24 00 1F 45 8C 05 3A 00 |.....";T$..E..:.|
00000520: 47 45 96 05 8B 20 54 24 B3 B1 22 42 41 53 49 43 |GE... T$.."BASIC|
00000530: 22 20 AF 20 54 24 20 B3 B1 20 22 42 49 4E 41 52 |" . T$ .. "BINAR|
00000540: 59 22 20 A7 20 FE 18 00 72 45 A0 05 3A 20 20 99 |Y" . ...rE..: .|
00000550: 22 11 20 20 20 20 20 45 4E 54 45 52 20 27 42 41 |". ENTER 'BA|
00000560: 53 49 43 27 20 4F 52 20 27 42 49 4E 41 52 59 27 |SIC' OR 'BINARY'|
00000570: 22 3B 00 7D 45 AA 05 3A 20 20 FE 0B 32 00 94 45 |";.}E..: ..2..E|
00000580: B4 05 3A 20 20 99 22 91 91 91 22 C7 28 32 37 29 |..: ."...".(27)|
00000590: 22 40 91 22 00 A1 45 BE 05 3A 20 20 89 31 34 31 |"@."..E..: .141|
000005A0: 30 00 AB 45 C8 05 3A 20 20 FE 19 00 D7 45 D2 05 |0..E..: ....E..|
000005B0: 8B 20 54 24 B2 22 42 41 53 49 43 22 20 A7 20 52 |. T$."BASIC" . R|
000005C0: 4D 24 B2 22 52 55 4E 22 20 3A 20 D5 20 52 4D 24 |M$."RUN" : . RM$|
000005D0: B2 22 42 4F 4F 54 22 00 FD 45 D3 05 99 22 11 12 |."BOOT"..E..."..|
000005E0: 20 45 4E 54 45 52 20 42 4F 4F 54 20 44 49 53 4B | ENTER BOOT DISK|
000005F0: 20 55 4E 49 54 20 4E 55 4D 42 45 52 22 00 1B 46 | UNIT NUMBER"..F|
00000600: D4 05 99 22 12 20 28 2A 20 46 4F 52 20 52 55 4E |...". (* FOR RUN|
00000610: 54 49 4D 45 20 55 4E 49 54 29 22 00 2C 46 D5 05 |TIME UNIT)".,F..|
00000620: 85 22 20 20 38 9D 9D 9D 22 3B 55 24 00 32 46 DC |." 8...";U$.2F.|
00000630: 05 3A 00 57 46 0E 06 99 22 11 12 20 54 48 49 53 |.:.WF...".. THIS|
00000640: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 44 45 | PROGRAM WILL DE|
00000650: 53 54 52 4F 59 20 22 00 7B 46 18 06 99 22 12 20 |STROY ".{F...". |
00000660: 44 41 54 41 20 49 4E 20 54 52 41 43 4B 20 31 20 |DATA IN TRACK 1 |
00000670: 53 45 43 54 4F 52 20 30 2E 20 22 00 9F 46 22 06 |SECTOR 0. "..F".|
00000680: 99 22 12 20 50 52 45 53 53 20 20 52 45 54 55 52 |.". PRESS RETUR|
00000690: 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 22 00 |N TO CONTINUE ".|
000006A0: C3 46 2C 06 A1 F9 41 24 3A 20 8B 20 C6 28 41 24 |.F,...A$: . .(A$|
000006B0: 29 B3 B1 31 33 20 A7 20 45 B2 AB 31 3A 20 89 31 |)..13 . E..1: .1|
000006C0: 37 32 30 00 C9 46 36 06 3A 00 E3 46 40 06 41 41 |720..F6.:..F@.AA|
000006D0: B2 20 C3 28 46 24 29 AA D1 28 22 42 30 30 22 29 |. .(F$)..("B00")|
000006E0: AA 31 35 00 04 47 4A 06 41 4C B2 20 41 41 20 AF |.15..GJ.AL. AA .|
000006F0: 20 32 35 35 3A 20 20 20 41 48 B2 20 41 41 20 AD | 255: AH. AA .|
00000700: 20 32 35 36 00 0A 47 54 06 3A 00 1C 47 5E 06 98 | 256..GT.:..G^..|
00000710: 31 35 2C 22 42 2D 50 20 38 20 30 22 00 46 47 68 |15,"B-P 8 0".FGh|
00000720: 06 98 38 2C 20 22 43 42 4D 22 3B 4E 55 24 3B 4E |..8, "CBM";NU$;N|
00000730: 55 24 3B 4E 55 24 3B 4E 55 24 3B 46 24 3B 4E 55 |U$;NU$;NU$;F$;NU|
00000740: 24 3B 4E 55 24 3B 00 69 47 72 06 98 38 2C 20 C7 |$;NU$;.iGr..8, .|
00000750: 28 31 36 32 29 3B C7 28 41 4C 29 3B C7 28 31 36 |(162);.(AL);.(16|
00000760: 30 29 3B C7 28 41 48 29 3B 00 8E 47 7C 06 98 38 |0);.(AH);..G|..8|
00000770: 2C 20 C7 28 37 36 29 3B C7 28 D1 28 22 41 35 22 |, .(76);.(.("A5"|
00000780: 29 29 3B C7 28 D1 28 22 41 46 22 29 29 3B 00 C5 |));.(.("AF"));..|
00000790: 47 86 06 8B 55 24 B3 B1 22 2A 22 A7 20 98 38 2C |G...U$.."*". .8,|
000007A0: 20 52 4D 24 3B C7 28 33 34 29 3B 46 24 3B C7 28 | RM$;.(34);F$;.(|
000007B0: 33 34 29 3B 22 2C 55 22 3B 55 24 3B 4E 55 24 3A |34);",U";U$;NU$:|
000007C0: 89 31 36 38 30 00 FB 47 8B 06 98 38 2C 20 22 55 |.1680..G...8, "U|
000007D0: 3D 50 45 45 4B 28 31 38 36 29 3A 22 3B 52 4D 24 |=PEEK(186):";RM$|
000007E0: 3B C7 28 33 34 29 3B 46 24 3B C7 28 33 34 29 3B |;.(34);F$;.(34);|
000007F0: 22 2C 55 28 55 29 22 3B 4E 55 24 00 11 48 90 06 |",U(U)";NU$..H..|
00000800: 98 31 35 2C 20 22 55 32 3A 38 20 30 20 31 20 30 |.15, "U2:8 0 1 0|
00000810: 22 00 2F 48 9A 06 8B 20 42 41 B2 30 20 A7 20 98 |"./H... BA.0 . .|
00000820: 31 35 2C 20 22 42 2D 41 20 30 20 31 20 30 22 00 |15, "B-A 0 1 0".|
00000830: 3A 48 A4 06 41 24 B2 44 53 24 00 40 48 AE 06 3A |:H..A$.DS$.@H..:|
00000840: 00 4C 48 B8 06 A0 38 3A 20 A0 31 35 00 6D 48 C2 |.LH...8: .15.mH.|
00000850: 06 8B 20 45 20 A7 20 99 22 11 2A 2A 2A 20 41 42 |.. E . .".*** AB|
00000860: 4F 52 54 45 44 20 2A 2A 2A 22 3A 20 80 00 83 48 |ORTED ***": ...H|
00000870: CC 06 99 20 22 11 2A 2A 2A 20 44 4F 4E 45 20 2A |... ".*** DONE *|
00000880: 2A 2A 22 00 89 48 D6 06 80 00 CF 48 0F 27 8F 20 |**"..H.....H.'. |
00000890: 30 39 4A 55 4C 59 38 37 20 46 2E 42 4F 57 45 4E |09JULY87 F.BOWEN|
000008A0: 20 20 28 43 29 20 31 39 38 37 20 42 59 20 43 4F | (C) 1987 BY CO|
000008B0: 4D 4D 4F 44 4F 52 45 20 42 55 53 49 4E 45 53 53 |MMODORE BUSINESS|
000008C0: 20 4D 41 43 48 49 4E 45 53 2C 20 49 4E 43 2E 00 | MACHINES, INC..|
000008D0: 00 00 |.. |
.@>@... 09JULY87 VERSION FOR C128, SUPPO
RTING 1541, 1571, 1581.B@...". *** AUTO
BOOT CREATOR ***.".H@....@... BY FRE
D BOWEN..@.....@..."TARGET DISK IN UNIT
8...";UA..@...".INSERT TARGET DISK IN
UNIT"UA:.:.".HIT ANY KEY TO BEGIN.";..A
....A$ :NU$.G(0): .G(27)"D";.GA...15,UA,
15,"UI": .15,A$,A$,E,E :UT.E(I(A$,4)) :.
15,"I0".ZA..: . DS . ."*** DISK ERROR:
";DS$: E..1: .1720..A..: ."UNIT"UA"IS A
"UT..A$..8,UA,8,"#"..A... UT.1581 . .15,
"U1:8 0 40 1":.15,"B-P";8;17 : . 1080..B
3..15,"U1:8 0 18 0":.15,"B-P";8;5..B8.:
.#8,BA$.%BB..15,"U1:8 0 1 0".QBL.: .I.
0.24: .#8,A$: BL$.BL$.G(F(A$)): ..IBV..
(F(BA$).1).0 . ....B`.: . H(BL$,3)."CBM
" . ....BJ.: .:."*** ALREADY A BOOT
DISK: ";..BT.: I.8.JB~.: ...B..:
A$.J(BL$,I,1)..B..: .A$;.
.C..: I.I.1."C..: . . A$.N
U$.-C..: ..?C..: ..: U ...XCD.:
."*** BOOT SECTOR USED BY ANOTHER PROG
RAM ***"..CN.: ....CX.: .".. CONTINUE
(Y/N) . .N...";A$.MC..: . A$.."Y"
. E..1: .1720..C..: BA . .1..C......D...
".. ENTER YOUR PROGRAM'S NAME ".+D...".
(UP TO 16 CHARACTERS) ".HD..." STAR
TUP.........";F$.ND..:.AD(..C(F$).16 . .
...D2.: .". THAT'S TOO BIG!";..D<.:
..2..DF.: .1300..DP.: ....DZ..F$."".
...DD.:..DN..".. ENTER YOUR PROGRAM'S TY
PE "..EX..". ('BASIC' OR 'BINARY') "
..E..." BASIC.......";T$..E..:.GE... T$
.."BASIC" . T$ .. "BINARY" . ...RE .: .
". ENTER 'BASIC' OR 'BINARY'";.}E..:
..2..E..: ."..."G(27)"@."..E..: .141
0..EH.: ...WER.. T$."BASIC" . RM$."RUN"
: U RM$."BOOT"..ES..".. ENTER BOOT DISK
UNIT NUMBER"..FT..". (* FOR RUNTIME UNI
T)".,FU.." 8...";U$.2F..:.WF...".. THIS
PROGRAM WILL DESTROY ".{F...". DATA IN
TRACK 1 SECTOR 0. "..F"..". PRESS RETUR
N TO CONTINUE ".CF,...A$: . F(A$)..13 .
E..1: .1720.IF6.:..F@.AA. C(F$).Q("B00")
.15..GJ.AL. AA . 255: AH. AA . 256..GT
.:..G^..15,"B-P 8 0".FGH..8, "CBM";NU$;N
U$;NU$;NU$;F$;NU$;NU$;.IGR..8, G(162);G(
AL);G(160);G(AH);..G|..8, G(76);G(Q("A5"
));G(Q("AF"));.EG...U$.."*". .8, RM$;G(3
4);F$;G(34);",U";U$;NU$:.1680..G...8, "U
=PEEK(186):";RM$;G(34);F$;G(34);",U(U)";
NU$..H...15, "U2:8 0 1 0"./H... BA.0 . .
15, "B-A 0 1 0".:H..A$.DS$.@H..:.LH.. 8:
15.MHB.. E . .".*** ABORTED ***": ...H
L.. ".*** DONE ***"..HV...OH.'. 09JULY87
F.BOWEN (C) 1987 BY COMMODORE BUSINESS
MACHINES, INC....
> CLICK IMAGE PREVIEW FOR FULL MODAL