1 01/24/83  compute_common_aim_ceiling_
 2 
 3 
 4 Entry points in compute_common_aim_ceiling_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: compute_common_aim_ceiling_: 01/19/83  compute_common_aim_ceiling_
 9 
10 
11 Function: computes the maximum authorization or access class which is
12 in common between two Multics systems given the definitions of their
13 AIM attributes.
14 
15 
16 Syntax:
17 declare compute_common_aim_ceiling_ entry (ptr, bit(72) aligned, ptr,
18      bit(72) aligned, fixed bin(35));
19 call compute_common_aim_ceiling_ (aim_attributes_1_ptr,
20      common_ceiling_1, aim_attributes_2_ptr, common_ceiling_2, code);
21 
22 
23 Arguments:
24 aim_attributes_1_ptr
25    is a pointer to the aim_attributes structure defining the AIM
26    attributes of the first system.  (Input) This structure is declared
27    in aim_attributes.incl.pl1.
28 common_ceiling_1
29    is set to the maximum authorization or access class in common
30    between the two systems in terms of the AIM attributes of the first
31    system.  (Output)
32 aim_attributes_2_ptr
33    is a pointer to the aim_attributes structure defining the AIM
34    attributes of the second system.  (Input)
35 
36 
37 common_ceiling_1
38    is set to the maximum authorization or access class in common
39    between the two systems in terms of the AIM attributes of the second
40    system.  (Output)
41 code
42    is a standard system status code.  (Output) It can be one of the
43    following:
44    0
45       the common access ceiling was successfully computed.
46    error_table_$unimplemented_version
47       one of the aim_attributes structures supplied by the caller was
48       of a version not supported by this procedure.
49    error_table_$ai_no_common_max
50       there is no set of AIM attributes in common between the two
51       systems.
52 
53 
54 Notes: See the description of the get_system_aim_attributes_
55 subroutine for a definition of the aim_attributes structure.
56 
57 See the Programmers' Reference Manual for a definition of common access
58 ceiling.