1541SUB

FILE INFORMATION

FILENAME(S): 1541SUB

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-10-20 14:30:01

APPEARS ON: 2 disk(s)

FILE HASH

d27b59a1afc53869caea95ca49ca6238390ba1f0119530429a0073cf599f9ee9

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HDUTILS 12 19 94	1541SUB	PRG	Treasure Chest - Klaus Der Suhler	8	0	DOWNLOAD FILE
RL UTILITIES	1541SUB	PRG	Treasure Chest - Klaus Der Suhler	12	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 27 08 00 00 8F 20  43 52 45 41 54 45 20 31  |..'.... CREATE 1|
00000010: 35 34 31 20 50 53 45 55  44 4F 20 53 55 42 44 49  |541 PSEUDO SUBDI|
00000020: 52 45 43 54 4F 52 59 00  44 08 01 00 8F 20 44 2E  |RECTORY.D.... D.|
00000030: 20 43 4F 54 54 4F 4E 20  2D 20 4D 2E 20 46 45 4C  | COTTON - M. FEL|
00000040: 4C 4F 57 53 00 4A 08 04  00 3A 00 6B 08 05 00 3A  |LOWS.J...:.k...:|
00000050: 8F 20 49 4E 50 55 54 20  44 45 56 49 43 45 20 4E  |. INPUT DEVICE N|
00000060: 4F 20 26 20 50 41 52 54  20 4E 4F 00 71 08 06 00  |O & PART NO.q...|
00000070: 3A 00 9F 08 0A 00 99 22  93 31 35 34 31 53 55 42  |:......".1541SUB|
00000080: 20 2D 20 4E 41 54 49 56  45 20 4D 4F 44 45 20 53  | - NATIVE MODE S|
00000090: 55 42 44 49 52 2E 20 55  54 49 4C 49 54 59 22 00  |UBDIR. UTILITY".|
000000A0: CD 08 0B 00 99 22 11 57  41 52 4E 49 4E 47 21 21  |.....".WARNING!!|
000000B0: 20 54 48 49 53 20 55 54  49 4C 49 54 59 20 53 48  | THIS UTILITY SH|
000000C0: 4F 55 4C 44 20 4F 4E 4C  59 20 42 45 22 00 FB 08  |OULD ONLY BE"...|
000000D0: 0C 00 99 22 55 53 45 44  20 4F 4E 20 41 4E 20 45  |..."USED ON AN E|
000000E0: 4D 50 54 59 20 4E 41 54  49 56 45 20 4D 4F 44 45  |MPTY NATIVE MODE|
000000F0: 20 50 41 52 54 49 54 49  4F 4E 22 00 27 09 0D 00  | PARTITION".'...|
00000100: 99 22 57 48 49 43 48 20  48 41 53 20 42 45 45 4E  |."WHICH HAS BEEN|
00000110: 20 43 52 45 41 54 45 44  20 57 49 54 48 20 41 54  | CREATED WITH AT|
00000120: 20 4C 45 41 53 54 22 00  47 09 0E 00 99 22 31 38  | LEAST".G...."18|
00000130: 20 54 52 41 43 4B 53 20  28 34 36 30 38 20 42 4C  | TRACKS (4608 BL|
00000140: 4F 43 4B 53 29 2E 22 00  73 09 0F 00 99 22 11 41  |OCKS).".s....".A|
00000150: 4C 4C 20 44 41 54 41 20  57 49 54 48 49 4E 20 54  |LL DATA WITHIN T|
00000160: 48 49 53 20 50 41 52 54  49 54 49 4F 4E 20 57 49  |HIS PARTITION WI|
00000170: 4C 4C 22 00 98 09 10 00  99 22 42 45 20 44 45 53  |LL"......"BE DES|
00000180: 54 52 4F 59 45 44 20 49  46 20 59 4F 55 20 43 4F  |TROYED IF YOU CO|
00000190: 4E 54 49 4E 55 45 2E 22  00 B1 09 11 00 99 22 11  |NTINUE."......".|
000001A0: 11 43 4F 4E 54 49 4E 55  45 20 28 59 2F 4E 29 3F  |.CONTINUE (Y/N)?|
000001B0: 22 00 C3 09 12 00 A1 4B  24 3A 8B 4B 24 B2 22 22  |"......K$:.K$.""|
000001C0: A7 31 38 00 DA 09 13 00  8B 4B 24 B3 B1 22 59 22  |.18......K$.."Y"|
000001D0: AF 4B 24 B3 B1 22 D9 22  A7 80 00 F6 09 14 00 85  |.K$.."."........|
000001E0: 22 48 44 20 44 45 56 49  43 45 20 4E 55 4D 42 45  |"HD DEVICE NUMBE|
000001F0: 52 20 22 3B 44 56 00 0F  0A 15 00 8B 44 56 B3 38  |R ";DV......DV.8|
00000200: B0 44 56 B1 32 39 A7 44  56 B2 30 3A 89 32 30 00  |.DV.29.DV.0:.20.|
00000210: 15 0A 19 00 3A 00 31 0A  1E 00 85 22 50 41 52 54  |....:.1...."PART|
00000220: 49 54 49 4F 4E 20 54 4F  20 55 53 45 20 22 3B 50  |ITION TO USE ";P|
00000230: 4E 00 4B 0A 1F 00 8B 50  4E B3 31 B0 50 4E B1 32  |N.K....PN.1.PN.2|
00000240: 35 34 A7 50 4E B2 30 3A  89 33 30 00 51 0A 23 00  |54.PN.0:.30.Q.#.|
00000250: 3A 00 6E 0A 28 00 85 22  53 55 42 44 49 52 45 43  |:.n.(.."SUBDIREC|
00000260: 54 4F 52 59 20 4E 41 4D  45 22 3B 53 44 24 00 7E  |TORY NAME";SD$.~|
00000270: 0A 29 00 8B 53 44 24 B2  22 22 A7 89 34 30 00 98  |.)..SD$.""..40..|
00000280: 0A 2A 00 8B C3 28 53 44  24 29 B1 31 36 A7 53 44  |.*...(SD$).16.SD|
00000290: 24 B2 22 22 3A 89 34 30  00 9E 0A 2D 00 3A 00 A8  |$."":.40...-.:..|
000002A0: 0A 32 00 54 53 B2 31 38  00 B5 0A 33 00 3A 81 49  |.2.TS.18...3.:.I|
000002B0: B2 31 A4 31 36 00 CA 0A  34 00 3A 3A 42 4C 24 B2  |.1.16...4.::BL$.|
000002C0: 42 4C 24 AA C7 28 31 36  30 29 00 D1 0A 35 00 3A  |BL$..(160)...5.:|
000002D0: 82 00 D7 0A 37 00 3A 00  ED 0A 3C 00 53 44 24 B2  |....7.:...<.SD$.|
000002E0: C8 28 53 44 24 AA 42 4C  24 2C 31 36 29 00 F3 0A  |.(SD$.BL$,16)...|
000002F0: 41 00 3A 00 01 0B 46 00  3A 81 49 B2 31 A4 32 35  |A.:...F.:.I.1.25|
00000300: 34 00 14 0B 47 00 3A 3A  5A 53 24 B2 5A 53 24 AA  |4...G.::ZS$.ZS$.|
00000310: C7 28 30 29 00 1B 0B 48  00 3A 82 00 21 0B 5E 00  |.(0)...H.:..!.^.|
00000320: 3A 00 3A 0B 5F 00 3A 8F  20 4D 4F 56 45 20 54 4F  |:.:._.:. MOVE TO|
00000330: 20 50 41 52 54 49 54 49  4F 4E 00 40 0B 60 00 3A  | PARTITION.@.`.:|
00000340: 00 4E 0B 64 00 9F 31 35  2C 44 56 2C 31 35 00 61  |.N.d..15,DV,15.a|
00000350: 0B 6E 00 98 31 35 2C 22  43 D0 22 3B C7 28 50 4E  |.n..15,"C.";.(PN|
00000360: 29 00 97 0B 70 00 84 31  35 2C 5A 52 3A 8B 5A 52  |)...p..15,ZR:.ZR|
00000370: B3 B1 32 A7 99 22 55 4E  41 42 4C 45 20 54 4F 20  |..2.."UNABLE TO |
00000380: 53 45 4C 45 43 54 20 50  41 52 54 49 54 49 4F 4E  |SELECT PARTITION|
00000390: 22 3A A0 31 35 3A 80 00  9D 0B 71 00 3A 00 BA 0B  |":.15:....q.:...|
000003A0: 72 00 3A 8F 20 4D 41 4B  45 20 53 55 52 45 20 49  |r.:. MAKE SURE I|
000003B0: 54 27 53 20 4E 41 54 49  56 45 00 C0 0B 73 00 3A  |T'S NATIVE...s.:|
000003C0: 00 CE 0B 78 00 98 31 35  2C 22 47 2D 50 22 00 DB  |...x..15,"G-P"..|
000003D0: 0B 82 00 A1 23 31 35 2C  50 54 24 00 EE 0B 8C 00  |....#15,PT$.....|
000003E0: 50 54 B2 C6 28 50 54 24  AA C7 28 30 29 29 00 1E  |PT..(PT$..(0))..|
000003F0: 0C 96 00 8B 50 54 B3 B1  31 A7 99 22 4E 4F 54 20  |....PT..1.."NOT |
00000400: 41 20 4E 41 54 49 56 45  20 4D 4F 44 45 20 50 41  |A NATIVE MODE PA|
00000410: 52 54 49 54 49 4F 4E 22  3A A0 31 35 3A 80 00 24  |RTITION":.15:..$|
00000420: 0C 9A 00 3A 00 49 0C 9B  00 3A 8F 20 4D 41 4B 45  |...:.I...:. MAKE|
00000430: 20 53 55 52 45 20 45 4E  4F 55 47 48 20 54 52 41  | SURE ENOUGH TRA|
00000440: 43 4B 53 20 45 58 49 53  54 00 4F 0C 9C 00 3A 00  |CKS EXIST.O...:.|
00000450: 5F 0C A0 00 9F 32 2C 44  56 2C 32 2C 22 23 22 00  |_....2,DV,2,"#".|
00000460: 74 0C AA 00 98 31 35 2C  22 55 31 22 3B 32 3B 30  |t....15,"U1";2;0|
00000470: 3B 31 3B 32 00 80 0C B4  00 3A 81 49 B2 30 A4 38  |;1;2.....:.I.0.8|
00000480: 00 8D 0C BE 00 3A 3A A1  23 32 2C 42 24 00 94 0C  |.....::.#2,B$...|
00000490: C8 00 3A 82 00 A6 0C D2  00 48 54 B2 C6 28 42 24  |..:......HT..(B$|
000004A0: AA C7 28 30 29 29 00 E0  0C DC 00 8B 48 54 B3 54  |..(0))......HT.T|
000004B0: 53 A7 99 22 4E 4F 54 20  45 4E 4F 55 47 48 20 54  |S.."NOT ENOUGH T|
000004C0: 52 41 43 4B 53 20 49 4E  20 54 48 45 20 50 41 52  |RACKS IN THE PAR|
000004D0: 54 49 54 49 4F 4E 22 3A  A0 32 3A A0 31 35 3A 80  |TITION":.2:.15:.|
000004E0: 00 E6 0C DE 00 3A 00 ED  0C DF 00 A0 32 00 F3 0C  |.....:......2...|
000004F0: E0 00 3A 00 08 0D E1 00  3A 8F 20 4E 45 57 20 50  |..:.....:. NEW P|
00000500: 41 52 54 49 54 49 4F 4E  00 0E 0D E2 00 3A 00 26  |ARTITION.....:.&|
00000510: 0D E6 00 98 31 35 2C 22  4E 30 3A 22 3B 53 44 24  |....15,"N0:";SD$|
00000520: 3B 22 2C 48 44 22 00 2C  0D EA 00 3A 00 3C 0D EB  |;",HD".,...:.<..|
00000530: 00 9F 32 2C 44 56 2C 32  2C 22 23 22 00 42 0D EC  |..2,DV,2,"#".B..|
00000540: 00 3A 00 48 0D 26 01 3A  00 6D 0D 27 01 3A 8F 20  |.:.H.&.:.m.'.:. |
00000550: 53 45 54 20 4C 49 4E 4B  53 20 41 4E 44 20 41 4C  |SET LINKS AND AL|
00000560: 4C 4F 43 41 54 45 20 42  4C 4F 43 4B 53 00 73 0D  |LOCATE BLOCKS.s.|
00000570: 28 01 3A 00 7D 0D 2C 01  54 4C B2 54 53 00 8B 0D  |(.:.}.,.TL.TS...|
00000580: 31 01 3A 81 53 45 B2 31  A4 31 37 00 99 0D 32 01  |1.:.SE.1.17...2.|
00000590: 3A 3A 53 4C B2 53 45 AA  31 00 AD 0D 36 01 3A 3A  |::SL.SE.1...6.::|
000005A0: 98 31 35 2C 22 42 2D 50  22 3B 32 3B 30 00 C7 0D  |.15,"B-P";2;0...|
000005B0: 38 01 3A 3A 98 32 2C C7  28 54 4C 29 3B C7 28 53  |8.::.2,.(TL);.(S|
000005C0: 4C 29 3B 5A 53 24 3B 00  E0 0D 3A 01 3A 3A 98 31  |L);ZS$;...:.::.1|
000005D0: 35 2C 22 55 32 22 3B 32  3B 30 3B 54 53 3B 53 45  |5,"U2";2;0;TS;SE|
000005E0: 00 F8 0D 3C 01 3A 3A 98  31 35 2C 22 42 2D 41 22  |...<.::.15,"B-A"|
000005F0: 3B 30 3B 54 53 3B 53 45  00 FF 0D 3E 01 3A 82 00  |;0;TS;SE...>.:..|
00000600: 15 0E 54 01 54 4C B2 30  3A 53 4C B2 32 35 35 3A  |..T.TL.0:SL.255:|
00000610: 53 45 B2 31 38 00 28 0E  5E 01 3A 98 31 35 2C 22  |SE.18.(.^.:.15,"|
00000620: 42 2D 50 22 3B 32 3B 30  00 41 0E 60 01 3A 98 32  |B-P";2;0.A.`.:.2|
00000630: 2C C7 28 54 4C 29 3B C7  28 53 4C 29 3B 5A 53 24  |,.(TL);.(SL);ZS$|
00000640: 3B 00 59 0E 62 01 3A 98  31 35 2C 22 55 32 22 3B  |;.Y.b.:.15,"U2";|
00000650: 32 3B 30 3B 54 53 3B 53  45 00 70 0E 64 01 3A 98  |2;0;TS;SE.p.d.:.|
00000660: 31 35 2C 22 42 2D 41 22  3B 30 3B 54 53 3B 53 45  |15,"B-A";0;TS;SE|
00000670: 00 76 0E 76 01 3A 00 93  0E 77 01 3A 8F 20 43 52  |.v.v.:...w.:. CR|
00000680: 45 41 54 45 20 52 4F 4F  54 20 44 49 52 20 45 4E  |EATE ROOT DIR EN|
00000690: 54 52 59 00 99 0E 78 01  3A 00 AB 0E 7C 01 98 31  |TRY...x.:...|..1|
000006A0: 35 2C 22 42 2D 50 22 3B  32 3B 30 00 D1 0E 7E 01  |5,"B-P";2;0...~.|
000006B0: 98 32 2C C7 28 30 29 3B  C7 28 32 35 35 29 3B C7  |.2,.(0);.(255);.|
000006C0: 28 31 33 34 29 3B C7 28  31 38 29 3B C7 28 30 29  |(134);.(18);.(0)|
000006D0: 3B 00 F1 0E 7F 01 98 32  2C 53 44 24 3B C7 28 30  |;......2,SD$;.(0|
000006E0: 29 3B C7 28 30 29 3B C7  28 30 29 3B C7 28 30 29  |);.(0);.(0);.(0)|
000006F0: 3B 00 1E 0F 80 01 98 32  2C C7 28 35 37 29 3B C7  |;......2,.(57);.|
00000700: 28 37 29 3B C7 28 38 29  3B C7 28 30 29 3B C7 28  |(7);.(8);.(0);.(|
00000710: 33 29 3B C7 28 31 38 29  3B C7 28 30 29 3B 00 31  |3);.(18);.(0);.1|
00000720: 0F 86 01 98 32 2C C9 28  5A 53 24 2C 32 32 34 29  |....2,.(ZS$,224)|
00000730: 3B 00 47 0F 90 01 98 31  35 2C 22 55 32 22 3B 32  |;.G....15,"U2";2|
00000740: 3B 30 3B 31 3B 33 34 00  4D 0F 94 01 3A 00 65 0F  |;0;1;34.M...:.e.|
00000750: 95 01 3A 8F 20 57 52 49  54 45 20 53 55 42 20 48  |..:. WRITE SUB H|
00000760: 45 41 44 45 52 00 6B 0F  96 01 3A 00 7D 0F 9A 01  |EADER.k...:.}...|
00000770: 98 31 35 2C 22 42 2D 50  22 3B 32 3B 30 00 9F 0F  |.15,"B-P";2;0...|
00000780: 9C 01 98 32 2C C7 28 31  38 29 3B C7 28 31 29 3B  |...2,.(18);.(1);|
00000790: C7 28 37 32 29 3B C7 28  30 29 3B 53 44 24 3B 00  |.(72);.(0);SD$;.|
000007A0: C8 0F 9D 01 98 32 2C C7  28 31 36 30 29 3B C7 28  |.....2,.(160);.(|
000007B0: 31 36 30 29 3B C7 28 37  32 29 3B C7 28 36 38 29  |160);.(72);.(68)|
000007C0: 3B C7 28 31 36 30 29 3B  00 F9 0F 9E 01 98 32 2C  |;.(160);......2,|
000007D0: C7 28 34 39 29 3B C7 28  37 32 29 3B C7 28 31 36  |.(49);.(72);.(16|
000007E0: 30 29 3B C7 28 31 36 30  29 3B C7 28 30 29 3B C7  |0);.(160);.(0);.|
000007F0: 28 30 29 3B C7 28 30 29  3B 00 2C 10 A0 01 98 32  |(0);.(0);.,....2|
00000800: 2C C7 28 31 38 29 3B C7  28 30 29 3B C7 28 31 29  |,.(18);.(0);.(1)|
00000810: 3B C7 28 31 29 3B C7 28  31 29 3B C7 28 33 34 29  |;.(1);.(1);.(34)|
00000820: 3B C7 28 33 34 29 3B C7  28 30 29 3B 00 3F 10 A4  |;.(34);.(0);.?..|
00000830: 01 98 32 2C C9 28 5A 53  24 2C 32 31 36 29 3B 00  |..2,.(ZS$,216);.|
00000840: 55 10 A6 01 98 31 35 2C  22 55 32 22 3B 32 3B 30  |U....15,"U2";2;0|
00000850: 3B 31 38 3B 30 00 6A 10  A8 01 98 31 35 2C 22 42  |;18;0.j....15,"B|
00000860: 2D 41 22 3B 30 3B 31 38  3B 30 00 70 10 C2 01 3A  |-A";0;18;0.p...:|
00000870: 00 77 10 CC 01 A0 32 00  83 10 D6 01 98 31 35 2C  |.w....2......15,|
00000880: 22 56 22 00 89 10 E0 01  3A 00 93 10 E7 03 A0 31  |"V".....:......1|
00000890: 35 3A 80 00 00 00                                 |5:....          |

