convert: ld de,TEMP push de ld c,(hl) ld b,2 new_char: ld de,table new_digit: xor a rld djnz same_byte ld (hl),c inc hl ld c,(hl) ld b,2 same_byte: push af add a,e ld e,a adc a,d sub e ld d,a pop af cp $0f jr z,new_digit ld a,(de) ex (sp),hl ld (hl),a inc hl ex (sp),hl or a jr nz,new_char ld (hl),c pop hl ret