Помогите с ассемблером плиз...

[Milanka]

Приветик всем! помогите перевести если кому не трудно процедуру в паскаль а то с ассемблером совсем не дружу..

procedure Mix(Buffer,First,Second : PChar; Count : LongInt); assembler;
{       процедура смешивает два массива данных First и Second и помещает}
{       результат в Buffer. Элементы массивов имеют размер WORD         }
{       Count -- Число элеменов в ОДНОМ массиве, т.е. Buffer имеет длину}
{       2*Count элементов}

{       EAX - Buffer       }
{       EDX - First        }
{       ECX - Second       }
{       Count -- в стеке   }
asm
        PUSH    EBX
        PUSH    ESI
        PUSH    EDI
        MOV     EDI,EAX     // Buffer помещен в EDI -- индексный регистр приемника
        MOV     ESI,ECX     // Second помещен в ESI -- индексный регистр источника
        MOV     ECX,Count   // Count помещен в ECX
        XCHG    ESI,EDX     // смена источника -- теперь First
@@Loop:
        MOVSW              // пересылка слова из First/Second в Buffer и инкремент индексов
        XCHG    ESI,EDX    // смена источника
        LOOP    @@Loop     // декремент ECX и проверка условия выхода ECX = 0

        POP     EDI
        POP     ESI
        POP     EBX
end;

[ZuBy]

так тут и не нужно asm знать!

{ процедура смешивает два массива данных First и Second и помещает}
{ результат в Buffer. Элементы массивов имеют размер WORD }
{ Count -- Число элеменов в ОДНОМ массиве, т.е. Buffer имеет длину}

пожалуйста реализовывайте

[Milanka]

Мне непонятно как именно происходит смешивание...

[Serge_Bliznykov]

Сообщение от Milanka

Мне непонятно как именно происходит смешивание...

не проверял, но судя по ассемблерному коду берётся по очереди, один элемент из First, следующий из Second, потом следующий из First, следующий из Second и т.д.

Так понятно, или пояснить на пальцах?