00000000: 43 45 53 53 20 43 48 41 4E 4E 45 4C 20 54 4F 20 |CESS CHANNEL TO |
00000010: 44 49 53 4B 00 56 0B 4E 0C 98 31 35 2C 20 22 55 |DISK.V.N..15, "U|
00000020: 31 3A 22 38 3B 30 3B 31 38 3B 53 3A 20 8F 20 4C |1:"8;0;18;S: . L|
00000030: 4F 41 44 20 53 45 43 54 4F 52 20 43 4F 4E 54 41 |OAD SECTOR CONTA|
00000040: 49 4E 49 4E 47 20 46 49 4C 45 20 54 4F 20 42 45 |INING FILE TO BE|
00000050: 20 55 4E 53 43 52 41 54 43 48 45 44 00 92 0B 58 | UNSCRATCHED...X|
00000060: 0C 98 31 35 2C 20 22 42 2D 50 3A 22 38 3B 42 50 |..15, "B-P:"8;BP|
00000070: 3A 20 8F 20 53 45 54 20 42 55 46 46 45 52 20 50 |: . SET BUFFER P|
00000080: 4F 49 4E 54 45 52 20 54 4F 20 54 41 52 47 45 54 |OINTER TO TARGET|
00000090: 20 41 44 44 52 45 53 53 00 CF 0B 62 0C 98 38 2C | ADDRESS...b..8,|
000000A0: 20 C7 28 42 29 3B 3A 20 8F 20 43 48 41 4E 47 45 | .(B);: . CHANGE|
000000B0: 20 54 41 52 47 45 54 20 46 49 4C 45 20 43 4F 44 | TARGET FILE COD|
000000C0: 45 20 49 4E 20 43 48 41 4E 4E 45 4C 20 38 20 42 |E IN CHANNEL 8 B|
000000D0: 55 46 46 45 52 00 12 0C 6C 0C 98 31 35 2C 20 22 |UFFER...l..15, "|
000000E0: 55 32 3A 22 38 3B 30 3B 31 38 3B 53 3A 20 8F 20 |U2:"8;0;18;S: . |
000000F0: 52 45 54 55 52 4E 20 43 48 41 4E 47 45 44 20 43 |RETURN CHANGED C|
00000100: 4F 4E 54 45 4E 54 53 20 54 4F 20 54 41 52 47 45 |ONTENTS TO TARGE|
00000110: 54 20 53 45 43 54 4F 52 00 39 0C 76 0C A0 20 38 |T SECTOR.9.v.. 8|
00000120: 3A 20 8F 20 43 4C 4F 53 45 20 44 49 52 45 43 54 |: . CLOSE DIRECT|
00000130: 20 41 43 43 45 53 53 20 43 48 41 4E 4E 45 4C 00 | ACCESS CHANNEL.|
00000140: 5B 0C 80 0C A0 20 31 35 3A 20 8F 20 43 4C 4F 53 |[.... 15: . CLOS|
00000150: 45 20 43 4F 4D 4D 41 4E 44 20 43 48 41 4E 4E 45 |E COMMAND CHANNE|
00000160: 4C 00 A2 0C 8A 0C 8F 20 47 4F 54 4F 20 31 30 30 |L...... GOTO 100|
00000170: 3A 20 52 45 4D 20 52 45 53 54 41 52 54 20 44 49 |: REM RESTART DI|
00000180: 53 50 4C 41 59 20 54 26 53 20 50 52 4F 47 52 41 |SPLAY T&S PROGRA|
00000190: 4D 20 57 48 45 4E 20 46 49 52 53 54 20 52 45 4D |M WHEN FIRST REM|
000001A0: 20 52 45 4D 4F 56 45 44 00 00 00 | REMOVED... |
CESS CHANNEL TO DISK.V.N..15, "U1:"8;0;1
8;S: . LOAD SECTOR CONTAINING FILE TO BE
UNSCRATCHED...X..15, "B-P:"8;BP: . SET
BUFFER POINTER TO TARGET ADDRESS.O.B..8,
G(B);: . CHANGE TARGET FILE CODE IN CHA
NNEL 8 BUFFER...L..15, "U2:"8;0;18;S: .
RETURN CHANGED CONTENTS TO TARGET SECTOR
.9.V. 8: . CLOSE DIRECT ACCESS CHANNEL.
[... 15: . CLOSE COMMAND CHANNEL......
GOTO 100: REM RESTART DISPLAY T&S PROGRA
M WHEN FIRST REM REMOVED...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL