;********************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