BCDRL10: MOV A,R7 MOV R2,A ADD A,R0 MOV R0,A MOV R3,#0 BCDRL1: DEC R0 MOV A,@R0 SWAP A MOV @R0,A MOV A,R3 XCHD A,@R0 MOV R3,A DJNZ R2,BCDRL1 RET