home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / MEMCHR.SRC next >
Encoding:
Text File  |  1996-08-02  |  278 b   |  21 lines
  1.     xdeF _memchr
  2.     section code
  3.  
  4. _memchr:
  5.     move.l    (4,a0),d1    ; char
  6.     move.l    (8,a0),d2    ; downward count
  7.     move.l  (a0),a0        ; buffer
  8. lp:
  9.     cmp.b    (a0),d1
  10.     beq.b    out
  11.     tst.b    (a0)
  12.     beq.b    badout
  13.     addq.l    #1,a0
  14.     subq    #1,d2
  15.     bne    lp
  16. badout:
  17.     clr.l    d0
  18. out:
  19.     move.l    a0,d0
  20.     rts
  21.