/**************** EXCITR ******************


/BLENDS NOISE IN GRADUALLY AT END OF VOICED SOUNDS


/CALL:	EXCTR
/	INPUT1			/PITCH PULSES
/	INPUT1 PRECISION
/	INPUT2			/NOISE
/	INPUT2 PRECISION
/	OUTPUT
/	STATE
/	STATE PRECISION
/	DECAY PARAMETER		/NEGATIVE!!



EXCTR,	10

	SCALSG		/UPDATE STATE
	6
	7
	10
	SLTM1

	COMPLM
	SLTM1
	SLTM1

	ADDER
	SLTM1
	NNX14
	6
	NNX14
	ONE
	6

	BLOTNT
	SLINIT

	ACUM		/SHIFT INPUT SIGNA
	2
	CIA
	ACUM
	7
	DCA SLSHFT

	INBLIP

	HWR
	1
	2
	SLTM1

	SCALSG
	SLTM1
	2
	SLSHFT
	SLTM1

	COMPLM
	6
	SLTM2

	ADDER		/PITCH - STATE
	SLTM1
	NNX14
	SLTM2
	NNX14
	ONE
	SLTM2

	SWTCHO
	SLTM1
	SLTM1
	6
	SLTM2
	7

	FWR
	3
	4
	SLTM2		/NOISE

	COMPLM
	6
	SLTM1

	ADDER
	SLTM1
	NNX14
	SLTM2
	NNX14
	ONE
	SLTM1

	HWR
	SLTM1
	7
	SLTM3

	COMPLM
	SLTM3		/SLIDING NOISE
	SLTM2		/-SLIDING NOISE

	SWTCHI
	SLTM3
	SLTM2
	5
	3
	4

	BLEND


SLINIT,	INBLIP

	COPY
	ZERO
	6

	COPY
	ZERO
	5

	BLEND


SLTM1,	ZBLOCK N
SLTM2,	ZBLOCK N
SLTM3,	ZBLOCK N
SLSHFT,	0