home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRCHR.SRC < prev    next >
Encoding:
Text File  |  1996-06-11  |  209 b   |  16 lines
  1.     XDEF    _strchr
  2.     section code
  3. _strchr:
  4.     move.l    (4,a0),d0    ; char
  5.     move.l    (a0),a0        ; buf
  6. lp:
  7.     tst.b    (a0)
  8.     beq.b    zerout
  9.     cmp.b    (a0)+,d0
  10.     bne    lp
  11.     move.l    a0,d0
  12.     subq.l    #1,d0
  13.     rts
  14. zerout:
  15.     clr.l    d0
  16.     rts