Multiple names: DSK ID CHANGE, DISK TRICKS 2

FILE INFORMATION

FILENAME(S):
• DSK&nbspID&nbspCHANGE<br>• DISK&nbspTRICKS&nbsp2

FILE TYPE(S): PRG

FILE SIZE: 851b

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

APPEARS ON: 2 disk(s)

FILE HASH

758d4be177fd8d0f25d0494c95d1fa850af57708972e8d5b104e37462cf1b506

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE JAN 85	DSK ID CHANGE	PRG	Radd Maxx	11	14	DOWNLOAD FILE
0132A	DISK TRICKS 2	PRG	Sailor, Ganheden	21	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2B 08 64 00 9E 36  35 35 31 37 3A 8B C2 28  |..+.d..65517:..(|
00000010: 37 38 31 29 B2 32 32 A7  4D 54 24 B2 22 1F 22 3A  |781).22.MT$.".":|
00000020: 54 4D 24 B2 22 22 3A 89  35 30 30 00 3F 08 6E 00  |TM$."":.500.?.n.|
00000030: 4D 54 24 B2 22 05 22 3A  54 4D 24 B2 22 11 22 00  |MT$.".":TM$.".".|
00000040: 77 08 F4 01 99 22 93 11  11 11 11 22 4D 54 24 22  |w...."....."MT$"|
00000050: 20 20 20 20 20 20 12 57  41 52 4E 49 4E 47 22 3A  |      .WARNING":|
00000060: 99 22 11 20 54 48 49 53  20 50 52 4F 47 52 41 4D  |.". THIS PROGRAM|
00000070: 20 57 49 4C 4C 20 22 00  AF 08 F5 01 99 22 11 20  | WILL "......". |
00000080: 43 48 41 4E 47 45 20 54  48 45 20 44 49 53 4B 20  |CHANGE THE DISK |
00000090: 49 44 2E 22 3A 99 22 11  20 50 4C 45 41 53 45 20  |ID.":.". PLEASE |
000000A0: 4D 41 4B 45 20 53 55 52  45 20 54 48 41 54 22 00  |MAKE SURE THAT".|
000000B0: EA 08 F6 01 99 54 4D 24  22 20 54 48 45 20 12 47  |.....TM$" THE .G|
000000C0: 41 5A 45 54 54 45 20 44  49 53 4B 92 20 49 53 22  |AZETTE DISK. IS"|
000000D0: 3A 99 22 11 20 49 53 20  4E 4F 54 20 49 4E 20 54  |:.". IS NOT IN T|
000000E0: 48 45 20 44 52 49 56 45  2E 22 00 FA 08 E8 03 81  |HE DRIVE."......|
000000F0: 49 B2 31 A4 37 30 30 30  3A 82 00 23 09 CF 07 8F  |I.1.7000:..#....|
00000100: 20 45 4E 44 3A 20 52 45  4D 20 50 52 4F 47 52 41  | END: REM PROGRA|
00000110: 4D 20 32 3A 20 43 48 41  4E 47 45 20 44 49 53 4B  |M 2: CHANGE DISK|
00000120: 20 49 44 00 3C 09 D0 07  85 20 22 93 4E 45 57 20  | ID.<.... ".NEW |
00000130: 44 49 53 4B 20 49 44 22  3B 49 44 24 00 72 09 DA  |DISK ID";ID$.r..|
00000140: 07 8B 20 C3 28 49 44 24  29 20 B3 B1 20 32 20 A7  |.. .(ID$) .. 2 .|
00000150: 20 32 30 30 30 3A 20 8F  20 52 45 4A 45 43 54 20  | 2000: . REJECT |
00000160: 49 4D 50 52 4F 50 45 52  20 4C 45 4E 47 54 48 20  |IMPROPER LENGTH |
00000170: 49 44 00 A1 09 E4 07 9F  20 31 35 2C 38 2C 31 35  |ID...... 15,8,15|
00000180: 2C 22 49 22 3A 20 8F 20  4F 50 45 4E 20 44 49 53  |,"I": . OPEN DIS|
00000190: 4B 20 43 4F 4D 4D 41 4E  44 20 43 48 41 4E 4E 45  |K COMMAND CHANNE|
000001A0: 4C 00 CF 09 EE 07 9F 20  38 2C 38 2C 38 2C 22 23  |L...... 8,8,8,"#|
000001B0: 22 3A 20 8F 20 4F 50 45  4E 20 44 49 52 45 43 54  |": . OPEN DIRECT|
000001C0: 20 41 43 43 45 53 53 20  43 48 41 4E 4E 45 4C 00  | ACCESS CHANNEL.|
000001D0: 17 0A F8 07 98 31 35 2C  20 22 55 31 3A 22 38 3B  |.....15, "U1:"8;|
000001E0: 30 3B 31 38 3B 30 3A 20  8F 20 52 45 41 44 20 54  |0;18;0: . READ T|
000001F0: 52 41 43 4B 20 31 38 2C  20 53 45 43 54 4F 52 20  |RACK 18, SECTOR |
00000200: 30 20 49 4E 54 4F 20 43  48 41 4E 4E 45 4C 20 38  |0 INTO CHANNEL 8|
00000210: 20 42 55 46 46 45 52 00  5C 0A 02 08 98 31 35 2C  | BUFFER.\....15,|
00000220: 20 22 42 2D 50 3A 22 38  3B 31 36 32 3A 20 8F 20  | "B-P:"8;162: . |
00000230: 4D 4F 56 45 20 42 55 46  46 45 52 2D 50 4F 49 4E  |MOVE BUFFER-POIN|
00000240: 54 45 52 20 54 4F 20 46  49 52 53 54 20 42 59 54  |TER TO FIRST BYT|
00000250: 45 20 4F 46 20 44 49 53  4B 20 49 44 00 9D 0A 0C  |E OF DISK ID....|
00000260: 08 98 38 2C 20 49 44 24  3B 3A 20 8F 20 50 55 54  |..8, ID$;: . PUT|
00000270: 20 4E 45 57 20 49 44 20  49 4E 20 43 48 41 4E 4E  | NEW ID IN CHANN|
00000280: 45 4C 20 38 20 42 55 46  46 45 52 2C 20 52 45 50  |EL 8 BUFFER, REP|
00000290: 4C 41 43 49 4E 47 20 4F  4C 44 20 49 44 00 CC 0A  |LACING OLD ID...|
000002A0: 16 08 98 31 35 2C 20 22  55 32 3A 22 38 3B 30 3B  |...15, "U2:"8;0;|
000002B0: 31 38 3B 30 3A 20 8F 20  53 54 4F 52 45 20 42 55  |18;0: . STORE BU|
000002C0: 46 46 45 52 20 54 4F 20  44 49 53 4B 00 F3 0A 20  |FFER TO DISK... |
000002D0: 08 A0 20 38 3A 20 8F 20  43 4C 4F 53 45 20 44 49  |.. 8: . CLOSE DI|
000002E0: 52 45 43 54 20 41 43 43  45 53 53 20 43 48 41 4E  |RECT ACCESS CHAN|
000002F0: 4E 45 4C 00 14 0B 2A 08  A0 31 35 3A 20 8F 20 43  |NEL...*..15: . C|
00000300: 4C 4F 53 45 20 43 4F 4D  4D 41 4E 44 20 43 48 41  |LOSE COMMAND CHA|
00000310: 4E 4E 45 4C 00 50 0B 34  08 8F 20 47 4F 54 4F 20  |NNEL.P.4.. GOTO |
00000320: 31 30 30 3A 20 52 45 4D  20 52 45 53 54 41 52 54  |100: REM RESTART|
00000330: 20 44 49 53 50 4C 41 59  20 54 26 53 20 50 52 4F  | DISPLAY T&S PRO|
00000340: 47 52 41 4D 20 49 46 20  41 50 50 45 4E 44 45 44  |GRAM IF APPENDED|
00000350: 00 00 00                                          |...             |

