1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4    *                                                         *
 5    *********************************************************** */
 6 /* Begin include file tasking_data.incl.pl1 */
 7 
 8 dcl  tasking_data_ptr_ ptr external init (null ());
 9 dcl  1 tasking_data aligned based (tasking_data_ptr_),
10        2 (ready_head, ready_tail) ptr init (null ()),
11        2 root_task_data like task_data,
12        2 overhead_meters like task_data.meters,
13        2 old_pu like task_data.meters,
14        2 flags,
15          3 dead_tasks bit (1) unaligned,
16        2 valid_tasks (0:4092) bit (1) unaligned init ((4093) (1)"0"b);
17 
18 %include task_data;
19 %include task_create_data;
20 
21 /* End include file tasking_data */