mirror of https://github.com/hsoft/collapseos.git
28 lines
521 B
NASM
28 lines
521 B
NASM
|
; Borrowed from Tasty Basic by Dimitri Theulings (GPL).
|
||
|
|
; Divide HL by DE, placing the result in BC and the remainder in HL.
|
||
|
|
divide:
|
||
|
|
push hl ; --> lvl 1
|
||
|
|
ld l, h ; divide h by de
|
||
|
|
ld h, 0
|
||
|
|
call .dv1
|
||
|
|
ld b, c ; save result in b
|
||
|
|
ld a, l ; (remainder + l) / de
|
||
|
|
pop hl ; <-- lvl 1
|
||
|
|
ld h, a
|
||
|
|
.dv1:
|
||
|
|
ld c, 0xff ; result in c
|
||
|
|
.dv2:
|
||
|
|
inc c ; dumb routine
|
||
|
|
call .subde ; divide using subtract and count
|
||
|
|
jr nc, .dv2
|
||
|
|
add hl, de
|
||
|
|
ret
|
||
|
|
.subde:
|
||
|
|
ld a, l
|
||
|
|
sub e ; subtract de from hl
|
||
|
|
ld l, a
|
||
|
|
ld a, h
|
||
|
|
sbc a, d
|
||
|
|
ld h, a
|
||
|
|
ret
|