Не могу найти ошибку. Нужно в Turbo Pascal

[Vitlii]

program laba8;
label m,m1,m2,m3,ex;
var a,b,c:integer;

begin
  write('a, b:'); read(a, b);
  asm 			
   mov	si, a
	 add	si, 3
	 jne	m
  end; 			
  writeln('a+3=0');
  asm 			
	 jmp	ex		
m:mov di,b
  jnz m1
end;
writeln('b=0');
  asm 			
	jmp	ex		
m1: mov ax,a;
       imul b;
       add  ax,2;
       cwd;
       idiv di;
       mov bp,ax;
  m2:  mov ax,a;
       add ax,a;
       add ax,a;
       imul b;
       mov di,ax;
       mov ax,b;
       imul b;
       imul b;
       add di,ax;
       mov ax,di;
       jge m3;
       neg ax;
  m3:  cwd;
       idiv si;
       add ax,bp;
       mov c,ax;
 end;
  writeln('Result: ',(3*a*b+b*b*b) div (a+3)+(abs(a*b-2) div (b)),
                ', C = ', C);
ex:
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Не могу найти ошибку.

а откуда Вы знаете, что она тут есть?

[f.hump]

наверно, как обычно, побил bp, si, di, оно не работает, и в результате: "Не могу найти ошибку".

[Dimka-novitsek]

Turbo Pascal в Дельфи 7 скомпилируется? Если да то что будет критерием правильности работы кода? Что он делает (должен делать)?

[Vitlii]

спасибо уже сам сделал, он должен при вводе двух чисел A и B решить уравнение.

[Vitlii]

Сообщение от f.hump

наверно, как обычно, побил bp, si, di, оно не работает, и в результате: "Не могу найти ошибку".

они тут причем bp,di,si.....

[Serge_Bliznykov]

Сообщение от Vitlii

спасибо уже сам сделал

Отлично. Поздравляю.
В чём была ошибка я так и не увидел, но теперь это уже и не важно, главное, что вы в этом разобрались.

Тему закрываем?

[Vitlii]

да закрываем