Return to stringsa.asm CVS log

Up to [OS/2 SDKs] / os2sdk / demos / apps / lqh

Annotation of os2sdk/demos/apps/lqh/stringsa.asm, revision 1.1

1.1     ! root        1: ; This is the same as the C runtime version of strlen, except that it takes
        !             2: ; a far pointer to the string. It returns the length of the string.
        !             3: 
        !             4: .MODEL SMALL
        !             5: .CODE
        !             6:         PUBLIC _Dstrlen
        !             7: _Dstrlen    PROC FAR
        !             8:         push bp
        !             9:         mov bp,sp
        !            10:         push di
        !            11:         push es
        !            12:         mov es,[bp+8]           ; str selector
        !            13:         mov di,[bp+6]           ; str offset
        !            14:         xor     ax,ax           ; null byte
        !            15:        mov     cx,-1
        !            16:         repne   scasb           ; scan for null, CX = -(1 + strlen(str))
        !            17:        not     cx
        !            18:        dec     cx
        !            19:        xchg    ax,cx           ; AX = strlen(str)
        !            20:         pop     es
        !            21:         pop     di
        !            22:         pop     bp
        !            23:        ret
        !            24: _Dstrlen ENDP
        !            25:         END

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