/DEMONSTRATION FILTER


FIELD 1



*4000



TAPNUM=25




INIT,	0
	CDF CIF 10
	CLA
	TAD MTAP
	DCA COUNT
	TAD SIGADD
	DCA SIGPOI
	DCA I SIGPOI
	ISZ SIGPOI
	ISZ COUNT
	JMP .-3
	CIF 0
	JMS I INIT

FILTER,	0
	CDF CIF 10
	DCA INPUT
	SWBA
	CAM
	TAD SIGADD
	DCA SIGPOI
	TAD COEADD
	DCA COEPOI
	TAD MTAP
	DCA COUNT
	DCA OUTPUT

	TAD INPUT
	SWP
	TAD I SIGPOI
	SWP
	DCA I SIGPOI
	ISZ SIGPOI
	ISZ COUNT
	JMP .-5

	CAM
	TAD MTAP
	DCA COUNT
	TAD SIGADD
	DCA SIGPOI

LOOP,	DCA SIGNFL
	TAD I COEPOI
	SPA
	ISZ SIGNFL
	SPA
	CIA
	DCA MULTIP

	TAD I SIGPOI
	SPA
	ISZ SIGNFL
	SPA
	CIA
	MQL MUY
MULTIP,	0

	MQL
	TAD SIGNFL
	RAR
	CLA SWP
	SZL
	CIA
	TAD OUTPUT
	DCA OUTPUT
	ISZ COEPOI
	ISZ SIGPOI
	ISZ COUNT
	JMP LOOP
	TAD OUTPUT
	CIF 0
	JMP I FILTER


OUTPUT,	0
INPUT,	0
SIGPOI,	0
COEPOI,	0
COUNT,	0
MTAP,	-TAPNUM
SIGNFL,	0
COEADD,	COETAB
SIGADD,	SIGTAB
SIGTAB,	ZBLOCK TAPNUM

COETAB,	17
	35
	37
	-26
	-221
	-363
	-177
	521
	2075
	3342
	3776
	3342
	2075
	521
	-177
	-363
	-221
	-26
	37
	35
	17




$$$$$$$$$$$$$$$$$$$$$$$$