Return to strncmp.m CVS log

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

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

1.1       root        1: //////////
                      2: / i8086 C string library.
                      3: / strncmp()
                      4: / ANSI 4.11.4.4.
                      5: //////////
                      6: 
                      7: //////////
                      8: / strncmp(String1, String2, Count)
                      9: / char *String1, *String2;
                     10: / int Count;
                     11: /
                     12: / Compare up to Count bytes of String1 and String2.
                     13: //////////
                     14: 
                     15: #include <larges.h>
                     16: 
                     17: String1        =       LEFTARG
                     18: String2        =       String1+DPL
                     19: Count  =       String2+DPL
                     20: 
                     21:        Enter(strncmp_)
                     22:        mov     dx, $0          / Result to DX
                     23:        mov     cx, Count(bp)   / Count to CX
                     24:        or      cx, cx
                     25:        je      4f              / Zero length, return equal
                     26:        Lds     si, String2(bp) / String2 address to DS:SI
                     27:        Les     di, String1(bp) / String1 address to ES:DI
                     28:        cld
                     29: 
                     30: 1:     lodsb                   / String2 character to AL
                     31:        scasb                   / and compare to String1 character
                     32:        jne     2f              / Mismatch
                     33:        orb     al, al
                     34:        loopne  1b              / Continue if CX!=0 && AL!=0
                     35:        jmp     4f              / Match, return 0
                     36: 
                     37: 2:     ja      3f
                     38:        inc     dx              / String1 > String2, return 1
                     39:        jmp     4f
                     40: 
                     41: 3:     dec     dx              / String1 < String2, return -1
                     42: 
                     43: 4:     mov     ax, dx          / Result to AX
                     44:        Leave

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