PROGRAM   ComAdrs

C       *****   Program to convert COMINT Address Specification   *****
C       *****   files into binary files for the COMINT PROM's     *****
C       *****   24-OCT-1991       L1 Trigger        MSU Physics   *****

C     *****************************************
C          DEFINE ALL VARIABLES AND ARRAYS
C     *****************************************

      IMPLICIT  NONE

      INCLUDE   'ComAdrs_Common.INC'

C     **********************************************
C          Call the routines for COMINT Address
C     **********************************************

      CALL  Announce_Startup
      CALL  Initialize_ComAdrs
      CALL  Get_Adrs_Spec_File
      CALL  Process_Data_Section
      CALL  Trailer_Section
      CALL  MBA_Binary_File_Output
      CALL   CA_Binary_File_Output
      CALL   FA_Binary_File_Output

      STOP '    Normal exit from COMINT Address Specification program.'

      END