File BITAUS.N6

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 DARSTELLUNG UND BERECHNUNG VON BITFEHLERN /30.4.75 FIELD 1 *FORTS1 PAGE BITAUS, SYNAUS, 2 BLOTNT SYASNT ACUM 1 CDF 20 MQL ACL DCA I TELPOI CDF 10 ISZ TELPOI ISZ CNT10 /CNTRLW EINGEGEBEN ? INEND /NO /JA, ACL DCA CNTRLW /STORE IT CLA CLL IAC RTL /AND INITIAL. CNT10 CIA RAL DCA CNT10 TAD REGA DCA TELPOI TAD CNTRLW CLL RAL SMA CLA /MESSAUSFALL ? JMP S1 /NO /JA, ISZ MESAUS /INC. MES.AUSF.ZAEHLER SKP ISZ MESAUS+1 JMP S5 S1, SNL CLA /KOPFAUSFALL ? JMP S2 /NO,CHECK BITS /JA, ISZ KOPAUS /INC. KOPFAUSFALLZAEHLER SKP ISZ KOPAUS+1 JMP S5 S2, SWAB TAD CNTRLW AND Y177 DCA FELNUM /ZAEHLE BITFEHLER IM TELEGRAMM TAD FELNUM SZA CLA /MINDESTENS EIN BITFEHLER ? ISZ TELSM /JA SKP /NO ISZ TELSM+1 TAD FELNUM MQL DAD BTERSM /SUMMIERE ALLE BITFEHLER AUF DST BTERSM CLA CLL CML RTL CLL CML RTL CIA TAD FELNUM SPA CLA /MEHR ALS 11 BITFEHLER ? JMP S3 /NO /JA, ISZ FEHL10 /INC. 12-U.-MEHR-FEHLER-ZAEHLER SKP ISZ FEHL10+1 JMP S5 S3, TAD FELNUM CLL RAL TAD FELTA DCA FELPOI CLA IAC TAD FELPOI DCA FELPOI+1 ISZ I FELPOI SKP ISZ I FELPOI+1 S5, CLA TAD CNTRLW CLL RTL SMA /RESERVIERTES BIT GESETZT ? JMP S6 /NO /JA ISZ INFAUS /INC. INFAUS SKP ISZ INFAUS+1 S6, CLL RAL SMA /FALSCH DECODIERT ? JMP S7 /NO /JA, ISZ FLSDEC SKP ISZ FLSDEC+1 JMP S8 S7, CLL RAL SMA /DECODIERAUSFALL ? JMP S8 /NO /JA, ISZ DECAUS /INC. DECAUSFALL-ZAEHLER SKP ISZ DECAUS+1 JMP S8 TELPOI, 0 FLSDEC, 0;0 DECAUS, 0;0 INFAUS, 0;0 TELSM, 0;0 FELTA, FEHL0 FELPOI, 0;0 Y177, 177 Y260, 260 CHARN, 113 CHARC, 0 FELNUM, 0 CNT10, 0 CNTRLW, 0 P113, 113;0 TELNUM, 0;0 MESAUS, 0;0 KOPAUS, 0;0 BTERSM, 0;0 PAGE LINKG, 0 LINKH, 0 LENG7, 7 INNULL, 0;0 INEINS, 0;0 FEHL0, 0;0 FEHL1, 0;0 FEHL2, 0;0 FEHL3, 0;0 FEHL4, 0;0 FEHL5, 0;0 FEHL6, 0;0 FEHL7, 0;0 FEHL8, 0;0 FEHL9, 0;0 FEHL10, 0;0 S8, ISZ TELNUM /TELEGRAMM-NUMMER MERKEN SKP ISZ TELNUM+1 JMS DRUCK S9, CIF 20 JMS NORMD TELNUM TELNM3 CIF 20 JMS FFOUT TELNM3 10 0 LINE INEND SYASNT, SWAB CAM DST TELNUM DST MESAUS DST KOPAUS DST TELSM DST INNULL DST INEINS DST INFAUS DST BTERSM CLA CLL CML RTL CLL CML RTL CMA RAL DCA CHARC TAD FELTA DCA FELPOJ DCA I FELPOJ ISZ FELPOJ ISZ CHARC JMP .-3 TAD REGA DCA TELPOI CLA CLL IAC RTL CIA RAL DCA CNT10 JMS TITEL JMS DATEI JMS EXPLAN LINE LINE INEND REGA, REGIST FELPOJ, 0 PAGE DRUCK, 0 TAD FELNUM SNA CLA INEND CLA CLL CML IAC RTR AND CNTRLW SZA CLA INEND INBLIP MWEXOR REGIST MASKE3 TEMPO LENG7 FELD20 KOPIE FELD20 MASKE3 LENG7 TEMPO2 FELD20 BLOUT TAD CHARN CIA DCA CHARC SLP, INBLIP ROTATL LINKG TEMPO LENG7 FELD20 ROTATL LINKH TEMPO2 LENG7 FELD20 BLOUT TAD LINKG SNA CLA JMP S10 TAD LINKH SNA JMP S13 ISZ INNULL SKP ISZ INNULL+1 JMP S12 S13, ISZ INEINS SKP ISZ INEINS+1 S12, RAR CLA CML RAL TAD Y260 TCHAR S11, CLA DCA LINKH DCA LINKG ISZ CHARC JMP SLP JMP I DRUCK S10, TDC 255 JMP S11
PAGE CALPRT, 0 LINE JMS ZAHLEN /ZAHLENWERTE: LINE JMS ABSANZ /ABS.ANZ. ALLER TELEGRAMME JMS ALLER JMS TELEG CIF 20 JMS NORMD TELNUM TELNM3 CIF 20 JMS NORMD MESAUS MESAS3 CIF 20 JMS DIFF TELNM3 MESAS3 TELNM3 CIF 20 JMS FFOUT TELNM3 37 0 LINE JMS ABSANZ /ABS. ANZ. UND REL. HAEUF. DER KOPFAUSF. JMS RELHAF JMS SYNCAS CIF 20 JMS NORMD KOPAUS KOPAS3 CIF 20 JMS FFOUT KOPAS3 10 0 TDC 4240 240 CIF 20 JMS DIVIDR KOPAS3 TELNM3 TEMA3 CIF 20 JMS EFOUT TEMA3 LINE JMS ABSANZ /ABS. ANZ. UND REL. HAEUF. RICHTIGER TELEG. JMS RELHAF JMS RICHTG JMS TELEG CIF 20 JMS NORMD FEHL0 FEL03 CIF 20 JMS FFOUT FEL03 15 0 TDC 4240 240 CIF 20 JMS DIVIDR FEL03 TELNM3 TEMA3 CIF 20 JMS EFOUT TEMA3 LINE JMS ABSANZ /ABS. ANZ. UND REL. HAEUF. FALSCHER TELEG. JMS RELHAF JMS FALSCH JMS TELEG CIF 20 JMS NORMD TELSM TELSM3 CIF 20 JMS FFOUT TELSM3 16 0 TDC 4240 240 CIF 20 JMS DIVIDR TELSM3 TELNM3 TEMA3 CIF 20 JMS EFOUT TEMA3 LINE LINE JMP CLPRT2 PAGE CLPRT2, JMS ABSANZ /ABS. ANZ. ALLER EMPF. BIT JMS ALLER JMS EMPFBT CIF 20 JMS NORMD P113 P113D CIF 20 JMS DIFF TELNM3 KOPAS3 TEMB3 CIF 20 JMS SRMUY TEMB3 P113D TEMB3 CIF 20 JMS FFOUT TEMB3 32 0 LINE JMS ABSANZ /ABS. ANZ. U. REL. HAEUFIGKEIT DER BITFEHLER JMS RELHAF JMS BITFEL CIF 20 JMS NORMD BTERSM BITSM3 CIF 20 JMS FFOUT BITSM3 24 0 TDC 4240 240 CIF 20 JMS DIVIDR BITSM3 TEMB3 TEMC3 CIF 20 JMS EFOUT TEMC3 LINE LINE JMS DISTRB /STOERUNGEN FALSCHER TELEG. DURCH LINE TAD (4261 DCA A1 TAD FEL1A DCA A2 TAD (-12 DCA CNTFEL A0, TDC 4240;4240;4240;4240;4240;4240 4240 4240 4240 A1, 4000+"1 "- JMS FCHFEL /FACHFEHLER CIF 20 JMS NORMD A2, FEHL1 A3, FEL13 CIF 20 JMS FFOUT FEL13 12 0 TDC 4240 240 CIF 20 JMS DIVIDR FEL13 TELSM3 TEMC3 CIF 20 JMS EFOUT TEMC3 LINE ISZ A1 ISZ A2 ISZ A2 ISZ CNTFEL JMP A0 JMP CLPRT3 PAGE
CLPRT3, LINE JMS ABSANZ JMS RELHAF JMS ALLER JMS VERFL JMS SRNULL CIF 20 JMS NORMD INNULL INNUL3 CIF 20 JMS FFOUT INNUL3 10 0 CIF 20 JMS DIVIDR INNUL3 BITSM3 INNUL3 TDC 4240 240 CIF 20 JMS EFOUT INNUL3 LINE JMS ABSANZ JMS RELHAF JMS ALLER JMS VERFL JMS SREINS CIF 20 JMS NORMD INEINS INEIN3 CIF 20 JMS FFOUT INEIN3 11 0 CIF 20 JMS DIVIDR INEIN3 BITSM3 INEIN3 TDC 4240 240 CIF 20 JMS EFOUT INEIN3 LINE CLA TAD CALPRT DCA .+2 JMP I .+1 0 FEL1A, FEHL1 FEL13A, FEL13 CNTFEL, 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 INNUL3, 0;0;0 INEIN3, 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 TITEL, 0 LINE TDC V+"G;V+"R;V+"A;V+"F;V+"I;V+"K 240 JMS FALSCH JMS TELEG LINE LINE JMP I TITEL DATEI, 0 TDC V+"D;V+"A;V+"T;V+"E;V+"I;V+"K;V+"E;V+"N;V+"N TDC V+"Z;V+"E;V+"I;V+"C;V+"H;V+"N;V+"U;V+"N;V+"G;": LINE LINE JMP I DATEI EXPLAN, 0 LINE TDC V+"J V+"E V+"D V+"E 4240 V+"Z V+"E V+"I V+"L V+"E V+" V+"B V+"E V+"D V+"E V+"U V+"T V+"E V+"T 4240 V+"1 4240 V+"T V+"E V+"L V+"E V+"G V+"R V+"A V+"M V+" V+"M V+"I V+"T V+" V+"B V+"I V+"T V+"F V+"E V+"H V+"L V+"E V+"R V+"N V+" V+"M V+"I V+"T " JMS VERFL TDC V+"0 V+", "1 LINE JMP I EXPLAN VERFL, 0 TDC V+"V V+"E V+"R V+"F V+"A V+"E V+"L V+"S V+"C V+"H V+"U V+"N V+"G V+"E V+"N V+" V+"N V+"A V+"C V+"H " JMP I VERFL PAGE SRNULL, 0 TDC V+"N V+"U V+"L V+"L 240 JMP I SRNULL SREINS, 0 TDC V+"E V+"I V+"N "S JMP I SREINS
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 RICHTG, 0 TDC V+"R V+"I V+"C V+"H V+"T V+"I V+"G V+"E "R TDC 240 JMP I RICHTG FALSCH, 0 TDC V+"F V+"A V+"L V+"S V+"C V+"H V+"E V+"R 240 JMP I FALSCH EMPFBT, 0 TDC V+"E V+"M V+"P V+"F V+"A V+"N V+"G V+"E V+"N V+"E V+"N 4240 V+"B V+"I V+"T 240 JMP I EMPFBT BITFEL, 0 TDC V+"D V+"E V+"R 4240 V+"B V+"I V+"T V+"F V+"E V+"H V+"L V+"E V+"R 240 JMP I BITFEL DISTRB, 0 TDC V+"S V+"T V+"O V+"E V+"R V+"U V+"N V+"G V+"E V+"N " JMS FALSCH JMS TELEG TDC V+"D V+"U V+"R V+"C V+"H 240 JMP I DISTRB FCHFEL, 0 TDC V+"F V+"A V+"C V+"H V+"F V+"E V+"H V+"L V+"E V+"R 240 JMP I FCHFEL DECASF, 0 TDC V+"D V+"E V+"C V+"O V+"D V+"I V+"E V+"R V+"V V+"E V+"R V+"S V+"A V+"G V+"E V+"R 240 JMP I DECASF PAGE FLSDCF, 0 TDC V+"F V+"A V+"L V+"S V+"C V+"H V+"E V+"N V+" V+"D V+"E V+"C V+"O V+"D V+"I V+"E V+"R V+"U V+"N V+"G V+"E V+"N 240 JMP I FLSDCF



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