File SIMBKM.4

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



FIELD 1

*F1NXT



PAGE


/********************LADDER PREDICTOR*****************************




/CALL:	LADRPD
/	INPUT
/	INPUT PREC
/	OUTPUT
/	NR OF TAPS
/	SIGNAL DELAY LINE	/FIELD 1
/	COEFFICIENT STORE	/FIELD 2
/	COEFFICIENT PREC
/	INTEGRATOR1 STATES
/	INTEGRATOR2 STATES
/	INTEGRATOR TIME CONSTANT
/	SCALE INPUT




LADRPD,	13


	SCALSG
	1
	2
	13
	LDTEM1


	COPY
	LDTEM1
	LDTEM2


	BLOUT

	GETAD
	5
	DCA LDSTOR

	GETAD
	6
	DCA LDA0S

	ACUM
	4
	CMA
	DCA LDCNT

	GETAD
	7
	DCA LDPRCP

	GETAD
	10
	DCA I LDST1P

	GETAD
	11
	DCA I LDST2P

LDLOOP,	ISZ LDCNT
	SKP
	JMP LDLOPF

	CLA CMA
	TAD I LDPRCP
	DCA LDPPRC
	TAD LDPPRC
	CIA
	DCA LDPREC

	ACUM
	13
	CIA
	DCA LDOUTS

	INBLIP


	DELAY
LDSTOR,	0
	LDTEM1
	LDTEM1
	

	BLJUMP
	LDPAGE




LDBACK,	MULTSG
	LDTEM1
	NNX14
	LDTEM7
	NNX14
	LDTEM3
	NNX14

	SCALSG
	LDTEM3
	NNX14
	LDPREC
	LDTEM3


	COMPLM
	LDTEM3
	LDTEM3

	MULTSG
	LDTEM2
	NNX14
	LDTEM7
	NNX14
	LDTEM4
	NNX14


	SCALSG
	LDTEM4
	NNX14
	LDPREC
	LDTEM4


	COMPLM
	LDTEM4
	LDTEM4

	ADDER
	LDTEM1
	NNX14
	LDTEM4
	NNX14
	ONE
	LDTEM1


	ADDER
	LDTEM2
	NNX14
	LDTEM3
	NNX14
	ONE
	LDTEM2


	BLOUT

	TAD I LDTM7P
	CDF 20
	DCA I LDA0S
	CDF 10
	ISZ LDA0S
	ISZ LDPRCP

	TAD LDSTOR
	TAD NN
	DCA LDSTOR


	TAD I LDST1P
	TAD NN
	DCA I LDST1P

	TAD I LDST2P
	TAD NN
	DCA I LDST2P

	JMP LDLOOP


LDLOPF,	INBLIP

	SCALSG
	LDTEM2
	NNX14
	LDOUTS
	3

	BLEND

LDA0S,	0
LDTM7P,	LDTEM7
LDPRCP,	0
LDPPRC,	0
LDOUTS,	0



LDST1P,	LDST1
LDST2P,	LDST2
LDPREC,	0
LDCNT,	0
LDTEM1,	ZBLOCK N
LDTEM2,	ZBLOCK N
LDTEM3,	ZBLOCK N
LDTEM4,	ZBLOCK N
LDTEM5,	ZBLOCK N
LDTEM6,	ZBLOCK N
LDTEM7,	ZBLOCK N
LDLIM1,	7777
	7777
	7777
	7777
	3777





LDPAGE, SCALSG LDTEM1 NNX14 LDOUTS LDTEM7 SCALSG LDTEM2 NNX14 LDOUTS LDTEM4 ADDER LDTEM7 NNX14 LDTEM4 NNX14 ZERO LDTEM5 MULTSG LDTEM5 NNX14 LDTEM5 NNX14 LDTEM5 NNX14 COMPLM LDTEM7 LDTEM6 ADDER LDTEM6 NNX14 LDTEM4 NNX14 ONE LDTEM6 MULTSG LDTEM6 NNX14 LDTEM6 NNX14 LDTEM6 NNX14 ADDER LDTEM5 NNX14 LDTEM6 NNX14 ZERO LDTEM7 SMIGTR LDTEM7 NNX14 LDTEM7 LDLIM1 12 12 LDST1, 0 COMPLM LDTEM6 LDTEM6 ADDER LDTEM5 NNX14 LDTEM6 NNX14 ONE LDTEM5 SMIGTR LDTEM5 NNX14 LDTEM5 LDLIM1 12 12 LDST2, 0 SCALSG LDTEM7 NNX14 LDPREC LDTEM7 DIVSG LDTEM5 NNX14 LDTEM7 NNX14 LDTEM7 NNX14 LDBACK BLJUMP LDBACK /********************LADDER RECEIVE END FILTER********************** /CALL: LADRRE / INPUT / INPUT PREC / OUTPUT / NR OF TAPS / SIGNAL DELAY LINE / COEFFICIENT STORE /FIELD 2 / COEFFICIENT PREC / INPUT SCALE PAGE LADRRE, 10 SCALSG 1 2 10 LDTEM2 BLOUT GETAD 5 DCA RESIG2 TAD RESIG2 TAD NN DCA RESIG1 CLA CMA ACUM 4 DCA RECNT /TEMUSE GETAD 6 TAD RECNT DCA REA01 GETAD 7 TAD RECNT DCA REPRCP CLA IAC TAD RECNT CMA DCA RECNT ACUM 10 CIA DCA REOUTS INBLIP BLOTNT REINIT RELOOP, ISZ RECNT SKP JMP RELOPF TAD RESIG1 DCA RESIG4 TAD I REPRCP DCA REPREC CLA CMA TAD I REPRCP CIA DCA RESCL CDF 20 TAD I REA01 CDF 10 DCA REA0 INBLIP MULTSG RESIG1, 0 NNX14 REA0 REPREC LDTEM3 NNX14 SCALSG LDTEM3 NNX14 RESCL LDTEM3 ADDER LDTEM2 NNX14 LDTEM3 NNX14 ZERO LDTEM2 MULTSG LDTEM2 NNX14 REA0 REPREC LDTEM4 NNX14 SCALSG LDTEM4 NNX14 RESCL LDTEM4 COMPLM LDTEM4 LDTEM4 ADDER RESIG4, 0 /READ POINTER NNX14
LDTEM4 NNX14 ONE RESIG2, 0 /DEPOSIT POINTER BLOUT TAD RESIG1 DCA RESIG2 TAD RESIG1 TAD NN DCA RESIG1 TAD RESIG2 /DEPOSIT POINTER DCA RESIG3 CLA CMA TAD REA01 DCA REA01 CLA CMA TAD REPRCP DCA REPRCP JMP RELOOP REINIT, TAD WORDCT DCA COUNT DCA I RESIG2 ISZ RESIG2 ISZ COUNT JMP .-3 ISZ RECNT JMP REINIT INEND REPRCP, 0 REA01, 0 REA0, 0 REPREC, 0 RECNT, 0 RESCL, 0 REOUTS, 0 PAGE RELOPF, INBLIP COPY LDTEM2 RESIG3, 0 SCALSG LDTEM2 NNX14 REOUTS 3 BLEND
/*************** SWITCH ************************* /CALL: SWTCHI / INPUT1 / INPUT2 / OUTPUT / CONTROL SIGNAL / PRECISION OF CONTROL SIGNAL /CALL: SWTCHO / INPUT / OUTPUT1 / OUTPUT2 / CONTROL SIGNAL / PRECISION OF CONTROL SIGNAL /IF CONTROL SIGNAL POSITIVE SIGNAL 1 AND 3 ARE CONNECTED SWTCHI, 5 BLOUT CLA CLL IAC RAL /AC_2 DCA SWARG1 CLL CML CLA IAC RAL /AC_3 DCA SWARG2 SWSTRT, JMS SIGNGT SZL CLA JMP SW2 INBLIP COPY 1 3 BLEND SW2, INBLIP COPY SWARG1, 0 SWARG2, 0 BLEND SIGNGT, 0 GETAD 4 DCA TM2POI ACUM 5 DCA PRECIS JMS SIGNSR JMP I SIGNGT SWTCHO, 5 BLOUT CLA IAC /AC_1 DCA SWARG1 CLA CLL IAC RAL /AC_2 DCA SWARG2 JMP SWSTRT
/*************** CLEANER FOR NNX14 BIT WORDS ************************ /CALL: PCLEAN / INPUT / INPUT PRECISION / OUTPUT / OUTPUT TAP / CLEAR TAP / COUNT /ONE WORD STATE / REGISTER /ZBLOCK N STATE PCLEAN, 7 BLOUT GETAD 6 DCA CLCNTP INBLIP BLOTNT CLINIT INBLIP COMPLM 1 CLTEM1 ADDER CLTEM1 NNX14 7 NNX14 ONE CLTEM1 BLOUT CLA TAD CLTM1P DCA TM2POI ACUM 2 DCA PRECIS JMS SIGNSR SNL CLA JMP CLREJ CLINIT, DCA I CLCNTP /RESET COUNT INBLIP COPY /INPUT BIGGER THAN REG. 1 7 COPY ZERO 3 BLEND CLREJ, ISZ I CLCNTP /INPUT SMALLES THAN REG. NOP ACUM 4 CIA TAD I CLCNTP CLA SZA JMP CLOVER INBLIP COPY /DO OUTPUT 7 3 BLOUT CLCONT, ACUM /CHECK FOR CLEAR REG. 5 CIA TAD I CLCNTP SMA CLA JMP CLCLER INEND CLOVER, INBLIP /NO OUTPUT BUT CHECK FOR CLEAR COPY ZERO 3 BLOUT JMP CLCONT CLCLER, DCA I CLCNTP /CLEAR REGISTER AND COUNT INBLIP COPY ZERO 7 BLEND CLTEM1, ZBLOCK N CLTM1P, CLTEM1 CLCNTP, 0
PAGE /*******************SIMPLE INTEGRATOR*************************** /CALL: SMIGTR / INPUT / INPUT PREC / OUTPUT / STATE LIMIT /STATE*2^STATE POINT (MAX,MIN) / TIME CONSTANT /BINARY LOG OF ALPHA / STATE POINT /NR OF BITS RIGHT OF POINT IN STATE / STATE /LAST OUTPUT * 2^STATE POINT (N WORDS) SMIGTR, 7 BLOTNT IGRINT ACUM 5 SPA TYDER /TIME CONST. MUST BE POSITIVE CIA DCA IGRM5A ACUM 6 CIA DCA IGRM6A INBLIP SCALSG 7 NNX14 IGRM5A IGRTM1 COMPLM IGRTM1 IGRTM1 ADDER IGRTM1 NNX14 7 NNX14 ONE IGRTM1 SCALSG 1 2 6 IGRTM2 ADDER IGRTM1 NNX14 IGRTM2 NNX14 ZERO IGRTM1 LIMIT IGRTM1 NNX14 4 7 IGREND, SCALSG 7 NNX14 ZERO /OUTPUT=STATE PRECISION!!!! 3 BLEND IGRINT, INBLIP COPY ZERO 7 BLJUMP IGREND IGRTM1, ZBLOCK N IGRTM2, ZBLOCK N IGRM5A, 0 IGRM6A, 0
/***************** RECTIFIERS ************************ /CALL: HWRECT /HALF WAVE RECTIFIER / INPUT / INPUT PRECISION / OUTPUT /CALL: FWRECT /FULL WAVE RECTIFIER / INPUT / INPUT PRECISION / OUTPUT HWRECT, 3 BLOUT JMS RECTGT FWREND, JMS HWRSR INEND FWRECT, 3 BLOUT JMS RECTGT SNL JMP FWREND JMP RCTEND HWRSR, 0 CLA TAD WORDCT DCA COUNT HWROUT, SNL TAD I INPOI DCA I TM1POI ISZ INPOI ISZ TM1POI ISZ COUNT JMP HWROUT JMP I HWRSR RECTGT, 0 JMS ARGET1 TAD OUTPOI DCA TM1POI TAD INPOI DCA TM2POI JMS SIGNSR JMP I RECTGT SIGNSR, 0 CLL CLA CMA SGNLP1, TAD PRECIS TAD NM14 SPA JMP WRDFND DCA PRECIS ISZ TM2POI JMP SGNLP1 WRDFND, DCA PRECIS TAD I TM2POI SGNLP2, RAL ISZ PRECIS JMP SGNLP2 CLA JMP I SIGNSR
PAGE /***MOVE KOEFFICIENT TABLE FOR 14 BIT WORDS*** /CALL: KCMOVE / INPUT TABLE (FIELD 2) / OUTPUT TABLE (FIELD 2) / LENGTH OF TABLE / CONTROL SIGNAL (MOVE FOR CONTROL SIGNAL>0) KCMOVE, 4 BLOUT ACUM 4 SPA SNA CLA INEND GETAD 1 DCA KCINP GETAD 2 DCA KCOUTP GETAD 3 DCA KCLGTH CIF 20 JMS TRANS KCINP, 0 KCOUTP, 0 KCLGTH, 0 INEND
/CALL: EFFLEV / INPUT (14 BITS!!!) / OUTPUT / STATE / TIME CONSTANT / SCALE CONSTANT (NEGATIV) EFFLEV, 5 BLOTNT EFINIT INBLIP MULTSG 1 PREC1 1 PREC1 LDTEM1 NNX14 SMIGTR LDTEM1 NNX14 LDTEM1 EFFLIM 4 4 3 SCALSG LDTEM1 NNX14 5 LDTEM2 BLOUT SWAB CAM DAD LDTEM2 DST TEMHIG CAM DCA TEMLOW DCA DIVHIG JMS SRNORM JMS SRSQRT JMS SRFIX TAD TEMHIG SNA IAC /LEVEL GREATER OR EQUAL 1 SPA CLA CLL CML RTR EFFEND, PUT 2 INEND EFINIT, INBLIP COPY ZERO 3 BLOUT LEV1, CLA IAC JMP EFFEND N26, 26 EFFLIM, 7777 7777 7777 7777 3777
PAGE SRSQRT, 0 CLA CLL DCA TEMHIG DCA TEMLOW TAD EXPON RAR DCA EXPON TAD EXPON SNL CLA JMP EVEN CLA IAC TAD EXPON DCA EXPON CLL TAD DIVHIG RAR DCA DIVHIG TAD DIVLOW RAR DCA DIVLOW EVEN, TAD DIVHIG MQL TAD NM0006 DCA INDEX IAC DCA TEMLOW JMS SQTLOP TAD DIVLOW MQL TAD NM0004 DCA INDEX JMS SQTLOP TAD TEMLOW CLL RAR JMP I SRSQRT SQTLOP, 0 TAD TEMHIG SHL 2 CMA CLL TAD TEMLOW CMA SNL JMP GOES TAD TEMLOW DCA TEMHIG TAD TEMLOW RAL AND N7770 IAC SQBACK, DCA TEMLOW ISZ INDEX JMP SQTLOP+1 JMP I SQTLOP GOES, DCA TEMHIG TAD TEMLOW RAL AND N7770 TAD N0005 JMP SQBACK NM0004, -4 EXPON, 0 NM0006, -6 INDEX, 0 N7770, 7770 N0005, 5 TEMLOW, 0 TEMHIG, 0 DIVLOW, 0 DIVHIG, 0 SRFIX, 0 MQL CLA IAC TAD EXPON DCA .+2 SHL 0 DCA TEMHIG MQA DCA TEMLOW JMP I SRFIX SRNORM, 0 CLA TAD DIVHIG SZA CLA JMP NORML TAD DIVLOW SZA CLA JMP NORML TAD TEMHIG SZA CLA JMP NORML TAD TEMLOW SZA CLA JMP NORML DCA EXPON JMP I SRNORM NORML, DCA EXPON CIRC11, CLA CLL TAD DIVHIG SPA CLA JMP NORMEN ISZ EXPON TAD TEMLOW RAL DCA TEMLOW TAD TEMHIG RAL DCA TEMHIG TAD DIVLOW RAL DCA DIVLOW TAD DIVHIG RAL DCA DIVHIG JMP CIRC11 NORMEN, TAD EXPON CIA TAD N0044 DCA EXPON JMP I SRNORM N0044, 44
PAGE /***********HOCHPASS*********** /CALL: HFPASS /INPUT (14 BIT) /OUTPUT (28 BIT) /HFSTAT ADR. IM FELD 2 !!!!!!!!!!!! /ADR. DER COEF. LISTE IM FELD 1 !!!!!!!!! /ADR. LAENGE DER COEF. LISTE HFPASS, 5 BLOUT ACUM 1 CDF 20 DCA I HFINPP CDF 10 GETAD 2 CDF 20 DCA I HFOTPP CDF 10 ACUM 3 CDF 20 DCA I HFSTP CDF 10 GETAD 4 CDF 20 DCA I HFA0PP CDF 10 ACUM 5 CIA CDF 20 DCA I HFCNTP CDF 10 INBLIP BLOTNT HFINI CDF CIF 20 JMP I .+1 HFDO HFINI, CDF CIF 20 JMP I .+1 HFINIT HPEND, INEND /********TIEFPASS******** /CALL: TPASS / INPUT / OUTPUT DOUBLE PRECISION / ADR DES SCHIEBEREGISTERS IN FELD 2 !!!!! / ADR. DER COEFF.-LISTE IN FELD 1 !!!! / ADR. DER LAENGE DER COEF.-LISTE TPASS, 5 BLOUT ACUM 1 CDF 20 DCA I INPTP CDF 10 GETAD 2 CDF 20 DCA I TPOUTP CDF 10 ACUM 3 CDF 20 DCA I SIGADP CDF 10 GETAD 4 CDF 20 DCA I COEPP CDF 10 ACUM 5 CIA CDF 20 DCA I MTAPP CDF 10 INBLIP BLOTNT TP5INP CDF CIF 20 JMP I .+1 TPNEXP TP5INP, CDF CIF 20 JMP I .+1 TP5INI TPEND, INEND INPTP, INPT TPOUTP, TPOUT SIGADP, SIGADD COEPP, COEPOI MTAPP, MTAP HFINPP, HFINP HFOTPP, HFOUTP HFSTP, HFSTAT HFA0PP, HFA0P HFCNTP, HFCNT F1NEX=. FIELD 2 *F2NXT PAGE /******** HOCHPASS IN FIELD 2 ******** HFDO, SWAB CAM DST HFSUM DCA HFSUM+2 HFLOOP, JMS HFMLT1 HFINP HFA0P, 0 HFMOUT TAD HFMOUT+1 SPA CLA CMA DCA HFMOUT+2 JMS TRPADD HFSUM HFMOUT HFSUM ISZ HFCNT SKP JMP HFEND TAD HFINP JMS HELEMT HFSTAT, 0 DCA HFINP ISZ HFSTAT ISZ HFA0P JMP HFLOOP HFEND, DAD HFSUM+1 SPA DPIC CDF 10 DST HFOUTP, 0 CAM CIF 10 JMP I .+1 HPEND /ADR. FAKTOR 1 /FELD 2 /ADR. FAKTOR 2 /FELD 1 /ADR. PRODUKT /FELD 2 HFMLT1, 0 SWAB CAM DCA HFMFLG TAD I HFMLT1 DCA HFIAD1 ISZ HFMLT1 TAD I HFMLT1 DCA HFIAD2 ISZ HFMLT1 TAD I HFMLT1 DCA HFOAD ISZ HFMLT1 TAD I HFIAD1 SPA ISZ HFMFLG SPA CIA DCA HFMTPY CDF 10 TAD I HFIAD2 CDF 20 SPA ISZ HFMFLG SPA CIA MQL MUY HFMTPY DCA HFSAVE TAD HFMFLG RAR CLA TAD HFSAVE SZL DCM DST HFOAD, 0 CAM JMP I HFMLT1 HFCNT, 0 HFINP, 0 HFSUM, ZBLOCK 3
HFMFLG, 0 HFIAD1, 0 HFIAD2, 0 HFMTPY, 0 HFMOUT, ZBLOCK 3 HFSAVE, 0 HFCNT1, 0 HFSTA1, 0 HFINIT, CLA TAD HFCNT DCA HFCNT1 TAD HFSTAT DCA HFSTA1 DCA I HFSTA1 ISZ HFSTA1 ISZ HFCNT1 JMP .-3 JMP HFDO PAGE /ADR. STATE HELEMT, 0 DCA LIMIN1 TAD I HELEMT DCA HESTPT ISZ HELEMT TAD I HESTPT JMS HEMUL2 DCA LIMIN2 JMS LIMADD LIMIN1, 0 LIMIN2, 0 LIMOT1, 0 TAD LIMOT1 JMS HEMUL2 DCA LIMIN3 TAD I HESTPT CIA DCA LIMIN4 TAD LIMOT1 DCA I HESTPT JMS LIMADD LIMIN3, 0 LIMIN4, 0 LIMOT2, 0 TAD LIMOT2 JMP I HELEMT HESTPT, 0 /INPUT1 /INPUT2 /OUTPUT LIMADD, 0 CLA TAD I LIMADD DCA LMEIN1 ISZ LIMADD TAD I LIMADD DCA LMEIN2 ISZ LIMADD TAD LMEIN1 SPA CLA JMP LIMNEG TAD LMEIN2 SPA JMP LIMMIX TAD LMEIN1 SMA JMP LIMEND CLA CLL CMA RAR JMP LIMEND LIMNEG, TAD LMEIN2 SMA JMP LIMMIX TAD LMEIN1 CLL SMA JMP LM4000 RAL SNA JMP LM4000 RAR LIMEND, DCA I LIMADD ISZ LIMADD JMP I LIMADD LM4000, CLA RAR CLL CML IAC JMP LIMEND LIMMIX, TAD LMEIN1 JMP LIMEND /EINGANG UND AUSGANG IN AC HEMUL2, 0 DCA HETEM DCA HEFLG TAD HETEM SPA ISZ HEFLG SPA CIA MQL MUY HEMTPY ASR 10 CLA CLL TAD HEFLG RAR SWP SZL CIA JMP I HEMUL2 HEFLG, 0 HEMTPY, 335 HETEM, 0 LMEIN1, 0 LMEIN2, 0 LIMAUS, 0 /*********TRIPLE PREC. ADDIERER******* /ADR. INPUT1 /ADR. INPUT2 /ADR. OUTPUT TRPADD, 0 CLA CLL TAD I TRPADD ISZ TRPADD DCA TRIN1P TAD I TRPADD ISZ TRPADD DCA TRIN2P TAD I TRPADD ISZ TRPADD DCA TROUTP TAD TRPM3 DCA TRPCNT TRPLOP, RAL TAD I TRIN1P TAD I TRIN2P DCA I TROUTP ISZ TRIN1P ISZ TRIN2P ISZ TROUTP ISZ TRPCNT JMP TRPLOP JMP I TRPADD TRIN1P, 0 TRIN2P, 0 TROUTP, 0 TRPM3, -3 TRPCNT, 0 /***** TIEFPASS IN FIELD 2******
PAGE TPNEXP, SWAB /TIEFPASS CAM DST TPAC DCA TPAC+2 TAD SIGADD DCA SIGPOI TAD MTAP DCA TPCNT TAD INPT SWP TAD I SIGPOI SWP DCA I SIGPOI ISZ SIGPOI ISZ TPCNT JMP .-5 CAM TAD MTAP DCA TPCNT TAD SIGADD DCA SIGPOI LOOP, JMS HFMLT1 SIGPOI, 0 COEPOI, 0 TPTEM TAD TPTEM+1 SPA CLA CMA DCA TPTEM+2 JMS TRPADD TPTEM TPAC TPAC ISZ COEPOI ISZ SIGPOI ISZ TPCNT JMP LOOP DAD TPAC+1 SPA DPIC CDF 10 DST TPOUT, 0 CAM CIF 10 JMP I .+1 TPEND TP5INI, TAD SIGADD DCA SIGPOI TAD MTAP DCA TPCNT DCA I SIGPOI ISZ SIGPOI ISZ TPCNT JMP .-3 JMP TPNEXP TPAC, ZBLOCK 3 INPT, 0 SIGADD, 0 TPCNT, 0 MTAP, 0 SIGNFL, 0 TMLTIP, 0 TPTEM, ZBLOCK 3
FIELD 1 *F1NEX PAGE /**************** VERZERRER FUER BASISBAND ****************** /CALL: NONLIN / INPUT / OUTPUT NONLIN, 2 BLOUT SWAB CLA CLL CMA RAL DCA NLMFLG DCA NLLEVL ACUM 1 SNA JMP NLENDE SMA JMP .+3 ISZ NLMFLG CIA CMA DCA NLCNT NLLOOP, ISZ NLCNT SKP JMP NLENDE TAD NLCNT NMI SCA CLA TAD NLM13 CIA RAR SNL CLA JMP NLDECR TAD NLINSI DCA NLINST NLINST, HLT TAD NLLEVL DCA NLLEVL JMP NLLOOP NLDECR, TAD NLINSD DCA NLINST JMP NLINST NLENDE, TAD NLLEVL CIA ISZ NLMFLG CIA PUT 2 INEND NLLEVL, 0 NLMFLG, 0 NLCNT, 0 NLINSI, CLA IAC NLINSD, CLA CMA NLM13, -13
/*******REGLER******* /PRINZIP EINES DELTAMODULATORS /CALL: REGLER / SOLLWERT / ISTWERT / PRECISION ISTWERT UND SOLLWERT / REGEL SIGNAL IN / PRECISION / REGEL SIGNAL AUS / LAGE DER BIN. EINS REGLER, 7 COMPLM 1 LDTEM1 ADDER LDTEM1 NNX14 2 NNX14 ONE LDTEM1 BLOTNT RGLIMD ACUM 3 DCA PRECIS TAD LDTM1A DCA TM2POI JMS SIGNSR TAD RGSIZE SNL JMP RGSMAL TAD RGFAKT SPA CLA CLL CMA RAR JMP RGLIMD RGSMAL, CIA TAD RGFAKT SPA CLA RGLIMD, DCA RGFAKT INBLIP MULTSG 4 5 RGFAKT RGNM14 LDTEM1 NNX14 SCALSG LDTEM1 NNX14 7 6 BLEND RGSIZE, 1 RGFAKT, 0 LDTM1A, LDTEM1 RGNM14, 14



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