home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRNCPY.SRC < prev    next >
Encoding:
Text File  |  1996-08-02  |  273 b   |  19 lines
  1.     XDEF _strncpy
  2.     section code
  3. _strncpy:
  4.     move.l    (8,a0),d1    ; count
  5.     move.l    (4,a0),a1    ; src
  6.     move.l    (a0),a0        ; dest
  7.     move.l    a0,d0        ; dest
  8. lp:
  9.     move.b    (a1)+,(a0)+
  10.     beq.b    pad
  11.     subq    #1,d1
  12.     bne    lp
  13. quit:
  14.     rts
  15. pad:
  16.     subq    #1,d1
  17.     beq.b    quit
  18.     move.b    #0,(a0)+
  19.     bra    pad