COMXEXP 
COMMON
                                                                      # 
          CTEXT  COMXEXP - *SSEXEC* CONTROL STATEMENT PARAMETERS. 
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMXEXP # 
  
                                                                      # 
***       COMXEXP - ADDRESSES FOR THE PROCESSED *SSEXEC* PARAMETERS.
* 
*         *COMXEXP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSEXEC* PROCESSED PARAMETERS. 
  
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSEXEC* 
*         PARAMETERS. 
  
          USE    /XEXPCOM/
  
 Q        DATA   -1          TUNING PARAMETER 
 TM       DATA   -1          TRACE MODE PARAMETER 
 S        DATA   -1          SET INDEX PARAMETER
          USE 
  
  
*         FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN
*         THIS ORDER. 
  
                                                                      # 
#Q        #DEF#  Q+0         # Q$WORD  #0#;  # Q #
#TM       #DEF#  Q+1         # TM$WORD #1#;  # TM # 
#S        #DEF#  Q+2         # S$WORD  #2#;  # S #
  
                                                                      # 
          COL    12 
                                                                      # 
  
           DEF ARGL     #3#; # LENGTH OF ARGUMENT LIST #
  
           COMMON XEXPCOM;
  
             BEGIN  # XEXPCOM # 
  
                                                                      # 
*         ARRAY TO HOLD THE PROCESSED PARAMETERS. 
                                                                      # 
  
             ARRAY ARGUMENTS[0:0] P(ARGL);
               BEGIN  # ARRAY ARGUMENTS # 
               ITEM ARG$QC     C(Q$WORD,00,10);   # TUNING #
               ITEM ARG$T      I(TM$WORD,00,60);  # TRACE MODE #
               ITEM ARG$SC     I(S$WORD,00,60);   # INDEX # 
               END  # ARRAY ARGUMENTS # 
  
             END  # XEXPCOM # 
  
           END  # COMXEXP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
