From: terje.mathisen@nospicedham.tmsw.no   
      
   wolfgang kern wrote:   
   > Yes Ben,   
   >   
   > even not too fast.. this looks much better yet! :)   
   > __   
   > wolfgang   
   >> ; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-   
   >> ; this routine compares (case insensitive) two strings   
   >> ; ds:si->string0 (asciiz)   
   >> ; es:di->string1 (asciiz)   
   >> ; returns  zero flag set if equal   
   >> ;          carry flag set if string0 < string1   
   >> ;          carry flag clear if string0 > string1   
   >> ;  preserves: si, di   
   >> ;   destroys: ax   
   >> stricmp    proc near uses si di   
   >>   
   >> @@:        mov  al,es:[di]   
   >>           inc  di   
   >>           call upper_case   
   >>           mov  ah,al   
   >>   
   >>           lodsb   
   >>           call upper_case   
   >>   
   >>           ; if both strings are equal and we are at   
   >>           ;  the null terminator, we need to exit now   
   >>           or   ax,ax   
   >>           jz   short @f   
   >>   
   >>           ; 'sub' will set/clr the zero flag   
   >>           ;   and the carry flag for us   
   >>           sub  al,ah   
   >>           jz   short @b   
   >>   
   >> @@:        ret   
   >> stricmp    endp   
   >>   
   >> upper_case proc near   
   >>           cmp  al,'a'   
   >>           jb   short @f   
   >>           cmp  al,'z'   
   >>           ja   short @f   
   >>           sub  al,('a'-'A')   
   >> @@:        ret   
   >> upper_case endp   
   >>   
   >> .end   
      
   This looks extremely "by the book", i.e. straight forward coding.   
      
   You could combine a few of the current ideas:   
      
   next:   
      lodsb   
      test al,al   
      scasb   
       jz check_end   
      
    Is this a case mismatch?   
      xor al,32   
      cmp al,es:[di-1]   
       jnz done   
      
    Was it an a-z char?   
      or al,32   
      sub al,'a'   
       jb done   
      cmp al,'z'   
       ja done   
      jmp next   
      
   check_end:   
    All chars up to here have matched   
      test al,al   
       jnz next   
   done:   
      ret   
      
   Setting the proper return codes is left as an exercise. :-)   
      
   Terje   
      
   --   
   -    
   "almost all programming can be viewed as an exercise in caching"   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)