> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 E7 03 8F 20 45 4E 44 3A 20 52 45 4D |..,.... END: REM|
00000010: 20 50 52 4F 47 52 41 4D 20 31 3A 20 43 48 41 4E | PROGRAM 1: CHAN|
00000020: 47 45 20 44 49 53 4B 20 4E 41 4D 45 00 46 08 E8 |GE DISK NAME.F..|
00000030: 03 85 22 93 4E 45 57 20 44 49 53 4B 20 4E 41 4D |..".NEW DISK NAM|
00000040: 45 22 3B 44 4E 24 00 81 08 F2 03 8B 20 C3 28 44 |E";DN$...... .(D|
00000050: 4E 24 29 B3 31 36 A7 44 4E 24 B2 44 4E 24 AA C7 |N$).16.DN$.DN$..|
00000060: 28 31 36 30 29 3A 89 31 30 31 30 3A 8F 20 53 54 |(160):.1010:. ST|
00000070: 52 45 54 43 48 20 54 4F 20 31 36 20 43 48 41 52 |RETCH TO 16 CHAR|
00000080: 53 00 BF 08 FC 03 8B 20 C3 28 44 4E 24 29 B1 31 |S...... .(DN$).1|
00000090: 36 A7 44 4E 24 B2 C8 28 44 4E 24 2C 31 36 29 3A |6.DN$..(DN$,16):|
000000A0: 8F 20 53 48 4F 52 54 45 4E 20 4E 41 4D 45 20 54 |. SHORTEN NAME T|
000000B0: 4F 20 31 36 20 43 48 41 52 41 43 54 45 52 53 00 |O 16 CHARACTERS.|
000000C0: EC 08 06 04 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.....15,8,15,"I"|
000000D0: 3A 8F 20 4F 50 45 4E 20 44 49 53 4B 20 43 4F 4D |:. OPEN DISK COM|
000000E0: 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 00 18 09 10 |MAND CHANNEL....|
000000F0: 04 9F 38 2C 38 2C 38 2C 22 23 22 3A 8F 20 4F 50 |..8,8,8,"#":. OP|
00000100: 45 4E 20 44 49 52 45 43 54 20 41 43 43 45 53 53 |EN DIRECT ACCESS|
00000110: 20 43 48 41 4E 4E 45 4C 00 5D 09 1A 04 98 31 35 | CHANNEL.]....15|
00000120: 2C 22 55 31 3A 22 38 3B 30 3B 31 38 3B 30 3A 8F |,"U1:"8;0;18;0:.|
00000130: 20 52 45 41 44 20 54 52 41 43 4B 20 31 38 2C 53 | READ TRACK 18,S|
00000140: 45 43 54 4F 52 20 30 20 49 4E 54 4F 20 43 48 41 |ECTOR 0 INTO CHA|
00000150: 4E 4E 45 4C 20 38 20 42 55 46 46 45 52 00 A2 09 |NNEL 8 BUFFER...|
00000160: 24 04 98 31 35 2C 22 42 2D 50 3A 22 38 3B 31 34 |$..15,"B-P:"8;14|
00000170: 34 3A 8F 20 4D 4F 56 45 20 42 55 46 46 45 52 2D |4:. MOVE BUFFER-|
00000180: 50 4F 49 4E 54 45 52 20 54 4F 20 46 49 52 53 54 |POINTER TO FIRST|
00000190: 20 42 59 54 45 20 4F 46 20 44 49 53 4B 20 4E 41 | BYTE OF DISK NA|
000001A0: 4D 45 00 E4 09 2E 04 98 38 2C 44 4E 24 3B 3A 8F |ME......8,DN$;:.|
000001B0: 20 50 55 54 20 4E 45 57 20 4E 41 4D 45 20 49 4E | PUT NEW NAME IN|
000001C0: 20 43 48 41 4E 4E 45 4C 20 38 20 42 55 46 46 45 | CHANNEL 8 BUFFE|
000001D0: 52 2C 52 45 50 4C 41 43 49 4E 47 20 4F 4C 44 20 |R,REPLACING OLD |
000001E0: 4E 41 4D 45 00 1B 0A 38 04 98 31 35 2C 22 55 32 |NAME...8..15,"U2|
000001F0: 3A 22 38 3B 30 3B 31 38 3B 30 3A 8F 20 57 52 49 |:"8;0;18;0:. WRI|
00000200: 54 45 20 42 55 46 46 45 52 20 57 49 54 48 20 4E |TE BUFFER WITH N|
00000210: 41 4D 45 20 43 48 41 4E 47 45 44 00 40 0A 42 04 |AME CHANGED.@.B.|
00000220: A0 38 3A 8F 20 43 4C 4F 53 45 20 44 49 52 45 43 |.8:. CLOSE DIREC|
00000230: 54 20 41 43 43 45 53 53 20 43 48 41 4E 4E 45 4C |T ACCESS CHANNEL|
00000240: 00 61 0A 4C 04 A0 20 31 35 3A 8F 20 43 4C 4F 53 |.a.L.. 15:. CLOS|
00000250: 45 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 |E COMMAND CHANNE|
00000260: 4C 00 83 0A 56 04 8F 20 47 4F 54 4F 31 30 30 3A |L...V.. GOTO100:|
00000270: 52 45 4D 20 52 45 53 54 41 52 54 20 44 49 53 50 |REM RESTART DISP|
00000280: 4C 41 59 00 00 00 |LAY... |
..,.... END: REM PROGRAM 1: CHANGE DISK
NAME.F....".NEW DISK NAME";DN$...... C(D
N$).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 CHANNEL....
..8,8,8,"#":. OPEN DIRECT ACCESS CHANNEL
.]....15,"U1:"8;0;18;0:. READ TRACK 18,S
ECTOR 0 INTO CHANNEL 8 BUFFER...$..15,"B
-P:"8;144:. MOVE BUFFER-POINTER TO FIRST
BYTE OF DISK NAME......8,DN$;:. PUT NEW
NAME IN CHANNEL 8 BUFFER,REPLACING OLD
NAME...8..15,"U2:"8;0;18;0:. WRITE BUFFE
R WITH NAME CHANGED.@.B. 8:. CLOSE DIREC
T ACCESS CHANNEL.A.L. 15:. CLOSE COMMAN
D CHANNEL...V.. GOTO100:REM RESTART DISP
LAY...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL