/********************MAIN PROGRAMM*****************************:


/	CALL:	SIM
/		INPUT
/		OUTPUT


SIM,	2


	SCALSG
	1
	NNX14
	INPREC
	LOC1


	LADRPD
	LOC1
	PREC1
	LOC2
	LOCTAP
	SIGSE
	COESE
	PREC2
	PREC3
	IGRST1
	IGRST2
	LOCTC


	FWRECT
	LOC2
	PREC1
	LOC1


	MULTSG
	LOC1
	PREC1
	LOC1
	PREC1
	LOC3
	NNX14

	SCALSG
	LOC3
	NNX14
	PREC6
	LOC3



	COPY
	ZERO
	LOC4


	CLEANR
	LOC3
	LOC4


	SCALSG
	LOC4
	PREC1
	PREC9
	LOC5


	LADRRE
	LOC5
	PREC1
	LOC8
	LOCTAP
	SIGRE
	COESE
	PREC2
	PREC3


	SCALSG
	LOC8
	NNX14
	OUTPRC
	2

	BLEND

TAPNR=20


INPREC,	0		/SCALE INPUT SIGNAL
OUTPRC,	0
PREC1,	14		/SIGNAL
PREC2,	14		/PRAD COEFF.
PREC3,	13		/NR OF BITS AFTER POINT IN COEFFICIENTS
PREC4,	30		/PREC OF INPUT SIGNAL TO PITEX
PREC5,	30
PREC6,	10		/NOISE LEVEL
PREC7,	14		/PREC OF 2. PITEX STATE
PREC8,	-10		/EXC LEVEL
PREC9,	0		/IMPULSE AMPLITUDE
NOISST,	0
LOCTC,	4
LOCTAP,	TAPNR
COESE,	ZBLOCK TAPNR^N
SIGSE,	ZBLOCK TAPNR^N
SIGRE,	ZBLOCK TAPNR^N+N
IGRST1,	ZBLOCK TAPNR^N
IGRST2,	ZBLOCK TAPNR^N
PSTATS,	ZBLOCK N
PSTATR,	ZBLOCK N
PST2SE,	0
PST2RE,	0
DECAYS,	-5
DECAYR,	-10
MINSE,	0
	0
	0
	0
	0
MINRE,	0
	0
	0
	0
	0
DECRSE,	3
	0
	0
	0
	0
DECRRE,	40
	0
	0
	0
	0