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


LOC9,	ZBLOCK N
LOC10,	ZBLOCK N


/	CALL:	SIM
/		INPUT
/		OUTPUT


SIM,	2


	LADRPD
	1
	PREC1
	LOC2
	LOCTAP
	SIGSE
	COERE
	PREC2
	PREC6
	IGRST1
	IGRST2
	LOCTC


	FWRECT
	LOC2
	PREC1
	LOC1


	CLEANR
	LOC1
	LOC8


	FWRECT
	1
	PREC1
	LOC7


	PITEX
	LOC7
	PREC1
	LOC7
	VOLST
	PREC1
	ZERO
	VOLTC1
	VOLTC2
	VOLCNT


	TRSHLD
	LOC8
	LOC4
	LEVEL1
	TRTAP1
	TRSIG1
	TRST1


	ADDER
	LOC4
	NNX14
	NM1
	NNX14
	ZERO
	LOC1


	SWTCHO
	VOLST
	LOC7
	LOC10
	LOC1
	PREC1


	NOISE
	STN1
	PREC4
	LOC3


	PRESGN
	LOC3
	PREC4
	LOC3


	SWTCHI
	LOC10
	ZERO
	LOC9
	LOC1
	PREC1


	EXCITR
	LOC9
	PREC1
	LOC3
	PREC4
	LOC6
	VUVST
	PREC7
	VUVDEC


	ADDER
	LOC6
	NNX14
	LOC9
	NNX14
	ZERO
	LOC6


	LADRRE
	LOC6
	PREC1
	LOC5
	LOCTAP
	SIGRE
	COERE
	PREC2
	PREC6


	LIMIT
	LOC10
	PREC1
	OUTLEV
	LOC7


	MULTSG
	LOC5
	PREC1
	LOC7
	PREC1
	LOC5
	NNX14


	SCALSG
	LOC5
	NNX14
	PREC8
	2

	BLEND

TAPNR=14


PREC1,	14		/SIGNAL
PREC2,	14		/PRAD COEFF.
PREC3,	10		/AMPLITUDE OF PITCH PULSES
PREC4,	5		/NOISE LEVEL
PREC6,	13		/PRECISION OF PREDICTOR
PREC7,	30		/PREC OF EXCITER STATE
PREC8,	-3		/SHIFT FOR OUTPUT
STN1,	0
LOCTC,	5
LOCTAP,	14
COESE,	ZBLOCK TAPNR^N
COERE,	ZBLOCK TAPNR^N
SIGSE,	ZBLOCK TAPNR^N
SIGRE,	ZBLOCK TAPNR^N+N
IGRST1,	ZBLOCK TAPNR^N
IGRST2,	ZBLOCK TAPNR^N
VUVDEC,	-6
VUVST,	ZBLOCK N
TRSIG1,	ZBLOCK 20^N
LEVEL1,	-2
TRTAP1,	4
TRST1,	0
VOLTC1,	0
VOLTC2,	-5
VOLST,	ZBLOCK N
VOLCNT,	0
NM1,	-1
	-1
	-1
	-1
	-1
OUTLEV,	10
	0
	0
	0
	0