DISK COMMANDS
FILE INFORMATION
FILENAME(S): DISK COMMANDS
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
2c8f26285209f6892c2ee6483e3d8c13344511b54accd3f678f8a19578856ac1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMM DISK USER 7 | DISK COMMANDS | PRG | UK CD | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 2B 08 14 00 8F 00 4D 08 1E 00 |*****.+.....M...|
00000030: 8F 20 20 20 20 44 49 53 4B 20 43 4F 4D 4D 41 4E |. DISK COMMAN|
00000040: 44 53 20 44 45 4D 4F 20 50 52 4F 47 53 00 53 08 |DS DEMO PROGS.S.|
00000050: 28 00 8F 00 77 08 32 00 8F 2A 2A 2A 2A 2A 2A 2A |(...w.2..*******|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 00 7D 08 3C 00 8F 00 87 08 |*******.}.<.....|
00000080: 64 00 99 20 22 93 22 00 AA 08 6E 00 99 3A 99 20 |d.. "."...n..:. |
00000090: A3 31 30 29 3B 22 1E 44 49 52 45 43 54 20 41 43 |.10);".DIRECT AC|
000000A0: 43 45 53 53 20 44 45 4D 4F 22 00 CC 08 78 00 99 |CESS DEMO"...x..|
000000B0: 3A 99 20 A3 31 30 29 3B 22 9E 31 2E 20 20 50 52 |:. .10);".1. PR|
000000C0: 4F 47 52 41 4D 20 54 52 41 43 45 22 00 E9 08 82 |OGRAM TRACE"....|
000000D0: 00 99 3A 99 20 A3 31 30 29 3B 22 32 2E 20 20 52 |..:. .10);"2. R|
000000E0: 45 41 44 20 4E 41 4D 45 22 00 08 09 8C 00 99 3A |EAD NAME"......:|
000000F0: 99 20 A3 31 30 29 3B 22 33 2E 20 20 43 48 41 4E |. .10);"3. CHAN|
00000100: 47 45 20 4E 41 4D 45 22 00 2B 09 96 00 99 3A 99 |GE NAME".+....:.|
00000110: 20 A3 31 30 29 3B 22 34 2E 20 20 53 48 4F 57 20 | .10);"4. SHOW |
00000120: 42 59 54 45 53 20 46 52 45 45 22 00 4E 09 A0 00 |BYTES FREE".N...|
00000130: 99 3A 99 20 A3 31 30 29 3B 22 35 2E 20 20 52 45 |.:. .10);"5. RE|
00000140: 41 44 20 4E 41 4D 45 28 41 47 41 49 4E 29 00 56 |AD NAME(AGAIN).V|
00000150: 09 A5 00 99 3A 99 00 6D 09 AA 00 A1 20 49 24 3A |....:..m.... I$:|
00000160: 8B 20 49 24 B2 22 22 20 A7 20 31 37 30 00 88 09 |. I$."" . 170...|
00000170: B4 00 8B 20 49 24 B3 22 31 22 20 B0 20 49 24 B1 |... I$."1" . I$.|
00000180: 22 35 22 A7 20 31 37 30 00 AA 09 BE 00 91 20 C5 |"5". 170...... .|
00000190: 28 49 24 29 20 8D 20 35 30 30 2C 36 30 30 2C 37 |(I$) . 500,600,7|
000001A0: 30 30 2C 38 30 30 2C 39 30 30 00 CD 09 C0 00 99 |00,800,900......|
000001B0: 3A 99 20 A3 31 30 29 3B 22 41 4E 59 20 4B 45 59 |:. .10);"ANY KEY|
000001C0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 E4 09 | TO CONTINUE"...|
000001D0: C3 00 A1 20 49 24 3A 8B 20 49 24 B2 22 22 20 A7 |... I$:. I$."" .|
000001E0: 20 31 39 35 00 EE 09 C8 00 89 20 31 30 30 00 F4 | 195...... 100..|
000001F0: 09 ED 01 8F 00 05 0A EF 01 8F 20 52 45 41 44 20 |.......... READ |
00000200: 4C 49 4E 4B 53 00 0B 0A F1 01 8F 00 33 0A F4 01 |LINKS.......3...|
00000210: 9F 20 38 2C 38 2C 31 35 3A 8F 20 4F 50 45 4E 20 |. 8,8,15:. OPEN |
00000220: 54 48 45 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E |THE COMMAND CHAN|
00000230: 4E 45 4C 00 5D 0A FE 01 9F 20 34 2C 38 2C 34 2C |NEL.].... 4,8,4,|
00000240: 22 23 22 3A 8F 20 4F 50 45 4E 20 44 49 52 45 43 |"#":. OPEN DIREC|
00000250: 54 20 41 43 43 45 53 53 20 46 49 4C 45 00 83 0A |T ACCESS FILE...|
00000260: 08 02 85 20 22 54 52 41 43 4B 20 41 4E 44 20 53 |... "TRACK AND S|
00000270: 45 43 54 4F 52 20 50 4C 45 41 53 45 22 3B 54 52 |ECTOR PLEASE";TR|
00000280: 2C 53 45 00 C5 0A 12 02 98 38 2C 22 55 31 3A 22 |,SE......8,"U1:"|
00000290: 34 3B 30 3B 54 52 3B 53 45 3A 8F 20 52 45 41 44 |4;0;TR;SE:. READ|
000002A0: 20 43 4F 4E 54 45 4E 54 53 20 4F 46 20 54 52 41 | CONTENTS OF TRA|
000002B0: 43 4B 2F 53 45 43 54 4F 52 20 49 4E 54 4F 20 42 |CK/SECTOR INTO B|
000002C0: 55 46 46 45 52 00 F6 0A 1C 02 A1 23 34 2C 54 24 |UFFER......#4,T$|
000002D0: 2C 53 24 3A 8F 20 52 45 41 44 20 46 49 52 53 54 |,S$:. READ FIRST|
000002E0: 20 54 57 4F 20 42 59 54 45 53 20 49 4E 54 4F 20 | TWO BYTES INTO |
000002F0: 42 55 46 46 45 52 00 33 0B 26 02 54 52 B2 C6 28 |BUFFER.3.&.TR..(|
00000300: 54 24 AA C7 28 30 29 29 3A 53 45 B2 C6 28 53 24 |T$..(0)):SE..(S$|
00000310: AA C7 28 30 29 29 3A 8F 20 4D 41 4B 45 20 53 55 |..(0)):. MAKE SU|
00000320: 52 45 20 56 41 4C 55 45 20 49 53 20 49 4E 54 45 |RE VALUE IS INTE|
00000330: 47 45 52 00 59 0B 30 02 8B 20 54 52 B2 30 20 A7 |GER.Y.0.. TR.0 .|
00000340: 20 A0 20 34 3A A0 20 38 3A 8E 3A 8F 20 45 4E 44 | . 4:. 8:.:. END|
00000350: 20 4F 46 20 4C 49 4E 4B 53 00 88 0B 3A 02 99 20 | OF LINKS...:.. |
00000360: 22 54 52 41 43 4B 20 4E 55 4D 42 45 52 20 49 53 |"TRACK NUMBER IS|
00000370: 3A 20 22 3B 54 52 3B 22 20 53 45 43 54 4F 52 20 |: ";TR;" SECTOR |
00000380: 49 53 3A 20 22 3B 53 45 00 A2 0B 44 02 89 20 35 |IS: ";SE...D.. 5|
00000390: 33 30 3A 8F 20 47 45 54 20 4E 45 58 54 20 4C 49 |30:. GET NEXT LI|
000003A0: 4E 4B 00 A8 0B 4E 02 8F 00 BE 0B 51 02 8F 20 20 |NK...N.....Q.. |
000003B0: 52 45 41 44 20 44 49 53 4B 20 4E 41 4D 45 00 C4 |READ DISK NAME..|
000003C0: 0B 53 02 8F 00 EC 0B 58 02 9F 20 38 2C 38 2C 31 |.S.....X.. 8,8,1|
000003D0: 35 3A 8F 20 4F 50 45 4E 20 54 48 45 20 43 4F 4D |5:. OPEN THE COM|
000003E0: 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 00 16 0C 62 |MAND CHANNEL...b|
000003F0: 02 9F 20 34 2C 38 2C 34 2C 22 23 22 3A 8F 20 4F |.. 4,8,4,"#":. O|
00000400: 50 45 4E 20 44 49 52 45 43 54 20 41 43 43 45 53 |PEN DIRECT ACCES|
00000410: 53 20 46 49 4C 45 00 53 0C 6C 02 98 38 2C 22 55 |S FILE.S.l..8,"U|
00000420: 31 3A 22 34 3B 30 3B 31 38 3B 30 3A 8F 20 52 45 |1:"4;0;18;0:. RE|
00000430: 41 44 20 43 4F 4E 54 45 4E 54 53 20 4F 46 20 44 |AD CONTENTS OF D|
00000440: 45 53 49 52 45 44 20 54 52 41 43 4B 2F 53 45 43 |ESIRED TRACK/SEC|
00000450: 54 4F 52 00 8D 0C 76 02 98 38 2C 22 42 2D 50 3A |TOR...v..8,"B-P:|
00000460: 22 34 3B 31 34 34 3A 8F 20 50 4F 49 4E 54 20 54 |"4;144:. POINT T|
00000470: 4F 20 57 48 45 52 45 20 59 4F 55 20 57 41 4E 54 |O WHERE YOU WANT|
00000480: 20 54 4F 20 52 45 41 44 20 46 52 4F 4D 00 A2 0C | TO READ FROM...|
00000490: 7B 02 99 20 22 44 49 53 4B 20 4E 41 4D 45 3A 20 |{.. "DISK NAME: |
000004A0: 22 3B 00 C6 0C 80 02 81 20 58 B2 31 20 A4 20 31 |";...... X.1 . 1|
000004B0: 36 3A 8F 20 4C 45 4E 47 54 48 20 4F 46 20 46 49 |6:. LENGTH OF FI|
000004C0: 4C 45 4E 41 4D 45 00 F9 0C 8A 02 A1 23 34 2C 58 |LENAME......#4,X|
000004D0: 24 3A 8B 20 58 24 B2 C7 28 31 36 30 29 A7 20 36 |$:. X$..(160). 6|
000004E0: 37 30 3A 8F 20 49 46 20 53 48 49 46 54 45 44 20 |70:. IF SHIFTED |
000004F0: 53 50 41 43 45 20 45 4E 44 00 27 0D 94 02 99 20 |SPACE END.'.... |
00000500: 58 24 3B 3A 82 3A 20 20 8F 20 50 52 49 4E 54 20 |X$;:.: . PRINT |
00000510: 4F 55 54 20 41 4E 44 20 47 45 54 20 4E 45 58 54 |OUT AND GET NEXT|
00000520: 20 4C 45 54 54 45 52 00 3B 0D 9E 02 99 3A A0 20 | LETTER.;....:. |
00000530: 34 3A A0 20 38 3A 8F 20 45 4E 44 00 41 0D A8 02 |4:. 8:. END.A...|
00000540: 8E 00 47 0D B2 02 8F 00 59 0D B7 02 8F 20 43 48 |..G.....Y.... CH|
00000550: 41 4E 47 45 20 4E 41 4D 45 00 5F 0D B9 02 8F 00 |ANGE NAME._.....|
00000560: 87 0D BC 02 9F 20 38 2C 38 2C 31 35 3A 8F 20 4F |..... 8,8,15:. O|
00000570: 50 45 4E 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 |PEN THE COMMAND |
00000580: 43 48 41 4E 4E 45 4C 00 B1 0D C6 02 9F 20 34 2C |CHANNEL...... 4,|
00000590: 38 2C 34 2C 22 23 22 3A 8F 20 4F 50 45 4E 20 44 |8,4,"#":. OPEN D|
000005A0: 49 52 45 43 54 20 41 43 43 45 53 53 20 46 49 4C |IRECT ACCESS FIL|
000005B0: 45 00 EE 0D D0 02 98 38 2C 22 55 31 3A 22 34 3B |E......8,"U1:"4;|
000005C0: 30 3B 31 38 3B 30 3A 8F 20 52 45 41 44 20 43 4F |0;18;0:. READ CO|
000005D0: 4E 54 45 4E 54 53 20 4F 46 20 44 45 53 49 52 45 |NTENTS OF DESIRE|
000005E0: 44 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 00 28 |D TRACK/SECTOR.(|
000005F0: 0E DA 02 98 38 2C 22 42 2D 50 3A 22 34 3B 31 34 |....8,"B-P:"4;14|
00000600: 34 3A 8F 20 50 4F 49 4E 54 20 54 4F 20 57 48 45 |4:. POINT TO WHE|
00000610: 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 |RE YOU WANT TO R|
00000620: 45 41 44 20 46 52 4F 4D 00 3C 0E DC 02 99 20 22 |EAD FROM.<.... "|
00000630: 4F 4C 44 20 4E 41 4D 45 3A 20 22 3B 00 6B 0E DF |OLD NAME: ";.k..|
00000640: 02 81 20 58 B2 31 20 A4 20 31 36 3A A1 23 34 2C |.. X.1 . 16:.#4,|
00000650: 58 24 3A 8B 20 58 24 B2 C7 28 31 36 30 29 20 A7 |X$:. X$..(160) .|
00000660: 20 58 B2 31 36 3A 89 20 37 33 39 00 75 0E E1 02 | X.16:. 739.u...|
00000670: 99 20 58 24 3B 00 81 0E E3 02 82 20 58 3A 99 3A |. X$;...... X:.:|
00000680: 99 00 AC 0E E4 02 85 20 22 45 4E 54 45 52 20 4E |....... "ENTER N|
00000690: 45 57 20 4E 41 4D 45 22 3B 58 24 3A 8B 20 C3 28 |EW NAME";X$:. .(|
000006A0: 58 24 29 B1 31 36 20 A7 20 37 34 30 00 DE 0E EE |X$).16 . 740....|
000006B0: 02 8B 20 C3 28 58 24 29 B3 31 36 A7 20 58 24 B2 |.. .(X$).16. X$.|
000006C0: 58 24 AA C7 28 31 36 30 29 3A 89 20 37 35 30 3A |X$..(160):. 750:|
000006D0: 8F 20 50 41 44 20 4F 55 54 20 4E 41 4D 45 00 17 |. PAD OUT NAME..|
000006E0: 0F F3 02 98 38 2C 22 42 2D 50 3A 22 34 3B 31 34 |....8,"B-P:"4;14|
000006F0: 34 3A 8F 20 50 4F 49 4E 54 20 54 4F 20 57 48 45 |4:. POINT TO WHE|
00000700: 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 57 |RE YOU WANT TO W|
00000710: 52 49 54 45 20 54 4F 00 3B 0F F8 02 98 34 2C 58 |RITE TO.;....4,X|
00000720: 24 3B 3A 8F 20 43 48 41 4E 47 45 20 42 55 46 46 |$;:. CHANGE BUFF|
00000730: 45 52 20 43 4F 4E 54 45 4E 54 53 00 65 0F 02 03 |ER CONTENTS.e...|
00000740: 98 38 2C 22 55 32 3A 22 34 3B 30 3B 31 38 3B 30 |.8,"U2:"4;0;18;0|
00000750: 3A 8F 20 57 52 49 54 45 20 42 41 43 4B 20 54 4F |:. WRITE BACK TO|
00000760: 20 44 49 53 4B 00 7A 0F 0C 03 98 38 2C 22 49 22 | DISK.z....8,"I"|
00000770: 3A A0 20 34 3A A0 20 38 3A 8E 00 80 0F 16 03 8F |:. 4:. 8:.......|
00000780: 00 91 0F 1B 03 8F 20 46 52 45 45 20 42 59 54 45 |...... FREE BYTE|
00000790: 53 00 97 0F 1D 03 8F 00 A4 0F 20 03 9F 20 38 2C |S......... .. 8,|
000007A0: 38 2C 31 35 00 BB 0F 2A 03 98 38 2C 22 4D 2D 52 |8,15...*..8,"M-R|
000007B0: 22 C7 28 32 35 30 29 C7 28 32 29 00 D8 0F 34 03 |".(250).(2)...4.|
000007C0: A1 23 38 2C 58 24 3A 8B 20 58 24 B2 22 22 20 A7 |.#8,X$:. X$."" .|
000007D0: 20 58 24 B2 C7 28 30 29 00 EF 0F 3E 03 98 38 2C | X$..(0)...>..8,|
000007E0: 22 4D 2D 52 22 C7 28 32 35 32 29 C7 28 32 29 00 |"M-R".(252).(2).|
000007F0: 0B 10 48 03 A1 23 38 2C 59 24 3A 8B 20 59 24 B2 |..H..#8,Y$:. Y$.|
00000800: 22 22 A7 20 59 24 B2 C7 28 30 29 00 30 10 52 03 |"". Y$..(0).0.R.|
00000810: 99 20 C6 28 58 24 29 AA 32 35 36 AC C6 28 59 24 |. .(X$).256..(Y$|
00000820: 29 3B 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 |);" BLOCKS FREE"|
00000830: 00 3A 10 5C 03 A0 20 38 3A 8E 00 40 10 7A 03 8F |.:.\.. 8:..@.z..|
00000840: 00 52 10 7F 03 8F 20 44 49 53 4B 20 4E 41 4D 45 |.R.... DISK NAME|
00000850: 20 32 00 58 10 81 03 8F 00 65 10 84 03 9F 20 38 | 2.X.....e.... 8|
00000860: 2C 38 2C 31 35 00 81 10 8E 03 98 38 2C 22 4D 2D |,8,15......8,"M-|
00000870: 52 22 C7 28 31 34 34 29 C7 28 37 29 C7 28 31 36 |R".(144).(7).(16|
00000880: 29 00 8B 10 98 03 84 38 2C 58 24 00 A2 10 A2 03 |)......8,X$.....|
00000890: 99 20 22 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B |. "DISK NAME: ";|
000008A0: 58 24 00 AA 10 AC 03 A0 20 38 00 B0 10 B6 03 8E |X$...... 8......|
000008B0: 00 00 00 |... |
..%....******************************.+.
....M.... DISK COMMANDS DEMO PROGS.S.
(...W.2..******************************.
}.<.....D.. "."...N..:. .10);".DIRECT AC
CESS DEMO".L.X..:. .10);".1. PROGRAM TR
ACE"......:. .10);"2. READ NAME"......:
. .10);"3. CHANGE NAME".+....:. .10);"4
. SHOW BYTES FREE".N. ..:. .10);"5. RE
AD NAME(AGAIN).V....:..M.... I$:. I$.""
. 170...... I$."1" . I$."5". 170...... E
(I$) . 500,600,700,800,900.M....:. .10);
"ANY KEY TO CONTINUE"...C.. I$:. I$."" .
195...H.. 100............ READ LINKS...
....3.... 8,8,15:. OPEN THE COMMAND CHAN
NEL.].... 4,8,4,"#":. OPEN DIRECT ACCESS
FILE...... "TRACK AND SECTOR PLEASE";TR
,SE.E....8,"U1:"4;0;TR;SE:. READ CONTENT
S OF TRACK/SECTOR INTO BUFFER......#4,T$
,S$:. READ FIRST TWO BYTES INTO BUFFER.3
.&.TR.F(T$.G(0)):SE.F(S$.G(0)):. MAKE SU
RE VALUE IS INTEGER.Y.0.. TR.0 . 4: 8
:.:. END OF LINKS...:.. "TRACK NUMBER IS
: ";TR;" SECTOR IS: ";SE...D.. 530:. GET
NEXT LINK...N.....Q.. READ DISK NAME.D
.S.....X.. 8,8,15:. OPEN THE COMMAND CHA
NNEL...B.. 4,8,4,"#":. OPEN DIRECT ACCES
S FILE.S.L..8,"U1:"4;0;18;0:. READ CONTE
NTS OF DESIRED TRACK/SECTOR...V..8,"B-P:
"4;144:. POINT TO WHERE YOU WANT TO READ
FROM...{.. "DISK NAME: ";.F.... X.1 . 1
6:. LENGTH OF FILENAME......#4,X$:. X$.G
(160). 670:. IF SHIFTED SPACE END.'....
X$;:.: . PRINT OUT AND GET NEXT LETTER.
;....: 4: 8:. END.A.....G.....Y.... CH
ANGE NAME._.......... 8,8,15:. OPEN THE
COMMAND CHANNEL...F.. 4,8,4,"#":. OPEN D
IRECT ACCESS FILE...P..8,"U1:"4;0;18;0:.
READ CONTENTS OF DESIRED TRACK/SECTOR.(
.Z..8,"B-P:"4;144:. POINT TO WHERE YOU W
ANT TO READ FROM.<.... "OLD NAME: ";.K..
.. X.1 . 16:.#4,X$:. X$.G(160) . X.16:.
739.U.... X$;...... X:.:....... "ENTER N
EW NAME";X$:. C(X$).16 . 740...... C(X$)
.16. X$.X$.G(160):. 750:. PAD OUT NAME..
....8,"B-P:"4;144:. POINT TO WHERE YOU W
ANT TO WRITE TO.;....4,X$;:. CHANGE BUFF
ER CONTENTS.E....8,"U2:"4;0;18;0:. WRITE
BACK TO DISK.Z....8,"I": 4: 8:.......
...... FREE BYTES......... .. 8,8,15...*
..8,"M-R"G(250)G(2).X.4..#8,X$:. X$."" .
X$.G(0)...>..8,"M-R"G(252)G(2)...H..#8,
Y$:. Y$."". Y$.G(0).0.R.. F(X$).256.F(Y$
);" BLOCKS FREE".:.\. 8:..@.Z...R... D
ISK NAME 2.X.....E.... 8,8,15......8,"M-
R"G(144)G(7)G(16)......8,X$...... "DISK
NAME: ";X$..... 8.........
> CLICK IMAGE PREVIEW FOR FULL MODAL