/*FIRERIC.C - FIR FILTER WITH SAMPLES SHIFTED            */
#include "aiccomc.c"         /*include AIC com routines  */
#include "bp45coef.h"        /*include coefficient file  */
#define N 45                 /*length of impulse response*/
float DLY[N*2-1];            /*init for 2*N-1 samples    */
int data_in, data_out;
int AICSEC[4]={0x162C,0x1,0x3872,0x67}; /*AIC config data*/

void filt(float *h,float *dly,int *IO_input,int *IO_output,int n)       
{
  float acc=0.0;             /*init accumulator          */
  int   i,j,k=n-1;           /*index variables           */ 
  for (i = 0; i<N*2-1; i++) DLY[i] = 0.0;  /*init samples*/
  for (i=0;i<n;i++)
  {
    asm ("       idle");     /*wait for interrupt        */
    dly[i+k] =*IO_input;     /*get new sample            */
    for (j=0;j<n;j++)                        
       acc += h[j]*dly[i+j]; /*perform convolution       */       
    *IO_output=acc;          /*output new value          */
    acc=0.0;                 /*reset accumulator         */
  }                                                    
    for (i=0;i<k;i++)        /*shift values from         */
       dly[i]=dly[i+n];      /*lower half to upper half  */
}

void c_int05()
{
data_in = UPDATE_SAMPLE(data_out);
}

main()
{
int *IO_INPUT, *IO_OUTPUT;
IO_INPUT = &data_in;
IO_OUTPUT = &data_out;
AICSET_I();
for(;;)
 filt((float *)H,(float *)DLY,(int*)IO_INPUT,(int *)IO_OUTPUT,N);
}