@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ߋtv ?B-NO BOOT ON VOLUME @w p@w l wN׭ ׭ w H  @J f @wr Z @& 7 h BLOCK@ X IS BAD  -̂@ R   # @ jw 7 r7 t &"B g wD0 ѕ /Rì/    ~ s// ` b|]/ FD 1  8 /s//-w    s/ ewkQ c!R~@ c!.$ vM c!$ vDc!Fyf^c!R~@vc!R~@v' c!'' TO ONE WHO AGREES ;TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE ;SHALL AT ALL TIMES REMAIN IN DEC. ;THE ALL OPEN FILES JSR PC,TPCLS ; VIA THROUGHPUT MODULE .ENDC .ENABL LSB CLR NOEROR ;SET FLAG FOR NO ERRORS TSTB CSEROINFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE ;WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A ;COMMITMENT BY DIGITAL EQUIR ;TEST FOR ERRORS IN CONTINUOUS SAMPLING BEQ 1$ ;IF NONE BRANCH MOVB CSEROR,R1 ;GET VALUE MOV #BAERRF,MESSAG ;GET TEXTPMENT CORPORATION. ;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ;ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPP JSR PC,PRNTER ;GO PRINT ERROR MESSAGE AND VALUE 1$: BITB #2,CSMODE ;CK FOR MODES 2 OR 3 BEQ 2$ ;IF NEITHER, CONTINUE CLLIED 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}  yhH#&E C}C T~^ C&|&C{3X {3X ,@ CO CLOSE FILES FROM THROUGHPUT MODULE .ENDC .GLOBL TPEROR,CSEROR,CTEROR,BAEROR ;ERROR FLAGS .GLOBL CSMODE,CSNOFC ;FROM DIRKTRdD 3C T~X+CZhM Cw C&X C&4X& Cyh  #yhE  #yh # ;INTERNAL GLOBAL .GLOBL OVRLA2 ;ONLY INTERNAL GLOBAL ;CONDITIONAL ASSEMBLY PARAMETERS ;TPCLS$ IS THE ONLY CONDzGX C,@ #,E  #}E  #y}  Cy} C&vr C:L1CyL" CyITIONAL ASSEMBLY PARAMETER AFFECTING THIS MODULE. ; IF IT IS DEFINED, ALL CHANNELS WILL BE CLOSED WHEN THIS ROUTINE ; IS CALLEL"E  CyL"  CyL" CyL"^Cy  CyD  C%#'jLmjLD VIA THE THROUGHPUT MODULE ENTRY "TPCLS". ; IF IT IS NOT DEFINED, ONLY ERROR CHECKING OCCURS. .SBTTL RUN ERROR CHECKING AND.TITLE FILE CLOSING ROUTINE ;LAB-APPLICATIONS-11 ;DEC-11-SLABA-C-LA ;FILENAME CLOSE.MAC ;FILE ID CLOSE.3 .CSECT CLOSE OPEN FILE CLOSING ROUTINE ;THE PURPOSES OF THIS ROUTINE ARE: ;1.) TO CLOSE ALL OPEN DATA FILES. ;2.) TO CHECK FOR ERRO ;COPYRIGHT (C) 1975 ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLRS OCCURING DURING ; ACQUISITION, AND TO REPORT ON THEM. ;3.) TO CAUSE RT-11 TO BRING IN IN THE "INLIZ" OVERLAY ; WHEN Y ON A ;SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION ;OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANYCALLED BY "DIRKTR". DURING THE RUN, ; "INTLIZ" IS WRITTEN OVER FOR TEMPORARY DATA ; STORAGE, BUT UNTIL "CLOSE" IS CALLED, OTHER COPIES ;THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ;OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND RT-11 ; STILL "THINKS" THAT "INTLIZ" IS STILL INTACT ; IN CORE. OVRLA2: .IF DF,TPCLS$ MOV #-1,R0 ;JUST CLOSE TURN .PRINT #NOERRM ;OTHERWISE NOTIFY OF JOB WELL DONE 8$: RTS PC ;AND RETURN NOEROR: .WORD 0 ;NO ERRORS FLAG BAERRF: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 .ASCII/BAEROR/<200> CSERRF: .ASCII/CSEROR/<200> CTERRF: .ASCII/CTEROR/<200> TPERRF: .ASCII/TPEROR/<200> NOERRM: .ASCIZ <15>S RTS PC .END <12><12>/NO ERRORS!/ .EVEN TABERR: MOV CSNOFC,R3 ;GET NO. OF TABLE ENTRIES .ENABL LSB 1$: INC R5 ;INCREMENT ENTRY COUTER TSTB (R2)+ ;TEST NEXT ENTRY FOR ERROR BEQ 3$ ;IF NO ERROR, BRANCH TST NOEROR ;TEST FOR FIRST ERROR FOUND BNE 2$ ;IF NOT FIRST, BRANCH INC NOEROR ;OTHERWISE, INDICATE FOUND AN ERROR .PRINT #RUNERM ;PRINT ERROR MESSAGE 2$: .PRINT TMESAG $JOB/RT11 TTYIO .R MACRO *BIN:DIRKTR=SRC:THRASM,DIRKTR *BIN:CONSAM=SRC:THRASM,CONSAM *BIN:CONTRL=SRC:THRASM,CONTRL *BIN:B;PRINT ERROR MESSAGE .PRINT #PLUS ;PRINT + MOV R5,R1 JSR PC,OUTOCT ;PRINT OFSET BYTE NO. .PRINT #EQUALS ;PRINT = MOVUFALL=SRC:THRASM,BUFALL *BIN:TPUT=SRC:THRASM,TPUT *BIN:GENS=SRC:THRASM,GENS *BIN:QA=SRC:THRASM,QA *BIN:TTYR11=SRC:THRASM,TTYR 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 ;A ERROR MESSAGE JSR PC,TABERR ;GO PROCESS TABLE 4$: MOV #-1,R5 ;NO GENERAL ERROR FLAG MOV #TPEROR,R2 ;GET ERROR TABLE MOVDDRESS OF ERROR MESSAGE OUTOCT: CLR R0 ;GET PRINT CHARACTER READY MOV #3,R4 ;GET NO. OF CHARACTERS IN BYTE SWAB R1 ; #TPERRF,TMESAG ;GET ERROR MESSAGE JSR PC,TABERR ;GO PROCESS TABLE 7$: TST NOEROR ;CHECK IF ERROR FREE BNE 8$ ;IF NOT, REGET BYTE IN RIGHT(LEFT) BYTE BR OUT2 OUT1: CLR R0 ;GET PRINT CHARACTER READY ASL R1 ;PUSH BITS OVER TO CARRY ROL R0 ;PE 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 )_ 6"(_ 6+_ <"(_ <6(_ <+_ <~,_ B"(_ H"(_ H(_ H)_ HL*_ H+_ N"(_ N((TST SAMFLG ;;-xxl -`yl0+0000000.E+00-Hxr -0yr -xl -ylDID 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 -xr -yrHpH@`@@  e & * Fe7 INCB CSEROR ;;RECORD FATAL ERROR JMP GIVEND ;;GO RETURN 8$: JSR PC,RSTARG ;RESTORE ALL REGS 9$: DEC SAMFLG ;;RESET FLAG 7 7 P L 5D> 7 W lh 5MF IF NO ERROR(=0 IF ERROR) RTS PC .ENDC .IF DF, MODE2$ ! MODE3$ .SBTTL DIGITAL INTERRUPT ROUTINE FOR MODES 2+3  - 57 757 7&  f@ f&~R11 *BIN:INTLIZ=SRC:THRASM,INTLIZ *BIN:OUTF=SRC:THRASM,OUTF *BIN:CLOSE=SRC:THRASM,CLOSE .R LINK *THRU,LOG:=BIN:DIRKTR,CONSA.IF DF,LPSDR$ ! DR11K$ DIMD23: MOV R1,-(SP) MOV @#DIBUF,R1 MOV R1,@#DIBUF ;CLwr  X wM,CONTRL,BUFALL,TPUT,GENS/C/B:600 *BIN:QA,TTYR11/C *BIN:INTLIZ,OUTF/O:1/C *BIN:CLOSE/O:1 $EOJ  B D N P  6 F d t P2D)J  @ 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    e 5@  C { C  E 7 e0f .  W - P e   4    6 L I-E6 6 mm  --  ~ 7 e5 e` 8Ef&  NE fv m  Օ0Օ.v!Օ0 v    7 m     xp &  W E+  e&&   v |N v  6 6  v n   ӕ-ӕ ˕0 e:3e%V f& h dD C B A e hv  `   @ (%.% D %eC B A @ eB A @ eA @ e@  6&f * & mC B A mB A mA c  ef C B A @  &f ~    ʋ   &  N  N  &     `A ` C @% e @ D   mm@ 0     A C v %\w     0  7x7` c L  d ^ B* ? &f z  j d * $V NJ7 <7 <? >E ,w0e5  5  5 UEA&8wBE EP  P D$7 w *@`@@w(P7 @ @l f   eww,^ ` 7 I% 2%@, 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   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 5  7t    Z&@ @l7@$ w |7$  wf &1 e%&  4Xf Sf*w($ ($BD  9 Bl(E B!@l&7 F@& ce w,E@&9DlB Bl  w,p%$p' $p' & w&eww OFSE^7 Fw 4wއ$ wݷ  4DDDDDDEDBMMMDDUDDDMMFBBBBBDDDFFFFDBDBDDDBBPPBBSSSBACEIDRLXFDOCRLWNPTAIOCMASMDDSOFPMANITAIFCDMWRSSADMBAUXNEAOTR7 ` ` arrwl|QH ^ 7Z7 wf <-22 =3417|,&-DPLEIIOOASNUCODUUIIPVTOPCONBLDVVEMREMTDIUUDSF @""""#lR"*d2:zjZj" e 7 X1@8 7 www"77>(7 7rJR B7 :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  ,     , 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  &_ %`  wa ,   z   ,7 ߋ _ VPTS= ST_  ߋ Tߋ  w: < x 0 ߕBߕߋߋ _ _VNO4w ( ,  _ z_   X  ; B     ,P,     ,x,      _  n &1 _Vw  , 20''m _ z_  _'w8  ,+    Z.w L6ߋ      _Vw !-ߋ  % _VTLHNY' _  _ z860  ,`+   ,+,,_ ' @ @E \ ElD@@E \ a  %_V  &  B   d w7 7`  f_ z& f+@_    &1 HePE FIRST CALL BEQ 4$ ;IF YES, B+C JMP RESUME ;RESUME WHERE WE LEFT OFF ;COMES HERE ONLY ONCE AT THE FIRST CALL TO B<E ,-   f-e  f P/ .M5;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 :-MIN VALUE= >- _ 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$ f0e  f 2 1M5   f_ z& f1_   e  & @    fb+ pe ` R& ''*ߋ%  8ߧe 'e0PU C  > f A  fL,+ _  + L    _  e &f& 1"& & EE  f& ,1    f 2@   we ^Z ڇ& @A\ _VARI  / _ VINTEGRAL=H/'w_ z 4  _ zZXRf ,Z2  <:   ,&& ,2    ' @ @E \ ElD@@E \ a  %_V''NߋCK`\ (,'NJ| "_ VSCA FAC= A,OFFSET= , _Vw  , 20 / @e 4@e 5_VC,OUTSRC ;OUTPUT SAMPLE RATE CHANGE BLOCK N117: MOV Y3(R5),MN(R5) ;RECORD CURRENT MIN   2w~|z7x eF7VXT jn*FB TX(_ VMAX VALUE= IMUM VALUE .IF DF,AUTOG$ MOV Y3H(R5),MNH(R5) .ENDC MOV TMH(R5),MTH(R5) ;RECORD CURRENT PT COUNTER MOV TML(R5),MTL-w    n. _VPBDw  +w )ߋ wZ ,    ߋ/  <:   ,&& ,/    @e 4@e 5_VRT LOOKING FOR  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- ~- _ f ,,1  <:   ,&& ,X1    @e 4@e 5_VISE f& f- %_V >_ z _ f& f- އf d/ . 4$: MOV MN(R5),R0 ;UPDATE AREA ACC. DURING INCR. BY $MUL DN(R5),R0 ; 1/2 LEADING MINIMUM * SAMPLE RATE .IF DF,AUTOG$ MM5   f_ z& fV._   ''*ߋ%  8w  +w N)ߋ w c , p+ v_  _ z_  @_ z_ z  _ (_ ߧe 'e0PU C  > f &f& /"& & EE  f&f& (  (   _     n._ z_  , +  B-  ,*/    f N/@   ww_ z 4  _ zZXRf , (CURRENT TIME-LEADING BASELINE MOV TMH(R5),R2 ; TIME) SUB BTH(R5),R2 SUB BTL(R5),R3 SBC R3 > 4 PTSERR-FREE CURSORS HAVE SAME X-POSITIONERR-FIX CURSORS NOT UPERR-FREE CURSORS NOT UPERR-SPECIFIED BUFRS CANNOT BE CONTJSR PC,Df . -M5   f_ z& fv-_   ''*IGUOUSERR-INSUFFICIENT BUFR SPACEERR-FILE(S) STILL OPENERR-FILE NOT OPEN OR HARDWARE ERRORERR-E.O.FILEERR-DUAL DISPLAY NEEDߋ%  8ߧe 'e0PU C  > f &f& EDERR-BUFR IS NOT DISPLAYEDERR-BOTH CURVES NEED SAME CURSOR STATUSERR-BUFR TYPE IS NOT SNGL PRECERR-BUFR SIZE MUST BE A POWE(."& & EE  f& ,J.    f n.@   ww_ z 4 R OF 2ERR-BUFR SIZE IS < 8ERR-BUFR SIZE IS > PROGRAM LIMITERR-BAD CMD NAMEERR-SPECIFY A NUMBERERR-INCORRECT CMD FMTERR-BAD$ , 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-DDI  \ `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 BE0w !(ߋ   _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%     ߇ w\ <7 dw"bE@\ dJX V*J  ߇ 7` W Ww ·  \ weX1 e` , > Z l OF OUTPUT BUFFER BNE 2$ ;IF IT EXITS, B+C MOV BASIZ,(R0) ;SET WORD CNT TO BUFFER SIZE TST -(R0) ;GET ADD     e  e`@b 7e7 % R OF ADDR OF OUTPUT BUFFER JSR PC,BAGET ;OTHERWISE, GET AN OUTPUT BUFFER BCC 1$ ;IF ALLS WELL, B+C CLRB FIRSTM(R5) ;IF NO \] 6 LO : !%    5@ ! BeT, IND. NEXT DATA RECEIVED FOR THIS INCB EROR(R5) ;INDICATE ERROR SEC ; CHANL TO BE TREATED AS INITIAL DATA. 2$: RTS PC @  R ` ,\  @ 0   `rE- 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 hONSTANT 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ߋ  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   jRY MOV SINADR,R0 ;GET INPUT BUFFER ADDRESS JSR PC,BAREL ;RELEASE IT ROL (SP)+ ;RESTORE CARRY .Eg  _ zhf@`   PJ_  _ z86.(_ " "# NDC RTS PC ;RETURN ;ROUTINE TO DIVIDE R0, R1 BY R2, R3 WITH RESULT IN R0,R1 DDIVD: MOV R5,-(SP) ;SAVE R5 M_V'' @ @E \ ElD@@E \ a  %_VOV #32.,-(SP) ;GET LOOP COUNT CLR R4 ;READY REMAINDER(R4+R5) CLR R5 .ENABL LSB 1$: ROL R1 ROL R0 ;EXPOSE NEW BIT OF Nf |/ .M5   f_ z& fn._   ''*ߋ%<   7   w  W_ P(_B 6  Bw !+ߋ  wZ , me  8ߧe 'e0PU C  > f &f&  /%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"& & 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 ; SAMPLINGJ    mXmXmJmJ&bمfNcՅӅAх&f- mB Hf&fB $ J/ߢ* 4 5  ,7 TߢV )@w 7 2mB   4D `&4D  *Um8e6-0wHm mf(&w 7 f( w  - f&f3 ^ \ Z X5 S ,7  w w%%wN  HH:El1l.+(S2sw V7 f@)w 2pl7 rff)`^w )f&Pw .w J))f&8w  .Ell l   S$R  wJEll텄SS  -* 0V & & & & & D&&D&& @%7 *  IA V T&'%&EWC D `0D  !}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~~ "8NbuE ; CHANNELS SAMPLED AT MULT$ 2 w tmxrw SF = 4)JDB:  D  *r%  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  "-  <:   ,&& ,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``oaarb 7  7pȋ΀ ,`f7T7Z7 N7 T B  w J0Q ,,) w ."bqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBzD)J  $  R ^ V b $ wv`7 Z7w 7 D 7  5 7 E ''*]*s Q8Q8#|0 0 7gj    ?          7  7 &  w ^h |   ׯ ׯ  *0 b  0舦) w5    r x7  B 5 evʋ&7 6v  Feʋ&ff7 vlL TL re \&B 5@  C { C  E 7 e0f .   --f  m ʋ ``~  e & * Fe7 7  ~ 7 e5 e` 8Ef&  NE fv   7 d ` 5XR  7 W glh 5 MF   x p &  W E+  e&&   v |N v  6 6  hv- 57 757 7&  f@ f&~&f ~&feB @& fE@r% B 4!%h)-005    ʋ   &  N  N  &     `A ` C @  @ h7 9V=@_ _ @_ : _  _ D!_ F!_  _  v_  _  _  n"_  #_ _ * N 7 " 7 " w W D W W -     , : &7 7 f_ _ "_ _  _  _ !_ D!_ !_ !_  "_ R"_ \"_ f"_ "_ "_ 7 77 AW55!  5@5@@a 5 5 \ `t7w 5_ _ _ L_ $_ $l_ $_ $_ $ _ *_ *"_ 0_ 0_ 0_ 0_ 6_ 6 ^5P  C5B  e  H H H X A5@<AawFDW  &  l_ <_ <._ <_ <, _ B_ H_ H_ H_ HD_ Hx_ N_ N wbwz``w  e   5wH  j  f& & vt fw b 7^ h bw $dm,3 w w l 7  7 77e   /#   cw& 23   w e. vv    w(ED  0e%6  6  E v v ·ͅ%\ @       D&&7 lN " v!$DE+- v!$DE 0090 ` av!$  ` "w   4f7 ^6 6 &  f 6A  v  6N\&f f & G   v  4f& ( " mB A @ mA @ m@ c  e   e=-9B 76   p  d deA @ A @ %  A @ 6v %\%   6 C B A @ #"B A @ C6v "$e΋V w  J &f w   `@ `  ` `   \ e\w r\ \\ N A f C 8 2&f  eB A @ eA @ e@ e B A @    E D&6 E& & f&  %C B    \ w   \&@& 0 " 77 C & )mЕ 6 A N v B '  C B A   W -  &q 0@EE   R @, 10E*E(B  41wZ 7 * (1q$  $ $ql$ P e   4    6 L I-E6 6 mm  m| j f@$W&W0w  wtUW(   wlw wl  Օ0Օ.v!Օ0 v    7 m  v & ebC     N Bl %l5%X-^ -E ec% n   ӕ-ӕ ˕0 e:3e%V f& h dD C B A eC B A @ eB A @ eA e  *  w m ww @p   "  "  `   @ (%.% D %e% e @ D @ e@  6&f * & mC B A mB A mA c  ef C B A @   eӕ*   mm@ 0     A C v %\w     0  @  @ v W!,v*(&f&     R  eC B A eB A eA e@ e%  ev!6 ͕- w      B -  e \& & &f&f& & & A& & $m"$    D 6  v!% Օ1 -Օ.- e0     &f  & N & . ) E v!$w+--  'DE 00L    9Q  0 $ FaB A @ v!$N   v     C 6  %%    w j6 6 %   Dv @    \ ` N@ @ D 2@ $ (  @     B   4DDDDDDEDBMMMDDUDDDMMFBBBBBDDDFFFFDBDBDDDBBPPBBSSSBACEIDRLXFDOCRLWNPTAIOCMASMDDSOFPMANITAIFC@  NSjn ~.pn QQONvp~R  DMWRSSADMBAUXNEAOTRDPLEIIOOASNUCODUUIIPVTOPCONBLDVVEMREMTDIUUDSF PxR"*J2:r(QQ s QQ_ f& .Qo'`  QONԪppZbjRZ Br7 Nw  : ww (wh/1 ^ (%_  _ .Q Q`v  Q u*`"   w L8w8A ww $@ !b -nѝ5 Q QQQc_  f& ,Qo'`  Q ONԪp쨀p. w  !8 T♁!b!d >⎁!\-8 eee@Mq@`"@^ w w n^\ZXuw7 ` ` a>>w8F@y@.`@`@K@{S@g'N`@.'|Q@.@99K@99@T}@.^K@hj@, =)4'0- e 7 1@ wvww@"ijxZ@mjPs@s @".v @Ep@vp@Ԫp@ON@E.p@BS@(Oy(XMhb.7 7 d1@ 7 7 B1@ -bzZ7p ed 7 VP81@ bwZh0fh`h"hOy. 'ߋ8# _ 2*K g'N` e e Ee e e w   - w  %w<ߧw,-Zw_ ŗߋ  D HC B HA nŗ  ` w-w7 f`Z7 )7 ~7 |dlw)l e@ CߋDa HCaBa HAa X@`Ue Mjlnp_`rt`    KCaD ` C 4 D  @77 7  7) \7@7 7w @7 z x w v e & 8^\_ B FREE CORE =  WORDS0  _  ߗߗ7 7   7 %%  e)`C C` 7 vwPtf b5 V Twv _w  z! !     ! w$  !   w q q "@ @E ,qaq q @  q q" 1 " j@     vBR  `D D`m< 5  &f e @? d? d  ^-X? R?HeBeB 2? ,&& #   @e 4@e 5_fw `$`.& ("_ .  j #w    _    >wn 8 w Z  w "  w !ߋ wW  Swx   w_ L_%_ '' @ @E HElD@@E Ha  %_   _  _ a_!l2w  ,!  j  ߋ_ B   i H  %l _  7w_ 7rw wm lw  ߋ 7 _ B  (gw9   _ B _  _ B " _w  ߋwwߗvߗwx @v l Hgp pp l 0 0`%E'' w  V_ ' & & j_ 7B0 (*,0 .   8ߕ _NOw R  j _ _ .  #  wH&_ &_ %` j wa !   z  7 ߋ _ B  _w   "''mj _ _ . _'wj8 PTS= 7_ ߋTߋX  ; B  d     _ _ 860   _ .  _ . n  n"w $ߋ   _w !$!ߋ  j  w7j 7` f_ &  Rh@_ .   # HeP`% _TLHNY'' @ @E HElD@@E Ha  %\ tx'NJ ^b"_ B SCA FAC= OFFSET=  _w >  " " _ &  BB<E !   R!e fj  j  $w~|z7x eF7VX$T  *FB  (_ B MAX VALUE=  MIB# "M5j  f_ &  RV"_ .  ''ߋ ߧvߗN VALUE=   _ _   _ .  jG _ _   !_ .  j/ fwxߗ "C  > f &f&  ""& & EE f& #  _ _  R0!_ .  j 6_ _  `!_ .  j #w   f ,#@   ww_  4 _ ZXRf # <:    _   !_ .  j1 d_  R!_ .  j 2_  e  _ .  # B _LE & ?_ _   Rw $ 4$M5j  f_ &  R#_ .  ''ߋ ߧvL?_ _  e& @e_ _   R Rw  _ e_ & A _ e_ e_ ߗwxߗ #C  > f &f&  h$"& & EE f& $    BR B BB4 & A\  R j \w  w \f $@   ww_  4 _ ZXRf % <:  !V ߋ  w     ''  \"    _j   e$,&& .%   @e 4@e 5_`` 7L$^.Je  & @     RZ pe ` R& w !ߋ wZ (87L hjljf (K.p me jw0 &  BB<E J#   Rn#e fj $ ($MA  R D  _ .   L    _ . e 5j  f_ &  R#_ .  ''ߋ ߧvߗwxe ^Z p& @A\ _AR  # _ B INTEGRAL=#'ߗ ~#C  > f &f&  \$"& & EE f& ~$  ' @ @E HElD@@E Ha  %_''NߋKf $@   ww_  4 _ ZXRf $ <:  ,&&  x @ f& @ f&ߋߧvx   "%   @e 4@e 5_CEERR-FILE(S) STILL OPENERR-FILE N.OT OP  Hw  !H ! ! R l" C  EN OR HARDWARE ERRORERR-E.O.FILE.ERR-DUAL DISPLAY NEEDEDERR-BUFR IS N=.OT DISPLAYEDERR-BOTH CURVES NEED SAME 7_  !(&& D"&&  X"_: f&__ _  " "w .  w !jߋ  w" jw  e_e   ww % P Z_ f& R "%_ _ _ f& R #     _ .ee _ .@  L B _ . A &  BB<E V#   Rz#e fj   a $  B  0 & @_  _   Rff_ .A gA!  >ߋ        _w L %l_ %??{?x?Ǻ? $$'' @ @E _ % _  D`!l ߋ   %_7 7`%  HElD@@E Ha  %_''NߋK  x 7 e@@`e@@`&7 7 eeŗ ߋ tpl H`w ^@ @ f& @ f&ߋߧvx   ߋ  ! e!e %_OI0 g% 8 Hw   H     R l  C   7_ (&Q8 Q>.  _ hf@` $a a `"Q&a .&  PJ_ & "!&&  6!_: f&__ _  f! v! |_  _ 9$a `Q$`"&Q.L86.(_ " `Q.rf& R !%_ 2_ _ f& R ! fj :# ""# _'k`"Q$8$'@@.y Q 8M5j  f_ &  RN"_ .  ''ߋ ߧvߗwxy{{}"E ElD@@E*{{W T}{y{{g(fj :" !w  w Fߋw c  h v_  _ _ . @_ _ _  _ ߗ "C  > f &f&  ""& & EE f& #  f&    _ .   j f"_ _ .    :! f $#@   ww_  4 _ ZXRf x# <:  ,&!w   j f" _PBw r w ߋwZ     ߋ& #   @e 4@e 5_V `&,w  6%_ r_ n .   " f" _3NHHPP12& La e> eh_     $  _ B Z& 7F    <<<< _  p q rstuvwxj & &  _  a_   R j    d  7 z 4  ,   T f!ߋ . *   _ d  f $"@   ww_  4 _ ZXRf x" <:  ,&R OF 2ERR-BUFR SIZE IS < 8ERR-BUFR SIZE IS > PROGRAM LIMITERR-BAD CMD NAMEERR-SPECIFY A NUMBERERR-INCORRECT CMD FMTERR-BAD& "   @e 4@e 5_  ߧe '*w DELAY VALUEERR-BAD CLOCK RATEERR-BAD BUFR TYPEERR-INCORRECT FMT OF INPUT DATAERR-NONEXISTENT BUFRERR-NONEXISTENT HARDWAREQ wQ8.ePU C  >By y{Sw. f &ERR-127 BUFRS OF ONE TYPE IS MAXERR-#PTS + #SKPS > BUFR SIZEERR-SPECIFY 4 BUFRSERR-TOO MANY BUFRS SPECIFIEDERR-UNNECESSARY Cf& m``(ONZ."& & EE f& (pvpv &OONSTANT SPECIFIEDERR-E.O. CASSETTEERR-MAX FILES OPENERR-I/O CONFLICTv7Rp(G_x!G^v*  7$7&_ B ERR-NUMERICAL-FPMP= ,  e`"7 p 4 ERR-SPECIFY DIFFERENT BUFR TYPESE  5 ] | !%!8!J!j!!!!!!"*"<"O"T  U@ $, ,7# wT RR-SPECIFY A BUFRERR-SPECIFY A BUFR SIZE>0ERR-YOU HAVE NO DISPLAY-SPECIFY A BUFRERR-TOTAL BUFR NEEDS EXCEED FREE COREERR-DDISPARTA VVA3-00 r%ULL BUFULL: MOV #MSG4,R0 JSR PC,TYPMS ;TYPE OUT BUFFER FULL MESSAGE JSR PC,CRLF CLRB BUFOVR ;CLE CMD NEEDED PRIOR TO FULL-MODEERR-BUFR MUST BE SNGL PRECERR-SPECIFY DEV & SU IN ORDERERR-ILLEGAL DEV ( OR SU SWITCH )ERR-SPEAR TERMINATOR CHAR. BR ECHO2 ;COMES HERE WHEN CONTINUATION CHARACTER IS FOUNDwr  X wCIFY BOTH L & HERR-BUFPOSITION MUST BE >= 1ERR-BUFPOSITION + #PTS > BUFR SIZE +1ERR-BAD DATA VALUEERR-E.O.PAPERTAPEERR-ILLE0w !ߋ  _     ~& F`f ~APL GAL OPTION NAMEERR-OPTION 'O' NOT ALLOWED NOWERR-START CANNOT BE < 1ERR-WINDOW CANNOT BE < 1ERR-START + WINDOW > BUFR SIZE + ׭>8  SɋF w w n V  R &7 rp  XL 1ERR-WINDOW > SCOPE SIZEERR-ASSIGN A SNGL PREC BUFRERR-NO ROOM FOR DISPLAY BUFRERR-SPECIFY A 2ND BUFRERR-BUFR SIZE MUST BE| NL mYb X f7 rP  ?XR4 * ~7w Y  jw > 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 M5j  f_ &  RN!_ .  ''ߋ ߧvߗwxIGUOUSERR-INSUFFICIENT BUFR SPACEERR-FILE(S) STILL OPENERR-FILE NOT OPEN OR HARDWARE ERRORERR-E.O.FILEERR-DUAL DISPLAY NEEDߗ !C  > f &f&  !"& & EE f& "  EDERR-BUFR IS NOT DISPLAYEDERR-BOTH CURVES NEED SAME CURSOR STATUSERR-BUFR TYPE IS NOT SNGL PRECERR-BUFR SIZE MUST BE A POWE5 A 5 E `T ߋ wߋ . e+ _/0 ? & v ? ? \  " wmE  f&f ߋVT - RR w XL YL t '' @ @E $"EU E      B  wtplt EHElD@@E Ha''NߋK  x @ f&  H ` IFCNFT# #C S D F tJ$<ThBSXRLIDC7 7   e7DDaN%@@ f&ߋߧvx    Hw  H     7` K7gwW  R  C   7_ (&& &&  _   7gw 7Ww  | Hwe1 e` &  BB<E D    Rh e xl -yl     e  ep`@b 7e7 t-xr -yrHpH@`@@  e & * Fe7  2`3r@E:-68.0%S*#%X"wRw  e7 އ w l bߋ * 7 7 P L 5D> 7 W lh 5MF  0 wp 0  w ,  & P"  xw ߋ 7  m_  - 57 757 7&  f@ f&~ w8 ˋˋcI &0  '   &7`   wjhW  XR RJ XwB@ w. 2  %,w zwx f#U@w0& *Xrrf$0 beA (HrHeAfmnߋr wl  ,w NX _ H~H$# %$7& 4v  ef$eANOw   6%''-__ '__mB   4D `&4D  *Um8e6-0wHm m!" _w `  !w% ''o   7   7  Y  w w%%wN  HH:El1l.+(S2sww   gj j _ hf@` jj  PJ_ . _ Ell l   S$R  wJEll텄SS  86.(_ ." "# _'' @ @E HElD@Da C   l``H ```H  B! f, ((    W      H @ e .  e   e=-@E Ha  %_fj # x"M5j  f_ &  9B6 C B A @ #"B A @ C6v "$e΋V w R"_ .  ''ߋ ߧvߗwxߗ !C  > f &<   7   w N W_ H_ w !ߋ w  mef&  ""& & EE f& "  f "@   ww_  jw % _  7%_  w% lH-D: _  4 _ ZXRf F# <:  ,&& r#   @e 7,%_ wR m l  w0mP lw vߋ4@e 5_t    Z&@ @l7@$ w |7 v ߗvߗwx ߋ6 H w ߗvߗwxߗߗ Bf$ߋMߋN/ w w4ߋ65 17 w !* &ߋ ! flZߋwߋvߋ &  h& R LeD&  Z & w jPw SF =   pl n `IF&'%&wf&@@a g "& ߋ l Hgtf  l HgpfI 8f  %       !?  e: w + e l 0 0 70 (*,. I ߕ  _J    mXmXmJmJ&bمfNcՅӅAх&f- mB f z  j d * $V NJ7 <7 <? >E ,w0e5  5  5 UEA@e 4@e 5_1@8 N-8P07F e: 7 ,&1@8 f   eww,^ ` 7 I% 2%@,N f&w :Ћ Dߠn  `/ b4\5Y& pl 7 7 7Hf&fB $ J/ߢn* 4 5  7 Tߢr )@w n7 & 7  7pȋ΀ l`f7T7Z7 N7 T B  w J0Q ,$ w ."R&w T7 R  w n -l f&f3 ^ \ Z X5 S 7   T&'%&WC D `0D  !w 7 R8w pl7 fR ^`^w f&Pw w Jf&8w  .$ 2 w tmxrw SF = ,JDB:  D  *-*l 0 & & & & & D&&D&& @%7    IA  wf&@@af  %        e e@ e& & & & & D&&e #@  @6 7 ( !?  e: wJ    mXmXmJmJ&bمe       Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  6 6 #?%-0 @ ׳f&& @׳@f&7 R 2 f&f&7 R<R R Ca  Ca  Ca  Ca7 z C  [$Hk 3 T s:Un3G W R R R X ^.   \xf& \ e\>:L]L?ƪ@fEA#& e@ & f& f& b!$""#g$(%%&h''(()b*++,U-../B001n2'334N566p7%889@::;W<==h>??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLMf7   ff w   ߋW ߋw  j  n!NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarbbqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnex߭ve 7 w U j4  f_ &  Rn _ .  C  > fn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~ &f&   "& & EE f&    f !@   w~ "8Nbu$p' & w&eww BUFFw_  4 _ ZXRf T! <:  ,&& !   Ell텄SS  Da C   l``H ```H  B!    B -.|  e \& & &f&fM.& & & A& & $m"$    D.f, ((  e       Ca  Ca  Ca  Ca  Ca  E v!$w+--  '.DE 00L    .9Q  0 $ FCa  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca  Ca7 z C  [$Hk 3 aB A 4.:@ v!$N    /# a.`  cw& 23  . w e T s:Un3G W b!$""#g$(%%&h''(()b*++,U-../B001n2'334N566p7%889@::;. vD.v    w(EDN ". v!$DE+- v!$D.EW<==h>??t@!AAzB&CC{D$EEuFGGjHIIXJJK@LLM!NN^OOP4QQiRSS3TT`UUVWWCXXdYYZ[[)\\>]]P^^^__h``oaarb 0090 ` z.av!$  ` "w   .D4 4f& ( " bqccldddeeWffGgg2hhiiinjjKkk$lllbmm1nnn_oo#pppAqqqUrrs_ss t`ttuVuuuBvvv#wlwww@xxx yJyyyzBz.jmB A @ mA @ m@ c  e.   e=-g.9B}zzz'{]{{{{*|Z||||}:}c}}}}}~?~`~~~~~~ "8Nbu ;1. THE COMMAND LIST CONSIST6 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  fNcՅӅAх&f- mB mB   4D `&4D   6 6  hv .L `.r   @ (%*Um8e6-0wHm m w w%%wN  HH:..% D %e% %.e @ D   mm@ &.0  El1l.+(S2sEll l   S$R  wJ   A C . v %\w     .00  @  @ w .V    6 .~L I-E6 6 r.mm  m. \ \\.  N A f C %. C B    \ w (.  Օ0Օ.v!Օ0. v    7. m  .   \&@& " $  $ <v n  [.b ӕ-ӕ ˕0 e:3e.%V f& h dD C .B A eC B A @ eB A @ eA @ e@ z. 6&f * & mC B A >.mB A mA c0  ef . C B A @   eӕ.F* v W!,v*(&f&.l     R  eC y.B A eB A eA e@ e%  ej.v!6 ͕- 6  v!% . Օ1 -Օ.- e0 .     &f  & N .*& . ) &feB @& fE@R!0 B R!_R!_ T!_ ._ $._ 2._  T!U@$   .P v     f.v C 6  %%   u. w j  J    0 `%    S REMAIN IN DE 6 6 %   Dv.   0e%6  .6  E v v ·ͅ%\ @  .;THE INFORMA IN THISUMENT IS SUBJECTO CHANGE ;WITHO NOTICE AND SHOU NOT BE CONSTRUEA ;COMMIT BY DIGITAL      .4 D&&7  F f7 f X  F "f $ &X .Z 6 EQUIPMENT CORPORATION. ;DEC ASSUMES NO RESPONSIBILITY FOR  /ww 6 &  f 6A . v  6N\&f f . & G   v  w ~   @  5wpww7-wT@5  . 76   p  -. d deA @ A @ %).   A @ 6ve@ G 7 nf e@TB HD @H $  00 %\%.>    w   `@ `.d  ` `   \. e\w r Z, 7V|w&5  P P @7ww5 wwV7 ww  .& `ߋ T `  e  5 D  : : 6 Z (U aye :Sp1:EE,1 tE  3 -    qS  d R     @ F   @(  `     f&: A.   Aa    r 5 ] :    - ~ t  ( x$$  z   7  VU v7 lE@f& @ Tw7 JH >7 E@7 ,   @ ^  6 D$   Ps    U lՋ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 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  2w p f @ 2  2 @p   < R L 7 d 7 7 X w h B V tB C T C P w 5     , 4wf&~  C`    F w  w0   wb@ X w@7 Dw7< 7: 78 m 0  A     5@e@Ӌ   JZt7 Z7 Tr0 5E < r0t 5U " E`   a * & " 5  f  be@eAw 7n  . z & : ,  (   ~@:: D 0  5CË ߋe* & E  E  U@=     U@=  7  wE :w _ e :wr ߋ '7 jW! ` EW! W!  0a W!  8w\XWP,NAwG a w6 &4   PН% P  A `0 7  &    ʋ   &     `A ` C @ 7 * n 7 " 7 "  `@    ĝ   c  ߕ` |   @ d vw W D W W -     "&&      `  W  tm     XH#   ĝ,#     n  ߕB    &   2   `+& A @  ``N   `A %  6 Bߕ me7 džߕ e  %   @  , : &7 7 7 77 AW55!  05Xm7g  S T L a   w  ES AS ONE RE THAN ;THE ASSOCIATED@5@@a 25 5 j t7w 5 ^5P  C5B  e DATA PATH N 7  7t 7 !f E+!a % &  @  aw 7~   A5@<AawFDW  & F ``w  he R    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@  *MOV BASIZ,R0 ;GET DESIRED BUFFER SIZE IN R0 JSR PC,BAINT ; GO INITIALIZE B.A. MODULE BCC CTBEGN ;IF NO ERRORS, BRAH    @0 P f@U  UQUES. TO CHANGE BCS CT4 ;IF IMPROPER RESPON$$     w@7  P7w 7 |ex N@ rSE, ASK FOR CHANGES JSR R5,QA ;RESET QA MODULE TO RIGHT MODE ;OUTPUT CRLF Bf&~&f ~~  e&  f@  ;INITIALIZE CONTROL MODULE WITH PARA. TAB Bv% n 7 h*02 7 J% B 7 <* 7wwz %  7 *lCC TPBEGN ; IF NO ERRORS, BRANCH JSR PC,PRNTER ;GO PRINT ERROR MESSAGE JMP CT0 ;AND TRY AGAIN CTMSG: .ASCIZ <15><12>/CO 7`\ *  %  7 *:ۈ `7.* *f  %  7 z707-T!Bw Z!!  7 < w 6 v.! MODULE INITIALIZATION ERROR.BASIZ = BUFFER A*BD 77 %p P%H 7 B_+   7 w %  7 * 7LLOCATION MODULE INITIALIZATION w "7 J b B %: 7 4 " 7 w  U  % 7 " 7 w -  +7 x<+j  % 7 _+~Rڀ ^7FBڹ  Xw wB- p  U d  w XN-߀ ՝  UՕUU UՕ &UN- v# wB CONTROL MODULE INITIALw w&)鈇 NO. OF CHANNELS NOT EQUAL NO. OF DATA PATHS. INITIALIZATION FINISHED! CONTINUOUS SAMPLING MODULE INIIZATION Q1: CTNOFD = Q2: CTNOFB = #`B7 ~#w RT-11 CHANNEL # HG j  `w #jb-TIALIZATION Q1: CSMODE = Q2: CSNOFC = Q3: CSRATE = NO. OF TICKS FOR DATA PATH 000 = NO. OF TICKS = Q4: CSNOFB = hj#Z"ILLEGAL RT-11 CHANNEL NUMBER RT-11 CHANNEL NUMBER OF FILE DEFINITION TO CHANGE IS DEFINE OUTPUT FILES CSNOFB FOR DATA PATH 000 = Q5: CSTYPE = Q6: CSCHGP = CSCHGP FOR DATA PATH 000 = Q7: CSDOUT = Q10: CSSOUT = CSSOUT FOR: THROUGHPUT MODULE INITIALIZATIONRw 2)7 B - : %2 7 , `)7 8 7,՝( % 7 o) FOR DATA PATH 000 = Q11: CSHOUT = CSHOUT FOR DATA PATH 000 = Q12: CSSIN = CSSIN FOR DATA PATH 000 = Q13: CSHIN = C7   7(7 ՝ % 7 ~)z| Z7 j)Z  z SHIN FOR DATA PATH 000 = Q14: CSSTOP = Q15: CSRRCT = CSRRCT HAS EXCEEDED VALUE ASSEMBLED FOR MAXRRC ROUND ROBIN TABLE EN  :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($/,   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 CHECK GETABS,#3,#RATEMS,CSRATE ;GET CLOCK ....../.B/N/F/R/..wv`7 Z7w 7 D 7  5 7 E  -  ?          7  w5    r x7  B 5 e 5@  C { C  E 7 e0f .   --  ~ 7 O FILL BPL CS7 ;IF SAME FOR ALL CHANNELS, BRANCH SETUPT #CSNOFB+2,#MNOBMS,CSNOFC,BUFNO,PTABWD ;GET TABLE OF ; BUFFER LENGTHS CS7: CHECK GETABS,#5,#TYPEMS,CSTYPE,#1 ; GET TYPE(BYTE) BEQ CS9 ;IF ALL A/D CHANNELS, BRANCH BMI CS8 ;IF ONE DIGITAL CHANNEL, BRANCH MOV #1,NOFADC ;OTHERWISE, DMA. NEED ONLY O  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"鈂