HEXTOBCDM:
CLR 	A
MOV 	24H,A
MOV 	R5,A					
MOV 	R6,A
MOV 	R7,A
MOV 	R0,A					
MOV 	B,#20H
LOP12:
MOV 	A,R4
ADD 	A,R4
MOV 	R4,A
LCALL 	LR0
MOV 	A,R0
ADDC 	A,R0
DA  	A				
MOV 	R0,A
MOV 	A,R7
ADDC 	A,R7
DA 		A					
MOV 	R7,A
MOV 	A,R6
ADDC 	A,R6
DA 		A					
MOV 	R6,A
MOV 	A,R5
ADDC 	A,R5
DA 		A					
MOV 	R5,A
MOV 	A,24H
ADDC 	A,24H
DA 		A					
MOV 	24H,A
DJNZ 	B,LOP12
MOV 	A,R0
MOV 	R4,A
LCALL 	EXT					
RET