;********************SUBCDSUB********************
;本程序實現單字節非壓縮BCD碼減法。
;入口參數：被減數在SOU中，減數在RLT中。
;出口參數：結果在SOU中，借位標志在STATUS:C中,'0'表示有借位。
;占用資源：W,STATUS,024H,026H,一重堆棧。

           IFNDEF       SUBCDSUB1
            #DEFINE     SUBCDSUB1
                        
SUBCDSUB    MOVF        RLT,W
            SUBWF       SOU,F
            BTFSC       STATUS,C    ;檢查進位
            RETURN        
            MOVLW       0F6H        ;減6處理
            SUBWF       SOU,F
            ADDLW       0           ;置借位標志
            RETURN
           ENDIF