1 /* BEGIN INCLUDE FILE ... event_wait_list.incl.pl1 */
 2 
 3 /* ipc_$block wait list structure -- Must begin on an even word boundary.
 4 
 5    Written 9-May-79 by M. N. Davidoff.
 6 */
 7 
 8      declare event_wait_list_n_channels
 9                                     fixed binary;
10      declare event_wait_list_ptr    pointer;
11 
12      declare 1 event_wait_list      aligned based (event_wait_list_ptr),
13                2 n_channels         fixed binary,           /* number of channels in wait list */
14                2 pad                bit (36),
15                2 channel_id         (event_wait_list_n_channels refer (event_wait_list.n_channels)) fixed binary (71);
16                                                             /* event channels to wait on */
17 
18 /* END INCLUDE FILE ... event_wait_list.incl.pl1 */