HL/10

HL_div_10:
;;Expects Z80 mode
;;Input: HL
;;Output: HL
;;Destroys: HL,BC
;;42cc
    ld d,h
    ld e,0x33
    ld h,e
    mlt de
    mlt hl
;16cc
;DE*256+(de+hl+h)
;    ld c,h \ ld b,0
;    add hl,de \ jr nc,$+3 \ inc de
;    add hl,bc \ jr nc,$+3 \ inc de
;    ld c,h \ add hl,bc
;    rr h \ rr l
;23cc
    ld b,e \ ld c,h
    add hl,de \ jr nc,$+3 \ inc de
    add hl,bc \ jr nc,$+3 \ inc d
    ld l,h \ ld h,d \ rr h \ rr l
;20cc
    ret