sys/src/libc/68020/strchr.s

   1         TEXT    strchr(SB), $0
   2
   3         MOVL    s+0(FP), A0
   4         MOVB    c+7(FP), R2
   5         BEQ     null
   6
   7 l:
   8         MOVB    (A0)+, R1
   9         BEQ     out
  10         CMPB    R1, R2
  11         BNE     l
  12
  13         MOVL    A0, R0
  14         ADDL    $-1, R0
  15         RTS
  16
  17 out:
  18         CLRL    R0
  19         RTS
  20
  21 null:
  22         TSTB    (A0)+
  23         BNE     null
  24
  25         MOVL    A0, R0
  26         ADDL    $-1, R0
  27         RTS