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

           IFNDEF       MUBCDSHR1
            #DEFINE     MUBCDSHR1
MUBCDSHR    MOVF        SOU,W
            MOVWF       TEMP1       ;保存移入位
            MOVF        SADR,W
            MOVWF       FSR
            MOVF        INDF,W
            MOVWF       SOU         ;移出位在SOU中
LOOP12      MOVF        INDF,W
            DECF        FSR,F
            MOVWF       INDF
            INCF        FSR,F
            INCF        FSR,F
            DECFSZ      CNT,F
            GOTO        LOOP12
            DECF        FSR,F
            MOVF        TEMP1,W
            MOVWF       INDF
            DECF        SADR,W
            SUBWF       FSR,W
            MOVWF       CNT         ;恢復字節數
            RETLW       0
           ENDIF