Взаимодействие Паскаль - Ассемблер

[fuzo]

Асемблеровский файл компилируется нормально вроде всё правильно, создаётся его .obj файл который будет взаимодействовать с паскалем. В паскалевской же части при компиляции ошибка указывает на 3ью строку, и это как то связано со строкой y:=Sum(n,a,b)/Sum(m,c,d);. Помогите разобраться.



Мой код паскалевской части:

Program LR5;
var n,m,a,b,c,d,y:integer;
 Function Sum(n,a,b,c,d:integer):integer;external;
{$L mod.obj}
Begin
  write('m=');
  readln(m);
  write('n=');
  readln(n);
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  write('d=');
  readln(d);
  y:=Sum(n,a,b)/Sum(m,c,d);
  writeln('y=',y);
  readln;
End.

Код ассемблерной части:

	.model small
	.code
begin:
	Sum proc
	Public Sum
		push bp
		mov bp,sp
	 	mov cx,[bp+6]
	 	mov bx,[bp+2]     
		mov ax,0      
for:		mov ax,[bp+4]
		imul cx
		add ax,bx	
		loop for	
		pop bp
		ret 4
	Sum endp
end begin

[Son Of Pain]

Функция определена, как принимающая пять параметров. Ты передаешь три.

[fuzo]

И я ещё забыл передать m значит нужно шесть передавать.
Как это всё правильно синхронизировать?