3 package Bit_Packed_Array
is
5 type laser_illuminator_code_group_t
is (zero
, one
);
6 pragma Convention
(C
, laser_illuminator_code_group_t
);
8 subtype lic_array_index_t
is Interfaces
.Unsigned_8
range 0 .. 3;
10 type lic_array_t
is array (lic_array_index_t
) of laser_illuminator_code_group_t
;
11 pragma Convention
(C
, lic_array_t
);
13 type Eighty_Bytes_T
is array (1 .. 80) of Interfaces
.Unsigned_8
;
15 type Mission_Assignment_T
is record
16 Eighty_Bytes
: Eighty_Bytes_T
;
17 Laser_Illuminator_Code
: lic_array_t
;
20 for Mission_Assignment_T
use record
21 Eighty_Bytes
at 0 range 0 .. 639;
22 Laser_Illuminator_Code
at 0 range 653 .. 780;
25 type Mission_Assignment_Dbase_Rec_T
is record
26 ISF
: Mission_Assignment_T
;
29 MADR
: Mission_Assignment_Dbase_Rec_T
;
31 procedure Generate_Callforward
;