;
; This program originally available on the Motorola DSP bulletin board.
; It is provided under a DISCLAIMER OF WARRANTY available from
; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
; 
; Last Update 16 Jul 87   Version 1.0
;
                                                                                                                               
; IIR5 Filter Test Program
;
        opt     cex,mex
        page    132,66,0,10
        include 'iir5'

datin   equ     $ffff           ;location in Y memory of input file
datout  equ     $fffe           ;location in Y memory of output file
npts    equ     20              ;number of points to process

        org     x:0
states  ds      2               ;filter states

        org     y:0
coef    dc      .8/2.0,-.3/2.0,.4/2.0,-.6/2.0   ;coefficients: a1,a2,b1,b2

        org     p:$100
start
        move    #states,r0      ;point to filter states
        move    #coef,r4        ;point to filter coefficients
        move    #3,m4           ;mod 4

        do      #npts,_endp

        movep   y:datin,a       ;get sample

        iir5                    ;do biquad

        nop                     ;allow mode to change back
        nop
        movep   a,y:datout      ;output sample
_endp
        end