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

来自「单片机应用开发实用子程序源代码,包含所有的单片机简单程序」· 文本 代码 · 共 31 行

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