;********************SUBCDADD********************
;本程序?qū)崿F(xiàn)單字節(jié)非壓縮BCD碼加法。
;入口參數(shù)：被加數(shù)在SOU中，加數(shù)在RLT中。
;出口參數(shù)：結(jié)果在SOU中,進(jìn)位位在STATUS:C中。
;占用資源：W,STATUS,024H,026H,一重堆棧。

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