@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RSTS70 DECRT11A  wkQ c! 8.$ vMc! 8Fyf^c! 8R~@ c! 8$ vDc! 8R~@vc! 8O CLOSE FILES FROM THROUGHPUT MODULE .ENDC .GLOBL TPEROR,CSEROR,CTEROR,BAEROR ;ERROR FLAGS .GLOBL CSMODE,CSNOFC ;FROM DIRKTR ;INTERNAL GLOBAL .GLOBL OVRLA2 ;ONLY INTERNAL GLOBAL ;CONDITIONAL ASSEMBLY PARAMETERS ;TPCLS$ IS THE ONLY CONDITIONAL ASSEMBLY PARAMETER AFFECTING THIS MODULE. ; IF IT IS DEFINED, ALL CHANNELS WILL BE CLOSED WHEN THIS ROUTINE ; IS CALLE%  .TITLE FILE CLOSING ROUTINE ;LAB-APPLICATIONS-11 ;DEC-11-SLABA-C-LA ;FILENAME CLOSE.MAC ;FILE ID CLOSE.3 .CSECT CLOSE ;COPYRIGHT (C) 1975 ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONL Y ON A ;SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION ;OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ;THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ;OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES ;TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE ;SHALL AT ALL TIMES REMAIN IN DEC. ;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE ;WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A ;COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ;ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ;LDP SOFTWARE DEVELOPMENT JUNE 1975 .SBTTL MACRO CALLS,GLOBALS, AND CONDITIONAL ASSEMBLY PARAMETERS .MCALL ..V2..,.REGDEF,$SOB,.PRINT,.TTYOUT ..V2.. .REGDEF ;EXTERNAL GLOBALS .IF DF,TPCLS$ .GLOBL TPCLS ;ROUTINE T JSR PC,PRNTER ;GO PRINT ERROR MESSAGE AND VALUE 1$: BITB #2,CSMODE ;CK FOR MODES 2 OR 3 BEQ 2$ ;IF NEITHER, CONTINUE CL;PRINT ERROR MESSAGE .PRINT #PLUS ;PRINT + MOV R5,R1 JSR PC,OUTOCT ;PRINT OFSET BYTE NO. .PRINT #EQUALS ;PRINT = MOVR R5 ;GET COUNTER READY MOV #CSEROR+1,R2 ;GET ADDRESS OF TABLE OF POSSIBLE ERRORS MOV #CSERRF,TMESAG ;GET ERROR MESSAGE JB -(R2),R1 ;GET VALUE OF ERROR JSR PC,OUTOCT ;PRINT VALUE .PRINT #CRLF ;RPRINT CR LF INC R2 ;RESET R2 3$: $SOB R3,1$ ;SR PC,TABERR ;GO PROCESS ERROR TABLE 2$: TSTB BAEROR ;CHECK FOR ERROR IN BUFFER ALLOCATION BEQ 6$ ;IF NONE, BRANCH MOVB BANY MORE RTS PC ;NO, RETURN EQUALS: .ASCII/=/<200> PLUS: .ASCII/+/<200> TMESAG: .WORD 0 ;TABLE OF ERRORS TEXT RUNERM: AEROR,R1 ;GET VALUE MOV #CSERRF,MESSAG ;GET TEXT JSR PC,PRNTER ;GO PRINT ERROR MESSAGE AND VALUE 6$: TSTB CTEROR ;TEST FOR.ASCIZ <15><12><12>/RUN ERRORS/ CRLF: .WORD 0 ;CODE FOR CR LF PRNTER: TST NOEROR ;TEST FOR FIRST ERROR FOUND BNE 4$ ;IF ERROR IN CONTROL MODULE BEQ 4$ ;IF NO ERRORS, BRANCH MOVB CTEROR,R1 ;GET VALUE MOV #CTERRF,MESSAG ;GET TEXT JSR PC,PRN NOT FIRST, BRANCH INC NOEROR ;OTHERWISE, INDICATE FOUND AN ERROR .PRINT #RUNERM ;PRINT ERROR MESSAGE 4$: .PRINT MESSAG TER ;GO PRINT ERROR MESSAGE AND VALUE CLR R5 ;GET COUNTER READY MOV #CTEROR+1,R2 ;GET ERROR TABLE MOV #CTERRF,TMESAG ;GET;PRINT ERROR MESSAGE .PRINT #EQUALS ;AND JSR PC,OUTOCT ;VALUE .PRINT #CRLF ;PRINT CR-LF RTS PC MESSAG: .WORD 0 ;AD VIA THE THROUGHPUT MODULE ENTRY "TPCLS". ; IF IT IS NOT DEFINED, ONLY ERROR CHECKING OCCURS. .SBTTL RUN ERROR CHECKING AND ERROR MESSAGE JSR PC,TABERR ;GO PROCESS TABLE 4$: MOV #-1,R5 ;NO GENERAL ERROR FLAG MOV #TPEROR,R2 ;GET ERROR TABLE MOV OPEN FILE CLOSING ROUTINE ;THE PURPOSES OF THIS ROUTINE ARE: ;1.) TO CLOSE ALL OPEN DATA FILES. ;2.) TO CHECK FOR ERRO #TPERRF,TMESAG ;GET ERROR MESSAGE JSR PC,TABERR ;GO PROCESS TABLE 7$: TST NOEROR ;CHECK IF ERROR FREE BNE 8$ ;IF NOT, RERS OCCURING DURING ; ACQUISITION, AND TO REPORT ON THEM. ;3.) TO CAUSE RT-11 TO BRING IN IN THE "INLIZ" OVERLAY ; WHEN TURN .PRINT #NOERRM ;OTHERWISE NOTIFY OF JOB WELL DONE 8$: RTS PC ;AND RETURN NOEROR: .WORD 0 ;NO ERRORS FLAG BAERRF:CALLED BY "DIRKTR". DURING THE RUN, ; "INTLIZ" IS WRITTEN OVER FOR TEMPORARY DATA ; STORAGE, BUT UNTIL "CLOSE" IS CALLED, .ASCII/BAEROR/<200> CSERRF: .ASCII/CSEROR/<200> CTERRF: .ASCII/CTEROR/<200> TPERRF: .ASCII/TPEROR/<200> NOERRM: .ASCIZ <15> RT-11 ; STILL "THINKS" THAT "INTLIZ" IS STILL INTACT ; IN CORE. OVRLA2: .IF DF,TPCLS$ MOV #-1,R0 ;JUST CLOSE <12><12>/NO ERRORS!/ .EVEN TABERR: MOV CSNOFC,R3 ;GET NO. OF TABLE ENTRIES .ENABL LSB 1$: INC R5 ;INCREMENT ENTRY COUTERALL OPEN FILES JSR PC,TPCLS ; VIA THROUGHPUT MODULE .ENDC .ENABL LSB CLR NOEROR ;SET FLAG FOR NO ERRORS TSTB CSERO TSTB (R2)+ ;TEST NEXT ENTRY FOR ERROR BEQ 3$ ;IF NO ERROR, BRANCH TST NOEROR ;TEST FOR FIRST ERROR FOUND BNE 2$ ;IFR ;TEST FOR ERRORS IN CONTINUOUS SAMPLING BEQ 1$ ;IF NONE BRANCH MOVB CSEROR,R1 ;GET VALUE MOV #BAERRF,MESSAG ;GET TEXT NOT FIRST, BRANCH INC NOEROR ;OTHERWISE, INDICATE FOUND AN ERROR .PRINT #RUNERM ;PRINT ERROR MESSAGE 2$: .PRINT TMESAG .IF DF,LPSDR$ ! DR11K$ DIMD23: MOV R1,-(SP) MOV @#DIBUF,R1 MOV R1,@#DIBUF ;CLwr  X w B D N P  6 F d t P2D)JE CSNOFC: .BLKW 1 ;NO. OF INPUT CHANNELS CFLAG: .BLKW 1 CSNOFA: .#0 0 7g7  w  &feB @& fE@ (2 B  (j ( (U ($ () (- (1 (5 (7L (= 4$  ^ B Pׯ^ ׯT  L*0  舦) (BV (F (I_ "(_ n(_ ._ R/_ /_ /_  "(_  )_  *_  Z._  /_ "(_ r(_  vʋ&7 >26v L Feʋ&ff7 o eTL e &x*_ *_ ,_ B-_ r-_ -_ -_ 4._ f._ ._ ._ ._ /_ /_ /_ /_ Bf  m ʋ ``~  tx @L @X x @@@@@ "(_ *_ "(_ T)_ $"(_ $(_ $(_ $(_ $2)_ *"(_ *._ 0"(_ 0(_ 0(_ 0^)_ 0)_ 0S000 S000 -XL-YL0+0000000.E+00-XR-YR DDRESS OF ERROR MESSAGE OUTOCT: CLR R0 ;GET PRINT CHARACTER READY MOV #3,R4 ;GET NO. OF CHARACTERS IN BYTE SWAB R1 ;)_ 6"(_ 6+_ <"(_ <6(_ <+_ <~,_ B"(_ H"(_ H(_ H)_ HL*_ H+_ N"(_ N((TST SAMFLG ;;GET BYTE IN RIGHT(LEFT) BYTE BR OUT2 OUT1: CLR R0 ;GET PRINT CHARACTER READY ASL R1 ;PUSH BITS OVER TO CARRY ROL R0 ;PDID CLOCK TICK TOO SOON BEQ 9$ ;;IF NOT, B+C JSR PC,SAVARG ;SAVE ALL REGS JSR PC,KILM23 ;;IF SO, GET RID OF ALL BUFFERS ULL BITS IN FROM CARRY OUT2: ASL R1 ROL R0 ASL R1 ROL R0 ADD #60,R0 .TTYOUT $SOB R4,OUT1 ;CHECK FOR MORE CHARACTER INCB CSEROR ;;RECORD FATAL ERROR JMP GIVEND ;;GO RETURN 8$: JSR PC,RSTARG ;RESTORE ALL REGS 9$: DEC SAMFLG ;;RESET FLAG S RTS PC .END IF NO ERROR(=0 IF ERROR) RTS PC .ENDC .IF DF, MODE2$ ! MODE3$ .SBTTL DIGITAL INTERRUPT ROUTINE FOR MODES 2+3 -xr -yrHpH@`@@  e & * Fe7  --  ~ 7 e5 e` 8Ef&  NE fv7 7 P L 5D> 7 W lh 5MF     xp &  W E+  e&&   v |N v  6 6  - 57 757 7&  f@ f&~ hv  `   @ (%.% D %e&f ~    ʋ   &  N  N  &     `A ` C @% e @ D   mm@ 0     A C v %\w     0  @ h7 * N 7 " 7 " w W D W W -       @  @ w      B -  e \& & &f&f& & & A& & , : &7 7 7 77 AW55!  5@5@@a 5 5 \ `$m"$    DE v!$w+--  'DE 00L    9Q  0 $ Ft7w 5 ^5P  C5B  e  \\\l A5@<AawFDW aB A @ v!$N    /#   cw& 23   w e. vv &  ``w  e   5wH  j  f   w(EDN " v!$DE+- v!$DE 0090 ` av!$  ` & & vt fw b  7^ h bw $dm,3 w w l 7  7"w   4 4f& ( " mB A @ mA @ m@ c  e   e=- 77e 8"frjv48wv`7 Z7w 7 D 7  59B6 C B A @ #"B A @ C6v "$e΋V w  7 E    ?         J &f 8 2&f  eB A @ eA @ e@ e B A @    E D&6 E 7  w5    r x7  B 5& & f& & )mЕ 6 A N v B '  C B A   -xxl -`yl0+0000000.E+00-Hxr -0yr -xl -yl e 5@  C { C  E 7 e0f .   N A f C %C B    \ w   \&@& @ & @   @   @  f p& $% @X@ @P!L!\!b!"0 " 7x77t7t @ :1&E*B  :1w` 7 0 .1@ @l1$&:7 7 7 7 7 `+ & 4& f f && X f B   &wf W - P e   4    6 L I-E6 6 mm  5  7t    Z&@ @l7@$ w |7 m  Օ0Օ.v!Օ0 v    7 m BD  9 Bl(E B!@l&7 F@& ce w,E@&9DlB Bl  w, v n   ӕ-ӕ ˕0 e:3e%V f& h dD C B A e  7x7` c L  d ^ B* ? &C B A @ eB A @ eA @ e@  6&f * & mC B A mB A mA c  ef C B A @  &8wBE EP  P D$7 w *@`@@w(P7 @ @l eӕ* v W!,v*(&f&     R  eC B A eB A eA e@ e%  e7 z 9)@ U@  ?@ U@  ?׋w \ UU@   :7v!6 ͕- 6  v!% Օ1 -Օ.- e0     &f  & N & .U@ * "9 +E@@%??1Ee@  @ r RT,4Wlw @wl:  )   v     C 6  %%    w j6 6 % ."`r8 8 xP%w8w  &   Dv   0e%6  6  E v v ·ͅ%\ @       $ . & f&f_ tӆ& _ -@ +( f2f0&&f6f47 RD&&7 f7 2r$6 6 &  f 6A  v  6N\&f f & G f!E%G  7 .! x C    @ ÊED Ba@ aB,,B, @ B,.B.  v  76   p  d deA @ A @ %  A @ 6v  6@l&&@ 7 & @p  "  "q q "@ @E qaq q%\%    w   `@ `  ` `   \ e\w r\ \\ @  ~q q" 1 " Zj@    j D 2B@    B  (,^ `,} ART OF CURRENT MAXIMUM .ENDC KM=MX+OFSET ;LAST CREST HEIGHT .IF DF,AUTOG$ KMH=KM+2 ;HIGH ORD7 ,,, h 7 f,ee>:o .߇ \w8&7fHw`7fwd7 H 80ER PART .ENDC KH=KM+OFSET ;HEIGHT OF LAST PEAK CREST .IF DF,AUTOG$ KHH=KH+2 ;HI-ORDER PART OF HEIGHT OF LAST PEAK CREST .EN + e@w:Ae w, H7wn 7 @ <7. . w@A @- mC @m  DC KCL=KH+OFSET ;LO-ORDER PART OF TIME OF LAST PEAK CREST KCH=KCL+2 ;HI-ORDER PART CTL=KCH+2 ;LO-ORDER PART OF TIME OF LATESTAmAm -Dل @mB  Bm  Bi   U }P @t v  MAXIMUM CTH=CTL+2 ;HI-ORDER PART KTL=CTH+2 ;LO-ORDER PART OF PEAK LEADING MINIMUM TIME KTH=KTL+2 ;HI-ORDER PART BTL=KTH+2 ;D `d f &fe@ E ? ?   -? ?ee ? Nׁ DB ^7 Fw 4wއ$ wݷ  4DDDDDDEDBMMMDDUDDDMMFBBBBBDDDFFFFDBDBDDDBBPPBBSSSBACEIDRLXFDOCRLWNPTAIOCMASMDDSOFPMANITAIFCDMWRSSADMBAUXNEAOTR$  wf &1 e%&  4Xf Sf*w($ ($7 ` ` arrwl|QH ^ 7Z7 wf <-22 =3417|,&-p%$p' $p' & w&eww OFSE" e 7 X1@8 7 www"77>(7 7f z  j d * $V NJ7 <7 <? >E ,w0e5  5  5 UEA FD1@8 v\7 z7t 1@8 N-8P07F e: 7 ,&1@8 f   eww,^ ` 7 I% 2%@, ww- hN\w8X W Be@ E Elw?r9& %&&\.D?Tw&ww"%& %ww?$      H  % @l77~@l &&7 2*d۷b N p 2 e@7RT TML=OSH+2 ;LO-ORDER PART OF CURRENT #T&&&&TA&&&&T@_?@@?_`  -e@7۷ ۷w&0z w@ E wڀE@7 hf__k(ththT(T(t,^ `D%  Z j.5 DE 7a$DEv 7an 7 *2+j7 2+\7 2+.7 2f+xڷv 0N F@E    &7 2 ,j    b  &l ՐU  &0&J&    %v6v4f2f07 R,ٷ N  (8 &  BE;INITIALIZE VARIABLES AND PROCESSING 4$: MOVB #1,FIRSTM(R5) ;IND. MODULE ENTERED AT LEAST ONCE CLRB EROR(R5) ;CLEAR ERROR I   f_ z& fB._   ''*ߋ%  8ߧe ' w  ,%wTߧwD-w4_ ŗߋ  D \ C B \ A zŗe0PU C  > f &f& ."& & EE  f& ,/  ߋDa \ CaBa \ Aa d@`aZVe YVXX_`XX`XX\B     f :/@   ww_ z 4  _ zZXRf ,/  <:  ZXe & 2@)ݷ_ VFREE CORE =  WORDSX0  d< \  6  _Vw > f-  ,&& ,/    @e 4@e 5_V MOST SIG. HALVES .ENDC ,     , w$   ,   w  ,  _  w ~ B 6  Bw !r*ߋ  wW X Sw B  w_ X(_%_ a_!2w  -    ߋ _ V  i H  7 _ V  % _  7w_ 7rw| wnm w\ , ߋEgw9   _ V _ z _ VG-P  _Vw  `%E''+ߗ   NU Xe0P  \ g  \ gX w   ,B+_  '  & & _    wH&_ 809pp  0 0 7f0 (*,0 .X X XZB  DPLEIIOOASNUCODUUIIPVTOPCONBLDVVEMREMTDIUUDSF @""""#lR"*d2:zjZj&_ %`  wa ,   z   ,7 ߋ _ VPTS= ST_  ߋ TߋrJR B7 - _ z_ z ^-_   G _ z_ z -_   (R5) INC MC(R5) ;INC MINS FOUND COUNTER MOV Y3(R5),R0 ;INC ACC. AREA BY $MUL DN(R5),R0 ; CENTERED PT. * SAMPLE RATE ADD/ f_ z_ z f-_    6_ z_ z -_    &1w  , w P  ,w !r)ߋ   w" ,w  e_e   ww  % P   _ z R._   1 d_ z f._    2      _ ee _ @   L B _  A_ z ._    &1w  , V  ,_CX > @ >  , (" ^ w4X098  e  _   / B _VLE & ?_ z_ z f)w 2098 2ߋB  6 X9898ߕ   _V 0 w x Z \ Z  , 6  L?_ z_ z e& @e_ z_ z ff)w  _ ze_ z& A _ ze_ ze_ z ^  0# 6  ^  P#X88ߋB'' @ @E \ ElD@ VfVVJ*<*   & A\     f*r*    \w  ,w h@E \ a  %_V  &  BB<E ,0  !^,ߋ   w ,    '' -  d.    _      e$  w: < x 0 ߕBߕߋߋ _ _VNO4w ( ,  _ z_   f0e  f 2 1M5   f_ z& f1_   &1 _Vw  , 20''m _ z_  _'w8  ,+''*ߋ%  8ߧe 'e0PU C  > f f ,,1  <:   ,&& ,X1    @e 4@e 5_VISE f& f- %_V >_ z _ f& f- އf d/ .e  & @    fb+ pe ` R&  4$: MOV MN(R5),R0 ;UPDATE AREA ACC. DURING INCR. BY $MUL DN(R5),R0 ; 1/2 LEADING MINIMUM * SAMPLE RATE .IF DF,AUTOG$ MA  fL,+ _  + L    _  e w  +w N)ߋ w c , p+ v_  _ z_  @_ z_ z  _ (_ e ^Z ڇ& @A\ _VARI  / _ VINTEGRAL=H/'f& (  (   _     n._ z_  , +  B- ' @ @E \ ElD@@E \ a  %_V''NߋCK-w    n. _VPBDw  +w )ߋ wZ ,    ߋ  x @ f&  @ f&ߋߧ  _ _  .   " n. _V3NHHPP12& T+a e> eh_         \ w   2-H 2- 2- 2f.  C    & &  _ z a_ z   fr*       d  7_ (-(&& L.&& `._:  f&__ _ . .   a $  B  0 & @_ z _ z f* ff_  A gA! f_ f& f. %_V _ z _ f& f/??{?x?Ǻ? $$'' @ @E ܇  &  BB<E ,^/   f/e  f \ ElD@@E \ a  %_V''NߋCK  x 0 ^0M5   f_ z& f/_   ''*ߋ%   @ f&  @ f&ߋߧ    8ߧe 'e0PU C  > f &f& 0"& & EE \ w   2,H 2, 2, 2f,  C   7_ ,(&  f& ,0    f 0@   ww_ z 4  _ zZXR& *-&& >-_:  f&__ _ n- ~- _   \ `w J@*ߋ   ! e^!ej ,%_VOI0I  + CMD NEEDED PRIOR TO FULL-MODEERR-BUFR MUST BE SNGL PRECERR-SPECIFY DEV & SU IN ORDERERR-ILLEGAL DEV ( OR SU SWITCH )ERR-SPE(+ICATE SIGN CHANGE NEG R2 NEG R0 SBC R2 55$: TST R2 ;CHECK FOR ZERO SLOPE BNE 7$ .ENDC .IF NDF,AUTOG$ CIFY BOTH L & HERR-BUFPOSITION MUST BE >= 1ERR-BUFPOSITION + #PTS > BUFR SIZE +1ERR-BAD DATA VALUEERR-E.O.PAPERTAPEERR-ILLEBGE 6$ ;IF POSITIVE, B+C INCB SIGN ;OTHERWISE, INDICATE SIGN CHANGE NEG R0 .ENDC 6$: TST R0 ;CHECK FOR ZERO SLOPE GAL OPTION NAMEERR-OPTION 'O' NOT ALLOWED NOWERR-START CANNOT BE < 1ERR-WINDOW CANNOT BE < 1ERR-START + WINDOW > BUFR SIZE +BEQ 9$ ;IF NON-ZERO , B+C 7$: $MUL #1000.,R0 .IF DF,AUTOG$ $MUL #1000.,R2 ADD R3,R0 .ENDC MOV TML(R5),R3 ; 1ERR-WINDOW > SCOPE SIZEERR-ASSIGN A SNGL PREC BUFRERR-NO ROOM FOR DISPLAY BUFRERR-SPECIFY A 2ND BUFRERR-BUFR SIZE MUST BEM5   f_ z& fV._   ''*ߋ%  8 (CURRENT TIME-LEADING BASELINE MOV TMH(R5),R2 ; TIME) SUB BTH(R5),R2 SUB BTL(R5),R3 SBC R3 ߧe 'e0PU C  > f &f& /"& & EE  f&JSR PC,Df . -M5   f_ z& fv-_   ''* ,*/    f N/@   ww_ z 4  _ zZXRf ,ߋ%  8ߧe 'e0PU C  > f &f& /  <:   ,&& ,/    @e 4@e 5_VRT LOOKING FOR(."& & EE  f& ,J.    f n.@   ww_ z 4 $ , X'ߋB8# 6 _ Vr(& 7F (^   <<<< _V , ^p bq fr  _ zZXRf ,.  <:   ,&& ,.    @e 4@stuvwx\X B7 ޟ 6   4  ,   , -ߋ . * e 5_VINCRE SLOPE INCR COUNTER CMPB #2,SC(R5) ;HAS SLOPE INCR TWICE IN A ROW BGE 12$ ;IF SO, B+C JMP N100 ;O  _V d    >ߋ        _Vw n THERWISE, GO GET NEXT POINT 12$: MOV #1,TYPE(R5) ;IND. ENDING PEAK ON BASELINE JSR PC,OUTPUT ;OUTPUT PEAK DATA BLOCK CLRB S%_ % _ %  _   D`! ߋ   %_V7 *  7$7&_ VERR-NUMERICAL-FPMP= R, P eh.7 x( HRERR-SPECIFY DIFFERENT BUFR TYPESE7`%  7 e(+@@`e@@`&7 7 e(+eŗ ߋRR-SPECIFY A BUFRERR-SPECIFY A BUFR SIZE>0ERR-YOU HAVE NO DISPLAY-SPECIFY A BUFRERR-TOTAL BUFR NEEDS EXCEED FREE COREERR-DDIONSTANT SPECIFIEDERR-E.O. CASSETTEERR-MAX FILES OPENERR-I/O CONFLICT~((((()?)Z)x)))))**0*O*g****** +)+O+f+~+!  7*w R!  w @!   w *!l+ 7JLwjzt ++++ ,#,=,e,,,,,,----@-R-r------.2.D.W.J  R _J $/ B "/ 5 &) wW NH fR) wxv wd tX7l gZ 7`X Xe8zvrn/ / 0TU@ $, ,7p/ TwD SPARTA VGL3-00T2  %2w! wn mߋ w\X ,w N"DE D.P. R0,R0 BY R4 WITH D.P.RESULT IN R0,R1 DVDSPD: MOV R2,-(SP) ;SAVE R2 MOV R1,R3 ;SAVE LOW ORDEj  _ \ ~5 A 5 E `T ߋ  wPߋ 0w !(ߋ   _V     ށ `ff 2(APR_ . e+j _V/ $"EU E   z J)7 8 xp  T) | Me E@ $   B  w: E \ ` IFCDNFPT# #C S D F tJ$JV\SɋFwЕ  D) ~ B D X N P w 07 z'E@)JSXRLIDC7 7   e7DDaN%    > 4 PTSERR-FREE CURSORS HAVE SAME X-POSITIONERR-FIX CURSORS NOT UPERR-FREE CURSORS NOT UPERR-SPECIFIED BUFRS CANNOT BE CONT  ߇ w\ <7 dw"bE@\ dJX V*J  ߇ IGUOUSERR-INSUFFICIENT BUFR SPACEERR-FILE(S) STILL OPENERR-FILE NOT OPEN OR HARDWARE ERRORERR-E.O.FILEERR-DUAL DISPLAY NEED , > Z l OF OUTPUT BUFFER BNE 2$ ;IF IT EXITS, B+C MOV BASIZ,(R0) ;SET WORD CNT TO BUFFER SIZE TST -(R0) ;GET ADDEDERR-BUFR IS NOT DISPLAYEDERR-BOTH CURVES NEED SAME CURSOR STATUSERR-BUFR TYPE IS NOT SNGL PRECERR-BUFR SIZE MUST BE A POWER OF ADDR OF OUTPUT BUFFER JSR PC,BAGET ;OTHERWISE, GET AN OUTPUT BUFFER BCC 1$ ;IF ALLS WELL, B+C CLRB FIRSTM(R5) ;IF NOR OF 2ERR-BUFR SIZE IS < 8ERR-BUFR SIZE IS > PROGRAM LIMITERR-BAD CMD NAMEERR-SPECIFY A NUMBERERR-INCORRECT CMD FMTERR-BADT, IND. NEXT DATA RECEIVED FOR THIS INCB EROR(R5) ;INDICATE ERROR SEC ; CHANL TO BE TREATED AS INITIAL DATA. 2$: RTS PC DELAY VALUEERR-BAD CLOCK RATEERR-BAD BUFR TYPEERR-INCORRECT FMT OF INPUT DATAERR-NONEXISTENT BUFRERR-NONEXISTENT HARDWARE ;INDICATE ERROR AND RETURN ;ROUTINE TO PASS FULL OUTPUT BUFFER TO CONTROL MODULE ; ROUTINE ALSO CALLS GETBUF TO GET NEW OERR-127 BUFRS OF ONE TYPE IS MAXERR-#PTS + #SKPS > BUFR SIZEERR-SPECIFY 4 BUFRSERR-TOO MANY BUFRS SPECIFIEDERR-UNNECESSARY C67 7 7 7  7 7 w v+ߋ  7w !q+ߋ ? wBw(,w @ |+q+ 7B >w h@  R ` ,\  @ 0   `rE-<   7   w  W_ P(_B 6  Bw !+ߋ  wZ , me%Sq%Xww ae 6 D<7 ч*G mT7 ߕmߋ5 6   0 ,X jw0 ,%  _   7%_  w% D-@6 _ \ ×e  D   w!"Q    w  +ߋ  =  0 w 7(%_ w m   wvmP wd ߋ0  n0  wL8  "2  #, "(  ""&H\w ߋ   7 p \ߗ PXe0 Rߋ/ߋ ߗ & ߗ e0   n U P m~_\X 2wzoe w&gP 7&feoP m o &  h& j LeK&  r & gH mlc wtcQ ecN@ecm <ˋˋ cK w4ecQ x@ecQ   )& neeߋ  \ gf   \ gfIX  mL ˋˋcI &f+  e +&Ee0  ߕ(* !-&0809 e  0 0 70 (*,. IXZB   "fdnR  O f&^" fLLH  < 0 ߕB dBߕߋߋ _ _VNOw  , 6%''-e@  ~|e! &^\e&f  f eH5+ __ 'X__!" _Vw  , !w%7|   W    \ @ e^ >&, ''o   7   7  Y ww    7` W Ww ·  \ weX1 e`jRY MOV SINADR,R0 ;GET INPUT BUFFER ADDRESS JSR PC,BAREL ;RELEASE IT ROL (SP)+ ;RESTORE CARRY .E     e  e`@b 7e7 % NDC RTS PC ;RETURN ;ROUTINE TO DIVIDE R0, R1 BY R2, R3 WITH RESULT IN R0,R1 DDIVD: MOV R5,-(SP) ;SAVE R5 M \] 6 LO : !%    5@ ! BeOV #32.,-(SP) ;GET LOOP COUNT CLR R4 ;READY REMAINDER(R4+R5) CLR R5 .ENABL LSB 1$: ROL R1 ROL R0 ;EXPOSE NEW BIT OF Ng  _ zhf@`   PJ_  _ z86.(_ " "# J    mXmXmJmJ&bمfNcՅӅAх&f- mB _V'' @ @E \ ElD@@E \ a  %_VmB   4D `&4D  *Um8e6-0wHm mf |/ .M5   f_ z& fn._   ''*ߋ% w w%%wN  HH:El1l.+(S2s  8ߧe 'e0PU C  > f &f&  /Ell l   S$R  wJEll텄SS  "& & EE  f& ,B/    f f/@   ww_ z 4  _ zDa C   l``H ```H  B! f, ((  ZXRf ,/  <:   ,&& ,/    @e 4@e e       Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  5_VNSAM CONTINUOUS SAMPLING MODULE ; LAB-APPLICATIONS-11 ; DEC-11-SLABA-C-LA ; FILENAME CONSAM.MAC ; FILE ID CONSCa  Ca  Ca  Ca7 z C  [$Hk 3 T s:Un3G W AM.46 ; .CSECT CONSAM ;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE ;AND SHOULD NOT BE COb!$""#g$(%%&h''(()b*++,U-../B001n2'334N566p7%889@::;W<==h>??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLMNSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ;CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY ;FOR ANY E!NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarbbqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnRRORS THAT MAY APPEAR IN THIS MANUAL. ;THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER ;UNDER A LICENSn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~Bf$ߋMߋN/ w w4ߋ65 17 w !)* &ߋ  ! fZ~ "8Nbu1$" IS ; DEFINED AND SET EQUAL TO ONE. ;AUTOG$ ;MUST BE DEFINED FOR AUTO-GAINING C ,w jP )w SF = )  V  `IF&'%&wf&@@aODE IN MODE 1 ;DMA$ ;MUST BE DEFINED FOR ANY DMA OPERATIONS ;IF DMA$ IS DEFINED, ; DUAL$ ;MUST BE DEFINED FOR DMA DUAL Sf  %       !?  e: wAMPLE AND HOLD SAMPLING ; IF DUAL$ IS DEFINED, ; DSORT$ ;MUST BE DEFINED IF DATA ACQUIRED VIA DUAL DMA ; SAMPLING"-  <:   ,&& ,N-    @e 4@e 5_V.IF DF,LPSDR$ Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca7 z C  [$Hk 3 ! DR11K$ MOV #PROTAR,R0 ;GET AREA FOR .PROTECT .PROTECT ,#DIVEC ;PROTECT DIO VECTOR ADDRESS BCC PROTAD ;GO PROTEC ADVEC T s:Un3G W b!$""#g$(%%&h''(()b*++,U-../B001n2'334N566p7%889@::;N f&w :Ћ Dߠ  `/ b4\5Y&  7 7 7W<==h>??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLM!NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarbHf&fB $ J/ߢ* 4 5  ,7 TߢV )@w 7 2 7  7pȋ΀ ,`f7T7Z7 N7 T B  w J0Q ,,) w ."f(&w 7 f( w  - f&f3 ^ \ Z X5 S ,7  V T&'%&EWC D `0D  !w V7 f@)w 2pl7 rff)`^w )f&Pw .w J))f&8w  .$ 2 w tmxrw SF = 4)JDB:  D  *-* 0V & & & & & D&&D&& @%7 *  IA  wf&@@af  %        e e@ e& & & & & D&&e #@  @6 7 4 !?  e: wJ    mXmXmJmJ&bم*6 6 #?%-0 @ ׳f&& @׳@f&7 f:++f&f&7 fD+fffNcՅӅAх&f- mB mB   4D `&4D  fff`+r6+   \+f& \ e\>:L]L?ƪ@fEA#& e@ & f& f& *Um8e6-0wHm m w w%%wN  HH:f7 ,+ ff w   ߋW ߋw   El1l.+(S2sEll l   S$R  wJ 0e߭e e0PU C  > f &f& ,"& & EE  f&Ell텄SS  Da C   l``H ```H  B!  ,,    f ,@   ww_ z 4  _ zZXRf ,f, ((  e       Ca  Ca  Ca  Ca  Ca     A C . v %\w     .00  @  @ w .V  <v n  [.b ӕ-ӕ ˕0 e:3e.%V f& h   B -.|  e \& & &f&fM.& & & A& & $m"$    D. dD C .B A eC B A @ eB A @ eA @ e@ z. 6&f * & mC B A >.mB A mA cE v!$w+--  '.DE 00L    .9Q  0 $ F  ef . C B A @   eӕ.F* v W!,v*(&f&.laB A 4.:@ v!$N    /# a.`  cw& 23  . w e     R  eC y.B A eB A eA e@ e%  ej.v!6 ͕- 6  v!. vD.v    w(EDN ". v!$DE+- v!$D.E% . Օ1 -Օ.- e0 .     &f  & N .*& . ) 0090 ` z.av!$  ` "w   .D4 4f& ( "   .P v     f.v C 6  %%   u. w jbqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz.jmB A @ mA @ m@ c  e.   e=-g.9B}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~~ "8NbuE ; CHANNELS SAMPLED AT MULT6 C .B A @ #"B A @ C6v ."$e΋V .(w . (h(( o'` hJ 99h4 .쨀phEph`c@8hc]hih G.vph]hph p J &f 8F.N 2&f  eB A @ eA @ e.t@ e B A @    E .h Kh" y.]h۩]h,hZ :hf Ԫph .h @8h ph ONh Ofh @.Ofh OfhD&6 E& .& f& & )mЕ 6 A N F.v B  @8hh ph'Ph .e&&   v |N v Z.& >. '  C B A   y.2W - P e Z.X  4   6 6  hv .L `.r   @ (%  6 .~L I-E6 6 r.mm  m. ..% D %e% %.e @ D   mm@ &.0   Օ0Օ.v!Օ0. v    7. m  . %\%.>    w   `@ `.d  ` `   \. e\w rf_ _ "_ _  _  _ !_ D!_ !_ !_  "_ R"_ \"_ f"_ "_ "_ \ \\.  N A f C %. C B    \ w (. _ _ _ L_ $_ $l_ $_ $_ $ _ *_ *"_ 0_ 0_ 0_ 0_ 6_ 6   \&@& " $  $ l_ <_ <._ <_ <, _ B_ H_ H_ H_ HD_ Hx_ N_ N wbwz$JOB/RT11 TTYIO .R MACRO *BIN:DIRKTR=SRC:THRASM,DIRKTR *BIN:CONSAM=SRC:THRASM,CONSAM *BIN:CONTRL=SRC:THRASM,CONTRL *BIN:BD)JUFALL=SRC:THRASM,BUFALL *BIN:TPUT=SRC:THRASM,TPUT *BIN:GENS=SRC:THRASM,GENS *BIN:QA=SRC:THRASM,QA *BIN:TTYR11=SRC:THRASM,TTY ''*]*s Q8Q8#|0 0 7gjR11 *BIN:INTLIZ=SRC:THRASM,INTLIZ *BIN:OUTF=SRC:THRASM,OUTF *BIN:CLOSE=SRC:THRASM,CLOSE .R LINK *THRU,LOG:=BIN:DIRKTR,CONSA7 &  w ^h |   ׯ ׯ  *0 b  0舦) M,CONTRL,BUFALL,TPUT,GENS/C/B:600 *BIN:QA,TTYR11/C *BIN:INTLIZ,OUTF/O:1/C *BIN:CLOSE/O:1 $EOJ vʋ&7 6v  Feʋ&ff7 vlL TL re \&Br%f  m ʋ ``~  e & * Fe7 7 6 6 %   Dv.   0e%6  .6  E v v ·ͅ%\ @  .      .4 D&&7  F f7 f X  F "f $ &X .Z 6 6 &  f 6A . v  6N\&f f . & G   v  &feB @& fE@r% B 4!%h)-005. 76   p  -. d deA @ A @ %).   A @ 6v9V=@_ _ @_ : _  _ D!_ F!_  _  v_  _  _  n"_  #_ _ - 57 757 7&  f@ f&~&f ~  `   @ (%.% D %e% e @ D     ʋ   &  N  N  &     `A ` C @  @ h7   mm@ 0     A C v %\w     0  @  @* N 7 " 7 " w W D W W -     , : &7 7  w      B -  e \& & &f&f& & & A& & $m"$    D7 77 AW55!  5@5@@a 5 5 \ `t7w 5E v!$w+--  'DE 00L    9Q  0 $ FaB A @ v!$N  ^5P  C5B  e  H H H X A5@<AawFDW  &    /#   cw& 23   w e. vv    w(ED``w  e   5wH  j  f& & vt N " v!$DE+- v!$DE 0090 ` av!$  ` "w   4fw b 7^ h bw $dm,3 w w l 7  7 77e  4f& ( " mB A @ mA @ m@ c  e   e=-9BЇ  $  R ^ V b $ wv`7 Z7w 7 D 7  5 7 E6 C B A @ #"B A @ C6v "$e΋V w  J &f    ?          7  8 2&f  eB A @ eA @ e@ e B A @    E D&6 E& & f& w5    r x7  B 5 e& )mЕ 6 A N v B '  C B A   W -  5@  C { C  E 7 e0f .   --P e   4    6 L I-E6 6 mm  m  ~ 7 e5 e` 8Ef&  NE fv     Օ0Օ.v!Օ0 v    7 m  v 7 d ` 5XR  7 W glh 5 MF   x p &  W E+  e&&   v |N v  6 6  hv| j f@$W&W0w  wtUW(   wlw wl  ` w-w7 f`Z7 )7 ~7 |dlw)l e@ C& ebC     N Bl %l5%X-^ -E ec%  KCaD ` C 4 D  @77 7  7) \7@7 7w @7 z x w n   ӕ-ӕ ˕0 e:3e%V f& h dD C B A eC B A @ eB A @ eA e  *  w m ww @p   "  "@ e@  6&f * & mC B A mB A mA c  ef C B A @   eӕ*q q "@ @E ,qaq q @  q q" 1 " j@     vB v W!,v*(&f&     R  eC B A eB A eA e@ e%  ev!6 ͕-@    \ ` N@ @ D 2@ $ (  @     6  v!% Օ1 -Օ.- e0     &f  & N & . ) @  NSjn ~.pn QQONvp~R    v     C 6  %%    w j6 6 %   Dv (QQ s QQ_ f& .Qo'`  QONԪpp  0e%6  6  E v v ·ͅ%\ @       D&&7 l(%_  _ .Q Q`v  Q u*`"f7 ^6 6 &  f 6A  v  6N\&f f & G   v Q QQQc_  f& ,Qo'`  Q ONԪp쨀p.  76   p  d deA @ A @ %  A @ 6v %\%    w w n^\ZXuw7 ` ` a>>w8F w   `@ `  ` `   \ e\w r\ \\ N A f C, =)4'0- e 7 1@ wvww@" %C B    \ w   \&@& 0 " 77 C 7 7 d1@ 7 7 B1@ -bzZ7p ed 7 VP81@ bw &q 0@EE   R @, 10E*E(B  41wZ 7 * (1q$  $ $ql$  e e Ee e e w   -ijxZ@mjPs@s @".v @Ep@vp@Ԫp@ON@E.p@BS@(Oy(XMhb._ &  BB<E !   R!e fj Zh0fh`h"hOy. 'ߋ8# _ 2*K g'N`B# "M5j  f_ &  RV"_ .  ''ߋ ߧvߗ w  %w<ߧw,-Zw_ ŗߋ  D HC B HA nŗwxߗ "C  > f &f&  ""& & EE f& #  ߋDa HCaBa HAa X@`Ue Mjlnp_`rt`   f ,#@   ww_  4 _ ZXRf # <:  v e & 8^\_ B FREE CORE =  WORDS0  _  ߗߗ,&& #   @e 4@e 5_fw `$`.&7 7   7 %%  e)`C C` 7 vwPtf b5 V Twv _w  z! !     ! w$  !   w R  `D D`m< 5  &f e @? d? d  ^-X? R?HeBeB 2?   _  _ a_!l2w  ,!  j  ߋ_ B   i H  B   4DDDDDDEDBMMMDDUDDDMMFBBBBBDDDFFFFDBDBDDDBBPPBBSSSBACEIDRLXFDOCRLWNPTAIOCMASMDDSOFPMANITAIFC 7 _ B  (gw9   _ B _  _ B " _w  DMWRSSADMBAUXNEAOTRDPLEIIOOASNUCODUUIIPVTOPCONBLDVVEMREMTDIUUDSF PxR"*J2:r`%E'' w  V_ ' & & j_ ZbjRZ Br7 Nw  : ww (wh/1 ^   wH&_ &_ %` j wa !   z  7 ߋ _ B    w L8w8A ww $@ !b -nѝ5 PTS= 7_ ߋTߋX  ; B  d     w  !8 T♁!b!d >⎁!\-8 eee@Mq@`"@^ _ . n  n"w $ߋ   _w !$!ߋ @y@.`@`@K@{S@g'N`@.'|Q@.@99K@99@T}@.^K@hj@% _TLHNY'' @ @E HElD@@E Ha  %_ _ 860   _ .  "%   @e 4@e 5_CEERR-FILE(S) STILL OPENERR-FILE N.OT OP j  w7j 7` f_ &  Rh@_ .   # HeP`EN OR HARDWARE ERRORERR-E.O.FILE.ERR-DUAL DISPLAY NEEDEDERR-BUFR IS N=.OT DISPLAYEDERR-BOTH CURVES NEED SAME\ tx'NJ ^b"_ B SCA FAC= OFFSET=  _w >  " " w .  w !jߋ  w" jw  e_e   ww % P j  $w~|z7x eF7VX$T  *FB  (_ B MAX VALUE=  MI     _ .ee _ .@  L B _ . AN VALUE=   _ _   _ .  jG _ _   !_ .  j/ f e  _ .  # B _LE & ?_ _   Rw_ _  R0!_ .  j 6_ _  `!_ .  j #w   L?_ _  e& @e_ _   R Rw  _ e_ & A _ e_ e_   _   !_ .  j1 d_  R!_ .  j 2_   BR B BB4 & A\  R j \w  w \ ("_ .  j #w    _    >wn 8 w Z  !V ߋ  w     ''  \"    _j   e$w "  w !ߋ wW  Swx   w_ L_%_ '' @ @E HElD@@E Ha  %_  %l _  7w_ 7rw wm lw  ߋ&  BB<E J#   Rn#e fj $ ($Mߋwwߗvߗwx @v l Hgp pp l 0 05j  f_ &  R#_ .  ''ߋ ߧvߗwx 7B0 (*,0 .   8ߕ _NOw R  j _ _ .  #ߗ ~#C  > f &f&  \$"& & EE f& ~$   _w   "''mj _ _ . _'wj8 f $@   ww_  4 _ ZXRf $ <:  ,&&e ^Z p& @A\ _AR  # _ B INTEGRAL=#'f&    _ .   j f"_ _ .    :! ' @ @E HElD@@E Ha  %_''NߋK!w   j f" _PBw r w ߋwZ     ߋ  x @ f& @ f&ߋߧvx  _ r_ n .   " f" _3NHHPP12& La e> eh_       Hw  !H ! ! R l" C  j & &  _  a_   R j    d  7_  !(&& D"&&  X"_: f&__ _  " "  a $  B  0 & @_  _   Rff_ .A gA! Z_ f& R "%_ _ _ f& R #??{?x?Ǻ? $$'' @ @E &  BB<E V#   Rz#e fj HElD@@E Ha  %_''NߋK  x $ 4$M5j  f_ &  R#_ .  ''ߋ ߧv @ f& @ f&ߋߧvx   ߗwxߗ #C  > f &f&  h$"& & EE f& $   Hw   H     R l  C   7_ (&f $@   ww_  4 _ ZXRf % <:  & "!&&  6!_: f&__ _  f! v! |_ ,&& .%   @e 4@e 5_`` 7L$^.Jf& R !%_ 2_ _ f& R ! fj :# "e  & @     RZ pe ` R& w !ߋ wZ (87L hjljf (K.p me jw0 A  R D  _ .   L    _ . e w  w Fߋw c  h v_  _ _ . @_ _ _  _ "# _'k`"Q$8$'@@.y Q 8 1ERR-WINDOW > SCOPE SIZEERR-ASSIGN A SNGL PREC BUFRERR-NO ROOM FOR DISPLAY BUFRERR-SPECIFY A 2ND BUFRERR-BUFR SIZE MUST BEM5j  f_ &  RN"_ .  ''ߋ ߧvߗwxy{{}"E ElD@@E*{{W T}{y{{g(fj :" !ߗ "C  > f &f&  ""& & EE f& #  M5j  f_ &  RN!_ .  ''ߋ ߧvߗwxf $#@   ww_  4 _ ZXRf x# <:  ,&ߗ !C  > f &f&  !"& & EE f& "  & #   @e 4@e 5_V `&,w  6%f $"@   ww_  4 _ ZXRf x" <:  ,&$  _ B Z& 7F    <<<< _  p q rstuvwx& "   @e 4@e 5_  ߧe '*w 7 z 4  ,   T f!ߋ . *   _ d  Q wQ8.ePU C  >By y{Sw. f &  >ߋ        _w L %l_ %f& m``(ONZ."& & EE f& (pvpv &O _ % _  D`!l ߋ   %_7 7`% *  7$7&_ B ERR-NUMERICAL-FPMP= ,  e`"7 p 4 ERR-SPECIFY DIFFERENT BUFR TYPESE 7 e@@`e@@`&7 7 eeŗ ߋ tpl H`w ^@RR-SPECIFY A BUFRERR-SPECIFY A BUFR SIZE>0ERR-YOU HAVE NO DISPLAY-SPECIFY A BUFRERR-TOTAL BUFR NEEDS EXCEED FREE COREERR-DDIߋ  ! e!e %_OI0 g% 8 CMD NEEDED PRIOR TO FULL-MODEERR-BUFR MUST BE SNGL PRECERR-SPECIFY DEV & SU IN ORDERERR-ILLEGAL DEV ( OR SU SWITCH )ERR-SPEQ8 Q>.  _ hf@` $a a `"Q&a .&  PJ_ CIFY BOTH L & HERR-BUFPOSITION MUST BE >= 1ERR-BUFPOSITION + #PTS > BUFR SIZE +1ERR-BAD DATA VALUEERR-E.O.PAPERTAPEERR-ILLE _ 9$a `Q$`"&Q.L86.(_ " `Q.rGAL OPTION NAMEERR-OPTION 'O' NOT ALLOWED NOWERR-START CANNOT BE < 1ERR-WINDOW CANNOT BE < 1ERR-START + WINDOW > BUFR SIZE +AR TERMINATOR CHAR. BR ECHO2 ;COMES HERE WHEN CONTINUATION CHARACTER IS FOUNDwr  X w67 ~7 r7 p7 n 7 h7 ndw 3ߋ  7Nw !/ߋ? w w,w v@ 8/ 7 w \0w !ߋ  _     ~& F`f ~APL !  7w F! w 4! w !* r7Jw>8 ׭>8  SɋF w w n V  R &7 rp  XL  wjhW  XR RJ XwB@ w. 2  %,w zw| NL mYb X f7 rP  ?XR4 * ~7w Y  jw mnߋr wl  ,w NX _ H~ > 4 PTSERR-FREE CURSORS HAVE SAME X-POSITIONERR-FIX CURSORS NOT UPERR-FREE CURSORS NOT UPERR-SPECIFIED BUFRS CANNOT BE CONT XL St P  >   7xw   "e LJLQ :@ w@w IGUOUSERR-INSUFFICIENT BUFR SPACEERR-FILE(S) STILL OPENERR-FILE NOT OPEN OR HARDWARE ERRORERR-E.O.FILEERR-DUAL DISPLAY NEEDVT - RR w XL YL t '' @ @E EDERR-BUFR IS NOT DISPLAYEDERR-BOTH CURVES NEED SAME CURSOR STATUSERR-BUFR TYPE IS NOT SNGL PRECERR-BUFR SIZE MUST BE A POWEHElD@@E Ha''NߋK  x @ f& R OF 2ERR-BUFR SIZE IS < 8ERR-BUFR SIZE IS > PROGRAM LIMITERR-BAD CMD NAMEERR-SPECIFY A NUMBERERR-INCORRECT CMD FMTERR-BAD@ f&ߋߧvx    Hw  H  DELAY VALUEERR-BAD CLOCK RATEERR-BAD BUFR TYPEERR-INCORRECT FMT OF INPUT DATAERR-NONEXISTENT BUFRERR-NONEXISTENT HARDWARE  R  C   7_ (&& &&  _ ERR-127 BUFRS OF ONE TYPE IS MAXERR-#PTS + #SKPS > BUFR SIZEERR-SPECIFY 4 BUFRSERR-TOO MANY BUFRS SPECIFIEDERR-UNNECESSARY C&  BB<E D    Rh e xl -ylONSTANT SPECIFIEDERR-E.O. CASSETTEERR-MAX FILES OPENERR-I/O CONFLICTv7Rp(G_x!G^v-xr -yrHpH@`@@  e & * Fe7   5 ] | !%!8!J!j!!!!!!"*"<"O"T  U@ $, ,7# wT 7 7 P L 5D> 7 W lh 5MF SPARTA VVA3-00 r%ULL BUFULL: MOV #MSG4,R0 JSR PC,TYPMS ;TYPE OUT BUFFER FULL MESSAGE JSR PC,CRLF CLRB BUFOVR ;CLE - 57 757 7&  f@ f&~  2`3r@E:-68.0%S*#%X"wRw  e7 އ w l bߋ *  v ߗvߗwx ߋ6 H w ߗvߗwxߗߗ  0 wp 0  w ,  & P"  xw ߋ 7  m_ ߋwߋvߋ &  h& R LeD&  Z & w??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLM 4 _ ZXRf F# <:  ,&& r#   @e !NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarbbqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nn4@e 5_t    Z&@ @l7@$ w |7n_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~Bf$ߋMߋN/ w w4ߋ65 17 w !* &ߋ ! flZ~ "8Nbu$p' & w&eww BUFF w jPw SF =   pl n `IF&'%&wf&@@af z  j d * $V NJ7 <7 <? >E ,w0e5  5  5 UEAf  %       !?  e: w f   eww,^ ` 7 I% 2%@,J    mXmXmJmJ&bمfNcՅӅAх&f- mB Hf&fB $ J/ߢn* 4 5  7 Tߢr )@w n7 &mB   4D `&4D  *Um8e6-0wHm mR&w T7 R  w n -l f&f3 ^ \ Z X5 S 7  w w%%wN  HH:El1l.+(S2sw 7 R8w pl7 fR ^`^w f&Pw w Jf&8w  .Ell l   S$R  wJEll텄SS  -*l 0 & & & & & D&&D&& @%7    IA86.(_ ." "# _'' @ @E HElD@Da C   l``H ```H  B! f, ((  @E Ha  %_fj # x"M5j  f_ &  e       Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  R"_ .  ''ߋ ߧvߗwxߗ !C  > f &Ca  Ca  Ca  Ca7 z C  [$Hk 3 T s:Un3G W  e e@ e& & & & & D&&e #@  @6 7 ( !?  e: wJ    mXmXmJmJ&bم6 6 #?%-0 @ ׳f&& @׳@f&7 R 2 f&f&7 R<R R fNcՅӅAх&f- mB mB   4D `&4D  R R R X ^.   \xf& \ e\>:L]L?ƪ@fEA#& e@ & f& f& *Um8e6-0wHm m w w%%wN  HH:f7   ff w   ߋW ߋw  j  nEl1l.+(S2sEll l   S$R  wJex߭ve 7 w U j4  f_ &  Rn _ .  C  > fEll텄SS  Da C   l``H ```H  B!  &f&   "& & EE f&    f !@   wf, ((  e       Ca  Ca  Ca  Ca  Ca  w_  4 _ ZXRf T! <:  ,&& !   Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca7 z C  [$Hk 3 @e 4@e 5_1@8 N-8P07F e: 7 ,&1@8 T s:Un3G W b!$""#g$(%%&h''(()b*++,U-../B001n2'334N566p7%889@::;N f&w :Ћ Dߠn  `/ b4\5Y& pl 7 7 7W<==h>??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLM!NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarb 7  7pȋ΀ l`f7T7Z7 N7 T B  w J0Q ,$ w ."bqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz  T&'%&WC D `0D  !}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~~ "8Nbu ;1. THE COMMAND LIST CONSIST$ 2 w tmxrw SF = ,JDB:  D  *0  wf&@@af  %        w U@ " b E T e   ,  w w %" ` W!  U `K ʀw   DEe \ , L   @_@_PwP b 7  $   7 7 7 7 7 5 w w w wn  w w @wP &@ z  @l n  ~   n Df& 6 6  ~ $  *  wD 5  w. p %Z  %"  r %:  b  Z  U@wU@ ,w.7 d H U 7 E@(  f& 7 E@7   w  e w w 5  7     w`  :@ wZ&R  7 &feB @& fE@R!0 B R!_R!_ T!_ ._ $._ 2._  T!U@$ 7 d 7 7 X w h B V tB C T C P w 5      J    0 `%    S REMAIN IN DE wb@ X w@7 Dw7< 7: 78 m 0  A     5@e@Ӌ ;THE INFORMA IN THISUMENT IS SUBJECTO CHANGE ;WITHO NOTICE AND SHOU NOT BE CONSTRUEA ;COMMIT BY DIGITAL " 5  f  be@eAw 7n  . z & : ,  (  EQUIPMENT CORPORATION. ;DEC ASSUMES NO RESPONSIBILITY FOR  /ww* & E  E  U@=     U@=  7  wEw ~   @  5wpww7-wT@5    .& `ߋ T `  e  5 D  : : 6 Z e@ G 7 nf e@TB HD @H $  00 d R     @ F   @(  `     f&: A.   Aa Z, 7V|w&5  P P @7ww5 wwV7 ww z   7  VU v7 lE@f& @ Tw7 JH >7 E@7 ,Ջe"7   | rwC  wU@j h   wJEB  \ 7   :  : 0    b@f&   $$X,$w w 5 w A  E5@e@KA  5 57 n7 z  w|E&&f   `ߋ '7 RW! H EW! W!  0   @ ^  6 D$   Ps    U l DATA PATH N 7  7t 7 !f E+!a % &  @  aw 7~  w R l Hp    3 tE L-H0   . ~ :  7!*Aw a  d0& -ߕ >U  f @$E&% 7 l `     V J U 7 E` "     D@   7  m   m &fr   ߕ U  7 ~w n AE_ ` hw U &   lwZ  f _ U@w2 `  " $ E <<<<DICATE CONTROL MODULE INITIALIZATION CT0: CLR NDFLAG ;CLEAR "NO RESPONSE NEE TED, BRANCH MOV R0,BASIZ ;OTHERWISE, UPDATE BASIZ 1$: JSRPC,CHANGE ;GIVE ANOTHER CHANCE TO CHANGE BCS 2$ ;IF NO CHANG 7"  RF6 3 %) | & 1@ HE DESIRED, BRANCH JSR R5,QA ;GET QA MODULE IN RIGHT MODE 11000 ;AND OUTPUT CRLF BR BUFINT ;GO LOOK FOR NEW VALUE 2$: e  R & J b"eEH` J@  * 2w p f @ 2  2 @p   < R LMOV BASIZ,R0 ;GET DESIRED BUFFER SIZE IN R0 JSR PC,BAINT ; GO INITIALIZE B.A. MODULE BCC CTBEGN ;IF NO ERRORS, BRAH  , 4wf&~  C`    F w  w0   $$     w@7  P7w 7 |ex N@ r  JZt7 Z7 Tr0 5E < r0t 5U " E`   a * & 8w\XWP,NAwG a w6 &4   PН% P  A `0 7  &  ~@:: D 0  5CË ߋe `@    ĝ   c  ߕ` |   @ d v :w _ e :wr ߋ '7 jW! ` EW! W!  0a W!  tm     XH#   ĝ,#     n  ߕ(U aye :Sp1:EE,1 tE  3 -    qS  Bߕ me7 džߕ e    r 5 ] :    - ~ t  ( x$$ Xm7g  S T L a   w  ES AS ONE RE THAN ;THE ASSOCIATEDB    &   2   `+& A @  ``N   `A %  6IZATION Q1: CTNOFD = Q2: CTNOFB = #`B7 ~#w RT-11 CHANNEL # HG j  `w #jb- %   @  , : &7 7 7 77 AW55!  05hj#Z"ILLEGAL RT-11 CHANNEL NUMBER RT-11 CHANNEL NUMBER OF FILE DEFINITION TO CHANGE IS DEFINE OUTPUT FILES@5@@a 25 5 j t7w 5 ^5P  C5B  e FOR: THROUGHPUT MODULE INITIALIZATIONRw 2)7 B - : %2 7 , `)7 8 7,՝( % 7 o)  A5@<AawFDW  & F ``w  he R  7   7(7 ՝ % 7 ~)z| Z7 j)Z  z   :58 @54, . wS C  wNLf7 )@B 7~ Z%R 7 L)r 7fb |)>D N %7 )7 <-++   < . / 0/7,0 T CE FA` mC |=tU 7(՝$ ( %7 )7 ܄U| Z7՝ *Z 5 =p7 h7 f e rmz w@ w$  7^  7O 77e t%l 7 f,*.0 7L F%> 7 8;*~ 7rn50 J*", 2 3  e N R $e7 77 W ; %  7 h*Dܶ 7845 w* 5K % 7 _+`4b @7($/, ~  e&  f@  ;INITIALIZE CONTROL MODULE WITH PARA. TAB Bv% n 7 h*02 7 J% B 7 <* 7wwz %  7 *lۂ   @0 P f@U  UQUES. TO CHANGE BCS CT4 ;IF IMPROPER RESPONCC TPBEGN ; IF NO ERRORS, BRANCH JSR PC,PRNTER ;GO PRINT ERROR MESSAGE JMP CT0 ;AND TRY AGAIN CTMSG: .ASCIZ <15><12>/COSE, ASK FOR CHANGES JSR R5,QA ;RESET QA MODULE TO RIGHT MODE ;OUTPUT CRLF Bf&~&f ~707-T!Bw Z!!  7 < w 6 v.! MODULE INITIALIZATION ERROR.BASIZ = BUFFER A    ʋ   &     `A ` C @ 7 * n 7 " 7 " LLOCATION MODULE INITIALIZATION w "7 J b B %: 7 4 " 7 w  U  % 7 " 7 w w W D W W -     "&&      `  W   U d  w XN-߀ ՝  UՕUU UՕ &UN- v# wB CONTROL MODULE INITIAL*BD 77 %p P%H 7 B_+   7 w %  7 * 75 7 E  -  ?        -  +7 x<+j  % 7 _+~Rڀ ^7FBڹ  Xw wB- p   7  w5    r x7  Bw w&)鈇 NO. OF CHANNELS NOT EQUAL NO. OF DATA PATHS. INITIALIZATION FINISHED! CONTINUOUS SAMPLING MODULE INI 5 e 5@  C { C  E 7 e0f .  TIALIZATION Q1: CSMODE = Q2: CSNOFC = Q3: CSRATE = NO. OF TICKS FOR DATA PATH 000 = NO. OF TICKS = Q4: CSNOFB =  --  ~ 7 O FILL BPL CS7 ;IF SAME FOR ALL CHANNELS, BRANCH SETUPT #CSNO CSNOFB FOR DATA PATH 000 = Q5: CSTYPE = Q6: CSCHGP = CSCHGP FOR DATA PATH 000 = Q7: CSDOUT = Q10: CSSOUT = CSSOUTFB+2,#MNOBMS,CSNOFC,BUFNO,PTABWD ;GET TABLE OF ; BUFFER LENGTHS CS7: CHECK GETABS,#5,#TYPEMS,CSTYPE,#1 ; GET TYPE(BYTE) FOR DATA PATH 000 = Q11: CSHOUT = CSHOUT FOR DATA PATH 000 = Q12: CSSIN = CSSIN FOR DATA PATH 000 = Q13: CSHIN = C BEQ CS9 ;IF ALL A/D CHANNELS, BRANCH BMI CS8 ;IF ONE DIGITAL CHANNEL, BRANCH MOV #1,NOFADC ;OTHERWISE, DMA. NEED ONLY OSHIN FOR DATA PATH 000 = Q14: CSSTOP = Q15: CSRRCT = CSRRCT HAS EXCEEDED VALUE ASSEMBLED FOR MAXRRC ROUND ROBIN TABLE EN  7 \V!$  ! ~x! 60!  ! L!TRY # 000 = Q16: CSTART = ))%*a****X+7w b! R0 =  \7w > ERROR # fw ++ : "鈇BAERORCSERORCTERORTPEROR NO ERRORS!R ҋ  \",X"A ZV"鈁 Nj"鈂   w|ANY CHANGES? YNR7 ` -R7 w  C`, /w v rׯ.=+ RUN ERRORS t n\"V" j"鈇  @ @ @ e0 S CS9A: BIT #1,R5 ;Mb, BAD RESPONSE. TRY AGAIN!,7@h7@n7@l7@v+x7PL7PR7PP7PZ,\7 h %ʕ0AKE SURE ON WORD BOUNDARY BEQ CS10 ;IF SO , BRANCH INC R5 ;OTHERWISE GET ON WORD BOUNDARY CS10: .IF DF,LPSDR$ ! DR11K$ 2 2227.   J  w 0-*QUESTION NO. TO CHANGE = ONSE(HOPEFULLY) CS3: MOVB CSNOFC,(R5)+ ;PUT VALUE IN PARAMETER TABLE MOVB CSNOFC,NOFADC ;SET NO. OF A/D CHNLS TO # OF CHNLS CH 7`\ *  %  7 *:ۈ `7.* *f  %  7 zECK GETABS,#3,#RATEMS,CSRATE ;GET CLOCK ....../.B/N/F/R/..wv`7 Z7w 7 D 7