А эти?
http://www.erich-foltyn.eu/Technique...yDivision.html
и похожая
Код:;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





Ответить с цитированием
