7.1.8浮点倒数函数.txt

来自「这是MCS51的数学计算程序库」· 文本 代码 · 共 57 行

FRCP: 
MOV 	A,@R0
MOV 	C,ACC.7
MOV 	1FH,C 				
MOV 	C,ACC.6 				
MOV 	ACC.7,C
MOV 	R5,A
INC 		R0
MOV 	A,@R0
MOV 	R6,A
INC 		R0
MOV 	A,@R0
MOV 	R7,A
DEC 	R0
DEC 	R0
ORL 	A,R6
JNZ 		RCP
SETB 	OV 					
RET 
RCP: 
MOV 	A,R6
JB 		ACC.7,RCP2		
CLR 	C 					
MOV 	A,R7
RLC 	A
MOV 	R7,A
MOV 	A,R6
RLC 	A
MOV 	R6,A
DEC 	R5
SJMP 	RCP
RCP2: 
MOV	R2,#1 				
MOV 	R3,#80H
MOV 	R4,#0
LCALL 	DIV3 				
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
RET