procedure EXCHANGE(var v1,v2; size: LongWord); assembler; register;
asm
{     ->EAX     Pointer to v1    }
{       EDX     Pointer to v2    }
{       ECX     size             }

        PUSH    ESI
        PUSH    EDI
        PUSH    EBX

        MOV     ESI,EAX         { ESI - адрес v1 }
        MOV     EDI,EDX         { EDI - адрес v2 }
        MOV     EDX,ECX         { EDX - количество обмениваемых данных }

        SAR     ECX,2           { пересчет в двойный слова size DIV 4  }
        JZ      @@smal          { размер < 4 }

        CLD                     { автоинкремент }
        MOV     EBX,-4          { для адресации }
@@loop1:
        MOV     EAX,DWORD PTR [EDI]      { 4al:=v1[j] }
        MOVSD                            { v2[j]:=v1[j], j:=j+4, i:=i+4 }
        MOV     DWORD PTR [ESI][EBX],EAX { v1[i-4]:=4al }
        LOOP    @@loop1

@@smal:
        MOV     ECX,EDX         { опредлеление оставшихся }
        AND     ECX,03H         { байт }
        JZ      @@exit          { нечего обменивать }
        MOV     EBX,-1
@@loop2:
        MOV     AL,BYTE PTR [EDI]       { al:=v1[j] }
        MOVSB                           { v2[j]:=v1[j], j:=j+1, i:=i+1 }
        MOV     BYTE PTR [ESI][EBX],AL  { v1[i-1]:=al }
        LOOP    @@loop2
@@exit:
        POP     EBX
        POP     EDI
        POP     ESI
end; { EXCHANGE }