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 version of operator_pointers_ is for use by trace *
13 " *                 trace_operator_pointers_.alm           *
14 
15 
16 " This is the operator pointers vector used by basic and (perhaps)
17 " other translators.  The trans_op_tv_ptr field in the base of the
18 " stack will point at <operator_pointers_>|[operator_pointers].
19 " Programs will obtain a pointer to their own operator segment by
20 " the instruction sequence
21 "                   epp2      sb|op_vector,*
22 "                   epp2      2|op,*    where op specifies desired operator
23 "
24 " This segment makes use of the manner in which the current alm
25 " generates links.  This segment is probably not bindable.
26 "
27 " Last modified (date and reason)
28 "         12/74    by S. E. Barr to add probe break line
29 "         06/20/75 by S. Webber to add cobol_operators_$entry_version_1
30 "         09/20/77 by P. Krupp to extend the trace interface to cobol programs
31 "         07/26/79 by M. Weaver to turn on perprocess static
32 "
33           perprocess_static
34 "
35           include   link_vector
36           use       linkc
37           join      /link/linkc
38           link_vector trace_
39           end