1 
 2 /* BEGIN INCLUDE...................imp_link_tables.................... */
 3 
 4 /* For IMP DIM */
 5 
 6 /* Following variables define the size etc. of the link tables */
 7 
 8 dcl 1 imp_data$links external aligned,
 9 
10     2 (max,
11      max_read_in_use,
12      max_write_in_use,
13      wired_link_space,
14      max_previous) fixed bin;
15 
16 
17 /* The following is to define the link table itself. */
18 
19 dcl (imp_tables$total_link_space,
20      imp_tables$last_word) external fixed bin;
21 dcl 1 imp_tables$links(1: 64) external aligned,
22     2 read bit(288) aligned,
23     2 write bit(576) aligned;                               /* Each entry is 16 words long. 576 = 16*36 */
24 
25 dcl 1 imp_tables$group_ids(1: 64) external aligned,
26     2 read char(32) aligned,
27     2 write char(32) aligned;
28 
29 /* END INCLUDE.....................imp_link_tables.................... */