4.5 bcd码到ascii码转换实例.txt

这是《MCS-51单片机应用开发实用子程序》配套源代码,对初学者很有用的

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