Changes
/* Fast 32bit division */ correction and additional information is added
'''Not used:''' IX, IY
'''CPC Cycles:''' 1080-2572 (1826 on average), 270-643 usec (456 on average)
<pre>
EX DE, HL
ADD HL, HL
EX DE, HL
LD A, L
ADD A, C
LD A, H
ADC A, B
ADD HL, BC
INC DE
endm
div_e macro
local t1,t2
EX DE, HL
ADD HL, HL
EX DE, HL
ADC HL, HL
JR C, t1
LD A, L
ADD A, C
LD A, H
ADC A, B
JR NC, t2
t1
ADD HL, BC
INC DE
t2
endm
div32x16 proc ; BCDE = HLDE/BC, HL = HLDE%BC
local t1DIV16, DIV32_DIV32R, DIV320DIV32F
DEC BC
LD A, B
LD A, B
ADC A, H
PUSH DE
EX DE, HL
LD HL, 0000
CALL DIV320DIV32R
EX DE, HL
EX (SP), HL
EX DE, HL
CALL DIV320DIV32F
POP BC
RET
LD BC, 0000
RET
rept 8
endm
RET
endp
</pre>
== Web links ==
