home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRCSPN.SRC < prev    next >
Encoding:
Text File  |  1996-06-11  |  319 b   |  24 lines
  1.     XDEF _strcspn
  2.     section code
  3. _strcspn:
  4.     move.l    a2,-(sp)
  5.     move.l    (4,a0),a1    ; string2
  6.     move.l    (a0),a2        ; string1
  7.     clr.l    d0
  8. lp:
  9.     addq    #1,d0
  10.     tst.b    (a2)
  11.     beq.b    out
  12.     move.b    (a2)+,d1
  13.     move.l    a1,a0
  14. lp1:
  15.     tst.b    (a0)
  16.     beq.b    out
  17.     cmp.b    (a0)+,d1
  18.     bne.b    lp1
  19.     bra.b    lp
  20. out:
  21.     subq    #1,d0
  22.     move.l    (sp)+,a2
  23.     rts
  24.