Вычисление числа Пи на ассемблере

[b2m]

Вот из вышеупомянутой книги, как ни странно - работает

DIV32:	MOV A,B ; DE = HLDE/BC, HL = HLDE%BC
	CMA
	MOV B,A
	MOV A,C
	CMA
	MOV C,A
	INX B
	XRA A
DIV321:	DAD H
	RAR
	XCHG
	DAD H
	XCHG
	JNC $+4
	INX H
	PUSH H
	DAD B
	JNC DIV322
	RAL
DIV323:	INX D
	INX SP
	INX SP
	ADI 10h
	JNC DIV321
	RET
DIV322:	RAL
	JC DIV323
	POP H
	ADI 10h
	JNC DIV321
	RET