DISK TRICKS 2

FILE INFORMATION

FILENAME(S): DISK TRICKS 2

FILE TYPE(S): PRG

FILE SIZE: 854b

FIRST SEEN: 2025-12-01 13:47:47

APPEARS ON: 1 disk(s)

FILE HASH

1310effefdfc6566023b451ae2be6b280c9060c2f63a6b42babd66afb3deb015

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DISK NR15	DISK TRICKS 2	PRG	hedning, Zeta	25	10	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 53 01 92                                 |...S..          |

..+.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...S..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL