5.2.2 bcd码求补.txt

来自「《MCS-51单片机应用开发实用子程序》配套源代码」· 文本 代码 · 共 21 行

NGLP1:
MOV 	A,#99H					
SUBB  	A,@R0
MOV   	@R0,A
DEC   	R0
DJNZ  	R1,NGLP1					
INC   	R0
INC   	R0
INC   	R0
MOV  	R1,#3
SETB 	C						
NGLP2:
CLR 	A
ADDC 	A,@R0
DA   	A
MOV  	@R0,A
DEC  	R0
DJNZ 	R1,NGLP2
BSBRT:
RET