C     *****   This is the Include file which holds   *****
C     *****   holds all symbols that are used in     *****
C     *****   more than one program module.          *****
C     *****   ComAdrs            Rev.  29-OCT-1992   *****

C     *****************************************
C          Define all Variables and Arrays
C     *****************************************


C     *****   Symbols for for the control of the ComAdrs Program   *****

      LOGICAL*1                     Full_Display
      COMMON      /Flow_Control_1st/Full_Display


C     *****  Symbols for reading the COMINT Address Specification File  *****

      CHARACTER*96    COMINT_ADRS_SPEC_FILENAME

      CHARACTER*1         ThisLine(350)
      CHARACTER*1     OrigThisLine(350)

      INTEGER*2       IOSTATUS,     ChrPt,     NumChr
      INTEGER*2                 OrigChrPt, OrigNumChr

      COMMON   /Address_Spec_File_1st/COMINT_ADRS_SPEC_FILENAME
      COMMON   /Address_Spec_File_2nd/ThisLine,OrigThisLine
      COMMON   /Address_Spec_File_3rd/IOSTATUS,ChrPt,NumChr
      COMMON   /Address_Spec_File_4th/OrigChrPt,OrigNumChr


C     *****   Symbols for the COMINT PROM binary address data  *****

      INTEGER*2                     Mother_Brd_Adrs_Array(0:8500)
      COMMON       /COMINT_Adrs_1st/Mother_Brd_Adrs_Array

      INTEGER*2                     Card_Adrs_Array(0:8500)
      COMMON       /COMINT_Adrs_2st/Card_Adrs_Array

      INTEGER*2                     Function_Adrs_Array(0:8500)
      COMMON       /COMINT_Adrs_2st/Function_Adrs_Array


C     *****  Symbols for the PROM Adresses usage once only check  *****

      LOGICAL                      Only_Once(0:8191)
      COMMON       /Check_Adrs_Use/Only_Once


C     *****  Symbols for using the alternate format  *****
C     *****  for specifying the PROM Address.  +INC  *****

      INTEGER*2                              Prev_PROM_Adrs
      LOGICAL                    Prev_Format
      COMMON       /Use_Alt_form/Prev_Format,Prev_PROM_Adrs


C     *****  Symbol for controlling the inversion  *****
C     *****  of the MSB if the Card Address PROM   *****

      LOGICAL                 Inv_CA_PROM_MSB
      COMMON       /PROM_Control/Inv_CA_PROM_MSB


C     *****  Symbol for the Start Setting Card     *****
C     *****  Address PROM Next to MSB Phrase       *****

      INTEGER*2                     Prev_Start_Set_Adrs
      LOGICAL                       Set_CA_NT_MSB_Flag
      COMMON     /CA_NT_MSB_Control/Set_CA_NT_MSB_Flag,
     &                              Prev_Start_Set_Adrs