IF(_HEX8BCD_)
?PR?_HEX8BCD?RADIXCONVERT SEGMENT CODE
PUBLIC _HEX8BCD
RSEG ?PR?_HEX8BCD?RADIXCONVERT
_HEX8BCD:
MOV A, R7
MOV B, #100
DIV AB
MOV R6, A
MOV A, B
MOV B, #10
DIV AB
SWAP A
ORL A, B
MOV R7, A
RET
ENDIF
?PR?_HEX8BCD?RADIXCONVERT SEGMENT CODE
PUBLIC _HEX8BCD
RSEG ?PR?_HEX8BCD?RADIXCONVERT
_HEX8BCD:
MOV A, R7
MOV B, #100
DIV AB
MOV R6, A
MOV A, B
MOV B, #10
DIV AB
SWAP A
ORL A, B
MOV R7, A
RET
ENDIF
END