сумма двух байтовых массивов

[ahz4et]

Задание звучит так: разработать процедуру Big3Add(var M1,M2,М3,Carry;len:word), где M1,M2,М3 - очень длинные положительные числа (байтовые массивы длинной len). Операция М1 = М2 + М3. Carry = 1 если будет переполнение, 0 - если переполнения нет

кусок кода на Паскале:

      type
      bigvalue = array [1..64] of byte;
      x,y,a,b    : bigvalue;
      Procedure Big3Add(var p1,p2,p3,p4;p5:word);external;

и процедура на ассемблере:

_text segment word public 'text' use16
assume cs:_text
 
Big3Add proc far
public Big3Add
@m1 EQU [bp+14]
@m2 EQU [bp+12]
@m3 EQU [bp+10]
@Carry EQU [bp+8]
@len EQU [bp+6]
push bp
mov bp,sp
    mov cx,@len
    xor esi, esi
    xor edi, edi
    xor ebx, ebx
@loop:
    xor eax,eax
    mov eax,dword ptr @m1[esi]
    adc eax,dword ptr @m2[edi]
    mov dword ptr @m3[ebx],eax
    add esi, 4
    add edi, 4
    add ebx, 4
    loop @loop
pop bp
ret 10
Big3Add endp
_text ends
end

вроде должно работать, но не работает. Компилируется нормально, но не суммирует почему-то.
Посоветуйте что-нибудь