asm вставка в дэлфи

[whatever]

Вот такая проблема:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
//(4*a/b + l)/(a*b - 18 + a)        //само задание
procedure RUN;
var
  res,res2,a,b:word;
begin
  a:=5;
  b:=3;     //значения произвольные
  asm
    mov ax, a;      //ax - аккумулятор;
    mov dx, b;
    mul ax, dx;
    sub ax, 18;
    add ax, a;
    mov cx, ax;     //вторая скобка;

    mov ax, a;
    mov dx, 4;
    mul ax, dx;
    div  b;
    inc ax;         //первая скобка;

//    div ax, cx;
    mov res, ax;
    mov res2, cx;
  end;
  writeln(res);
  writeln(res2);
  readln;
end;
begin
  RUN;
end.

В таком варианте res и res2 выдают верные значения. Почему я немогу поделить первую скобку на вторую (выделено красным)?

[eoln]

    inc ax;         //первая скобка;
    cwd;
    div cx;
//    div ax, cx;

[whatever]

Спасибо, буду знать.

[Stilet]

Скорее всего потому что:

F7 /6 DIV r/m16 Unsigned divide DX:AX by r/m16; AX
If source operand is a word
value, then DX:AX is divided by "src" and the quotient is stored in AX
and the remainder in DX.

т.е. делить нужно с учетом второго регистра:

    xor dx,dx
    div ax, cx;

иначе переполнение.