home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRRCHR.SRC < prev    next >
Encoding:
Text File  |  1996-08-02  |  255 b   |  18 lines
  1.     XDEF _strrchr
  2.     section code
  3. _strrchr:
  4.     move.l    (4,a0),d1    ; char to search for
  5.     move.l    (a0),a0        ; string
  6.     move.l    a0,a1
  7.     clr.l     d0
  8. lp1:
  9.     tst.b    (a0)+
  10.     bne.b    lp1
  11. lp2:
  12.     cmpa.l    a0,a1
  13.     beq.b    out
  14.     cmp.b    -(a0),d1
  15.     bne.b    lp2
  16.     move.l    a0,d0
  17. out:
  18.     rts