szcatstr.asm

来自「工欲善其事」· 汇编 代码 · 共 40 行

; ########################################################################

  ;  --------------------------------------------------------
  ;  This module has been optimised by Alexander Yackubtchik
  ;  --------------------------------------------------------

    .486
    .model flat, stdcall
    option casemap :none

    StrLen PROTO :DWORD

    .code

; ########################################################################

szCatStr proc lpszSource:DWORD, lpszAdd:DWORD

    invoke StrLen,lpszSource
    mov edx, lpszSource
    mov ecx, lpszAdd
    add edx, eax

  @@:
    mov al, [ecx]
    mov [edx], al
    inc ecx
    inc edx
    test al, al       ; test for zero
    jne @B

    ret

szCatStr endp

; ########################################################################

end