COMUPRB 
COMMON
                                                                     #
          CTEXT  COMUPRB - *PROBE* UTILITY BUFFER DEFINITIONS.
                                                                     #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMUPRB # 
                                                                     #
***       COMUPRB - *PROBE* UTILITY BUFFER DEFINITIONS. 
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*         *COMUPRB* DEFINES BUFFERS THAT ARE REQUIRED BY THE
*         *SYMPL/COMPASS* ROUTINES OF THE *PROBE* UTILITY.
*         THESE AREAS INCLUDE BLANK COMMON AND ANY LABELED
*         COMMON BLOCKS.
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *PROBE*
*         CONTROL STATEMENT  ARE DEFINED. 
  
          USE    /CCARG/
  
 P        DATA   0LSTATS     BINARY FILE NAME TO READ 
 L        DATA   0LOUTPUT    OUTPUT FILE NAME 
 B        DATA   0LSTATS     BINARY FILE NAME TO WRITE
 R        DATA   0           REWIND OPTION
 OP       DATA   0LP         PROCESSING OPTION
 LO       DATA   0LF         SORT OPTION
          USE 
  
*         RELATIVE WORD POSITIONING OF THE PROCESSED PARAMETERS 
*         IS ENSURED IF NO ASSEMBLY ERRORS OCCUR. 
                                                                     #
  
#P        #DEF#  P           # P$  #0#;   # *P* # 
#L        #DEF#  L           # L$  #1#;   # *L* # 
#B        #DEF#  B           # B$  #2#;   # *B* # 
#R        #DEF#  R           # R$  #3#;   # *R* # 
#OP       #DEF#  OP          # OP$ #4#;   # *OP* #
#LO       #DEF#  LO          # LO$ #5#;   # *LO* #
  
                                                                     #
**        THE FOLLOWING MICRO DEFINITIONS ARE NECESSARY TO AVOID
*         *COMPASS* ASSEMBLY ERRORS WHEN PROCESSING THE *SYMPL* 
*         PORTION OF THIS COMMON DECK.
  
  
 20       MICRO  1,,20
 30       MICRO  1,,30
 2001     MICRO  1,,2001
  
  
          COL    12 
                                                                     #
  
                                                                     #
*         THE ARRAY *ARG* IS USED  BY *SYMPL* ROUTINES TO 
*         ACCESS THE PROCESSED CONTROL CARD ARGUMENTS.  THE 
*         RELATIVE WORD POSTIONS ARE DESCRIBED ABOVE. 
                                                                     #
  
           COMMON CCARG;
             BEGIN  # ARG # 
             ARRAY ARG [0:0] S(6);
               BEGIN
               ITEM ARG$P       C(P$,00,07);    # BINARY FILE NAME #
               ITEM ARG$L       C(L$,00,07);    # OUTPUT FILE NAME #
               ITEM ARG$B       C(B$,00,07);    # BINARY FILE NAME #
               ITEM ARG$R       C(R$,00,01);    # REWIND OPTION # 
               ITEM ARG$OP      C(OP$,00,01);   # PROCESSING OPTION # 
               ITEM ARG$LO      C(LO$,00,01);   # SORT OPTION # 
               END
             END  # ARG # 
  
                                                                     #
*          ARRAY AND BUFFER DEFINITIONS.
                                                                     #
  
           DEF CBUFL      #O"2001"#; # *CIO* CIRCULAR BUFFER LENGTH   # 
           DEF IBUFL      #O"2001"#; # I/O STATISTICS BUFFER LENGTH   # 
           DEF PBUFL      #O"2001"#; # *PROBE* DATA TABLE LENGTH      # 
           DEF SBUFL      #O"30"#;   # STATISTICAL DATA BUFFER LENGTH # 
           DEF VBUFL      #O"20"#;   # VERSION BUFFER LENGTH          # 
  
           DEF VRSN       #0#;       # VERSION TABLE INDEX            # 
           DEF IOS        #1#;       # I/O STATISTICS TABLE INDEX     # 
           DEF SDA        #2#;       # STATISTICAL DATA TABLE INDEX   # 
           DEF PROBE      #3#;       # *PROBE* DATA TABLE INDEX       # 
  
  
                                                                     #
