MCS-51单片机应用子程序：7.1.8浮点倒数函数

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