_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

BOOTSECTOR MAKER

FILE INFORMATION

FILENAME(S): BOOTSECTOR MAKER

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-10-19 23:07:24

APPEARS ON: 1 disk(s)

FILE HASH

03be012579aae4324126f50eaca2826712db8cbc79a49bc7a0cd286f78a664a9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
KILLER SOFTWARE BOOTSECTOR MAKER PRG Bugjam - Argentina 13 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 DE 03 97 35  33 32 38 30 2C 36 00 38  |.......53280,6.8|
00000010: 08 E8 03 54 24 B2 22 05  C0 C0 C0 C0 C0 C0 C0 C0  |...T$.".........|
00000020: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000030: C0 C0 C0 C0 C0 C0 C0 22  00 47 08 F2 03 99 22 93  |.......".G....".|
00000040: 22 A3 34 29 3B 54 24 00  73 08 FC 03 99 A3 34 29  |".4);T$.s.....4)|
00000050: 3B 22 05 53 55 50 45 52  20 53 4E 41 50 53 48 4F  |;".SUPER SNAPSHO|
00000060: 54 20 42 4F 4F 54 53 45  43 54 4F 52 20 4D 41 4B  |T BOOTSECTOR MAK|
00000070: 45 52 22 00 7F 08 06 04  99 A3 34 29 3B 54 24 00  |ER".......4);T$.|
00000080: A3 08 10 04 51 24 B2 C7  28 33 34 29 3A 53 50 24  |....Q$..(34):SP$|
00000090: B2 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
000000A0: 20 20 22 00 A9 08 1A 04  8F 00 C2 08 24 04 44 56  |  ".........$.DV|
000000B0: B2 C2 28 31 38 36 29 3A  8B 44 56 B2 30 A7 44 56  |..(186):.DV.0.DV|
000000C0: B2 38 00 08 09 2E 04 99  22 11 11 49 4E 53 45 52  |.8......"..INSER|
000000D0: 54 20 54 41 52 47 45 54  20 44 49 53 4B 2E 20 20  |T TARGET DISK.  |
000000E0: 52 45 4D 4F 56 45 20 41  4E 59 20 57 52 49 54 45  |REMOVE ANY WRITE|
000000F0: 20 20 20 50 52 4F 54 45  43 54 20 46 49 52 53 54  |   PROTECT FIRST|
00000100: 2E 22 3A 8D 32 30 30 30  00 21 09 38 04 9F 31 2C  |.":.2000.!.8..1,|
00000110: 44 56 2C 31 35 3A 9F 32  2C 44 56 2C 32 2C 22 23  |DV,15:.2,DV,2,"#|
00000120: 22 00 27 09 42 04 8F 00  48 09 4C 04 98 31 2C 22  |".'.B...H.L..1,"|
00000130: 55 31 3A 32 20 30 20 31  20 30 22 3A 98 31 2C 22  |U1:2 0 1 0":.1,"|
00000140: 42 2D 50 20 32 20 30 22  00 66 09 56 04 4C B2 33  |B-P 2 0".f.V.L.3|
00000150: 3A 8D 32 31 30 30 3A 8B  49 24 B3 B1 22 43 42 4D  |:.2100:.I$.."CBM|
00000160: 22 A7 31 32 30 30 00 8C  09 60 04 99 22 11 2A 2A  |".1200...`..".**|
00000170: 2A 20 43 4F 4D 4D 4F 44  4F 52 45 20 31 32 38 20  |* COMMODORE 128 |
00000180: 42 4F 4F 54 20 53 45 43  54 4F 52 22 00 A8 09 6A  |BOOT SECTOR"...j|
00000190: 04 99 22 2A 2A 2A 20 41  4C 52 45 41 44 59 20 50  |.."*** ALREADY P|
000001A0: 52 45 53 45 4E 54 21 22  00 CF 09 74 04 99 22 11  |RESENT!"...t..".|
000001B0: 49 46 20 59 4F 55 20 50  52 4F 43 45 45 44 2C 20  |IF YOU PROCEED, |
000001C0: 54 48 45 20 43 2D 31 32  38 20 42 4F 4F 54 22 00  |THE C-128 BOOT".|
000001D0: ED 09 7E 04 99 22 53 45  43 54 4F 52 20 4D 41 59  |..~.."SECTOR MAY|
000001E0: 20 42 45 20 44 41 4D 41  47 45 44 21 22 00 1A 0A  | BE DAMAGED!"...|
000001F0: 88 04 99 22 28 42 55 54  20 49 54 20 50 52 4F 42  |..."(BUT IT PROB|
00000200: 41 42 4C 59 20 57 49 4C  4C 20 4E 4F 54 20 42 45  |ABLY WILL NOT BE|
00000210: 20 44 41 4D 41 47 45 44  29 22 00 48 0A 92 04 85  | DAMAGED)".H....|
00000220: 22 11 44 4F 20 59 4F 55  20 57 41 4E 54 20 54 4F  |".DO YOU WANT TO|
00000230: 20 50 52 4F 43 45 45 44  20 28 59 2F 4E 29 20 20  | PROCEED (Y/N)  |
00000240: 4E 9D 9D 9D 22 3B 49 24  00 61 0A 9C 04 4F 4B B2  |N...";I$.a...OK.|
00000250: 31 3A 8B 49 24 B3 B1 22  59 22 A7 20 89 31 35 34  |1:.I$.."Y". .154|
00000260: 35 00 67 0A A6 04 3A 00  94 0A B0 04 98 31 2C 22  |5.g...:......1,"|
00000270: 42 2D 50 20 32 20 32 35  33 22 3A 4C B2 33 3A 8D  |B-P 2 253":L.3:.|
00000280: 32 31 30 30 3A 8B 49 24  B3 B1 22 43 42 4D 22 A7  |2100:.I$.."CBM".|
00000290: 31 33 31 30 00 C5 0A BA  04 98 31 2C 22 42 2D 50  |1310......1,"B-P|
000002A0: 20 32 20 32 34 30 22 3A  A1 23 32 2C 41 24 3A 49  | 2 240":.#2,A$:I|
000002B0: B2 C6 28 41 24 AA C7 28  30 29 29 3A 8B 49 B2 30  |..(A$..(0)):.I.0|
000002C0: A7 31 33 31 30 00 EC 0A  C4 04 99 22 11 2A 2A 2A  |.1310......".***|
000002D0: 20 53 55 50 45 52 20 53  4E 41 50 53 48 4F 54 20  | SUPER SNAPSHOT |
000002E0: 42 4F 4F 54 20 53 45 43  54 4F 52 22 00 08 0B CE  |BOOT SECTOR"....|
000002F0: 04 99 22 2A 2A 2A 20 41  4C 52 45 41 44 59 20 50  |.."*** ALREADY P|
00000300: 52 45 53 45 4E 54 21 22  00 25 0B D8 04 98 31 2C  |RESENT!".%....1,|
00000310: 22 42 2D 50 20 32 20 32  32 34 22 3A 4C B2 49 3A  |"B-P 2 224":L.I:|
00000320: 8D 32 31 30 30 00 46 0B  E2 04 99 22 11 54 48 45  |.2100.F....".THE|
00000330: 20 42 4F 4F 54 20 46 49  4C 45 20 49 53 20 53 45  | BOOT FILE IS SE|
00000340: 54 20 54 4F 3A 22 00 54  0B EC 04 99 51 24 3B 49  |T TO:".T....Q$;I|
00000350: 24 3B 51 24 00 78 0B F6  04 99 22 11 44 4F 20 59  |$;Q$.x....".DO Y|
00000360: 4F 55 20 57 41 4E 54 20  54 4F 20 52 45 44 45 46  |OU WANT TO REDEF|
00000370: 49 4E 45 20 54 48 45 22  00 9D 0B 00 05 85 22 42  |INE THE"......"B|
00000380: 4F 4F 54 20 46 49 4C 45  20 4E 41 4D 45 20 28 59  |OOT FILE NAME (Y|
00000390: 2F 4E 29 20 20 4E 9D 9D  9D 22 3B 49 24 00 B6 0B  |/N)  N...";I$...|
000003A0: 0A 05 4F 4B B2 31 3A 8B  49 24 B3 B1 22 59 22 A7  |..OK.1:.I$.."Y".|
000003B0: 20 89 31 35 34 35 00 BC  0B 14 05 3A 00 C9 0B 1E  | .1545.....:....|
000003C0: 05 8B 4F 4B A7 31 34 34  30 00 CF 0B 28 05 3A 00  |..OK.1440...(.:.|
000003D0: E5 0B 32 05 8F 20 46 49  4E 44 20 44 52 49 56 45  |..2.. FIND DRIVE|
000003E0: 20 54 59 50 45 00 0B 0C  3C 05 8F 20 54 50 3D 30  | TYPE...<.. TP=0|
000003F0: 20 49 53 20 31 35 34 31  2F 31 35 37 31 2C 20 54  | IS 1541/1571, T|
00000400: 50 3D 31 20 49 53 20 31  35 38 31 00 11 0C 46 05  |P=1 IS 1581...F.|
00000410: 8F 00 39 0C 50 05 98 31  2C 22 4D 2D 52 22 3B C7  |..9.P..1,"M-R";.|
00000420: 28 32 35 34 29 3B C7 28  32 35 35 29 3B C7 28 31  |(254);.(255);.(1|
00000430: 29 3B 3A A1 23 31 2C 49  24 00 52 0C 5A 05 54 50  |);:.#1,I$.R.Z.TP|
00000440: B2 30 3A 8B 49 24 B2 C7  28 33 29 20 A7 20 54 50  |.0:.I$..(3) . TP|
00000450: B2 31 00 69 0C 64 05 8D  32 32 30 30 20 3A 8F 20  |.1.i.d..2200 :. |
00000460: 43 48 45 43 4B 20 42 41  4D 00 7A 0C 6E 05 8B 20  |CHECK BAM.z.n.. |
00000470: 46 52 B2 31 20 A7 31 34  34 30 00 A1 0C 78 05 99  |FR.1 .1440...x..|
00000480: 22 11 42 4F 4F 54 20 53  45 43 54 4F 52 20 49 53  |".BOOT SECTOR IS|
00000490: 20 41 4C 52 45 41 44 59  20 49 4E 20 55 53 45 2E  | ALREADY IN USE.|
000004A0: 22 00 BA 0C 82 05 99 22  54 52 59 20 41 4E 4F 54  |"......"TRY ANOT|
000004B0: 48 45 52 20 44 49 53 4B  2E 22 00 CB 0C 8C 05 89  |HER DISK."......|
000004C0: 31 35 34 35 20 3A 8F 20  45 4E 44 00 D1 0C 96 05  |1545 :. END.....|
000004D0: 3A 00 FB 0C A0 05 99 22  11 11 4E 41 4D 45 20 4F  |:......"..NAME O|
000004E0: 46 20 42 4F 4F 54 20 46  49 4C 45 20 28 31 36 20  |F BOOT FILE (16 |
000004F0: 43 48 41 52 53 20 4D 41  58 29 22 00 34 0D AA 05  |CHARS MAX)".4...|
00000500: 85 20 49 24 3A 8B C3 28  49 24 29 B1 31 36 A7 49  |. I$:..(I$).16.I|
00000510: 24 B2 C8 28 49 24 2C 31  36 29 3A 99 22 54 52 55  |$..(I$,16):."TRU|
00000520: 4E 43 41 54 49 4E 47 20  54 4F 20 31 36 20 43 48  |NCATING TO 16 CH|
00000530: 41 52 53 22 00 51 0D B4  05 49 4C B2 C3 28 49 24  |ARS".Q...IL..(I$|
00000540: 29 3A 49 24 B2 C8 28 49  24 AA 53 50 24 2C 31 36  |):I$..(I$.SP$,16|
00000550: 29 00 92 0D BE 05 99 22  11 50 4C 45 41 53 45 20  |)......".PLEASE |
00000560: 4D 41 4B 45 20 53 55 52  45 20 54 48 49 53 20 44  |MAKE SURE THIS D|
00000570: 49 53 4B 20 49 53 20 4E  4F 54 20 57 52 49 54 45  |ISK IS NOT WRITE|
00000580: 20 50 52 4F 54 45 43 54  45 44 2C 22 3A 8D 32 30  | PROTECTED,":.20|
00000590: 30 30 00 98 0D C8 05 3A  00 BB 0D D2 05 98 31 2C  |00.....:......1,|
000005A0: 22 55 31 3A 32 20 30 20  31 20 30 22 3A 98 31 2C  |"U1:2 0 1 0":.1,|
000005B0: 22 42 2D 50 20 32 20 32  32 34 22 00 DC 0D DC 05  |"B-P 2 224".....|
000005C0: 98 32 2C 49 24 3B C7 28  49 4C 29 3B C8 28 53 50  |.2,I$;.(IL);.(SP|
000005D0: 24 2C 31 32 29 3B 22 43  42 4D 22 3B 00 F0 0D E6  |$,12);"CBM";....|
000005E0: 05 98 31 2C 22 55 32 3A  32 20 30 20 31 20 30 22  |..1,"U2:2 0 1 0"|
000005F0: 00 F6 0D F0 05 3A 00 13  0E FA 05 8B 20 4F 4B B2  |.....:...... OK.|
00000600: 30 20 A7 20 98 31 2C 22  42 2D 41 20 30 20 31 20  |0 . .1,"B-A 0 1 |
00000610: 30 22 3B 00 23 0E FF 05  81 58 B2 31 A4 39 30 30  |0";.#....X.1.900|
00000620: 3A 82 58 00 44 0E 04 06  99 3A 99 3A 99 22 42 4F  |:.X.D....:.:."BO|
00000630: 4F 54 53 45 43 54 4F 52  20 49 4E 53 54 41 4C 4C  |OTSECTOR INSTALL|
00000640: 45 44 21 22 00 6F 0E 08  06 99 3A 99 22 54 48 49  |ED!".o....:."THI|
00000650: 53 20 44 49 53 4B 20 4D  41 59 20 4E 4F 57 20 42  |S DISK MAY NOW B|
00000660: 45 20 41 55 54 4F 2D 42  4F 4F 54 45 44 2E 22 00  |E AUTO-BOOTED.".|
00000670: 86 0E 09 06 97 35 33 32  38 30 2C 31 34 3A 97 35  |.....53280,14:.5|
00000680: 33 32 38 31 2C 36 00 8C  0E 0E 06 3A 00 96 0E 18  |3281,6.....:....|
00000690: 06 A0 32 3A A0 31 00 9C  0E 22 06 80 00 A2 0E 2C  |..2:.1...".....,|
000006A0: 06 3A 00 A8 0E D0 07 8F  00 CB 0E DA 07 8F 20 50  |.:............ P|
000006B0: 52 4F 4D 50 54 20 46 4F  52 20 52 45 54 55 52 4E  |ROMPT FOR RETURN|
000006C0: 2C 20 54 48 45 4E 20 57  41 49 54 00 D1 0E E4 07  |, THEN WAIT.....|
000006D0: 8F 00 F5 0E EE 07 99 22  50 52 45 53 53 20 12 52  |......."PRESS .R|
000006E0: 45 54 55 52 4E 92 20 54  4F 20 43 4F 4E 54 49 4E  |ETURN. TO CONTIN|
000006F0: 55 45 2E 2E 22 00 09 0F  F8 07 A1 41 24 3A 8B 41  |UE.."......A$:.A|
00000700: 24 B2 22 22 A7 32 30 34  30 00 1E 0F 02 08 8B 20  |$."".2040...... |
00000710: 41 24 B3 B1 C7 28 31 33  29 A7 32 30 34 30 00 24  |A$...(13).2040.$|
00000720: 0F 0C 08 8E 00 2A 0F 16  08 3A 00 30 0F 34 08 8F  |.....*...:.0.4..|
00000730: 00 58 0F 3E 08 8F 20 52  45 41 44 20 53 54 52 49  |.X.>.. READ STRI|
00000740: 4E 47 20 4F 46 20 4C 45  4E 47 54 48 20 27 4C 27  |NG OF LENGTH 'L'|
00000750: 20 49 4E 54 4F 20 49 24  00 5E 0F 48 08 8F 00 68  | INTO I$.^.H...h|
00000760: 0F 52 08 49 24 B2 22 22  00 90 0F 5C 08 81 49 B2  |.R.I$.""...\..I.|
00000770: 31 A4 4C 3A A1 23 32 2C  41 24 3A 49 24 B2 49 24  |1.L:.#2,A$:I$.I$|
00000780: AA C7 28 C6 28 41 24 AA  C7 28 2E 29 29 29 3A 82  |..(.(A$..(.))):.|
00000790: 00 96 0F 66 08 8E 00 9C  0F 70 08 3A 00 A2 0F 98  |...f.....p.:....|
000007A0: 08 8F 00 E0 0F A2 08 8F  20 52 45 41 44 20 44 49  |........ READ DI|
000007B0: 53 4B 20 42 41 4D 20 54  4F 20 53 45 45 20 49 46  |SK BAM TO SEE IF|
000007C0: 20 53 45 43 54 4F 52 20  31 2C 30 20 49 53 20 41  | SECTOR 1,0 IS A|
000007D0: 4C 52 45 41 44 59 20 41  4C 4C 4F 43 41 54 45 44  |LREADY ALLOCATED|
000007E0: 00 E6 0F AC 08 8F 00 00  10 B6 08 8B 20 54 50 B2  |............ TP.|
000007F0: 31 20 A7 20 32 32 38 30  20 3A 8F 20 31 35 38 31  |1 . 2280 :. 1581|
00000800: 00 38 10 C0 08 98 31 2C  22 55 31 3A 32 20 30 20  |.8....1,"U1:2 0 |
00000810: 31 38 20 30 22 3B 3A 98  31 2C 22 42 2D 50 20 32  |18 0";:.1,"B-P 2|
00000820: 20 35 22 3B 3A A1 23 32  2C 41 24 3A 49 B2 C6 28  | 5";:.#2,A$:I..(|
00000830: 41 24 AA C7 28 30 29 29  00 45 10 CA 08 46 52 B2  |A$..(0)).E...FR.|
00000840: 49 20 AF 20 31 00 4B 10  D4 08 8E 00 51 10 DE 08  |I . 1.K.....Q...|
00000850: 3A 00 88 10 E8 08 98 31  2C 22 55 31 3A 32 20 30  |:......1,"U1:2 0|
00000860: 20 34 30 20 31 22 3A 98  31 2C 22 42 2D 50 20 32  | 40 1":.1,"B-P 2|
00000870: 20 31 37 22 3A A1 23 32  2C 41 24 3A 49 B2 C6 28  | 17":.#2,A$:I..(|
00000880: 41 24 AA C7 28 30 29 29  00 95 10 F2 08 46 52 B2  |A$..(0)).....FR.|
00000890: 49 20 AF 20 31 00 9B 10  FC 08 8E 00 A1 10 06 09  |I . 1...........|
000008A0: 3A 00 00 00                                       |:...            |
.......53280,6.8...T$.".................
...............".G....".".4);T$.S.....4)
;".SUPER SNAPSHOT BOOTSECTOR MAKER"....
..4);T$.....Q$.G(34):SP$."              
  ".......B.$.DV.B(186):.DV.0.DV.8......
