Return to strncat.m CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / string / i8086

Annotation of coherent/b/lib/libc/string/i8086/strncat.m, revision 1.1.1.1

1.1       root        1: //////////
                      2: / i8086 C string library.
                      3: / strncat()
                      4: / ANSI 4.11.3.2.
                      5: //////////
                      6: 
                      7: //////////
                      8: / char *
                      9: / strncat(To, From, Count)
                     10: / char *To, *From;
                     11: / int Count;
                     12: /
                     13: / Append not more than Count characters (NOT including the NUL) from From to To.
                     14: / Always append a NUL.
                     15: //////////
                     16: 
                     17: #include <larges.h>
                     18: 
                     19: To     =       LEFTARG
                     20: From   =       To+DPL
                     21: Count  =       From+DPL
                     22: 
                     23:        Enter(strncat_)
                     24:        Les     di, To(bp)      / To address to ES:DI
                     25:        mov     cx, $-1         / Max count to CX
                     26:        sub     ax, ax
                     27:        cld
                     28:        repne
                     29:        scasb                   / Find end of To
                     30:        dec     di              / and back up ES:DI to point at NUL
                     31: 
                     32:        mov     cx, Count(bp)   / Limit of move (not limit of result) to CX
                     33:        or      cx, cx
                     34:        je      2f              / Move nothing
                     35:        Lds     si, From(bp)    / From address to DS:SI
                     36: 
                     37: 1:     lodsb                   / Fetch from From
                     38:        stosb                   / and store to To
                     39:        orb     al, al
                     40:        loopne  1b              / Count nonzero and NUL not seen yet, continue
                     41:        je      2f              / NUL has been copied, done
                     42:        subb    al, al          / Count ran out before NUL found,
                     43:        stosb                   / NUL-terminate the string
                     44: 
                     45: 2:     mov     ax, To(bp)      / Return the destination
                     46: #if    LARGEDATA
                     47:        mov     dx, es
                     48: #endif
                     49:        Leave

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.