home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU4.DMS / in.adf / RatMail / Includes / SEARCH.Fun < prev    next >
Unknown  |  1993-10-07  |  1.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID Flexible Line Interpretation bitmap default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 20 53 65 61 72 63 | 68 20 74 68 72 6f 75 67 |.; Searc|h throug|
|00000010| 68 20 6d 65 6d 6f 72 79 | 20 72 61 6e 67 65 20 6c |h memory| range l|
|00000020| 6f 6f 6b 69 6e 67 20 66 | 6f 72 20 70 61 74 74 65 |ooking f|or patte|
|00000030| 72 6e 00 3b 20 6d 24 20 | 69 73 20 74 68 65 20 73 |rn.; m$ |is the s|
|00000040| 74 72 69 6e 67 20 74 6f | 20 6d 61 74 63 68 00 3b |tring to| match.;|
|00000050| 20 73 3d 61 64 64 72 65 | 73 73 20 6f 66 20 6d 65 | s=addre|ss of me|
|00000060| 6d 6f 72 79 20 74 6f 20 | 73 74 61 72 74 20 73 65 |mory to |start se|
|00000070| 61 72 63 68 00 3b 20 6c | 3d 6c 65 6e 67 74 68 20 |arch.; l|=length |
|00000080| 69 6e 20 62 79 74 65 73 | 20 74 6f 20 73 65 61 72 |in bytes| to sear|
|00000090| 63 68 00 3b 20 72 65 74 | 75 72 6e 73 20 61 64 64 |ch.; ret|urns add|
|000000a0| 72 65 73 73 20 6f 66 20 | 66 69 72 73 74 20 63 68 |ress of |first ch|
|000000b0| 61 72 61 63 74 65 72 20 | 6f 66 20 6d 61 74 63 68 |aracter |of match|
|000000c0| 69 6e 67 20 73 74 72 69 | 6e 67 20 28 7a 65 72 6f |ing stri|ng (zero|
|000000d0| 20 69 66 20 6e 6f 20 6d | 61 74 63 68 29 00 3b 20 | if no m|atch).; |
|000000e0| 4e 4f 54 45 21 20 46 69 | 72 73 74 20 63 68 61 72 |NOTE! Fi|rst char|
|000000f0| 20 6f 66 20 64 61 74 61 | 20 69 73 20 63 68 61 72 | of data| is char|
|00000100| 20 30 20 28 72 65 74 75 | 72 6e 73 20 6d 61 74 63 | 0 (retu|rns matc|
|00000110| 68 20 61 64 64 72 65 73 | 73 2d 31 29 00 00 80 09 |h addres|s-1)....|
|00000120| 2e 6c 20 53 45 41 52 43 | 48 20 7b 6d 2c 73 2c 6c |.l SEARC|H {m,s,l|
|00000130| 7d 00 00 20 20 80 b1 20 | 20 20 20 20 61 34 00 00 |}..  .. |    a4..|
|00000140| 00 20 20 80 7e 2e 6c 20 | 20 20 64 31 2c 61 30 20 |.  .~.l |  d1,a0 |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000160| 20 53 74 61 72 74 20 61 | 64 64 72 65 73 73 20 6f | Start a|ddress o|
|00000170| 66 20 64 61 74 61 20 62 | 6c 6f 63 6b 20 74 6f 20 |f data b|lock to |
|00000180| 73 65 61 72 63 68 00 20 | 20 80 7e 2e 6c 20 20 20 |search. | .~.l   |
|00000190| 64 30 2c 61 31 20 20 20 | 20 20 20 20 20 20 20 20 |d0,a1   |        |
|000001a0| 20 20 20 20 20 3b 20 50 | 6f 69 6e 74 65 72 20 74 |     ; P|ointer t|
|000001b0| 6f 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |o first |char of |
|000001c0| 73 74 72 69 6e 67 00 20 | 20 80 7e 2e 6c 20 20 20 |string. | .~.l   |
|000001d0| 64 32 2c 64 35 20 20 20 | 20 20 20 20 20 20 20 20 |d2,d5   |        |
|000001e0| 20 20 20 20 20 3b 20 4e | 75 6d 62 65 72 20 6f 66 |     ; N|umber of|
|000001f0| 20 62 79 74 65 73 20 74 | 6f 20 73 65 61 72 63 68 | bytes t|o search|
|00000200| 00 00 20 20 80 a7 2e 6c | 20 20 20 20 61 33 2c 61 |..  ...l|    a3,a|
|00000210| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3       |        |
|00000220| 20 3b 20 43 6c 65 61 72 | 20 41 33 20 73 6f 20 66 | ; Clear| A3 so f|
|00000230| 75 6e 63 74 69 6f 6e 20 | 72 65 74 75 72 6e 73 20 |unction |returns |
|00000240| 7a 65 72 6f 20 66 6f 72 | 20 6e 6f 20 6d 61 74 63 |zero for| no matc|
|00000250| 68 00 20 20 80 7e 2e 6c | 20 20 20 61 31 2c 64 34 |h.  .~.l|   a1,d4|
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000270| 3b 20 43 6f 70 79 20 61 | 31 20 74 6f 20 64 34 20 |; Copy a|1 to d4 |
|00000280| 66 6f 72 20 70 65 72 6d | 2e 20 73 74 6f 72 61 67 |for perm|. storag|
|00000290| 65 00 20 20 80 5b 2e 6c | 20 20 20 20 20 64 30 00 |e.  .[.l|     d0.|
|000002a0| 20 20 80 7e 2e 62 20 20 | 20 28 61 31 29 2c 64 30 |  .~.b  | (a1),d0|
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|000002c0| 4c 6f 61 64 20 66 69 72 | 73 74 20 6d 61 74 63 68 |Load fir|st match|
|000002d0| 20 63 68 61 72 20 69 6e | 74 6f 20 64 30 00 20 20 | char in|to d0.  |
|000002e0| 80 48 20 20 20 20 20 20 | 53 45 41 52 43 48 5f 46 |.H      |SEARCH_F|
|000002f0| 49 4e 4e 00 00 00 20 20 | 53 45 41 52 43 48 5f 53 |INN...  |SEARCH_S|
|00000300| 54 41 52 54 3a 00 20 20 | 80 5c 2e 62 20 20 20 20 |TART:.  |.\.b    |
|00000310| 28 61 30 29 2b 2c 64 30 | 00 20 20 80 48 20 20 20 |(a0)+,d0|.  .H   |
|00000320| 20 20 20 53 45 41 52 43 | 48 5f 4d 41 54 43 48 00 |   SEARC|H_MATCH.|
|00000330| 20 20 80 aa 2e 6c 20 20 | 20 23 31 2c 64 35 00 20 |  ...l  | #1,d5. |
|00000340| 20 80 50 20 20 20 20 20 | 20 53 45 41 52 43 48 5f | .P     | SEARCH_|
|00000350| 53 54 41 52 54 00 00 20 | 20 53 45 41 52 43 48 5f |START.. | SEARCH_|
|00000360| 46 49 4e 4e 3a 00 20 20 | 80 7e 2e 6c 20 20 20 61 |FINN:.  |.~.l   a|
|00000370| 33 2c 64 30 00 20 20 80 | 94 00 00 20 20 53 45 41 |3,d0.  .|...  SEA|
|00000380| 52 43 48 5f 4d 41 54 43 | 48 3a 00 20 20 80 aa 2e |RCH_MATC|H:.  ...|
|00000390| 6c 20 20 20 23 31 2c 61 | 30 00 20 20 80 7e 2e 6c |l   #1,a|0.  .~.l|
|000003a0| 20 20 20 61 30 2c 61 33 | 00 00 20 20 53 45 41 52 |   a0,a3|..  SEAR|
|000003b0| 43 48 5f 4c 4f 4f 50 3a | 00 20 20 80 7e 2e 62 20 |CH_LOOP:|.  .~.b |
|000003c0| 20 20 28 61 31 29 2b 2c | 64 30 00 20 20 80 48 20 |  (a1)+,|d0.  .H |
|000003d0| 20 20 20 20 20 53 45 41 | 52 43 48 5f 46 49 4e 4e |     SEA|RCH_FINN|
|000003e0| 20 20 20 20 20 20 20 20 | 20 3b 20 43 68 65 63 6b |        | ; Check|
|000003f0| 20 66 6f 72 20 65 6e 64 | 20 6f 66 20 73 74 72 69 | for end| of stri|
|00000400| 6e 67 00 20 20 80 5c 2e | 62 20 20 20 20 28 61 30 |ng.  .\.|b    (a0|
|00000410| 29 2b 2c 64 30 00 20 20 | 80 48 20 20 20 20 20 20 |)+,d0.  |.H      |
|00000420| 53 45 41 52 43 48 5f 4c | 4f 4f 50 20 20 20 20 20 |SEARCH_L|OOP     |
|00000430| 20 20 20 20 3b 20 43 68 | 65 63 6b 20 63 68 61 72 |    ; Ch|eck char|
|00000440| 20 69 73 20 74 68 65 20 | 73 61 6d 65 00 00 20 20 | is the |same..  |
|00000450| 80 a7 2e 6c 20 20 20 20 | 61 33 2c 61 33 20 20 20 |...l    |a3,a3   |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 45 6c |        |    ; El|
|00000470| 73 65 20 63 6c 65 61 72 | 20 61 33 00 20 20 80 7e |se clear| a3.  .~|
|00000480| 2e 6c 20 20 20 64 34 2c | 61 31 20 20 20 20 20 20 |.l   d4,|a1      |
|00000490| 20 20 20 20 20 20 20 20 | 20 3b 20 52 65 6c 6f 61 |        | ; Reloa|
|000004a0| 64 20 4d 61 74 63 68 20 | 73 74 72 69 6e 67 20 70 |d Match |string p|
|000004b0| 6f 69 6e 74 65 72 00 20 | 20 80 5b 2e 6c 20 20 20 |ointer. | .[.l   |
|000004c0| 20 20 64 30 00 20 20 80 | 7e 2e 62 20 20 20 28 61 |  d0.  .|~.b   (a|
|000004d0| 31 29 2c 64 30 00 20 20 | 80 58 20 20 20 20 20 20 |1),d0.  |.X      |
|000004e0| 53 45 41 52 43 48 5f 53 | 54 41 52 54 00 00 80 02 |SEARCH_S|TART....|
|000004f0| 20 80 09 00 00          |                         | ....   |        |
+--------+-------------------------+-------------------------+--------+--------+