HL_Div_C.z80 110 B

12345678910111213
  1. HL_Div_C:
  2. xor a
  3. ld b,16
  4. _:
  5. add hl,hl
  6. rla
  7. jr c,$+5
  8. cp c
  9. jr c,$+4
  10. sub c
  11. inc l
  12. djnz -_
  13. ret