;********************MUBCDSHL********************
;本程序?qū)崿F(xiàn)多字節(jié)非壓縮BCD碼非循環(huán)左移1位(即乘10)。
;入口參數(shù): 原數(shù)據(jù)地址在SADR中,字節(jié)數(shù)在CNT中。
;出口參數(shù): 結(jié)果首地址在SADR中,字節(jié)數(shù)在CNT中,移出位在SOU中。
;占用資源: W,STATUS,FSR,020H,023H,024H,028H,一重堆棧。
;說    明: 原數(shù)據(jù)將被沖掉.     

           IFNDEF       MUBCDSHL1
            #DEFINE     MUBCDSHL1

MUBCDSHL    DECF        CNT,W
            ADDWF       SADR,F
            MOVF        SADR,W
            MOVWF       FSR         ;得到末地址
            MOVF        SOU,W
            MOVWF       TEMP1       ;保存移入位
            MOVF        INDF,W
            MOVWF       SOU         ;移出位
            DECF        CNT,F
            DECF        FSR,F
LOOP13      MOVF        INDF,W
            INCF        FSR,F
            MOVWF       INDF
            DECF        FSR,F
            DECF        FSR,F
            DECFSZ      CNT,F
            GOTO        LOOP13
            INCF        FSR,F
            MOVF        TEMP1,W
            MOVWF       INDF        ;移入位
            DECF        FSR,W
            SUBWF       SADR,W
            MOVWF       CNT         ;恢復(fù)字節(jié)數(shù)
            MOVF        FSR,W
            MOVWF       SADR
            RETLW       0
           ENDIF