7.1.13浮点数多项式计算.txt

MCS－51单片机应用开发实用子程序.rar

FPLN: 
POP 		DPH 				
POP 		DPL
XCH 	A,R0 			
XCH 	A,R1
XCH 	A,R0
CLR 	A 					
MOV 	R2,A
MOV 	R3,A
MOV 	R4,A
CLR 	1FH
PLN1: 
CLR 	A 				
MOVC 	A,@A+DPTR
MOV 	C,ACC.7
MOV 	1EH,C
MOV 	C,ACC.6
MOV 	ACC.7,C
MOV 	R5,A
INC 		DPTR
CLR 	A
MOVC 	A,@A+DPTR
MOV 	R6,A
INC 		DPTR
CLR 	A	
MOVC 	A,@A+DPTR
MOV 	R7,A
INC 		DPTR 				
MOV 	C,1EH 				
RRC 	A
XRL 	A,23H
RLC 	A
MOV 	F0,C 				
LCALL 	AS1 				
CLR 	A 					
MOVC 	A,@A+DPTR
CJNE 	A,#40H,PLN2			
XCH 	A,R0 				
XCH 	A,R1
XCH 	A,R0
MOV0:						
INC		R0					
INC		R0
MOV	A,R4
MOV	@R0,A
DEC		R0				
MOV	A,R3
MOV	@R0,A
DEC		R0					
MOV	A,R2
MOV	C,1FH
MOV	ACC.7,C
MOV	@R0,A
CLR		ACC.7
CLR		OV					
CJNE	A,#3FH,MV01
SETB	OV
MV01:	
MOV	A,@R0
CLR 	A
INC 		DPTR
JMP 		@A+DPTR 			
PLN2: 
MOV 	A,@R1 				
XRL 	A,23H
RLC 	A
MOV 	1FH,C 				
LCALL 	MUL0 				
SJMP 	PLN1