;--------------------------------------------------------------------
; rounded div 32 by 16 bit
;
-; HLDE: Dividend (x)
+; DEHL: Dividend (x)
; BC: Divisor (y)
; return:
; HLDE: Rounded Quotient (q)
push de
pmsg$loop:
ld a,(hl)
+ inc hl
or a
jr z,pmsg$exit
ld c,a
push hl
call ?cono
pop hl
- inc hl
jr pmsg$loop
pmsg$exit:
pop de