Return to strpbrk.m CVS log

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

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

1.1     ! root        1: //////////
        !             2: / i8086 C string library.
        !             3: / strpbrk()
        !             4: / ANSI 4.11.5.4.
        !             5: //////////
        !             6: 
        !             7: //////////
        !             8: / char *
        !             9: / strpbrk(String1, String2)
        !            10: / char *String1, *String2;
        !            11: /
        !            12: / Return a pointer to the first char in String1
        !            13: / which matches any character in String2.
        !            14: //////////
        !            15: 
        !            16: #include <larges.h>
        !            17: 
        !            18: String1        =       LEFTARG
        !            19: String2        =       String1+DPL
        !            20: 
        !            21:        Enter(strpbrk_)
        !            22:        Les     di, String1(bp) / String1 address to ES:DI
        !            23:        sub     ax, ax          / Clear AL for NULL return value
        !            24: #if    LARGEDATA
        !            25:        mov     dx, ax          / and clear DX likewise
        !            26: #endif
        !            27:        cld
        !            28: 
        !            29: 1:     movb    ah, Pes (di)    / Get char from String1 to AH
        !            30:        inc     di              / and point to next
        !            31:        orb     ah, ah
        !            32:        je      3f              / No match found, return NULL
        !            33:        Lds     si, String2(bp) / String2 address to DS:SI
        !            34: 
        !            35: 2:     lodsb                   / String2 character to AL
        !            36:        orb     al, al
        !            37:        je      1b              / No match in String2, try next String1 char
        !            38:        cmpb    ah, al
        !            39:        jne     2b              / Mismatch, try next String2 char
        !            40:        dec     di              / Match, return pointer
        !            41:        mov     ax, di          / in AX
        !            42: #ifdef LARGEDATA
        !            43:        mov     dx, es          / or DX:AX
        !            44: #endif
        !            45: 
        !            46: 3:     Leave

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