PAGE



/***************LINEAR DIGITAL FILTER **************************


/CALL:	LINDF
/	INPUT
/	INPUT PRECISION
/	OUTPUT
/	OUTPUT PRECISION
/	NR OF TAPS
/	SIGNAL DELAY LINE
/	COEFFICIENTS
/	COEFF. PRECISION
/	STATE			/POINTER FOR SHFTREG

/FIRST COEFFICIENT USED FOR UNDELAYED INPUT SIGNAL
/NR OF TAPS = NR OF SHIFTREGISTER CELLS MUST BE ONE MORE
/THAN THE NR OF DELAYS REQUIRED



LINDF,	11


	COPY
	ZERO
	DFTEM2


	SHFTRG
	DFSHFT
	1

	BLOUT
	CLA IAC
	DCA DFTAPN

	GETAD
	7
	DCA DFA0P

	ACUM
	5
	CMA
	DCA DFCNT

DFLOOP,	ISZ DFCNT
	SKP
	JMP DFLPF


	INBLIP


	TAP
	DFTAPN
	DFTEM1


	MULTSG
	DFTEM1
	2
DFA0P,	0
	10
	DFTEM1
	4


	ADDER
	DFTEM1
	NNX14
	DFTEM2
	NNX14
	ZERO
	DFTEM2


	CHOP		/CHOP DF - AC
	DFTEM2
	4
	DFTEM2


	BLOUT

	ISZ DFTAPN
	TAD NN
	TAD DFA0P
	DCA DFA0P
	JMP DFLOOP

DFLPF,	INBLIP


	COPY
	DFTEM2
	3


	BLEND


DFSHFT,	6		/SHIFTREGISTER TABLE
	5
	CN
	11
DFCNT,	0
CN,	N	/ONLY TEMP!!!!
DFTAPN,	0
DFTEM1,	ZBLOCK N
DFTEM2,	ZBLOCK N