fir1.asm

dsp fir滤波！！！！！ 有要的请下载！！！！！ 我还有其他的

 ;fir            
             .mmregs
             .global start
             .def    start, _c_int00
           
INDEX      .set  1
KS         .set 256
   
   
N          .set 6
COEF_FIR   .sect "COEF_FIR"
             .word 1,2,3,4,5,6
             
             .data
INPUT      .copy  "firin.inc"
OUTPUT     .space 1024
COEFTAB    .usect "FIR_COEF",N 
DATABUF    .usect "FIR_BFR",N
BOS        .usect "STACK",0Fh
TOS        .usect "STACK",1
             .text
             .asg AR0,INDEX_P  
             .asg AR4,DATA_P 
             .asg AR5,COEF_P 
             .asg AR6,INBUF_P 
             .asg AR7,OUTBUF_P 
             
_c_int00
             b start
             nop
             nop
start:    SSBX    FRCT
             STM     #COEFTAB,COEF_P   
             RPT     #N-1
             MVPD    #COEF_FIR,*COEF_P+
             STM     #INDEX,INDEX_P  
             STM     #DATABUF,DATA_P
             RPTZ    A,#N-1
             STL     A,*DATA_P+
             STM     #(DATABUF+N-1),DATA_P
             STM     #COEFTAB,COEF_P
FIR_TASK:
             
             STM     #INPUT,INBUF_P
             STM     #OUTPUT,OUTBUF_P
             STM     #KS-1,BRC
             RPTBD   LOOP-1
             STM     #N,BK
             LD      *INBUF_P+,A
FIR_FILTER:
             STL     A,*DATA_P+%
             RPTZ    A,N-1
             MAC     *DATA_P+0%,*COEF_P+0%,A
             STH     A,*OUTBUF_P+
             
LOOP:    
EEND     B    EEND
            
            .end