Ассемблер в делфи

[Hesheit]

Таккая проблема - делаю вставку ассемблера в делфи которая считает такое уравнение a * b - c / d

if(CheckBox1.Checked=true) then begin a:=128+StrToInt(Edit1.Text); end
else  a:=StrToInt(Edit1.Text) ;
if(CheckBox2.Checked=true) then begin b:=128+StrToInt(Edit2.Text); end
else    b:=StrToInt(Edit2.Text) ;
if(CheckBox3.Checked=true) then begin c:=128+StrToInt(Edit3.Text); end
else    c:=StrToInt(Edit3.Text) ;
if(CheckBox4.Checked=true) then begin d:=128+StrToInt(Edit4.Text); end
else    d:=StrToInt(Edit4.Text);
asm
sub ax,ax
sub bx,bx
mov bl, b
mov al, a


imul bl
mov cx,ax

sub ax,ax
mov al, c

sub bx,bx
mov bl, d


idiv d

mov ah,0


sub cx,ax

mov rz, cx
end;
res:=rz  ;
  ShowMessage(IntToStr(res));

а, b , c ,d байтовые переменные. Так считает все нормуль - ошибка возникает когда одно или больше чисел отрицательное. Насколько я понял проблема в том что отрицательные числа представляються в дополнительном коде, но вот не шарю как с этим бороться...

Можите подкинуть идейку или может в чем другом ошибка, кроме днк=)

[MalCer]

Насколько я понял проблема в том что отрицательные числа представляються в дополнительном коде

Да. Ты все верно понял

но вот не шарю как с этим бороться...

Про регистры для работы с отрицательными числами можно почитать Здесь

[Hesheit]

спасибо - почитаю

[Hesheit]

нашел ошибку - оказалась таки в днк=)
просьба удалить тему