;********************SUBCDADD********************
;本程序實現單字節非壓縮BCD碼加法。
;入口參數：被加數在SOU中，加數在RLT中。
;出口參數：結果在SOU中,進位位在STATUS:C中。
;占用資源：W,STATUS,024H,026H,一重堆棧。

           IFNDEF       SUBCDADD1
            #DEFINE     SUBCDADD1
                        
SUBCDADD    MOVF        RLT,W
            ADDWF       SOU,W
            BTFSS       STATUS,DC   ;檢查半進位
            GOTO        NODC1        
            ADDLW       6           ;加6處理
OVER2       ANDLW	0FH
            MOVWF       SOU
            BSF         STATUS,C
            RETURN
NODC1       ADDLW       6
            BTFSC       STATUS,DC   ;DC為1,表明原結果大于9
            GOTO        OVER2
            ADDLW       0FAH        ;恢復原值
            MOVWF       SOU
            BCF         STATUS,C    ;清除進位
            RETURN
           ENDIF