1 /* BEGIN INCLUDE FILE operator_names.incl.pl1 77-5-2 SHW */
 2 
 3 /* Modified June 83 JMAthane for full qualification of "refer" args in dcls */
 4 
 5      dcl     op_names_pt            ptr;
 6 
 7      dcl     1 operator_names       aligned based (op_names_pt),
 8                2 first              fixed bin (18),         /* offset of first operator in operator segment */
 9                2 last               fixed bin (18),         /* offset of last operator in operator segment */
10                2 first_special      fixed bin (18),         /* offset of first special operator */
11                2 last_special       fixed bin (18),         /* offset of last special operator */
12                2 number_special     fixed bin,              /* number of special operators */
13 
14                2 names              (1 refer (operator_names.first):1 refer (operator_names.last)), /* array of pointers to and lengths of names */
15                  3 namep            bit (18) unal,          /* rel pointer to ACI string for name */
16                  3 len              fixed bin (17) unal,    /* length of this operator name */
17 
18                2 special            (0 refer (operator_names.number_special)), /* array of info about special operators */
19                  3 offset           fixed bin (18),         /* offset of start of code for this operator */
20                  3 namep            bit (18) unal,          /* rel pointer to ACI string for name */
21                  3 len              fixed bin (17) unal;    /* length of this operator name */
22 
23 /* END INCLUDE FILE operator_names.incl.pl1 */