bgui/RexxBGUI/strchr.e

   1
   2 OPT MODULE
   3
   4 EXPORT PROC strchr(str,c)
   5         MOVEA.L str,A0
   6         MOVE.L c,D0
   7 loop:
   8         MOVE.B (A0)+,D1
   9         BEQ.B fail
  10         CMP.B D0,D1
  11         BNE.B loop
  12 -> ok:
  13         MOVE.L A0,D0
  14         SUBQ.L #1,D0
  15         RETURN D0
  16 fail:
  17 ENDPROC 0