-- -- FACILITY: ITT Avionics -- 390 Washington Avenue -- Nutley, NJ 07110 -- -- ABSTRACT: This package defines the format of the internal message. -- This file contains the following: package INTERFACE_DATA_ -- TYPES_INTERNAL. -- -- MODIFICATION HISTORY: -- -- DATE REASON AUTHOR -- -- -- with UATL_DATA_TYPES; use UATL_DATA_TYPES; package INTERFACE_DATA_TYPES_INTERNAL is type SOURCE_DESTINATION is new INTEGER range 0 .. 31; type INTERNAL_HEADER is record DATA_BYTE_COUNT : DATA_BYTE_COUNT_TYPE; SOURCE : SOURCE_DESTINATION; DESTINATION : SOURCE_DESTINATION; end record; for INTERNAL_HEADER use record DATA_BYTE_COUNT at WORD*0 range 0 .. 15; SOURCE at WORD*1 range 0 .. 4; DESTINATION at WORD*1 range 5 .. 9; end record; type INTERNAL_MESSAGE (DATA_BYTE_COUNT : DATA_BYTE_COUNT_TYPE := 0) is record SOURCE : SOURCE_DESTINATION; DESTINATION : SOURCE_DESTINATION; DATA : BYTE_ARRAY (1 .. DATA_BYTE_COUNT); end record; for INTERNAL_MESSAGE use record DATA_BYTE_COUNT at WORD*0 range 0 .. 15; SOURCE at WORD*1 range 0 .. 4; DESTINATION at WORD*1 range 5 .. 9; end record; type INTERNAL_MESSAGE_PTR is access INTERNAL_MESSAGE; end INTERFACE_DATA_TYPES_INTERNAL;