1 /* BEGIN INCLUDE FILE gtss_mcfc_gci.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  11/09/79 1225.7 mst Fri
 4 */
 5 get_caller_index: proc (f, cp, cx);
 6 
 7 /* Map file_entry index (f) to set pointer
 8    (cp) to appropiate caller segment and
 9    set index (cx) to corresponding caller
10    array index.
11 */
12 dcl  f                        fixed bin(24) parm;
13 dcl  cp                       ptr parm;
14 dcl  cx                       fixed bin(24) parm;
15                j = divide (f-1, hbound (caller, 1)+1, 24);
16                cp = gtss_ext_$mcfc.callers_ptr (j);
17                cx = mod (f-1, hbound (caller, 1)+1);
18                return;
19 dcl  j                        fixed bin(24);
20           end                                               /* get_caller_index */;
21 /*   END INCLUDE FILE gtss_mcfc_gci.incl.pl1 */