1581BOOT PROTECT
FILE INFORMATION
FILENAME(S): 1581BOOT PROTECT
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 16:45:39
APPEARS ON: 1 disk(s)
FILE HASH
dda3c35296be6561bb0c947e9b280ceff4c9b80ecb9dd7ae7518ab2aff0088e7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTIL32 | 1581BOOT PROTECT | PRG | High Voltage Complete C64 Collection | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 01 00 89 31 30 30 3A 8F 20 54 59 50 |..*....100:. TYP| 00000010: 45 20 22 52 55 4E 32 22 20 54 4F 20 53 41 56 45 |E "RUN2" TO SAVE| 00000020: 20 54 48 49 53 20 46 49 4C 45 00 6C 08 02 00 4E | THIS FILE.l...N| 00000030: 24 B2 22 30 3A 31 35 38 31 42 4F 4F 54 20 50 52 |$."0:1581BOOT PR| 00000040: 4F 54 45 43 54 22 3A 9F 31 2C 38 2C 31 35 2C 22 |OTECT":.1,8,15,"| 00000050: 53 22 AA 4E 24 3A A0 31 3A 94 4E 24 2C 38 3A 95 |S".N$:.1:.N$,8:.| 00000060: 4E 24 2C 38 3A 4E 24 B2 22 22 3A 80 00 72 08 03 |N$,8:N$."":..r..| 00000070: 00 3A 00 A2 08 04 00 8F 20 54 59 50 45 20 22 52 |.:...... TYPE "R| 00000080: 55 4E 34 30 30 22 20 54 4F 20 55 4E 4C 4F 43 4B |UN400" TO UNLOCK| 00000090: 20 42 4F 4F 54 20 53 45 43 54 4F 52 20 46 49 4C | BOOT SECTOR FIL| 000000A0: 45 2E 00 A8 08 05 00 3A 00 CA 08 64 00 8B 20 C2 |E......:...d.. .| 000000B0: 28 36 35 35 33 34 29 B2 32 33 20 AF 20 C2 28 32 |(65534).23 . .(2| 000000C0: 31 35 29 B2 31 32 38 A7 FE 25 00 16 09 6E 00 99 |15).128..%...n..| 000000D0: 22 93 0E C9 4E 53 45 52 54 20 31 35 38 31 20 44 |"...NSERT 1581 D| 000000E0: 49 53 4B 20 54 4F 20 48 41 56 45 20 54 48 45 20 |ISK TO HAVE THE | 000000F0: 42 4F 4F 54 20 53 45 43 54 4F 52 20 50 52 4F 54 |BOOT SECTOR PROT| 00000100: 45 43 54 45 44 20 41 4E 44 20 50 52 45 53 53 20 |ECTED AND PRESS | 00000110: 41 20 4B 45 59 2E 00 29 09 78 00 A1 41 24 3A 8B |A KEY..).x..A$:.| 00000120: 41 24 B2 22 22 A7 31 32 30 00 58 09 82 00 99 22 |A$."".120.X...."| 00000130: 11 C4 49 53 4B 20 44 52 49 56 45 20 44 45 56 49 |..ISK DRIVE DEVI| 00000140: 43 45 20 23 20 28 38 2D 31 32 29 3F 20 38 9D 9D |CE # (8-12)? 8..| 00000150: 9D 22 3B 3A 85 20 44 44 00 6F 09 8C 00 8B 20 44 |.";:. DD.o.... D| 00000160: 44 B3 38 20 B0 20 44 44 B1 31 32 20 A7 20 80 00 |D.8 . DD.12 . ..| 00000170: 81 09 96 00 A0 31 35 3A 9F 31 35 2C 44 44 2C 31 |.....15:.15,DD,1| 00000180: 35 00 8E 09 A0 00 98 31 35 2C 22 55 49 22 00 9C |5......15,"UI"..| 00000190: 09 AA 00 84 31 35 2C 45 2C 45 4D 24 00 AC 09 B4 |....15,E,EM$....| 000001A0: 00 44 24 B2 C9 28 45 4D 24 2C 34 29 00 EE 09 BE |.D$..(EM$,4)....| 000001B0: 00 8B 44 24 B3 B1 22 31 35 38 31 22 A7 99 22 11 |..D$.."1581"..".| 000001C0: C4 52 49 56 45 20 23 22 44 44 22 49 53 20 41 20 |.RIVE #"DD"IS A | 000001D0: 22 44 24 22 2C 20 CE CF D4 20 41 20 31 35 38 31 |"D$", ... A 1581| 000001E0: 20 44 52 49 56 45 21 22 3A A0 31 35 3A 80 00 FB | DRIVE!":.15:...| 000001F0: 09 C8 00 98 31 35 2C 22 49 30 22 00 04 0A D2 00 |....15,"I0".....| 00000200: 8D 33 32 30 00 14 0A DC 00 9F 38 2C 44 44 2C 38 |.320......8,DD,8| 00000210: 2C 22 23 22 00 42 0A E6 00 99 22 11 D0 52 4F 54 |,"#".B...."..ROT| 00000220: 45 43 54 49 4E 47 20 42 4F 4F 54 20 28 54 52 41 |ECTING BOOT (TRA| 00000230: 43 4B 20 31 2C 20 53 45 43 54 4F 52 20 30 29 2E |CK 1, SECTOR 0).| 00000240: 2E 2E 00 57 0A F0 00 98 31 35 2C 22 55 31 3A 38 |...W....15,"U1:8| 00000250: 20 30 20 31 20 30 22 00 8A 0A FA 00 98 31 35 2C | 0 1 0"......15,| 00000260: 22 2F 30 3A 42 4F 4F 54 20 53 45 43 54 4F 52 2C |"/0:BOOT SECTOR,| 00000270: 22 AA C7 28 31 29 AA C7 28 30 29 AA C7 28 31 29 |"..(1)..(0)..(1)| 00000280: AA C7 28 30 29 AA 22 2C 43 22 00 B0 0A 04 01 8D |..(0).",C"......| 00000290: 33 32 30 3A 8B 20 45 4E B2 36 37 A7 98 31 35 2C |320:. EN.67..15,| 000002A0: 22 42 2D 46 3A 30 20 31 20 30 22 3A 89 32 35 30 |"B-F:0 1 0":.250| 000002B0: 00 C5 0A 0E 01 98 31 35 2C 22 55 32 3A 38 20 30 |......15,"U2:8 0| 000002C0: 20 31 20 30 22 00 0D 0B 18 01 8B 45 4E B2 36 33 | 1 0"......EN.63| 000002D0: A7 99 22 11 22 C7 28 33 34 29 22 C2 CF CF D4 20 |..".".(34)".... | 000002E0: D3 C5 C3 D4 CF D2 22 C7 28 33 34 29 22 20 46 49 |......".(34)" FI| 000002F0: 4C 45 20 41 4C 52 45 41 44 59 20 45 58 49 53 54 |LE ALREADY EXIST| 00000300: 53 2E 22 3A 8D 33 32 30 3A 89 33 31 30 00 16 0B |S.":.320:.310...| 00000310: 22 01 8D 33 32 30 00 4B 0B 2C 01 99 22 11 22 C7 |"..320.K.,..".".| 00000320: 28 33 34 29 22 C2 CF CF D4 20 D3 C5 C3 D4 CF D2 |(34)".... ......| 00000330: 22 C7 28 33 34 29 22 20 50 41 52 54 49 54 49 4F |".(34)" PARTITIO| 00000340: 4E 20 43 4F 4D 50 4C 45 54 45 21 00 5B 0B 36 01 |N COMPLETE!.[.6.| 00000350: A0 38 3A A0 31 35 3A 89 33 36 30 00 70 0B 40 01 |.8:.15:.360.p.@.| 00000360: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES| 00000370: 00 85 0B 4A 01 8B 20 45 4E B2 36 37 B0 20 45 4E |...J.. EN.67. EN| 00000380: B2 36 33 A7 8E 00 BE 0B 54 01 8B 20 45 4E 20 A7 |.63.....T.. EN .| 00000390: 99 3A 99 22 C4 49 53 4B 20 C5 52 52 4F 52 3A 22 |.:.".ISK .RROR:"| 000003A0: 45 4E 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 |EN"., "EM$","ET"| 000003B0: 9D 2C 22 45 53 3A A0 38 3A A0 31 35 3A 80 00 C4 |.,"ES:.8:.15:...| 000003C0: 0B 5E 01 8E 00 FD 0B 68 01 99 22 11 11 11 CC CF |.^.....h..".....| 000003D0: C3 CB 20 54 48 45 20 22 C7 28 33 34 29 22 C2 CF |.. THE ".(34)"..| 000003E0: CF D4 20 D3 C5 C3 D4 CF D2 22 C7 28 33 34 29 22 |.. ......".(34)"| 000003F0: 20 46 49 4C 45 20 28 D9 2F CE 29 3F 22 00 10 0C | FILE (./.)?"...| 00000400: 72 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 37 30 |r..A$:.A$."".370| 00000410: 00 20 0C 7C 01 8B 41 24 B3 B1 22 59 22 A7 20 80 |. .|..A$.."Y". .| 00000420: 00 2E 0C 86 01 4C 55 B2 31 3A 89 34 33 30 00 7F |.....LU.1:.430..| 00000430: 0C 90 01 4C 55 B2 30 3A 99 22 93 0E C9 4E 53 45 |...LU.0:."...NSE| 00000440: 52 54 20 44 49 53 4B 20 57 49 54 48 20 C2 CF CF |RT DISK WITH ...| 00000450: D4 20 D3 C5 C3 D4 CF D2 20 46 49 4C 45 20 54 4F |. ...... FILE TO| 00000460: 20 42 45 20 D5 CE CC CF C3 CB C5 C4 2C 20 41 4E | BE ........, AN| 00000470: 44 20 50 52 45 53 53 20 41 20 4B 45 59 2E 22 00 |D PRESS A KEY.".| 00000480: 92 0C 9A 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 |.....A$:.A$."".4| 00000490: 31 30 00 C1 0C A4 01 99 22 11 C4 49 53 4B 20 44 |10......"..ISK D| 000004A0: 52 49 56 45 20 44 45 56 49 43 45 20 23 20 28 38 |RIVE DEVICE # (8| 000004B0: 2D 31 32 29 3F 20 38 9D 9D 9D 22 3B 3A 85 20 44 |-12)? 8...";:. D| 000004C0: 44 00 FC 0C AE 01 5A B2 30 3A 99 22 11 D3 45 41 |D.....Z.0:."..EA| 000004D0: 52 43 48 49 4E 47 20 46 4F 52 20 22 C7 28 33 34 |RCHING FOR ".(34| 000004E0: 29 22 C2 CF CF D4 20 D3 C5 C3 D4 CF D2 22 C7 28 |)".... ......".(| 000004F0: 33 34 29 22 20 46 49 4C 45 2E 22 3B 00 1B 0D B8 |34)" FILE.";....| 00000500: 01 9F 31 35 2C 44 44 2C 31 35 2C 22 49 30 22 3A |..15,DD,15,"I0":| 00000510: 9F 38 2C 44 44 2C 38 2C 22 23 22 00 36 0D C2 01 |.8,DD,8,"#".6...| 00000520: 54 B2 34 30 3A 53 B2 30 3A 4E 4C 24 B2 C7 28 30 |T.40:S.0:NL$..(0| 00000530: 29 3A 8D 35 35 30 00 81 0D CC 01 8B 53 4E B2 32 |):.550......SN.2| 00000540: 35 35 A7 99 3A 99 22 11 CE 4F 20 22 C7 28 33 34 |55..:."..O ".(34| 00000550: 29 22 C2 CF CF D4 20 D3 C5 C3 D4 CF D2 22 C7 28 |)".... ......".(| 00000560: 33 34 29 22 20 46 49 4C 45 20 4F 4E 20 54 48 49 |34)" FILE ON THI| 00000570: 53 20 44 49 53 4B 21 22 3A A0 32 3A A0 31 35 3A |S DISK!":.2:.15:| 00000580: 80 00 94 0D D6 01 54 B2 54 4E 3A 53 B2 53 4E 3A |......T.TN:S.SN:| 00000590: 8D 35 35 30 00 D7 0D E0 01 81 4A B2 30 A4 37 3A |.550......J.0.7:| 000005A0: 46 54 28 4A 29 B2 4A AC 33 32 AA 32 3A 98 31 35 |FT(J).J.32.2:.15| 000005B0: 2C 22 42 2D 50 22 3B 38 3B 46 54 28 4A 29 3A A1 |,"B-P";8;FT(J):.| 000005C0: 23 38 2C 50 53 24 3A 50 53 28 4A 29 B2 C6 28 50 |#8,PS$:PS(J)..(P| 000005D0: 53 24 AA 4E 4C 24 29 00 F5 0D EA 01 8B 50 53 28 |S$.NL$)......PS(| 000005E0: 4A 29 B3 B1 30 A7 52 28 4A 29 B2 31 3A 8D 35 37 |J)..0.R(J).1:.57| 000005F0: 30 3A 44 B2 4A 00 1C 0E F4 01 8B 20 46 24 28 4A |0:D.J...... F$(J| 00000600: 29 B2 22 42 4F 4F 54 20 53 45 43 54 4F 52 22 A7 |)."BOOT SECTOR".| 00000610: 20 42 B2 4A 3A 4A B2 37 3A 5A B2 31 00 49 0E FE | B.J:J.7:Z.1.I..| 00000620: 01 99 22 2E 22 3B 3A 82 4A 3A 8B 5A B2 31 A7 99 |..".";:.J:.Z.1..| 00000630: 3A 99 22 11 C6 CF D5 CE C4 21 22 3A 8D 36 32 30 |:."......!":.620| 00000640: 3A A0 38 3A A0 31 35 3A 80 00 52 0E 08 02 89 34 |:.8:.15:..R....4| 00000650: 36 30 00 62 0E 12 02 8B 52 28 42 29 B2 30 A7 35 |60.b....R(B).0.5| 00000660: 32 30 00 70 0E 1C 02 8D 36 32 30 3A 89 35 32 30 |20.p....620:.520| 00000670: 00 8A 0E 26 02 98 31 35 2C 22 55 31 22 3B 38 3B |...&..15,"U1";8;| 00000680: 30 3B 54 3B 53 3A 8D 33 32 30 00 B8 0E 30 02 A1 |0;T;S:.320...0..| 00000690: 23 38 2C 54 4E 24 2C 53 4E 24 3A 54 4E B2 C6 28 |#8,TN$,SN$:TN..(| 000006A0: 54 4E 24 AA 4E 4C 24 29 3A 53 4E B2 C6 28 53 4E |TN$.NL$):SN..(SN| 000006B0: 24 AA 4E 4C 24 29 3A 8E 00 D7 0E 3A 02 A1 23 38 |$.NL$):....:..#8| 000006C0: 2C 4A 24 3A A1 23 38 2C 4A 24 3A 43 B2 30 3A 46 |,J$:.#8,J$:C.0:F| 000006D0: 24 28 4A 29 B2 22 22 00 EE 0E 44 02 A1 23 38 2C |$(J).""...D..#8,| 000006E0: 41 24 3A 41 B2 C6 28 41 24 AA 4E 4C 24 29 00 1E |A$:A..(A$.NL$)..| 000006F0: 0F 4E 02 8B 41 B3 B1 31 36 30 AF 41 B3 B1 30 A7 |.N..A..160.A..0.| 00000700: 46 24 28 4A 29 B2 46 24 28 4A 29 AA 41 24 3A 43 |F$(J).F$(J).A$:C| 00000710: B2 43 AA 31 3A 8B 43 B3 31 37 A7 35 38 30 00 33 |.C.1:.C.17.580.3| 00000720: 0F 58 02 54 45 B2 4A AA 31 3A 8B 41 B2 30 A7 46 |.X.TE.J.1:.A.0.F| 00000730: 4C B2 31 00 39 0F 62 02 8E 00 4F 0F 6C 02 98 31 |L.1.9.b...O.l..1| 00000740: 35 2C 22 42 2D 50 22 3B 38 3B 46 54 28 42 29 00 |5,"B-P";8;FT(B).| 00000750: 7F 0F 76 02 8B 4C 55 B2 31 A7 50 53 28 42 29 B2 |..v..LU.1.PS(B).| 00000760: 50 53 28 42 29 B0 36 34 3A 98 38 2C C7 28 50 53 |PS(B).64:.8,.(PS| 00000770: 28 42 29 29 3B 3A 8D 33 32 30 3A 89 36 35 30 00 |(B));:.320:.650.| 00000780: A5 0F 80 02 50 53 28 42 29 B2 50 53 28 42 29 AF |....PS(B).PS(B).| 00000790: 31 39 31 3A 98 38 2C C7 28 50 53 28 42 29 29 3B |191:.8,.(PS(B));| 000007A0: 3A 8D 33 32 30 00 BF 0F 8A 02 98 31 35 2C 22 55 |:.320......15,"U| 000007B0: 32 22 3B 38 3B 30 3B 54 3B 53 3A 8D 33 32 30 00 |2";8;0;T;S:.320.| 000007C0: CD 0F 94 02 8B 4C 55 B2 30 A7 36 39 30 00 08 10 |.....LU.0.690...| 000007D0: 9E 02 99 22 11 22 C7 28 33 34 29 22 C2 CF CF D4 |...".".(34)"....| 000007E0: 20 D3 C5 C3 D4 CF D2 22 C7 28 33 34 29 22 20 50 | ......".(34)" P| 000007F0: 41 52 54 49 54 49 4F 4E 20 49 53 20 4E 4F 57 20 |ARTITION IS NOW | 00000800: CC CF C3 CB C5 C4 21 22 00 47 10 A8 02 99 22 11 |......!".G....".| 00000810: 28 D4 59 50 45 20 22 C7 28 33 34 29 22 52 55 4E |(.YPE ".(34)"RUN| 00000820: 20 34 30 30 22 C7 28 33 34 29 22 20 54 4F 20 D5 | 400".(34)" TO .| 00000830: CE CC CF C3 CB 20 54 48 49 53 20 46 49 4C 45 2E |..... THIS FILE.| 00000840: 29 22 3A 89 37 30 30 00 84 10 B2 02 99 22 11 22 |)":.700......"."| 00000850: C7 28 33 34 29 22 C2 CF CF D4 20 D3 C5 C3 D4 CF |.(34)".... .....| 00000860: D2 22 C7 28 33 34 29 22 20 50 41 52 54 49 54 49 |.".(34)" PARTITI| 00000870: 4F 4E 20 49 53 20 4E 4F 57 20 D5 CE CC CF C3 CB |ON IS NOW ......| 00000880: C5 C4 21 22 00 91 10 BC 02 A0 38 3A A0 31 35 3A |..!"......8:.15:| 00000890: 80 00 00 00 |.... |
..*....100:. TYPE "RUN2" TO SAVE THIS FI LE.L...N$."0:1581BOOT PROTECT":.1,8,15," S".N$: 1:.N$,8:.N$,8:N$."":..R...:...... TYPE "RUN400" TO UNLOCK BOOT SECTOR FIL E......:.J.D.. B(65534).23 . B(215).128. .%...N.."..INSERT 1581 DISK TO HAVE THE BOOT SECTOR PROTECTED AND PRESS A KEY..) .X..A$:.A$."".120.X....".DISK DRIVE DEVI CE # (8-12)? 8...";:. DD.O.... DD.8 . DD .12 . ...... 15:.15,DD,15... ..15,"UI".. ....15,E,EM$.....D$.I(EM$,4)......D$.."1 581"..".DRIVE #"DD"IS A "D$", NOT A 1581 DRIVE!": 15:....H..15,"I0"...R..320.... ..8,DD,8,"#".B....".PROTECTING BOOT (TRA CK 1, SECTOR 0)....W....15,"U1:8 0 1 0". .....15,"/0:BOOT SECTOR,".G(1).G(0).G(1) .G(0).",C"......320:. EN.67..15,"B-F:0 1 0":.250.E....15,"U2:8 0 1 0"......EN.63 .."."G(34)"BOOT SECTOR"G(34)" FILE ALREA DY EXISTS.":.320:.310..."..320.K.,.."."G (34)"BOOT SECTOR"G(34)" PARTITION COMPLE TE!.[.6. 8: 15:.360.P.@..15,EN,EM$,ET,ES ...J.. EN.67. EN.63.....T.. EN ..:."DISK ERROR:"EN"., "EM$","ET".,"ES: 8: 15:..D .^.....H.."...LOCK THE "G(34)"BOOT SECTO R"G(34)" FILE (Y/N)?"...R..A$:.A$."".370 . .|..A$.."Y". ......LU.1:.430....LU.0: ."..INSERT DISK WITH BOOT SECTOR FILE TO BE UNLOCKED, AND PRESS A KEY."......A$: .A$."".410.A....".DISK DRIVE DEVICE # (8 -12)? 8...";:. DD.....Z.0:.".SEARCHING F OR "G(34)"BOOT SECTOR"G(34)" FILE.";.... ..15,DD,15,"I0":.8,DD,8,"#".6.B.T.40:S.0 :NL$.G(0):.550...L..SN.255..:.".NO "G(34 )"BOOT SECTOR"G(34)" FILE ON THIS DISK!" : 2: 15:....V.T.TN:S.SN:.550.W....J.0.7: FT(J).J.32.2:.15,"B-P";8;FT(J):.#8,PS$:P S(J).F(PS$.NL$)......PS(J)..0.R(J).1:.57 0:D.J...... F$(J)."BOOT SECTOR". B.J:J.7 :Z.1.I....".";:.J:.Z.1..:.".FOUND!":.620 : 8: 15:..R....460.B....R(B).0.520.P.... 620:.520...&..15,"U1";8;0;T;S:.320...0.. #8,TN$,SN$:TN.F(TN$.NL$):SN.F(SN$.NL$):. .W.:..#8,J$:.#8,J$:C.0:F$(J).""...D..#8, A$:A.F(A$.NL$)...N..A..160.A..0.F$(J).F$ (J).A$:C.C.1:.C.17.580.3.X.TE.J.1:.A.0.F L.1.9.B...O.L..15,"B-P";8;FT(B)..V..LU. 1.PS(B).PS(B).64:.8,G(PS(B));:.320:.650. ....PS(B).PS(B).191:.8,G(PS(B));:.320... ...15,"U2";8;0;T;S:.320.M....LU.0.690... ..."."G(34)"BOOT SECTOR"G(34)" PARTITION IS NOW LOCKED!".G....".(TYPE "G(34)"RUN 400"G(34)" TO UNLOCK THIS FILE.)":.700. ....."."G(34)"BOOT SECTOR"G(34)" PARTITI ON IS NOW UNLOCKED!"..... 8: 15:....
> CLICK IMAGE PREVIEW FOR FULL MODAL