; Integer divides DE:HL by C
; Result in DE:HL, remainder in A
; Clobbers F, B
    xor a
    ld b,32
-:  add hl,hl
    rl e
    rl d
    rla
    cp c
    jr c,+
    sub c
    inc l
+:  djnz -