;********************MUBCDNEG********************
;本程序?qū)崿F(xiàn)多字節(jié)非壓縮BCD碼求補。
;入口參數(shù)：待處理的數(shù)據(jù)地址在SADR中,字節(jié)數(shù)在CNT中。
;出口參數(shù)：結(jié)果地址在SADR中,字節(jié)數(shù)在CNT中.
;占用資源：W,FSR,STATUS,020H,023H,028H,一重堆棧。
;說    明: 0求補還是0.

           IFNDEF       MUBCDNEG1
            #DEFINE     MUBCDNEG1

MUBCDNEG    MOVF        CNT,W
            MOVWF       TEMP1       ;TEMP1作計數(shù)器
            MOVF        SADR,W
            MOVWF       FSR
            MOVF        INDF,W
            SUBLW       0AH         ;用10減最低位
            MOVWF       INDF
            INCF        FSR,F
            DECF        TEMP1,F
LOOP15      MOVF        INDF,W
            SUBLW       9           ;用9減其它位
            MOVWF       INDF
            INCF        FSR,F
            DECFSZ      TEMP1,F
            GOTO        LOOP15
            MOVF        CNT,W
            MOVWF       TEMP1       ;重新獲得字節(jié)數(shù)
            SUBWF       FSR,F       ;重新獲得首地址
LOOP16      MOVLW       6           ;十進(jìn)制調(diào)整
            ADDWF       INDF,W
            BTFSS       STATUS,DC
            RETURN
            CLRF        INDF
            INCF        FSR,F
            INCF        INDF,F
            DECFSZ      TEMP1,F
            GOTO        LOOP16
            DECF        INDF,F
            RETURN
           ENDIF