fsub.cod

单片机汇编语言程序库

FSUB                                                            FSUB: SETB F0 
AS: LCALL MVR1 
MOV C,F0 
RRC A
XRL A,@R1
MOV C,ACC.7
ASN: MOV 1EH,C 
XRL A,@R0 
RLC A
MOV F0,C 
LCALL MVR0 
LCALL AS1 
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
MVR0: MOV A,@R0 
MOV C,ACC.7 
MOV 1FH,C
MOV C,ACC.6 
MOV ACC.7,C
MOV R2,A
INC R0
MOV A,@R0
MOV R3,A
INC R0
MOV A,@R0 
MOV R4,A
DEC R0 
DEC R0
RET
MVR1: MOV A,@R1 
MOV C,ACC.7 
MOV 1EH,C
MOV C,ACC.6
MOV ACC.7,C
MOV R5,A ；存放在R5中
INC R1
MOV A,@R1 
MOV R6,A
INC R1
MOV A,@R1 
MOV R7,A
DEC R1
DEC R1
RET
AS1: MOV A,R6 
ORL A,R7
JZ AS2 
MOV A,R3
ORL A,R4
JNZ EQ1
MOV A,R6 
MOV R3,A
MOV A,R7
MOV R4,A
MOV A,R5
MOV R2,A
MOV C,1EH
MOV 1FH,C
AS2: RET
EQ1: MOV A,R2 
XRL A,R5
JZ AS4 
JB ACC.7,EQ3
MOV A,R2 
CLR C
SUBB A,R5
JC EQ4
EQ2: CLR C 
MOV A,R6 
RRC A
MOV R6,A
MOV A,R7
RRC A
MOV R7,A
INC R5 
ORL A,R6
JNZ EQ1 
MOV A,R2 
MOV R5,A
SJMP AS4
EQ3: MOV A,R2 
JNB ACC.7,EQ2
EQ4: CLR C
LCALL RR1 
ORL A,R3 
JNZ EQ1 
MOV A,R5 
MOV R2,A
AS4: JB F0,AS5 
MOV A,R4 
ADD A,R7
MOV R4,A
MOV A,R3 
ADDC A,R6
MOV R3,A
JNC AS2
LJMP RR1 
AS5: CLR C 
MOV A,R4
SUBB A,R7
MOV B,A
MOV A,R3
SUBB A,R6
JC AS6
MOV R4,B 
MOV R3,A
LJMP RLN 
AS6: CPL 1FH 
CLR C 
MOV A,R7
SUBB A,R4
MOV R4,A
MOV A,R6
SUBB A,R3
MOV R3,A
RLN: MOV A,R3 
ORL A,R4 
JNZ RLN1
MOV R2,#0C1H
RET 
RLN1:入口条件：被减数在[R0]中，减数在[R1]中。
出口信息：OV=0时，差仍在[R0]中，OV=1时，溢出。
影响资源：PSW、A、B、R2～R7、位1EH、1FH 堆栈需求：６字节                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          浮点数减法
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                运算子程序