..'.... CREATE 1541 PSEUDO SUBDIRECTORY.
D.... D. COTTON - M. FELLOWS.J...:.K...:
. INPUT DEVICE NO & PART NO.Q...:......"
.1541SUB - NATIVE MODE SUBDIR. UTILITY".
M....".WARNING!! THIS UTILITY SHOULD ONL
Y BE"......"USED ON AN EMPTY NATIVE MODE
 PARTITION".'...."WHICH HAS BEEN CREATED
 WITH AT LEAST".G...."18 TRACKS (4608 BL
OCKS).".S....".ALL DATA WITHIN THIS PART
ITION WILL"......"BE DESTROYED IF YOU CO
NTINUE."......"..CONTINUE (Y/N)?".C....K
$:.K$."".18.Z....K$.."Y".K$.."Y"........
"HD DEVICE NUMBER ";DV......DV.8.DV.29.D
V.0:.20.....:.1...."PARTITION TO USE ";P
N.K....PN.1.PN.254.PN.0:.30.Q.#.:.N.(.."
SUBDIRECTORY NAME";SD$.~.)..SD$.""..40..
.*..C(SD$).16.SD$."":.40...-.:...2.TS.18
...3.:.I.1.16.J.4.::BL$.BL$.G(160).Q.5.:
..W.7.:...<.SD$.H(SD$.BL$,16)...A.:...F.
:.I.1.254...G.::ZS$.ZS$.G(0)...H.:..!.^.
:.:._.:. MOVE TO PARTITION.@.`.:.N.D..15
,DV,15.A.N..15,"CP";G(PN)...P..15,ZR:.ZR
..2.."UNABLE TO SELECT PARTITION": 15:..
..Q.:...R.:. MAKE SURE IT'S NATIVE...S.:
.N.X..15,"G-P"......#15,PT$.....PT.F(PT$
.G(0))......PT..1.."NOT A NATIVE MODE PA
RTITION": 15:..$...:.I...:. MAKE SURE EN
OUGH TRACKS EXIST.O...:._. ..2,DV,2,"#".
T....15,"U1";2;0;1;2.....:.I.0.8.....::.
#2,B$...H.:....R.HT.F(B$.G(0))......HT.T
S.."NOT ENOUGH TRACKS IN THE PARTITION":
 2: 15:......:..... 2.....:.....:. NEW P
ARTITION.....:.&....15,"N0:";SD$;",HD".,
...:.<....2,DV,2,"#".B...:.H.&.:.M.'.:. 
SET LINKS AND ALLOCATE BLOCKS.S.(.:.}.,.
TL.TS...1.:.SE.1.17...2.::SL.SE.1...6.::
.15,"B-P";2;0.G.8.::.2,G(TL);G(SL);ZS$;.
..:.::.15,"U2";2;0;TS;SE...<.::.15,"B-A"
;0;TS;SE...>.:....T.TL.0:SL.255:SE.18.(.
^.:.15,"B-P";2;0.A.`.:.2,G(TL);G(SL);ZS$
;.Y.B.:.15,"U2";2;0;TS;SE.P.D.:.15,"B-A"
;0;TS;SE.V.V.:...W.:. CREATE ROOT DIR EN
TRY...X.:...|..15,"B-P";2;0.Q.~..2,G(0);
G(255);G(134);G(18);G(0);.....2,SD$;G(0
);G(0);G(0);G(0);......2,G(57);G(7);G(8)
;G(0);G(3);G(18);G(0);.1....2,I(ZS$,224)
;.G....15,"U2";2;0;1;34.M...:.E...:. WRI
TE SUB HEADER.K...:.}....15,"B-P";2;0...
...2,G(18);G(1);G(72);G(0);SD$;.H....2,G
(160);G(160);G(72);G(68);G(160);......2,
G(49);G(72);G(160);G(160);G(0);G(0);G(0)
;.,. ..2,G(18);G(0);G(1);G(1);G(1);G(34)
;G(34);G(0);.?....2,I(ZS$,216);.U....15,
"U2";2;0;18;0.J....15,"B-A";0;18;0.P.B.:
.W.L. 2...V..15,"V".....:..... 15:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL