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

           IFNDEF       MUBCDROL1
            #DEFINE     MUBCDROL1

MUBCDROL    MOVF        CNT,W
            MOVWF       TEMP1
            ADDWF       SADR,W
            MOVWF       FSR
            DECF        FSR,F
            MOVF        INDF,W
            MOVWF       SOU
            DECF        TEMP1,F
            DECF        FSR,F
NEXT48      MOVF        INDF,W
            INCF        FSR,F
            MOVWF       INDF
            DECF        FSR,F
            DECF        FSR,F
            DECFSZ      TEMP1,F
            GOTO        NEXT48
            INCF        FSR,F
            MOVF        SOU,W
            MOVWF       INDF
            RETURN
           ENDIF