home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRSTR.SRC < prev   
Encoding:
Text File  |  1996-08-03  |  505 b   |  37 lines
  1.     XDEF _strstr
  2.     section code
  3. _strstr:
  4.     move.l    (4,a0),a1
  5.     move.l    (a0),a0
  6.     clr.l    d1
  7.     move.l    a1,-(A7)
  8. lp1:
  9.     addq    #1,d1
  10.     tst.b   (a1)+
  11.     bne.b    lp1
  12.     subq    #1,d1
  13.     beq.b    badexit
  14.     move.l    (a7)+,a1
  15. lp:
  16.     move.b    (a0)+,d0
  17.     beq.b    badexit
  18.     cmp.b    (a1),d0
  19.     bne.b    lp
  20.     subq    #1,a0
  21.     movem    D1/A0/A1,-(A7)
  22. lp2:
  23.     move.b    (a0)+,d0
  24.     cmp.b     (a1)+,d0
  25.     bne.b    badcmp
  26.     subq    #1,d1
  27.     bne    lp2
  28.     movem    (a7)+,D1/A0/A1
  29.     move.l    A0,D0
  30.     rts
  31. badcmp:
  32.     movem    (a7)+,D1/A0/A1
  33.     addq    #1,a0
  34.     bra    lp
  35. badexit:
  36.     sub    d0,d0
  37.     rts