1581SUB

FILE INFORMATION

FILENAME(S): 1581SUB

FILE TYPE(S): PRG

FILE SIZE: 2.6K

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

APPEARS ON: 2 disk(s)

FILE HASH

0d53f59a181b055bb85fd2686caed76a65c3fb6a5af4d675ac80270d38a99614

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 01 1C 27 1C 00 00 8F 20  43 52 45 41 54 45 20 31  |..'.... CREATE 1|
00000010: 35 38 31 20 50 53 45 55  44 4F 20 53 55 42 44 49  |581 PSEUDO SUBDI|
00000020: 52 45 43 54 4F 52 59 00  44 1C 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 1C 04  00 3A 00 6B 1C 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 1C 06 00  |O & PART NO.q...|
00000070: 3A 00 9F 1C 0A 00 99 22  93 31 35 38 31 53 55 42  |:......".1581SUB|
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 1C 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 1C  |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 1D 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  48 1D 0E 00 99 22 34 30  | LEAST".H...."40|
00000130: 20 54 52 41 43 4B 53 20  28 31 30 32 34 30 20 42  | TRACKS (10240 B|
00000140: 4C 4F 43 4B 53 29 2E 22  00 74 1D 0F 00 99 22 11  |LOCKS).".t....".|
00000150: 41 4C 4C 20 44 41 54 41  20 57 49 54 48 49 4E 20  |ALL DATA WITHIN |
00000160: 54 48 49 53 20 50 41 52  54 49 54 49 4F 4E 20 57  |THIS PARTITION W|
00000170: 49 4C 4C 22 00 99 1D 10  00 99 22 42 45 20 44 45  |ILL"......"BE DE|
00000180: 53 54 52 4F 59 45 44 20  49 46 20 59 4F 55 20 43  |STROYED IF YOU C|
00000190: 4F 4E 54 49 4E 55 45 2E  22 00 B2 1D 11 00 99 22  |ONTINUE."......"|
000001A0: 11 11 43 4F 4E 54 49 4E  55 45 20 28 59 2F 4E 29  |..CONTINUE (Y/N)|
000001B0: 3F 22 00 C4 1D 12 00 A1  4B 24 3A 8B 4B 24 B2 22  |?"......K$:.K$."|
000001C0: 22 A7 31 38 00 DB 1D 13  00 8B 4B 24 B3 B1 22 59  |".18......K$.."Y|
000001D0: 22 AF 4B 24 B3 B1 22 D9  22 A7 80 00 F7 1D 14 00  |".K$..".".......|
000001E0: 85 22 48 44 20 44 45 56  49 43 45 20 4E 55 4D 42  |."HD DEVICE NUMB|
000001F0: 45 52 20 22 3B 44 56 00  10 1E 15 00 8B 44 56 B3  |ER ";DV......DV.|
00000200: 38 B0 44 56 B1 32 39 A7  44 56 B2 30 3A 89 32 30  |8.DV.29.DV.0:.20|
00000210: 00 16 1E 19 00 3A 00 32  1E 1E 00 85 22 50 41 52  |.....:.2...."PAR|
00000220: 54 49 54 49 4F 4E 20 54  4F 20 55 53 45 20 22 3B  |TITION TO USE ";|
00000230: 50 4E 00 4C 1E 1F 00 8B  50 4E B3 31 B0 50 4E B1  |PN.L....PN.1.PN.|
00000240: 32 35 34 A7 50 4E B2 30  3A 89 33 30 00 52 1E 23  |254.PN.0:.30.R.#|
00000250: 00 3A 00 6F 1E 28 00 85  22 53 55 42 44 49 52 45  |.:.o.(.."SUBDIRE|
00000260: 43 54 4F 52 59 20 4E 41  4D 45 22 3B 53 44 24 00  |CTORY NAME";SD$.|
00000270: 7F 1E 29 00 8B 53 44 24  B2 22 22 A7 89 34 30 00  |..)..SD$.""..40.|
00000280: 99 1E 2A 00 8B C3 28 53  44 24 29 B1 31 36 A7 53  |..*...(SD$).16.S|
00000290: 44 24 B2 22 22 3A 89 34  30 00 9F 1E 2D 00 3A 00  |D$."":.40...-.:.|
000002A0: A9 1E 32 00 54 53 B2 34  30 00 B6 1E 33 00 3A 81  |..2.TS.40...3.:.|
000002B0: 49 B2 31 A4 31 36 00 CB  1E 34 00 3A 3A 42 4C 24  |I.1.16...4.::BL$|
000002C0: B2 42 4C 24 AA C7 28 31  36 30 29 00 D2 1E 35 00  |.BL$..(160)...5.|
000002D0: 3A 82 00 D8 1E 37 00 3A  00 EE 1E 3C 00 53 44 24  |:....7.:...<.SD$|
000002E0: B2 C8 28 53 44 24 AA 42  4C 24 2C 31 36 29 00 F4  |..(SD$.BL$,16)..|
000002F0: 1E 41 00 3A 00 02 1F 46  00 3A 81 49 B2 31 A4 32  |.A.:...F.:.I.1.2|
00000300: 35 34 00 15 1F 47 00 3A  3A 5A 53 24 B2 5A 53 24  |54...G.::ZS$.ZS$|
00000310: AA C7 28 30 29 00 1C 1F  48 00 3A 82 00 22 1F 5E  |..(0)...H.:..".^|
00000320: 00 3A 00 3B 1F 5F 00 3A  8F 20 4D 4F 56 45 20 54  |.:.;._.:. MOVE T|
00000330: 4F 20 50 41 52 54 49 54  49 4F 4E 00 41 1F 60 00  |O PARTITION.A.`.|
00000340: 3A 00 4F 1F 64 00 9F 31  35 2C 44 56 2C 31 35 00  |:.O.d..15,DV,15.|
00000350: 62 1F 6E 00 98 31 35 2C  22 43 D0 22 3B C7 28 50  |b.n..15,"C.";.(P|
00000360: 4E 29 00 98 1F 70 00 84  31 35 2C 5A 52 3A 8B 5A  |N)...p..15,ZR:.Z|
00000370: 52 B3 B1 32 A7 99 22 55  4E 41 42 4C 45 20 54 4F  |R..2.."UNABLE TO|
00000380: 20 53 45 4C 45 43 54 20  50 41 52 54 49 54 49 4F  | SELECT PARTITIO|
00000390: 4E 22 3A A0 31 35 3A 80  00 9E 1F 71 00 3A 00 BB  |N":.15:....q.:..|
000003A0: 1F 72 00 3A 8F 20 4D 41  4B 45 20 53 55 52 45 20  |.r.:. MAKE SURE |
000003B0: 49 54 27 53 20 4E 41 54  49 56 45 00 C1 1F 73 00  |IT'S NATIVE...s.|
000003C0: 3A 00 CF 1F 78 00 98 31  35 2C 22 47 2D 50 22 00  |:...x..15,"G-P".|
000003D0: DC 1F 82 00 A1 23 31 35  2C 50 54 24 00 EF 1F 8C  |.....#15,PT$....|
000003E0: 00 50 54 B2 C6 28 50 54  24 AA C7 28 30 29 29 00  |.PT..(PT$..(0)).|
000003F0: 1F 20 96 00 8B 50 54 B3  B1 31 A7 99 22 4E 4F 54  |. ...PT..1.."NOT|
00000400: 20 41 20 4E 41 54 49 56  45 20 4D 4F 44 45 20 50  | A NATIVE MODE P|
00000410: 41 52 54 49 54 49 4F 4E  22 3A A0 31 35 3A 80 00  |ARTITION":.15:..|
00000420: 25 20 9A 00 3A 00 4A 20  9B 00 3A 8F 20 4D 41 4B  |% ..:.J ..:. MAK|
00000430: 45 20 53 55 52 45 20 45  4E 4F 55 47 48 20 54 52  |E SURE ENOUGH TR|
00000440: 41 43 4B 53 20 45 58 49  53 54 00 50 20 9C 00 3A  |ACKS EXIST.P ..:|
00000450: 00 60 20 A0 00 9F 32 2C  44 56 2C 32 2C 22 23 22  |.` ...2,DV,2,"#"|
00000460: 00 75 20 AA 00 98 31 35  2C 22 55 31 22 3B 32 3B  |.u ...15,"U1";2;|
00000470: 30 3B 31 3B 32 00 81 20  B4 00 3A 81 49 B2 30 A4  |0;1;2.. ..:.I.0.|
00000480: 38 00 8E 20 BE 00 3A 3A  A1 23 32 2C 42 24 00 95  |8.. ..::.#2,B$..|
00000490: 20 C8 00 3A 82 00 A7 20  D2 00 48 54 B2 C6 28 42  | ..:... ..HT..(B|
000004A0: 24 AA C7 28 30 29 29 00  E1 20 DC 00 8B 48 54 B3  |$..(0)).. ...HT.|
000004B0: 54 53 A7 99 22 4E 4F 54  20 45 4E 4F 55 47 48 20  |TS.."NOT ENOUGH |
000004C0: 54 52 41 43 4B 53 20 49  4E 20 54 48 45 20 50 41  |TRACKS IN THE PA|
000004D0: 52 54 49 54 49 4F 4E 22  3A A0 32 3A A0 31 35 3A  |RTITION":.2:.15:|
000004E0: 80 00 E7 20 DE 00 3A 00  EE 20 DF 00 A0 32 00 F4  |... ..:.. ...2..|
000004F0: 20 E0 00 3A 00 09 21 E1  00 3A 8F 20 4E 45 57 20  | ..:..!..:. NEW |
00000500: 50 41 52 54 49 54 49 4F  4E 00 0F 21 E2 00 3A 00  |PARTITION..!..:.|
00000510: 27 21 E6 00 98 31 35 2C  22 4E 30 3A 22 3B 53 44  |'!...15,"N0:";SD|
00000520: 24 3B 22 2C 48 44 22 00  2D 21 EA 00 3A 00 3D 21  |$;",HD".-!..:.=!|
00000530: EB 00 9F 32 2C 44 56 2C  32 2C 22 23 22 00 43 21  |...2,DV,2,"#".C!|
00000540: EC 00 3A 00 49 21 26 01  3A 00 6E 21 27 01 3A 8F  |..:.I!&.:.n!'.:.|
00000550: 20 53 45 54 20 4C 49 4E  4B 53 20 41 4E 44 20 41  | SET LINKS AND A|
00000560: 4C 4C 4F 43 41 54 45 20  42 4C 4F 43 4B 53 00 74  |LLOCATE BLOCKS.t|
00000570: 21 28 01 3A 00 7E 21 2C  01 54 4C B2 54 53 00 8C  |!(.:.~!,.TL.TS..|
00000580: 21 31 01 3A 81 53 45 B2  33 A4 33 38 00 9A 21 32  |!1.:.SE.3.38..!2|
00000590: 01 3A 3A 53 4C B2 53 45  AA 31 00 AE 21 36 01 3A  |.::SL.SE.1..!6.:|
000005A0: 3A 98 31 35 2C 22 42 2D  50 22 3B 32 3B 30 00 C8  |:.15,"B-P";2;0..|
000005B0: 21 38 01 3A 3A 98 32 2C  C7 28 54 4C 29 3B C7 28  |!8.::.2,.(TL);.(|
000005C0: 53 4C 29 3B 5A 53 24 3B  00 E1 21 3A 01 3A 3A 98  |SL);ZS$;..!:.::.|
000005D0: 31 35 2C 22 55 32 22 3B  32 3B 30 3B 54 53 3B 53  |15,"U2";2;0;TS;S|
000005E0: 45 00 F9 21 3C 01 3A 3A  98 31 35 2C 22 42 2D 41  |E..!<.::.15,"B-A|
000005F0: 22 3B 30 3B 54 53 3B 53  45 00 00 22 3E 01 3A 82  |";0;TS;SE..">.:.|
00000600: 00 10 22 40 01 53 45 B2  33 39 3A 53 4C B2 30 31  |.."@.SE.39:SL.01|
00000610: 00 23 22 4A 01 3A 98 31  35 2C 22 42 2D 50 22 3B  |.#"J.:.15,"B-P";|
00000620: 32 3B 30 00 3C 22 4C 01  3A 98 32 2C C7 28 54 4C  |2;0.<"L.:.2,.(TL|
00000630: 29 3B C7 28 53 4C 29 3B  5A 53 24 3B 00 54 22 4E  |);.(SL);ZS$;.T"N|
00000640: 01 3A 98 31 35 2C 22 55  32 22 3B 32 3B 30 3B 54  |.:.15,"U2";2;0;T|
00000650: 53 3B 53 45 00 6B 22 50  01 3A 98 31 35 2C 22 42  |S;SE.k"P.:.15,"B|
00000660: 2D 41 22 3B 30 3B 54 53  3B 53 45 00 80 22 54 01  |-A";0;TS;SE.."T.|
00000670: 54 4C B2 30 3A 53 4C B2  32 35 35 3A 53 45 B2 31  |TL.0:SL.255:SE.1|
00000680: 00 93 22 5E 01 3A 98 31  35 2C 22 42 2D 50 22 3B  |.."^.:.15,"B-P";|
00000690: 32 3B 30 00 AC 22 60 01  3A 98 32 2C C7 28 54 4C  |2;0.."`.:.2,.(TL|
000006A0: 29 3B C7 28 53 4C 29 3B  5A 53 24 3B 00 C4 22 62  |);.(SL);ZS$;.."b|
000006B0: 01 3A 98 31 35 2C 22 55  32 22 3B 32 3B 30 3B 54  |.:.15,"U2";2;0;T|
000006C0: 53 3B 53 45 00 DB 22 64  01 3A 98 31 35 2C 22 42  |S;SE.."d.:.15,"B|
000006D0: 2D 41 22 3B 30 3B 54 53  3B 53 45 00 E1 22 76 01  |-A";0;TS;SE.."v.|
000006E0: 3A 00 00 23 77 01 3A 8F  20 43 52 45 41 54 45 20  |:..#w.:. CREATE |
000006F0: 52 4F 4F 54 20 44 49 52  20 45 4E 54 52 49 45 53  |ROOT DIR ENTRIES|
00000700: 00 06 23 78 01 3A 00 18  23 7C 01 98 31 35 2C 22  |..#x.:..#|..15,"|
00000710: 42 2D 50 22 3B 32 3B 30  00 3E 23 7E 01 98 32 2C  |B-P";2;0.>#~..2,|
00000720: C7 28 30 29 3B C7 28 32  35 35 29 3B C7 28 31 33  |.(0);.(255);.(13|
00000730: 34 29 3B C7 28 34 30 29  3B C7 28 32 29 3B 00 5E  |4);.(40);.(2);.^|
00000740: 23 7F 01 98 32 2C 53 44  24 3B C7 28 30 29 3B C7  |#...2,SD$;.(0);.|
00000750: 28 30 29 3B C7 28 30 29  3B C7 28 30 29 3B 00 8B  |(0);.(0);.(0);..|
00000760: 23 80 01 98 32 2C C7 28  35 37 29 3B C7 28 37 29  |#...2,.(57);.(7)|
00000770: 3B C7 28 38 29 3B C7 28  30 29 3B C7 28 33 29 3B  |;.(8);.(0);.(3);|
00000780: C7 28 33 38 29 3B C7 28  30 29 3B 00 91 23 81 01  |.(38);.(0);..#..|
00000790: 3A 00 B5 23 82 01 98 32  2C C7 28 30 29 3B C7 28  |:..#...2,.(0);.(|
000007A0: 30 29 3B C7 28 31 33 34  29 3B C7 28 34 30 29 3B  |0);.(134);.(40);|
000007B0: C7 28 30 29 3B 00 D5 23  83 01 98 32 2C 42 4C 24  |.(0);..#...2,BL$|
000007C0: 3B C7 28 30 29 3B C7 28  30 29 3B C7 28 30 29 3B  |;.(0);.(0);.(0);|
000007D0: C7 28 30 29 3B 00 02 24  84 01 98 32 2C C7 28 35  |.(0);..$...2,.(5|
000007E0: 36 29 3B C7 28 39 29 3B  C7 28 31 37 29 3B C7 28  |6);.(9);.(17);.(|
000007F0: 38 29 3B C7 28 30 29 3B  C7 28 32 29 3B C7 28 30  |8);.(0);.(2);.(0|
00000800: 29 3B 00 15 24 86 01 98  32 2C C9 28 5A 53 24 2C  |);..$...2,.(ZS$,|
00000810: 31 39 32 29 3B 00 2B 24  90 01 98 31 35 2C 22 55  |192);.+$...15,"U|
00000820: 32 22 3B 32 3B 30 3B 31  3B 33 34 00 31 24 94 01  |2";2;0;1;34.1$..|
00000830: 3A 00 4A 24 95 01 3A 8F  20 57 52 49 54 45 20 53  |:.J$..:. WRITE S|
00000840: 55 42 20 48 45 41 44 45  52 53 00 50 24 96 01 3A  |UB HEADERS.P$..:|
00000850: 00 62 24 9A 01 98 31 35  2C 22 42 2D 50 22 3B 32  |.b$...15,"B-P";2|
00000860: 3B 30 00 84 24 9C 01 98  32 2C C7 28 34 30 29 3B  |;0..$...2,.(40);|
00000870: C7 28 33 29 3B C7 28 37  32 29 3B C7 28 30 29 3B  |.(3);.(72);.(0);|
00000880: 53 44 24 3B 00 AD 24 9D  01 98 32 2C C7 28 31 36  |SD$;..$...2,.(16|
00000890: 30 29 3B C7 28 31 36 30  29 3B C7 28 37 32 29 3B  |0);.(160);.(72);|
000008A0: C7 28 36 38 29 3B C7 28  31 36 30 29 3B 00 DE 24  |.(68);.(160);..$|
000008B0: 9E 01 98 32 2C C7 28 34  39 29 3B C7 28 37 32 29  |...2,.(49);.(72)|
000008C0: 3B C7 28 31 36 30 29 3B  C7 28 31 36 30 29 3B C7  |;.(160);.(160);.|
000008D0: 28 30 29 3B C7 28 30 29  3B C7 28 30 29 3B 00 11  |(0);.(0);.(0);..|
000008E0: 25 A0 01 98 32 2C C7 28  34 30 29 3B C7 28 30 29  |%...2,.(40);.(0)|
000008F0: 3B C7 28 31 29 3B C7 28  31 29 3B C7 28 31 29 3B  |;.(1);.(1);.(1);|
00000900: C7 28 33 34 29 3B C7 28  33 34 29 3B C7 28 30 29  |.(34);.(34);.(0)|
00000910: 3B 00 24 25 A4 01 98 32  2C C9 28 5A 53 24 2C 32  |;.$%...2,.(ZS$,2|
00000920: 31 36 29 3B 00 3A 25 A6  01 98 31 35 2C 22 55 32  |16);.:%...15,"U2|
00000930: 22 3B 32 3B 30 3B 34 30  3B 30 00 4F 25 A8 01 98  |";2;0;40;0.O%...|
00000940: 31 35 2C 22 42 2D 41 22  3B 30 3B 34 30 3B 30 00  |15,"B-A";0;40;0.|
00000950: 55 25 A9 01 3A 00 67 25  AE 01 98 31 35 2C 22 42  |U%..:.g%...15,"B|
00000960: 2D 50 22 3B 32 3B 30 00  89 25 B0 01 98 32 2C C7  |-P";2;0..%...2,.|
00000970: 28 34 30 29 3B C7 28 33  29 3B C7 28 37 32 29 3B  |(40);.(3);.(72);|
00000980: C7 28 30 29 3B 53 44 24  3B 00 B2 25 B1 01 98 32  |.(0);SD$;..%...2|
00000990: 2C C7 28 31 36 30 29 3B  C7 28 31 36 30 29 3B C7  |,.(160);.(160);.|
000009A0: 28 37 32 29 3B C7 28 36  38 29 3B C7 28 31 36 30  |(72);.(68);.(160|
000009B0: 29 3B 00 E3 25 B2 01 98  32 2C C7 28 34 39 29 3B  |);..%...2,.(49);|
000009C0: C7 28 37 32 29 3B C7 28  31 36 30 29 3B C7 28 31  |.(72);.(160);.(1|
000009D0: 36 30 29 3B C7 28 30 29  3B C7 28 30 29 3B C7 28  |60);.(0);.(0);.(|
000009E0: 30 29 3B 00 15 26 B4 01  98 32 2C C7 28 34 30 29  |0);..&...2,.(40)|
000009F0: 3B C7 28 32 29 3B C7 28  31 29 3B C7 28 31 29 3B  |;.(2);.(1);.(1);|
00000A00: C7 28 31 29 3B C7 28 33  34 29 3B C7 28 32 29 3B  |.(1);.(34);.(2);|
00000A10: C7 28 30 29 3B 00 28 26  B8 01 98 32 2C C9 28 5A  |.(0);.(&...2,.(Z|
00000A20: 53 24 2C 32 31 36 29 3B  00 3E 26 BA 01 98 31 35  |S$,216);.>&...15|
00000A30: 2C 22 55 32 22 3B 32 3B  30 3B 34 30 3B 32 00 53  |,"U2";2;0;40;2.S|
00000A40: 26 BC 01 98 31 35 2C 22  42 2D 41 22 3B 30 3B 34  |&...15,"B-A";0;4|
00000A50: 30 3B 32 00 59 26 C2 01  3A 00 60 26 CC 01 A0 32  |0;2.Y&..:.`&...2|
00000A60: 00 6C 26 D6 01 98 31 35  2C 22 56 22 00 72 26 E0  |.l&...15,"V".r&.|
00000A70: 01 3A 00 7C 26 E7 03 A0  31 35 3A 80 00 00 00     |.:.|&...15:.... |

..'.... CREATE 1581 PSEUDO SUBDIRECTORY.
D.... D. COTTON - M. FELLOWS.J...:.K...:
. INPUT DEVICE NO & PART NO.Q...:......"
.1581SUB - 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".H...."40 TRACKS (10240 B
LOCKS).".T....".ALL DATA WITHIN THIS PAR
TITION WILL"......"BE DESTROYED IF YOU C
ONTINUE."......"..CONTINUE (Y/N)?".D....
K$:.K$."".18......K$.."Y".K$.."Y".......
."HD DEVICE NUMBER ";DV......DV.8.DV.29.
DV.0:.20.....:.2...."PARTITION TO USE ";
PN.L....PN.1.PN.254.PN.0:.30.R.#.:.O.(..
"SUBDIRECTORY NAME";SD$..)..SD$.""..40.
..*..C(SD$).16.SD$."":.40...-.:...2.TS.4
0...3.:.I.1.16.K.4.::BL$.BL$.G(160).R.5.
:..X.7.:...<.SD$.H(SD$.BL$,16)...A.:...F
.:.I.1.254...G.::ZS$.ZS$.G(0)...H.:..".^
.:.;._.:. MOVE TO PARTITION.A.`.:.O.D..1
5,DV,15.B.N..15,"CP";G(PN)...P..15,ZR:.Z
R..2.."UNABLE TO SELECT PARTITION": 15:.
...Q.:...R.:. MAKE SURE IT'S NATIVE.A.S.
:.O.X..15,"G-P"......#15,PT$.....PT.F(PT
$.G(0)).. ...PT..1.."NOT A NATIVE MODE P
ARTITION": 15:..% ..:.J ..:. MAKE SURE E
NOUGH TRACKS EXIST.P ..:.`  ..2,DV,2,"#"
.U ...15,"U1";2;0;1;2.. ..:.I.0.8.. ..::
.#2,B$.. H.:... R.HT.F(B$.G(0)).. ...HT.
TS.."NOT ENOUGH TRACKS IN THE PARTITION"
: 2: 15:... ..:.. .. 2.. ..:..!..:. NEW 
PARTITION..!..:.'!...15,"N0:";SD$;",HD".
-!..:.=!...2,DV,2,"#".C!..:.I!&.:.N!'.:.
 SET LINKS AND ALLOCATE BLOCKS.T!(.:.~!,
.TL.TS..!1.:.SE.3.38..!2.::SL.SE.1..!6.:
:.15,"B-P";2;0.H!8.::.2,G(TL);G(SL);ZS$;
..!:.::.15,"U2";2;0;TS;SE..!<.::.15,"B-A
";0;TS;SE..">.:..."@.SE.39:SL.01.#"J.:.1
5,"B-P";2;0.<"L.:.2,G(TL);G(SL);ZS$;.T"N
.:.15,"U2";2;0;TS;SE.K"P.:.15,"B-A";0;TS
;SE.."T.TL.0:SL.255:SE.1.."^.:.15,"B-P";
2;0.."`.:.2,G(TL);G(SL);ZS$;.D"B.:.15,"U
2";2;0;TS;SE.."D.:.15,"B-A";0;TS;SE.."V.
:..#W.:. CREATE ROOT DIR ENTRIES..#X.:..
#|..15,"B-P";2;0.>#~..2,G(0);G(255);G(13
4);G(40);G(2);.^#..2,SD$;G(0);G(0);G(0)
;G(0);..#...2,G(57);G(7);G(8);G(0);G(3);
G(38);G(0);..#..:..#...2,G(0);G(0);G(134
);G(40);G(0);.U#...2,BL$;G(0);G(0);G(0);
G(0);..$...2,G(56);G(9);G(17);G(8);G(0);
G(2);G(0);..$...2,I(ZS$,192);.+$...15,"U
2";2;0;1;34.1$..:.J$..:. WRITE SUB HEADE
RS.P$..:.B$...15,"B-P";2;0..$...2,G(40);
G(3);G(72);G(0);SD$;..$...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(
40);G(0);G(1);G(1);G(1);G(34);G(34);G(0)
;.$%...2,I(ZS$,216);.:%...15,"U2";2;0;40
;0.O%...15,"B-A";0;40;0.U%..:.G%...15,"B
-P";2;0..%...2,G(40);G(3);G(72);G(0);SD$
;..%...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(40);G(2);G(1);G(1);
G(1);G(34);G(2);G(0);.(&...2,I(ZS$,216);
.>&...15,"U2";2;0;40;2.S&...15,"B-A";0;4
0;2.Y&B.:.`&L. 2.L&V..15,"V".R&..:.|&.. 
15:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL