Directory of image this file is from
This file as a plain text file
PAGE /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /SIMULATION EINES N,K BLOCKCODES /MIT BLBL8 /22.11.74 /ANZ. DER BINAEREN STELLEN EINES CODEWORTES N=14 /ANZ. DER INFORMATIVEN STELLEN K=14 /ANZ. DER REDUNDANTEN STELLEN NMK=0 /ANZ. DER BITS IM CODIER-REGISTER B=14 /KLEINSTE GANZE VON N/14, K/14, NMK/14, B/14 KGN=1 KGK=1 KGB=1 KGNMK=0 /SONSTIGES NTAPS=20 FIELD 0 *5000 AUTOST, CLA CIF 10 JMS I AUTONT AUTOAD, 0 CLA CIF 10 JMS I AUTOAD JMP .-3 AUTONT, INTNT
/INTERFACE-PROGRAMM ZWISCHEN SCOPE ODER SIGPIP UND EINER /SIMULIERTEN CODER-BSC DECODER STRECKE FIELD 1 *4200 INTNT, 0 /INTNT IN CODADR STELLEN!!!!!!!!! CDF 10 JMS SPEZNT /INIT VON SPEZIALPROGRAMMEN JMS PARNT /LADEN DER PARAMETER FEUR SIMUL CLA CLL IAC DCA MYFLAG /MY OWN INIT.FLAG CDF CIF 0 JMS I INTNT INTERF, 0 CDF 10 DCA INPUT /14 BIT VON SCOPE ODER SIGPIP TAD MYFLAG /OWN INIT.FLAG SET? SNA CLA /YES JMP LOCA /NO JMS SIMNT /INITIALIZE SIMUL CLA DCA MYFLAG /CLEAR MYFLAG SWAB CAM DAD SCPWDS DCM DST CNT2 /ANZ. DER SCOPEWORDS JE BITERRORRATE LOCA, SWAB CAM DAD WDSNUV DCM DST CNT1 /ANZ. DER UEBERTRAGENEN BLOECKE JE SCPWDS JMS SIMUL /SIMULATIONSPROGRAMM MOSTSR /KEYBOARD EINGRIFF RESTRT, ISZ CNT1 SKP ISZ CNT1+1 JMP .-5 ISZ CNT2 SKP ISZ CNT2+1 JMP LOCB JMS SPEZSR /HYSTOGRAMM ETC. ISZ SIMCNT SKP MOSTGO /ALLE BITERRORRATES FERTIG CLA CLL IAC DCA MYFLAG JMS NEWPAR /ISZ ALLE PARAMETER LOCB, TAD OUTPUT CDF CIF 0 JMP I INTERF SYSTEM, 7600 INPUT, 0 OUTPUT, 0 SIMNT, 0 NOP NTBLIP INBLIP SYNAUS /JEWEILIGER NAME NZERO OUTPUT BLNTOF BLOUT JMP I SIMNT SIMUL, 0 INBLIP SYNAUS /JEWEILIGER NAME INPUT OUTPUT BLOUT JMP I SIMUL TYPDEV, TPONTY-22 /ODER TPONDW=TPONTY-22 SPEZNT, 0 /EINMALIGE INIT. VON SPEZIALPROGRAMMEN NOP JMS I TYPDEV JMP I SPEZNT NOP NOP PARNT, 0 /EINMALIGE INIT. DER PARAMETER CLA TAD SIMNUM CIA DCA SIMCNT SWAB CAM DAD ERRORN DST ERRORV CAM DAD WDSNUM DST WDSNUV JMP I PARNT NOP;NOP SPEZSR, 0 /Z.B. HYSTOGRAMM AM ENDE JEDER TEILSIMULATION JMS CALPRT JMP I SPEZSR NOP NOP NEWPAR, 0 /ISZ DER PARAMETER SWAB CAM DAD ERRORV LSR 1 DST ERRORV /BITFEHLERRATE VERKLEINERN CAM DAD WDSNUV SHL 1 DST WDSNUV /ANZ. DER BLOECKE VERVIELFACHEN JMP I NEWPAR NOP;NOP
PAGE /WICHTIGE PARAMETER!!!!!!!!!!!!!!!!!!!!!!!!!!! /BIFEHLERRATE IM KANAL ERRORN, 0;0 /STATT AUF TTY: AUSZUDRUCKEN KANN AUCH AUF BAND GE- /SCHRIEBEN WERDEN. WDSNUM IST AUCH DIE ANZ. DER BLOECKE JE SCOPE-WORT. /ZWECKMAESSIG EINE POTENZ VON 2 /MEHRFACHAUSNUTZUNG EINES SCOPE-WORTES WDSNUM, 1;0 /SCPWDS IST DIE ANZAHL DER SCOPEWORTE , DIE FUER EINE TEILSIMULATION /ZUR VERFUEGUNG STEHEN. /ZWECKMAESSIG =2^(SHFTNR) SCPWDS, 0;2000 /SIMNUM ENTHAELT DIE ANZAHL DER TEILSIMULATIONEN. SIMNUM, 1 /ANZ. DER SHIFT'S ZUR VERVIELFACHUNG DER TABELLENZEILEN JE /TEILSIMULATION SHFTNR, 0 /FUNCTION-CONTROL-WORD FUER DEN DEVICE-HANDLER CONTRL, 4220 /ANFANGSADRESSE DES SPEICHERBEREICHES CORADD, 1000 /FILENAME AUF BAND ODER PLATTE STONAM, FILENAME COYERG.MA /NAME OF DEVICE USED. MOST SIGNIF. HAELFTE VON DEVNAM LOESCHEN, /WENN KEIN DEVICE VERWENDET WERDEN SOLL. DEVNAM, DEVICE SYS DATEIL, 0 /ANZ. DER ZU SPEICERNDEN BLOECKE SCHWELL, 0 /P DER EINSEN IM EINGANGSWORT NOP NOP /FESTE GROESSEN FELD10, 10 FELD20, 20 MAXTP1, NTAPS 0 MAXAD1, N 0 MAXAD2, K 0 MAXAD3, NMK 0 MAXAD4, B 0 PREC1, KGN PREC2, KGK PREC3, KGNMK PREC4, KGB STNMA, STONAM DVNMA, DEVNAM /VARIABLE MYFLAG, 0 ERRORV, 0;0 ERRORF, 0 ERORFS, 0 SIMCNT, 0 WDSNUV, 0;0 CNT1, 0;0 CNT2, 0;0 NZERO, ZBLOCK N+14
PAGE LISTA, 222;224;227;231;6146;6150 LISTTY, 6031;6036;6041;6046 LISTDW, 6401;6406;6411;6416 TPONDW, 0 6402 6416 TAD LISTDW DCA I LISTA TAD LISTDW+1 DCA I LISTA+1 TAD LISTDW+2 DCA I LISTA+2 TAD LISTDW+3 DCA I LISTA+3 CDF 20 TAD LISTDW+2 DCA I LISTA+4 TAD LISTDW+3 DCA I LISTA+5 CDF 10 JMP I TPONDW TPONTY, 0 6032 6046 TAD LISTTY DCA I LISTA TAD LISTTY+1 DCA I LISTA+1 TAD LISTTY+2 DCA I LISTA+2 TAD LISTTY+3 DCA I LISTA+3 CDF 20 TAD LISTTY+2 DCA I LISTA+4 TAD LISTTY+3 DCA I LISTA+5 CDF 10 JMP I TPONTY
FORTS1=. ENTF=JMS I 7 FIELD 2 *4200 /S.R. UM AUF BAND ODER PLATTE ABZUSPEICHERN /S.R. STEHT IN FIELD 2, BENOETIGT PLATZ FUER DEV.HAN. /IN FIELD 0 VON 7200-7577,SOFERN NICHT DER SYSTEM- /DEV.HAN. VERWENDET WIRD. /ANRUF VON FIELD 0,1 ODER 2 AUS. S.R. BESTEHT AUS EINER /INITIALISIERUNGSROUTINE UND EINER ARBEITSROUTINE /CDF N /ARG. IN FELD N /CIF 20 /JMS WTRDNT /INITIALISIERUNGSROUTINE /ADR. DES FUNC.CONTR.WORDS FUER DEN DEV.HAN. /ADR. DER CORADRESSE /ADR. DER ANZ. DER SPEICHERUNGEN /ADR. DES FILENAMENS /ADR. DES DEVICENAMENS /CDF N /CIF 20 /JMS WRTRED /ARBEITSROUTINE CORAD, 0 DHFUN, 0 STORNR, 0 FLNAMA, FLNAME CDFIN, CDF 0 WTRDNT, 0 CLA TAD I WTRDNT DCA TEMW TAD I TEMW DCA DHFUN ISZ WTRDNT /D.H.FUNC.CONTR.WORD TAD I WTRDNT DCA TEMW TAD I TEMW DCA CORAD /COREADRESSE ISZ WTRDNT TAD I WTRDNT DCA TEMW TAD I TEMW DCA STORNR /NUMBER OF STORAGES ISZ WTRDNT RDF TAD CDFIN DCA WDATF /CALCUL. DATAFIELD CLA CLL IAC RAL TAD WDATF DCA WRETF /CALCUL. RETURNFIELD TAD I WTRDNT DCA TEMU SWAB TAD FLNAMA DCA TEMV CLA CLL CMA RTL DCA TEMW CAM DAD TEMU, 0 CDF 20 DST TEMV, 0 WDATF, CDF 10 ISZ TEMU ISZ TEMU ISZ TEMV ISZ TEMV ISZ TEMW JMP TEMU-1 /UEBERTRAGEN DES FILENAMENS IN DIESES FELD ISZ WTRDNT CLA TAD I WTRDNT DCA TEMW CAM DAD TEMW, 0 CDF 20 DST FETCH1 /UEBERTRAGEN DES DEVICENAMENS IN DIESES FELD ISZ WTRDNT /DEVICE VERWENDEN? SNA CLA /JA JMP WRETF /NEIN JMS SETRST /USR ARGUMENT INIT. CIF 10 JMS I (7700 /USRIN 10 CLA CIF 10 JMS I (200 1 /FETCH DEV.HAN. FETCH1, 0424 FETCH2, 0161 /DEV.NAME /DEV.NUMBER FETCH3, 7201 /PAGE LOCATION /ENTRY POINT OF DEV.HAN. JMS I TYDI TAD FETCH2 DCA DEVNUM TAD FETCH3 DCA I DHENTI TAD DHFUN SPA CLA /KERNSPEICHER LADEN ODER AUSLESEN? JMP AUSLES /AUSLESEN /LADEN LADEN, TAD DEVNUM CIF 10 JMS I (200 /LOOKUP 2 LOKUP1, FLNAME /FILE STARTING BLOCK LOKUP2, 0 /-FILELENGTH JMS I TYDI TAD LOKUP1 DCA I STRTBI TAD LOKUP2 DCA FILCNT JMP GETOF AUSLES, TAD DEVNUM CIF 10 JMS I (200 /ENTER 3 ENTER1, FLNAME /FILE STARTING BLOCK ENTER2, 0 /-FILELENGTH JMS I TYDI
TAD ENTER1 DCA I STRTBI TAD ENTER2 TAD FILENG /PRUEFEN, OB GENUG PLATZ SMA SZA CLA JMS I TYDI /NEIN TAD FILENG /JA CIA DCA FILCNT TAD DEVNUM CIF 10 JMS I (200 /CLOSE 4 CLOSE1, FLNAME CLOSE2, 0 JMS I TYDI GETOF, CIF 10 JMS I (200 11 /USROUT WRETF, CIF CDF 10 JMP I WTRDNT FILCNT, 0 DEVNUM, 0 TYDI, TYD STRTBI, STRTBK DHENTI, DHENT FILENG, 0 PAGE FLNAME, 0;0;0;0 SETRST, 0 CLA TAD WRETF DCA RF TAD (7201 DCA FETCH3 TAD DHFUN DCA DHFUNC TAD CORAD DCA CORADR TAD FLNAMA DCA LOKUP1 TAD FLNAMA DCA ENTER1 TAD FLNAMA DCA CLOSE1 TAD DHFUNC AND (3700 BSW CLL RAR /ANZ. DER OS8 BLOECKE MQL MUY STORNR SZA JMP TYDR /ZU GROSSE FILELAENGE ACL DCA FILENG TAD FILENG DCA CLOSE2 JMP I SETRST DEVNMI, DEVNAM+1 WRTRED, 0 CLA TAD I DEVNMI CDF 20 /DEV. VERWENDET? SNA CLA /JA JMP RF /NEIN TAD FILCNT IAC SMA SZA JMS TYDR DCA FILCNT CIF 0 JMS I DHENT DHFUNC, 0 CORADR, 0 STRTBK, 0 JMS TYDR TAD DHFUNC AND (3700 BSW CLL RAR TAD STRTBK DCA STRTBK RF, CDF CIF 10 JMP I WRTRED DHENT, 0 TYD, 0 CIF 10 JMS I (200 11 /USROUT CLA TAD TYD JMP .+3 TYDR, 0 TAD TYDR MQL CDF CIF 0 JMS I .+1 544 /JMP TO TYDER
/CIF 20 /JMS FFOUT /F-FORMATAUSGABE /ERG.ADR. /ERG. IN FELD 20 /ANZ. ALLER STELLEN /ANZ. DER STELLEN NACH DEM KOMMA EFZ1, FFOUT, 0 CLA IAC DCA 56 DCA 55 TAD I FFOUT DCA FFZ1 ISZ FFOUT TAD I FFOUT DCA 57 ISZ FFOUT TAD I FFOUT DCA 60 ISZ FFOUT CDF 20 ENTF FGET I FFZ1 FOUT FEXT CIF CDF 10 JMP I FFOUT /CIF 20 /JMS EFOUT /ARG. /ERGEBNISAUSGABE IN EFORMAT FFZ1, EFOUT, 0 CLA TAD I EFOUT DCA EFZ1 ISZ EFOUT CDF 20 DCA 55 DCA 56 ENTF FGET I EFZ1 FOUT FEXT CDF CIF 10 JMP I EFOUT
PAGE /CIF 20 /JMS SRMUY /MULTIPLIKATION,ALLE ARG. IN FELD 20 /FAKTOR1 /FAKTOR2 /PRODUKT SUZ1, SRMUY, 0 CLA TAD I SRMUY DCA DIVZ1 ISZ SRMUY TAD I SRMUY DCA DIVZ2 ISZ SRMUY TAD I SRMUY DCA DIVZ3 ISZ SRMUY CDF 20 ENTF FGET I DIVZ1 FMPY I DIVZ2 FPUT I DIVZ3 FEXT CIF CDF 10 JMP I SRMUY /CIF 20 /JMS DIVIDR /DIVISION, ALLE ARGUMENTE IN FELD 20 /DIVIDENT /DIVISOR /ERGEBNIS SUZ2, DIVIDR, 0 CLA TAD I DIVIDR DCA DIVZ1 ISZ DIVIDR TAD I DIVIDR DCA DIVZ2 ISZ DIVIDR TAD I DIVIDR DCA DIVZ3 ISZ DIVIDR CDF 20 ENTF FGET I DIVZ1 FDIV I DIVZ2 FPUT I DIVZ3 FEXT CIF CDF 10 JMP I DIVIDR /CIF 20 /JMS SUMM ALLE ARG. IN FELD 20 /SUMMAND1 /SUMMAND2 /SUMME DIVZ2, SUMM, 0 CLA TAD I SUMM DCA SUZ1 ISZ SUMM TAD I SUMM DCA SUZ2 ISZ SUMM TAD I SUMM DCA SUZ3 ISZ SUMM CDF 20 ENTF FGET I SUZ1 FADD I SUZ2 FPUT I SUZ3 FEXT CIF CDF 10 JMP I SUMM /CIF 20 /JMS DIFF /DIFFERENZ /SUMMAND1 /SUMMAND2 /DIFFERENZ DIVZ3, NRMDZ2, DIFF, 0 CLA TAD I DIFF DCA SUZ1 ISZ DIFF TAD I DIFF DCA SUZ2 ISZ DIFF TAD I DIFF DCA SUZ3 ISZ DIFF CDF 20 ENTF FGET I SUZ1 FSUB I SUZ2 FPUT I SUZ3 FEXT CDF CIF 10 JMP I DIFF /CIF 20 /JMS NORMD /UMWANDLUNG: DOUBLE PREC. IN FLOAT. POINT /ARG1 /DOPPELTGENAU IN FELD 10 /ARG2 /FP.DARST. IN FELD 20 NRP23, 27 DIVZ1, SUZ3, NORMD, 0 SWAB CLA TAD I NORMD DCA NRMDZ1 ISZ NORMD TAD I NORMD DCA NRMDZ2 ISZ NORMD CAM DAD NRMDZ1, 0 CDF 20 SWP DST 45 CLA TAD NRP23 DCA 44 ENTF FNOR FPUT I NRMDZ2 FEXT CIF CDF 10 JMP I NORMD /CIF 20 /JMS FUNCSR /X,Y IN FELD 20 /FUNCTION /X ADR. /Y ADR. FUNCSR, 0 CLA TAD I FUNCSR DCA FUNC ISZ FUNCSR TAD I FUNCSR DCA NRMDZ1 ISZ FUNCSR TAD I FUNCSR DCA NRMDZ2 ISZ FUNCSR CDF 20 ENTF FGET I NRMDZ1 FUNC, 0 FPUT I NRMDZ2 FEXT CIF CDF 10 JMP I FUNCSR
/****************************************************************** /PROGRAMM ZUR BERECHNUNG VON BURSTSTRUKTUREN /30.3.76 FIELD 1 *FORTS1 PAGE CALBST, BITAUS, SYNAUS, 2 BLOTNT BSTNT ACUM 1 DCA WRD ISZ CNT10 INEND TAD CM10 DCA CNT10 TAD WRD AND Y4177 SNA CLA JMP CORLOC ISZ FALSE SKP ISZ FALSE+1 ISZ BURSTZ SKP TYDER INEND CORLOC, ISZ CORCT SKP ISZ CORCT+1 TAD BURSTZ SNA INEND AND Y7760 SZA CLA JMP MAXLOC TAD BURSTZ STRLOC, TAD TABLA DCA TABLP ISZ I TABLP DCA BURSTZ ISZ BSTCNT SKP ISZ BSTCNT+1 INEND MAXLOC, TAD MAXBST JMP STRLOC BSTNT, TAD CM10 DCA CNT10 DCA BURSTZ SWAB CAM DST FALSE DST CORCT DST BSTCNT TAD CM20 DCA CNT20 TAD TABLA DCA TABLP DCA I TABLP ISZ TABLP ISZ CNT20 JMP .-3 INEND CNT20, 0 CM20, -20 BSTCNT, 0;0 MAXBST, 17 CNT10, 0 CM10, -10 WRD, 0 Y4177, 4177 FALSE, 0;0 BURSTZ, 0 CORCT, 0;0 Y7760, 7760 TABLA, TABL TABLP, 0 TABL, ZBLOCK 20
PAGE CALPRT, 0 CLA IAC DCA LENGZ CLA IAC TAD TABLA DCA TABLP2 TAD CM17 DCA TABLC LINE LINE JMS ABSANZ JMS RELHAF JMS FALSCH JMS TELEG TDC V+"U V+"N V+"D 240 JMS SYNCAS LINE CLA TAD FALSE DCA DPB TAD FALSE+1 DCA DPB+1 CIF 20 JMS NORMD DPB DPB3 CIF 20 JMS FFOUT DPB3 35 0 SWAB CAM DAD FALSE DAD CORCT DST DPA TDC 4240 240 CIF 20 JMS NORMD DPA DPA3 CIF 20 JMS DIVIDR DPB3 DPA3 DPA3 CIF 20 JMS EFOUT DPA3 LINE JMS ABSANZ JMS ALLER TDC V+"B V+"U V+"R V+"S V+"T V+"S 240 CIF 20 JMS NORMD BSTCNT TEMA3 CIF 20 JMS FFOUT TEMA3 10 0 LINE LINE JMP CALPR2 PAGE CALPR2, JMS DISTRB LINE CALOP, TDC 240 JMS BURST TAD LENGZ DCA DPC DCA DPC+1 CIF 20 JMS NORMD DPC DPC3 CIF 20 JMS FFOUT DPC3 4 0 CLA TAD I TABLP2 DCA DPC DCA DPC+1 CIF 20 JMS NORMD DPC DPC3 CIF 20 JMS FFOUT DPC3 10 0 CIF 20 JMS DIVIDR DPC3 TEMA3 DPE3 TDC 4240 240 CIF 20 JMS EFOUT DPE3 LINE ISZ LENGZ ISZ TABLP2 ISZ TABLC JMP CALOP LINE CLA TAD CALPRT DCA .+2 JMP I .+1 0 LENGZ, 0 TABLP2, 0 CM17, -17 TABLC, 0 DPB, 0;0 DPC, 0;0 DPA, 0;0
FORTS2=. FIELD 2 *70 P113D, 0;0;0 TELSM3, 0;0;0 BITSM3, 0;0;0 TELNM3, 0;0;0 MESAS3, 0;0;0 KOPAS3, 0;0;0 FEL03, 0;0;0 FEL13, 0;0;0 INFAS3, 0;0;0 FLSDC3, 0;0;0 DECAS3, 0;0;0 TEMA3, 0;0;0 TEMB3, 0;0;0 TEMC3, 0;0;0 DPE3, 0;0;0 DPA3, 0;0;0 DPB3, 0;0;0 DPC3, 0;0;0 *400 TEMPO, ZBLOCK 10 TEMPO2, ZBLOCK 10 REGIST, ZBLOCK 10 MASKE3, 2525;2525;2525;2525;2525;2504;3000;0 FIELD 1 *FORTS2 PAGE V=4000 PAGE
ZAHLEN, 0 LINE LINE TDC V+"Z V+"A V+"H V+"L V+"E V+"N V+"W V+"E V+"R V+"T V+"E 4240 ": LINE JMP I ZAHLEN ABSANZ, 0 TDC V+"A V+"B V+"S V+". V+"A V+"N V+"Z ". JMP I ABSANZ ALLER, 0 TDC V+"A V+"L V+"L V+"E V+"R 240 JMP I ALLER TELEG, 0 TDC V+"T V+"E V+"L V+"E V+"G V+"R V+"A V+"M V+"M V+"E 240 JMP I TELEG RELHAF, 0 TDC V+"U V+"N V+"D 4240 V+"R V+"E V+"L V+". V+"H V+"A V+"E V+"U V+"F ". JMP I RELHAF SYNCAS, 0 TDC V+"D V+"E V+"R 4240 V+"T V+"E V+"L V+"E V+"G V+"R V+"A V+"M V+"M V+"K V+"O V+"P V+"F V+"A V+"U V+"S V+"F V+"A V+"E V+"L V+"L "E JMP I SYNCAS PAGE FALSCH, 0 TDC V+"F V+"A V+"L V+"S V+"C V+"H V+"E V+"R 240 JMP I FALSCH BURST, 0 TDC V+"B V+"U V+"R V+"S V+"T V+"S V+" V+"D V+"E V+"R V+" V+"L V+"A V+"E V+"N V+"G "E JMP I BURST DISTRB, 0 TDC V+"S V+"T V+"O V+"E V+"R V+"U V+"N V+"G V+"E V+"N " TDC V+"D V+"E V+"R " JMS TELEG TDC V+"D V+"U V+"R V+"C V+"H 240 JMP I DISTRB