Дмитрий2012, ты хоть подробно напиши что на что делить... 24bit/16bit или 24bit/8 ?
Код:
2.4 Restoring 24-bit / 8-bit Unsigned
Input: E:HL = Dividend, D = Divisor, A = 0
Output: E:HL = Quotient, A = Remainder
add hl,hl ; unroll 24 times
rl e ; ...
rla ; ...
cp d ; ...
jr c,$+4 ; ...
sub d ; ...
inc l ; ...
2.5 Restoring 24-bit / 16-bit Unsigned
Input: A:BC = Dividend, DE = Divisor, HL = 0
Output: A:BC = Quotient, HL = Remainder
slia c ; unroll 24 times
rl b ; ...
rla ; ...
adc hl,hl ; ...
sbc hl,de ; ...
jr nc,$+4 ; ...
add hl,de ; ...
dec c ; ...