call div1
ld b,a
ld a,c
- ld c,b
call div
inc a
jr c,1$
sbc hl,de
1$: inc hl ; get into range -divisor+1..0
- ld d,c
+ ld d,b
ld e,a
pop bc
ret
call divn0
ld b,a
ld a,c
- ld c,b
call divn
jr nc,3$
add hl,de
3$: inc hl ; get into range divisor+1..0
- ld d,c
+ ld d,b
ld e,a
pop bc
ret
call divn1
ld b,a
ld a,c
- ld c,b
call divn
inc a
jr c,5$
sbc hl,de
-5$: ld d,c
+5$: ld d,b
ld e,a
pop bc
ret
call div0
ld b,a
ld a,c
- ld c,b
call div
jr nc,1$
add hl,de
-1$: ld d,c
+1$: ld d,b
ld e,a
pop bc
ret