home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / COMPAR9.ASM < prev    next >
Assembly Source File  |  1994-10-27  |  2KB  |  78 lines
  1.     page    66,132
  2. ;******************************* COMPAR9.ASM ********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( COMPARE )
  14. ;COMPARE9 - compares two characters, either case matches
  15. ;
  16. ; inputs:   ah = character 1
  17. ;           al = character 2
  18. ; 
  19. ;  output:    flag registers set for "je" "jne"
  20. ;             al = case of character may be changed.
  21. ;
  22. ;* * * * * * * * * * * * * *
  23. 
  24.     PUBLIC    COMPARE9
  25. COMPARE9    PROC    FAR
  26.     push    dx
  27.     mov    dl,20h            ;case flag
  28.     call    compare
  29.     pop    dx
  30.     retf
  31. COMPARE9    ENDP
  32. ;------------------------------------------------------------------------
  33. ; compare characters ignoring case
  34. ;  inputs:    al = character 1
  35. ;             ah = character 2
  36. ;             dl = 20h
  37. ;
  38. ;  output:    flag registers set for "je" "jne"
  39. ;             al = case of character may be changed.
  40. ;             dx = changed.
  41. ;
  42.     public    compare
  43. compare:   cmp       al, ah        ;match?
  44.        je       c_exit        ;jmp if match
  45.        mov       dh, al        ;try matching other
  46.        or       dh, dl        ;  case if char
  47.            sub     dh, 'a'        ;     is an alpha
  48.            cmp     dh, 'z' - 'a' + 1
  49.        jnc       not_alpha
  50.        xor       al,dl
  51. not_alpha: cmp     al, ah
  52. c_exit:       ret
  53. ;------------------------------------------------------------------------
  54. ; compare_strings - compare strings ignoring case
  55. ;  inputs: ds:si = string 1 (zero terminated string recognized)
  56. ;          es:di = string 1
  57. ;             cx = max string length
  58. ;  output: si,di,cx updated
  59. ;          ax changed
  60. ;          flags set for "je" or "jne"
  61. ;
  62.     public    compare_strings
  63. compare_strings:
  64.     jcxz    cs_exit        ;exit if out of data
  65.     cld
  66.     lodsb
  67.     test    al,al
  68.     je    cs_exit
  69.     mov    ah,es:[di]
  70.     inc    di
  71.     call    compare
  72.     je    compare_strings    ;jmp if strings match
  73. cs_exit:ret    
  74. ;------------------------------------------------------------------------
  75.  
  76. LIBSEG    ENDS
  77.     end
  78.