StrLen    PROC stdcall, USES edi ecx , pStrEOZ: DWORD

    mov edi, pStrEOZ

    mov ecx, -1

    xor al, al

    cld

    repnz scasb

    mov eax, ecx

    not eax

    ret

StrLen ENDP

StrLenW    PROC stdcall, USES edi ecx ,    pWStrEOZ: DWORD

    mov edi, pWStrEOZ

    mov ecx, -1

    xor ax, ax

    cld

    repnz scasw

    mov eax, ecx

    not eax

    ret

StrLenW ENDP

MemCpy    PROC stdcall, USES edi esi ecx ,    pDst: DWORD, pSrc: DWORD, nBytes: DWORD

    cld

    mov esi, pSrc

    mov edi, pDst

    mov ecx, nBytes

    rep movsb

    mov eax, pDst

    ret

MemCpy ENDP

MemCpyW    PROC stdcall, USES edi esi ecx ,    pDst: DWORD, pSrc: DWORD, nWords: DWORD

    cld

    mov esi, pSrc

    mov edi, pDst

    mov ecx, nWords

    rep movsw

    mov eax, pDst

    ret

MemCpyW ENDP

MemSet    PROC stdcall, USES edi ecx ,    pMem: DWORD, cFill: BYTE, nBytes: DWORD

    cld

    mov edi, pMem

    mov al, cFill

    mov ecx, nBytes

    rep stosb

    ret

MemSet ENDP

MemSetW    PROC stdcall, USES edi ecx ,    pMem: DWORD, wFill: WORD, nWords: DWORD

    cld

    mov edi, pMem

    mov ax, wFill

    mov ecx, nWords

    rep stosw

    ret

MemSetW ENDP

MemCmp    PROC stdcall, USES edi esi ecx ,    pMem1: DWORD, pMem2: DWORD, nBytes: DWORD

    cld

    mov esi, pMem1

    mov edi, pMem2

    mov ecx, nBytes

    repz cmpsb

    jz    l__iszero

    mov eax, esi

    sub eax, pMem1

    jmp finished

l__iszero:

    xor eax, eax

finished:

    ret

MemCmp ENDP

MemCmpW    PROC stdcall, USES edi esi ecx ,    pMem1: DWORD, pMem2: DWORD, nWords: DWORD

    cld

    mov esi, pMem1

    mov edi, pMem2

    mov ecx, nWords

    repz cmpsw

    jz    l__iszero

    mov eax, esi

    sub eax, pMem1

    jmp finished

l__iszero:

    xor eax, eax

finished:

    ret

MemCmpW ENDP