00000000: 20 49 4E 50 55 54 20 46 49 4C 45 20 54 41 52 47 | INPUT FILE TARG|
00000010: 45 54 20 42 59 54 45 20 46 4F 52 20 53 43 52 41 |ET BYTE FOR SCRA|
00000020: 54 43 48 00 67 0B 0E 10 42 53 B2 28 42 50 B2 32 |TCH.g...BS.(BP.2|
00000030: 29 AA 28 42 50 B2 33 34 29 AA 28 42 50 B2 36 36 |).(BP.34).(BP.66|
00000040: 29 AA 28 42 50 B2 39 38 29 AA 28 42 50 B2 31 33 |).(BP.98).(BP.13|
00000050: 30 29 AA 28 42 50 B2 31 36 32 29 AA 28 42 50 B2 |0).(BP.162).(BP.|
00000060: 31 39 34 29 AA 28 42 50 B2 32 32 36 29 00 8F 0B |194).(BP.226)...|
00000070: 18 10 8B 42 53 B3 B1 AB 31 A7 34 31 30 30 3A 8F |...BS...1.4100:.|
00000080: 20 52 45 4A 45 43 54 20 49 4E 56 41 4C 49 44 20 | REJECT INVALID |
00000090: 49 4E 50 55 54 00 C1 0B 22 10 9F 20 31 35 2C 38 |INPUT...".. 15,8|
000000A0: 2C 31 35 2C 22 49 22 3A 20 8F 20 4F 50 45 4E 20 |,15,"I": . OPEN |
000000B0: 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 4C 20 |COMMAND CHANNEL |
000000C0: 54 4F 20 44 49 53 4B 00 F6 0B 2C 10 9F 38 2C 38 |TO DISK...,..8,8|
000000D0: 2C 38 2C 22 23 22 3A 20 8F 20 4F 50 45 4E 20 44 |,8,"#": . OPEN D|
000000E0: 49 52 45 43 54 20 41 43 43 45 53 53 20 43 48 41 |IRECT ACCESS CHA|
000000F0: 4E 4E 45 4C 20 54 4F 20 44 49 53 4B 00 3C 0C 36 |NNEL TO DISK.<.6|
00000100: 10 98 31 35 2C 20 22 55 31 3A 22 38 3B 30 3B 31 |..15, "U1:"8;0;1|
00000110: 38 3B 53 3A 20 8F 20 4C 4F 41 44 20 53 45 43 54 |8;S: . LOAD SECT|
00000120: 4F 52 20 43 4F 4E 54 41 49 4E 49 4E 47 20 46 49 |OR CONTAINING FI|
00000130: 4C 45 20 54 4F 20 42 45 20 53 43 52 41 54 43 48 |LE TO BE SCRATCH|
00000140: 45 44 00 78 0C 40 10 98 31 35 2C 20 22 42 2D 50 |ED.x.@..15, "B-P|
00000150: 3A 22 38 3B 42 50 3A 20 8F 20 53 45 54 20 42 55 |:"8;BP: . SET BU|
00000160: 46 46 45 52 20 50 4F 49 4E 54 45 52 20 54 4F 20 |FFER POINTER TO |
00000170: 54 41 52 47 45 54 20 41 44 44 52 45 53 53 00 B5 |TARGET ADDRESS..|
00000180: 0C 4A 10 98 38 2C 20 C7 28 42 29 3B 3A 20 8F 20 |.J..8, .(B);: . |
00000190: 43 48 41 4E 47 45 20 54 41 52 47 45 54 20 46 49 |CHANGE TARGET FI|
000001A0: 4C 45 20 43 4F 44 45 20 49 4E 20 43 48 41 4E 4E |LE CODE IN CHANN|
000001B0: 45 4C 20 38 20 42 55 46 46 45 52 00 F6 0C 54 10 |EL 8 BUFFER...T.|
000001C0: 98 31 35 2C 22 55 32 3A 22 38 3B 30 3B 31 38 3B |.15,"U2:"8;0;18;|
000001D0: 53 3A 8F 20 52 45 54 55 52 4E 20 43 48 41 4E 47 |S:. RETURN CHANG|
000001E0: 45 44 20 43 4F 4E 54 45 4E 54 53 20 54 4F 20 54 |ED CONTENTS TO T|
000001F0: 41 52 47 45 54 20 53 45 43 54 4F 52 00 1D 0D 5E |ARGET SECTOR...^|
00000200: 10 A0 20 38 3A 20 8F 20 43 4C 4F 53 45 20 44 49 |.. 8: . CLOSE DI|
00000210: 52 45 43 54 20 41 43 43 45 53 53 20 43 48 41 4E |RECT ACCESS CHAN|
00000220: 4E 45 4C 00 3F 0D 68 10 A0 20 31 35 3A 20 8F 20 |NEL.?.h.. 15: . |
00000230: 43 4C 4F 53 45 20 43 4F 4D 4D 41 4E 44 20 43 48 |CLOSE COMMAND CH|
00000240: 41 4E 4E 45 4C 00 86 0D 72 10 8F 20 47 4F 54 4F |ANNEL...r.. GOTO|
00000250: 20 31 30 30 3A 20 52 45 4D 20 52 45 53 54 41 52 | 100: REM RESTAR|
00000260: 54 20 44 49 53 50 4C 41 59 20 54 26 53 20 50 52 |T DISPLAY T&S PR|
00000270: 4F 47 52 41 4D 20 57 48 45 4E 20 46 49 52 53 54 |OGRAM WHEN FIRST|
00000280: 20 52 45 4D 20 52 45 4D 4F 56 45 44 00 00 00 | REM REMOVED... |
INPUT FILE TARGET BYTE FOR SCRATCH.G...
BS.(BP.2).(BP.34).(BP.66).(BP.98).(BP.13
0).(BP.162).(BP.194).(BP.226)......BS...
1.4100:. REJECT INVALID INPUT.A.".. 15,8
,15,"I": . OPEN COMMAND CHANNEL TO DISK.
..,..8,8,8,"#": . OPEN DIRECT ACCESS CHA
NNEL TO DISK.<.6..15, "U1:"8;0;18;S: . L
OAD SECTOR CONTAINING FILE TO BE SCRATCH
ED.X.@..15, "B-P:"8;BP: . SET BUFFER POI
NTER TO TARGET ADDRESS...J..8, G(B);: .
CHANGE TARGET FILE CODE IN CHANNEL 8 BUF
FER...T..15,"U2:"8;0;18;S:. RETURN CHANG
ED CONTENTS TO TARGET SECTOR...^. 8: .
CLOSE DIRECT ACCESS CHANNEL.?.H. 15: .
CLOSE COMMAND CHANNEL...R.. GOTO 100: RE
M RESTART DISPLAY T&S PROGRAM WHEN FIRST
REM REMOVED...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL