taeqb.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 26 行

;********************TAEQB********************
;本程序实现标准浮点数比较大小。
;入口参数：A在ARGBH1:ARGBL1:EXP1中，B在ARGBH2:ARGBL2:EXP2中。
;出口参数：如果A==B,则W=1,否则W=0。
;占用资源：W,STATUS,020H~02BH,一重堆栈。

           IFNDEF       TAEQB1
            #DEFINE     TAEQB1
            
TAEQB       MOVF        BEXP,W
            SUBWF       AEXP,W
            BTFSS       STATUS,Z
            RETLW       0x00

            MOVF        BARGB0,W
            SUBWF       AARGB0,W
            BTFSS       STATUS,Z
            RETLW       0x00

            MOVF        BARGB1,W
            SUBWF       AARGB1,W
            BTFSS       STATUS,Z
            RETLW       0x00
            RETLW       0x01

          ENDIF