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

CHANGE DISK NAME

FILE INFORMATION

FILENAME(S): CHANGE DISK NAME

FILE TYPE(S): PRG

FILE SIZE: 647b

FIRST SEEN: 2025-10-19 22:48:24

APPEARS ON: 1 disk(s)

FILE HASH

7756571e0fd1c526784287c6c384dddd7dffdc4b5186097cff711a6efdc0ab0d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 UTILITY CHANGE DISK NAME PRG Radd Maxx 25 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 23 08 E7 03 8F 20  43 48 41 4E 47 45 20 44  |..#.... CHANGE D|
00000010: 49 53 4B 20 4E 41 4D 45  20 53 45 50 54 20 47 41  |ISK NAME SEPT GA|
00000020: 5A 45 54 00 3D 08 E8 03  85 22 93 4E 45 57 20 44  |ZET.=....".NEW D|
00000030: 49 53 4B 20 4E 41 4D 45  22 3B 44 4E 24 00 76 08  |ISK NAME";DN$.v.|
00000040: F2 03 8B C3 28 44 4E 24  29 B3 31 36 A7 44 4E 24  |....(DN$).16.DN$|
00000050: B2 44 4E 24 AA C7 28 31  36 30 29 3A 89 31 30 31  |.DN$..(160):.101|
00000060: 30 3A 8F 20 53 54 52 45  54 43 48 20 54 4F 20 31  |0:. STRETCH TO 1|
00000070: 36 20 43 48 41 52 00 AD  08 FC 03 8B C3 28 44 4E  |6 CHAR.......(DN|
00000080: 24 29 B1 31 36 A7 44 4E  24 B2 C8 28 44 4E 24 2C  |$).16.DN$..(DN$,|
00000090: 31 36 29 3A 8F 20 53 48  4F 52 54 45 4E 20 4E 41  |16):. SHORTEN NA|
000000A0: 4D 45 20 54 4F 20 31 36  20 43 48 41 52 00 DA 08  |ME TO 16 CHAR...|
000000B0: 06 04 9F 31 35 2C 38 2C  31 35 2C 22 49 22 3A 8F  |...15,8,15,"I":.|
000000C0: 20 4F 50 45 4E 20 44 49  53 4B 20 43 4F 4D 4D 41  | OPEN DISK COMMA|
000000D0: 4E 44 20 43 48 41 4E 4E  45 4C 00 06 09 10 04 9F  |ND CHANNEL......|
000000E0: 38 2C 38 2C 38 2C 22 23  22 3A 8F 20 4F 50 45 4E  |8,8,8,"#":. OPEN|
000000F0: 20 44 49 52 45 43 54 20  41 43 43 45 53 53 20 43  | DIRECT ACCESS C|
00000100: 48 41 4E 4E 45 4C 00 4B  09 1A 04 98 31 35 2C 22  |HANNEL.K....15,"|
00000110: 55 31 3A 22 38 3B 30 3B  31 38 3B 30 3A 8F 20 52  |U1:"8;0;18;0:. R|
00000120: 45 41 44 20 54 52 41 43  4B 20 31 38 2C 53 45 43  |EAD TRACK 18,SEC|
00000130: 54 4F 52 20 30 20 49 4E  54 4F 20 43 48 41 4E 4E  |TOR 0 INTO CHANN|
00000140: 45 4C 20 38 20 42 55 46  46 45 52 00 90 09 24 04  |EL 8 BUFFER...$.|
00000150: 98 31 35 2C 22 42 2D 50  3A 22 38 3B 31 34 34 3A  |.15,"B-P:"8;144:|
00000160: 8F 20 4D 4F 56 45 20 42  55 46 46 45 52 2D 50 4F  |. MOVE BUFFER-PO|
00000170: 49 4E 54 45 52 20 54 4F  20 46 49 52 53 54 20 42  |INTER TO FIRST B|
00000180: 59 54 45 20 4F 46 20 44  49 53 4B 20 4E 41 4D 45  |YTE OF DISK NAME|
00000190: 00 D2 09 2E 04 98 38 2C  44 4E 24 3B 3A 8F 20 50  |......8,DN$;:. P|
000001A0: 55 54 20 4E 45 57 20 4E  41 4D 45 20 49 4E 20 43  |UT NEW NAME IN C|
000001B0: 48 41 4E 4E 45 4C 20 38  20 42 55 46 46 45 52 2C  |HANNEL 8 BUFFER,|
000001C0: 52 45 50 4C 41 43 49 4E  47 20 4F 4C 44 20 4E 41  |REPLACING OLD NA|
000001D0: 4D 45 00 09 0A 38 04 98  31 35 2C 22 55 32 3A 22  |ME...8..15,"U2:"|
000001E0: 38 3B 30 3B 31 38 3B 30  3A 8F 20 57 52 49 54 45  |8;0;18;0:. WRITE|
000001F0: 20 42 55 46 46 45 52 20  57 49 54 48 20 4E 41 4D  | BUFFER WITH NAM|
00000200: 45 20 43 48 41 4E 47 45  44 00 2B 0A 42 04 A0 38  |E CHANGED.+.B..8|
00000210: 3A 8F 20 43 4C 4F 53 45  20 44 49 52 45 43 54 20  |:. CLOSE DIRECT |
00000220: 41 43 43 45 53 53 20 43  48 41 4E 00 4B 0A 4C 04  |ACCESS CHAN.K.L.|
00000230: A0 31 35 3A 8F 20 43 4C  4F 53 45 20 43 4F 4D 4D  |.15:. CLOSE COMM|
00000240: 41 4E 44 20 43 48 41 4E  4E 45 4C 00 84 0A 56 04  |AND CHANNEL...V.|
00000250: 8F 20 47 4F 54 4F 20 31  30 30 3A 20 52 45 4D 20  |. GOTO 100: REM |
00000260: 52 45 53 54 41 52 54 20  44 49 53 50 4C 41 59 20  |RESTART DISPLAY |
00000270: 54 26 53 20 50 52 4F 47  20 49 46 20 41 50 50 45  |T&S PROG IF APPE|
00000280: 4E 44 45 44 00 00 00                              |NDED...         |

..#.... CHANGE DISK NAME SEPT GAZET.=...
.".NEW DISK NAME";DN$.V....C(DN$).16.DN$
.DN$.G(160):.1010:. STRETCH TO 16 CHAR..
....C(DN$).16.DN$.H(DN$,16):. SHORTEN NA
ME TO 16 CHAR.Z....15,8,15,"I":. OPEN DI
SK COMMAND CHANNEL......8,8,8,"#":. OPEN
 DIRECT ACCESS CHANNEL.K....15,"U1:"8;0;
18;0:. READ TRACK 18,SECTOR 0 INTO CHANN
EL 8 BUFFER...$..15,"B-P:"8;144:. MOVE B
UFFER-POINTER TO FIRST BYTE OF DISK NAME
.R....8,DN$;:. PUT NEW NAME IN CHANNEL 8
 BUFFER,REPLACING OLD NAME...8..15,"U2:"
8;0;18;0:. WRITE BUFFER WITH NAME CHANGE
D.+.B. 8:. CLOSE DIRECT ACCESS CHAN.K.L.
 15:. CLOSE COMMAND CHANNEL...V.. GOTO 1
00: REM RESTART DISPLAY T&S PROG IF APPE
NDED...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL