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

           IFNDEF       MUBCDROR1
            #DEFINE     MUBCDROR1

MUBCDROR    MOVF        CNT,W
            MOVWF       TEMP1
            MOVF        SADR,W
            MOVWF       FSR
            MOVF        INDF,W
            MOVWF       SOU
LOOP12      MOVF        INDF,W
            DECF        FSR,F
            MOVWF       INDF
            INCF        FSR,F
            INCF        FSR,F
            DECFSZ      TEMP1,F
            GOTO        LOOP12
            DECF        FSR,F
            MOVF        SOU,W
            MOVWF	INDF
            RETURN
           ENDIF