File MFVCDB.3

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





FIELD 1

*2000

INIT,	0
	CDF 10
	NTBLIP
	NEWDAT
	CDF 20


	INBLIP

	SIM
	ZERO
	OUTPUT

	BLNTOF
	BLOUT

	CIF 0
	
	JMS I INIT

CODEC,	0
	CDF 20
	DCA I INPUTP
	CDF 10
	INBLIP


	BLFELD
	CDF 20


	PRESGN
	INPUT
	PREC1
	INPUT


	BLFELD
	CDF 10


	SIM
	INPUT
	OUTPUT


	BLOUT
	CDF 20
	TAD I OUTPTP
	CDF 10
	CIF 0
	JMP I CODEC



INPUTP,	INPUT
OUTPTP,	OUTPUT



/********************MAIN PROGRAMM*****************************: / CALL: SIM / INPUT / OUTPUT SIM, 2 BLFELD CDF 10 SEND 1 COESE LOC1 LOC10 BLFELD CDF 10 TRNSMT COESE COERE LOC1 LOC4 LOC10 LOC11 BLFELD CDF 10 RECEIV 2 COERE LOC4 LOC11 BLEND
/************************* SEND END ***************************** / CALL: SEND / INPUT / COEFFICIENTS OUT / PITCH OUT / LEVEL OUT SEND, 4 BLFELD CDF 20 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 LDTEM6 ADDER / (/A/-/B/) LDTEM3 NNX14 LDTEM6 NNX14 ONE LDTEM5 HWRECT LDTEM5 NNX14 LDTEM5 ADDER / (/B/+(/A/-/B/)GLEICHGER.) LDTEM4 NNX14 LDTEM5 NNX14 ZERO LDTEM7 MULTSG LDTEM1 NNX14 LDTEM7 NNX14 LOC1 NNX14 FWRECT LOC1 PREC1 LOC1 PCLEAN LOC1 NUM24 LOC8 OUTTP1 CLRTP1 CLST1 CLREG1 TRSHLD LOC8 LOC4 LEVEL1 TRTAP1 TRSIG1 TRST1 LEVEL2 TRTAP2 TRSIG2 TRST2 FWRECT LOC2 PREC1 LOC7 PCLEAN LOC7 NNX14 LOC7 OUTTP2 CLRTP2 CLST2 CLREG2 PRESGN CLST2 NUM14 LOC11 ADDER LOC4 NNX14 NM1 NNX14 ZERO LOC4 SWTCHI LOC11 ZERO LOC7 LOC4 NUM24 ADDER /ADD -1 FOR PROPER CONTROL SIGNAL LOC7 NNX14 NM1 NNX14 ZERO 3 BLEND
/********************** RECEIVE END ************************ / CALL: RECEIV / OUTPUT / COEFF. IN / PITCH IN / LEVEL IN RECEIV, 4 BLFELD CDF 20 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
/ CALL: TRNSMT / COEFF. IN / COEFF. OUT / PITCH IN / PITCH OUT / LEVEL IN / LEVEL OUT TRNSMT, 6 BLFELD CDF 20 MOVE /COE PITCH SYNC SEND END COESE LOCF2 LOCTAP 3 NNX14 COEPS LOCF2 SPCNT TRTEM A0RATE CNTST SPCNT TRTM2 LVRATE CNTST2 MOVE /COE CONST RATE COEPS LOCF2 LOCTAP TRTEM NNX14 COERET LOCF2 BLFELD CDF 10 PITCOD 3 TRTEM PITDCD TRTEM TRTEM BLFELD CDF 20 PRESGN TRTEM NUM14 TRTEM ADDER /ADD -1 FOR PROPER CONTROL SIGNAL TRTEM NNX14 NM1 NNX14 ZERO 4 MOVE /LEVEL PITCH SYNC 5 LOCF2 ONE 4 NNX14 TRTM1 LOCF2 MOVE /LEVEL CONST RATE TRTM1 LOCF2 ONE TRTM2 NNX14 6 LOCF2 MOVE /COE PITCH SYNC REC. END COERET LOCF2 LOCTAP 4 NNX14 COERE LOCF2 BLEND F1NEXT=.
FIELD 2 *3000 TAPNR=14 INPUT, ZBLOCK N OUTPUT, ZBLOCK N LOC9, ZBLOCK N LOC10, ZBLOCK N LOC11, ZBLOCK N PREC1, 14 /SIGNAL PREC2, 14 /PRAD COEFF. PREC4, 6 /NOISE LEVEL PREC5, 1 /SHIFT FOR EXC. IMPULSES PREC6, 6 /PRECISION OF PREDICTOR PREC7, 30 /PREC OF EXCITER STATE PREC8, -4 /SHIFT FOR OUTPUT PREC10, -1 /SHIFT FOR EXC. SIGNAL BEFORE LIMIT NUM14, 14 NUM24, 24 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 COEPS, ZBLOCK TAPNR^N COERET, ZBLOCK TAPNR^N VUVDEC, -6 VUVST, ZBLOCK N MAXSEL, PITSTR C4 CN PITPTR PITSTR, ZBLOCK 4^N C2, 2 C3, 3 C4, 4 PITPTR, 0 TRSIG1, ZBLOCK 10^N /AMPLITUDE CHECK LEVEL1, -2 TRTAP1, 4 TRST1, 0 TRSIG2, ZBLOCK 10 /TIME CHECK LEVEL2, -3 TRTAP2, 4 TRST2, 0 OUTTP1, 30 CLRTP1, 40 CLST1, 0 CLREG1, ZBLOCK N OUTTP2, 10 CLRTP2, 40 CLST2, 0 CLREG2, ZBLOCK N NM1, -1 -1 -1 -1 -1 OUTLEV, 20 0 0 0 0 PITLIM, 340 0 0 0 0 A0RATE, 200 CNTST, 0 LVRATE, 200 CNTST2, 0 LOCF1, CDF 10 LOCF2, CDF 20 TRTEM, ZBLOCK N /TEM. LOCS. FOR TRNSMT TRTM1, ZBLOCK N TRTM2, ZBLOCK N F2NEXT=.



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