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 /**************** EXCITR ****************** /BLENDS NOISE IN GRADUALLY AT END OF VOICED SOUNDS /CALL: EXCITR / INPUT1 /PITCH PULSES / INPUT1 PRECISION / INPUT2 /NOISE / INPUT2 PRECISION / OUTPUT / STATE / STATE PRECISION / DECAY PARAMETER /NEGATIVE!! SLSHFT, 0 SLSFT2, 0 EXCITR, 10 SCALSG /UPDATE STATE 6 7 10 SLTM1 COMPLM SLTM1 SLTM1 ADDER SLTM1 NNX14 6 NNX14 ONE 6 BLOTNT SLINIT ACUM /SHIFT INPUT SIGNAL 2 CIA ACUM 7 DCA SLSHFT TAD SLSHFT CIA DCA SLSFT2 INBLIP HWRECT 1 2 SLTM1 SCALSG SLTM1 2 SLSHFT SLTM1 COMPLM 6 SLTM2 ADDER /PITCH - STATE SLTM1 NNX14 SLTM2 NNX14 ONE SLTM2 SWTCHO SLTM1 SLTM1 6 SLTM2 7 FWRECT 3 4 SLTM2 /NOISE COMPLM 6 SLTM1 SCALSG SLTM1 7 SLSFT2 SLTM1 ADDER SLTM1 NNX14 SLTM2 NNX14 ONE SLTM1 HWRECT SLTM1 7 SLTM3 COMPLM SLTM3 /SLIDING NOISE SLTM2 /-SLIDING NOISE ADDER SLTM2 NNX14 ONE NNX14 ZERO SLTM2 SWTCHI SLTM3 SLTM2 5 3 4 BLEND SLINIT, INBLIP COPY ZERO 6 COPY ZERO 5 BLEND SLTM1, ZBLOCK N SLTM2, ZBLOCK N SLTM3, ZBLOCK N
PAGE /********** MOVE TABLE OF SIGNALS ****************** /CALL: MOVE / INPUT TABLE / FIELD OF INPUT TABLE / LENGTH OF TABLE / CONTROL SIGNA /MOVE FOR POS CONTROL SIGNAL / PREC OF CONTROL SIGNAL / OUTPUT TABLE / FIELD OF OUTPUT TABLE MOVE, 7 BLOTNT MVINIT JMS SIGNGT SZL CLA INEND MVINIT, ACUM 3 CIA DCA TM3POI GETAD 1 DCA MVFROM GETAD 6 DCA MVTO ACUM 2 DCA MVFLD1 ACUM 7 DCA MVFLD2 MVNXT, JMS SIGMOV MVFROM, 0 MVFLD1, 0 MVTO, 0 MVFLD2, 0 ISZ TM3POI JMP MVNXT INEND SIGMOV, 0 CLA RDF TAD CNCIF DCA SIGRET TAD I SIGMOV ISZ SIGMOV DCA MVFROM TAD I SIGMOV ISZ SIGMOV DCA MVINS1 TAD I SIGMOV ISZ SIGMOV DCA MVTO TAD I SIGMOV ISZ SIGMOV DCA MVINS2 TAD WORDCT DCA COUNT MVINS1, HLT TAD I MVFROM MVINS2, HLT DCA I MVTO ISZ MVFROM ISZ MVTO ISZ COUNT JMP MVINS1 SIGRET, HLT JMP I SIGMOV CNCIF, CIF CDF /***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 /******PITCH GENERATOR******** /CALL: PITGEN / OUTPUT /SINGLE WORD / PITCH PERIOD INPUT / STATE /SINGLE WORD / VOICED-UNVOICED SIGNAL IN PITGEN, 4 BLOTNT PTINT ACUM 4 SZA CLA JMP .+3 CMA JMP PTUV ACUM 3 IAC SMA JMP PTDO PTSRT, PUT 3 PTEND, PUT 1 INEND PTDO, CLA ACUM 2 CIA PTUV, PUT 3 TAD PTAMPL JMP PTEND PTINT, CLA CMA JMP PTSRT PTAMPL, 1 PAGE /CALL: PEAK / INPUT / INPUT PRECISION / OUTPUT / STATE / TIME CONSTANT PEAK, 5 BLOTNT PKINIT ACUM 5 CIA DCA PKSCL1 TAD PKSCL1 DCA PKSCL2 INBLIP SCALSG 1 2 5 LDTEM1 COMPLM LDTEM1 LDTEM2 ADDER LDTEM2 NNX14 4 NNX14 ONE LDTEM2 SCALSG 4 NNX14 PKSCL1 LDTEM3 COMPLM LDTEM3 LDTEM3 ADDER 4 NNX14 LDTEM3 NNX14 ONE LDTEM4 SWTCHI LDTEM4 LDTEM1 4 LDTEM2 NNX14 SCALSG 4 NNX14 PKSCL2 3 BLEND PKINIT, INBLIP COPY ZERO 4 COPY ONE 3 BLEND PKSCL1, 0 PKSCL2, 0
/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