;Initilization
$ NOMOD51
$ INCLUDE (REG515.inc)


PUBLIC hextoa


HEXTOASCII	SEGMENT CODE
RSEG 	HEXTOASCII
USING 	0

hextoa:
        push     acc
        swap     a
        acall    htoa
        pop      acc
        acall    htoa
        ret
htoa:
        anl     a,#0Fh
        clr     c
        subb    a,#10
        jc      htoa1
        add     a,#07h
htoa1:
        add     a,#3Ah
        mov     @r0,a
        inc     r0
        ret
        
        END