procedure MyMove(var source; var dest; len: Integer);
var
  dst, src: PLongWord;
  i, m: Integer;
begin
  src := PLongWord(@source);
  dst := PLongWord(@dest);
  i := 0;
  m := len shr SizeOf(WORD);

  while i < m do
  begin
    dst^ := src^;
    inc(dst);
    inc(src);
    inc(i);
  end;

  i := 0;
  m := len Mod SizeOf(LongInt);

  while i < m do
  begin
    PByte(dst)^ := PByte(src)^;
    inc(PByte(dst));
    inc(PByte(src));
    inc(i);
  end;
end;

MyMove:
005CDB14 53               push ebx
005CDB15 56               push esi
005CDB16 57               push edi
005CDB17 8BF0             mov esi,eax
005CDB19 33C0             xor eax,eax
005CDB1B 8BF9             mov edi,ecx
005CDB1D C1EF02           shr edi,$02
005CDB20 3BF8             cmp edi,eax
005CDB22 7E0F             jle $005cdb33
005CDB24 8B1E             mov ebx,[esi]
005CDB26 891A             mov [edx],ebx
005CDB28 83C204           add edx,$04
005CDB2B 83C604           add esi,$04
005CDB2E 40               inc eax
005CDB2F 3BF8             cmp edi,eax
005CDB31 7FF1             jnle $005cdb24
005CDB33 33C0             xor eax,eax
005CDB35 8BF9             mov edi,ecx
005CDB37 81E703000080     and edi,$80000003
005CDB3D 7905             jns $005cdb44
005CDB3F 4F               dec edi
005CDB40 83CFFC           or edi,-$04
005CDB43 47               inc edi
005CDB44 3BF8             cmp edi,eax
005CDB46 7E0C             jle $005cdb54
005CDB48 0FB60E           movzx ecx,[esi]
005CDB4B 880A             mov [edx],cl
005CDB4D 42               inc edx
005CDB4E 46               inc esi
005CDB4F 40               inc eax
005CDB50 3BF8             cmp edi,eax
005CDB52 7FF4             jnle $005cdb48
005CDB54 5F               pop edi
005CDB55 5E               pop esi
005CDB56 5B               pop ebx
005CDB57 C3               ret 

procedure StrMove(var StrCode: EngineType; var Value: EngineString;
  var CurrentLenToken: EngineInt; var i3: EngineInt; lenskip: EngineInt);
begin
  SetLength(Value, CurrentLenToken + i3);
  MyMove(StrCode^, Value[CurrentLenToken + 1], i3 * SizeOf(EngineChar));
  inc(CurrentLenToken, i3);
  inc(StrCode, i3 + lenskip);
  i3 := 0;
end;

StrMove:
005CDB58 55               push ebp
005CDB59 8BEC             mov ebp,esp
005CDB5B 51               push ecx
005CDB5C 53               push ebx
005CDB5D 56               push esi
005CDB5E 57               push edi
005CDB5F 8BF1             mov esi,ecx
005CDB61 8955FC           mov [ebp-$04],edx
005CDB64 8BF8             mov edi,eax
005CDB66 8B5D0C           mov ebx,[ebp+$0c]
005CDB69 8B16             mov edx,[esi]
005CDB6B 0313             add edx,[ebx]
005CDB6D 8B45FC           mov eax,[ebp-$04]
005CDB70 E84BDBE3FF       call @UStrSetLength
005CDB75 8B45FC           mov eax,[ebp-$04]
005CDB78 E847D4E3FF       call @UniqueStringU
005CDB7D 8B16             mov edx,[esi]
005CDB7F 8D1450           lea edx,[eax+edx*2]
005CDB82 8B0B             mov ecx,[ebx]
005CDB84 03C9             add ecx,ecx
005CDB86 8B07             mov eax,[edi]
005CDB88 E887FFFFFF       call MyMove
005CDB8D 8B03             mov eax,[ebx]
005CDB8F 0106             add [esi],eax
005CDB91 8B03             mov eax,[ebx]
005CDB93 034508           add eax,[ebp+$08]
005CDB96 03C0             add eax,eax
005CDB98 0107             add [edi],eax
005CDB9A 33C0             xor eax,eax
005CDB9C 8903             mov [ebx],eax
005CDB9E 5F               pop edi
005CDB9F 5E               pop esi
005CDBA0 5B               pop ebx
005CDBA1 59               pop ecx
005CDBA2 5D               pop ebp
005CDBA3 C20800           ret $0008
005CDBA6 8BC0             mov eax,eax

