00000000: 3B 20 72 6F 75 74 69 6E 65 73 20 74 6F 20 66 69 |; routines to fi|
00000010: 6E 64 20 61 20 74 65 78 74 20 73 74 72 69 6E 67 |nd a text string|
00000020: 2E 00 46 49 4E 44 33 62 00 20 6C 6F 61 64 77 20 |..FIND3b. loadw |
00000030: 52 30 3A 56 4E 44 42 31 00 20 4A 53 52 20 24 43 |R0:VNDB1. JSR $C|
00000040: 32 35 36 00 20 52 54 53 00 3B 2D 2D 2D 00 3B 2D |256. RTS.;---.;-|
00000050: 20 20 44 49 41 4C 4F 47 20 42 4F 58 20 46 4F 52 | DIALOG BOX FOR|
00000060: 20 50 52 4F 4D 50 54 00 56 4E 44 42 31 00 2E 42 | PROMPT.VNDB1..B|
00000070: 59 54 45 20 31 32 38 2B 32 00 2E 42 79 74 65 20 |YTE 128+2..Byte |
00000080: 32 2C 31 37 2C 37 37 2D 38 00 2E 42 59 54 45 20 |2,17,77-8..BYTE |
00000090: 31 31 2C 38 2C 32 34 00 2E 57 4F 52 44 20 58 68 |11,8,24..WORD Xh|
000000A0: 31 00 2E 42 59 54 45 20 31 31 2C 38 2C 33 36 00 |1..BYTE 11,8,36.|
000000B0: 2E 57 4F 52 44 20 58 68 32 00 2E 42 59 54 45 20 |.WORD Xh2..BYTE |
000000C0: 31 31 2C 38 2C 34 38 00 2E 57 4F 52 44 20 58 68 |11,8,48..WORD Xh|
000000D0: 33 00 3B 00 2E 42 79 74 65 20 31 34 00 2E 42 79 |3.;..Byte 14..By|
000000E0: 74 65 20 30 00 58 68 31 20 2E 42 59 54 45 20 27 |te 0.Xh1 .BYTE '|
000000F0: 59 6F 75 20 68 61 76 65 20 6C 6F 61 64 65 64 20 |You have loaded |
00000100: 52 65 63 6F 72 64 20 23 32 27 2C 30 00 58 68 32 |Record #2',0.Xh2|
00000110: 20 2E 42 59 54 45 20 27 54 68 69 73 20 69 73 20 | .BYTE 'This is |
00000120: 77 68 65 72 65 20 74 68 65 20 46 49 4E 44 20 72 |where the FIND r|
00000130: 6F 75 74 69 6E 65 73 27 2C 30 00 58 68 33 20 2E |outines',0.Xh3 .|
00000140: 42 59 54 45 20 27 41 72 65 20 6C 6F 63 61 74 65 |BYTE 'Are locate|
00000150: 64 20 61 74 2E 27 2C 30 00 3B 3D 3D 3D 3D 3D 3D |d at.',0.;======|
00000160: 3D 00 3B 00 52 50 31 61 3B 20 72 65 70 6C 61 63 |=.;.RP1a; replac|
00000170: 65 20 73 74 72 69 6E 67 20 72 6F 75 74 69 6E 65 |e string routine|
00000180: 00 20 6C 6F 61 64 77 20 52 30 3A 56 4E 44 42 32 |. loadw R0:VNDB2|
00000190: 00 20 4A 53 52 20 24 43 32 35 36 00 20 52 54 53 |. JSR $C256. RTS|
000001A0: 00 3B 2D 2D 2D 00 3B 2D 20 20 44 49 41 4C 4F 47 |.;---.;- DIALOG|
000001B0: 20 42 4F 58 20 46 4F 52 20 50 52 4F 4D 50 54 00 | BOX FOR PROMPT.|
000001C0: 56 4E 44 42 32 00 2E 42 59 54 45 20 31 32 38 2B |VNDB2..BYTE 128+|
000001D0: 32 00 2E 42 79 74 65 20 32 2C 31 37 2C 37 37 2D |2..Byte 2,17,77-|
000001E0: 38 00 2E 42 59 54 45 20 31 31 2C 38 2C 32 34 00 |8..BYTE 11,8,24.|
000001F0: 2E 57 4F 52 44 20 58 49 31 00 2E 42 59 54 45 20 |.WORD XI1..BYTE |
00000200: 31 31 2C 38 2C 33 36 00 2E 57 4F 52 44 20 58 49 |11,8,36..WORD XI|
00000210: 32 00 2E 42 59 54 45 20 31 31 2C 38 2C 34 38 00 |2..BYTE 11,8,48.|
00000220: 2E 57 4F 52 44 20 58 49 33 00 3B 00 2E 42 79 74 |.WORD XI3.;..Byt|
00000230: 65 20 31 34 00 2E 42 79 74 65 20 30 00 58 49 31 |e 14..Byte 0.XI1|
00000240: 20 2E 42 59 54 45 20 27 59 6F 75 20 68 61 76 65 | .BYTE 'You have|
00000250: 20 6C 6F 61 64 65 64 20 52 65 63 6F 72 64 20 23 | loaded Record #|
00000260: 32 27 2C 30 00 58 49 32 20 2E 42 59 54 45 20 27 |2',0.XI2 .BYTE '|
00000270: 54 68 69 73 20 69 73 20 77 68 65 72 65 20 74 68 |This is where th|
00000280: 65 20 72 65 70 6C 61 63 65 20 72 6F 75 74 69 6E |e replace routin|
00000290: 65 73 27 2C 30 00 58 49 33 20 2E 42 59 54 45 20 |es',0.XI3 .BYTE |
000002A0: 27 41 72 65 20 6C 6F 63 61 74 65 64 20 61 74 2E |'Are located at.|
000002B0: 27 2C 30 00 3B 3D 3D 3D 3D 3D 3D 3D 00 00 00 |',0.;=======... |
; ROUTINES TO FIND A TEXT STRING..FIND3B
. LOADW R0:VNDB1. JSR $C256. RTS.;---.;-
DIALOG BOX FOR PROMPT.VNDB1..BYTE 128+
2..BYTE 2,17,77-8..BYTE 11,8,24..WORD XH
1..BYTE 11,8,36..WORD XH2..BYTE 11,8,48.
.WORD XH3.;..BYTE 14..BYTE 0.XH1 .BYTE '
YOU HAVE LOADED RECORD #2',0.XH2 .BYTE '
THIS IS WHERE THE FIND ROUTINES',0.XH3 .
BYTE 'ARE LOCATED AT.',0.;=======.;.RP1A
; REPLACE STRING ROUTINE. LOADW R0:VNDB2
. JSR $C256. RTS.;---.;- DIALOG BOX FOR
PROMPT.VNDB2..BYTE 128+2..BYTE 2,17,77-
8..BYTE 11,8,24..WORD XI1..BYTE 11,8,36.
.WORD XI2..BYTE 11,8,48..WORD XI3.;..BYT
E 14..BYTE 0.XI1 .BYTE 'YOU HAVE LOADED
RECORD #2',0.XI2 .BYTE 'THIS IS WHERE TH
E REPLACE ROUTINES',0.XI3 .BYTE 'ARE LOC
ATED AT.',0.;=======...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL