1 /* BEGIN INCLUDE FILE event_call_info.incl.pl1 */
 2 
 3 /* T. Casey, May 1978 */
 4 
 5 dcl  event_call_info_ptr ptr;
 6 
 7 dcl 1 event_call_info aligned based (event_call_info_ptr),  /* argument structure passed to event call procedure */
 8     2 channel_id fixed bin (71),                            /* event channel on which wakeup occurred */
 9     2 message fixed bin (71),                               /* 72 bits of information passed by sender of wakeup */
10     2 sender bit (36),                                      /* process id of sender */
11     2 origin,
12       3 dev_signal bit (18) unaligned,                      /* "1"b if device signal */
13       3 ring fixed bin (17) unaligned,                      /* ring from which sent */
14     2 data_ptr ptr;                                         /* ptr given to dcl_event_call_channel */
15 
16 /* END INCLUDE FILE event_call_info.incl.pl1 */