Pascal и асемблерные вставки.

[MaGWaY_minsk]

Доброго времени суток всем!
Собственно, начали изучать асемблер и сразу дали нам лабу. Вроде как по тиху начинаем врубаться, но всё же есть нужна помощь.
Собственно, вот выражение, которое нужно написать на вставке асемблерной в паскале:
(2*b-38*c)/(b+a/c+1).
Ниже представлен код моей антихудожественной мазни

uses crt;
var
   a,b,c:integer;
   p1,p2,p3:integer;
Begin


asm
   mov a, 6 
   mov b, 2
   mov c, 3

   {-----1-------}
   {2*b}
   mov ax, 2 
   mul b {умножаем содержимое регистра AX на b (2*2)}
   mov p1, ax {Результат помещаем в переменную P1}
   sub ax, ax {Очищаем регистр}

   {-38*c}
   mov ax, 38
   neg ax {Меняем знак на противоположный (-38)}
   mul c {умножаем содержимое регистра AX на b (-38*3)}
   mov p2, ax {Результат помещаем в переменную P1}
   sub ax, ax {Очищаем регистр}

   {b*2-38*c}
   mov ax, p1
   add ax, p2 {Складываем содержимое регистра AX с P2 }
   mov p1, ax {результат заносим в переменную P1}
   sub ax, ax {Очищаем регистр}
   {p1 = b*2-38*c}
   {-----1-------}

   {-----2-------}
   mov ax, a
   mov cl, 3 {zna4enie peremennoy C}
   div cl 
   add ax, b
   inc ax
   mov p2, ax
   sub ax, ax
   {p2 = b + a/c +1}
   {-----2-------}

   {-----3-------}
   {deistie1/deistvie2}
   mov ax, p1
   div p2
   mov p3, ax
   sub ax, ax
   {-----3-------}

end;
    ClrScr;
    WriteLn(p1);
    WriteLn(p2);
    WriteLn(p3);
    ReadKey;
end.

Собственно, сами вопросы:
*Как правильно оформить шаг №3, в котором делится первая скобка на вторую. Так как я написал результат от деления (-110/5=-26237) собственно, я так понимаю ет не верно
*Как правильно оформить ввод значений в паскале, а после этого использовать их в ассемблере?

Заранее спасибо!!!!!

[MaGWaY_minsk]

Всё, разобрался сам.=)
Можно закрывать)))