*          *SFM* CALL PARAMETER BLOCK CONTAINS THE
*          VERSION, STATISTICAL, AND *PROBE* PARAMETERS FOR 
*          *SFM* AND IS TERMINATED BY A ZERO WORD.
                                                                     #
  
           COMMON SFMBLOC;
             BEGIN # SFMBLOC #
             ARRAY SFMBLOCK [0:4] S(1); 
               BEGIN
               ITEM SFM$AVBL B(00,00,01);  # AVAILABILITY # 
               ITEM SFM$SFNC I(00,01,11);  # FUNCTION CODE #
               ITEM SFM$RDWR I(00,12,12);  # READ WITH RECALL # 
               ITEM SFM$LEN  I(00,24,12);  # BUFFER LENGTH #
               ITEM SFM$BUFF I(00,42,18);  # FWA OF BUFFER #
               END
  
             END  # SFMBLOC # 
  
                                                                      # 
*          BLANK COMMON IS USED TO DEFINE THE DATA BUFFER 
*          AREA.  IT SETS UP THE TABLE BREAK DOWNS WITHIN 
*          THE BUFFER.
                                                                      # 
  
  
           COMMON 
           BEGIN  # BLANK COMMON DEFINITIONS #
  
                                                                     #
*          THE BUFFER AREA DEFINITIONS. 
                                                                     #
  
             ARRAY CBUF [0:0] S(CBUFL);;  # *CIO* CIRCULAR BUFFER # 
             ARRAY IBUF [0:0] S(IBUFL);;  # I/O STATISTICS BUFFER # 
             ARRAY SBUF [0:0] S(SBUFL);;  # STATISTICAL BUFFER #
             ARRAY PBUF [0:PBUFL] S(1);;  # *PROBE* TABLE BUFFER #
             ARRAY VBUF [0:0] S(VBUFL);   # VERSION BUFFER #
               BEGIN
               ITEM VBUF$CLOCK C(00,00,10);    # PACKED TIME #
               ITEM VBUF$DATE  C(01,00,10);    # PACKED DATE #
               ITEM VBUF$VRSN  C(02,00,30);    # PROBE VERSION #
               END
  
                                                                     #
*          THE *FET* DEFINITIONS. 
                                                                     #
  
             ARRAY OUTFET [0:0] S(RFETL);; # OUTPUT FET#
             ARRAY BFET [0:0] S(RFETL);;   # BINARY FILE FET #
             ARRAY INFET [0:0] S(RFETL);;  # INPUT FET #
             END # BLANK COMMON  DEFINITIONS #
  
                                                                     #
*          DEFINITION OF FUNCTIONS FROM *TFTN* WHICH ARE
*          SET IN THE ARRAY AT PRE SET. 
                                                                     #
  
           COMMON TFTNB;
            BEGIN  # TFTNB# 
             ARRAY TFTN [0:MXFM] S(1);
               BEGIN
               ITEM TFTN$TEXT C(00,00,04);  # MONITOR REQUEST LABELS #
               END
             END  # TFTNB # 
  
                                                                     #
*          VERSION TABLE FOR *PROBE*. 
                                                                     #
  
           COMMON VERS; 
             BEGIN
             ITEM VERS$TIME  C(10);  # BUILD TIME OF THIS *PROBE* # 
             ITEM VERS$DATE  C(10);  # BUILD DATE OF THIS *PROBE* # 
             ITEM VERS$PVER  C(30);  # VERSION OF THIS *PROBE* #
             END
  
                             END  # COMUPRB # 
                                                                     #
          COL    30 
          ENDX                                                       #
                                               CONTROL LIST;
