Z80 word to BCD

gistfile1.txt

; Converts a two-byte value to BCD
; Works in const time, no jumps
;   params: `hl` - word value
;   return: `ahl` - 5 digits in BCD
;   spoils: `f`, `c`
;   time: 454, length: 112
wordToBcd:
    IFUSED
        ; double dabble algorithm
        xor a
    DUP 3
        sla h
        adc a
    EDUP
    DUP 3
        sla h
        adc a : daa
    EDUP
        sla h
    DUP 2
        adc a : daa
        rl h
    EDUP
        sla l
        adc a : daa
        rl h
        sla l
        adc a : daa : ld c, a
        ld a, h : adc a : daa : ld h, a
    DUP 2
        sla l
        ld a, c : adc a : daa : ld c, a
        ld a, h : adc a : daa : ld h, a
    EDUP
        sla l
    DUP 4
        ld a, c : adc a : daa : ld c, a
        ld a, h : adc a : daa : ld h, a
        rl l
    EDUP
        ld a, l : ld l, c
        ret
    ENDIF