;This code is listed here for entertainment value only, it should 
;not be used for anything important.  Do not use this for a saleable product.  
;Feel free to pass this on to others in it's entirety. along with this message.
;No Guarantees implicit or otherwise are implied, your mileage may vary. 


        $RB(0)
        $RB(1)
$NOMOD51 INCLUDE(87C752.pdf)
$INCLUDE(common.inc)

        EXTRN        CODE(PUTCHAR)
        EXTRN        CODE(NORMLCD)

PUBLIC HEXSTR

CLIBC SEGMENT CODE
        RSEG    CLIBC


HEXSTR:
        PUSH    ACC
        PUSH    ACC
        SWAP    A
        ACALL   HEXCHAR
        ACALL   PUTCHAR

        POP     ACC
        ACALL   HEXCHAR
        ACALL   PUTCHAR

        POP     ACC
        RET

HEXCHAR:
        ANL     A,#0Fh
        JNB     ACC.3,DECDIGIT
        JB      ACC.2,ALPHADIGIT
        JNB     ACC.1,DECDIGIT
ALPHADIGIT:        
        ADD     A,#07h
DECDIGIT:
        ADD     A,#30h
        RET
        

$EJECT
        END