1
2
3 dcl ev_chn fixed bin (71);
4
5 dcl ev_wait_list_ptr ptr;
6
7 dcl 1 ev_wait_list aligned,
8 2 n_chn fixed bin,
9 2 ev_chn (2) fixed bin (71);
10
11 dcl ev_info_ptr ptr;
12
13 dcl 1 ev_info aligned,
14 2 ev_chn fixed bin (71),
15 2 ev_message fixed bin (71),
16 2 sender bit (36),
17 2 origin,
18 (3 dev_signal bit (18),
19 3 ring bit (18)) unaligned,
20 2 ev_chn_index fixed bin;
21
22 dcl ev_message_ptr ptr;
23
24 dcl 1 ev_message_struc based (ev_message_ptr),
25 2 function fixed bin (35),
26 2 value fixed bin (35);
27
28 dcl hcs_$wakeup entry (bit (36), fixed bin (71), fixed bin (71), fixed bin (35));
29
30 dcl ipc_$create_ev_chn entry (fixed bin (71), fixed bin (35)),
31 ipc_$delete_ev_chn entry (fixed bin (71), fixed bin (35)),
32 ipc_$decl_ev_call_chn entry (fixed bin (71), entry, ptr, fixed bin, fixed bin (35)),
33 ipc_$decl_ev_wait_chn entry (fixed bin (71), fixed bin (35)),
34 ipc_$drain_chn entry (fixed bin (71), fixed bin (35)),
35 ipc_$cutoff entry (fixed bin (71), fixed bin (35)),
36 ipc_$reconnect entry (fixed bin (71), fixed bin (35)),
37 ipc_$mak_ev_calls entry (fixed bin (35)),
38 ipc_$unmask_ev_calls entry (fixed bin (35)),
39 ipc_$block entry (ptr, ptr, fixed bin (35));
40
41