home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / progjorn / pj_7_6.arc / SEARCHST.ASM < prev    next >
Assembly Source File  |  1989-10-17  |  3KB  |  68 lines
  1. ;------ SearchString - reveals Microsoft QuickBASIC's INSTR algorithm 
  2.  
  3. ;syntax:  Found = SearchString%(BYVAL StartChar%, Source$, Search$) 
  4. ; 
  5. ; where: 
  6. ; 
  7. ;   StartChar% specifies where in the source string searching is to begin, 
  8. ;   Source$ is the string being searched, and Search$ is the string to find. 
  9. ;   Found then receives the position in Source$ where Search$ is found 
  10. ;   (1-based), or zero if there was no match. 
  11.  
  12. SearchString Proc Uses SI DI, Start:Word, Source:Word, Search:Word 
  13.  
  14.     Cld                   ;insure that string instructions are forward 
  15.     Push DS               ;assign ES=DS 
  16.     Pop  ES 
  17.     Mov  AX,Start         ;put Start% into AX 
  18.   
  19.     Mov  SI,Search        ;get the address for the Search$ descriptor 
  20.     Mov  DX,[SI]          ;put its length into DX 
  21.     Mov  SI,[SI+02]       ;and its address into SI 
  22.     Dec  DX               ;we'll handle the first character using Scasb 
  23.     Js   Exit             ;they slipped us a null string, so return Start% 
  24.   
  25.     Mov  DI,Source        ;get the address for the Source$ descriptor 
  26.     Mov  CX,[DI]          ;put its length into CX 
  27.     Mov  DI,[DI+02]       ;and its address into DI 
  28.     Mov  BX,DI            ;save that in BX to see how far we searched later 
  29.  
  30.     Dec  AX               ;adjust Start% so 1st character = 0 offset 
  31.     Js   NotFound         ;Start% was zero or negative, get out and return 0 
  32.     Add  DI,AX            ;advance Start% bytes into the string 
  33.     Sub  CX,AX            ;and consider that many fewer characters to search 
  34.     Jbe  NotFound         ;they tried to start past the end 
  35.   
  36.     Lodsb                 ;get and skip over the first character in Search$ 
  37.   
  38. Scan: 
  39.     Repne Scasb           ;find the first character in Source$ that matches 
  40.     Jne  NotFound         ;if it's not there, the complete string isn't either 
  41.     Cmp  CX,DX            ;are we less than LEN(Search$) bytes from the end? 
  42.     Jb   NotFound         ;yes, so there's no point in looking further 
  43.     Or   DX,DX            ;was the string only one character long? 
  44.     Jz   Found            ;yes, so this must be it 
  45.   
  46.     Push SI               ;save the current scanning context 
  47.     Push DI 
  48.     Push CX 
  49.     Mov  CX,DX            ;search LEN(Search$) characters 
  50.     Repe Cmpsb            ;compare the two strings 
  51.     Pop  CX               ;restore the context in case we have to scan again 
  52.     Pop  DI 
  53.     Pop  SI 
  54.     Jne  Scan             ;we didn't find it, keep trying 
  55.   
  56. Found:                    ;we found a match 
  57.     Sub  DI,BX            ;calculate how far into the string we found a match 
  58.     Mov  AX,DI            ;leave the result in AX for the function output 
  59.   
  60. Exit: 
  61.     Ret                   ;return to caller 
  62.   
  63. NotFound: 
  64.     Xor  AX,AX            ;return zero to show we didn't find it 
  65.     Jmp  Short Exit       ;and exit 
  66.   
  67. SearchString Endp 
  68.