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

FIELD 2

TAPNR=14

*1000

COEPS,	ZBLOCK TAPNR^N
COERET,	ZBLOCK TAPNR^N


FIELD 1

*4000

INIT,	0
	CDF 10
	NTBLIP


	INBLIP
	SIM
	ZERO
	OUTPUT
	BLNTOF
	BLOUT


	CIF 0
	
	JMS I INIT

CODEC,	0
	CDF 10
	DCA INPUT
	INBLIP


	PRESGN
	INPUT
	PREC1
	INPUT

	SIM
	INPUT
	OUTPUT


	BLOUT
	TAD OUTPUT
	CIF 0
	JMP I CODEC


INPUT,	ZBLOCK N
OUTPUT,	ZBLOCK N




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


LOC9,	ZBLOCK N
LOC10,	ZBLOCK N


/	CALL:	SIM
/		INPUT
/		OUTPUT


SIM,	2

	SEND
	1
	COESE
	LOC1
	LOC10


	TRNSMT
	COESE
	COERE
	LOC1
	LOC1
	LOC10
	LOC10
	LOC1


	RECEIV
	2
	COERE
	LOC1
	LOC10


	BLEND





/************************* SEND END *****************************



/	CALL:	SEND
/		INPUT
/		COEFFICIENTS OUT
/		PITCH OUT
/		LEVEL OUT


SEND,	4


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


	SHFTRG
	MAXSEL
	LOC2


	TAP
	C2
	LDTEM1/	D1


	SCALSG
	LDTEM1
	PREC1
	ONE
	LDTEM3	/2*D1


	TAP
	ONE
	LDTEM2


	COMPLM
	LDTEM2
	LDTEM2	/-D0


	ADDER
	LDTEM2
	NNX14
	LDTEM3
	NNX14
	ONE
	LDTEM3	/2*D1-D0


	TAP
	C3
	LDTEM4	/D2


	COMPLM
	LDTEM4
	LDTEM5	/-D2


	ADDER
	LDTEM3
	NNX14
	LDTEM5
	NNX14
	ONE
	LDTEM3	/T1


	ADDER
	LDTEM1
	NNX14
	LDTEM4
	NNX14
	ZERO
	LDTEM4	/D1+D2


	ADDER
	LDTEM4
	NNX14
	LDTEM2
	NNX14
	ONE
	LDTEM4	/D1+D2-D0


	TAP
	C4
	LDTEM2


	COMPLM
	LDTEM2
	LDTEM2	/-D3


	ADDER
	LDTEM2
	NNX14
	LDTEM4
	NNX14
	ONE
	LDTEM4	/T2


	FWRECT
	LDTEM4
	NNX14
	LDTEM4


	FWRECT
	LDTEM3
	NNX14
	LDTEM3


	COMPLM
	LDTEM4
	LDTEM4


	ADDER
	LDTEM3
	NNX14
	LDTEM4
	NNX14
	ONE
	LDTEM5


	HWRECT
	LDTEM5
	NNX14
	LDTEM5


	ADDER
	LDTEM4
	NNX14
	LDTEM5
	NNX14
	ZERO
	LDTEM5


	MULTSG
	LDTEM1
	NNX14
	LDTEM5
	NNX14
	LOC1
	NNX14


	FWRECT
	LOC1
	NNX14
	LOC1


	SCALSG
	LOC1
	NNX14
	PREC3
	LDTEM1


	LIMIT
	LDTEM1
	NNX14
	RESLIM
	LOC1


	CLEANR
	LOC1
	LOC8
	OUTTP1
	CLRTP1
	CLST1


	TRSHLD
	LOC8
	LOC4
	LEVEL1
	TRTAP1
	TRSIG1
	TRST1


	ADDER
	LOC4
	NNX14
	NM1
	NNX14
	ZERO
	3


	FWRECT
	1
	PREC1
	LOC7


	CLEANR
	LOC7
	LOC7
	OUTTP2
	CLRTP2
	CLST2


	PRESGN
	CLST2
	PREC9
	LOC7


	SWTCHO
	LOC7
	LOC7
	4
	LOC1
	PREC1


	BLEND




/********************** RECEIVE END ************************


/	CALL:	RECEIV
/		OUTPUT
/		COEFF. IN
/		PITCH IN
/		LEVEL IN

RECEIV,	4


	SWTCHI
	4
	ZERO
	LOC9
	3
	PREC1


	NOISE
	STN1
	PREC4
	LOC3


	PRESGN
	LOC3
	PREC4
	LOC3


	EXCITR
	LOC9
	PREC1
	LOC3
	PREC4
	LOC6
	VUVST
	PREC7
	VUVDEC


	PRESGN
	LOC9
	PREC1
	LOC9


	SCALSG
	LOC9
	NNX14
	PREC5
	LOC9


	ADDER
	LOC6
	NNX14
	LOC9
	NNX14
	ZERO
	LOC6


	SCALSG
	LOC6
	NNX14
	PREC10
	LOC6


	LIMIT
	LOC6
	NNX14
	PITLIM
	LOC6


	LADRRE
	LOC6
	NNX14
	LOC5
	LOCTAP
	SIGRE
	2
	PREC2
	PREC6


	LIMIT
	4
	PREC1
	OUTLEV
	LOC7


	MULTSG
	LOC5
	PREC1
	LOC7
	PREC1
	LOC5
	NNX14


	SCALSG
	LOC5
	NNX14
	PREC8
	1

	BLEND



PREC1,	14		/SIGNAL
PREC2,	14		/PRAD COEFF.
PREC3,	-14		/SHIFT FOR INPUT TO CLEANR
PREC4,	7		/NOISE LEVEL
PREC5,	1		/SHIFT FOR EXC. IMPULSES
PREC6,	6		/PRECISION OF PREDICTOR
PREC7,	30		/PREC OF EXCITER STATE
PREC8,	-4		/SHIFT FOR OUTPUT
PREC9,	14		/PREC OF CLEANR STATE
PREC10,	-2		/SHIFT FOR EXC. SIGNAL BEFORE LIMIT
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 4^N
LEVEL1,	-2
TRTAP1,	4
TRST1,	0
OUTTP1,	30
CLRTP1,	40
CLST1,	ZBLOCK 2
OUTTP2,	10
CLRTP2,	40
CLST2,	ZBLOCK 2
NM1,	-1
	-1
	-1
	-1
	-1
OUTLEV,	20
	0
	0
	0
	0
PITLIM,	340
	0
	0
	0
	0
A0RATE,	200
CNTST,	0
LOCF1,	CDF 10
LOCF2,	CDF 20
MAXSEL,	PITSTR
	C4
	CN
	PITPTR
PITSTR,	ZBLOCK 4^N
C2,	2
C3,	3
C4,	4
PITPTR,	0
RESLIM,	3777
	0
	0
	0
	0

/	CALL:	TRNSMT
/		COEFF. IN
/		COEFF. OUT
/		PITCH IN
/		PITCH OUT
/		LEVEL IN
/		LEVEL OUT
/		CONTROL SIGNAL



TRNSMT,	7


	MOVE
	COESE
	LOCF1
	LOCTAP
	7
	PREC9
	COEPS
	LOCF2


	SPCNT
	TRTEM
	A0RATE
	CNTST


	MOVE
	COEPS
	LOCF2
	LOCTAP
	TRTEM
	NNX14
	COERET
	LOCF2


	MOVE
	COERET
	LOCF2
	LOCTAP
	7
	PREC9
	COERE
	LOCF1


	PITCOD
	3
	TRTEM


	PITDCD
	TRTEM
	4


	COPY
	5
	6


	BLEND

TRTEM,	ZBLOCK N