/************** ZZG4 ********************************************* /22.7.75 /CALL: ZZG4 /MULTIPL.ZZG: Z(N+1)=C*Z(N)MOD(B) / SCHWELLE /DOPPELTGENAU / UEBERLAUF /=1,WENNZUF.ZAHL>SCHWELLE /MERKE: C=(2^15+5)DEZIMAL;B=2^31DEZIMAL;Z(0)=1 /C IST MAX DOPPELTGENAU; B,Z SIND MAX. DREIFACH-GENAU /ZZG4 IST GEPACKTE VERSION VON ZZG3 *7400 ZZG4, 2 BLOTNT ZZG4NT SWAB CAM DST ZAC1 CAM DST ZAC3 JMS MUL /C0*ZN0*2^0 C0 ZN0 ZAC0 CAM DAD /+ ZAC1 JMS MUL /C0*ZN1*2^14 C0 ZN1 ZAC1 CAM DAD /+ ZAC1 JMS MUL /C1*ZN0*2^14 C1 ZN0 ZAC1 CAM DAD /+ ZAC2 JMS MUL /C0*ZN2*2^30 C0 ZN2 ZAC2 CAM DAD /+ ZAC2 JMS MUL /C1*ZN1*2^30 C1 ZN1 ZAC2 CAM DAD ZAC0 DST ZN0 /Z(N+1) VORBEREITET CLA TAD ZAC2 AND ZMSK2 DCA ZN2 TAD ZM5 DCA ZCNT ZLP, TAD ZAC0 /NORMALISIERUNG WEGEN KOMPATIBILITAET CLL RAL DCA ZAC0 TAD ZAC1 RAL DCA ZAC1 TAD ZAC2 RAL DCA ZAC2 ISZ ZCNT JMP ZLP GETAD 1 DCA Z3POI CAM DAD Z3POI, 0 DAD ZAC1 CLA RAL PUT 2 INEND ZZG4NT, SWAB TAD Z0 DCA ZN0 CAM DST ZN1 JMP ZZG4NT-3 MUL, 0 CLL DST SACMQ /SAVE AC+MQ CAM TAD I MUL DCA MTP1 ISZ MUL TAD I MTP1 MQL TAD I MUL DCA MTP1 ISZ MUL TAD SACMQA DCA MTP2 TAD I MUL DCA MTP3 ISZ MUL MUY MTP1, 0 DAD MTP2, 0 DST MTP3, 0 CAM SNL JMP I MUL DPIC CLA CLL IAC RAL TAD MTP3 DCA MTP3 TAD MTP3 DCA MTP2 JMP MTP1+1 SACMQ, 0 0 SACMQA, SACMQ ZMSK2, 177 /MOD B ZM5, -5 ZCNT, 0 C0, 5 C1, 10 /2^15+5 ZN0, 1 /Z(N) ZN1, 0 ZN2, 0 Z0, 1 /Z(0) 0 ZAC0, 0 ZAC1, 0 ZAC2, 0 ZAC3, 0 0 PAGE /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /SIMULATION EINES N,K BLOCKCODES /MIT BLBL8 /22.11.74 /ANZ. DER BINAEREN STELLEN EINES CODEWORTES N=1 /ANZ. DER INFORMATIVEN STELLEN K=1 /ANZ. DER REDUNDANTEN STELLEN NMK=0 /ANZ. DER BITS IM CODIER-REGISTER B=37 /KLEINSTE GANZE VON N/14, K/14, NMK/14, B/14 KGN=1 KGK=1 KGB=3 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 ISZ SIMCNT+1 SKP MOSTGO /ALLE BITERRORRATES FERTIG CLA CLL IAC DCA MYFLAG JMS NEWPAR /ISZ ALLE PARAMETER LOCB, TAD OUTPUT CDF CIF 0 JMP I INTERF INPUT, 0 OUTPUT, 0 SIMNT, 0 NOP NTBLIP INBLIP ANSPRE /JEWEILIGER NAME NZERO OUTPUT BLNTOF BLOUT JMP I SIMNT SIMUL, 0 INBLIP ANSPRE /JEWEILIGER NAME INPUT OUTPUT BLOUT JMP I SIMUL NXTPRO, CLA CLL NOP NOP JMS CALTYP ISZ PROGCT SKP MOSTGO CDF CIF 0 JMP I .+1 5000 PROGNM, 1 PROGCT, -1 PAGE TYPDEV, TPONTY /ODER TPONDW=TPONTY-22 SPEZNT, 0 /EINMALIGE INIT. VON SPEZIALPROGRAMMEN JMS I TYPDEV SWAB CAM DST ANRFSM CAM DST ERFSAS CAM DST ERFSBS CLL CML CLA RAR DCA DTPOI CAM DST CALLNM TAD TABLA DCA TABLPA TAD (-700 DCA TABLC CDF 20 DCA I TABLPA CDF 10 ISZ TABLPA ISZ TABLC JMP .-5 JMP I SPEZNT NOP NOP TABLPA, 0 TABLC, 0 PARNT, 0 /EINMALIGE INIT. DER PARAMETER CLA TAD SHFTNR DCA SHFTS SWAB CAM DAD SIMNUM DCM DST SIMCNT CAM DAD ERRORN DST ERRORV CAM DAD WDSNUM DST WDSNUV JMP I PARNT NOP;NOP SPEZSR, 0 /Z.B. HYSTOGRAMM AM ENDE JEDER TEILSIMULATION JMP I SPEZSR NOP NOP NEWPAR, 0 /ISZ DER PARAMETER JMP I NEWPAR PAGE /WICHTIGE PARAMETER!!!!!!!!!!!!!!!!!!!!!!!!!!! /BIFEHLERRATE IM KANAL ERRORN, 0;632 /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 WDSNUM, 1 0 /SCPWDS IST DIE ANZAHL DER SCOPEWORTE , DIE FUER EINE TEILSIMULATION /ZUR VERFUEGUNG STEHEN. /ZWECKMAESSIG =2^(SHFTNR) SCPWDS, 327;0 /SIMNUM ENTHAELT DIE ANZAHL DER TEILSIMULATIONEN. SIMNUM, 1;0 /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, 0 /FILENAME AUF BAND ODER PLATTE STONAM, FILENAME COYERG.AA /NAME OF DEVICE USED. MOST SIGNIF. HAELFTE VON DEVNAM LOESCHEN, /WENN KEIN DEVICE VERWENDET WERDEN SOLL. DEVNAM, DEVICE SYS 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 SIMCNT, 0;0 WDSNUV, 0;0 CNT1, 0;0 CNT2, 0;0 DATEIL, 0 BLOCKL, 0;0 ERSUMA, 0;0 CALLNM, 0;0 TYPCNT, 0;0 ERFSAS, 0;0 ERFSBS, 0;0 ANRFSM, 0;0 EMPFRK, 0;0 NZERO, ZBLOCK N+14 FORTS1=. *177 DTPOI, 0 FIELD 2 *400 TABL, ZBLOCK 340 TABL2, ZBLOCK 340 INPVKT, ZBLOCK KGK+1 REGS, CODREG, ZBLOCK KGB+1 REGD, DECREG, ZBLOCK KGB+1 POLYN, 5004;0000;0040;0000 INVERS, 4000;4;260;0 KOMPLM, 3777;7773;7500;0 SYNREG, ZBLOCK KGB+1 OBSRG3, ZBLOCK 11 OBSMSK, ZBLOCK 11 TEMREG, ZBLOCK KGB+1 SEEREG, ZBLOCK 124 LIST, ZBLOCK 40 MSREG, ZBLOCK 10 MSTEM, ZBLOCK 10 MSMSK, ZBLOCK 10 MSRCHT, ZBLOCK 10 MSRCHC, ZBLOCK 10 HLTA, HLT FIELD 1 *FORTS1 PAGE AUSWRT, 0 CLA CLL JMS DCWSCP INBLIP BLOTNT AUSWNT TAD WAIT1C SPA CLA JMP CALL0-4 SWAB TAD ANRFLG SZA CLA ISZ ANRISZ CLA CLL TAD SYNINP TAD EMPFR2 RAR CLA RAL MQL DAD ERRFSA DST ERRFSA CLA CLL TAD AUSGD2 TAD EMPFR2 RAR CLA RAL MQL DAD ERRFSB DST ERRFSB ISZ TYPCNT SKP ISZ TYPCNT+1 JMP I AUSWRT CALL0, JMS CALLOC JMS CALCUL NOP NOP JMP I AUSWRT CALLOC, 0 CAM DAD SCPWDS DCM DST TEMA CAM CLL CLOC0, DAD WDSNUV SZL JMP CLOC1 ISZ TEMA SKP ISZ TEMA+1 JMP CLOC0 LSR SHFTS, 0 DCM DST TYPCNT JMP I CALLOC CLOC1, CAM DST TEMB TAD SHFTS DCA SHIFS CAM DAD SCPWDS DCM DST TEMA CLOC2, CAM DAD WDSNUV LSR SHIFS, 0 DAD TEMB DST TEMB ISZ TEMA SKP ISZ TEMA+1 JMP CLOC2 CAM DAD TEMB DCM DST TYPCNT JMP I CALLOC TEMA, 0 0 TEMB, 0 0 ERRFSA, 0;0 ERRFSB, 0;0 TABLB, TABL2 ANRFLG, 0 TABLA, TABL ANRISZ, 0 AUSWNT, SWAB CLA DCA ANRISZ CAM DST ERRFSA CAM DST ERRFSB TAD SHFTNR DCA SHFTS NOP;NOP /FUER PATCH JMP CALL0 PAGE ANSNT, CLA CMA DCA RECTS CLA CMA DCA EMPFRK JMP ANSPRE+3 ANSPRE, 2 BLOTNT ANSNT ISZ RECTS CLA IAC AND RECTS DCA EINGS INBLIP SCRAMB EINGS AUSGS REGS POLYN PREC4 FELD20 BSC AUSGS EINGD SP1 ERRORV ERRORF FELD10 DESCRA EINGD AUSGD REGD POLYN PREC4 FELD20 MSEE BLOUT ISZ EMPFRK CLA IAC AND EMPFRK DCA EMPFRK TAD EMPFRK TAD MSPHA RAR CLA RAL DCA EMPFR2 TAD AUSGD DCA SYNINP INBLIP THRDEV SYNINP SYNOUT SYNREG INVERS KOMPLM SWEL PREC4 FELD20 BLOUT SWAB CDF 20 CAM DAD SYNREG+1 CDF 10 AND DELM SZA CLA IAC DCA DELOUT TAD DELOUT L0, JMP L1 TAD SYNOUT TAD EMPFR2 RAR CLA RAL L1, DCA AUSGD2 INBLIP SEE AUSGD2 SEEREG EMPFR2 ANRFLG BLOUT JMS AUSWRT INEND EMPFR2, 0 AUSGD2, 0 DELOUT, 0 SYNINP, 0 SYNOUT, 0 DELM, 20 SWEL, 3 SP1, 1 RECTS, 0 EINGS, 0 AUSGS, 0 EINGD, 0 AUSGD, 0 PAGE AUFSUM, 0;0 WAIT1C, 0 ANFLST, LIST LISTL, 40 LPOI1, 0 LPOI2, 0 LCNT, 0 NOP NOP NOP NOP MSEE, 0 BLOTNT MSNT TAD AUSGD DCA MSLNK INBLIP ROTATR MSLNK MSREG MSPREC FELD20 MWEXOR MSREG MSRCHT MSTEM MSPREC FELD20 MWQSUM MSTEM MSMSK MSQSUM MSPREC FELD20 BLOUT ISZ MSWCNT JMP MSLOC1 TAD MSQSUM TAD MSTHRS SPA CLA IAC DCA MSPHA MSLOC1, TAD MSWCNT SPA CLA JMP MSLOC2 TAD MSQSUM TAD MSTHRS SPA CLA IAC DCA MSPHB MSLOC2, INEND MSNT, INBLIP KOPIE FELD20 MSMSK MSPREC MSREG FELD20 BLOUT TAD MS40 DCA MSWCNT DCA MSPHA DCA MSPHB INEND MS40, -40 MSPHA, 0 MSPHB, 0 MSTHRS, 20 MSLNK, 0 MSPREC, 3 MSQSUM, 0 MSWCNT, 0 WAIT1, 0 INBLIP BLOTNT WAI1NT ISZ WAIT1C TAD WAIT1C SPA CLA INEND JMP I WAIT1 WAI1NT, TAD (-40 DCA WAIT1C JMP I WAIT1 PAGE /**************** THRESHOLD DEVICE *********************** /20.10.75 DIETER COY /CALL: THRDEV / INPUT /FOR SYNDROM / OUTPUT /OF MAJORITY-LOGIC / STATE /SYNDROM-REGISTER / TAPS1 /POLYNOMANZAPFUNGEN / TAPS2 /POLYNOMRUECKFUEHRUNG / THRESHOLD / PRECISION OF STATE AND TAPPOLYNOMIALS / FIELD THRDEV, 10 BLOUT JMS WAIT1 TAD EMPFR2 RAR CLA RAL SNA CLA TAD (10 TAD (MSRCHT DCA L2 ACUM 1 DCA THRDIN INBLIP ROTATR THRDIN 3 7 10 MWEXOR L2, MSRCHT 3 MSTEM 7 10 MWQSUM MSTEM 4 THRSUM 7 10 MWQSUM MSTEM 5 THRSVM 7 10 BLOUT TAD THRSVM CIA TAD (33 DCA THRSVM TAD THRSVM TAD THRSUM DCA ALLSUM JMS WAIT1 JMS X2 TAD VSCHW CIA TAD ALLSUM SPA CLA JMP THRDLC ACUM 6 CIA TAD THRSUM SPA CLA JMP THRDLC JMS X1 INBLIP MWEXOR 3 4 3 7 10 BLOUT CLA IAC THRDLC, DCA THROUT TAD THROUT PUT 2 INEND ALLSUM, 0 THROUT, 0 THRSVM, 0 VSCHW, 26 THRSUM, 0 THRDIN, 0 /*************************** MWQSUM ***************************** /28.7.75 /CALL: M(ULTI)W(ORD)Q(UER)SUM(ME) / REGISTER / MASKE / ERGEBNIS / GENAUIGKEIT / FELDNR. MWQSUM, 5 BLOUT GETAD 1 DCA MWQPO1 GETAD 2 DCA MWQPO2 ACUM 4 CIA DCA MWQCNT ACUM 5 TAD MWQCDF DCA MWQDTF RIF TAD MWQCDF DCA MWQRTF DCA MWQSM MWQDTF, HLT MWQLOP, TAD I MWQPO1 AND I MWQPO2 CLL RAL SZL ISZ MWQSM SZA JMP .-4 ISZ MWQPO1 ISZ MWQPO2 ISZ MWQCNT JMP MWQLOP MWQRTF, HLT TAD MWQSM PUT 3 INEND MWQSM, 0 MWQPO1, 0 MWQPO2, 0 MWQCNT, 0 MWQCDF, CDF PAGE /**************** SCRAMB ********************************** /22.7.75 /CALL: SCRAMB / EINGANG /1 BIT GANZ RECHTS / AUSGANG /1 BIT GANZ RECHTS / ZUSTAND /DES SCRAMBLER-REGISTERS / POLYNOM /REPRAESENTIERT DIE ANZAPFUNGEN / GENAUIGKEIT /VON ZUSTAND UND POLYNOM(WOERTER) / FELDNR /MULTIPLIZIERT MIT 10(DEZ.) FUER ARG. 3,4 SCRAMB, 6 MWMOD2 3 4 FDBK 5 6 BLOTNT SCRANT ACUM 1 TAD FDBK RAR CLA RAL DCA LNK1 TAD LNK1 PUT 2 INBLIP ROTATR LNK1 3 5 6 BLEND SCRANT, PUT 2 INEND LNK1, 0 FDBK, 0 /************ DESCRA ******************************************** /21.11.74 /CALL: DESCRA /BLIP-BLOCK DESCRAMBLER / EINGANG /1 BIT GANZ RECHTS / AUSGANG /1 BIT GANZ RECHTS / ZUSTAND /DES DESRAMBLER-REGISTERS / POLYNOM /REPRAESENTIERT DIE ANZAPFUNGEN / GENAUIGKEIT /VON ZUSTAND UND POLYNOM (WOERTER) / FELDNR /MULTIPLIZIERT MIT 10(DEZ.) DESCRA, 6 MWMOD2 3 4 FDFW 5 6 BLOTNT DESCNT ACUM 1 DCA LNK2 TAD LNK2 TAD FDFW RAR CLA RAL /EING.+RUECKF. MOD2 DESCNT, PUT 2 INBLIP ROTATR /SCHIEBEN LNK2 3 5 6 BLEND LNK2, 0 FDFW, 0 /***************** MWMOD2 ***************************************** /21.11.74 /CALL: MWMOD2 /BLIP-BLOCK M(ULTI)-W(ORD)-MOD2-(QUERSUMME) / REGISTER / MASKE /REPRAESENTIERT DIE ANZAPFUNGEN / ERGEBNIS /1 BIT GANZ RECHTS / PRECISION /VON REGISTER UND MASKE (WOERTER) / FELDNR MWMOD2, 5 BLOUT GETAD 1 DCA MWMPO1 GETAD 2 DCA MWMPO2 ACUM 4 CIA DCA MWMCNT ACUM 5 TAD MWMCDF DCA MWMDTF RIF TAD MWMCDF DCA MWMRTF /VERARBEITEN DER ARGUMENTE MWMDTF, HLT MWMLOP, DCA MWMTM2 TAD I MWMPO1 AND I MWMPO2 /AMZAPFUNGEN MASKIEREN DCA MWMTM1 TAD MWMTM1 /EXCLUSIVE ODER DER WOERTER AND MWMTM2 CIA CLL RAL TAD MWMTM1 TAD MWMTM2 ISZ MWMPO1 ISZ MWMPO2 ISZ MWMCNT JMP MWMLOP MWMRTF, HLT CLL /EXCLUSIVE ODER DER BITS NOP RAR SPA TAD VIERTS SZA JMP .-4 RAL PUT /AUSGABE DES ERG. MOD2 3 INEND MWMPO1, 0 MWMPO2, 0 MWMTM1, 0 MWMTM2, 0 MWMCNT, 0 MWMCDF, CDF VIERTS, 4000 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 CALCUL, 0 INBLIP BLOTNT CALNT ISZ CALLNM SKP ISZ CALLNM+1 JMS CT CLA CLL TAD ANRISZ SZA CLA ISZ ANRFSM SKP ISZ ANRFSM+1 SWAB CAM DAD ERRFSA DAD ERFSAS DST ERFSAS CAM DAD ERRFSB DAD ERFSBS DST ERFSBS CAM DAD ERRFSA ACL TAD TABLA DCA TABLPC CDF 20 ISZ I TABLPC CLA CDF 10 CAM DAD ERRFSB ACL TAD TABLB DCA TABLPC CDF 20 ISZ I TABLPC CLA CDF 10 CALNT, JMP I CALCUL TABLPC, 0 CT, 0 CLA CLL TAD ANRISZ SNA CLA JMP I CT TAD CALLNM MQL ACL CDF 0 DCA I DTPOI CDF 10 ISZ DTPOI ACL TOCT LINE JMP I CT PAGE VERTSR, 0 TLP, CDF 20 TAD I TABLPB DCA VORUB TAD I TABL2P DCA VORUB2 CDF 10 CIF 20 JMS NORMD FELCNT FRACC3 CIF 20 JMS FFOUT FRACC3 6 0 CIF 20 JMS NORMD VORUB FRACC3 CIF 20 JMS FFOUT FRACC3 7 0 CIF 20 JMS NORMD VORUB2 FRACC3 CIF 20 JMS FFOUT FRACC3 7 0 LINE ISZ FELCNT ISZ TABLPB ISZ TABL2P ISZ TABLC JMP TLP JMP I VERTSR TABL2P, 0 FELCNT, 0;0 TABLPB, 0 TABL2A, TABL2 VORUB2, 0;0 VORUB, 0;0 DCWSCP, 0 JMS DIGSCP RECTS 1 0 JMS DIGSCP EINGS 1 0 JMS DIGSCP AUSGS 1 0 JMS DIGSCP ERRORF 1 0 JMS DIGSCP EINGD 1 0 JMS DIGSCP AUSGD 1 0 JMS DIGSCP EMPFRK 1 0 JMS DIGSCP SYNINP 1 0 JMS DIGSCP DELOUT 1 0 JMS DIGSCP SYNOUT 1 0 JMS DIGSCP THRSUM 1 -1 JMS DIGSCP THRSVM 1 -1 JMS DIGSCP AUSGD2 1 0 JMS DIGSCP 0 0 0 JMS DIGSCP ZAEHLR 1 -1 JMS DIGSCP ANRFLG 1 0 JMS DIGSCP 0 0 0 LINE NOP JMP I DCWSCP PAGE /*********** DIGITAL SCOPE ****************************************** /13.10.75 /CALL: JMS DIGSCP / ADR. OF NUMBER TO BE PRINTED / FIELD " / MARK " / /MERKE: MARK=0 BEDEUTET INTEGER;=-1 MIT VORZEICHEN / ADR.=0 BEDEUTET STRAHL UNTERDRUECKT MIT FIELD SPACES DIGSCP, 0 CLA TAD I DIGSCP DCA DIGPO1 ISZ DIGSCP TAD I DIGSCP DCA DIGTEM TAD DIGTEM CLL RAL RTL DCA DIGFLD ISZ DIGSCP TAD I DIGSCP DCA DIGMRK ISZ DIGSCP TAD DIGPO1 SZA CLA JMP DIGLK0 TAD DIGTEM SNA JMP I DIGSCP CIA DCA DIGCNT TDC 240 ISZ DIGCNT JMP .-3 JMP I DIGSCP DIGLK0, TAD DIGFLD TAD (CDF 0 DCA DIGDF RIF TAD (CDF 0 DCA DIGRF SWAB DIGDF, HLT TAD I DIGPO1 DIGRF, HLT DCA DIGSIG TAD DIGSIG DIGLC0, SPA CLA CLL IAC RAL TAD (253 DCA DIGSGN TAD DIGSIG SPA CIA DCA DIGSIG CLA CLL IAC RTL CIA DCA DMIN4 TAD DIGMRK SNA JMP .+4 IAC SZA TYDER TAD DIGSIG SNA JMP DIGLC1 MQL DIGLP1, SHL 3 SZA JMP DIGLC4 TDC 240 CLA ISZ DMIN4 JMP DIGLP1 JMP DIGLC3 DIGLC1, TDC 4240 4240 240 ISZ DIGMRK JMP DIGLC2 TAD DIGSGN TCHAR TDC 4260 240 JMP I DIGSCP DIGLC2, CLA TAD LSTDIG TCHAR DIGLC3, INBLIP BLOTNT DIGLC7 TDC 240 JMP I DIGSCP DIGLC4, DCA DIGTEM ISZ DIGMRK JMP .+3 TAD DIGSGN TCHAR CLA TAD DIGTEM JMP DIGLC6 DIGLP2, SHL 3 DIGLC6, TAD (260 TCHAR CLA ISZ DMIN4 JMP DIGLP2 JMP DIGLC3 DIGLC7, TDC "* JMP I DIGSCP DMIN4, 0 DIGPO1, 0 DIGTEM, 0 DIGFLD, 0 DIGMRK, 0 DIGCNT, 0 DIGSGN, 0 DIGSIG, 0 LSTDIG, ". PAGE CALTYP, 0 INBLIP BLOTNT TYPNT CIF 20 JMS NORMD ERRORV ERORN3 CIF 20 JMS DIVIDR ERORN3 ZWOH31 ERORN3 CIF 20 JMS NORMD CALLNM BLCKL3 CIF 20 JMS NORMD ANRFSM ANRFS3 CIF 20 JMS DIVIDR ANRFS3 BLCKL3 ERSMC3 CIF 20 JMS NORMD ERFSAS FRACA3 CIF 20 JMS DIVIDR FRACA3 BLCKL3 FRACA3 CIF 20 JMS NORMD ERFSBS FRACB3 CIF 20 JMS DIVIDR FRACB3 BLCKL3 FRACB3 LINE CIF 20 JMS FFOUT BLCKL3 10 0 TDC 4240 240 CIF 20 JMS EFOUT ERORN3 TDC;4240;240 CIF 20 JMS EFOUT ERSMC3 TDC;4240;240 CIF 20 JMS EFOUT FRACA3 TDC;4240;240 CIF 20 JMS EFOUT FRACB3 LINE LINE SWAB CLA CLL TAD TABLA DCA TABLPB TAD TABL2A DCA TABL2P TAD (300 CIA DCA TABLC JMS VERTSR LINE TYPNT, JMP I CALTYP ENTF=JMS I 7 FIELD 2 *114 ANRFS3, 0;0;0 ERSMC3, 0;0;0 ZERO3, 0;0;0 ZWOH31, 30;3777;7777 BLCKL3, 0;0;0 ERSMA3, 0;0;0 ERSMB3, 0;0;0 FRACA3, 0;0;0 FRACB3, 0;0;0 FRACC3, 0;0;0 ERORN3, 0;0;0 FIELD 0 *4200 XLIST /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 0 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 0 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 0 /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 FIELD 2 *4511 /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 FIELD 1 *7200 PAGE XLIST /************* SEE ****************************************** /26.9.75 /CALL: SEE / INPUT /1 BIT GANZ RECHTS / REGISTER /11 WORTE / RECHTECK 1 WORT IN FELD 1 / OUTPUT FIELD 1 *7200 SEE, 4 BLOUT GETAD 2 DCA SEP0 JMS WAIT2 TAD SEP0 DCA SEP1 ACUM 3 DCA RCHTKZ TAD SEM11 DCA SECNT ACUM 1 RAR CLA CDF 20 SE1LP, TAD I SEP1 RAR DCA I SEP1 ISZ SEP1 ISZ SECNT JMP SE1LP TAD I SEP0 RAL CLA RAL DCA NR1 TAD SEP0 TAD SEP10 DCA SEP0 CLL CLA IAC RAL BSW AND I SEP0 CDF 10 SZA CLA IAC DCA NR2 NOP TAD RCHTKZ TAD NR1 RAR CLA RAL DCA NR1 TAD RCHTKZ TAD NR2 RAR CLA RAL DCA NR2 TAD NR1 TAD NR2 RAR SNL CLA JMP SELC2+2 TAD NR2 SNA CLA CLA CLL CMA RAL IAC SELC2, TAD ZAEHLR DCA ZAEHLR TAD ZAEHLR TAD SM18 SPA CLA JMP SELC3 TAD ZAEHLR TAD SM83 SMA CLA SELC3, IAC PUT 4 INBLIP BLOTNT SEENT INEND SEENT, GETAD 2 DCA SEP1 TAD SEM11 DCA SECNT CDF 20 TAD DAUR1 DCA I SEP1 ISZ SEP1 ISZ SECNT JMP .-4 TAD SEP50 DCA ZAEHLR CDF 10 PUT 4 INEND WAIT2, 0 INBLIP BLOTNT WAI2NT ISZ WAI2C TAD WAI2C SPA CLA INEND JMP I WAIT2 WAI2NT, TAD (-100 DCA WAI2C JMP I WAIT2 WAI2C, 0 SEP0, 0 SEP1, 0 DAUR1, -1 SEM11, -11 SECNT, 0 NR1, 0 NR2, 0 ZAEHLR, 0 RCHTKZ, 0 SM18, -22 SM83, -123 FF, 0 SEP10, 10 SEP50, 62 *3400 X2, 0 INBLIP BLOTNT X1NT TAD ALLSUM TAD (-40 SPA CLA JMP I X2 IAC DCA FLAGZ DCA SWEL DCA VSCHW TAD (CLA DCA L0 JMP I X1 X1NT, TAD (30 DCA VSCHW TAD (3 DCA SWEL DCA FLAGZ TAD (5311 DCA L0 JMP I X2 X1, 0 CLA TAD FLAGZ SNA CLA JMP I X1 SWAB CDF 20 CAM DAD SYNREG+1 CDF 10 AND (20 TAD EMPFR2 SNA CLA JMP THRDLC JMP I X1 FLAGZ, 0