Return to strlen.m CVS log

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

Annotation of coherent/b/lib/libc/string/i8086/strlen.m, revision 1.1

1.1     ! root        1: //////////
        !             2: / i8086 C string library.
        !             3: / strlen()
        !             4: / ANSI 4.11.6.3.
        !             5: //////////
        !             6: 
        !             7: //////////
        !             8: / size_t
        !             9: / strlen(String)
        !            10: / char *String;
        !            11: /
        !            12: / Find length of String.
        !            13: //////////
        !            14: 
        !            15: #include <larges.h>
        !            16: 
        !            17: String =       LEFTARG
        !            18: 
        !            19:        Enter(strlen_)
        !            20:        Les     di, String(bp)  / String address to ES:DI
        !            21:        cld
        !            22:        mov     dx, di          / Save start
        !            23:        mov     cx, $-1         / Max count to CX
        !            24:        sub     ax, ax
        !            25:        repne
        !            26:        scasb                   / Scan to NUL
        !            27:        dec     di              / Back up to match
        !            28:        mov     ax, di
        !            29:        sub     ax, dx          / &NUL - &start = length
        !            30:        Leave

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