COMXINT 
COMMON
  
#     COMXINT - DATA FOR INITIALIZATION ROUTINES.                     # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXINT #
  
# 
**    COMXINT - DATA FOR INITIALIZATION ROUTINES. 
* 
*     THIS COMDECK CONTAINS DATA AND VARIABLES USED BY MORE THAN ONE
*     INITIALIZATION ROUTINE. 
# 
  
  
      DEF ZEROES     #0#;            # USED TO INITIALIZE VARIABLES # 
  
      COMMON XINTCOM; 
  
        BEGIN  # COMMON AREA #
  
        ITEM ARG$S      U;           # INTEGER *S* PARAMETER #
        ITEM DEFAULTORD U;           # ORDINAL FOR DEFAULT FAMILY # 
        ITEM NSM        U;           # NUMBER OF *SM-S* # 
        ITEM NFAM       U;           # NUMBER OF FAMILIES USING *MSS* # 
        ITEM Q          U;           # CALCULATION TUNING PARAMETER # 
        ITEM SSID       U;           # SUBSYSTEM *ID* # 
  
  
        ARRAY LINK [0:0] S(1);       # MMF LINK INFORMATION # 
          BEGIN 
          ITEM LINK$DT    C(00,00,04);  # LINK DEVICE TYPE #
          ITEM LINK$ORD   U(00,24,36);  # ORDINAL OF LINK FAMILY #
          END 
  
        ARRAY MSGFILEDATA[0:0] P(5);
          BEGIN 
          ITEM MSG$TEXT   C(00,00,40) =  ## 
            [" PFN=       , FAMILY=       , UI=      ."]; 
          ITEM MSGPFN     C(00,30,07);  # *PFN* # 
          ITEM MSGFAM     C(02,06,07);  # FAMILY #
          ITEM MSGUI      C(03,18,06);  # INDEX # 
          ITEM MSG$FZRO   U(04,00,12) = [0];  # ZERO BYTE TERMINATOR #
          END 
  
        ARRAY NAME$FAML[1:MAXFAM] P(1); 
          BEGIN  # ARRAY NAME$FAML #
          ITEM NAMEFAM    C(00,00,07);  # FAMILY NAMES USING *MSS* #
          END  # ARRAY NAME$FAML #
  
        END  # COMMON AREA #
  
      END  # COMXINT #
  
                                               CONTROL LIST;
