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

[Vitlii]

Program Prim;
label m, m1, m2, 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
  cmp b,0		
	jnz	m1		
  end; 			
  writeln(B=0);
  asm 			
	jmp	ex		


m1:	mov ax,a
    imul b	
	add ax, 2
	
	jge	m2 		
	neg	ax		


m2:	cwd			
	idiv	di		
	mov	bp, ax	
	add	ax, A
	imul B
	add	ax, A
	imul B
	add	ax, A
	imul B
	mov	ax, B		
	imul	ax		
	imul	B
	cwd			
	idiv si
	add	ax, bp
	mov	C, ax		
  end; 			
  writeln('Result: ', (abs(3*A*B-sqr(B)*B)) div (A+3)+abs(A*B-2) div (B),
                ', C = ', C);
ex:
end.

[Stilet]

Какого рода ошибка?

[Son Of Pain]

Нельзя так дерзко менять регистр bp внутри функции, он используется как указатель на фрейм в стеке.

[Vapaamies]

Сообщение от Son Of Pain

Нельзя так дерзко менять регистр bp внутри функции

Зависит от компилятора. Не помню, сохраняет ли Borland Pascal регистры, используемые из ассемблера. Delphi сохраняет.

[Somebody]

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

Delphi сохраняет.

Да ну? Это какая версия сохраняет?

[Vapaamies]

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

Это какая версия сохраняет?

При программировании ассемблерных вставок посреди паскалевского кода пару раз натыкался на сохранение некоторых регистров, из-за чего фактическое поведение отличалось от предполагаемого. Детали позабыл, сейчас воспроизвести в точности не смог. Delphi 6.

В обособленных ассемблерных процедурах ничего не сохраняет, только стековый кадр создает.