StrMove:
005CDB14 55               push ebp
005CDB15 8BEC             mov ebp,esp
005CDB17 83C4F4           add esp,-$0c
005CDB1A 53               push ebx
005CDB1B 56               push esi
005CDB1C 894DF8           mov [ebp-$08],ecx
005CDB1F 8BDA             mov ebx,edx
005CDB21 8945FC           mov [ebp-$04],eax
005CDB24 8B55F8           mov edx,[ebp-$08]
005CDB27 8B12             mov edx,[edx]
005CDB29 8B450C           mov eax,[ebp+$0c]
005CDB2C 0310             add edx,[eax]
005CDB2E 8BC3             mov eax,ebx
005CDB30 E88BDBE3FF       call @UStrSetLength
005CDB35 8B75FC           mov esi,[ebp-$04]
005CDB38 8B36             mov esi,[esi]
005CDB3A 8BC3             mov eax,ebx
005CDB3C E883D4E3FF       call @UniqueStringU
005CDB41 8B55F8           mov edx,[ebp-$08]
005CDB44 8B12             mov edx,[edx]
005CDB46 8D0450           lea eax,[eax+edx*2]
005CDB49 8945F4           mov [ebp-$0c],eax
005CDB4C 8BCE             mov ecx,esi
005CDB4E 8B45F4           mov eax,[ebp-$0c]
005CDB51 8BD0             mov edx,eax
005CDB53 33C0             xor eax,eax
005CDB55 8B5D0C           mov ebx,[ebp+$0c]
005CDB58 8B33             mov esi,[ebx]
005CDB5A 03F6             add esi,esi
005CDB5C C1EE02           shr esi,$02
005CDB5F 3BF0             cmp esi,eax
005CDB61 7E0F             jle $005cdb72
005CDB63 8B19             mov ebx,[ecx]
005CDB65 891A             mov [edx],ebx
005CDB67 83C204           add edx,$04
005CDB6A 83C104           add ecx,$04
005CDB6D 40               inc eax
005CDB6E 3BF0             cmp esi,eax
005CDB70 7FF1             jnle $005cdb63
005CDB72 33C0             xor eax,eax
005CDB74 8B5D0C           mov ebx,[ebp+$0c]
005CDB77 8B33             mov esi,[ebx]
005CDB79 03F6             add esi,esi
005CDB7B 81E603000080     and esi,$80000003
005CDB81 7905             jns $005cdb88
005CDB83 4E               dec esi
005CDB84 83CEFC           or esi,-$04
005CDB87 46               inc esi
005CDB88 3BF0             cmp esi,eax
005CDB8A 7E0C             jle $005cdb98
005CDB8C 0FB619           movzx ebx,[ecx]
005CDB8F 881A             mov [edx],bl
005CDB91 42               inc edx
005CDB92 41               inc ecx
005CDB93 40               inc eax
005CDB94 3BF0             cmp esi,eax
005CDB96 7FF4             jnle $005cdb8c
005CDB98 8B450C           mov eax,[ebp+$0c]
005CDB9B 8B00             mov eax,[eax]
005CDB9D 8B55F8           mov edx,[ebp-$08]
005CDBA0 0102             add [edx],eax
005CDBA2 8B450C           mov eax,[ebp+$0c]
005CDBA5 8B00             mov eax,[eax]
005CDBA7 034508           add eax,[ebp+$08]
005CDBAA 03C0             add eax,eax
005CDBAC 8B55FC           mov edx,[ebp-$04]
005CDBAF 0102             add [edx],eax
005CDBB1 8B450C           mov eax,[ebp+$0c]
005CDBB4 33D2             xor edx,edx
005CDBB6 8910             mov [eax],edx
005CDBB8 5E               pop esi
005CDBB9 5B               pop ebx
005CDBBA 8BE5             mov esp,ebp
005CDBBC 5D               pop ebp
005CDBBD C20800           ret $0008

 procedure MyMove(var source; var dest; len: Integer);  stdcall;
  label
  L1, L2, L3, L4, L5, L10;
  asm
  push	esi
  push	ebx
  mov	ecx, dest
  mov	ebx, source
  cmp	ecx, ebx
  je	L1
  mov	eax, len
  xor	edx, edx
  shr	eax, 2
  L3:
  cmp	edx, eax
  jge	L10
  mov	esi, DWORD PTR [ebx+edx*4]
  mov	DWORD PTR [ecx+edx*4], esi
  inc	edx
  jmp	L3
  L10:
  sal	eax, 2
  xor	edx, edx
  add	ecx, eax
  add	eax, ebx
  mov	ebx, len
  and	ebx, 3
  mov	esi, ebx
  L5:
  cmp	edx, esi
  je	L1
  mov	bl, BYTE PTR [eax+edx]
  mov	BYTE PTR [ecx+edx], bl
  inc	edx
  jmp	L5
  L1:
  pop	ebx
  pop	esi
  end;

