;********************MUBCDROR********************
;本程序?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       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