home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRLEN.SRC < prev    next >
Encoding:
Text File  |  1996-06-11  |  140 b   |  11 lines
  1.     XDEF _strlen
  2.     section code
  3. _strlen:
  4.     move.l (a0),a0    ;string
  5.     clr.l    d0
  6. lp:
  7.     addq.l    #1,d0
  8.     tst.b    (a0)+
  9.     bne.b    lp
  10.     subq.l    #1,d0
  11.     rts