MOV R0,#30H
MOV R1,#40H
LOOP: MOV A,@R0
SWAP A
AND A,#0FH
ADD A,#30H ;30H= '0'
MOV @R1,A
INC R1
MOV A,@R0
AND A,#0FH
ADD A,#30H
MOV @R1,A
INC R1
INC R0
CJNE R0,#38H,LOOP