4.3.6多字节十六进制小数转换成双字节bcd码小数.txt

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

FTOBCD:
INC 		R0
MOV 	A,@R0
INC 		R0
ORL 	A,@R0
DEC 	R0
DEC 	R0
JNZ 		FTB0
MOV 	@R0,#41H
RET
FTBCD0: 
MOV 	A,@R0
MOV 	C,ACC.7
MOV 	1DH,C
CLR 	ACC.7
MOV 	@R0,A
LCALL 	MVR0
MOV 	DPTR,#BFL0		
MOV 	B,#0 				
MOV 	A,R2
JNB 		ACC.7,FTB1
MOV 	DPTR,#BTFL			
MOV 	B,#0EDH 				
ADD 	A,#16
JNC 		FTBCD1
MOV 	DPTR,#BFLN			
MOV 	B,#0FAH 				
FTBCD1: 
CLR 	A 					
MOVC 	A,@A+DPTR
MOV 	C,ACC.6
MOV 	ACC.7,C
MOV 	R5,A
MOV 	A,#1
MOVC 	A,@A+DPTR
MOV 	R6,A
MOV 	A,#2
MOVC 	A,@A+DPTR
MOV 	R7,A
MOV 	A,R5 			
CLR 	C
SUBB 	A,R2
JB 		ACC.7,FTB2			
JNZ 		FTBCD3
MOV 	A,R6
CLR 	C
SUBB 	A,R3
JC 		FTBCD2
JNZ 		FTBCD3
MOV 	A,R7
CLR 	C
SUBB 	A,R4
JC 		FTBCD2
JNZ 		FTBCD3
MOV 	R5,B 				
INC 		R5 				
MOV 	R6,#10H 				
MOV 	R7,#0
SJMP 	FTBCD6 				
FTBCD2: 
INC		DPTR 				
INC		DPTR
INC 		DPTR
INC 		B 					
SJMP 	FTBCD1 ；
FTBCD3: 
PUSH 	B 					
LCALL 	DIV3 				
FTB4: 
MOV 	A,R2	 				
JZ 		FTBCD5 				
CLR 	C
LCALL 	RR1 				
SJMP 	FTBCD4
FTB5: 
POP 		ACC 				
MOV 	R5,A 				
LCALL 	HBCD2 				
MOV 	R6,A
LCALL 	HBCD2 				
MOV 	R7,A
MOV 	A,R3 				
RLC 	A
CLR 	A
ADDC 	A,R7
DA 		A
MOV 	R7,A
CLR 	A
ADDC 	A,R6
DA 		A
MOV 	R6,A
JNC 		FTBCD6
MOV 	R6,#10H
INC 		R5
FTBCD6: 
INC 		R0 					
INC 		R0
MOV 	A,R7
MOV 	@R0,A
DEC 	R0
MOV 	A,R6
MOV 	@R0,A
DEC 	R0
MOV 	A,R5
MOV 	C,1DH 				
MOV 	ACC.7,C
MOV 	@R0,A
RET
HBCD2: 
MOV 	A,R4 				
MOV 	B,#100
MUL 	AB
MOV 	R4,A
MOV 	A,B
XCH 	A,R3
MOV 	B,#100
MUL 	AB
ADD 	A,R3
MOV 	R3,A
JNC 		HBCD21
INC 		B
HBCD21: 
MOV 	A,B 					
MOV 	B,#10
DIV 		AB
SWAP 	A
ORL 	A,B
RET