;********************ARIFILE********************
;本程序?qū)崿F(xiàn)算術(shù)平均值濾波（采樣值為8位，連續(xù)采樣數(shù)目小于256）。
;入口參數(shù)：采樣值數(shù)據(jù)塊首地址在SADR中，連續(xù)采樣數(shù)在W中。
;出口參數(shù)：濾波值在SOU中.
;占用資源：W,STATUS,FSR,020H,023H,024H,028H,029H,02AH,一重堆棧。
;說    明: 
           IFNDEF       ARIFILE1
            #DEFINE     ARIFILE1

ARIFILE     MOVWF       CNT
            MOVWF       TEMP3
            CLRF        TEMP2       ;TEMP2:TEMP1存放和
            MOVF        SADR,W
            MOVWF       FSR
            CLRW
NEXT49      ADDWF       INDF,W
            BTFSC       STATUS,C
            INCF        TEMP2,F
            INCF        FSR,F
            DECFSZ      CNT,F
            GOTO        NEXT49
            MOVWF       TEMP1
            CLRF        SOU         ;存放平均值
            MOVLW       8
            MOVWF       CNT         ;循環(huán)8次
LOOP91      RLF         TEMP1,F
            RLF         TEMP2,F
            BTFSC       STATUS,C
            GOTO        NEXT50
            MOVF        TEMP3,W     ;移出位為0,繼續(xù)
            SUBWF       TEMP2,W
            BTFSC       STATUS,C
            MOVWF       TEMP2       ;沒有借位,繼續(xù)
NEXT50      RLF         SOU,F
            DECFSZ      CNT,F
            GOTO        LOOP91
            RETURN      
           ENDIF