..+.D..65517:.B(781).22.MT$.".":TM$."":.
500.?.N.MT$.".":TM$.".".W...."....."MT$"
      .WARNING":.". THIS PROGRAM WILL ".
.....". CHANGE THE DISK ID.":.". PLEASE 
MAKE SURE THAT"......TM$" THE .GAZETTE D
ISK. IS":.". IS NOT IN THE DRIVE."......
I.1.7000:..#.O.. END: REM PROGRAM 2: CHA
NGE DISK ID.<.P.. ".NEW DISK ID";ID$.R.Z
.. C(ID$) .. 2 . 2000: . REJECT IMPROPER
 LENGTH ID...... 15,8,15,"I": . OPEN DIS
K COMMAND CHANNEL.O.... 8,8,8,"#": . OPE
N DIRECT ACCESS CHANNEL......15, "U1:"8;
0;18;0: . READ TRACK 18, SECTOR 0 INTO C
HANNEL 8 BUFFER.\....15, "B-P:"8;162: . 
MOVE BUFFER-POINTER TO FIRST BYTE OF DIS
K ID......8, ID$;: . PUT NEW ID IN CHANN
EL 8 BUFFER, REPLACING OLD ID.L....15, "
U2:"8;0;18;0: . STORE BUFFER TO DISK... 
.  8: . CLOSE DIRECT ACCESS CHANNEL...*.
 15: . CLOSE COMMAND CHANNEL.P.4.. GOTO 
100: REM RESTART DISPLAY T&S PROGRAM IF 
APPENDED...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL