Проблема с компилированием (EIntOverflow))

[Alex1991]

Помогите с компиляцей программы на Delphi с использованием Lab5.obj файла.

Код Дельфи:

program Project1;

{$L LAB5.obj}
{$APPTYPE CONSOLE}

uses
  SysUtils;

var var1, p1, p2, p3, res: smallint;

procedure AsmVstavka(); external;

begin

var1:=6;
p1:=16;
p2:=2;
p3:=6;

  asm
  mov ax, var1
  mov bx, p1
  mov cx, p2
  mov dx, p3
  end;

  AsmVstavka();

  asm
  mov res, ax
  xor ax,ax
	xor bx,bx
	xor cx,cx
	xor dx,dx

  end;

  writeln('Result:',res);

  readln;
end.

Код асм:

.386
CODE SEGMENT BYTE PUBLIC 
AsmVstavka PROC
    PUBLIC AsmVstavka

	add cx, bx
	sub cx, ax
	mov ax, cx
	div dx

        ret    

AsmVstavka ENDP
CODE ENDS
    END

[Mikl___]

Alex1991
при делении на DX обязательно возникнет переполнение, поэтому р3 помести в SI, а DX перед делением обнули, так как делят не на AX, а на содержимое DX:AX