// Type your code here, or load an example.
#include <wchar.h>


 void   strmove( wchar_t*Dest,  wchar_t*Source, int len)
{
	int i, m;
	unsigned long  *wdst =(unsigned long  *) Dest;  // текущая позиция в буфере назначения
	unsigned long  *wsrc =(unsigned long  *)  Source;  // текущая позиция в источнике
	unsigned char  *cdst, *csrc;
	 
	for(i = 0, m = len / sizeof(long); i < m; i++)  // копируем основную часть блоками по 4 или 8 байт
	   *(wdst++) = *(wsrc++);                     // (в зависимости от платформы)
	 
	cdst = (unsigned char*)wdst;
	csrc = (unsigned char*)wsrc;

	for(i = 0, m = len % sizeof(long); i < m; i++)             // остаток копируем побайтно
	   *(cdst++) = *(csrc++);
}

procedure MyMove(var source; var dest; len: Integer);
begin
  move(source, dest, len);
end;

procedure MyMove(var source; var dest; len: Integer); stdcall;
label
  LBB0_1, LBB0_2, LBB0_3, LBB0_4, LBB0_5, LBB0_6, LBB0_7, LBB0_8, LBB0_9;
asm
  push    ebp
  push    ebx
  push    edi
  push    esi
  mov     eax, len
  mov     edi, dest
  mov     ebp, source
  mov     esi, eax
  shr     esi, 2
  lea     ecx, [edi + 4*esi]
  mov     ebx, esi
  jmp     LBB0_1
  LBB0_2:
  mov     edx, dword ptr [ebp]
  add     ebp, 4
  dec     ebx
  mov     dword ptr [edi], edx
  add     edi, 4
  LBB0_1:
  test    ebx, ebx
  jne     LBB0_2
  mov     edx, dword ptr [esp + 24]
  and     eax, 3
  lea     edx, [edx + 4*esi]
  jmp     LBB0_4
  LBB0_5:
  mov     bl, byte ptr [edx]
  inc     edx
  dec     eax
  mov     byte ptr [ecx], bl
  inc     ecx
  LBB0_4:
  test    eax, eax
  jne     LBB0_5
  pop     esi
  pop     edi
  pop     ebx
  pop     ebp
end;

pas.699: asm
00414B3C 55               push ebp
00414B3D 8BEC             mov ebp,esp
pas.700: push    ebp
00414B3F 55               push ebp
pas.701: push    ebx
00414B40 53               push ebx
pas.702: push    edi
00414B41 57               push edi
pas.703: push    esi
00414B42 56               push esi
pas.704: mov     eax, len
00414B43 8B4510           mov eax,[ebp+$10]
pas.705: mov     edi, dest
00414B46 8B7D0C           mov edi,[ebp+$0c]
pas.706: mov     ebp, source
00414B49 8B6D08           mov ebp,[ebp+$08]
pas.707: mov     esi, eax
00414B4C 89C6             mov esi,eax
pas.708: shr     esi, 2
00414B4E C1EE02           shr esi,$02
pas.709: lea     ecx, [edi + 4*esi]
00414B51 8D0CB7           lea ecx,[edi+esi*4]
pas.710: mov     ebx, esi
00414B54 89F3             mov ebx,esi
pas.711: jmp     LBB0_1
00414B56 EB0C             jmp $00414b64
pas.713: mov     edx, dword ptr [ebp]
00414B58 8B5500           mov edx,[ebp+$00]
pas.714: add     ebp, 4
00414B5B 83C504           add ebp,$04
pas.715: dec     ebx
00414B5E 4B               dec ebx
pas.716: mov     dword ptr [edi], edx
00414B5F 8917             mov [edi],edx
pas.717: add     edi, 4
00414B61 83C704           add edi,$04
pas.719: test    ebx, ebx
00414B64 85DB             test ebx,ebx
pas.720: jne     LBB0_2
00414B66 75F0             jnz $00414b58
pas.721: mov     edx, dword ptr [esp + 24]
00414B68 8B542418         mov edx,[esp+$18]
pas.722: and     eax, 3
00414B6C 83E003           and eax,$03
pas.723: lea     edx, [edx + 4*esi]
00414B6F 8D14B2           lea edx,[edx+esi*4]
pas.724: jmp     LBB0_4
00414B72 EB07             jmp $00414b7b
pas.726: mov     bl, byte ptr [edx]
00414B74 8A1A             mov bl,[edx]
pas.727: inc     edx
00414B76 42               inc edx
pas.728: dec     eax
00414B77 48               dec eax
pas.729: mov     byte ptr [ecx], bl
00414B78 8819             mov [ecx],bl
pas.730: inc     ecx
00414B7A 41               inc ecx
pas.732: test    eax, eax
00414B7B 85C0             test eax,eax
pas.733: jne     LBB0_5
00414B7D 75F5             jnz $00414b74
pas.734: pop     esi
00414B7F 5E               pop esi
pas.735: pop     edi
00414B80 5F               pop edi
pas.736: pop     ebx
00414B81 5B               pop ebx
pas.737: pop     ebp
00414B82 5D               pop ebp
pas.738: end;

        if QueryPerformanceCounter(stopTime) then
        begin
          QueryPerformanceFrequency(iCounterPerSec);

          time := (0 - startTime + stopTime) / iCounterPerSec;

          SetLength(Output, 15);

          SetLength(Output, sprintf(PAnsiChar(Output), '%f сек.', time));

          Writeln(Output);
        end;

