NEWNAM
FILE INFORMATION
FILENAME(S): NEWNAM
FILE TYPE(S): PRG
FILE SIZE: 933b
FIRST SEEN: 2025-11-30 16:58:10
APPEARS ON: 1 disk(s)
FILE HASH
f88f8be12cd9141802e143b69b2a2b20df9552392a466886f543b24a1a1ee87b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 066B | NEWNAM | PRG | High Voltage Complete C64 Collection, Markus Merz | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 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: 89 35 30 30 00 30 08 6E 00 4D 54 24 B2 22 05 22 |.500.0.n.MT$."."| 00000030: 00 4F 08 F4 01 99 22 93 11 11 11 11 22 4D 54 24 |.O...."....."MT$| 00000040: 22 20 20 20 20 20 12 57 41 52 4E 49 4E 47 22 00 |" .WARNING".| 00000050: 7F 08 F5 01 99 22 11 20 54 48 49 53 20 50 52 4F |.....". THIS PRO| 00000060: 47 52 41 4D 20 57 49 4C 4C 22 3A 99 22 11 20 43 |GRAM WILL":.". C| 00000070: 48 41 4E 47 45 20 54 48 45 20 44 49 53 4B 22 00 |HANGE THE DISK".| 00000080: AD 08 F6 01 99 22 11 20 4E 41 4D 45 2E 20 50 4C |.....". NAME. PL| 00000090: 45 41 53 45 20 4D 41 4B 45 22 3A 99 22 11 20 53 |EASE MAKE":.". S| 000000A0: 55 52 45 20 54 48 41 54 20 54 48 45 22 00 DF 08 |URE THAT THE"...| 000000B0: F7 01 99 22 11 20 12 55 54 49 4C 49 54 59 20 44 |...". .UTILITY D| 000000C0: 49 53 4B 92 20 49 53 20 4E 4F 54 22 3A 99 22 11 |ISK. IS NOT":.".| 000000D0: 20 49 4E 20 54 48 45 20 44 52 49 56 45 2E 22 00 | IN THE DRIVE.".| 000000E0: EF 08 E6 03 81 49 B2 31 A4 36 30 30 30 3A 82 00 |.....I.1.6000:..| 000000F0: 1A 09 E7 03 8F 20 45 4E 44 3A 20 52 45 4D 20 50 |..... END: REM P| 00000100: 52 4F 47 52 41 4D 20 31 3A 20 43 48 41 4E 47 45 |ROGRAM 1: CHANGE| 00000110: 20 44 49 53 4B 20 4E 41 4D 45 00 35 09 E8 03 85 | DISK NAME.5....| 00000120: 20 22 93 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 | ".NEW DISK NAME| 00000130: 22 3B 44 4E 24 00 73 09 F2 03 8B 20 C3 28 44 4E |";DN$.s.... .(DN| 00000140: 24 29 B3 31 36 20 A7 20 44 4E 24 B2 44 4E 24 AA |$).16 . DN$.DN$.| 00000150: C7 28 31 36 30 29 3A 89 20 31 30 31 30 3A 8F 20 |.(160):. 1010:. | 00000160: 53 54 52 45 54 43 48 20 54 4F 20 31 36 20 43 48 |STRETCH TO 16 CH| 00000170: 41 52 53 00 B6 09 FC 03 8B 20 C3 28 44 4E 24 29 |ARS...... .(DN$)| 00000180: 20 B1 20 31 36 20 A7 20 44 4E 24 B2 C8 28 44 4E | . 16 . DN$..(DN| 00000190: 24 2C 31 36 29 3A 20 8F 20 53 48 4F 52 54 45 4E |$,16): . SHORTEN| 000001A0: 20 4E 41 4D 45 20 54 4F 20 31 36 20 43 48 41 52 | NAME TO 16 CHAR| 000001B0: 41 43 54 45 52 53 00 E5 09 06 04 9F 20 31 35 2C |ACTERS...... 15,| 000001C0: 38 2C 31 35 2C 22 49 22 3A 20 8F 20 4F 50 45 4E |8,15,"I": . OPEN| 000001D0: 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 43 48 | DISK COMMAND CH| 000001E0: 41 4E 4E 45 4C 00 13 0A 10 04 9F 20 38 2C 38 2C |ANNEL...... 8,8,| 000001F0: 38 2C 22 23 22 3A 20 8F 20 4F 50 45 4E 20 44 49 |8,"#": . OPEN DI| 00000200: 52 45 43 54 20 41 43 43 45 53 53 20 43 48 41 4E |RECT ACCESS CHAN| 00000210: 4E 45 4C 00 5B 0A 1A 04 98 31 35 2C 20 22 55 31 |NEL.[....15, "U1| 00000220: 3A 22 38 3B 30 3B 31 38 3B 30 3A 20 8F 20 52 45 |:"8;0;18;0: . RE| 00000230: 41 44 20 54 52 41 43 4B 20 31 38 2C 20 53 45 43 |AD TRACK 18, SEC| 00000240: 54 4F 52 20 30 20 49 4E 54 4F 20 43 48 41 4E 4E |TOR 0 INTO CHANN| 00000250: 45 4C 20 38 20 42 55 46 46 45 52 00 A2 0A 24 04 |EL 8 BUFFER...$.| 00000260: 98 31 35 2C 20 22 42 2D 50 3A 22 38 3B 31 34 34 |.15, "B-P:"8;144| 00000270: 3A 20 8F 20 4D 4F 56 45 20 42 55 46 46 45 52 2D |: . MOVE BUFFER-| 00000280: 50 4F 49 4E 54 45 52 20 54 4F 20 46 49 52 53 54 |POINTER TO FIRST| 00000290: 20 42 59 54 45 20 4F 46 20 44 49 53 4B 20 4E 41 | BYTE OF DISK NA| 000002A0: 4D 45 00 E7 0A 2E 04 98 38 2C 20 44 4E 24 3B 3A |ME......8, DN$;:| 000002B0: 20 8F 20 50 55 54 20 4E 45 57 20 4E 41 4D 45 20 | . PUT NEW NAME | 000002C0: 49 4E 20 43 48 41 4E 4E 45 4C 20 38 20 42 55 46 |IN CHANNEL 8 BUF| 000002D0: 46 45 52 2C 20 52 45 50 4C 41 43 49 4E 47 20 4F |FER, REPLACING O| 000002E0: 4C 44 20 4E 41 4D 45 00 1E 0B 38 04 98 31 35 2C |LD NAME...8..15,| 000002F0: 22 55 32 3A 22 38 3B 30 3B 31 38 3B 30 3A 8F 20 |"U2:"8;0;18;0:. | 00000300: 57 52 49 54 45 20 42 55 46 46 45 52 20 57 49 54 |WRITE BUFFER WIT| 00000310: 48 20 4E 41 4D 45 20 43 48 41 4E 47 45 44 00 45 |H NAME CHANGED.E| 00000320: 0B 42 04 A0 20 38 3A 20 8F 20 43 4C 4F 53 45 20 |.B.. 8: . CLOSE | 00000330: 44 49 52 45 43 54 20 41 43 43 45 53 53 20 43 48 |DIRECT ACCESS CH| 00000340: 41 4E 4E 45 4C 00 66 0B 4C 04 A0 31 35 3A 20 8F |ANNEL.f.L..15: .| 00000350: 20 43 4C 4F 53 45 20 43 4F 4D 4D 41 4E 44 20 43 | CLOSE COMMAND C| 00000360: 48 41 4E 4E 45 4C 00 A2 0B 56 04 8F 20 47 4F 54 |HANNEL...V.. GOT| 00000370: 4F 20 31 30 30 3A 20 52 45 4D 20 52 45 53 54 41 |O 100: REM RESTA| 00000380: 52 54 20 44 49 53 50 4C 41 59 20 54 26 53 20 50 |RT DISPLAY T&S P| 00000390: 52 4F 47 52 41 4D 20 49 46 20 41 50 50 45 4E 44 |ROGRAM IF APPEND| 000003A0: 45 44 00 00 00 |ED... |
..$.D..65517:.B(781).22.MT$.".":.500.0.N .MT$.".".O...."....."MT$" .WARNING". ....". THIS PROGRAM WILL":.". CHANGE TH E DISK"......". NAME. PLEASE MAKE":.". S URE THAT THE"......". .UTILITY DISK. IS NOT":.". IN THE DRIVE."......I.1.6000:.. ..... END: REM PROGRAM 1: CHANGE DISK NA ME.5.... ".NEW DISK NAME";DN$.S.... C(DN $).16 . DN$.DN$.G(160):. 1010:. STRETCH TO 16 CHARS...... C(DN$) . 16 . DN$.H(DN $,16): . SHORTEN NAME TO 16 CHARACTERS.. .... 15,8,15,"I": . OPEN DISK COMMAND CH ANNEL...... 8,8,8,"#": . OPEN DIRECT ACC ESS CHANNEL.[....15, "U1:"8;0;18;0: . RE AD TRACK 18, SECTOR 0 INTO CHANNEL 8 BUF FER...$..15, "B-P:"8;144: . MOVE BUFFER- POINTER TO FIRST BYTE OF DISK NAME...... 8, DN$;: . PUT NEW NAME IN CHANNEL 8 BUF FER, REPLACING OLD NAME...8..15,"U2:"8;0 ;18;0:. WRITE BUFFER WITH NAME CHANGED.E .B. 8: . CLOSE DIRECT ACCESS CHANNEL.F. L. 15: . CLOSE COMMAND CHANNEL...V.. GOT O 100: REM RESTART DISPLAY T&S PROGRAM I F APPENDED...
> CLICK IMAGE PREVIEW FOR FULL MODAL