C     *****   This is the routine which initializes   *****
C     *****   the COMINT Address Specification File   *****
C     *****   Translator Program.   Rev. 1-NOV-1992   *****


      SUBROUTINE   Initialize_ComAdrs

      IMPLICIT     NONE

      INCLUDE     'ComAdrs_Common.INC'


C  *****   Initialize the arraies which holds binary form of the  *****
C  *****    COMINT PROM Address files.                            *****

      DATA         Mother_Brd_Adrs_Array /8501*0/
      DATA               Card_Adrs_Array /8501*0/
      DATA           Function_Adrs_Array /8501*0/


C  *****  Initialize the array that is used to verify that each  *****
C  *****  PROM Address is specified only once.                   *****

      DATA           Only_Once/8192*.TRUE./


C  *****  Initialize the symbols used to verify the use of the     *****
C  *****  alternate  +INC  format for specifying the PROM Adress.  *****

      DATA           Prev_PROM_Adrs/0/
      DATA           Prev_Format/.FALSE./


C  *****  Initialize the symbol which controls the inversion of the *****
C  *****  MBS in the Card Address PROM.   False --> No Invertion    *****

      DATA           Inv_CA_PROM_MSB/.FALSE./


C  *****  Initialize the symbol which flags the first use of the    *****
C  *****  Start Setting Card Address PROM Next to MSB phrase.       *****
C  *****  False --> Start Setting Card Address Next to MSB phrase   *****
C  *****  has not yet been used.                                    *****
C  *****  Make the Previous Start Set Adrs = 0                      *****

      DATA           Set_CA_NT_MSB_Flag/.FALSE./
      DATA           Prev_Start_Set_Adrs/-1/



C  *****   Find out if thre should be a full display of operations   *****

   40 WRITE ( 6, 50 )
   50 FORMAT (                                                     //
     &   '    The COMINT Address Program can provide either a    ', /
     &   '    full display of operations and program execution   ', /
     &   '    status or else a short version of these messages.  ', //
     &   '    Enter either:  "Full"  or else  "Short".           ', /
     &   '    Do you want Full or Short display ?   [Full]  ',     $ )

      READ ( 5, 55 ) COMINT_Adrs_Spec_Filename
   55 FORMAT ( A )

      Full_Display  =  0
      IF ( COMINT_Adrs_Spec_Filename  .EQ.  ' '    )  Full_Display = 1
      IF ( COMINT_Adrs_Spec_Filename  .EQ.  'full' )  Full_Display = 1
      IF ( COMINT_Adrs_Spec_Filename  .EQ.  'Full' )  Full_Display = 1
      IF ( COMINT_Adrs_Spec_Filename  .EQ.  'FULL' )  Full_Display = 1

      RETURN

      END