NEW DISK I.D.
FILE INFORMATION
FILENAME(S): NEW DISK I.D.
FILE TYPE(S): PRG
FILE SIZE: 860b
FIRST SEEN: 2025-11-30 18:24:51
APPEARS ON: 2 disk(s)
FILE HASH
544b8967ec003c50e36417da9d102e681631ec7224c2420a9a5e392fea13945c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK UTILLITES | NEW DISK I.D. | PRG | Sailor, Sensei | 27 | 5 | DOWNLOAD FILE |
| 1701 CRACKWARE | NEW DISK I.D. | PRG | DuncanTwain | 27 | 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 BD 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 20 49 |MAKE SURE THAT I|
000000B0: 53 20 59 4F 55 52 20 57 49 53 48 21 22 00 F3 08 |S YOUR WISH!"...|
000000C0: F6 01 99 54 4D 24 22 20 54 48 45 20 12 41 42 55 |...TM$" THE .ABU|
000000D0: 53 45 52 92 20 57 41 53 22 3A 99 22 11 20 20 20 |SER. WAS":.". |
000000E0: 20 20 20 20 20 48 45 52 45 21 22 20 20 20 20 20 | HERE!" |
000000F0: 20 20 22 00 03 09 E8 03 81 49 B2 31 A4 37 30 30 | "......I.1.700|
00000100: 30 3A 82 00 2C 09 CF 07 8F 20 45 4E 44 3A 20 52 |0:..,.... END: R|
00000110: 45 4D 20 50 52 4F 47 52 41 4D 20 32 3A 20 43 48 |EM PROGRAM 2: CH|
00000120: 41 4E 47 45 20 44 49 53 4B 20 49 44 00 45 09 D0 |ANGE DISK ID.E..|
00000130: 07 85 20 22 93 4E 45 57 20 44 49 53 4B 20 49 44 |.. ".NEW DISK ID|
00000140: 22 3B 49 44 24 00 7B 09 DA 07 8B 20 C3 28 49 44 |";ID$.{.... .(ID|
00000150: 24 29 20 B3 B1 20 32 20 A7 20 32 30 30 30 3A 20 |$) .. 2 . 2000: |
00000160: 8F 20 52 45 4A 45 43 54 20 49 4D 50 52 4F 50 45 |. REJECT IMPROPE|
00000170: 52 20 4C 45 4E 47 54 48 20 49 44 00 AA 09 E4 07 |R LENGTH ID.....|
00000180: 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 3A 20 8F |. 15,8,15,"I": .|
00000190: 20 4F 50 45 4E 20 44 49 53 4B 20 43 4F 4D 4D 41 | OPEN DISK COMMA|
000001A0: 4E 44 20 43 48 41 4E 4E 45 4C 00 D8 09 EE 07 9F |ND CHANNEL......|
000001B0: 20 38 2C 38 2C 38 2C 22 23 22 3A 20 8F 20 4F 50 | 8,8,8,"#": . OP|
000001C0: 45 4E 20 44 49 52 45 43 54 20 41 43 43 45 53 53 |EN DIRECT ACCESS|
000001D0: 20 43 48 41 4E 4E 45 4C 00 20 0A F8 07 98 31 35 | CHANNEL. ....15|
000001E0: 2C 20 22 55 31 3A 22 38 3B 30 3B 31 38 3B 30 3A |, "U1:"8;0;18;0:|
000001F0: 20 8F 20 52 45 41 44 20 54 52 41 43 4B 20 31 38 | . READ TRACK 18|
00000200: 2C 20 53 45 43 54 4F 52 20 30 20 49 4E 54 4F 20 |, SECTOR 0 INTO |
00000210: 43 48 41 4E 4E 45 4C 20 38 20 42 55 46 46 45 52 |CHANNEL 8 BUFFER|
00000220: 00 65 0A 02 08 98 31 35 2C 20 22 42 2D 50 3A 22 |.e....15, "B-P:"|
00000230: 38 3B 31 36 32 3A 20 8F 20 4D 4F 56 45 20 42 55 |8;162: . MOVE BU|
00000240: 46 46 45 52 2D 50 4F 49 4E 54 45 52 20 54 4F 20 |FFER-POINTER TO |
00000250: 46 49 52 53 54 20 42 59 54 45 20 4F 46 20 44 49 |FIRST BYTE OF DI|
00000260: 53 4B 20 49 44 00 A6 0A 0C 08 98 38 2C 20 49 44 |SK ID......8, ID|
00000270: 24 3B 3A 20 8F 20 50 55 54 20 4E 45 57 20 49 44 |$;: . PUT NEW ID|
00000280: 20 49 4E 20 43 48 41 4E 4E 45 4C 20 38 20 42 55 | IN CHANNEL 8 BU|
00000290: 46 46 45 52 2C 20 52 45 50 4C 41 43 49 4E 47 20 |FFER, REPLACING |
000002A0: 4F 4C 44 20 49 44 00 D5 0A 16 08 98 31 35 2C 20 |OLD ID......15, |
000002B0: 22 55 32 3A 22 38 3B 30 3B 31 38 3B 30 3A 20 8F |"U2:"8;0;18;0: .|
000002C0: 20 53 54 4F 52 45 20 42 55 46 46 45 52 20 54 4F | STORE BUFFER TO|
000002D0: 20 44 49 53 4B 00 FC 0A 20 08 A0 20 38 3A 20 8F | DISK... .. 8: .|
000002E0: 20 43 4C 4F 53 45 20 44 49 52 45 43 54 20 41 43 | CLOSE DIRECT AC|
000002F0: 43 45 53 53 20 43 48 41 4E 4E 45 4C 00 1D 0B 2A |CESS CHANNEL...*|
00000300: 08 A0 31 35 3A 20 8F 20 43 4C 4F 53 45 20 43 4F |..15: . CLOSE CO|
00000310: 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 00 59 0B |MMAND CHANNEL.Y.|
00000320: 34 08 8F 20 47 4F 54 4F 20 31 30 30 3A 20 52 45 |4.. GOTO 100: RE|
00000330: 4D 20 52 45 53 54 41 52 54 20 44 49 53 50 4C 41 |M RESTART DISPLA|
00000340: 59 20 54 26 53 20 50 52 4F 47 52 41 4D 20 49 46 |Y T&S PROGRAM IF|
00000350: 20 41 50 50 45 4E 44 45 44 00 00 00 | APPENDED... |
..+.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 IS YOUR WISH!"......TM$"
THE .ABUSER. WAS":.". HERE!"
"......I.1.7000:..,.O.. END: REM PROGR
AM 2: CHANGE DISK ID.E.P.. ".NEW DISK ID
";ID$.{.Z.. C(ID$) .. 2 . 2000: . REJECT
IMPROPER LENGTH ID...... 15,8,15,"I": .
OPEN DISK COMMAND CHANNEL.X.... 8,8,8,"
#": . OPEN DIRECT ACCESS CHANNEL. ....15
, "U1:"8;0;18;0: . READ TRACK 18, SECTOR
0 INTO CHANNEL 8 BUFFER.E....15, "B-P:"
8;162: . MOVE BUFFER-POINTER TO FIRST BY
TE OF DISK ID......8, ID$;: . PUT NEW ID
IN CHANNEL 8 BUFFER, REPLACING OLD ID.U
....15, "U2:"8;0;18;0: . STORE BUFFER TO
DISK... . 8: . CLOSE DIRECT ACCESS CHA
NNEL...*. 15: . CLOSE COMMAND CHANNEL.Y.
4.. GOTO 100: REM RESTART DISPLAY T&S PR
OGRAM IF APPENDED...
> CLICK IMAGE PREVIEW FOR FULL MODAL