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 PREC1, 14 INPUT, ZBLOCK N OUTPUT, ZBLOCK N /***MAIN PROGRAM***/ SIM, 2 SEND 1 LOC1 DELAY STORE LOC1 LOC2 DELCOD LOC1+1 LOC2+1 RECEIV LOC2 2 BLEND PAGE
/********** PITSTL - SENDER **************** /CALL: SEND / INPUT / OUTPUT SEND, 2 BLOTNT SINIT SWAB CAM ACUM 1 DCA SENDIN TAD SENDIN CDF 20 DST SINP, 0 CDF 10 CLA IAC JMS POIINC SINP SBUFAD ISZ SENDCT JMP SEOUT JMS COMPAR COMBOT, 0 SBUFAD DCA MAXCNT CLA CLL IAC TAD MAXCNT RAL CIA TAD SINP DCA SINMRK TAD SBUFAD CIA CLL CML TAD SINMRK SNL CLA JMP .+4 TAD SINMRK TAD BUFLEN DCA SINMRK TAD MAXCNT CIA TAD INTVAL DCA MAXDST CDF 20 TAD I SINMRK+1 CDF 10 DCA MAXAMP TAD MAXAMP MQL DVI LSTMAX MQA CLA CIA TAD UVNUM SPA CLA JMP UV TAD MAXAMP DCA LSTMAX COMEND, TAD MAXDST CLL RAL JMS POIINC COMBOT SBUFAD CLA IAC CDF 20 DCA I SINMRK CDF 10 TAD MAXDST CLL CIA RAL DCA SENDCT JMP SEOUT UV, TAD MAXDST CIA TAD SINMRK DCA SINMRK TAD SBUFAD CIA CLL CML TAD SINMRK SNL CLA JMP .+4 TAD SINMRK TAD BUFLEN DCA SINMRK TAD MAXDST CLL RAR DCA MAXDST JMP COMEND SENDIN, 0 SBUFAD, 1000 SENDCT, 0 MAXCNT, 0 SINMRK, 0 BUFLEN, 2000 INTVAL, 300 MAXDST, 0 OCOUNT, 0 FACTOR, 2 RSAMCT, 0 MAXAMP, 0 LSTMAX, 0 UVNUM, 3 PAGE
SEOUT, JMS CLOCK OCOUNT FACTOR JMP NOOUT CDF 20 CAM DAD SOUTP, 0 CDF 10 DST TEMOUT SWP SZA CLA JMP DOJUMP CLA IAC JMS POIINC SOUTP SBUFAD ISZ RSAMCT NOP NOOUT, CAM DAD TEMOUT DST SOUTAD, 0 INEND DOJUMP, CLA IAC TAD RSAMCT JMS POIINC SOUTP SBUFAD CLA CLL CMA RAL TAD SOUTP DCA SOUTP2 CLA IAC DCA RSAMCT CDF 20 CAM DAD SOUTP2, 0 DPIC CDF 10 JMP NOOUT+2 PAGE COMPAR, 0 CLA TAD I COMPAR ISZ COMPAR DCA COMBUF TAD I COMPAR ISZ COMPAR DCA MAINBF TAD I MAINBF DCA MAINBF DCA COMMAX DCA REGSTR TAD INTVAL CIA DCA COMCNT TAD DEADNM CIA DCA DEADCT COMLOP, CDF 20 CAM DAD COMBUF, 0 CDF 10 SPA CLA DCA SDINGL ISZ DEADCT NOP TAD DEADCT SPA CLA DCA REGSTR TAD SDINGL CIA TAD REGSTR SMA SZA CLA JMP COMSML TAD SDINGL DCA REGSTR DCA COMMAX SKP COMSML, ISZ COMMAX CLA IAC JMS POIINC COMBUF MAINBF, 0 ISZ COMCNT JMP COMLOP CAM TAD COMMAX JMP I COMPAR DEADNM, 30 DEADCT, 0 REGSTR, 0 SDINGL, 0 COMMAX, 0 COMCNT, 0 SDELAY, 400 SINIT, CLA CLL TAD SDELAY CIA DCA OCOUNT TAD SBUFAD DCA SINP TAD SBUFAD DCA COMBOT TAD SBUFAD DCA SOUTP TAD INTVAL CIA DCA SENDCT DCA RSAMCT CLA IAC DCA LSTMAX GETAD 2 DCA SOUTAD TAD SBUFAD DCA TEMOUT /TEM USE TAD BUFLEN CIA DCA TEMOUT+1 /TEMUSE CDF 20 DCA I TEMOUT ISZ TEMOUT ISZ TEMOUT+1 JMP .-3 CDF 10 INEND TEMOUT, 0 0
PAGE /********* PITSTL - RECEIVER ************* /CALL: RECEIV / INPUT / OUTPUT RECEIV, 2 BLOTNT RINIT GETAD 1 DCA RINP ISZ INITCT SKP JMP NOINIT TAD RBUFAD DCA ROUTP JMP .+3 NOINIT, CLA CMA DCA INITCT JMS CLOCK RICNT FACTOR JMP RNOINP CAM DAD RINP, 0 CDF 20 DST RINSTP, 0 CDF 10 CLA IAC JMS POIINC RINSTP RBUFAD RNOINP, CDF 20 CAM DAD ROUTP, 0 CDF 10 SWP CLL RAR SZL CLA JMP PMARK DOOUT, CLA IAC JMS POIINC ROUTP RBUFAD JMS DISTSR SINP SOUTP SNA CLA HLT CLA MQA PUT 2 INEND PMARK, JMS CLOCK ROCNT FACTOR JMP REPEAT TAD ROUTP DCA RBUFBT JMP DOOUT REPEAT, TAD RBUFBT DCA ROUTP IAC TAD ROUTP DCA RTEM CDF 20 TAD I RTEM CDF 10 MQL JMP DOOUT RINIT, CLA CLL TAD RBUFAD DCA RICNT /TEM USE TAD BUFLEN CIA DCA ROCNT /TEM USE CDF 20 DCA I RICNT ISZ RICNT ISZ ROCNT JMP .-3 CDF 10 TAD RBUFAD DCA RINSTP TAD RDELAY DCA RBUFBT TAD FACTOR CIA DCA RICNT TAD FACTOR CIA DCA ROCNT INEND RICNT, 0 ROCNT, 0 RBUFBT, 0 RDELAY, 400 RTEM, 0 STORE, ZBLOCK N INITCT, 0 PAGE POIINC, 0 /INCREMENT IN AC (DOUBLE PRECISION) CLL RAL DCA POITMM TAD I POIINC ISZ POIINC DCA POITEM TAD I POIINC ISZ POIINC DCA POITM TAD I POITEM TAD POITMM DCA I POITEM TAD I POITM TAD BUFLEN CIA CLL TAD I POITEM SNL CLA JMP I POIINC TAD BUFLEN CIA TAD I POITEM DCA I POITEM JMP I POIINC POITEM, 0 POITM, 0 POITMM, 0 RBUFAD, 5000 / JMS CLOCK / STATE ADDRES / RATE ADDRESS CLOCK, 0 /SKP IF OVERFLOW CLA TAD I CLOCK DCA CSTATP ISZ CLOCK TAD I CLOCK DCA CRATEP ISZ CLOCK ISZ I CSTATP JMP I CLOCK TAD I CRATEP CIA DCA I CSTATP ISZ CLOCK JMP I CLOCK CRATEP, 0 CSTATP, 0 /JMS CALCLT /CALL ENTFERNUNG IN AC /ENDE INTERVALLAENGE IN AC
/JMS DISTSR /ABSTAND ZEIGER1-ZEIGER2 /ADRESSE DES ERSTEN ZEIGERS /ADRESSE DES ZWEITEN ZEIGERS DISTSR, 0 CLA CLL TAD I DISTSR DCA DITEM TAD I DITEM DCA DIZEI1 ISZ DISTSR TAD I DISTSR DCA DITEM TAD I DITEM CIA CML CLL ISZ DISTSR TAD DIZEI1 SNL JMP I DISTSR TAD BUFLEN JMP I DISTSR DITEM, 0 DIZEI1, 0 PAGE
DELCOD, 2 BLOTNT DCNT ACUM 1 DCA DCTEM+1 SWAB CAM DAD RUECKF DCM DAD DCTEM DPSZ SKP JMP NULL RAL CLA TAD DCREG RAR DCA DCREG JMP DELPUT NULL, CLA CLL TAD DCREG ASR 1 DCA DCREG DELPUT, CLA TAD RUECKF+1 PUT 2 TAD MSKTFA DCA MSKPOI TAD BEWTFA DCA BEWPOI TAD ADDNUM CIA CLL DCA DCCNT DCA SUMME SUMLOP, CLA CLL TAD DCREG AND I MSKPOI RAR SPA TAD N4000 SZA JMP .-4 CLA MQL SNL TAD I BEWPOI TAD SUMME DCA SUMME ISZ MSKPOI ISZ BEWPOI ISZ DCCNT JMP SUMLOP TAD DCREG RAL SNL CLA CLA CMA DCA B1FLG CLA IAC BSW TAD SUMME DVI YTEMP SZL CLA JMS DEINS MUY ZTEMP ISZ B1FLG DCM DAD RUECKF DST RUECKF INEND DCNT, SWAB TAD DCRGNT DCA DCREG CAM DST RUECKF CLA IAC BSW TAD K1 TAD K2 TAD KK3 TAD K4 DCA YTEMP INEND MSKTFA, MSKTAF MSKTAF, 6000 3000 1400 600 300 140 60 DEINS, 0 CAM CMA MQL CLA JMP I DEINS ZTEMP, 300 B1FLG, 0 BEWTFA, BEWERT BEWERT, K1, 100 /WERTE^100 K2, 214 KK3, 223 K4, 106 DCCNT, 0 DCREG, 0 MSKPOI, 0 ADDNUM, 4 N4000, 4000 SUMME, 0 YTEMP, 0 RUECKF, 0 0 BEWPOI, 0 DCRGNT, 5200 DCTEM, ZBLOCK 2