1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Bull Inc., 1987                *
 4 " *                                                         *
 5 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6 " *                                                         *
 7 " * Copyright (c) 1972 by Massachusetts Institute of        *
 8 " * Technology and Honeywell Information Systems, Inc.      *
 9 " *                                                         *
10 " ***********************************************************
11 
12 " This is the operator pointers vector used by basic and (perhaps)
13 " other translators.  The trans_op_tv_ptr field in the base of the
14 " stack will point at <operator_pointers_>|[operator_pointers].
15 " Programs will obtain a pointer to their own operator segment by
16 " the instruction sequence
17 "                   epp2      sb|op_vector,*
18 "                   epp2      2|op,*    where op specifies desired operator
19 "
20 " This segment makes use of the manner in which the current alm
21 " generates links.  This segment is probably not bindable.
22 "
23 " Last modified (date and reason)
24 "         12/74    by S. E. Barr to add probe break line
25 "         06/20/75 by S. Webber to add cobol_operators_$entry_version_1
26 "         09/20/77 by P. Krupp to extend the trace interface to cobol programs
27 "         07/26/79 by M. Weaver to turn on perprocess static
28 "
29           perprocess_static
30 "
31           include   link_vector
32           use       linkc
33           join      /link/linkc
34           link_vector
35           end