; Integer divides HL by E
; Result in A, remainder in H
; Clobbers F, B, L
    ld b,8
-:  adc hl,hl
    ld a,h
    jr c,+
    cp e
    jr c,++
+:  sub e
    ld h,a
    or a
++: djnz -
    ld a,l
    rla
    cpl