Directory of image this file is from
This file as a plain text file
PAGE 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*****************************: / CALL: SIM / INPUT / OUTPUT SIM, 2 SEND 1 COEPS LOC1 LOC2 LOC3 TRNSMT COEPS COECR LOC1 LOC11 LOC2 LOC12 LOC3 LOC13 RECEIV 2 COECR LOC11 LOC12 LOC13 BLEND
/************************* SEND END ***************************** / CALL: SEND / INPUT / COEFFICIENTS OUT / PITCH PERIOD OUT / LEVEL OUT / VOICED-UNVOICEDOUT SEND, 5 LADRPD 1 PREC1 LOC4 LOCTAP SIGSE COESE K1 IGRST1 IGRST2 LOCTC PREC2 SCALSG LOC4 PREC1 RESCAL LOC5 DELAY DESTAT LOC5 LOC6 ADDER LOC5 NNX14 LOC6 NNX14 ZERO LOC5 FWRECT LOC4 PREC1 LOC6 PCLEAN LOC6 PREC1 LOC7 OUTTP1 CLRTP1 CLST1 CLREG1 KCMOVE COESE 2 LOCTAP LOC7 EFFLEV LOC5 4 /LEVEL OUT LESTAT LEVTC LEVSCL KORLTR LOC5 KRNORM 4 KORTC KORSTA 3 /PITCH PERIOD OUT 5 /VOICED UNVOICED OUT LOC7 /PITCHSYN. SIGNAL IN BLEND
/********************** RECEIVE END ************************ / CALL: RECEIV / OUTPUT / COEFF. IN / PITCH PERIOD IN / LEVEL IN / VOICED-UNVOICED IN RECEIV, 5 PITGEN LOC6 3 PITST 5 KCMOVE 2 COERE LOCTAP LOC6 ADDER MINUS1 NNX14 LOC6 PREC1 ZERO LOC6 SWTCHI PITSIZ ZERO LOC9 LOC6 NNX14 NOISE STN1 PREC4 LOC10 PRESGN LOC10 PREC4 LOC10 /GERAUSCH ADDER 5 PREC1 MINUS1 NNX14 ZERO LOC6 SWTCHI LOC9 /PITCH LOC10 /NOISE LOC6 LOC6 /SIGNAL-VU IN NNX14 MULTSG LOC6 PREC1 4 PREC1 LOC6 NNX14 SCALSG LOC6 NNX14 PREC10 LOC6 LADRRE LOC6 NNX14 1 LOCTAP SIGRE COERE K1 PREC2 BLEND
/LISTEN TAPNR=14 LOC9, ZBLOCK N LOC10, ZBLOCK N LOC11, ZBLOCK N LOC12, ZBLOCK N LOC13, ZBLOCK N /USED AS LEVEL OUTPUT (STATE!!) KRNORM, 5 /SCALE FOR NORMIERUNG PITSIZ, 200 0 0 0 0 MINUS1, 7777 7777 7777 7777 7777 PREC1, 14 /SIGNAL PREC2, 14 /SCALE FOR PRADICTOR INPUT PREC4, 7 /NOISE LEVEL PREC5, 0 /SHIFT FOR EXCITATION IMPULSES PREC7, 30 /PREC OF EXCITER STATE PREC10, -5 NUM14, 14 NUM24, 24 STN1, 0 LOCTC, 6 LOCTAP, 12 SIGSE, ZBLOCK TAPNR^N SIGRE, ZBLOCK TAPNR^N+N IGRST1, ZBLOCK TAPNR^N IGRST2, ZBLOCK TAPNR^N K1, 10 K2, 10 K3, 7 K4, 7 K5, 6 K6, 6 K7, 5 K10, 5 K11, 5 K12, 5 K13, 5 K14, 5 OUTTP1, 30 CLRTP1, 40 CLST1, 0 CLREG1, ZBLOCK N STATLV, 7777 100 0 0 0 PEAKTC, 6 PKSTAT, ZBLOCK N LEVTC, 6 LEVSCL, -12 /MUST BE NEGATIV LESTAT, ZBLOCK N KORSTA, KORTAB KORTC, 6 N2X14, 30 PITST, 0 RESCAL, -1 /SCALE AFTER PRADICTOR FOR AVERAGE VAL. DESTAT, ZBLOCK N TRPAV, 10 /NUMBER OF BITS PITCHPERIOD 4 /NUMBER OF BITS LEVEL (LISTE MIT 16 ELE.) 1 /NUMBER OF BITS VOICED-UNVOICED
/ CALL: TRNSMT / COEFF. IN / COEFF. OUT / PITCH PERIOD IN / PITCH PERIOD OUT / LEVEL IN / LEVEL OUT // VOICED-UNCOICED IN /LSB / VOICED-UNVOICED OUT TRNSMT, 10 BLOTNT TRNT ACUM 3 CDF 20 DCA I TRPINI CDF 10 ACUM 7 CDF 20 DCA I TRVINI CDF 10 ACUM 5 CDF CIF 20 DCA I TRLINI JMP I .+1 TRSTRT TREND, CLA TAD I TRPOTI CDF 10 PUT 4 CDF 20 TAD I TRLOTI CDF 10 PUT 6 CDF 20 TAD I TRVOTI CDF 10 PUT 10 INEND TRNT, GETAD 1 CDF 20 DCA I TRKINI CDF 10 GETAD 2 CDF CIF 20 DCA I TRKOTI JMP I .+1 TRNTF2 TRKINI, TRKIN TRKOTI, TRKOUT TRPINI, TRPIN TRPOTI, TRPOUT TRLINI, TRLIN TRLOTI, TRLOUT TRVINI, TRVIN TRVOTI, TRVOUT F1NXT=. FIELD 2 *1000 /LISTEN /BEREICH ZWISCHEN INA UND INE WIRD INITIALISIERT INA=. COESE, ZBLOCK TAPNR /DO NOT MOVE!!!! COERE, ZBLOCK TAPNR COEPS, ZBLOCK TAPNR COECR, ZBLOCK TAPNR BITRGT, 0 BITWRG, 0 TRSTE1, 0 /STATE FUER CLOCK EINGANG/AUSGANG TRSTE2, 0 /STATE FUER CLOCK PITCH,VOICE,AMPL TRLOUT, 0 SRAFAD, ZBLOCK TAPNR LISTEA, ZBLOCK TAPNR LISTEB, ZBLOCK TAPNR LISTEC, ZBLOCK TAPNR TRPOUT, 0 /LISTE FUER: PITCH TROBIT, 0 /AMPLITUDE GEKOPPELT TRVOUT, 0 /VOICED-UNVOICED INE=. ERRATE, 0 TRFRE2, 0 TRFRE1, 144 TRLANG, TAPNR PAGE TRSTRT, JMS TCLOCK /CLOCK FUER PITCH,VOICE,AMPL. TRFRE1 TRSTE1 DCA TRCLK1 JMS TCLOCK /CLOCK FUER EINGANGS/AUSGANGSWERTE TRFRE2 TRSTE2 DCA TRCLK2 TAD TRCLK2 SPA SNA CLA JMP TRLPV JMS INTPOL TRKIN, 0 TRKOUT, 0 TRLANG CLA TRLPV, TAD TRCLK1 SPA SNA CLA JMP TRBCK JMS LEVCOD TRLIN TRIBIT JMS ELREG TRPIN TRN3 TRPAV JMS REGEL TRPOUT TRN3 TRPAV JMS LEVDCD TROBIT TRLOUT TRBCK, CIF 10 JMP I .+1 TREND TRNTF2, JMS INITEG JMS INIPOL SWAB CLA CLL TAD TRFRE1 ASR INTDI3, 0 DCA TRFRE2 TAD INEINA DCA TRPIN /TEM USE TAD TRLIST DCA TRLIN /TEM USE TRINLP, DCA I TRLIN ISZ TRLIN ISZ TRPIN JMP TRINLP JMP TRBCK TRPIN, 0 /LISTE FUER: PITCH TRIBIT, 0 /AMPLITUDE GEKOPPELT TRVIN, 0 /VOICED-UNVOICED TRLIN, 0 INEINA, INA-INE /SET INIT COUNT TRCLK1, 0 TRCLK2, 0 TRLIST, COESE TRN3, 3
/SR KOEFFIZIENTEN > SCHIEBEREGISTER /ANFANGSADRESSE DER ELEMENTE IN FIELD2 /ADR. DER ANZAHL DER ELEMENTE /ANFANGSADRESSE DER WERTELISTE IN FIELD 1 ELREG, 0 CLA TAD I ELREG DCA ELELAD ISZ ELREG TAD I ELREG DCA ELTEM1 TAD I ELTEM1 CIA DCA ELCNT1 ISZ ELREG TAD I ELREG ISZ ELREG DCA ELWEAD ELLOP2, CDF 10 TAD I ELWEAD CDF 20 CIA DCA ELCNT2 TAD I ELELAD DCA ELEMEN ELLOP1, TAD ELEMEN RAR DCA ELEMEN JMS SRREG /BIT IM LINK SRAFAD /ANFANGSADR. DES SCHIEBEREGISTERS TRLANG /ANFANGSADR. DER LAENGE DER REGISTER ISZ ELCNT2 JMP ELLOP1 ISZ ELELAD ISZ ELWEAD ISZ ELCNT1 JMP ELLOP2 JMP I ELREG ELELAD, 0 ELTEM1, 0 ELCNT1, 0 ELWEAD, 0 ELCNT2, 0 ELEMEN, 0
PAGE LEVCOD, 0 CLA TAD I LEVCOD DCA LETEM1 DCA LEVCTR ISZ LEVCOD TAD LEV1P DCA LEV1CT LEVMAX, TAD I LETEM1 CIA TAD I LEV1CT SMA CLA JMP LEVMIN ISZ LEVCTR ISZ LEV1CT JMP LEVMAX LEVMIN, TAD I LEVCOD DCA LETEM2 TAD LEVCTR DCA I LETEM2 ISZ LEVCOD JMP I LEVCOD /LEVELDECODIERER /1. ARGU. ADR. BITS IN /2. ARGU. ADR. LEVEL OUT LEVDCD, 0 CLA TAD I LEVDCD DCA LETEM1 TAD I LETEM1 TAD LEV2P DCA LETEM2 ISZ LEVDCD TAD I LEVDCD DCA LETEM1 TAD I LETEM2 DCA I LETEM1 ISZ LEVDCD JMP I LEVDCD LEV1P, CODL2 LEV1CT, 0 CODL1, 6 14 30 60 140 300 600 3777 CODL2, 3 6 11 14 22 30 44 60 100 140 220 300 440 600 2500 3777 LEV2P, DCODL2 DCODL1, 3 10 22 45 110 220 450 1000 DCODL2, 2 5 10 13 20 26 37 53 73 123 175 255 370 530 1600 3200 LETEM1, 0 LETEM2, 0 LEVCTR, 0
TRANS, 0 CLA RDF TAD TRCDIF DCA TREXIT TAD I TRANS DCA TRTE1 ISZ TRANS TAD I TRANS DCA TRTE2 ISZ TRANS TAD I TRANS DCA TRTE3 TAD I TRTE3 CIA DCA TCNT ISZ TRANS CDF 20 TRANFG, TAD I TRTE1 DCA I TRTE2 ISZ TRTE1 ISZ TRTE2 ISZ TCNT JMP TRANFG TREXIT, HLT JMP I TRANS TRTE1, 0 TRTE2, 0 TRTE3, 0 TRTE4, 0 TCNT, 0 TRCDIF, CIF CDF
PAGE TCLOCK, 0 CLA TAD I TCLOCK DCA TCTEM TAD I TCTEM CIA DCA MN1 ISZ TCLOCK TAD I TCLOCK DCA TCTEM TAD I TCTEM TAD MN1 SZA CLA JMP NULL IAC DCA I TCTEM IAC JMP END NULL, ISZ I TCTEM NOP END, ISZ TCLOCK JMP I TCLOCK TCTEM, 0 MN1, 0
/SR SCHIEBEREGISTER > KKEFF.LISTE /ANFANGSADR. DER ELEMENTE /ADR. DER ANZAHL DER ELEMENTE /ANFANGSADRESSE DER WERTE-LISTE REGEL, 0 CLA TAD I REGEL DCA REELAD ISZ REGEL TAD I REGEL DCA RETEM1 TAD I RETEM1 CIA DCA RECNT1 ISZ REGEL TAD I REGEL DCA REWEAD TAD REWEAD TAD I RETEM1 DCA REWEAD ISZ REGEL TAD REELAD TAD I RETEM1 DCA REELAD RELOP2, CMA TAD REWEAD DCA REWEAD CMA TAD REELAD DCA REELAD DCA I REELAD CDF 10 TAD I REWEAD
CDF 20 CIA DCA RECNT2 RELOP1, CLL JMS SLREG SRAFAD /ANFANGSADR. DES SCHIEBEREGISTERS TRLANG /ANFANGSADR. ANZAHL DER REGISTER JMS I ERGENI /BIT IM LINK ERRATE /ADR. VERGLEICH ZUFALLSZAHL HLT /DUMMY 1 HLT /DUMMY 2 TAD I REELAD RAL DCA I REELAD ISZ RECNT2 JMP RELOP1 ISZ RECNT1 JMP RELOP2 JMP I REGEL REELAD, 0 RETEM1, 0 RECNT1, 0 REWEAD, 0 RECNT2, 0 /************************************************************** ERGENI, ERRGEN /FEHLER GENERATOR /**************************************************************** /SR SCHIEBEREGISTER (RECHTS) /ANFANGSADR. DES SCHIEBEREGISTERS SRREG, 0 /ANFANGSADRESSE DER LAENGE DES REGISTER CLA TAD I SRREG DCA SRPTR ISZ SRREG TAD I SRREG DCA SRTEM1 TAD I SRTEM1 SNA HLT CIA DCA SRCNT ISZ SRREG SRLOOP, TAD I SRPTR RAR DCA I SRPTR ISZ SRPTR ISZ SRCNT JMP SRLOOP JMP I SRREG SRPTR, 0 SRCNT, 0 SRTEM1, 0 /ANFANGSADR. DES SCHIEBEREGISTERS /ANFANGSADR. ANZAHL DER REGISTER /SR SCHIEBEREGISTER (RECHTS) SLREG, 0 CLA CMA CML TAD I SLREG DCA SRTEM1 ISZ SLREG TAD I SLREG DCA SRTEM2 TAD SRTEM1 TAD I SRTEM2 DCA SRPTR TAD I SRTEM2 CIA DCA SRCNT ISZ SLREG SLLOOP, TAD I SRPTR RAL DCA I SRPTR CLA CMA CML TAD SRPTR DCA SRPTR ISZ SRCNT JMP SLLOOP JMP I SLREG SRTEM2, 0
PAGE /COMPLEMENTIEREN DES LINKS DURCH ZUFALLSZAHL /1. ARGUMENT ADRESSE DER VERGLEICHSZAHL /2.ARG. DUMMY /3. ARG. DUMMY ERRGEN, 0 CLA RAR DCA ERLINK TAD I ERRGEN DCA ERRTEM ISZ ERRGEN ISZ ERRGEN ISZ ERRGEN JMS PRAN CLL TAD I ERRTEM SZL CLA TAD BN4000 TAD ERLINK RAL CLA JMP I ERRGEN ERRGEI, ERRGEN ADRARG, 50 DUMMY1, 0 DUMMY2, 0 ERLINK,0 BN4000, 4000 ERRTEM, 0 INITEG, 0 /INITALISIERUNG ZUFALLSZAHL JMS R CLA TAD CALL CIA DCA CURCAL JMS PRAN ISZ CURCAL JMP .-2 CLA CLL JMP I INITEG CALL, 100 /NUM OF CALLS FOR PRAN CURCAL, 0 R, HLT JMP R+63 PRAN, HLT CLA TAD R+77 RAL AND R+71 DCA R+74 TAD R+76 AND R+70 TAD R+74 7006 7006/RAL RAT RAL DCA R+72 TAD R+77 AND R+70 7006 7006 RAL TAD R+76 DCA R+73 7430/SNL SKP ISZ R+72 7000 TAD R+77 7104/CLL RAL 7430 ISZ R+73 SKP ISZ R+72 7000 CLL TAD R+77 DCA R+77 TAD R+76 RAL 7430 ISZ R+72 7000 CLL TAD R+73 DCA R+76 TAD R+75 RAL TAD R+75 TAD R+72 DCA R+75 TAD R+75 JMP I PRAN 0/NOT USED 7201/CLA IAC DCA R+77 DCA R+76 DCA R+75 JMP I R 177 7400 0 0 0 0 0 0 HLT HLT FLAG1, 0 /FLAG FOR BIT 11 FLAG2, 0
PAGE INIPOL, 0 CLA CLL CMA DCA INSCTR DCA INDIVZ TAD INSTUF ACNULL, RAR CLL SNA JMP .+3 ISZ INDIVZ JMP ACNULL TAD INDIVZ DCA INTDI1 TAD INTDI1 DCA INTDI2 TAD INDIVZ DCA INTDI3 JMP I INIPOL LISTPA, LISTEA LISTPB, LISTEB LISTPC, LISTEC INSTUF, 4 /INTERPOLATIONSSTUFE,KEINE INTERPOL. DANN 1!! INSCTR, 0 INDIVZ, 0 /1. ADR. EINGANGSLISTE /2. ADR. AUSGANGSLISTE /3. ADR. LAENGE DER LISTE INTPOL, 0 CLA CLL SWAB TAD I INTPOL DCA INTEIN ISZ INTPOL TAD I INTPOL DCA INTAUS ISZ INTPOL TAD I INTPOL DCA INTEM1 TAD I INTEM1 CIA DCA INCOUT ISZ INTPOL TAD LISTPC DCA INTEM3 TAD LISTPB DCA INTEM4 TAD LISTPA DCA INTEM5 TAD K1RTR DCA K1CTR ISZ INSCTR JMP DURCH1 JMP DURCH4 DURCH1, TAD I INTEM4 ASR INTDI1, 0 DCA INTEM6 TAD I INTEM5 ASR INTDI2, 0 CIA TAD INTEM6 TAD I INTEM3 DCA I INTEM3 ISZ INTEM3 ISZ INTEM4 ISZ INTEM5 ISZ INCOUT JMP DURCH1 JMP INBACK DURCH4, TAD INSTUF CIA DCA INSCTR JMS TRANS LISTEB LISTEA TRLANG JMS TRANS LISTEA LISTEC TRLANG JMS ELREG INTEIN, 0 TRLANG K1 JMS REGEL LISTEB TRLANG K1 TAD TRLANG CIA DCA TRLGCT DURH4A, CDF 10 TAD I K1CTR CDF 20 CIA TAD NZ14 DCA DUPOS1 TAD DUPOS1 DCA DUPOS2 TAD I INTEM4 SHL DUPOS1, 0 ASR DUPOS2, 0 DCA I INTEM4 ISZ K1CTR ISZ INTEM4 ISZ TRLGCT JMP DURH4A INBACK, JMS TRANS LISTEC INTAUS, 0 TRLANG JMP I INTPOL INTEM1, 0 INTEM2, 0 INTEM3, 0 INTEM4, 0 INTEM5, 0 INTEM6, 0 INCOUT, 0 K1RTR, K1 K1CTR, 0 NZ14, 14 TRLGCT, 0 INTENT, 0