Что такое тангенс и как с ним боротся?

[Destr]

Замутил вот такую процедуру деления

DIVS; H.L=C/B
	LD A,C
	XOR B
	EXA
	LD A,C
	NEG
	JP M,$+4
	LD C,A
	LD A,B
	NEG
	JP M,$+4
	LD B,A
	XOR A
	DUP 8
		RL C
		RLA
		CP B
		JR C,$+3
		SUB B
		CCF
		RL H
	EDUP
	DUP 8
		RL C
		RLA
		CP B
		JR C,$+3
		SUB B
		CCF
		RL L
	EDUP
	EXA
	RET P
	EX HL,DE
	LD HL,0
	OR A
	SBC HL,DE
	RET

Но порой она ошибается.
Где глюк не пойму. Кто знает?