/ Loadstar Extras 3 / Ex3side1.d64 / t.instring

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 80 0d 20 20 20 c9 20 | ce 20 d3 20 d4 20 d2 20 |...   . |. . . . |
|00000010| c9 20 ce 20 c7 20 20 20 | 20 d3 20 cf 20 d5 20 d2 |. . .   | . . . .|
|00000020| 20 c3 20 c5 0d 0d 20 20 | 20 20 20 20 20 20 20 20 | . ...  |        |
|00000030| 20 20 20 42 59 20 ca 45 | 46 46 20 ca 4f 4e 45 53 |   BY .E|FF .ONES|
|00000040| 0d 0d 0d 20 20 20 20 d7 | 48 45 4e 20 41 53 53 45 |...    .|HEN ASSE|
|00000050| 4d 42 4c 45 44 2c 20 54 | 48 49 53 20 43 4f 44 45 |MBLED, T|HIS CODE|
|00000060| 20 57 49 4c 4c 0d 53 45 | 41 52 43 48 20 41 20 53 | WILL.SE|ARCH A S|
|00000070| 54 52 49 4e 47 20 59 4f | 55 20 53 55 50 50 4c 59 |TRING YO|U SUPPLY|
|00000080| 20 56 49 41 0d 50 41 52 | 41 4d 45 54 45 52 2c 20 | VIA.PAR|AMETER, |
|00000090| 46 4f 52 20 54 48 45 20 | 53 55 42 53 54 52 49 4e |FOR THE |SUBSTRIN|
|000000a0| 47 20 59 4f 55 0d 57 41 | 4e 54 2e 0d 0d 20 20 20 |G YOU.WA|NT...   |
|000000b0| 53 59 53 20 34 39 31 35 | 32 2c 53 54 52 49 4e 47 |SYS 4915|2,STRING|
|000000c0| 24 2c 53 55 42 53 54 52 | 49 4e 47 24 0d 0d 20 20 |$,SUBSTR|ING$..  |
|000000d0| 20 20 c9 46 20 54 48 45 | 20 53 55 42 53 54 52 49 |  .F THE| SUBSTRI|
|000000e0| 4e 47 20 49 53 20 46 4f | 55 4e 44 20 57 49 54 48 |NG IS FO|UND WITH|
|000000f0| 49 4e 0d 54 48 45 20 53 | 54 52 49 4e 47 2c 20 49 |IN.THE S|TRING, I|
|00000100| 54 53 20 50 4f 53 49 54 | 49 4f 4e 20 49 53 20 52 |TS POSIT|ION IS R|
|00000110| 45 50 4f 52 54 45 44 0d | 49 4e 20 4c 4f 43 41 54 |EPORTED.|IN LOCAT|
|00000120| 49 4f 4e 20 32 35 31 2e | 20 d3 d9 d3 20 41 44 44 |ION 251.| ... ADD|
|00000130| 52 45 53 53 20 2b 20 33 | 20 54 4f 0d 53 45 45 20 |RESS + 3| TO.SEE |
|00000140| 49 46 20 54 48 45 52 45 | 20 41 52 45 20 46 55 52 |IF THERE| ARE FUR|
|00000150| 54 48 45 52 20 4f 43 43 | 55 52 52 45 4e 43 45 53 |THER OCC|URRENCES|
|00000160| 0d 4f 46 20 54 48 45 20 | 53 55 42 53 54 52 49 4e |.OF THE |SUBSTRIN|
|00000170| 47 20 49 4e 20 54 48 45 | 20 53 41 4d 45 20 53 54 |G IN THE| SAME ST|
|00000180| 52 49 4e 47 2e 0d 0d 20 | 20 20 20 ce 4f 54 45 20 |RING... |   .OTE |
|00000190| 54 48 41 54 20 59 4f 55 | 20 43 41 4e 27 54 20 41 |THAT YOU| CAN'T A|
|000001a0| 43 54 55 41 4c 4c 59 20 | 55 53 45 0d 54 48 45 53 |CTUALLY |USE.THES|
|000001b0| 45 20 53 41 4d 50 4c 45 | 20 56 41 52 49 41 42 4c |E SAMPLE| VARIABL|
|000001c0| 45 53 20 49 4e 20 59 4f | 55 52 20 43 4f 44 45 0d |ES IN YO|UR CODE.|
|000001d0| 42 45 43 41 55 53 45 20 | 53 54 52 49 4e 47 24 20 |BECAUSE |STRING$ |
|000001e0| 43 4f 4e 54 41 49 4e 53 | 20 54 48 45 20 52 45 53 |CONTAINS| THE RES|
|000001f0| 45 52 56 45 44 0d 57 4f | 52 44 2c 20 d3 d4 20 46 |ERVED.WO|RD, .. F|
|00000200| 4f 52 20 54 48 45 20 d3 | d4 41 54 55 53 20 43 4f |OR THE .|.ATUS CO|
|00000210| 4d 4d 41 4e 44 2e 0d 0d | 20 20 20 20 d4 48 45 20 |MMAND...|    .HE |
|00000220| 53 45 41 52 43 48 20 49 | 53 4e 27 54 20 43 41 53 |SEARCH I|SN'T CAS|
|00000230| 45 2d 53 45 4e 53 49 54 | 49 56 45 0d 42 45 43 41 |E-SENSIT|IVE.BECA|
|00000240| 55 53 45 20 c9 20 41 4c | 57 41 59 53 20 c1 ce c4 |USE . AL|WAYS ...|
|00000250| 20 54 48 45 20 43 48 41 | 52 41 43 54 45 52 0d 42 | THE CHA|RACTER.B|
|00000260| 45 49 4e 47 20 53 45 41 | 52 43 48 45 44 20 57 49 |EING SEA|RCHED WI|
|00000270| 54 48 20 31 32 37 2c 20 | 4d 41 4b 49 4e 47 0d 53 |TH 127, |MAKING.S|
|00000280| 4f 55 52 43 45 20 41 4e | 44 20 54 41 52 47 45 54 |OURCE AN|D TARGET|
|00000290| 20 4c 4f 57 45 52 43 41 | 53 45 2e 0d 0d 20 20 20 | LOWERCA|SE...   |
|000002a0| 20 c9 4e 53 54 52 49 4e | 47 20 53 45 41 52 43 48 | .NSTRIN|G SEARCH|
|000002b0| 45 53 20 41 4c 57 41 59 | 53 20 47 41 56 45 20 4d |ES ALWAY|S GAVE M|
|000002c0| 45 0d 41 20 50 41 49 4e | 2e 20 d4 48 45 20 53 4c |E.A PAIN|. .HE SL|
|000002d0| 49 44 49 4e 47 20 57 49 | 4e 44 4f 57 20 43 4f 4e |IDING WI|NDOW CON|
|000002e0| 43 45 50 54 20 49 53 0d | 53 45 52 49 4f 55 53 20 |CEPT IS.|SERIOUS |
|000002f0| 42 55 53 49 4e 45 53 53 | 20 46 4f 52 20 4d 45 2e |BUSINESS| FOR ME.|
|00000300| 20 d9 4f 55 52 20 57 49 | 4e 44 4f 57 0d 49 53 20 | .OUR WI|NDOW.IS |
|00000310| 41 53 20 57 49 44 45 20 | 41 53 20 59 4f 55 52 20 |AS WIDE |AS YOUR |
|00000320| 53 55 42 53 53 54 52 49 | 4e 47 2c 20 41 4e 44 0d |SUBSSTRI|NG, AND.|
|00000330| 59 4f 55 20 48 41 56 45 | 20 54 4f 20 53 54 4f 50 |YOU HAVE| TO STOP|
|00000340| 20 53 45 41 52 43 48 49 | 4e 47 20 57 48 45 4e 20 | SEARCHI|NG WHEN |
|00000350| 54 48 45 0d 52 49 47 48 | 54 20 50 41 52 54 20 4f |THE.RIGH|T PART O|
|00000360| 46 20 59 4f 55 52 20 57 | 49 4e 44 4f 57 20 42 55 |F YOUR W|INDOW BU|
|00000370| 4d 50 53 20 54 48 45 0d | 45 4e 44 20 4f 46 20 54 |MPS THE.|END OF T|
|00000380| 48 45 20 53 54 52 49 4e | 47 2e 20 c9 46 20 59 4f |HE STRIN|G. .F YO|
|00000390| 55 20 44 4f 4e 27 54 2c | 20 54 48 45 0d 50 45 52 |U DON'T,| THE.PER|
|000003a0| 48 41 50 53 20 52 41 4e | 44 4f 4d 20 42 59 54 45 |HAPS RAN|DOM BYTE|
|000003b0| 20 46 4f 4c 4c 4f 57 49 | 4e 47 20 59 4f 55 52 0d | FOLLOWI|NG YOUR.|
|000003c0| 53 54 52 49 4e 47 20 4d | 49 47 48 54 20 47 49 56 |STRING M|IGHT GIV|
|000003d0| 45 20 59 4f 55 20 41 20 | 46 41 4c 53 45 20 4d 41 |E YOU A |FALSE MA|
|000003e0| 54 43 48 2e 0d c7 45 4e | 45 52 41 4c 4c 59 20 c9 |TCH...EN|ERALLY .|
|000003f0| 20 52 49 50 20 54 48 45 | 20 43 4f 44 45 20 46 52 | RIP THE| CODE FR|
|00000400| 4f 4d 20 54 48 49 53 0d | 4f 4c 44 20 53 4f 55 52 |OM THIS.|OLD SOUR|
|00000410| 43 45 20 57 48 45 4e 20 | c9 20 4e 45 45 44 20 49 |CE WHEN |. NEED I|
|00000420| 54 20 49 4e 20 4d 59 20 | 4e 45 57 45 52 0d 50 52 |T IN MY |NEWER.PR|
|00000430| 4f 47 52 41 4d 53 2e 20 | c9 46 20 c9 20 57 45 52 |OGRAMS. |.F . WER|
|00000440| 45 20 54 4f 20 52 45 2d | 57 52 49 54 45 20 49 54 |E TO RE-|WRITE IT|
|00000450| 0d 4e 4f 57 2c 20 c9 20 | 4d 49 47 48 54 20 44 4f |.NOW, . |MIGHT DO|
|00000460| 20 54 48 49 4e 47 53 20 | 44 49 46 46 45 52 45 4e | THINGS |DIFFEREN|
|00000470| 54 4c 59 20 2d 2d 0d 4c | 49 4b 45 20 50 45 52 48 |TLY --.L|IKE PERH|
|00000480| 41 50 53 20 43 4f 4d 4d | 45 4e 54 20 49 54 20 53 |APS COMM|ENT IT S|
|00000490| 4f 20 54 48 41 54 20 c9 | 0d 4b 4e 4f 57 20 57 48 |O THAT .|.KNOW WH|
|000004a0| 41 54 20 54 48 45 20 48 | 45 4c 4c 20 c9 27 4d 20 |AT THE H|ELL .'M |
|000004b0| 44 4f 49 4e 47 2e 0d 0d | 20 4c 4f 43 31 20 3d 32 |DOING...| LOC1 =2|
|000004c0| 35 33 0d 20 4c 4f 43 32 | 20 3d 24 32 32 0d 0d 20 |53. LOC2| =$22.. |
|000004d0| 2e 4f 52 47 20 24 43 44 | 30 30 0d 20 2e 4f 42 4a |.ORG $CD|00. .OBJ|
|000004e0| 20 22 49 4e 53 54 52 20 | 43 44 30 30 22 0d 20 4a | "INSTR |CD00". J|
|000004f0| 4d 50 20 53 54 41 52 54 | 0d 20 4a 4d 50 20 43 4f |MP START|. JMP CO|
|00000500| 4e 54 49 4e 55 45 0d 0d | 20 53 54 41 52 54 20 4a |NTINUE..| START J|
|00000510| 53 52 20 47 45 54 27 53 | 54 52 49 4e 47 0d 20 53 |SR GET'S|TRING. S|
|00000520| 54 58 20 4c 4f 43 31 0d | 20 53 54 59 20 4c 4f 43 |TX LOC1.| STY LOC|
|00000530| 31 2b 31 0d 20 53 54 41 | 20 4c 45 4e 31 0d 0d 20 |1+1. STA| LEN1.. |
|00000540| 4a 53 52 20 47 45 54 27 | 53 54 52 49 4e 47 0d 20 |JSR GET'|STRING. |
|00000550| 53 54 41 20 4c 45 4e 32 | 0d 20 53 54 58 20 4f 52 |STA LEN2|. STX OR|
|00000560| 49 47 0d 20 53 54 59 20 | 4f 52 49 47 2b 31 0d 0d |IG. STY |ORIG+1..|
|00000570| 20 4c 44 41 20 23 30 0d | 20 53 54 41 20 32 35 31 | LDA #0.| STA 251|
|00000580| 0d 0d 20 4c 44 41 20 4c | 45 4e 32 0d 20 53 45 43 |.. LDA L|EN2. SEC|
|00000590| 0d 20 53 42 43 20 4c 45 | 4e 31 0d 20 53 54 41 20 |. SBC LE|N1. STA |
|000005a0| 44 49 46 46 0d 0d 20 4c | 44 41 20 4c 45 4e 31 0d |DIFF.. L|DA LEN1.|
|000005b0| 20 43 4d 50 20 4c 45 4e | 32 0d 20 42 43 43 20 53 | CMP LEN|2. BCC S|
|000005c0| 45 41 52 43 48 0d 20 52 | 54 53 0d 0d 20 53 45 41 |EARCH. R|TS.. SEA|
|000005d0| 52 43 48 20 4c 44 59 20 | 23 30 0d 20 4c 4f 4f 50 |RCH LDY |#0. LOOP|
|000005e0| 20 4c 44 41 20 28 4c 4f | 43 31 29 2c 59 0d 20 41 | LDA (LO|C1),Y. A|
|000005f0| 4e 44 20 23 31 32 37 0d | 20 53 54 41 20 54 45 4d |ND #127.| STA TEM|
|00000600| 50 0d 20 4c 44 41 20 28 | 4c 4f 43 32 29 2c 59 0d |P. LDA (|LOC2),Y.|
|00000610| 20 41 4e 44 20 23 31 32 | 37 0d 20 43 4d 50 20 54 | AND #12|7. CMP T|
|00000620| 45 4d 50 0d 20 42 4e 45 | 20 46 41 49 4c 45 44 0d |EMP. BNE| FAILED.|
|00000630| 20 49 4e 59 0d 20 43 50 | 59 20 4c 45 4e 31 0d 20 | INY. CP|Y LEN1. |
|00000640| 42 43 43 20 4c 4f 4f 50 | 0d 20 43 4d 50 20 54 45 |BCC LOOP|. CMP TE|
|00000650| 4d 50 0d 20 42 45 51 20 | 2b 0d 0d 20 52 54 53 0d |MP. BEQ |+.. RTS.|
|00000660| 0d 20 2b 20 4c 44 41 20 | 4c 4f 43 32 0d 20 53 45 |. + LDA |LOC2. SE|
|00000670| 43 0d 20 53 42 43 20 4f | 52 49 47 0d 20 43 4c 43 |C. SBC O|RIG. CLC|
|00000680| 0d 20 41 44 43 20 23 31 | 0d 20 53 54 41 20 32 35 |. ADC #1|. STA 25|
|00000690| 31 0d 20 43 4d 50 20 4c | 45 4e 32 0d 20 42 43 43 |1. CMP L|EN2. BCC|
|000006a0| 20 2b 0d 20 42 45 51 20 | 2b 0d 20 4c 44 41 20 23 | +. BEQ |+. LDA #|
|000006b0| 30 0d 20 53 54 41 20 32 | 35 31 0d 20 2b 20 4c 44 |0. STA 2|51. + LD|
|000006c0| 41 20 4c 4f 43 32 0d 20 | 53 54 41 20 53 54 4f 52 |A LOC2. |STA STOR|
|000006d0| 41 47 45 0d 20 4c 44 41 | 20 4c 4f 43 32 2b 31 0d |AGE. LDA| LOC2+1.|
|000006e0| 20 53 54 41 20 53 54 4f | 52 41 47 45 2b 31 0d 20 | STA STO|RAGE+1. |
|000006f0| 53 54 58 20 54 45 4d 50 | 58 0d 20 52 54 53 0d 0d |STX TEMP|X. RTS..|
|00000700| 20 46 41 49 4c 45 44 20 | 44 45 58 0d 20 42 4e 45 | FAILED |DEX. BNE|
|00000710| 20 2b 0d 0d 20 52 54 53 | 0d 0d 20 2b 20 49 4e 43 | +.. RTS|.. + INC|
|00000720| 20 4c 4f 43 32 0d 20 42 | 4e 45 20 2b 0d 20 49 4e | LOC2. B|NE +. IN|
|00000730| 43 20 4c 4f 43 32 2b 31 | 0d 20 2b 20 4c 44 59 20 |C LOC2+1|. + LDY |
|00000740| 23 30 0d 20 4a 4d 50 20 | 4c 4f 4f 50 0d 0d 20 43 |#0. JMP |LOOP.. C|
|00000750| 4f 4e 54 49 4e 55 45 20 | 4c 44 41 20 23 30 0d 20 |ONTINUE |LDA #0. |
|00000760| 53 54 41 20 32 35 31 0d | 20 4c 44 41 20 53 54 4f |STA 251.| LDA STO|
|00000770| 52 41 47 45 0d 20 53 54 | 41 20 4c 4f 43 32 0d 20 |RAGE. ST|A LOC2. |
|00000780| 4c 44 41 20 53 54 4f 52 | 41 47 45 2b 31 0d 20 53 |LDA STOR|AGE+1. S|
|00000790| 54 41 20 4c 4f 43 32 2b | 31 0d 20 4c 44 58 20 54 |TA LOC2+|1. LDX T|
|000007a0| 45 4d 50 58 0d 20 42 4e | 45 20 46 41 49 4c 45 44 |EMPX. BN|E FAILED|
|000007b0| 0d 20 52 54 53 0d 0d 20 | 3b 2a 2a 2a 2a 2a 20 47 |. RTS.. |;***** G|
|000007c0| 45 54 20 53 54 52 49 4e | 47 20 46 52 4f 4d 20 c2 |ET STRIN|G FROM .|
|000007d0| c1 d3 c9 c3 20 2a 2a 2a | 2a 0d 0d 20 47 45 54 27 |.... ***|*.. GET'|
|000007e0| 53 54 52 49 4e 47 20 4a | 53 52 20 24 41 45 46 44 |STRING J|SR $AEFD|
|000007f0| 0d 20 4a 53 52 20 24 41 | 44 39 45 0d 20 4a 53 52 |. JSR $A|D9E. JSR|
|00000800| 20 24 42 36 41 33 0d 0d | 20 4c 44 58 20 24 32 32 | $B6A3..| LDX $22|
|00000810| 0d 20 4c 44 59 20 24 32 | 33 0d 20 52 54 53 0d 0d |. LDY $2|3. RTS..|
|00000820| 20 4c 45 4e 31 20 2e 42 | 59 54 20 30 0d 20 4c 45 | LEN1 .B|YT 0. LE|
|00000830| 4e 32 20 2e 42 59 54 20 | 30 0d 20 54 45 4d 50 20 |N2 .BYT |0. TEMP |
|00000840| 2e 42 59 54 20 30 0d 20 | 44 49 46 46 20 2e 42 59 |.BYT 0. |DIFF .BY|
|00000850| 54 20 30 0d 20 4f 52 49 | 47 20 2e 57 4f 52 44 20 |T 0. ORI|G .WORD |
|00000860| 30 0d 20 53 54 4f 52 41 | 47 45 20 2e 42 59 54 20 |0. STORA|GE .BYT |
|00000870| 30 2c 30 0d 20 54 45 4d | 50 58 20 2e 42 59 54 20 |0,0. TEM|PX .BYT |
|00000880| 30 0d                   |                         |0.      |        |
+--------+-------------------------+-------------------------+--------+--------+