strmove(char*, char*, int):                        # @strmove(char*, char*, int)
        push    ebp
        push    ebx
        push    edi
        push    esi
        push    eax
        mov     eax, dword ptr [esp + 24]
        test    eax, eax
        jle     .LBB0_9
        mov     esi, eax
        mov     edi, -2
        not     esi
        cmp     esi, -3
        cmovg   edi, esi
        lea     ebx, [edi + eax + 2]
        cmp     ebx, 32
        jb      .LBB0_2
        mov     esi, ebx
        mov     ebp, ebx
        and     esi, -32
        and     ebp, -32
        je      .LBB0_2
        lea     edi, [edx + esi]
        sub     eax, esi
        add     esi, ecx
        add     ecx, 16
        add     edx, 16
        mov     dword ptr [esp], ebp    # 4-byte Spill
.LBB0_5:                                # =>This Inner Loop Header: Depth=1
        movups  xmm0, xmmword ptr [edx - 16]
        movups  xmm1, xmmword ptr [edx]
        add     edx, 32
        movups  xmmword ptr [ecx - 16], xmm0
        movups  xmmword ptr [ecx], xmm1
        add     ecx, 32
        add     ebp, -32
        jne     .LBB0_5
        cmp     ebx, dword ptr [esp]    # 4-byte Folded Reload
        jne     .LBB0_7
        jmp     .LBB0_9
.LBB0_2:
        mov     edi, edx
        mov     esi, ecx
.LBB0_7:
        inc     eax
.LBB0_8:                                # =>This Inner Loop Header: Depth=1
        movzx   ecx, byte ptr [edi]
        dec     eax
        inc     edi
        mov     byte ptr [esi], cl
        inc     esi
        cmp     eax, 1
        jg      .LBB0_8
.LBB0_9:
        add     esp, 4
        pop     esi
        pop     edi
        pop     ebx
        pop     ebp
        ret     4

procedure MyMove(var source; var dest; len: Integer); stdcall;
label
  LBB0_1, LBB0_2;
asm
  push    ebx
  push    esi
  mov     eax, len
  test    eax, eax
  jle     LBB0_2
  mov     ecx, source
  mov     edx, dest
  inc     eax
  xor     esi, esi
  inc     esi
  LBB0_1:
  mov     bl, byte ptr [ecx]
  dec     eax
  inc     ecx
  mov     byte ptr [edx], bl
  inc     edx
  cmp     eax, esi
  jg      LBB0_1
  LBB0_2:
  pop     esi
  pop     ebx
end;

procedure MyMove(var source; var dest; len: Integer); stdcall;
label
  L1, L2;
asm
  xor     eax, eax
  push    ebx
  mov     edx,dest
  mov     ebx, source
  L2:
  mov     ecx, len
  sub     ecx, eax
  test    ecx, ecx
  jle     L1
  mov     cl, BYTE PTR [ebx+eax]
  mov     BYTE PTR [edx+eax], cl
  inc     eax
  jmp     L2
  L1:
  pop     ebx
end;