scobcdsub.asm

PIC子程序大全

;********************SCOBCDSUB********************
;本程序实现单字节压缩BCD码减法。
;入口参数：被减数在SOU中，减数在RLT中。
;出口参数：结果在SOU中,借位标志在STATUS:C中，'0'表示有借位。
;占用资源：W,STATUS,024H,026H,028H,一重堆栈。

           IFNDEF       SCOBCDSUB1
            #DEFINE     SCOBCDSUB1
                        
SCOBCDSUB   MOVF        RLT,W
            SUBWF       SOU,F       ;二进制减法
            RLF         TEMP1,F     ;保存借位
            MOVLW       6
            BTFSC       STATUS,DC   ;判断有无半借位
            ADDWF       SOU,F       ;若没有
            SUBWF       SOU,F       ;有,LSD减6
            MOVLW       60H
            BTFSS       TEMP1,0     ;判断结果的MSD是否大于9
            SUBWF       SOU,F       ;减60H
            RRF         TEMP1,F     ;置借位标志
            RETLW       0
           ENDIF