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

[Destr]

;Divide 16-bit values (with 8-bit result)
;In: Divide HL by divider D
;Out: L = result, H = rest
;
Div12: ld b,8
Div12_Loop:
and a
sbc hl,de
jp p,Div12_NoAdd
add hl,de
add hl,hl
djnz Div12_Loop
ret
Div12_NoAdd:
scf
adc hl,hl
djnz Div12_Loop
ret

Вообще не хочет делить как надо.

Та процедура что в ссылке (похожая) - тоже