1 /* include file  ncp_info_order.incl.pl1 */
 2 /* Contains declarations for the structures based on the argument
 3    "order_pr" involved in some of the calls to ncp_$ncp_priv_order */
 4 
 5 /* ncp_priv_order call 33 - "get_net_survey" */
 6 
 7 dcl 1 net_surv aligned based(order_pr),                     /* output */
 8     2 ncp_ev_chan fixed bin(71),
 9     2 ncp_procid bit(36),
10     2 ncp_up fixed bin,
11     2 (htbl_size, rtbl_size, stbl_size) fixed bin,
12     2 (htbl_gent, rtbl_gent, stbl_gent) fixed bin,
13     2 (htbl_lock, rtbl_lock, stbl_lock) bit(36);
14 
15 /* ncp_priv_order call 34 - "get_host_survey" */
16 
17 dcl 1 host_surv aligned based(order_pr),
18     2 tbl_len fixed bin,                                    /* input and output */
19     2 host_tbl(1000) aligned,                               /* output */
20       3 index fixed bin,                                    /* index of this entry in the host table */
21       3 hlock bit(36),
22       3 (rlkidx, wlkidx) bit(18) unaligned,
23       3 rlinkn(32) bit(1) unaligned,
24       3 host_id bit(9);
25 
26 /* ncp_priv_order call 35 - "get_rfc_survey" */
27 
28 dcl 1 rfc_surv aligned based(order_pr),
29     2 tbl_len fixed bin,                                    /* input and output */
30     2 rfc_tbl(1000) aligned,                                /* output */
31       3 index fixed bin,                                    /* index of this entry in the rfc table */
32       3 fsocq bit(41),
33       3 linkq bit(18) unaligned,
34       3 queuen bit(18) unaligned;
35 
36 /* ncp_priv_order call 36 - "get_socket_survey" */
37 
38 dcl 1 sock_surv aligned based(order_pr),
39     2 tbl_len fixed bin,                                    /* input and output */
40     2 sock_tbl(1000) aligned,                               /* output */
41       3 index fixed bin,                                    /* index of this entry in the socket table */
42       3 lsoc bit(41),
43       3 state bit(6),
44       3 procid bit(36),
45       3 oprocid bit(36);
46 
47 /* ncp_priv_order call 37 - "get_socket_data" */
48 
49 dcl 1 sock_data aligned based (order_pr),
50     2 soct aligned,                                         /* output */
51       3 evchn fixed bin(71),                                /* event channel id of using process */
52       3 oevchn fixed bin(71),                               /* event channel id of overseer process */
53       3 lock bit(36),                                       /* lock word for this socket entry */
54       3 procid bit(36),                                     /* process id of using process */
55       3 oprocid bit(36),                                    /* process id of overseer process */
56       3 balloc fixed bin(32),                               /* "read" or "write" bit transmission allocation */
57       3 malloc fixed bin(16),
58       3 lsoc bit(41),                                       /* identifier of this (local) socket */
59       3 fsoc bit(41),                                       /* identifier of foreign socket in the connection */
60       3 queue bit(18) unaligned,                            /* RFC tbl index of block next on this queue. 0 if no queue. */
61       3 linkn bit(18) unaligned,                            /* link number assigned to this connection */
62       3 ctl_idx bit(18) unaligned,                          /* imp dim index of "read" control link to foreign NCP */
63       3 com_idx bit(18) unaligned,                          /* imp dim index of link implementing this connection */
64       3 state bit(6) unaligned,                             /* current state of this socket */
65       3 byte bit(8) unaligned,
66       3 r_w bit(1) unaligned,                               /* = 0, this is a "read" socket;
67                                                                = 1, this is a "write" socket */
68       3 int_ok bit(1) unaligned,                            /* = 0, interrupts prohibited;
69                                                                = 1, interrupts permitted */
70       3 deac_sw bit(1) unaligned,                           /* = 0; socket not to be deactivated;
71                                                                = 1, socket to be deactivated */
72     2 tbl_len fixed bin,                                    /* input and output */
73     2 rfc_tbl(1000) aligned,                                /* output */
74       3 index fixed bin,                                    /* index of this entry in the rfc table */
75       3 fsocq bit(41),
76       3 linkq bit(18) unaligned,
77       3 queuen bit(18) unaligned;
78 
79 
80 /* end of "ncp_info_order.incl.pl1" */