File VOCODS.PA (PAL assembler source file)

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

LOC9,	ZBLOCK N
LOC10,	ZBLOCK N
LOC11,	ZBLOCK N


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




/	CALL:	SIM
/		INPUT
/		OUTPUT


SIM,	2

	SEND
	1
	COERE
	LOC1
	LOC10


	TRNSMT
	COESE
	COERE
	LOC1
	LOC1
	LOC10
	LOC10


	RECEIV
	2
	COERE
	LOC1
	LOC10


	BLEND





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



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


SEND,	4


	LIMIT
	1
	PREC1
	INLEV
	LOC5


	COMPLM
	LOC5
	LOC5


	ADDER
	1
	PREC1
	LOC5
	PREC1
	ONE
	LOC5


	ZCROSS
	LOC5
	PREC1
	LOC11
	ZCTIME
	ZCNUM
	ZCSTAT


	GABEL
	SWAY1
	SWAY2
	SGABEL


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


	FWRECT
	LOC2
	PREC1
	LOC1


	CLEANR
	LOC1
	3
	OUTTP1
	CLRTP1
	CLST1


	TRSHLD
	3
	LOC4
	LEVEL1
	TRTAP1
	TRSIG1
	TRST1


	ADDER
	LOC4
	NNX14
	NM1
	NNX14
	ZERO
	3


SWAY2,	BLEND




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


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

RECEIV,	4


	GABEL
	RWAY1
	RWAY2
	RGABEL


RWAY1,	NOISE
	STN1
	PREC4
	LOC3


	PRESGN
	LOC3
	PREC4
	LOC3


	SWTCHI
	LOC3
	ZERO
	LOC3
	LOC11
	PREC9


	SWTCHI
	ZERO
	NCONST
	LOC6
	LOC11
	PREC9


	EXCITR
	LOC6
	PREC1
	LOC3
	PREC4
	LOC6
	VUVST
	PREC7
	VUVDEC


	SCALSG
	LOC9
	PREC1
	PREC5
	LOC9


	ADDER
	LOC6
	NNX14
	3
	NNX14
	ZERO
	LOC6


	LADRRE
	LOC6
	PREC1
	1
	LOCTAP
	SIGRE
	2
	PREC2
	PREC6

RWAY2,	BLEND

TAPNR=14


PREC1,	14		/SIGNAL
PREC2,	14		/PRAD COEFF.
PREC3,	10		/AMPLITUDE OF PITCH PULSES
PREC4,	6		/NOISE LEVEL
PREC5,	-1		/SHIFT FOR EXC. IMPULSES
PREC6,	13		/PRECISION OF PREDICTOR
PREC7,	30		/PREC OF EXCITER STATE
PREC8,	-4		/SHIFT FOR OUTPUT
PREC9,	14		/PREC OF CLEANR STATE
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,	20		/PITCH
CLRTP1,	50
CLST1,	ZBLOCK 2
OUTTP2,	20		/INPUT LEVEL
CLRTP2,	50
CLST2,	ZBLOCK 2
NM1,	-1
	-1
	-1
	-1
	-1
INLEV,	4
	0
	0
	0
	0
ZCTIME,	240
ZCNUM,	60
ZCSTAT,	ZBLOCK 4
RGABEL,	0
SGABEL,	0
NCONST,	20
	0
	0
	0
	0



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search