;********************MCOBCDSHL********************
;本程序?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,一重堆棧。
;說    明: 1.原數(shù)據(jù)將被沖掉.

           IFNDEF       MCOBCDSHL1
            #DEFINE     MCOBCDSHL1

MCOBCDSHL   MOVF        SADR,W
            MOVWF       FSR         ;首地址
LOOP40      MOVLW       0F0H
            ANDWF       INDF,W
            IORWF       SOU,F
            MOVLW       0FH
            ANDWF       INDF,F
            ANDWF       SOU,W
            SWAPF       INDF,F
            IORWF       INDF,F
            SWAPF       SOU,W
            ANDLW       0FH
            MOVWF       SOU         ;SOU低4位:INDF左移1位
            INCF        FSR,F
            DECFSZ      CNT,F
            GOTO        LOOP40
            MOVF        SADR,W
            SUBWF       FSR,W
            MOVWF       CNT         ;恢復(fù)字節(jié)數(shù)
            RETURN
           ENDIF