home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRNCAT.SRC < prev    next >
Encoding:
Text File  |  1996-08-02  |  296 b   |  21 lines
  1.     XDEF _strncat
  2.     section code
  3. _strncat:
  4.     move.l    (8,a0),d1    ;dest len
  5.     move.l     (4,a0),a1    ;source
  6.     move.l    (a0),a0        ;dest
  7.     move.l    a0,d0        ;ret vall
  8. lp1:
  9.     tst.b    (a0)+
  10.     bne    lp1
  11.     subq    #1,a0
  12. lp2:
  13.     move.b    (a1),(a0)+
  14.     subq    #1,d1
  15.     beq.b    out
  16.     tst.b    (a1)+
  17.     bne    lp2
  18.     rts
  19. out:
  20.     clr.b    (a0)
  21.     rts