"..INSERT TARGET DISK.  REMOVE ANY WRITE
   PROTECT FIRST.":.2000.!.8..1,DV,15:.2
,DV,2,"#".'.B...H.L..1,"U1:2 0 1 0":.1,"
B-P 2 0".F.V.L.3:.2100:.I$.."CBM".1200..
.`..".*** COMMODORE 128 BOOT SECTOR"...J
.."*** ALREADY PRESENT!".O.T..".IF YOU P
ROCEED, THE C-128 BOOT"...~.."SECTOR MAY
 BE DAMAGED!"......"(BUT IT PROBABLY WIL
L NOT BE DAMAGED)".H....".DO YOU WANT TO
 PROCEED (Y/N)  N...";I$.A...OK.1:.I$.."
Y". .1545.G...:......1,"B-P 2 253":L.3:.
2100:.I$.."CBM".1310.E....1,"B-P 2 240":
.#2,A$:I.F(A$.G(0)):.I.0.1310...D..".***
 SUPER SNAPSHOT BOOT SECTOR"...N.."*** A
LREADY PRESENT!".%.X..1,"B-P 2 224":L.I:
.2100.F....".THE BOOT FILE IS SET TO:".T
....Q$;I$;Q$.X....".DO YOU WANT TO REDEF
INE THE"......"BOOT FILE NAME (Y/N)  N..
.";I$.....OK.1:.I$.."Y". .1545.....:.I..
..OK.1440.O.(.:...2.. FIND DRIVE TYPE...
<.. TP=0 IS 1541/1571, TP=1 IS 1581...F.
..9.P..1,"M-R";G(254);G(255);G(1);:.#1,I
$.R.Z.TP.0:.I$.G(3) . TP.1.I.D..2200 :. 
CHECK BAM.Z.N.. FR.1 .1440...X..".BOOT S
ECTOR IS ALREADY IN USE."......"TRY ANOT
HER DISK.".K....1545 :. END.Q...:... .."
..NAME OF BOOT FILE (16 CHARS MAX)".4...
. I$:.C(I$).16.I$.H(I$,16):."TRUNCATING 
TO 16 CHARS".Q...IL.C(I$):I$.H(I$.SP$,16
)......".PLEASE MAKE SURE THIS DISK IS N
OT WRITE PROTECTED,":.2000...H.:...R..1,
"U1:2 0 1 0":.1,"B-P 2 224"......2,I$;G(
IL);H(SP$,12);"CBM";......1,"U2:2 0 1 0"
.....:...... OK.0 . .1,"B-A 0 1 0";.#...
.X.1.900:.X.D....:.:."BOOTSECTOR INSTALL
ED!".O....:."THIS DISK MAY NOW BE AUTO-B
OOTED."......53280,14:.53281,6.....:....
. 2: 1...".....,.:...P...K.Z.. PROMPT FO
R RETURN, THEN WAIT.Q.........."PRESS .R
ETURN. TO CONTINUE.."......A$:.A$."".204
0...... A$..G(13).2040.$.....*...:.0.4..
.X.>.. READ STRING OF LENGTH 'L' INTO I$
.^.H...H.R.I$.""...\..I.1.L:.#2,A$:I$.I$
.G(F(A$.G(.))):....F.....P.:............
 READ DISK BAM TO SEE IF SECTOR 1,0 IS A
LREADY ALLOCATED............ TP.1 . 2280
 :. 1581.8....1,"U1:2 0 18 0";:.1,"B-P 2
 5";:.#2,A$:I.F(A$.G(0)).E.J.FR.I . 1.K.
T...Q...:......1,"U1:2 0 40 1":.1,"B-P 2
 17":.#2,A$:I.F(A$.G(0)).....FR.I . 1...
........:...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL