Directory of image this file is from
This file as a plain text file

/********************LADDER DIGITAL FILTER************************



/CALL:	LADRDF
/	INPUT
/	INPUT PREC
/	OUTPUT
/	NR OF TAPS
/	SIGNAL DELAY LINE
/	COEFFICIENTS
/	COEFFICIENT PREC
/	COEFFICIENT ONE	/NR OF BITS FOR COEFF.=1.00000



PAGE


LADRDF,	10


	COPY
	1
	LDTEM1


	COPY
	LDTEM1
	LDTEM2


	BLOUT

	GETAD
	5
	DCA LDSTOR

	GETAD
	6
	DCA LDA0P1

	TAD LDA0P1
	DCA LDA0P2

	ACUM
	4
	CMA
	DCA LDCNT

	ACUM
	10
	CIA
	DCA LDPREC

LDLOOP,	ISZ LDCNT
	SKP
	JMP LDLOPF

	INBLIP


	DELAY
LDSTOR,	0
	LDTEM1
	LDTEM1


	MULTSG
	LDTEM1
	2
LDA0P1,	0
	7
	LDTEM3
	NNX14

	SCALE
	LDTEM3
	LDPREC
	LDTEM3


	COMPLM
	LDTEM3
	LDTEM3

	MULTSG
	LDTEM2
	2
LDA0P2,	0
	7
	LDTEM4
	NNX14


	SCALE
	LDTEM4
	LDPREC
	LDTEM4


	COMPLM
	LDTEM4
	LDTEM4

	ADDER
	LDTEM1
	NNX14
	LDTEM4
	NNX14
	ONE
	LDTEM1


	ADDER
	LDTEM2
	NNX14
	LDTEM3
	NNX14
	ONE
	LDTEM2


	BLOUT

	TAD LDSTOR
	TAD CN
	DCA LDSTOR


	TAD LDA0P1
	TAD CN
	DCA LDA0P1

	TAD LDA0P1
	DCA LDA0P2

	JMP LDLOOP


LDLOPF,	INBLIP

	COPY
	LDTEM1
	3

	BLEND


CN,	N		/TEMP USE ONLY
LDPREC,	0
LDCNT,	0
LDTEM1,	ZBLOCK N
LDTEM2,	ZBLOCK N
LDTEM3,	ZBLOCK N
LDTEM4,	ZBLOCK N