MCS-51单片机应用子程序：4.5 BCD码到ASCII码转换实例

BCDTOASC MOV R0,#20H MOV R1,#10H MOV R2,#05H ACALL BCDASC LOOP0: SJMP LOOP0 BCDASC: MOV R1,#10H MOV R6,#0AH LOOP1: MOV @R1,#00H INC R1 DJNZ R6,LOOP1 LOOP2: MOV A, @R0 MOV R2,A SWAP A ANL A, # 0FH ADD A,#30H- MOV @R1,A INC R1 MOV A, R2 ANL A, #0FH ADD A, # 30H MOV @R1,A INC R0 INC R1 DJNZ R7,LOOP2 RET