Yes Andy,

it was still less:


;******************** HEX to ASCII ********************
;
;Input: A = 00 .. FFh
;Output: B, A = "00" .. "FF"
;
hexascii:
mov b, #10h
div ab
acall _hexa1
xch a, b
_hexa1:
add a, #-10
jnc _hexa2
add a, #'A' - '9' - 1
_hexa2:
add a, #'0' + 10
ret
;

or


;******************** HEX to ASCII ********************
;
;Input: A = 00 .. FFh
;Output: B, A = "00" .. "FF"
;
haexascii:
mov b, #10h
div ab
acall _hexa1
xch a, b
_hexa1:
inc a
movc a, @a+pc
ret
db '0', '1', '2', '3', '4', '5', '6', '7'
db '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'
;



Peter