home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / STRING / 68K / STRNCMP.SRC < prev    next >
Encoding:
Text File  |  1996-08-02  |  419 b   |  32 lines
  1.     XDEF _strncmp
  2.     section code
  3. _strncmp:
  4.     move.l     (8,a0),d0    ;size
  5.     beq.b    zerout
  6.     move.l  (4,a0),a1    ; buf2
  7.     move.l    (a0),a0        ; buf1
  8. lp:
  9.     move.b    (a1)+,d1
  10.     beq.b    posout
  11.     tst.b    (a0)
  12.     beq.b    negout
  13.     cmp.b    (a0)+,d1
  14.     beq.b    lp2
  15.     bcc.b    negout
  16.     bcs.b    posout
  17. lp2:
  18.     subq    #1,d0
  19.     bne    lp
  20. zerout:
  21.        clr.l    d0
  22.     rts
  23. posout:
  24.     tst.b    (a0)
  25.     beq    zerout
  26.     clr.l    d0
  27.     addq    #1,d0
  28.     rts
  29. negout:
  30.     clr.l    d0
  31.     subq    #1,d0
  32.     rts