bgui/RexxBGUI/stricmp.e

   1
   2 OPT MODULE
   3
   4 EXPORT PROC stricmp( str1 : PTR TO CHAR , str2 : PTR TO CHAR )
   5
   6         MOVE.L  str1 , A1
   7         MOVE.L  str2 , A2
   8 loop_while:
   9         MOVE.B  (A1)+ , D1
  10         MOVE.B  (A2)+ , D2
  11         TST.B   D1
  12         BNE.B   test2
  13         TST.B   D2
  14         BEQ.B   end_eq
  15         RETURN -1
  16 test2:
  17         TST.B   D2
  18         BEQ.B   end_greater
  19 insidewhile:
  20                 CMP.B   D1 , D2
  21                 BEQ.B   loop_while
  22                 CMP.B   #"a" , D1
  23                 BCS.B   char1_ok
  24                 CMP.B   #"z" , D1
  25                 BHI.B   char1_ok
  26                 BCLR    #5 , D1
  27 char1_ok:
  28                 CMP.B   #"a" , D2
  29                 BCS.B   char2_ok
  30                 CMP.B   #"z" , D2
  31                 BHI.B   char2_ok
  32                 BCLR    #5 , D2
  33 char2_ok:
  34                 CMP.B   D1 , D2
  35                 BEQ.B   loop_while
  36                 BHI.B   end_greater
  37 end_less:
  38         RETURN -1
  39 end_greater:
  40         RETURN 1
  41 end_eq:
  42         RETURN 0
  43
  44 ENDPROC