;********************MUBCDROL********************
;本程序實現多字節非壓縮BCD碼循環左移1位。
;入口參數: 原數據地址在SADR中,字節數在CNT中。
;出口參數: 結果首地址在SADR中,字節數在CNT中,移出位在SOU中。
;占用資源: W,STATUS,FSR,020H,023H,024H,028H,一重堆棧。
;說    明: 原數據將被沖掉.     

           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