Add debugging symbol table for better interpretation of traces

diff --git a/dps8/dps8_ins.c b/dps8/dps8_ins.c
index a9d3a2a..205a48a 100644 (file)
--- a/dps8/dps8_ins.c
+++ b/dps8/dps8_ins.c
@@ -1143,9 +1143,10 @@ void traceInstruction (uint flag)
     if_sim_debug (flag, &cpu_dev)
       {
 force:;
-        char * compname;
-        word18 compoffset;
- char *where = NULL;
+ char *lookup_address(int segment, int offset);
+ char *where = lookup_address(cpu.PPR.PSR, cpu.PPR.IC);
+ //        char * compname;
+ //        word18 compoffset;
  //        char * where = lookup_address (cpu.PPR.PSR, cpu.PPR.IC, & compname,
  //                                       & compoffset);
         bool isBAR = TST_I_NBAR ? false : true;
@@ -1740,6 +1741,12 @@ restart_1:
 
       {
         traceInstruction (DBG_TRACE);
+ extern int nesting;
+ if (cpu.currentInstruction.opcode10 == 0713) // call6
+  ++nesting;
+ else if (cpu.currentInstruction.opcode10 == 0610) // rtcd
+  --nesting;
+
 #ifdef DBGEVENT
         int dbgevt;
         if (n_dbgevents && (dbgevt = (dbgevent_lookup (cpu.PPR.PSR, cpu.PPR.IC))) >= 0)

diff --git a/multics_sim.c b/multics_sim.c
index 502fa57..1d3892b 100644 (file)
--- a/multics_sim.c
+++ b/multics_sim.c
@@ -22,6 +22,7 @@
 #include "stack_header.h"
 
 #define NAME_LEN 0x20
+#define DEBUG_NAME_LEN 0x100
 #define LINE_LEN 0x100
 #define PATH_LEN 0x1000
 #define RESULT_LEN 0x400 // must be multiple of 4
@@ -72,18 +73,33 @@ struct system_link {
   struct system_link *next;
   int n_words;
   int offset;
-  char name[NAME_LEN];
+  char name[NAME_LEN + 1];
 } system_link[N_SYSTEM_LINK];
 
-#define N_LOADED_SEGMENT 0x100
+#define N_DEBUG_SYMBOL 0x1000
+int n_debug_symbol;
+struct debug_symbol {
+  int offset;
+  const char *name;
+} debug_symbol[N_DEBUG_SYMBOL];
+
+struct debug_symbol debug_symbol_pl1_operators[] = {
+#include "pl1_operators_.inc"
+};
+#define N_DEBUG_SYMBOL_PL1_OPERATORS \
+  (sizeof(debug_symbol_pl1_operators) / sizeof(struct debug_symbol))
+
+#define N_KNOWN_SEGMENT 0x100
 int n_known_segment;
 struct known_segment {
   const char *name;
   int segment;
   int bitcount;
   int linkage_offset;
+  int n_debug_symbol;
+  struct debug_symbol *debug_symbol;
   struct system_link *system_link_head;
-} known_segment[N_LOADED_SEGMENT];
+} known_segment[N_KNOWN_SEGMENT];
 
 #define N_SEGMENT 0x200
 struct known_segment *known_segment_xref[N_SEGMENT];
@@ -101,6 +117,32 @@ struct stack_header *stack_header;
 
 jmp_buf exit_emulation;
 
+void get_acc_string(uint64_t *acc_string, char *buf, int buf_len) {
+  int len = (acc_string[0] >> 27) & 0777;
+  rassert(len < buf_len);
+
+  static int shifts[4] = {27, 18, 9, 0};
+  for (int i = 0, j = 1; i < len; ++i, ++j)
+    buf[i] = (char)(acc_string[j >> 2] >> shifts[j & 3]);
+  buf[len] = 0;
+}
+
+void get_string(char *buf, const uint64_t *string, int string_len) {
+  static int shifts[4] = {27, 18, 9, 0};
+  for (int i = 0; i < string_len; ++i)
+    buf[i] = (char)(string[i >> 2] >> shifts[i & 3]);
+  buf[string_len] = 0;
+}
+
+void get_string_rstrip(char *buf, const uint64_t *string, int string_len) {
+  static int shifts[4] = {27, 18, 9, 0};
+  for (int i = 0; i < string_len; ++i)
+    buf[i] = (char)(string[i >> 2] >> shifts[i & 3]);
+  while (string_len && buf[string_len - 1] == ' ')
+    --string_len;
+  buf[string_len] = 0;
+}
+
 int allocate_segment(void) {
   rassert(next_segment < N_SEGMENT);
   return next_segment++;
@@ -201,7 +243,7 @@ struct known_segment *make_known(const char *name) {
       return known_segment + i;
 
   // allocate table entries
-  rassert(n_known_segment < N_LOADED_SEGMENT);
+  rassert(n_known_segment < N_KNOWN_SEGMENT);
   struct known_segment *p = known_segment + n_known_segment++;
   p->name = strdup(name);
   rassert(p->name);
@@ -268,16 +310,61 @@ found_segment:
 
 found_bitcount:
   p->linkage_offset = 0;
+  p->n_debug_symbol = 0;
+  p->debug_symbol = NULL;
   p->system_link_head = NULL;
   return p;
 }
 
+int compare_debug_symbol(const void *p, const void *q) {
+  return 
+    ((const struct debug_symbol *)p)->offset < 
+      ((const struct debug_symbol *)q)->offset ?
+      -1 :
+      ((const struct debug_symbol *)p)->offset > 
+        ((const struct debug_symbol *)q)->offset ?
+        1 :
+        strcmp(
+          ((const struct debug_symbol *)p)->name,
+          ((const struct debug_symbol *)q)->name
+        );
+}
+
+struct debug_symbol *find_debug_symbol(struct known_segment *p, int offset) {
+  for (int i = p->n_debug_symbol; --i >= 0; ) {
+    struct debug_symbol *q = p->debug_symbol + i;
+    if (q->offset <= offset)
+      return p->debug_symbol + i;
+  }
+  return NULL;
+}
+
+int nesting;
+char *lookup_address(int segment, int offset) {
+  if (segment >= N_SEGMENT)
+    return NULL;
+  struct known_segment *p = known_segment_xref[segment];
+  if (p == NULL)
+    return NULL;
+
+  struct debug_symbol *q = find_debug_symbol(p, offset);
+  static char text[NAME_LEN * 2 + 0x20];
+  int i = nesting & 0xf;
+  memset(text, ' ', i);
+  if (q == NULL)
+    sprintf(text + i, "<%s$%06o>", p->name, offset);
+  else
+    sprintf(text + i, "<%s$%s + %06o>", p->name, q->name, offset - q->offset);
+  return text;
+}
+
 struct known_segment *link_segment(const char *name) {
   struct known_segment *p = make_known(name);
 
   if (p->linkage_offset == 0) {
-    // validate linkage header
     struct object_map *object_map = get_object_map(p);
+
+    // validate linkage header
     rassert(
       object_map->linkage_length >=
         sizeof(struct linkage_header) / sizeof(uint64_t)
@@ -339,34 +426,51 @@ struct known_segment *link_segment(const char *name) {
     lot[p->segment] = packed_pointer(linkage_segment, p->linkage_offset);
     isot[p->segment] = packed_pointer(linkage_segment, static_offset);
     stack_header->cur_lot_size = next_segment;
-  }
-  return p;
-}
 
-void get_acc_string(uint64_t *acc_string, char *buf, int buf_len) {
-  int len = (acc_string[0] >> 27) & 0777;
-  rassert(len < buf_len);
+    // create debug symbol table (optional)
+    struct definition_header *definition_header = (struct definition_header *)(
+      M[p->segment] + object_map->definition_offset
+    );
 
-  static int shifts[4] = {27, 18, 9, 0};
-  for (int i = 0, j = 1; i < len; ++i, ++j)
-    buf[i] = (char)(acc_string[j >> 2] >> shifts[j & 3]);
-  buf[len] = 0;
-}
+    int n_debug_symbol0 = n_debug_symbol;
+    for (
+      struct definition *definition = (struct definition *)(
+        (uint64_t *)definition_header + definition_header->def_list_relp
+      );
+      *(uint64_t *)definition;
+      definition = (struct definition *)(
+        (uint64_t *)definition_header + definition->forward_relp
+      )
+    )
+      if (definition->class == CLASS_TEXT) {
+        rassert(n_debug_symbol < N_DEBUG_SYMBOL);
+        struct debug_symbol *q = debug_symbol + n_debug_symbol++;
+        q->offset = object_map->text_offset + definition->thing_relp;
+
+        char name_buf[DEBUG_NAME_LEN + 1];
+        get_acc_string(
+          (uint64_t *)definition_header + definition->name_relp,
+          name_buf,
+          DEBUG_NAME_LEN
+        );
+        q->name = strdup(name_buf);
+        rassert(q->name);
+      }
 
-void get_string(char *buf, const uint64_t *string, int string_len) {
-  static int shifts[4] = {27, 18, 9, 0};
-  for (int i = 0; i < string_len; ++i)
-    buf[i] = (char)(string[i >> 2] >> shifts[i & 3]);
-  buf[string_len] = 0;
-}
+    p->n_debug_symbol = n_debug_symbol - n_debug_symbol0;
+    p->debug_symbol = debug_symbol + n_debug_symbol0;
 
-void get_string_rstrip(char *buf, const uint64_t *string, int string_len) {
-  static int shifts[4] = {27, 18, 9, 0};
-  for (int i = 0; i < string_len; ++i)
-    buf[i] = (char)(string[i >> 2] >> shifts[i & 3]);
-  while (string_len && buf[string_len - 1] == ' ')
-    --string_len;
-  buf[string_len] = 0;
+    qsort(
+      p->debug_symbol,
+      p->n_debug_symbol,
+      sizeof(struct debug_symbol),
+      compare_debug_symbol
+    );
+ //fprintf(stderr, "segname %s n_debug_symbol %d\n", p->name, p->n_debug_symbol);
+ //for (int i = 0; i < p->n_debug_symbol; ++i)
+ // fprintf(stderr, "%06o %s\n", p->debug_symbol[i].offset, p->debug_symbol[i].name);
+  }
+  return p;
 }
 
 struct its_pointer find_definition(
@@ -416,11 +520,11 @@ struct its_pointer find_definition(
       (class == -1 || definition->class == class) &&
       (!entry || definition->flags_entry)
     ) {
-      char definition_name[NAME_LEN];
+      char definition_name[NAME_LEN + 1];
       get_acc_string(
         (uint64_t *)definition_header + definition->name_relp,
         definition_name,
-        sizeof(definition_name)
+        NAME_LEN
       );
 
       if (strcmp(definition_name, name) == 0)
@@ -519,14 +623,14 @@ void snap_link(void) {
   );
 
   // process link by type
-  char offsetname[NAME_LEN];
+  char offsetname[NAME_LEN + 1];
   get_acc_string(
     (uint64_t *)definition_header + type_pair->offsetname_relp,
     offsetname,
-    sizeof(offsetname)
+    NAME_LEN
   );
 
-  char segname[NAME_LEN];
+  char segname[NAME_LEN + 1];
   static const int section_to_class[] = {
     CLASS_TEXT,
     CLASS_LINKAGE,
@@ -540,7 +644,7 @@ void snap_link(void) {
     get_acc_string(
       (uint64_t *)definition_header + type_pair->segname_relp,
       segname,
-      sizeof(segname)
+      NAME_LEN
     );
     *link = find_definition(
       link_segment(segname),
@@ -600,7 +704,7 @@ void snap_link(void) {
     exit(EXIT_FAILURE);
   }
 
-  link->address += exp_word->expression;
+  link->offset += exp_word->expression;
   link->modifier1 = virgin_link->modifier;
   fprintf(
     stderr,
@@ -613,7 +717,7 @@ void snap_link(void) {
     offsetname,
     (int)exp_word->expression,
     (int)link->segment,
-    (int)link->address
+    (int)link->offset
   );
 }
 
@@ -628,19 +732,19 @@ void emcall_make_entry(void) {
 
   rassert(arg_list->arg_count == 10);
   struct its_pointer *ref_pointer = (struct its_pointer *)(
-    M[arg_list->args[0].segment] + arg_list->args[0].address
+    M[arg_list->args[0].segment] + arg_list->args[0].offset
   );
   uint64_t *entryname = (uint64_t *)(
-    M[arg_list->args[1].segment] + arg_list->args[1].address
+    M[arg_list->args[1].segment] + arg_list->args[1].offset
   );
   uint64_t *entry_point_name = (uint64_t *)(
-    M[arg_list->args[2].segment] + arg_list->args[2].address
+    M[arg_list->args[2].segment] + arg_list->args[2].offset
   );
   struct based_entry *entry_point = (struct based_entry *)(
-    M[arg_list->args[3].segment] + arg_list->args[3].address
+    M[arg_list->args[3].segment] + arg_list->args[3].offset
   );
   uint64_t *code = (uint64_t *)(
-    M[arg_list->args[4].segment] + arg_list->args[4].address
+    M[arg_list->args[4].segment] + arg_list->args[4].offset
   );
 
   char entryname_buf[NAME_LEN + 1];
@@ -667,7 +771,7 @@ void emcall_make_entry(void) {
     entryname_buf,
     entry_point_name_buf,
     entry_point->code_ptr.segment,
-    entry_point->code_ptr.address
+    entry_point->code_ptr.offset
   );
 }
 
@@ -678,19 +782,19 @@ void emcall_make_ptr(void) {
 
   rassert(arg_list->arg_count == 10);
   //struct its_pointer *ref_pointer = (struct its_pointer *)(
-  //  M[arg_list->args[0].segment] + arg_list->args[0].address
+  //  M[arg_list->args[0].segment] + arg_list->args[0].offset
   //);
   uint64_t *entryname = (uint64_t *)(
-    M[arg_list->args[1].segment] + arg_list->args[1].address
+    M[arg_list->args[1].segment] + arg_list->args[1].offset
   );
   uint64_t *entry_point_name = (uint64_t *)(
-    M[arg_list->args[2].segment] + arg_list->args[2].address
+    M[arg_list->args[2].segment] + arg_list->args[2].offset
   );
   struct its_pointer *entry_point_pointer = (struct its_pointer *)(
-    M[arg_list->args[3].segment] + arg_list->args[3].address
+    M[arg_list->args[3].segment] + arg_list->args[3].offset
   );
   uint64_t *code = (uint64_t *)(
-    M[arg_list->args[4].segment] + arg_list->args[4].address
+    M[arg_list->args[4].segment] + arg_list->args[4].offset
   );
 
   char entryname_buf[NAME_LEN + 1];
@@ -716,7 +820,7 @@ void emcall_make_ptr(void) {
     entryname_buf,
     entry_point_name_buf,
     entry_point_pointer->segment,
-    entry_point_pointer->address
+    entry_point_pointer->offset
   );
 }
 
@@ -727,22 +831,22 @@ void emcall_make_seg(void) {
 
   rassert(arg_list->arg_count == 12);
   uint64_t *dir_name = (uint64_t *)(
-    M[arg_list->args[0].segment] + arg_list->args[0].address
+    M[arg_list->args[0].segment] + arg_list->args[0].offset
   );
   uint64_t *entryname = (uint64_t *)(
-    M[arg_list->args[1].segment] + arg_list->args[1].address
+    M[arg_list->args[1].segment] + arg_list->args[1].offset
   );
   uint64_t *ref_name = (uint64_t *)(
-    M[arg_list->args[2].segment] + arg_list->args[2].address
+    M[arg_list->args[2].segment] + arg_list->args[2].offset
   );
   uint64_t *mode = (uint64_t *)(
-    M[arg_list->args[3].segment] + arg_list->args[3].address
+    M[arg_list->args[3].segment] + arg_list->args[3].offset
   );
   struct its_pointer *seg_ptr = (struct its_pointer *)(
-    M[arg_list->args[4].segment] + arg_list->args[4].address
+    M[arg_list->args[4].segment] + arg_list->args[4].offset
   );
   uint64_t *code = (uint64_t *)(
-    M[arg_list->args[5].segment] + arg_list->args[5].address
+    M[arg_list->args[5].segment] + arg_list->args[5].offset
   );
 
   char dir_name_buf[NAME_LEN + 1];
@@ -766,7 +870,7 @@ void emcall_make_seg(void) {
   *code = 0;
 
   // allocate table entries
-  rassert(n_known_segment < N_LOADED_SEGMENT);
+  rassert(n_known_segment < N_KNOWN_SEGMENT);
   p = known_segment + n_known_segment++;
   p->name = strdup(ref_name_buf);
   rassert(p->name);
@@ -790,7 +894,7 @@ already_known:
     entryname_buf,
     ref_name_buf,
     seg_ptr->segment,
-    seg_ptr->address
+    seg_ptr->offset
   );
 }
 void emcall_proc_info(void) {
@@ -824,7 +928,7 @@ int main(int argc, char **argv) {
   // initialize CPU
   sim_deb = stderr;
   cpu_dev.dctrl =
-    //DBG_TRACE |
+    DBG_TRACE |
     //DBG_MSG |
     //DBG_REGDUMPAQI |
     //DBG_REGDUMPIDX |
@@ -914,6 +1018,7 @@ int main(int argc, char **argv) {
     -1,
     false
   );
+
   struct known_segment *p = link_segment("pl1_operators_");
   struct its_pointer operator_table_pointer = find_definition(
     p,
@@ -953,6 +1058,30 @@ int main(int argc, char **argv) {
     false
   );
 
+  // optional: extra debugging symbols
+  int begin_pl1_operators_offset = find_definition(
+    p,
+    "begin_pl1_operators",
+    -1,
+    false
+  ).offset;
+  rassert(n_debug_symbol + N_DEBUG_SYMBOL_PL1_OPERATORS <= N_DEBUG_SYMBOL);
+  memcpy(
+    debug_symbol + n_debug_symbol,
+    debug_symbol_pl1_operators,
+    sizeof(debug_symbol_pl1_operators)
+  );
+  for (int i = 0; i < N_DEBUG_SYMBOL_PL1_OPERATORS; ++i)
+    debug_symbol[n_debug_symbol + i].offset += begin_pl1_operators_offset;
+  n_debug_symbol += N_DEBUG_SYMBOL_PL1_OPERATORS;
+  p->n_debug_symbol += N_DEBUG_SYMBOL_PL1_OPERATORS;
+  qsort(
+    p->debug_symbol,
+    p->n_debug_symbol,
+    sizeof(struct debug_symbol),
+    compare_debug_symbol
+  );
+
   // create first stack frame
   int stack_frame_offset = allocate_stack(
     sizeof(struct stack_frame) / sizeof(uint64_t),
@@ -1063,7 +1192,7 @@ int main(int argc, char **argv) {
 
   cpu.PR[0].RNR = 3;
   cpu.PR[0].SNR = operator_table_pointer.segment;
-  cpu.PR[0].WORDNO = operator_table_pointer.address;
+  cpu.PR[0].WORDNO = operator_table_pointer.offset;
 
   struct its_pointer define_area_pointer = find_definition(
     link_segment("bound_library_1_"),
@@ -1073,7 +1202,7 @@ int main(int argc, char **argv) {
   );
   cpu.PR[2].RNR = 3;
   cpu.PR[2].SNR = define_area_pointer.segment;
-  cpu.PR[2].WORDNO = define_area_pointer.address;
+  cpu.PR[2].WORDNO = define_area_pointer.offset;
 
   cpu.PR[6].RNR = 3;
   cpu.PR[6].SNR = stack_segment;
@@ -1114,7 +1243,7 @@ int main(int argc, char **argv) {
 
   cpu.PR[0].RNR = 3;
   cpu.PR[0].SNR = operator_table_pointer.segment;
-  cpu.PR[0].WORDNO = operator_table_pointer.address;
+  cpu.PR[0].WORDNO = operator_table_pointer.offset;
 
   struct its_pointer init_standard_iocbs_pointer = find_definition(
     link_segment("iox_"),
@@ -1124,7 +1253,7 @@ int main(int argc, char **argv) {
   );
   cpu.PR[2].RNR = 3;
   cpu.PR[2].SNR = init_standard_iocbs_pointer.segment;
-  cpu.PR[2].WORDNO = init_standard_iocbs_pointer.address;
+  cpu.PR[2].WORDNO = init_standard_iocbs_pointer.offset;
 
   cpu.PR[6].RNR = 3;
   cpu.PR[6].SNR = stack_segment;
@@ -1210,7 +1339,7 @@ int main(int argc, char **argv) {
 
   cpu.PR[0].RNR = 3;
   cpu.PR[0].SNR = operator_table_pointer.segment;
-  cpu.PR[0].WORDNO = operator_table_pointer.address;
+  cpu.PR[0].WORDNO = operator_table_pointer.offset;
 
   struct its_pointer entry_pointer = find_definition(
     link_segment(entry_segname),
@@ -1220,7 +1349,7 @@ int main(int argc, char **argv) {
   );
   cpu.PR[2].RNR = 3;
   cpu.PR[2].SNR = entry_pointer.segment;
-  cpu.PR[2].WORDNO = entry_pointer.address;
+  cpu.PR[2].WORDNO = entry_pointer.offset;
 
   cpu.PR[6].RNR = 3;
   cpu.PR[6].SNR = stack_segment;

diff --git a/pl1/alloc_.alm b/pl1/alloc_.alm
new file mode 100644 (file)
index 0000000..5cdaa7f
--- /dev/null
+++ b/pl1/alloc_.alm
@@ -0,0 +1,1162 @@
+" ***********************************************************
+" *                                                         *
+" * Copyright, (C) Honeywell Bull Inc., 1987                *
+" *                                                         *
+" * Copyright, (C) Honeywell Information Systems Inc., 1982 *
+" *                                                         *
+" * Copyright (c) 1972 by Massachusetts Institute of        *
+" * Technology and Honeywell Information Systems, Inc.      *
+" *                                                         *
+" ***********************************************************
+
+"
+"      alloc_, freen_, area_
+"
+"      This module implements the Multics standard area programs.
+"
+"      Initial coding October 1975 by S Webber.
+"      Modified 3 June 1976 by R Barnes for use with pl1_operators_
+"              and to properly handle area condition.
+"      Modified 16 August 1976 by R Barnes to fix more bugs and
+"              implement extendable no_free areas
+"      Modified September 1976 by M. Weaver to fix redef entrypoint
+"      Modified 2 November 1976 by M. Weaver to fix zero_on_free bug
+"      Modified 16 November 1976 by R. Barnes to fix bug in extensible areas
+"      Modified 30 November 1976 by M. Asherman to fix bug causing excessive zeroing
+"              on free, which may cause lockup fault
+"      Modified 6 January 1977 to fix area retry for subr call
+"      Modified 3/14/77 (Asherman) to prevent loop creating temp segs on large allocations
+"      Modified 31 May 1977 by RAB to fix 1628
+"      Modified 12 July 1977 by RAB to fix a bug in which "lcx3 bp|area.next_virgin"
+"              got fixedoverflow
+"      Modified 26 July 1977 by RAB to have alloc_ subr entry init sp|tbp
+"      Modified 9 August 1977 by RAB to not allow allocations of greater than 2**18 words
+"      Modified 10 August 1977 by RAB to change size of largest allocation by 2 words
+"      Modified 13 September 1977 by RAB to fix bug in 9 Aug 1977 change which erroneously
+"              limited allocations to 2**17 words
+"      Modified 14 September 1977 by RAB to fix another fixedoverflow bug in freen_1
+"      Modified 771018 by PG to add optimization to area_assign_ and fix bugs in it.
+"      Modified 6 September 1978 by RAB to have no_free_alloc do a push if entered by
+"              external call.  This is necessary so that area can be properly
+"              signalled and get_next_area_ptr_ can be properly called.
+"      Modified 800109 by PG to run MLR's in area_assign_ uninhibited (MCR 4292).
+"      Modified September 1981 by J. Bongiovanni for IPS protection
+"
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+"
+"      The following entries are included:
+"
+"      p = alloc_ (size, areap);
+"      p = alloc_$storage_ (size, areap);
+"      call freen_ (p);
+"      call area_ (size, areap);
+"      call area_$no_freeing (size, areap, extend);
+"      call area_$redef (size, areap);
+"      call area_assign_ (new_areap, old_areap);
+"      call area_$extend (areap, flags);
+"
+"      The following segdef's are included for the use of
+"      pl1_operators_:
+"
+"      op_alloc_
+"      op_storage_
+"      op_freen_
+"      op_empty_
+"
+" " "  " " " " " " " " " " " " " " " " " " " " " "
+"
+"      NOTE    NOTE    NOTE    NOTE    NOTE
+"
+"
+"      This routine is used by pl1_operators_ and MUST be bound in with
+"      pl1_operators_. It makes references to code in pl1_operators_
+"      without establishing its linkage pointer and vice versa.
+"
+"      NOTE    NOTE    NOTE    NOTE    NOTE
+"
+"      This routine assumes index register 6 (x6) is not changed by the
+"      standard "push" operator. This is because we must remember a
+"      value set before the push and used after the push and there
+"      is no convenient place to save it.
+"
+"      NOTE    NOTE    NOTE    NOTE    NOTE
+"
+"      This routine protects itself from asynchronous reinvocations within
+"      the same process (IPS signals which interrupt it, and which call
+"      routines while allocate to the area in allocation at the
+"      interruption).  It does this by maintaining a counter
+"      (area.allocation_p_clock), which is incremented by 1 in routines
+"      which could conflict with allocation if called asynchronously (other
+"      allocations and frees).  After finding a suitable free block, the
+"      saved value is checked in inhibited code against the current value in
+"      the area header.  If different, allocation is retried.  If the same,
+"      the free block is allocated, unthreaded, etc.  in inhibited code.
+"
+"      This routine is NOT protected against multiple invocations
+"      on different CPUs against the same area. If this is possible
+"      for a given area, it is the responsibility of the caller
+"      to make allocation a critical section.
+"\f
+"
+"      Strategy and conventions.
+"
+"      The following register assignments are used within this module:
+"
+"      x0      used to indicate whether or not called as an
+"              operator from a PL/I program. If x0 = 0 then it was called
+"              explicitly as an external entry. If x0 is nonzero, it is
+"              the operator return offset used by standard pl1_operators_.
+"      x1      used as a temporary at various times.
+"      x2      always points to the block being allocated or freed.
+"      x3      points to the block after the one pointed to by x2. Also used
+"              as temporary in certain places.
+"      x4      Used as a pointer to the block to be unthreaded by the
+"              unthread subroutine. Also used as a temporary.
+"      x5      Used to point to the second block after the one pointed to by x2.
+"              Also used as a temporary.
+"      x6      Used to indicate whether "area" or "storage" should be signalled.
+"      x7      Used as temporary.
+"
+"      ap      points to argument list. Not changed.
+"      ab      used to hold the return location for the freen_1 subroutine.
+"      bp      points at base of area header during execution. At the interface
+"              level, bp points to the block being freed and is returned as
+"              a pointer to the allocated block (operators interface only).
+"      bb      used to hold the return location for the unthread
+"              subroutine.
+"      lb      points at words containing ptr to block being freed
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+"\f
+"
+"      Format of a block header:
+"
+"
+"      |                               |
+"      |                               |
+"      _\b|________________________________________\b|  /\b_______  pointed to by x2
+"      |               |               |  \
+"      |  PREV SIZE    |  CURRENT SIZE |
+"      _\b|____________________\b|____________________\b|
+"      |       | |     |               |
+"      |   MBZ |B| Q_NO        |   HEADER PTR  |
+"      _\b|__________\b|__\b|________\b|____________________\b|  /\b_______  allocated storage starts here
+"      |               |               |  \
+"      |  FORWARD POINTER      | BACKWARD POINTER      |
+"      _\b|____________________\b|____________________\b|
+"      |                               |
+"      |                               |
+"
+"
+"      The FORWARD and BACKWARD pointers are only filled in and meaningful
+"      if the block is free. If the block is not free, the storage for these
+"      pointers is the first word available for use by the caller.
+"      The flag "B" is the busy bit for the _\bp_\br_\be_\bv_\bi_\bo_\bu_\bs block.
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+"\f
+"      The following template is used to define area offsets as well as for intialization of a new area.
+
+       include area_structures
+       include stack_frame
+       include stack_header
+
+"
+"      The following must be the same as used by pl1_operators_.
+"
+       equ     tbp,38
+       equ     buddy_area.size,2
+       equ     buddy_area.inited,3
+
+       entry   alloc_,storage_,freen_,area_,area_assign_,no_freeing,extend,redef
+       entry   old_alloc_,old_freen_,old_area_
+       segdef  op_alloc_,op_storage_,op_freen_,op_empty_
+
+"
+"      The following EQU's define stack variables used by this program. Since
+"      the program is called as an operator as well as externally,
+"      stack variables not used by pl1_operators_ at the time of the
+"      invocation must be used. The regions chosen are the words from 8 to 15,
+"      and 56 to 63.
+"
+"
+       equ     lsize,8
+       equ     rsize,9
+       equ     blocksize,10
+       equ     temp,11
+       equ     save_x2,12      UPPER
+       equ     save_x6,12      LOWER
+       equ     save_x0,12      LOWER
+       equ     max_size,13
+       equ     save_bp,14
+       equ     free_count,15
+       equ     dtemp1,44               used only for buddy_alloc_op
+       equ     dtemp2,46               ..
+       equ     arglist,56
+       equ     saved_p_clock,56        shared with arglist
+       equ     ret_bp,62
+       equ     min_block_size,8        NOTE. this must be at least 8 because
+                               "area.freep has lbound of 4.
+       equ     max_version,1   maximum expected version number
+       equ     max_method,1    maximum expected allocation method
+
+
+"\f
+"
+"      alloc_
+"      storage_
+"      op_alloc_
+"      op_storage_
+"
+"      These entries allocate a block of the specified size in the specified
+"      area. If there is not enough room in the area "area" is signalled
+"      unless the area is extensible in which case a new component is found
+"      and the block allocated therein.
+"
+"      The storage_ entries signal "storage" instead of "area" but are
+"      otherwise identical.
+"
+"      The alloc_ (and storage_) entry is called as follows:
+"
+"      blockp = alloc_ (size, areap)
+"
+"      The operator op_alloc_ (and op_storage_) is called as follows:
+"
+"      retry:
+"              ldq     size
+"              eppbp   area_header
+"              tsx0    pr0|allocate_op
+"              tra     retry
+"
+"      a pointer to the allocated block is returned in pr2.
+"
+"          ________________________________________________
+"
+"      The size of the block allocated is increased by 2 to account
+"      for the block header. A fill word may also be allocated in order
+"      to insure that all blocks begin on even word boundaries.
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+op_storage_:
+       eax6    1               indicates we signal "storage" if need arises
+       tra     *+2
+op_alloc_:
+       eax6    0               indicates we signal "area" if need arises
+       eax0    1,0             we want to return one word later
+       lda     bp|area.version check for buddy system areas
+       tze     buddy_alloc_op  it is buddy system, perform external call
+       tmi     signal_area_3   "bad_area_format"
+       cmpa    max_version,dl  check for expected version
+       tpnz    signal_area_3   "bad_area_format"
+       lda     bp|area.allocation_method
+       tmi     signal_area_3   "bad_area_format"
+       tze     standard_alloc_op       standard allocation method wanted
+       cmpa    max_method,dl   check for expected allocation method
+       tpnz    signal_area_3   "bad_area_format"
+       tra     no_free_alloc_op
+
+storage_:      eax6    1               indicates we signal "storage" if need arises
+       tra     *+2
+old_alloc_:
+alloc_:        eax6    0               indicates we signal "area" if need arises
+       eppbp   ap|4,*          get pointer to area header
+       eppbp   bp|0,*          ..
+       lda     bp|area.version check for old version
+       tze     buddy_alloc     old version, transfer directly
+       tmi     signal_area_p3  bad area format, signal "bad_area_format"
+       cmpa    max_version,dl  see if expected version number
+       tpnz    signal_area_p3  not expected, signal "bad_area_format"
+       lda     bp|area.allocation_method dispatch on allocation method
+       tmi     signal_area_p3  "bad_area_format"
+       tze     standard_alloc  standard allocation method needed
+       cmpa    max_method,dl   check for expected allocation method
+       tpnz    signal_area_p3  "bad_area_format"
+
+no_free_alloc:
+       push    80              get stack frame
+       lda     stack_frame.support_bit,dl
+       orsa    sp|stack_frame.flag_word
+       epbpbp  *               give sp|tbp a non-faulting value
+       spribp  sp|tbp          ..
+       eppbp   ap|4,*          get area header pointer
+       eppbp   bp|0,*          ..
+retry_no_free_alloc_after_area:
+       eax0    0               indicates we are not an operator ref
+       ldq     ap|2,*          fetch size of block to allocate
+
+no_free_alloc_op:
+       eax1    1,ql            force even word alignment
+       anx1    -2,du           ..
+       lda     bp|area.next_virgin     get pointer to new block
+       adlx1   bp|area.next_virgin     calculate what will be next next_virgin
+       trc     no_room_no_free
+       cmpx1   bp|area.last_usable     see if overflows
+       trc     no_room_no_free yes, overflows. Go handle it.
+       stx1    bp|area.next_virgin update next_virgin pointer
+       eppbp   bp|no_free_area.current_component,*au   generate return pointer
+       cmpx0   0,du            see whether called as operator
+       tnz     sp|tbp,*0               was operator, just return
+       spribp  ap|6,*          external call. return blockp
+       return
+
+buddy_alloc:
+       xec     get_ptr,6               get pointer to entry to forward call to
+       callsp  bp|0            transfer forward...
+
+get_ptr:       eppbp   <buddy_alloc_>|[buddy_alloc_]
+       eppbp   <buddy_alloc_>|[buddy_storage_]
+
+buddy_alloc_op:
+"
+"      We must make an external call to buddy_alloc_$whatever.
+"
+       spribp  sp|dtemp1               save pointer to area
+       sreg    sp|8            save registers
+       epbpsb  sp|0            get pointer to stack base so we can get lp
+       epaq    *               get segno of this program
+       lprplp  sb|stack_header.lot_ptr,*au get lp
+       eppbp   sp|13           get pointer to block size (saved in q with regs)
+       spribp  sp|arglist+2    save in argument list
+       eppbp   sp|dtemp1               get pointer to area pointer
+       spribp  sp|arglist+4    save in argument list
+       eppbp   sp|dtemp2               we want  buddy_alloc_ to store blockp here
+       spribp  sp|arglist+6
+       fld     3*2048,dl               generate arg list header
+       staq    sp|arglist      ..
+       xec     get_ptr,6               get pointer to routine to call
+       eppap   sp|arglist      get pointer to argument list
+       stcd    sp|stack_frame.return_ptr       standard call...
+       callsp  bp|0            ..
+       lreg    sp|8            restore registers
+       eppbp   sp|tbp,*                must restore return pointer for pl1 frame
+       spribp  sp|stack_frame.return_ptr       ..
+       eppbp   sp|dtemp2,*     get blockp
+       tra     sp|tbp,*0               return to object program
+" \f
+standard_alloc:
+       push    80              get stack frame large enough
+       lda     stack_frame.support_bit,dl
+       orsa    sp|stack_frame.flag_word
+       epbpbp  *               give sp|tbp a non-faulting value
+       spribp  sp|tbp          ..
+       eppbp   ap|4,*          get area header pointer
+       eppbp   bp|0,*          ..
+retry_alloc_after_area:
+       ldq     ap|2,*          get size of block to allocate
+       tpnz    *+2             positive and nonzero is OK
+       ldq     min_block_size,dl       if negative or zero use min size
+       eax0    0               indicates not operator ref
+standard_alloc_op:
+       adlq    alloc_blkhdrsz+1,dl             1 for rounding
+       canq    =o777777,du     is the requested block too large to be ever allocated?
+       tnz     signal_area     yes, then give up.
+       anq     -2,dl           complete the rounding function
+       qls     18              left justify for compares
+       cmpq    min_block_size,du       see if requested block is too small
+       trc     *+2             large enough, use input value
+       ldq     min_block_size,du       too small, use minimum value from header
+       stq     sp|lsize                save in left justified form
+       qrl     18              now right justify
+       stq     sp|rsize                and save in right justified form
+
+"      Increment and save a counter identifying this allocation
+"      instance (uniquely over small intervals of time)
+
+retry_alloc:
+       lda     bp|area.allocation_p_clock      allocation instance
+       adla    1,dl            this instance (overflows to 0)
+       sta     bp|area.allocation_p_clock
+       sta     sp|saved_p_clock
+
+"
+"      Now search for a large enough block on the free list.
+"      First find the appropriate stratum number and save it.
+"
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+
+       fld     sp|rsize                get desired size
+       lde     =26b25,du               convert to correct floating pt. value
+       fad     =0.0e0,du               normalize to get correct exponent
+       ste     sp|temp         get log2 (size)
+       ldq     sp|temp         ..
+       qrl     28-18           leave in q-upper
+       cmpq    16,du           clip value
+       tmoz    stratum_loop    if too high
+       ldq     16,du
+stratum_loop:
+       ldx2    bp|area.freep-3,qu      see if anything in free list
+       tze     next_stratum    nothing on this free list, try next
+       lxl3    bp|area.freep-3,qu      get max size for this stratum
+       tze     try             if the field is zero, we don't know max
+       cmpx3   sp|lsize                compare against size we want
+       tnc     next_stratum    not a large enough block, goto next stratum
+try:   stx2    sp|temp         save pointer to head of free list
+       ldx1    40000,du                loop check...only allow 40000 steps
+       stz     sp|max_size     initialize cell used in calculating max size
+"
+"      Before using the fields in any block, we will check for an IPS
+"      race (asynchronous invocation).  The reason for this is that
+"      an asynchronous invocation could have invalidated the block
+"      we are about to examine.  If this happen, we will retry from
+"      the beginning.
+
+       lda     sp|saved_p_clock        to check for IPS race
+test_size:
+       cmpa    bp|area.allocation_p_clock      check for IPS race
+       tnz     retry_alloc     one has occurred--retry
+       lxl3    bp|block.cur_size,2     get size of this free block from header
+       cmpx3   sp|lsize                see if large enough
+       trc     large_enough    yes...
+       cmpx3   sp|max_size     update max size value
+       tnc     *+2             ..
+       stx3    sp|max_size     ..
+       ldx2    bp|block.fp,2   chain to next free block
+       cmpx2   sp|temp         see if we're back to the beginning
+       tze     next_stratum_1  yes, try the next stratum
+       eax1    -1,1            count steps
+       tpl     test_size               loop back if not too many steps
+       tra     signal_area_3   signal "bad_area_format"
+
+next_stratum_1:
+       ldx1    sp|max_size     reset max size for this stratum list
+       sxl1    bp|area.freep-3,qu      ..
+next_stratum:
+       eaq     1,qu            skip to next stratum
+       cmpq    17,du           see if we've done them all
+       tnc     stratum_loop    no, keep searching
+       tra     use_virgin      all used up, take from virgin territory
+
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+large_enough:
+
+"      Check for race with asynchronous invocation (IPS signal)
+"      Race exists if saved allocation instance doesn't match
+"      the one in the header.
+
+       lda     sp|saved_p_clock        saved allocation instance
+       cmpa    bp|area.allocation_p_clock      lose race?
+       tnz     retry_alloc             yes--retry allocation
+
+       lca     1,dl            update free count in header
+       asa     bp|area.n_free  ..
+       eax4    0,2             needed by unthread routine
+       tspbb   unthread                remove block from free list
+       tra     *+2             don't save free pointer if nothing in list
+       stx7    bp|area.freep-3,qu      implement roving pointer
+free_merge:
+       stz     sp|temp         save size of the block
+       stx3    sp|temp         ..
+       eax4    sp|temp,*2      x4 -> next block after free block
+       sblx3   sp|lsize                get left over size
+       cmpx3   min_block_size,du       see if left over will be too small
+       tmoz    correct_size    the block is the right size, take it
+       stx3    bp|block.prev_size,4 save size of left over free block
+"
+"      Make a header for the left over block. Also update current header.
+"
+       ldx5    sp|lsize                get size of current block
+       sxl5    bp|block.cur_size,2     save in current header
+       eax5    sp|lsize,*2     get pointer to left over region
+       lda     bp|block.header,2       calculate header ptr for new block
+       ana     -1,dl           ..
+       sbla    sp|rsize                leaves size of left over region
+       ora     block.prev_busy,du      turn on busy bit for preceding block
+       sta     bp|block.header,5       assumes busy bit in same word with header ptr
+       sxl3    bp|block.cur_size,5     save size of left over block
+       ldx3    sp|lsize                get size of newly allocated block
+       stx3    bp|block.prev_size,5 save in new header
+"
+"      Now make a call to the freen_1 subroutine to free up the left over
+"      block. We must save bp and x2 which are used by that routine.
+"
+       sprpbp  sp|save_bp      save what gets wiped by freen_1
+       stx2    sp|save_x2
+       eax2    0,5             make x2 -> block to be freed
+       tspab   freen_1         free it up
+       lprpbp  sp|save_bp
+       ldx2    sp|save_x2
+       tra     return_ptr
+
+correct_size:
+       lda     block.prev_busy,du      turn on busy bit for this block
+       orsa    bp|block.prev_busy_word,4       ..
+       tra     return_ptr
+
+use_virgin:
+       lda     bp|area.last_usable     get size of virgin storage remaining
+       sbla    bp|area.next_virgin     ..
+       cmpa    sp|lsize                see if requested size is too large
+       tnc     no_room         yes, overflow condition
+       ldx2    bp|area.next_virgin     get index to last word used
+       ldx3    bp|area.last_size       generate header for new block
+       stx3    bp|block.prev_size,2 ..
+       adlx3   bp|area.last_block      update pointer to last allocated block
+       stx3    bp|area.last_block      ..
+       ldx3    bp|area.next_virgin     (we cannot complement 400000(8) in an xreg)
+       cmpx3   =o400000,du
+       tze     2,ic
+       lcx3    bp|area.next_virgin      ..
+       sxl3    bp|block.header,2        ..
+       ldx3    block.prev_busy,du      turn busy bit on for previous block
+       stx3    bp|block.prev_busy_word,2 ..
+       lxl3    sp|rsize                now update area header
+       stx3    bp|area.last_size       ..
+       sxl3    bp|block.cur_size,2
+       adlx3   bp|area.next_virgin     update next available pointer
+       stx3    bp|area.next_virgin     ..
+
+return_ptr:
+       lda     1,du
+       asa     bp|area.n_allocated
+       stz     bp|2,2  always zero this word in case the area is being
+                       "zerod on free to get zero blocks
+       lda     bp|area.flags   now see if we should zero the block
+       cana    area.zero_on_alloc,du   ..
+       tze     dont_zero               no, just return pointer
+       eppbb   bp|3,2          get pointer to first word to zero
+       lda     sp|rsize                get number of words to clear
+       sbla    3,dl            don't zero block header
+       als     2               multiply by 4 for MLR
+
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+       mlr     (),(pr,rl),fill(0)
+       desc9a  0,0
+       desc9a  bb|0,al
+dont_zero:
+       eppbp   bp|2,2          get actual pointer to block
+       cmpx0   0,du            see if operator ref
+       tnz     sp|tbp,*0               yes, return immediately
+       spribp  ap|6,*          return it to caller
+       return
+"
+"      Come here when there is no room in the current area component
+"      for the requested allocation. Check to see if the area is
+"      extensible, and, if so, call to get a pointer to the next
+"      component of the area.
+"
+no_room:
+       lda     bp|area.flags   get flags word from header
+       cana    area.extend,du  see if the area is extensible
+       tze     signal_area     no, we must signal "area"
+       ldq     sp|rsize                see if allocation is impossibly large (rsize includes header size)
+       cmpq    262144-1024-area_size-extend_block_size-alloc_blkhdrsz+1,dl  includes extend block and allocated block header overhead
+       trc     signal_area     block too large even for empty area
+"
+"      The area is extensible. Get a pointer to the next component.
+"
+       sxl0    sp|save_x0
+       epbpsb  sp|0            generate linkage pointer
+       epaq    *               ..
+       lprplp  sb|stack_header.lot_ptr,*au
+       spribp  sp|save_bp              prepare arglist
+       lda     4,du                    ..
+       ldq     0,du
+       staq    sp|arglist
+       eppbp   sp|save_bp      generate argument list
+       spribp  sp|arglist+2
+       eppbp   sp|ret_bp
+       spribp  sp|arglist+4
+       eppap   sp|arglist      ..
+       stcd    sp|stack_frame.return_ptr
+       callsp  <get_next_area_ptr_>|[get_next_area_ptr_]
+
+       lxl0    sp|save_x0
+       eppbp   sp|tbp,*                must restore pl1 frame's return pointer
+       spribp  sp|stack_frame.return_ptr
+       eppbp   sp|ret_bp,*             get pointer to next component
+       cmpx0   0,du            don't load ap if operator
+       tnz     retry_alloc
+       eppap   sp|stack_frame.arg_ptr,*        must restore argument list pointer
+       tra     retry_alloc
+
+no_room_no_free:
+       lda     bp|area.flags   get flags word from header
+       cana    area.extend,du  see if the area  is extendable
+       tze     signal_area     no, we must signal "area"
+       cmpq    262144-1024-area_size-extend_block_size+1,dl  is size too big for empty area?
+       trc     signal_area     yes--abort
+"
+"      The no_free area area is extendable, get a pointer to the next component
+"
+       sreg    sp|8
+       epbpsb  sp|0            generate linkage ptr
+       epaq    *
+       lprplp  sb|stack_header.lot_ptr,*au
+       eppbp   bp|no_free_area.current_component generate arg list
+       spribp  sp|arglist+2
+       eppbp   sp|ret_bp
+       spribp  sp|arglist+4
+       fld     2*2048,dl
+       staq    sp|arglist
+       eppap   sp|arglist
+       stcd    sp|stack_frame.return_ptr
+       callsp  <get_next_area_ptr_>|[get_next_area_ptr_]
+
+       lreg    sp|8
+       eppbp   sp|tbp,*                must restore pl1 frame stuff
+       spribp  sp|stack_frame.return_ptr
+       cmpx0   0,du            don't load ap if operator
+       tnz     2,ic
+       eppap   sp|stack_frame.arg_ptr,*
+"
+"      Hook up new component to first component
+"
+       epplp   sp|ret_bp,*             get ptr to new component
+       lda     lp|area.extend_info
+       lprpbp  lp|extend_block.first_area,au   get ptr to first component
+       sprilp  bp|no_free_area.current_component
+       lda     lp|area.last_usable     refresh area info
+       sta     bp|area.last_usable     ..
+       lda     lp|area.next_virgin     ..
+       sta     bp|area.next_virgin     ..
+       tra     no_free_alloc_op        and try again
+
+" \f
+"
+"      area_
+"      op_empty_
+"
+"      These routines initialize a given area in the specified way.
+"      The various calling sequences are:
+"
+"      call area_ (size, areap)
+"      call area_$no_freeing (size, areap, extend)
+"      call area_$extend (size, areap)
+"      call area_$redef (size, areap);
+"
+"      The op_empty_ entry is called after loading the bp with a
+"      pointer to the area and the q-reg with the size.
+"
+"              ldq     size
+"              eppbp   area_header
+"              tsx0    pr0|empty_operator
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+old_area_:
+area_: eax1    0               describes type of area being initialized
+areajoin:      eax0    0               indicates not an operator call
+       eppbp   ap|4,*          get a pointer to what will be the initialized header
+       eppbp   bp|0,*          ..
+       ldq     ap|2,*          get size of the area
+       tmoz    signal_area_p1  bad value
+op_join:       qls     18              left justify
+
+       eppbb   <template_area_header>|[template_area_header]
+       mlr     (pr),(pr)
+       desc9a  bb|0,area_size*4
+       desc9a  bp|0,area_size*4
+
+       stq     bp|area.last_usable     fill in variable items
+       tra     *+1,1*          dispatch on initialization type
+       arg     standard_area
+       arg     no_free_area
+       arg     extend_area
+
+no_free_area:
+       lda     area.dont_free,du       make sure free requests are ignored
+       orsa    bp|area.flags   ..
+       spribp  bp|no_free_area.current_component
+       aos     bp|area.allocation_method set method type to 1
+       lda     ap|6,*          get extend flag
+       tze     standard_area   extensible area not wanted
+"
+"      Now allocate a block large enough to hold the extend information.
+"
+extend_area:
+       lda     area.extend,du  set extend flag ON in header
+       orsa    bp|area.flags
+       lda     extend_block_size+2,du get size for the extend block
+       ldq     bp|area.next_virgin     get start of new last block
+       asa     bp|area.next_virgin     update header for new block
+       stq     bp|area.extend_info     ..
+       stq     bp|area.last_block      ..
+       sta     bp|area.last_size       ..
+       eppbb   =its(-1,1),*    initialize variables in extend block
+       sprpbb  bp|extend_block.next_area,qu
+       sprpbp  bp|extend_block.first_area,qu
+standard_area:
+       cmpx0   0,du            see if called as operator
+       tnz     sp|tbp,*0               yes, return in standard way
+       short_return
+
+no_freeing:
+       eax1    1               set initialization type
+       tra     areajoin
+extend:
+       eax1    2               set initialization type
+       tra     areajoin
+
+op_empty_:
+       eax1    0               set initialization type
+       tra     op_join
+
+redef: eppbp   ap|4,*          get pointer to the area
+       eppbp   bp|0,*          ..
+       lda     bp|area.version check version of area
+       tze     <buddy_area_>|[buddy_redef]
+
+       lxl0    ap|2,*          get size to redefine area to have
+       cmpx0   bp|area.next_virgin     see if we fit
+       tnc     signal_area_p0  no, complain by signalling area
+       stx0    bp|area.last_usable     reset end of area
+       short_return
+
+"\f
+"
+"      area_assign_
+"
+"      This entry copies one area into the storage of an already initialized other area.
+"      If the receiving area is not large enough, "area" is signalled.
+"
+"      call is:
+"
+"      call area_assign_ (new_areap, old_areap)
+"
+"      where:
+"              new_areap is the target, pointed to by bp.
+"              old_areap is the source, pointed to by bb.
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+
+area_assign_:
+       eppbp   ap|2,*          get pointer to new area
+       eppbp   bp|0,*          ..
+       eppbb   ap|4,*          get pointer to old area
+       eppbb   bb|0,*          ..
+
+       lda     bp|area.version check new for buddy or empty area
+       tze     new_is_buddy_or_empty
+new_is_new:
+       lda     bb|area.version check old for buddy or empty
+       tze     old_is_buddy_or_empty
+both_are_new:
+       lda     bb|area.next_virgin     see if enough room
+       cmpa    bp|area.last_usable     ..
+       tze     *+2             ok if equal
+       trc     signal_area_p0
+       ldq     bb|area.flags   check for need to zero past virgin portion
+       canq    area.zero_on_free,du ..
+       tnz     assign_and_fill is zero_on_free...needs fill
+       canq    area.zero_on_alloc,du check for NO_FREEING & zero_on_alloc
+       tze     assign_no_fill  isn't zero_on_alloc...don't need fill
+       ldq     bb|area.allocation_method
+       cmpq    NO_FREEING_ALLOCATION_METHOD,dl
+       tnz     assign_no_fill  isn't NO_FREEING...doesn't need fill
+"                              fall through...is both zero_on_alloc & NO_FREEING
+"
+assign_and_fill:
+       ldq     bp|area.last_usable     get length of target (new)
+       lrl     18-2            get char count in AL, QL
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+       mlr     (pr,rl),(pr,rl),fill(000)
+       desc9a  bb|0,al         source
+       desc9a  bp|0,ql         target
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+       qls     18-2            restore word count to QU
+       stq     bp|area.last_usable     restore size of area
+       short_return
+"
+assign_no_fill:
+       ldq     bp|area.last_usable     hold length of target (new)
+       arl     18-2            get char count in AL
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+       mlr     (pr,rl),(pr,rl)
+       desc9a  bb|0,al         source
+       desc9a  bp|0,al         target
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+       stq     bp|area.last_usable     restore size of area
+       short_return
+"
+new_is_buddy_or_empty:
+       lda     bp|buddy_area.inited see if empty
+       tnz     new_is_buddy    not empty, is buddy
+       eppab   <template_area_header>|[template_area_header]
+       lda     bp|buddy_area.size
+       als     18
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+       mlr     (pr),(pr)
+       desc9a  ab|0,area_size*4
+       desc9a  bp|0,area_size*4
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+       sta     bp|area.last_usable
+       tra     new_is_new
+new_is_buddy:
+       lda     bb|area.version check version of old area
+       tnz     signal_area_p2  old is not buddy - error
+       lda     bb|buddy_area.inited see if empty
+       tnz     <buddy_area_assign_>|[buddy_area_assign_] both are buddy - ok
+       tra     signal_area_p2  old is empty, new is buddy - error
+old_is_buddy_or_empty: "already know new is not buddy
+       lda     bb|area.version check if buddy or empty
+       tnz     both_are_new
+       lda     bb|buddy_area.inited
+       tnz     signal_area_p2
+       eppab   <template_area_header>|[template_area_header]
+       lda     bb|buddy_area.size
+       als     18
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+       mlr     (pr),(pr)
+       desc9a  ab|0,area_size*4
+       desc9a  bb|0,area_size*4
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+       sta     bb|area.last_usable
+       tra     both_are_new
+
+signal_area_p0:
+       eax6    0               "area"
+       tra     signal_area_p
+signal_area_p1:
+       eax6    2               "bad_area_initialization"
+       tra     signal_area_p
+signal_area_p2:
+       eax6    3               "bad_area_assignment"
+       tra     signal_area_p
+signal_area_p3:
+       eax6    4               "bad_area_format"
+signal_area_p:
+       push    80
+       lda     stack_frame.support_bit,dl
+       orsa    sp|stack_frame.flag_word
+       eax0    0               indicates not pl1_operator_ call
+       tra     signal_area
+
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+" \f
+"
+"      freen_
+"      op_freen_
+"
+"      These entries free up the block pointed to by the input pointer.
+"      The block is merged with adjacent blocks if they are free.
+"
+"      The call for the external entry is:
+"
+"      call freen_ (blockp)
+"
+"      The operator entry (op_freen_) is invoked as follows:
+"
+"              epplb   addr(pointer to block_to_free)
+"              tsx0    pr0|free_op
+"
+"
+" " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
+
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+old_freen_:
+freen_:
+       eppbp   ap|2,*          make a check for buddy area before doing push
+       eppbp   bp|0,*          get pointer to block
+       lda     bp|-1           see if buddy area
+       tmi     <buddy_freen_>|[buddy_freen_] yes, forward the call
+       push    80              now get a stack frame
+       lda     stack_frame.support_bit,dl
+       orsa    sp|stack_frame.flag_word
+       epplb   ap|2,*          get pointer to block to free
+       eppbp   lb|0,*          ..
+       eax0    0               not operator use
+op_freen_join:
+"
+"      Get standard register values. x2 -> block, bp -> header.
+"
+       lxl2    bp|block.header-2       fetch header pointer from block header
+       eppbp   bp|-2,2         make bp -> header
+       erx2    -1,du           complement C(x2)
+       adlx2   1,du            ..
+
+       lda     bp|area.flags   check if freeing is enabled
+       cana    area.dont_free,du       ..
+       tnz     free_ret                disabled, skip freen_1 subroutine work
+"
+       lca     1,du            decrement used blocks
+       asa     bp|area.n_allocated
+       tspab   freen_1         do the work in this subroutine
+free_ret:
+       eppbb   =its(-1,1),*    null out return pointer
+       spribb  lb|0            passed by caller
+       cmpx0   0,du            perform appropriate return
+       tnz     sp|tbp,*0       
+       return
+
+op_freen_:
+       eppbp   lb|0,*          get pointer to block
+       lda     bp|-1           check if buddy area
+       tpl     op_freen_join   no, use standard code
+"
+"      We were called as operator to free up old style area's block.
+"      We must make an external call to buddy_freen_.
+"
+       sprilb  sp|arglist+2    save pointer to block pointer
+       sreg    sp|8            save registers
+       epbpsb  sp|0            get pointer to stack base so we can get lp
+       epaq    *               get segno of this program
+       lprplp  sb|stack_header.lot_ptr,*au get lp
+       lda     4,du            generate arg list header
+       ldq     0,du            ..
+       staq    sp|arglist      ..
+       eppap   sp|arglist      get pointer to argument list
+       stcd    sp|stack_frame.return_ptr       standard call...
+       callsp  <buddy_freen_>|[buddy_freen_]
+       lreg    sp|8            restore registers
+       eppbp   sp|tbp,*                must restore return pointer for pl1 frame
+       spribp  sp|stack_frame.return_ptr       ..
+       tra     sp|tbp,*0               return to object program
+
+"\f
+"
+"      Subroutine to free the block pointed to by x2. The base
+"      of the area is pointed to by bp.
+"
+freen_1:
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+
+       lda     1,dl            keep track of how many blocks are freed
+       sta     sp|free_count
+       ldaq    bp|0,2          fetch entire header
+       als     18              left justify
+       sta     sp|blocksize    save for now in accumulating total
+       ldx3    bp|area.flags   see if must zero block
+       canx3   area.zero_on_free,du ..
+       tze     not_zof         dont bother
+       epplp   bp|0,2          pointer to block being freed
+       eaa     -3,au           count of words to zero
+       als     2               count of bytes to zero
+       mlr     (),(pr,rl)      zero block contents
+       desc9a  0,0             zeroes
+       desc9a  lp|3,au         bytes to be zeroed after block header
+not_zof:
+       inhibit on              <+><+><+><+><+><+><+><+><+><+><+>
+       lda     bp|area.allocation_p_clock      guard against IPS race
+       adla    1,dl                    ..
+       sta     bp|area.allocation_p_clock      ..
+       eax3    sp|blocksize,*2 x3 -> nextblock
+       canq    block.prev_busy,du      see if previous block is free
+       tze     prev_free               no
+       cmpx2   bp|area.last_block      see if freeing last block
+       tze     free_last_block yes, special case
+       tra     check_next      no, see if next block is free
+prev_free:
+"
+"      The previous block is free. Merge it with the current block.
+"      Accumulate the size of the ultimate free block in blocksize.
+"
+       lca     1,dl            already free, undo previous subtraction
+       asa     sp|free_count   ..
+       ldx4    bp|block.prev_size,2 get size of previous block
+       stx4    sp|temp
+       adlx4   sp|blocksize    update blocksize
+       stx4    sp|blocksize    ..
+       stz     bp|0,2          in case of zero_on_free
+       stz     bp|1,2          clear intervening header words
+       stz     bp|2,2           ..
+"
+"      Thread previous block out of its free list.
+"
+       eax4    0,2             make x4 point to previous block
+       sblx4   sp|temp         ..
+       tspbb   unthread                thread block out of list
+       nop                     "ignore if just zerod list
+       cmpx2   bp|area.last_block      see if we are freeing the last block
+       tnz     not_last                no, proceed normally
+       stx4    bp|area.last_block      yes, update header variables
+       eax2    0,4             pretend we are freeing the merged block
+       tra     free_last_block
+
+not_last:      eax2    0,4             pretend we are freeing the merged block
+
+"      See if next block is free.
+
+check_next:
+       cmpx3   bp|area.last_block      see if next block is last in area
+       tze     next_busy               yes, it therefore can't be free
+       ldaq    bp|0,3          get header for next block
+       als     18              left justify current size
+       sta     sp|temp         so we can generate a pointer to next header
+       eax4    0,3             set x4 in case needed by unthread
+       eax5    sp|temp,*3      get pointer to following header
+       ldq     bp|block.prev_busy_word,5       check if block is free
+       canq    block.prev_busy,du      ..
+       tnz     next_busy
+"
+"      Next block is free. Merge it with current block.
+"
+       lcq     1,dl
+       asq     sp|free_count
+       adla    sp|blocksize    update size of free block
+       sta     sp|blocksize    ..
+       tspbb   unthread                thread the block out of the free list
+       nop                     "ignore if just zerod list
+       eax3    0,5             x3 -> next block after free block
+       stz     bp|0,4          in case zero_on_free
+       stz     bp|1,4          clear header of unthreaded block
+       stz     bp|2,4           ..
+
+next_busy:
+
+       ldx1    sp|blocksize    get accumulated size of block being freed
+       sxl1    bp|block.cur_size,2     update header of block being freed
+       stx1    bp|block.prev_size,3    ..
+       lcx1    block.prev_busy+1,du    turn off busy bit
+       ansx1   bp|block.prev_busy_word,3       ..
+
+
+"      Thread the block into free list.
+"      First get stratum number for list to thread into.
+
+       lda     sp|blocksize    get size of total block
+       arl     18              convert to integer
+       sta     sp|temp         save integer form
+       fld     sp|temp         now perform conversion as in alloc_ entry
+       lde     =26b25,du               ..
+       fad     =0.0e0,du               ..
+       ste     sp|temp         ..
+       ldq     sp|temp         ..
+       qrl     28-18           ..
+       cmpq    16,du           clip if too high
+       tmoz    *+2
+       ldq     16,du
+       eppbb   bp|block.q_no_word,2 get pointer to header for storing q_no
+       stcq    bb|0,10         save q_no in current header
+
+       ldx1    bp|area.freep-3,qu      get free list pointer
+       tze     empty           nothing there yet, special case
+       lxl5    bp|block.bp,1
+       sxl2    bp|block.bp,1
+       stx1    bp|block.fp,2
+       stx2    bp|block.fp,5
+       sxl5    bp|block.bp,2
+       stx2    bp|area.freep-3,qu      roving pointer ...
+       lxl5    bp|area.freep-3,qu      update max size if needed
+       tze     all_done        if zero, must recalculate next full search
+       cmpx5   sp|blocksize    see if adding largest block
+       trc     all_done        no, don't need to change max
+       ldx5    sp|blocksize    get new max value
+out:   sxl5    bp|area.freep-3,qu      update max size for this list
+all_done:      ldq     sp|free_count   update count of free blocks
+       asq     bp|area.n_free  ..
+       tra     ab|0
+
+empty: stx2    bp|area.freep-3,qu      set free ptr to single entry in list
+       stx2    bp|block.fp,2   make entry point to itself
+       sxl2    bp|block.bp,2   ..
+       ldx5    sp|blocksize    get set to update max free size for this list
+       tra     out
+
+"\f
+"      The following subroutine is used to thread the block pointed to
+"      by index 4 out of the free list. If this results in an empty free list,
+"      the return is made to bb|0, otherwise, the return is made to
+"      bb|1.
+"
+unthread:
+       ldq     bp|block.q_no_word,4 get stratum number for this free block
+       anq     block.q_no_mask,du      ..
+       lxl7    bp|area.freep-3,qu      get max entry in list to see if unthreading largest
+       stx7    sp|temp         save for compare
+       lxl7    bp|block.cur_size,4     see if unthreading largest entry
+       cmpx7   sp|temp         ..
+       tnz     not_big         not largest, ok
+       eax7    0               zero max size to indicate we don't know it
+       sxl7    bp|area.freep-3,qu      ..
+not_big:       ldx7    bp|block.fp,4   x7 -> next link in free chain
+       lxl1    bp|block.bp,4   x1 -> previous link in free chain
+       cmpx4   bp|block.fp,4   are they the same?
+       tze     last_free               yes, last free block in free list
+       stx7    bp|block.fp,1   thread around the block
+       sxl1    bp|block.bp,7   ..
+       cmpx4   bp|area.freep-3,qu      see if pointing to head of list
+       tnz     bb|1            no, continue
+       stx7    bp|area.freep-3,qu      yes, change head of list
+       tra     bb|1
+
+last_free:stz  bp|area.freep-3,qu      free list now empty, clear pointer word
+       tra     bb|0            continue
+
+"\f
+"
+"      Come here when freeing the last block before virgin territory.
+"
+free_last_block:
+       lcq     1,dl            decrement count of free blocks
+       asq     sp|free_count
+       lda     bp|area.last_block      update header of area
+       sta     bp|area.next_virgin     ..
+       ldx3    bp|block.prev_size,2    get size of previous block for header
+       stx3    bp|area.last_size       save in header
+       erx3    -1,du           complement C(x3)
+       adlx3   1,du
+       adlx3   bp|area.last_block      update pointer to last allocated block
+       stx3    bp|area.last_block      ..
+
+       lda     sp|blocksize    get size of the block
+       stz     bp|0,2          clear header words--they will be in virgin territory
+       stz     bp|1,2           ..
+       stz     bp|2,2           ..
+       tra     all_done
+       inhibit off             <-><-><-><-><-><-><-><-><-><-><->
+
+
+
+"\f
+
+"
+"      Come here when we must signal "area", "storage", or "bad_area_initialization"
+"
+signal_area_3:
+       eax6    4               "bad_area_format"
+       tra     signal_area
+signal_area_2:
+       eax6    3               "bad_area_assignment"
+       tra     signal_area
+signal_area_1:
+       eax6    2               "bad_area_initialization"
+signal_area:
+       cmpx0   0,du            were we called as an operator?
+       tze     signal_for_subr yes, branch
+       eax0    -1,0            subtract one to point to retry location in caller
+       sxl0    sp|stack_frame.operator_ret_ptr save for call_signal_
+       tra     signal_join
+signal_for_subr:
+       sxl6    sp|save_x6      save for retry
+       eax1    *               set up stack frame for call_signal_
+       sxl1    sp|stack_frame.operator_ret_ptr
+       epbpbp  *
+       spribp  sp|tbp
+signal_join:
+       eppbp   name,6*         get pointer to name to signal
+       ldx6    length,6                get length of name in x6
+       ldq     1000,dl         get oncode in q
+       tsx1    <pl1_operators_>|[call_signal_]
+       stz     sp|stack_frame.operator_ret_ptr clear after signal
+       ldx0    sp|8            restore index 0 saved by call_signal_
+       tnz     sp|tbp,*0               return to pl1 program to retry allocation
+"
+       lxl6    sp|save_x6      restore for retry
+       eppap   sp|stack_frame.arg_ptr,*        restore arg pointer
+       eppbp   ap|4,*          get area header pointer
+       eppbp   bp|0,*          ..
+       lda     bp|area.allocation_method       see if no_freeing method used
+       tze     retry_alloc_after_area  no, go retry it
+       tra     retry_no_free_alloc_after_area
+
+name:  arg     area_name
+       arg     storage_name
+       arg     area_init_name
+       arg     bad_assign_name
+       arg     bad_area_format_name
+length:        zero    4,0
+       zero    7,0
+       zero    23,0
+       zero    19,0
+       zero    15,0
+area_name:     aci     "area"
+storage_name:  aci     "storage"
+area_init_name:        aci     "bad_area_initialization"
+bad_assign_name:       aci     "bad_area_assignment"
+bad_area_format_name:
+               aci     "bad_area_format"
+
+       end

diff --git a/pl1/define_area_.pl1 b/pl1/define_area_.pl1
new file mode 100644 (file)
index 0000000..cf85d6b
--- /dev/null
+++ b/pl1/define_area_.pl1
@@ -0,0 +1,354 @@
+/****^  ***********************************************************
+        *                                                         *
+        * Copyright, (C) Honeywell Bull Inc., 1987                *
+        *                                                         *
+        * Copyright, (C) Honeywell Information Systems Inc., 1982 *
+        *                                                         *
+        * Copyright (c) 1972 by Massachusetts Institute of        *
+        * Technology and Honeywell Information Systems, Inc.      *
+        *                                                         *
+        *********************************************************** */
+
+
+define_area_: proc (a_area_infop, a_code);
+
+
+/****^  HISTORY COMMENTS:
+  1) change(75-01-01,Webber), approve(), audit(), install():
+      Unknown date, coded by S. Webber.
+  2) change(76-08-01,Weaver), approve(), audit(), install():
+      Modified by M. Weaver to fix get_next_area_ptr_.
+  3) change(76-08-01,RBarnes), approve(), audit(), install():
+      Modified for extendable no_free areas.
+  4) change(77-04-01,Weaver), approve(), audit(), install():
+      Modified to make release_area_ safer and easier to use.
+  5) change(77-08-01,RBarnes), approve(), audit(), install():
+      Modified to implement zero_on_alloc for no_free areas.
+  6) change(77-08-20,Green), approve(), audit(), install():
+      Modified by PG to fix bug (must init zero_on_free areas to zero).
+  7) change(78-09-01,Carlyle), approve(), audit(), install():
+      Modified by K. Carlyle to fix bug (area size must be at least 32).
+  8) change(80-01-01,Weaver), approve(), audit(), install():
+      Modified to make release_area_ zero only to next_virgin.
+  9) change(81-06-01,Donner), approve(), audit(), install():
+      Modified by E. Donner to set ring brackets on extensible area segment.
+ 10) change(86-05-15,Lippard), approve(86-06-23,MCR7438),
+     audit(86-08-04,Hartogs), install(86-08-19,MR12.0-1120):
+      Modified by Jim Lippard to set ring brackets on additional segments in
+      area to be the same as component 0 regardless of system bit; and to not
+      allow an area to be defined starting at an odd address.
+ 11) change(86-09-18,Lippard), approve(86-06-23,PBF7438),
+     audit(86-09-24,Farley), install(86-09-25,MR12.0-1164):
+      Modified to not always zero out new components of extensible areas.
+                                                   END HISTORY COMMENTS */
+
+
+/* Automatic */
+
+       dcl     code             fixed bin (35);
+       dcl     next_areap               ptr;
+       dcl     new_extend_blockp        ptr;
+       dcl     defined          bit (1) aligned;
+       dcl     1 info           aligned like area_info;
+       dcl     area_size                fixed bin (18);
+       dcl     len              fixed bin;
+       dcl     dirname          char (168);
+       dcl     entname          char (32);
+       dcl     dlng             fixed bin;
+       dcl     rings            (3) fixed bin (3);
+       dcl     set_ring_brackets      bit (1) aligned;
+
+/* Parameters */
+
+       dcl     a_area_infop     ptr;
+       dcl     a_code           fixed bin (35);
+       dcl     1 a_control              aligned like area_control;
+       dcl     a_areap          ptr;
+       dcl     a_next_componentp        ptr;
+
+/* Constants */
+
+       dcl     Max_Components   fixed bin static init (1000) options (constant);
+
+/* Based */
+
+       dcl     based_area               area (area_size) aligned based (areap);
+
+/* Entries */
+
+       dcl     unique_chars_    entry (bit (*)) returns (char (15));
+       dcl     get_temp_segment_      entry (char(*), ptr, fixed bin(35));
+       dcl     hcs_$make_seg    entry (char (*), char (*), char (*), fixed bin (5), ptr, fixed bin (35));
+       dcl     hcs_$get_ring_brackets entry (char (*), char (*), (3) fixed bin (3), fixed bin (35));
+       dcl     hcs_$set_ring_brackets entry (char (*), char (*), (3) fixed bin (3), fixed bin (35));
+
+
+       dcl     release_temp_segment_ entry (char (*), ptr, fixed bin (35));
+       dcl     get_ring_                entry () returns (fixed bin);
+       dcl     hcs_$fs_get_path_name    entry (ptr, char (*), fixed bin, char (*), fixed bin (35));
+       dcl     delete_$ptr              entry (ptr, bit (6), char (*), fixed bin (35));
+
+/* Builtins */
+
+       dcl     (bit, empty, rel, null, bin, substr, addr, addrel, index, length, mod, unspec, wordno, size) builtin;
+
+/* External */
+
+       dcl     sys_info$max_seg_size    fixed bin (18) ext;
+       dcl     error_table_$unimplemented_version fixed bin (35) ext;
+       dcl     error_table_$area_too_small fixed bin (35) ext;
+       dcl     error_table_$boundviol fixed bin (35) ext;
+       dcl     error_table_$noalloc     fixed bin (35) ext;
+       dcl     error_table_$no_odd_areas fixed bin (35) ext;
+
+/* Conditions */
+
+       dcl     area             condition;
+       dcl     bad_area_initialization condition;
+       dcl     cleanup          condition;
+
+/* \f */
+
+/* This routine creates and initializes an area segment. It takes control information
+   from its input structure and sets special bits in the area header to reflect
+   the desired result. if the area is extensible, an extension blocks is allocated
+   in the area and initialized appropriately.
+*/
+
+       area_infop = a_area_infop;
+
+       if area_info.version ^= area_info_version_1 then do;
+               a_code = error_table_$unimplemented_version;
+               return;
+            end;
+       else a_code = 0;
+
+       if area_info.extend | (area_info.areap = null)
+       then if area_info.size < size (area_header) + min_block_size + size (extend_block)
+            then go to MIN_SIZE_ERROR;
+            else ;
+       else if area_info.size < size (area_header) + min_block_size then go to MIN_SIZE_ERROR;
+       if area_info.size > sys_info$max_seg_size then go to MAX_SIZE_ERROR;
+
+/* First create the area segment if necessary. The nullness of the input area pointer
+   indicates what we are to do. */
+
+       if area_info.areap = null then do;              /* null means we should get an area segment */
+               len = index (area_info.owner, " ") - 1;
+               if len < 0 then len = length (area_info.owner);
+               if area_info.system | (get_ring_ () = 0)
+               then call hcs_$make_seg ("", unique_chars_ (""b) || ".area." || substr (area_info.owner, 1, 10),
+                       "", 01110b, area_info.areap, code);
+               else call get_temp_segment_ (substr (area_info.owner, 1, len) || ".area", area_info.areap, code);
+               if code ^= 0 then goto ERROR;
+               defined = "1"b;
+            end;
+       else do;
+            if mod (wordno (area_info.areap), 2) ^= 0 then goto ODD_AREA_ERROR;
+            defined = "0"b;
+       end;
+
+       areap = area_info.areap;                        /* this is the pointer we will use */
+
+/* First we must empty the area */
+
+       area_size = area_info.size;                     /* get requested size of area */
+
+/* implement zero_on_alloc for no_freeing areas */
+/* (system areas are assumed to be zero to start with...) */
+
+       if ^defined
+       then if ^area_info.system & ((area_info.no_freeing & area_info.zero_on_alloc) | area_info.zero_on_free)
+            then unspec (areap -> based_area) = "0"b;
+
+       on bad_area_initialization goto ERROR;
+       areap -> based_area = empty;
+
+/* Now we must fill in the control bits in the area header before attempting to allocate
+   any extend structure */
+
+       if area_info.no_freeing
+       then do;
+               area_header.allocation_method = NO_FREEING_ALLOCATION_METHOD;
+               no_free_area_header.current_component = areap;
+            end;
+       else area_header.allocation_method = STANDARD_ALLOCATION_METHOD;
+       area_header.zero_on_free = area_info.zero_on_free;
+       area_header.zero_on_alloc = area_info.zero_on_alloc;
+       area_header.dont_free = area_info.dont_free;
+       area_header.extend = area_info.extend;
+       area_header.system = area_info.system;
+       area_header.defined_by_call = defined;
+
+/* Now see if we must allocate an extend block */
+
+       if area_header.extend | area_header.defined_by_call then do; /* yes, do it */
+               on condition (area) goto ERROR;
+               allocate extend_block in (based_area) set (extend_blockp);
+               extend_block.first_area = areap;
+               extend_block.next_area = null;
+               extend_block.sequence_no = 1;
+               extend_block.name = area_info.owner;
+               area_header.extend_info = bit (bin (bin (rel (extend_blockp), 18) - bin (rel (areap), 18), 18), 18);
+            end;
+       return;
+
+ERROR: a_code = error_table_$noalloc;
+       return;
+
+ODD_AREA_ERROR: a_code = error_table_$no_odd_areas;
+       return;
+
+MIN_SIZE_ERROR: a_code = error_table_$area_too_small;
+       return;
+
+MAX_SIZE_ERROR: a_code = error_table_$boundviol;
+       return;
+\f
+change_area_attributes_: entry (a_areap, a_control, a_code);
+
+       do areap = a_areap repeat next_areap while (areap ^= null);
+            area_header.extend = a_control.extend;
+            area_header.zero_on_alloc = a_control.zero_on_alloc;
+            area_header.zero_on_free = a_control.zero_on_free;
+            area_header.dont_free = a_control.dont_free;
+            area_header.system = a_control.system;
+            if a_control.no_freeing then area_header.allocation_method = NO_FREEING_ALLOCATION_METHOD;
+            if area_header.extend_info then next_areap = addrel (areap, area_header.extend_info) -> extend_block.next_area;
+            else next_areap = null;
+       end;
+       return;
+\f
+get_next_area_ptr_: entry (a_areap, a_next_componentp);
+
+/* This entry is called by alloc_ when it runs off the end
+   of an extensible area segment */
+
+       areap = a_areap;
+       extend_blockp = addrel (areap, area_header.extend_info);
+       if extend_block.next_area = null then do;
+               if extend_blockp -> extend_block.sequence_no >= Max_Components then do;
+abort:                 a_next_componentp = null;
+                       return;
+                    end;
+
+               if area_header.system | (get_ring_ () = 0) then do;
+                    call hcs_$fs_get_path_name (areap, dirname, dlng, entname, code);
+                                               /* find out what directory area is in */
+                    call hcs_$get_ring_brackets (dirname, entname, rings, code);
+                                               /* save ring brackets of original area segment */
+                    if code ^= 0 then go to abort;
+                    entname =  (unique_chars_ (""b) || ".area." ||
+                       substr (extend_block.name, 1, 10));
+                    call hcs_$make_seg (dirname, entname, "", 01110b, info.areap, code);
+                                               /* create new component in same directory */
+                    if code ^= 0 then goto abort;
+                    call hcs_$set_ring_brackets (dirname, entname, rings, code);
+                    if code ^= 0 then go to abort;
+                    set_ring_brackets = "0"b;
+                    end;
+               else do;
+                    info.areap = null ();
+                    set_ring_brackets = "1"b;
+                    end;
+
+               info.version = area_info_version_1;
+               info.extend = area_header.extend;
+               info.zero_on_alloc = area_header.zero_on_alloc;
+               info.zero_on_free = area_header.zero_on_free;
+               info.dont_free = area_header.dont_free;
+               info.no_freeing = (area_header.allocation_method = NO_FREEING_ALLOCATION_METHOD);
+               info.system = area_header.system;
+               info.size = sys_info$max_seg_size;
+               info.owner = extend_block.name;
+               call define_area_ (addr (info), code);
+               if code ^= 0 then go to abort;
+
+               info.areap -> area_header.flags.defined_by_call = "1"b; /* extended components are defined by call */
+
+               extend_block.next_area = info.areap;
+               new_extend_blockp = addrel (info.areap, info.areap -> area_header.extend_info);
+               new_extend_blockp -> extend_block.sequence_no = extend_block.sequence_no + 1;
+               new_extend_blockp -> extend_block.first_area = extend_block.first_area;
+
+               if set_ring_brackets then do;
+                    call hcs_$fs_get_path_name (areap, dirname, dlng, entname, code);
+                    if code ^= 0 then go to abort;
+                    call hcs_$get_ring_brackets (dirname, entname, rings, code);
+                    if code ^= 0 then go to abort;
+                    call hcs_$fs_get_path_name (info.areap, dirname, dlng, entname, code);
+                    if code ^= 0 then go to abort;
+                    call hcs_$set_ring_brackets (dirname, entname, rings, code);
+                    if code ^= 0 then go to abort;
+               end;
+            end;
+
+       a_next_componentp = extend_block.next_area;
+       return;
+\f
+release_area_: entry (a_areap);
+
+/* This entry, given a pointer to the first component of a possible multi-component
+   area, deletes all components created by the define_area_ interface. */
+
+/* THIS ENTRY MUST NOT BE CALLED IN RING ZERO! */
+
+       dcl     (mask, oldmask)  bit (36) aligned;
+       dcl     i                        fixed bin;
+       dcl     ips_names                char (32) aligned;
+       dcl     create_ips_mask_         entry (ptr, fixed bin, bit (36) aligned);
+       dcl     (hcs_$set_ips_mask, hcs_$reset_ips_mask) entry (bit (36) aligned, bit (36) aligned);
+
+       ips_names = "-all";
+       call create_ips_mask_ (addr (ips_names), 1, mask);
+       oldmask = "0"b;
+       on cleanup begin;
+               if substr (oldmask, 36, 1) then do;
+                       mask = oldmask;
+                       call hcs_$reset_ips_mask (mask, oldmask);
+                    end;
+            end;
+       call hcs_$set_ips_mask (mask, oldmask);
+
+       areap = a_areap;
+       a_areap = null;                         /* indicate to caller that we were called */
+       do i = 1 to Max_Components while (areap ^= null);
+            if area_header.extend | area_header.defined_by_call then do;
+                    extend_blockp = addrel (areap, area_header.extend_info);
+                    next_areap = extend_block.next_area;
+                    extend_block.next_area = null;
+               end;
+            else next_areap = null;
+            if area_header.defined_by_call then do;
+                    if ^area_header.flags.system then do;
+                            len = index (extend_block.name, " ") - 1;
+                            if len < 0 then len = length (extend_block.name);
+                            call release_temp_segment_ (substr (extend_block.name, 1, len) || ".area", areap, code);
+                            if code ^= 0 then call delete_$ptr (areap, "000100"b, "release_area_", code);
+                                               /* this is to delete segments created in ring 0 */
+                       end;
+                    else call delete_$ptr (areap, "000100"b, "release_area_", code);
+               end;
+            else do;
+                    if area_header.flags.zero_on_free then do;
+                            area_size = bin (area_header.next_virgin, 18);
+                            unspec (areap -> based_area) = "0"b;
+                       end;
+                    area_size = bin (area_header.last_usable, 18);
+                                               /* be sure area size is correct for empty */
+                    areap -> based_area = empty;
+               end;
+
+            areap = next_areap;
+
+       end;
+
+       mask = oldmask;
+       call hcs_$reset_ips_mask (mask, oldmask);
+       return;
+                                               /* \f */
+
+%include area_structures;
+%include area_info;
+
+     end define_area_;

diff --git a/pl1/pl1_operators_.list b/pl1/pl1_operators_.list
new file mode 100644 (file)
index 0000000..a27eea6
--- /dev/null
+++ b/pl1/pl1_operators_.list
@@ -0,0 +1,20885 @@
+ASSEMBLY LISTING OF SEGMENT >user_dir_dir>SysAdmin>Repair>pl1_operators_.alm                                                                                                                        \r
+ASSEMBLED ON:  10/26/19  1733.7 pst Sat\r
+OPTIONS USED:  list symbols \r
+ASSEMBLED BY:  ALM Version 8.14 March 1989     \r
+ASSEMBLER CREATED:     01/05/16  2136.0 pst Tue\r
+\r
+                                     1  " ***********************************************************\r
+                                     2  " *                                                         *\r
+                                     3  " * Copyright, (C) Honeywell Bull Inc., 1987                *\r
+                                     4  " *                                                         *\r
+                                     5  " * Copyright, (C) Honeywell Limited, 1984                  *\r
+                                     6  " *                                                         *\r
+                                     7  " * Copyright, (C) Honeywell Information Systems Inc., 1983 *\r
+                                     8  " *                                                         *\r
+                                     9  " * Copyright (c) 1972 by Massachusetts Institute of        *\r
+                                    10  " * Technology and Honeywell Information Systems, Inc.      *\r
+                                    11  " *                                                         *\r
+                                    12  " ***********************************************************\r
+                                    13  \r
+                                    14  " HISTORY COMMENTS:\r
+                                    15  "  1) change(87-03-05,Huen), approve(87-03-05,MCR7629),\r
+                                    16  "     audit(87-04-15,RWaters), install(87-05-14,MR12.1-1029):\r
+                                    17  "     Fix PL/1 error 2138 -\r
+                                    18  "      Update the comments in "call_ent_var_desc" and "call_ext_in_desc" to\r
+                                    19  "      indicate the offset of the argument list is in x1.  Fix PL/1 error 2122 -\r
+                                    20  "      Allow Ceiling function work with negative fixed bin scaled numbers.\r
+                                    21  "  2) change(87-06-26,Huen), approve(87-06-26,MCR7732),\r
+                                    22  "     audit(87-07-10,RWaters), install(87-11-30,MR12.2-1004):\r
+                                    23  "     Fix bug2121\r
+                                    24  "  3) change(88-06-24,Huen), approve(88-06-24,MCR7916),\r
+                                    25  "     audit(88-07-11,RWaters), install(88-07-15,MR12.2-1057):\r
+                                    26  "     Fix high priority fortran error 510 -\r
+                                    27  "      Fix bug causing fortran inquire statement gives incorrect response after\r
+                                    28  "      the call to the condition handler.\r
+                                    29  "  4) change(89-01-16,Huen), approve(89-01-16,MCR8033),\r
+                                    30  "     audit(89-01-19,RWaters), install(89-02-28,MR12.3-1016):\r
+                                    31  "     Fix PL/1 error 2192 (phx21224) -\r
+                                    32  "      Changing indicators to allow maximum negative integer.\r
+                                    33  "                                                      END HISTORY COMMENTS\r
+                                    34  \r
+                                    35  \r
+                                    36  " NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE\r
+                                    37  "\r
+                                    38  " pl1_operators_ MUST be bound with conversion program any_to_any_, put_format_, put_field_,\r
+                                    39  "             and ALL of the math routines referenced from transfer vector\r
+                                    40  "\r
+                                    41  " NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE\r
+                                    42  "\r
+                                    43  "      Operator Segment for PL/I Version II\r
+                                    44  "      Barry Wolman\r
+                                    45  "      March, 1969\r
+                                    46  "\r
+                                    47  "      Modified: 19 October, 1971 by BLW\r
+                                    48  "      Modified: 27 January, 1972 by BLW\r
+                                    49  "      Modified:  2 April, 1972 by BLW\r
+                                    50  "      Modified:  1 July, 1972 by RBSnyder for follow-on\r
+                                    51  "      Modified: 21 July, 1972 by BLW to fix mod operators\r
+                                    52  "      Modified: 21 November, 1972 by BLW to add controlled operators\r
+                                    53  "      Modified: 28 February, 1973 by BLW for odd base register saving\r
+                                    54  "      Modified: 2 June, 1973 by BLW to use EIS for string operations\r
+                                    55  "      Modified: 7 April, 1974 by BLW to fix bug 1078\r
+                                    56  "      Modified: 10 April, 1974 by BLW to fix bug 1083\r
+                                    57  "      Modified: 15 August, 1974 by BLW to fix bugs 1170, 1171, 1201, and 1202\r
+                                    58  "      Modified: 1 November, 1974 by RAB to fix bug 1245\r
+                                    59  "      Modified: 4 November, 1974 by RAB to add ldi to return_words\r
+                                    60  "      Modified: 6 November, 1974 by SHW for new call/push/return sequences\r
+                                    61  "      Modified: 14 November, 1974 by RAB to fix bug 1254\r
+                                    62  "      Modified: 3 January, 1975 by RHS to support quick record i/o\r
+                                    63  "      Modified:       1 February, 1975 by RAB to fix bug 1318\r
+                                    64  "      Modified: 5 May, 1975 by RAB for separate static and new trace\r
+                                    65  "      Modified: 22 May, 1975 by RAB to fix bug 1348\r
+                                    66  "      Modified:       25 June, 1975 by RAB for new segdefs\r
+                                    67  "      Modified:       5 November 1975 by RAB for new area package\r
+                                    68  "      Modified:       29 December 1975 by RAB to fix bug 1449\r
+                                    69  "      Modified: 27 February, 1976 by GDC for DFAST new entries\r
+                                    70  "      Modified:  2 March, 1976 by RHS for quick "put list"s, a subset of quick stream i/o\r
+                                    71  "      Modified:        1 June, 1976 by RAB to use free_|free_ for alloc_storage\r
+                                    72  "      Modified:        6 June, 1976 by RHS for quick "put edit"s\r
+                                    73  "      Modified:       12 October 1976 by RAB to have signal ops save and restore ALL regs properly\r
+                                    74  "      Modified:       3 December 1976 by RAB to implement long_profile\r
+                                    75  "      Modified:       16 December 1976 by RAB to fix 1564 (pointer and offset operators)\r
+                                    76  "      Modified:       23 December 1976 by RAB for after, before, ltrim, rtrim\r
+                                    77  "      Modified:       24 March 1977 by RAB for new complex divide algorithm\r
+                                    78  "      Modified: 10 May 1977 by MBW to use user free area instead of free_\r
+                                    79  "      Modified 770619 by PG to implement clock, vclock, and stacq\r
+                                    80  "      Modified: 23 June 1977 by S. Webber to add ftn_open_element, ftn_file_manip_term\r
+                                    81  "              operators\r
+                                    82  "      Modified: 7/7/77 D. Levin change ftn_file_manip_term to ftn_get_area_ptr\r
+                                    83  "      Modified:       7/7/77 by RAB to partially fix bug 1642.  This partially\r
+                                    84  "              removes formline_ code put in to fix bug 1074.\r
+                                    85  "      Modified:       16 August 1977 by RAB to complete removal of formline_ code in\r
+                                    86  "              returns(char(*))\r
+                                    87  "      Modified:       16 August 1977 by RAB to speed up long_profile operator\r
+                                    88  "      Modified: 09/20/77 to extend trace interface to ALM and COBOL by P. Krupp.\r
+                                    89  "      Modified: 19 December 1977 by DSL - implement "static" stack frame for fortran I/O.\r
+                                    90  "              Refer to comments immediately preceding the label "fortran_read".\r
+                                    91  "      Modified: 15 Feb 1978 by PCK to implement stop, return_main, set_main_flag and\r
+                                    92  "              begin_return_main operators\r
+                                    93  "      Modified: 21 March 1978 by DSL stack_frame.incl.alm changes. stack_frame.fio_ps_ptr\r
+                                    94  "              changed to stack_frame.support_ptr.\r
+                                    95  "      Modified: 15 June 1978 by PCK to implement size_check_uns_fx1 and size_check_uns_fx2\r
+                                    96  "              operators\r
+                                    97  "      Modified:       28 July 1978 by RAB to fix Fortran bug 169 in which amod failed if 2nd arg\r
+                                    98  "              was negative\r
+                                    99  "      Modified 781127 by PG to fix 1800 in which size_check_fx1 and size_check_uns_fx1\r
+                                   100  "              changed the indicators\r
+                                   101  "      Modified 790223 by PG to fix 1821 (many, many operators were using signed arithmetic\r
+                                   102  "              on addresses in the upper when extending the stack!). Also removed\r
+                                   103  "              a lot of unused labels and names.\r
+                                   104  "      Modified 790608 by PG to add TCT tables.\r
+                                   105  "      Modified 790705 by PG to fix 1846 (eaa,neg sequence used by many\r
+                                   106  "              operators took faults on stacks = 128K.\r
+                                   107  "      Modified 9 July 1979 by CRD to add new operator fortran_end.\r
+                                   108  "      Modified 7 August 1979 by CRD to add new operator fort_dmod to fix\r
+                                   109  "              bug 221 and to bring dmod into inline ALM code.\r
+                                   110  "      Modified 791205 by PG to fix bug in TCT tables that caused code compiled by 25b\r
+                                   111  "              to fail if trace was used, due to misplaced even pseudo-op.\r
+                                   112  "      Modified 6 December 1979 by BSG for ix_rev_chars\r
+                                   113  "      Modified 12 February 1980 by CRD to add to fort_math_names table.\r
+                                   114  "      Modified 28 February 1980 by CRD to fix after/before for bit strings. (Bug 1915)\r
+                                   115  "      Modified 28 February 1980 by CRD to change the way many operators restore pr0.\r
+                                   116  "              Many operators did eppap operator_table, which doesn't work if trace\r
+                                   117  "              is being used.  Since the entry sequences store the operator pointer,\r
+                                   118  "              these instructions were changed to eppap sp|stack_frame.operator_ptr,*.\r
+                                   119  "      Modified 6 March 1980 by CRD to add three new operators: shorten_stack_protect_ind,\r
+                                   120  "              save_stack_quick, and restore_stack_quick.\r
+                                   121  "      Modified 22 October 1980 by CRD to add new operators for new Fortran\r
+                                   122  "              intrinsic functions.\r
+                                   123  "      Modified 7 November 1980 by M. N. Davidoff to fix bug 2033 in which longbs_to_bs18\r
+                                   124  "              always returned zero.\r
+                                   125  "      Modified 7 November 1980 by M. N. Davidoff to fix bug 2030 in which longbs_to_fx2\r
+                                   126  "              didn't work for bit strings longer than 71 bits.\r
+                                   127  "      Modified 8 February 1980 by M. N. Davidoff to fix bug 2041 in which ix_rev_chars\r
+                                   128  "              failed when length(arg2)=1.\r
+                                   129  "      Modified 27 February 1981 by PCK to make the alm entry operators\r
+                                   130  "              preserve the contents of the lisp linkage pointer (pr1)\r
+                                   131  "              when trace is active\r
+                                   132  "      Modified 28 July by PCK to fix bug 2068 in which the current stack\r
+                                   133  "              gets trashed if an asynchronous fault such as an alarm\r
+                                   134  "              signal or page fault occurs when the stack is being extended\r
+                                   135  "              by any of the divide operators.\r
+                                   136  "      Modified 31 August 1981 by C R Davis to fix trans_sign_fl to set the\r
+                                   137  "              indicators properly, and to add the blank field to\r
+                                   138  "              ftn_open_element.\r
+                                   139  "      Modified 27 October 1981 by C R Davis to add ftn_inquire_element.\r
+                                   140  "      Modified  1 April 1982   by T G Oke to add fortran INTRINSICs for external reference\r
+                                   141  "      Modified 10 May 1982 by H Hoover to add 'mpy_overflow_check'.\r
+                                   142  "      Modified 27 August 1982 by T Oke to add 'fort_cleanup' and\r
+                                   143  "              'fort_return_mac'.\r
+                                   144  "      Modified September 1982 by C. Hornig to have long_profile work with\r
+                                   145  "              separate_static.\r
+                                   146  "      Modified 21 September 1982 by T Oke to add 'fort_storage'.\r
+                                   147  "      Modified  5 Novemeber 1982 by T Oke to add 'VLA_words_per_seg' to\r
+                                   148  "              pl1_operators_ pointer referenced, and 'VLA_words_per_seg_'\r
+                                   149  "              entry.\r
+                                   150  "      Modified 14 January   1983 by T Oke to ensure indicator storage is\r
+                                   151  "              is done in stack_frame.return_ptr+1 on all out-calls.\r
+                                   152  "              References to PR6 changed to 'sp' for consistency.\r
+                                   153  "              Internal operator calls to pl1_support routines also save\r
+                                   154  "              and restore the indicators, using a new location\r
+                                   155  "              'temp_indicators'.\r
+                                   156  "      Modified 23 November 1983 by H. Hoover to support Hexadecimal\r
+                                   157  "              Floating Point (HFP).\r
+                                   158  "      Modified 22 June 1984 by M. Mabey to add the fortran bit-shifting\r
+                                   159  "              functions to the fort_math_names and hfp_fort_math_names\r
+                                   160  "              tables.\r
+                                   161  "      Modified 14 February 1985 by M. Mabey to change the transfers to\r
+                                   162  "              the double precision arc_sine and arc_cosine routines to\r
+                                   163  "              reference the new routine 'double_arc_sine_'\r
+                                   164  "      Modified 10 April 1985 by M. Mabey to change the transfers to the\r
+                                   165  "              double precision tangent routine to reference the new\r
+                                   166  "              routine 'double_tangent_'\r
+                                   167  "         Modified: 15 January, 1987 by SH to correct the comments in routines\r
+                                   168  "                   "call_ent_var_desc" and "call_ent_in_desc" to indicate\r
+                                   169  "                   the offset of the argument list is in x1.\r
+                                   170  "         Modified: 16 January,1987 by SH & RW to allow ceiling function work\r
+                                   171  "                   with negative fixed bin scaled numbers.\r
+                                   172  "         Modified: 24 June,1987 by SH to remove the 48 words extension instead\r
+                                   173  "              of all stack extension upon return from the 'call_signal_'\r
+                                   174  "              routine.\r
+                                   175  "         Modified: 24 June, 1988 by SH to adjust the next_stackframe_ptr and\r
+                                   176  "              perm_extension_ptr in the "ft_fast_call" routine.\r
+                                   177  "      Modified: 15 January, 1989 by RG & SH to fix size_check_fx1, \r
+                                   178  "              size_check_fx2, size_check_uns_fx1, size_check_uns_fx2.\r
+                                   179  "              Errors previously occurred on Maximum negative of fx1 and\r
+                                   180  "              fx2 in magnitude comparison.\r
+    000000                         181         name    pl1_operators_\r
+                                   182  \r
+                                   183         include stack_header\r
+                                   1-1  "      BEGIN INCLUDE FILE ... stack_header.incl.alm  3/72  Bill Silver\r
+                                   1-2  "\r
+                                   1-3  "      modified 7/76 by M. Weaver for *system links and more system use of areas\r
+                                   1-4  "      modified 3/77 by M. Weaver  to add rnt_ptr\r
+                                   1-5  "      modified 7/77 by S. Webber to add run_unit_depth and assign_linkage_ptr\r
+                                   1-6  "      modified 6/83 by J. Ives to add trace_frames and in_trace.\r
+                                   1-7  \r
+                                   1-8  " HISTORY COMMENTS:\r
+                                   1-9  "  1) change(86-06-24,DGHowe), approve(86-06-24,MCR7396),\r
+                                  1-10  "     audit(86-08-05,Schroth), install(86-11-03,MR12.0-1206):\r
+                                  1-11  "     added the heap_header_ptr definition\r
+                                  1-12  "  2) change(86-08-12,Kissel), approve(86-08-12,MCR7473),\r
+                                  1-13  "     audit(86-10-10,Fawcett), install(86-11-03,MR12.0-1206):\r
+                                  1-14  "     Modified to support control point management.  These changes were\r
+                                  1-15  "     actually made in February 1985 by G. Palter.\r
+                                  1-16  "  3) change(86-10-22,Fawcett), approve(86-10-22,MCR7473),\r
+                                  1-17  "     audit(86-10-22,Farley), install(86-11-03,MR12.0-1206):\r
+                                  1-18  "     Remove the old_lot pointer and replace it with cpm_data_ptr. Use the 18\r
+                                  1-19  "     bit pad after cur_lot_size for the cpm_enabled. This was done to save\r
+                                  1-20  "     some space int the stack header and change the cpd_ptr unal to\r
+                                  1-21  "     cpm_data_ptr (ITS pair).\r
+                                  1-22  "                                                      END HISTORY COMMENTS\r
+                                  1-23  \r
+                        000004    1-24         equ     stack_header.cpm_data_ptr,4             ptr to control point for this stack\r
+                        000006    1-25         equ     stack_header.combined_stat_ptr,6        ptr to separate static area\r
+                                  1-26  \r
+                        000010    1-27         equ     stack_header.clr_ptr,8          ptr to area containing linkage sections\r
+                        000012    1-28         equ     stack_header.max_lot_size,10            number of words allowed in lot (DU)\r
+                        000012    1-29         equ     stack_header.main_proc_invoked,10       nonzero if main proc was invoked in run unit (DL)\r
+                        000012    1-30         equ     stack_header.run_unit_depth,10  number of active run units stacked (DL)\r
+                        000013    1-31         equ     stack_header.cur_lot_size,11            DU number of words (entries) in lot\r
+                        000013    1-32            equ  stack_header.cpm_enabled,11             DL  non-zero if control point management is enabled\r
+                        000014    1-33         equ     stack_header.system_free_ptr,12 ptr to system storage area\r
+                        000016    1-34         equ     stack_header.user_free_ptr,14           ptr to user storage area\r
+                                  1-35  \r
+                        000020    1-36         equ     stack_header.parent_ptr,16              ptr to parent stack or null\r
+                        000022    1-37         equ     stack_header.stack_begin_ptr,18 ptr to first stack frame\r
+                        000024    1-38         equ     stack_header.stack_end_ptr,20           ptr to next useable stack frame\r
+                        000026    1-39         equ     stack_header.lot_ptr,22         ptr to the lot for the current ring\r
+                                  1-40  \r
+                        000030    1-41         equ     stack_header.signal_ptr,24              ptr to signal proc for current ring\r
+                        000032    1-42         equ     stack_header.bar_mode_sp,26             value of sp before entering bar mode\r
+                        000034    1-43         equ     stack_header.pl1_operators_ptr,28       ptr: pl1_operators_$operator_table\r
+                        000036    1-44         equ     stack_header.call_op_ptr,30             ptr to standard call operator\r
+                                  1-45  \r
+                        000040    1-46         equ     stack_header.push_op_ptr,32             ptr to standard push operator\r
+                        000042    1-47         equ     stack_header.return_op_ptr,34           ptr to standard return operator\r
+                        000044    1-48         equ     stack_header.ret_no_pop_op_ptr,36       ptr: stand. return/ no pop operator\r
+                        000046    1-49         equ     stack_header.entry_op_ptr,38            ptr to standard entry operator\r
+                                  1-50  \r
+                        000050    1-51         equ     stack_header.trans_op_tv_ptr,40 ptr to table of translator operator ptrs\r
+                        000052    1-52         equ     stack_header.isot_ptr,42                pointer to ISOT\r
+                        000054    1-53         equ     stack_header.sct_ptr,44         pointer to System Condition Table\r
+                        000056    1-54         equ     stack_header.unwinder_ptr,46            pointer to unwinder for current ring\r
+                                  1-55  \r
+                        000060    1-56         equ     stack_header.sys_link_info_ptr,48       ptr to *system link name table\r
+                        000062    1-57         equ     stack_header.rnt_ptr,50         ptr to reference name table\r
+                        000064    1-58         equ     stack_header.ect_ptr,52         ptr to event channel table\r
+                        000066    1-59         equ     stack_header.assign_linkage_ptr,54      ptr to area for hcs_$assign_linkage calls\r
+                        000070    1-60         equ     stack_header.heap_header_ptr,56 ptr to heap header.\r
+                        000072    1-61         equ     stack_header.trace_frames,58            stack of trace_catch_ frames\r
+                        000073    1-62         equ     stach_header.trace_top_ptr,59           trace pointer\r
+                        000074    1-63         equ     stack_header.in_trace,60                trace antirecurse bit\r
+                        000100    1-64         equ     stack_header_end,64                     length of stack header\r
+                                  1-65  \r
+                                  1-66  \r
+                                  1-67  \r
+                                  1-68  \r
+                        000000    1-69         equ     trace_frames.count,0            number of trace frames on stack\r
+                        000001    1-70         equ     trace_frames.top_ptr,1          packed pointer to top one\r
+                                  1-71  \r
+                                  1-72  "      The  following constant is an offset within the  pl1  operators table.\r
+                                  1-73  "      It  references a  transfer vector table.\r
+                                  1-74  \r
+                        000551    1-75         bool    tv_offset,551\r
+                                  1-76  \r
+                                  1-77  \r
+                                  1-78  "      The  following constants are offsets within this transfer vector table.\r
+                                  1-79  \r
+                        001170    1-80         equ     call_offset,tv_offset+271\r
+                        001171    1-81         equ     push_offset,tv_offset+272\r
+                        001172    1-82         equ     return_offset,tv_offset+273\r
+                        001173    1-83         equ     return_no_pop_offset,tv_offset+274\r
+                        001174    1-84         equ     entry_offset,tv_offset+275\r
+                                  1-85  \r
+                                  1-86  \r
+                                  1-87  "      END INCLUDE FILE stack_header.incl.alm\r
+                                   184  \r
+                                   185  "      We are attempting to set a standard for the storage and return of\r
+                                   186  "      indicators for a program.  On call-out the operators will store the\r
+                                   187  "      indicator register in the low 18-bits of stack_frame.return_ptr+1,\r
+                                   188  "      the upper 18-bits are the return word offset, and are stored from\r
+                                   189  "      X0 typically.  On return the operators will restore the indicators\r
+                                   190  "      from this low 18-bit portion.\r
+                                   191  \r
+                                   192         include stack_frame\r
+                                   2-1  "\r
+                                   2-2  "      BEGIN INCLUDE FILE ... stack_frame.incl.alm   6/72 RBS\r
+                                   2-3  "\r
+                                   2-4  " Modified: 16 Dec 1977, D. Levin - to add fio_ps_ptr\r
+                                   2-5  " Modified:  3 Feb 1978, P. Krupp - to add run_unit_manager_bit & main_proc_bit\r
+                                   2-6  " Modified: 21 March 1978, D. Levin - change fio_ps_ptr to support_ptr\r
+                                   2-7  "\r
+                        000020     2-8         equ     stack_frame.prev_sp,16\r
+                        000020     2-9         equ     stack_frame.condition_word,16\r
+                        000022    2-10         equ     stack_frame.next_sp,18\r
+                        000022    2-11         equ     stack_frame.signaller_word,18\r
+                        000024    2-12         equ     stack_frame.return_ptr,20\r
+                        000026    2-13         equ     stack_frame.entry_ptr,22\r
+                        000030    2-14         equ     stack_frame.operator_ptr,24\r
+                        000030    2-15         equ     stack_frame.lp_ptr,24\r
+                        000032    2-16         equ     stack_frame.arg_ptr,26\r
+                        000034    2-17         equ     stack_frame.static_ptr,28\r
+                        000035    2-18         equ     stack_frame.support_ptr,29      " only used by fortran I/O\r
+                        000036    2-19         equ     stack_frame.on_unit_rel_ptrs,30\r
+                        000037    2-20         equ     stack_frame.operator_ret_ptr,31\r
+                        000037    2-21         equ     stack_frame.translator_id,31\r
+                        000040    2-22         equ     stack_frame.regs,32\r
+                        000060    2-23         equ     stack_frame.min_length,48\r
+                        000020    2-24         equ     stack_frame.flag_word,16\r
+                        020000    2-25         bool    stack_frame.main_proc_bit,020000        (DL)\r
+                        010000    2-26         bool    stack_frame.run_unit_manager,010000     (DL)\r
+                        004000    2-27         bool    stack_frame.signal_bit,004000           (DL)\r
+                        002000    2-28         bool    stack_frame.crawl_out_bit,002000        (DL)\r
+                        001000    2-29         bool    stack_frame.signaller_bit,001000        (DL)\r
+                        000400    2-30         bool    stack_frame.link_trap_bit,000400        (DL)\r
+                        000200    2-31         bool    stack_frame.support_bit,000200  (DL)\r
+                        000100    2-32         bool    stack_frame.condition_bit,000100        (DL)\r
+                                  2-33  \r
+                                  2-34  "\r
+                                  2-35  "      END INCLUDE FILE  ... stack_frame.incl.alm\r
+                                  2-36  "\r
+                                   193         include eis_bits\r
+                        000100     3-1         bool    ar,100\r
+                        000040     3-2         bool    rl,40\r
+                        000020     3-3         bool    id,20\r
+                                   3-4  "\r
+                        000001     3-5         bool    au,01\r
+                        000002     3-6         bool    qu,02\r
+                        000003     3-7         bool    du,03\r
+                        000004     3-8         bool    ic,04\r
+                        000005     3-9         bool    a,05\r
+                        000005    3-10         bool    al,05\r
+                        000006    3-11         bool    q,06\r
+                        000006    3-12         bool    ql,06\r
+                        000010    3-13         bool    x0,10\r
+                        000011    3-14         bool    x1,11\r
+                        000012    3-15         bool    x2,12\r
+                        000013    3-16         bool    x3,13\r
+                        000014    3-17         bool    x4,14\r
+                        000015    3-18         bool    x5,15\r
+                        000016    3-19         bool    x6,16\r
+                        000017    3-20         bool    x7,17\r
+                                  3-21  "\r
+                        000003    3-22         bool    move,03\r
+                        000001    3-23         bool    and,01\r
+                        000007    3-24         bool    or,07\r
+                        000016    3-25         bool    nand,16\r
+                        000006    3-26         bool    xor,6\r
+                        000000    3-27         bool    clear,0\r
+                        000014    3-28         bool    invert,14\r
+                                  3-29  "\r
+                        000001    3-30         equ     round,1\r
+                        000001    3-31         equ     truncate,1\r
+                                   194         include iocbx\r
+                                   4-1  \r
+                                   4-2  \r
+                                   4-3       "BEGIN INCLUDE FILE iocbx.incl.alm\r
+                                   4-4  \r
+                                   4-5  \r
+                                   4-6         "Created 01/28/83  1429.8 est Fri by convert_include_file,\r
+                                   4-7         "   Version of 11/07/82  1445.1 est Sun.\r
+                                   4-8  \r
+                                   4-9         "Made from >user_dir_dir>Multics>SKrupp>work>s>iocbx.incl.pl1,\r
+                                  4-10         "   modified 01/28/83  1427.0 est Fri\r
+                                  4-11  \r
+                                  4-12  "\r
+                                  4-13  "      Structure iocb\r
+                                  4-14  "\r
+                        000156    4-15         equ     iocb_size,110\r
+                                  4-16  \r
+                                  4-17  \r
+                        000000    4-18         equ     iocb.version,0\r
+                        000001    4-19         equ     iocb.name,1\r
+                        000012    4-20         equ     iocb.actual_iocb_ptr,10\r
+                        000014    4-21         equ     iocb.attach_descrip_ptr,12\r
+                        000016    4-22         equ     iocb.attach_data_ptr,14\r
+                        000020    4-23         equ     iocb.open_descrip_ptr,16\r
+                        000022    4-24         equ     iocb.open_data_ptr,18\r
+                        000024    4-25         equ     iocb.event_channel,20   " DOUBLE\r
+                        000026    4-26         equ     iocb.detach_iocb,22\r
+                        000032    4-27         equ     iocb.open,26\r
+                        000036    4-28         equ     iocb.close,30\r
+                        000042    4-29         equ     iocb.get_line,34\r
+                        000046    4-30         equ     iocb.get_chars,38\r
+                        000052    4-31         equ     iocb.put_chars,42\r
+                        000056    4-32         equ     iocb.modes,46\r
+                        000062    4-33         equ     iocb.position,50\r
+                        000066    4-34         equ     iocb.control,54\r
+                        000072    4-35         equ     iocb.read_record,58\r
+                        000076    4-36         equ     iocb.write_record,62\r
+                        000102    4-37         equ     iocb.rewrite_record,66\r
+                        000106    4-38         equ     iocb.delete_record,70\r
+                        000112    4-39         equ     iocb.seek_key,74\r
+                        000116    4-40         equ     iocb.read_key,78\r
+                        000122    4-41         equ     iocb.read_length,82\r
+                        000126    4-42         equ     iocb.open_file,86\r
+                        000132    4-43         equ     iocb.close_file,90\r
+                        000136    4-44         equ     iocb.detach,94\r
+                        000142    4-45         equ     iocb.ios_compatibility,98\r
+                        000144    4-46         equ     iocb.syn_inhibits,100\r
+                        000146    4-47         equ     iocb.syn_father,102\r
+                        000150    4-48         equ     iocb.syn_brother,104\r
+                        000152    4-49         equ     iocb.syn_son,106\r
+                        000154    4-50         equ     iocb.hash_chain_ptr,108\r
+                                  4-51  \r
+                                  4-52       "END INCLUDE FILE iocbx.incl.alm\r
+                                   195         include plio2_fsb\r
+                                   5-1  \r
+                                   5-2  \r
+                                   5-3       "BEGIN INCLUDE FILE plio2_fsb.incl.alm\r
+                                   5-4  \r
+                                   5-5         "Created 06/27/77  1703.1 edt Mon by convert_include_file,\r
+                                   5-6         "   Version of 03/21/77  1355.7 edt Mon.\r
+                                   5-7  \r
+                                   5-8         "Made from >exl>include>plio2_fsb.incl.pl1,\r
+                                   5-9         "   modified 05/19/77  1743.9 edt Thu\r
+                                  5-10  \r
+                                  5-11  "\r
+                                  5-12  "      Structure fsb\r
+                                  5-13  "\r
+                        000442    5-14         equ     fsb_size,290\r
+                                  5-15  \r
+                                  5-16  \r
+                        000000    5-17         equ     fsb.switch,0            "LEVEL 2\r
+                                  5-18  \r
+                        400000    5-19         bool    fsb.zot,400000          "DU\r
+                        100000    5-20         bool    fsb.version_2,100000    "DU\r
+                        040000    5-21         bool    fsb.open,040000         "DU\r
+                        020000    5-22         bool    fsb.print,020000                "DU\r
+                        010000    5-23         bool    fsb.input,010000                "DU\r
+                        004000    5-24         bool    fsb.output,004000               "DU\r
+                        002000    5-25         bool    fsb.update,002000               "DU\r
+                        001000    5-26         bool    fsb.stream,001000               "DU\r
+                        000400    5-27         bool    fsb.notkeyed,000400             "DU\r
+                        000200    5-28         bool    fsb.record,000200               "DU\r
+                        000100    5-29         bool    fsb.sequential,000100   "DU\r
+                        000040    5-30         bool    fsb.direct,000040               "DU\r
+                        000020    5-31         bool    fsb.interactive,000020  "DU\r
+                        000010    5-32         bool    fsb.not_used_1,000010   "DU\r
+                        000004    5-33         bool    fsb.not_used_2,000004   "DU\r
+                        000002    5-34         bool    fsb.stringvalue,000002  "DU\r
+                        000001    5-35         bool    fsb.keyed,000001                "DU\r
+                        400000    5-36         bool    fsb.namelist,400000             "DL\r
+                        200000    5-37         bool    fsb.implementation,200000       "DL\r
+                        100000    5-38         bool    fsb.not_used_4,100000   "DL\r
+                        040000    5-39         bool    fsb.transmit_error,040000       "DL\r
+                        020000    5-40         bool    fsb.buffer_in_use,020000        "DL\r
+                        010000    5-41         bool    fsb.copy,010000         "DL\r
+                        004000    5-42         bool    fsb.detach,004000               "DL\r
+                        002000    5-43         bool    fsb.te_hold,002000              "DL\r
+                        001000    5-44         bool    fsb.not_used_5,001000   "DL\r
+                        000400    5-45         bool    fsb.internal,000400             "DL\r
+                        000200    5-46         bool    fsb.threaded,000200             "DL\r
+                        000100    5-47         bool    fsb.fsb_in_use,000100   "DL\r
+                        000040    5-48         bool    fsb.console,000040              "DL\r
+                        000020    5-49         bool    fsb.emptyline,000020    "DL\r
+                        000010    5-50         bool    fsb.iox_close,000010    "DL\r
+                        000004    5-51         bool    fsb.xxx4,000004         "DL\r
+                        000002    5-52         bool    fsb.xxx5,000002         "DL\r
+                        000001    5-53         bool    fsb.xxx6,000001         "DL\r
+                                  5-54  \r
+                        000001    5-55         equ     fsb.nono,1              "LEVEL 2\r
+                                  5-56  \r
+                        400000    5-57         bool    fsb.bit_string,400000   "DU\r
+                        200000    5-58         bool    fsb.not_used_3,200000   "DU\r
+                        100000    5-59         bool    fsb.read,100000         "DU\r
+                        040000    5-60         bool    fsb.write,040000                "DU\r
+                        020000    5-61         bool    fsb.rewrite,020000              "DU\r
+                        010000    5-62         bool    fsb.delete,010000               "DU\r
+                        004000    5-63         bool    fsb.locate,004000               "DU\r
+                        002000    5-64         bool    fsb.key,002000          "DU\r
+                        001000    5-65         bool    fsb.keyto,001000                "DU\r
+                        000400    5-66         bool    fsb.keyfrom,000400              "DU\r
+                        000200    5-67         bool    fsb.set,000200          "DU\r
+                        000100    5-68         bool    fsb.into,000100         "DU\r
+                        000040    5-69         bool    fsb.ignore,000040               "DU\r
+                        000020    5-70         bool    fsb.from,000020         "DU\r
+                        000010    5-71         bool    fsb.nofrom,000010               "DU\r
+                        000004    5-72         bool    fsb.nokey,000004                "DU\r
+                        000002    5-73         bool    fsb.nokeyfrom,000002    "DU\r
+                        000001    5-74         bool    fsb.nolock,000001               "DU\r
+                                  5-75  \r
+                        000002    5-76         equ     fsb.lsep,2\r
+                        000003    5-77         equ     fsb.iocb_p,3\r
+                        000004    5-78         equ     fsb.blc,4\r
+                        000005    5-79         equ     fsb.bsize,5\r
+                        000006    5-80         equ     fsb.bptr,6\r
+                        000010    5-81         equ     fsb.bnc,8\r
+                        000011    5-82         equ     fsb.kol,9\r
+                        000012    5-83         equ     fsb.lsize,10\r
+                        000013    5-84         equ     fsb.lineno,11\r
+                        000014    5-85         equ     fsb.psize,12\r
+                        000015    5-86         equ     fsb.pageno,13\r
+                        000016    5-87         equ     fsb.limit,14\r
+                        000017    5-88         equ     fsb.lnzc,15\r
+                        000020    5-89         equ     fsb.filename,16         "DOUBLE\r
+                        000030    5-90         equ     fsb.title,24            "DOUBLE\r
+                        000040    5-91         equ     fsb.fsb_thread,32\r
+                        000042    5-92         equ     fsb.buffer,34\r
+                        000366    5-93         equ     fsb.path_name,246               "DOUBLE\r
+                        000440    5-94         equ     fsb.declared_attributes,288\r
+                                  5-95  \r
+                                  5-96  "      The following declarations were not created by cif:\r
+                        400000    5-97         bool    fsb.zot1,400000         "DU\r
+                        200000    5-98         bool    fsb.zot2,200000         "DU\r
+                                  5-99  \r
+                                 5-100       "END INCLUDE FILE plio2_fsb.incl.alm\r
+                                   196         include plio2_ps\r
+                                   6-1  \r
+                                   6-2  \r
+                                   6-3       "BEGIN INCLUDE FILE plio2_ps.incl.alm\r
+                                   6-4  \r
+                                   6-5         "Created 07/08/77  1352.7 edt Fri by convert_include_file,\r
+                                   6-6         "   Version of 03/21/77  1355.7 edt Mon.\r
+                                   6-7  \r
+                                   6-8         "Made from >exl>include>plio2_ps.incl.pl1,\r
+                                   6-9         "   modified 07/08/77  1352.7 edt Fri\r
+                                  6-10  \r
+                                  6-11  "\r
+                                  6-12  "      Structure ps\r
+                                  6-13  "\r
+                        000060    6-14         equ     ps_size,48\r
+                                  6-15  \r
+                                  6-16  \r
+                        000000    6-17         equ     ps.stack_frame_p,0\r
+                        000002    6-18         equ     ps.ST_top_p,2\r
+                        000004    6-19         equ     ps.ST_block_p,4\r
+                        000006    6-20         equ     ps.format_area_p,6\r
+                        000010    6-21         equ     ps.ss_list_p,8\r
+                        000012    6-22         equ     ps.ab_return,10         "LEVEL 2\r
+                                  6-23  \r
+                        000012    6-24         equ     ps.abret,10\r
+                        000020    6-25         equ     ps.source_p,16\r
+                        000022    6-26         equ     ps.special_list_p,18\r
+                        000024    6-27         equ     ps.copy_file_p,20\r
+                        000026    6-28         equ     ps.job,22                       "LEVEL 2\r
+                                  6-29  \r
+                        400000    6-30         bool    ps.explicit_file,400000 "DU\r
+                        200000    6-31         bool    ps.string,200000                "DU\r
+                        100000    6-32         bool    ps.varying_string,100000        "DU\r
+                        040000    6-33         bool    ps.data,040000          "DU\r
+                        020000    6-34         bool    ps.edit,020000          "DU\r
+                        010000    6-35         bool    ps.list,010000          "DU\r
+                        004000    6-36         bool    ps.get,004000           "DU\r
+                        002000    6-37         bool    ps.put,002000           "DU\r
+                        001000    6-38         bool    ps.page,001000          "DU\r
+                        000400    6-39         bool    ps.line,000400          "DU\r
+                        000200    6-40         bool    ps.skip,000200          "DU\r
+                        000100    6-41         bool    ps.copy,000100          "DU\r
+                        000040    6-42         bool    ps.p1p2,000040          "DU\r
+                        000020    6-43         bool    ps.bit_string,000020    "DU\r
+                        000010    6-44         bool    ps.char_string,000010   "DU\r
+                        000004    6-45         bool    ps.read,000004          "DU\r
+                        000002    6-46         bool    ps.write,000002         "DU\r
+                        000001    6-47         bool    ps.rewrite,000001               "DU\r
+                        400000    6-48         bool    ps.delete,400000                "DL\r
+                        200000    6-49         bool    ps.locate,200000                "DL\r
+                        100000    6-50         bool    ps.key,100000           "DL\r
+                        040000    6-51         bool    ps.keyto,040000         "DL\r
+                        020000    6-52         bool    ps.keyfrom,020000               "DL\r
+                        010000    6-53         bool    ps.set,010000           "DL\r
+                        004000    6-54         bool    ps.into,004000          "DL\r
+                        002000    6-55         bool    ps.ignore,002000                "DL\r
+                        001000    6-56         bool    ps.from,001000          "DL\r
+                        000003    6-57         equ     ps.version_shift,3\r
+                        000077    6-58         bool    ps.version_mask,000077\r
+                        000004    6-59         bool    ps.not_byte_buffer,000004       "DL\r
+                        000001    6-60         bool    ps.packed_ptr,000001    "DL\r
+                                  6-61  \r
+                        000027    6-62         equ     ps.number,23\r
+                        000030    6-63         equ     ps.value_p,24\r
+                        000032    6-64         equ     ps.descriptor,26\r
+                        000033    6-65         equ     ps.length,27\r
+                                  6-66  \r
+                        000034    6-67         equ     ps.top_half,28          "UPPER\r
+                        000034    6-68         equ     ps.offset,28            "LOWER\r
+                                  6-69  \r
+                        000035    6-70         equ     ps.prep,29\r
+                        000036    6-71         equ     ps.new_format,30\r
+                        000037    6-72         equ     ps.switch,31            "LEVEL 2\r
+                                  6-73  \r
+                        400000    6-74         bool    ps.first_field,400000   "DU\r
+                        200000    6-75         bool    ps.file,200000          "DU\r
+                        100000    6-76         bool    ps.transmit_error,100000        "DU\r
+                        040000    6-77         bool    ps.semi_sep,040000              "DU\r
+                                  6-78  \r
+                        000040    6-79         equ     ps.file_p,32\r
+                        000042    6-80         equ     ps.fsbp,34\r
+                        000044    6-81         equ     ps.auxp,36\r
+                        000046    6-82         equ     ps.fabp,38\r
+                        000050    6-83         equ     ps.fab2p,40\r
+                        000052    6-84         equ     ps.vp,42\r
+                        000054    6-85         equ     ps.descr,44\r
+                        000055    6-86         equ     ps.start_copy,45\r
+                        000056    6-87         equ     ps.quick_stream_storage,46      "LEVEL 2\r
+                                  6-88  \r
+                        000056    6-89         equ     ps.a_stored,46\r
+                        000057    6-90         equ     ps.q_stored,47\r
+                                  6-91  "      The following declaration was not created by cif:\r
+                        007700    6-92         bool    ps.version_mask_inplace,0007700 "don't shift with this mask\r
+                                  6-93  \r
+                                  6-94       "END INCLUDE FILE plio2_ps.incl.alm\r
+                                   197         include fortran_ps\r
+                                   7-1  "BEGIN INCLUDE FILE fortran_ps.incl.alm\r
+                                   7-2  "\r
+                                   7-3  " Created: 16 Dec 1977, D. Levin\r
+                                   7-4  "\r
+                                   7-5  "\r
+                                   7-6  "                   Fields in the user's ps.\r
+                                   7-7  "\r
+                        000010     7-8         equ     ft_ps.unit,8\r
+                        000024     7-9         equ     ft_ps.job_bits,20\r
+                        000026    7-10         equ     ft_ps.ele_desc_and_count,22\r
+                        000026    7-11         equ     ft_ps.element_desc,22\r
+                        000027    7-12         equ     ft_ps.element_count,23\r
+                        000030    7-13         equ     ft_ps.element_ptr,24\r
+                        000034    7-14         equ     ft_ps.data_words,28\r
+                                  7-15  "\r
+                                  7-16  "                   Fields in fortran I/O's ps.\r
+                                  7-17  "\r
+                        000000    7-18         equ     fio_ps.label_addr,0\r
+                        000002    7-19         equ     fio_ps.stack_frame_p,2\r
+                        000004    7-20         equ     fio_ps.label_index_addr,4\r
+                        000006    7-21         equ     fio_ps.job_bits_and_file,6\r
+                        000006    7-22         equ     fio_ps.job_bits,6\r
+                        000007    7-23         equ     fio_ps.file_number,7\r
+                        000010    7-24         equ     fio_ps.ele_desc_and_count,8\r
+                        000010    7-25         equ     fio_ps.element_desc,8\r
+                        000011    7-26         equ     fio_ps.element_count,9\r
+                        000012    7-27         equ     fio_ps.element_ptr,10\r
+                                  7-28  "\r
+                                  7-29  "  END INCLUDE FILE fortran_ps.incl.alm\r
+                                   198         include fortran_open_data\r
+                                   8-1  "      BEGIN INCLUDE FILE fortran_open_data.incl.alm 6/23/77 SHW\r
+                                   8-2  "\r
+                                   8-3  " Modified: 21 August 1981, CRD - insert blank field\r
+                                   8-4  " Modified: 7/7/77 D. Levin - insert status field\r
+                                   8-5  "\r
+                        000000     8-6         equ     fortran_open_data.specified,0\r
+                        000001     8-7         equ     fortran_open_data.status,1\r
+                        000002     8-8         equ     fortran_open_data.io_switch,2\r
+                        000003     8-9         equ     fortran_open_data.attach_desc,3\r
+                        000004    8-10         equ     fortran_open_data.filename,4\r
+                        000005    8-11         equ     fortran_open_data.mode,5\r
+                        000006    8-12         equ     fortran_open_data.access,6\r
+                        000007    8-13         equ     fortran_open_data.form,7\r
+                        000010    8-14         equ     fortran_open_data.max_rec_len,8\r
+                        000011    8-15         equ     fortran_open_data.binary,9\r
+                        000012    8-16         equ     fortran_open_data.prompt,10\r
+                        000013    8-17         equ     fortran_open_data.carriage,11\r
+                        000014    8-18         equ     fortran_open_data.defer,12\r
+                        000015    8-19         equ     fortran_open_data.blank,13\r
+                        000016    8-20         equ     fortran_open_data.char_str,14\r
+                                  8-21  \r
+                                  8-22  "      END INCLUDE FILE fortran_open_data.incl.alm\r
+                                   199         include fortran_inquire_data\r
+                                   9-1  " BEGIN INCLUDE FILE fortran_inquire_data.incl.alm \r
+                                   9-2  \r
+                                   9-3  " This include file describes the information passed between a fortran program\r
+                                   9-4  " and fortran_io_.  See also fortran_inquire_data.incl.pl1.\r
+                                   9-5  "\r
+                                   9-6  " Written 23 October 1981 by C R Davis.\r
+                                   9-7  \r
+                        000000     9-8         equ     ftn_inquire_data.specified,0\r
+                        000001     9-9         equ     ftn_inquire_data.unit,1\r
+                        000002    9-10         equ     ftn_inquire_data.filename,2\r
+                        000054    9-11         equ     ftn_inquire_data.access,44\r
+                        000056    9-12         equ     ftn_inquire_data.form,46\r
+                        000060    9-13         equ     ftn_inquire_data.recl,48\r
+                        000061    9-14         equ     ftn_inquire_data.blank,49\r
+                        000063    9-15         equ     ftn_inquire_data.exist,51\r
+                        000064    9-16         equ     ftn_inquire_data.opened,52\r
+                        000065    9-17         equ     ftn_inquire_data.number,53\r
+                        000066    9-18         equ     ftn_inquire_data.named,54\r
+                        000067    9-19         equ     ftn_inquire_data.name,55\r
+                        000071    9-20         equ     ftn_inquire_data.sequential,57\r
+                        000073    9-21         equ     ftn_inquire_data.formatted,59\r
+                        000075    9-22         equ     ftn_inquire_data.unformatted,61\r
+                        000077    9-23         equ     ftn_inquire_data.nextrec,63\r
+                        000100    9-24         equ     ftn_inquire_data.direct,64\r
+                                  9-25  \r
+                                  9-26  " END INCLUDE FILE fortran_inquire_data.incl.alm\r
+                                   200  "\r
+                        003162     201         segdef  alloc\r
+                        007727     202         segdef  alm_call\r
+                        007747     203         segdef  alm_entry\r
+                        007727     204         segdef  alm_operators_begin\r
+                        007771     205         segdef  alm_operators_end\r
+                        007733     206         segdef  alm_push\r
+                        007757     207         segdef  alm_return\r
+                        007765     208         segdef  alm_return_no_pop\r
+                        024730     209         segdef  alm_trace_operators_begin\r
+                        024751     210         segdef  alm_trace_operators_end\r
+                        000000     211         segdef  begin_pl1_operators\r
+                        011251     212         segdef  call_signal_\r
+                        012516     213         segdef  end_pl1_operators\r
+                        002473     214         segdef  entry_operators\r
+                        012434     215         segdef  entry_operators_end\r
+                        011365     216         segdef  fort_math_names\r
+                        016006     217         segdef  hfp_fort_math_names\r
+                        005633     218         segdef  forward_call\r
+                        011331     219         segdef  get_our_lp\r
+                        014146     220         segdef  hfp_operator_table\r
+                        001426     221         segdef  operator_table\r
+                        010440     222         segdef  plio4\r
+                        010454     223         segdef  put_return\r
+                        000243     224         segdef  tct_byte_0\r
+                        000443     225         segdef  tct_byte_1\r
+                        000643     226         segdef  tct_byte_2\r
+                        001043     227         segdef  tct_byte_3\r
+                        000233     228         segdef  tct_octal_040\r
+                        000227     229         segdef  tct_octal_060\r
+                        024730     230         segdef  trace_alm_entry\r
+                        020711     231         segdef  trace_entry_operators\r
+                        021570     232         segdef  trace_entry_operators_end\r
+                        017644     233         segdef  trace_operator_table\r
+                        023216     234         segdef  trace_hfp_operator_table\r
+                        005622     235         segdef  var_call\r
+                        001243     236         segdef  VLA_words_per_seg_\r
+                                   237  "\r
+                                   238  "      Definitions of variables used by operators.  Since all\r
+                                   239  "      of the operators execute using the stack frame of the\r
+                                   240  "      pl/1 program for their temporary storage, locations 8-15 & 32-63\r
+                                   241  "      of the pl/1 stack frame are reserved for operator use.\r
+                                   242  "\r
+                                   243  "      sp|6 has been reserved for probe.\r
+                                   244  "\r
+                        000040     245         equ     display_ptr,32\r
+                        000042     246         equ     descriptor_ptr,34\r
+                        000044     247         equ     linkage_ptr,36\r
+                        000046     248         equ     text_base_ptr,38\r
+                        000046     249         equ     tbp,38\r
+                        000050     250         equ     temp_pt,40              string register\r
+                        000052     251         equ     ps_ptr,42\r
+                        000054     252         equ     page,44\r
+                        000055     253         equ     temp_indicators,45\r
+                        000056     254         equ     double_temp,46\r
+                        000056     255         equ     cpu,46\r
+                        000056     256         equ     remainder,46\r
+                        000060     257         equ     temp_size,48\r
+                        000061     258         equ     extend_size,49\r
+                        000062     259         equ     bit_lg1,50              string register\r
+                        000063     260         equ     char_lg1,51             string register\r
+                        000063     261         equ     t3,51\r
+                        000064     262         equ     bit_or_char,52          string register\r
+                        000064     263         equ     t1,52\r
+                        000065     264         equ     bit_op,53\r
+                        000065     265         equ     t5,53\r
+                        000066     266         equ     cat_lg1,54\r
+                        000066     267         equ     t2,54\r
+                        000067     268         equ     qmask,55\r
+                        000070     269         equ     arg_list,56\r
+                        000070     270         equ     save_regs,56\r
+                        000070     271         equ     save_x01,56\r
+                        000070     272         equ     label_var,56\r
+                        000070     273         equ     complex,56              complex AQ\r
+                        000072     274         equ     temp2,58\r
+                        000074     275         equ     lv,60\r
+                        000074     276         equ     num,60\r
+                        000075     277         equ     lg2,61\r
+                        000076     278         equ     temp,62\r
+                        000077     279         equ     t4,63\r
+                        000077     280         equ     count,63\r
+                                   281  "\r
+                                   282  "      following locations used in stack extension by divide subroutine\r
+                                   283  "\r
+                        000040     284         equ     divide_extension_size,32\r
+                        000000     285         equ     qhat,0\r
+                        000001     286         equ     rhat,1\r
+                        000002     287         equ     carry,2\r
+                        000003     288         equ     carrya,3\r
+                        000004     289         equ     shift,4\r
+                        000005     290         equ     norm_shift,5\r
+                        000006     291         equ     div_temp,6\r
+                        000010     292         equ     dividend,8\r
+                        000016     293         equ     divisor,14\r
+                        000022     294         equ     quotient,18\r
+                        000030     295         equ     divide_lp,24\r
+                                   296  "\r
+                        001400     297         bool    rpd_bits,001400 bits for RPD instruction (A,B)\r
+                                   298  "\r
+                        000040     299         bool    blank,40\r
+                                   300  "\r
+                                   301  "      Definitions related to Hexadecimal Floating Point (HFP) mode:\r
+                                   302  "\r
+                        000010     303         bool    HFP_mask,000010 mask for bit in IR that sets HFP mode\r
+                        003700     304         bool    M2.0H,003700    yields HFP -2.0 under 'du' modification\r
+                        001400     305         bool    M0.5H,001400    yields HFP -0.5 under 'du' modification\r
+                        400000     306         bool    P0.0H,400000    yields HFP +0.0 under 'du' modification\r
+                        000400     307         bool    P0.5H,000400    yields HFP +0.5 under 'du' modification\r
+                        002040     308         bool    P1.0H,002040    yields HFP +1.0 under 'du' modification\r
+                        002100     309         bool    P2.0H,002100    yields HFP +2.0 under 'du' modification\r
+                                   310  "\f                             \r
+                                   311  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                   312  "\r
+                                   313  "      MACROS USED IN THIS PROGRAM\r
+                                   314  "\r
+                                   315  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                   316  \r
+                                   317  "      Macro to load PR4 with ptr to linkage section of pl1_operators_.\r
+                                   318  "      PR7 is set to the base of the stack.  The AQ is effectively clobbered.\r
+                                   319  "      A subroutine of the same name also exists, when speed is not critical.\r
+                                   320  "\r
+                                   321         macro   get_our_lp\r
+                              1    322         epbpsb  sp|0            make sure sb is set up\r
+                              2    323         epaq    *               get ptr to ourselves\r
+                              3    324         lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+                              4    325         &end\r
+                                   326  "\r
+                                   327  "      Macro to load AU with the complement of the stack frame offset.\r
+                                   328  "\r
+                                   329         macro   get_stack_offset\r
+                              1    330         eaa     sp|0            get offset of stack frame in au\r
+                              2    331         era     mask_bit_one    form 2's complement of whole a-reg\r
+                              3    332         adla    1,dl            w/o overflow\r
+                              4    333         &end\r
+                                   334  "\r
+                                   335  "      The following macro (transfer_vector) is used to duplicate the transfer vector\r
+                                   336  "      and the constants and code which preceed it for the trace programs. All labels\r
+                                   337  "      in the macro should be preceeded by "&1" in order to eliminate duplicate labels.\r
+                                   338  "\r
+                                   339  "      Any operators which are to be different for the trace vector should have\r
+                                   340  "      the target of the transfer preceeded by "&1".\r
+                                   341  "\r
+                                   342  \r
+                                   343         macro   transfer_vector\r
+                              1    344  "\r
+                              2    345  " Due to the presence of double-word constants (at bit_mask and mask_bit)\r
+                              3    346  " these instructions must presently begin on an even-word boundary.\r
+                              4    347  " Note that if an odd number  of words is added to the front of the\r
+                              5    348  " operator_table region, then the following even pseudo-op must be\r
+                              6    349  " changed to an odd pseudo-op. If you forget, an assembly error will\r
+                              7    350  " result (due to clever divide-by-zero, below).\r
+                              8    351  "\r
+                              9    352         even\r
+                             10    353  "\r
+                             11    354  " The following section, from location 0 to label operator_table, is referenced\r
+                             12    355  " directly from PL/1 programs by means of offsets of the form ap|-n (ap pointing\r
+                             13    356  " at pl1_operators_$operator_table).  For this reason, the order of the\r
+                             14    357  " following instructions must not be changed.  Any new coding must be placed at\r
+                             15    358  " the FRONT of the segment.\r
+                             16    359  "\r
+                             17    360  " This table translates a bit number between 0 and 35 to a char number\r
+                             18    361  " between 0 and 3.\r
+                             19    362  "\r
+                             20    363         even\r
+                             21    364  &1&2bitno_to_charno_table:\r
+                             22    365         dup     9\r
+                             23    366         dec     0\r
+                             24    367         dupend\r
+                             25    368         dup     9\r
+                             26    369         dec     1\r
+                             27    370         dupend\r
+                             28    371         dup     9\r
+                             29    372         dec     2\r
+                             30    373         dupend\r
+                             31    374         dup     9\r
+                             32    375         dec     3\r
+                             33    376         dupend\r
+                             34    377  "\r
+                             35    378  "      The following tables are for use with the TCT instruction.\r
+                             36    379  "      Any single, given, character can be searched for using these\r
+                             37    380  "      tables.\r
+                             38    381  "\r
+                             39    382         dup     115\r
+                             40    383         dec     -1\r
+                             41    384         dupend\r
+                             42    385  "\r
+                             43    386  &1&2tct_octal_060:\r
+                             44    387         dup     4\r
+                             45    388         dec     -1\r
+                             46    389         dupend\r
+                             47    390  "\r
+                             48    391  &1&2tct_octal_040:\r
+                             49    392         dup     8\r
+                             50    393         dec     -1\r
+                             51    394         dupend\r
+                             52    395  &1&2tct_byte_0:\r
+                             53    396         vfd     9/0,9/-1,9/-1,9/-1\r
+                             54    397         dup     127\r
+                             55    398         dec     -1\r
+                             56    399         dupend\r
+                             57    400  "\r
+                             58    401  &1&2tct_byte_1:\r
+                             59    402         vfd     9/-1,9/0,9/-1,9/-1\r
+                             60    403         dup     127\r
+                             61    404         dec     -1\r
+                             62    405         dupend\r
+                             63    406  "\r
+                             64    407  &1&2tct_byte_2:\r
+                             65    408         vfd     9/-1,9/-1,9/0,9/-1\r
+                             66    409         dup     127\r
+                             67    410         dec     -1\r
+                             68    411         dupend\r
+                             69    412  "\r
+                             70    413  &1&2tct_byte_3:\r
+                             71    414         vfd     9/-1,9/-1,9/-1,9/0\r
+                             72    415         dup     127\r
+                             73    416         dec     -1\r
+                             74    417         dupend\r
+                             75    418  "\r
+                             76    419  "      The number of words per segment of a FORTRAN Very Large Array.\r
+                             77    420  "\r
+                             78    421  &1&2VLA_words_per_seg_:\r
+                             79    422         vfd     36/256*1024\r
+                             80    423  "\r
+                             81    424  "      table of csl's for use by bool builtin function\r
+                             82    425  "\r
+                             83    426  &1&2csl_vector:\r
+                             84    427         csl     (pr,rl),(pr,rl),bool(0)\r
+                             85    428         csl     (pr,rl),(pr,rl),bool(1)\r
+                             86    429         csl     (pr,rl),(pr,rl),bool(2)\r
+                             87    430         csl     (pr,rl),(pr,rl),bool(3)\r
+                             88    431         csl     (pr,rl),(pr,rl),bool(4)\r
+                             89    432         csl     (pr,rl),(pr,rl),bool(5)\r
+                             90    433         csl     (pr,rl),(pr,rl),bool(6)\r
+                             91    434         csl     (pr,rl),(pr,rl),bool(7)\r
+                             92    435         csl     (pr,rl),(pr,rl),bool(10)\r
+                             93    436         csl     (pr,rl),(pr,rl),bool(11)\r
+                             94    437         csl     (pr,rl),(pr,rl),bool(12)\r
+                             95    438         csl     (pr,rl),(pr,rl),bool(13)\r
+                             96    439         csl     (pr,rl),(pr,rl),bool(14)\r
+                             97    440         csl     (pr,rl),(pr,rl),bool(15)\r
+                             98    441         csl     (pr,rl),(pr,rl),bool(16)\r
+                             99    442         csl     (pr,rl),(pr,rl),bool(17)\r
+                            100    443  "\r
+                            101    444  "      shift table for character offset\r
+                            102    445  "\r
+                            103    446  &1&2co_to_bo:  dec     0,9b17,18b17,27b17\r
+                            104    447  "\r
+                            105    448  "      shift table for half word offset\r
+                            106    449  "\r
+                            107    450  &1&2ho_to_bo:  dec     0,18b17\r
+                            108    451  "\r
+                            109    452  "      store table from a, 9 bit bytes, character offset\r
+                            110    453  "                              OFFSET  SIZE\r
+                            111    454  "\r
+                            112    455  &1&2store_a9_co:\r
+                            113    456         stba    bp|0,40         0       1\r
+                            114    457         stba    bp|0,20         1\r
+                            115    458         stba    bp|0,10         2\r
+                            116    459         stba    bp|0,04         3\r
+                            117    460         stba    bp|0,60         0       2\r
+                            118    461         stba    bp|0,30         1\r
+                            119    462         stba    bp|0,14         2\r
+                            120    463         stba    bp|0,04         3\r
+                            121    464         stba    bp|0,70         0       3\r
+                            122    465         stba    bp|0,34         1\r
+                            123    466         stba    bp|0,14         2\r
+                            124    467         stba    bp|0,04         3\r
+                            125    468         sta     bp|0            0       4\r
+                            126    469         stba    bp|0,34         1\r
+                            127    470         stba    bp|0,14         2\r
+                            128    471         stba    bp|0,04         3\r
+                            129    472         sta     bp|0            0       5\r
+                            130    473         stba    bp|0,34         1\r
+                            131    474         stba    bp|0,14         2\r
+                            132    475         stba    bp|0,04         3\r
+                            133    476  "\r
+                            134    477  "      store table from q, 9 bit bytes, character offset\r
+                            135    478  "                              OFFSET  SIZE\r
+                            136    479  "\r
+                            137    480  &1&2store_q9_co:\r
+                            138    481         nop     0,dl            0       2\r
+                            139    482         nop     0,dl            1\r
+                            140    483         nop     0,dl            2\r
+                            141    484         stbq    bp|1,40         3\r
+                            142    485         nop     0,dl            0       3\r
+                            143    486         nop     0,dl            1\r
+                            144    487         stbq    bp|1,40         2\r
+                            145    488         stbq    bp|1,60         3\r
+                            146    489         nop     0,dl            0       4\r
+                            147    490         stbq    bp|1,40         1\r
+                            148    491         stbq    bp|1,60         2\r
+                            149    492         stbq    bp|1,70         3\r
+                            150    493         stbq    bp|1,40         0       5\r
+                            151    494         stbq    bp|1,60         1\r
+                            152    495         stbq    bp|1,70         2\r
+                            153    496         stq     bp|1            3\r
+                            154    497  "\r
+                            155    498  "      store table from a, 9 bit bytes, half word offset\r
+                            156    499  "                              OFFSET  SIZE\r
+                            157    500  "\r
+                            158    501  &1&2store_a9_ho:\r
+                            159    502         stba    bp|0,40         0       1\r
+                            160    503         stba    bp|0,10         1\r
+                            161    504         stba    bp|0,60         0       2\r
+                            162    505         stba    bp|0,14         1\r
+                            163    506         stba    bp|0,70         0       3\r
+                            164    507         stba    bp|0,14         1\r
+                            165    508         sta     bp|0            0       4\r
+                            166    509         stba    bp|0,14         1\r
+                            167    510         sta     bp|0            0       5\r
+                            168    511         stba    bp|0,14         1\r
+                            169    512         sta     bp|0            0       6\r
+                            170    513         stba    bp|0,14         1\r
+                            171    514  "\r
+                            172    515  "      store table from q, 9 bit bytes, half word offset\r
+                            173    516  "                              OFFSET  SIZE\r
+                            174    517  "\r
+                            175    518  &1&2store_q9_ho:\r
+                            176    519         nop     0,dl            0       2\r
+                            177    520         nop     0,dl            1\r
+                            178    521         nop     0,dl            0       3\r
+                            179    522         stbq    bp|1,40         1\r
+                            180    523         nop     0,dl            0       4\r
+                            181    524         stbq    bp|1,60         1\r
+                            182    525         stbq    bp|1,40         0       5\r
+                            183    526         stbq    bp|1,70         1\r
+                            184    527         stbq    bp|1,60         0       6\r
+                            185    528         stq     bp|1            1\r
+                            186    529  "\r
+                            187    530  "      store table from a, 6 bit bytes, half word offset\r
+                            188    531  "                              OFFSET  SIZE\r
+                            189    532  "\r
+                            190    533  &1&2store_a6_ho:\r
+                            191    534         stca    bp|0,40         0       1\r
+                            192    535         stca    bp|0,04         1\r
+                            193    536         stca    bp|0,60         0       2\r
+                            194    537         stca    bp|0,06         1\r
+                            195    538         stca    bp|0,70         0       3\r
+                            196    539         stca    bp|0,07         1\r
+                            197    540         stca    bp|0,74         0       4\r
+                            198    541         stca    bp|0,07         1\r
+                            199    542         stca    bp|0,76         0       5\r
+                            200    543         stca    bp|0,07         1\r
+                            201    544         sta     bp|0            0       6\r
+                            202    545         stca    bp|0,07         1\r
+                            203    546         sta     bp|0            0       7\r
+                            204    547         stca    bp|0,07         1\r
+                            205    548         sta     bp|0            0       8\r
+                            206    549         stca    bp|0,07         1\r
+                            207    550         sta     bp|0            0       9\r
+                            208    551         stca    bp|0,07         1\r
+                            209    552  "\r
+                            210    553  "      store table from q, 6 bit bytes, half word offset\r
+                            211    554  "                              OFFSET  SIZE\r
+                            212    555  "\r
+                            213    556  &1&2store_q6_ho:\r
+                            214    557         nop     0,dl            0       2\r
+                            215    558         nop     0,dl            1\r
+                            216    559         nop     0,dl            0       3\r
+                            217    560         nop     0,dl            1\r
+                            218    561         nop     0,dl            0       4\r
+                            219    562         stcq    bp|1,40         1\r
+                            220    563         nop     0,dl            0       5\r
+                            221    564         stcq    bp|1,60         1\r
+                            222    565         nop     0,dl            0       6\r
+                            223    566         stcq    bp|1,70         1\r
+                            224    567         stcq    bp|1,40         0       7\r
+                            225    568         stcq    bp|1,74         1\r
+                            226    569         stcq    bp|1,60         0       8\r
+                            227    570         stcq    bp|1,76         1\r
+                            228    571         stcq    bp|1,70         0       9\r
+                            229    572         stq     bp|1            1\r
+                            230    573  "\r
+                            231    574  " THE FOLLOWING SECTION IS DIRECTLY REFERENCED FROM PL/1 PROGRAMS BY MEANS OF\r
+                            232    575  " ap|offset.  FOR THIS REASON, THE ORDER OF THE FOLLOWING INSTRUCTIONS MUST\r
+                            233    576  " NOT BE CHANGED.\r
+                            234    577  "\r
+                            235    578  &1&2operator_table:\r
+                            236    579  &1&2bit_mask:\r
+                            237    580         vfd     0/-1,72/0\r
+                            238    581         vfd     1/-1,71/0\r
+                            239    582         vfd     2/-1,70/0\r
+                            240    583         vfd     3/-1,69/0\r
+                            241    584         vfd     4/-1,68/0\r
+                            242    585         vfd     5/-1,67/0\r
+                            243    586         vfd     6/-1,66/0\r
+                            244    587         vfd     7/-1,65/0\r
+                            245    588         vfd     8/-1,64/0\r
+                            246    589         vfd     9/-1,63/0\r
+                            247    590         vfd     10/-1,62/0\r
+                            248    591         vfd     11/-1,61/0\r
+                            249    592         vfd     12/-1,60/0\r
+                            250    593         vfd     13/-1,59/0\r
+                            251    594         vfd     14/-1,58/0\r
+                            252    595         vfd     15/-1,57/0\r
+                            253    596         vfd     16/-1,56/0\r
+                            254    597         vfd     17/-1,55/0\r
+                            255    598         vfd     18/-1,54/0\r
+                            256    599         vfd     19/-1,53/0\r
+                            257    600         vfd     20/-1,52/0\r
+                            258    601         vfd     21/-1,51/0\r
+                            259    602         vfd     22/-1,50/0\r
+                            260    603         vfd     23/-1,49/0\r
+                            261    604         vfd     24/-1,48/0\r
+                            262    605         vfd     25/-1,47/0\r
+                            263    606         vfd     26/-1,46/0\r
+                            264    607         vfd     27/-1,45/0\r
+                            265    608         vfd     28/-1,44/0\r
+                            266    609         vfd     29/-1,43/0\r
+                            267    610         vfd     30/-1,42/0\r
+                            268    611         vfd     31/-1,41/0\r
+                            269    612         vfd     32/-1,40/0\r
+                            270    613         vfd     33/-1,39/0\r
+                            271    614         vfd     34/-1,38/0\r
+                            272    615         vfd     35/-1,37/0\r
+                            273    616  &1&2ones:      vfd     36/-1,36/0\r
+                            274    617         vfd     36/-1,1/-1,35/0\r
+                            275    618         vfd     36/-1,2/-1,34/0\r
+                            276    619         vfd     36/-1,3/-1,33/0\r
+                            277    620         vfd     36/-1,4/-1,32/0\r
+                            278    621         vfd     36/-1,5/-1,31/0\r
+                            279    622         vfd     36/-1,6/-1,30/0\r
+                            280    623         vfd     36/-1,7/-1,29/0\r
+                            281    624         vfd     36/-1,8/-1,28/0\r
+                            282    625         vfd     36/-1,9/-1,27/0\r
+                            283    626         vfd     36/-1,10/-1,26/0\r
+                            284    627         vfd     36/-1,11/-1,25/0\r
+                            285    628         vfd     36/-1,12/-1,24/0\r
+                            286    629         vfd     36/-1,13/-1,23/0\r
+                            287    630         vfd     36/-1,14/-1,22/0\r
+                            288    631         vfd     36/-1,15/-1,21/0\r
+                            289    632         vfd     36/-1,16/-1,20/0\r
+                            290    633         vfd     36/-1,17/-1,19/0\r
+                            291    634         vfd     36/-1,18/-1,18/0\r
+                            292    635         vfd     36/-1,19/-1,17/0\r
+                            293    636         vfd     36/-1,20/-1,16/0\r
+                            294    637         vfd     36/-1,21/-1,15/0\r
+                            295    638         vfd     36/-1,22/-1,14/0\r
+                            296    639         vfd     36/-1,23/-1,13/0\r
+                            297    640         vfd     36/-1,24/-1,12/0\r
+                            298    641         vfd     36/-1,25/-1,11/0\r
+                            299    642         vfd     36/-1,26/-1,10/0\r
+                            300    643         vfd     36/-1,27/-1,9/0\r
+                            301    644         vfd     36/-1,28/-1,8/0\r
+                            302    645         vfd     36/-1,29/-1,7/0\r
+                            303    646         vfd     36/-1,30/-1,6/0\r
+                            304    647         vfd     36/-1,31/-1,5/0\r
+                            305    648         vfd     36/-1,32/-1,4/0\r
+                            306    649         vfd     36/-1,33/-1,3/0\r
+                            307    650         vfd     36/-1,34/-1,2/0\r
+                            308    651         vfd     36/-1,35/-1,1/0\r
+                            309    652  "\r
+                            310    653  &1&2mask_bit:\r
+                            311    654         vfd     0/0,36/-1,36/-1\r
+                            312    655         vfd     1/0,35/-1,36/-1\r
+                            313    656         vfd     2/0,34/-1,36/-1\r
+                            314    657         vfd     3/0,33/-1,36/-1\r
+                            315    658         vfd     4/0,32/-1,36/-1\r
+                            316    659         vfd     5/0,31/-1,36/-1\r
+                            317    660         vfd     6/0,30/-1,36/-1\r
+                            318    661         vfd     7/0,29/-1,36/-1\r
+                            319    662         vfd     8/0,28/-1,36/-1\r
+                            320    663         vfd     9/0,27/-1,36/-1\r
+                            321    664         vfd     10/0,26/-1,36/-1\r
+                            322    665         vfd     11/0,25/-1,36/-1\r
+                            323    666         vfd     12/0,24/-1,36/-1\r
+                            324    667         vfd     13/0,23/-1,36/-1\r
+                            325    668         vfd     14/0,22/-1,36/-1\r
+                            326    669         vfd     15/0,21/-1,36/-1\r
+                            327    670         vfd     16/0,20/-1,36/-1\r
+                            328    671         vfd     17/0,19/-1,36/-1\r
+                            329    672         vfd     18/0,18/-1,36/-1\r
+                            330    673         vfd     19/0,17/-1,36/-1\r
+                            331    674         vfd     20/0,16/-1,36/-1\r
+                            332    675         vfd     21/0,15/-1,36/-1\r
+                            333    676         vfd     22/0,14/-1,36/-1\r
+                            334    677         vfd     23/0,13/-1,36/-1\r
+                            335    678         vfd     24/0,12/-1,36/-1\r
+                            336    679         vfd     25/0,11/-1,36/-1\r
+                            337    680         vfd     26/0,10/-1,36/-1\r
+                            338    681         vfd     27/0,9/-1,36/-1\r
+                            339    682         vfd     28/0,8/-1,36/-1\r
+                            340    683         vfd     29/0,7/-1,36/-1\r
+                            341    684         vfd     30/0,6/-1,36/-1\r
+                            342    685         vfd     31/0,5/-1,36/-1\r
+                            343    686         vfd     32/0,4/-1,36/-1\r
+                            344    687         vfd     33/0,3/-1,36/-1\r
+                            345    688         vfd     34/0,2/-1,36/-1\r
+                            346    689         vfd     35/0,1/-1,36/-1\r
+                            347    690         vfd     36/0,36/-1\r
+                            348    691  &1&2max_single_value:\r
+                            349    692         vfd     37/0,35/-1\r
+                            350    693         vfd     38/0,34/-1\r
+                            351    694         vfd     39/0,33/-1\r
+                            352    695         vfd     40/0,32/-1\r
+                            353    696         vfd     41/0,31/-1\r
+                            354    697         vfd     42/0,30/-1\r
+                            355    698         vfd     43/0,29/-1\r
+                            356    699         vfd     44/0,28/-1\r
+                            357    700         vfd     45/0,27/-1\r
+                            358    701         vfd     46/0,26/-1\r
+                            359    702         vfd     47/0,25/-1\r
+                            360    703         vfd     48/0,24/-1\r
+                            361    704         vfd     49/0,23/-1\r
+                            362    705         vfd     50/0,22/-1\r
+                            363    706         vfd     51/0,21/-1\r
+                            364    707         vfd     52/0,20/-1\r
+                            365    708         vfd     53/0,19/-1\r
+                            366    709         vfd     54/0,18/-1\r
+                            367    710         vfd     55/0,17/-1\r
+                            368    711         vfd     56/0,16/-1\r
+                            369    712         vfd     57/0,15/-1\r
+                            370    713         vfd     58/0,14/-1\r
+                            371    714         vfd     59/0,13/-1\r
+                            372    715         vfd     60/0,12/-1\r
+                            373    716         vfd     61/0,11/-1\r
+                            374    717         vfd     62/0,10/-1\r
+                            375    718         vfd     63/0,9/-1\r
+                            376    719         vfd     64/0,8/-1\r
+                            377    720         vfd     65/0,7/-1\r
+                            378    721         vfd     66/0,6/-1\r
+                            379    722         vfd     67/0,5/-1\r
+                            380    723         vfd     68/0,4/-1\r
+                            381    724         vfd     69/0,3/-1\r
+                            382    725         vfd     70/0,2/-1\r
+                            383    726         vfd     71/0,1/-1\r
+                            384    727  "\r
+                            385    728  &1&2blanks:    oct     040040040040,040040040040\r
+                            386    729         oct     000040040040,040040040040\r
+                            387    730         oct     000000040040,040040040040\r
+                            388    731         oct     000000000040,040040040040\r
+                            389    732         oct     000000000000,040040040040\r
+                            390    733         oct     000000000000,000040040040\r
+                            391    734         oct     000000000000,000000040040\r
+                            392    735         oct     000000000000,000000000040\r
+                            393    736  "\r
+                            394    737  &1&2ptr_mask:  oct     077777000077,777777077077 mask for use in ptr comparisions\r
+                            395    738  "\r
+                            396    739  "      operator to convert single fixed to double fixed\r
+                            397    740  "\r
+                            398    741         even\r
+                            399    742  &1&2fx1_to_fx2:\r
+                            400    743         llr     36\r
+                            401    744         lrs     36\r
+                            402    745  "\r
+                            403    746  "      operators to convert fixed to float\r
+                            404    747  "\r
+                            405    748         odd\r
+                            406    749  &1&2fx1_to_fl2:\r
+                            407    750         xed     &1&2fx1_to_fx2\r
+                            408    751  "\r
+                            409    752         even\r
+                            410    753  &1&2fx2_to_fl2:\r
+                            411    754         ife     &2,hfp_\r
+                            412    755         lde     =18b25,du               EAQ = unnormalized 2*float(number)\r
+                            413    756         fad     P0.0H,du                EAQ = 2*float(number)\r
+                            414    757         fmp     P0.5H,du                EAQ = float(number)\r
+                            415    758         tra     sp|tbp,*x0      return\r
+                            416    759         ifend\r
+                            417    760  \r
+                            418    761         ine     &2,hfp_\r
+                            419    762         lde     =71b25,du\r
+                            420    763         fad     =0.,du\r
+                            421    764         tra     sp|tbp,*0\r
+                            422    765         ifend\r
+                            423    766  "\r
+                            424    767  "      operator to reset next stack pointer\r
+                            425    768  "\r
+                            426    769         even\r
+                            427    770  &1&2reset_stack:\r
+                            428    771         ldx0    sp|5\r
+                            429    772         stx0    sp|stack_frame.next_sp+1\r
+                            430    773  "\r
+                            431    774  "      operators to convert indicators into relations\r
+                            432    775  "\r
+                            433    776  &1&2r_l_a:     tmi     true\r
+                            434    777         lda     0,dl\r
+                            435    778         tra     sp|tbp,*0\r
+                            436    779  "\r
+                            437    780  &1&2r_g_s:     tze     2,ic\r
+                            438    781         trc     true\r
+                            439    782         lda     0,dl\r
+                            440    783         tra     sp|tbp,*0\r
+                            441    784  "\r
+                            442    785  &1&2r_g_a:     tze     2,ic\r
+                            443    786         tpl     true\r
+                            444    787         lda     0,dl\r
+                            445    788         tra     sp|tbp,*0\r
+                            446    789  "\r
+                            447    790  &1&2r_l_s:     tnc     true\r
+                            448    791         lda     0,dl\r
+                            449    792         tra     sp|tbp,*0\r
+                            450    793  "\r
+                            451    794  &1&2r_e_as:    tze     true\r
+                            452    795         lda     0,dl\r
+                            453    796         tra     sp|tbp,*0\r
+                            454    797  "\r
+                            455    798  &1&2r_ne_as:   tnz     true\r
+                            456    799         lda     0,dl\r
+                            457    800         tra     sp|tbp,*0\r
+                            458    801  "\r
+                            459    802  &1&2r_le_a:    tmi     true\r
+                            460    803         tze     true\r
+                            461    804         lda     0,dl\r
+                            462    805         tra     sp|tbp,*0\r
+                            463    806  "\r
+                            464    807  &1&2r_ge_s:    trc     true\r
+                            465    808         lda     0,dl\r
+                            466    809         tra     sp|tbp,*0\r
+                            467    810  "\r
+                            468    811  &1&2r_ge_a:    tpl     true\r
+                            469    812         lda     0,dl\r
+                            470    813         tra     sp|tbp,*0\r
+                            471    814  "\r
+                            472    815  &1&2r_le_s:    tnc     true\r
+                            473    816         tze     true\r
+                            474    817         lda     0,dl\r
+                            475    818         tra     sp|tbp,*0\r
+                            476    819  "\r
+                            477    820  &1&2true:      lda     =o400000,du\r
+                            478    821         tra     sp|tbp,*0\r
+                            479    822  "\r
+                            480    823  "      operator to set stack ptr to that of block N static\r
+                            481    824  "      levels above the current block.  Entered with N in q.\r
+                            482    825  "      (should not be called with N = 0, but will work anyway.)\r
+                            483    826  "\r
+                            484    827  &1&2set_stack:\r
+                            485    828         tsx1    display_chase   get ptr to proper frame\r
+                            486    829         eppsp   bp|0            into sp\r
+                            487    830         tra     set_stack_extend        do three more instructions (added later\r
+                            488    831  "                              and since compiled code knows offsets in this\r
+                            489    832  "                              area, couldn't add the code inline)\r
+                            490    833  "\r
+                            491    834  "      tables to convert to bit offset ready to be ORed into pointer\r
+                            492    835  "\r
+                            493    836  &1&2mod2_tab:  dec     0,18b26\r
+                            494    837  "\r
+                            495    838  &1&2mod4_tab:  dec     0,9b26,18b26,27b26\r
+                            496    839  "\r
+                            497    840  "      transfer vector for operators not referenced directly\r
+                            498    841  "      by the pl/1 program.  new operators may be added at the\r
+                            499    842  "      end of the list only.\r
+                            500    843  "\r
+                            501    844  &1&2op_vector:\r
+                            502    845         tra     alloc_char_temp 0\r
+                            503    846         tra     alloc_bit_temp  1\r
+                            504    847         tra     alloc_temp      2\r
+                            505    848         tra     realloc_char_temp       3\r
+                            506    849         tra     realloc_bit_temp        4\r
+                            507    850         tra     save_string     5       obsolete\r
+                            508    851         tra     pk_to_unpk      6\r
+                            509    852         tra     unpk_to_pk      7\r
+                            510    853         tra     move_chars      8       obsolete\r
+                            511    854         tra     move_chars_aligned      9       obsolete\r
+                            512    855         tra     move_bits               10      obsolete\r
+                            513    856         tra     move_bits_aligned       11      obsolete\r
+                            514    857         tra     chars_move      12      obsolete\r
+                            515    858         tra     chars_move_aligned      13      obsolete\r
+                            516    859         tra     bits_move               14      obsolete\r
+                            517    860         tra     bits_move_aligned       15      obsolete\r
+                            518    861         tra     move_not_bits   16      obsolete\r
+                            519    862         tra     move_not_bits_aligned 17        obsolete\r
+                            520    863         tra     ext_and_1               18\r
+                            521    864         tra     ext_and_2               19\r
+                            522    865         tra     comp_bits               20\r
+                            523    866         tra     cpbs3           21      obsolete\r
+                            524    867         tra     cpbs3_aligned   22      obsolete\r
+                            525    868         tra     cpbs4           23      obsolete\r
+                            526    869         tra     cpcs_ext1               24\r
+                            527    870         tra     cpcs_ext2               25\r
+                            528    871         tra     cpbs_ext1               26\r
+                            529    872         tra     cpbs_ext2               27\r
+                            530    873         tra     store_string    28\r
+                            531    874         tra     cat_realloc_chars       29\r
+                            532    875         tra     cat_realloc_bits        30\r
+                            533    876         tra     cp_chars                31      obsolete\r
+                            534    877         tra     cp_chars_aligned        32      obsolete\r
+                            535    878         tra     cp_bits         33      obsolete\r
+                            536    879         tra     cp_bits_aligned 34      obsolete\r
+                            537    880         tra     enter_begin_block       35\r
+                            538    881         tra     leave_begin_block       36\r
+                            539    882         tra     call_ent_var_desc       37\r
+                            540    883         tra     call_ent_var    38\r
+                            541    884         tra     call_ext_in_desc        39\r
+                            542    885         tra     call_ext_in     40\r
+                            543    886         tra     call_ext_out_desc       41\r
+                            544    887         tra     call_ext_out    42\r
+                            545    888         tra     call_int_this_desc      43\r
+                            546    889         tra     call_int_this   44\r
+                            547    890         tra     call_int_other_desc     45\r
+                            548    891         tra     call_int_other  46\r
+                            549    892         tra     begin_return_mac        47\r
+                            550    893         tra     return_mac      48\r
+                            551    894         tra     cat_move_chars  49      obsolete\r
+                            552    895         tra     cat_move_chars_aligned 50       obsolete\r
+                            553    896         tra     cat_move_bits   51      obsolete\r
+                            554    897         tra     cat_move_bits_aligned 52        obsolete\r
+                            555    898         tra     cat_chars               53      obsolete\r
+                            556    899         tra     cat_chars_aligned       54      obsolete\r
+                            557    900         tra     cat_bits                55      obsolete\r
+                            558    901         tra     cat_bits_aligned        56      obsolete\r
+                            559    902         tra     set_chars               57      obsolete\r
+                            560    903         tra     set_chars_aligned       58      obsolete\r
+                            561    904         tra     set_bits                59      obsolete\r
+                            562    905         tra     set_bits_aligned        60      obsolete\r
+                            563    906         tra     and_bits                61      obsolete\r
+                            564    907         tra     and_bits_aligned        62      obsolete\r
+                            565    908         tra     or_bits         63      obsolete\r
+                            566    909         tra     or_bits_aligned 64      obsolete\r
+                            567    910         tra     move_label_var  65\r
+                            568    911         tra     make_label_var  66\r
+                            569    912         tra     &2fl2_to_fx1    67\r
+                            570    913         tra     &2fl2_to_fx2    68\r
+                            571    914         tra     longbs_to_fx2   69\r
+                            572    915         tra     tra_ext_1               70\r
+                            573    916         tra     tra_ext_2               71\r
+                            574    917         tra     alloc_auto_adj  72\r
+                            575    918         tra     longbs_to_bs18  73\r
+                            576    919         tra     stac_mac                74\r
+                            577    920         tra     sign_mac                75\r
+                            578    921         tra     bound_ck_signal 76\r
+                            579    922         tra     trans_sign_fx1  77\r
+                            580    923         tra     trans_sign_fl   78\r
+                            581    924         tra     copy_words      79      obsolete\r
+                            582    925         tra     mpfx2           80\r
+                            583    926         tra     mpfx3           81\r
+                            584    927         tra     copy_const      82      obsolete\r
+                            585    928         tra     copy_const_vt   83      obsolete\r
+                            586    929         tra     sr_check                84      obsolete\r
+                            587    930         tra     chars_move_vt   85      obsolete\r
+                            588    931         tra     chars_move_vta  86      obsolete\r
+                            589    932         tra     bits_move_vt    87      obsolete\r
+                            590    933         tra     bits_move_vta   88      obsolete\r
+                            591    934         tra     &2mdfl1         89\r
+                            592    935         tra     &2mdfl2         90\r
+                            593    936         tra     mdfx1           91\r
+                            594    937         tra     mdfx2           92\r
+                            595    938         tra     mdfx3           93\r
+                            596    939         tra     mdfx4           94\r
+                            597    940         tra     copy_double     95      obsolete\r
+                            598    941         tra     string_store    96      obsolete\r
+                            599    942         tra     get_chars               97      obsolete\r
+                            600    943         tra     get_bits                98      obsolete\r
+                            601    944         tra     pad_chars               99\r
+                            602    945         tra     pad_bits                100\r
+                            603    946         tra     signal_op               101\r
+                            604    947         tra     enable_op               102\r
+                            605    948         tra     index_chars     103     obsolete\r
+                            606    949         tra     index_chars_aligned     104     obsolete\r
+                            607    950         tra     index_bits      105     obsolete\r
+                            608    951         tra     index_bits_aligned      106     obsolete\r
+                            609    952         tra     exor_bits               107     obsolete\r
+                            610    953         tra     exor_bits_aligned       108     obsolete\r
+                            611    954         tra     set_bits_co     109     obsolete\r
+                            612    955         tra     set_bits_ho     110     obsolete\r
+                            613    956         tra     set_chars_co    111     obsolete\r
+                            614    957         tra     set_chars_ho    112     obsolete\r
+                            615    958         tra     string_store_co 113     obsolete\r
+                            616    959         tra     string_store_ho 114     obsolete\r
+                            617    960         tra     get_chars_co    115     obsolete\r
+                            618    961         tra     get_chars_ho    116     obsolete\r
+                            619    962         tra     get_bits_co     117     obsolete\r
+                            620    963         tra     get_bits_ho     118     obsolete\r
+                            621    964         tra     and_bits_co     119     obsolete\r
+                            622    965         tra     and_bits_ho     120     obsolete\r
+                            623    966         tra     or_bits_co      121     obsolete\r
+                            624    967         tra     or_bits_ho      122     obsolete\r
+                            625    968         tra     exor_bits_co    123     obsolete\r
+                            626    969         tra     exor_bits_ho    124     obsolete\r
+                            627    970         tra     cat_move_bits_co        125     obsolete\r
+                            628    971         tra     cat_move_bits_ho        126     obsolete\r
+                            629    972         tra     move_not_bits_co        127     obsolete\r
+                            630    973         tra     move_not_bits_ho        128     obsolete\r
+                            631    974         tra     move_bits_co    129     obsolete\r
+                            632    975         tra     move_bits_ho    130     obsolete\r
+                            633    976         tra     move_chars_co   131     obsolete\r
+                            634    977         tra     move_chars_ho   132     obsolete\r
+                            635    978         tra     cat_move_chars_co       133     obsolete\r
+                            636    979         tra     cat_move_chars_ho       134     obsolete\r
+                            637    980         tra     cat_chars_co    135     obsolete\r
+                            638    981         tra     cat_chars_ho    136     obsolete\r
+                            639    982         tra     cat_bits_co     137     obsolete\r
+                            640    983         tra     cat_bits_ho     138     obsolete\r
+                            641    984         tra     io_signal               139\r
+                            642    985         tra     index_cs_1      140     obsolete\r
+                            643    986         tra     index_cs_1_aligned      141     obsolete\r
+                            644    987         tra     &2fort_mdfl1    142\r
+                            645    988         tra     rfb1_to_cflb1   143\r
+                            646    989         tra     &2rfb2_to_cflb1 144\r
+                            647    990         tra     mpcfl1_1                145\r
+                            648    991         tra     mpcfl1_2                146\r
+                            649    992         tra     dvcfl1_1                147\r
+                            650    993         tra     dvcfl1_2                148\r
+                            651    994         tra     chars_move_vt_co        149     obsolete\r
+                            652    995         tra     chars_move_vt_ho        150     obsolete\r
+                            653    996         tra     chars_move_co   151     obsolete\r
+                            654    997         tra     chars_move_ho   152     obsolete\r
+                            655    998         tra     bits_move_vt_co 153     obsolete\r
+                            656    999         tra     bits_move_vt_ho 154     obsolete\r
+                            657   1000         tra     bits_move_co    155     obsolete\r
+                            658   1001         tra     bits_move_ho    156     obsolete\r
+                            659   1002         tra     cp_chars_co     157     obsolete\r
+                            660   1003         tra     cp_chars_ho     158     obsolete\r
+                            661   1004         tra     cp_bits_co      159     obsolete\r
+                            662   1005         tra     cp_bits_ho      160     obsolete\r
+                            663   1006         tra     cpbs3_co                161     obsolete\r
+                            664   1007         tra     cpbs3_ho                162     obsolete\r
+                            665   1008         tra     shorten_stack   163\r
+                            666   1009         tra     zero_bits               164     obsolete\r
+                            667   1010         tra     zero_bits_aligned       165     obsolete\r
+                            668   1011         tra     zero_bits_co    166     obsolete\r
+                            669   1012         tra     zero_bits_ho    167     obsolete\r
+                            670   1013         tra     blank_chars     168     obsolete\r
+                            671   1014         tra     blank_chars_aligned     169     obsolete\r
+                            672   1015         tra     blank_chars_co  170     obsolete\r
+                            673   1016         tra     blank_chars_ho  171     obsolete\r
+                            674   1017         tra     index_chars_co  172     obsolete\r
+                            675   1018         tra     index_chars_ho  173     obsolete\r
+                            676   1019         tra     index_bits_co   174     obsolete\r
+                            677   1020         tra     index_bits_ho   175     obsolete\r
+                            678   1021         tra     index_cs_1_co   176     obsolete\r
+                            679   1022         tra     index_cs_1_ho   177     obsolete\r
+                            680   1023         tra     index_bs_1      178     obsolete\r
+                            681   1024         tra     index_bs_1_aligned      179     obsolete\r
+                            682   1025         tra     index_bs_1_co   180     obsolete\r
+                            683   1026         tra     index_bs_1_ho   181     obsolete\r
+                            684   1027         arg     shift_bo                182     obsolete\r
+                            685   1028         tra     return_words    183\r
+                            686   1029         tra     return_bits     184     obsolete\r
+                            687   1030         tra     return_bits_co  185     obsolete\r
+                            688   1031         tra     return_bits_ho  186     obsolete\r
+                            689   1032         tra     return_bits_al  187     obsolete\r
+                            690   1033  &1&2entry_operators:\r
+                            691   1034         tra     &1ext_entry             188\r
+                            692   1035         tra     &1ext_entry_desc        189\r
+                            693   1036         tra     int_entry               190\r
+                            694   1037         tra     int_entry_desc  191\r
+                            695   1038         tra     val_entry               192\r
+                            696   1039         tra     val_entry_desc  193\r
+                            697   1040         tra     get_chars_aligned       194     obsolete\r
+                            698   1041         tra     get_bits_aligned        195     obsolete\r
+                            699   1042         tra     fetch_chars     196\r
+                            700   1043         tra     fetch_bits      197\r
+                            701   1044         tra     get_terminate   198\r
+                            702   1045         tra     <put_format_>|[put_terminate]   199\r
+                            703   1046         tra     put_data_aligned        200     obsolete\r
+                            704   1047         tra     get_list_aligned        201     obsolete\r
+                            705   1048         tra     get_edit_aligned        202     obsolete\r
+                            706   1049         tra     put_list_aligned        203     obsolete\r
+                            707   1050         tra     put_edit_aligned        204     obsolete\r
+                            708   1051         tra     <put_format_>|[stream_prep]     205\r
+                            709   1052         tra     <record_io_>|[record_io]                206\r
+                            710   1053         tra     open_file               207\r
+                            711   1054         tra     close_file      208\r
+                            712   1055         tra     put_data                209     obsolete\r
+                            713   1056         tra     put_data_co     210     obsolete\r
+                            714   1057         tra     put_data_ho     211     obsolete\r
+                            715   1058         tra     get_list                212     obsolete\r
+                            716   1059         tra     get_list_co     213     obsolete\r
+                            717   1060         tra     get_list_ho     214     obsolete\r
+                            718   1061         tra     get_edit                215     obsolete\r
+                            719   1062         tra     get_edit_co     216     obsolete\r
+                            720   1063         tra     get_edit_ho     217     obsolete\r
+                            721   1064         tra     put_list                218     obsolete\r
+                            722   1065         tra     put_list_co     219     obsolete\r
+                            723   1066         tra     put_list_ho     220     obsolete\r
+                            724   1067         tra     put_edit                221     obsolete\r
+                            725   1068         tra     put_edit_co     222     obsolete\r
+                            726   1069         tra     put_edit_ho     223     obsolete\r
+                            727   1070         tra     suffix_cs               224     obsolete\r
+                            728   1071         tra     suffix_bs               225     obsolete\r
+                            729   1072         tra     &2fl2_to_fxscaled       226\r
+                            730   1073         tra     trunc_fx1               227\r
+                            731   1074         tra     trunc_fx2               228\r
+                            732   1075         tra     ceil_fx1                229\r
+                            733   1076         tra     ceil_fx2                230\r
+                            734   1077         tra     &2ceil_fl               231\r
+                            735   1078         tra     floor_fx1               232\r
+                            736   1079         tra     floor_fx2               233\r
+                            737   1080         tra     &2floor_fl      234\r
+                            738   1081         tra     &2trunc_fl      235\r
+                            739   1082         tra     round_fx1               236\r
+                            740   1083         tra     round_fx2               237\r
+                            741   1084         tra     repeat          238\r
+                            742   1085         tra     make_bit_table  239     obsolete\r
+                            743   1086         tra     make_bit_table_al       240     obsolete\r
+                            744   1087         tra     make_bit_table_co       241     obsolete\r
+                            745   1088         tra     make_bit_table_ho       242     obsolete\r
+                            746   1089         tra     verify          243     obsolete\r
+                            747   1090         tra     verify_al               244     obsolete\r
+                            748   1091         tra     verify_co               245     obsolete\r
+                            749   1092         tra     verify_ho               246     obsolete\r
+                            750   1093         tra     const_verify    247     obsolete\r
+                            751   1094         tra     const_verify_al 248     obsolete\r
+                            752   1095         tra     const_verify_co 249     obsolete\r
+                            753   1096         tra     const_verify_ho 250     obsolete\r
+                            754   1097         tra     reverse_cs      251\r
+                            755   1098         tra     reverse_bs      252\r
+                            756   1099         tra     form_bit_table  253     obsolete\r
+                            757   1100         tra     form_bit_table_co       254     obsolete\r
+                            758   1101         tra     form_bit_table_ho       255     obsolete\r
+                            759   1102         tra     form_bit_table_al       256     obsolete\r
+                            760   1103         tra     chars_move_ck   257     obsolete\r
+                            761   1104         tra     chars_move_ck_co        258     obsolete\r
+                            762   1105         tra     chars_move_ck_ho        259     obsolete\r
+                            763   1106         tra     chars_move_ck_al        260     obsolete\r
+                            764   1107         tra     bits_move_ck    261     obsolete\r
+                            765   1108         tra     bits_move_ck_co 262     obsolete\r
+                            766   1109         tra     bits_move_ck_ho 263     obsolete\r
+                            767   1110         tra     bits_move_ck_al 264     obsolete\r
+                            768   1111         tra     size_check_fx1  265\r
+                            769   1112         tra     size_check_fx2  266\r
+                            770   1113         tra     signal_stringsize       267\r
+                            771   1114         tra     suffix_cs_ck    268     obsolete\r
+                            772   1115         tra     suffix_bs_ck    269     obsolete\r
+                            773   1116         tra     pointer_hard    270\r
+                            774   1117         tra     alm_call                271     special for alm\r
+                            775   1118         tra     alm_push                272     special for alm\r
+                            776   1119         tra     alm_return      273     special for alm\r
+                            777   1120         tra     alm_return_no_pop       274     special for alm\r
+                            778   1121         tra     &1alm_entry             275     special for alm\r
+                            779   1122         tra     packed_to_bp    276     obsolete\r
+                            780   1123         tra     return_chars    277     obsolete\r
+                            781   1124         tra     return_chars_co 278     obsolete\r
+                            782   1125         tra     return_chars_ho 279     obsolete\r
+                            783   1126         tra     return_chars_aligned 280        obsolete\r
+                            784   1127         tra     rpd_odd_lp_bp   281     obsolete\r
+                            785   1128         tra     rpd_odd_bp_lp   282     obsolete\r
+                            786   1129         tra     rpd_even_lp_bp  283     obsolete\r
+                            787   1130         tra     rpd_even_bp_lp  284     obsolete\r
+                            788   1131         tra     offset_easy     285\r
+                            789   1132         tra     offset_easy_pk  286\r
+                            790   1133         tra     offset_hard     287\r
+                            791   1134         tra     offset_hard_pk  288\r
+                            792   1135         tra     pointer_hard_pk 289\r
+                            793   1136         tra     pointer_easy    290\r
+                            794   1137         tra     pointer_easy_pk 291\r
+                            795   1138         tra     round_fl                292\r
+                            796   1139         tra     enable_file     293\r
+                            797   1140         tra     revert_file     294\r
+                            798   1141         tra     alloc_block     295\r
+                            799   1142         tra     free_block      296\r
+                            800   1143         tra     push_ctl_data   297\r
+                            801   1144         tra     push_ctl_desc   298\r
+                            802   1145         tra     pop_ctl_data    299\r
+                            803   1146         tra     pop_ctl_desc    300\r
+                            804   1147         tra     allocation      301\r
+                            805   1148         tra     set_chars_eis   302\r
+                            806   1149         tra     set_bits_eis    303\r
+                            807   1150         tra     index_chars_eis 304\r
+                            808   1151         tra     index_bits_eis  305\r
+                            809   1152         tra     index_cs_1_eis  306\r
+                            810   1153         tra     index_bs_1_eis  307\r
+                            811   1154         tra     return_chars_eis        308\r
+                            812   1155         tra     return_bits_eis 309\r
+                            813   1156         tra     put_data_eis    310\r
+                            814   1157         tra     <put_format_>|[put_edit_eis]    311\r
+                            815   1158         tra     put_list_eis    312\r
+                            816   1159         tra     <put_format_>|[get_edit_eis]    313\r
+                            817   1160         tra     get_list_eis    314\r
+                            818   1161         tra     verify_eis      315\r
+                            819   1162         tra     search_eis      316\r
+                            820   1163         tra     fortran_read    317\r
+                            821   1164         tra     fortran_write   318\r
+                            822   1165         tra     fortran_manip   319\r
+                            823   1166         tra     fortran_scalar_xmit     320\r
+                            824   1167         tra     fortran_array_xmit      321\r
+                            825   1168         tra     fortran_terminate       322\r
+                            826   1169         tra     <any_to_any_>|[real_to_real_round_]     323\r
+                            827   1170         tra     <any_to_any_>|[real_to_real_truncate_]  324\r
+                            828   1171         tra     <any_to_any_>|[any_to_any_round_]       325\r
+                            829   1172         tra     <any_to_any_>|[any_to_any_truncate_]    326\r
+                            830   1173         tra     unpack_picture  327\r
+                            831   1174         tra     pack_picture    328\r
+                            832   1175         tra     divide_fx1      329\r
+                            833   1176         tra     divide_fx2      330\r
+                            834   1177         tra     divide_fx3      331\r
+                            835   1178         tra     divide_fx4      332\r
+                            836   1179         tra     scaled_mod_fx1  333\r
+                            837   1180         tra     scaled_mod_fx2  334\r
+                            838   1181         tra     scaled_mod_fx3  335\r
+                            839   1182         tra     scaled_mod_fx4  336\r
+                            840   1183         tra     translate_2     337\r
+                            841   1184         tra     translate_3     338\r
+                            842   1185         tra     <square_root_>|[&2square_root_]         339\r
+                            843   1186         tra     <sine_>|[&2sine_radians_]               340\r
+                            844   1187         tra     <sine_>|[&2sine_degrees_]               341\r
+                            845   1188         tra     <sine_>|[&2cosine_radians_]             342\r
+                            846   1189         tra     <sine_>|[&2cosine_degrees_]             343\r
+                            847   1190         tra     <tangent_>|[&2tangent_radians_] 344\r
+                            848   1191         tra     <tangent_>|[&2tangent_degrees_] 345\r
+                            849   1192         tra     <arc_sine_>|[&2arc_sine_radians_]       346\r
+                            850   1193         tra     <arc_sine_>|[&2arc_sine_degrees_]       347\r
+                            851   1194         tra     <arc_sine_>|[&2arc_cosine_radians_]     348\r
+                            852   1195         tra     <arc_sine_>|[&2arc_cosine_degrees_]     349\r
+                            853   1196         tra     <arc_tangent_>|[&2arc_tangent_radians_] 350\r
+                            854   1197         tra     <arc_tangent_>|[&2arc_tangent_degrees_] 351\r
+                            855   1198         tra     <logarithm_>|[&2log_base_2_]            352\r
+                            856   1199         tra     <logarithm_>|[&2log_base_e_]            353\r
+                            857   1200         tra     <logarithm_>|[&2log_base_10_]           354\r
+                            858   1201         tra     <exponential_>|[&2exponential_]         355\r
+                            859   1202         tra     <double_square_root_>|[&2double_square_root_]   356\r
+                            860   1203         tra     <double_sine_>|[&2double_sine_radians_] 357\r
+                            861   1204         tra     <double_sine_>|[&2double_sine_degrees_] 358\r
+                            862   1205         tra     <double_sine_>|[&2double_cosine_radians_]       359\r
+                            863   1206         tra     <double_sine_>|[&2double_cosine_degrees_]       360\r
+                            864   1207         tra     <double_tangent_>|[&2double_tangent_radians_]   361\r
+                            865   1208         tra     <double_tangent_>|[&2double_tangent_degrees_]   362\r
+                            866   1209         tra     <double_arc_sine_>|[&2double_arc_sine_radians_] 363\r
+                            867   1210         tra     <double_arc_sine_>|[&2double_arc_sine_degrees_] 364\r
+                            868   1211         tra     <double_arc_sine_>|[&2double_arc_cosine_radians_]       365\r
+                            869   1212         tra     <double_arc_sine_>|[&2double_arc_cosine_degrees_]       366\r
+                            870   1213         tra     <double_arc_tangent_>|[&2double_arc_tan_radians_]       367\r
+                            871   1214         tra     <double_arc_tangent_>|[&2double_arc_tan_degrees_]       368\r
+                            872   1215         tra     <double_logarithm_>|[&2double_log_base_2_]      369\r
+                            873   1216         tra     <double_logarithm_>|[&2double_log_base_e_]      370\r
+                            874   1217         tra     <double_logarithm_>|[&2double_log_base_10_]     371\r
+                            875   1218         tra     <double_exponential_>|[&2double_exponential_]   372\r
+                            876   1219         tra     <arc_tangent_>|[&2arc_tangent_radians_2_]       373\r
+                            877   1220         tra     <arc_tangent_>|[&2arc_tangent_degrees_2_]       374\r
+                            878   1221         tra     <double_arc_tangent_>|[&2double_arc_tan_radians_2_]     375\r
+                            879   1222         tra     <double_arc_tangent_>|[&2double_arc_tan_degrees_2_]     376\r
+                            880   1223         tra     <power_>|[&2integer_power_single_]      377\r
+                            881   1224         tra     <power_>|[&2integer_power_double_]      378\r
+                            882   1225         tra     <power_>|[&2double_power_single_]       379\r
+                            883   1226         tra     <power_>|[&2double_power_double_]       380\r
+                            884   1227         tra     <power_integer_>|[&2double_power_integer_]      381\r
+                            885   1228         tra     <power_>|[&2single_power_single_]       382\r
+                            886   1229         tra     <power_integer_>|[&2single_power_integer_]      383\r
+                            887   1230         tra     <integer_power_integer_>|[integer_power_integer_]       384\r
+                            888   1231         tra     signal_size     385\r
+                            889   1232         tra     &1ss_ext_entry  386\r
+                            890   1233         tra     &1ss_ext_entry_desc     387\r
+                            891   1234         tra     ss_int_entry    388\r
+                            892   1235         tra     ss_int_entry_desc       389\r
+                            893   1236         tra     ss_val_entry    390\r
+                            894   1237         tra     ss_val_entry_desc       391\r
+                            895   1238         tra     <cplx_dec_ops_>|[mpcdec]        392\r
+                            896   1239         tra     <cplx_dec_ops_>|[dvcdec]        393\r
+                            897   1240         tra     <cplx_dec_ops_>|[dvrcdec]       394\r
+                            898   1241         tra     <dec_ops_>|[ceil]       395\r
+                            899   1242         tra     <dec_ops_>|[floor]      396\r
+                            900   1243         tra     <dec_ops_>|[sign]       397\r
+                            901   1244         tra     <cplx_dec_ops_>|[cabs]  398\r
+                            902   1245         tra     <dec_ops_>|[truncate]   399\r
+                            903   1246         tra     <dec_ops_>|[mod]                400\r
+                            904   1247         tra     set_support     401\r
+                            905   1248         tra     div_4_cplx_ops  402\r
+                            906   1249         tra     fetch_chars_eis 403\r
+                            907   1250         tra     signal_stringrange      404\r
+                            908   1251         tra     ss_enter_begin_block    405\r
+                            909   1252         tra     <put_field_>|[put_field]                406      \r
+                            910   1253         tra     <put_field_>|[put_field_chk]            407\r
+                            911   1254         tra     <put_field_>|[put_control]      408\r
+                            912   1255         tra     <alloc_>|[op_alloc_]    409\r
+                            913   1256         tra     alloc_storage           410\r
+                            914   1257         tra     <alloc_>|[op_freen_]    411\r
+                            915   1258         tra     <alloc_>|[op_empty_]    412\r
+                            916   1259         tra     <fort_math_ops_>|[&2cabs]               413     fortran only\r
+                            917   1260         tra     <fort_math_ops_>|[&2ccos]               414     fortran only\r
+                            918   1261         tra     <fort_math_ops_>|[&2cexp]               415     fortran only\r
+                            919   1262         tra     <fort_math_ops_>|[&2clog]               416     fortran only\r
+                            920   1263         tra     <fort_math_ops_>|[&2csin]               417     fortran only\r
+                            921   1264         tra     <fort_math_ops_>|[&2csqrt]              418     fortran only\r
+                            922   1265         tra     <fort_math_ops_>|[&2tanh]               419     fortran only\r
+                            923   1266         tra     <fort_math_ops_>|[&2dmod]               420     fortran only (obsolete)\r
+                            924   1267         tra     <fort_math_ops_>|[&2cmpx_p_cmpx]        421     fortran only\r
+                            925   1268         tra     &2get_math_entry        422     fortran only\r
+                            926   1269         tra     fortran_pause   423     fortran only\r
+                            927   1270         tra     fortran_stop    424     fortran only\r
+                            928   1271         tra     fortran_chain   425     fortran only\r
+                            929   1272         tra     long_profile    426\r
+                            930   1273         tra     index_before_cs 427\r
+                            931   1274         tra     index_before_bs 428\r
+                            932   1275         tra     index_after_cs  429\r
+                            933   1276         tra     index_after_bs  430\r
+                            934   1277         tra     index_before_bs_1       431\r
+                            935   1278         tra     index_after_bs_1        432\r
+                            936   1279         tra     verify_for_ltrim        433\r
+                            937   1280         tra     verify_for_rtrim        434\r
+                            938   1281         tra     stacq_mac               435\r
+                            939   1282         tra     clock_mac               436\r
+                            940   1283         tra     vclock_mac      437\r
+                            941   1284         tra     ftn_open_element        438     fortran only\r
+                            942   1285         tra     ftn_get_area_ptr        439     fortran only\r
+                            943   1286         tra     stop            440\r
+                            944   1287         tra     return_main     441\r
+                            945   1288         tra     set_main_flag   442\r
+                            946   1289         tra     begin_return_main       443\r
+                            947   1290         tra     size_check_uns_fx1      444\r
+                            948   1291         tra     size_check_uns_fx2      445\r
+                            949   1292         tra     fortran_end     446     fortran only\r
+                            950   1293         tra     &2fort_dmod     447     fortran only\r
+                            951   1294         tra     ix_rev_chars    448\r
+                            952   1295         tra     verify_rev_chars        449\r
+                            953   1296         tra     search_rev_chars        450\r
+                            954   1297         tra     shorten_stack_protect_ind       451\r
+                            955   1298         tra     save_stack_quick        452\r
+                            956   1299         tra     restore_stack_quick     453\r
+                            957   1300         tra     <fort_math_ops_>|[&2dtanh]      454     fortran only\r
+                            958   1301         tra     <fort_math_ops_>|[&2sinh]       455     fortran only\r
+                            959   1302         tra     <fort_math_ops_>|[&2dsinh]      456     fortran only\r
+                            960   1303         tra     <fort_math_ops_>|[&2cosh]       457     fortran only\r
+                            961   1304         tra     <fort_math_ops_>|[&2dcosh]      458     fortran only\r
+                            962   1305         tra     &2nearest_whole_number  459     fortran only\r
+                            963   1306         tra     &2nearest_integer       460     fortran only\r
+                            964   1307         tra     ftn_inquire_element     461     fortran only\r
+                            965   1308         tra     mpy_overflow_check      462     fortran only\r
+                            966   1309         tra     fort_return_mac 463     fortran only\r
+                            967   1310         tra     fort_cleanup    464     fortran only\r
+                            968   1311         tra     fort_storage    465     fortran only\r
+                            969   1312         tra     &1enter_BFP_mode        466\r
+                            970   1313         tra     &1enter_HFP_mode        467\r
+                            971   1314         tra     unimp           468     future expansion\r
+                            972   1315         tra     unimp           469     future expansion\r
+                            973   1316         tra     unimp           470     future expansion\r
+                            974   1317         tra     unimp           471     future expansion\r
+                            975   1318         tra     unimp           472     future expansion\r
+                            976   1319         tra     unimp           473     future expansion\r
+                            977   1320         tra     unimp           474     future expansion\r
+                            978   1321         tra     unimp           475     future expansion\r
+                            979   1322         tra     unimp           476     future expansion\r
+                            980   1323         tra     unimp           477     future expansion\r
+                            981   1324         tra     unimp           478     future expansion\r
+                            982   1325         tra     unimp           479     future expansion\r
+                            983   1326         tra     unimp           480     future expansion\r
+                            984   1327         &end\r
+                                  1328  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  1329  "\r
+                                  1330  "      END OF MACROS\r
+                                  1331  "\r
+                                  1332  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  1333  "\f\r
+    000000                        1334  begin_pl1_operators:\r
+                                  1335         transfer_vector\r
+                                        "\r
+                                        " Due to the presence of double-word constants (at bit_mask and mask_bit)\r
+                                        " these instructions must presently begin on an even-word boundary.\r
+                                        " Note that if an odd number  of words is added to the front of the\r
+                                        " operator_table region, then the following even pseudo-op must be\r
+                                        " changed to an odd pseudo-op. If you forget, an assembly error will\r
+                                        " result (due to clever divide-by-zero, below).\r
+                                        "\r
+                                               even\r
+                                        "\r
+                                        " The following section, from location 0 to label operator_table, is referenced\r
+                                        " directly from PL/1 programs by means of offsets of the form ap|-n (ap pointing\r
+                                        " at pl1_operators_$operator_table).  For this reason, the order of the\r
+                                        " following instructions must not be changed.  Any new coding must be placed at\r
+                                        " the FRONT of the segment.\r
+                                        "\r
+                                        " This table translates a bit number between 0 and 35 to a char number\r
+                                        " between 0 and 3.\r
+                                        "\r
+                                               even\r
+    000000                              bitno_to_charno_table:\r
+                        000011                 dup     9\r
+    000000  aa   000000 000000                 dec     0\r
+                                               dupend\r
+    000001  aa   000000 000000                 dec     0\r
+    000002  aa   000000 000000                 dec     0\r
+    000003  aa   000000 000000                 dec     0\r
+    000004  aa   000000 000000                 dec     0\r
+    000005  aa   000000 000000                 dec     0\r
+    000006  aa   000000 000000                 dec     0\r
+    000007  aa   000000 000000                 dec     0\r
+    000010  aa   000000 000000                 dec     0\r
+                        000011                 dup     9\r
+    000011  aa   000000 000001                 dec     1\r
+                                               dupend\r
+    000012  aa   000000 000001                 dec     1\r
+    000013  aa   000000 000001                 dec     1\r
+    000014  aa   000000 000001                 dec     1\r
+    000015  aa   000000 000001                 dec     1\r
+    000016  aa   000000 000001                 dec     1\r
+    000017  aa   000000 000001                 dec     1\r
+    000020  aa   000000 000001                 dec     1\r
+    000021  aa   000000 000001                 dec     1\r
+                        000011                 dup     9\r
+    000022  aa   000000 000002                 dec     2\r
+                                               dupend\r
+    000023  aa   000000 000002                 dec     2\r
+    000024  aa   000000 000002                 dec     2\r
+    000025  aa   000000 000002                 dec     2\r
+    000026  aa   000000 000002                 dec     2\r
+    000027  aa   000000 000002                 dec     2\r
+    000030  aa   000000 000002                 dec     2\r
+    000031  aa   000000 000002                 dec     2\r
+    000032  aa   000000 000002                 dec     2\r
+                        000011                 dup     9\r
+    000033  aa   000000 000003                 dec     3\r
+                                               dupend\r
+    000034  aa   000000 000003                 dec     3\r
+    000035  aa   000000 000003                 dec     3\r
+    000036  aa   000000 000003                 dec     3\r
+    000037  aa   000000 000003                 dec     3\r
+    000040  aa   000000 000003                 dec     3\r
+    000041  aa   000000 000003                 dec     3\r
+    000042  aa   000000 000003                 dec     3\r
+    000043  aa   000000 000003                 dec     3\r
+                                        "\r
+                                        "      The following tables are for use with the TCT instruction.\r
+                                        "      Any single, given, character can be searched for using these\r
+                                        "      tables.\r
+                                        "\r
+                        000163                 dup     115\r
+    000044  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000045  aa   777777 777777                 dec     -1\r
+    000046  aa   777777 777777                 dec     -1\r
+    000047  aa   777777 777777                 dec     -1\r
+    000050  aa   777777 777777                 dec     -1\r
+    000051  aa   777777 777777                 dec     -1\r
+    000052  aa   777777 777777                 dec     -1\r
+    000053  aa   777777 777777                 dec     -1\r
+    000054  aa   777777 777777                 dec     -1\r
+    000055  aa   777777 777777                 dec     -1\r
+    000056  aa   777777 777777                 dec     -1\r
+    000057  aa   777777 777777                 dec     -1\r
+    000060  aa   777777 777777                 dec     -1\r
+    000061  aa   777777 777777                 dec     -1\r
+    000062  aa   777777 777777                 dec     -1\r
+    000063  aa   777777 777777                 dec     -1\r
+    000064  aa   777777 777777                 dec     -1\r
+    000065  aa   777777 777777                 dec     -1\r
+    000066  aa   777777 777777                 dec     -1\r
+    000067  aa   777777 777777                 dec     -1\r
+    000070  aa   777777 777777                 dec     -1\r
+    000071  aa   777777 777777                 dec     -1\r
+    000072  aa   777777 777777                 dec     -1\r
+    000073  aa   777777 777777                 dec     -1\r
+    000074  aa   777777 777777                 dec     -1\r
+    000075  aa   777777 777777                 dec     -1\r
+    000076  aa   777777 777777                 dec     -1\r
+    000077  aa   777777 777777                 dec     -1\r
+    000100  aa   777777 777777                 dec     -1\r
+    000101  aa   777777 777777                 dec     -1\r
+    000102  aa   777777 777777                 dec     -1\r
+    000103  aa   777777 777777                 dec     -1\r
+    000104  aa   777777 777777                 dec     -1\r
+    000105  aa   777777 777777                 dec     -1\r
+    000106  aa   777777 777777                 dec     -1\r
+    000107  aa   777777 777777                 dec     -1\r
+    000110  aa   777777 777777                 dec     -1\r
+    000111  aa   777777 777777                 dec     -1\r
+    000112  aa   777777 777777                 dec     -1\r
+    000113  aa   777777 777777                 dec     -1\r
+    000114  aa   777777 777777                 dec     -1\r
+    000115  aa   777777 777777                 dec     -1\r
+    000116  aa   777777 777777                 dec     -1\r
+    000117  aa   777777 777777                 dec     -1\r
+    000120  aa   777777 777777                 dec     -1\r
+    000121  aa   777777 777777                 dec     -1\r
+    000122  aa   777777 777777                 dec     -1\r
+    000123  aa   777777 777777                 dec     -1\r
+    000124  aa   777777 777777                 dec     -1\r
+    000125  aa   777777 777777                 dec     -1\r
+    000126  aa   777777 777777                 dec     -1\r
+    000127  aa   777777 777777                 dec     -1\r
+    000130  aa   777777 777777                 dec     -1\r
+    000131  aa   777777 777777                 dec     -1\r
+    000132  aa   777777 777777                 dec     -1\r
+    000133  aa   777777 777777                 dec     -1\r
+    000134  aa   777777 777777                 dec     -1\r
+    000135  aa   777777 777777                 dec     -1\r
+    000136  aa   777777 777777                 dec     -1\r
+    000137  aa   777777 777777                 dec     -1\r
+    000140  aa   777777 777777                 dec     -1\r
+    000141  aa   777777 777777                 dec     -1\r
+    000142  aa   777777 777777                 dec     -1\r
+    000143  aa   777777 777777                 dec     -1\r
+    000144  aa   777777 777777                 dec     -1\r
+    000145  aa   777777 777777                 dec     -1\r
+    000146  aa   777777 777777                 dec     -1\r
+    000147  aa   777777 777777                 dec     -1\r
+    000150  aa   777777 777777                 dec     -1\r
+    000151  aa   777777 777777                 dec     -1\r
+    000152  aa   777777 777777                 dec     -1\r
+    000153  aa   777777 777777                 dec     -1\r
+    000154  aa   777777 777777                 dec     -1\r
+    000155  aa   777777 777777                 dec     -1\r
+    000156  aa   777777 777777                 dec     -1\r
+    000157  aa   777777 777777                 dec     -1\r
+    000160  aa   777777 777777                 dec     -1\r
+    000161  aa   777777 777777                 dec     -1\r
+    000162  aa   777777 777777                 dec     -1\r
+    000163  aa   777777 777777                 dec     -1\r
+    000164  aa   777777 777777                 dec     -1\r
+    000165  aa   777777 777777                 dec     -1\r
+    000166  aa   777777 777777                 dec     -1\r
+    000167  aa   777777 777777                 dec     -1\r
+    000170  aa   777777 777777                 dec     -1\r
+    000171  aa   777777 777777                 dec     -1\r
+    000172  aa   777777 777777                 dec     -1\r
+    000173  aa   777777 777777                 dec     -1\r
+    000174  aa   777777 777777                 dec     -1\r
+    000175  aa   777777 777777                 dec     -1\r
+    000176  aa   777777 777777                 dec     -1\r
+    000177  aa   777777 777777                 dec     -1\r
+    000200  aa   777777 777777                 dec     -1\r
+    000201  aa   777777 777777                 dec     -1\r
+    000202  aa   777777 777777                 dec     -1\r
+    000203  aa   777777 777777                 dec     -1\r
+    000204  aa   777777 777777                 dec     -1\r
+    000205  aa   777777 777777                 dec     -1\r
+    000206  aa   777777 777777                 dec     -1\r
+    000207  aa   777777 777777                 dec     -1\r
+    000210  aa   777777 777777                 dec     -1\r
+    000211  aa   777777 777777                 dec     -1\r
+    000212  aa   777777 777777                 dec     -1\r
+    000213  aa   777777 777777                 dec     -1\r
+    000214  aa   777777 777777                 dec     -1\r
+    000215  aa   777777 777777                 dec     -1\r
+    000216  aa   777777 777777                 dec     -1\r
+    000217  aa   777777 777777                 dec     -1\r
+    000220  aa   777777 777777                 dec     -1\r
+    000221  aa   777777 777777                 dec     -1\r
+    000222  aa   777777 777777                 dec     -1\r
+    000223  aa   777777 777777                 dec     -1\r
+    000224  aa   777777 777777                 dec     -1\r
+    000225  aa   777777 777777                 dec     -1\r
+    000226  aa   777777 777777                 dec     -1\r
+                                        "\r
+    000227                              tct_octal_060:\r
+                        000004                 dup     4\r
+    000227  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000230  aa   777777 777777                 dec     -1\r
+    000231  aa   777777 777777                 dec     -1\r
+    000232  aa   777777 777777                 dec     -1\r
+                                        "\r
+    000233                              tct_octal_040:\r
+                        000010                 dup     8\r
+    000233  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000234  aa   777777 777777                 dec     -1\r
+    000235  aa   777777 777777                 dec     -1\r
+    000236  aa   777777 777777                 dec     -1\r
+    000237  aa   777777 777777                 dec     -1\r
+    000240  aa   777777 777777                 dec     -1\r
+    000241  aa   777777 777777                 dec     -1\r
+    000242  aa   777777 777777                 dec     -1\r
+    000243                              tct_byte_0:\r
+    000243  aa   000777 777777                 vfd     9/0,9/-1,9/-1,9/-1\r
+                        000177                 dup     127\r
+    000244  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000245  aa   777777 777777                 dec     -1\r
+    000246  aa   777777 777777                 dec     -1\r
+    000247  aa   777777 777777                 dec     -1\r
+    000250  aa   777777 777777                 dec     -1\r
+    000251  aa   777777 777777                 dec     -1\r
+    000252  aa   777777 777777                 dec     -1\r
+    000253  aa   777777 777777                 dec     -1\r
+    000254  aa   777777 777777                 dec     -1\r
+    000255  aa   777777 777777                 dec     -1\r
+    000256  aa   777777 777777                 dec     -1\r
+    000257  aa   777777 777777                 dec     -1\r
+    000260  aa   777777 777777                 dec     -1\r
+    000261  aa   777777 777777                 dec     -1\r
+    000262  aa   777777 777777                 dec     -1\r
+    000263  aa   777777 777777                 dec     -1\r
+    000264  aa   777777 777777                 dec     -1\r
+    000265  aa   777777 777777                 dec     -1\r
+    000266  aa   777777 777777                 dec     -1\r
+    000267  aa   777777 777777                 dec     -1\r
+    000270  aa   777777 777777                 dec     -1\r
+    000271  aa   777777 777777                 dec     -1\r
+    000272  aa   777777 777777                 dec     -1\r
+    000273  aa   777777 777777                 dec     -1\r
+    000274  aa   777777 777777                 dec     -1\r
+    000275  aa   777777 777777                 dec     -1\r
+    000276  aa   777777 777777                 dec     -1\r
+    000277  aa   777777 777777                 dec     -1\r
+    000300  aa   777777 777777                 dec     -1\r
+    000301  aa   777777 777777                 dec     -1\r
+    000302  aa   777777 777777                 dec     -1\r
+    000303  aa   777777 777777                 dec     -1\r
+    000304  aa   777777 777777                 dec     -1\r
+    000305  aa   777777 777777                 dec     -1\r
+    000306  aa   777777 777777                 dec     -1\r
+    000307  aa   777777 777777                 dec     -1\r
+    000310  aa   777777 777777                 dec     -1\r
+    000311  aa   777777 777777                 dec     -1\r
+    000312  aa   777777 777777                 dec     -1\r
+    000313  aa   777777 777777                 dec     -1\r
+    000314  aa   777777 777777                 dec     -1\r
+    000315  aa   777777 777777                 dec     -1\r
+    000316  aa   777777 777777                 dec     -1\r
+    000317  aa   777777 777777                 dec     -1\r
+    000320  aa   777777 777777                 dec     -1\r
+    000321  aa   777777 777777                 dec     -1\r
+    000322  aa   777777 777777                 dec     -1\r
+    000323  aa   777777 777777                 dec     -1\r
+    000324  aa   777777 777777                 dec     -1\r
+    000325  aa   777777 777777                 dec     -1\r
+    000326  aa   777777 777777                 dec     -1\r
+    000327  aa   777777 777777                 dec     -1\r
+    000330  aa   777777 777777                 dec     -1\r
+    000331  aa   777777 777777                 dec     -1\r
+    000332  aa   777777 777777                 dec     -1\r
+    000333  aa   777777 777777                 dec     -1\r
+    000334  aa   777777 777777                 dec     -1\r
+    000335  aa   777777 777777                 dec     -1\r
+    000336  aa   777777 777777                 dec     -1\r
+    000337  aa   777777 777777                 dec     -1\r
+    000340  aa   777777 777777                 dec     -1\r
+    000341  aa   777777 777777                 dec     -1\r
+    000342  aa   777777 777777                 dec     -1\r
+    000343  aa   777777 777777                 dec     -1\r
+    000344  aa   777777 777777                 dec     -1\r
+    000345  aa   777777 777777                 dec     -1\r
+    000346  aa   777777 777777                 dec     -1\r
+    000347  aa   777777 777777                 dec     -1\r
+    000350  aa   777777 777777                 dec     -1\r
+    000351  aa   777777 777777                 dec     -1\r
+    000352  aa   777777 777777                 dec     -1\r
+    000353  aa   777777 777777                 dec     -1\r
+    000354  aa   777777 777777                 dec     -1\r
+    000355  aa   777777 777777                 dec     -1\r
+    000356  aa   777777 777777                 dec     -1\r
+    000357  aa   777777 777777                 dec     -1\r
+    000360  aa   777777 777777                 dec     -1\r
+    000361  aa   777777 777777                 dec     -1\r
+    000362  aa   777777 777777                 dec     -1\r
+    000363  aa   777777 777777                 dec     -1\r
+    000364  aa   777777 777777                 dec     -1\r
+    000365  aa   777777 777777                 dec     -1\r
+    000366  aa   777777 777777                 dec     -1\r
+    000367  aa   777777 777777                 dec     -1\r
+    000370  aa   777777 777777                 dec     -1\r
+    000371  aa   777777 777777                 dec     -1\r
+    000372  aa   777777 777777                 dec     -1\r
+    000373  aa   777777 777777                 dec     -1\r
+    000374  aa   777777 777777                 dec     -1\r
+    000375  aa   777777 777777                 dec     -1\r
+    000376  aa   777777 777777                 dec     -1\r
+    000377  aa   777777 777777                 dec     -1\r
+    000400  aa   777777 777777                 dec     -1\r
+    000401  aa   777777 777777                 dec     -1\r
+    000402  aa   777777 777777                 dec     -1\r
+    000403  aa   777777 777777                 dec     -1\r
+    000404  aa   777777 777777                 dec     -1\r
+    000405  aa   777777 777777                 dec     -1\r
+    000406  aa   777777 777777                 dec     -1\r
+    000407  aa   777777 777777                 dec     -1\r
+    000410  aa   777777 777777                 dec     -1\r
+    000411  aa   777777 777777                 dec     -1\r
+    000412  aa   777777 777777                 dec     -1\r
+    000413  aa   777777 777777                 dec     -1\r
+    000414  aa   777777 777777                 dec     -1\r
+    000415  aa   777777 777777                 dec     -1\r
+    000416  aa   777777 777777                 dec     -1\r
+    000417  aa   777777 777777                 dec     -1\r
+    000420  aa   777777 777777                 dec     -1\r
+    000421  aa   777777 777777                 dec     -1\r
+    000422  aa   777777 777777                 dec     -1\r
+    000423  aa   777777 777777                 dec     -1\r
+    000424  aa   777777 777777                 dec     -1\r
+    000425  aa   777777 777777                 dec     -1\r
+    000426  aa   777777 777777                 dec     -1\r
+    000427  aa   777777 777777                 dec     -1\r
+    000430  aa   777777 777777                 dec     -1\r
+    000431  aa   777777 777777                 dec     -1\r
+    000432  aa   777777 777777                 dec     -1\r
+    000433  aa   777777 777777                 dec     -1\r
+    000434  aa   777777 777777                 dec     -1\r
+    000435  aa   777777 777777                 dec     -1\r
+    000436  aa   777777 777777                 dec     -1\r
+    000437  aa   777777 777777                 dec     -1\r
+    000440  aa   777777 777777                 dec     -1\r
+    000441  aa   777777 777777                 dec     -1\r
+    000442  aa   777777 777777                 dec     -1\r
+                                        "\r
+    000443                              tct_byte_1:\r
+    000443  aa   777000 777777                 vfd     9/-1,9/0,9/-1,9/-1\r
+                        000177                 dup     127\r
+    000444  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000445  aa   777777 777777                 dec     -1\r
+    000446  aa   777777 777777                 dec     -1\r
+    000447  aa   777777 777777                 dec     -1\r
+    000450  aa   777777 777777                 dec     -1\r
+    000451  aa   777777 777777                 dec     -1\r
+    000452  aa   777777 777777                 dec     -1\r
+    000453  aa   777777 777777                 dec     -1\r
+    000454  aa   777777 777777                 dec     -1\r
+    000455  aa   777777 777777                 dec     -1\r
+    000456  aa   777777 777777                 dec     -1\r
+    000457  aa   777777 777777                 dec     -1\r
+    000460  aa   777777 777777                 dec     -1\r
+    000461  aa   777777 777777                 dec     -1\r
+    000462  aa   777777 777777                 dec     -1\r
+    000463  aa   777777 777777                 dec     -1\r
+    000464  aa   777777 777777                 dec     -1\r
+    000465  aa   777777 777777                 dec     -1\r
+    000466  aa   777777 777777                 dec     -1\r
+    000467  aa   777777 777777                 dec     -1\r
+    000470  aa   777777 777777                 dec     -1\r
+    000471  aa   777777 777777                 dec     -1\r
+    000472  aa   777777 777777                 dec     -1\r
+    000473  aa   777777 777777                 dec     -1\r
+    000474  aa   777777 777777                 dec     -1\r
+    000475  aa   777777 777777                 dec     -1\r
+    000476  aa   777777 777777                 dec     -1\r
+    000477  aa   777777 777777                 dec     -1\r
+    000500  aa   777777 777777                 dec     -1\r
+    000501  aa   777777 777777                 dec     -1\r
+    000502  aa   777777 777777                 dec     -1\r
+    000503  aa   777777 777777                 dec     -1\r
+    000504  aa   777777 777777                 dec     -1\r
+    000505  aa   777777 777777                 dec     -1\r
+    000506  aa   777777 777777                 dec     -1\r
+    000507  aa   777777 777777                 dec     -1\r
+    000510  aa   777777 777777                 dec     -1\r
+    000511  aa   777777 777777                 dec     -1\r
+    000512  aa   777777 777777                 dec     -1\r
+    000513  aa   777777 777777                 dec     -1\r
+    000514  aa   777777 777777                 dec     -1\r
+    000515  aa   777777 777777                 dec     -1\r
+    000516  aa   777777 777777                 dec     -1\r
+    000517  aa   777777 777777                 dec     -1\r
+    000520  aa   777777 777777                 dec     -1\r
+    000521  aa   777777 777777                 dec     -1\r
+    000522  aa   777777 777777                 dec     -1\r
+    000523  aa   777777 777777                 dec     -1\r
+    000524  aa   777777 777777                 dec     -1\r
+    000525  aa   777777 777777                 dec     -1\r
+    000526  aa   777777 777777                 dec     -1\r
+    000527  aa   777777 777777                 dec     -1\r
+    000530  aa   777777 777777                 dec     -1\r
+    000531  aa   777777 777777                 dec     -1\r
+    000532  aa   777777 777777                 dec     -1\r
+    000533  aa   777777 777777                 dec     -1\r
+    000534  aa   777777 777777                 dec     -1\r
+    000535  aa   777777 777777                 dec     -1\r
+    000536  aa   777777 777777                 dec     -1\r
+    000537  aa   777777 777777                 dec     -1\r
+    000540  aa   777777 777777                 dec     -1\r
+    000541  aa   777777 777777                 dec     -1\r
+    000542  aa   777777 777777                 dec     -1\r
+    000543  aa   777777 777777                 dec     -1\r
+    000544  aa   777777 777777                 dec     -1\r
+    000545  aa   777777 777777                 dec     -1\r
+    000546  aa   777777 777777                 dec     -1\r
+    000547  aa   777777 777777                 dec     -1\r
+    000550  aa   777777 777777                 dec     -1\r
+    000551  aa   777777 777777                 dec     -1\r
+    000552  aa   777777 777777                 dec     -1\r
+    000553  aa   777777 777777                 dec     -1\r
+    000554  aa   777777 777777                 dec     -1\r
+    000555  aa   777777 777777                 dec     -1\r
+    000556  aa   777777 777777                 dec     -1\r
+    000557  aa   777777 777777                 dec     -1\r
+    000560  aa   777777 777777                 dec     -1\r
+    000561  aa   777777 777777                 dec     -1\r
+    000562  aa   777777 777777                 dec     -1\r
+    000563  aa   777777 777777                 dec     -1\r
+    000564  aa   777777 777777                 dec     -1\r
+    000565  aa   777777 777777                 dec     -1\r
+    000566  aa   777777 777777                 dec     -1\r
+    000567  aa   777777 777777                 dec     -1\r
+    000570  aa   777777 777777                 dec     -1\r
+    000571  aa   777777 777777                 dec     -1\r
+    000572  aa   777777 777777                 dec     -1\r
+    000573  aa   777777 777777                 dec     -1\r
+    000574  aa   777777 777777                 dec     -1\r
+    000575  aa   777777 777777                 dec     -1\r
+    000576  aa   777777 777777                 dec     -1\r
+    000577  aa   777777 777777                 dec     -1\r
+    000600  aa   777777 777777                 dec     -1\r
+    000601  aa   777777 777777                 dec     -1\r
+    000602  aa   777777 777777                 dec     -1\r
+    000603  aa   777777 777777                 dec     -1\r
+    000604  aa   777777 777777                 dec     -1\r
+    000605  aa   777777 777777                 dec     -1\r
+    000606  aa   777777 777777                 dec     -1\r
+    000607  aa   777777 777777                 dec     -1\r
+    000610  aa   777777 777777                 dec     -1\r
+    000611  aa   777777 777777                 dec     -1\r
+    000612  aa   777777 777777                 dec     -1\r
+    000613  aa   777777 777777                 dec     -1\r
+    000614  aa   777777 777777                 dec     -1\r
+    000615  aa   777777 777777                 dec     -1\r
+    000616  aa   777777 777777                 dec     -1\r
+    000617  aa   777777 777777                 dec     -1\r
+    000620  aa   777777 777777                 dec     -1\r
+    000621  aa   777777 777777                 dec     -1\r
+    000622  aa   777777 777777                 dec     -1\r
+    000623  aa   777777 777777                 dec     -1\r
+    000624  aa   777777 777777                 dec     -1\r
+    000625  aa   777777 777777                 dec     -1\r
+    000626  aa   777777 777777                 dec     -1\r
+    000627  aa   777777 777777                 dec     -1\r
+    000630  aa   777777 777777                 dec     -1\r
+    000631  aa   777777 777777                 dec     -1\r
+    000632  aa   777777 777777                 dec     -1\r
+    000633  aa   777777 777777                 dec     -1\r
+    000634  aa   777777 777777                 dec     -1\r
+    000635  aa   777777 777777                 dec     -1\r
+    000636  aa   777777 777777                 dec     -1\r
+    000637  aa   777777 777777                 dec     -1\r
+    000640  aa   777777 777777                 dec     -1\r
+    000641  aa   777777 777777                 dec     -1\r
+    000642  aa   777777 777777                 dec     -1\r
+                                        "\r
+    000643                              tct_byte_2:\r
+    000643  aa   777777 000777                 vfd     9/-1,9/-1,9/0,9/-1\r
+                        000177                 dup     127\r
+    000644  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    000645  aa   777777 777777                 dec     -1\r
+    000646  aa   777777 777777                 dec     -1\r
+    000647  aa   777777 777777                 dec     -1\r
+    000650  aa   777777 777777                 dec     -1\r
+    000651  aa   777777 777777                 dec     -1\r
+    000652  aa   777777 777777                 dec     -1\r
+    000653  aa   777777 777777                 dec     -1\r
+    000654  aa   777777 777777                 dec     -1\r
+    000655  aa   777777 777777                 dec     -1\r
+    000656  aa   777777 777777                 dec     -1\r
+    000657  aa   777777 777777                 dec     -1\r
+    000660  aa   777777 777777                 dec     -1\r
+    000661  aa   777777 777777                 dec     -1\r
+    000662  aa   777777 777777                 dec     -1\r
+    000663  aa   777777 777777                 dec     -1\r
+    000664  aa   777777 777777                 dec     -1\r
+    000665  aa   777777 777777                 dec     -1\r
+    000666  aa   777777 777777                 dec     -1\r
+    000667  aa   777777 777777                 dec     -1\r
+    000670  aa   777777 777777                 dec     -1\r
+    000671  aa   777777 777777                 dec     -1\r
+    000672  aa   777777 777777                 dec     -1\r
+    000673  aa   777777 777777                 dec     -1\r
+    000674  aa   777777 777777                 dec     -1\r
+    000675  aa   777777 777777                 dec     -1\r
+    000676  aa   777777 777777                 dec     -1\r
+    000677  aa   777777 777777                 dec     -1\r
+    000700  aa   777777 777777                 dec     -1\r
+    000701  aa   777777 777777                 dec     -1\r
+    000702  aa   777777 777777                 dec     -1\r
+    000703  aa   777777 777777                 dec     -1\r
+    000704  aa   777777 777777                 dec     -1\r
+    000705  aa   777777 777777                 dec     -1\r
+    000706  aa   777777 777777                 dec     -1\r
+    000707  aa   777777 777777                 dec     -1\r
+    000710  aa   777777 777777                 dec     -1\r
+    000711  aa   777777 777777                 dec     -1\r
+    000712  aa   777777 777777                 dec     -1\r
+    000713  aa   777777 777777                 dec     -1\r
+    000714  aa   777777 777777                 dec     -1\r
+    000715  aa   777777 777777                 dec     -1\r
+    000716  aa   777777 777777                 dec     -1\r
+    000717  aa   777777 777777                 dec     -1\r
+    000720  aa   777777 777777                 dec     -1\r
+    000721  aa   777777 777777                 dec     -1\r
+    000722  aa   777777 777777                 dec     -1\r
+    000723  aa   777777 777777                 dec     -1\r
+    000724  aa   777777 777777                 dec     -1\r
+    000725  aa   777777 777777                 dec     -1\r
+    000726  aa   777777 777777                 dec     -1\r
+    000727  aa   777777 777777                 dec     -1\r
+    000730  aa   777777 777777                 dec     -1\r
+    000731  aa   777777 777777                 dec     -1\r
+    000732  aa   777777 777777                 dec     -1\r
+    000733  aa   777777 777777                 dec     -1\r
+    000734  aa   777777 777777                 dec     -1\r
+    000735  aa   777777 777777                 dec     -1\r
+    000736  aa   777777 777777                 dec     -1\r
+    000737  aa   777777 777777                 dec     -1\r
+    000740  aa   777777 777777                 dec     -1\r
+    000741  aa   777777 777777                 dec     -1\r
+    000742  aa   777777 777777                 dec     -1\r
+    000743  aa   777777 777777                 dec     -1\r
+    000744  aa   777777 777777                 dec     -1\r
+    000745  aa   777777 777777                 dec     -1\r
+    000746  aa   777777 777777                 dec     -1\r
+    000747  aa   777777 777777                 dec     -1\r
+    000750  aa   777777 777777                 dec     -1\r
+    000751  aa   777777 777777                 dec     -1\r
+    000752  aa   777777 777777                 dec     -1\r
+    000753  aa   777777 777777                 dec     -1\r
+    000754  aa   777777 777777                 dec     -1\r
+    000755  aa   777777 777777                 dec     -1\r
+    000756  aa   777777 777777                 dec     -1\r
+    000757  aa   777777 777777                 dec     -1\r
+    000760  aa   777777 777777                 dec     -1\r
+    000761  aa   777777 777777                 dec     -1\r
+    000762  aa   777777 777777                 dec     -1\r
+    000763  aa   777777 777777                 dec     -1\r
+    000764  aa   777777 777777                 dec     -1\r
+    000765  aa   777777 777777                 dec     -1\r
+    000766  aa   777777 777777                 dec     -1\r
+    000767  aa   777777 777777                 dec     -1\r
+    000770  aa   777777 777777                 dec     -1\r
+    000771  aa   777777 777777                 dec     -1\r
+    000772  aa   777777 777777                 dec     -1\r
+    000773  aa   777777 777777                 dec     -1\r
+    000774  aa   777777 777777                 dec     -1\r
+    000775  aa   777777 777777                 dec     -1\r
+    000776  aa   777777 777777                 dec     -1\r
+    000777  aa   777777 777777                 dec     -1\r
+    001000  aa   777777 777777                 dec     -1\r
+    001001  aa   777777 777777                 dec     -1\r
+    001002  aa   777777 777777                 dec     -1\r
+    001003  aa   777777 777777                 dec     -1\r
+    001004  aa   777777 777777                 dec     -1\r
+    001005  aa   777777 777777                 dec     -1\r
+    001006  aa   777777 777777                 dec     -1\r
+    001007  aa   777777 777777                 dec     -1\r
+    001010  aa   777777 777777                 dec     -1\r
+    001011  aa   777777 777777                 dec     -1\r
+    001012  aa   777777 777777                 dec     -1\r
+    001013  aa   777777 777777                 dec     -1\r
+    001014  aa   777777 777777                 dec     -1\r
+    001015  aa   777777 777777                 dec     -1\r
+    001016  aa   777777 777777                 dec     -1\r
+    001017  aa   777777 777777                 dec     -1\r
+    001020  aa   777777 777777                 dec     -1\r
+    001021  aa   777777 777777                 dec     -1\r
+    001022  aa   777777 777777                 dec     -1\r
+    001023  aa   777777 777777                 dec     -1\r
+    001024  aa   777777 777777                 dec     -1\r
+    001025  aa   777777 777777                 dec     -1\r
+    001026  aa   777777 777777                 dec     -1\r
+    001027  aa   777777 777777                 dec     -1\r
+    001030  aa   777777 777777                 dec     -1\r
+    001031  aa   777777 777777                 dec     -1\r
+    001032  aa   777777 777777                 dec     -1\r
+    001033  aa   777777 777777                 dec     -1\r
+    001034  aa   777777 777777                 dec     -1\r
+    001035  aa   777777 777777                 dec     -1\r
+    001036  aa   777777 777777                 dec     -1\r
+    001037  aa   777777 777777                 dec     -1\r
+    001040  aa   777777 777777                 dec     -1\r
+    001041  aa   777777 777777                 dec     -1\r
+    001042  aa   777777 777777                 dec     -1\r
+                                        "\r
+    001043                              tct_byte_3:\r
+    001043  aa   777777 777000                 vfd     9/-1,9/-1,9/-1,9/0\r
+                        000177                 dup     127\r
+    001044  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    001045  aa   777777 777777                 dec     -1\r
+    001046  aa   777777 777777                 dec     -1\r
+    001047  aa   777777 777777                 dec     -1\r
+    001050  aa   777777 777777                 dec     -1\r
+    001051  aa   777777 777777                 dec     -1\r
+    001052  aa   777777 777777                 dec     -1\r
+    001053  aa   777777 777777                 dec     -1\r
+    001054  aa   777777 777777                 dec     -1\r
+    001055  aa   777777 777777                 dec     -1\r
+    001056  aa   777777 777777                 dec     -1\r
+    001057  aa   777777 777777                 dec     -1\r
+    001060  aa   777777 777777                 dec     -1\r
+    001061  aa   777777 777777                 dec     -1\r
+    001062  aa   777777 777777                 dec     -1\r
+    001063  aa   777777 777777                 dec     -1\r
+    001064  aa   777777 777777                 dec     -1\r
+    001065  aa   777777 777777                 dec     -1\r
+    001066  aa   777777 777777                 dec     -1\r
+    001067  aa   777777 777777                 dec     -1\r
+    001070  aa   777777 777777                 dec     -1\r
+    001071  aa   777777 777777                 dec     -1\r
+    001072  aa   777777 777777                 dec     -1\r
+    001073  aa   777777 777777                 dec     -1\r
+    001074  aa   777777 777777                 dec     -1\r
+    001075  aa   777777 777777                 dec     -1\r
+    001076  aa   777777 777777                 dec     -1\r
+    001077  aa   777777 777777                 dec     -1\r
+    001100  aa   777777 777777                 dec     -1\r
+    001101  aa   777777 777777                 dec     -1\r
+    001102  aa   777777 777777                 dec     -1\r
+    001103  aa   777777 777777                 dec     -1\r
+    001104  aa   777777 777777                 dec     -1\r
+    001105  aa   777777 777777                 dec     -1\r
+    001106  aa   777777 777777                 dec     -1\r
+    001107  aa   777777 777777                 dec     -1\r
+    001110  aa   777777 777777                 dec     -1\r
+    001111  aa   777777 777777                 dec     -1\r
+    001112  aa   777777 777777                 dec     -1\r
+    001113  aa   777777 777777                 dec     -1\r
+    001114  aa   777777 777777                 dec     -1\r
+    001115  aa   777777 777777                 dec     -1\r
+    001116  aa   777777 777777                 dec     -1\r
+    001117  aa   777777 777777                 dec     -1\r
+    001120  aa   777777 777777                 dec     -1\r
+    001121  aa   777777 777777                 dec     -1\r
+    001122  aa   777777 777777                 dec     -1\r
+    001123  aa   777777 777777                 dec     -1\r
+    001124  aa   777777 777777                 dec     -1\r
+    001125  aa   777777 777777                 dec     -1\r
+    001126  aa   777777 777777                 dec     -1\r
+    001127  aa   777777 777777                 dec     -1\r
+    001130  aa   777777 777777                 dec     -1\r
+    001131  aa   777777 777777                 dec     -1\r
+    001132  aa   777777 777777                 dec     -1\r
+    001133  aa   777777 777777                 dec     -1\r
+    001134  aa   777777 777777                 dec     -1\r
+    001135  aa   777777 777777                 dec     -1\r
+    001136  aa   777777 777777                 dec     -1\r
+    001137  aa   777777 777777                 dec     -1\r
+    001140  aa   777777 777777                 dec     -1\r
+    001141  aa   777777 777777                 dec     -1\r
+    001142  aa   777777 777777                 dec     -1\r
+    001143  aa   777777 777777                 dec     -1\r
+    001144  aa   777777 777777                 dec     -1\r
+    001145  aa   777777 777777                 dec     -1\r
+    001146  aa   777777 777777                 dec     -1\r
+    001147  aa   777777 777777                 dec     -1\r
+    001150  aa   777777 777777                 dec     -1\r
+    001151  aa   777777 777777                 dec     -1\r
+    001152  aa   777777 777777                 dec     -1\r
+    001153  aa   777777 777777                 dec     -1\r
+    001154  aa   777777 777777                 dec     -1\r
+    001155  aa   777777 777777                 dec     -1\r
+    001156  aa   777777 777777                 dec     -1\r
+    001157  aa   777777 777777                 dec     -1\r
+    001160  aa   777777 777777                 dec     -1\r
+    001161  aa   777777 777777                 dec     -1\r
+    001162  aa   777777 777777                 dec     -1\r
+    001163  aa   777777 777777                 dec     -1\r
+    001164  aa   777777 777777                 dec     -1\r
+    001165  aa   777777 777777                 dec     -1\r
+    001166  aa   777777 777777                 dec     -1\r
+    001167  aa   777777 777777                 dec     -1\r
+    001170  aa   777777 777777                 dec     -1\r
+    001171  aa   777777 777777                 dec     -1\r
+    001172  aa   777777 777777                 dec     -1\r
+    001173  aa   777777 777777                 dec     -1\r
+    001174  aa   777777 777777                 dec     -1\r
+    001175  aa   777777 777777                 dec     -1\r
+    001176  aa   777777 777777                 dec     -1\r
+    001177  aa   777777 777777                 dec     -1\r
+    001200  aa   777777 777777                 dec     -1\r
+    001201  aa   777777 777777                 dec     -1\r
+    001202  aa   777777 777777                 dec     -1\r
+    001203  aa   777777 777777                 dec     -1\r
+    001204  aa   777777 777777                 dec     -1\r
+    001205  aa   777777 777777                 dec     -1\r
+    001206  aa   777777 777777                 dec     -1\r
+    001207  aa   777777 777777                 dec     -1\r
+    001210  aa   777777 777777                 dec     -1\r
+    001211  aa   777777 777777                 dec     -1\r
+    001212  aa   777777 777777                 dec     -1\r
+    001213  aa   777777 777777                 dec     -1\r
+    001214  aa   777777 777777                 dec     -1\r
+    001215  aa   777777 777777                 dec     -1\r
+    001216  aa   777777 777777                 dec     -1\r
+    001217  aa   777777 777777                 dec     -1\r
+    001220  aa   777777 777777                 dec     -1\r
+    001221  aa   777777 777777                 dec     -1\r
+    001222  aa   777777 777777                 dec     -1\r
+    001223  aa   777777 777777                 dec     -1\r
+    001224  aa   777777 777777                 dec     -1\r
+    001225  aa   777777 777777                 dec     -1\r
+    001226  aa   777777 777777                 dec     -1\r
+    001227  aa   777777 777777                 dec     -1\r
+    001230  aa   777777 777777                 dec     -1\r
+    001231  aa   777777 777777                 dec     -1\r
+    001232  aa   777777 777777                 dec     -1\r
+    001233  aa   777777 777777                 dec     -1\r
+    001234  aa   777777 777777                 dec     -1\r
+    001235  aa   777777 777777                 dec     -1\r
+    001236  aa   777777 777777                 dec     -1\r
+    001237  aa   777777 777777                 dec     -1\r
+    001240  aa   777777 777777                 dec     -1\r
+    001241  aa   777777 777777                 dec     -1\r
+    001242  aa   777777 777777                 dec     -1\r
+                                        "\r
+                                        "      The number of words per segment of a FORTRAN Very Large Array.\r
+                                        "\r
+    001243                              VLA_words_per_seg_:\r
+    001243  aa   000001 000000                 vfd     36/256*1024\r
+                                        "\r
+                                        "      table of csl's for use by bool builtin function\r
+                                        "\r
+    001244                              csl_vector:\r
+    001244  aa  0 00140 0605 40                csl     (pr,rl),(pr,rl),bool(0)\r
+    001245  aa  0 01140 0605 40                csl     (pr,rl),(pr,rl),bool(1)\r
+    001246  aa  0 02140 0605 40                csl     (pr,rl),(pr,rl),bool(2)\r
+    001247  aa  0 03140 0605 40                csl     (pr,rl),(pr,rl),bool(3)\r
+    001250  aa  0 04140 0605 40                csl     (pr,rl),(pr,rl),bool(4)\r
+    001251  aa  0 05140 0605 40                csl     (pr,rl),(pr,rl),bool(5)\r
+    001252  aa  0 06140 0605 40                csl     (pr,rl),(pr,rl),bool(6)\r
+    001253  aa  0 07140 0605 40                csl     (pr,rl),(pr,rl),bool(7)\r
+    001254  aa  0 10140 0605 40                csl     (pr,rl),(pr,rl),bool(10)\r
+    001255  aa  0 11140 0605 40                csl     (pr,rl),(pr,rl),bool(11)\r
+    001256  aa  0 12140 0605 40                csl     (pr,rl),(pr,rl),bool(12)\r
+    001257  aa  0 13140 0605 40                csl     (pr,rl),(pr,rl),bool(13)\r
+    001260  aa  0 14140 0605 40                csl     (pr,rl),(pr,rl),bool(14)\r
+    001261  aa  0 15140 0605 40                csl     (pr,rl),(pr,rl),bool(15)\r
+    001262  aa  0 16140 0605 40                csl     (pr,rl),(pr,rl),bool(16)\r
+    001263  aa  0 17140 0605 40                csl     (pr,rl),(pr,rl),bool(17)\r
+                                        "\r
+                                        "      shift table for character offset\r
+                                        "\r
+    001264  aa   000000 000000          co_to_bo:      dec     0,9b17,18b17,27b17\r
+    001265  aa   000011 000000 \r
+    001266  aa   000022 000000 \r
+    001267  aa   000033 000000 \r
+                                        "\r
+                                        "      shift table for half word offset\r
+                                        "\r
+    001270  aa   000000 000000          ho_to_bo:      dec     0,18b17\r
+    001271  aa   000022 000000 \r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001272                              store_a9_co:\r
+    001272  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    001273  aa  2 00000 5511 20                stba    bp|0,20         1\r
+    001274  aa  2 00000 5511 10                stba    bp|0,10         2\r
+    001275  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    001276  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    001277  aa  2 00000 5511 30                stba    bp|0,30         1\r
+    001300  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    001301  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    001302  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    001303  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    001304  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    001305  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    001306  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    001307  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    001310  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    001311  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    001312  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    001313  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    001314  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    001315  aa  2 00000 5511 04                stba    bp|0,04         3\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001316                              store_q9_co:\r
+    001316  aa   000000 0110 07                nop     0,dl            0       2\r
+    001317  aa   000000 0110 07                nop     0,dl            1\r
+    001320  aa   000000 0110 07                nop     0,dl            2\r
+    001321  aa  2 00001 5521 40                stbq    bp|1,40         3\r
+    001322  aa   000000 0110 07                nop     0,dl            0       3\r
+    001323  aa   000000 0110 07                nop     0,dl            1\r
+    001324  aa  2 00001 5521 40                stbq    bp|1,40         2\r
+    001325  aa  2 00001 5521 60                stbq    bp|1,60         3\r
+    001326  aa   000000 0110 07                nop     0,dl            0       4\r
+    001327  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    001330  aa  2 00001 5521 60                stbq    bp|1,60         2\r
+    001331  aa  2 00001 5521 70                stbq    bp|1,70         3\r
+    001332  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    001333  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    001334  aa  2 00001 5521 70                stbq    bp|1,70         2\r
+    001335  aa  2 00001 7561 00                stq     bp|1            3\r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001336                              store_a9_ho:\r
+    001336  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    001337  aa  2 00000 5511 10                stba    bp|0,10         1\r
+    001340  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    001341  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    001342  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    001343  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    001344  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    001345  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    001346  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    001347  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    001350  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    001351  aa  2 00000 5511 14                stba    bp|0,14         1\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001352                              store_q9_ho:\r
+    001352  aa   000000 0110 07                nop     0,dl            0       2\r
+    001353  aa   000000 0110 07                nop     0,dl            1\r
+    001354  aa   000000 0110 07                nop     0,dl            0       3\r
+    001355  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    001356  aa   000000 0110 07                nop     0,dl            0       4\r
+    001357  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    001360  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    001361  aa  2 00001 5521 70                stbq    bp|1,70         1\r
+    001362  aa  2 00001 5521 60                stbq    bp|1,60         0       6\r
+    001363  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        "      store table from a, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001364                              store_a6_ho:\r
+    001364  aa  2 00000 7511 40                stca    bp|0,40         0       1\r
+    001365  aa  2 00000 7511 04                stca    bp|0,04         1\r
+    001366  aa  2 00000 7511 60                stca    bp|0,60         0       2\r
+    001367  aa  2 00000 7511 06                stca    bp|0,06         1\r
+    001370  aa  2 00000 7511 70                stca    bp|0,70         0       3\r
+    001371  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001372  aa  2 00000 7511 74                stca    bp|0,74         0       4\r
+    001373  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001374  aa  2 00000 7511 76                stca    bp|0,76         0       5\r
+    001375  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001376  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    001377  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001400  aa  2 00000 7551 00                sta     bp|0            0       7\r
+    001401  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001402  aa  2 00000 7551 00                sta     bp|0            0       8\r
+    001403  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    001404  aa  2 00000 7551 00                sta     bp|0            0       9\r
+    001405  aa  2 00000 7511 07                stca    bp|0,07         1\r
+                                        "\r
+                                        "      store table from q, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    001406                              store_q6_ho:\r
+    001406  aa   000000 0110 07                nop     0,dl            0       2\r
+    001407  aa   000000 0110 07                nop     0,dl            1\r
+    001410  aa   000000 0110 07                nop     0,dl            0       3\r
+    001411  aa   000000 0110 07                nop     0,dl            1\r
+    001412  aa   000000 0110 07                nop     0,dl            0       4\r
+    001413  aa  2 00001 7521 40                stcq    bp|1,40         1\r
+    001414  aa   000000 0110 07                nop     0,dl            0       5\r
+    001415  aa  2 00001 7521 60                stcq    bp|1,60         1\r
+    001416  aa   000000 0110 07                nop     0,dl            0       6\r
+    001417  aa  2 00001 7521 70                stcq    bp|1,70         1\r
+    001420  aa  2 00001 7521 40                stcq    bp|1,40         0       7\r
+    001421  aa  2 00001 7521 74                stcq    bp|1,74         1\r
+    001422  aa  2 00001 7521 60                stcq    bp|1,60         0       8\r
+    001423  aa  2 00001 7521 76                stcq    bp|1,76         1\r
+    001424  aa  2 00001 7521 70                stcq    bp|1,70         0       9\r
+    001425  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        " THE FOLLOWING SECTION IS DIRECTLY REFERENCED FROM PL/1 PROGRAMS BY MEANS OF\r
+                                        " ap|offset.  FOR THIS REASON, THE ORDER OF THE FOLLOWING INSTRUCTIONS MUST\r
+                                        " NOT BE CHANGED.\r
+                                        "\r
+    001426                              operator_table:\r
+    001426                              bit_mask:\r
+    001426  aa   000000 000000                 vfd     0/-1,72/0\r
+    001427  aa   000000 000000 \r
+    001430  aa   400000 000000                 vfd     1/-1,71/0\r
+    001431  aa   000000 000000 \r
+    001432  aa   600000 000000                 vfd     2/-1,70/0\r
+    001433  aa   000000 000000 \r
+    001434  aa   700000 000000                 vfd     3/-1,69/0\r
+    001435  aa   000000 000000 \r
+    001436  aa   740000 000000                 vfd     4/-1,68/0\r
+    001437  aa   000000 000000 \r
+    001440  aa   760000 000000                 vfd     5/-1,67/0\r
+    001441  aa   000000 000000 \r
+    001442  aa   770000 000000                 vfd     6/-1,66/0\r
+    001443  aa   000000 000000 \r
+    001444  aa   774000 000000                 vfd     7/-1,65/0\r
+    001445  aa   000000 000000 \r
+    001446  aa   776000 000000                 vfd     8/-1,64/0\r
+    001447  aa   000000 000000 \r
+    001450  aa   777000 000000                 vfd     9/-1,63/0\r
+    001451  aa   000000 000000 \r
+    001452  aa   777400 000000                 vfd     10/-1,62/0\r
+    001453  aa   000000 000000 \r
+    001454  aa   777600 000000                 vfd     11/-1,61/0\r
+    001455  aa   000000 000000 \r
+    001456  aa   777700 000000                 vfd     12/-1,60/0\r
+    001457  aa   000000 000000 \r
+    001460  aa   777740 000000                 vfd     13/-1,59/0\r
+    001461  aa   000000 000000 \r
+    001462  aa   777760 000000                 vfd     14/-1,58/0\r
+    001463  aa   000000 000000 \r
+    001464  aa   777770 000000                 vfd     15/-1,57/0\r
+    001465  aa   000000 000000 \r
+    001466  aa   777774 000000                 vfd     16/-1,56/0\r
+    001467  aa   000000 000000 \r
+    001470  aa   777776 000000                 vfd     17/-1,55/0\r
+    001471  aa   000000 000000 \r
+    001472  aa   777777 000000                 vfd     18/-1,54/0\r
+    001473  aa   000000 000000 \r
+    001474  aa   777777 400000                 vfd     19/-1,53/0\r
+    001475  aa   000000 000000 \r
+    001476  aa   777777 600000                 vfd     20/-1,52/0\r
+    001477  aa   000000 000000 \r
+    001500  aa   777777 700000                 vfd     21/-1,51/0\r
+    001501  aa   000000 000000 \r
+    001502  aa   777777 740000                 vfd     22/-1,50/0\r
+    001503  aa   000000 000000 \r
+    001504  aa   777777 760000                 vfd     23/-1,49/0\r
+    001505  aa   000000 000000 \r
+    001506  aa   777777 770000                 vfd     24/-1,48/0\r
+    001507  aa   000000 000000 \r
+    001510  aa   777777 774000                 vfd     25/-1,47/0\r
+    001511  aa   000000 000000 \r
+    001512  aa   777777 776000                 vfd     26/-1,46/0\r
+    001513  aa   000000 000000 \r
+    001514  aa   777777 777000                 vfd     27/-1,45/0\r
+    001515  aa   000000 000000 \r
+    001516  aa   777777 777400                 vfd     28/-1,44/0\r
+    001517  aa   000000 000000 \r
+    001520  aa   777777 777600                 vfd     29/-1,43/0\r
+    001521  aa   000000 000000 \r
+    001522  aa   777777 777700                 vfd     30/-1,42/0\r
+    001523  aa   000000 000000 \r
+    001524  aa   777777 777740                 vfd     31/-1,41/0\r
+    001525  aa   000000 000000 \r
+    001526  aa   777777 777760                 vfd     32/-1,40/0\r
+    001527  aa   000000 000000 \r
+    001530  aa   777777 777770                 vfd     33/-1,39/0\r
+    001531  aa   000000 000000 \r
+    001532  aa   777777 777774                 vfd     34/-1,38/0\r
+    001533  aa   000000 000000 \r
+    001534  aa   777777 777776                 vfd     35/-1,37/0\r
+    001535  aa   000000 000000 \r
+    001536  aa   777777 777777          ones:  vfd     36/-1,36/0\r
+    001537  aa   000000 000000 \r
+    001540  aa   777777 777777                 vfd     36/-1,1/-1,35/0\r
+    001541  aa   400000 000000 \r
+    001542  aa   777777 777777                 vfd     36/-1,2/-1,34/0\r
+    001543  aa   600000 000000 \r
+    001544  aa   777777 777777                 vfd     36/-1,3/-1,33/0\r
+    001545  aa   700000 000000 \r
+    001546  aa   777777 777777                 vfd     36/-1,4/-1,32/0\r
+    001547  aa   740000 000000 \r
+    001550  aa   777777 777777                 vfd     36/-1,5/-1,31/0\r
+    001551  aa   760000 000000 \r
+    001552  aa   777777 777777                 vfd     36/-1,6/-1,30/0\r
+    001553  aa   770000 000000 \r
+    001554  aa   777777 777777                 vfd     36/-1,7/-1,29/0\r
+    001555  aa   774000 000000 \r
+    001556  aa   777777 777777                 vfd     36/-1,8/-1,28/0\r
+    001557  aa   776000 000000 \r
+    001560  aa   777777 777777                 vfd     36/-1,9/-1,27/0\r
+    001561  aa   777000 000000 \r
+    001562  aa   777777 777777                 vfd     36/-1,10/-1,26/0\r
+    001563  aa   777400 000000 \r
+    001564  aa   777777 777777                 vfd     36/-1,11/-1,25/0\r
+    001565  aa   777600 000000 \r
+    001566  aa   777777 777777                 vfd     36/-1,12/-1,24/0\r
+    001567  aa   777700 000000 \r
+    001570  aa   777777 777777                 vfd     36/-1,13/-1,23/0\r
+    001571  aa   777740 000000 \r
+    001572  aa   777777 777777                 vfd     36/-1,14/-1,22/0\r
+    001573  aa   777760 000000 \r
+    001574  aa   777777 777777                 vfd     36/-1,15/-1,21/0\r
+    001575  aa   777770 000000 \r
+    001576  aa   777777 777777                 vfd     36/-1,16/-1,20/0\r
+    001577  aa   777774 000000 \r
+    001600  aa   777777 777777                 vfd     36/-1,17/-1,19/0\r
+    001601  aa   777776 000000 \r
+    001602  aa   777777 777777                 vfd     36/-1,18/-1,18/0\r
+    001603  aa   777777 000000 \r
+    001604  aa   777777 777777                 vfd     36/-1,19/-1,17/0\r
+    001605  aa   777777 400000 \r
+    001606  aa   777777 777777                 vfd     36/-1,20/-1,16/0\r
+    001607  aa   777777 600000 \r
+    001610  aa   777777 777777                 vfd     36/-1,21/-1,15/0\r
+    001611  aa   777777 700000 \r
+    001612  aa   777777 777777                 vfd     36/-1,22/-1,14/0\r
+    001613  aa   777777 740000 \r
+    001614  aa   777777 777777                 vfd     36/-1,23/-1,13/0\r
+    001615  aa   777777 760000 \r
+    001616  aa   777777 777777                 vfd     36/-1,24/-1,12/0\r
+    001617  aa   777777 770000 \r
+    001620  aa   777777 777777                 vfd     36/-1,25/-1,11/0\r
+    001621  aa   777777 774000 \r
+    001622  aa   777777 777777                 vfd     36/-1,26/-1,10/0\r
+    001623  aa   777777 776000 \r
+    001624  aa   777777 777777                 vfd     36/-1,27/-1,9/0\r
+    001625  aa   777777 777000 \r
+    001626  aa   777777 777777                 vfd     36/-1,28/-1,8/0\r
+    001627  aa   777777 777400 \r
+    001630  aa   777777 777777                 vfd     36/-1,29/-1,7/0\r
+    001631  aa   777777 777600 \r
+    001632  aa   777777 777777                 vfd     36/-1,30/-1,6/0\r
+    001633  aa   777777 777700 \r
+    001634  aa   777777 777777                 vfd     36/-1,31/-1,5/0\r
+    001635  aa   777777 777740 \r
+    001636  aa   777777 777777                 vfd     36/-1,32/-1,4/0\r
+    001637  aa   777777 777760 \r
+    001640  aa   777777 777777                 vfd     36/-1,33/-1,3/0\r
+    001641  aa   777777 777770 \r
+    001642  aa   777777 777777                 vfd     36/-1,34/-1,2/0\r
+    001643  aa   777777 777774 \r
+    001644  aa   777777 777777                 vfd     36/-1,35/-1,1/0\r
+    001645  aa   777777 777776 \r
+                                        "\r
+    001646                              mask_bit:\r
+    001646  aa   777777 777777                 vfd     0/0,36/-1,36/-1\r
+    001647  aa   777777 777777 \r
+    001650  aa   377777 777777                 vfd     1/0,35/-1,36/-1\r
+    001651  aa   777777 777777 \r
+    001652  aa   177777 777777                 vfd     2/0,34/-1,36/-1\r
+    001653  aa   777777 777777 \r
+    001654  aa   077777 777777                 vfd     3/0,33/-1,36/-1\r
+    001655  aa   777777 777777 \r
+    001656  aa   037777 777777                 vfd     4/0,32/-1,36/-1\r
+    001657  aa   777777 777777 \r
+    001660  aa   017777 777777                 vfd     5/0,31/-1,36/-1\r
+    001661  aa   777777 777777 \r
+    001662  aa   007777 777777                 vfd     6/0,30/-1,36/-1\r
+    001663  aa   777777 777777 \r
+    001664  aa   003777 777777                 vfd     7/0,29/-1,36/-1\r
+    001665  aa   777777 777777 \r
+    001666  aa   001777 777777                 vfd     8/0,28/-1,36/-1\r
+    001667  aa   777777 777777 \r
+    001670  aa   000777 777777                 vfd     9/0,27/-1,36/-1\r
+    001671  aa   777777 777777 \r
+    001672  aa   000377 777777                 vfd     10/0,26/-1,36/-1\r
+    001673  aa   777777 777777 \r
+    001674  aa   000177 777777                 vfd     11/0,25/-1,36/-1\r
+    001675  aa   777777 777777 \r
+    001676  aa   000077 777777                 vfd     12/0,24/-1,36/-1\r
+    001677  aa   777777 777777 \r
+    001700  aa   000037 777777                 vfd     13/0,23/-1,36/-1\r
+    001701  aa   777777 777777 \r
+    001702  aa   000017 777777                 vfd     14/0,22/-1,36/-1\r
+    001703  aa   777777 777777 \r
+    001704  aa   000007 777777                 vfd     15/0,21/-1,36/-1\r
+    001705  aa   777777 777777 \r
+    001706  aa   000003 777777                 vfd     16/0,20/-1,36/-1\r
+    001707  aa   777777 777777 \r
+    001710  aa   000001 777777                 vfd     17/0,19/-1,36/-1\r
+    001711  aa   777777 777777 \r
+    001712  aa   000000 777777                 vfd     18/0,18/-1,36/-1\r
+    001713  aa   777777 777777 \r
+    001714  aa   000000 377777                 vfd     19/0,17/-1,36/-1\r
+    001715  aa   777777 777777 \r
+    001716  aa   000000 177777                 vfd     20/0,16/-1,36/-1\r
+    001717  aa   777777 777777 \r
+    001720  aa   000000 077777                 vfd     21/0,15/-1,36/-1\r
+    001721  aa   777777 777777 \r
+    001722  aa   000000 037777                 vfd     22/0,14/-1,36/-1\r
+    001723  aa   777777 777777 \r
+    001724  aa   000000 017777                 vfd     23/0,13/-1,36/-1\r
+    001725  aa   777777 777777 \r
+    001726  aa   000000 007777                 vfd     24/0,12/-1,36/-1\r
+    001727  aa   777777 777777 \r
+    001730  aa   000000 003777                 vfd     25/0,11/-1,36/-1\r
+    001731  aa   777777 777777 \r
+    001732  aa   000000 001777                 vfd     26/0,10/-1,36/-1\r
+    001733  aa   777777 777777 \r
+    001734  aa   000000 000777                 vfd     27/0,9/-1,36/-1\r
+    001735  aa   777777 777777 \r
+    001736  aa   000000 000377                 vfd     28/0,8/-1,36/-1\r
+    001737  aa   777777 777777 \r
+    001740  aa   000000 000177                 vfd     29/0,7/-1,36/-1\r
+    001741  aa   777777 777777 \r
+    001742  aa   000000 000077                 vfd     30/0,6/-1,36/-1\r
+    001743  aa   777777 777777 \r
+    001744  aa   000000 000037                 vfd     31/0,5/-1,36/-1\r
+    001745  aa   777777 777777 \r
+    001746  aa   000000 000017                 vfd     32/0,4/-1,36/-1\r
+    001747  aa   777777 777777 \r
+    001750  aa   000000 000007                 vfd     33/0,3/-1,36/-1\r
+    001751  aa   777777 777777 \r
+    001752  aa   000000 000003                 vfd     34/0,2/-1,36/-1\r
+    001753  aa   777777 777777 \r
+    001754  aa   000000 000001                 vfd     35/0,1/-1,36/-1\r
+    001755  aa   777777 777777 \r
+    001756  aa   000000 000000                 vfd     36/0,36/-1\r
+    001757  aa   777777 777777 \r
+    001760                              max_single_value:\r
+    001760  aa   000000 000000                 vfd     37/0,35/-1\r
+    001761  aa   377777 777777 \r
+    001762  aa   000000 000000                 vfd     38/0,34/-1\r
+    001763  aa   177777 777777 \r
+    001764  aa   000000 000000                 vfd     39/0,33/-1\r
+    001765  aa   077777 777777 \r
+    001766  aa   000000 000000                 vfd     40/0,32/-1\r
+    001767  aa   037777 777777 \r
+    001770  aa   000000 000000                 vfd     41/0,31/-1\r
+    001771  aa   017777 777777 \r
+    001772  aa   000000 000000                 vfd     42/0,30/-1\r
+    001773  aa   007777 777777 \r
+    001774  aa   000000 000000                 vfd     43/0,29/-1\r
+    001775  aa   003777 777777 \r
+    001776  aa   000000 000000                 vfd     44/0,28/-1\r
+    001777  aa   001777 777777 \r
+    002000  aa   000000 000000                 vfd     45/0,27/-1\r
+    002001  aa   000777 777777 \r
+    002002  aa   000000 000000                 vfd     46/0,26/-1\r
+    002003  aa   000377 777777 \r
+    002004  aa   000000 000000                 vfd     47/0,25/-1\r
+    002005  aa   000177 777777 \r
+    002006  aa   000000 000000                 vfd     48/0,24/-1\r
+    002007  aa   000077 777777 \r
+    002010  aa   000000 000000                 vfd     49/0,23/-1\r
+    002011  aa   000037 777777 \r
+    002012  aa   000000 000000                 vfd     50/0,22/-1\r
+    002013  aa   000017 777777 \r
+    002014  aa   000000 000000                 vfd     51/0,21/-1\r
+    002015  aa   000007 777777 \r
+    002016  aa   000000 000000                 vfd     52/0,20/-1\r
+    002017  aa   000003 777777 \r
+    002020  aa   000000 000000                 vfd     53/0,19/-1\r
+    002021  aa   000001 777777 \r
+    002022  aa   000000 000000                 vfd     54/0,18/-1\r
+    002023  aa   000000 777777 \r
+    002024  aa   000000 000000                 vfd     55/0,17/-1\r
+    002025  aa   000000 377777 \r
+    002026  aa   000000 000000                 vfd     56/0,16/-1\r
+    002027  aa   000000 177777 \r
+    002030  aa   000000 000000                 vfd     57/0,15/-1\r
+    002031  aa   000000 077777 \r
+    002032  aa   000000 000000                 vfd     58/0,14/-1\r
+    002033  aa   000000 037777 \r
+    002034  aa   000000 000000                 vfd     59/0,13/-1\r
+    002035  aa   000000 017777 \r
+    002036  aa   000000 000000                 vfd     60/0,12/-1\r
+    002037  aa   000000 007777 \r
+    002040  aa   000000 000000                 vfd     61/0,11/-1\r
+    002041  aa   000000 003777 \r
+    002042  aa   000000 000000                 vfd     62/0,10/-1\r
+    002043  aa   000000 001777 \r
+    002044  aa   000000 000000                 vfd     63/0,9/-1\r
+    002045  aa   000000 000777 \r
+    002046  aa   000000 000000                 vfd     64/0,8/-1\r
+    002047  aa   000000 000377 \r
+    002050  aa   000000 000000                 vfd     65/0,7/-1\r
+    002051  aa   000000 000177 \r
+    002052  aa   000000 000000                 vfd     66/0,6/-1\r
+    002053  aa   000000 000077 \r
+    002054  aa   000000 000000                 vfd     67/0,5/-1\r
+    002055  aa   000000 000037 \r
+    002056  aa   000000 000000                 vfd     68/0,4/-1\r
+    002057  aa   000000 000017 \r
+    002060  aa   000000 000000                 vfd     69/0,3/-1\r
+    002061  aa   000000 000007 \r
+    002062  aa   000000 000000                 vfd     70/0,2/-1\r
+    002063  aa   000000 000003 \r
+    002064  aa   000000 000000                 vfd     71/0,1/-1\r
+    002065  aa   000000 000001 \r
+                                        "\r
+    002066  aa   040040 040040          blanks:        oct     040040040040,040040040040\r
+    002067  aa   040040 040040 \r
+    002070  aa   000040 040040                 oct     000040040040,040040040040\r
+    002071  aa   040040 040040 \r
+    002072  aa   000000 040040                 oct     000000040040,040040040040\r
+    002073  aa   040040 040040 \r
+    002074  aa   000000 000040                 oct     000000000040,040040040040\r
+    002075  aa   040040 040040 \r
+    002076  aa   000000 000000                 oct     000000000000,040040040040\r
+    002077  aa   040040 040040 \r
+    002100  aa   000000 000000                 oct     000000000000,000040040040\r
+    002101  aa   000040 040040 \r
+    002102  aa   000000 000000                 oct     000000000000,000000040040\r
+    002103  aa   000000 040040 \r
+    002104  aa   000000 000000                 oct     000000000000,000000000040\r
+    002105  aa   000000 000040 \r
+                                        "\r
+    002106  aa   077777 000077          ptr_mask:      oct     077777000077,777777077077 mask for use in ptr comparisions\r
+    002107  aa   777777 077077 \r
+                                        "\r
+                                        "      operator to convert single fixed to double fixed\r
+                                        "\r
+                                               even\r
+    002110                              fx1_to_fx2:\r
+    002110  aa   000044 7770 00                llr     36\r
+    002111  aa   000044 7330 00                lrs     36\r
+                                        "\r
+                                        "      operators to convert fixed to float\r
+                                        "\r
+    002112  aa   000000 0110 03                odd\r
+    002113                              fx1_to_fl2:\r
+    002113  0a   002110 7170 00                xed     fx1_to_fx2\r
+                                        "\r
+                                               even\r
+    002114                              fx2_to_fl2:\r
+                                        \r
+    002114  aa   216000 4110 03                lde     =71b25,du\r
+    002115  aa   400000 4750 03                fad     =0.,du\r
+    002116  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to reset next stack pointer\r
+                                        "\r
+    002117  aa   000000 0110 03                even\r
+    002120                              reset_stack:\r
+    002120  aa  6 00005 2201 00                ldx0    sp|5\r
+    002121  aa  6 00023 7401 00                stx0    sp|stack_frame.next_sp+1\r
+                                        "\r
+                                        "      operators to convert indicators into relations\r
+                                        "\r
+    002122  0a   002164 6040 00         r_l_a: tmi     true\r
+    002123  aa   000000 2350 07                lda     0,dl\r
+    002124  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002125  aa   000002 6000 04         r_g_s: tze     2,ic\r
+    002126  0a   002164 6030 00                trc     true\r
+    002127  aa   000000 2350 07                lda     0,dl\r
+    002130  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002131  aa   000002 6000 04         r_g_a: tze     2,ic\r
+    002132  0a   002164 6050 00                tpl     true\r
+    002133  aa   000000 2350 07                lda     0,dl\r
+    002134  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002135  0a   002164 6020 00         r_l_s: tnc     true\r
+    002136  aa   000000 2350 07                lda     0,dl\r
+    002137  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002140  0a   002164 6000 00         r_e_as:        tze     true\r
+    002141  aa   000000 2350 07                lda     0,dl\r
+    002142  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002143  0a   002164 6010 00         r_ne_as:       tnz     true\r
+    002144  aa   000000 2350 07                lda     0,dl\r
+    002145  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002146  0a   002164 6040 00         r_le_a:        tmi     true\r
+    002147  0a   002164 6000 00                tze     true\r
+    002150  aa   000000 2350 07                lda     0,dl\r
+    002151  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002152  0a   002164 6030 00         r_ge_s:        trc     true\r
+    002153  aa   000000 2350 07                lda     0,dl\r
+    002154  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002155  0a   002164 6050 00         r_ge_a:        tpl     true\r
+    002156  aa   000000 2350 07                lda     0,dl\r
+    002157  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002160  0a   002164 6020 00         r_le_s:        tnc     true\r
+    002161  0a   002164 6000 00                tze     true\r
+    002162  aa   000000 2350 07                lda     0,dl\r
+    002163  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    002164  aa   400000 2350 03         true:  lda     =o400000,du\r
+    002165  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to set stack ptr to that of block N static\r
+                                        "      levels above the current block.  Entered with N in q.\r
+                                        "      (should not be called with N = 0, but will work anyway.)\r
+                                        "\r
+    002166                              set_stack:\r
+    002166  0a   005674 7010 00                tsx1    display_chase   get ptr to proper frame\r
+    002167  aa  2 00000 3721 00                eppsp   bp|0            into sp\r
+    002170  0a   003276 7100 00                tra     set_stack_extend        do three more instructions (added later\r
+                                        "                              and since compiled code knows offsets in this\r
+                                        "                              area, couldn't add the code inline)\r
+                                        "\r
+                                        "      tables to convert to bit offset ready to be ORed into pointer\r
+                                        "\r
+    002171  aa   000000 000000          mod2_tab:      dec     0,18b26\r
+    002172  aa   000000 022000 \r
+                                        "\r
+    002173  aa   000000 000000          mod4_tab:      dec     0,9b26,18b26,27b26\r
+    002174  aa   000000 011000 \r
+    002175  aa   000000 022000 \r
+    002176  aa   000000 033000 \r
+                                        "\r
+                                        "      transfer vector for operators not referenced directly\r
+                                        "      by the pl/1 program.  new operators may be added at the\r
+                                        "      end of the list only.\r
+                                        "\r
+    002177                              op_vector:\r
+    002177  0a   003140 7100 00                tra     alloc_char_temp 0\r
+    002200  0a   003152 7100 00                tra     alloc_bit_temp  1\r
+    002201  0a   003161 7100 00                tra     alloc_temp      2\r
+    002202  0a   003217 7100 00                tra     realloc_char_temp       3\r
+    002203  0a   003207 7100 00                tra     realloc_bit_temp        4\r
+    002204  0a   003304 7100 00                tra     save_string     5       obsolete\r
+    002205  0a   007646 7100 00                tra     pk_to_unpk      6\r
+    002206  0a   007655 7100 00                tra     unpk_to_pk      7\r
+    002207  0a   003633 7100 00                tra     move_chars      8       obsolete\r
+    002210  0a   003641 7100 00                tra     move_chars_aligned      9       obsolete\r
+    002211  0a   003604 7100 00                tra     move_bits               10      obsolete\r
+    002212  0a   003612 7100 00                tra     move_bits_aligned       11      obsolete\r
+    002213  0a   003727 7100 00                tra     chars_move      12      obsolete\r
+    002214  0a   003740 7100 00                tra     chars_move_aligned      13      obsolete\r
+    002215  0a   003755 7100 00                tra     bits_move               14      obsolete\r
+    002216  0a   003766 7100 00                tra     bits_move_aligned       15      obsolete\r
+    002217  0a   003573 7100 00                tra     move_not_bits   16      obsolete\r
+    002220  0a   003601 7100 00                tra     move_not_bits_aligned 17        obsolete\r
+    002221  0a   003676 7100 00                tra     ext_and_1               18\r
+    002222  0a   003677 7100 00                tra     ext_and_2               19\r
+    002223  0a   003717 7100 00                tra     comp_bits               20\r
+    002224  0a   004371 7100 00                tra     cpbs3           21      obsolete\r
+    002225  0a   004401 7100 00                tra     cpbs3_aligned   22      obsolete\r
+    002226  0a   004377 7100 00                tra     cpbs4           23      obsolete\r
+    002227  0a   004357 7100 00                tra     cpcs_ext1               24\r
+    002230  0a   004360 7100 00                tra     cpcs_ext2               25\r
+    002231  0a   004364 7100 00                tra     cpbs_ext1               26\r
+    002232  0a   004365 7100 00                tra     cpbs_ext2               27\r
+    002233  0a   003354 7100 00                tra     store_string    28\r
+    002234  0a   003215 7100 00                tra     cat_realloc_chars       29\r
+    002235  0a   003177 7100 00                tra     cat_realloc_bits        30\r
+    002236  0a   004320 7100 00                tra     cp_chars                31      obsolete\r
+    002237  0a   004326 7100 00                tra     cp_chars_aligned        32      obsolete\r
+    002240  0a   004340 7100 00                tra     cp_bits         33      obsolete\r
+    002241  0a   004346 7100 00                tra     cp_bits_aligned 34      obsolete\r
+    002242  0a   012372 7100 00                tra     enter_begin_block       35\r
+    002243  0a   005552 7100 00                tra     leave_begin_block       36\r
+    002244  0a   005607 7100 00                tra     call_ent_var_desc       37\r
+    002245  0a   005610 7100 00                tra     call_ent_var    38\r
+    002246  0a   005623 7100 00                tra     call_ext_in_desc        39\r
+    002247  0a   005624 7100 00                tra     call_ext_in     40\r
+    002250  0a   005623 7100 00                tra     call_ext_out_desc       41\r
+    002251  0a   005624 7100 00                tra     call_ext_out    42\r
+    002252  0a   005634 7100 00                tra     call_int_this_desc      43\r
+    002253  0a   005635 7100 00                tra     call_int_this   44\r
+    002254  0a   005645 7100 00                tra     call_int_other_desc     45\r
+    002255  0a   005646 7100 00                tra     call_int_other  46\r
+    002256  0a   005572 7100 00                tra     begin_return_mac        47\r
+    002257  0a   005600 7100 00                tra     return_mac      48\r
+    002260  0a   003654 7100 00                tra     cat_move_chars  49      obsolete\r
+    002261  0a   003662 7100 00                tra     cat_move_chars_aligned 50       obsolete\r
+    002262  0a   003552 7100 00                tra     cat_move_bits   51      obsolete\r
+    002263  0a   003560 7100 00                tra     cat_move_bits_aligned 52        obsolete\r
+    002264  0a   004040 7100 00                tra     cat_chars               53      obsolete\r
+    002265  0a   004046 7100 00                tra     cat_chars_aligned       54      obsolete\r
+    002266  0a   004063 7100 00                tra     cat_bits                55      obsolete\r
+    002267  0a   004071 7100 00                tra     cat_bits_aligned        56      obsolete\r
+    002270  0a   003321 7100 00                tra     set_chars               57      obsolete\r
+    002271  0a   003327 7100 00                tra     set_chars_aligned       58      obsolete\r
+    002272  0a   003342 7100 00                tra     set_bits                59      obsolete\r
+    002273  0a   003350 7100 00                tra     set_bits_aligned        60      obsolete\r
+    002274  0a   003517 7100 00                tra     and_bits                61      obsolete\r
+    002275  0a   003525 7100 00                tra     and_bits_aligned        62      obsolete\r
+    002276  0a   003530 7100 00                tra     or_bits         63      obsolete\r
+    002277  0a   003536 7100 00                tra     or_bits_aligned 64      obsolete\r
+    002300  0a   005660 7100 00                tra     move_label_var  65\r
+    002301  0a   005666 7100 00                tra     make_label_var  66\r
+    002302  0a   006532 7100 00                tra     fl2_to_fx1      67\r
+    002303  0a   006532 7100 00                tra     fl2_to_fx2      68\r
+    002304  0a   007620 7100 00                tra     longbs_to_fx2   69\r
+    002305  0a   007265 7100 00                tra     tra_ext_1               70\r
+    002306  0a   007273 7100 00                tra     tra_ext_2               71\r
+    002307  0a   007301 7100 00                tra     alloc_auto_adj  72\r
+    002310  0a   007636 7100 00                tra     longbs_to_bs18  73\r
+    002311  0a   006553 7100 00                tra     stac_mac                74\r
+    002312  0a   006642 7100 00                tra     sign_mac                75\r
+    002313  0a   010214 7100 00                tra     bound_ck_signal 76\r
+    002314  0a   006650 7100 00                tra     trans_sign_fx1  77\r
+    002315  0a   006660 7100 00                tra     trans_sign_fl   78\r
+    002316  0a   007023 7100 00                tra     copy_words      79      obsolete\r
+    002317  0a   007035 7100 00                tra     mpfx2           80\r
+    002320  0a   007104 7100 00                tra     mpfx3           81\r
+    002321  0a   004445 7100 00                tra     copy_const      82      obsolete\r
+    002322  0a   004444 7100 00                tra     copy_const_vt   83      obsolete\r
+    002323  0a   007205 7100 00                tra     sr_check                84      obsolete\r
+    002324  0a   003726 7100 00                tra     chars_move_vt   85      obsolete\r
+    002325  0a   003737 7100 00                tra     chars_move_vta  86      obsolete\r
+    002326  0a   003754 7100 00                tra     bits_move_vt    87      obsolete\r
+    002327  0a   003765 7100 00                tra     bits_move_vta   88      obsolete\r
+    002330  0a   007314 7100 00                tra     mdfl1           89\r
+    002331  0a   007335 7100 00                tra     mdfl2           90\r
+    002332  0a   005701 7100 00                tra     mdfx1           91\r
+    002333  0a   005716 7100 00                tra     mdfx2           92\r
+    002334  0a   005742 7100 00                tra     mdfx3           93\r
+    002335  0a   005720 7100 00                tra     mdfx4           94\r
+    002336  0a   007033 7100 00                tra     copy_double     95      obsolete\r
+    002337  0a   003371 7100 00                tra     string_store    96      obsolete\r
+    002340  0a   003421 7100 00                tra     get_chars               97      obsolete\r
+    002341  0a   003455 7100 00                tra     get_bits                98      obsolete\r
+    002342  0a   003474 7100 00                tra     pad_chars               99\r
+    002343  0a   003506 7100 00                tra     pad_bits                100\r
+    002344  0a   010210 7100 00                tra     signal_op               101\r
+    002345  0a   010115 7100 00                tra     enable_op               102\r
+    002346  0a   004453 7100 00                tra     index_chars     103     obsolete\r
+    002347  0a   004461 7100 00                tra     index_chars_aligned     104     obsolete\r
+    002350  0a   004611 7100 00                tra     index_bits      105     obsolete\r
+    002351  0a   004617 7100 00                tra     index_bits_aligned      106     obsolete\r
+    002352  0a   003541 7100 00                tra     exor_bits               107     obsolete\r
+    002353  0a   003547 7100 00                tra     exor_bits_aligned       108     obsolete\r
+    002354  0a   003344 7100 00                tra     set_bits_co     109     obsolete\r
+    002355  0a   003346 7100 00                tra     set_bits_ho     110     obsolete\r
+    002356  0a   003323 7100 00                tra     set_chars_co    111     obsolete\r
+    002357  0a   003325 7100 00                tra     set_chars_ho    112     obsolete\r
+    002360  0a   003373 7100 00                tra     string_store_co 113     obsolete\r
+    002361  0a   003402 7100 00                tra     string_store_ho 114     obsolete\r
+    002362  0a   003423 7100 00                tra     get_chars_co    115     obsolete\r
+    002363  0a   003425 7100 00                tra     get_chars_ho    116     obsolete\r
+    002364  0a   003457 7100 00                tra     get_bits_co     117     obsolete\r
+    002365  0a   003461 7100 00                tra     get_bits_ho     118     obsolete\r
+    002366  0a   003521 7100 00                tra     and_bits_co     119     obsolete\r
+    002367  0a   003523 7100 00                tra     and_bits_ho     120     obsolete\r
+    002370  0a   003532 7100 00                tra     or_bits_co      121     obsolete\r
+    002371  0a   003534 7100 00                tra     or_bits_ho      122     obsolete\r
+    002372  0a   003543 7100 00                tra     exor_bits_co    123     obsolete\r
+    002373  0a   003545 7100 00                tra     exor_bits_ho    124     obsolete\r
+    002374  0a   003554 7100 00                tra     cat_move_bits_co        125     obsolete\r
+    002375  0a   003556 7100 00                tra     cat_move_bits_ho        126     obsolete\r
+    002376  0a   003575 7100 00                tra     move_not_bits_co        127     obsolete\r
+    002377  0a   003577 7100 00                tra     move_not_bits_ho        128     obsolete\r
+    002400  0a   003606 7100 00                tra     move_bits_co    129     obsolete\r
+    002401  0a   003610 7100 00                tra     move_bits_ho    130     obsolete\r
+    002402  0a   003635 7100 00                tra     move_chars_co   131     obsolete\r
+    002403  0a   003637 7100 00                tra     move_chars_ho   132     obsolete\r
+    002404  0a   003656 7100 00                tra     cat_move_chars_co       133     obsolete\r
+    002405  0a   003660 7100 00                tra     cat_move_chars_ho       134     obsolete\r
+    002406  0a   004042 7100 00                tra     cat_chars_co    135     obsolete\r
+    002407  0a   004044 7100 00                tra     cat_chars_ho    136     obsolete\r
+    002410  0a   004065 7100 00                tra     cat_bits_co     137     obsolete\r
+    002411  0a   004067 7100 00                tra     cat_bits_ho     138     obsolete\r
+    002412  0a   011335 7100 00                tra     io_signal               139\r
+    002413  0a   004650 7100 00                tra     index_cs_1      140     obsolete\r
+    002414  0a   004656 7100 00                tra     index_cs_1_aligned      141     obsolete\r
+    002415  0a   006670 7100 00                tra     fort_mdfl1      142\r
+    002416  0a   006724 7100 00                tra     rfb1_to_cflb1   143\r
+    002417  0a   006726 7100 00                tra     rfb2_to_cflb1   144\r
+    002420  0a   006734 7100 00                tra     mpcfl1_1                145\r
+    002421  0a   006735 7100 00                tra     mpcfl1_2                146\r
+    002422  0a   006755 7100 00                tra     dvcfl1_1                147\r
+    002423  0a   006756 7100 00                tra     dvcfl1_2                148\r
+    002424  0a   003731 7100 00                tra     chars_move_vt_co        149     obsolete\r
+    002425  0a   003734 7100 00                tra     chars_move_vt_ho        150     obsolete\r
+    002426  0a   003732 7100 00                tra     chars_move_co   151     obsolete\r
+    002427  0a   003735 7100 00                tra     chars_move_ho   152     obsolete\r
+    002430  0a   003757 7100 00                tra     bits_move_vt_co 153     obsolete\r
+    002431  0a   003762 7100 00                tra     bits_move_vt_ho 154     obsolete\r
+    002432  0a   003760 7100 00                tra     bits_move_co    155     obsolete\r
+    002433  0a   003763 7100 00                tra     bits_move_ho    156     obsolete\r
+    002434  0a   004322 7100 00                tra     cp_chars_co     157     obsolete\r
+    002435  0a   004324 7100 00                tra     cp_chars_ho     158     obsolete\r
+    002436  0a   004342 7100 00                tra     cp_bits_co      159     obsolete\r
+    002437  0a   004344 7100 00                tra     cp_bits_ho      160     obsolete\r
+    002440  0a   004373 7100 00                tra     cpbs3_co                161     obsolete\r
+    002441  0a   004375 7100 00                tra     cpbs3_ho                162     obsolete\r
+    002442  0a   003254 7100 00                tra     shorten_stack   163\r
+    002443  0a   004426 7100 00                tra     zero_bits               164     obsolete\r
+    002444  0a   004434 7100 00                tra     zero_bits_aligned       165     obsolete\r
+    002445  0a   004430 7100 00                tra     zero_bits_co    166     obsolete\r
+    002446  0a   004432 7100 00                tra     zero_bits_ho    167     obsolete\r
+    002447  0a   004407 7100 00                tra     blank_chars     168     obsolete\r
+    002450  0a   004415 7100 00                tra     blank_chars_aligned     169     obsolete\r
+    002451  0a   004411 7100 00                tra     blank_chars_co  170     obsolete\r
+    002452  0a   004413 7100 00                tra     blank_chars_ho  171     obsolete\r
+    002453  0a   004455 7100 00                tra     index_chars_co  172     obsolete\r
+    002454  0a   004457 7100 00                tra     index_chars_ho  173     obsolete\r
+    002455  0a   004613 7100 00                tra     index_bits_co   174     obsolete\r
+    002456  0a   004615 7100 00                tra     index_bits_ho   175     obsolete\r
+    002457  0a   004652 7100 00                tra     index_cs_1_co   176     obsolete\r
+    002460  0a   004654 7100 00                tra     index_cs_1_ho   177     obsolete\r
+    002461  0a   004673 7100 00                tra     index_bs_1      178     obsolete\r
+    002462  0a   004701 7100 00                tra     index_bs_1_aligned      179     obsolete\r
+    002463  0a   004675 7100 00                tra     index_bs_1_co   180     obsolete\r
+    002464  0a   004677 7100 00                tra     index_bs_1_ho   181     obsolete\r
+    002465  0a   012452 0000 00                arg     shift_bo                182     obsolete\r
+    002466  0a   005422 7100 00                tra     return_words    183\r
+    002467  0a   005442 7100 00                tra     return_bits     184     obsolete\r
+    002470  0a   005444 7100 00                tra     return_bits_co  185     obsolete\r
+    002471  0a   005446 7100 00                tra     return_bits_ho  186     obsolete\r
+    002472  0a   005450 7100 00                tra     return_bits_al  187     obsolete\r
+    002473                              entry_operators:\r
+    002473  0a   012062 7100 00                tra     ext_entry               188\r
+    002474  0a   012106 7100 00                tra     ext_entry_desc  189\r
+    002475  0a   012127 7100 00                tra     int_entry               190\r
+    002476  0a   012145 7100 00                tra     int_entry_desc  191\r
+    002477  0a   012164 7100 00                tra     val_entry               192\r
+    002500  0a   012162 7100 00                tra     val_entry_desc  193\r
+    002501  0a   003427 7100 00                tra     get_chars_aligned       194     obsolete\r
+    002502  0a   003463 7100 00                tra     get_bits_aligned        195     obsolete\r
+    002503  0a   003416 7100 00                tra     fetch_chars     196\r
+    002504  0a   003451 7100 00                tra     fetch_bits      197\r
+    002505  0a   010507 7100 00                tra     get_terminate   198\r
+    002506  4a  4 00010 7101 20                tra     <put_format_>|[put_terminate]   199\r
+    002507  0a   010341 7100 00                tra     put_data_aligned        200     obsolete\r
+    002510  0a   010354 7100 00                tra     get_list_aligned        201     obsolete\r
+    002511  0a   010365 7100 00                tra     get_edit_aligned        202     obsolete\r
+    002512  0a   010417 7100 00                tra     put_list_aligned        203     obsolete\r
+    002513  0a   010430 7100 00                tra     put_edit_aligned        204     obsolete\r
+    002514  4a  4 00012 7101 20                tra     <put_format_>|[stream_prep]     205\r
+    002515  4a  4 00014 7101 20                tra     <record_io_>|[record_io]                206\r
+    002516  0a   010513 7100 00                tra     open_file               207\r
+    002517  0a   010515 7100 00                tra     close_file      208\r
+    002520  0a   010333 7100 00                tra     put_data                209     obsolete\r
+    002521  0a   010335 7100 00                tra     put_data_co     210     obsolete\r
+    002522  0a   010337 7100 00                tra     put_data_ho     211     obsolete\r
+    002523  0a   010346 7100 00                tra     get_list                212     obsolete\r
+    002524  0a   010350 7100 00                tra     get_list_co     213     obsolete\r
+    002525  0a   010352 7100 00                tra     get_list_ho     214     obsolete\r
+    002526  0a   010357 7100 00                tra     get_edit                215     obsolete\r
+    002527  0a   010361 7100 00                tra     get_edit_co     216     obsolete\r
+    002530  0a   010363 7100 00                tra     get_edit_ho     217     obsolete\r
+    002531  0a   010411 7100 00                tra     put_list                218     obsolete\r
+    002532  0a   010413 7100 00                tra     put_list_co     219     obsolete\r
+    002533  0a   010415 7100 00                tra     put_list_ho     220     obsolete\r
+    002534  0a   010422 7100 00                tra     put_edit                221     obsolete\r
+    002535  0a   010424 7100 00                tra     put_edit_co     222     obsolete\r
+    002536  0a   010426 7100 00                tra     put_edit_ho     223     obsolete\r
+    002537  0a   004236 7100 00                tra     suffix_cs               224     obsolete\r
+    002540  0a   004254 7100 00                tra     suffix_bs               225     obsolete\r
+    002541  0a   006542 7100 00                tra     fl2_to_fxscaled 226\r
+    002542  0a   007363 7100 00                tra     trunc_fx1               227\r
+    002543  0a   007375 7100 00                tra     trunc_fx2               228\r
+    002544  0a   007444 7100 00                tra     ceil_fx1                229\r
+    002545  0a   007500 7100 00                tra     ceil_fx2                230\r
+    002546  0a   007415 7100 00                tra     ceil_fl         231\r
+    002547  0a   007425 7100 00                tra     floor_fx1               232\r
+    002550  0a   007463 7100 00                tra     floor_fx2               233\r
+    002551  0a   007405 7100 00                tra     floor_fl        234\r
+    002552  0a   007354 7100 00                tra     trunc_fl        235\r
+    002553  0a   007515 7100 00                tra     round_fx1               236\r
+    002554  0a   007536 7100 00                tra     round_fx2               237\r
+    002555  0a   004103 7100 00                tra     repeat          238\r
+    002556  0a   005052 7100 00                tra     make_bit_table  239     obsolete\r
+    002557  0a   005060 7100 00                tra     make_bit_table_al       240     obsolete\r
+    002560  0a   005054 7100 00                tra     make_bit_table_co       241     obsolete\r
+    002561  0a   005056 7100 00                tra     make_bit_table_ho       242     obsolete\r
+    002562  0a   005147 7100 00                tra     verify          243     obsolete\r
+    002563  0a   005155 7100 00                tra     verify_al               244     obsolete\r
+    002564  0a   005151 7100 00                tra     verify_co               245     obsolete\r
+    002565  0a   005153 7100 00                tra     verify_ho               246     obsolete\r
+    002566  0a   005161 7100 00                tra     const_verify    247     obsolete\r
+    002567  0a   005167 7100 00                tra     const_verify_al 248     obsolete\r
+    002570  0a   005163 7100 00                tra     const_verify_co 249     obsolete\r
+    002571  0a   005165 7100 00                tra     const_verify_ho 250     obsolete\r
+    002572  0a   004212 7100 00                tra     reverse_cs      251\r
+    002573  0a   004166 7100 00                tra     reverse_bs      252\r
+    002574  0a   005110 7100 00                tra     form_bit_table  253     obsolete\r
+    002575  0a   005112 7100 00                tra     form_bit_table_co       254     obsolete\r
+    002576  0a   005114 7100 00                tra     form_bit_table_ho       255     obsolete\r
+    002577  0a   005116 7100 00                tra     form_bit_table_al       256     obsolete\r
+    002600  0a   004002 7100 00                tra     chars_move_ck   257     obsolete\r
+    002601  0a   004004 7100 00                tra     chars_move_ck_co        258     obsolete\r
+    002602  0a   004006 7100 00                tra     chars_move_ck_ho        259     obsolete\r
+    002603  0a   004010 7100 00                tra     chars_move_ck_al        260     obsolete\r
+    002604  0a   004021 7100 00                tra     bits_move_ck    261     obsolete\r
+    002605  0a   004023 7100 00                tra     bits_move_ck_co 262     obsolete\r
+    002606  0a   004025 7100 00                tra     bits_move_ck_ho 263     obsolete\r
+    002607  0a   004027 7100 00                tra     bits_move_ck_al 264     obsolete\r
+    002610  0a   007771 7100 00                tra     size_check_fx1  265\r
+    002611  0a   010013 7100 00                tra     size_check_fx2  266\r
+    002612  0a   010061 7100 00                tra     signal_stringsize       267\r
+    002613  0a   004272 7100 00                tra     suffix_cs_ck    268     obsolete\r
+    002614  0a   004312 7100 00                tra     suffix_bs_ck    269     obsolete\r
+    002615  0a   011040 7100 00                tra     pointer_hard    270\r
+    002616  0a   007727 7100 00                tra     alm_call                271     special for alm\r
+    002617  0a   007733 7100 00                tra     alm_push                272     special for alm\r
+    002620  0a   007757 7100 00                tra     alm_return      273     special for alm\r
+    002621  0a   007765 7100 00                tra     alm_return_no_pop       274     special for alm\r
+    002622  0a   007747 7100 00                tra     alm_entry               275     special for alm\r
+    002623  0a   007663 7100 00                tra     packed_to_bp    276     obsolete\r
+    002624  0a   005466 7100 00                tra     return_chars    277     obsolete\r
+    002625  0a   005470 7100 00                tra     return_chars_co 278     obsolete\r
+    002626  0a   005472 7100 00                tra     return_chars_ho 279     obsolete\r
+    002627  0a   005474 7100 00                tra     return_chars_aligned 280        obsolete\r
+    002630  0a   007667 7100 00                tra     rpd_odd_lp_bp   281     obsolete\r
+    002631  0a   007677 7100 00                tra     rpd_odd_bp_lp   282     obsolete\r
+    002632  0a   007707 7100 00                tra     rpd_even_lp_bp  283     obsolete\r
+    002633  0a   007717 7100 00                tra     rpd_even_bp_lp  284     obsolete\r
+    002634  0a   011066 7100 00                tra     offset_easy     285\r
+    002635  0a   011102 7100 00                tra     offset_easy_pk  286\r
+    002636  0a   011066 7100 00                tra     offset_hard     287\r
+    002637  0a   011102 7100 00                tra     offset_hard_pk  288\r
+    002640  0a   011053 7100 00                tra     pointer_hard_pk 289\r
+    002641  0a   011040 7100 00                tra     pointer_easy    290\r
+    002642  0a   011053 7100 00                tra     pointer_easy_pk 291\r
+    002643  0a   007553 7100 00                tra     round_fl                292\r
+    002644  0a   010230 7100 00                tra     enable_file     293\r
+    002645  0a   010303 7100 00                tra     revert_file     294\r
+    002646  0a   011115 7100 00                tra     alloc_block     295\r
+    002647  0a   011142 7100 00                tra     free_block      296\r
+    002650  0a   011157 7100 00                tra     push_ctl_data   297\r
+    002651  0a   011155 7100 00                tra     push_ctl_desc   298\r
+    002652  0a   011201 7100 00                tra     pop_ctl_data    299\r
+    002653  0a   011201 7100 00                tra     pop_ctl_desc    300\r
+    002654  0a   011221 7100 00                tra     allocation      301\r
+    002655  0a   003315 7100 00                tra     set_chars_eis   302\r
+    002656  0a   003336 7100 00                tra     set_bits_eis    303\r
+    002657  0a   004464 7100 00                tra     index_chars_eis 304\r
+    002660  0a   004606 7100 00                tra     index_bits_eis  305\r
+    002661  0a   004645 7100 00                tra     index_cs_1_eis  306\r
+    002662  0a   004670 7100 00                tra     index_bs_1_eis  307\r
+    002663  0a   005477 7100 00                tra     return_chars_eis        308\r
+    002664  0a   005453 7100 00                tra     return_bits_eis 309\r
+    002665  0a   010331 7100 00                tra     put_data_eis    310\r
+    002666  4a  4 00016 7101 20                tra     <put_format_>|[put_edit_eis]    311\r
+    002667  0a   010370 7100 00                tra     put_list_eis    312\r
+    002670  4a  4 00020 7101 20                tra     <put_format_>|[get_edit_eis]    313\r
+    002671  0a   010344 7100 00                tra     get_list_eis    314\r
+    002672  0a   005245 7100 00                tra     verify_eis      315\r
+    002673  0a   005223 7100 00                tra     search_eis      316\r
+    002674  0a   010517 7100 00                tra     fortran_read    317\r
+    002675  0a   010517 7100 00                tra     fortran_write   318\r
+    002676  0a   010562 7100 00                tra     fortran_manip   319\r
+    002677  0a   010555 7100 00                tra     fortran_scalar_xmit     320\r
+    002700  0a   010555 7100 00                tra     fortran_array_xmit      321\r
+    002701  0a   010564 7100 00                tra     fortran_terminate       322\r
+    002702  4a  4 00022 7101 20                tra     <any_to_any_>|[real_to_real_round_]     323\r
+    002703  4a  4 00024 7101 20                tra     <any_to_any_>|[real_to_real_truncate_]  324\r
+    002704  4a  4 00026 7101 20                tra     <any_to_any_>|[any_to_any_round_]       325\r
+    002705  4a  4 00030 7101 20                tra     <any_to_any_>|[any_to_any_truncate_]    326\r
+    002706  0a   011234 7100 00                tra     unpack_picture  327\r
+    002707  0a   011237 7100 00                tra     pack_picture    328\r
+    002710  0a   006042 7100 00                tra     divide_fx1      329\r
+    002711  0a   006061 7100 00                tra     divide_fx2      330\r
+    002712  0a   006044 7100 00                tra     divide_fx3      331\r
+    002713  0a   006063 7100 00                tra     divide_fx4      332\r
+    002714  0a   006027 7100 00                tra     scaled_mod_fx1  333\r
+    002715  0a   005757 7100 00                tra     scaled_mod_fx2  334\r
+    002716  0a   006031 7100 00                tra     scaled_mod_fx3  335\r
+    002717  0a   005761 7100 00                tra     scaled_mod_fx4  336\r
+    002720  0a   005322 7100 00                tra     translate_2     337\r
+    002721  0a   005360 7100 00                tra     translate_3     338\r
+    002722  4a  4 00032 7101 20                tra     <square_root_>|[square_root_]           339\r
+    002723  4a  4 00034 7101 20                tra     <sine_>|[sine_radians_]         340\r
+    002724  4a  4 00036 7101 20                tra     <sine_>|[sine_degrees_]         341\r
+    002725  4a  4 00040 7101 20                tra     <sine_>|[cosine_radians_]               342\r
+    002726  4a  4 00042 7101 20                tra     <sine_>|[cosine_degrees_]               343\r
+    002727  4a  4 00044 7101 20                tra     <tangent_>|[tangent_radians_]   344\r
+    002730  4a  4 00046 7101 20                tra     <tangent_>|[tangent_degrees_]   345\r
+    002731  4a  4 00050 7101 20                tra     <arc_sine_>|[arc_sine_radians_] 346\r
+    002732  4a  4 00052 7101 20                tra     <arc_sine_>|[arc_sine_degrees_] 347\r
+    002733  4a  4 00054 7101 20                tra     <arc_sine_>|[arc_cosine_radians_]       348\r
+    002734  4a  4 00056 7101 20                tra     <arc_sine_>|[arc_cosine_degrees_]       349\r
+    002735  4a  4 00060 7101 20                tra     <arc_tangent_>|[arc_tangent_radians_]   350\r
+    002736  4a  4 00062 7101 20                tra     <arc_tangent_>|[arc_tangent_degrees_]   351\r
+    002737  4a  4 00064 7101 20                tra     <logarithm_>|[log_base_2_]              352\r
+    002740  4a  4 00066 7101 20                tra     <logarithm_>|[log_base_e_]              353\r
+    002741  4a  4 00070 7101 20                tra     <logarithm_>|[log_base_10_]             354\r
+    002742  4a  4 00072 7101 20                tra     <exponential_>|[exponential_]           355\r
+    002743  4a  4 00074 7101 20                tra     <double_square_root_>|[double_square_root_]     356\r
+    002744  4a  4 00076 7101 20                tra     <double_sine_>|[double_sine_radians_]   357\r
+    002745  4a  4 00100 7101 20                tra     <double_sine_>|[double_sine_degrees_]   358\r
+    002746  4a  4 00102 7101 20                tra     <double_sine_>|[double_cosine_radians_] 359\r
+    002747  4a  4 00104 7101 20                tra     <double_sine_>|[double_cosine_degrees_] 360\r
+    002750  4a  4 00106 7101 20                tra     <double_tangent_>|[double_tangent_radians_]     361\r
+    002751  4a  4 00110 7101 20                tra     <double_tangent_>|[double_tangent_degrees_]     362\r
+    002752  4a  4 00112 7101 20                tra     <double_arc_sine_>|[double_arc_sine_radians_]   363\r
+    002753  4a  4 00114 7101 20                tra     <double_arc_sine_>|[double_arc_sine_degrees_]   364\r
+    002754  4a  4 00116 7101 20                tra     <double_arc_sine_>|[double_arc_cosine_radians_] 365\r
+    002755  4a  4 00120 7101 20                tra     <double_arc_sine_>|[double_arc_cosine_degrees_] 366\r
+    002756  4a  4 00122 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_radians_] 367\r
+    002757  4a  4 00124 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_degrees_] 368\r
+    002760  4a  4 00126 7101 20                tra     <double_logarithm_>|[double_log_base_2_]        369\r
+    002761  4a  4 00130 7101 20                tra     <double_logarithm_>|[double_log_base_e_]        370\r
+    002762  4a  4 00132 7101 20                tra     <double_logarithm_>|[double_log_base_10_]       371\r
+    002763  4a  4 00134 7101 20                tra     <double_exponential_>|[double_exponential_]     372\r
+    002764  4a  4 00136 7101 20                tra     <arc_tangent_>|[arc_tangent_radians_2_] 373\r
+    002765  4a  4 00140 7101 20                tra     <arc_tangent_>|[arc_tangent_degrees_2_] 374\r
+    002766  4a  4 00142 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_radians_2_]       375\r
+    002767  4a  4 00144 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_degrees_2_]       376\r
+    002770  4a  4 00146 7101 20                tra     <power_>|[integer_power_single_]        377\r
+    002771  4a  4 00150 7101 20                tra     <power_>|[integer_power_double_]        378\r
+    002772  4a  4 00152 7101 20                tra     <power_>|[double_power_single_] 379\r
+    002773  4a  4 00154 7101 20                tra     <power_>|[double_power_double_] 380\r
+    002774  4a  4 00156 7101 20                tra     <power_integer_>|[double_power_integer_]        381\r
+    002775  4a  4 00160 7101 20                tra     <power_>|[single_power_single_] 382\r
+    002776  4a  4 00162 7101 20                tra     <power_integer_>|[single_power_integer_]        383\r
+    002777  4a  4 00164 7101 20                tra     <integer_power_integer_>|[integer_power_integer_]       384\r
+    003000  0a   010056 7100 00                tra     signal_size     385\r
+    003001  0a   012222 7100 00                tra     ss_ext_entry    386\r
+    003002  0a   012250 7100 00                tra     ss_ext_entry_desc       387\r
+    003003  0a   012272 7100 00                tra     ss_int_entry    388\r
+    003004  0a   012311 7100 00                tra     ss_int_entry_desc       389\r
+    003005  0a   012331 7100 00                tra     ss_val_entry    390\r
+    003006  0a   012327 7100 00                tra     ss_val_entry_desc       391\r
+    003007  4a  4 00166 7101 20                tra     <cplx_dec_ops_>|[mpcdec]        392\r
+    003010  4a  4 00170 7101 20                tra     <cplx_dec_ops_>|[dvcdec]        393\r
+    003011  4a  4 00172 7101 20                tra     <cplx_dec_ops_>|[dvrcdec]       394\r
+    003012  4a  4 00174 7101 20                tra     <dec_ops_>|[ceil]       395\r
+    003013  4a  4 00176 7101 20                tra     <dec_ops_>|[floor]      396\r
+    003014  4a  4 00200 7101 20                tra     <dec_ops_>|[sign]       397\r
+    003015  4a  4 00202 7101 20                tra     <cplx_dec_ops_>|[cabs]  398\r
+    003016  4a  4 00204 7101 20                tra     <dec_ops_>|[truncate]   399\r
+    003017  4a  4 00206 7101 20                tra     <dec_ops_>|[mod]                400\r
+    003020  0a   011357 7100 00                tra     set_support     401\r
+    003021  0a   006071 7100 00                tra     div_4_cplx_ops  402\r
+    003022  0a   003441 7100 00                tra     fetch_chars_eis 403\r
+    003023  0a   007247 7100 00                tra     signal_stringrange      404\r
+    003024  0a   012412 7100 00                tra     ss_enter_begin_block    405\r
+    003025  4a  4 00210 7101 20                tra     <put_field_>|[put_field]                406      \r
+    003026  4a  4 00212 7101 20                tra     <put_field_>|[put_field_chk]            407\r
+    003027  4a  4 00214 7101 20                tra     <put_field_>|[put_control]      408\r
+    003030  4a  4 00216 7101 20                tra     <alloc_>|[op_alloc_]    409\r
+    003031  0a   011112 7100 00                tra     alloc_storage           410\r
+    003032  4a  4 00220 7101 20                tra     <alloc_>|[op_freen_]    411\r
+    003033  4a  4 00222 7101 20                tra     <alloc_>|[op_empty_]    412\r
+    003034  4a  4 00224 7101 20                tra     <fort_math_ops_>|[cabs]         413     fortran only\r
+    003035  4a  4 00226 7101 20                tra     <fort_math_ops_>|[ccos]         414     fortran only\r
+    003036  4a  4 00230 7101 20                tra     <fort_math_ops_>|[cexp]         415     fortran only\r
+    003037  4a  4 00232 7101 20                tra     <fort_math_ops_>|[clog]         416     fortran only\r
+    003040  4a  4 00234 7101 20                tra     <fort_math_ops_>|[csin]         417     fortran only\r
+    003041  4a  4 00236 7101 20                tra     <fort_math_ops_>|[csqrt]                418     fortran only\r
+    003042  4a  4 00240 7101 20                tra     <fort_math_ops_>|[tanh]         419     fortran only\r
+    003043  4a  4 00242 7101 20                tra     <fort_math_ops_>|[dmod]         420     fortran only (obsolete)\r
+    003044  4a  4 00244 7101 20                tra     <fort_math_ops_>|[cmpx_p_cmpx]  421     fortran only\r
+    003045  0a   011362 7100 00                tra     get_math_entry  422     fortran only\r
+    003046  0a   011471 7100 00                tra     fortran_pause   423     fortran only\r
+    003047  0a   011473 7100 00                tra     fortran_stop    424     fortran only\r
+    003050  0a   011514 7100 00                tra     fortran_chain   425     fortran only\r
+    003051  0a   024751 7100 00                tra     long_profile    426\r
+    003052  0a   004714 7100 00                tra     index_before_cs 427\r
+    003053  0a   005004 7100 00                tra     index_before_bs 428\r
+    003054  0a   004720 7100 00                tra     index_after_cs  429\r
+    003055  0a   005010 7100 00                tra     index_after_bs  430\r
+    003056  0a   005035 7100 00                tra     index_before_bs_1       431\r
+    003057  0a   005041 7100 00                tra     index_after_bs_1        432\r
+    003060  0a   005271 7100 00                tra     verify_for_ltrim        433\r
+    003061  0a   005304 7100 00                tra     verify_for_rtrim        434\r
+    003062  0a   006557 7100 00                tra     stacq_mac               435\r
+    003063  0a   006563 7100 00                tra     clock_mac               436\r
+    003064  0a   006571 7100 00                tra     vclock_mac      437\r
+    003065  0a   010567 7100 00                tra     ftn_open_element        438     fortran only\r
+    003066  0a   011033 7100 00                tra     ftn_get_area_ptr        439     fortran only\r
+    003067  0a   006577 7100 00                tra     stop            440\r
+    003070  0a   006610 7100 00                tra     return_main     441\r
+    003071  0a   006626 7100 00                tra     set_main_flag   442\r
+    003072  0a   006614 7100 00                tra     begin_return_main       443\r
+    003073  0a   010030 7100 00                tra     size_check_uns_fx1      444\r
+    003074  0a   010036 7100 00                tra     size_check_uns_fx2      445\r
+    003075  0a   011463 7100 00                tra     fortran_end     446     fortran only\r
+    003076  0a   006706 7100 00                tra     fort_dmod       447     fortran only\r
+    003077  0a   004540 7100 00                tra     ix_rev_chars    448\r
+    003100  0a   005247 7100 00                tra     verify_rev_chars        449\r
+    003101  0a   005251 7100 00                tra     search_rev_chars        450\r
+    003102  0a   003261 7100 00                tra     shorten_stack_protect_ind       451\r
+    003103  0a   003270 7100 00                tra     save_stack_quick        452\r
+    003104  0a   003274 7100 00                tra     restore_stack_quick     453\r
+    003105  4a  4 00246 7101 20                tra     <fort_math_ops_>|[dtanh]        454     fortran only\r
+    003106  4a  4 00250 7101 20                tra     <fort_math_ops_>|[sinh] 455     fortran only\r
+    003107  4a  4 00252 7101 20                tra     <fort_math_ops_>|[dsinh]        456     fortran only\r
+    003110  4a  4 00254 7101 20                tra     <fort_math_ops_>|[cosh] 457     fortran only\r
+    003111  4a  4 00256 7101 20                tra     <fort_math_ops_>|[dcosh]        458     fortran only\r
+    003112  0a   007576 7100 00                tra     nearest_whole_number    459     fortran only\r
+    003113  0a   007607 7100 00                tra     nearest_integer 460     fortran only\r
+    003114  0a   010722 7100 00                tra     ftn_inquire_element     461     fortran only\r
+    003115  0a   010044 7100 00                tra     mpy_overflow_check      462     fortran only\r
+    003116  0a   005557 7100 00                tra     fort_return_mac 463     fortran only\r
+    003117  0a   010146 7100 00                tra     fort_cleanup    464     fortran only\r
+    003120  0a   010073 7100 00                tra     fort_storage    465     fortran only\r
+    003121  0a   011534 7100 00                tra     enter_BFP_mode  466\r
+    003122  0a   011540 7100 00                tra     enter_HFP_mode  467\r
+    003123  0a   011631 7100 00                tra     unimp           468     future expansion\r
+    003124  0a   011631 7100 00                tra     unimp           469     future expansion\r
+    003125  0a   011631 7100 00                tra     unimp           470     future expansion\r
+    003126  0a   011631 7100 00                tra     unimp           471     future expansion\r
+    003127  0a   011631 7100 00                tra     unimp           472     future expansion\r
+    003130  0a   011631 7100 00                tra     unimp           473     future expansion\r
+    003131  0a   011631 7100 00                tra     unimp           474     future expansion\r
+    003132  0a   011631 7100 00                tra     unimp           475     future expansion\r
+    003133  0a   011631 7100 00                tra     unimp           476     future expansion\r
+    003134  0a   011631 7100 00                tra     unimp           477     future expansion\r
+    003135  0a   011631 7100 00                tra     unimp           478     future expansion\r
+    003136  0a   011631 7100 00                tra     unimp           479     future expansion\r
+    003137  0a   011631 7100 00                tra     unimp           480     future expansion\r
+                                  1336  \r
+                                  1337  "\r
+                                  1338  "      The following section is not referenced directly by\r
+                                  1339  "      the compiled pl/1 program and may be changed as\r
+                                  1340  "      desired.\r
+                                  1341  "\r
+                                  1342  "      THE FOLLOWING CONVENTIONS APPLY TO STRING OPERATORS\r
+                                  1343  "              1. Unless specified otherwise, a unit size is in the q register\r
+                                  1344  "              2. Operators whose names end in "_aligned" or "vta" deal\r
+                                  1345  "                 with aligned strings having no fractional offset.\r
+                                  1346  "              3. Operators whose names end in "_co" have a character offset in x7.\r
+                                  1347  "              4. Operators whose names end in "_ho" have a half-word offset in x7.\r
+                                  1348  "              5. If not one of the above, the offset is a bit offset in x7.\r
+                                  1349  "              6. A pointer to the string is transmitted in the bp.\r
+                                  1350  "              7. If name of operator ends in "_eis", the bit offset is correct in bp\r
+                                  1351  "                 and index register 7 is not used.\r
+                                  1352  "\r
+                                  1353  "      allocation operators\r
+                                  1354  "      The char and bit allocation operators reserve two extra words\r
+                                  1355  "      the temporary is stored in the second of these.\r
+                                  1356  "\r
+    003140                        1357  alloc_char_temp:\r
+    003140  aa  6 00063 7561 00   1358         stq     sp|char_lg1     save char length\r
+    003141  aa  6 00064 4501 00   1359         stz     sp|bit_or_char  indicate char temp\r
+    003142  aa   000013 0760 07   1360         adq     3+8,dl          compute number of words with 2 more\r
+    003143  aa   000002 7320 00   1361         qrs     2\r
+    003144  0a   003162 7010 00   1362         tsx1    alloc           allocate space\r
+    003145  aa  6 00063 2361 00   1363         ldq     sp|char_lg1     restore char length\r
+                                  1364  "\r
+    003146  aa  2 00002 3521 00   1365  act:   eppbp   bp|2            skip over extra 2 words\r
+    003147  aa  2 77777 7561 00   1366         stq     bp|-1           save length of temp\r
+    003150  aa  6 00050 2521 00   1367  abt:   spribp  sp|temp_pt      save pointer to temp\r
+    003151  aa  6 00046 7101 70   1368         tra     sp|tbp,*0               and return to pl/1 program\r
+                                  1369  "\r
+    003152                        1370  alloc_bit_temp:\r
+    003152  aa  6 00062 7561 00   1371         stq     sp|bit_lg1      save bit length\r
+    003153  aa  6 00064 5541 00   1372         stc1    sp|bit_or_char  indicate bit temp\r
+    003154  aa   000153 0760 07   1373         adq     35+72,dl                compute number of words (2 extra)\r
+    003155  aa   000044 5060 07   1374         div     36,dl\r
+    003156  0a   003162 7010 00   1375         tsx1    alloc           allocate space\r
+    003157  aa  6 00062 2361 00   1376         ldq     sp|bit_lg1      restore bit length\r
+    003160  0a   003146 7100 00   1377         tra     act             and go fill in length\r
+                                  1378  "\r
+    003161                        1379  alloc_temp:\r
+    003161  0a   003150 6210 00   1380         eax1    abt             alloc N words and go save ptr\r
+                                  1381  "                              fall into alloc coding\r
+                                  1382  "\r
+                                  1383  "      routine to allocate N words at end of stack.\r
+                                  1384  "      entered with N in ql.\r
+                                  1385  "\r
+    003162  aa   000022 7360 00   1386  alloc: qls     18              shift number to qu\r
+    003163  aa  6 00060 7561 00   1387         stq     sp|temp_size    save number of words\r
+                                  1388         get_stack_offset\r
+    003164  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    003165  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    003166  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    003167  aa  6 00024 3521 21   1389         eppbp   sp|stack_header.stack_end_ptr,au* get ptr to extension\r
+    003170  aa   000017 0360 03   1390         adlq    15,du           make size a multiple of 16\r
+    003171  aa   777760 3760 03   1391         anq     =o777760,du     ..\r
+    003172  aa  6 00061 7561 00   1392         stq     sp|extend_size\r
+    003173  aa  6 00023 0361 00   1393         adlq    sp|stack_frame.next_sp+1        compute new end of stack frame\r
+    003174  aa  6 00023 7561 00   1394         stq     sp|stack_frame.next_sp+1        bump next ptr\r
+    003175  aa  6 00025 7561 01   1395         stq     sp|stack_header.stack_end_ptr+1,au      bump stack end pointer\r
+    003176  aa   000000 7100 11   1396         tra     0,1             return to operator\r
+                                  1397  "\r
+                                  1398  "      reallocation operators\r
+                                  1399  "      allowance is made for the two words at the head of the string\r
+                                  1400  "\r
+    003177                        1401  cat_realloc_bits:\r
+    003177  aa  6 00062 2351 00   1402         lda     sp|bit_lg1      set up for concatenation\r
+    003200  aa  6 00066 7551 00   1403         sta     sp|cat_lg1\r
+    003201  aa  6 00062 7561 00   1404         stq     sp|bit_lg1      set new bit length\r
+    003202  aa   000153 0760 07   1405         adq     35+72,dl                compute new length of temp\r
+    003203  aa   000044 5060 07   1406         div     36,dl\r
+    003204  aa  6 00062 2351 00   1407         lda     sp|bit_lg1      restore bit length\r
+    003205  0a   003225 7010 00   1408         tsx1    realloc         extend stack again\r
+    003206  aa  6 00046 7101 70   1409         tra     sp|tbp,*0               an return to caller\r
+                                  1410  "\r
+    003207                        1411  realloc_bit_temp:\r
+    003207  aa  6 00062 7551 00   1412         sta     sp|bit_lg1      set new length\r
+    003210  aa   000153 0760 07   1413         adq     35+72,dl                compute new word length\r
+    003211  aa   000044 5060 07   1414         div     36,dl\r
+    003212  aa  6 00062 2351 00   1415         lda     sp|bit_lg1      restore bit length\r
+    003213  0a   003225 7010 00   1416         tsx1    realloc         extend stack\r
+    003214  0a   003703 7100 00   1417         tra     zero_it         and go zero new space\r
+                                  1418  "\r
+    003215                        1419  cat_realloc_chars:\r
+    003215  aa  6 00063 2351 00   1420         lda     sp|char_lg1     set up for concatenation\r
+    003216  aa  6 00066 7551 00   1421         sta     sp|cat_lg1\r
+                                  1422  "\r
+    003217                        1423  realloc_char_temp:\r
+    003217  aa  6 00063 7561 00   1424         stq     sp|char_lg1     set new char length\r
+    003220  aa   000013 0760 07   1425         adq     3+8,dl          compute new word length\r
+    003221  aa   000002 7320 00   1426         qrs     2\r
+    003222  aa  6 00063 2351 00   1427         lda     sp|char_lg1     restore char lenth\r
+    003223  0a   003225 7010 00   1428         tsx1    realloc         extend stack\r
+    003224  aa  6 00046 7101 70   1429         tra     sp|tbp,*0               and exit\r
+                                  1430  "\r
+    003225  aa  6 00070 7411 00   1431  realloc:       stx1    sp|save_x01\r
+    003226  aa  6 00060 2211 00   1432         ldx1    sp|temp_size    save end position of current temp\r
+    003227  aa  6 00050 3521 20   1433         eppbp   sp|temp_pt,*    get ptr to temp\r
+    003230  aa  2 77777 7551 00   1434         sta     bp|-1\r
+    003231  aa  6 00070 2351 00   1435         lda     sp|save_x01     restore return offset\r
+    003232  aa   000022 7360 00   1436         qls     18              shift word size to qu\r
+    003233  aa  6 00060 7561 00   1437         stq     sp|temp_size    set new size of temp\r
+    003234  aa  6 00061 1361 00   1438         sblq    sp|extend_size  subtract size of extension\r
+    003235  aa   000000 6040 01   1439         tmi     0,au            return if no extension needed\r
+    003236  aa   000017 0360 03   1440         adlq    15,du           make increment a multiple of 16\r
+    003237  aa   777760 3760 03   1441         anq     =o777760,du     ..\r
+    003240  aa  6 00076 7561 00   1442         stq     sp|temp         save increment momentarily\r
+    003241  aa  6 00061 0361 00   1443         adlq    sp|extend_size  update extension size\r
+    003242  aa  6 00061 7561 00   1444         stq     sp|extend_size  ..\r
+                                  1445         get_stack_offset\r
+    003243  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    003244  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    003245  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    003246  aa  6 00076 2361 00   1446         ldq     sp|temp         get extension increment\r
+    003247  aa  6 00023 0361 00   1447         adlq    sp|stack_frame.next_sp+1        compute new end of stack frame\r
+    003250  aa  6 00023 7561 00   1448         stq     sp|stack_frame.next_sp+1        bump next sp pointer\r
+    003251  aa  6 00025 7561 01   1449         stq     sp|stack_header.stack_end_ptr+1,au      bump stack end pointer\r
+    003252  aa  6 00070 2351 00   1450         lda     sp|save_x01     restore return offset\r
+    003253  aa   000000 7100 01   1451         tra     0,au            return to caller\r
+                                  1452  "\r
+                                  1453  "      this operator shortens the stack frame to its original length\r
+                                  1454  "\r
+    003254                        1455  shorten_stack:\r
+    003254  aa  6 00000 3511 00   1456         epbpab  sp|0            get ptr to base of stack\r
+    003255  aa  6 00005 2211 00   1457         ldx1    sp|5\r
+    003256  aa  6 00023 7411 00   1458         stx1    sp|stack_frame.next_sp+1\r
+    003257  aa  1 00025 7411 00   1459         stx1    ab|stack_header.stack_end_ptr+1\r
+                                  1460  \r
+    003260  aa  6 00046 7101 70   1461         tra     sp|tbp,*0\r
+                                  1462  "\r
+                                  1463  "      This operator is the same as shorten_stack above, but does not change the indicators.\r
+                                  1464  "\r
+    003261                        1465  shorten_stack_protect_ind:\r
+    003261  aa  6 00076 7541 00   1466         sti     sp|temp         Save indicators\r
+    003262  aa  6 00000 3505 00   1467         epbpap  sp|0            Get ptr to base of stack\r
+    003263  aa  6 00005 2211 00   1468         ldx1    sp|5\r
+    003264  aa  6 00023 7411 00   1469         stx1    sp|stack_frame.next_sp+1\r
+    003265  aa  1 00025 7411 00   1470         stx1    ab|stack_header.stack_end_ptr+1\r
+    003266  aa  6 00076 6341 00   1471         ldi     sp|temp         Restore indicators\r
+                                  1472  \r
+    003267  aa  6 00046 7101 70   1473         tra     sp|tbp,*0\r
+                                  1474  "\r
+                                  1475  "      This operator makes the current extension permanent,\r
+                                  1476  "      and returns the old permanent extent  in the q.\r
+                                  1477  "\r
+    003270                        1478  save_stack_quick:\r
+    003270  aa  6 00005 2361 00   1479         ldq     sp|5            Get permanent extent\r
+    003271  aa  6 00023 2211 00   1480         ldx1    sp|stack_frame.next_sp+1\r
+    003272  aa  6 00005 7411 00   1481         stx1    sp|5            Change it\r
+    003273  aa  6 00046 7101 70   1482         tra     sp|tbp,*0\r
+                                  1483  "\r
+                                  1484  "      This operator is the inverse of save_stack_quick above.\r
+                                  1485  "      It takes a stack offset in the Q, and makes it the permanent\r
+                                  1486  "      stack extent.\r
+                                  1487  "\r
+    003274                        1488  restore_stack_quick:\r
+    003274  aa  6 00005 7561 00   1489         stq     sp|5            Change permanent extent\r
+    003275  aa  6 00046 7101 70   1490         tra     sp|tbp,*0\r
+                                  1491  "\r
+                                  1492  "      code added here to handle 2 extra instructions needed at set_stack\r
+                                  1493  "\r
+    003276                        1494  set_stack_extend:\r
+                                  1495         get_stack_offset\r
+    003276  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    003277  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    003300  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    003301  aa  6 00022 3521 20   1496         eppbp   sp|stack_frame.next_sp,* set up stack end ptr correctly\r
+    003302  aa  6 00024 2521 01   1497         spribp  sp|stack_header.stack_end_ptr,au ..\r
+    003303  aa  6 00046 7101 70   1498         tra     sp|tbp,*0               and return to pl1 program\r
+                                  1499  "\r
+                                  1500  "      operator to save the string in the aq in stack so it is\r
+                                  1501  "      accessable to long string operators.  entered with bit_size\r
+                                  1502  "      in x6 and string in aq\r
+                                  1503  "\r
+    003304                        1504  save_string:\r
+    003304  aa  6 00056 7571 00   1505         staq    sp|double_temp  save the string\r
+    003305  aa  6 00056 3521 00   1506         eppbp   sp|double_temp  load ptr to string\r
+    003306  aa   000000 6360 16   1507         eaq     0,6             move bit size to ql\r
+    003307  aa   000022 7720 00   1508         qrl     18\r
+    003310  aa  6 00050 2521 00   1509         spribp  sp|temp_pt      save ptr to string\r
+    003311  aa  6 00062 7561 00   1510         stq     sp|bit_lg1      save bit length\r
+    003312  aa   000011 5060 07   1511         div     9,dl            compute char length\r
+    003313  aa  6 00063 7561 00   1512         stq     sp|char_lg1     and save that\r
+    003314  aa  6 00046 7101 70   1513         tra     sp|tbp,*0\r
+                                  1514  "\r
+                                  1515  "      operators to save info about a string in the stack.\r
+                                  1516  "\r
+    003315                        1517  set_chars_eis:\r
+    003315  aa  6 00063 7561 00   1518         stq     sp|char_lg1     save char length\r
+    003316  aa  6 00064 4501 00   1519         stz     sp|bit_or_char  indicate char string\r
+    003317  aa  6 00050 2521 00   1520         spribp  sp|temp_pt      save ptr (with bit offset)\r
+    003320  aa  6 00046 7101 70   1521         tra     sp|tbp,*0               and return\r
+                                  1522  "\r
+    003321                        1523  set_chars:\r
+    003321  aa   000000 6210 17   1524         eax1    0,7             get bit offset\r
+    003322  0a   003330 7100 00   1525         tra     sca\r
+                                  1526  "\r
+    003323                        1527  set_chars_co:\r
+    003323  0a   001264 2210 17   1528         ldx1    co_to_bo,7      convert to bit offset\r
+    003324  0a   003330 7100 00   1529         tra     sca\r
+                                  1530  "\r
+    003325                        1531  set_chars_ho:\r
+    003325  0a   001270 2210 17   1532         ldx1    ho_to_bo,7      convert to bit offset\r
+    003326  0a   003330 7100 00   1533         tra     sca\r
+                                  1534  "\r
+    003327                        1535  set_chars_aligned:\r
+    003327  aa   000000 6210 00   1536         eax1    0               get zero offset\r
+    003330  aa  6 00063 7561 00   1537  sca:   stq     sp|char_lg1     save char length\r
+    003331  aa  6 00064 4501 00   1538         stz     sp|bit_or_char  indicate char string\r
+                                  1539  "\r
+    003332  aa  6 00050 2521 00   1540  sca1:  spribp  sp|temp_pt      save ptr to string\r
+    003333  0a   012452 7210 11   1541         lxl1    shift_bo,1      shift bit offset to left\r
+    003334  aa  6 00051 4411 00   1542         sxl1    sp|temp_pt+1    and overwrite former bit offset\r
+    003335  aa  6 00046 7101 70   1543         tra     sp|tbp,*0\r
+                                  1544  "\r
+    003336                        1545  set_bits_eis:\r
+    003336  aa  6 00062 7561 00   1546         stq     sp|bit_lg1      save bit length\r
+    003337  aa  6 00064 5541 00   1547         stc1    sp|bit_or_char  indicate bit string\r
+    003340  aa  6 00050 2521 00   1548         spribp  sp|temp_pt      save ptr (with bit offset)\r
+    003341  aa  6 00046 7101 70   1549         tra     sp|tbp,*0               and return\r
+                                  1550  "\r
+    003342                        1551  set_bits:\r
+    003342  aa   000000 6210 17   1552         eax1    0,7             get bit offset\r
+    003343  0a   003351 7100 00   1553         tra     sba\r
+                                  1554  "\r
+    003344                        1555  set_bits_co:\r
+    003344  0a   001264 2210 17   1556         ldx1    co_to_bo,7      convert to bit offset\r
+    003345  0a   003351 7100 00   1557         tra     sba\r
+                                  1558  "\r
+    003346                        1559  set_bits_ho:\r
+    003346  0a   001270 2210 17   1560         ldx1    ho_to_bo,7      convert to bit offset\r
+    003347  0a   003351 7100 00   1561         tra     sba\r
+                                  1562  "\r
+    003350                        1563  set_bits_aligned:\r
+    003350  aa   000000 6210 00   1564         eax1    0               get zero offset\r
+                                  1565  "\r
+    003351  aa  6 00062 7561 00   1566  sba:   stq     sp|bit_lg1      save bit length\r
+    003352  aa  6 00064 5541 00   1567         stc1    sp|bit_or_char  indicate bit temp\r
+    003353  0a   003332 7100 00   1568         tra     sca1\r
+                                  1569  "\r
+                                  1570  "      operator to store a string when size+offset > 72\r
+                                  1571  "      entered with string to be stored in aq, bit_size+offset-72 in x6,\r
+                                  1572  "      bit offset in x7, and ptr to destination in bp\r
+                                  1573  "\r
+    003354                        1574  store_string:\r
+    003354  aa  6 00076 7561 00   1575         stq     sp|temp         save right part of string\r
+    003355  aa   000000 7730 17   1576         lrl     0,7             shift to proper position\r
+    003356  aa  2 00000 6751 00   1577         era     bp|0            insert in first two words\r
+    003357  aa  2 00001 7561 00   1578         stq     bp|1            of destination\r
+    003360  0a   011705 3750 17   1579         ana     mask_bit_one,7  mask has no trailing zeros\r
+    003361  aa  2 00000 6551 00   1580         ersa    bp|0\r
+    003362  aa  6 00076 2351 00   1581         lda     sp|temp         get right part of string\r
+    003363  aa   000000 2360 07   1582         ldq     0,dl            clear q register\r
+    003364  aa   000000 7730 17   1583         lrl     0,7             shift into position\r
+    003365  aa  2 00002 6761 00   1584         erq     bp|2            insert into third word\r
+    003366  0a   011641 3760 16   1585         anq     bit_mask_one,6  mask has no leading zeros\r
+    003367  aa  2 00002 6561 00   1586         ersq    bp|2\r
+    003370  aa  6 00046 7101 70   1587         tra     sp|tbp,*0               return to pl1 program\r
+                                  1588  "\r
+                                  1589  "      operator to store a string with an adjustable bit offset.\r
+                                  1590  "      entered with bit size in x6.\r
+                                  1591  "\r
+    003371                        1592  string_store:\r
+    003371  aa   000000 6210 17   1593         eax1    0,7             bit offset to x1\r
+    003372  0a   003410 7100 00   1594         tra     ss_0\r
+                                  1595  "\r
+    003373                        1596  string_store_co:\r
+    003373  aa   000000 6210 17   1597         eax1    0,7             char offset to x1\r
+    003374  aa   000004 1010 03   1598         cmpx1   4,du            is offset >= 36 bits\r
+    003375  aa   000003 6040 04   1599         tmi     3,ic            no\r
+    003376  aa  2 00001 3521 00   1600         eppbp   bp|1            yes, adjust destination pointer\r
+    003377  aa   777774 6210 11   1601         eax1    -4,1            and offset\r
+    003400  0a   001264 2210 11   1602         ldx1    co_to_bo,1      convert to bit offset\r
+    003401  0a   003410 7100 00   1603         tra     ss_0\r
+                                  1604  "\r
+    003402                        1605  string_store_ho:\r
+    003402  aa   000000 6210 17   1606         eax1    0,7             half word offset to x1\r
+    003403  aa   000002 1010 03   1607         cmpx1   2,du            is offset >= 36 bits\r
+    003404  aa   000003 6040 04   1608         tmi     3,ic            no\r
+    003405  aa  2 00001 3521 00   1609         eppbp   bp|1            yes, adjust destination pointer\r
+    003406  aa   777776 6210 11   1610         eax1    -2,1            and offset\r
+    003407  0a   001270 2210 11   1611         ldx1    ho_to_bo,1      convert to bit offset\r
+                                  1612  "\r
+    003410  aa   000000 0520 03   1613  ss_0:  adwpbp  0,du            erase bit offset\r
+    003411  aa  6 00056 7571 00   1614         staq    sp|double_temp  save in aligned temp\r
+    003412  aa  0 03151 0605 40   1615         csl     (ar+rl),(ar+rl+x1),bool(move)   move into target\r
+    003413  aa   600056 000016    1616         descb   sp|double_temp,x6\r
+    003414  aa   200000 000016    1617         descb   bp|0,x6\r
+    003415  aa  6 00046 7101 70   1618         tra     sp|tbp,*0\r
+                                  1619  "\r
+                                  1620  "      operator to return in aq the first 72 bits of the char string\r
+                                  1621  "      specified by string_aq.  if the length if less than 72 bits, string is padded\r
+                                  1622  "      with blanks\r
+                                  1623  "\r
+    003416                        1624  fetch_chars:\r
+    003416  aa  6 00063 2361 00   1625         ldq     sp|char_lg1     load char length\r
+    003417  aa  6 00050 3501 20   1626         eppap   sp|temp_pt,*    get ptr to temp\r
+    003420  0a   003433 7100 00   1627         tra     gc_1            join common case\r
+                                  1628  "\r
+                                  1629  "      operator to return in aq the first 72 bits of an adjustable char\r
+                                  1630  "      string. if length is less than 72 bits, string is padded.\r
+                                  1631  "      note: compiled code expects bp not to be changed\r
+                                  1632  "\r
+    003421                        1633  get_chars:\r
+    003421  aa   000000 6210 17   1634         eax1    0,7             load offset\r
+    003422  0a   003430 7100 00   1635         tra     gc_0\r
+                                  1636  "\r
+    003423                        1637  get_chars_co:\r
+    003423  0a   001264 2210 17   1638         ldx1    co_to_bo,7      convert offset to bits\r
+    003424  0a   003430 7100 00   1639         tra     gc_0\r
+                                  1640  "\r
+    003425                        1641  get_chars_ho:\r
+    003425  0a   001270 2210 17   1642         ldx1    ho_to_bo,7      convert offset to bits\r
+    003426  0a   003430 7100 00   1643         tra     gc_0\r
+                                  1644  "\r
+    003427                        1645  get_chars_aligned:\r
+    003427  aa   000000 6210 00   1646         eax1    0               get zero offset\r
+                                  1647  "\r
+    003430  aa  2 00000 3501 00   1648  gc_0:  eppap   bp|0            copy ptr to string\r
+    003431  aa   000000 0500 03   1649         adwpap  0,du            erase bit offset\r
+    003432  aa  0 00000 5035 11   1650         abd     ap|0,1          add new bit offset\r
+                                  1651  "\r
+    003433  aa  0 40100 1005 40   1652  gc_1:  mlr     (ar+rl),(ar),fill(blank)        move to aligned temp\r
+    003434  aa   000000 000006    1653         desc9a  ap|0,ql\r
+    003435  aa   600076 000010    1654         desc9a  sp|temp,8\r
+    003436  aa  6 00030 3501 20   1655         eppap   sp|stack_frame.operator_ptr,*\r
+    003437  aa  6 00076 2371 00   1656         ldaq    sp|temp\r
+    003440  aa  6 00046 7101 70   1657         tra     sp|tbp,*0\r
+                                  1658  "\r
+                                  1659  "      operator to return in aq the first 72 bits of the char string\r
+                                  1660  "      specified by string aq.  if the length is less than 72 bits, string \r
+                                  1661  "      is padded with binary zeroes.\r
+                                  1662  "\r
+    003441                        1663  fetch_chars_eis:\r
+    003441  aa  6 00063 2361 00   1664         ldq     sp|char_lg1     load char length\r
+    003442  aa  6 00050 3501 20   1665         eppap   sp|temp_pt,*    get ptr to temp\r
+    003443  aa  0 00100 1005 40   1666         mlr     (ar+rl),(ar),fill(0)    move to aligned temp\r
+    003444  aa   000000 000006    1667         desc9a  ap|0,ql\r
+    003445  aa   600076 000010    1668         desc9a  sp|temp,8\r
+    003446  aa  6 00030 3501 20   1669         eppap   sp|stack_frame.operator_ptr,*\r
+    003447  aa  6 00076 2371 00   1670         ldaq    sp|temp\r
+    003450  aa  6 00046 7101 70   1671         tra     sp|tbp,*0\r
+                                  1672  "\r
+                                  1673  "      operator to return in aq the first 72 bits of the bit string\r
+                                  1674  "      specified by string_aq.  if length is less than 72 bits,\r
+                                  1675  "      string is padded.\r
+                                  1676  "\r
+    003451                        1677  fetch_bits:                    "eis comes here, too\r
+    003451  aa  6 00050 3501 20   1678         eppap   sp|temp_pt,*    get ptr to temp\r
+    003452  aa  6 00062 2361 00   1679         ldq     sp|bit_lg1      get bit length\r
+    003453  aa   000000 6210 00   1680         eax1    0               use 0 bit offset\r
+    003454  0a   003466 7100 00   1681         tra     gb_1\r
+                                  1682  "\r
+                                  1683  "      operator to return in aq the first 72 bits of an adjustable bit\r
+                                  1684  "      string. if length is less than 72 bits, string is padded.\r
+                                  1685  "      note: compiled code expects bp not to be changed\r
+                                  1686  "\r
+    003455                        1687  get_bits:\r
+    003455  aa   000000 6210 17   1688         eax1    0,7             load offset\r
+    003456  0a   003464 7100 00   1689         tra     gb_0\r
+                                  1690  "\r
+    003457                        1691  get_bits_co:\r
+    003457  0a   001264 2210 17   1692         ldx1    co_to_bo,7      convert offset to bits\r
+    003460  0a   003464 7100 00   1693         tra     gb_0\r
+                                  1694  "\r
+    003461                        1695  get_bits_ho:\r
+    003461  0a   001270 2210 17   1696         ldx1    ho_to_bo,7      convert offset to bits\r
+    003462  0a   003464 7100 00   1697         tra     gb_0\r
+                                  1698  "\r
+    003463                        1699  get_bits_aligned:\r
+    003463  aa   000000 6210 00   1700         eax1    0               get zero offset\r
+                                  1701  "\r
+    003464  aa  2 00000 3501 00   1702  gb_0:  eppap   bp|0            copy ptr to string\r
+    003465  aa   000000 0500 03   1703         adwpap  0,du            erase bit offset\r
+                                  1704  "\r
+    003466  aa  0 03100 0605 51   1705  gb_1:  csl     (ar+rl+x1),(ar),bool(move)      move to aligned temp\r
+    003467  aa   000000 000006    1706         descb   ap|0,ql\r
+    003470  aa   600076 000110    1707         descb   sp|temp,72\r
+    003471  aa  6 00030 3501 20   1708         eppap   sp|stack_frame.operator_ptr,*\r
+    003472  aa  6 00076 2371 00   1709         ldaq    sp|temp\r
+    003473  aa  6 00046 7101 70   1710         tra     sp|tbp,*0\r
+                                  1711  "\r
+                                  1712  "      operator to pad the char string temporary to 8 chars.\r
+                                  1713  "\r
+    003474                        1714  pad_chars:\r
+    003474  aa   000010 2360 07   1715         ldq     8,dl            compute number of chars left\r
+    003475  aa  6 00063 1761 00   1716         sbq     sp|char_lg1\r
+    003476  aa  6 00046 6045 70   1717         tmoz    sp|tbp,*0\r
+    003477  aa  6 00063 2351 00   1718         lda     sp|char_lg1     get offset\r
+    003500  aa  6 00050 3501 20   1719         eppap   sp|temp_pt,*    get ptr to temp\r
+    003501  aa   040145 1004 00   1720         mlr     (0),(ar+rl+a),fill(blank)       put fill(blank)s at end\r
+    003502  aa   000000 000000    1721         vfd     36/0\r
+    003503  aa   000000 000006    1722         desc9a  ap|0,ql\r
+    003504  aa  6 00030 3501 20   1723         eppap   sp|stack_frame.operator_ptr,*\r
+    003505  aa  6 00046 7101 70   1724         tra     sp|tbp,*0\r
+                                  1725  "\r
+                                  1726  "      operator to pad the bit string temporary to 72 bits.\r
+                                  1727  "\r
+    003506                        1728  pad_bits:\r
+    003506  aa  6 00062 2361 00   1729         ldq     sp|bit_lg1      get bit length of temp\r
+    003507  aa   000111 1160 07   1730         cmpq    73,dl           is it already long enough\r
+    003510  aa  6 00046 6031 70   1731         trc     sp|tbp,*0               yes, return\r
+    003511  aa  6 00062 0761 00   1732         adq     sp|bit_lg1      no, form 2*bit_length\r
+    003512  aa   000001 6210 06   1733         eax1    1,ql            and place in index reg\r
+    003513  aa  6 00050 2371 20   1734         ldaq    sp|temp_pt,*    mask string\r
+    003514  0a   001426 3770 11   1735         anaq    bit_mask,1\r
+    003515  aa  6 00050 7571 20   1736         staq    sp|temp_pt,*    replace padded string\r
+    003516  aa  6 00046 7101 70   1737         tra     sp|tbp,*0               and return to pl/1 program\r
+                                  1738  "\r
+                                  1739  "      operators to AND a string into the string\r
+                                  1740  "      temporary pointed at by sp|temp_pt.  the string being ANDED\r
+                                  1741  "      is guaranteed to be no bigger than the space in the stack.\r
+                                  1742  "\r
+    003517                        1743  and_bits:\r
+    003517  aa   000000 6210 17   1744         eax1    0,7             load offset\r
+    003520  0a   003526 7100 00   1745         tra     and_1\r
+                                  1746  "\r
+    003521                        1747  and_bits_co:\r
+    003521  0a   001264 2210 17   1748         ldx1    co_to_bo,7      convert to bit offset\r
+    003522  0a   003526 7100 00   1749         tra     and_1\r
+                                  1750  "\r
+    003523                        1751  and_bits_ho:\r
+    003523  0a   001270 2210 17   1752         ldx1    ho_to_bo,7      convert to bit offset\r
+    003524  0a   003526 7100 00   1753         tra     and_1\r
+                                  1754  "\r
+    003525                        1755  and_bits_aligned:\r
+    003525  aa   000000 6210 00   1756         eax1    0\r
+                                  1757  "\r
+    003526  0a   003627 2350 00   1758  and_1: lda     ana_op          pickup logical function to do\r
+    003527  0a   003614 7100 00   1759         tra     logical         join common section\r
+                                  1760  "\r
+                                  1761  "      operators to OR a string into the string\r
+                                  1762  "      temporary pointed at by sp|temp_pt.  the string being ORED\r
+                                  1763  "      is guaranteed to be no bigger and the space in the stack.\r
+                                  1764  "\r
+    003530                        1765  or_bits:\r
+    003530  aa   000000 6210 17   1766         eax1    0,7             load offset\r
+    003531  0a   003537 7100 00   1767         tra     or_1\r
+                                  1768  "\r
+    003532                        1769  or_bits_co:\r
+    003532  0a   001264 2210 17   1770         ldx1    co_to_bo,7      convert to bit offset\r
+    003533  0a   003537 7100 00   1771         tra     or_1\r
+                                  1772  "\r
+    003534                        1773  or_bits_ho:\r
+    003534  0a   001270 2210 17   1774         ldx1    ho_to_bo,7      convert to bit offset\r
+    003535  0a   003537 7100 00   1775         tra     or_1\r
+                                  1776  "\r
+    003536                        1777  or_bits_aligned:\r
+    003536  aa   000000 6210 00   1778         eax1    0               zero offset\r
+                                  1779  "\r
+    003537  0a   003630 2350 00   1780  or_1:  lda     ora_op          pickup logical function to do\r
+    003540  0a   003614 7100 00   1781         tra     logical         join common section\r
+                                  1782  "\r
+                                  1783  "      operators to EXCLUSIVE OR a string into the string\r
+                                  1784  "      temporary pointed at by sp|temp_pt.  the string being EXORed\r
+                                  1785  "      is guaranteed to be no bigger than the space in the stack.\r
+                                  1786  "\r
+    003541                        1787  exor_bits:\r
+    003541  aa   000000 6210 17   1788         eax1    0,7             load offset\r
+    003542  0a   003550 7100 00   1789         tra     exor_1\r
+                                  1790  "\r
+    003543                        1791  exor_bits_co:\r
+    003543  0a   001264 2210 17   1792         ldx1    co_to_bo,7      convert to bit offset\r
+    003544  0a   003550 7100 00   1793         tra     exor_1\r
+                                  1794  "\r
+    003545                        1795  exor_bits_ho:\r
+    003545  0a   001270 2210 17   1796         ldx1    ho_to_bo,7      convert to bit offset\r
+    003546  0a   003550 7100 00   1797         tra     exor_1\r
+                                  1798  "\r
+    003547                        1799  exor_bits_aligned:\r
+    003547  aa   000000 6210 00   1800         eax1    0               zero offset\r
+                                  1801  "\r
+    003550  0a   003631 2350 00   1802  exor_1:        lda     era_op          pickup logical function to do\r
+    003551  0a   003614 7100 00   1803         tra     logical         join common section\r
+                                  1804  "\r
+                                  1805  "      operators to MOVE a string into the string\r
+                                  1806  "      temporary pointed at by sp|temp_pt.  the string being MOVED\r
+                                  1807  "      is guaranteed to be no bigger than the space in the stack.\r
+                                  1808  "      since this operator is always followed by concatenation, no\r
+                                  1809  "      padding is done.\r
+                                  1810  "\r
+    003552                        1811  cat_move_bits:\r
+    003552  aa   000000 6210 17   1812         eax1    0,7             load offset\r
+    003553  0a   003561 7100 00   1813         tra     cmb_1\r
+                                  1814  "\r
+    003554                        1815  cat_move_bits_co:\r
+    003554  0a   001264 2210 17   1816         ldx1    co_to_bo,7      convert to bit offset\r
+    003555  0a   003561 7100 00   1817         tra     cmb_1\r
+                                  1818  "\r
+    003556                        1819  cat_move_bits_ho:\r
+    003556  0a   001270 2210 17   1820         ldx1    ho_to_bo,7      convert to bit offset\r
+    003557  0a   003561 7100 00   1821         tra     cmb_1\r
+                                  1822  "\r
+    003560                        1823  cat_move_bits_aligned:\r
+    003560  aa   000000 6210 00   1824         eax1    0               zero bit offset\r
+                                  1825  "\r
+    003561  aa  6 00066 7561 00   1826  cmb_1: stq     sp|cat_lg1      save for later cat operator\r
+    003562  aa   000000 1160 07   1827         cmpq    0,dl            return if nothing to move (prevent IPR)\r
+    003563  aa  6 00046 6001 70   1828         tze     sp|tbp,*0\r
+    003564  aa   000000 0520 03   1829         adwpbp  0,du            clear bit offset\r
+    003565  aa  6 00050 3501 20   1830         eppap   sp|temp_pt,*    get ptr to target\r
+    003566  aa  0 03140 0605 51   1831         csl     (ar+rl+x1),(ar+rl),bool(move)   move source into temp\r
+    003567  aa   200000 000006    1832         descb   bp|0,ql\r
+    003570  aa   000000 000006    1833         descb   ap|0,ql\r
+    003571  aa  6 00030 3501 20   1834         eppap   sp|stack_frame.operator_ptr,*\r
+    003572  aa  6 00046 7101 70   1835         tra     sp|tbp,*0\r
+                                  1836  "\r
+                                  1837  "      operators to MOVE the COMPLEMENT of astring into\r
+                                  1838  "      the string temporary pointed at by sp|temp_pt.  the string\r
+                                  1839  "      being moved is guaranteed to be the same size as the\r
+                                  1840  "      destination.\r
+                                  1841  "\r
+    003573                        1842  move_not_bits:\r
+    003573  aa   000000 6210 17   1843         eax1    0,7             load offset\r
+    003574  0a   003602 7100 00   1844         tra     move_not_1\r
+                                  1845  "\r
+    003575                        1846  move_not_bits_co:\r
+    003575  0a   001264 2210 17   1847         ldx1    co_to_bo,7      convert to bit offset\r
+    003576  0a   003602 7100 00   1848         tra     move_not_1\r
+                                  1849  "\r
+    003577                        1850  move_not_bits_ho:\r
+    003577  0a   001270 2210 17   1851         ldx1    ho_to_bo,7      convert to bit offset\r
+    003600  0a   003602 7100 00   1852         tra     move_not_1\r
+                                  1853  "\r
+    003601                        1854  move_not_bits_aligned:\r
+    003601  aa   000000 6210 00   1855         eax1    0               zero offset\r
+                                  1856  "\r
+    003602                        1857  move_not_1:\r
+    003602  0a   003632 2350 00   1858         lda     not_op          pickup logical function to do\r
+    003603  0a   003614 7100 00   1859         tra     logical         join common section\r
+                                  1860  "\r
+                                  1861  "      operators to MOVE a string into the string\r
+                                  1862  "      temporary pointed at by sp|temp_pt.  the string being MOVED\r
+                                  1863  "      is guaranteed to be no bigger than the size of the destination.\r
+                                  1864  "\r
+    003604                        1865  move_bits:\r
+    003604  aa   000000 6210 17   1866         eax1    0,7             load offset\r
+    003605  0a   003613 7100 00   1867         tra     mb_1\r
+                                  1868  "\r
+    003606                        1869  move_bits_co:\r
+    003606  0a   001264 2210 17   1870         ldx1    co_to_bo,7      convert to bit offset\r
+    003607  0a   003613 7100 00   1871         tra     mb_1\r
+                                  1872  "\r
+    003610                        1873  move_bits_ho:\r
+    003610  0a   001270 2210 17   1874         ldx1    ho_to_bo,7      convert to bit offset\r
+    003611  0a   003613 7100 00   1875         tra     mb_1\r
+                                  1876  "\r
+    003612                        1877  move_bits_aligned:\r
+    003612  aa   000000 6210 00   1878         eax1    0               zero offset\r
+                                  1879  "\r
+    003613  0a   003626 2350 00   1880  mb_1:  lda     nop_op          pickup logical function to do\r
+                                  1881  "\r
+    003614  aa  6 00065 7551 00   1882  logical:       sta     sp|bit_op               save operator to perform\r
+    003615  aa  6 00062 2351 00   1883         lda     sp|bit_lg1      get length of temp\r
+    003616  aa  6 00046 6001 70   1884         tze     sp|tbp,*0               exit if zero (prevent IPR)\r
+    003617  aa   000000 0520 03   1885         adwpbp  0,du            clear bit offset\r
+    003620  aa  6 00050 3501 20   1886         eppap   sp|temp_pt,*    get ptr to temp\r
+    003621  aa  6 00065 7161 00   1887         xec     sp|bit_op               do the operation\r
+    003622  aa   200000 000006    1888         descb   bp|0,ql\r
+    003623  aa   000000 000005    1889         descb   ap|0,al\r
+    003624                        1890  log_exit:\r
+    003624  aa  6 00030 3501 20   1891         eppap   sp|stack_frame.operator_ptr,*\r
+    003625  aa  6 00046 7101 70   1892         tra     sp|tbp,*0\r
+                                  1893  "\r
+                                  1894  "      logical functions...\r
+                                  1895  "\r
+    003626  aa  0 03140 0605 51   1896  nop_op:        csl     (ar+rl+x1),(ar+rl),bool(move)\r
+    003627  aa  0 01140 0605 51   1897  ana_op:        csl     (ar+rl+x1),(ar+rl),bool(and)\r
+    003630  aa  0 07140 0605 51   1898  ora_op:        csl     (ar+rl+x1),(ar+rl),bool(or)\r
+    003631  aa  0 06140 0605 51   1899  era_op:        csl     (ar+rl+x1),(ar+rl),bool(xor)\r
+    003632  aa  0 14140 0605 51   1900  not_op:        csl     (ar+rl+x1),(ar+rl),bool(invert)\r
+                                  1901  "\r
+                                  1902  "      operators to MOVE a string into the string\r
+                                  1903  "      temporary pointed at by sp|temp_pt.  the string being MOVED\r
+                                  1904  "      is guaranteed to be no bigger than the space in the stack.\r
+                                  1905  "      if this is cat_move_chars, no padding will be done since\r
+                                  1906  "      operator is always followed by concat.\r
+                                  1907  "\r
+    003633                        1908  move_chars:\r
+    003633  aa   000000 6210 17   1909         eax1    0,7             load offset\r
+    003634  0a   003642 7100 00   1910         tra     mc_1\r
+                                  1911  "\r
+    003635                        1912  move_chars_co:\r
+    003635  0a   001264 2210 17   1913         ldx1    co_to_bo,7      convert to bit offset\r
+    003636  0a   003642 7100 00   1914         tra     mc_1\r
+                                  1915  "\r
+    003637                        1916  move_chars_ho:\r
+    003637  0a   001270 2210 17   1917         ldx1    ho_to_bo,7      convert to bit offset\r
+    003640  0a   003642 7100 00   1918         tra     mc_1\r
+                                  1919  "\r
+    003641                        1920  move_chars_aligned:\r
+    003641  aa   000000 6210 00   1921         eax1    0\r
+                                  1922  "\r
+    003642  aa   000000 0520 03   1923  mc_1:  adwpbp  0,du            clear bit offset\r
+    003643  aa  2 00000 5035 11   1924         abd     bp|0,1          add new bit offset\r
+    003644  aa  6 00063 2351 00   1925         lda     sp|char_lg1     get length of target\r
+    003645  aa  6 00046 6001 70   1926         tze     sp|tbp,*0               exit if zero (prevent IPR)\r
+    003646  aa  6 00050 3501 20   1927         eppap   sp|temp_pt,*    get ptr to target\r
+    003647  aa  0 40140 1005 40   1928         mlr     (ar+rl),(ar+rl),fill(blank)\r
+    003650  aa   200000 000006    1929         desc9a  bp|0,ql\r
+    003651  aa   000000 000005    1930         desc9a  ap|0,al\r
+    003652  aa  6 00030 3501 20   1931         eppap   sp|stack_frame.operator_ptr,*\r
+    003653  aa  6 00046 7101 70   1932         tra     sp|tbp,*0\r
+                                  1933  "\r
+    003654                        1934  cat_move_chars:\r
+    003654  aa   000000 6210 17   1935         eax1    0,7             load offset\r
+    003655  0a   003663 7100 00   1936         tra     cmc_1\r
+                                  1937  "\r
+    003656                        1938  cat_move_chars_co:\r
+    003656  0a   001264 2210 17   1939         ldx1    co_to_bo,7      convert to bit offset\r
+    003657  0a   003663 7100 00   1940         tra     cmc_1\r
+                                  1941  "\r
+    003660                        1942  cat_move_chars_ho:\r
+    003660  0a   001270 2210 17   1943         ldx1    ho_to_bo,7      convert to bit offset\r
+    003661  0a   003663 7100 00   1944         tra     cmc_1\r
+                                  1945  "\r
+    003662                        1946  cat_move_chars_aligned:\r
+    003662  aa   000000 6210 00   1947         eax1    0               zero bit offset\r
+                                  1948  "\r
+    003663  aa   000000 0520 03   1949  cmc_1: adwpbp  0,du            clear bit offset\r
+    003664  aa  2 00000 5035 11   1950         abd     bp|0,1          add new bit oofset\r
+    003665  aa  6 00066 7561 00   1951         stq     sp|cat_lg1      save for following cat\r
+    003666  aa   000000 1160 07   1952         cmpq    0,dl            exit if nothing to move (prevent IPR)\r
+    003667  aa  6 00046 6001 70   1953         tze     sp|tbp,*0\r
+    003670  aa  6 00050 3501 20   1954         eppap   sp|temp_pt,*    get ptr to target\r
+    003671  aa  0 00140 1005 40   1955         mlr     (ar+rl),(ar+rl)\r
+    003672  aa   200000 000006    1956         desc9a  bp|0,ql\r
+    003673  aa   000000 000006    1957         desc9a  ap|0,ql\r
+    003674  aa  6 00030 3501 20   1958         eppap   sp|stack_frame.operator_ptr,*\r
+    003675  aa  6 00046 7101 70   1959         tra     sp|tbp,*0\r
+                                  1960  "\r
+                                  1961  "      operator to AND a single length bit string into the string\r
+                                  1962  "      temporary pointed at by sp|temp_pt.  words 1,2,3,... of the\r
+                                  1963  "      temporary are cleared.\r
+                                  1964  "\r
+    003676                        1965  ext_and_1:\r
+    003676  aa   000000 2360 07   1966         ldq     0,dl            clear q and join ext_and_2\r
+                                  1967  "\r
+                                  1968  "      operator to AND a double length bit string into the string\r
+                                  1969  "      temporary pointed at by sp|temp_pt.  words 2,3,... of the\r
+                                  1970  "      temporary are cleared.\r
+                                  1971  "\r
+    003677                        1972  ext_and_2:\r
+    003677  aa  6 00050 3521 20   1973         eppbp   sp|temp_pt,*    get ptr to string\r
+    003700  aa  2 00000 3551 00   1974         ansa    bp|0            AND in the string\r
+    003701  aa  2 00001 3561 00   1975         ansq    bp|1            ..\r
+    003702  aa   000002 6210 00   1976         eax1    2               clear starting at word 2\r
+                                  1977  "\r
+                                  1978  "      routine to zero rest of string temp\r
+                                  1979  "      this routine returns directly to pl/1 program\r
+                                  1980  "      at entry:\r
+                                  1981  "              bp|0,1  points at first word to be cleared\r
+                                  1982  "              sp|temp_size holds total size of temporary\r
+                                  1983  "\r
+    003703  aa   000000 6350 11   1984  zero_it:       eaa     0,1             get current position\r
+    003704  0a   011705 6750 00   1985         era     mask_bit_one    form 2's complement of whole a-reg\r
+    003705  aa   000001 0350 07   1986         adla    1,dl            w/o overflow\r
+    003706  aa  6 00060 0351 00   1987         adla    sp|temp_size    ..\r
+    003707  aa  6 00046 6045 70   1988         tmoz    sp|tbp,*0               return if none\r
+    003710  aa  2 00000 3521 11   1989         eppbp   bp|0,1          get ptr to starting pos\r
+    003711  aa   000020 7710 00   1990         arl     18-2            get number of chars\r
+    003712  aa   000140 1004 00   1991         mlr     (0),(ar+rl)             clear the area\r
+    003713  aa   000000 000000    1992         vfd     36/0\r
+    003714  aa   200000 000005    1993         desc9a  bp|0,al\r
+    003715  aa  6 00050 3521 20   1994         eppbp   sp|temp_pt,*    restore ptr to tem (just in case)\r
+    003716  aa  6 00046 7101 70   1995         tra     sp|tbp,*0               return to pl/1 program\r
+                                  1996  "\r
+                                  1997  "\r
+                                  1998  "      operator to complement the bit string temporary pointed\r
+                                  1999  "      at by sp|temp_pt\r
+                                  2000  "\r
+    003717                        2001  comp_bits:\r
+    003717  aa  6 00062 2361 00   2002         ldq     sp|bit_lg1      get bit length\r
+    003720  aa  6 00046 6001 70   2003         tze     sp|tbp,*0               exit if zero length (prevent IPR)\r
+    003721  aa  6 00050 3521 20   2004         eppbp   sp|temp_pt,*    get ptr to temp\r
+    003722  aa  0 14140 0605 40   2005         csl     (ar+rl),(ar+rl),bool(invert)    negate\r
+    003723  aa   200000 000006    2006         descb   bp|0,ql\r
+    003724  aa   200000 000006    2007         descb   bp|0,ql\r
+    003725  0a   003624 7100 00   2008         tra     log_exit\r
+                                  2009  "\r
+                                  2010  "      operator to move string_1 into string_2\r
+                                  2011  "      source string_1 was previously setup\r
+                                  2012  "\r
+    003726                        2013  chars_move_vt:\r
+    003726  aa  2 77777 7561 00   2014         stq     bp|-1           store size of string\r
+                                  2015  "\r
+    003727                        2016  chars_move:\r
+    003727  aa   000000 6210 17   2017         eax1    0,7             load offset\r
+    003730  0a   003741 7100 00   2018         tra     cm_1\r
+                                  2019  "\r
+    003731                        2020  chars_move_vt_co:\r
+    003731  aa  2 77777 7561 00   2021         stq     bp|-1           store size of string\r
+                                  2022  "\r
+    003732                        2023  chars_move_co:\r
+    003732  0a   001264 2210 17   2024         ldx1    co_to_bo,7      convert to bit offset\r
+    003733  0a   003741 7100 00   2025         tra     cm_1\r
+                                  2026  "\r
+    003734                        2027  chars_move_vt_ho:\r
+    003734  aa  2 77777 7561 00   2028         stq     bp|-1           store size of string\r
+                                  2029  "\r
+    003735                        2030  chars_move_ho:\r
+    003735  0a   001270 2210 17   2031         ldx1    ho_to_bo,7      convert to bit offset\r
+    003736  0a   003741 7100 00   2032         tra     cm_1\r
+                                  2033  "\r
+    003737                        2034  chars_move_vta:\r
+    003737  aa  2 77777 7561 00   2035         stq     bp|-1           store size of string\r
+                                  2036  "\r
+    003740                        2037  chars_move_aligned:\r
+    003740  aa   000000 6210 00   2038         eax1    0               zero offset\r
+                                  2039  "\r
+    003741  aa   000000 1160 07   2040  cm_1:  cmpq    0,dl            return if target zero length\r
+    003742  aa  6 00046 6001 70   2041         tze     sp|tbp,*0\r
+    003743  aa   000000 0520 03   2042         adwpbp  0,du            clear bit offset\r
+    003744  aa  2 00000 5035 11   2043         abd     bp|0,1\r
+    003745  aa  6 00050 3501 20   2044         eppap   sp|temp_pt,*    get ptr to source\r
+    003746  aa  6 00063 2351 00   2045         lda     sp|char_lg1     get length of source\r
+    003747  aa  0 40140 1005 40   2046         mlr     (ar+rl),(ar+rl),fill(blank)\r
+    003750  aa   000000 000005    2047         desc9a  ap|0,al\r
+    003751  aa   200000 000006    2048         desc9a  bp|0,ql\r
+    003752  aa  6 00030 3501 20   2049         eppap   sp|stack_frame.operator_ptr,*\r
+    003753  aa  6 00046 7101 70   2050         tra     sp|tbp,*0\r
+                                  2051  "\r
+    003754                        2052  bits_move_vt:\r
+    003754  aa  2 77777 7561 00   2053         stq     bp|-1           store size of string\r
+                                  2054  "\r
+    003755                        2055  bits_move:\r
+    003755  aa   000000 6210 17   2056         eax1    0,7             load offset\r
+    003756  0a   003767 7100 00   2057         tra     bm_1\r
+                                  2058  "\r
+    003757                        2059  bits_move_vt_co:\r
+    003757  aa  2 77777 7561 00   2060         stq     bp|-1           store size of string\r
+                                  2061  "\r
+    003760                        2062  bits_move_co:\r
+    003760  0a   001264 2210 17   2063         ldx1    co_to_bo,7      convert to bit offset\r
+    003761  0a   003767 7100 00   2064         tra     bm_1\r
+                                  2065  "\r
+    003762                        2066  bits_move_vt_ho:\r
+    003762  aa  2 77777 7561 00   2067         stq     bp|-1           store size of string\r
+                                  2068  "\r
+    003763                        2069  bits_move_ho:\r
+    003763  0a   001270 2210 17   2070         ldx1    ho_to_bo,7\r
+    003764  0a   003767 7100 00   2071         tra     bm_1\r
+                                  2072  "\r
+    003765                        2073  bits_move_vta:\r
+    003765  aa  2 77777 7561 00   2074         stq     bp|-1           store siqe of string\r
+                                  2075  "\r
+    003766                        2076  bits_move_aligned:\r
+    003766  aa   000000 6210 00   2077         eax1    0               zero bit offset\r
+                                  2078  "\r
+    003767  aa   000000 1160 07   2079  bm_1:  cmpq    0,dl            return if zerolength target\r
+    003770  aa  6 00046 6001 70   2080         tze     sp|tbp,*0\r
+    003771  aa   000000 0520 03   2081         adwpbp  0,du            clear target bit offset\r
+    003772  aa  2 00000 5035 11   2082         abd     bp|0,1          add new bit offset\r
+    003773  aa  6 00050 3501 20   2083         eppap   sp|temp_pt,*    get ptr to source\r
+    003774  aa  6 00062 2351 00   2084         lda     sp|bit_lg1\r
+    003775  aa  0 03140 0605 40   2085         csl     (ar+rl),(ar+rl),bool(move)\r
+    003776  aa   000000 000005    2086         descb   ap|0,al\r
+    003777  aa   200000 000006    2087         descb   bp|0,ql\r
+    004000  aa  6 00030 3501 20   2088         eppap   sp|stack_frame.operator_ptr,*\r
+    004001  aa  6 00046 7101 70   2089         tra     sp|tbp,*0\r
+                                  2090  "\r
+                                  2091  "      operators to move string_1 into string_2\r
+                                  2092  "      when the size prefix is enabled\r
+                                  2093  "\r
+    004002                        2094  chars_move_ck:\r
+    004002  aa   000000 6210 17   2095         eax1    0,7             get offset\r
+    004003  0a   004011 7100 00   2096         tra     cmk_1\r
+                                  2097  "\r
+    004004                        2098  chars_move_ck_co:\r
+    004004  0a   001264 2210 17   2099         ldx1    co_to_bo,7      convert to bit offset\r
+    004005  0a   004011 7100 00   2100         tra     cmk_1\r
+                                  2101  "\r
+    004006                        2102  chars_move_ck_ho:\r
+    004006  0a   001270 2210 17   2103         ldx1    ho_to_bo,7      convert to bit offset\r
+    004007  0a   004011 7100 00   2104         tra     cmk_1\r
+                                  2105  "\r
+    004010                        2106  chars_move_ck_al:\r
+    004010  aa   000000 6210 00   2107         eax1    0               zero offset\r
+                                  2108  "\r
+    004011  aa   000000 0520 03   2109  cmk_1: adwpbp  0,du            erase bit offset\r
+    004012  aa  2 00000 5035 11   2110         abd     bp|0,1          add new offset\r
+    004013  aa  6 00050 3501 20   2111         eppap   sp|temp_pt,*    get ptr to source\r
+    004014  aa  6 00063 2351 00   2112         lda     sp|char_lg1     get length of source\r
+    004015  aa  0 40540 1005 40   2113         mlr     (ar+rl),(ar+rl),fill(blank),enablefault\r
+    004016  aa   000000 000005    2114         desc9a  ap|0,al\r
+    004017  aa   200000 000006    2115         desc9a  bp|0,ql\r
+    004020  0a   003624 7100 00   2116         tra     log_exit\r
+                                  2117  "\r
+    004021                        2118  bits_move_ck:\r
+    004021  aa   000000 6210 17   2119         eax1    0,7             get offset\r
+    004022  0a   004030 7100 00   2120         tra     bmk_1\r
+                                  2121  "\r
+    004023                        2122  bits_move_ck_co:\r
+    004023  0a   001264 2210 17   2123         ldx1    co_to_bo,7      convert to bit offset\r
+    004024  0a   004030 7100 00   2124         tra     bmk_1\r
+                                  2125  "\r
+    004025                        2126  bits_move_ck_ho:\r
+    004025  0a   001270 2210 17   2127         ldx1    ho_to_bo,7      convert to bit offset\r
+    004026  0a   004030 7100 00   2128         tra     bmk_1\r
+                                  2129  "\r
+    004027                        2130  bits_move_ck_al:\r
+    004027  aa   000000 6210 00   2131         eax1    0               zero offset\r
+                                  2132  "\r
+    004030  aa   000000 0520 03   2133  bmk_1: adwpbp  0,du            erase bit offset\r
+    004031  aa  2 00000 5035 11   2134         abd     bp|0,1          add new offset\r
+    004032  aa  6 00050 3501 20   2135         eppap   sp|temp_pt,*    get ptr to source\r
+    004033  aa  6 00062 2351 00   2136         lda     sp|bit_lg1      get length of source\r
+    004034  aa  0 03540 0605 40   2137         csl     (ar+rl),(ar+rl),bool(move),enablefault\r
+    004035  aa   000000 000005    2138         desc9a  ap|0,al\r
+    004036  aa   200000 000006    2139         desc9a  bp|0,ql\r
+    004037  0a   003624 7100 00   2140         tra     log_exit\r
+                                  2141  "\r
+                                  2142  "      operators to perform concatenation.  this is done by moving\r
+                                  2143  "      the second string into the stack just after the first string.\r
+                                  2144  "      length of first string is given by sp|cat_lg1 which is set\r
+                                  2145  "      by a previous cat_move_... operator or by a previous cat_realloc_...\r
+                                  2146  "\r
+    004040                        2147  cat_chars:\r
+    004040  aa   000000 6210 17   2148         eax1    0,7             save offset\r
+    004041  0a   004047 7100 00   2149         tra     cat_chars_aligned+1\r
+                                  2150  "\r
+    004042                        2151  cat_chars_co:\r
+    004042  0a   001264 2210 17   2152         ldx1    co_to_bo,7      convert to bit offset\r
+    004043  0a   004047 7100 00   2153         tra     cat_chars_aligned+1\r
+                                  2154  "\r
+    004044                        2155  cat_chars_ho:\r
+    004044  0a   001270 2210 17   2156         ldx1    ho_to_bo,7      convert to bit offset\r
+    004045  0a   004047 7100 00   2157         tra     cat_chars_aligned+1\r
+                                  2158  "\r
+    004046                        2159  cat_chars_aligned:\r
+    004046  aa   000000 6210 00   2160         eax1    0               zero offset\r
+    004047  aa   000000 1160 07   2161         cmpq    0,dl            return if nothing to concat\r
+    004050  0a   004061 6000 00   2162         tze     cat_done\r
+    004051  aa   000000 0520 03   2163         adwpbp  0,du            clear bit offset\r
+    004052  aa  2 00000 5035 11   2164         abd     bp|0,1          add new bit offset\r
+    004053  aa  6 00066 2351 00   2165         lda     sp|cat_lg1      get offset for concat\r
+    004054  aa  6 00050 3501 20   2166         eppap   sp|temp_pt,*    get ptr to temp\r
+    004055  aa  0 00145 1005 40   2167         mlr     (ar+rl),(ar+rl+a)\r
+    004056  aa   200000 000006    2168         desc9a  bp|0,ql\r
+    004057  aa   000000 000006    2169         desc9a  ap|0,ql\r
+    004060  aa  6 00030 3501 20   2170         eppap   sp|stack_frame.operator_ptr,*\r
+    004061                        2171  cat_done:\r
+    004061  aa  6 00050 3521 20   2172         eppbp   sp|temp_pt,*\r
+    004062  aa  6 00046 7101 70   2173         tra     sp|tbp,*0\r
+                                  2174  "\r
+    004063                        2175  cat_bits:\r
+    004063  aa   000000 6210 17   2176         eax1    0,7             save offset\r
+    004064  0a   004072 7100 00   2177         tra     cat_bits_aligned+1\r
+                                  2178  "\r
+    004065                        2179  cat_bits_co:\r
+    004065  0a   001264 2210 17   2180         ldx1    co_to_bo,7      convert to bit offset\r
+    004066  0a   004072 7100 00   2181         tra     cat_bits_aligned+1\r
+                                  2182  "\r
+    004067                        2183  cat_bits_ho:\r
+    004067  0a   001270 2210 17   2184         ldx1    ho_to_bo,7      convert to bit offset\r
+    004070  0a   004072 7100 00   2185         tra     cat_bits_aligned+1\r
+                                  2186  "\r
+    004071                        2187  cat_bits_aligned:\r
+    004071  aa   000000 6210 00   2188         eax1    0               zero offset\r
+    004072  aa   000000 1160 07   2189         cmpq    0,dl\r
+    004073  0a   004061 6000 00   2190         tze     cat_done                return if none to concat\r
+    004074  aa   000000 0520 03   2191         adwpbp  0,du            erase bit offset\r
+    004075  aa  6 00066 2351 00   2192         lda     sp|cat_lg1      get offset in temp\r
+    004076  aa  6 00050 3501 20   2193         eppap   sp|temp_pt,*    get ptr to temp\r
+    004077  aa  0 03145 0605 51   2194         csl     (ar+rl+x1),(ar+rl+a),bool(move)\r
+    004100  aa   200000 000006    2195         descb   bp|0,ql\r
+    004101  aa   000000 000006    2196         descb   ap|0,ql\r
+    004102  0a   004060 7100 00   2197         tra     cat_done-1\r
+                                  2198  "\r
+                                  2199  "      operator to perform repeat function (copy builtin) on char string in the string AQ.\r
+                                  2200  "      entered with number of copies desired in q\r
+                                  2201  "\r
+    004103                        2202  repeat:\r
+    004103  aa   000000 1160 07   2203         cmpq    0,dl            take max(n_copies,0)\r
+    004104  aa   000002 6050 04   2204         tpl     2,ic\r
+    004105  aa   000000 2360 07   2205         ldq     0,dl\r
+    004106  aa  6 00077 7561 00   2206         stq     sp|count                save number of copies desired\r
+    004107  aa  6 00050 3501 20   2207         eppap   sp|temp_pt,*    get ptr to string\r
+    004110  aa  6 00064 2341 00   2208         szn     sp|bit_or_char  which case is this\r
+    004111  0a   004143 6010 00   2209         tnz     repeat_bs\r
+    004112  aa  6 00063 2361 00   2210         ldq     sp|char_lg1     get length of string\r
+    004113  aa  6 00077 4021 00   2211         mpy     sp|count                compute length of result\r
+    004114  aa  6 00075 7561 00   2212         stq     sp|lg2          and save for later\r
+    004115  aa   000013 0760 07   2213         adq     3+8,dl          compute number of words (2 extra)\r
+    004116  aa   000002 7320 00   2214         qrs     2\r
+    004117  0a   003162 7010 00   2215         tsx1    alloc           allocate new temp\r
+    004120  aa  2 00002 3521 00   2216         eppbp   bp|2            skip over 2 words at front\r
+    004121  aa  6 00050 2521 00   2217         spribp  sp|temp_pt      save ptr to result\r
+    004122  aa  6 00077 7211 00   2218         lxl1    sp|count                init loop\r
+    004123  0a   004135 6000 00   2219         tze     repeat_exit+1   skip if nothing to do\r
+    004124  aa  6 00063 2361 00   2220         ldq     sp|char_lg1     get back length of input\r
+    004125  0a   004136 6000 00   2221         tze     repeat_exit+2   skip if nothing to do\r
+    004126                        2222  repeat_cs_loop:\r
+    004126  aa  0 00140 1005 40   2223         mlr     (ar+rl),(ar+rl) move string\r
+    004127  aa   000000 000006    2224         desc9a  ap|0,ql\r
+    004130  aa   200000 000006    2225         desc9a  bp|0,ql\r
+    004131  aa  2 00000 5005 06   2226         a9bd    bp|0,ql         add char length\r
+    004132  aa   000001 1610 03   2227         sbx1    1,du\r
+    004133  0a   004126 6010 00   2228         tnz     repeat_cs_loop  repeat  until done\r
+    004134                        2229  repeat_exit:\r
+    004134  aa  6 00050 3521 20   2230         eppbp   sp|temp_pt,*    get ptr to result\r
+    004135  aa  6 00075 2361 00   2231         ldq     sp|lg2          get length of result\r
+    004136  aa  2 77777 7561 00   2232         stq     bp|-1           save\r
+    004137  aa  6 00063 7561 00   2233         stq     sp|char_lg1\r
+    004140  aa  6 00062 7561 00   2234         stq     sp|bit_lg1\r
+    004141  aa  6 00030 3501 20   2235         eppap   sp|stack_frame.operator_ptr,*\r
+    004142  aa  6 00046 7101 70   2236         tra     sp|tbp,*0               and return\r
+                                  2237  "\r
+                                  2238  "      operator to perform repeat function (copy builtin) on bit string in the string AQ.\r
+                                  2239  "      entered with number of copies desired in q\r
+                                  2240  "\r
+    004143                        2241  repeat_bs:\r
+    004143  aa  6 00062 2361 00   2242         ldq     sp|bit_lg1      get length of string\r
+    004144  aa  6 00077 4021 00   2243         mpy     sp|count                compute length of result\r
+    004145  aa  6 00075 7561 00   2244         stq     sp|lg2          and save for later\r
+    004146  aa   000153 0760 07   2245         adq     35+72,dl                compute number of words (2 extra)\r
+    004147  aa   000044 5060 07   2246         div     36,dl\r
+    004150  0a   003162 7010 00   2247         tsx1    alloc           allocate new temp\r
+    004151  aa  2 00002 3521 00   2248         eppbp   bp|2            skip over 2 extra words\r
+    004152  aa  6 00050 2521 00   2249         spribp  sp|temp_pt      save ptr to result\r
+    004153  aa  6 00077 7211 00   2250         lxl1    sp|count                init loop\r
+    004154  0a   004135 6000 00   2251         tze     repeat_exit+1   skip if nothing to do\r
+    004155  aa  6 00062 2361 00   2252         ldq     sp|bit_lg1      get back length of input\r
+    004156  0a   004136 6000 00   2253         tze     repeat_exit+2   exit now if nothing to do\r
+    004157                        2254  repeat_bs_loop:\r
+    004157  aa  0 03140 0605 40   2255         csl     (ar+rl),(ar+rl),bool(move)\r
+    004160  aa   000000 000006    2256         descb   ap|0,ql\r
+    004161  aa   200000 000006    2257         descb   bp|0,ql\r
+    004162  aa  2 00000 5035 06   2258         abd     bp|0,ql         add bit length of string\r
+    004163  aa   000001 1610 03   2259         sbx1    1,du            repeat until done\r
+    004164  0a   004157 6010 00   2260         tnz     repeat_bs_loop\r
+    004165  0a   004134 7100 00   2261         tra     repeat_exit\r
+                                  2262  "\r
+                                  2263  "      operator to reverse bit string in the string AQ.\r
+                                  2264  "\r
+    004166                        2265  reverse_bs:\r
+    004166  aa  6 00050 3501 20   2266         eppap   sp|temp_pt,*    get ptr to source\r
+    004167  aa  6 00062 2361 00   2267         ldq     sp|bit_lg1      get bit length\r
+    004170  aa   000153 0760 07   2268         adq     35+72,dl                compute word length needed (2 extra)\r
+    004171  aa   000044 5060 07   2269         div     36,dl\r
+    004172  0a   003162 7010 00   2270         tsx1    alloc           extend stack\r
+    004173  aa  2 00002 3521 00   2271         eppbp   bp|2            skip over 2 words at front\r
+    004174  aa  6 00050 2521 00   2272         spribp  sp|temp_pt      save ptr to result\r
+    004175  aa  6 00062 2361 00   2273         ldq     sp|bit_lg1      get back bit length\r
+    004176  aa  2 77777 7561 00   2274         stq     bp|-1           save\r
+    004177  0a   003624 6000 00   2275         tze     log_exit                exit if nothing to do\r
+    004200  aa   000000 2350 07   2276         lda     0,dl            init offset\r
+    004201                        2277  reverse_bs_loop:\r
+    004201  aa   000001 1760 07   2278         sbq     1,dl\r
+    004202  0a   004210 6040 00   2279         tmi     reverse_bs_exit done, exit\r
+    004203  aa  0 03105 0605 06   2280         csl     (ar+q),(ar+a),bool(move)        move 1 bit\r
+    004204  aa   000000 000001    2281         descb   ap|0,1\r
+    004205  aa   200000 000001    2282         descb   bp|0,1\r
+    004206  aa   000001 0750 07   2283         ada     1,dl            update offset\r
+    004207  0a   004201 7100 00   2284         tra     reverse_bs_loop\r
+    004210                        2285  reverse_bs_exit:\r
+    004210  aa  6 00062 2361 00   2286         ldq     sp|bit_lg1      get back length\r
+    004211  0a   003624 7100 00   2287         tra     log_exit\r
+                                  2288  "\r
+                                  2289  "      operator to reverse character string in the string AQ.\r
+                                  2290  "\r
+    004212                        2291  reverse_cs:\r
+    004212  aa  6 00050 3501 20   2292         eppap   sp|temp_pt,*    get ptr to source\r
+    004213  aa  6 00063 2361 00   2293         ldq     sp|char_lg1     get char length\r
+    004214  aa   000013 0760 07   2294         adq     3+8,dl          compute word length needed (2 extra)\r
+    004215  aa   000002 7320 00   2295         qrs     2\r
+    004216  0a   003162 7010 00   2296         tsx1    alloc           extend stack\r
+    004217  aa  2 00002 3521 00   2297         eppbp   bp|2            skip over 2 words at front\r
+    004220  aa  6 00050 2521 00   2298         spribp  sp|temp_pt      save ptr to result\r
+    004221  aa  6 00063 2361 00   2299         ldq     sp|char_lg1     get back char length\r
+    004222  aa  2 77777 7561 00   2300         stq     bp|-1           save\r
+    004223  0a   003624 6000 00   2301         tze     log_exit                return if nothing to do\r
+    004224  aa   000000 2350 07   2302         lda     0,dl            init offset\r
+    004225                        2303  reverse_cs_loop:\r
+    004225  aa   000001 1760 07   2304         sbq     1,dl\r
+    004226  0a   004234 6040 00   2305         tmi     reverse_cs_exit done, exit\r
+    004227  aa  0 00105 1005 06   2306         mlr     (ar+q),(ar+a)   move 1 char\r
+    004230  aa   000000 000001    2307         desc9a  ap|0,1\r
+    004231  aa   200000 000001    2308         desc9a  bp|0,1\r
+    004232  aa   000001 0750 07   2309         ada     1,dl            update offset\r
+    004233  0a   004225 7100 00   2310         tra     reverse_cs_loop\r
+    004234                        2311  reverse_cs_exit:\r
+    004234  aa  6 00063 2361 00   2312         ldq     sp|char_lg1\r
+    004235  0a   003624 7100 00   2313         tra     log_exit\r
+                                  2314  "\r
+                                  2315  "      operator to suffix the string previously set up to a varying string.\r
+                                  2316  "      entered with pointer to varying string in bp, max length in q\r
+                                  2317  "\r
+    004236                        2318  suffix_cs:\r
+    004236  aa  2 77777 1761 00   2319         sbq     bp|-1           get number of chars left in string\r
+    004237  aa  6 00046 6001 70   2320         tze     sp|tbp,*0               return if string is full\r
+    004240  aa  6 00063 1161 00   2321         cmpq    sp|char_lg1     get min(number left,number set up)\r
+    004241  aa   000002 6040 04   2322         tmi     2,ic\r
+    004242                        2323  suffix_cs_1:\r
+    004242  aa  6 00063 2361 00   2324         ldq     sp|char_lg1     get length of suffix\r
+    004243  aa  6 00046 6001 70   2325         tze     sp|tbp,*0               exit if zero (prevent IPR)\r
+    004244  aa  6 00050 3501 20   2326         eppap   sp|temp_pt,*    get ptr to suffix\r
+    004245  aa  2 77777 2351 00   2327         lda     bp|-1           get offset of end\r
+    004246  aa  0 00145 1005 40   2328         mlr     (ar+rl),(ar+rl+a)       suffix string\r
+    004247  aa   000000 000006    2329         desc9a  ap|0,ql\r
+    004250  aa   200000 000006    2330         desc9a  bp|0,ql\r
+    004251  aa  2 77777 0561 00   2331         asq     bp|-1           update string length\r
+    004252  aa  6 00030 3501 20   2332         eppap   sp|stack_frame.operator_ptr,*\r
+    004253  aa  6 00046 7101 70   2333         tra     sp|tbp,*0               and return\r
+                                  2334  "\r
+                                  2335  "      operator to suffix to varying bit string.\r
+                                  2336  "\r
+    004254                        2337  suffix_bs:\r
+    004254  aa  2 77777 1761 00   2338         sbq     bp|-1           get number of bits left in string\r
+    004255  aa  6 00046 6001 70   2339         tze     sp|tbp,*0               return if string full\r
+    004256  aa  6 00062 1161 00   2340         cmpq    sp|bit_lg1      get min(number left,number set up)\r
+    004257  aa   000002 6040 04   2341         tmi     2,ic\r
+    004260                        2342  suffix_bs_1:\r
+    004260  aa  6 00062 2361 00   2343         ldq     sp|bit_lg1      get length of suffix\r
+    004261  aa  6 00046 6001 70   2344         tze     sp|tbp,*0               exit if zero (prevent IPR)\r
+    004262  aa  6 00050 3501 20   2345         eppap   sp|temp_pt,*    get ptr to suffix\r
+    004263  aa  2 77777 2351 00   2346         lda     bp|-1           get offset of last bit available\r
+    004264  aa  0 03145 0605 40   2347         csl     (ar+rl),(ar+rl+a),bool(move)\r
+    004265  aa   000000 000006    2348         descb   ap|0,ql\r
+    004266  aa   200000 000006    2349         descb   bp|0,ql\r
+    004267  aa  2 77777 0561 00   2350         asq     bp|-1           update string length\r
+    004270  aa  6 00030 3501 20   2351         eppap   sp|stack_frame.operator_ptr,*\r
+    004271  aa  6 00046 7101 70   2352         tra     sp|tbp,*0               and return\r
+                                  2353  "\r
+                                  2354  "      operators to suffix the string previously set up to a varying string\r
+                                  2355  "      when the stringsize condition is enabled.  entered with pointer\r
+                                  2356  "      to string in bp, max length in q\r
+                                  2357  "\r
+    004272                        2358  suffix_cs_ck:\r
+    004272  aa  2 77777 1761 00   2359         sbq     bp|-1           get number of chars left\r
+    004273  aa   000003 6000 04   2360         tze     3,ic\r
+    004274  aa  6 00063 1161 00   2361         cmpq    sp|char_lg1     get min(number left,number set up)\r
+    004275  0a   004242 6050 00   2362         tpl     suffix_cs_1\r
+    004276  0a   004242 6350 00   2363         eaa     suffix_cs_1     error, signal stringsize\r
+                                  2364  "\r
+    004277                        2365  suffix_error:\r
+    004277  aa  6 00037 4401 00   2366         sxl0    sp|stack_frame.operator_ret_ptr no, signal stringsize\r
+    004300  aa  6 00056 2521 00   2367         spribp  sp|double_temp\r
+    004301  aa  6 00076 7571 00   2368         staq    sp|temp\r
+    004302  0a   010070 3520 00   2369         eppbp   stringsize_name\r
+    004303  aa   000012 6260 00   2370         eax6    stringsize_length\r
+    004304  aa   001276 2360 07   2371         ldq     =702,dl         get oncode value\r
+    004305  0a   011251 7010 00   2372         tsx1    call_signal_\r
+    004306  aa  6 00037 7201 00   2373         lxl0    sp|stack_frame.operator_ret_ptr\r
+    004307  aa  6 00056 3521 20   2374         eppbp   sp|double_temp,*\r
+    004310  aa  6 00076 2371 00   2375         ldaq    sp|temp\r
+    004311  aa   000001 7100 01   2376         tra     1,au            join standard section\r
+                                  2377  "\r
+    004312                        2378  suffix_bs_ck:\r
+    004312  aa  2 77777 1761 00   2379         sbq     bp|-1\r
+    004313  aa   000003 6000 04   2380         tze     3,ic\r
+    004314  aa  6 00062 1161 00   2381         cmpq    sp|bit_lg1\r
+    004315  0a   004260 6050 00   2382         tpl     suffix_bs_1\r
+    004316  0a   004260 6350 00   2383         eaa     suffix_bs_1\r
+    004317  0a   004277 7100 00   2384         tra     suffix_error\r
+                                  2385  "\r
+                                  2386  "      operator to compare string_2 with previously setup string_1\r
+                                  2387  "\r
+    004320                        2388  cp_chars:\r
+    004320  aa   000000 6210 17   2389         eax1    0,7             save offset\r
+    004321  0a   004327 7100 00   2390         tra     cp_chars_aligned+1\r
+                                  2391  "\r
+    004322                        2392  cp_chars_co:\r
+    004322  0a   001264 2210 17   2393         ldx1    co_to_bo,7      convert to bit offset\r
+    004323  0a   004327 7100 00   2394         tra     cp_chars_aligned+1\r
+                                  2395  "\r
+    004324                        2396  cp_chars_ho:\r
+    004324  0a   001270 2210 17   2397         ldx1    ho_to_bo,7      convert to bit offset\r
+    004325  0a   004327 7100 00   2398         tra     cp_chars_aligned+1\r
+                                  2399  "\r
+    004326                        2400  cp_chars_aligned:\r
+    004326  aa   000000 6210 00   2401         eax1    0               zero offset\r
+    004327  aa   000000 0520 03   2402         adwpbp  0,du\r
+    004330  aa  2 00000 5035 11   2403         abd     bp|0,1          add new bit offset\r
+    004331  aa  6 00050 3501 20   2404  cpcs_1:        eppap   sp|temp_pt,*    get ptr to string_1\r
+    004332  aa  6 00063 2351 00   2405         lda     sp|char_lg1     get length(string_1)\r
+    004333  aa  0 40140 1065 40   2406         cmpc    (ar+rl),(ar+rl),fill(blank)\r
+    004334  aa   200000 000006    2407         desc9a  bp|0,ql         string_2\r
+    004335  aa   000000 000005    2408         desc9a  ap|0,al         string_1\r
+    004336  aa  6 00030 3501 20   2409         eppap   sp|stack_frame.operator_ptr,*\r
+    004337  aa  6 00046 7101 70   2410         tra     sp|tbp,*0\r
+                                  2411  "\r
+    004340                        2412  cp_bits:\r
+    004340  aa   000000 6210 17   2413         eax1    0,7             save offset\r
+    004341  0a   004347 7100 00   2414         tra     cp_bits_aligned+1\r
+                                  2415  "\r
+    004342                        2416  cp_bits_co:\r
+    004342  0a   001264 2210 17   2417         ldx1    co_to_bo,7      convert to bit offset\r
+    004343  0a   004347 7100 00   2418         tra     cp_bits_aligned+1\r
+                                  2419  "\r
+    004344                        2420  cp_bits_ho:\r
+    004344  0a   001270 2210 17   2421         ldx1    ho_to_bo,7      convert to bit offset\r
+    004345  0a   004347 7100 00   2422         tra     cp_bits_aligned+1\r
+                                  2423  "\r
+    004346                        2424  cp_bits_aligned:\r
+    004346  aa   000000 6210 00   2425         eax1    0               zero ofset\r
+    004347  aa   000000 0520 03   2426         adwpbp  0,du            erase bit offset\r
+    004350  aa  6 00050 3501 20   2427  cpbs_1:        eppap   sp|temp_pt,*    get ptr to string_1\r
+    004351  aa  6 00062 2351 00   2428         lda     sp|bit_lg1\r
+    004352  aa  0 00140 0665 51   2429         cmpb    (ar+rl+x1),(ar+rl)\r
+    004353  aa   200000 000006    2430         descb   bp|0,ql         string_2\r
+    004354  aa   000000 000005    2431         descb   ap|0,al         string 1\r
+    004355  aa  6 00030 3501 20   2432         eppap   sp|stack_frame.operator_ptr,*\r
+    004356  aa  6 00046 7101 70   2433         tra     sp|tbp,*0\r
+                                  2434  "\r
+                                  2435  "      operators to compare single (double) word string in a-reg (aq_reg)\r
+                                  2436  "      with string previously setup\r
+                                  2437  "\r
+    004357                        2438  cpcs_ext1:\r
+    004357  0a   002066 2360 00   2439         ldq     blanks          convert to double length string\r
+                                  2440  "\r
+    004360                        2441  cpcs_ext2:\r
+    004360  aa  6 00056 7571 00   2442         staq    sp|double_temp  save string in aq\r
+    004361  aa   000010 2360 07   2443         ldq     8,dl            get length\r
+    004362  aa  6 00056 3521 00   2444         eppbp   sp|double_temp  get ptr to string\r
+    004363  0a   004331 7100 00   2445         tra     cpcs_1\r
+                                  2446  "\r
+    004364                        2447  cpbs_ext1:\r
+    004364  aa   000000 2360 07   2448         ldq     0,dl            convert to double length string\r
+                                  2449  "\r
+    004365                        2450  cpbs_ext2:\r
+    004365  aa  6 00056 7571 00   2451         staq    sp|double_temp  save string in aq\r
+    004366  aa   000110 2360 07   2452         ldq     72,dl\r
+    004367  aa  6 00056 3521 00   2453         eppbp   sp|double_temp\r
+    004370  0a   004350 7100 00   2454         tra     cpbs_1\r
+                                  2455  "\r
+                                  2456  "      operator to check an unaligned string for any non-zero bits.\r
+                                  2457  "\r
+    004371                        2458  cpbs3:\r
+    004371  aa   000000 6210 17   2459         eax1    0,7             load offset\r
+    004372  0a   004402 7100 00   2460         tra     cpbs3a\r
+                                  2461  "\r
+    004373                        2462  cpbs3_co:\r
+    004373  0a   001264 2210 17   2463         ldx1    co_to_bo,7      convert to bit offset\r
+    004374  0a   004402 7100 00   2464         tra     cpbs3a\r
+                                  2465  "\r
+    004375                        2466  cpbs3_ho:\r
+    004375  0a   001270 2210 17   2467         ldx1    ho_to_bo,7      convert to bit offset\r
+    004376  0a   004402 7100 00   2468         tra     cpbs3a\r
+                                  2469  "\r
+                                  2470  "      operator to check the aligned string temp pointed at by\r
+                                  2471  "      temp_pt for any non_zero bits\r
+                                  2472  "\r
+    004377  aa  6 00062 2361 00   2473  cpbs4: ldq     sp|bit_lg1      get bit length\r
+    004400  aa  6 00050 3521 20   2474         eppbp   sp|temp_pt,*    get ptr to string\r
+                                  2475  "\r
+    004401                        2476  cpbs3_aligned:\r
+    004401  aa   000000 6210 00   2477         eax1    0               zero offset\r
+                                  2478  "\r
+    004402  aa   000000 0520 03   2479  cpbs3a:        adwpbp  0,du            erase bit offset\r
+    004403  aa  0 00000 0665 51   2480         cmpb    (ar+rl+x1),(0)\r
+    004404  aa   200000 000006    2481         descb   bp|0,ql\r
+    004405  aa   000000 000000    2482         vfd     36/0\r
+    004406  aa  6 00046 7101 70   2483         tra     sp|tbp,*0\r
+                                  2484  "\r
+                                  2485  "      operators to blank out a character string\r
+                                  2486  "\r
+    004407                        2487  blank_chars:\r
+    004407  aa   000000 6210 17   2488         eax1    0,7             get offset\r
+    004410  0a   004416 7100 00   2489         tra     bc_1\r
+                                  2490  "\r
+    004411                        2491  blank_chars_co:\r
+    004411  0a   001264 2210 17   2492         ldx1    co_to_bo,7      convert to bit offset\r
+    004412  0a   004416 7100 00   2493         tra     bc_1\r
+                                  2494  "\r
+    004413                        2495  blank_chars_ho:\r
+    004413  0a   001270 2210 17   2496         ldx1    ho_to_bo,7      convert to bit offset\r
+    004414  0a   004416 7100 00   2497         tra     bc_1\r
+                                  2498  "\r
+    004415                        2499  blank_chars_aligned:\r
+    004415  aa   000000 6210 00   2500         eax1    0               zero offset\r
+                                  2501  "\r
+    004416  aa   000000 1160 07   2502  bc_1:  cmpq    0,dl            return if string zero length\r
+    004417  aa  6 00046 6001 70   2503         tze     sp|tbp,*0\r
+    004420  aa   000000 0520 03   2504         adwpbp  0,du            erase bit offset\r
+    004421  aa  2 00000 5035 11   2505         abd     bp|0,1          add new offset\r
+    004422  aa   040140 1004 00   2506         mlr     (0),(ar+rl),fill(blank)\r
+    004423  aa   000000 000000    2507         vfd     36/0\r
+    004424  aa   200000 000006    2508         desc9a  bp|0,ql\r
+    004425  aa  6 00046 7101 70   2509         tra     sp|tbp,*0\r
+                                  2510  "\r
+                                  2511  "      operators to zero out a bit string\r
+                                  2512  "\r
+    004426                        2513  zero_bits:\r
+    004426  aa   000000 6210 17   2514         eax1    0,7             get bit offset\r
+    004427  0a   004435 7100 00   2515         tra     zb_1\r
+                                  2516  "\r
+    004430                        2517  zero_bits_co:\r
+    004430  0a   001264 2210 17   2518         ldx1    co_to_bo,7      convert to bit offset\r
+    004431  0a   004435 7100 00   2519         tra     zb_1\r
+                                  2520  "\r
+    004432                        2521  zero_bits_ho:\r
+    004432  0a   001270 2210 17   2522         ldx1    ho_to_bo,7      convert to bit offset\r
+    004433  0a   004435 7100 00   2523         tra     zb_1\r
+                                  2524  "\r
+    004434                        2525  zero_bits_aligned:\r
+    004434  aa   000000 6210 00   2526         eax1    0               get zero offset\r
+                                  2527  "\r
+    004435  aa   000000 1160 07   2528  zb_1:  cmpq    0,dl            return if string zero length\r
+    004436  aa  6 00046 6001 70   2529         tze     sp|tbp,*0\r
+    004437  aa   000000 0520 03   2530         adwpbp  0,du            erase bit offset\r
+    004440  aa   003151 0604 00   2531         csl     (0),(ar+rl+x1),bool(move)\r
+    004441  0a   001426 000000    2532         descb   bit_mask,0      (avoid csl bug by using real address)\r
+    004442  aa   200000 000006    2533         descb   bp|0,ql\r
+    004443  aa  6 00046 7101 70   2534         tra     sp|tbp,*0\r
+                                  2535  "\r
+                                  2536  "      operators to copy a constant into a temporary of the same size\r
+                                  2537  "      entered with destination in bp, length in q, and text location of\r
+                                  2538  "      constant in x1\r
+                                  2539  "\r
+    004444                        2540  copy_const_vt:\r
+    004444  aa  2 77777 7561 00   2541         stq     bp|-1           set size\r
+                                  2542  "\r
+    004445                        2543  copy_const:\r
+    004445  aa  6 00046 3501 71   2544         eppap   sp|tbp,*1               get ptr to constant\r
+    004446  aa  0 00140 1005 40   2545         mlr     (ar+rl),(ar+rl)\r
+    004447  aa   000000 000006    2546         desc9a  ap|0,ql\r
+    004450  aa   200000 000006    2547         desc9a  bp|0,ql\r
+    004451  aa  6 00030 3501 20   2548         eppap   sp|stack_frame.operator_ptr,*\r
+    004452  aa  6 00046 7101 70   2549         tra     sp|tbp,*0\r
+                                  2550  "\r
+                                  2551  "      operator to compute index(str1,str2).  entered with str1 specified\r
+                                  2552  "      by previous set operator.\r
+                                  2553  "\r
+                                  2554  "\r
+    004453                        2555  index_chars:\r
+    004453  aa   000000 6210 17   2556         eax1    0,7             get bit offset\r
+    004454  0a   004462 7100 00   2557         tra     ixc\r
+                                  2558  "\r
+    004455                        2559  index_chars_co:\r
+    004455  0a   001264 2210 17   2560         ldx1    co_to_bo,7      convert to bit offset\r
+    004456  0a   004462 7100 00   2561         tra     ixc\r
+                                  2562  "\r
+    004457                        2563  index_chars_ho:\r
+    004457  0a   001270 2210 17   2564         ldx1    ho_to_bo,7      convert to bit offset\r
+    004460  0a   004462 7100 00   2565         tra     ixc\r
+                                  2566  "\r
+    004461                        2567  index_chars_aligned:\r
+    004461  aa   000000 6210 00   2568         eax1    0               get zero offset\r
+                                  2569  "\r
+    004462  aa   000000 0520 03   2570  ixc:   adwpbp  0,du            erase bit offset\r
+    004463  aa  2 00000 5035 11   2571         abd     bp|0,1          add new bit offset\r
+                                  2572  \r
+                                  2573  "      General entry\r
+                                  2574  \r
+    004464                        2575  index_chars_eis:\r
+    004464  aa  6 00050 3501 20   2576  ixc2:  eppap   sp|temp_pt,*    get ptr to string_1\r
+    004465  aa  6 00063 2351 00   2577         lda     sp|char_lg1     Get length 1\r
+    004466  aa  6 00063 1161 00   2578         cmpq    sp|char_lg1     Too long?\r
+    004467  0a   004504 6054 00   2579         tpnz    zix\r
+    004470  aa   000001 1160 07   2580         cmpq    1,dl            are we looking for single char\r
+    004471  0a   004507 6054 00   2581         tpnz    ixcs_long               Big string\r
+    004472  0a   004504 6040 00   2582         tmi     zix             0-length is failure.\r
+    004473  aa  0 00100 1245 40   2583  ixc1:  scm     (ar+rl),(ar)\r
+    004474  aa   000000 000005    2584         desc9a  ap|0,al\r
+    004475  aa   200000 000000    2585         desc9a  bp|0,0\r
+    004476  aa  6 00076 0001 00   2586         arg     sp|temp\r
+    004477  0a   004504 6064 00   2587         ttn     zix             tally runout means not found\r
+    004500                        2588  ixc_ret_ok:\r
+    004500  aa  6 00076 2361 00   2589         ldq     sp|temp         get index\r
+    004501  aa   000001 0760 07   2590         adq     1,dl            convert to pl1 index value\r
+    004502  aa  6 00030 3501 20   2591         eppap   sp|stack_frame.operator_ptr,*\r
+    004503  aa  6 00046 7101 70   2592         tra     sp|tbp,*0\r
+                                  2593  "\r
+                                  2594  "      index failed\r
+                                  2595  "\r
+    004504  aa   000000 2360 07   2596  zix:   ldq     0,dl\r
+    004505  aa  6 00030 3501 20   2597         eppap   sp|stack_frame.operator_ptr,*\r
+    004506  aa  6 00046 7101 70   2598         tra     sp|tbp,*0\r
+                                  2599  "\r
+                                  2600  "      string_2 is more than 1 character\r
+                                  2601  "\r
+    004507                        2602  ixcs_long:\r
+    004507  aa  6 00075 7561 00   2603         stq     sp|lg2          save length of string_2\r
+    004510  aa   000044 7730 00   2604         lrl     36              l(string1) =>q, 0 => a\r
+    004511  aa  6 00075 1361 00   2605         sblq    sp|lg2          Don't search last l(string2)\r
+    004512  aa  6 00066 7561 00   2606         stq     sp|t2           save lg(s1) - lg (s2)\r
+    004513                        2607  ixcs_loop:\r
+    004513  aa   000002 0360 07   2608         adlq    2,dl            ok to match 2 more\r
+    004514  aa  0 00100 1205 45   2609         scd     (ar+rl+a),(ar)  Look for prefix\r
+    004515  aa   000000 000006    2610         desc9a  ap|0,ql\r
+    004516  aa   200000 000000    2611         desc9a  bp|0\r
+    004517  aa  6 00076 0001 00   2612         arg     sp|temp\r
+    004520  0a   004504 6064 00   2613         ttn     zix             Fails.\r
+                                  2614  "\r
+                                  2615  "      See if string really won.\r
+                                  2616  "\r
+    004521  aa   000001 0350 07   2617         adla    1,dl            add 1 both for pl1 result and new offs\r
+    004522  aa  6 00076 0351 00   2618         adla    sp|temp         This gonna be real offset.\r
+    004523  aa  6 00076 7551 00   2619         sta     sp|temp         Leave in a and temp\r
+    004524  aa  6 00075 2361 00   2620         ldq     sp|lg2          Compare whole string\r
+    004525  aa  0 00140 1065 45   2621         cmpc    (ar+rl+a),(ar+rl)\r
+    004526  aa   077777 600006    2622         desc9a  ap|-1(3),ql     ql = length\r
+    004527  aa   200000 000006    2623         desc9a  bp|0,ql         string 2 length\r
+    004530  0a   004535 6000 00   2624         tze     ixc_ret_ok_1    answer in a\r
+    004531  aa  6 00066 2361 00   2625         ldq     sp|t2           charlg1 - lg2\r
+    004532  aa  6 00076 1361 00   2626         sblq    sp|temp\r
+    004533  0a   004513 6050 00   2627         tpl     ixcs_loop\r
+    004534  0a   004504 7100 00   2628         tra     zix             Nothing left to search\r
+                                  2629  \r
+    004535                        2630  ixc_ret_ok_1:\r
+    004535  aa   000044 7730 00   2631         lrl     36\r
+    004536  aa  6 00030 3501 20   2632         eppap   sp|stack_frame.operator_ptr,*\r
+    004537  aa  6 00046 7101 70   2633         tra     sp|tbp,*0\r
+                                  2634  \r
+                                  2635  "      Operator to compute index (rev(string1),rev(string2))\r
+                                  2636  "      Same conventions as ix_chars.\r
+                                  2637  \r
+    004540                        2638  ix_rev_chars:\r
+    004540  aa  6 00063 1161 00   2639         cmpq    sp|char_lg1     String 2 bigger than 1?\r
+    004541  0a   004504 6054 00   2640         tpnz    zix             Quick failure.\r
+    004542  aa  6 00050 3501 20   2641         eppap   sp|temp_pt,*    Get searchee ptr\r
+    004543  aa  6 00063 2351 00   2642         lda     sp|char_lg1     Load up searchee length\r
+    004544  aa   000001 1160 07   2643         cmpq    1,dl            Search for 0, 1, or 2?\r
+    004545  0a   004504 6040 00   2644         tmi     zix             Immediate failure for 0.\r
+    004546  0a   004555 6054 00   2645         tpnz    ix_rev_long     2 or more chars\r
+                                  2646  \r
+                                  2647  "      Search for 1 char.  Searchee guaranteed to be at least 1 long.\r
+                                  2648  "\r
+                                  2649  "      ap = ptr to string1\r
+                                  2650  "      bp = ptr to string2\r
+                                  2651  "      a = length(string1)\r
+                                  2652  "      q = length(string2) = 1\r
+                                  2653  "      x0 = return offset\r
+                                  2654  \r
+    004547  aa  0 00100 1255 40   2655         scmr    (pr,rl),(pr)\r
+    004550  aa   000000 000005    2656         desc9a  ap|0,al\r
+    004551  aa   200000 000000    2657         desc9a  bp|0\r
+    004552  aa  6 00076 0001 00   2658         arg     sp|temp\r
+    004553  0a   004504 6064 00   2659         ttn     zix             " Was string2 found in string1?\r
+    004554  0a   004500 7100 00   2660         tra     ixc_ret_ok      " Yes: return 1-origin index\r
+                                  2661  \r
+                                  2662  "      Now known to be 2 or more characters to search for\r
+                                  2663  "      in string guaranteed 2 or more long.  Note that a leading\r
+                                  2664  "      prefix of the searchee of length (length (searchstring)-2)\r
+                                  2665  "      need not be searched.\r
+                                  2666  "\r
+    004555                        2667  ix_rev_long:\r
+    004555  aa  6 00075 7561 00   2668         stq     sp|lg2          length (searchstring)\r
+    004556  aa  6 00075 1351 00   2669         sbla    sp|lg2          Deduct l(ss)-2 from searchable len\r
+    004557  aa   000002 0350 07   2670         adla    2,dl\r
+    004560                        2671  ix_rev_loop:\r
+    004560  aa  0 00106 1215 46   2672         scdr    (ar+rl+q),(ar+q)        q is l(searchstring)\r
+    004561  aa   077777 400005    2673         desc9a  ap|-1(2),al     a is searchable length of searchee\r
+    004562  aa   277777 400000    2674         desc9a  bp|-1(2)                Gets last 2 chars\r
+    004563  aa  6 00076 0001 00   2675         arg     sp|temp         Answer\r
+    004564  0a   004504 6064 00   2676         ttn     zix             Clear and present failure\r
+                                  2677  "\r
+                                  2678  "      See if we really found the string.  This algebra\r
+                                  2679  "      really, really works.\r
+                                  2680  "\r
+    004565  aa   000002 1350 07   2681         sbla    2,dl\r
+    004566  aa  6 00076 1351 00   2682         sbla    sp|temp\r
+                                  2683  "\r
+                                  2684  "      Compare the full string.  Length still in q, offset now in a.\r
+                                  2685  "\r
+    004567  aa  0 00140 1065 45   2686         cmpc    (ar+rl+a),(ar+rl)\r
+    004570  aa   000000 000006    2687         desc9a  ap|0,ql\r
+    004571  aa   200000 000006    2688         desc9a  bp|0,ql\r
+    004572  0a   004602 6010 00   2689         tnz     ix_rev_more     Nope. Try some more.\r
+                                  2690  "\r
+                                  2691  "      String found.  Find how many chars left on other side.\r
+                                  2692  "\r
+    004573  aa  6 00075 0351 00   2693         adla    sp|lg2          length(searchstring)\r
+    004574  aa  6 00063 1351 00   2694         sbla    sp|char_lg1     this is negative\r
+    004575  aa   000000 5310 00   2695         neg     0\r
+    004576  aa   000001 0350 07   2696         adla    1,dl            for PL/I convention\r
+    004577  aa   000044 7730 00   2697         lrl     36\r
+    004600  aa  6 00030 3501 20   2698         eppap   sp|stack_frame.operator_ptr,*\r
+    004601  aa  6 00046 7101 70   2699         tra     sp|tbp,*0               return.\r
+    004602                        2700  ix_rev_more:\r
+    004602  aa   000001 0350 07   2701         adla    1,dl            This is right.\r
+    004603  aa   000002 1150 07   2702         cmpa    2,dl            Still left to search?\r
+    004604  0a   004504 6040 00   2703         tmi     zix             Search fails if not\r
+    004605  0a   004560 7100 00   2704         tra     ix_rev_loop     New stuff in a.\r
+                                  2705  "\r
+                                  2706  "      Bit index operators\r
+                                  2707  "\r
+                                  2708  \r
+    004606                        2709  index_bits_eis:\r
+    004606  aa   000000 1160 07   2710         cmpq    0,dl            exit now if string_2 zero length\r
+    004607  aa  6 00046 6001 70   2711         tze     sp|tbp,*0\r
+    004610  0a   004624 7100 00   2712         tra     ixb2            join common case\r
+                                  2713  "\r
+    004611                        2714  index_bits:\r
+    004611  aa   000000 6210 17   2715         eax1    0,7             get bit offset\r
+    004612  0a   004620 7100 00   2716         tra     ixb\r
+                                  2717  "\r
+    004613                        2718  index_bits_co:\r
+    004613  0a   001264 2210 17   2719         ldx1    co_to_bo,7      convert to bit offset\r
+    004614  0a   004620 7100 00   2720         tra     ixb\r
+                                  2721  "\r
+    004615                        2722  index_bits_ho:\r
+    004615  0a   001270 2210 17   2723         ldx1    ho_to_bo,7      convert to bit offset\r
+    004616  0a   004620 7100 00   2724         tra     ixb\r
+                                  2725  "\r
+    004617                        2726  index_bits_aligned:\r
+    004617  aa   000000 6210 00   2727         eax1    0               get zero offset\r
+                                  2728  "\r
+    004620  aa   000000 1160 07   2729  ixb:   cmpq    0,dl            exit if string 2 zero length\r
+    004621  aa  6 00046 6001 70   2730         tze     sp|tbp,*0\r
+    004622  aa   000000 0520 03   2731         adwpbp  0,du            erase bit offset\r
+    004623  aa  2 00000 5035 11   2732         abd     bp|0,1          use new bit offset\r
+    004624  aa  6 00050 3501 20   2733  ixb2:  eppap   sp|temp_pt,*    get ptr to string_1\r
+    004625  aa  6 00075 7561 00   2734  ixb1:  stq     sp|lg2          save length of string_2\r
+    004626  aa   000000 2360 07   2735         ldq     0,dl            init loop\r
+    004627                        2736  ixbs_loop:\r
+    004627  aa  6 00077 7561 00   2737         stq     sp|count\r
+    004630  aa  6 00062 2351 00   2738         lda     sp|bit_lg1      compute number of remaining bits in 1\r
+    004631  aa  6 00077 1751 00   2739         sba     sp|count\r
+    004632  aa  6 00075 1151 00   2740         cmpa    sp|lg2          must be >= length 2\r
+    004633  0a   004504 6040 00   2741         tmi     zix\r
+    004634  aa  6 00075 2351 00   2742         lda     sp|lg2          get length 2\r
+    004635  aa   000001 0760 07   2743         adq     1,dl            convert skip count to pl1 index\r
+    004636  aa  0 00146 0665 40   2744         cmpb    (ar+rl),(ar+rl+q)\r
+    004637  aa   200000 000005    2745         descb   bp|0,al\r
+    004640  aa   077777 700005    2746         descb   ap|-1(35),al\r
+    004641  0a   004627 6010 00   2747         tnz     ixbs_loop               failed, try next value\r
+    004642  aa   000000 1160 07   2748         cmpq    0,dl            set indicators\r
+    004643  aa  6 00030 3501 20   2749         eppap   sp|stack_frame.operator_ptr,*   index in q, exit\r
+    004644  aa  6 00046 7101 70   2750         tra     sp|tbp,*0\r
+                                  2751  "\r
+                                  2752  "      operator to compute index(str1,str2) when str2 is a single char.\r
+                                  2753  "      entered with value of str2 in a register.\r
+                                  2754  "\r
+    004645                        2755  index_cs_1_eis:\r
+    004645  aa   000000 1160 07   2756         cmpq    0,dl            exit now if string 1 zero length\r
+    004646  aa  6 00046 6001 70   2757         tze     sp|tbp,*0\r
+    004647  0a   004663 7100 00   2758         tra     ixcs1_b         join common cae\r
+    004650                        2759  index_cs_1:\r
+    004650  aa   000000 6210 17   2760         eax1    0,7             convert to bit offset\r
+    004651  0a   004657 7100 00   2761         tra     ixcs1_a         join common section\r
+                                  2762  "\r
+    004652                        2763  index_cs_1_co:\r
+    004652  0a   001264 2210 17   2764         ldx1    co_to_bo,7      get bit offset\r
+    004653  0a   004657 7100 00   2765         tra     ixcs1_a\r
+                                  2766  "\r
+    004654                        2767  index_cs_1_ho:\r
+    004654  0a   001270 2210 17   2768         ldx1    ho_to_bo,7      convert to bit offset\r
+    004655  0a   004657 7100 00   2769         tra     ixcs1_a\r
+                                  2770  "\r
+    004656                        2771  index_cs_1_aligned:\r
+    004656  aa   000000 6210 00   2772         eax1    0               get zero offset\r
+                                  2773  "\r
+    004657  aa   000000 1160 07   2774  ixcs1_a:       cmpq    0,dl            return immediately if string 1 zero length\r
+    004660  aa  6 00046 6001 70   2775         tze     sp|tbp,*0\r
+    004661  aa   000000 0520 03   2776         adwpbp  0,du            clear bit offset\r
+    004662  aa  2 00000 5035 11   2777         abd     bp|0,1          use new bit offset\r
+    004663  aa  2 00000 3501 00   2778  ixcs1_b:       eppap   bp|0            put ptr to string 1 in proper register\r
+    004664  aa  6 00072 7551 00   2779         sta     sp|temp2                save the character\r
+    004665  aa  6 00072 3521 00   2780         eppbp   sp|temp2                get ptr to it as string 2\r
+    004666  aa   000044 7370 00   2781         lls     36              Needed in a\r
+    004667  0a   004473 7100 00   2782         tra     ixc1\r
+                                  2783  "\r
+                                  2784  "      operators to search a bit string for a single bit\r
+                                  2785  "\r
+    004670                        2786  index_bs_1_eis:\r
+    004670  aa   000000 1160 07   2787         cmpq    0,dl            exit now if string 1 zero length\r
+    004671  aa  6 00046 6001 70   2788         tze     sp|tbp,*0\r
+    004672  0a   004706 7100 00   2789         tra     ixbs1_b         join common case\r
+                                  2790  "\r
+    004673                        2791  index_bs_1:\r
+    004673  aa   000000 6210 17   2792         eax1    0,7             save bit offset\r
+    004674  0a   004702 7100 00   2793         tra     ixbs1_a\r
+                                  2794  "\r
+    004675                        2795  index_bs_1_co:\r
+    004675  0a   001264 2210 17   2796         ldx1    co_to_bo,7      convert to bit offset\r
+    004676  0a   004702 7100 00   2797         tra     ixbs1_a\r
+                                  2798  "\r
+    004677                        2799  index_bs_1_ho:\r
+    004677  0a   001270 2210 17   2800         ldx1    ho_to_bo,7      convert to bit offset\r
+    004700  0a   004702 7100 00   2801         tra     ixbs1_a\r
+                                  2802  "\r
+    004701                        2803  index_bs_1_aligned:\r
+    004701  aa   000000 6210 00   2804         eax1    0               get zero offset\r
+                                  2805  "\r
+    004702  aa   000000 1160 07   2806  ixbs1_a:       cmpq    0,dl            return immediately if string 1 zero length\r
+    004703  aa  6 00046 6001 70   2807         tze     sp|tbp,*0\r
+    004704  aa   000000 0520 03   2808         adwpbp  0,du            clear bit offset\r
+    004705  aa  2 00000 5035 11   2809         abd     bp|0,1          add new bit offset\r
+    004706  aa  2 00000 3501 00   2810  ixbs1_b:       eppap   bp|0            put ptr to string 1 in proper register\r
+    004707  aa  6 00062 7561 00   2811         stq     sp|bit_lg1      save length of string_1\r
+    004710  aa  6 00072 7551 00   2812         sta     sp|temp2                save the bit\r
+    004711  aa  6 00072 3521 00   2813         eppbp   sp|temp2                get ptr to it as string 2\r
+    004712  aa   000001 2360 07   2814         ldq     1,dl            get length of string 2\r
+    004713  0a   004625 7100 00   2815         tra     ixb1\r
+                                  2816  "\r
+                                  2817  "      index operators used with before and after.  entered\r
+                                  2818  "      with str1 specified by previous set operator\r
+                                  2819  "\r
+    004714                        2820  index_before_cs:\r
+    004714  aa   000000 1160 07   2821         cmpq    0,dl            exit now if str2 zero length\r
+    004715  aa  6 00046 6001 70   2822         tze     sp|tbp,*0\r
+    004716  aa   000000 6210 00   2823         eax1    0               set flag\r
+    004717  0a   004723 7100 00   2824         tra     ixba\r
+                                  2825  "\r
+    004720                        2826  index_after_cs:\r
+    004720  aa   000000 1160 07   2827         cmpq    0,dl            exit now if str2 zero length\r
+    004721  aa  6 00046 6001 70   2828         tze     sp|tbp,*0\r
+    004722  aa   000001 6210 00   2829         eax1    1               set flag\r
+    004723  aa  6 00050 3501 20   2830  ixba:  eppap   sp|temp_pt,*    get ptr to str1\r
+    004724  aa   000001 1160 07   2831         cmpq    1,dl            are we looking for single char\r
+    004725  0a   004750 6010 00   2832         tnz     ixba_long               no, skip\r
+    004726  aa  6 00063 2361 00   2833         ldq     sp|char_lg1     get length of str1\r
+    004727  aa  0 00100 1245 40   2834         scm     (ar+rl),(ar)\r
+    004730  aa   000000 000006    2835         desc9a  ap|0,ql\r
+    004731  aa   200000 000001    2836         desc9a  bp|0,1\r
+    004732  aa  6 00076 0001 00   2837         arg     sp|temp\r
+    004733  0a   004741 6064 00   2838         ttn     ixba_fail+1\r
+    004734  aa  6 00076 2361 00   2839         ldq     sp|temp         get result\r
+    004735  0a   004746 7160 11   2840         xec     nop_adq_dl,1\r
+    004736  aa  6 00030 3501 20   2841         eppap   sp|stack_frame.operator_ptr,*\r
+    004737  aa  6 00046 7101 70   2842         tra     sp|tbp,*0\r
+                                  2843  "\r
+                                  2844  "      index failed\r
+                                  2845  "\r
+    004740                        2846  ixba_fail:\r
+    004740  aa  6 00063 2361 00   2847         ldq     sp|char_lg1\r
+    004741  aa  6 00030 3501 20   2848         eppap   sp|stack_frame.operator_ptr,*\r
+    004742  aa  6 00046 7101 70   2849         tra     sp|tbp,*0\r
+                                  2850  "\r
+    004743                        2851  ixba_bs_fail:\r
+    004743  aa  6 00062 2361 00   2852         ldq     sp|bit_lg1\r
+    004744  aa  6 00030 3501 20   2853         eppap   sp|stack_frame.operator_ptr,*\r
+    004745  aa  6 00046 7101 70   2854         tra     sp|tbp,*0\r
+                                  2855  "\r
+    004746                        2856  nop_adq_dl:\r
+    004746  aa   000000 0110 07   2857         nop     0,dl            before\r
+    004747  aa   000001 0760 07   2858         adq     1,dl            after\r
+                                  2859  "\r
+                                  2860  "      str2 is more than 1 char\r
+                                  2861  "\r
+    004750                        2862  ixba_long:\r
+    004750  aa  6 00075 7561 00   2863         stq     sp|lg2          save length(str2)\r
+    004751  aa   000000 2360 07   2864         ldq     0,dl            init loop\r
+    004752                        2865  ixba_loop:\r
+    004752  aa  6 00077 7561 00   2866         stq     sp|count\r
+    004753  aa  6 00063 2351 00   2867         lda     sp|char_lg1     get number remaining in str1\r
+    004754  aa  6 00077 1751 00   2868         sba     sp|count\r
+    004755  aa  6 00075 1151 00   2869         cmpa    sp|lg2          failed if < length(str2)\r
+    004756  0a   004740 6040 00   2870         tmi     ixba_fail\r
+    004757  aa  0 00100 1205 46   2871         scd     (ar+rl+q),(ar)  check for first 2 chars of str2\r
+    004760  aa   000000 000005    2872         desc9a  ap|0,al\r
+    004761  aa   200000 000002    2873         desc9a  bp|0,2\r
+    004762  aa  6 00076 0001 00   2874         arg     sp|temp\r
+    004763  0a   004740 6064 00   2875         ttn     ixba_fail               tally runout means failure\r
+    004764  aa  6 00076 1751 00   2876         sba     sp|temp         compute length of hit\r
+    004765  aa  6 00075 1151 00   2877         cmpa    sp|lg2          must be >= length(str2)\r
+    004766  0a   004740 6040 00   2878         tmi     ixba_fail\r
+    004767  aa  6 00076 0761 00   2879         adq     sp|temp         update\r
+    004770  aa   000001 0760 07   2880         adq     1,dl            prepare to bump past hit\r
+    004771  aa  6 00075 2351 00   2881         lda     sp|lg2          check full str2\r
+    004772  aa  0 00140 1065 46   2882         cmpc    (ar+rl+q),(ar+rl)\r
+    004773  aa   077777 600005    2883         desc9a  ap|-1(3),al\r
+    004774  aa   200000 000005    2884         desc9a  bp|0,al\r
+    004775  0a   004752 6010 00   2885         tnz     ixba_loop\r
+    004776  aa   000001 1760 07   2886         sbq     1,dl            we want offset, NOT pl1 index\r
+    004777  0a   005002 7160 11   2887         xec     nop_adq,1\r
+    005000  aa  6 00030 3501 20   2888         eppap   sp|stack_frame.operator_ptr,*\r
+    005001  aa  6 00046 7101 70   2889         tra     sp|tbp,*0\r
+                                  2890  "\r
+    005002                        2891  nop_adq:\r
+    005002  aa   000000 0110 07   2892         nop     0,dl            before\r
+    005003  aa  6 00075 0761 00   2893         adq     sp|lg2          after\r
+                                  2894  "\r
+    005004                        2895  index_before_bs:\r
+    005004  aa   000000 1160 07   2896         cmpq    0,dl            exit now if str2 zero length\r
+    005005  aa  6 00046 6001 70   2897         tze     sp|tbp,*0\r
+    005006  aa   000000 6210 00   2898         eax1    0\r
+    005007  0a   005013 7100 00   2899         tra     ixba_bs\r
+                                  2900  "\r
+    005010                        2901  index_after_bs:\r
+    005010  aa   000000 1160 07   2902         cmpq    0,dl            exit now if str2 zero length\r
+    005011  aa  6 00046 6001 70   2903         tze     sp|tbp,*0\r
+    005012  aa   000001 6210 00   2904         eax1    1\r
+    005013  aa  6 00050 3501 20   2905  ixba_bs:       eppap   sp|temp_pt,*    get ptr to str1\r
+    005014  aa  6 00075 7561 00   2906  ixba_bs1:      stq     sp|lg2          save length(str2)\r
+    005015  aa   000000 2360 07   2907         ldq     0,dl            init loop\r
+    005016                        2908  ixba_bs_loop:\r
+    005016  aa  6 00077 7561 00   2909         stq     sp|count\r
+    005017  aa  6 00062 2351 00   2910         lda     sp|bit_lg1      compute remaining bits in str1\r
+    005020  aa  6 00077 1751 00   2911         sba     sp|count\r
+    005021  aa  6 00075 1151 00   2912         cmpa    sp|lg2          must be >= length(str2)\r
+    005022  0a   004743 6040 00   2913         tmi     ixba_bs_fail\r
+    005023  aa  6 00075 2351 00   2914         lda     sp|lg2          get length(str2)\r
+    005024  aa   000001 0760 07   2915         adq     1,dl            prepare to skip past the bit\r
+    005025  aa  0 00146 0665 40   2916         cmpb    (ar+rl),(ar+rl+q)\r
+    005026  aa   200000 000005    2917         descb   bp|0,al\r
+    005027  aa   077777 700005    2918         descb   ap|-1(35),al\r
+    005030  0a   005016 6010 00   2919         tnz     ixba_bs_loop\r
+    005031  aa   000001 1760 07   2920         sbq     1,dl            want offset, not pl1 index\r
+    005032  0a   005002 7160 11   2921         xec     nop_adq,1\r
+    005033  aa  6 00030 3501 20   2922         eppap   sp|stack_frame.operator_ptr,*\r
+    005034  aa  6 00046 7101 70   2923         tra     sp|tbp,*0\r
+                                  2924  "\r
+    005035                        2925  index_before_bs_1:\r
+    005035  aa   000000 1160 07   2926         cmpq    0,dl            exit now if str1 zero len\r
+    005036  aa  6 00046 6001 70   2927         tze     sp|tbp,*0\r
+    005037  aa   000000 6210 00   2928         eax1    0\r
+    005040  0a   005044 7100 00   2929         tra     ixba_bs2\r
+                                  2930  "\r
+    005041                        2931  index_after_bs_1:\r
+    005041  aa   000000 1160 07   2932         cmpq    0,dl            exit now if str1 zero length\r
+    005042  aa  6 00046 6001 70   2933         tze     sp|tbp,*0\r
+    005043  aa   000001 6210 00   2934         eax1    1\r
+    005044  aa  2 00000 3501 00   2935  ixba_bs2:      eppap   bp|0            put ptr to str1 in proper register\r
+    005045  aa  6 00062 7561 00   2936         stq     sp|bit_lg1      save length(str1)\r
+    005046  aa  6 00072 7551 00   2937         sta     sp|temp2                save the bit\r
+    005047  aa  6 00072 3521 00   2938         eppbp   sp|temp2                get ptr to it as str2\r
+    005050  aa   000001 2360 07   2939         ldq     1,dl            get length of str2\r
+    005051  0a   005014 7100 00   2940         tra     ixba_bs1\r
+                                  2941  "\r
+                                  2942  "      operators to make bit table for use with verify operator.\r
+                                  2943  "      entered with pointer to string in bp, offset in x7, size in q, and\r
+                                  2944  "      stack offset of bit table in au.\r
+                                  2945  "\r
+    005052                        2946  make_bit_table:\r
+    005052  aa   000000 6210 17   2947         eax1    0,7             get offset\r
+    005053  0a   005061 7100 00   2948         tra     mbt\r
+                                  2949  "\r
+    005054                        2950  make_bit_table_co:\r
+    005054  0a   001264 2210 17   2951         ldx1    co_to_bo,7      convert offset to bits\r
+    005055  0a   005061 7100 00   2952         tra     mbt\r
+                                  2953  "\r
+    005056                        2954  make_bit_table_ho:\r
+    005056  0a   001270 2210 17   2955         ldx1    ho_to_bo,7      convert offset to bits\r
+    005057  0a   005061 7100 00   2956         tra     mbt\r
+                                  2957  "\r
+    005060                        2958  make_bit_table_al:\r
+    005060  aa   000000 6210 00   2959         eax1    0               zero offset\r
+                                  2960  "\r
+    005061  aa  6 00000 3505 00   2961  mbt:   epbpap  sp|0            get ptr to base of stack\r
+    005062  aa   000000 3100 01   2962         eawpap  0,au            get ptr to bit table\r
+    005063  aa  6 00063 7561 00   2963         stq     sp|char_lg1     save - length of string\r
+    005064  aa   000000 4310 07   2964         fld     0,dl            zero out the bit table\r
+    005065  aa  0 00000 7571 00   2965         staq    ap|0\r
+    005066  aa  0 00002 7571 00   2966         staq    ap|2\r
+    005067  aa  6 00063 3361 00   2967         lcq     sp|char_lg1\r
+    005070  0a   003624 6000 00   2968         tze     log_exit                return if zero length string\r
+    005071  aa  6 00063 7561 00   2969         stq     sp|char_lg1\r
+    005072  aa  2 00000 2361 00   2970  mbt_1: ldq     bp|0            get current word of string\r
+    005073  aa   000004 7370 11   2971         lls     4,1             shift char to straddle aq, i.e. 00xx|yyyyy\r
+    005074  aa   000015 7720 00   2972         qrl     4+9             put 5 bit index in qu\r
+    005075  aa   000003 3750 07   2973         ana     3,dl            get 2 bit word index in al\r
+    005076  0a   011751 2360 02   2974         ldq     single_bit,qu   get single bit at right position\r
+    005077  aa  0 00000 2561 05   2975         orsq    ap|0,al         insert in bit table\r
+    005100  aa  6 00063 0541 00   2976         aos     sp|char_lg1     count down\r
+    005101  0a   003624 6000 00   2977         tze     log_exit                zero means we're done\r
+    005102  aa   000011 0610 03   2978         adx1    9,du            update offset\r
+    005103  aa   000044 1010 03   2979         cmpx1   36,du           do we need another word\r
+    005104  0a   005072 6040 00   2980         tmi     mbt_1           no, finish this one\r
+    005105  aa   000000 6210 00   2981         eax1    0               yes, set offset to zero\r
+    005106  aa  2 00001 3521 00   2982         eppbp   bp|1            update for next word\r
+    005107  0a   005072 7100 00   2983         tra     mbt_1           and repeat\r
+                                  2984  "\r
+                                  2985  "      operators to make bit table for use by search builtin function\r
+                                  2986  "      entered with point to string in bp, offset in x7, size in q, and\r
+                                  2987  "      stack offset of bit table in au.  The bit table constructed by\r
+                                  2988  "      these operators are the complement of that constructed by\r
+                                  2989  "      the make_bit_temp operator.\r
+                                  2990  "\r
+    005110                        2991  form_bit_table:\r
+    005110  aa   000000 6210 17   2992         eax1    0,7             get offset\r
+    005111  0a   005117 7100 00   2993         tra     fbt\r
+                                  2994  "\r
+    005112                        2995  form_bit_table_co:\r
+    005112  0a   001264 2210 17   2996         ldx1    co_to_bo,7      convert offset to bits\r
+    005113  0a   005117 7100 00   2997         tra     fbt\r
+                                  2998  "\r
+    005114                        2999  form_bit_table_ho:\r
+    005114  0a   001270 2210 17   3000         ldx1    ho_to_bo,7      convert offset to bits\r
+    005115  0a   005117 7100 00   3001         tra     fbt\r
+                                  3002  "\r
+    005116                        3003  form_bit_table_al:\r
+    005116  aa   000000 6210 00   3004         eax1    0               zero offset\r
+                                  3005  "\r
+    005117  aa  6 00000 3505 00   3006  fbt:   epbpap  sp|0            get ptr to base of stack\r
+    005120  aa   000000 3100 01   3007         eawpap  0,au            get ptr to bit table\r
+    005121  aa  6 00063 7561 00   3008         stq     sp|char_lg1     save - length of string\r
+    005122  0a   001646 2370 00   3009         ldaq    mask_bit\r
+    005123  aa  0 00000 7571 00   3010         staq    ap|0            init table to all 1s\r
+    005124  aa  0 00002 7571 00   3011         staq    ap|2\r
+    005125  aa  6 00063 3361 00   3012         lcq     sp|char_lg1\r
+    005126  0a   003624 6000 00   3013         tze     log_exit                return of zero length string\r
+    005127  aa  6 00063 7561 00   3014         stq     sp|char_lg1\r
+    005130  aa  2 00000 2361 00   3015  fbt_1: ldq     bp|0            get current word of string\r
+    005131  aa   000004 7370 11   3016         lls     4,1             shift char to straddle aq, i.e. 00xx|yyyyy\r
+    005132  aa   000015 7720 00   3017         qrl     4+9             put 5 bit index in qu\r
+    005133  aa   000003 3750 07   3018         ana     3,dl            get 2 bit word index in al\r
+    005134  0a   011751 2360 02   3019         ldq     single_bit,qu   get single 1 bit at right position\r
+    005135  0a   001536 6760 00   3020         erq     ones            convert to single 0 in right position\r
+    005136  aa  0 00000 3561 05   3021         ansq    ap|0,al         erase bit in bit table\r
+    005137  aa  6 00063 0541 00   3022         aos     sp|char_lg1     cont down\r
+    005140  0a   003624 6000 00   3023         tze     log_exit                zero means done\r
+    005141  aa   000011 0610 03   3024         adx1    9,du            update offset\r
+    005142  aa   000044 1010 03   3025         cmpx1   36,du           do we need another word\r
+    005143  0a   005130 6040 00   3026         tmi     fbt_1           no, ifnish this one\r
+    005144  aa   000000 6210 00   3027         eax1    0               yes, set offset to zero\r
+    005145  aa  2 00001 3521 00   3028         eppbp   bp|1            update for next word\r
+    005146  0a   005130 7100 00   3029         tra     fbt_1           and repeat\r
+                                  3030  "\r
+                                  3031  "      operators to verify|search a string with bit table stored in stack.\r
+                                  3032  "      entered with pointer to string in bp, offset in x7, size in q,\r
+                                  3033  "      and tack offset of bit table in au.\r
+                                  3034  "\r
+    005147  aa   000000 6210 17   3035  verify:        eax1    0,7             get offset\r
+    005150  0a   005156 7100 00   3036         tra     ver_1\r
+                                  3037  "\r
+    005151                        3038  verify_co:\r
+    005151  0a   001264 2210 17   3039         ldx1    co_to_bo,7      convert to bit offset\r
+    005152  0a   005156 7100 00   3040         tra     ver_1\r
+                                  3041  "\r
+    005153                        3042  verify_ho:\r
+    005153  0a   001270 2210 17   3043         ldx1    ho_to_bo,7      convert to bit offset\r
+    005154  0a   005156 7100 00   3044         tra     ver_1\r
+                                  3045  "\r
+    005155                        3046  verify_al:\r
+    005155  aa   000000 6210 00   3047         eax1    0               zero offset\r
+    005156  aa  6 00000 3505 00   3048  ver_1: epbpap  sp|0            get ptr to bit table\r
+    005157  aa   000000 3100 01   3049         eawpap  0,au            ..\r
+    005160  0a   005171 7100 00   3050         tra     ver_3           join common section\r
+                                  3051  "\r
+                                  3052  "      operators to verify|search a string with constant bit table.\r
+                                  3053  "      entered with pointer to string in bp, offset in x7, size in q,\r
+                                  3054  "      and text offset of bit table in au.\r
+                                  3055  "\r
+    005161                        3056  const_verify:\r
+    005161  aa   000000 6210 17   3057         eax1    0,7             get offset\r
+    005162  0a   005170 7100 00   3058         tra     ver_2\r
+                                  3059  "\r
+    005163                        3060  const_verify_co:\r
+    005163  0a   001264 2210 17   3061         ldx1    co_to_bo,7      convert to bit offset\r
+    005164  0a   005170 7100 00   3062         tra     ver_2\r
+                                  3063  "\r
+    005165                        3064  const_verify_ho:\r
+    005165  0a   001270 2210 17   3065         ldx1    ho_to_bo,7      convert to bit offset\r
+    005166  0a   005170 7100 00   3066         tra     ver_2\r
+                                  3067  "\r
+    005167                        3068  const_verify_al:\r
+    005167  aa   000000 6210 00   3069         eax1    0               zero offset\r
+    005170  aa  6 00046 3501 61   3070  ver_2: eppap   sp|tbp,*au      get ptr to bit table\r
+                                  3071  "\r
+    005171  aa  6 00063 7561 00   3072  ver_3: stq     sp|char_lg1     save - length of string\r
+    005172  aa  6 00063 3361 00   3073         lcq     sp|char_lg1\r
+    005173  0a   003624 6000 00   3074         tze     log_exit                return zero if zero length\r
+    005174  aa  6 00075 7561 00   3075         stq     sp|lg2\r
+    005175  aa  2 00000 2361 00   3076  ver_4: ldq     bp|0            get current word of string\r
+    005176  aa   000004 7370 11   3077         lls     4,1             shift char to straddle aq, i.e. 00xx|yyyyy\r
+    005177  aa   000015 7720 00   3078         qrl     4+9             put 5 bit index yyyyy in qu\r
+    005200  aa   000003 3750 07   3079         ana     3,dl            get 2 bit word index in al\r
+    005201  aa  0 00000 2351 05   3080         lda     ap|0,al         get word from bit table\r
+    005202  aa   000000 7350 02   3081         als     0,qu            shift to get bit into sign position\r
+    005203  0a   005216 6050 00   3082         tpl     ver_fail                plus means char from string not in class\r
+    005204  aa  6 00075 0541 00   3083         aos     sp|lg2          char ok, update for next\r
+    005205  0a   005214 6000 00   3084         tze     ver_done\r
+    005206  aa   000011 0610 03   3085         adx1    9,du            update shift amount\r
+    005207  aa   000044 1010 03   3086         cmpx1   36,du           do we need another word\r
+    005210  0a   005175 6040 00   3087         tmi     ver_4           no, repeat\r
+    005211  aa   000000 6210 00   3088         eax1    0               yes, zero shift\r
+    005212  aa  2 00001 3521 00   3089         eppbp   bp|1            update word pointer\r
+    005213  0a   005175 7100 00   3090         tra     ver_4           and repeat\r
+    005214  aa   000000 2360 07   3091  ver_done:      ldq     0,dl            all chars in class, return zero\r
+    005215  0a   003624 7100 00   3092         tra     log_exit\r
+    005216  aa  6 00030 3501 20   3093  ver_fail:      eppap   sp|stack_frame.operator_ptr,*   restore ptr to operator table\r
+    005217  aa  6 00075 2361 00   3094         ldq     sp|lg2          exit with index of char that failed\r
+    005220  aa  6 00063 0761 00   3095         adq     sp|char_lg1\r
+    005221  aa   000001 0760 07   3096         adq     1,dl\r
+    005222  aa  6 00046 7101 70   3097         tra     sp|tbp,*0\r
+                                  3098  "\r
+                                  3099  "      operators to do search|verify(s1,s2)\r
+                                  3100  "      entered with bp -> s1, ab -> s2, length(s1) in q, length(s2) in a\r
+                                  3101  "\r
+    005223                        3102  search_eis:\r
+    005223  aa   000000 6210 00   3103         eax1    0               set to do ttf\r
+    005224  aa  6 00063 7561 00   3104         stq     sp|char_lg1     save length of s1\r
+    005225  aa   000001 2360 07   3105         ldq     1,dl            init loop\r
+    005226                        3106  search_loop:\r
+    005226  aa  6 00063 1161 00   3107         cmpq    sp|char_lg1     are we done\r
+    005227  0a   005237 6054 00   3108         tpnz    search_fail     yes, return\r
+    005230  aa  0 00106 1245 40   3109         scm     (ar+rl),(ar+q)\r
+    005231  aa   100000 000005    3110         desc9a  ab|0,al\r
+    005232  aa   277777 600000    3111         desc9a  bp|-1(3),0\r
+    005233  aa  6 00077 0001 00   3112         arg     sp|t4\r
+    005234  0a   005243 7160 11   3113         xec     ttf_ttn,1               did we hit char\r
+    005235  aa   000001 0760 07   3114         adq     1,dl            keep looking\r
+    005236  0a   005226 7100 00   3115         tra     search_loop\r
+    005237                        3116  search_fail:\r
+    005237  aa   000000 2360 07   3117         ldq     0,dl            return 0\r
+    005240  aa  6 00046 7101 70   3118         tra     sp|tbp,*0\r
+    005241                        3119  search_done:\r
+    005241  aa   000000 1160 07   3120         cmpq    0,dl            set indicators\r
+    005242  aa  6 00046 7101 70   3121         tra     sp|tbp,*0               and exit\r
+                                  3122  "\r
+    005243                        3123  ttf_ttn:\r
+    005243  0a   005241 6070 00   3124         ttf     search_done\r
+    005244  0a   005241 6064 00   3125         ttn     search_done\r
+                                  3126  "\r
+    005245                        3127  verify_eis:\r
+    005245  aa   000001 6210 00   3128         eax1    1\r
+    005246  0a   005224 7100 00   3129         tra     search_eis+1\r
+                                  3130  "\r
+                                  3131  "      Reverse versions of above\r
+                                  3132  "\r
+    005247                        3133  verify_rev_chars:\r
+    005247  aa   000001 6210 00   3134         eax1    1\r
+    005250  0a   005252 7100 00   3135         tra     *+2\r
+    005251                        3136  search_rev_chars:\r
+    005251  aa   000000 6210 00   3137         eax1    0\r
+    005252  aa  6 00075 7561 00   3138         stq     sp|lg2          for later computation\r
+    005253                        3139  search_rev_loop:\r
+    005253  aa   000001 1360 07   3140         sblq    1,dl\r
+    005254  0a   005237 6040 00   3141         tmi     search_fail\r
+    005255  aa  0 00106 1245 40   3142         scm     (ar+rl),(ar+q)\r
+    005256  aa   100000 000005    3143         desc9a  ab|0,al\r
+    005257  aa   200000 000000    3144         desc9a  bp|0\r
+    005260  aa  6 00077 0001 00   3145         arg     sp|t4\r
+    005261  0a   005263 7160 11   3146         xec     rev_ttf_ttn,1\r
+    005262  0a   005253 7100 00   3147         tra     search_rev_loop\r
+                                  3148  \r
+    005263                        3149  rev_ttf_ttn:\r
+    005263  0a   005265 6070 00   3150         ttf     rev_search_done\r
+    005264  0a   005265 6064 00   3151         ttn     rev_search_done\r
+    005265                        3152  rev_search_done:\r
+    005265  aa  6 00076 7561 00   3153         stq     sp|temp\r
+    005266  aa  6 00075 2361 00   3154         ldq     sp|lg2\r
+    005267  aa  6 00076 1361 00   3155         sblq    sp|temp\r
+    005270  aa  6 00046 7101 70   3156         tra     sp|tbp,*0\r
+                                  3157  "\r
+                                  3158  "      verify operators for trim bifs entered as above\r
+                                  3159  "\r
+    005271                        3160  verify_for_ltrim:              "returns offset of 1st char not in str2 scanning from left\r
+    005271  aa  6 00063 7561 00   3161         stq     sp|char_lg1     save length of str1\r
+    005272  aa   000000 2360 07   3162         ldq     0,dl            init loop (we want offset, rather than pl1 verify index)\r
+    005273                        3163  vfl_loop:\r
+    005273  aa  6 00063 1161 00   3164         cmpq    sp|char_lg1     are we done?\r
+    005274  0a   005241 6050 00   3165         tpl     search_done     yes, return\r
+    005275  aa  0 00106 1245 40   3166         scm     (ar+rl),(ar+q)\r
+    005276  aa   100000 000005    3167         desc9a  ab|0,al\r
+    005277  aa   200000 000001    3168         desc9a  bp|0,1\r
+    005300  aa  6 00077 0001 00   3169         arg     sp|t4\r
+    005301  0a   005241 6064 00   3170         ttn     search_done     are we past chars to be trimmed?\r
+    005302  aa   000001 0760 07   3171         adq     1,dl            no, keep looking\r
+    005303  0a   005273 7100 00   3172         tra     vfl_loop\r
+                                  3173  "\r
+    005304                        3174  verify_for_rtrim:              "equivalent to verify_for_ltrim(reverse(...\r
+    005304  aa   000000 1160 07   3175         cmpq    0,dl            exit if zero\r
+    005305  aa  6 00046 6001 70   3176         tze     sp|tbp,*0\r
+    005306  aa  6 00063 7561 00   3177         stq     sp|char_lg1     save length(str1)\r
+    005307                        3178  vfr_loop:\r
+    005307  aa  0 00106 1245 40   3179         scm     (ar+rl),(ar+q)\r
+    005310  aa   100000 000005    3180         desc9a  ab|0,al\r
+    005311  aa   277777 600001    3181         desc9a  bp|-1(3),1\r
+    005312  aa  6 00077 0001 00   3182         arg     sp|t4\r
+    005313  0a   005316 6064 00   3183         ttn     vfr_done                have we gone past chars to be trimmed?\r
+    005314  aa   000001 1760 07   3184         sbq     1,dl            no, keep looking\r
+    005315  0a   005307 6054 00   3185         tpnz    vfr_loop\r
+    005316                        3186  vfr_done:\r
+    005316  0a   001536 6760 00   3187         erq     ones            subtract from length(str1)\r
+    005317  aa   000001 0760 07   3188         adq     1,dl            ..\r
+    005320  aa  6 00063 0761 00   3189         adq     sp|char_lg1     ..\r
+    005321  aa  6 00046 7101 70   3190         tra     sp|tbp,*0\r
+                                  3191  "\r
+                                  3192  "      operator to perform translate(s,r) with string s previously set up\r
+                                  3193  "      entered with pr2 -> r and length(r) in q\r
+                                  3194  "\r
+    005322                        3195  translate_2:\r
+    005322  aa  6 00076 7561 00   3196         stq     sp|temp         save length of r\r
+    005323  aa  6 00072 2535 00   3197         spri3   sp|temp2\r
+    005324  aa  2 00000 3535 00   3198         epp3    bp|0            save ptr to r\r
+    005325  aa  6 00063 2361 00   3199         ldq     sp|char_lg1     get length(s)\r
+    005326  aa   000013 0760 07   3200         adq     3+8,dl          allocate temp of proper size\r
+    005327  aa   000002 7320 00   3201         qrs     2\r
+    005330  0a   003162 7010 00   3202         tsx1    alloc\r
+    005331  aa  6 00050 3501 20   3203         eppap   sp|temp_pt,*    get ptr to s\r
+    005332  aa  2 00002 3521 00   3204         eppbp   bp|2            skip over temp header\r
+    005333  aa  6 00050 2521 00   3205         spribp  sp|temp_pt      save ptr to temp\r
+    005334  aa  6 00063 2361 00   3206         ldq     sp|char_lg1     get length(s)\r
+    005335                        3207  trans2_loop:\r
+    005335  aa   000001 1760 07   3208         sbq     1,dl            do next char (backwards)\r
+    005336  0a   005355 6040 00   3209         tmi     trans_done      exit if done\r
+    005337  aa  0 00100 1015 06   3210         mrl     (ar+ql),(ar)    isolate next character with leading zeros\r
+    005340  aa   000000 000001    3211         desc9a  ap|0,1\r
+    005341  aa   600074 000004    3212         desc9a  sp|num,4\r
+    005342  aa  6 00074 2351 00   3213         lda     sp|num          get character from s\r
+    005343  aa  6 00076 1151 00   3214         cmpa    sp|temp         check against length of r\r
+    005344  0a   005351 6050 00   3215         tpl     trans2_blank    use blank if out of string\r
+    005345  aa  0 00106 1005 05   3216         mlr     (ar+al),(ar+ql) move replacement to target\r
+    005346  aa   300000 000001    3217         desc9a  bb|0,1\r
+    005347  aa   200000 000001    3218         desc9a  bp|0,1\r
+    005350  0a   005335 7100 00   3219         tra     trans2_loop\r
+    005351                        3220  trans2_blank:\r
+    005351  aa   040106 1004 00   3221         mlr     (0),(ar+ql),fill(blank) move in fill(blank)\r
+    005352  aa   000000 000000    3222         zero\r
+    005353  aa   200000 000001    3223         desc9a  bp|0,1\r
+    005354  0a   005335 7100 00   3224         tra     trans2_loop\r
+    005355                        3225  trans_done:\r
+    005355  aa  6 00072 3535 20   3226         epp3    sp|temp2,*\r
+    005356  aa  6 00030 3501 20   3227         eppap   sp|stack_frame.operator_ptr,*\r
+    005357  aa  6 00046 7101 70   3228         tra     sp|tbp,*0\r
+                                  3229  "\r
+                                  3230  "      operator to perform translate(s,r,p) with string s previously set up\r
+                                  3231  "      entered with pr1 -> p, pr2 -> r, length(p) in a, and length(r) in q\r
+                                  3232  "\r
+    005360                        3233  translate_3:\r
+    005360  aa  6 00076 7571 00   3234         staq    sp|temp         save lengths\r
+    005361  aa  6 00072 2535 00   3235         spri3   sp|temp2\r
+    005362  aa  2 00000 3535 00   3236         epp3    bp|0            save ptr to r\r
+    005363  aa  6 00063 2361 00   3237         ldq     sp|char_lg1     get length(s)\r
+    005364  aa   000013 0760 07   3238         adq     3+8,dl          allocate temp of proper size\r
+    005365  aa   000002 7320 00   3239         qrs     2\r
+    005366  0a   003162 7010 00   3240         tsx1    alloc\r
+    005367  aa  6 00050 3501 20   3241         eppap   sp|temp_pt,*    get ptr to s\r
+    005370  aa  2 00002 3521 00   3242         eppbp   bp|2            skip over temp header\r
+    005371  aa  6 00050 2521 00   3243         spribp  sp|temp_pt      save ptr to temp\r
+    005372  aa  6 00063 2361 00   3244         ldq     sp|char_lg1     get length(s)\r
+    005373                        3245  trans3_loop:\r
+    005373  aa   000001 1760 07   3246         sbq     1,dl            do next char (backwards)\r
+    005374  0a   005355 6040 00   3247         tmi     trans_done      exit if done\r
+    005375  aa  6 00076 2351 00   3248         lda     sp|temp         get length(p)\r
+    005376  aa  0 00106 1245 40   3249         scm     (ar+rl),(ar+ql) is this char of s in p?\r
+    005377  aa   100000 000005    3250         desc9a  ab|0,al\r
+    005400  aa   000000 000000    3251         desc9a  ap|0,0\r
+    005401  aa  6 00074 0001 00   3252         arg     sp|num\r
+    005402  0a   005416 6064 00   3253         ttn     trans3_same     tally on means not found, use same char\r
+    005403  aa  6 00074 2351 00   3254         lda     sp|num          get number of chars skipped\r
+    005404  aa  6 00077 1151 00   3255         cmpa    sp|temp+1               check against length(r)\r
+    005405  0a   005412 6050 00   3256         tpl     trans3_blank    use blank if out of range\r
+    005406  aa  0 00106 1005 05   3257         mlr     (ar+al),(ar+ql) replace with char from r\r
+    005407  aa   300000 000001    3258         desc9a  bb|0,1\r
+    005410  aa   200000 000001    3259         desc9a  bp|0,1\r
+    005411  0a   005373 7100 00   3260         tra     trans3_loop\r
+    005412                        3261  trans3_blank:\r
+    005412  aa   040106 1004 00   3262         mlr     (0),(ar+ql),fill(blank) move in fill(blank)\r
+    005413  aa   000000 000000    3263         zero\r
+    005414  aa   200000 000001    3264         desc9a  bp|0,1\r
+    005415  0a   005373 7100 00   3265         tra     trans3_loop\r
+    005416                        3266  trans3_same:\r
+    005416  aa  0 00106 1005 06   3267         mlr     (ar+ql),(ar+ql) move in char from s\r
+    005417  aa   000000 000001    3268         desc9a  ap|0,1\r
+    005420  aa   200000 000001    3269         desc9a  bp|0,1\r
+    005421  0a   005373 7100 00   3270         tra     trans3_loop\r
+                                  3271  "\r
+                                  3272  "      operator to implement return(*) for unpacked values\r
+                                  3273  "      entered with pointer to return value in bp, number of\r
+                                  3274  "      words to return in q, and number of begin blocks to\r
+                                  3275  "      skip over in x0\r
+                                  3276  "\r
+    005422                        3277  return_words:\r
+    005422  0a   005506 7020 00   3278         tsx2    return_pop      pop stack back\r
+                                  3279  "\r
+                                  3280  "      the sp has now been put back to old frame to which we are returning,\r
+                                  3281  "      ap points at the destination of the data being returned.  The old stack\r
+                                  3282  "      frame has been extended to include the stack frame from which we are\r
+                                  3283  "      returning.\r
+                                  3284  "\r
+    005423  aa   000002 7360 00   3285  rw_0:  qls     2               get number of chars to move\r
+    005424  0a   005430 6000 00   3286         tze     rw_1            skip if zero (prevent IPR)\r
+    005425  aa  0 00140 1005 40   3287         mlr     (ar+rl),(ar+rl)\r
+    005426  aa   200000 000006    3288         desc9a  bp|0,ql\r
+    005427  aa   000000 000006    3289         desc9a  ap|0,ql\r
+    005430  aa  6 00077 2361 00   3290  rw_1:  ldq     sp|count                get back number of words\r
+    005431  aa   000022 7360 00   3291         qls     18              in upper\r
+    005432  aa   000021 0360 03   3292         adlq    17,du           make a multiple of 16 (allow for extra words)\r
+    005433  aa   777760 3760 03   3293         anq     =o777760,du\r
+    005434  aa  0 77776 6201 02   3294         eax0    ap|-2,qu                get offset of end of stack\r
+    005435  aa  6 00023 7401 00   3295         stx0    sp|stack_frame.next_sp+1 and update old frame\r
+    005436  aa  7 00025 7401 00   3296         stx0    sb|stack_header.stack_end_ptr+1 and stack end ptr\r
+    005437  aa  6 00030 3501 20   3297         eppap   sp|stack_frame.operator_ptr,* reset pointer to caller's operators\r
+    005440  aa  6 00025 6341 00   3298         ldi     sp|stack_frame.return_ptr+1 restore indicators\r
+    005441  aa  6 00024 6101 00   3299         rtcd    sp|stack_frame.return_ptr now return to old procedure\r
+                                  3300  "\r
+                                  3301  "      operator to implement return(*) for packed values and bit strings\r
+                                  3302  "      entered with pointer to return value in bp, number of\r
+                                  3303  "      bits to move in q, and offset in x7, and number of begin\r
+                                  3304  "      blocks to skip over in x0\r
+                                  3305  "\r
+    005442                        3306  return_bits:\r
+    005442  aa   000000 6210 17   3307         eax1    0,7             get bit offset\r
+    005443  0a   005451 7100 00   3308         tra     rba\r
+                                  3309  "\r
+    005444                        3310  return_bits_co:\r
+    005444  0a   001264 2210 17   3311         ldx1    co_to_bo,7      get bit offset\r
+    005445  0a   005451 7100 00   3312         tra     rba\r
+                                  3313  "\r
+    005446                        3314  return_bits_ho:\r
+    005446  0a   001270 2210 17   3315         ldx1    ho_to_bo,7      get bit offset\r
+    005447  0a   005451 7100 00   3316         tra     rba\r
+                                  3317  "\r
+    005450                        3318  return_bits_al:\r
+    005450  aa   000000 6210 00   3319         eax1    0               get zero offset\r
+                                  3320  "\r
+    005451  aa   000000 0520 03   3321  rba:   adwpbp  0,du            erase bit offset\r
+    005452  aa  2 00000 5035 11   3322         abd     bp|0,1          add new bit offset\r
+                                  3323  "\r
+    005453                        3324  return_bits_eis:\r
+    005453  aa  6 00062 7561 00   3325         stq     sp|bit_lg1      save number of bits to move\r
+    005454  aa   000043 0760 07   3326         adq     35,dl           compute number of words\r
+    005455  aa   000044 5060 07   3327         div     36,dl\r
+    005456  aa  6 00062 2351 00   3328         lda     sp|bit_lg1      get number of units moved\r
+    005457  0a   005506 7020 00   3329         tsx2    return_pop      pop stack back\r
+                                  3330  "\r
+                                  3331  "      the sp now points at stack frame to which we are returning, this frame\r
+                                  3332  "      has been extended to include the frame we are leaving.  ap points at\r
+                                  3333  "      destination of return value.\r
+                                  3334  "\r
+    005460  aa  0 77777 2361 00   3335         ldq     ap|-1           get back bit length\r
+    005461  0a   005430 6000 00   3336         tze     rw_1            skip if zero (prevent IPR)\r
+    005462  aa  0 03140 0605 40   3337         csl     (ar+rl),(ar+rl),bool(move)\r
+    005463  aa   200000 000006    3338         descb   bp|0,ql\r
+    005464  aa   000000 000006    3339         descb   ap|0,ql\r
+    005465  0a   005430 7100 00   3340         tra     rw_1\r
+                                  3341  "\r
+                                  3342  "      operator to implement return(*) for char strings\r
+                                  3343  "      entered with pointer to return value in bp, number of chars in q,\r
+                                  3344  "      offset in x7, and number of begin blocks to skip over in x0\r
+                                  3345  "\r
+    005466                        3346  return_chars:\r
+    005466  aa   000000 6210 17   3347         eax1    0,7             get bit offset\r
+    005467  0a   005475 7100 00   3348         tra     rca\r
+                                  3349  "\r
+    005470                        3350  return_chars_co:\r
+    005470  0a   001264 2210 17   3351         ldx1    co_to_bo,7      get bit offset\r
+    005471  0a   005475 7100 00   3352         tra     rca\r
+                                  3353  "\r
+    005472                        3354  return_chars_ho:\r
+    005472  0a   001270 2210 17   3355         ldx1    ho_to_bo,7      get bit offset\r
+    005473  0a   005475 7100 00   3356         tra     rca\r
+                                  3357  "\r
+    005474                        3358  return_chars_aligned:\r
+    005474  aa   000000 6210 00   3359         eax1    0               get zero offset\r
+                                  3360  "\r
+    005475  aa   000000 0520 03   3361  rca:   adwpbp  0,du            erase bit offset\r
+    005476  aa  2 00000 5035 11   3362         abd     bp|0,1          add neew bit offset\r
+                                  3363  "\r
+    005477                        3364  return_chars_eis:\r
+    005477  aa  6 00063 7561 00   3365         stq     sp|char_lg1     save number of chars to move\r
+    005500  aa   000003 0760 07   3366         adq     3,dl            compute number of words\r
+    005501  aa   000002 7320 00   3367         qrs     2\r
+    005502  aa  6 00063 2351 00   3368         lda     sp|char_lg1     get number of units moved\r
+    005503  0a   005506 7020 00   3369         tsx2    return_pop\r
+    005504  aa  0 77777 2361 00   3370         ldq     ap|-1           get back number of chars\r
+    005505  0a   005424 7100 00   3371         tra     rw_0+1          and go move them\r
+                                  3372  "\r
+                                  3373  "      subroutine to reset stack frame for return(*) operators\r
+                                  3374  "      entered with number of words in q\r
+                                  3375  "      and number of units (bits|chars) in a\r
+                                  3376  "\r
+    005506                        3377  return_pop:\r
+    005506  aa  6 00000 3701 00   3378         epplp   sp|0            get ptr to frame of proc from which\r
+    005507  aa   000000 1000 03   3379         cmpx0   0,du            we are returning\r
+    005510  aa   000004 6000 04   3380         tze     4,ic\r
+    005511  aa  4 00020 3701 20   3381         epplp   lp|stack_frame.prev_sp,*\r
+    005512  aa   000001 1600 03   3382         sbx0    1,du\r
+    005513  aa   777776 6054 04   3383         tpnz    -2,ic\r
+                                  3384  "\r
+    005514  aa  4 00032 3515 20   3385         eppab   lp|stack_frame.arg_ptr,* get ptr to our arglist\r
+    005515  aa  1 00000 2231 00   3386         ldx3    ab|0            get head, 2*n_args\r
+                                  3387  "\r
+    005516  aa  1 00000 3515 33   3388         eppab   ab|0,3*         get ptr to return arg\r
+                                  3389  "\r
+    005517  aa  4 00020 3701 20   3390         epplp   lp|stack_frame.prev_sp,*        get ptr to frame to which we are going\r
+                                  3391  "\r
+    005520  aa  6 00077 7561 00   3392         stq     sp|count                save # words in old frame\r
+    005521  aa  4 00022 3501 20   3393         eppap   lp|stack_frame.next_sp,*        get ptr to destination\r
+    005522  aa  0 00002 3501 00   3394         eppap   ap|2            skip 2 words to allow for varying return value\r
+    005523  aa  1 00000 2501 00   3395         spriap  ab|0            set return ptr for last arg\r
+    005524  aa  0 77777 7551 00   3396         sta     ap|-1           set varying length\r
+    005525  aa  6 00000 2131 00   3397         epaq    sp|0            get seg no of current stack\r
+    005526  aa  6 00076 7551 00   3398         sta     sp|temp         save it\r
+    005527  aa  4 00000 2131 00   3399         epaq    lp|0            get seg no of stack we are returning to\r
+    005530  aa  6 00076 1151 00   3400         cmpa    sp|temp         same stack?\r
+    005531  0a   005543 6000 00   3401         tze     same_stack      yes\r
+    005532  aa  6 00077 2351 00   3402         lda     sp|count                get # of words to move\r
+    005533  aa   000022 7350 00   3403         als     18              in upper\r
+    005534  aa   000021 0350 03   3404         adla    17,du           make 0 mod 16 (allow for 2 extra words)\r
+    005535  aa   777760 3750 03   3405         ana     =o777760,du     ..\r
+    005536  aa  0 77776 6201 01   3406         eax0    ap|-2,au                get offset of new stack frame end\r
+    005537  aa  4 00023 7401 00   3407         stx0    lp|stack_frame.next_sp+1 update next sp of the frame\r
+    005540  aa  4 00000 3711 00   3408         epbplb  lp|0            get pointer to base of stack we are returning to\r
+    005541  aa  5 00025 7401 00   3409         stx0    lb|stack_header.stack_end_ptr+1 update stack end pointer\r
+    005542  0a   005545 7100 00   3410         tra     different_stack join rest of code\r
+    005543                        3411  same_stack:\r
+    005543  aa  6 00022 2371 00   3412         ldaq    sp|stack_frame.next_sp get next ptr of frame we're leaving\r
+    005544  aa  4 00022 7571 00   3413         staq    lp|stack_frame.next_sp set next of old to include all of this frame\r
+    005545                        3414  different_stack:\r
+    005545  aa  6 00077 2361 00   3415         ldq     sp|count                get back # of words to move\r
+    005546  aa  4 00000 3721 00   3416         eppsp   lp|0            pop stack\r
+    005547  aa  6 00000 3731 00   3417         epbpsb  sp|0            set up stack base in case we switched stacks\r
+    005550  aa  6 00077 7561 00   3418         stq     sp|count                save of words in new stack frame\r
+    005551  aa   000000 7100 12   3419         tra     0,2             return with ap -> dest, # units in q\r
+                                  3420  \r
+                                  3421  "\r
+                                  3422  "      operator to leave a begin block.\r
+                                  3423  "\r
+    005552                        3424  leave_begin_block:\r
+    005552  aa   000000 0110 03   3425         odd\r
+    005553  aa  6 00000 3731 00   3426         epbpsb  sp|0            get ptr to base of stack\r
+                                  3427         even                    "see note at label 'alm_return'\r
+    005554  aa  7 00024 6521 00   3428         sprisp  sb|stack_header.stack_end_ptr reset stack end ptr\r
+    005555  aa  6 00020 3721 20   3429         eppsp   sp|stack_frame.prev_sp,* pop the stack\r
+    005556  aa  6 00046 7101 70   3430         tra     sp|tbp,*0               return to pl1 program\r
+                                  3431  "\r
+                                  3432  "      operator to free fortran storage and then do a procedure return\r
+                                  3433  "\r
+    005557                        3434  fort_return_mac:\r
+    005557  aa  6 00056 6521 00   3435         spri6   sp|double_temp  save sp as owner to fortran_storage_manager_\r
+    005560  aa  6 00056 3521 00   3436         epp2    sp|double_temp\r
+    005561  aa  6 00072 2521 00   3437         spri2   sp|arg_list+2   argument 1 - stack pointer\r
+    005562  aa   000002 2350 03   3438         lda     2,du            nargs = 1, quick call (no enviptr)\r
+    005563  aa   000000 2360 07   3439         ldq     0,dl            no descriptors\r
+    005564  aa  6 00070 7571 00   3440         staq    sp|arg_list\r
+    005565  aa  6 00070 3501 00   3441         epp0    sp|arg_list     get argument list header\r
+    005566  0a   005600 3520 00   3442         epp2    return_mac      return to return\r
+    005567  aa  6 00024 2521 00   3443         spri2   sp|stack_frame.return_ptr       save return point\r
+    005570  0a   011331 7010 00   3444         tsx1    get_our_lp\r
+    005571  4a  4 00260 7131 20   3445         callsp  fortran_storage_manager_$free\r
+                                  3446  "\r
+                                  3447  "      operator to do a procedure return from inside a begin block.\r
+                                  3448  "      entered with number of nested begin blocks in ql.\r
+                                  3449  "\r
+    005572                        3450  begin_return_mac:\r
+    005572  0a   005600 6000 00   3451         tze     return_mac      skip if begin block is quick\r
+    005573  aa  6 00000 3731 00   3452         epbpsb  sp|0            get ptr to base of stack\r
+    005574                        3453         inhibit on\r
+    005574  aa  7 00024 6523 00   3454         sprisp  sb|stack_header.stack_end_ptr keep updating end ptr\r
+    005575  aa  6 00020 3723 20   3455         eppsp   sp|stack_frame.prev_sp,* pop stack\r
+    005576                        3456         inhibit off\r
+    005576  aa   000001 1760 07   3457         sbq     1,dl            count down number of blocks\r
+    005577  aa   777775 6010 04   3458         tnz     -3,ic           repeat until all done\r
+                                  3459  "\r
+                                  3460  "      operator to do a procedure return\r
+                                  3461  "\r
+    005600                        3462  return_mac:\r
+    005600  aa  6 00000 3731 00   3463         epbpsb  sp|0            get ptr to base of stack\r
+    005601                        3464         inhibit on\r
+    005601  aa  7 00024 6523 00   3465         sprisp  sb|stack_header.stack_end_ptr reset stack end pointer\r
+    005602  aa  6 00020 3723 20   3466         eppsp   sp|stack_frame.prev_sp,* pop stack\r
+    005603                        3467         inhibit off\r
+    005603  aa  6 00000 3731 00   3468         epbpsb  sp|0            set sb up in case we just switched stacks\r
+    005604  aa  6 00030 3501 20   3469         eppap   sp|stack_frame.operator_ptr,* set up operator pointer\r
+    005605  aa  6 00025 6341 00   3470         ldi     sp|stack_frame.return_ptr+1     restore indicators for caller\r
+    005606  aa  6 00024 6101 00   3471         rtcd    sp|stack_frame.return_ptr continue execution after call\r
+                                  3472  "\r
+                                  3473  "      operators to call an entry variable\r
+                                  3474  "      entered with pointer to entry in bp and number\r
+                                  3475  "      of arguments in position in a, offset of arg list is in x1\r
+                                  3476  "\r
+    005607                        3477  call_ent_var_desc:\r
+    005607  aa   000000 6360 01   3478         eaq     0,au            there are descriptors\r
+                                  3479  "\r
+    005610                        3480  call_ent_var:\r
+    005610  aa  6 00025 7541 00   3481         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    005611  aa   000010 2750 07   3482         ora     8,dl            insert pl1 code\r
+    005612  aa  6 00000 3731 00   3483         epbpsb  sp|0            get ptr to base of stack\r
+    005613  aa  7 00000 7571 11   3484         staq    sb|0,1          save at head of list\r
+    005614  aa  6 00025 7401 00   3485         stx0    sp|stack_frame.return_ptr+1 set offset of return point\r
+    005615  aa  2 00002 3701 20   3486         epplp   bp|2,*          get display pointer\r
+    005616  aa  2 00000 3521 20   3487         eppbp   bp|0,*          and ptr to entry\r
+    005617                        3488  save_display:\r
+    005617  aa  7 00000 3501 11   3489         eppap   sb|0,1          get ptr to arg list\r
+    005620  aa  0 00002 6501 01   3490         sprilp  ap|2,au         store display ptr at end\r
+    005621  aa  6 00044 3701 20   3491         epplp   sp|linkage_ptr,*        restore ptr to linkage segment\r
+    005622                        3492  var_call:\r
+    005622  aa  2 00000 7131 00   3493         callsp  bp|0            and transfer to entry\r
+                                  3494  "\r
+                                  3495  "      operator to call an external procedure (same or diff seg).\r
+                                  3496  "      entered with pointer to entry in bp and number of args\r
+                                  3497  "      in position in a, offset of arg list is in x1\r
+                                  3498  "\r
+    005623                        3499  call_ext_in_desc:\r
+    005623                        3500  call_ext_out_desc:\r
+    005623  aa   000000 6360 01   3501         eaq     0,au            there are descriptors\r
+                                  3502  "\r
+    005624                        3503  call_ext_in:\r
+    005624                        3504  call_ext_out:\r
+    005624  aa  6 00025 7541 00   3505         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    005625  aa  6 00000 3731 00   3506         epbpsb  sp|0            get ptr to base of stack\r
+    005626  aa   000004 2750 07   3507         ora     4,dl            insert pl1 code (do this for now)\r
+    005627  aa  7 00000 7571 11   3508         staq    sb|0,1          save at head of list\r
+    005630  aa  6 00025 7401 00   3509         stx0    sp|stack_frame.return_ptr+1 set offset of return point\r
+    005631  aa  7 00000 3501 11   3510         eppap   sb|0,1          get pointer to arg list\r
+    005632  aa  6 00044 3701 20   3511         epplp   sp|linkage_ptr,*        reload ptr to linkage segment\r
+                                  3512  "\r
+                                  3513  "      This label is 'segdef'ed but is never transfered to directly. The segdef is\r
+                                  3514  "      merely to allow default_error_handler to see if a fault occured as a result\r
+                                  3515  "      of this particular instruction so that it can print a more informative\r
+                                  3516  "      error message.\r
+                                  3517  "\r
+    005633                        3518  forward_call:\r
+    005633  aa  2 00000 7131 00   3519         callsp  bp|0            transfer to entry\r
+                                  3520  "\r
+                                  3521  "      operator to call an internal procedure defined in the\r
+                                  3522  "      same block as the call.  entered with pointer to entry in\r
+                                  3523  "      bp and number of args in position in a.\r
+                                  3524  "\r
+    005634                        3525  call_int_this_desc:\r
+    005634  aa   000000 6360 01   3526         eaq     0,au            there are descriptors\r
+                                  3527  "\r
+    005635                        3528  call_int_this:\r
+    005635  aa  6 00025 7541 00   3529         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    005636  aa   000010 2750 07   3530         ora     8,dl            insert pl1 code\r
+    005637  aa  6 00000 3731 00   3531         epbpsb  sp|0            get ptr to base of stack\r
+    005640  aa  7 00000 7571 11   3532         staq    sb|0,1          save at head of list\r
+    005641  aa  6 00025 7401 00   3533         stx0    sp|stack_frame.return_ptr+1 save offset of return point\r
+    005642  aa  7 00000 3501 11   3534         eppap   sb|0,1          get pointer to arg list\r
+    005643  aa  0 00002 6521 01   3535         sprisp  ap|2,au         save display pointer\r
+    005644  aa  2 00000 7101 00   3536         tra     bp|0            transfer to entry\r
+                                  3537  "\r
+                                  3538  "      operator to call an interal procedure defined K blocks\r
+                                  3539  "      above the call.  entered with pointer to entry in bp,\r
+                                  3540  "      K in x7, and number of args in position in aq.\r
+                                  3541  "\r
+    005645                        3542  call_int_other_desc:\r
+    005645  aa   000000 6360 01   3543         eaq     0,au            there are descriptors\r
+                                  3544  "\r
+    005646                        3545  call_int_other:\r
+    005646  aa  6 00025 7541 00   3546         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    005647  aa   000010 2750 07   3547         ora     8,dl            insert pl1 code\r
+    005650  aa  6 00000 3731 00   3548         epbpsb  sp|0            get ptr to base of stack\r
+    005651  aa  7 00000 7571 11   3549         staq    sb|0,1          save at head of list\r
+    005652  aa  6 00025 7401 00   3550         stx0    sp|stack_frame.return_ptr+1 save return point\r
+    005653  aa  6 00040 3701 20   3551         epplp   sp|display_ptr,*        walk back K levels\r
+    005654  aa   777777 6270 17   3552         eax7    -1,7            ..\r
+    005655  0a   005617 6000 00   3553         tze     save_display    then go save display\r
+    005656  aa  4 00040 3701 20   3554         epplp   lp|display_ptr,*        take another step\r
+    005657  aa   777775 7100 04   3555         tra     -3,ic           and check again\r
+                                  3556  "\r
+                                  3557  "      operator to move the label variable pointed at by sp|temp_pt\r
+                                  3558  "      into the label variable pointed at by bp\r
+                                  3559  "\r
+    005660                        3560  move_label_var:\r
+    005660  aa  6 00050 2371 20   3561         ldaq    sp|temp_pt,*    move first two words\r
+    005661  aa  2 00000 7571 00   3562         staq    bp|0            ..\r
+    005662  aa   000002 6210 00   3563         eax1    2               and second two words\r
+    005663  aa  6 00050 2371 71   3564         ldaq    sp|temp_pt,*1   ..\r
+    005664  aa  2 00002 7571 00   3565         staq    bp|2            ..\r
+    005665  aa  6 00046 7101 70   3566         tra     sp|tbp,*0               return to pl1 program\r
+                                  3567  "\r
+                                  3568  "      operator to make a label variable in the stack.  entered\r
+                                  3569  "      with pointer to label in bp, number of static blocks to walk\r
+                                  3570  "      back in q.  sp|temp_pt is set to point to the label variable\r
+                                  3571  "\r
+    005666                        3572  make_label_var:\r
+    005666  aa  6 00070 2521 00   3573         spribp  sp|label_var    save pointer to label\r
+    005667  0a   005674 7010 00   3574         tsx1    display_chase   get pointer to stack frame\r
+    005670  aa  6 00072 2521 00   3575         spribp  sp|label_var+2  and save in label var\r
+    005671  aa  6 00070 3521 00   3576         eppbp   sp|label_var    get pointer to label var\r
+    005672  aa  6 00050 2521 00   3577         spribp  sp|temp_pt      set temp_pt\r
+    005673  aa  6 00046 7101 70   3578         tra     sp|tbp,*0               return to pl1 program\r
+                                  3579  "\r
+                                  3580  "      subroutine to walk N levels back along the display chain.\r
+                                  3581  "      entered with N in q register, exit with pointer in bp.\r
+                                  3582  "      NB: indicators must be set from q register at time of entry.\r
+                                  3583  "\r
+    005674                        3584  display_chase:\r
+    005674  aa  6 00000 3521 00   3585         eppbp   sp|0            get pointer to current frame\r
+    005675  aa   000000 6000 11   3586         tze     0,1             return if N = 0\r
+    005676  aa  2 00040 3521 20   3587         eppbp   bp|display_ptr,*        take a step back the chain\r
+    005677  aa   000001 1760 07   3588         sbq     1,dl            and decrease count\r
+    005700  aa   777775 7100 04   3589         tra     -3,ic           and check again\r
+                                  3590  "\r
+                                  3591  "      operator to form mod(fx1,fx1)\r
+                                  3592  "      entered with first arg in q, bp pointing at second\r
+                                  3593  "\r
+    005701  aa  2 00000 2341 00   3594  mdfx1: szn     bp|0            if divisor is zero, return with dividend\r
+    005702  0a   005241 6000 00   3595         tze     search_done     go set indicators from q and exit\r
+    005703  aa  6 00076 7561 00   3596         stq     sp|temp         save first arg\r
+    005704  aa  2 00000 5061 00   3597         div     bp|0            get remainder\r
+    005705  aa   000003 6010 04   3598         tnz     3,ic            skip if quotient non-zero\r
+    005706  aa  6 00076 2361 00   3599         ldq     sp|temp         zero quotient, set q to sign of\r
+    005707  aa  2 00000 6761 00   3600         erq     bp|0            quotient\r
+    005710  0a   005714 6050 00   3601         tpl     mdfx1a          skip if quotient sign +\r
+    005711  aa   000000 1150 07   3602         cmpa    0,dl            don't correct if remainder 0\r
+    005712  0a   005714 6000 00   3603         tze     mdfx1a\r
+    005713  aa  2 00000 0751 00   3604         ada     bp|0            negative quotient, correct remainder\r
+    005714  aa   000044 7330 00   3605  mdfx1a:        lrs     36              shift remainder to q\r
+    005715  aa  6 00046 7101 70   3606         tra     sp|tbp,*0               and return\r
+                                  3607  "\r
+                                  3608  "      operator to form mod(fx1,fx2)\r
+                                  3609  "      entered with first arg in q, bp pointing at second\r
+                                  3610  "\r
+    005716  aa   000044 7370 00   3611  mdfx2: lls     36              convert to double precision\r
+    005717  aa   000044 7330 00   3612         lrs     36              and join mdfx4\r
+                                  3613  "\r
+                                  3614  "      operator to form mod(fx2,fx2)\r
+                                  3615  "      entered with first arg in q, bp pointing at second\r
+                                  3616  "\r
+    005720  aa  6 00070 7531 00   3617  mdfx4: sreg    sp|save_regs    save registers including aq\r
+    005721  aa  2 00000 2371 00   3618         ldaq    bp|0            return 1st arg if second is zero\r
+    005722  0a   007202 6000 00   3619         tze     use_first\r
+    005723  aa  6 00050 2515 00   3620         spri1   sp|temp_pt      save ab\r
+    005724  aa  6 00074 3515 00   3621         epp1    sp|save_regs+4  get ptr to first arg\r
+    005725  aa   000000 2360 07   3622         ldq     0,dl            load scaling amount\r
+    005726  0a   006112 7070 00   3623         tsx7    divide2         generate remainder\r
+    005727  aa   000000 1010 03   3624         cmpx1   0,du            check sign of quotient\r
+    005730  0a   005735 6000 00   3625         tze     mdfx4a+1                skip if quotient +\r
+    005731  aa  6 00056 2371 00   3626         ldaq    sp|remainder    correct remainder if it is non-zero\r
+    005732  aa   000002 6000 04   3627         tze     2,ic\r
+    005733  aa  2 00000 0771 00   3628         adaq    bp|0\r
+    005734  aa  6 00056 7571 00   3629  mdfx4a:        staq    sp|remainder\r
+    005735  aa  6 00070 0731 00   3630         lreg    sp|save_regs    restore registers\r
+    005736  aa  6 00050 3515 20   3631         epp1    sp|temp_pt,*    restore ab\r
+    005737  aa  6 00056 2371 00   3632         ldaq    sp|remainder    get result\r
+    005740  aa  6 00030 3501 20   3633         eppap   sp|stack_frame.operator_ptr,*\r
+    005741  aa  6 00046 7101 70   3634         tra     sp|tbp,*0               and exit\r
+                                  3635  "\r
+                                  3636  "      operator to form mod(fx2,fx1)\r
+                                  3637  "      entered with first arg in q, bp pointing at second\r
+                                  3638  "\r
+    005742  aa  6 00070 7531 00   3639  mdfx3: sreg    sp|save_regs    save registers, including aq\r
+    005743  aa  2 00000 2351 00   3640         lda     bp|0            get divisor\r
+    005744  0a   007202 6000 00   3641         tze     use_first               use first arg as result if divisor zero\r
+    005745  aa  6 00050 2515 00   3642         spri1   sp|temp_pt\r
+    005746  aa  6 00074 3515 00   3643         epp1    sp|save_regs+4  get ptr to dividend\r
+    005747  aa   000000 2360 07   3644         ldq     0,dl            get scale amount\r
+    005750  0a   006102 7070 00   3645         tsx7    divide1         get remainder\r
+    005751  aa   000000 1010 03   3646         cmpx1   0,du            check sign of quotient\r
+    005752  0a   005735 6000 00   3647         tze     mdfx4a+1\r
+    005753  aa  6 00056 2371 00   3648         ldaq    sp|remainder    correct remainder when quotient neg\r
+    005754  aa   000002 6000 04   3649         tze     2,ic            and remainder non-zero\r
+    005755  aa  2 00000 0331 00   3650         adl     bp|0\r
+    005756  0a   005734 7100 00   3651         tra     mdfx4a\r
+                                  3652  "\r
+                                  3653  "      operator to form mod(fx1,fx2) with non-zero scales\r
+                                  3654  "      entered with dividend in q, pr2 -> divisor, and\r
+                                  3655  "      scales following tsx0\r
+                                  3656  "\r
+    005757                        3657  scaled_mod_fx2:\r
+    005757  aa   000044 7370 00   3658         lls     36              convert to double precision\r
+    005760  aa   000044 7330 00   3659         lrs     36              and join scaled_mod_fx4\r
+                                  3660  "\r
+                                  3661  "      operator to form mod(fx2,fx2) with non-zero scales\r
+                                  3662  "      entered with dividend in aq, pr2 -> divisor, and\r
+                                  3663  "      scale(dividend) & scale(divisor) following tsx0\r
+                                  3664  "\r
+    005761                        3665  scaled_mod_fx4:\r
+    005761  aa   000002 0600 03   3666         adx0    2,du            skip over the two scale words\r
+    005762  aa  6 00070 7531 00   3667         sreg    sp|save_regs    save all registers\r
+    005763  aa  2 00000 2371 00   3668         ldaq    bp|0            get divisor\r
+    005764  0a   007202 6000 00   3669         tze     use_first               zero means use dividend as value\r
+    005765  aa  6 00051 5421 00   3670         sprp2   sp|temp_pt+1\r
+                                  3671  "\r
+    005766                        3672  sc_mod_common:\r
+    005766  aa  6 00050 5411 00   3673         sprp1   sp|temp_pt\r
+    005767  aa  6 00046 3501 70   3674         eppap   sp|tbp,*0               get ptr to just after scale words\r
+    005770  aa  0 77777 2361 00   3675         ldq     ap|-1           get scale of divisor\r
+    005771  aa  0 77776 1761 00   3676         sbq     ap|-2           - scale of dividend\r
+    005772  0a   006010 6040 00   3677         tmi     scmd3           skip if scale(divisor) < scale(dividend)\r
+                                  3678  "\r
+                                  3679  "      scale of dividend <= scale of divisor.  let the divide routine\r
+                                  3680  "      shift the dividend left by the amount in the q register.\r
+                                  3681  "\r
+    005773  aa  6 00074 3515 00   3682  scmd1: epp1    sp|save_regs+4  get ptr to dividend\r
+    005774  0a   006112 7070 00   3683         tsx7    divide2         divide\r
+    005775  aa   000000 1010 03   3684         cmpx1   0,du            check quotient sign\r
+    005776  0a   006003 6000 00   3685         tze     scmd2           skip if positive\r
+    005777  aa  6 00056 2371 00   3686         ldaq    sp|remainder    dont't correct remainder if it is zero\r
+    006000  0a   006003 6000 00   3687         tze     scmd2\r
+    006001  aa  2 00000 0771 00   3688         adaq    bp|0            add divisor to correct remainder\r
+    006002  aa  6 00056 7571 00   3689         staq    sp|remainder\r
+    006003  aa  6 00050 7611 00   3690  scmd2: lprp1   sp|temp_pt      restore pointers\r
+    006004  aa  6 00051 7621 00   3691         lprp2   sp|temp_pt+1\r
+    006005  aa  6 00070 0731 00   3692         lreg    sp|save_regs    and registers\r
+    006006  aa  6 00056 2371 00   3693         ldaq    sp|remainder    get remainder from the division\r
+    006007  0a   003624 7100 00   3694         tra     log_exit                and exit\r
+                                  3695  "\r
+                                  3696  "      scale of divisor < scale of dividend, shift divisor\r
+                                  3697  "      left by negative of number of places in q register.\r
+                                  3698  "      if the carry indicator is on at the end of the shift, the\r
+                                  3699  "      division would yield a zero quotient, so the remainder\r
+                                  3700  "      is the dividend with appropriate sign consideration.\r
+                                  3701  "\r
+    006010  aa  6 00077 7561 00   3702  scmd3: stq     sp|count                get positive shift amount\r
+    006011  aa  6 00077 3361 00   3703         lcq     sp|count\r
+    006012  aa   000000 6210 06   3704         eax1    0,ql\r
+    006013  aa  2 00000 2371 00   3705         ldaq    bp|0            get back the divisor\r
+    006014  aa   000000 7370 11   3706         lls     0,1             shift it\r
+    006015  0a   006022 6030 00   3707         trc     scmd4           skip if divisor too big\r
+    006016  aa  6 00062 7571 00   3708         staq    sp|bit_lg1      save value temporarily\r
+    006017  aa  6 00062 3521 00   3709         epp2    sp|bit_lg1      get ptr to shifted divisor\r
+    006020  aa   000000 2360 07   3710         ldq     0,dl            don't shift dividend\r
+    006021  0a   005773 7100 00   3711         tra     scmd1           go do the division\r
+                                  3712  "\r
+                                  3713  "      the division (with both args treated as integers since the scales\r
+                                  3714  "      are now lined up), would give a zero quotient.  if the signs of\r
+                                  3715  "      the two arguments are the same, the value of the function is the\r
+                                  3716  "      value of the dividend--otherwise, we have to signal fixedoverflow\r
+                                  3717  "\r
+    006022  aa  6 00074 6751 00   3718  scmd4: era     sp|save_regs+4  check signs of two arguments\r
+    006023  aa   400000 3750 03   3719         ana     =o400000,du\r
+    006024  0a   007202 6000 00   3720         tze     use_first               zero means signs the same\r
+    006025  0a   006367 7070 00   3721         tsx7    signal_overflow\r
+    006026  0a   007202 7100 00   3722         tra     use_first\r
+                                  3723  "\r
+                                  3724  "      operator to form mod(fx1,fx1) with non-zero scales\r
+                                  3725  "      entered with dividend in aq, pr2 -> divisor, and scales\r
+                                  3726  "      following tsx0\r
+                                  3727  "\r
+    006027                        3728  scaled_mod_fx1:\r
+    006027  aa   000044 7370 00   3729         lls     36              convert to double precision\r
+    006030  aa   000044 7330 00   3730         lrs     36              and join scaled_mod_fx3\r
+                                  3731  "\r
+                                  3732  "      operator to form mod(fx2,fx1) with non-zero scales\r
+                                  3733  "      entered with dividend in q, pr2 -> divisior, and scales\r
+                                  3734  "      following tsx0\r
+                                  3735  "\r
+    006031                        3736  scaled_mod_fx3:\r
+    006031  aa   000002 0600 03   3737         adx0    2,du            skip over the two scale words\r
+    006032  aa  6 00070 7531 00   3738         sreg    sp|save_regs    save all registers\r
+    006033  aa  2 00000 2351 00   3739         lda     bp|0            get divisor\r
+    006034  0a   007202 6000 00   3740         tze     use_first               zero means use dividend as value\r
+    006035  aa  6 00051 5421 00   3741         sprp2   sp|temp_pt+1\r
+    006036  aa   000044 7330 00   3742         lrs     36              form double precision divisor\r
+    006037  aa  6 00062 7571 00   3743         staq    sp|bit_lg1      save new divisior\r
+    006040  aa  6 00062 3521 00   3744         epp2    sp|bit_lg1      and get ptr to it\r
+    006041  0a   005766 7100 00   3745         tra     sc_mod_common\r
+                                  3746  "\r
+                                  3747  "      operator to divide single precision by single precision\r
+                                  3748  "      entered with dividend in q and pr2 -> divisor, and amount\r
+                                  3749  "      to scale result following tsx0\r
+                                  3750  "\r
+    006042                        3751  divide_fx1:\r
+    006042  aa   000044 7370 00   3752         lls     36              convert to double precision\r
+    006043  aa   000044 7330 00   3753         lrs     36              and join divide_fx3\r
+                                  3754  "\r
+                                  3755  "\r
+                                  3756  "      operator to divide double precision by single precision\r
+                                  3757  "      entered with dividend in aq, pr2 -> divisor, and amount\r
+                                  3758  "      to scale result (+ left, - right) following tsx0\r
+                                  3759  "\r
+    006044                        3760  divide_fx3:\r
+    006044  aa  6 00070 7531 00   3761         sreg    sp|save_regs\r
+    006045  aa  6 00050 2515 00   3762         spri1   sp|temp_pt      save ab\r
+    006046  aa  6 00074 3515 00   3763         epp1    sp|save_regs+4  get ptr to dividend\r
+    006047  aa  2 00000 2351 00   3764         lda     bp|0            load divisor\r
+    006050  aa  6 00046 2361 70   3765         ldq     sp|tbp,*0               load scale amount\r
+    006051  0a   006102 7070 00   3766         tsx7    divide1         do the division\r
+    006052                        3767  dv_done:\r
+    006052  aa  6 00074 7571 00   3768         staq    sp|save_regs+4  save quotient\r
+    006053  aa  6 00070 0731 00   3769         lreg    sp|save_regs    restore registers\r
+    006054  aa   000001 0600 03   3770         adx0    1,du            update return pt\r
+    006055  aa  6 00050 3515 20   3771         epp1    sp|temp_pt,*    restore ab\r
+    006056  aa  6 00030 3501 20   3772         eppap   sp|stack_frame.operator_ptr,*\r
+    006057  0a   001426 1170 00   3773         cmpaq   bit_mask                set indicators\r
+    006060  aa  6 00046 7101 70   3774         tra     sp|tbp,*0               and exit\r
+                                  3775  "\r
+                                  3776  "      operator to divide single precision by double precision\r
+                                  3777  "      entered with dividend in q, pr2 -> divisor, and\r
+                                  3778  "      amount to scale result following tsx0\r
+                                  3779  "\r
+    006061                        3780  divide_fx2:\r
+    006061  aa   000044 7370 00   3781         lls     36              convert to double precision\r
+    006062  aa   000044 7330 00   3782         lrs     36              and join divide_fx3\r
+                                  3783  "\r
+                                  3784  "\r
+                                  3785  "      operator to divide double precision by double precision\r
+                                  3786  "      entered with dividend in aq, pr2 -> divisor, and amount\r
+                                  3787  "      to scale result following tsx0\r
+                                  3788  "\r
+    006063                        3789  divide_fx4:\r
+    006063  aa  6 00070 7531 00   3790         sreg    sp|save_regs\r
+    006064  aa  6 00050 2515 00   3791         spri1   sp|temp_pt      save ab\r
+    006065  aa  6 00074 3515 00   3792         epp1    sp|save_regs+4  get ptr to dividend\r
+    006066  aa  6 00046 2361 70   3793         ldq     sp|tbp,*0\r
+    006067  0a   006112 7070 00   3794         tsx7    divide2\r
+    006070  0a   006052 7100 00   3795         tra     dv_done\r
+                                  3796  "\r
+                                  3797  "      operator to divide double precision by double precision\r
+                                  3798  "      same calling sequence as divide_fx4 except scale is\r
+                                  3799  "      in index 1.  Called from fixed_ops_.\r
+                                  3800  "\r
+    006071                        3801  div_4_cplx_ops:\r
+    006071  aa  6 00070 7531 00   3802         sreg    sp|save_regs    save regs\r
+    006072  aa  6 00074 3515 00   3803         epp1    sp|save_regs+4  get ptr to dividend\r
+    006073  aa   000000 6360 11   3804         eaq     0,1             get scale into q\r
+    006074  aa   000022 7320 00   3805         qrs     18              ""\r
+    006075  0a   006112 7070 00   3806         tsx7    divide2         perform division\r
+    006076  aa  6 00074 7571 00   3807         staq    sp|save_regs+4  save quotient\r
+    006077  aa  6 00070 0731 00   3808         lreg    sp|save_regs    restore regs\r
+    006100  aa  6 00030 3501 20   3809         eppap   sp|stack_frame.operator_ptr,*\r
+    006101  aa  6 00046 7101 70   3810         tra     sp|tbp,*0\r
+                                  3811  "\r
+                                  3812  "      internal procedure to divide double precision integer by\r
+                                  3813  "      single precision integer.  entered with divisor in a,\r
+                                  3814  "      pr1 -> dividend, and scale in q\r
+                                  3815  "      returns quotient in aq and remainder in sp|remainder\r
+                                  3816  "\r
+    006102  0a   006431 7010 00   3817  divide1:       tsx1    divide_extension        extend stack\r
+    006103  aa  0 00004 7561 00   3818         stq     ap|shift                save scaling amount\r
+    006104  aa   000000 6210 00   3819         eax1    0               save sign of divisor\r
+    006105  aa   000044 7330 00   3820         lrs     36\r
+    006106  aa   000003 6050 04   3821         tpl     3,ic\r
+    006107  aa   000000 5330 00   3822         negl    0\r
+    006110  aa   000001 6610 03   3823         erx1    1,du\r
+    006111  0a   006406 7100 00   3824         tra     div_single\r
+                                  3825  "\r
+                                  3826  "      internal procedure to divide two double precision integers\r
+                                  3827  "      entered with pr1 -> dividend, pr2 -> divisor, scale amount in q\r
+                                  3828  "      returns quotient in aq and remainder in sp|remainder\r
+                                  3829  "\r
+    006112  0a   006431 7010 00   3830  divide2:       tsx1    divide_extension        extend stack\r
+    006113  aa  0 00004 7561 00   3831         stq     ap|shift                save scaling amount\r
+    006114  aa   000000 6210 00   3832         eax1    0               assume positive result\r
+    006115  aa  2 00000 2371 00   3833         ldaq    bp|0            get divisor\r
+    006116  aa   000003 6050 04   3834         tpl     3,ic\r
+    006117  aa   000000 5330 00   3835         negl    0\r
+    006120  aa   000001 6610 03   3836         erx1    1,du\r
+    006121  0a   001760 1170 00   3837         cmpaq   max_single_value\r
+    006122  0a   006406 6044 00   3838         tmoz    div_single\r
+    006123  aa   200000 3150 03   3839         cana    =o200000,du     is high bit of divisor on\r
+    006124  0a   006144 6010 00   3840         tnz     divisor_3               yes, need 3 words\r
+                                  3841  "\r
+                                  3842  "      divisor only needs 2 words\r
+                                  3843  "\r
+    006125  aa  6 00055 7541 00   3844         sti     sp|temp_indicators      save indicators\r
+    006126  aa   000000 6340 07   3845         ldi     0,dl            clear HFP mode if it's set\r
+    006127  aa   000000 4110 03   3846         lde     =0,du           count leading zeros\r
+    006130  aa   400000 4750 03   3847         fad     =0.0,du\r
+    006131  aa  6 00055 6341 00   3848         ldi     sp|temp_indicators      restore indicators\r
+    006132  aa   000001 7720 00   3849         qrl     1               split number into two parts\r
+    006133  aa  0 00017 7561 00   3850         stq     ap|divisor+1\r
+    006134  aa  0 00020 7551 00   3851         sta     ap|divisor+2\r
+    006135  aa  0 00006 4561 00   3852         ste     ap|div_temp     get number of leading zeros\r
+    006136  aa  0 00006 2351 00   3853         lda     ap|div_temp\r
+    006137  aa   000034 7310 00   3854         ars     28\r
+    006140  aa   000000 5310 00   3855         neg     0               make it positive\r
+    006141  aa   000001 1750 07   3856         sba     1,dl\r
+    006142  aa   000002 6240 00   3857         eax4    2               set length of number\r
+    006143  0a   006154 7100 00   3858         tra     prepare_dividend\r
+                                  3859  "\r
+                                  3860  "      divisor requires 3 words\r
+                                  3861  "\r
+    006144                        3862  divisor_3:\r
+    006144  aa  0 00021 7551 00   3863         sta     ap|divisor+3    store high order word\r
+    006145  aa   000043 7370 00   3864         lls     34+1            shift other parts 34 bits\r
+    006146  aa   000001 7720 00   3865         qrl     1               and save\r
+    006147  aa  0 00017 7561 00   3866         stq     ap|divisor+1\r
+    006150  0a   001761 3750 00   3867         ana     max_single_value+1\r
+    006151  aa  0 00020 7551 00   3868         sta     ap|divisor+2\r
+    006152  aa   000042 2350 07   3869         lda     34,dl           shift is 34\r
+    006153  aa   000003 6240 00   3870         eax4    3               and length is 3\r
+                                  3871  "\r
+    006154                        3872  prepare_dividend:\r
+    006154  aa  0 00005 7551 00   3873         sta     ap|norm_shift   save scaling count\r
+    006155  aa  0 00004 0551 00   3874         asa     ap|shift                update shift by number of leading zeros\r
+    006156  aa  0 00016 7441 00   3875         stx4    ap|divisor      save length of divisor\r
+    006157  aa  1 00000 2371 00   3876         ldaq    ab|0    \r
+    006160  aa   000003 6050 04   3877         tpl     3,ic\r
+    006161  aa   000000 5330 00   3878         negl    0\r
+    006162  aa   000001 6610 03   3879         erx1    1,du\r
+    006163  0a   006443 7030 00   3880         tsx3    shift_dividend\r
+    006164  aa   000001 0650 03   3881         adx5    1,du\r
+    006165  aa  0 00010 4501 15   3882         stz     ap|dividend,5   add zero chunk at front\r
+    006166  aa  0 00010 7451 00   3883         stx5    ap|dividend     save number of chunks\r
+    006167  aa   000000 4310 07   3884         fld     0,dl\r
+    006170  aa  0 00022 7571 00   3885         staq    ap|quotient\r
+    006171  aa  0 00024 7571 00   3886         staq    ap|quotient+2\r
+    006172  aa  0 00026 7571 00   3887         staq    ap|quotient+4\r
+    006173  aa   000000 6260 15   3888         eax6    0,5             quotient length =\r
+    006174  aa  0 00016 1661 00   3889         sbx6    ap|divisor      dividend_length - divisor_length\r
+    006175  0a   006327 6000 00   3890         tze     done            skip if zero quotient length\r
+                                  3891  "\r
+    006176                        3892  get_qhat:\r
+    006176  aa  0 00010 2251 00   3893         ldx5    ap|dividend     calculate quotient guess\r
+    006177  aa  0 00010 2351 15   3894         lda     ap|dividend,5\r
+    006200  aa  0 00016 1151 14   3895         cmpa    ap|divisor,4\r
+    006201  0a   006215 6040 00   3896         tmi     div_less\r
+    006202  0a   001761 2360 00   3897         ldq     max_single_value+1      =o377777777777\r
+    006203  aa  0 00007 2351 15   3898         lda     ap|dividend-1,5\r
+    006204  0a   006210 7100 00   3899         tra     l3h\r
+    006205                        3900  dec_qhat:\r
+    006205  aa  0 00000 2361 00   3901         ldq     ap|qhat\r
+    006206  aa   000001 1760 07   3902         sbq     1,dl\r
+    006207  aa  0 00001 2351 00   3903         lda     ap|rhat\r
+    006210  aa  0 00000 7561 00   3904  l3h:   stq     ap|qhat\r
+    006211  aa  0 00016 0351 14   3905         adla    ap|divisor,4\r
+    006212  0a   006234 6040 00   3906         tmi     got_qhat\r
+    006213  aa  0 00001 7551 00   3907         sta     ap|rhat\r
+    006214  0a   006222 7100 00   3908         tra     got_rhat\r
+    006215                        3909  div_less:\r
+    006215  aa  0 00007 2361 15   3910         ldq     ap|dividend-1,5\r
+    006216  aa   000001 7360 00   3911         qls     1\r
+    006217  aa  0 00016 5071 14   3912         dvf     ap|divisor,4\r
+    006220  aa  0 00000 7551 00   3913         sta     ap|qhat\r
+    006221  aa  0 00001 7561 00   3914         stq     ap|rhat\r
+    006222                        3915  got_rhat:\r
+    006222  aa  0 00000 2361 00   3916         ldq     ap|qhat\r
+    006223  aa  0 00015 4021 14   3917         mpy     ap|divisor-1,4\r
+    006224  aa   000001 7370 00   3918         lls     1\r
+    006225  aa  0 00001 1151 00   3919         cmpa    ap|rhat\r
+    006226  0a   006234 6040 00   3920         tmi     got_qhat\r
+    006227  0a   006205 6010 00   3921         tnz     dec_qhat\r
+    006230  aa   000001 7720 00   3922         qrl     1\r
+    006231  aa  0 00006 1161 15   3923         cmpq    ap|dividend-2,5\r
+    006232  0a   006234 6040 00   3924         tmi     got_qhat\r
+    006233  0a   006205 6010 00   3925         tnz     dec_qhat\r
+    006234                        3926  got_qhat:\r
+    006234  aa   000000 6230 00   3927         eax3    0               do multiply and subtract\r
+    006235  aa  0 00002 4501 00   3928         stz     ap|carry\r
+    006236  aa  0 00003 4501 00   3929         stz     ap|carrya\r
+    006237  aa  0 00016 1651 00   3930         sbx5    ap|divisor\r
+    006240  aa  0 00010 3701 15   3931         epplp   ap|dividend,5\r
+    006241                        3932  div_loop:\r
+    006241  aa   000001 6230 13   3933         eax3    1,3\r
+    006242  aa  0 00016 2361 13   3934         ldq     ap|divisor,3\r
+    006243  aa  0 00000 4021 00   3935         mpy     ap|qhat\r
+    006244  aa  0 00002 0331 00   3936         adl     ap|carry\r
+    006245  aa   000001 7370 00   3937         lls     1\r
+    006246  aa   000001 7720 00   3938         qrl     1\r
+    006247  aa  0 00006 7561 00   3939         stq     ap|div_temp\r
+    006250  aa  0 00002 7551 00   3940         sta     ap|carry\r
+    006251  aa  4 77777 2361 13   3941         ldq     lp|-1,3\r
+    006252  aa  0 00003 1361 00   3942         sblq    ap|carrya\r
+    006253  aa  0 00006 1361 00   3943         sblq    ap|div_temp\r
+    006254  aa   000000 2350 07   3944         lda     0,dl\r
+    006255  aa   000001 7370 00   3945         lls     1\r
+    006256  aa   000001 7720 00   3946         qrl     1\r
+    006257  aa  4 77777 7561 13   3947         stq     lp|-1,3\r
+    006260  aa  0 00003 7551 00   3948         sta     ap|carrya\r
+    006261  aa  0 00016 1031 00   3949         cmpx3   ap|divisor\r
+    006262  0a   006241 6010 00   3950         tnz     div_loop\r
+    006263  aa   000001 6230 13   3951         eax3    1,3\r
+    006264  aa  4 77777 2361 13   3952         ldq     lp|-1,3\r
+    006265  aa  0 00003 1361 00   3953         sblq    ap|carrya\r
+    006266  aa  0 00002 1361 00   3954         sblq    ap|carry\r
+    006267  aa   000000 2350 07   3955         lda     0,dl\r
+    006270  aa   000001 7370 00   3956         lls     1\r
+    006271  aa   000001 7720 00   3957         qrl     1\r
+    006272  aa  4 77777 7561 13   3958         stq     lp|-1,3\r
+    006273  aa   000000 1150 07   3959         cmpa    0,dl\r
+    006274  0a   006321 6000 00   3960         tze     store_q\r
+    006275  aa   000001 3360 07   3961         lcq     1,dl\r
+    006276  aa  0 00000 0561 00   3962         asq     ap|qhat\r
+    006277  aa   000000 6230 00   3963         eax3    0\r
+    006300  aa   000000 2350 07   3964         lda     0,dl\r
+    006301                        3965  div_loop1:\r
+    006301  aa   000001 6230 13   3966         eax3    1,3             add back in\r
+    006302  aa  4 77777 2361 13   3967         ldq     lp|-1,3\r
+    006303  0a   006526 0360 05   3968         adlq    zero_one,al\r
+    006304  aa  0 00016 0361 13   3969         adlq    ap|divisor,3\r
+    006305  aa   000000 2350 03   3970         lda     0,du\r
+    006306  aa   000001 7370 00   3971         lls     1\r
+    006307  aa   000001 7720 00   3972         qrl     1\r
+    006310  aa  4 77777 7561 13   3973         stq     lp|-1,3\r
+    006311  aa  0 00016 1031 00   3974         cmpx3   ap|divisor\r
+    006312  0a   006301 6010 00   3975         tnz     div_loop1\r
+    006313  aa   000001 6230 13   3976         eax3    1,3\r
+    006314  aa  4 77777 2361 13   3977         ldq     lp|-1,3\r
+    006315  0a   006526 0360 05   3978         adlq    zero_one,al\r
+    006316  aa   000001 7370 00   3979         lls     1\r
+    006317  aa   000001 7720 00   3980         qrl     1\r
+    006320  aa  4 77777 7561 13   3981         stq     lp|-1,3\r
+                                  3982  "\r
+    006321                        3983  store_q:\r
+    006321  aa  0 00000 2351 00   3984         lda     ap|qhat\r
+    006322  aa  0 00022 7551 16   3985         sta     ap|quotient,6\r
+    006323  aa   777777 6230 00   3986         eax3    -1\r
+    006324  aa  0 00010 0431 00   3987         asx3    ap|dividend\r
+    006325  aa   777777 6260 16   3988         eax6    -1,6\r
+    006326  0a   006176 6054 00   3989         tpnz    get_qhat\r
+                                  3990  "\r
+                                  3991  "      done\r
+                                  3992  "\r
+    006327  aa  0 00012 2361 00   3993  done:  ldq     ap|dividend+2   assemble remainder\r
+    006330  aa   000001 7360 00   3994         qls     1\r
+    006331  aa  0 00013 2351 00   3995         lda     ap|dividend+3\r
+    006332  aa   000043 7370 00   3996         lls     35\r
+    006333  aa  0 00011 2361 00   3997         ldq     ap|dividend+1\r
+    006334  aa   000001 7360 00   3998         qls     1\r
+    006335  aa   000001 7730 00   3999         lrl     1\r
+    006336  aa  0 00005 7261 00   4000         lxl6    ap|norm_shift   get amount we scaled divisor\r
+    006337  aa   000000 7730 16   4001         lrl     0,6             shift back remainder\r
+    006340  aa  1 00000 2341 00   4002  l2:    szn     ab|0            set remainder sign to sign of dividend\r
+    006341  aa   000002 6050 04   4003         tpl     2,ic\r
+    006342  aa   000000 5330 00   4004         negl    0\r
+    006343  aa  6 00056 7571 00   4005         staq    sp|remainder\r
+    006344  aa  0 00026 2361 00   4006         ldq     ap|quotient+4   assemble quotient\r
+    006345  aa  0 00027 0761 00   4007         adq     ap|quotient+5\r
+    006346  0a   006367 6010 00   4008         tnz     signal_overflow\r
+    006347  aa  0 00024 2361 00   4009         ldq     ap|quotient+2\r
+    006350  aa   000001 7360 00   4010         qls     1\r
+    006351  aa  0 00025 2351 00   4011         lda     ap|quotient+3\r
+    006352  aa   000043 7370 00   4012         lls     35\r
+    006353  0a   006367 6030 00   4013         trc     signal_overflow\r
+    006354  aa  0 00023 2361 00   4014         ldq     ap|quotient+1\r
+    006355  aa   000001 7360 00   4015         qls     1\r
+    006356  aa   000001 7730 00   4016         lrl     1\r
+    006357  0a   006530 7160 11   4017         xec     sign_change,1\r
+    006360  aa  0 00030 3701 20   4018         epplp   ap|divide_lp,*  restore lp\r
+    006361  aa  6 00067 3221 00   4019         lcx2    sp|qmask                return stack extension\r
+    006362  aa  6 00023 2231 00   4020         ldx3    sp|stack_frame.next_sp+1\r
+    006363  aa   000040 1230 03   4021         sblx3   divide_extension_size,du\r
+    006364  aa  6 00023 7431 00   4022         stx3    sp|stack_frame.next_sp+1\r
+    006365  aa  6 00025 7431 12   4023         stx3    sp|stack_header.stack_end_ptr+1,2\r
+    006366  aa   000000 7100 17   4024         tra     0,7\r
+                                  4025  "\r
+    006367                        4026  signal_overflow:\r
+    006367  aa  6 00056 2521 00   4027         spribp  sp|double_temp\r
+    006370  0a   006402 3520 00   4028         eppbp   overflow_name\r
+    006371  aa   000015 6260 00   4029         eax6    overflow_length\r
+    006372  aa   001307 2360 07   4030         ldq     =711,dl\r
+    006373  aa  6 00037 4401 00   4031         sxl0    sp|stack_frame.operator_ret_ptr\r
+    006374  0a   011251 7010 00   4032         tsx1    call_signal_\r
+    006375  aa  6 00056 3521 20   4033         eppbp   sp|double_temp,*\r
+    006376  aa  6 00037 7201 00   4034         lxl0    sp|stack_frame.operator_ret_ptr\r
+    006377  aa  6 00037 4501 00   4035         stz     sp|stack_frame.operator_ret_ptr\r
+    006400  0a   001650 2370 00   4036         ldaq    mask_bit+2\r
+    006401  aa   000000 7100 17   4037         tra     0,7\r
+                                  4038  "\r
+    006402                        4039  overflow_name:\r
+    006402  aa  146 151 170 145   4040         aci     "fixedoverflow"\r
+    006403  aa  144 157 166 145\r
+    006404  aa  162 146 154 157\r
+    006405  aa  167 000 000 000\r
+                                  4041  "\r
+                        000015    4042         equ     overflow_length,13\r
+                                  4043  \r
+                                  4044  "\r
+    006406                        4045  div_single:\r
+    006406  aa  0 00016 7561 00   4046         stq     ap|divisor\r
+    006407  aa  1 00000 2371 00   4047         ldaq    ab|0    \r
+    006410  aa   000003 6050 04   4048         tpl     3,ic\r
+    006411  aa   000000 5330 00   4049         negl    0\r
+    006412  aa   000001 6610 03   4050         erx1    1,du\r
+    006413  0a   006443 7030 00   4051         tsx3    shift_dividend\r
+    006414  aa   000000 4310 07   4052         fld     0,dl\r
+    006415  aa  0 00024 7571 00   4053         staq    ap|quotient+2\r
+    006416  aa  0 00026 7571 00   4054         staq    ap|quotient+4\r
+    006417  aa  0 00010 2361 15   4055  l1:    ldq     ap|dividend,5\r
+    006420  aa   000001 7360 00   4056         qls     1\r
+    006421  aa  0 00016 5071 00   4057         dvf     ap|divisor\r
+    006422  aa  0 00022 7551 15   4058         sta     ap|quotient,5\r
+    006423  aa   777777 6250 15   4059         eax5    -1,5\r
+    006424  0a   006427 6000 00   4060         tze     thru\r
+    006425  aa   000044 7770 00   4061         llr     36\r
+    006426  0a   006417 7100 00   4062         tra     l1\r
+    006427  aa   000000 2350 07   4063  thru:  lda     0,dl\r
+    006430  0a   006340 7100 00   4064         tra     l2\r
+                                  4065  "\r
+                                  4066  "      internal procedure to extend stack for divide operators\r
+                                  4067  "\r
+    006431                        4068  divide_extension:\r
+    006431  aa  6 00000 6221 00   4069         eax2    sp|0            get offset of stack frame\r
+    006432  aa  6 00067 7421 00   4070         stx2    sp|qmask\r
+    006433  aa  6 00067 3221 00   4071         lcx2    sp|qmask                get - offset\r
+    006434  aa  6 00024 3501 32   4072         eppap   sp|stack_header.stack_end_ptr,2*        get ptr to extension\r
+    006435  aa   000040 6230 00   4073         eax3    divide_extension_size\r
+    006436  aa  6 00023 0231 00   4074         adlx3   sp|stack_frame.next_sp+1\r
+    006437  aa  6 00025 7431 12   4075         stx3    sp|stack_header.stack_end_ptr+1,2\r
+    006440  aa  6 00023 7431 00   4076         stx3    sp|stack_frame.next_sp+1\r
+    006441  aa  0 00030 6501 00   4077         sprilp  ap|divide_lp    save lp\r
+    006442  aa   000000 7100 11   4078         tra     0,1\r
+                                  4079  "\r
+                                  4080  " This procedure shifts the dividend left (+) or right (-) the\r
+                                  4081  " number of places specified by variable shift.  It splits the shifted\r
+                                  4082  " value into chunks which are stored in dividend+1, dividend+2, ...\r
+                                  4083  " The number of chunks stored (which can never exceed 5) is returned in x5.\r
+                                  4084  " The routine is entered with |dividend| in AQ\r
+                                  4085  "\r
+    006443                        4086  shift_dividend:\r
+    006443  aa  0 00004 7221 00   4087         lxl2    ap|shift\r
+    006444  0a   006522 6040 00   4088         tmi     right_shift\r
+    006445  aa  0 00006 7571 00   4089         staq    ap|div_temp\r
+    006446  aa   000000 7370 12   4090         lls     0,2\r
+    006447  0a   006466 6030 00   4091         trc     hard_shift      carry means lost a bit on left\r
+    006450  aa   000001 7370 00   4092  split: lls     1\r
+    006451  aa   000001 7720 00   4093         qrl     1               split into chunks\r
+    006452  aa  0 00011 7561 00   4094         stq     ap|dividend+1\r
+    006453  aa   000001 6250 00   4095         eax5    1\r
+    006454  aa   000043 7730 00   4096         lrl     35\r
+    006455  aa   000000 6000 13   4097         tze     0,3\r
+    006456  aa   000001 7720 00   4098         qrl     1\r
+    006457  aa  0 00012 7561 00   4099         stq     ap|dividend+2\r
+    006460  aa   000002 6250 00   4100         eax5    2\r
+    006461  aa   000000 1150 07   4101         cmpa    0,dl\r
+    006462  aa   000000 6000 13   4102         tze     0,3\r
+    006463  aa  0 00013 7551 00   4103         sta     ap|dividend+3\r
+    006464  aa   000003 6250 00   4104         eax5    3\r
+    006465  aa   000000 7100 13   4105         tra     0,3\r
+    006466                        4106  hard_shift:\r
+    006466  aa   000001 7370 00   4107         lls     1\r
+    006467  aa   000001 7720 00   4108         qrl     1               store lower 2 chunks\r
+    006470  aa  0 00011 7561 00   4109         stq     ap|dividend+1\r
+    006471  aa   000043 7730 00   4110         lrl     35\r
+    006472  aa   000001 7720 00   4111         qrl     1\r
+    006473  aa  0 00012 7561 00   4112         stq     ap|dividend+2\r
+    006474  aa  0 00006 2371 00   4113         ldaq    ap|div_temp     get back original value\r
+    006475  aa   000106 1620 03   4114         sbx2    70,du           shift 70 places fewer\r
+    006476  0a   006503 6050 00   4115         tpl     sl\r
+    006477  aa  0 00006 7421 00   4116         stx2    ap|div_temp\r
+    006500  aa  0 00006 3221 00   4117         lcx2    ap|div_temp\r
+    006501  aa   000000 7730 12   4118         lrl     0,2\r
+    006502  0a   006504 7100 00   4119         tra     sl+1\r
+    006503  aa   000000 7370 12   4120  sl:    lls     0,2\r
+    006504  aa   000001 7370 00   4121         lls     1\r
+    006505  aa   000001 7720 00   4122         qrl     1\r
+    006506  aa  0 00013 7561 00   4123         stq     ap|dividend+3   will always be 3rd chunk\r
+    006507  aa   000003 6250 00   4124         eax5    3\r
+    006510  aa   000043 7730 00   4125         lrl     35\r
+    006511  aa   000000 6000 13   4126         tze     0,3\r
+    006512  aa   000001 7720 00   4127         qrl     1\r
+    006513  aa  0 00014 7561 00   4128         stq     ap|dividend+4\r
+    006514  aa   000004 6250 00   4129         eax5    4\r
+    006515  aa   000000 1150 07   4130         cmpa    0,dl\r
+    006516  aa   000000 6000 13   4131         tze     0,3\r
+    006517  aa  0 00015 7551 00   4132         sta     ap|dividend+5\r
+    006520  aa   000005 6250 00   4133         eax5    5\r
+    006521  aa   000000 7100 13   4134         tra     0,3\r
+    006522                        4135  right_shift:\r
+    006522  aa  0 00006 7421 00   4136         stx2    ap|div_temp\r
+    006523  aa  0 00006 3221 00   4137         lcx2    ap|div_temp\r
+    006524  aa   000000 7730 12   4138         lrl     0,2\r
+    006525  0a   006450 7100 00   4139         tra     split\r
+                                  4140  "\r
+    006526  aa   000000 000000    4141  zero_one:      dec     0,1\r
+    006527  aa   000000 000001 \r
+                                  4142  "\r
+    006530                        4143  sign_change:\r
+    006530  aa   000000 0110 03   4144         nop     0,du\r
+    006531  aa   000000 5330 00   4145         negl    0\r
+                                  4146  "\r
+                                  4147  "      operator to convert floating to fixed\r
+                                  4148  "\r
+    006532                        4149  fl2_to_fx1:\r
+    006532                        4150  fl2_to_fx2:\r
+    006532  aa   400000 4750 03   4151         fad     =0.,du\r
+    006533  aa   000003 6040 04   4152         tmi     3,ic\r
+    006534  aa   216000 4350 03   4153         ufa     =71b25,du\r
+    006535  aa  6 00046 7101 70   4154         tra     sp|tbp,*0\r
+    006536  aa   000000 5130 00   4155         fneg\r
+    006537  aa   216000 4350 03   4156         ufa     =71b25,du\r
+    006540  aa   000000 5330 00   4157         negl\r
+    006541  aa  6 00046 7101 70   4158         tra     sp|tbp,*0\r
+                                  4159  "\r
+                                  4160  "      operator to convert float to fixed scaled.  the word following\r
+                                  4161  "      the tsx0 is the encoded scale of the target\r
+                                  4162  "\r
+    006542                        4163  fl2_to_fxscaled:\r
+    006542  aa   400000 4750 03   4164         fad     =0.,du\r
+    006543  aa   000004 6040 04   4165         tmi     4,ic\r
+    006544  aa  6 00046 4351 70   4166         ufa     sp|tbp,*0\r
+    006545  aa   000001 0600 03   4167         adx0    1,du\r
+    006546  aa  6 00046 7101 70   4168         tra     sp|tbp,*0\r
+    006547  aa   000000 5130 00   4169         fneg\r
+    006550  aa  6 00046 4351 70   4170         ufa     sp|tbp,*0\r
+    006551  aa   000000 5330 00   4171         negl\r
+    006552  aa   777773 7100 04   4172         tra     -5,ic\r
+                                  4173  "\r
+                                  4174  "      stac operator.  entered with word in a and pointer\r
+                                  4175  "      to destination in bp.\r
+                                  4176  "\r
+    006553  aa  2 00000 3541 00   4177  stac_mac:      stac    bp|0            store a conditionally\r
+    006554  0a   002164 6000 00   4178         tze     true\r
+    006555  aa   000000 2350 07   4179         lda     0,dl            ..\r
+    006556  aa  6 00046 7101 70   4180         tra     sp|tbp,*0               and return\r
+                                  4181  "\r
+                                  4182  "      stacq operator.  entered with old value in Q, new value in A,\r
+                                  4183  "      and pointer to destination in pr2.\r
+                                  4184  "\r
+    006557                        4185  stacq_mac:\r
+    006557  aa  2 00000 6541 00   4186         stacq   pr2|0           store A conditional C(storage) = Q\r
+    006560  0a   002164 6000 00   4187         tze     true            stored OK, return "1"b\r
+    006561  aa   000000 2350 07   4188         lda     0,dl            not stored, return "0"b\r
+    006562  aa  6 00046 7101 70   4189         tra     sp|tbp,*0               return\r
+                                  4190  "\r
+                                  4191  "      clock operator.  no arguments...returns with value of\r
+                                  4192  "      calendar clock in AQ.\r
+                                  4193  "\r
+    006563                        4194  clock_mac:\r
+                                  4195         get_our_lp\r
+    006563  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    006564  0a   006564 2130 00                epaq    *               get ptr to ourselves\r
+    006565  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    006566  4a  4 00262 6331 20   4196         rccl    sys_info$clock_,*       read clock into AQ\r
+    006567  0a   001426 1170 00   4197         cmpaq   bit_mask                set indicators\r
+    006570  aa  6 00046 7101 70   4198         tra     sp|tbp,*0               return\r
+                                  4199  "\r
+                                  4200  "      virtual clock operator.  no arguments...returns with value\r
+                                  4201  "      of virtual cpu time in AQ.\r
+                                  4202  "\r
+    006571                        4203  vclock_mac:\r
+                                  4204         get_our_lp\r
+    006571  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    006572  0a   006572 2130 00                epaq    *               get ptr to ourselves\r
+    006573  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    006574  aa  6 00025 7401 00   4205         stx0    sp|stack_frame.return_ptr+1     setup to return directly to user prog\r
+    006575  aa  6 00025 7541 00   4206         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    006576  4a  4 00264 7131 20   4207         callsp  virtual_cpu_time_op_$virtual_cpu_time_op_       invoke supervisor to do work\r
+                                  4208  "\r
+                                  4209  "\r
+                                  4210  "      stop operator, terminates a run unit by calling stop_run\r
+                                  4211  "\r
+    006577                        4212  stop:\r
+    006577  aa  6 00056 3501 00   4213         eppap   sp|46                   get pointer to argument list\r
+    006600  aa   000000 4310 07   4214         fld     0,dl                    create null argument list\r
+    006601  aa   000004 2750 07   4215         ora     4,dl                         and insert PL/I code\r
+    006602  aa  6 00056 7571 00   4216         staq    sp|46\r
+                                  4217         get_our_lp\r
+    006603  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    006604  0a   006604 2130 00                epaq    *               get ptr to ourselves\r
+    006605  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    006606  aa  6 00024 3571 00   4218         stcd    sp|stack_frame.return_ptr       store pointer to caller\r
+    006607  4a  4 00266 7131 20   4219         callsp  stop_run$stop_run\r
+                                  4220  "\r
+                                  4221  "      return_main - terminates a run unit by calling stop_run  if the procedure is a main procedure,\r
+                                  4222  "                         otherwise it performs a normal return\r
+                                  4223  "\r
+    006610                        4224  return_main:\r
+    006610  aa  6 00020 2351 00   4225         lda     sp|stack_frame.flag_word\r
+    006611  aa   020000 3750 07   4226         ana     stack_frame.main_proc_bit,dl\r
+    006612  0a   005600 6000 00   4227         tze     return_mac\r
+    006613  0a   006577 7100 00   4228         tra     stop\r
+                                  4229  "\r
+                                  4230  "      return from a begin block in a main procedure\r
+                                  4231  "\r
+    006614                        4232  begin_return_main:\r
+    006614  0a   006610 6000 00   4233         tze     return_main     skip if begin block is quick\r
+    006615  aa  6 00000 3731 00   4234         epbpsb  sp|0            get ptr to base of stack\r
+    006616                        4235         inhibit on\r
+    006616  aa  7 00024 6523 00   4236         sprisp  sb|stack_header.stack_end_ptr keep updating end ptr\r
+    006617  aa  6 00020 3723 20   4237         eppsp   sp|stack_frame.prev_sp,* pop stack\r
+    006620                        4238         inhibit off\r
+    006620  aa   000001 1760 07   4239         sbq     1,dl            count down number of blocks\r
+    006621  aa   777775 6010 04   4240         tnz     -3,ic           repeat until all done\r
+    006622  aa  6 00020 2351 00   4241         lda     sp|stack_frame.flag_word\r
+    006623  aa   020000 3750 07   4242         ana     stack_frame.main_proc_bit,dl    is this the first main procedure invoked in the run unit?\r
+    006624  0a   005600 6000 00   4243         tze     return_mac              no - do a normal return from a begin block\r
+    006625  0a   006577 7100 00   4244         tra     stop                    yes - do a stop run\r
+                                  4245  "\r
+                                  4246  "      set_main_flag - sets a bit in the stack_frame if this is the first procedure in the run unit and  has options(main)\r
+                                  4247  "\r
+    006626                        4248  set_main_flag:\r
+    006626  aa  6 00000 3731 00   4249         epbp7   sp|0                    pointer to stack_header\r
+    006627  aa  7 00012 7211 00   4250         lxl1    sb|stack_header.main_proc_invoked\r
+    006630  aa   000001 1010 03   4251         cmpx1   1,du                    first main procedure in run unit?\r
+    006631  0a   006637 6010 00   4252         tnz     zero_main_flag          no\r
+    006632  aa   400000 2610 03   4253         orx1    =o400000,du             then this is the first main procedure\r
+    006633  aa  7 00012 4411 00   4254         sxl1    sb|stack_header.main_proc_invoked       indicate main procedure has been invoked\r
+    006634  aa   020000 2350 07   4255         lda     stack_frame.main_proc_bit,dl    flag stack frame of first main procedure\r
+    006635  aa  6 00020 2551 00   4256         orsa    sp|stack_frame.flag_word\r
+    006636  aa  6 00046 7101 70   4257         tra     sp|tbp,*0                       return\r
+    006637                        4258  zero_main_flag:\r
+    006637  aa   020001 3350 07   4259         lca     stack_frame.main_proc_bit+1,dl  generate mask to turn off main_proc bit\r
+    006640  aa  6 00020 3551 00   4260         ansa    sp|stack_frame.flag_word        indicate that this is not the first main procedure\r
+    006641  aa  6 00046 7101 70   4261         tra     sp|tbp,*0                       return\r
+                                  4262  "\r
+                                  4263  "      sign operator.  entered with indicators set via load\r
+                                  4264  \r
+    006642  aa  6 00046 6001 70   4265  sign_mac:      tze     sp|tbp,*0               return zero if zero\r
+    006643  aa   000003 6040 04   4266         tmi     3,ic            skip if negative\r
+    006644  aa   000001 2360 07   4267         ldq     1,dl            return +1\r
+    006645  aa  6 00046 7101 70   4268         tra     sp|tbp,*0               ..\r
+    006646  aa   000001 3360 07   4269         lcq     1,dl            return -1\r
+    006647  aa  6 00046 7101 70   4270         tra     sp|tbp,*0               ..\r
+                                  4271  "\r
+                                  4272  "      operator to transfer sign of number pointed to by bp to integer in q\r
+                                  4273  "\r
+    006650                        4274  trans_sign_fx1:\r
+    006650  aa   000044 7370 00   4275         lls     36              form abs value of Q in A\r
+    006651  aa   000002 6050 04   4276         tpl     2,ic\r
+    006652  aa   000000 5310 00   4277         neg     0\r
+    006653  aa  2 00000 2341 00   4278         szn     bp|0            if second number is negative\r
+    006654  aa   000002 6050 04   4279         tpl     2,ic\r
+    006655  aa   000000 5310 00   4280         neg     0               set A negative too\r
+    006656  aa   000044 7330 00   4281         lrs     36              shift back to Q\r
+    006657  aa  6 00046 7101 70   4282         tra     sp|tbp,*0               and return\r
+                                  4283  "\r
+                                  4284  "      operator to transfer sign of floating number pointed to by bp\r
+                                  4285  "      to floating number in EAQ\r
+                                  4286  "\r
+    006660                        4287  trans_sign_fl:\r
+    006660  aa   000002 6050 04   4288         tpl     2,ic            set first number positive\r
+    006661  aa   000000 5130 00   4289         fneg    0\r
+    006662  aa  2 00000 4301 00   4290         fszn    bp|0            if second number is positive\r
+    006663  aa   000003 6050 04   4291         tpl     3,ic            value is OK\r
+    006664  aa   000000 5130 00   4292         fneg    0               otherwise, set first negative\r
+    006665  aa  6 00046 7101 70   4293         tra     sp|tbp,*0               and return\r
+    006666  aa   400000 5150 03   4294         fcmp    =0.0,du         restore indicators\r
+    006667  aa  6 00046 7101 70   4295         tra     sp|tbp,*0               and return\r
+                                  4296  "\r
+                                  4297  "      opearator to perform Fortran type mod function\r
+                                  4298  "\r
+    006670                        4299  fort_mdfl1:\r
+    006670  aa  2 00000 4301 00   4300         fszn    bp|0            return if B zero\r
+    006671  aa  6 00046 6001 70   4301         tze     sp|tbp,*0\r
+    006672  aa  6 00076 4701 00   4302         fstr    sp|temp         save A\r
+    006673  aa  2 00000 5651 00   4303         fdv     bp|0            form A/B\r
+    006674  aa   000003 6040 04   4304         tmi     3,ic\r
+    006675  aa   216000 4750 03   4305         fad     =71b25,du               truncate towards 0\r
+    006676  aa   000004 7100 04   4306         tra     4,ic\r
+    006677  aa   000000 5130 00   4307         fneg\r
+    006700  aa   216000 4750 03   4308         fad     =71b25,du               truncate towards 0\r
+    006701  aa   000000 5130 00   4309         fneg\r
+    006702  aa  2 00000 4611 00   4310         fmp     bp|0\r
+    006703  aa   000000 5130 00   4311         fneg    0\r
+    006704  aa  6 00076 4751 00   4312         fad     sp|temp         form A - [A/B]*B\r
+    006705  aa  6 00046 7101 70   4313         tra     sp|tbp,*0               and return\r
+                                  4314  "\r
+                                  4315  "      Fortran double precision mod\r
+                                  4316  "      dmod (A,B) = A - INT(A/B) * B\r
+                                  4317  "      A in eaq, bp|0 -> B, result in eaq\r
+                                  4318  "\r
+    006706                        4319  fort_dmod:\r
+    006706  aa  2 00000 4301 00   4320         fszn    bp|0            this only works on normalized numbers!\r
+    006707  aa  6 00046 6001 70   4321         tze     sp|tbp,*0               return A if B is zero\r
+    006710  aa  6 00076 4721 00   4322         dfstr   sp|temp         save A\r
+    006711  aa  2 00000 5671 00   4323         dfdv    bp|0            form A/B\r
+    006712  aa   000003 6040 04   4324         tmi     3,ic\r
+    006713  0a   012450 4770 00   4325         dfad    k71b25          truncate toward zero\r
+    006714  aa   000004 7100 04   4326         tra     4,ic\r
+    006715  aa   000000 5130 00   4327         fneg\r
+    006716  0a   012450 4770 00   4328         dfad    k71b25          truncate toward zero\r
+    006717  aa   000000 5130 00   4329         fneg\r
+    006720  aa  2 00000 4631 00   4330         dfmp    bp|0            form [A/B]*B\r
+    006721  aa   000000 5130 00   4331         fneg\r
+    006722  aa  6 00076 4771 00   4332         dfad    sp|temp         form A-[A/B]*B\r
+    006723  aa  6 00046 7101 70   4333         tra     sp|tbp,*0               and return it\r
+                                  4334  "\r
+                                  4335  "      operators to convert from fixed point to single float complex\r
+                                  4336  "\r
+    006724                        4337  rfb1_to_cflb1:\r
+    006724  aa   000044 7370 00   4338         lls     36              convert to double fixed first\r
+    006725  aa   000044 7330 00   4339         lrs     36\r
+                                  4340  "\r
+    006726                        4341  rfb2_to_cflb1:\r
+    006726  aa   216000 4110 03   4342         lde     =71b25,du               convert to float\r
+    006727  aa   400000 4750 03   4343         fad     =0.,du\r
+    006730  aa  6 00076 4551 00   4344         fst     sp|temp         and save\r
+    006731  aa  6 00076 2351 00   4345         lda     sp|temp         get real part\r
+    006732  aa   400000 2360 03   4346         ldq     =0.,du          and imag part of zero\r
+    006733  aa  6 00046 7101 70   4347         tra     sp|tbp,*0               and return\r
+                                  4348  "\r
+                                  4349  "      operator to perform complex multiplication, defined as\r
+                                  4350  "      (a+ib)*(c+id) -> a*c - b*d +i(b*c + a*d)\r
+                                  4351  "      entered with bp pointing at multiplier and multiplicand in AQ\r
+                                  4352  "      or in complex AQ\r
+                                  4353  "\r
+    006734  aa  6 00070 2371 00   4354  mpcfl1_1:      ldaq    sp|complex      get a+ib\r
+                                  4355  "\r
+    006735  aa  6 00076 7571 00   4356  mpcfl1_2:      staq    sp|temp         and save\r
+    006736  aa  6 00077 4311 00   4357         fld     sp|temp+1               form b*d\r
+    006737  aa  2 00001 4611 00   4358         fmp     bp|1\r
+    006740  aa  6 00070 4551 00   4359         fst     sp|complex\r
+    006741  aa  6 00076 4311 00   4360         fld     sp|temp         form a*c\r
+    006742  aa  2 00000 4611 00   4361         fmp     bp|0\r
+    006743  aa  6 00070 5751 00   4362         fsb     sp|complex      form a*c - b * d\r
+    006744  aa  6 00070 4551 00   4363         fst     sp|complex\r
+    006745  aa  6 00076 4311 00   4364         fld     sp|temp         form a*d\r
+    006746  aa  2 00001 4611 00   4365         fmp     bp|1\r
+    006747  aa  6 00071 4551 00   4366         fst     sp|complex+1\r
+    006750  aa  6 00077 4311 00   4367         fld     sp|temp+1               form b*c\r
+    006751  aa  2 00000 4611 00   4368         fmp     bp|0\r
+    006752  aa  6 00071 4751 00   4369         fad     sp|complex+1    form b*c + a*d\r
+    006753  aa  6 00071 4551 00   4370         fst     sp|complex+1\r
+    006754  aa  6 00046 7101 70   4371         tra     sp|tbp,*0               and return\r
+                                  4372  "\r
+                                  4373  "      operator to perform complex division entered with\r
+                                  4374  "      bp pointing at divisor, dividend in AQ or complex AQ.\r
+                                  4375  "      This code, written by R. A. Barnes, is based on\r
+                                  4376  "      Algorithm 116 in Collected Algorithms from CACM\r
+                                  4377  "      written by Robert L. Smith from Stanford University.\r
+                                  4378  "      Following is the algorithm written in pseudo PL/I\r
+                                  4379  "      to do (a+ib)/(c+id) = (e+if)\r
+                                  4380  "\r
+                                  4381  "      if abs(c) >= abs(d)\r
+                                  4382  "      then do;\r
+                                  4383  "           r = d/c;\r
+                                  4384  "           den = c + r*d;\r
+                                  4385  "           e = (a + b*r)/den;\r
+                                  4386  "           f = (b - a*r)/den;\r
+                                  4387  "           end;\r
+                                  4388  "      else do;\r
+                                  4389  "           r = c/d;\r
+                                  4390  "           den = d + r*c;\r
+                                  4391  "           e = (a*r + b)/den;\r
+                                  4392  "           f = (b*r - a)/den;\r
+                                  4393  "           end;\r
+                                  4394  "\r
+    006755  aa  6 00070 2371 00   4395  dvcfl1_1:      ldaq    sp|complex      get a+ib\r
+                                  4396  "\r
+    006756  aa  6 00076 7571 00   4397  dvcfl1_2:      staq    sp|temp         and save\r
+    006757  aa  2 00000 4311 00   4398         fld     bp|0            get c\r
+    006760  aa  2 00001 4251 00   4399         fcmg    bp|1            compare with d\r
+    006761  0a   007003 6040 00   4400         tmi     dvcfl1_else\r
+                                  4401  "\r
+    006762  aa  2 00001 5251 00   4402         fdi     bp|1            get d/c\r
+    006763  aa  6 00074 4551 00   4403         fst     sp|num          save as r\r
+    006764  aa  2 00001 4611 00   4404         fmp     bp|1            form r*d\r
+    006765  aa  2 00000 4751 00   4405         fad     bp|0            c + r*d\r
+    006766  aa  6 00072 4551 00   4406         fst     sp|temp2                save as den\r
+    006767  aa  6 00077 4311 00   4407         fld     sp|temp+1               get b\r
+    006770  aa  6 00074 4611 00   4408         fmp     sp|num          form b*r\r
+    006771  aa  6 00076 4751 00   4409         fad     sp|temp         a + b*r\r
+    006772  aa  6 00072 5651 00   4410         fdv     sp|temp2                (a + b*r)/den\r
+    006773  aa  6 00070 4551 00   4411         fst     sp|complex      store e\r
+    006774  aa  6 00076 4311 00   4412         fld     sp|temp         get a\r
+    006775  aa  6 00074 4611 00   4413         fmp     sp|num          form a*r\r
+    006776  aa   000000 5130 00   4414         fneg    0               - a*r\r
+    006777  aa  6 00077 4751 00   4415         fad     sp|temp+1               b - a*r\r
+    007000  aa  6 00072 5651 00   4416         fdv     sp|temp2                (b - a*r)/den\r
+    007001  aa  6 00071 4551 00   4417         fst     sp|complex+1    store f\r
+    007002  aa  6 00046 7101 70   4418         tra     sp|tbp,*0               return\r
+                                  4419  "\r
+    007003                        4420  dvcfl1_else:\r
+    007003  aa  2 00001 5651 00   4421         fdv     bp|1            get c/d\r
+    007004  aa  6 00074 4551 00   4422         fst     sp|num          save as r\r
+    007005  aa  2 00000 4611 00   4423         fmp     bp|0            form r*c\r
+    007006  aa  2 00001 4751 00   4424         fad     bp|1            d + r*c\r
+    007007  aa  6 00072 4551 00   4425         fst     sp|temp2                save as den\r
+    007010  aa  6 00076 4311 00   4426         fld     sp|temp         get a\r
+    007011  aa  6 00074 4611 00   4427         fmp     sp|num          form a*r\r
+    007012  aa  6 00077 4751 00   4428         fad     sp|temp+1               a*r + b\r
+    007013  aa  6 00072 5651 00   4429         fdv     sp|temp2                (a*r + b)/den\r
+    007014  aa  6 00070 4551 00   4430         fst     sp|complex      store e\r
+    007015  aa  6 00077 4311 00   4431         fld     sp|temp+1               get b\r
+    007016  aa  6 00074 4611 00   4432         fmp     sp|num          form b*r\r
+    007017  aa  6 00076 5751 00   4433         fsb     sp|temp         (b*r - a)\r
+    007020  aa  6 00072 5651 00   4434         fdv     sp|temp2                (b*r - a)/den\r
+    007021  aa  6 00071 4551 00   4435         fst     sp|complex+1    store f\r
+    007022  aa  6 00046 7101 70   4436         tra     sp|tbp,*0               return\r
+                                  4437  "\r
+                                  4438  "      operator to perform block copy.  entered\r
+                                  4439  "      with block size in ql, ptr to destination in sp|temp_pt and ptr\r
+                                  4440  "      to source in bp.\r
+                                  4441  "\r
+    007023                        4442  copy_words:\r
+    007023  aa   000002 7360 00   4443         qls     2               compute number of chars to move\r
+    007024  aa  6 00046 6001 70   4444         tze     sp|tbp,*0               skip if zero (prevent IPR)\r
+    007025  aa  6 00050 3501 20   4445         eppap   sp|temp_pt,*    get ptr to destination\r
+    007026  aa  0 00140 1005 40   4446         mlr     (ar+rl),(ar+rl)\r
+    007027  aa   200000 000006    4447         desc9a  bp|0,ql\r
+    007030  aa   000000 000006    4448         desc9a  ap|0,ql\r
+    007031  aa  6 00030 3501 20   4449         eppap   sp|stack_frame.operator_ptr,*\r
+    007032  aa  6 00046 7101 70   4450         tra     sp|tbp,*0\r
+                                  4451  "\r
+                                  4452  "      operator to perform block copy from even boundary to even boundary.\r
+                                  4453  "      same conventions as copy_words.\r
+                                  4454  "\r
+    007033                        4455  copy_double:\r
+    007033  aa   000001 7360 00   4456         qls     1               get number of chars\r
+    007034  0a   007024 7100 00   4457         tra     copy_words+1    join copy_words case\r
+                                  4458  "\r
+                                  4459  "      operator to multiply single precision fixed number in q\r
+                                  4460  "      by double precision fixed number pointed at by bp\r
+                                  4461  "\r
+    007035  aa   000000 6210 00   4462  mpfx2: eax1    0               set for positive sign\r
+    007036  aa   000044 7770 00   4463         llr     36              shift multiplier to a\r
+    007037  aa   000003 6050 04   4464         tpl     3,ic            skip if positive\r
+    007040  aa   000000 5310 00   4465         neg     0               neg, force positive\r
+    007041  aa   000001 6210 00   4466         eax1    1               flip sign of result\r
+    007042  aa  6 00076 7551 00   4467         sta     sp|temp         save multiplier\r
+    007043  aa  2 00000 2371 00   4468         ldaq    bp|0            get multiplicand\r
+    007044  aa   000003 6050 04   4469         tpl     3,ic            skip if positive\r
+    007045  aa   000000 5330 00   4470         negl    0               neg, force positive\r
+    007046  aa   000001 6610 03   4471         erx1    1,du            flip sign of answer\r
+    007047  aa   200000 3150 03   4472         cana    =o200000,du     remember high order bit\r
+    007050  aa   000002 6000 04   4473         tze     2,ic\r
+    007051  aa   000002 2610 03   4474         orx1    2,du\r
+    007052  aa   000001 7770 00   4475         llr     1               get high order bit of q into q\r
+    007053  aa   000001 7720 00   4476         qrl     1               get zero in s bit of q\r
+    007054  0a   001650 3750 00   4477         ana     mask_bit+2      and zero in s bit of a\r
+    007055  aa  6 00065 7551 00   4478         sta     sp|t5           save upper half\r
+    007056  aa  6 00076 4021 00   4479         mpy     sp|temp         form lower product\r
+    007057  aa  6 00074 7571 00   4480         staq    sp|lv           save for later\r
+    007060  aa  6 00065 2361 00   4481         ldq     sp|t5           get upper half\r
+    007061  aa  6 00076 4021 00   4482         mpy     sp|temp         form upper product\r
+    007062  aa   000000 1150 07   4483         cmpa    0,dl            a should be clear\r
+    007063  0a   007200 6010 00   4484         tnz     mult_overflow\r
+    007064  aa   000043 7370 00   4485         lls     35              and shift to position\r
+    007065  aa  6 00074 0771 00   4486         adaq    sp|lv           add lower product\r
+    007066  aa  6 00074 7571 00   4487         staq    sp|lv           and save\r
+    007067  0a   001426 2370 00   4488         ldaq    bit_mask                multiply lower by high order bit\r
+    007070  aa   000002 3010 03   4489         canx1   2,du\r
+    007071  aa   000002 6000 04   4490         tze     2,ic\r
+    007072  aa  6 00076 2361 00   4491         ldq     sp|temp\r
+    007073  aa   000106 7370 00   4492         lls     70              shift to position (should give only 1 bit)\r
+    007074  0a   007200 6030 00   4493         trc     mult_overflow\r
+    007075  aa  6 00074 0771 00   4494         adaq    sp|lv           add back rest of number\r
+    007076  aa   000001 3010 03   4495         canx1   1,du            check result of answer\r
+    007077  aa   000003 6010 04   4496         tnz     3,ic            jump if -\r
+    007100  0a   001426 1170 00   4497         cmpaq   bit_mask                set indicators\r
+    007101  aa  6 00046 7101 70   4498         tra     sp|tbp,*0               return\r
+    007102  aa   000000 5330 00   4499         negl    0               negate\r
+    007103  aa  6 00046 7101 70   4500         tra     sp|tbp,*0               and return to pl/1 program\r
+                                  4501  "\r
+                                  4502  "      operator to multiply double precison fixed integer in aq\r
+                                  4503  "      by double precsion fixed number pointed at by bp.\r
+                                  4504  "\r
+    007104  aa   000000 6210 00   4505  mpfx3: eax1    0               set positive sign\r
+    007105  aa   000000 1150 03   4506         cmpa    0,du            skip if number positive\r
+    007106  aa   000003 6050 04   4507         tpl     3,ic\r
+    007107  aa   000000 5330 00   4508         negl    0               neg, force positive\r
+    007110  aa   000001 6210 00   4509         eax1    1               flip sign of answer\r
+    007111  aa   200000 3150 03   4510         cana    =o200000,du     remember high order bit\r
+    007112  aa   000002 6000 04   4511         tze     2,ic\r
+    007113  aa   000002 2610 03   4512         orx1    2,du\r
+    007114  aa   000001 7770 00   4513         llr     1               split into 2 35 bit pos numbers\r
+    007115  aa   000001 7720 00   4514         qrl     1\r
+    007116  0a   001650 3750 00   4515         ana     mask_bit+2\r
+    007117  aa  6 00064 7551 00   4516         sta     sp|t1           save for later\r
+    007120  aa  6 00066 7561 00   4517         stq     sp|t2\r
+    007121  aa  2 00000 2371 00   4518         ldaq    bp|0            get multplier\r
+    007122  aa   000003 6050 04   4519         tpl     3,ic            force positive\r
+    007123  aa   000000 5330 00   4520         negl    0\r
+    007124  aa   000001 6610 03   4521         erx1    1,du            and set answer sign\r
+    007125  aa   200000 3150 03   4522         cana    =o200000,du     remember high order bit\r
+    007126  aa   000002 6000 04   4523         tze     2,ic\r
+    007127  aa   000004 2610 03   4524         orx1    4,du\r
+    007130  aa   000001 7770 00   4525         llr     1               split\r
+    007131  aa   000001 7720 00   4526         qrl     1\r
+    007132  0a   001650 3750 00   4527         ana     mask_bit+2\r
+    007133  aa  6 00063 7551 00   4528         sta     sp|t3           save for later\r
+    007134  aa  6 00077 7561 00   4529         stq     sp|t4\r
+    007135  aa  6 00066 4021 00   4530         mpy     sp|t2           form lower product\r
+    007136  aa  6 00074 7571 00   4531         staq    sp|lv           and save\r
+    007137  aa  6 00063 2361 00   4532         ldq     sp|t3           form first upper product\r
+    007140  aa  6 00066 4021 00   4533         mpy     sp|t2\r
+    007141  aa   000000 1150 07   4534         cmpa    0,dl            a should be clear\r
+    007142  0a   007200 6010 00   4535         tnz     mult_overflow\r
+    007143  aa   000043 7370 00   4536         lls     35              and add to lower\r
+    007144  aa  6 00074 0771 00   4537         adaq    sp|lv\r
+    007145  aa  6 00074 7571 00   4538         staq    sp|lv           save partial answer\r
+    007146  aa  6 00064 2361 00   4539         ldq     sp|t1           form second upper product\r
+    007147  aa  6 00077 4021 00   4540         mpy     sp|t4\r
+    007150  aa   000000 1150 07   4541         cmpa    0,dl\r
+    007151  0a   007200 6010 00   4542         tnz     mult_overflow\r
+    007152  aa   000043 7370 00   4543         lls     35              shift to position\r
+    007153  aa  6 00074 0771 00   4544         adaq    sp|lv           add previous part\r
+    007154  aa  6 00074 7571 00   4545         staq    sp|lv           and save again\r
+    007155  aa  6 00063 2361 00   4546         ldq     sp|t3           form upper upper product\r
+    007156  aa  6 00064 4021 00   4547         mpy     sp|t1           which may only give one bit\r
+    007157  aa   000002 3010 03   4548         canx1   2,du\r
+    007160  aa   000002 6000 04   4549         tze     2,ic\r
+    007161  aa  6 00077 0761 00   4550         adq     sp|t4\r
+    007162  aa   000004 3010 03   4551         canx1   4,du\r
+    007163  aa   000002 6000 04   4552         tze     2,ic\r
+    007164  aa  6 00066 0761 00   4553         adq     sp|t2\r
+    007165  aa   000000 1150 07   4554         cmpa    0,dl            a should be clear\r
+    007166  0a   007200 6010 00   4555         tnz     mult_overflow\r
+    007167  aa   000106 7370 00   4556         lls     70              shift to position\r
+    007170  0a   007200 6030 00   4557         trc     mult_overflow\r
+    007171  aa  6 00074 0771 00   4558         adaq    sp|lv           and add it in\r
+    007172  aa   000001 3010 03   4559         canx1   1,du            should answer be neg\r
+    007173  aa   000003 6010 04   4560         tnz     3,ic            yes, jump\r
+    007174  0a   001426 1170 00   4561         cmpaq   bit_mask                set indicators\r
+    007175  aa  6 00046 7101 70   4562         tra     sp|tbp,*0       return\r
+    007176  aa   000000 5330 00   4563         negl    0               set minus sign\r
+    007177  aa  6 00046 7101 70   4564         tra     sp|tbp,*0               and return\r
+                                  4565  "\r
+    007200                        4566  mult_overflow:\r
+    007200  aa  6 00070 7531 00   4567         sreg    sp|save_regs\r
+    007201  0a   006367 7070 00   4568         tsx7    signal_overflow\r
+    007202                        4569  use_first:\r
+    007202  aa  6 00070 0731 00   4570         lreg    sp|save_regs\r
+    007203  0a   001426 1170 00   4571         cmpaq   bit_mask                set indicators properly\r
+    007204  aa  6 00046 7101 70   4572         tra     sp|tbp,*0\r
+                                  4573  "\r
+                                  4574  "      operator to perform string range check.  entered with\r
+                                  4575  "              length of string (k) in q\r
+                                  4576  "              bp|0    pointing at i (2nd arg of substr)\r
+                                  4577  "              bp|1    pointing at j (3rd arg of substr)\r
+                                  4578  "      exit with new value of j in q\r
+                                  4579  "\r
+    007205                        4580  sr_check:\r
+    007205  aa  6 00037 4401 00   4581         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007206  aa  6 00062 7561 00   4582         stq     sp|bit_lg1      save k\r
+    007207  aa  2 00000 2361 00   4583         ldq     bp|0            form i' = i - 1\r
+    007210  aa   000001 1760 07   4584         sbq     1,dl\r
+    007211  aa  2 00000 7561 00   4585         stq     bp|0            and save\r
+    007212  0a   007244 6040 00   4586         tmi     sr_2            signal if i' < 0\r
+    007213  aa  6 00062 1161 00   4587         cmpq    sp|bit_lg1      signal if i' >= k\r
+    007214  0a   007244 6050 00   4588         tpl     sr_2\r
+    007215  aa  2 00001 2361 00   4589         ldq     bp|1            get j\r
+    007216  0a   007232 6040 00   4590         tmi     sr_3            signal if j < 0\r
+    007217  aa  6 00062 1161 00   4591         cmpq    sp|bit_lg1      signal if j > k\r
+    007220  aa   000002 6040 04   4592         tmi     2,ic\r
+    007221  0a   007232 6010 00   4593         tnz     sr_3\r
+    007222  aa  2 00000 0761 00   4594         adq     bp|0            form i' + j\r
+    007223  aa  6 00062 1161 00   4595         cmpq    sp|bit_lg1      return if i' + j <= k\r
+    007224  aa   000002 6000 04   4596         tze     2,ic\r
+    007225  0a   007232 6050 00   4597         tpl     sr_3\r
+    007226  aa  2 00001 2361 00   4598         ldq     bp|1            exit with value of j\r
+    007227  aa  6 00037 7201 00   4599  z_done:        lxl0    sp|stack_frame.operator_ret_ptr restore return offset\r
+    007230  aa  6 00037 4501 00   4600         stz     sp|stack_frame.operator_ret_ptr and clear record\r
+    007231  aa  6 00046 7101 70   4601         tra     sp|tbp,*0\r
+                                  4602  "\r
+    007232  0a   007251 7000 00   4603  sr_3:  tsx0    string_signal\r
+    007233  aa  6 00062 2361 00   4604         ldq     sp|bit_lg1      get min(k-i+1,j)\r
+    007234  aa  2 00000 1761 00   4605         sbq     bp|0\r
+    007235  aa  2 00001 1161 00   4606         cmpq    bp|1\r
+    007236  aa   000002 6040 04   4607         tmi     2,ic\r
+    007237  aa  2 00001 2361 00   4608         ldq     bp|1\r
+    007240  aa   000000 1160 07   4609         cmpq    0,dl            use zero if q < 0\r
+    007241  aa   000002 6050 04   4610         tpl     2,ic\r
+    007242  aa   000000 2360 07   4611         ldq     0,dl\r
+    007243  0a   007227 7100 00   4612         tra     z_done          return\r
+                                  4613  "\r
+    007244  0a   007251 7000 00   4614  sr_2:  tsx0    string_signal\r
+    007245  aa   000000 2360 07   4615         ldq     0,dl            use j = 0\r
+    007246  0a   007227 7100 00   4616         tra     z_done          return\r
+                                  4617  "\r
+    007247                        4618  signal_stringrange:\r
+    007247  aa  6 00037 4401 00   4619         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007250  0a   007227 6200 00   4620         eax0    z_done          set return ptr and fall into string_signal\r
+                                  4621  "\r
+    007251                        4622  string_signal:\r
+    007251  aa  6 00076 7401 00   4623         stx0    sp|temp         save x0\r
+    007252  aa  6 00074 2521 00   4624         spribp  sp|lv           and bp\r
+    007253  aa   000013 7260 07   4625         lxl6    11,dl           get length of condition\r
+    007254  0a   007262 3520 00   4626         eppbp   strg            get ptr to condition name\r
+    007255  aa   001275 2360 07   4627         ldq     =701,dl         load oncode value\r
+    007256  0a   011251 7010 00   4628         tsx1    call_signal_    signal "stringrange"\r
+    007257  aa  6 00076 2201 00   4629         ldx0    sp|temp         restore x0\r
+    007260  aa  6 00074 3521 20   4630         eppbp   sp|lv,*         and bp\r
+    007261  aa   000000 7100 10   4631         tra     0,0             and return\r
+    007262  aa  163 164 162 151   4632  strg:  aci     "stringrange"\r
+    007263  aa  156 147 162 141\r
+    007264  aa  156 147 145 000\r
+                                  4633  "\r
+                                  4634  "      non-local transfer operator.  entered with bp pointing\r
+                                  4635  "      at destination and number of stack levels to pop in x7.\r
+                                  4636  "\r
+    007265                        4637  tra_ext_1:\r
+    007265  aa   000000 6360 17   4638         eaq     0,7             move number of levels to ql\r
+    007266  aa   000022 7720 00   4639         qrl     18\r
+    007267  aa  6 00074 2521 00   4640         spribp  sp|lv           save ptr to destination\r
+    007270  0a   005674 7010 00   4641         tsx1    display_chase   get ptr to stack frame\r
+    007271  aa  6 00076 2521 00   4642         spribp  sp|lv+2         finish the label variable\r
+    007272  aa  6 00074 3521 00   4643         eppbp   sp|lv           fall into unwinder_ call\r
+                                  4644  "\r
+                                  4645  "      non-local transfer operator.  entered with bp pointing\r
+                                  4646  "      at a label variable.\r
+                                  4647  "\r
+    007273                        4648  tra_ext_2:\r
+    007273  aa  6 00072 2521 00   4649         spribp  sp|arg_list+2   save ptr to label var\r
+    007274  aa   004000 4310 07   4650         fld     2*1024,dl               there are 2 args\r
+    007275  aa  6 00070 7571 00   4651         staq    sp|arg_list     ..\r
+    007276  aa  6 00070 3501 00   4652         eppap   sp|arg_list     get ptr to arg_list\r
+    007277  0a   011331 7010 00   4653         tsx1    get_our_lp      get ptr to our linkage\r
+    007300  4a  4 00270 7101 20   4654         tra     <unwinder_>|[unwinder_] go unwind stack\r
+                                  4655  "\r
+                                  4656  "      operator to assign auto adjustable variables at end of stack\r
+                                  4657  "      frame.  entered with number of words in q, exit with pointer\r
+                                  4658  "      to storage in bp.\r
+                                  4659  "\r
+    007301                        4660  alloc_auto_adj:\r
+    007301  aa   000017 6360 06   4661         eaq     15,ql           make size a multiple of 16\r
+    007302  aa   777760 3760 03   4662         anq     =o777760,du     ..\r
+                                  4663         get_stack_offset\r
+    007303  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    007304  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    007305  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    007306  aa  6 00004 3521 20   4664         eppbp   sp|4,*          get ptr to storage\r
+    007307  aa  6 00005 0361 00   4665         adlq    sp|5            get new end of stackframe\r
+    007310  aa  6 00023 7561 00   4666         stq     sp|stack_frame.next_sp+1 update next sp ptr\r
+    007311  aa  6 00025 7561 01   4667         stq     sp|stack_header.stack_end_ptr+1,au update stack end ptr also\r
+    007312  aa  6 00005 7561 00   4668         stq     sp|5            and set to remember this storage\r
+    007313  aa  6 00046 7101 70   4669         tra     sp|tbp,*0               return to caller\r
+                                  4670  "\r
+                                  4671  "      floating point mod operators entered with x in eaq and\r
+                                  4672  "      bp pointing at y.  mod(x,y) = if y = 0 then x else x - floor(x/y)*y\r
+                                  4673  "\r
+    007314  aa  2 00000 4301 00   4674  mdfl1: fszn    bp|0            return x if y = 0\r
+    007315  0a   007333 6000 00   4675         tze     mdfl1a\r
+    007316  aa  6 00076 4551 00   4676         fst     sp|temp         save x\r
+    007317  aa  2 00000 5651 00   4677         fdv     bp|0            divide x/y\r
+    007320  aa   000003 6040 04   4678         tmi     3,ic            get floor\r
+    007321  aa   216000 4750 03   4679         fad     =71b25,du\r
+    007322  aa   000005 7100 04   4680         tra     5,ic\r
+    007323  aa   000000 5130 00   4681         fneg\r
+    007324  0a   012446 4750 00   4682         fad     almost_one\r
+    007325  aa   216000 4750 03   4683         fad     =71b25,du\r
+    007326  aa   000000 5130 00   4684         fneg\r
+    007327  aa  2 00000 4611 00   4685         fmp     bp|0            form floor(x/y)*y\r
+    007330  aa   000000 5130 00   4686         fneg\r
+    007331  aa  6 00076 4751 00   4687         fad     sp|temp         form answer\r
+    007332  aa  6 00046 7101 70   4688         tra     sp|tbp,*0               and return\r
+    007333  aa   400000 5150 03   4689  mdfl1a:        fcmp    =0.0,du         set indicators properly\r
+    007334  aa  6 00046 7101 70   4690         tra     sp|tbp,*0\r
+                                  4691  "\r
+    007335  aa  6 00076 4571 00   4692  mdfl2: dfst    sp|temp         save x\r
+    007336  aa  2 00000 4331 00   4693         dfld    bp|0            get y\r
+    007337  0a   007352 6000 00   4694         tze     mdfl2a          return x if y = 0\r
+    007340  aa  6 00076 5271 00   4695         dfdi    sp|temp         divide x/y\r
+    007341  aa   000003 6040 04   4696         tmi     3,ic            form floor\r
+    007342  0a   012450 4770 00   4697         dfad    k71b25\r
+    007343  aa   000005 7100 04   4698         tra     5,ic\r
+    007344  aa   000000 5130 00   4699         fneg\r
+    007345  0a   012446 4770 00   4700         dfad    almost_one\r
+    007346  0a   012450 4770 00   4701         dfad    k71b25\r
+    007347  aa   000000 5130 00   4702         fneg\r
+    007350  aa  2 00000 4631 00   4703         dfmp    bp|0            form floor(x/y)*y\r
+    007351  aa   000000 5130 00   4704         fneg\r
+    007352  aa  6 00076 4771 00   4705  mdfl2a:        dfad    sp|temp         form answer\r
+    007353  aa  6 00046 7101 70   4706         tra     sp|tbp,*0               and return\r
+                                  4707  "\r
+                                  4708  "      real truncation operator\r
+                                  4709  "\r
+    007354                        4710  trunc_fl:\r
+    007354  aa   000003 6040 04   4711         tmi     3,ic\r
+    007355  aa   216000 4750 03   4712         fad     =71b25,du\r
+    007356  aa  6 00046 7101 70   4713         tra     sp|tbp,*0\r
+    007357  aa   000000 5130 00   4714         fneg\r
+    007360  aa   216000 4750 03   4715         fad     =71b25,du\r
+    007361  aa   000000 5130 00   4716         fneg\r
+    007362  aa  6 00046 7101 70   4717         tra     sp|tbp,*0\r
+                                  4718  "\r
+                                  4719  "      single precision fixed truncate, entered with scale in x2\r
+                                  4720  "\r
+    007363                        4721  trunc_fx1:\r
+    007363  aa   000000 1160 07   4722         cmpq    0,dl\r
+    007364  aa   000003 6040 04   4723         tmi     3,ic\r
+    007365  aa   000000 7320 12   4724         qrs     0,2\r
+    007366  aa  6 00046 7101 70   4725         tra     sp|tbp,*0\r
+    007367  aa  6 00076 7561 00   4726         stq     sp|temp\r
+    007370  aa  6 00076 3361 00   4727         lcq     sp|temp\r
+    007371  aa   000000 7320 12   4728         qrs     0,2\r
+    007372  aa  6 00076 7561 00   4729         stq     sp|temp\r
+    007373  aa  6 00076 3361 00   4730         lcq     sp|temp\r
+    007374  aa  6 00046 7101 70   4731         tra     sp|tbp,*0\r
+                                  4732  "\r
+                                  4733  "      double precision fixed truncate, entered with scale in x2\r
+                                  4734  "\r
+    007375                        4735  trunc_fx2:\r
+    007375  0a   001426 1170 00   4736         cmpaq   bit_mask\r
+    007376  aa   000003 6040 04   4737         tmi     3,ic\r
+    007377  aa   000000 7330 12   4738         lrs     0,2\r
+    007400  aa  6 00046 7101 70   4739         tra     sp|tbp,*0\r
+    007401  aa   000000 5330 00   4740         negl\r
+    007402  aa   000000 7330 12   4741         lrs     0,2\r
+    007403  aa   000000 5330 00   4742         negl\r
+    007404  aa  6 00046 7101 70   4743         tra     sp|tbp,*0\r
+                                  4744  "\r
+                                  4745  "      operators to do floating point floor and ceiling functions\r
+                                  4746  "      these use the relations\r
+                                  4747  "              floor(-x) = -ceil(|x|)\r
+                                  4748  "              ceil(-x) = -floor(|x|)\r
+                                  4749  "\r
+    007405                        4750  floor_fl:\r
+    007405  aa   000003 6040 04   4751         tmi     3,ic\r
+    007406  aa   216000 4750 03   4752         fad     =71b25,du\r
+    007407  aa  6 00046 7101 70   4753         tra     sp|tbp,*0\r
+    007410  aa   000000 5130 00   4754         fneg\r
+    007411  0a   012446 4770 00   4755         dfad    almost_one\r
+    007412  aa   216000 4750 03   4756         fad     =71b25,du\r
+    007413  aa   000000 5130 00   4757         fneg\r
+    007414  aa  6 00046 7101 70   4758         tra     sp|tbp,*0\r
+                                  4759  "\r
+    007415                        4760  ceil_fl:\r
+    007415  aa   000004 6040 04   4761         tmi     4,ic\r
+    007416  0a   012446 4770 00   4762         dfad    almost_one\r
+    007417  aa   216000 4750 03   4763         fad     =71b25,du\r
+    007420  aa  6 00046 7101 70   4764         tra     sp|tbp,*0\r
+    007421  aa   000000 5130 00   4765         fneg\r
+    007422  aa   216000 4750 03   4766         fad     =71b25,du\r
+    007423  aa   000000 5130 00   4767         fneg\r
+    007424  aa  6 00046 7101 70   4768         tra     sp|tbp,*0\r
+                                  4769  "\r
+                                  4770  "      operators to do single precision fixed floor and ceiling functions\r
+                                  4771  "      entered with argument in q register and scale in index 2\r
+                                  4772  \r
+    007425                        4773  floor_fx1:\r
+    007425  aa   000000 1160 07   4774         cmpq    0,dl\r
+    007426  aa   000003 6040 04   4775         tmi     3,ic\r
+    007427  aa   000000 7320 12   4776         qrs     0,2\r
+    007430  aa  6 00046 7101 70   4777         tra     sp|tbp,*0\r
+    007431  aa  6 00076 7561 00   4778         stq     sp|temp\r
+    007432  aa  6 00076 3361 00   4779         lcq     sp|temp\r
+    007433  aa   000044 1020 03   4780         cmpx2   36,du\r
+    007434  aa   000003 6044 04   4781         tmoz    3,ic\r
+    007435  0a   012061 0760 00   4782         adq     floor_ceil_mask+36\r
+    007436  aa   000002 7100 04   4783         tra     2,ic\r
+    007437  0a   012015 0760 12   4784         adq     floor_ceil_mask,2\r
+    007440  aa   000000 7320 12   4785         qrs     0,2\r
+    007441  aa  6 00076 7561 00   4786         stq     sp|temp\r
+    007442  aa  6 00076 3361 00   4787         lcq     sp|temp\r
+    007443  aa  6 00046 7101 70   4788         tra     sp|tbp,*0\r
+                                  4789  "\r
+    007444                        4790  ceil_fx1:\r
+    007444  aa   000000 1160 07   4791         cmpq    0,dl\r
+    007445  aa   000010 6040 04   4792         tmi     8,ic\r
+    007446  aa   000044 1020 03   4793         cmpx2   36,du\r
+    007447  aa   000003 6044 04   4794         tmoz    3,ic\r
+    007450  0a   012061 0760 00   4795         adq     floor_ceil_mask+36\r
+    007451  aa   000002 7100 04   4796         tra     2,ic\r
+    007452  0a   012015 0760 12   4797         adq     floor_ceil_mask,2\r
+    007453  aa   000000 7320 12   4798         qrs     0,2\r
+    007454  aa  6 00046 7101 70   4799         tra     sp|tbp,*0\r
+    007455  aa  6 00076 7561 00   4800         stq     sp|temp\r
+    007456  aa  6 00076 3361 00   4801         lcq     sp|temp\r
+    007457  aa   000000 7320 12   4802         qrs     0,2\r
+    007460  aa  6 00076 7561 00   4803         stq     sp|temp\r
+    007461  aa  6 00076 3361 00   4804         lcq     sp|temp\r
+    007462  aa  6 00046 7101 70   4805         tra     sp|tbp,*0\r
+                                  4806  "\r
+                                  4807  "      operators do double precision fixed floor and ceiling functions\r
+                                  4808  "      entered with argument in aq register, scale in index 2, and -2*scale\r
+                                  4809  "      in index 3\r
+                                  4810  "\r
+    007463                        4811  floor_fx2:\r
+    007463  0a   001426 1170 00   4812         cmpaq   bit_mask\r
+    007464  aa   000003 6040 04   4813         tmi     3,ic\r
+    007465  aa   000000 7330 12   4814         lrs     0,2\r
+    007466  aa  6 00046 7101 70   4815         tra     sp|tbp,*0\r
+    007467  aa   000000 5330 00   4816         negl\r
+    007470  aa   777560 1030 03   4817         cmpx3   -144,du\r
+    007471  aa   000003 6050 04   4818         tpl     3,ic\r
+    007472  0a   001646 0770 00   4819         adaq    mask_bit\r
+    007473  aa   000002 7100 04   4820         tra     2,ic\r
+    007474  0a   002066 0770 13   4821         adaq    mask_bit+144,3\r
+    007475  aa   000000 7330 12   4822         lrs     0,2\r
+    007476  aa   000000 5330 00   4823         negl\r
+    007477  aa  6 00046 7101 70   4824         tra     sp|tbp,*0\r
+                                  4825  "\r
+    007500                        4826  ceil_fx2:\r
+    007500  0a   001426 1170 00   4827         cmpaq   bit_mask\r
+    007501  aa   000010 6040 04   4828         tmi     8,ic\r
+    007502  aa   777560 1030 03   4829         cmpx3   -144,du\r
+    007503  aa   000003 6050 04   4830         tpl     3,ic\r
+    007504  0a   001646 0770 00   4831         adaq    mask_bit\r
+    007505  aa   000002 7100 04   4832         tra     2,ic\r
+    007506  0a   002066 0770 13   4833         adaq    mask_bit+144,3\r
+    007507  aa   000000 7330 12   4834         lrs     0,2\r
+    007510  aa  6 00046 7101 70   4835         tra     sp|tbp,*0\r
+    007511  aa   000000 5330 00   4836         negl\r
+    007512  aa   000000 7330 12   4837         lrs     0,2\r
+    007513  aa   000000 5330 00   4838         negl\r
+    007514  aa  6 00046 7101 70   4839         tra     sp|tbp,*0\r
+                                  4840  "\r
+                                  4841  "      operator to round single fixed binary\r
+                                  4842  "      entered with (scale - k) in index 7\r
+                                  4843  "\r
+    007515                        4844  round_fx1:\r
+    007515  aa   000000 1160 07   4845         cmpq    0,dl            set indicators\r
+    007516  0a   007532 6040 00   4846         tmi     round_fx1b      skip if negative\r
+    007517  aa   000000 6210 00   4847         eax1    0               remember was positive\r
+    007520                        4848  round_fx1a:\r
+    007520  aa  6 00076 7561 00   4849         stq     sp|temp         save abs(arg)\r
+    007521  aa   000001 2360 07   4850         ldq     1,dl            form 1/2 at proper scale\r
+    007522  aa   777777 7360 17   4851         qls     -1,7\r
+    007523  aa  6 00076 0761 00   4852         adq     sp|temp         add abs(arg)\r
+    007524  aa   000000 7320 17   4853         qrs     0,7             drop bits to right\r
+    007525  aa   000000 1010 03   4854         cmpx1   0,du            was arg positive\r
+    007526  aa  6 00046 6001 70   4855         tze     sp|tbp,*0               yes, can return\r
+    007527  aa  6 00076 7561 00   4856         stq     sp|temp         arg was negative, negate result\r
+    007530  aa  6 00076 3361 00   4857         lcq     sp|temp\r
+    007531  aa  6 00046 7101 70   4858         tra     sp|tbp,*0               before returning\r
+    007532                        4859  round_fx1b:\r
+    007532  aa  6 00076 7561 00   4860         stq     sp|temp         get abs(arg)\r
+    007533  aa  6 00076 3361 00   4861         lcq     sp|temp\r
+    007534  aa   000001 6210 00   4862         eax1    1               remember arg was negative\r
+    007535  0a   007520 7100 00   4863         tra     round_fx1a      and join positive case\r
+                                  4864  "\r
+                                  4865  "      operator to round double fixed binary\r
+                                  4866  "      entered with (scale - k) in index 7\r
+                                  4867  "\r
+    007536                        4868  round_fx2:\r
+    007536  0a   001426 1170 00   4869         cmpaq   bit_mask                set indicators\r
+    007537  0a   007550 6040 00   4870         tmi     round_fx2b      skip if negative\r
+    007540  aa   000000 6210 00   4871         eax1    0               remember arg was positive\r
+    007541                        4872  round_fx2a:\r
+    007541  aa  6 00076 7571 00   4873         staq    sp|temp         save abs(arg)\r
+    007542  0a   012444 2370 00   4874         ldaq    one             form 1/2 at proper scale\r
+    007543  aa   777777 7370 17   4875         lls     -1,7\r
+    007544  aa  6 00076 0771 00   4876         adaq    sp|temp         add abs(arg)\r
+    007545  aa   000000 7330 17   4877         lrs     0,7             drop bits to right\r
+    007546  0a   006530 7160 11   4878         xec     sign_change,1   put back proper sign\r
+    007547  aa  6 00046 7101 70   4879         tra     sp|tbp,*0               and return\r
+    007550                        4880  round_fx2b:\r
+    007550  aa   000000 5330 00   4881         negl    0               take abs(arg)\r
+    007551  aa   000001 6210 00   4882         eax1    1               remember arg was negative\r
+    007552  0a   007541 7100 00   4883         tra     round_fx2a      join positive case\r
+                                  4884  "\r
+                                  4885  "      operator to compute round(x,k) for floating point values.\r
+                                  4886  "      entered with x in eaq and k immediately following tsx0\r
+                                  4887  "\r
+    007553                        4888  round_fl:\r
+    007553  aa   000000 6210 00   4889         eax1    0               assume sign +\r
+    007554  aa  6 00046 3521 70   4890         eppbp   sp|tbp,*0               get ptr to K in lhs\r
+    007555  aa   400000 5150 03   4891         fcmp    =0.0,du\r
+    007556  aa  2 00001 6001 00   4892         tze     bp|1            return if 0\r
+    007557  aa   000003 6050 04   4893         tpl     3,ic\r
+    007560  aa   000000 5130 00   4894         fneg    0               get abs value\r
+    007561  aa   000001 6210 00   4895         eax1    1\r
+    007562  aa  2 00000 2201 00   4896         ldx0    bp|0            load k\r
+    007563  aa  6 00076 4571 00   4897         dfst    sp|temp         save value\r
+    007564  aa   200000 2350 03   4898         lda     =o200000,du     get bit in proper position\r
+    007565  aa   000000 2360 07   4899         ldq     0,dl\r
+    007566  aa   000000 7330 10   4900         lrs     0,0             shift\r
+    007567  aa  6 00076 4771 00   4901         dfad    sp|temp         perform rounding\r
+    007570  aa  2 00000 0601 00   4902         adx0    bp|0            get 2*k\r
+    007571  0a   001430 3770 10   4903         anaq    bit_mask+2,0    erase low order bits\r
+    007572  0a   007574 7160 11   4904         xec     fl_sign_change,1        put back correct sign\r
+    007573  aa  2 00001 7101 00   4905         tra     bp|1            and return\r
+                                  4906  "\r
+    007574                        4907  fl_sign_change:\r
+    007574  aa   000000 0110 00   4908         nop     0\r
+    007575  aa   000000 5130 00   4909         fneg    0\r
+                                  4910  "\r
+                                  4911  "      Operator to round a floating point number to the nearest whole\r
+                                  4912  "      number.  Entered with value in EAQ and indicators set.  Result in\r
+                                  4913  "      EAQ.\r
+                                  4914  "\r
+    007576                        4915  nearest_whole_number:\r
+    007576  0a   007602 6040 00   4916         tmi     nearest_whole_negative\r
+    007577  aa   000400 4750 03   4917         fad     =0.5,du\r
+    007600  aa   216000 4750 03   4918         fad     =71b25,du\r
+    007601  aa  6 00046 7101 70   4919         tra     sp|tbp,*0\r
+                                  4920  \r
+    007602                        4921  nearest_whole_negative:\r
+    007602  aa   000000 5130 00   4922         fneg\r
+    007603  aa   000400 4750 03   4923         fad     =0.5,du\r
+    007604  aa   216000 4750 03   4924         fad     =71b25,du\r
+    007605  aa   000000 5130 00   4925         fneg\r
+    007606  aa  6 00046 7101 70   4926         tra     sp|tbp,*0\r
+                                  4927  "\r
+                                  4928  "      Operator to round a floating point number to the nearest integer.\r
+                                  4929  "      Entered with value in EAQ and indicators set.  Result in Q.\r
+                                  4930  "\r
+    007607                        4931  nearest_integer:\r
+    007607  0a   007613 6040 00   4932         tmi     nearest_integer_negative\r
+    007610  aa   000400 4750 03   4933         fad     =0.5,du\r
+    007611  aa   216000 4350 03   4934         ufa     =71b25,du\r
+    007612  aa  6 00046 7101 70   4935         tra     sp|tbp,*0\r
+                                  4936  \r
+    007613                        4937  nearest_integer_negative:\r
+    007613  aa   000000 5130 00   4938         fneg\r
+    007614  aa   000400 4750 03   4939         fad     =0.5,du\r
+    007615  aa   216000 4350 03   4940         ufa     =71b25,du\r
+    007616  aa   000000 5330 00   4941         negl\r
+    007617  aa  6 00046 7101 70   4942         tra     sp|tbp,*0\r
+                                  4943  \r
+                                  4944  "      Operator to convert a long bit string to double precision fixed binary.\r
+                                  4945  "      Entered with bit string previously setup.\r
+                                  4946  \r
+    007620                        4947  longbs_to_fx2:\r
+    007620  aa  6 00050 3521 20   4948         epp2    sp|temp_pt,*    " pr2 = ptr to string\r
+    007621  aa  6 00062 2361 00   4949         ldq     sp|bit_lg1      " q = length of string in bits\r
+    007622  aa  6 00076 4501 00   4950         stz     sp|temp         " clear high order bit of result\r
+    007623  aa  0 03100 0615 40   4951         csr     (pr,rl),(pr),bool(move),fill(0)\r
+    007624  aa   200000 000006    4952         descb   pr2|0,ql\r
+    007625  aa   600076 010107    4953         descb   sp|temp(1),71\r
+    007626  0a   007634 6014 00   4954         trtf    longbs_to_fx2_short     " Was string longer than 71 bits?\r
+    007627  aa   000107 1760 07   4955         sbq     71,dl           " Yes: Remove last 71 bits from string length\r
+    007630  aa  0 00000 0665 40   4956         cmpb    (pr,rl),(),fill(0)      " Make sure the leading bits are zero.\r
+    007631  aa   200000 000006    4957         descb   pr2|0,ql\r
+    007632  aa   000000 000000    4958         descb   0,0\r
+    007633  0a   007775 6010 00   4959         tnz     signal_size_condition\r
+    007634                        4960  longbs_to_fx2_short:\r
+    007634  aa  6 00076 2371 00   4961         ldaq    sp|temp         " aq = result\r
+    007635  aa  6 00046 7101 70   4962         tra     sp|tbp,*x0      " return\r
+                                  4963  \r
+                                  4964  "      Operator to convert a long bit string to bit 18 (used for ptr built-ins).\r
+                                  4965  "      Entered with bit string previously setup.\r
+                                  4966  \r
+    007636                        4967  longbs_to_bs18:\r
+    007636  aa  6 00050 3521 20   4968         epp2    sp|temp_pt,*    " pr2 = ptr to string\r
+    007637  aa  6 00062 2351 00   4969         lda     sp|bit_lg1      " a = length of string in bits\r
+    007640  aa  0 03100 0605 40   4970         csl     (pr,rl),(pr),bool(move),fill(0)\r
+    007641  aa   200000 000005    4971         descb   pr2|0,al\r
+    007642  aa   600076 000022    4972         descb   sp|temp,18\r
+    007643  aa  6 00076 2351 00   4973         lda     sp|temp         " au = first 18 bits of string\r
+    007644  0a   001472 3770 00   4974         anaq    bit_mask+2*18   " al, q = 0\r
+    007645  aa  6 00046 7101 70   4975         tra     sp|tbp,*x0      " return\r
+                                  4976  \r
+                                  4977  "      operator to convert a packed (single word) ptr to unpacked (its)\r
+                                  4978  "      enter with packed pointer in q, exit with its pair in aq\r
+                                  4979  "\r
+    007646                        4980  pk_to_unpk:\r
+    007646  aa  6 00074 7561 00   4981         stq     sp|lv           save packed ptr\r
+    007647  aa  6 00072 2521 00   4982         spribp  sp|temp2\r
+    007650  aa  6 00074 7621 00   4983         lprpbp  sp|lv           load packed ptr (get ring no right)\r
+    007651  aa  6 00070 2521 00   4984         spribp  sp|save_regs            store as unpacked ptr\r
+    007652  aa  6 00070 2371 00   4985         ldaq    sp|save_regs            load ITS pair into aq\r
+    007653  aa  6 00072 3521 20   4986         eppbp   sp|temp2,*      restore original bp\r
+    007654  aa  6 00046 7101 70   4987         tra     sp|tbp,*0\r
+                                  4988  "\r
+                                  4989  "      operator to convert an unpacked (its) ptr to packed (single word)\r
+                                  4990  "      enter with its pair in aq, exit with packed pointer in q\r
+                                  4991  "\r
+    007655                        4992  unpk_to_pk:\r
+    007655  aa   000022 7710 00   4993         arl     18\r
+    007656  aa   000022 7370 00   4994         lls     18\r
+    007657  aa   000003 7360 00   4995         qls     3\r
+    007660  aa   000036 7730 00   4996         lrl     30\r
+    007661  aa   000036 7760 00   4997         qlr     30\r
+    007662  aa  6 00046 7101 70   4998         tra     sp|tbp,*0\r
+                                  4999  "\r
+                                  5000  "      operator to load the packed pointer in q register into bp register\r
+                                  5001  "\r
+    007663                        5002  packed_to_bp:\r
+    007663  aa  6 00076 7561 00   5003         stq     sp|temp\r
+    007664  aa  6 00076 7621 00   5004         lprpbp  sp|temp\r
+    007665  aa  6 00046 7101 70   5005         tra     sp|tbp,*0               and return\r
+                                  5006  "\r
+                                  5007  "      The following operators are used to move a block of <= 256 elements\r
+                                  5008  "      They are entered with lp and bp pointing to source and destination\r
+                                  5009  "      and au holding value for x0 during rpd loop.\r
+                                  5010  "\r
+                                  5011  "      Single word items, lp -> source, bp -> destination\r
+                                  5012  "\r
+    007666  aa   000000 0110 03   5013         odd                     "to force rpd odd\r
+    007667                        5014  rpd_odd_lp_bp:\r
+    007667  aa  6 00037 4401 00   5015         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007670  aa   001400 6200 01   5016         eax0    rpd_bits,au     init rpd loop\r
+    007671  aa   000000 6210 00   5017         eax1    0\r
+    007672  aa   000000 6220 00   5018         eax2    0\r
+    007673  aa   000000 5602 01   5019         rpdx    0,1\r
+    007674  aa  4 00000 2351 11   5020         lda     lp|0,1\r
+    007675  aa  2 00000 7551 12   5021         sta     bp|0,2\r
+    007676  0a   007227 7100 00   5022         tra     z_done          return\r
+                                  5023  "\r
+                                  5024  "      Single word items, bp -> source, lp -> destination\r
+                                  5025  "\r
+                                  5026         odd                     "to force rpd odd\r
+    007677                        5027  rpd_odd_bp_lp:\r
+    007677  aa  6 00037 4401 00   5028         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007700  aa   001400 6200 01   5029         eax0    rpd_bits,au\r
+    007701  aa   000000 6210 00   5030         eax1    0\r
+    007702  aa   000000 6220 00   5031         eax2    0\r
+    007703  aa   000000 5602 01   5032         rpdx    0,1\r
+    007704  aa  2 00000 2351 11   5033         lda     bp|0,1\r
+    007705  aa  4 00000 7551 12   5034         sta     lp|0,2\r
+    007706  0a   007227 7100 00   5035         tra     z_done          return\r
+                                  5036  "\r
+                                  5037  "      Double word items, lp -> source, bp -> destination\r
+                                  5038  "\r
+                                  5039         odd                     "to force rpd odd\r
+    007707                        5040  rpd_even_lp_bp:\r
+    007707  aa  6 00037 4401 00   5041         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007710  aa   001400 6200 01   5042         eax0    rpd_bits,au     init rpd loop\r
+    007711  aa   000000 6210 00   5043         eax1    0\r
+    007712  aa   000000 6220 00   5044         eax2    0\r
+    007713  aa   000000 5602 02   5045         rpdx    0,2\r
+    007714  aa  4 00000 2371 11   5046         ldaq    lp|0,1\r
+    007715  aa  2 00000 7571 12   5047         staq    bp|0,2\r
+    007716  0a   007227 7100 00   5048         tra     z_done          return\r
+                                  5049  "\r
+                                  5050  "      Double word items, bp -> source, lp -> destination\r
+                                  5051  "\r
+                                  5052         odd                     "to force rpd odd\r
+    007717                        5053  rpd_even_bp_lp:\r
+    007717  aa  6 00037 4401 00   5054         sxl0    sp|stack_frame.operator_ret_ptr\r
+    007720  aa   001400 6200 01   5055         eax0    rpd_bits,au     init rpd loop\r
+    007721  aa   000000 6210 00   5056         eax1    0\r
+    007722  aa   000000 6220 00   5057         eax2    0\r
+    007723  aa   000000 5602 02   5058         rpdx    0,2\r
+    007724  aa  2 00000 2371 11   5059         ldaq    bp|0,1\r
+    007725  aa  4 00000 7571 12   5060         staq    lp|0,2\r
+    007726  0a   007227 7100 00   5061         tra     z_done          return\r
+                                  5062  "\r
+                                  5063  " \f\r
+                                  5064  "      The following macro is the trace macro.  It contains the calling\r
+                                  5065  "      sequence to trace.\r
+                                  5066  "\r
+                                  5067         macro   trace\r
+                              1   5068         ife     &1,trace_\r
+                              2   5069         epaq    *               get segment number of pl1_operators_\r
+                              3   5070         lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+                              4   5071         sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+                              5   5072         eppbp   sb|stack_header.stack_end_ptr,*\r
+                              6   5073         sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+                              7   5074         tspbp   trace_catch_$catch_pl1_\r
+                              8   5075         eppab   sb|stack_header.stack_end_ptr,*\r
+                              9   5076         lprpbp  ab|0            restore entry ptr\r
+                             10   5077         lprpab  ab|1            restore lisp linkage ptr\r
+                             11   5078  ifend\r
+                             12   5079         &end\r
+                                  5080  " \f\r
+                                  5081  " Macro to generate the ALM entry operator with or without the calling sequence for\r
+                                  5082  " trace_catch_$catch_pl1_.  When the ALM entry operator with the calling sequence for\r
+                                  5083  " trace is invoked it will allow trace to meter the ALM program and print its arguments\r
+                                  5084  " on entrance and exit.  (P. Krupp 09/20/77)\r
+                                  5085  \r
+                                  5086            macro     alm_entry_op\r
+                              1   5087  "         BEGIN MACRO alm_entry_op\r
+                              2   5088  &1alm_entry:\r
+                              3   5089            eppbp     bp|-1               generate pointer to entry structure\r
+                              4   5090         trace   &1\r
+                              5   5091         epplp   sb|stack_header.stack_end_ptr,* get a pointer to the next stack frame\r
+                              6   5092         spribp  lp|stack_frame.entry_ptr\r
+                              7   5093         epaq    bp|0            get seg no of object in a\r
+                              8   5094         lprplb  sb|stack_header.isot_ptr,*au get packed ptr to static from isot\r
+                              9   5095         sprplb  lp|stack_frame.static_ptr save in next stack frame\r
+                             10   5096         lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+                             11   5097         tra     bp|1            return to alm prog\r
+                             12   5098  "         END MACRO alm_entry_op\r
+                             13   5099            &end\r
+                                  5100  \r
+                                  5101  "      The following operators are used by ALM\r
+                                  5102  "      The order of the following operators must be maintained because of\r
+                                  5103  "      coding of default_error_handler_\r
+                                  5104  "\r
+    007727                        5105  alm_operators_begin:\r
+    007727                        5106  alm_call:\r
+    007727  aa  6 00024 6501 00   5107         sprilp  sp|stack_frame.return_ptr save return pointer\r
+    007730  aa  6 00025 7541 00   5108         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    007731  aa  6 00030 3701 20   5109         epplp   sp|stack_frame.lp_ptr,* set up our lp\r
+    007732  aa  2 00000 7131 00   5110         callsp  bp|0            do the call\r
+                                  5111  "\r
+    007733                        5112  alm_push:\r
+    007733  aa  7 00024 2521 20   5113         spribp  sb|stack_header.stack_end_ptr,* save return from operator\r
+    007734  aa  7 00024 3521 20   5114         eppbp   sb|stack_header.stack_end_ptr,* get pointer to new stack frame\r
+    007735  aa  2 00020 6521 00   5115         sprisp  bp|stack_frame.prev_sp save previous ptr in new frame\r
+    007736  aa  2 00032 2501 00   5116         spriap  bp|stack_frame.arg_ptr save argument ptr\r
+    007737  aa  2 00030 6501 00   5117         sprilp  bp|stack_frame.lp_ptr save linkage ptr\r
+    007740  aa  2 00000 3721 00   5118         eppsp   bp|0            move up to new frame\r
+    007741  aa  6 00000 3521 17   5119         eppbp   sp|0,7          get pointer to end of this new frame\r
+    007742  aa  7 00024 2521 00   5120         spribp  sb|stack_header.stack_end_ptr and update stack end pointer\r
+    007743  aa  6 00022 2521 00   5121         spribp  sp|stack_frame.next_sp and set next sp of new frame\r
+    007744  aa   000001 6270 00   5122         eax7    1               set ALM translator ID for debugging\r
+    007745  aa  6 00037 7471 00   5123         stx7    sp|stack_frame.translator_id\r
+    007746  aa  6 00000 7101 20   5124         tra     sp|0,*          return to alm program\r
+                                  5125  "\r
+                                  5126            alm_entry_op\r
+                                        "         BEGIN MACRO alm_entry_op\r
+    007747                              alm_entry:\r
+    007747  aa  2 77777 3521 00                   eppbp     bp|-1               generate pointer to entry structure\r
+                                               trace   \r
+    007750  aa  7 00024 3701 20                epplp   sb|stack_header.stack_end_ptr,* get a pointer to the next stack frame\r
+    007751  aa  4 00026 2521 00                spribp  lp|stack_frame.entry_ptr\r
+    007752  aa  2 00000 2131 00                epaq    bp|0            get seg no of object in a\r
+    007753  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get packed ptr to static from isot\r
+    007754  aa  4 00034 5451 00                sprplb  lp|stack_frame.static_ptr save in next stack frame\r
+    007755  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    007756  aa  2 00001 7101 00                tra     bp|1            return to alm prog\r
+                                        "         END MACRO alm_entry_op\r
+                                  5127  "\r
+    007757                        5128  alm_return:\r
+    007757                        5129         inhibit on\r
+    007757  aa  7 00024 6523 00   5130         sprisp  sb|stack_header.stack_end_ptr update stack end ptr\r
+    007760  aa  6 00020 3723 20   5131         eppsp   sp|stack_frame.prev_sp,* pop stack\r
+    007761                        5132         inhibit off\r
+    007761  aa  6 00000 3731 00   5133         epbpsb  sp|0            set up stack base in case we just switched stacks\r
+    007762  aa  6 00030 3501 20   5134         eppap   sp|stack_frame.operator_ptr,* set op ptr of frame being returned to\r
+    007763  aa  6 00025 6341 00   5135         ldi     sp|stack_frame.return_ptr+1     restore indicators for caller\r
+    007764  aa  6 00024 6101 00   5136         rtcd    sp|stack_frame.return_ptr return to calling program\r
+                                  5137  "\r
+    007765                        5138  alm_return_no_pop:\r
+    007765  aa  6 00000 3731 00   5139         epbpsb  sp|0            set up stack base in case returning to outer ring\r
+    007766  aa  6 00030 3501 20   5140         eppap   sp|stack_frame.operator_ptr,* set up operator ptr of frame being returned to\r
+    007767  aa  6 00025 6341 00   5141         ldi     sp|stack_frame.return_ptr+1     restore indicators for caller\r
+    007770  aa  6 00024 6101 00   5142         rtcd    sp|stack_frame.return_ptr return to calling program\r
+                                  5143  "\r
+    007771                        5144  alm_operators_end:\r
+                                  5145  " \f\r
+                                  5146  "\r
+                                  5147  "      operator to check size condition for single fixed binary\r
+                                  5148  "      entered with number in q and -precision in x7\r
+                                  5149  "      Registers modified: none\r
+                                  5150  "\r
+                                  5151  "      Algorithm: If a number is in range then all of the high order bits\r
+                                  5152  "      that are in the word but aren't in the precision range should not\r
+                                  5153  "      contain any useful information. IE they should all be zeros for\r
+                                  5154  "      positive numbers and all ones for negative numbers.\r
+                                  5155  "\r
+                                  5156  "      If we left shift out all of the higher order bits, then the carry\r
+                                  5157  "      flag is set if any of these bits change.\r
+                                  5158  "\r
+    007771                        5159  size_check_fx1:\r
+    007771  aa  6 00076 7571 00   5160         staq    sp|temp         save AQ\r
+    007772  aa  6 00055 7541 00   5161            sti       sp|temp_indicators  save indicators\r
+    007773  aa   000043 7360 17   5162            qls       35,x7              sample upper bits (35-precision)\r
+                                  5163  "                              C set if removed bits not all 0 or 1\r
+    007774  0a   010010 6020 00   5164         tnc     size_ok_fx      restore & return\r
+                                  5165  \r
+    007775                        5166  signal_size_condition:\r
+    007775  aa  6 00056 2521 00   5167         spribp  sp|double_temp\r
+    007776  0a   010060 3520 00   5168         eppbp   size_name               get ptr to name of condition\r
+    007777  aa  6 00072 7461 00   5169         stx6    sp|temp2                save x6\r
+    010000  aa   000004 6260 00   5170         eax6    size_length     and load size\r
+    010001  aa   001277 2360 07   5171         ldq     =703,dl         load oncode value\r
+    010002  aa  6 00037 4401 00   5172  ssc:   sxl0    sp|stack_frame.operator_ret_ptr save return offset\r
+    010003  0a   011251 7010 00   5173         tsx1    call_signal_\r
+    010004  aa  6 00072 2261 00   5174         ldx6    sp|temp2                restore x6\r
+    010005  aa  6 00056 3521 20   5175         eppbp   sp|double_temp,*        restore bp\r
+    010006  aa  6 00037 7201 00   5176         lxl0    sp|stack_frame.operator_ret_ptr\r
+    010007  aa  6 00037 4501 00   5177         stz     sp|stack_frame.operator_ret_ptr\r
+    010010                        5178  size_ok_fx:\r
+    010010  aa  6 00076 2371 00   5179         ldaq    sp|temp         restore AQ\r
+    010011  aa  6 00055 6341 00   5180         ldi     sp|temp_indicators  restore indicators\r
+    010012  aa  6 00046 7101 70   5181         tra     sp|tbp,*0               and return\r
+                                  5182  "\r
+                                  5183  "      operator to check size condition for double fixed binary\r
+                                  5184  "      entered with number in aq and -2*precision in x7\r
+                                  5185  "      Registers modified: none\r
+                                  5186  "\r
+    010013                        5187  size_check_fx2:\r
+    010013  aa  6 00076 7571 00   5188         staq    sp|temp         save AQ\r
+    010014  aa  6 00055 7541 00   5189         sti     sp|temp_indicators  save indicators\r
+    010015  aa  6 00055 7471 00   5190         stx7    sp|temp_indicators  save -2*precision, want -precision\r
+    010016  aa   000000 6350 17   5191         eaa     0,x7            cannot divide an Xreg, so use A\r
+    010017  aa   000001 7310 00   5192         ars     1               divide -2*precision by 2\r
+    010020  aa   000000 6270 01   5193         eax7    0,au            x7 now contains -precision\r
+    010021  aa  6 00076 2351 00   5194         lda     sp|temp         restore A (original)\r
+    010022  aa   000107 7370 17   5195         lls     71,x7           sample upper bits (71-prec)\r
+                                  5196  "                              C set if removed bits not all 0 or 1\r
+    010023  aa  6 00055 2271 00   5197         ldx7    sp|temp_indicators  restore x7 \r
+    010024  0a   007775 6030 00   5198         trc     signal_size_condition   if C set : |num| too big\r
+    010025  aa  6 00076 2371 00   5199         ldaq    sp|temp         restore AQ\r
+    010026  aa  6 00055 6341 00   5200         ldi     sp|temp_indicators  restore indicators\r
+    010027  aa  6 00046 7101 70   5201         tra     sp|tbp,*0               and return\r
+                                  5202  "\r
+                                  5203  "      operator to check size condition for unsigned single fixed binary\r
+                                  5204  "      entered with number in q and -precision in x7\r
+                                  5205  "      Registers modified: none\r
+                                  5206  "\r
+    010030                        5207  size_check_uns_fx1:\r
+    010030  aa  6 00076 7571 00   5208         staq    sp|temp         save AQ\r
+    010031  aa  6 00055 7541 00   5209         sti     sp|temp_indicators  save indicators\r
+    010032  0a   011751 1160 17   5210         cmpq    mask_bit_one+36,x7      check against table of max values\r
+    010033  0a   010010 6020 00   5211         tnc     size_ok_fx      magnitude less than max value\r
+    010034  0a   007775 6010 00   5212         tnz     signal_size_condition   greater than max value\r
+    010035  0a   010010 7100 00   5213         tra     size_ok_fx      equal to max value\r
+                                  5214  \r
+                                  5215  "\r
+                                  5216  "      operator to check size condition for unsigned double fixed binary\r
+                                  5217  "      entered with number in aq and -2*precision in x7\r
+                                  5218  "      Registers modified: none\r
+                                  5219  "\r
+    010036                        5220  size_check_uns_fx2:\r
+    010036  aa  6 00076 7571 00   5221         staq    sp|temp         save AQ\r
+    010037  aa  6 00055 7541 00   5222         sti     sp|temp_indicators  save indicators\r
+    010040  0a   002066 1170 17   5223         cmpaq   mask_bit+144,x7 check against table of max values\r
+    010041  0a   010010 6020 00   5224         tnc     size_ok_fx      magnitude less than max value\r
+    010042  0a   007775 6010 00   5225         tnz     signal_size_condition   greater than max value\r
+    010043  0a   010010 7100 00   5226         tra     size_ok_fx      equal to max value\r
+                                  5227  "                              \r
+                                  5228  "      operator to check if result of an 'mpy' exceeds one word.\r
+                                  5229  "      entered with result of 'mpy' in AQ.\r
+                                  5230  "\r
+    010044                        5231  mpy_overflow_check:\r
+    010044  aa  6 00076 7571 00   5232         staq    sp|temp         save AQ\r
+    010045  aa  6 00055 7541 00   5233         sti     sp|temp_indicators      save indicators\r
+    010046  aa   000044 7370 00   5234         lls     36              sets carry flag if result too big\r
+    010047  0a   010010 6020 00   5235         tnc     size_ok_fx      restore & return\r
+    010050  aa  6 00056 2521 00   5236         spribp  sp|double_temp  signal "fixedoverflow"\r
+    010051  0a   006402 3520 00   5237         eppbp   overflow_name\r
+    010052  aa  6 00072 7461 00   5238         stx6    sp|temp2\r
+    010053  aa   000015 6260 00   5239         eax6    overflow_length\r
+    010054  aa   001307 2360 07   5240         ldq     =711,dl\r
+    010055  0a   010002 7100 00   5241         tra     ssc\r
+                                  5242  "\r
+                                  5243  "      operator to signal "size" condition\r
+                                  5244  "\r
+    010056                        5245  signal_size:\r
+    010056  aa  6 00076 7571 00   5246         staq    sp|temp\r
+    010057  0a   007775 7100 00   5247         tra     signal_size_condition\r
+                                  5248  "\r
+    010060                        5249  size_name:\r
+    010060  aa  163 151 172 145   5250         aci     "size"\r
+                        000004    5251         equ     size_length,4\r
+                                  5252  "\r
+                                  5253  "      operator to signal "stringsize" condition\r
+                                  5254  "\r
+    010061                        5255  signal_stringsize:\r
+    010061  aa  6 00076 7571 00   5256         staq    sp|temp\r
+    010062  aa  6 00056 2521 00   5257         spribp  sp|double_temp\r
+    010063  aa  6 00072 7461 00   5258         stx6    sp|temp2\r
+    010064  0a   010070 3520 00   5259         eppbp   stringsize_name\r
+    010065  aa   000012 6260 00   5260         eax6    stringsize_length\r
+    010066  aa   001276 2360 07   5261         ldq     =702,dl\r
+    010067  0a   010002 7100 00   5262         tra     ssc\r
+                                  5263  "\r
+    010070                        5264  stringsize_name:\r
+    010070  aa  163 164 162 151   5265         aci     "stringsize"\r
+    010071  aa  156 147 163 151\r
+    010072  aa  172 145 000 000\r
+                        000012    5266         equ     stringsize_length,10\r
+                                  5267  "\r
+                                  5268  "      operator to request fortran external storage allocation and/or \r
+                                  5269  "           initialization.\r
+                                  5270  "\r
+    010073                        5271  fort_storage:\r
+    010073  aa  6 00056 6521 00   5272         spri6   sp|double_temp  stack frame pointer\r
+    010074  aa  6 00056 3521 00   5273         epp2    sp|double_temp\r
+    010075  aa  6 00072 2521 00   5274         spri2   sp|arg_list+2   argument 1 - stack pointer\r
+    010076  aa  6 00044 3521 00   5275         epp2    sp|linkage_ptr   linkage pointer\r
+    010077  aa  6 00074 2521 00   5276         spri2   sp|arg_list+4   argument 2 - linkage pointer\r
+    010100  aa  6 00046 3521 70   5277         epp2    sp|tbp,*0               text pointer to arg_list\r
+    010101  aa  6 00050 2521 00   5278         spri2   sp|temp_pt\r
+    010102  aa  6 00050 3521 00   5279         epp2    sp|temp_pt\r
+    010103  aa  6 00076 2521 00   5280         spri2   sp|arg_list+6   argument 3 - argument pointer\r
+    010104  aa   000006 2350 03   5281         lda     6,du            nargs = 3, quick call (no enviptr)\r
+    010105  aa   000000 2360 07   5282         ldq     0,dl            no descriptors\r
+    010106  aa  6 00070 7571 00   5283         staq    sp|arg_list\r
+    010107  aa  6 00070 3501 00   5284         epp0    sp|arg_list     get argument list header\r
+    010110  aa   000001 0600 03   5285         adx0    1,du\r
+    010111  aa  6 00025 7401 00   5286         stx0    sp|stack_frame.return_ptr+1     save return point\r
+    010112  aa  6 00025 7541 00   5287         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    010113  0a   011331 7010 00   5288         tsx1    get_our_lp\r
+    010114  4a  4 00272 7131 20   5289         callsp  fortran_storage_$create\r
+                                  5290  "\r
+                                  5291  "      operator to enable a condition.  calling sequence is:\r
+                                  5292  "              eppbp   name\r
+                                  5293  "              lxl6    name_size\r
+                                  5294  "              tsx0    ap|enable\r
+                                  5295  "              tra     on_unit_body\r
+                                  5296  "              arg     on_unit (snap & system flags in RHS if used)\r
+                                  5297  "              tra     skip_around_body\r
+                                  5298  "      body of on unit starts here\r
+                                  5299  "\r
+                                  5300         include on_unit\r
+                                  10-1  "\r
+                                  10-2  "      BEGIN INCLUDE FILE --- on_unit.incl.alm 5/75 RAB\r
+                                  10-3  "\r
+                        000000    10-4         equ     on_unit.name,0\r
+                        000002    10-5         equ     on_unit.body,2\r
+                        000004    10-6         equ     on_unit.size,4\r
+                        000005    10-7         equ     on_unit.next,5  upper   offset relative to stack FRAME\r
+                        000005    10-8         equ     on_unit.flags,5 lower\r
+                        000006    10-9         equ     on_unit.file,6\r
+                        000010   10-10         equ     on_unit.file_copy,8\r
+                                 10-11  "\r
+                                 10-12  "      END INCLUDE FILE --- on_unit.incl.alm\r
+                                 10-13  "\r
+    010115                        5301  enable_op:\r
+    010115  aa  6 00037 4401 00   5302         sxl0    sp|stack_frame.operator_ret_ptr\r
+    010116  aa  6 00046 3701 70   5303         epplp   sp|tbp,*0\r
+    010117  aa   000100 2350 07   5304         lda     =o100,dl                is there a valid on_unit_list\r
+    010120  aa  6 00020 3151 00   5305         cana    sp|stack_frame.prev_sp check bit 29 of sp|stack_frame.prev_sp\r
+    010121  aa   000003 6010 04   5306         tnz     3,ic            non-zero means ok\r
+    010122  aa  6 00036 4501 00   5307         stz     sp|stack_frame.on_unit_rel_ptrs init ptr\r
+    010123  aa  6 00020 2551 00   5308         orsa    sp|stack_frame.prev_sp and set bit\r
+                                  5309  "\r
+    010124  aa  6 00036 2211 00   5310         ldx1    sp|stack_frame.on_unit_rel_ptrs get rel ptr to first enabled unit\r
+    010125  0a   010132 6000 00   5311         tze     add_on          zero means chain empty\r
+    010126  aa  4 00001 1011 00   5312  on_1:  cmpx1   lp|1            is this the unit we want\r
+    010127  0a   010136 6000 00   5313         tze     have_on         yes, go process\r
+    010130  aa  6 00005 2211 11   5314         ldx1    sp|on_unit.next,1       no, get ptr to next on chain\r
+    010131  0a   010126 6010 00   5315         tnz     on_1            and repeat if end not reached\r
+    010132  aa  4 00001 2211 00   5316  add_on:        ldx1    lp|1            get rel ptr to new unit\r
+    010133  aa  6 00036 2201 00   5317         ldx0    sp|stack_frame.on_unit_rel_ptrs get rel ptr to first unit\r
+    010134  aa  6 00005 7401 11   5318         stx0    sp|on_unit.next,1       set next ptr of new unit\r
+    010135  aa  6 00036 7411 00   5319         stx1    sp|stack_frame.on_unit_rel_ptrs make new unit first on chain\r
+    010136  aa  6 00000 2521 11   5320  have_on:       spribp  sp|on_unit.name,1       set name of new unit\r
+    010137  aa  6 00002 6501 11   5321         sprilp  sp|on_unit.body,1       set ptr to body\r
+    010140  aa  6 00004 4501 11   5322         stz     sp|on_unit.size,1       clear size field\r
+    010141  aa  6 00004 4461 11   5323         sxl6    sp|on_unit.size,1       set size of unit name\r
+    010142  aa  4 00001 7201 00   5324         lxl0    lp|1            get snap & system flags\r
+    010143  aa  6 00005 4401 11   5325         sxl0    sp|on_unit.flags,1      and save in on unit\r
+    010144  aa  6 00037 4501 00   5326         stz     sp|stack_frame.operator_ret_ptr\r
+    010145  aa  4 00002 7101 00   5327         tra     lp|2            return to pl1 program\r
+                                  5328  "\r
+                                  5329  "\r
+                                  5330  "      operator to create and enable a cleanup handler for a fortran\r
+                                  5331  "      program.  calling sequence is:\r
+                                  5332  "              tsx0    ap|fort_cleanup\r
+                                  5333  "              arg     on_unit_body    (snap & system flags in RHS if used)\r
+                                  5334  "      Uses pr2 (bp) and pr4 (lp) - restores pr4 (lp) from stack\r
+                                  5335  "\r
+    010146                        5336  fort_cleanup:\r
+    010146  aa  6 00037 4401 00   5337         sxl0    sp|stack_frame.operator_ret_ptr\r
+    010147  aa  6 00046 3521 70   5338         eppbp   sp|tbp,*0\r
+    010150  aa   000100 2350 07   5339         lda     =o100,dl                is there a valid on_unit_list\r
+    010151  aa  6 00020 3151 00   5340         cana    sp|stack_frame.prev_sp check bit 29 of sp|stack_frame.prev_sp\r
+    010152  aa   000003 6010 04   5341         tnz     3,ic            non-zero means ok\r
+    010153  aa  6 00036 4501 00   5342         stz     sp|stack_frame.on_unit_rel_ptrs init ptr\r
+    010154  aa  6 00020 2551 00   5343         orsa    sp|stack_frame.prev_sp and set bit\r
+                                  5344  "\r
+    010155  aa  6 00036 2211 00   5345         ldx1    sp|stack_frame.on_unit_rel_ptrs get rel ptr to first enabled unit\r
+    010156  0a   010163 6000 00   5346         tze     add_fort_cleanup        zero means chain empty\r
+    010157                        5347  fort_cleanup_1:\r
+    010157  aa  2 00000 1011 00   5348         cmpx1   bp|0            is this the unit we want\r
+    010160  0a   010167 6000 00   5349         tze     have_fort_cleanup       yes, go process\r
+    010161  aa  6 00005 2211 11   5350         ldx1    sp|on_unit.next,1       no, get ptr to next on chain\r
+    010162  0a   010157 6010 00   5351         tnz     fort_cleanup_1  and repeat if end not reached\r
+    010163                        5352  add_fort_cleanup:\r
+    010163  aa  2 00000 2211 00   5353         ldx1    bp|0            get rel ptr to new unit\r
+    010164  aa  6 00036 2201 00   5354         ldx0    sp|stack_frame.on_unit_rel_ptrs get rel ptr to first unit\r
+    010165  aa  6 00005 7401 11   5355         stx0    sp|on_unit.next,1       set next ptr of new unit\r
+    010166  aa  6 00036 7411 00   5356         stx1    sp|stack_frame.on_unit_rel_ptrs make new unit first on chain\r
+    010167                        5357  have_fort_cleanup:\r
+                                  5358  " Point to our cleanup handler and our name and length\r
+    010167  0a   010206 3700 00   5359         epplp   fort_cleanup_name\r
+    010170  aa  6 00000 6501 11   5360         sprilp  sp|on_unit.name,1       set name of new unit\r
+                                  5361         get_our_lp                      " need our linkage section\r
+    010171  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    010172  0a   010172 2130 00                epaq    *               get ptr to ourselves\r
+    010173  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    010174  4a  4 00274 3701 20   5362         epplp   <fort_cleanup_>|[fort_cleanup_]\r
+    010175  aa  6 00002 6501 11   5363         sprilp  sp|on_unit.body,1       set ptr to body\r
+    010176  aa  6 00044 3701 20   5364         epplp   sp|linkage_ptr,*        restore ptr to linkage segment\r
+    010177  aa   000007 7200 07   5365         lxl0    fort_cleanup_length,dl\r
+    010200  aa  6 00004 4501 11   5366         stz     sp|on_unit.size,1       clear size field\r
+    010201  aa  6 00004 4401 11   5367         sxl0    sp|on_unit.size,1       set size of unit name\r
+    010202  aa  2 00000 7201 00   5368         lxl0    bp|0            get snap & system flags\r
+    010203  aa  6 00005 4401 11   5369         sxl0    sp|on_unit.flags,1      and save in on unit\r
+    010204  aa  6 00037 4501 00   5370         stz     sp|stack_frame.operator_ret_ptr\r
+    010205  aa  2 00001 7101 00   5371         tra     bp|1            return to fortran program\r
+                                  5372  \r
+    010206                        5373  fort_cleanup_name:\r
+    010206  aa  143 154 145 141   5374         aci     "cleanup"\r
+    010207  aa  156 165 160 000\r
+                                  5375  \r
+                        000007    5376         equ fort_cleanup_length,7\r
+                                  5377  \r
+                                  5378  "\r
+                                  5379  "      operator to signal a condition.  entered with ptr to name in bp\r
+                                  5380  "      and size of name in x6.\r
+                                  5381  "\r
+    010210                        5382  signal_op:\r
+    010210  aa  6 00037 4401 00   5383         sxl0    sp|stack_frame.operator_ret_ptr\r
+    010211  aa   001750 2360 07   5384         ldq     =1000,dl                load oncode value\r
+    010212  0a   011251 7010 00   5385         tsx1    call_signal_    call signal_\r
+    010213  0a   007227 7100 00   5386         tra     z_done          and return\r
+                                  5387  "\r
+                                  5388  "      operator to signal "subscriptrange" condition\r
+                                  5389  "\r
+    010214                        5390  bound_ck_signal:\r
+    010214  aa  6 00037 4401 00   5391         sxl0    sp|stack_frame.operator_ret_ptr\r
+    010215  aa  6 00076 7461 00   5392         stx6    sp|temp         save x6\r
+    010216  aa   000016 7260 07   5393         lxl6    14,dl           get size of condition\r
+    010217  0a   010224 3520 00   5394         eppbp   subrg           get ptr to name\r
+    010220  aa   001300 2360 07   5395         ldq     =704,dl         load oncode value\r
+    010221  0a   011251 7010 00   5396         tsx1    call_signal_    call signal_\r
+    010222  aa  6 00076 2261 00   5397         ldx6    sp|temp         restore x6\r
+    010223  0a   007227 7100 00   5398         tra     z_done          and return\r
+    010224  aa  163 165 142 163   5399  subrg: aci     "subscriptrange"\r
+    010225  aa  143 162 151 160\r
+    010226  aa  164 162 141 156\r
+    010227  aa  147 145 000 000\r
+                                  5400  "\r
+                                  5401  "      operator to enable a condition with file specified, usage is\r
+                                  5402  "              eppbp   file\r
+                                  5403  "              eaa     name    (in text)\r
+                                  5404  "              ora     flags,dl        snap & system flags (optional)\r
+                                  5405  "              lxl6    name_size\r
+                                  5406  "              tsx0    ap|enable_file\r
+                                  5407  "\r
+    010230                        5408  enable_file:\r
+    010230  aa  6 00037 4401 00   5409         sxl0    sp|stack_frame.operator_ret_ptr save return point\r
+    010231  aa  6 00076 2521 00   5410         spribp  sp|temp         save pointer to file\r
+    010232  aa  6 00046 3521 61   5411         eppbp   sp|tbp,*au      get pointer to name\r
+    010233  aa  6 00056 7551 00   5412         sta     sp|double_temp  save snap & system flags\r
+    010234  aa   000100 2350 07   5413         lda     =o100,dl                check for existence of condition list\r
+    010235  aa  6 00020 3151 00   5414         cana    sp|stack_frame.condition_word\r
+    010236  0a   010277 6010 00   5415         tnz     ef_1            if we have list, go check it\r
+    010237  aa  6 00036 4501 00   5416         stz     sp|stack_frame.on_unit_rel_ptrs no list, initialize it\r
+    010240  aa  6 00020 2551 00   5417         orsa    sp|stack_frame.condition_word ..\r
+                                  5418  "\r
+    010241                        5419  make_unit:\r
+                                  5420         get_stack_offset\r
+    010241  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    010242  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    010243  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    010244  aa  6 00024 3701 21   5421         epplp   sp|stack_header.stack_end_ptr,au* get ptr to next stack frame\r
+    010245  aa   000020 6200 00   5422         eax0    16              extend stack by 16 words\r
+    010246  aa  6 00023 0201 00   5423         adlx0   sp|stack_frame.next_sp+1        ..\r
+    010247  aa  6 00023 7401 00   5424         stx0    sp|stack_frame.next_sp+1        ..\r
+    010250  aa  6 00025 7401 01   5425         stx0    sp|stack_header.stack_end_ptr+1,au      ..\r
+    010251  aa  6 00005 7401 00   5426         stx0    sp|5            make extension "permanent"\r
+    010252  aa  4 00000 6211 01   5427         eax1    lp|0,au         into x1\r
+                                  5428  "\r
+    010253  aa  6 00036 2201 00   5429         ldx0    sp|stack_frame.on_unit_rel_ptrs get rel ptr to first unit\r
+    010254  aa  6 00005 7401 11   5430         stx0    sp|on_unit.next,1       and save as next of new unit\r
+    010255  aa  6 00036 7411 00   5431         stx1    sp|stack_frame.on_unit_rel_ptrs make new unit first unit\r
+                                  5432  "\r
+    010256  aa  6 00000 2521 11   5433         spribp  sp|on_unit.name,1       save ptr to name\r
+    010257  aa  6 00076 3701 20   5434         epplp   sp|temp,*               get back ptr to file\r
+    010260  aa  4 00000 2371 00   5435         ldaq    lp|0            copy file into stack\r
+    010261  aa  6 00010 7571 11   5436         staq    sp|on_unit.file_copy,1\r
+    010262  aa  4 00002 2371 00   5437         ldaq    lp|2\r
+    010263  aa  6 00012 7571 11   5438         staq    sp|on_unit.file_copy+2,1\r
+    010264  aa  6 00010 3701 11   5439         epplp   sp|on_unit.file_copy,1  get ptr to copy of file\r
+    010265  aa  6 00006 6501 11   5440         sprilp  sp|on_unit.file,1       and save as ptr to file\r
+    010266  aa  6 00004 4501 11   5441         stz     sp|on_unit.size,1       clear size field\r
+                                  5442  "\r
+    010267                        5443  init_unit:\r
+    010267  aa  6 00004 4461 11   5444         sxl6    sp|on_unit.size,1       set size of name\r
+    010270  aa  6 00056 7201 00   5445         lxl0    sp|double_temp  get snap & system flags\r
+    010271  aa  6 00005 4401 11   5446         sxl0    sp|on_unit.flags,1      store them\r
+    010272  aa  6 00037 7201 00   5447         lxl0    sp|stack_frame.operator_ret_ptr restore return\r
+    010273  aa  6 00037 4501 00   5448         stz     sp|stack_frame.operator_ret_ptr\r
+    010274  aa  6 00046 3701 70   5449         epplp   sp|tbp,*0               get ptr to entry point of unit\r
+    010275  aa  6 00002 6501 11   5450         sprilp  sp|on_unit.body,1       and save it\r
+    010276  aa  4 00001 7101 00   5451         tra     lp|1            and then return\r
+                                  5452  "\r
+    010277  0a   010314 7000 00   5453  ef_1:  tsx0    find_unit               go search for unit\r
+    010300  0a   010267 7100 00   5454         tra     init_unit               found it\r
+    010301  aa  6 00072 3521 20   5455         eppbp   sp|temp2,*      restore ptr to name\r
+    010302  0a   010241 7100 00   5456         tra     make_unit               not found, must go make it\r
+                                  5457  "\r
+                                  5458  "      operator to revert a condition with file specified, usage is\r
+                                  5459  "              eppbp   file\r
+                                  5460  "              eaa     name    (in text)\r
+                                  5461  "              lxl6    name_size\r
+                                  5462  "              tsx0    ap|revert_file\r
+                                  5463  "\r
+    010303                        5464  revert_file:\r
+    010303  aa   000100 2360 07   5465         ldq     =o100,dl                do we have any conditions enabled\r
+    010304  aa  6 00020 3161 00   5466         canq    sp|stack_frame.condition_word\r
+    010305  aa  6 00046 6001 70   5467         tze     sp|tbp,*0               no, return immediately\r
+    010306  aa  6 00037 4401 00   5468         sxl0    sp|stack_frame.operator_ret_ptr yes, save return\r
+    010307  aa  6 00076 2521 00   5469         spribp  sp|temp         save  pointer to file\r
+    010310  aa  6 00046 3521 61   5470         eppbp   sp|tbp,*au      get ptr to name\r
+    010311  0a   010314 7000 00   5471         tsx0    find_unit               go search for unit\r
+    010312  aa  6 00004 4501 11   5472         stz     sp|on_unit.size,1       found it, zero size\r
+    010313  0a   007227 7100 00   5473         tra     z_done          ok to return now\r
+                                  5474  "\r
+                                  5475  "      subroutine to search for enabled condition, entered with\r
+                                  5476  "              bp      pointing at name in text\r
+                                  5477  "              x6      holding size of name\r
+                                  5478  "              sp|temp holding ptr to file\r
+                                  5479  "      returns 0,0     if condition found\r
+                                  5480  "              1,0     if condition not found\r
+                                  5481  "\r
+                                  5482  "      N.B. we assume that we only have to compare ptrs to check if name\r
+                                  5483  "      is the same because of constant pooling done by compiler\r
+                                  5484  "\r
+    010314                        5485  find_unit:\r
+    010314  aa  6 00072 2521 00   5486         spribp  sp|temp2                save ptr to name\r
+    010315  aa  6 00076 3521 20   5487         eppbp   sp|temp,*               get ptr to file\r
+    010316  aa  6 00036 2211 00   5488         ldx1    sp|stack_frame.on_unit_rel_ptrs get offset of first unit\r
+    010317  aa   000002 7100 04   5489         tra     2,ic            and enter loop\r
+                                  5490  "\r
+    010320  aa  6 00005 2211 11   5491  fu_1:  ldx1    sp|on_unit.next,1       get off of next unit\r
+    010321  aa   000001 6000 10   5492         tze     1,0             none means we failed\r
+    010322  aa  6 00000 2371 11   5493         ldaq    sp|on_unit.name,1       get name in on unit\r
+    010323  aa  6 00072 1171 00   5494         cmpaq   sp|temp2                compare with name we want\r
+    010324  0a   010320 6010 00   5495         tnz     fu_1            if not same keep looking\r
+    010325  aa  6 00012 2371 11   5496         ldaq    sp|on_unit.file_copy+2,1        get second ptr in file\r
+    010326  aa  2 00002 1171 00   5497         cmpaq   bp|2            compare with file we want\r
+    010327  0a   010320 6010 00   5498         tnz     fu_1            keep looking if different\r
+    010330  aa   000000 7100 10   5499         tra     0,0             found it\r
+                                  5500  "\r
+                                  5501  "      operators for put data\r
+                                  5502  "      entered with pointer to datum in bp, offset in x7, symtab offset in a\r
+                                  5503  "\r
+    010331                        5504  put_data_eis:\r
+    010331  aa   000002 6260 00   5505         eax6    2               set procedure to call\r
+    010332  0a   010404 7100 00   5506         tra     plio_eis                join common section\r
+                                  5507  "\r
+    010333                        5508  put_data:\r
+    010333  aa   000000 6210 17   5509         eax1    0,7             get offset\r
+    010334  0a   010342 7100 00   5510         tra     pd_1\r
+                                  5511  "\r
+    010335                        5512  put_data_co:\r
+    010335  0a   001264 2210 17   5513         ldx1    co_to_bo,7      convert offset to bits\r
+    010336  0a   010342 7100 00   5514         tra     pd_1\r
+                                  5515  "\r
+    010337                        5516  put_data_ho:\r
+    010337  0a   001270 2210 17   5517         ldx1    ho_to_bo,7      convert offset to bits\r
+    010340  0a   010342 7100 00   5518         tra     pd_1\r
+                                  5519  "\r
+    010341                        5520  put_data_aligned:\r
+    010341  aa   000000 6210 00   5521         eax1    0               zero offset\r
+                                  5522  "\r
+    010342  aa   000002 6260 00   5523  pd_1:  eax6    2               set procedure to call\r
+    010343  0a   010432 7100 00   5524         tra     plio            join common section\r
+                                  5525  "\r
+                                  5526  "      operators for get list\r
+                                  5527  "      entered with pointer to datum in bp, offset in x7, descriptor in q\r
+                                  5528  "\r
+    010344                        5529  get_list_eis:\r
+    010344  aa   000003 6260 00   5530         eax6    3               set procedure to call\r
+    010345  0a   010404 7100 00   5531         tra     plio_eis                join common section\r
+                                  5532  "\r
+    010346                        5533  get_list:\r
+    010346  aa   000000 6210 17   5534         eax1    0,7             get offset\r
+    010347  0a   010355 7100 00   5535         tra     gl_1\r
+                                  5536  "\r
+    010350                        5537  get_list_co:\r
+    010350  0a   001264 2210 17   5538         ldx1    co_to_bo,7      convert offset to bits\r
+    010351  0a   010355 7100 00   5539         tra     gl_1\r
+                                  5540  "\r
+    010352                        5541  get_list_ho:\r
+    010352  0a   001270 2210 17   5542         ldx1    ho_to_bo,7      convert offset to bits\r
+    010353  0a   010355 7100 00   5543         tra     gl_1\r
+                                  5544  "\r
+    010354                        5545  get_list_aligned:\r
+    010354  aa   000000 6210 00   5546         eax1    0               zero offset\r
+                                  5547  "\r
+    010355  aa   000003 6260 00   5548  gl_1:  eax6    3               set procedure to call\r
+    010356  0a   010432 7100 00   5549         tra     plio            join common section\r
+                                  5550  "\r
+                                  5551  "      operators for get edit\r
+                                  5552  "      entered with pointer to datum in bp, offset in x7, descriptor in q\r
+                                  5553  "\r
+    010357                        5554  get_edit:\r
+    010357  aa   000000 6210 17   5555         eax1    0,7             get offset\r
+    010360  0a   010366 7100 00   5556         tra     ge_1\r
+                                  5557  "\r
+    010361                        5558  get_edit_co:\r
+    010361  0a   001264 2210 17   5559         ldx1    co_to_bo,7      convert offset to bits\r
+    010362  0a   010366 7100 00   5560         tra     ge_1\r
+                                  5561  "\r
+    010363                        5562  get_edit_ho:\r
+    010363  0a   001270 2210 17   5563         ldx1    ho_to_bo,7      convert offset to bits\r
+    010364  0a   010366 7100 00   5564         tra     ge_1\r
+                                  5565  "\r
+    010365                        5566  get_edit_aligned:\r
+    010365  aa   000000 6210 00   5567         eax1    0               zero offset\r
+                                  5568  "\r
+    010366  aa   000004 6260 00   5569  ge_1:  eax6    4               set procedure to call\r
+    010367  0a   010432 7100 00   5570         tra     plio            join common section\r
+                                  5571  "\r
+                                  5572  "\r
+                                  5573  "\r
+                                  5574  "      operator for put list\r
+                                  5575  "      entered with pointer to datum in bp, offset in x7, descriptor in q\r
+                                  5576  "\r
+    010370                        5577  put_list_eis:\r
+    010370  aa   000005 6260 00   5578         eax6    5               set procedure to call\r
+    010371  aa  6 00076 7561 00   5579         stq     sp|temp         save descriptor\r
+    010372  aa   374000 3760 03   5580         anq     =o374000,du\r
+    010373  aa   114000 1160 03   5581         cmpq    =o114000,du     bit_str_desc\r
+    010374  4a  4 00276 6001 20   5582         tze     <put_field_>|[put_field_str]\r
+    010375  aa   120000 1160 03   5583         cmpq    =o120000,du     var_bit_str_desc\r
+    010376  4a  4 00276 6001 20   5584         tze     <put_field_>|[put_field_str]\r
+    010377  aa   124000 1160 03   5585         cmpq    =o124000,du     char_str_desc\r
+    010400  4a  4 00276 6001 20   5586         tze     <put_field_>|[put_field_str]\r
+    010401  aa   130000 1160 03   5587         cmpq    =o130000,du     var_char_str_desc\r
+    010402  4a  4 00276 6001 20   5588         tze     <put_field_>|[put_field_str]\r
+    010403  aa  6 00076 2361 00   5589         ldq     sp|temp\r
+                                  5590  "\r
+    010404                        5591  plio_eis:\r
+    010404  aa  6 00052 3501 20   5592         eppap   sp|ps_ptr,*     get ptr to ps\r
+    010405  aa  0 00032 7561 00   5593         stq     ap|ps.descriptor        set descriptor\r
+    010406  aa  0 00034 7551 00   5594         sta     ap|ps.offset    store offset or picture constant loc\r
+    010407  aa  0 00030 2521 00   5595         spribp  ap|ps.value_p   set ptr to datum\r
+    010410  0a   010440 7100 00   5596         tra     plio4\r
+                                  5597  "\r
+    010411                        5598  put_list:\r
+    010411  aa   000000 6210 17   5599         eax1    0,7             get offset\r
+    010412  0a   010420 7100 00   5600         tra     pl_1\r
+                                  5601  "\r
+    010413                        5602  put_list_co:\r
+    010413  0a   001264 2210 17   5603         ldx1    co_to_bo,7      convert offset to bits\r
+    010414  0a   010420 7100 00   5604         tra     pl_1\r
+                                  5605  "\r
+    010415                        5606  put_list_ho:\r
+    010415  0a   001270 2210 17   5607         ldx1    ho_to_bo,7      convert offset to bits\r
+    010416  0a   010420 7100 00   5608         tra     pl_1\r
+                                  5609  "\r
+    010417                        5610  put_list_aligned:\r
+    010417  aa   000000 6210 00   5611         eax1    0               zero offset\r
+                                  5612  "\r
+    010420  aa   000005 6260 00   5613  pl_1:  eax6    5               set procedure to call\r
+    010421  0a   010432 7100 00   5614         tra     plio            join common section\r
+                                  5615  "\r
+                                  5616  "      operators for put edit\r
+                                  5617  "      entered with pointer to datum in bp, offset in x7, descriptor in q\r
+                                  5618  "\r
+    010422                        5619  put_edit:\r
+    010422  aa   000000 6210 17   5620         eax1    0,7             get offset\r
+    010423  0a   010431 7100 00   5621         tra     pe_1\r
+                                  5622  "\r
+    010424                        5623  put_edit_co:\r
+    010424  0a   001264 2210 17   5624         ldx1    co_to_bo,7      convert offset to bits\r
+    010425  0a   010431 7100 00   5625         tra     pe_1\r
+                                  5626  "\r
+    010426                        5627  put_edit_ho:\r
+    010426  0a   001270 2210 17   5628         ldx1    ho_to_bo,7      convert offset to bits\r
+    010427  0a   010431 7100 00   5629         tra     pe_1\r
+                                  5630  "\r
+    010430                        5631  put_edit_aligned:\r
+    010430  aa   000000 6210 00   5632         eax1    0               zero offset\r
+                                  5633  "\r
+    010431  aa   000006 6260 00   5634  pe_1:  eax6    6               set procedure to call\r
+                                  5635  "\r
+    010432  aa  6 00052 3501 20   5636  plio:  eppap   sp|ps_ptr,*     get ptr to ps\r
+    010433  aa  0 00032 7561 00   5637         stq     ap|ps.descriptor        set descriptor\r
+    010434  aa  0 00034 7551 00   5638         sta     ap|ps.offset    store offset or picture constant loc\r
+    010435  aa  0 00030 2521 00   5639         spribp  ap|ps.value_p   set ptr to datum\r
+    010436  0a   012452 7210 11   5640         lxl1    shift_bo,1      shift bit offset to position\r
+    010437  aa  0 00031 4411 00   5641         sxl1    ap|ps.value_p+1 and set bit offset of pointer\r
+                                  5642  "\r
+    010440  aa  6 00052 3521 00   5643  plio4: eppbp   sp|ps_ptr               save pointer to ps as arg\r
+    010441  aa  6 00072 2521 00   5644         spribp  sp|arg_list+2\r
+    010442  aa  6 00010 7531 00   5645         sreg    sp|8            save registers\r
+    010443  aa   004000 4310 07   5646         fld     2*1024,dl\r
+    010444  aa  6 00070 7571 00   5647         staq    sp|arg_list\r
+    010445  aa  6 00070 3501 00   5648         eppap   sp|arg_list     get ptr to arg list\r
+    010446  0a   011331 7010 00   5649         tsx1    get_our_lp      get ptr to our linkage section\r
+    010447  aa   000004 3514 04   5650         epp1    4,ic            store return address and indicators\r
+    010450  aa  6 00024 2515 00   5651         spri1   sp|stack_frame.return_ptr\r
+    010451  aa  6 00025 7541 00   5652         sti     sp|stack_frame.return_ptr+1\r
+    010452  0a   010460 7100 16   5653         tra     plio2,6         jump to appropriate proc\r
+    010453  aa  6 00010 0731 00   5654         lreg    sp|8            restore registers\r
+    010454                        5655  put_return:\r
+    010454  aa  6 00046 3501 20   5656         eppap   sp|tbp,*                get ptr to object\r
+    010455  aa  6 00024 2501 00   5657         spriap  sp|stack_frame.return_ptr       reset return ptr\r
+    010456  aa  6 00030 3501 20   5658         eppap   sp|stack_frame.operator_ptr,*   restore ptr to operators\r
+    010457  aa  6 00046 7101 70   5659         tra     sp|tbp,*0               and return\r
+                                  5660  "\r
+    010460  4a  4 00300 7131 20   5661  plio2: callsp  <plio2_>|[get_terminate_]\r
+    010461  4a  4 00302 7131 20   5662         callsp  <plio2_>|[put_terminate_]\r
+    010462  4a  4 00304 7131 20   5663         callsp  <plio2_>|[put_value_data_]\r
+    010463  4a  4 00306 7131 20   5664         callsp  <plio2_>|[get_value_list_]\r
+    010464  0a   025023 7100 00   5665         tra     signal_error_missing\r
+    010465  4a  4 00310 7131 20   5666         callsp  <plio2_>|[put_value_list_]\r
+    010466  4a  4 00312 7131 20   5667         callsp  <plio2_>|[put_value_edit_]\r
+    010467  4a  4 00314 7131 20   5668         callsp  <plio2_recio_>|[plio2_recio_]\r
+    010470  4a  4 00316 7131 20   5669         callsp  <plio2_>|[open_explicit_]\r
+    010471  4a  4 00320 7131 20   5670         callsp  <plio2_>|[close_]\r
+    010472  4a  4 00322 7131 20   5671         callsp  <plio2_>|[get_prep_]\r
+    010473  4a  4 00324 7131 20   5672         callsp  <plio2_>|[put_prep_]\r
+    010474  4a  4 00326 7131 20   5673         callsp  <fortran_io_>|[read_or_write]\r
+    010475  4a  4 00330 7131 20   5674         callsp  <fortran_io_>|[file_control]\r
+    010476  4a  4 00332 7131 20   5675         callsp  <fortran_io_>|[terminate]\r
+    010477  4a  4 00334 7131 20   5676         callsp  <fortran_io_>|[element]\r
+    010500  4a  4 00336 7131 20   5677         callsp  <plio2_>|[put_field_]\r
+    010501  0a   025023 7100 00   5678         tra     signal_error_missing\r
+    010502  0a   025023 7100 00   5679         tra     signal_error_missing\r
+    010503  0a   025023 7100 00   5680         tra     signal_error_missing\r
+    010504  0a   025023 7100 00   5681         tra     signal_error_missing\r
+    010505  4a  4 00340 7131 20   5682         callsp  <plio2_>|[put_blanks_]\r
+    010506  4a  4 00342 7131 20   5683         callsp  <fortran_io_>|[get_io_area_ptr]\r
+                                  5684  "\r
+                                  5685  "      operator to terminate a get\r
+                                  5686  "\r
+    010507                        5687  get_terminate:\r
+    010507  aa   000000 6260 00   5688         eax6    0               set proc to call\r
+    010510  0a   010440 7100 00   5689         tra     plio4\r
+                                  5690  "\r
+                                  5691  "      operator to terminate a put\r
+                                  5692  "\r
+    010511                        5693  put_terminate:\r
+    010511  aa   000001 6260 00   5694         eax6    1               set proc to call\r
+    010512  0a   010440 7100 00   5695         tra     plio4\r
+                                  5696  "\r
+                                  5697  "      operator to open a file\r
+                                  5698  "\r
+    010513                        5699  open_file:\r
+    010513  aa   000010 6260 00   5700         eax6    8               set proc to call\r
+    010514  0a   010440 7100 00   5701         tra     plio4\r
+                                  5702  "\r
+                                  5703  "      operator to close a file\r
+                                  5704  "\r
+    010515                        5705  close_file:\r
+    010515  aa   000011 6260 00   5706         eax6    9               set proc to call\r
+    010516  0a   010440 7100 00   5707         tra     plio4\r
+                                  5708  "\f\r
+                                  5709  "      operators for doing FORTRAN I/O\r
+                                  5710  "\r
+                                  5711  "              WARNING   WARNING   WARNING   WARNING   WARNING   WARNING\r
+                                  5712  "\r
+                                  5713  "           The following code was modified on 19 Dec 1977, by D. Levin to allow\r
+                                  5714  "      fortran I/O's stack frame to remain active after control returns to the user's\r
+                                  5715  "      program. This is accomplished by a coordinated effort on the parts of:\r
+                                  5716  "\r
+                                  5717  "              1. this operator segment\r
+                                  5718  "              2. fortran_io_.pl1 (in bound_fort_runtime_)\r
+                                  5719  "              3. return_to_user.alm (in bound_fort_runtime_)\r
+                                  5720  "\r
+                                  5721  "           The first time a user program references fortran_io_ from its stack frame,\r
+                                  5722  "      the high-order bit of stack_frame.ps_ptr is zero. This implementation takes advantage\r
+                                  5723  "      of that fact and uses the high-order bit of stack_frame.ps_ptr as a flag to\r
+                                  5724  "      indicate whether or not a stack frame exists for fortran_io_.\r
+                                  5725  "\r
+                                  5726  "           The first time fortran_io_ is referenced from a stack frame, the high-order\r
+                                  5727  "      bit is zero, so a standard PL/I call is made to the appropriate entry point in\r
+                                  5728  "      fortran_io_, with the user's stack_frame.return_ptr set to return\r
+                                  5729  "      to the word after the operator call.  Once within fortran_io_, the\r
+                                  5730  "      user's stack frame is modified as follows:\r
+                                  5731  "\r
+                                  5732  "           1. Copy fortran_io_'s stack_frame|4 to the user's frame. This field is used\r
+                                  5733  "              by PL/I to determine the true end of the stack frame after a stack\r
+                                  5734  "              extension.\r
+                                  5735  "           2. Store a packed ptr to fio_ps at stack_frame.support_ptr. See next\r
+                                  5736  "              paragraph.\r
+                                  5737  "           3. Set high-order bit of stack_frame.ps_ptr to "1"b.\r
+                                  5738  "\r
+                                  5739  "           The structure "fio_ps" is in fortran_io_'s stack frame and contains all the\r
+                                  5740  "      necessary fields to allow communication between the user program and fortran_io_.\r
+                                  5741  "      It includes:\r
+                                  5742  "           1. The address of a location within fortran_io_ to which control is passed\r
+                                  5743  "              instead of performing a PL/I call.\r
+                                  5744  "           2. The address of fortran_io_'s stack frame.\r
+                                  5745  "           3. The address of a variable in fortran_io_'s stack frame into which the value\r
+                                  5746  "              of xr7 is stored. This value identifies the entry point desired.\r
+                                  5747  "\r
+                                  5748  "           When fortran_io_ returns to the user program, return_to_user$special_return\r
+                                  5749  "      is called. This routine copies fortran_io_'s stack_frame.next_sp into the user's\r
+                                  5750  "      stack_frame.next_sp, sets sp to the user's frame, and does a short_return.\r
+                                  5751  "      Fortran_io_'s stack frame is now part of the user's frame and remains so until\r
+                                  5752  "      the next I/O operation. Each fortran program frame has its own fortran_io_ frame.\r
+                                  5753  "      This causes the user frame to "absorb" fortran_io_'s frame.\r
+                                  5754  "\r
+                                  5755  "      NOTE - The procedure fortran_io_ must never perform a return_mac or\r
+                                  5756  "      fortran_io_'s frame will go away although the flag in the user's frame claims\r
+                                  5757  "      that it is still there.\r
+                                  5758  "\f\r
+                                  5759  "      Setup operators entered with unit number in q, job_bits in a. Read previous page\r
+                                  5760  "      of comments before modifying any FORTRAN I/O operators.\r
+                                  5761  "\r
+    010517                        5762  fortran_read:\r
+    010517                        5763  fortran_write:\r
+    010517  aa   000014 6260 00   5764         eax6    12\r
+                                  5765  "\r
+    010520  aa  6 00052 2341 00   5766  ft_io: szn     sp|ps_ptr                       " <0 if fortran_io_ already has a stack frame\r
+    010521  0a   010537 6040 00   5767         tmi     ft_fast_read_or_write\r
+    010522  aa  6 00052 3501 20   5768         eppap   sp|ps_ptr,*             " load ptr to user's ps\r
+    010523  aa  0 00010 7561 00   5769         stq     ap|ft_ps.unit\r
+    010524  aa  0 00024 7551 00   5770         sta     ap|ft_ps.job_bits\r
+                                  5771  \r
+    010525  aa  6 00052 3521 00   5772  ft_io1:        eppbp   sp|ps_ptr                       " save pointer to ps as arg\r
+    010526  aa  6 00072 2521 00   5773         spribp  sp|arg_list+2\r
+    010527  aa  6 00010 7531 00   5774         sreg    sp|8                    " save registers\r
+    010530  aa   004000 4310 07   5775         fld     2*1024,dl\r
+    010531  aa  6 00070 7571 00   5776         staq    sp|arg_list\r
+    010532  aa  6 00070 3501 00   5777         eppap   sp|arg_list             " get ptr to arg list\r
+    010533  0a   011331 7010 00   5778         tsx1    get_our_lp              " get ptr to our linkage section\r
+    010534  aa  6 00025 7401 00   5779         stx0    sp|stack_frame.return_ptr+1     " save offset into user's segment\r
+    010535  aa  6 00025 7541 00   5780         sti     sp|stack_frame.return_ptr+1     " save indicators\r
+    010536  0a   010460 7100 16   5781         tra     plio2,x6                        " jump to appropriate proc\r
+                                  5782  "\r
+    010537                        5783  ft_fast_read_or_write:\r
+    010537  aa  6 00035 7631 00   5784         lprpbb  sp|stack_frame.support_ptr      " load ptr to fortran_io_'s fio_ps\r
+    010540  aa  3 00006 7571 00   5785         staq    bb|fio_ps.job_bits_and_file\r
+    010541                        5786  ft_fast_call:\r
+    010541  aa  6 00025 7401 00   5787         stx0    sp|stack_frame.return_ptr+1     " save offset into user's segment\r
+    010542  aa  6 00025 7541 00   5788         sti     sp|stack_frame.return_ptr+1     " save indicators\r
+    010543  aa  6 00010 7531 00   5789         sreg    sp|8\r
+    010544  aa  3 00002 3521 20   5790         eppbp   bb|fio_ps.stack_frame_p,*       " load ptr to fortran_io_'s static stack frame\r
+    010545  aa  6 00022 3715 20   5791         epp5      sp|stack_frame.next_sp,*      " use parents next_sp\r
+    010546  aa  2 00022 6515 00   5792         spri5     bp|stack_frame.next_sp        " for fortran_io_'s next_sp\r
+    010547  aa  2 00004 6515 00   5793         spri5     bp|4                          " & for fortran_io_'s perm extension\r
+    010550  aa  6 00022 2521 00   5794         spribp  sp|stack_frame.next_sp  " store as next sp for user frame\r
+    010551  aa  2 00000 3721 00   5795         eppsp   bp|0                    " activate fortran_io_'s stack frame\r
+    010552  aa  3 00004 4461 20   5796         sxl6    bb|fio_ps.label_index_addr,*    " store index value for fortran_io_'s transfer\r
+    010553  aa   000000 6340 07   5797         ldi     0,dl                    " force binary floating point mode\r
+    010554  aa  3 00000 7101 20   5798         tra     bb|fio_ps.label_addr,*  " transfer directly into fortran_io_\r
+                                  5799  "\r
+                                  5800  "      Transmission operators entered with pointer to element in pr2, descriptor in a,\r
+                                  5801  "      and count in q. Read comments preceding the label "fortran_read" before modifying\r
+                                  5802  "      this operator.\r
+                                  5803  "\r
+                                  5804  \r
+    010555                        5805  fortran_scalar_xmit:\r
+    010555                        5806  fortran_array_xmit:\r
+    010555  aa   000017 6260 00   5807         eax6    15\r
+                                  5808  \r
+    010556                        5809  ft_fast_xmit:\r
+    010556  aa  6 00035 7631 00   5810         lprpbb  sp|stack_frame.support_ptr      " load ptr to fortran_io_'s fio_ps\r
+    010557  aa  3 00012 2521 00   5811         spribp  bb|fio_ps.element_ptr\r
+    010560  aa  3 00010 7571 00   5812         staq    bb|fio_ps.ele_desc_and_count\r
+    010561  0a   010541 7100 00   5813         tra     ft_fast_call\r
+                                  5814  "\r
+                                  5815  "      File control operator entered with unit number in q, job_bits in a. Read comments\r
+                                  5816  "      preceding the label "fortran_read" before modifying this operator.\r
+                                  5817  "\r
+    010562                        5818  fortran_manip:\r
+    010562  aa   000015 6260 00   5819         eax6    13\r
+    010563  0a   010520 7100 00   5820         tra     ft_io\r
+                                  5821  "\r
+                                  5822  "      Termination operator, no registers. Read comments preceding the label\r
+                                  5823  "      "fortran_read" before modifying this operator.\r
+                                  5824  "\r
+    010564                        5825  fortran_terminate:\r
+    010564  aa   000016 6260 00   5826         eax6    14\r
+    010565  aa  6 00035 7631 00   5827         lprpbb  sp|stack_frame.support_ptr      " load ptr to fortran_io_'s fio_ps\r
+    010566  0a   010541 7100 00   5828         tra     ft_fast_call\r
+                                  5829  "\r
+                                  5830  "      fortran open element\r
+                                  5831  "\r
+                                  5832  "      Called with:\r
+                                  5833  "      a-reg   = bit string (boolean value)\r
+                                  5834  "      q-reg   = integer (string length, etc.)\r
+                                  5835  "      x1      = case selector\r
+                                  5836  "      pr2     = string pointer\r
+                                  5837  "      pr3     = PS.buffer_p\r
+                                  5838  "\r
+    010567                        5839  ftn_open_element:\r
+    010567  0a   010570 7100 31   5840         tra     *+1,1*\r
+    010570  0a   010606 0000 00   5841         arg     ftn_open_indicators                     " 0\r
+    010571  0a   010610 0000 00   5842         arg     ftn_open_status                 " 1\r
+    010572  0a   010620 0000 00   5843         arg     ftn_open_io_switch                      " 2\r
+    010573  0a   010630 0000 00   5844         arg     ftn_open_attach_desc            " 3\r
+    010574  0a   010640 0000 00   5845         arg     ftn_open_filename                       " 4\r
+    010575  0a   010650 0000 00   5846         arg     ftn_open_mode                   " 5\r
+    010576  0a   010660 0000 00   5847         arg     ftn_open_access                 " 6\r
+    010577  0a   010670 0000 00   5848         arg     ftn_open_form                   " 7\r
+    010600  0a   010710 0000 00   5849         arg     ftn_open_max_rec_len            " 8\r
+    010601  0a   010712 0000 00   5850         arg     ftn_open_binary                 " 9\r
+    010602  0a   010714 0000 00   5851         arg     ftn_open_prompt                 " 10\r
+    010603  0a   010716 0000 00   5852         arg     ftn_open_carriage                       " 11\r
+    010604  0a   010720 0000 00   5853         arg     ftn_open_defer                  " 12\r
+    010605  0a   010700 0000 00   5854         arg     ftn_open_blank                  " 13\r
+                                  5855  \r
+    010606                        5856  ftn_open_indicators:\r
+    010606  aa  3 00000 7551 00   5857         sta     pr3|fortran_open_data.specified\r
+    010607  aa  6 00046 7101 70   5858         tra     sp|tbp,*0\r
+                                  5859  \r
+                                  5860         macro   ftn_open_string\r
+                              1   5861  ftn_open_&1:\r
+                              2   5862         stq     pr3|fortran_open_data.&1\r
+                              3   5863         lxl1    pr3|fortran_open_data.char_str\r
+                              4   5864         stx1    pr3|fortran_open_data.&1\r
+                              5   5865         mlr     (pr,rl),(pr,x1,rl)\r
+                              6   5866         desc9a  pr2|0,ql\r
+                              7   5867         desc9a  pr3|fortran_open_data.char_str+1,ql\r
+                              8   5868         asq     pr3|fortran_open_data.char_str\r
+                              9   5869         tra     sp|tbp,*0\r
+                             10   5870         &end\r
+                                  5871  \r
+                                  5872         ftn_open_string status\r
+    010610                              ftn_open_status:\r
+    010610  aa  3 00001 7561 00                stq     pr3|fortran_open_data.status\r
+    010611  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010612  aa  3 00001 7411 00                stx1    pr3|fortran_open_data.status\r
+    010613  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010614  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010615  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010616  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010617  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5873  \r
+                                  5874         ftn_open_string io_switch\r
+    010620                              ftn_open_io_switch:\r
+    010620  aa  3 00002 7561 00                stq     pr3|fortran_open_data.io_switch\r
+    010621  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010622  aa  3 00002 7411 00                stx1    pr3|fortran_open_data.io_switch\r
+    010623  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010624  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010625  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010626  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010627  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5875  \r
+                                  5876         ftn_open_string attach_desc\r
+    010630                              ftn_open_attach_desc:\r
+    010630  aa  3 00003 7561 00                stq     pr3|fortran_open_data.attach_desc\r
+    010631  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010632  aa  3 00003 7411 00                stx1    pr3|fortran_open_data.attach_desc\r
+    010633  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010634  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010635  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010636  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010637  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5877  \r
+                                  5878         ftn_open_string filename\r
+    010640                              ftn_open_filename:\r
+    010640  aa  3 00004 7561 00                stq     pr3|fortran_open_data.filename\r
+    010641  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010642  aa  3 00004 7411 00                stx1    pr3|fortran_open_data.filename\r
+    010643  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010644  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010645  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010646  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010647  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5879  \r
+                                  5880         ftn_open_string mode\r
+    010650                              ftn_open_mode:\r
+    010650  aa  3 00005 7561 00                stq     pr3|fortran_open_data.mode\r
+    010651  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010652  aa  3 00005 7411 00                stx1    pr3|fortran_open_data.mode\r
+    010653  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010654  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010655  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010656  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010657  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5881  \r
+                                  5882         ftn_open_string access\r
+    010660                              ftn_open_access:\r
+    010660  aa  3 00006 7561 00                stq     pr3|fortran_open_data.access\r
+    010661  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010662  aa  3 00006 7411 00                stx1    pr3|fortran_open_data.access\r
+    010663  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010664  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010665  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010666  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010667  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5883  \r
+                                  5884         ftn_open_string form\r
+    010670                              ftn_open_form:\r
+    010670  aa  3 00007 7561 00                stq     pr3|fortran_open_data.form\r
+    010671  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010672  aa  3 00007 7411 00                stx1    pr3|fortran_open_data.form\r
+    010673  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010674  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010675  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010676  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010677  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5885  \r
+                                  5886         ftn_open_string blank\r
+    010700                              ftn_open_blank:\r
+    010700  aa  3 00015 7561 00                stq     pr3|fortran_open_data.blank\r
+    010701  aa  3 00016 7211 00                lxl1    pr3|fortran_open_data.char_str\r
+    010702  aa  3 00015 7411 00                stx1    pr3|fortran_open_data.blank\r
+    010703  aa  0 00151 1005 40                mlr     (pr,rl),(pr,x1,rl)\r
+    010704  aa   200000 000006                 desc9a  pr2|0,ql\r
+    010705  aa   300017 000006                 desc9a  pr3|fortran_open_data.char_str+1,ql\r
+    010706  aa  3 00016 0561 00                asq     pr3|fortran_open_data.char_str\r
+    010707  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5887  \r
+    010710                        5888  ftn_open_max_rec_len:\r
+    010710  aa  3 00010 7561 00   5889         stq     pr3|fortran_open_data.max_rec_len\r
+    010711  aa  6 00046 7101 70   5890         tra     sp|tbp,*0\r
+                                  5891  \r
+                                  5892         macro   ftn_open_flag\r
+                              1   5893  ftn_open_&1:\r
+                              2   5894         sta     pr3|fortran_open_data.&1\r
+                              3   5895         tra     sp|tbp,*0\r
+                              4   5896         &end\r
+                                  5897  \r
+                                  5898         ftn_open_flag   binary\r
+    010712                              ftn_open_binary:\r
+    010712  aa  3 00011 7551 00                sta     pr3|fortran_open_data.binary\r
+    010713  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5899  \r
+                                  5900         ftn_open_flag   prompt\r
+    010714                              ftn_open_prompt:\r
+    010714  aa  3 00012 7551 00                sta     pr3|fortran_open_data.prompt\r
+    010715  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5901  \r
+                                  5902         ftn_open_flag   carriage\r
+    010716                              ftn_open_carriage:\r
+    010716  aa  3 00013 7551 00                sta     pr3|fortran_open_data.carriage\r
+    010717  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5903  \r
+                                  5904         ftn_open_flag   defer\r
+    010720                              ftn_open_defer:\r
+    010720  aa  3 00014 7551 00                sta     pr3|fortran_open_data.defer\r
+    010721  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                  5905  "\r
+                                  5906  "\r
+                                  5907  "      ftn_inquire_element\r
+                                  5908  "\r
+                                  5909  "      Called with:\r
+                                  5910  "      a       = bit mask\r
+                                  5911  "      q       = string length or unit number\r
+                                  5912  "      pr2     = data pointer\r
+                                  5913  "      pr3     = area pointer\r
+                                  5914  "      x1      = case selector\r
+                                  5915  "\r
+    010722                        5916  ftn_inquire_element:\r
+    010722  0a   010723 7100 31   5917         tra     *+1,x1*\r
+    010723  0a   010756 0000 00   5918         arg     ftn_inquire_indicators          " 0\r
+    010724  0a   010760 0000 00   5919         arg     ftn_inquire_noop                        " 1\r
+    010725  0a   010760 0000 00   5920         arg     ftn_inquire_noop                        " 2\r
+    010726  0a   010760 0000 00   5921         arg     ftn_inquire_noop                        " 3\r
+    010727  0a   010761 0000 00   5922         arg     ftn_inquire_filename            " 4\r
+    010730  0a   010760 0000 00   5923         arg     ftn_inquire_noop                        " 5\r
+    010731  0a   010767 0000 00   5924         arg     ftn_inquire_access                      " 6\r
+    010732  0a   010772 0000 00   5925         arg     ftn_inquire_form                        " 7\r
+    010733  0a   011017 0000 00   5926         arg     ftn_inquire_recl                        " 8\r
+    010734  0a   010760 0000 00   5927         arg     ftn_inquire_noop                        " 9\r
+    010735  0a   010760 0000 00   5928         arg     ftn_inquire_noop                        " 10\r
+    010736  0a   010760 0000 00   5929         arg     ftn_inquire_noop                        " 11\r
+    010737  0a   010760 0000 00   5930         arg     ftn_inquire_noop                        " 12\r
+    010740  0a   010775 0000 00   5931         arg     ftn_inquire_blank                       " 13\r
+    010741  0a   010765 0000 00   5932         arg     ftn_inquire_unit                        " 14\r
+    010742  0a   010760 0000 00   5933         arg     ftn_inquire_noop                        " 15\r
+    010743  0a   010760 0000 00   5934         arg     ftn_inquire_noop                        " 16\r
+    010744  0a   011021 0000 00   5935         arg     ftn_inquire_exist                       " 17\r
+    010745  0a   011023 0000 00   5936         arg     ftn_inquire_opened                      " 18\r
+    010746  0a   011025 0000 00   5937         arg     ftn_inquire_number                      " 19\r
+    010747  0a   011027 0000 00   5938         arg     ftn_inquire_named                       " 20\r
+    010750  0a   011000 0000 00   5939         arg     ftn_inquire_name                        " 21\r
+    010751  0a   011003 0000 00   5940         arg     ftn_inquire_sequential          " 22\r
+    010752  0a   011006 0000 00   5941         arg     ftn_inquire_formatted           " 23\r
+    010753  0a   011011 0000 00   5942         arg     ftn_inquire_unformatted         " 24\r
+    010754  0a   011031 0000 00   5943         arg     ftn_inquire_nextrec                     " 25\r
+    010755  0a   011014 0000 00   5944         arg     ftn_inquire_direct                      " 26\r
+                                  5945  \r
+                                  5946  \r
+    010756                        5947  ftn_inquire_indicators:\r
+    010756  aa  3 00000 7551 00   5948         sta     pr3|ftn_inquire_data.specified\r
+    010757  aa  6 00046 7101 70   5949         tra     sp|tbp,*x0\r
+                                  5950  \r
+    010760                        5951  ftn_inquire_noop:\r
+    010760  aa  6 00046 7101 70   5952         tra     sp|tbp,*x0\r
+                                  5953  \r
+    010761                        5954  ftn_inquire_filename:\r
+    010761  aa  0 40100 1005 40   5955         mlr     (pr,rl),(pr),fill(040)\r
+    010762  aa   200000 000006    5956         desc9a  pr2|0,ql\r
+    010763  aa   300002 000250    5957         desc9a  pr3|ftn_inquire_data.filename,168\r
+    010764  aa  6 00046 7101 70   5958         tra     sp|tbp,*x0\r
+                                  5959  \r
+    010765                        5960  ftn_inquire_unit:\r
+    010765  aa  3 00001 7561 00   5961         stq     pr3|ftn_inquire_data.unit\r
+    010766  aa  6 00046 7101 70   5962         tra     sp|tbp,*x0\r
+                                  5963  \r
+                                  5964         macro   ftn_inquire_string\r
+                              1   5965  ftn_inquire_&1:\r
+                              2   5966         sprp2   pr3|ftn_inquire_data.&1\r
+                              3   5967         stq     pr3|ftn_inquire_data.&1+1\r
+                              4   5968         tra     sp|tbp,*x0\r
+                              5   5969         &end\r
+                                  5970  \r
+                                  5971         ftn_inquire_string      access\r
+    010767                              ftn_inquire_access:\r
+    010767  aa  3 00054 5421 00                sprp2   pr3|ftn_inquire_data.access\r
+    010770  aa  3 00055 7561 00                stq     pr3|ftn_inquire_data.access+1\r
+    010771  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5972  \r
+                                  5973         ftn_inquire_string      form\r
+    010772                              ftn_inquire_form:\r
+    010772  aa  3 00056 5421 00                sprp2   pr3|ftn_inquire_data.form\r
+    010773  aa  3 00057 7561 00                stq     pr3|ftn_inquire_data.form+1\r
+    010774  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5974  \r
+                                  5975         ftn_inquire_string      blank\r
+    010775                              ftn_inquire_blank:\r
+    010775  aa  3 00061 5421 00                sprp2   pr3|ftn_inquire_data.blank\r
+    010776  aa  3 00062 7561 00                stq     pr3|ftn_inquire_data.blank+1\r
+    010777  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5976  \r
+                                  5977         ftn_inquire_string      name\r
+    011000                              ftn_inquire_name:\r
+    011000  aa  3 00067 5421 00                sprp2   pr3|ftn_inquire_data.name\r
+    011001  aa  3 00070 7561 00                stq     pr3|ftn_inquire_data.name+1\r
+    011002  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5978  \r
+                                  5979         ftn_inquire_string      sequential\r
+    011003                              ftn_inquire_sequential:\r
+    011003  aa  3 00071 5421 00                sprp2   pr3|ftn_inquire_data.sequential\r
+    011004  aa  3 00072 7561 00                stq     pr3|ftn_inquire_data.sequential+1\r
+    011005  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5980  \r
+                                  5981         ftn_inquire_string      formatted\r
+    011006                              ftn_inquire_formatted:\r
+    011006  aa  3 00073 5421 00                sprp2   pr3|ftn_inquire_data.formatted\r
+    011007  aa  3 00074 7561 00                stq     pr3|ftn_inquire_data.formatted+1\r
+    011010  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5982  \r
+                                  5983         ftn_inquire_string      unformatted\r
+    011011                              ftn_inquire_unformatted:\r
+    011011  aa  3 00075 5421 00                sprp2   pr3|ftn_inquire_data.unformatted\r
+    011012  aa  3 00076 7561 00                stq     pr3|ftn_inquire_data.unformatted+1\r
+    011013  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5984  \r
+                                  5985         ftn_inquire_string      direct\r
+    011014                              ftn_inquire_direct:\r
+    011014  aa  3 00100 5421 00                sprp2   pr3|ftn_inquire_data.direct\r
+    011015  aa  3 00101 7561 00                stq     pr3|ftn_inquire_data.direct+1\r
+    011016  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5986  \r
+                                  5987         macro   ftn_inquire_word\r
+                              1   5988  ftn_inquire_&1:\r
+                              2   5989         sprp2   pr3|ftn_inquire_data.&1\r
+                              3   5990         tra     sp|tbp,*x0\r
+                              4   5991         &end\r
+                                  5992  \r
+                                  5993         ftn_inquire_word        recl\r
+    011017                              ftn_inquire_recl:\r
+    011017  aa  3 00060 5421 00                sprp2   pr3|ftn_inquire_data.recl\r
+    011020  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5994  \r
+                                  5995         ftn_inquire_word        exist\r
+    011021                              ftn_inquire_exist:\r
+    011021  aa  3 00063 5421 00                sprp2   pr3|ftn_inquire_data.exist\r
+    011022  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5996  \r
+                                  5997         ftn_inquire_word        opened\r
+    011023                              ftn_inquire_opened:\r
+    011023  aa  3 00064 5421 00                sprp2   pr3|ftn_inquire_data.opened\r
+    011024  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  5998  \r
+                                  5999         ftn_inquire_word        number\r
+    011025                              ftn_inquire_number:\r
+    011025  aa  3 00065 5421 00                sprp2   pr3|ftn_inquire_data.number\r
+    011026  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  6000  \r
+                                  6001         ftn_inquire_word        named\r
+    011027                              ftn_inquire_named:\r
+    011027  aa  3 00066 5421 00                sprp2   pr3|ftn_inquire_data.named\r
+    011030  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  6002  \r
+                                  6003         ftn_inquire_word        nextrec\r
+    011031                              ftn_inquire_nextrec:\r
+    011031  aa  3 00077 5421 00                sprp2   pr3|ftn_inquire_data.nextrec\r
+    011032  aa  6 00046 7101 70                tra     sp|tbp,*x0\r
+                                  6004  "\r
+                                  6005  "\r
+                                  6006  "      get address of I/O area operator, no registers. Read comments preceding the label\r
+                                  6007  "      "fortran_read" before modifying this operator.\r
+                                  6008  "\r
+    011033                        6009  ftn_get_area_ptr:\r
+    011033  aa   000026 6260 00   6010         eax6    22\r
+    011034  aa  6 00052 2341 00   6011         szn     sp|ps_ptr                       " <0 if fortran_io_ already has a stack frame\r
+    011035  0a   010525 6050 00   6012         tpl     ft_io1\r
+    011036  aa  6 00035 7631 00   6013         lprpbb  sp|stack_frame.support_ptr      " load ptr to fortran_io_'s fio_ps\r
+    011037  0a   010541 7100 00   6014         tra     ft_fast_call\r
+                                  6015  \f\r
+                                  6016  "\r
+                                  6017  "      operators to do pl1 pointer function, entered with pointer to area in bp\r
+                                  6018  "      and offset in q.\r
+                                  6019  "\r
+    011040                        6020  pointer_easy:\r
+    011040                        6021  pointer_hard:\r
+    011040  0a   012443 1160 00   6022         cmpq    nullo           are we converting null offset\r
+    011041  aa   000004 6010 04   6023         tnz     4,ic            no, do conversion\r
+    011042  0a   012436 2370 00   6024         ldaq    null            yes, get null ptr\r
+    011043  0a   012436 3520 20   6025         eppbp   null,*          and in bp\r
+    011044  aa  6 00046 7101 70   6026         tra     sp|tbp,*0               and return\r
+    011045  aa  6 00076 2521 00   6027         spribp  sp|temp\r
+    011046  aa  6 00077 0361 00   6028         adlq    sp|temp+1               add in word and bit offset\r
+    011047  aa  6 00077 7561 00   6029         stq     sp|temp+1               ..\r
+    011050  aa  6 00076 3521 20   6030         eppbp   sp|temp,*               load ptr into bp\r
+    011051  aa  6 00076 2371 00   6031         ldaq    sp|temp         and into aq\r
+    011052  aa  6 00046 7101 70   6032         tra     sp|tbp,*0               and return\r
+                                  6033  "\r
+                                  6034  "      operator to do pl1 pointer function when packed ptr should be returned\r
+                                  6035  "\r
+    011053                        6036  pointer_easy_pk:\r
+    011053                        6037  pointer_hard_pk:\r
+    011053  0a   012443 1160 00   6038         cmpq    nullo           return null if null input\r
+    011054  aa   000004 6010 04   6039         tnz     4,ic\r
+    011055  0a   012442 2360 00   6040         ldq     null_pk\r
+    011056  0a   012436 3520 20   6041         eppbp   null,*\r
+    011057  aa  6 00046 7101 70   6042         tra     sp|tbp,*0\r
+    011060  aa  6 00076 2521 00   6043         spribp  sp|temp\r
+    011061  aa  6 00077 0361 00   6044         adlq    sp|temp+1               add in word and bit offset\r
+    011062  aa  6 00077 7561 00   6045         stq     sp|temp+1               ..\r
+    011063  aa  6 00076 3521 20   6046         eppbp   sp|temp,*               load ptr into bp\r
+    011064  aa  6 00076 2371 00   6047         ldaq    sp|temp         and into aq\r
+    011065  0a   007655 7100 00   6048         tra     unpk_to_pk      go return packed value\r
+                                  6049  "\r
+                                  6050  "      operators for doing pl1 offset function.  entered with pointer to area in bp\r
+                                  6051  "      and pointer value in aq or q\r
+                                  6052  "\r
+    011066                        6053  offset_easy:\r
+    011066                        6054  offset_hard:\r
+    011066  0a   002106 3770 00   6055         anaq    ptr_mask                is input null\r
+    011067  0a   012440 1170 00   6056         cmpaq   nullx\r
+    011070  aa   000003 6010 04   6057         tnz     3,ic            no, do conversion\r
+    011071  0a   012443 2360 00   6058  oe:    ldq     nullo           return null offset\r
+    011072  aa  6 00046 7101 70   6059         tra     sp|tbp,*0\r
+    011073  aa  6 00072 7561 00   6060  oe1:   stq     sp|temp2                save word and bit offset\r
+    011074  aa  2 00000 6351 00   6061         eaa     bp|0            get offset of area in au\r
+    011075  0a   011705 6750 00   6062         era     mask_bit_one    form 2's complement of whole a-reg\r
+    011076  aa   000001 0350 07   6063         adla    1,dl            w/o overflow\r
+    011077  aa  6 00072 0351 00   6064         adla    sp|temp2                subtract area origin from word offset\r
+    011100  aa   000044 7730 00   6065         lrl     36              shift into q\r
+    011101  aa  6 00046 7101 70   6066         tra     sp|tbp,*0               and return\r
+                                  6067  "\r
+    011102                        6068  offset_easy_pk:\r
+    011102                        6069  offset_hard_pk:\r
+    011102  0a   012442 1160 00   6070         cmpq    null_pk         is input null\r
+    011103  0a   011071 6000 00   6071         tze     oe              yes, go return null offset\r
+    011104  aa   000006 7760 00   6072         qlr     6               no, convert to proper form\r
+    011105  aa   000014 7360 00   6073         qls     12\r
+    011106  aa   000022 7370 00   6074         lls     18\r
+    011107  aa   000003 7720 00   6075         qrl     3\r
+    011110  aa   000022 7730 00   6076         lrl     18\r
+    011111  0a   011073 7100 00   6077         tra     oe1             go subtract area origin\r
+                                  6078  "\r
+                                  6079  "      operator to alloc block of N words in the user storage area\r
+                                  6080  "      as defined by the stack header\r
+                                  6081  "      entered with N in q, returns with pointer to block\r
+                                  6082  "      in bp.\r
+                                  6083  "\r
+    011112                        6084  alloc_storage:\r
+    011112  aa  6 00000 3731 00   6085         epbpsb  sp|0\r
+    011113  aa  7 00016 3521 20   6086         eppbp   sb|stack_header.user_free_ptr,*\r
+    011114  4a  4 00344 7101 20   6087         tra     <alloc_>|[op_storage_]\r
+                                  6088  "\r
+                                  6089  "      operator to alloc block of N words in user storage area\r
+                                  6090  "      entered with N in q and bp pointing at where to put ptr\r
+                                  6091  "\r
+    011115                        6092  alloc_block:\r
+    011115  aa  6 00037 4401 00   6093         sxl0    sp|stack_frame.operator_ret_ptr save return\r
+    011116  0a   007227 6200 00   6094         eax0    z_done          load index with return\r
+                                  6095  "\r
+    011117                        6096  call_alloc:\r
+    011117  aa  6 00010 7531 00   6097         sreg    sp|8            save registers include size of block in Q\r
+    011120  aa  6 00076 2521 00   6098         spribp  sp|arg_list+6   save address of ptr\r
+    011121  aa  6 00015 3521 00   6099         eppbp   sp|8+5          get address of saved size\r
+    011122  aa  6 00072 2521 00   6100         spribp  sp|arg_list+2   and use as 1st arg\r
+    011123  aa  6 00000 3731 00   6101         epbpsb  sp|0                    get ptr to our stack header\r
+    011124  aa  7 00016 3521 00   6102         eppbp   sb|stack_header.user_free_ptr  and pass user free ptr as 2nd arg\r
+    011125  aa  6 00074 2521 00   6103         spribp  sp|arg_list+4\r
+    011126  aa   014000 4310 07   6104         fld     3*2048,dl\r
+    011127  4a  4 00346 3521 20   6105         eppbp   <alloc_>|[storage_]     call alloc_|storage_\r
+                                  6106  "\r
+    011130                        6107  call_alloc_free:\r
+    011130  aa  6 00070 7571 00   6108         staq    sp|arg_list     save head of arg list\r
+    011131  aa  6 00070 3501 00   6109         eppap   sp|arg_list     get ptr to arg list\r
+    011132  aa   000004 3514 04   6110         epp1    4,ic            store return address and indicators\r
+    011133  aa  6 00024 2515 00   6111         spri1   sp|stack_frame.return_ptr\r
+    011134  aa  6 00025 7541 00   6112         sti     sp|stack_frame.return_ptr+1\r
+    011135  aa  2 00000 7131 00   6113         callsp  bp|0\r
+    011136  aa  6 00010 0731 00   6114         lreg    sp|8            restore registers\r
+    011137  aa  6 00046 3521 20   6115         eppbp   sp|tbp,*                restore ptr in sp|stack_frame.return_ptr\r
+    011140  aa  6 00024 2521 00   6116         spribp  sp|stack_frame.return_ptr\r
+    011141  aa   000000 7100 10   6117         tra     0,0             return to caller\r
+                                  6118  "\r
+                                  6119  "      operator to free block pointed at by pointer pointed at by bp\r
+                                  6120  "\r
+    011142                        6121  free_block:\r
+    011142  aa  2 00000 2371 00   6122         ldaq    bp|0            return if there is nothing to free\r
+    011143  0a   012436 6770 00   6123         eraq    null\r
+    011144  0a   002106 3770 00   6124         anaq    ptr_mask\r
+    011145  aa  6 00046 6001 70   6125         tze     sp|tbp,*0\r
+    011146  aa  6 00037 4401 00   6126         sxl0    sp|stack_frame.operator_ret_ptr save return\r
+    011147  0a   007227 6200 00   6127         eax0    z_done          load index with return\r
+                                  6128  "\r
+    011150                        6129  call_free:\r
+    011150  aa  6 00010 7531 00   6130         sreg    sp|8            save registers\r
+    011151  aa  6 00072 2521 00   6131         spribp  sp|arg_list+2   save address of pointer\r
+    011152  4a  4 00350 3521 20   6132         eppbp   <freen_>|[freen_]       get ptr to proc\r
+    011153  aa   004000 4310 07   6133         fld     1*2048,dl\r
+    011154  0a   011130 7100 00   6134         tra     call_alloc_free go call proc\r
+                                  6135  "\r
+                                  6136  "      operator to allocate controlled generation given size of descriptor in q\r
+                                  6137  "      and pointer to controlled block in bp\r
+                                  6138  "\r
+    011155                        6139  push_ctl_desc:\r
+    011155  aa   000002 6210 00   6140         eax1    2               init offset\r
+    011156  0a   011160 7100 00   6141         tra     push_ctl_data+1\r
+                                  6142  "\r
+                                  6143  "      operator to allocate controlled generation given size of data in q\r
+                                  6144  "      and pointer to controlled block in bp\r
+                                  6145  "\r
+    011157                        6146  push_ctl_data:\r
+    011157  aa   000000 6210 00   6147         eax1    0               init offset\r
+                                  6148  "\r
+    011160  aa  6 00037 4401 00   6149         sxl0    sp|stack_frame.operator_ret_ptr\r
+    011161  aa  6 00050 2521 00   6150         spribp  sp|temp_pt      save ptr to ctl variable\r
+    011162  aa   000006 0760 07   6151         adq     6,dl            add in size of ctl block\r
+    011163  aa  6 00056 3521 00   6152         eppbp   sp|double_temp  get ptr to temp\r
+    011164  0a   011117 7000 00   6153         tsx0    call_alloc      go allocate space\r
+    011165  aa  6 00050 3521 20   6154         eppbp   sp|temp_pt,*    get back ptr to ctl block\r
+    011166  aa  6 00056 3701 20   6155         epplp   sp|double_temp,*        get ptr to allocated space\r
+    011167  aa  2 00000 2371 00   6156         ldaq    bp|0            copy current generation\r
+    011170  aa  4 00000 7571 00   6157         staq    lp|0\r
+    011171  aa  2 00002 2371 00   6158         ldaq    bp|2\r
+    011172  aa  4 00002 7571 00   6159         staq    lp|2\r
+    011173  aa  2 00004 2371 00   6160         ldaq    bp|4\r
+    011174  aa  4 00004 7571 00   6161         staq    lp|4\r
+    011175  aa  2 00004 6501 00   6162         sprilp  bp|4            store ptr to old generation\r
+    011176  aa  4 00006 3701 00   6163         epplp   lp|6            get ptr to data|desc\r
+    011177  aa  2 00000 6501 11   6164         sprilp  bp|0,1          store ptr to data|desc\r
+    011200  0a   007227 7100 00   6165         tra     z_done          and return\r
+                                  6166  "\r
+                                  6167  "      operators to free a controlled generation, entered with\r
+                                  6168  "      pointer to controlled block in bp\r
+                                  6169  "\r
+    011201                        6170  pop_ctl_data:\r
+    011201                        6171  pop_ctl_desc:\r
+    011201  aa  2 00004 2371 00   6172         ldaq    bp|4            return if there is nothing to free\r
+    011202  0a   012436 6770 00   6173         eraq    null\r
+    011203  0a   002106 3770 00   6174         anaq    ptr_mask\r
+    011204  aa  6 00046 6001 70   6175         tze     sp|tbp,*0\r
+    011205  aa  6 00037 4401 00   6176         sxl0    sp|stack_frame.operator_ret_ptr\r
+    011206  aa  2 00004 3701 20   6177         epplp   bp|4,*          get ptr to previous generation\r
+    011207  aa  6 00050 6501 00   6178         sprilp  sp|temp_pt      save for freeing\r
+    011210  aa  4 00000 2371 00   6179         ldaq    lp|0            copy old generation into current\r
+    011211  aa  2 00000 7571 00   6180         staq    bp|0\r
+    011212  aa  4 00002 2371 00   6181         ldaq    lp|2\r
+    011213  aa  2 00002 7571 00   6182         staq    bp|2\r
+    011214  aa  4 00004 2371 00   6183         ldaq    lp|4\r
+    011215  aa  2 00004 7571 00   6184         staq    bp|4\r
+    011216  aa  6 00050 3521 00   6185         eppbp   sp|temp_pt      get ptr to block to be freed\r
+    011217  0a   011150 7000 00   6186         tsx0    call_free               free it\r
+    011220  0a   007227 7100 00   6187         tra     z_done          and then return\r
+                                  6188  "\r
+                                  6189  "      operator to return number of allocated generation of contrlled\r
+                                  6190  "      variable specified by bp\r
+                                  6191  "\r
+    011221                        6192  allocation:\r
+    011221  aa   000000 6210 00   6193         eax1    0               init count\r
+    011222  aa  2 00004 2371 00   6194         ldaq    bp|4            get ptr to previous generation\r
+    011223  0a   012436 6770 00   6195         eraq    null            check for null\r
+    011224  0a   002106 3770 00   6196         anaq    ptr_mask\r
+    011225  0a   011231 6000 00   6197         tze     allocation_done null means done\r
+    011226  aa  2 00004 3521 20   6198         eppbp   bp|4,*          not null, step backwards\r
+    011227  aa   000001 0210 03   6199         adlx1   1,du            update count\r
+    011230  0a   011222 7100 00   6200         tra     allocation+1\r
+    011231                        6201  allocation_done:\r
+    011231  aa   000000 6360 11   6202         eaq     0,1             move count to ql\r
+    011232  aa   000022 7720 00   6203         qrl     18\r
+    011233  aa  6 00046 7101 70   6204         tra     sp|tbp,*0               and return\r
+                                  6205  "\r
+                                  6206  "      operators for unpacking|packing pictured values\r
+                                  6207  "      entered with pr1 -> target, pr3 -> picture, pr5 -> source\r
+                                  6208  "\r
+    011234                        6209  unpack_picture:\r
+    011234  0a   011331 7010 00   6210         tsx1    get_our_lp\r
+    011235  4a  4 00352 3521 20   6211         eppbp   <unpack_picture_>|[unpack_picture_]\r
+    011236  0a   011241 7100 00   6212         tra     picture_common\r
+                                  6213  "\r
+    011237                        6214  pack_picture:\r
+    011237  0a   011331 7010 00   6215         tsx1    get_our_lp\r
+    011240  4a  4 00354 3521 20   6216         eppbp   <pack_picture_>|[pack_picture_]\r
+                                  6217  "\r
+    011241                        6218  picture_common:\r
+    011241  aa  6 00037 4401 00   6219         sxl0    sp|stack_frame.operator_ret_ptr\r
+    011242  0a   007227 6200 00   6220         eax0    z_done\r
+    011243  aa  6 00010 7531 00   6221         sreg    sp|8\r
+    011244  aa  6 00072 2515 00   6222         spri1   sp|arg_list+2\r
+    011245  aa  6 00074 2535 00   6223         spri3   sp|arg_list+4\r
+    011246  aa  6 00076 6515 00   6224         spri5   sp|arg_list+6\r
+    011247  aa   014000 4310 07   6225         fld     3*2048,dl\r
+    011250  0a   011130 7100 00   6226         tra     call_alloc_free\r
+                                  6227  "\r
+                                  6228  "      internal subroutine to signal a condition.  entered with\r
+                                  6229  "      bp pointing at name and x6 holding size of name\r
+                                  6230  "\r
+    011251                        6231  call_signal_:\r
+    011251  aa  6 00010 7531 00   6232         sreg    sp|8            save registers for call\r
+                                  6233         get_stack_offset\r
+    011252  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    011253  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    011254  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    011255  aa  6 00024 3501 21   6234         eppap   sp|stack_header.stack_end_ptr,au* get ptr to end of stack frame\r
+    011256  aa   000060 6200 00   6235         eax0    48              increase stack frame by 48 words\r
+    011257  aa  6 00023 0201 00   6236         adlx0   sp|stack_frame.next_sp+1        ..\r
+    011260  aa  6 00023 7401 00   6237         stx0    sp|stack_frame.next_sp+1\r
+    011261  aa  6 00025 7401 01   6238         stx0    sp|stack_header.stack_end_ptr+1,au adjust stack end pointer too\r
+    011262  aa  0 00000 2541 00   6239         spri    ap|0            save bases\r
+    011263  aa  0 00030 3501 00   6240         eppap   ap|24           get ptr to arg list\r
+    011264  aa  0 00002 2521 00   6241         spribp  ap|2            save ptr to condition name as 1st arg\r
+    011265  0a   012436 3520 00   6242         eppbp   null            get ptr to null file\r
+    011266  aa  0 00012 2521 00   6243         spribp  ap|10           save as 5th arg\r
+    011267                        6244  signal_common:\r
+    011267  aa  0 00016 7561 00   6245         stq     ap|14           store oncode value\r
+    011270  aa  0 00016 3521 00   6246         eppbp   ap|14           use oncode value\r
+    011271  aa  0 00010 2521 00   6247         spribp  ap|8            as 4th arg\r
+    011272  aa  0 00017 4501 00   6248         stz     ap|15           save string length of condition name\r
+    011273  aa  0 00017 4461 00   6249         sxl6    ap|15\r
+    011274  aa  0 00017 3521 00   6250         eppbp   ap|15           pass name length\r
+    011275  aa  0 00004 2521 00   6251         spribp  ap|4            as 2nd arg\r
+    011276  aa  6 00037 7271 00   6252         lxl7    sp|stack_frame.operator_ret_ptr get ptr to entry into pl1_operators_\r
+    011277  aa   000001 1670 03   6253         sbx7    1,du\r
+    011300  aa  6 00046 3521 77   6254         eppbp   sp|tbp,*7               and save for use\r
+    011301  aa  0 00014 2521 00   6255         spribp  ap|12           as 3rd arg\r
+    011302  aa  0 00014 3521 00   6256         eppbp   ap|12\r
+    011303  aa  0 00006 2521 00   6257         spribp  ap|6\r
+    011304  aa   024000 4310 07   6258         fld     5*2048,dl               set number of args\r
+    011305  aa  0 00000 7571 00   6259         staq    ap|0\r
+    011306  0a   011331 7010 00   6260         tsx1    get_our_lp      get ptr to our linkage\r
+    011307  aa   000004 3514 04   6261         epp1    4,ic            store return address and indicators\r
+    011310  aa  6 00024 2515 00   6262         spri1   sp|stack_frame.return_ptr\r
+    011311  aa  6 00025 7541 00   6263         sti     sp|stack_frame.return_ptr+1\r
+    011312  4a  4 00356 7101 20   6264         tra     <pl1_signal_from_ops_>|[pl1_signal_from_ops_]\r
+    011313  aa  6 00022 3501 20   6265         eppap   sp|stack_frame.next_sp,*        point 48 words past stack extension\r
+    011314  aa  0 77720 1731 00   6266         lpri    ap|-48          restore pointer regs\r
+                                  6267         get_stack_offset\r
+    011315  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    011316  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    011317  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    011320  aa  6 00023 2201 00   6268            ldx0      sp|stack_frame.next_sp+1 reset the stack frame size\r
+    011321  aa   000060 1200 03   6269            sblx0     48,du               by subtracting the 48 words we added.\r
+    011322  aa  6 00023 7401 00   6270         stx0    sp|stack_frame.next_sp+1 update next sp pointer\r
+    011323  aa  6 00025 7401 01   6271         stx0    sp|stack_header.stack_end_ptr+1,au update stack end too\r
+    011324  aa  6 00010 0731 00   6272         lreg    sp|8            restore machine registers\r
+    011325  aa  6 00046 3505 70   6273         epbpap  sp|tbp,*0               restore return word pair\r
+    011326  aa  6 00024 2501 00   6274         spriap  sp|stack_frame.return_ptr segment number\r
+    011327  aa  6 00030 3501 20   6275         eppap   sp|stack_frame.operator_ptr,*   and pointer to operators\r
+    011330  aa   000000 7100 11   6276         tra     0,1             and return\r
+                                  6277  "\r
+                                  6278  "      Subroutine to load PR4 with a pointer to linkage of\r
+                                  6279  "      pl1_operators_. Also sets PR7 to stack|0. Calling sequence:\r
+                                  6280  "              tsx1    get_our_lp\r
+                                  6281  "\r
+    011331                        6282  get_our_lp:\r
+                                  6283         get_our_lp\r
+    011331  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    011332  0a   011332 2130 00                epaq    *               get ptr to ourselves\r
+    011333  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    011334  aa   000000 7100 11   6284         tra     0,1             return with lp loaded to our linkage\r
+                                  6285  "\r
+                                  6286  "      operator to signal io condition, same as signal except sp|40 holds\r
+                                  6287  "      pointer to file name.\r
+                                  6288  "\r
+    011335                        6289  io_signal:\r
+    011335  0a   007227 6210 00   6290         eax1    z_done          get return_pt for call to signal_common\r
+    011336  aa  6 00010 7531 00   6291         sreg    sp|8            save register for call\r
+                                  6292         get_stack_offset\r
+    011337  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    011340  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    011341  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    011342  aa  6 00037 4401 00   6293         sxl0    sp|stack_frame.operator_ret_ptr\r
+    011343  aa  6 00024 3501 21   6294         eppap   sp|stack_header.stack_end_ptr,au* get pointer to end of stack frame\r
+    011344  aa   000060 6200 00   6295         eax0    48              increase stack frame by 48 words\r
+    011345  aa  6 00023 0201 00   6296         adlx0   sp|stack_frame.next_sp+1        ..\r
+    011346  aa  6 00023 7401 00   6297         stx0    sp|stack_frame.next_sp+1        ..\r
+    011347  aa  6 00025 7401 01   6298         stx0    sp|stack_header.stack_end_ptr+1,au      don't forget stack end ptr\r
+    011350  aa  0 00000 2541 00   6299         spri    ap|0            store bases\r
+    011351  aa  0 00030 3501 00   6300         eppap   ap|24           get ptr to arg list\r
+    011352  aa   001750 2360 07   6301         ldq     =1000,dl                get oncode value\r
+    011353  aa  0 00002 2521 00   6302         spribp  ap|2            store ptr to cond name as 1st arg\r
+    011354  aa  6 00050 3521 00   6303         eppbp   sp|40           store ptr to file\r
+    011355  aa  0 00012 2521 00   6304         spribp  ap|10           as 5th arg\r
+    011356  0a   011267 7100 00   6305         tra     signal_common   jump into common section to signal and return\r
+                                  6306  "\r
+                                  6307  "      operator to set support bit in stack frame\r
+                                  6308  "\r
+    011357                        6309  set_support:\r
+    011357  aa   000200 2350 07   6310         lda     stack_frame.support_bit,dl\r
+    011360  aa  6 00020 2551 00   6311         orsa    sp|stack_frame.flag_word\r
+    011361  aa  6 00046 7101 70   6312         tra     sp|tbp,*0\r
+                                  6313  "\r
+    011362                        6314  get_math_entry:\r
+    011362  0a   011331 7010 00   6315         tsx1    get_our_lp\r
+    011363  0a   011364 7160 12   6316         xec     fort_math_names-1,2             get entry\r
+    011364  aa  6 00046 7101 70   6317         tra     sp|tbp,*0       return\r
+                                  6318  \r
+                                  6319  \r
+    011365                        6320  fort_math_names:\r
+    011365  4a  4 00360 3521 20   6321         epp2    <fort_bfp_builtins_>|[exp_]             1\r
+    011366  4a  4 00362 3521 20   6322         epp2    <fort_bfp_builtins_>|[alog_]            2\r
+    011367  4a  4 00364 3521 20   6323         epp2    <fort_bfp_builtins_>|[alog10_]  3\r
+    011370  4a  4 00366 3521 20   6324         epp2    <fort_bfp_builtins_>|[atan_]            4\r
+    011371  4a  4 00370 3521 20   6325         epp2    <fort_bfp_builtins_>|[atan2_]           5\r
+    011372  4a  4 00372 3521 20   6326         epp2    <fort_bfp_builtins_>|[sin_]             6\r
+    011373  4a  4 00374 3521 20   6327         epp2    <fort_bfp_builtins_>|[cos_]             7\r
+    011374  4a  4 00376 3521 20   6328         epp2    <fort_bfp_builtins_>|[tanh_]            8\r
+    011375  4a  4 00400 3521 20   6329         epp2    <fort_bfp_builtins_>|[sqrt_]            9\r
+    011376  4a  4 00402 3521 20   6330         epp2    <fort_bfp_builtins_>|[dmod_]            10\r
+    011377  4a  4 00404 3521 20   6331         epp2    <fort_bfp_builtins_>|[dexp_]            11\r
+    011400  4a  4 00406 3521 20   6332         epp2    <fort_bfp_builtins_>|[dlog_]            12\r
+    011401  4a  4 00410 3521 20   6333         epp2    <fort_bfp_builtins_>|[dlog10_]  13\r
+    011402  4a  4 00412 3521 20   6334         epp2    <fort_bfp_builtins_>|[datan_]           14\r
+    011403  4a  4 00414 3521 20   6335         epp2    <fort_bfp_builtins_>|[datan2_]  15\r
+    011404  4a  4 00416 3521 20   6336         epp2    <fort_bfp_builtins_>|[dsin_]            16\r
+    011405  4a  4 00420 3521 20   6337         epp2    <fort_bfp_builtins_>|[dcos_]            17\r
+    011406  4a  4 00422 3521 20   6338         epp2    <fort_bfp_builtins_>|[dsqrt_]           18\r
+    011407  4a  4 00424 3521 20   6339         epp2    <fort_bfp_builtins_>|[cabs_]            19\r
+    011410  4a  4 00426 3521 20   6340         epp2    <fort_bfp_builtins_>|[cexp_]            20\r
+    011411  4a  4 00430 3521 20   6341         epp2    <fort_bfp_builtins_>|[clog_]            21\r
+    011412  4a  4 00432 3521 20   6342         epp2    <fort_bfp_builtins_>|[csin_]            22\r
+    011413  4a  4 00434 3521 20   6343         epp2    <fort_bfp_builtins_>|[ccos_]            23\r
+    011414  4a  4 00436 3521 20   6344         epp2    <fort_bfp_builtins_>|[csqrt_]           24\r
+    011415  4a  4 00440 3521 20   6345         epp2    <fort_bfp_builtins_>|[cxp2_]            25\r
+    011416  4a  4 00442 3521 20   6346         epp2    <fort_bfp_builtins_>|[tan_]             26\r
+    011417  4a  4 00444 3521 20   6347         epp2    <fort_bfp_builtins_>|[dtan_]            27\r
+    011420  4a  4 00446 3521 20   6348         epp2    <fort_bfp_builtins_>|[asin_]            28\r
+    011421  4a  4 00450 3521 20   6349         epp2    <fort_bfp_builtins_>|[dasin_]           29\r
+    011422  4a  4 00452 3521 20   6350         epp2    <fort_bfp_builtins_>|[acos_]            30\r
+    011423  4a  4 00454 3521 20   6351         epp2    <fort_bfp_builtins_>|[dacos_]           31\r
+    011424  4a  4 00456 3521 20   6352         epp2    <fort_int_builtins_>|[index_]           32\r
+    011425  4a  4 00460 3521 20   6353         epp2    <fort_bfp_builtins_>|[dtanh_]           33\r
+    011426  4a  4 00462 3521 20   6354         epp2    <fort_bfp_builtins_>|[sinh_]            34\r
+    011427  4a  4 00464 3521 20   6355         epp2    <fort_bfp_builtins_>|[dsinh_]           35\r
+    011430  4a  4 00466 3521 20   6356         epp2    <fort_bfp_builtins_>|[cosh_]            36\r
+    011431  4a  4 00470 3521 20   6357         epp2    <fort_bfp_builtins_>|[dcosh_]           37\r
+    011432  4a  4 00472 3521 20   6358         epp2    <fort_bfp_builtins_>|[abs_]             38\r
+    011433  4a  4 00474 3521 20   6359         epp2    <fort_int_builtins_>|[iabs_]            39\r
+    011434  4a  4 00476 3521 20   6360         epp2    <fort_bfp_builtins_>|[dabs_]            40\r
+    011435  4a  4 00500 3521 20   6361         epp2    <fort_bfp_builtins_>|[dim_]             41\r
+    011436  4a  4 00502 3521 20   6362         epp2    <fort_int_builtins_>|[idim_]            42\r
+    011437  4a  4 00504 3521 20   6363         epp2    <fort_bfp_builtins_>|[ddim_]            43\r
+    011440  4a  4 00506 3521 20   6364         epp2    <fort_bfp_builtins_>|[sign_]            44\r
+    011441  4a  4 00510 3521 20   6365         epp2    <fort_int_builtins_>|[isign_]           45\r
+    011442  4a  4 00512 3521 20   6366         epp2    <fort_bfp_builtins_>|[dsign_]           46\r
+    011443  4a  4 00514 3521 20   6367         epp2    <fort_bfp_builtins_>|[aint_]            47\r
+    011444  4a  4 00516 3521 20   6368         epp2    <fort_bfp_builtins_>|[aimag_]           48\r
+    011445  4a  4 00520 3521 20   6369         epp2    <fort_bfp_builtins_>|[conjg_]           49\r
+    011446  4a  4 00522 3521 20   6370         epp2    <fort_int_builtins_>|[len_]             50\r
+    011447  4a  4 00524 3521 20   6371         epp2    <fort_bfp_builtins_>|[dint_]            51\r
+    011450  4a  4 00526 3521 20   6372         epp2    <fort_bfp_builtins_>|[anint_]           52\r
+    011451  4a  4 00530 3521 20   6373         epp2    <fort_bfp_builtins_>|[dnint_]           53\r
+    011452  4a  4 00532 3521 20   6374         epp2    <fort_bfp_builtins_>|[nint_]            54\r
+    011453  4a  4 00534 3521 20   6375         epp2    <fort_bfp_builtins_>|[idnint_]  55\r
+    011454  4a  4 00536 3521 20   6376         epp2    <fort_bfp_builtins_>|[dprod_]           56\r
+    011455  4a  4 00540 3521 20   6377         epp2    <fort_int_builtins_>|[mod_]             57\r
+    011456  4a  4 00542 3521 20   6378         epp2    <fort_bfp_builtins_>|[amod_]            58\r
+    011457  4a  4 00544 3521 20   6379         epp2    <fort_int_builtins_>|[ilr_]             59\r
+    011460  4a  4 00546 3521 20   6380         epp2    <fort_int_builtins_>|[ils_]             60\r
+    011461  4a  4 00550 3521 20   6381         epp2    <fort_int_builtins_>|[irl_]             61\r
+    011462  4a  4 00552 3521 20   6382         epp2    <fort_int_builtins_>|[irs_]             62\r
+                                  6383  \r
+    011463                        6384  fortran_end:\r
+    011463  aa   000004 2360 07   6385         ldq     4,dl\r
+    011464  aa  6 00070 7561 00   6386         stq     sp|arg_list\r
+    011465  aa  6 00071 4501 00   6387         stz     sp|arg_list+1\r
+    011466  aa  6 00070 3501 00   6388         epp0    sp|arg_list\r
+    011467  0a   011331 7010 00   6389         tsx1    get_our_lp\r
+    011470  4a  4 00554 7131 20   6390         callsp  <fortran_stop_>|[fortran_end]\r
+                                  6391  \r
+                                  6392  \r
+    011471                        6393  fortran_pause:\r
+    011471  aa   000000 6220 00   6394         eax2    0\r
+    011472  0a   011474 7100 00   6395         tra     pause_stop\r
+                                  6396  \r
+    011473                        6397  fortran_stop:\r
+    011473  aa   000001 6220 00   6398         eax2    1\r
+                                  6399  \r
+    011474                        6400  pause_stop:\r
+    011474  aa  6 00072 2521 00   6401         spri2   sp|arg_list+2   argument 1\r
+    011475  aa   524000 2760 03   6402         orq     =o524000,du\r
+    011476  aa  6 00076 7561 00   6403         stq     sp|temp\r
+    011477  aa  6 00076 3521 00   6404         epp2    sp|temp\r
+    011500  aa  6 00074 2521 00   6405         spri2   sp|arg_list+4   descriptor 1\r
+    011501  aa   004000 4310 07   6406         fld     1*2048,dl               one argument\r
+    011502  aa   000000 6360 01   6407         eaq     0,au            there are descriptors\r
+    011503  aa  6 00070 7571 00   6408         staq    sp|arg_list\r
+    011504  aa  6 00070 3501 00   6409         epp0    sp|arg_list     get argument list header\r
+    011505  aa  6 00025 7401 00   6410         stx0    sp|stack_frame.return_ptr+1     save return point\r
+    011506  aa  6 00025 7541 00   6411         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    011507  0a   011331 7010 00   6412         tsx1    get_our_lp\r
+    011510  0a   011512 7160 12   6413         xec     pause_stop_names,2\r
+    011511  aa  2 00000 7131 00   6414         callsp  pr2|0\r
+                                  6415  \r
+    011512                        6416  pause_stop_names:\r
+    011512  4a  4 00556 3521 20   6417         epp2    <fortran_pause_>|[fortran_pause_]\r
+    011513  4a  4 00560 3521 20   6418         epp2    <fortran_stop_>|[fortran_stop_]\r
+                                  6419  \r
+    011514                        6420  fortran_chain:\r
+    011514  aa  6 00072 2521 00   6421         spri2   sp|arg_list+2   argument 1\r
+                                  6422  \r
+    011515  0a   011531 2370 00   6423         ldaq    old_sys_name    old system name\r
+    011516  aa  2 00053 7571 00   6424         staq    pr2|43\r
+                                  6425  \r
+    011517  0a   011331 7010 00   6426         tsx1    get_our_lp\r
+    011520  4a  4 00562 3521 20   6427         epp2    <fast_related_data_>|[chain_entry]\r
+                                  6428  \r
+    011521  aa   004000 4310 07   6429         fld     1*2048,dl               one argument\r
+    011522  aa  6 00070 7571 00   6430         staq    sp|arg_list\r
+    011523  aa  6 00070 3501 00   6431         epp0    sp|arg_list     get argument list header\r
+                                  6432  \r
+    011524  aa  2 00002 3535 20   6433         epp3    pr2|2,*         get display pointer\r
+    011525  aa  0 00002 2535 01   6434         spri3   pr0|2,au                store at the end of the argument list\r
+                                  6435  \r
+    011526  aa  6 00025 7401 00   6436         stx0    sp|stack_frame.return_ptr+1     save return point\r
+    011527  aa  6 00025 7541 00   6437         sti     sp|stack_frame.return_ptr+1     save indicators\r
+    011530  aa  2 00000 7131 20   6438         callsp  pr2|0,*         make the call\r
+                                  6439  \r
+    011531                        6440  old_sys_name:\r
+    011531  aa   000000 0110 03   6441         even\r
+    011532  aa  146 157 162 164   6442         aci     "fortran "\r
+    011533  aa  162 141 156 040\r
+                                  6443  \r
+                                  6444  "\r
+                                  6445  "      Function:       enter Binary Floating Point (BFP) mode\r
+                                  6446  "\r
+                                  6447  "      Entry:  X0 = offset in caller's text section of return point\r
+                                  6448  "\r
+                                  6449  "      Exit:   PR0, (sp|stack_frame.operator_ptr) -> operator_table\r
+                                  6450  "\r
+    011534                        6451  enter_BFP_mode:\r
+    011534  aa   000000 6340 07   6452         ldi     0,dl            clear HFP mode if it's set\r
+    011535  0a   001426 3500 00   6453         epp0    operator_table  change to BFP operators\r
+    011536  aa  6 00030 2501 00   6454         spri0   sp|stack_frame.operator_ptr\r
+    011537  aa  6 00046 7101 70   6455         tra     sp|tbp,*x0\r
+                                  6456  \r
+                                  6457  "\r
+                                  6458  "      Function:       enter Hexadecimal Floating Point (HFP) mode\r
+                                  6459  "\r
+                                  6460  "      Entry:  X0 = offset in caller's text section of return point\r
+                                  6461  "\r
+                                  6462  "      Exit:   PR0, (sp|stack_frame.operator_ptr) = hfp_operator_table\r
+                                  6463  "\r
+                                  6464  "      Note:   It is not sufficient to just request HFP mode.  We must\r
+                                  6465  "              check that our request has been honoured, since if HFP\r
+                                  6466  "              mode has not been enabled (or if it is not supported), a\r
+                                  6467  "              request to enter HFP mode is simply ignored.  If we find\r
+                                  6468  "              that our request to enter HFP mode has not been honoured,\r
+                                  6469  "              we attempt to enable HFP mode.  If we are unsuccessful,\r
+                                  6470  "              we signal the condition 'cannot_enable_HFP_mode'.  If we\r
+                                  6471  "              are restarted after signalling this condition, we repeat\r
+                                  6472  "              all the above steps.\r
+                                  6473  "\r
+    011540                        6474  enter_HFP_mode:\r
+    011540  aa   000010 6340 07   6475         ldi     HFP_mask,dl     request HFP mode\r
+    011541  aa   002040 4310 03   6476         fld     P1.0H,du                check if request honoured\r
+    011542  aa   400000 4750 03   6477         fad     P0.0H,du\r
+    011543  aa   020000 1750 03   6478         sba     =o020000,du\r
+    011544  0a   011562 6000 00   6479         tze     enter_HFP_mode.entered\r
+    011545  aa   600000 2350 03   6480         lda     =o600000,du     try to enable HFP mode\r
+    011546  0a   011565 7010 00   6481         tsx1    call_set_hexfp_control\r
+    011547  aa   000010 6340 07   6482         ldi     HFP_mask,dl     check if successful\r
+    011550  aa   002040 4310 03   6483         fld     P1.0H,du\r
+    011551  aa   400000 4750 03   6484         fad     P0.0H,du\r
+    011552  aa   020000 1750 03   6485         sba     =o020000,du\r
+    011553  0a   011562 6000 00   6486         tze     enter_HFP_mode.entered\r
+    011554  aa   000000 6340 07   6487         ldi     =0,dl           clear HFP mode request\r
+    011555  0a   025034 3520 00   6488         eppbp   =22acannot_enable_HFP_mode\r
+    011556  aa   000026 6260 00   6489         eax6    22\r
+    011557  aa   001750 2360 07   6490         ldq     =1000,dl\r
+    011560  0a   011251 7010 00   6491         tsx1    call_signal_    signal 'cannot_enable_HFP_mode' condition\r
+    011561  0a   011540 7100 00   6492         tra     enter_HFP_mode  try again\r
+                                  6493  \r
+    011562                        6494  enter_HFP_mode.entered:\r
+    011562  0a   014146 3500 00   6495         epp0    hfp_operator_table      change to HFP operators\r
+    011563  aa  6 00030 2501 00   6496         spri0   sp|stack_frame.operator_ptr\r
+    011564  aa  6 00046 7101 70   6497         tra     sp|tbp,*x0\r
+                                  6498  \r
+                                  6499  "\r
+                                  6500  "      Function:       call 'hcs_$set_hexfp_control'.\r
+                                  6501  "\r
+                                  6502  "      Entry:  A = desired value for 1st argument:\r
+                                  6503  "                  1b2 => retain current mode\r
+                                  6504  "                  2b2 => disable HFP mode\r
+                                  6505  "                  3b2 => enable HFP mode\r
+                                  6506  "              X1 = offset of return address\r
+                                  6507  "\r
+                                  6508  "      Exit:   A = returned value of 2nd argument:\r
+                                  6509  "                  2b2 => HFP mode was disabled before call\r
+                                  6510  "                  3b2 => HFP mode was enabled before call\r
+                                  6511  "              Q = returned value of 3rd argument:\r
+                                  6512  "                  a standard system status code.\r
+                                  6513  "\r
+                                  6514  "      Alters: A, Q, (sp|8:sp|15).\r
+                                  6515  "\r
+    011565                        6516  call_set_hexfp_control:\r
+    011565  aa  6 00010 7531 00   6517         sreg    sp|8            save X0:X7, AQ and E\r
+                                  6518         get_stack_offset\r
+    011566  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    011567  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    011570  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    011571  aa  6 00024 3501 21   6519         eppap   sp|stack_header.stack_end_ptr,au* get ptr to end of stack frame\r
+    011572  aa   000040 6200 00   6520         eax0    32              increase stack frame by 32 words\r
+    011573  aa  6 00023 0201 00   6521         adlx0   sp|stack_frame.next_sp+1        ..\r
+    011574  aa  6 00023 7401 00   6522         stx0    sp|stack_frame.next_sp+1\r
+    011575  aa  6 00025 7401 01   6523         stx0    sp|stack_header.stack_end_ptr+1,au adjust stack end pointer too\r
+    011576  aa  0 00000 2541 00   6524         spri    ap|0            save PR0:PR7\r
+    011577  aa  0 00020 3501 00   6525         eppap   ap|16           form argument list\r
+    011600  aa   014000 4310 07   6526         fld     3*2048,dl\r
+    011601  aa  0 00000 7571 00   6527         staq    ap|0            there are 3 arguments\r
+    011602  aa  6 00014 3515 00   6528         epp1    sp|8+4\r
+    011603  aa  0 00002 2515 00   6529         spri1   ap|2            1st argument is cache for A\r
+    011604  aa  0 00004 2515 00   6530         spri1   ap|4            2nd argument is cache for A\r
+    011605  aa  6 00015 3515 00   6531         epp1    sp|8+5\r
+    011606  aa  0 00006 2515 00   6532         spri1   ap|6            3rd argument is cache for Q\r
+    011607  0a   011331 7010 00   6533         tsx1    get_our_lp\r
+    011610  aa   000004 3514 04   6534         epp1    4,ic            make the call:\r
+    011611  aa  6 00024 2515 00   6535           spri1   sp|stack_frame.return_ptr\r
+    011612  aa  6 00025 7541 00   6536           sti     sp|stack_frame.return_ptr+1\r
+    011613  4a  4 00564 7131 20   6537           callsp          <hcs_>|[set_hexfp_control]\r
+    011614  aa  6 00022 3501 20   6538         eppap   sp|stack_frame.next_sp,*        point 32 words past stack extension\r
+    011615  aa  0 77740 1731 00   6539         lpri    ap|-32          restore pointer regs\r
+                                  6540         get_stack_offset\r
+    011616  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    011617  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    011620  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    011621  aa  6 00005 2201 00   6541         ldx0    sp|5            get offset of original end of frame\r
+    011622  aa  6 00023 7401 00   6542         stx0    sp|stack_frame.next_sp+1 update next sp pointer\r
+    011623  aa  6 00025 7401 01   6543         stx0    sp|stack_header.stack_end_ptr+1,au update stack end too\r
+    011624  aa  6 00010 0731 00   6544         lreg    sp|8            restore machine registers\r
+    011625  aa  6 00046 3505 70   6545         epbpap  sp|tbp,*0               restore return word pair\r
+    011626  aa  6 00024 2501 00   6546         spriap  sp|stack_frame.return_ptr segment number\r
+    011627  aa  6 00030 3501 20   6547         eppap   sp|stack_frame.operator_ptr,*   and pointer to operators\r
+    011630  aa   000000 7100 11   6548         tra     0,x1            return\r
+                                  6549  \r
+                                  6550  "\r
+                                  6551  "      this code execute for unimplemented operators\r
+                                  6552  "\r
+    011631  aa  6 00056 2521 00   6553  unimp: spribp  sp|double_temp  save bp\r
+    011632  aa  6 00072 7461 00   6554         stx6    sp|temp2\r
+    011633  0a   011637 3520 00   6555         eppbp   error_name      signal error condition\r
+    011634  aa   000005 6260 00   6556         eax6    error_length\r
+    011635  aa   001306 2360 07   6557         ldq     =710,dl         with oncode = 710\r
+    011636  0a   010002 7100 00   6558         tra     ssc\r
+    011637                        6559  error_name:\r
+    011637  aa  145 162 162 157   6560         aci     "error"\r
+    011640  aa  162 000 000 000\r
+                        000005    6561         equ     error_length,5\r
+                                  6562  "\r
+                                  6563  "      Single word mask arrays are used only by operators\r
+                                  6564  "\r
+    011641                        6565  bit_mask_one:\r
+    011641  aa   000000 000000    6566         vfd     0/-1,36/0\r
+    011642  aa   400000 000000    6567         vfd     1/-1,35/0\r
+    011643  aa   600000 000000    6568         vfd     2/-1,34/0\r
+    011644  aa   700000 000000    6569         vfd     3/-1,33/0\r
+    011645  aa   740000 000000    6570         vfd     4/-1,32/0\r
+    011646  aa   760000 000000    6571         vfd     5/-1,31/0\r
+    011647  aa   770000 000000    6572         vfd     6/-1,30/0\r
+    011650  aa   774000 000000    6573         vfd     7/-1,29/0\r
+    011651  aa   776000 000000    6574         vfd     8/-1,28/0\r
+    011652  aa   777000 000000    6575         vfd     9/-1,27/0\r
+    011653  aa   777400 000000    6576         vfd     10/-1,26/0\r
+    011654  aa   777600 000000    6577         vfd     11/-1,25/0\r
+    011655  aa   777700 000000    6578         vfd     12/-1,24/0\r
+    011656  aa   777740 000000    6579         vfd     13/-1,23/0\r
+    011657  aa   777760 000000    6580         vfd     14/-1,22/0\r
+    011660  aa   777770 000000    6581         vfd     15/-1,21/0\r
+    011661  aa   777774 000000    6582         vfd     16/-1,20/0\r
+    011662  aa   777776 000000    6583         vfd     17/-1,19/0\r
+    011663  aa   777777 000000    6584         vfd     18/-1,18/0\r
+    011664  aa   777777 400000    6585         vfd     19/-1,17/0\r
+    011665  aa   777777 600000    6586         vfd     20/-1,16/0\r
+    011666  aa   777777 700000    6587         vfd     21/-1,15/0\r
+    011667  aa   777777 740000    6588         vfd     22/-1,14/0\r
+    011670  aa   777777 760000    6589         vfd     23/-1,13/0\r
+    011671  aa   777777 770000    6590         vfd     24/-1,12/0\r
+    011672  aa   777777 774000    6591         vfd     25/-1,11/0\r
+    011673  aa   777777 776000    6592         vfd     26/-1,10/0\r
+    011674  aa   777777 777000    6593         vfd     27/-1,9/0\r
+    011675  aa   777777 777400    6594         vfd     28/-1,8/0\r
+    011676  aa   777777 777600    6595         vfd     29/-1,7/0\r
+    011677  aa   777777 777700    6596         vfd     30/-1,6/0\r
+    011700  aa   777777 777740    6597         vfd     31/-1,5/0\r
+    011701  aa   777777 777760    6598         vfd     32/-1,4/0\r
+    011702  aa   777777 777770    6599         vfd     33/-1,3/0\r
+    011703  aa   777777 777774    6600         vfd     34/-1,2/0\r
+    011704  aa   777777 777776    6601         vfd     35/-1,1/0\r
+                                  6602  "\r
+    011705                        6603  mask_bit_one:\r
+    011705  aa   777777 777777    6604         vfd     0/0,36/-1\r
+    011706  aa   377777 777777    6605         vfd     1/0,35/-1\r
+    011707  aa   177777 777777    6606         vfd     2/0,34/-1\r
+    011710  aa   077777 777777    6607         vfd     3/0,33/-1\r
+    011711  aa   037777 777777    6608         vfd     4/0,32/-1\r
+    011712  aa   017777 777777    6609         vfd     5/0,31/-1\r
+    011713  aa   007777 777777    6610         vfd     6/0,30/-1\r
+    011714  aa   003777 777777    6611         vfd     7/0,29/-1\r
+    011715  aa   001777 777777    6612         vfd     8/0,28/-1\r
+    011716  aa   000777 777777    6613         vfd     9/0,27/-1\r
+    011717  aa   000377 777777    6614         vfd     10/0,26/-1\r
+    011720  aa   000177 777777    6615         vfd     11/0,25/-1\r
+    011721  aa   000077 777777    6616         vfd     12/0,24/-1\r
+    011722  aa   000037 777777    6617         vfd     13/0,23/-1\r
+    011723  aa   000017 777777    6618         vfd     14/0,22/-1\r
+    011724  aa   000007 777777    6619         vfd     15/0,21/-1\r
+    011725  aa   000003 777777    6620         vfd     16/0,20/-1\r
+    011726  aa   000001 777777    6621         vfd     17/0,19/-1\r
+    011727  aa   000000 777777    6622         vfd     18/0,18/-1\r
+    011730  aa   000000 377777    6623         vfd     19/0,17/-1\r
+    011731  aa   000000 177777    6624         vfd     20/0,16/-1\r
+    011732  aa   000000 077777    6625         vfd     21/0,15/-1\r
+    011733  aa   000000 037777    6626         vfd     22/0,14/-1\r
+    011734  aa   000000 017777    6627         vfd     23/0,13/-1\r
+    011735  aa   000000 007777    6628         vfd     24/0,12/-1\r
+    011736  aa   000000 003777    6629         vfd     25/0,11/-1\r
+    011737  aa   000000 001777    6630         vfd     26/0,10/-1\r
+    011740  aa   000000 000777    6631         vfd     27/0,9/-1\r
+    011741  aa   000000 000377    6632         vfd     28/0,8/-1\r
+    011742  aa   000000 000177    6633         vfd     29/0,7/-1\r
+    011743  aa   000000 000077    6634         vfd     30/0,6/-1\r
+    011744  aa   000000 000037    6635         vfd     31/0,5/-1\r
+    011745  aa   000000 000017    6636         vfd     32/0,4/-1\r
+    011746  aa   000000 000007    6637         vfd     33/0,3/-1\r
+    011747  aa   000000 000003    6638         vfd     34/0,2/-1\r
+    011750  aa   000000 000001    6639         vfd     35/0,1/-1\r
+                                  6640  "\r
+    011751                        6641  single_bit:\r
+                                  6642  "\r
+    011751  aa   400000 000000    6643         vfd     0/0,1/1\r
+    011752  aa   200000 000000    6644         vfd     1/0,1/1\r
+    011753  aa   100000 000000    6645         vfd     2/0,1/1\r
+    011754  aa   040000 000000    6646         vfd     3/0,1/1\r
+    011755  aa   020000 000000    6647         vfd     4/0,1/1\r
+    011756  aa   010000 000000    6648         vfd     5/0,1/1\r
+    011757  aa   004000 000000    6649         vfd     6/0,1/1\r
+    011760  aa   002000 000000    6650         vfd     7/0,1/1\r
+    011761  aa   001000 000000    6651         vfd     8/0,1/1\r
+    011762  aa   000400 000000    6652         vfd     9/0,1/1\r
+    011763  aa   000200 000000    6653         vfd     10/0,1/1\r
+    011764  aa   000100 000000    6654         vfd     11/0,1/1\r
+    011765  aa   000040 000000    6655         vfd     12/0,1/1\r
+    011766  aa   000020 000000    6656         vfd     13/0,1/1\r
+    011767  aa   000010 000000    6657         vfd     14/0,1/1\r
+    011770  aa   000004 000000    6658         vfd     15/0,1/1\r
+    011771  aa   000002 000000    6659         vfd     16/0,1/1\r
+    011772  aa   000001 000000    6660         vfd     17/0,1/1\r
+    011773  aa   000000 400000    6661         vfd     18/0,1/1\r
+    011774  aa   000000 200000    6662         vfd     19/0,1/1\r
+    011775  aa   000000 100000    6663         vfd     20/0,1/1\r
+    011776  aa   000000 040000    6664         vfd     21/0,1/1\r
+    011777  aa   000000 020000    6665         vfd     22/0,1/1\r
+    012000  aa   000000 010000    6666         vfd     23/0,1/1\r
+    012001  aa   000000 004000    6667         vfd     24/0,1/1\r
+    012002  aa   000000 002000    6668         vfd     25/0,1/1\r
+    012003  aa   000000 001000    6669         vfd     26/0,1/1\r
+    012004  aa   000000 000400    6670         vfd     27/0,1/1\r
+    012005  aa   000000 000200    6671         vfd     28/0,1/1\r
+    012006  aa   000000 000100    6672         vfd     29/0,1/1\r
+    012007  aa   000000 000040    6673         vfd     30/0,1/1\r
+    012010  aa   000000 000020    6674         vfd     31/0,1/1\r
+    012011  aa   000000 000010    6675         vfd     32/0,1/1\r
+    012012  aa   000000 000004    6676         vfd     33/0,1/1\r
+    012013  aa   000000 000002    6677         vfd     34/0,1/1\r
+    012014  aa   000000 000001    6678         vfd     35/0,1/1\r
+                                  6679  "\r
+    012015                        6680  floor_ceil_mask:\r
+                                  6681  "\r
+    012015  aa   000000 000000    6682         vfd     36/0,0/-1\r
+    012016  aa   000000 000001    6683         vfd     35/0,1/-1\r
+    012017  aa   000000 000003    6684         vfd     34/0,2/-1\r
+    012020  aa   000000 000007    6685         vfd     33/0,3/-1\r
+    012021  aa   000000 000017    6686         vfd     32/0,4/-1\r
+    012022  aa   000000 000037    6687         vfd     31/0,5/-1\r
+    012023  aa   000000 000077    6688         vfd     30/0,6/-1\r
+    012024  aa   000000 000177    6689         vfd     29/0,7/-1\r
+    012025  aa   000000 000377    6690         vfd     28/0,8/-1\r
+    012026  aa   000000 000777    6691         vfd     27/0,9/-1\r
+    012027  aa   000000 001777    6692         vfd     26/0,10/-1\r
+    012030  aa   000000 003777    6693         vfd     25/0,11/-1\r
+    012031  aa   000000 007777    6694         vfd     24/0,12/-1\r
+    012032  aa   000000 017777    6695         vfd     23/0,13/-1\r
+    012033  aa   000000 037777    6696         vfd     22/0,14/-1\r
+    012034  aa   000000 077777    6697         vfd     21/0,15/-1\r
+    012035  aa   000000 177777    6698         vfd     20/0,16/-1\r
+    012036  aa   000000 377777    6699         vfd     19/0,17/-1\r
+    012037  aa   000000 777777    6700         vfd     18/0,18/-1\r
+    012040  aa   000001 777777    6701         vfd     17/0,19/-1\r
+    012041  aa   000003 777777    6702         vfd     16/0,20/-1\r
+    012042  aa   000007 777777    6703         vfd     15/0,21/-1\r
+    012043  aa   000017 777777    6704         vfd     14/0,22/-1\r
+    012044  aa   000037 777777    6705         vfd     13/0,23/-1\r
+    012045  aa   000077 777777    6706         vfd     12/0,24/-1\r
+    012046  aa   000177 777777    6707         vfd     11/0,25/-1\r
+    012047  aa   000377 777777    6708         vfd     10/0,26/-1\r
+    012050  aa   000777 777777    6709         vfd     9/0,27/-1\r
+    012051  aa   001777 777777    6710         vfd     8/0,28/-1\r
+    012052  aa   003777 777777    6711         vfd     7/0,29/-1\r
+    012053  aa   007777 777777    6712         vfd     6/0,30/-1\r
+    012054  aa   017777 777777    6713         vfd     5/0,31/-1\r
+    012055  aa   037777 777777    6714         vfd     4/0,32/-1\r
+    012056  aa   077777 777777    6715         vfd     3/0,33/-1\r
+    012057  aa   177777 777777    6716         vfd     2/0,34/-1\r
+    012060  aa   377777 777777    6717         vfd     1/0,35/-1\r
+    012061  aa   777777 777777    6718         vfd     0/0,36/-1\r
+                                  6719  " \f\r
+                                  6720  "\r
+                                  6721  "      Entry operators, entered by following sequence in text section\r
+                                  6722  "\r
+                                  6723  "              eax7    stack_size\r
+                                  6724  "              eppbp   sb|stack_header.pl1_operators_ptr,*\r
+                                  6725  "              tspbp   bp|n    (bp points at segdef operator_table)\r
+                                  6726  "              vfd     18/n_args,18/unused\r
+                                  6727  "              vfd     18/link,18/block\r
+                                  6728  "\r
+                                  6729  "\r
+                                  6730  "\r
+                                  6731  "\r
+                                  6732  "      The following macro is the ext_entry macro. It conditionally expands the\r
+                                  6733  "      trace code if the first argument is "trace_".  It conditionally sets\r
+                                  6734  "      the static ptr if the second argument is "ss_".\r
+                                  6735  "\r
+                                  6736  \r
+                                  6737         macro   ext_entry\r
+                              1   6738  &1&2ext_entry:\r
+                              2   6739         eppbp   bp|-3           get correct entry pointer value\r
+                              3   6740         trace   &1\r
+                              4   6741         epaq    bp|0            get segment number in a\r
+                              5   6742         lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+                              6   6743         ife     &2,ss_\r
+                              7   6744         lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+                              8   6745  ifend\r
+                              9   6746         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                             10   6747         sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+                             11   6748         spriap  bb|stack_frame.arg_ptr save arg pointer\r
+                             12   6749         eppab   bb|0,7          get pointer to end of new frame\r
+                             13   6750         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             14   6751         spriab  sb|stack_header.stack_end_ptr update stack end ptr\r
+                             15   6752         eppsp   bb|0            update sp\r
+                             16   6753  &1&2save_link:\r
+                             17   6754         sprilp  sp|linkage_ptr  save ptr to linkage in stack head\r
+                             18   6755         ife     &2,ss_\r
+                             19   6756         sprplb  sp|stack_frame.static_ptr save static ptr\r
+                             20   6757  ifend\r
+                             21   6758         spribp  sp|stack_frame.entry_ptr save ptr to entry point\r
+                             22   6759  &1&2init_stack_join:\r
+                             23   6760         spbpbp  sp|text_base_ptr        save ptr to base of text segment\r
+                             24   6761         spbpbp  sp|stack_frame.return_ptr init procedure call return point\r
+                             25   6762         stz     sp|stack_frame.operator_ret_ptr init operator return offset\r
+                             26   6763  "\r
+                             27   6764         eppap   &1operator_table        and pointer to operators\r
+                             28   6765         spriap  sp|stack_frame.operator_ptr save pointer to operator segment\r
+                             29   6766         spriab  sp|4            save pointer to end of frame for temp extensions\r
+                             30   6767         ldi     0,dl            reset all indicators (overflow mask in particular)\r
+                             31   6768         tra     bp|5            and return to user program\r
+                             32   6769         &end\r
+                                  6770  \r
+                                  6771         ext_entry\r
+    012062                              ext_entry:\r
+    012062  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   \r
+    012063  aa  2 00000 2131 00                epaq    bp|0            get segment number in a\r
+    012064  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012065  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012066  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012067  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012070  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012071  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012072  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr update stack end ptr\r
+    012073  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+    012074                              save_link:\r
+    012074  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save ptr to linkage in stack head\r
+    012075  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr save ptr to entry point\r
+    012076                              init_stack_join:\r
+    012076  aa  6 00046 2525 00                spbpbp  sp|text_base_ptr        save ptr to base of text segment\r
+    012077  aa  6 00024 2525 00                spbpbp  sp|stack_frame.return_ptr init procedure call return point\r
+    012100  aa  6 00037 4501 00                stz     sp|stack_frame.operator_ret_ptr init operator return offset\r
+                                        "\r
+    012101  0a   001426 3500 00                eppap   operator_table  and pointer to operators\r
+    012102  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr save pointer to operator segment\r
+    012103  aa  6 00004 2515 00                spriab  sp|4            save pointer to end of frame for temp extensions\r
+    012104  aa   000000 6340 07                ldi     0,dl            reset all indicators (overflow mask in particular)\r
+    012105  aa  2 00005 7101 00                tra     bp|5            and return to user program\r
+                                  6772  "\r
+                                  6773  "      The following macro is analogous to ext_entry except for entries which expect\r
+                                  6774  "      descriptors.\r
+                                  6775  "\r
+                                  6776         macro   ext_entry_desc\r
+                              1   6777  &1&2ext_entry_desc:\r
+                              2   6778         eppbp   bp|-3           get correct entry pointer value\r
+                              3   6779         trace   &1\r
+                              4   6780         epaq    bp|0            get segment number of text\r
+                              5   6781         lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from  packed ptr\r
+                              6   6782         ife     &2,ss_\r
+                              7   6783         lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+                              8   6784  ifend\r
+                              9   6785         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                             10   6786         sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+                             11   6787         spriap  bb|stack_frame.arg_ptr save arg pointer\r
+                             12   6788         eppab   bb|0,7          get pointer to end of new frame\r
+                             13   6789         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             14   6790         spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+                             15   6791         eppsp   bb|0            update sp\r
+                             16   6792  "\r
+                             17   6793  &1&2eed:\r
+                             18   6794         lda     ap|0            get 2*n_args in au, code in al\r
+                             19   6795         cana    8,dl            is there an extra arg\r
+                             20   6796         tze     2,ic            no\r
+                             21   6797         ada     2,du            yes, allow for it\r
+                             22   6798         eppbb   ap|2,au         get ptr to descriptors\r
+                             23   6799         spribb  sp|descriptor_ptr       set ptr in stack frame\r
+                             24   6800         tra     &1&2save_link           join common section\r
+                             25   6801         &end\r
+                                  6802  "\r
+                                  6803         ext_entry_desc\r
+    012106                              ext_entry_desc:\r
+    012106  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   \r
+    012107  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012110  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from  packed ptr\r
+    012111  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012112  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012113  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012114  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012115  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012116  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012117  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012120                              eed:\r
+    012120  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    012121  aa   000010 3150 07                cana    8,dl            is there an extra arg\r
+    012122  aa   000002 6000 04                tze     2,ic            no\r
+    012123  aa   000002 0750 03                ada     2,du            yes, allow for it\r
+    012124  aa  0 00002 3535 01                eppbb   ap|2,au         get ptr to descriptors\r
+    012125  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    012126  0a   012074 7100 00                tra     save_link               join common section\r
+                                  6804  \r
+                                  6805  "\r
+                                  6806  "      The following macro is the other_entries macro.  It conditionally\r
+                                  6807  "      sets the static ptr if the first argument is "ss_".\r
+                                  6808  "\r
+                                  6809         macro   other_entries\r
+                              1   6810  &1int_entry:\r
+                              2   6811         epaq    bp|0            get segment number of text\r
+                              3   6812         lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+                              4   6813         ife     &1,ss_\r
+                              5   6814         lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+                              6   6815  ifend\r
+                              7   6816         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                              8   6817         sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+                              9   6818         spriap  bb|stack_frame.arg_ptr save arg pointer\r
+                             10   6819         eppab   bb|0,7          get pointer to end of new frame\r
+                             11   6820         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             12   6821         spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+                             13   6822         eppsp   bb|0            update sp\r
+                             14   6823  "\r
+                             15   6824         lda     ap|0            get 2*n_args in au\r
+                             16   6825  "\r
+                             17   6826  &1set_display:\r
+                             18   6827         eppbb   ap|2,au*                get display ptr\r
+                             19   6828         spribb  sp|display_ptr  and save in stack frame\r
+                             20   6829         eppbp   bp|-3           set correct entry pointer value\r
+                             21   6830         tra     &1save_link             join common section\r
+                             22   6831  "\r
+                             23   6832  &1int_entry_desc:\r
+                             24   6833         epaq    bp|0            get segment number of text\r
+                             25   6834         lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+                             26   6835         ife     &1,ss_\r
+                             27   6836         lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+                             28   6837  ifend\r
+                             29   6838         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                             30   6839         sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+                             31   6840         spriap  bb|stack_frame.arg_ptr save arg pointer\r
+                             32   6841         eppab   bb|0,7          get pointer to end of new frame\r
+                             33   6842         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             34   6843         spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+                             35   6844         eppsp   bb|0            update sp\r
+                             36   6845  "\r
+                             37   6846         lda     ap|0            get 2*n_args in au, code in al\r
+                             38   6847         eppbb   ap|4,au         get ptr to descriptors\r
+                             39   6848         spribb  sp|descriptor_ptr       set ptr in stack frame\r
+                             40   6849         tra     &1set_display   go set display ptr\r
+                             41   6850  "\r
+                             42   6851  &1val_entry_desc:\r
+                             43   6852         eax0    &1eed           get final destination\r
+                             44   6853         tra     &1val_entry+1   join common validate code\r
+                             45   6854  "\r
+                             46   6855  &1val_entry:\r
+                             47   6856         eax0    &1save_link             get final destination\r
+                             48   6857  "\r
+                             49   6858         spribp  sb|stack_header.stack_end_ptr,* save entry pointer\r
+                             50   6859         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                             51   6860         sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+                             52   6861         spriap  bb|stack_frame.arg_ptr save arg pointer\r
+                             53   6862         eppab   bb|0,7          get pointer to end of new frame\r
+                             54   6863         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             55   6864         spriab  sb|stack_header.stack_end_ptr set up new end ptr\r
+                             56   6865         eppsp   bb|0            update sp\r
+                             57   6866  "\r
+                             58   6867         epaq    bp|0            get segment number of text\r
+                             59   6868         lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage\r
+                             60   6869         ife     &1,ss_\r
+                             61   6870         lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static\r
+                             62   6871  ifend\r
+                             63   6872         eppap   operator_table\r
+                             64   6873         spriap  sp|stack_frame.operator_ptr\r
+                             65   6874         eppap   sp|stack_frame.arg_ptr get ptr to arglist\r
+                             66   6875         spriap  sp|arg_list+2   save as arg of validate call\r
+                             67   6876         fld     2*1024,dl\r
+                             68   6877         staq    sp|arg_list\r
+                             69   6878         eppap   sp|arg_list     get ptr to arglist for validate call\r
+                             70   6879         sprplp  sp|4            save lp - we need it at save_link\r
+                             71   6880         ife     &1,ss_\r
+                             72   6881         sprplb  sp|5            save lb\r
+                             73   6882  ifend\r
+                             74   6883         stx0    sp|8            save x0 for eventual exit\r
+                             75   6884         ldx1    bp|2            get link offset of validate proc\r
+                             76   6885         stcd    sp|stack_frame.return_ptr call the validate proc\r
+                             77   6886         tra     lp|0,1*\r
+                             78   6887         ldx0    sp|8            restore x0\r
+                             79   6888         lprplp  sp|4            and lp\r
+                             80   6889         ife     &1,ss_\r
+                             81   6890         lprplb  sp|5            and lb\r
+                             82   6891  ifend\r
+                             83   6892         eppab   sb|stack_header.stack_end_ptr,*\r
+                             84   6893         eppap   sp|stack_frame.arg_ptr,* restore argument list pointer\r
+                             85   6894         eppbp   sp|0,*          restore entry return pointer\r
+                             86   6895         eppbp   bp|-3           set correct entry pointer value\r
+                             87   6896         tra     0,0             and re-enter main stream\r
+                             88   6897         &end\r
+                                  6898  "\r
+                                  6899         other_entries\r
+    012127                              int_entry:\r
+    012127  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012130  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012131  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012132  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012133  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012134  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012135  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012136  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012137  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012140  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au\r
+                                        "\r
+    012141                              set_display:\r
+    012141  aa  0 00002 3535 21                eppbb   ap|2,au*                get display ptr\r
+    012142  aa  6 00040 2535 00                spribb  sp|display_ptr  and save in stack frame\r
+    012143  aa  2 77775 3521 00                eppbp   bp|-3           set correct entry pointer value\r
+    012144  0a   012074 7100 00                tra     save_link               join common section\r
+                                        "\r
+    012145                              int_entry_desc:\r
+    012145  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012146  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012147  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012150  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012151  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012152  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012153  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012154  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012155  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012156  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    012157  aa  0 00004 3535 01                eppbb   ap|4,au         get ptr to descriptors\r
+    012160  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    012161  0a   012141 7100 00                tra     set_display     go set display ptr\r
+                                        "\r
+    012162                              val_entry_desc:\r
+    012162  0a   012120 6200 00                eax0    eed             get final destination\r
+    012163  0a   012165 7100 00                tra     val_entry+1     join common validate code\r
+                                        "\r
+    012164                              val_entry:\r
+    012164  0a   012074 6200 00                eax0    save_link               get final destination\r
+                                        "\r
+    012165  aa  7 00024 2521 20                spribp  sb|stack_header.stack_end_ptr,* save entry pointer\r
+    012166  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012167  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012170  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012171  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012172  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012173  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set up new end ptr\r
+    012174  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012175  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012176  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage\r
+    012177  0a   001426 3500 00                eppap   operator_table\r
+    012200  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr\r
+    012201  aa  6 00032 3501 00                eppap   sp|stack_frame.arg_ptr get ptr to arglist\r
+    012202  aa  6 00072 2501 00                spriap  sp|arg_list+2   save as arg of validate call\r
+    012203  aa   004000 4310 07                fld     2*1024,dl\r
+    012204  aa  6 00070 7571 00                staq    sp|arg_list\r
+    012205  aa  6 00070 3501 00                eppap   sp|arg_list     get ptr to arglist for validate call\r
+    012206  aa  6 00004 5441 00                sprplp  sp|4            save lp - we need it at save_link\r
+    012207  aa  6 00010 7401 00                stx0    sp|8            save x0 for eventual exit\r
+    012210  aa  2 00002 2211 00                ldx1    bp|2            get link offset of validate proc\r
+    012211  aa  6 00024 3571 00                stcd    sp|stack_frame.return_ptr call the validate proc\r
+    012212  aa  4 00000 7101 31                tra     lp|0,1*\r
+    012213  aa  6 00010 2201 00                ldx0    sp|8            restore x0\r
+    012214  aa  6 00004 7641 00                lprplp  sp|4            and lp\r
+    012215  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    012216  aa  6 00032 3501 20                eppap   sp|stack_frame.arg_ptr,* restore argument list pointer\r
+    012217  aa  6 00000 3521 20                eppbp   sp|0,*          restore entry return pointer\r
+    012220  aa  2 77775 3521 00                eppbp   bp|-3           set correct entry pointer value\r
+    012221  aa   000000 7100 10                tra     0,0             and re-enter main stream\r
+                                  6900  "\r
+                                  6901         ext_entry               ,ss_\r
+    012222                              ss_ext_entry:\r
+    012222  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   \r
+    012223  aa  2 00000 2131 00                epaq    bp|0            get segment number in a\r
+    012224  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012225  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    012226  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012227  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012230  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012231  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012232  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012233  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr update stack end ptr\r
+    012234  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+    012235                              ss_save_link:\r
+    012235  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save ptr to linkage in stack head\r
+    012236  aa  6 00034 5451 00                sprplb  sp|stack_frame.static_ptr save static ptr\r
+    012237  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr save ptr to entry point\r
+    012240                              ss_init_stack_join:\r
+    012240  aa  6 00046 2525 00                spbpbp  sp|text_base_ptr        save ptr to base of text segment\r
+    012241  aa  6 00024 2525 00                spbpbp  sp|stack_frame.return_ptr init procedure call return point\r
+    012242  aa  6 00037 4501 00                stz     sp|stack_frame.operator_ret_ptr init operator return offset\r
+                                        "\r
+    012243  0a   001426 3500 00                eppap   operator_table  and pointer to operators\r
+    012244  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr save pointer to operator segment\r
+    012245  aa  6 00004 2515 00                spriab  sp|4            save pointer to end of frame for temp extensions\r
+    012246  aa   000000 6340 07                ldi     0,dl            reset all indicators (overflow mask in particular)\r
+    012247  aa  2 00005 7101 00                tra     bp|5            and return to user program\r
+                                  6902  "\r
+                                  6903         ext_entry_desc  ,ss_\r
+    012250                              ss_ext_entry_desc:\r
+    012250  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   \r
+    012251  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012252  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from  packed ptr\r
+    012253  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    012254  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012255  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012256  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012257  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012260  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012261  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012262  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012263                              ss_eed:\r
+    012263  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    012264  aa   000010 3150 07                cana    8,dl            is there an extra arg\r
+    012265  aa   000002 6000 04                tze     2,ic            no\r
+    012266  aa   000002 0750 03                ada     2,du            yes, allow for it\r
+    012267  aa  0 00002 3535 01                eppbb   ap|2,au         get ptr to descriptors\r
+    012270  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    012271  0a   012235 7100 00                tra     ss_save_link            join common section\r
+                                  6904  "\r
+                                  6905         other_entries   ss_\r
+    012272                              ss_int_entry:\r
+    012272  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012273  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012274  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    012275  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012276  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012277  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012300  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012301  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012302  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012303  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012304  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au\r
+                                        "\r
+    012305                              ss_set_display:\r
+    012305  aa  0 00002 3535 21                eppbb   ap|2,au*                get display ptr\r
+    012306  aa  6 00040 2535 00                spribb  sp|display_ptr  and save in stack frame\r
+    012307  aa  2 77775 3521 00                eppbp   bp|-3           set correct entry pointer value\r
+    012310  0a   012235 7100 00                tra     ss_save_link            join common section\r
+                                        "\r
+    012311                              ss_int_entry_desc:\r
+    012311  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012312  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    012313  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    012314  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012315  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012316  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012317  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012320  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012321  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    012322  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012323  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    012324  aa  0 00004 3535 01                eppbb   ap|4,au         get ptr to descriptors\r
+    012325  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    012326  0a   012305 7100 00                tra     ss_set_display  go set display ptr\r
+                                        "\r
+    012327                              ss_val_entry_desc:\r
+    012327  0a   012263 6200 00                eax0    ss_eed          get final destination\r
+    012330  0a   012332 7100 00                tra     ss_val_entry+1  join common validate code\r
+                                        "\r
+    012331                              ss_val_entry:\r
+    012331  0a   012235 6200 00                eax0    ss_save_link            get final destination\r
+                                        "\r
+    012332  aa  7 00024 2521 20                spribp  sb|stack_header.stack_end_ptr,* save entry pointer\r
+    012333  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012334  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    012335  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    012336  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012337  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012340  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set up new end ptr\r
+    012341  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012342  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    012343  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage\r
+    012344  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static\r
+    012345  0a   001426 3500 00                eppap   operator_table\r
+    012346  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr\r
+    012347  aa  6 00032 3501 00                eppap   sp|stack_frame.arg_ptr get ptr to arglist\r
+    012350  aa  6 00072 2501 00                spriap  sp|arg_list+2   save as arg of validate call\r
+    012351  aa   004000 4310 07                fld     2*1024,dl\r
+    012352  aa  6 00070 7571 00                staq    sp|arg_list\r
+    012353  aa  6 00070 3501 00                eppap   sp|arg_list     get ptr to arglist for validate call\r
+    012354  aa  6 00004 5441 00                sprplp  sp|4            save lp - we need it at save_link\r
+    012355  aa  6 00005 5451 00                sprplb  sp|5            save lb\r
+    012356  aa  6 00010 7401 00                stx0    sp|8            save x0 for eventual exit\r
+    012357  aa  2 00002 2211 00                ldx1    bp|2            get link offset of validate proc\r
+    012360  aa  6 00024 3571 00                stcd    sp|stack_frame.return_ptr call the validate proc\r
+    012361  aa  4 00000 7101 31                tra     lp|0,1*\r
+    012362  aa  6 00010 2201 00                ldx0    sp|8            restore x0\r
+    012363  aa  6 00004 7641 00                lprplp  sp|4            and lp\r
+    012364  aa  6 00005 7651 00                lprplb  sp|5            and lb\r
+    012365  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    012366  aa  6 00032 3501 20                eppap   sp|stack_frame.arg_ptr,* restore argument list pointer\r
+    012367  aa  6 00000 3521 20                eppbp   sp|0,*          restore entry return pointer\r
+    012370  aa  2 77775 3521 00                eppbp   bp|-3           set correct entry pointer value\r
+    012371  aa   000000 7100 10                tra     0,0             and re-enter main stream\r
+                                  6906  "\r
+                                  6907  "\r
+                                  6908  "      operator to enter a begin block\r
+                                  6909  "      calling sequence is:\r
+                                  6910  "\r
+                                  6911  "              eax7    stack_size\r
+                                  6912  "              tspbp   ap|enter_begin_block\r
+                                  6913  "              vfd     18/link,18/block        for symbol table\r
+                                  6914  "\r
+                                  6915         macro   enter_begin\r
+                              1   6916  &1enter_begin_block:\r
+                              2   6917         epplp   sp|linkage_ptr,*        get linkage pointer from parent frame\r
+                              3   6918         ife     &1,ss_\r
+                              4   6919         lprplb  sp|stack_frame.static_ptr       get static pointer from parent frame\r
+                              5   6920  ifend\r
+                              6   6921         epbpsb  sp|0            get ptr to base of stack\r
+                              7   6922         eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+                              8   6923         sprisp  bb|stack_frame.prev_sp set back pointer of new frame\r
+                              9   6924         eppab   bb|0,7          get pointer to end of new frame\r
+                             10   6925         spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+                             11   6926         spriab  sb|stack_header.stack_end_ptr set stack end pointer\r
+                             12   6927         sprisp  bb|display_ptr  set display pointer\r
+                             13   6928         eppsp   bb|0            update sp\r
+                             14   6929  "\r
+                             15   6930         ldaq    null            set arg list pointer to null\r
+                             16   6931         staq    sp|stack_frame.arg_ptr ..\r
+                             17   6932         sprilp  sp|linkage_ptr  save linkage ptr\r
+                             18   6933         ife     &1,ss_\r
+                             19   6934         sprplb  sp|stack_frame.static_ptr       save static ptr\r
+                             20   6935  ifend\r
+                             21   6936         eppbp   bp|-2\r
+                             22   6937         spribp  sp|stack_frame.entry_ptr\r
+                             23   6938         eppbp   bp|-2           get correct entry pointer\r
+                             24   6939         tra     init_stack_join go init stack frame\r
+                             25   6940         &end\r
+                                  6941  "\r
+                                  6942         enter_begin\r
+    012372                              enter_begin_block:\r
+    012372  aa  6 00044 3701 20                epplp   sp|linkage_ptr,*        get linkage pointer from parent frame\r
+    012373  aa  6 00000 3731 00                epbpsb  sp|0            get ptr to base of stack\r
+    012374  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012375  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back pointer of new frame\r
+    012376  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012377  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012400  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set stack end pointer\r
+    012401  aa  3 00040 6521 00                sprisp  bb|display_ptr  set display pointer\r
+    012402  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012403  0a   012436 2370 00                ldaq    null            set arg list pointer to null\r
+    012404  aa  6 00032 7571 00                staq    sp|stack_frame.arg_ptr ..\r
+    012405  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save linkage ptr\r
+    012406  aa  2 77776 3521 00                eppbp   bp|-2\r
+    012407  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr\r
+    012410  aa  2 77776 3521 00                eppbp   bp|-2           get correct entry pointer\r
+    012411  0a   012076 7100 00                tra     init_stack_join go init stack frame\r
+                                  6943  "\r
+                                  6944         enter_begin     ss_\r
+    012412                              ss_enter_begin_block:\r
+    012412  aa  6 00044 3701 20                epplp   sp|linkage_ptr,*        get linkage pointer from parent frame\r
+    012413  aa  6 00034 7651 00                lprplb  sp|stack_frame.static_ptr       get static pointer from parent frame\r
+    012414  aa  6 00000 3731 00                epbpsb  sp|0            get ptr to base of stack\r
+    012415  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    012416  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back pointer of new frame\r
+    012417  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    012420  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    012421  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set stack end pointer\r
+    012422  aa  3 00040 6521 00                sprisp  bb|display_ptr  set display pointer\r
+    012423  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    012424  0a   012436 2370 00                ldaq    null            set arg list pointer to null\r
+    012425  aa  6 00032 7571 00                staq    sp|stack_frame.arg_ptr ..\r
+    012426  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save linkage ptr\r
+    012427  aa  6 00034 5451 00                sprplb  sp|stack_frame.static_ptr       save static ptr\r
+    012430  aa  2 77776 3521 00                eppbp   bp|-2\r
+    012431  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr\r
+    012432  aa  2 77776 3521 00                eppbp   bp|-2           get correct entry pointer\r
+    012433  0a   012076 7100 00                tra     init_stack_join go init stack frame\r
+                                  6945  "\r
+                                  6946  "\r
+    012434                        6947  entry_operators_end:\r
+    012434  a0   000000 012434    6948         zero    0,*     marks end of entry operators\r
+                                  6949  "\r
+                                  6950  "\r
+    012435  aa   000000 0110 03   6951         even\r
+    012436  aa   077777 000043    6952  null:  its     -1,1,n\r
+    012437  aa   000001 000000 \r
+    012440  aa   077777 000043    6953  nullx: oct     077777000043,000001000000\r
+    012441  aa   000001 000000 \r
+    012442  aa   007777 000001    6954  null_pk:       oct     007777000001\r
+    012443  aa   777777 777777    6955  nullo: oct     777777777777\r
+    012444  aa   000000 000000    6956  one:   dec     0,1\r
+    012445  aa   000000 000001 \r
+    012446                        6957  almost_one:\r
+    012446                        6958  hfp_almost_one:\r
+    012446  aa   000777 777777    6959         oct     000777777777,777777777777\r
+    012447  aa   777777 777777 \r
+    012450  aa   216000 000000    6960  k71b25:        oct     216000000000,000000000000\r
+    012451  aa   000000 000000 \r
+                                  6961  "\r
+    012452  aa   000000 000000    6962  shift_bo:      dec     0b26,1b26,2b26,3b26,4b26,5b26,6b26,7b26,8b26,9b26\r
+    012453  aa   000000 001000 \r
+    012454  aa   000000 002000 \r
+    012455  aa   000000 003000 \r
+    012456  aa   000000 004000 \r
+    012457  aa   000000 005000 \r
+    012460  aa   000000 006000 \r
+    012461  aa   000000 007000 \r
+    012462  aa   000000 010000 \r
+    012463  aa   000000 011000 \r
+    012464  aa   000000 012000    6963         dec     10b26,11b26,12b26,13b26,14b26,15b26,16b26,17b26,18b26,19b26\r
+    012465  aa   000000 013000 \r
+    012466  aa   000000 014000 \r
+    012467  aa   000000 015000 \r
+    012470  aa   000000 016000 \r
+    012471  aa   000000 017000 \r
+    012472  aa   000000 020000 \r
+    012473  aa   000000 021000 \r
+    012474  aa   000000 022000 \r
+    012475  aa   000000 023000 \r
+    012476  aa   000000 024000    6964         dec     20b26,21b26,22b26,23b26,24b26,25b26,26b26,27b26,28b26,29b26\r
+    012477  aa   000000 025000 \r
+    012500  aa   000000 026000 \r
+    012501  aa   000000 027000 \r
+    012502  aa   000000 030000 \r
+    012503  aa   000000 031000 \r
+    012504  aa   000000 032000 \r
+    012505  aa   000000 033000 \r
+    012506  aa   000000 034000 \r
+    012507  aa   000000 035000 \r
+    012510  aa   000000 036000    6965         dec     30b26,31b26,32b26,33b26,34b26,35b26\r
+    012511  aa   000000 037000 \r
+    012512  aa   000000 040000 \r
+    012513  aa   000000 041000 \r
+    012514  aa   000000 042000 \r
+    012515  aa   000000 043000 \r
+                                  6966  \r
+                                  6967  "\r
+                                  6968  " The follow line must appear after everything else in text segment\r
+                                  6969  "\r
+    012516                        6970  end_pl1_operators:\r
+    012516  a0   000000 012516    6971         zero    0,*             marks end of pl1_operators\r
+                                  6972  "\r
+                                  6973  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  6974  "                                                      "\r
+                                  6975  "              END OF WIRED SECTION                    "\r
+                                  6976  "                                                      "\r
+                                  6977  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  6978  " \f\r
+                                  6979  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  6980  "                                                      "\r
+                                  6981  "              START OF PAGED SECTION                  "\r
+                                  6982  "                                                      "\r
+                                  6983  " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "\r
+                                  6984  "\r
+                                  6985  " The following code is used when hexadecimal floating point mode has been\r
+                                  6986  "selected via a call to the 'enter_HFP_mode' operator.\r
+                                  6987  "\r
+                                  6988         transfer_vector ,hfp_\r
+                                        "\r
+                                        " Due to the presence of double-word constants (at bit_mask and mask_bit)\r
+                                        " these instructions must presently begin on an even-word boundary.\r
+                                        " Note that if an odd number  of words is added to the front of the\r
+                                        " operator_table region, then the following even pseudo-op must be\r
+                                        " changed to an odd pseudo-op. If you forget, an assembly error will\r
+                                        " result (due to clever divide-by-zero, below).\r
+                                        "\r
+    012517  aa   000000 0110 03                even\r
+                                        "\r
+                                        " The following section, from location 0 to label operator_table, is referenced\r
+                                        " directly from PL/1 programs by means of offsets of the form ap|-n (ap pointing\r
+                                        " at pl1_operators_$operator_table).  For this reason, the order of the\r
+                                        " following instructions must not be changed.  Any new coding must be placed at\r
+                                        " the FRONT of the segment.\r
+                                        "\r
+                                        " This table translates a bit number between 0 and 35 to a char number\r
+                                        " between 0 and 3.\r
+                                        "\r
+                                               even\r
+    012520                              hfp_bitno_to_charno_table:\r
+                        000011                 dup     9\r
+    012520  aa   000000 000000                 dec     0\r
+                                               dupend\r
+    012521  aa   000000 000000                 dec     0\r
+    012522  aa   000000 000000                 dec     0\r
+    012523  aa   000000 000000                 dec     0\r
+    012524  aa   000000 000000                 dec     0\r
+    012525  aa   000000 000000                 dec     0\r
+    012526  aa   000000 000000                 dec     0\r
+    012527  aa   000000 000000                 dec     0\r
+    012530  aa   000000 000000                 dec     0\r
+                        000011                 dup     9\r
+    012531  aa   000000 000001                 dec     1\r
+                                               dupend\r
+    012532  aa   000000 000001                 dec     1\r
+    012533  aa   000000 000001                 dec     1\r
+    012534  aa   000000 000001                 dec     1\r
+    012535  aa   000000 000001                 dec     1\r
+    012536  aa   000000 000001                 dec     1\r
+    012537  aa   000000 000001                 dec     1\r
+    012540  aa   000000 000001                 dec     1\r
+    012541  aa   000000 000001                 dec     1\r
+                        000011                 dup     9\r
+    012542  aa   000000 000002                 dec     2\r
+                                               dupend\r
+    012543  aa   000000 000002                 dec     2\r
+    012544  aa   000000 000002                 dec     2\r
+    012545  aa   000000 000002                 dec     2\r
+    012546  aa   000000 000002                 dec     2\r
+    012547  aa   000000 000002                 dec     2\r
+    012550  aa   000000 000002                 dec     2\r
+    012551  aa   000000 000002                 dec     2\r
+    012552  aa   000000 000002                 dec     2\r
+                        000011                 dup     9\r
+    012553  aa   000000 000003                 dec     3\r
+                                               dupend\r
+    012554  aa   000000 000003                 dec     3\r
+    012555  aa   000000 000003                 dec     3\r
+    012556  aa   000000 000003                 dec     3\r
+    012557  aa   000000 000003                 dec     3\r
+    012560  aa   000000 000003                 dec     3\r
+    012561  aa   000000 000003                 dec     3\r
+    012562  aa   000000 000003                 dec     3\r
+    012563  aa   000000 000003                 dec     3\r
+                                        "\r
+                                        "      The following tables are for use with the TCT instruction.\r
+                                        "      Any single, given, character can be searched for using these\r
+                                        "      tables.\r
+                                        "\r
+                        000163                 dup     115\r
+    012564  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    012565  aa   777777 777777                 dec     -1\r
+    012566  aa   777777 777777                 dec     -1\r
+    012567  aa   777777 777777                 dec     -1\r
+    012570  aa   777777 777777                 dec     -1\r
+    012571  aa   777777 777777                 dec     -1\r
+    012572  aa   777777 777777                 dec     -1\r
+    012573  aa   777777 777777                 dec     -1\r
+    012574  aa   777777 777777                 dec     -1\r
+    012575  aa   777777 777777                 dec     -1\r
+    012576  aa   777777 777777                 dec     -1\r
+    012577  aa   777777 777777                 dec     -1\r
+    012600  aa   777777 777777                 dec     -1\r
+    012601  aa   777777 777777                 dec     -1\r
+    012602  aa   777777 777777                 dec     -1\r
+    012603  aa   777777 777777                 dec     -1\r
+    012604  aa   777777 777777                 dec     -1\r
+    012605  aa   777777 777777                 dec     -1\r
+    012606  aa   777777 777777                 dec     -1\r
+    012607  aa   777777 777777                 dec     -1\r
+    012610  aa   777777 777777                 dec     -1\r
+    012611  aa   777777 777777                 dec     -1\r
+    012612  aa   777777 777777                 dec     -1\r
+    012613  aa   777777 777777                 dec     -1\r
+    012614  aa   777777 777777                 dec     -1\r
+    012615  aa   777777 777777                 dec     -1\r
+    012616  aa   777777 777777                 dec     -1\r
+    012617  aa   777777 777777                 dec     -1\r
+    012620  aa   777777 777777                 dec     -1\r
+    012621  aa   777777 777777                 dec     -1\r
+    012622  aa   777777 777777                 dec     -1\r
+    012623  aa   777777 777777                 dec     -1\r
+    012624  aa   777777 777777                 dec     -1\r
+    012625  aa   777777 777777                 dec     -1\r
+    012626  aa   777777 777777                 dec     -1\r
+    012627  aa   777777 777777                 dec     -1\r
+    012630  aa   777777 777777                 dec     -1\r
+    012631  aa   777777 777777                 dec     -1\r
+    012632  aa   777777 777777                 dec     -1\r
+    012633  aa   777777 777777                 dec     -1\r
+    012634  aa   777777 777777                 dec     -1\r
+    012635  aa   777777 777777                 dec     -1\r
+    012636  aa   777777 777777                 dec     -1\r
+    012637  aa   777777 777777                 dec     -1\r
+    012640  aa   777777 777777                 dec     -1\r
+    012641  aa   777777 777777                 dec     -1\r
+    012642  aa   777777 777777                 dec     -1\r
+    012643  aa   777777 777777                 dec     -1\r
+    012644  aa   777777 777777                 dec     -1\r
+    012645  aa   777777 777777                 dec     -1\r
+    012646  aa   777777 777777                 dec     -1\r
+    012647  aa   777777 777777                 dec     -1\r
+    012650  aa   777777 777777                 dec     -1\r
+    012651  aa   777777 777777                 dec     -1\r
+    012652  aa   777777 777777                 dec     -1\r
+    012653  aa   777777 777777                 dec     -1\r
+    012654  aa   777777 777777                 dec     -1\r
+    012655  aa   777777 777777                 dec     -1\r
+    012656  aa   777777 777777                 dec     -1\r
+    012657  aa   777777 777777                 dec     -1\r
+    012660  aa   777777 777777                 dec     -1\r
+    012661  aa   777777 777777                 dec     -1\r
+    012662  aa   777777 777777                 dec     -1\r
+    012663  aa   777777 777777                 dec     -1\r
+    012664  aa   777777 777777                 dec     -1\r
+    012665  aa   777777 777777                 dec     -1\r
+    012666  aa   777777 777777                 dec     -1\r
+    012667  aa   777777 777777                 dec     -1\r
+    012670  aa   777777 777777                 dec     -1\r
+    012671  aa   777777 777777                 dec     -1\r
+    012672  aa   777777 777777                 dec     -1\r
+    012673  aa   777777 777777                 dec     -1\r
+    012674  aa   777777 777777                 dec     -1\r
+    012675  aa   777777 777777                 dec     -1\r
+    012676  aa   777777 777777                 dec     -1\r
+    012677  aa   777777 777777                 dec     -1\r
+    012700  aa   777777 777777                 dec     -1\r
+    012701  aa   777777 777777                 dec     -1\r
+    012702  aa   777777 777777                 dec     -1\r
+    012703  aa   777777 777777                 dec     -1\r
+    012704  aa   777777 777777                 dec     -1\r
+    012705  aa   777777 777777                 dec     -1\r
+    012706  aa   777777 777777                 dec     -1\r
+    012707  aa   777777 777777                 dec     -1\r
+    012710  aa   777777 777777                 dec     -1\r
+    012711  aa   777777 777777                 dec     -1\r
+    012712  aa   777777 777777                 dec     -1\r
+    012713  aa   777777 777777                 dec     -1\r
+    012714  aa   777777 777777                 dec     -1\r
+    012715  aa   777777 777777                 dec     -1\r
+    012716  aa   777777 777777                 dec     -1\r
+    012717  aa   777777 777777                 dec     -1\r
+    012720  aa   777777 777777                 dec     -1\r
+    012721  aa   777777 777777                 dec     -1\r
+    012722  aa   777777 777777                 dec     -1\r
+    012723  aa   777777 777777                 dec     -1\r
+    012724  aa   777777 777777                 dec     -1\r
+    012725  aa   777777 777777                 dec     -1\r
+    012726  aa   777777 777777                 dec     -1\r
+    012727  aa   777777 777777                 dec     -1\r
+    012730  aa   777777 777777                 dec     -1\r
+    012731  aa   777777 777777                 dec     -1\r
+    012732  aa   777777 777777                 dec     -1\r
+    012733  aa   777777 777777                 dec     -1\r
+    012734  aa   777777 777777                 dec     -1\r
+    012735  aa   777777 777777                 dec     -1\r
+    012736  aa   777777 777777                 dec     -1\r
+    012737  aa   777777 777777                 dec     -1\r
+    012740  aa   777777 777777                 dec     -1\r
+    012741  aa   777777 777777                 dec     -1\r
+    012742  aa   777777 777777                 dec     -1\r
+    012743  aa   777777 777777                 dec     -1\r
+    012744  aa   777777 777777                 dec     -1\r
+    012745  aa   777777 777777                 dec     -1\r
+    012746  aa   777777 777777                 dec     -1\r
+                                        "\r
+    012747                              hfp_tct_octal_060:\r
+                        000004                 dup     4\r
+    012747  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    012750  aa   777777 777777                 dec     -1\r
+    012751  aa   777777 777777                 dec     -1\r
+    012752  aa   777777 777777                 dec     -1\r
+                                        "\r
+    012753                              hfp_tct_octal_040:\r
+                        000010                 dup     8\r
+    012753  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    012754  aa   777777 777777                 dec     -1\r
+    012755  aa   777777 777777                 dec     -1\r
+    012756  aa   777777 777777                 dec     -1\r
+    012757  aa   777777 777777                 dec     -1\r
+    012760  aa   777777 777777                 dec     -1\r
+    012761  aa   777777 777777                 dec     -1\r
+    012762  aa   777777 777777                 dec     -1\r
+    012763                              hfp_tct_byte_0:\r
+    012763  aa   000777 777777                 vfd     9/0,9/-1,9/-1,9/-1\r
+                        000177                 dup     127\r
+    012764  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    012765  aa   777777 777777                 dec     -1\r
+    012766  aa   777777 777777                 dec     -1\r
+    012767  aa   777777 777777                 dec     -1\r
+    012770  aa   777777 777777                 dec     -1\r
+    012771  aa   777777 777777                 dec     -1\r
+    012772  aa   777777 777777                 dec     -1\r
+    012773  aa   777777 777777                 dec     -1\r
+    012774  aa   777777 777777                 dec     -1\r
+    012775  aa   777777 777777                 dec     -1\r
+    012776  aa   777777 777777                 dec     -1\r
+    012777  aa   777777 777777                 dec     -1\r
+    013000  aa   777777 777777                 dec     -1\r
+    013001  aa   777777 777777                 dec     -1\r
+    013002  aa   777777 777777                 dec     -1\r
+    013003  aa   777777 777777                 dec     -1\r
+    013004  aa   777777 777777                 dec     -1\r
+    013005  aa   777777 777777                 dec     -1\r
+    013006  aa   777777 777777                 dec     -1\r
+    013007  aa   777777 777777                 dec     -1\r
+    013010  aa   777777 777777                 dec     -1\r
+    013011  aa   777777 777777                 dec     -1\r
+    013012  aa   777777 777777                 dec     -1\r
+    013013  aa   777777 777777                 dec     -1\r
+    013014  aa   777777 777777                 dec     -1\r
+    013015  aa   777777 777777                 dec     -1\r
+    013016  aa   777777 777777                 dec     -1\r
+    013017  aa   777777 777777                 dec     -1\r
+    013020  aa   777777 777777                 dec     -1\r
+    013021  aa   777777 777777                 dec     -1\r
+    013022  aa   777777 777777                 dec     -1\r
+    013023  aa   777777 777777                 dec     -1\r
+    013024  aa   777777 777777                 dec     -1\r
+    013025  aa   777777 777777                 dec     -1\r
+    013026  aa   777777 777777                 dec     -1\r
+    013027  aa   777777 777777                 dec     -1\r
+    013030  aa   777777 777777                 dec     -1\r
+    013031  aa   777777 777777                 dec     -1\r
+    013032  aa   777777 777777                 dec     -1\r
+    013033  aa   777777 777777                 dec     -1\r
+    013034  aa   777777 777777                 dec     -1\r
+    013035  aa   777777 777777                 dec     -1\r
+    013036  aa   777777 777777                 dec     -1\r
+    013037  aa   777777 777777                 dec     -1\r
+    013040  aa   777777 777777                 dec     -1\r
+    013041  aa   777777 777777                 dec     -1\r
+    013042  aa   777777 777777                 dec     -1\r
+    013043  aa   777777 777777                 dec     -1\r
+    013044  aa   777777 777777                 dec     -1\r
+    013045  aa   777777 777777                 dec     -1\r
+    013046  aa   777777 777777                 dec     -1\r
+    013047  aa   777777 777777                 dec     -1\r
+    013050  aa   777777 777777                 dec     -1\r
+    013051  aa   777777 777777                 dec     -1\r
+    013052  aa   777777 777777                 dec     -1\r
+    013053  aa   777777 777777                 dec     -1\r
+    013054  aa   777777 777777                 dec     -1\r
+    013055  aa   777777 777777                 dec     -1\r
+    013056  aa   777777 777777                 dec     -1\r
+    013057  aa   777777 777777                 dec     -1\r
+    013060  aa   777777 777777                 dec     -1\r
+    013061  aa   777777 777777                 dec     -1\r
+    013062  aa   777777 777777                 dec     -1\r
+    013063  aa   777777 777777                 dec     -1\r
+    013064  aa   777777 777777                 dec     -1\r
+    013065  aa   777777 777777                 dec     -1\r
+    013066  aa   777777 777777                 dec     -1\r
+    013067  aa   777777 777777                 dec     -1\r
+    013070  aa   777777 777777                 dec     -1\r
+    013071  aa   777777 777777                 dec     -1\r
+    013072  aa   777777 777777                 dec     -1\r
+    013073  aa   777777 777777                 dec     -1\r
+    013074  aa   777777 777777                 dec     -1\r
+    013075  aa   777777 777777                 dec     -1\r
+    013076  aa   777777 777777                 dec     -1\r
+    013077  aa   777777 777777                 dec     -1\r
+    013100  aa   777777 777777                 dec     -1\r
+    013101  aa   777777 777777                 dec     -1\r
+    013102  aa   777777 777777                 dec     -1\r
+    013103  aa   777777 777777                 dec     -1\r
+    013104  aa   777777 777777                 dec     -1\r
+    013105  aa   777777 777777                 dec     -1\r
+    013106  aa   777777 777777                 dec     -1\r
+    013107  aa   777777 777777                 dec     -1\r
+    013110  aa   777777 777777                 dec     -1\r
+    013111  aa   777777 777777                 dec     -1\r
+    013112  aa   777777 777777                 dec     -1\r
+    013113  aa   777777 777777                 dec     -1\r
+    013114  aa   777777 777777                 dec     -1\r
+    013115  aa   777777 777777                 dec     -1\r
+    013116  aa   777777 777777                 dec     -1\r
+    013117  aa   777777 777777                 dec     -1\r
+    013120  aa   777777 777777                 dec     -1\r
+    013121  aa   777777 777777                 dec     -1\r
+    013122  aa   777777 777777                 dec     -1\r
+    013123  aa   777777 777777                 dec     -1\r
+    013124  aa   777777 777777                 dec     -1\r
+    013125  aa   777777 777777                 dec     -1\r
+    013126  aa   777777 777777                 dec     -1\r
+    013127  aa   777777 777777                 dec     -1\r
+    013130  aa   777777 777777                 dec     -1\r
+    013131  aa   777777 777777                 dec     -1\r
+    013132  aa   777777 777777                 dec     -1\r
+    013133  aa   777777 777777                 dec     -1\r
+    013134  aa   777777 777777                 dec     -1\r
+    013135  aa   777777 777777                 dec     -1\r
+    013136  aa   777777 777777                 dec     -1\r
+    013137  aa   777777 777777                 dec     -1\r
+    013140  aa   777777 777777                 dec     -1\r
+    013141  aa   777777 777777                 dec     -1\r
+    013142  aa   777777 777777                 dec     -1\r
+    013143  aa   777777 777777                 dec     -1\r
+    013144  aa   777777 777777                 dec     -1\r
+    013145  aa   777777 777777                 dec     -1\r
+    013146  aa   777777 777777                 dec     -1\r
+    013147  aa   777777 777777                 dec     -1\r
+    013150  aa   777777 777777                 dec     -1\r
+    013151  aa   777777 777777                 dec     -1\r
+    013152  aa   777777 777777                 dec     -1\r
+    013153  aa   777777 777777                 dec     -1\r
+    013154  aa   777777 777777                 dec     -1\r
+    013155  aa   777777 777777                 dec     -1\r
+    013156  aa   777777 777777                 dec     -1\r
+    013157  aa   777777 777777                 dec     -1\r
+    013160  aa   777777 777777                 dec     -1\r
+    013161  aa   777777 777777                 dec     -1\r
+    013162  aa   777777 777777                 dec     -1\r
+                                        "\r
+    013163                              hfp_tct_byte_1:\r
+    013163  aa   777000 777777                 vfd     9/-1,9/0,9/-1,9/-1\r
+                        000177                 dup     127\r
+    013164  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    013165  aa   777777 777777                 dec     -1\r
+    013166  aa   777777 777777                 dec     -1\r
+    013167  aa   777777 777777                 dec     -1\r
+    013170  aa   777777 777777                 dec     -1\r
+    013171  aa   777777 777777                 dec     -1\r
+    013172  aa   777777 777777                 dec     -1\r
+    013173  aa   777777 777777                 dec     -1\r
+    013174  aa   777777 777777                 dec     -1\r
+    013175  aa   777777 777777                 dec     -1\r
+    013176  aa   777777 777777                 dec     -1\r
+    013177  aa   777777 777777                 dec     -1\r
+    013200  aa   777777 777777                 dec     -1\r
+    013201  aa   777777 777777                 dec     -1\r
+    013202  aa   777777 777777                 dec     -1\r
+    013203  aa   777777 777777                 dec     -1\r
+    013204  aa   777777 777777                 dec     -1\r
+    013205  aa   777777 777777                 dec     -1\r
+    013206  aa   777777 777777                 dec     -1\r
+    013207  aa   777777 777777                 dec     -1\r
+    013210  aa   777777 777777                 dec     -1\r
+    013211  aa   777777 777777                 dec     -1\r
+    013212  aa   777777 777777                 dec     -1\r
+    013213  aa   777777 777777                 dec     -1\r
+    013214  aa   777777 777777                 dec     -1\r
+    013215  aa   777777 777777                 dec     -1\r
+    013216  aa   777777 777777                 dec     -1\r
+    013217  aa   777777 777777                 dec     -1\r
+    013220  aa   777777 777777                 dec     -1\r
+    013221  aa   777777 777777                 dec     -1\r
+    013222  aa   777777 777777                 dec     -1\r
+    013223  aa   777777 777777                 dec     -1\r
+    013224  aa   777777 777777                 dec     -1\r
+    013225  aa   777777 777777                 dec     -1\r
+    013226  aa   777777 777777                 dec     -1\r
+    013227  aa   777777 777777                 dec     -1\r
+    013230  aa   777777 777777                 dec     -1\r
+    013231  aa   777777 777777                 dec     -1\r
+    013232  aa   777777 777777                 dec     -1\r
+    013233  aa   777777 777777                 dec     -1\r
+    013234  aa   777777 777777                 dec     -1\r
+    013235  aa   777777 777777                 dec     -1\r
+    013236  aa   777777 777777                 dec     -1\r
+    013237  aa   777777 777777                 dec     -1\r
+    013240  aa   777777 777777                 dec     -1\r
+    013241  aa   777777 777777                 dec     -1\r
+    013242  aa   777777 777777                 dec     -1\r
+    013243  aa   777777 777777                 dec     -1\r
+    013244  aa   777777 777777                 dec     -1\r
+    013245  aa   777777 777777                 dec     -1\r
+    013246  aa   777777 777777                 dec     -1\r
+    013247  aa   777777 777777                 dec     -1\r
+    013250  aa   777777 777777                 dec     -1\r
+    013251  aa   777777 777777                 dec     -1\r
+    013252  aa   777777 777777                 dec     -1\r
+    013253  aa   777777 777777                 dec     -1\r
+    013254  aa   777777 777777                 dec     -1\r
+    013255  aa   777777 777777                 dec     -1\r
+    013256  aa   777777 777777                 dec     -1\r
+    013257  aa   777777 777777                 dec     -1\r
+    013260  aa   777777 777777                 dec     -1\r
+    013261  aa   777777 777777                 dec     -1\r
+    013262  aa   777777 777777                 dec     -1\r
+    013263  aa   777777 777777                 dec     -1\r
+    013264  aa   777777 777777                 dec     -1\r
+    013265  aa   777777 777777                 dec     -1\r
+    013266  aa   777777 777777                 dec     -1\r
+    013267  aa   777777 777777                 dec     -1\r
+    013270  aa   777777 777777                 dec     -1\r
+    013271  aa   777777 777777                 dec     -1\r
+    013272  aa   777777 777777                 dec     -1\r
+    013273  aa   777777 777777                 dec     -1\r
+    013274  aa   777777 777777                 dec     -1\r
+    013275  aa   777777 777777                 dec     -1\r
+    013276  aa   777777 777777                 dec     -1\r
+    013277  aa   777777 777777                 dec     -1\r
+    013300  aa   777777 777777                 dec     -1\r
+    013301  aa   777777 777777                 dec     -1\r
+    013302  aa   777777 777777                 dec     -1\r
+    013303  aa   777777 777777                 dec     -1\r
+    013304  aa   777777 777777                 dec     -1\r
+    013305  aa   777777 777777                 dec     -1\r
+    013306  aa   777777 777777                 dec     -1\r
+    013307  aa   777777 777777                 dec     -1\r
+    013310  aa   777777 777777                 dec     -1\r
+    013311  aa   777777 777777                 dec     -1\r
+    013312  aa   777777 777777                 dec     -1\r
+    013313  aa   777777 777777                 dec     -1\r
+    013314  aa   777777 777777                 dec     -1\r
+    013315  aa   777777 777777                 dec     -1\r
+    013316  aa   777777 777777                 dec     -1\r
+    013317  aa   777777 777777                 dec     -1\r
+    013320  aa   777777 777777                 dec     -1\r
+    013321  aa   777777 777777                 dec     -1\r
+    013322  aa   777777 777777                 dec     -1\r
+    013323  aa   777777 777777                 dec     -1\r
+    013324  aa   777777 777777                 dec     -1\r
+    013325  aa   777777 777777                 dec     -1\r
+    013326  aa   777777 777777                 dec     -1\r
+    013327  aa   777777 777777                 dec     -1\r
+    013330  aa   777777 777777                 dec     -1\r
+    013331  aa   777777 777777                 dec     -1\r
+    013332  aa   777777 777777                 dec     -1\r
+    013333  aa   777777 777777                 dec     -1\r
+    013334  aa   777777 777777                 dec     -1\r
+    013335  aa   777777 777777                 dec     -1\r
+    013336  aa   777777 777777                 dec     -1\r
+    013337  aa   777777 777777                 dec     -1\r
+    013340  aa   777777 777777                 dec     -1\r
+    013341  aa   777777 777777                 dec     -1\r
+    013342  aa   777777 777777                 dec     -1\r
+    013343  aa   777777 777777                 dec     -1\r
+    013344  aa   777777 777777                 dec     -1\r
+    013345  aa   777777 777777                 dec     -1\r
+    013346  aa   777777 777777                 dec     -1\r
+    013347  aa   777777 777777                 dec     -1\r
+    013350  aa   777777 777777                 dec     -1\r
+    013351  aa   777777 777777                 dec     -1\r
+    013352  aa   777777 777777                 dec     -1\r
+    013353  aa   777777 777777                 dec     -1\r
+    013354  aa   777777 777777                 dec     -1\r
+    013355  aa   777777 777777                 dec     -1\r
+    013356  aa   777777 777777                 dec     -1\r
+    013357  aa   777777 777777                 dec     -1\r
+    013360  aa   777777 777777                 dec     -1\r
+    013361  aa   777777 777777                 dec     -1\r
+    013362  aa   777777 777777                 dec     -1\r
+                                        "\r
+    013363                              hfp_tct_byte_2:\r
+    013363  aa   777777 000777                 vfd     9/-1,9/-1,9/0,9/-1\r
+                        000177                 dup     127\r
+    013364  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    013365  aa   777777 777777                 dec     -1\r
+    013366  aa   777777 777777                 dec     -1\r
+    013367  aa   777777 777777                 dec     -1\r
+    013370  aa   777777 777777                 dec     -1\r
+    013371  aa   777777 777777                 dec     -1\r
+    013372  aa   777777 777777                 dec     -1\r
+    013373  aa   777777 777777                 dec     -1\r
+    013374  aa   777777 777777                 dec     -1\r
+    013375  aa   777777 777777                 dec     -1\r
+    013376  aa   777777 777777                 dec     -1\r
+    013377  aa   777777 777777                 dec     -1\r
+    013400  aa   777777 777777                 dec     -1\r
+    013401  aa   777777 777777                 dec     -1\r
+    013402  aa   777777 777777                 dec     -1\r
+    013403  aa   777777 777777                 dec     -1\r
+    013404  aa   777777 777777                 dec     -1\r
+    013405  aa   777777 777777                 dec     -1\r
+    013406  aa   777777 777777                 dec     -1\r
+    013407  aa   777777 777777                 dec     -1\r
+    013410  aa   777777 777777                 dec     -1\r
+    013411  aa   777777 777777                 dec     -1\r
+    013412  aa   777777 777777                 dec     -1\r
+    013413  aa   777777 777777                 dec     -1\r
+    013414  aa   777777 777777                 dec     -1\r
+    013415  aa   777777 777777                 dec     -1\r
+    013416  aa   777777 777777                 dec     -1\r
+    013417  aa   777777 777777                 dec     -1\r
+    013420  aa   777777 777777                 dec     -1\r
+    013421  aa   777777 777777                 dec     -1\r
+    013422  aa   777777 777777                 dec     -1\r
+    013423  aa   777777 777777                 dec     -1\r
+    013424  aa   777777 777777                 dec     -1\r
+    013425  aa   777777 777777                 dec     -1\r
+    013426  aa   777777 777777                 dec     -1\r
+    013427  aa   777777 777777                 dec     -1\r
+    013430  aa   777777 777777                 dec     -1\r
+    013431  aa   777777 777777                 dec     -1\r
+    013432  aa   777777 777777                 dec     -1\r
+    013433  aa   777777 777777                 dec     -1\r
+    013434  aa   777777 777777                 dec     -1\r
+    013435  aa   777777 777777                 dec     -1\r
+    013436  aa   777777 777777                 dec     -1\r
+    013437  aa   777777 777777                 dec     -1\r
+    013440  aa   777777 777777                 dec     -1\r
+    013441  aa   777777 777777                 dec     -1\r
+    013442  aa   777777 777777                 dec     -1\r
+    013443  aa   777777 777777                 dec     -1\r
+    013444  aa   777777 777777                 dec     -1\r
+    013445  aa   777777 777777                 dec     -1\r
+    013446  aa   777777 777777                 dec     -1\r
+    013447  aa   777777 777777                 dec     -1\r
+    013450  aa   777777 777777                 dec     -1\r
+    013451  aa   777777 777777                 dec     -1\r
+    013452  aa   777777 777777                 dec     -1\r
+    013453  aa   777777 777777                 dec     -1\r
+    013454  aa   777777 777777                 dec     -1\r
+    013455  aa   777777 777777                 dec     -1\r
+    013456  aa   777777 777777                 dec     -1\r
+    013457  aa   777777 777777                 dec     -1\r
+    013460  aa   777777 777777                 dec     -1\r
+    013461  aa   777777 777777                 dec     -1\r
+    013462  aa   777777 777777                 dec     -1\r
+    013463  aa   777777 777777                 dec     -1\r
+    013464  aa   777777 777777                 dec     -1\r
+    013465  aa   777777 777777                 dec     -1\r
+    013466  aa   777777 777777                 dec     -1\r
+    013467  aa   777777 777777                 dec     -1\r
+    013470  aa   777777 777777                 dec     -1\r
+    013471  aa   777777 777777                 dec     -1\r
+    013472  aa   777777 777777                 dec     -1\r
+    013473  aa   777777 777777                 dec     -1\r
+    013474  aa   777777 777777                 dec     -1\r
+    013475  aa   777777 777777                 dec     -1\r
+    013476  aa   777777 777777                 dec     -1\r
+    013477  aa   777777 777777                 dec     -1\r
+    013500  aa   777777 777777                 dec     -1\r
+    013501  aa   777777 777777                 dec     -1\r
+    013502  aa   777777 777777                 dec     -1\r
+    013503  aa   777777 777777                 dec     -1\r
+    013504  aa   777777 777777                 dec     -1\r
+    013505  aa   777777 777777                 dec     -1\r
+    013506  aa   777777 777777                 dec     -1\r
+    013507  aa   777777 777777                 dec     -1\r
+    013510  aa   777777 777777                 dec     -1\r
+    013511  aa   777777 777777                 dec     -1\r
+    013512  aa   777777 777777                 dec     -1\r
+    013513  aa   777777 777777                 dec     -1\r
+    013514  aa   777777 777777                 dec     -1\r
+    013515  aa   777777 777777                 dec     -1\r
+    013516  aa   777777 777777                 dec     -1\r
+    013517  aa   777777 777777                 dec     -1\r
+    013520  aa   777777 777777                 dec     -1\r
+    013521  aa   777777 777777                 dec     -1\r
+    013522  aa   777777 777777                 dec     -1\r
+    013523  aa   777777 777777                 dec     -1\r
+    013524  aa   777777 777777                 dec     -1\r
+    013525  aa   777777 777777                 dec     -1\r
+    013526  aa   777777 777777                 dec     -1\r
+    013527  aa   777777 777777                 dec     -1\r
+    013530  aa   777777 777777                 dec     -1\r
+    013531  aa   777777 777777                 dec     -1\r
+    013532  aa   777777 777777                 dec     -1\r
+    013533  aa   777777 777777                 dec     -1\r
+    013534  aa   777777 777777                 dec     -1\r
+    013535  aa   777777 777777                 dec     -1\r
+    013536  aa   777777 777777                 dec     -1\r
+    013537  aa   777777 777777                 dec     -1\r
+    013540  aa   777777 777777                 dec     -1\r
+    013541  aa   777777 777777                 dec     -1\r
+    013542  aa   777777 777777                 dec     -1\r
+    013543  aa   777777 777777                 dec     -1\r
+    013544  aa   777777 777777                 dec     -1\r
+    013545  aa   777777 777777                 dec     -1\r
+    013546  aa   777777 777777                 dec     -1\r
+    013547  aa   777777 777777                 dec     -1\r
+    013550  aa   777777 777777                 dec     -1\r
+    013551  aa   777777 777777                 dec     -1\r
+    013552  aa   777777 777777                 dec     -1\r
+    013553  aa   777777 777777                 dec     -1\r
+    013554  aa   777777 777777                 dec     -1\r
+    013555  aa   777777 777777                 dec     -1\r
+    013556  aa   777777 777777                 dec     -1\r
+    013557  aa   777777 777777                 dec     -1\r
+    013560  aa   777777 777777                 dec     -1\r
+    013561  aa   777777 777777                 dec     -1\r
+    013562  aa   777777 777777                 dec     -1\r
+                                        "\r
+    013563                              hfp_tct_byte_3:\r
+    013563  aa   777777 777000                 vfd     9/-1,9/-1,9/-1,9/0\r
+                        000177                 dup     127\r
+    013564  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    013565  aa   777777 777777                 dec     -1\r
+    013566  aa   777777 777777                 dec     -1\r
+    013567  aa   777777 777777                 dec     -1\r
+    013570  aa   777777 777777                 dec     -1\r
+    013571  aa   777777 777777                 dec     -1\r
+    013572  aa   777777 777777                 dec     -1\r
+    013573  aa   777777 777777                 dec     -1\r
+    013574  aa   777777 777777                 dec     -1\r
+    013575  aa   777777 777777                 dec     -1\r
+    013576  aa   777777 777777                 dec     -1\r
+    013577  aa   777777 777777                 dec     -1\r
+    013600  aa   777777 777777                 dec     -1\r
+    013601  aa   777777 777777                 dec     -1\r
+    013602  aa   777777 777777                 dec     -1\r
+    013603  aa   777777 777777                 dec     -1\r
+    013604  aa   777777 777777                 dec     -1\r
+    013605  aa   777777 777777                 dec     -1\r
+    013606  aa   777777 777777                 dec     -1\r
+    013607  aa   777777 777777                 dec     -1\r
+    013610  aa   777777 777777                 dec     -1\r
+    013611  aa   777777 777777                 dec     -1\r
+    013612  aa   777777 777777                 dec     -1\r
+    013613  aa   777777 777777                 dec     -1\r
+    013614  aa   777777 777777                 dec     -1\r
+    013615  aa   777777 777777                 dec     -1\r
+    013616  aa   777777 777777                 dec     -1\r
+    013617  aa   777777 777777                 dec     -1\r
+    013620  aa   777777 777777                 dec     -1\r
+    013621  aa   777777 777777                 dec     -1\r
+    013622  aa   777777 777777                 dec     -1\r
+    013623  aa   777777 777777                 dec     -1\r
+    013624  aa   777777 777777                 dec     -1\r
+    013625  aa   777777 777777                 dec     -1\r
+    013626  aa   777777 777777                 dec     -1\r
+    013627  aa   777777 777777                 dec     -1\r
+    013630  aa   777777 777777                 dec     -1\r
+    013631  aa   777777 777777                 dec     -1\r
+    013632  aa   777777 777777                 dec     -1\r
+    013633  aa   777777 777777                 dec     -1\r
+    013634  aa   777777 777777                 dec     -1\r
+    013635  aa   777777 777777                 dec     -1\r
+    013636  aa   777777 777777                 dec     -1\r
+    013637  aa   777777 777777                 dec     -1\r
+    013640  aa   777777 777777                 dec     -1\r
+    013641  aa   777777 777777                 dec     -1\r
+    013642  aa   777777 777777                 dec     -1\r
+    013643  aa   777777 777777                 dec     -1\r
+    013644  aa   777777 777777                 dec     -1\r
+    013645  aa   777777 777777                 dec     -1\r
+    013646  aa   777777 777777                 dec     -1\r
+    013647  aa   777777 777777                 dec     -1\r
+    013650  aa   777777 777777                 dec     -1\r
+    013651  aa   777777 777777                 dec     -1\r
+    013652  aa   777777 777777                 dec     -1\r
+    013653  aa   777777 777777                 dec     -1\r
+    013654  aa   777777 777777                 dec     -1\r
+    013655  aa   777777 777777                 dec     -1\r
+    013656  aa   777777 777777                 dec     -1\r
+    013657  aa   777777 777777                 dec     -1\r
+    013660  aa   777777 777777                 dec     -1\r
+    013661  aa   777777 777777                 dec     -1\r
+    013662  aa   777777 777777                 dec     -1\r
+    013663  aa   777777 777777                 dec     -1\r
+    013664  aa   777777 777777                 dec     -1\r
+    013665  aa   777777 777777                 dec     -1\r
+    013666  aa   777777 777777                 dec     -1\r
+    013667  aa   777777 777777                 dec     -1\r
+    013670  aa   777777 777777                 dec     -1\r
+    013671  aa   777777 777777                 dec     -1\r
+    013672  aa   777777 777777                 dec     -1\r
+    013673  aa   777777 777777                 dec     -1\r
+    013674  aa   777777 777777                 dec     -1\r
+    013675  aa   777777 777777                 dec     -1\r
+    013676  aa   777777 777777                 dec     -1\r
+    013677  aa   777777 777777                 dec     -1\r
+    013700  aa   777777 777777                 dec     -1\r
+    013701  aa   777777 777777                 dec     -1\r
+    013702  aa   777777 777777                 dec     -1\r
+    013703  aa   777777 777777                 dec     -1\r
+    013704  aa   777777 777777                 dec     -1\r
+    013705  aa   777777 777777                 dec     -1\r
+    013706  aa   777777 777777                 dec     -1\r
+    013707  aa   777777 777777                 dec     -1\r
+    013710  aa   777777 777777                 dec     -1\r
+    013711  aa   777777 777777                 dec     -1\r
+    013712  aa   777777 777777                 dec     -1\r
+    013713  aa   777777 777777                 dec     -1\r
+    013714  aa   777777 777777                 dec     -1\r
+    013715  aa   777777 777777                 dec     -1\r
+    013716  aa   777777 777777                 dec     -1\r
+    013717  aa   777777 777777                 dec     -1\r
+    013720  aa   777777 777777                 dec     -1\r
+    013721  aa   777777 777777                 dec     -1\r
+    013722  aa   777777 777777                 dec     -1\r
+    013723  aa   777777 777777                 dec     -1\r
+    013724  aa   777777 777777                 dec     -1\r
+    013725  aa   777777 777777                 dec     -1\r
+    013726  aa   777777 777777                 dec     -1\r
+    013727  aa   777777 777777                 dec     -1\r
+    013730  aa   777777 777777                 dec     -1\r
+    013731  aa   777777 777777                 dec     -1\r
+    013732  aa   777777 777777                 dec     -1\r
+    013733  aa   777777 777777                 dec     -1\r
+    013734  aa   777777 777777                 dec     -1\r
+    013735  aa   777777 777777                 dec     -1\r
+    013736  aa   777777 777777                 dec     -1\r
+    013737  aa   777777 777777                 dec     -1\r
+    013740  aa   777777 777777                 dec     -1\r
+    013741  aa   777777 777777                 dec     -1\r
+    013742  aa   777777 777777                 dec     -1\r
+    013743  aa   777777 777777                 dec     -1\r
+    013744  aa   777777 777777                 dec     -1\r
+    013745  aa   777777 777777                 dec     -1\r
+    013746  aa   777777 777777                 dec     -1\r
+    013747  aa   777777 777777                 dec     -1\r
+    013750  aa   777777 777777                 dec     -1\r
+    013751  aa   777777 777777                 dec     -1\r
+    013752  aa   777777 777777                 dec     -1\r
+    013753  aa   777777 777777                 dec     -1\r
+    013754  aa   777777 777777                 dec     -1\r
+    013755  aa   777777 777777                 dec     -1\r
+    013756  aa   777777 777777                 dec     -1\r
+    013757  aa   777777 777777                 dec     -1\r
+    013760  aa   777777 777777                 dec     -1\r
+    013761  aa   777777 777777                 dec     -1\r
+    013762  aa   777777 777777                 dec     -1\r
+                                        "\r
+                                        "      The number of words per segment of a FORTRAN Very Large Array.\r
+                                        "\r
+    013763                              hfp_VLA_words_per_seg_:\r
+    013763  aa   000001 000000                 vfd     36/256*1024\r
+                                        "\r
+                                        "      table of csl's for use by bool builtin function\r
+                                        "\r
+    013764                              hfp_csl_vector:\r
+    013764  aa  0 00140 0605 40                csl     (pr,rl),(pr,rl),bool(0)\r
+    013765  aa  0 01140 0605 40                csl     (pr,rl),(pr,rl),bool(1)\r
+    013766  aa  0 02140 0605 40                csl     (pr,rl),(pr,rl),bool(2)\r
+    013767  aa  0 03140 0605 40                csl     (pr,rl),(pr,rl),bool(3)\r
+    013770  aa  0 04140 0605 40                csl     (pr,rl),(pr,rl),bool(4)\r
+    013771  aa  0 05140 0605 40                csl     (pr,rl),(pr,rl),bool(5)\r
+    013772  aa  0 06140 0605 40                csl     (pr,rl),(pr,rl),bool(6)\r
+    013773  aa  0 07140 0605 40                csl     (pr,rl),(pr,rl),bool(7)\r
+    013774  aa  0 10140 0605 40                csl     (pr,rl),(pr,rl),bool(10)\r
+    013775  aa  0 11140 0605 40                csl     (pr,rl),(pr,rl),bool(11)\r
+    013776  aa  0 12140 0605 40                csl     (pr,rl),(pr,rl),bool(12)\r
+    013777  aa  0 13140 0605 40                csl     (pr,rl),(pr,rl),bool(13)\r
+    014000  aa  0 14140 0605 40                csl     (pr,rl),(pr,rl),bool(14)\r
+    014001  aa  0 15140 0605 40                csl     (pr,rl),(pr,rl),bool(15)\r
+    014002  aa  0 16140 0605 40                csl     (pr,rl),(pr,rl),bool(16)\r
+    014003  aa  0 17140 0605 40                csl     (pr,rl),(pr,rl),bool(17)\r
+                                        "\r
+                                        "      shift table for character offset\r
+                                        "\r
+    014004  aa   000000 000000          hfp_co_to_bo:  dec     0,9b17,18b17,27b17\r
+    014005  aa   000011 000000 \r
+    014006  aa   000022 000000 \r
+    014007  aa   000033 000000 \r
+                                        "\r
+                                        "      shift table for half word offset\r
+                                        "\r
+    014010  aa   000000 000000          hfp_ho_to_bo:  dec     0,18b17\r
+    014011  aa   000022 000000 \r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014012                              hfp_store_a9_co:\r
+    014012  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    014013  aa  2 00000 5511 20                stba    bp|0,20         1\r
+    014014  aa  2 00000 5511 10                stba    bp|0,10         2\r
+    014015  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    014016  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    014017  aa  2 00000 5511 30                stba    bp|0,30         1\r
+    014020  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    014021  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    014022  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    014023  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    014024  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    014025  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    014026  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    014027  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    014030  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    014031  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    014032  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    014033  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    014034  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    014035  aa  2 00000 5511 04                stba    bp|0,04         3\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014036                              hfp_store_q9_co:\r
+    014036  aa   000000 0110 07                nop     0,dl            0       2\r
+    014037  aa   000000 0110 07                nop     0,dl            1\r
+    014040  aa   000000 0110 07                nop     0,dl            2\r
+    014041  aa  2 00001 5521 40                stbq    bp|1,40         3\r
+    014042  aa   000000 0110 07                nop     0,dl            0       3\r
+    014043  aa   000000 0110 07                nop     0,dl            1\r
+    014044  aa  2 00001 5521 40                stbq    bp|1,40         2\r
+    014045  aa  2 00001 5521 60                stbq    bp|1,60         3\r
+    014046  aa   000000 0110 07                nop     0,dl            0       4\r
+    014047  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    014050  aa  2 00001 5521 60                stbq    bp|1,60         2\r
+    014051  aa  2 00001 5521 70                stbq    bp|1,70         3\r
+    014052  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    014053  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    014054  aa  2 00001 5521 70                stbq    bp|1,70         2\r
+    014055  aa  2 00001 7561 00                stq     bp|1            3\r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014056                              hfp_store_a9_ho:\r
+    014056  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    014057  aa  2 00000 5511 10                stba    bp|0,10         1\r
+    014060  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    014061  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    014062  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    014063  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    014064  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    014065  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    014066  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    014067  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    014070  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    014071  aa  2 00000 5511 14                stba    bp|0,14         1\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014072                              hfp_store_q9_ho:\r
+    014072  aa   000000 0110 07                nop     0,dl            0       2\r
+    014073  aa   000000 0110 07                nop     0,dl            1\r
+    014074  aa   000000 0110 07                nop     0,dl            0       3\r
+    014075  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    014076  aa   000000 0110 07                nop     0,dl            0       4\r
+    014077  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    014100  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    014101  aa  2 00001 5521 70                stbq    bp|1,70         1\r
+    014102  aa  2 00001 5521 60                stbq    bp|1,60         0       6\r
+    014103  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        "      store table from a, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014104                              hfp_store_a6_ho:\r
+    014104  aa  2 00000 7511 40                stca    bp|0,40         0       1\r
+    014105  aa  2 00000 7511 04                stca    bp|0,04         1\r
+    014106  aa  2 00000 7511 60                stca    bp|0,60         0       2\r
+    014107  aa  2 00000 7511 06                stca    bp|0,06         1\r
+    014110  aa  2 00000 7511 70                stca    bp|0,70         0       3\r
+    014111  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014112  aa  2 00000 7511 74                stca    bp|0,74         0       4\r
+    014113  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014114  aa  2 00000 7511 76                stca    bp|0,76         0       5\r
+    014115  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014116  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    014117  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014120  aa  2 00000 7551 00                sta     bp|0            0       7\r
+    014121  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014122  aa  2 00000 7551 00                sta     bp|0            0       8\r
+    014123  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    014124  aa  2 00000 7551 00                sta     bp|0            0       9\r
+    014125  aa  2 00000 7511 07                stca    bp|0,07         1\r
+                                        "\r
+                                        "      store table from q, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    014126                              hfp_store_q6_ho:\r
+    014126  aa   000000 0110 07                nop     0,dl            0       2\r
+    014127  aa   000000 0110 07                nop     0,dl            1\r
+    014130  aa   000000 0110 07                nop     0,dl            0       3\r
+    014131  aa   000000 0110 07                nop     0,dl            1\r
+    014132  aa   000000 0110 07                nop     0,dl            0       4\r
+    014133  aa  2 00001 7521 40                stcq    bp|1,40         1\r
+    014134  aa   000000 0110 07                nop     0,dl            0       5\r
+    014135  aa  2 00001 7521 60                stcq    bp|1,60         1\r
+    014136  aa   000000 0110 07                nop     0,dl            0       6\r
+    014137  aa  2 00001 7521 70                stcq    bp|1,70         1\r
+    014140  aa  2 00001 7521 40                stcq    bp|1,40         0       7\r
+    014141  aa  2 00001 7521 74                stcq    bp|1,74         1\r
+    014142  aa  2 00001 7521 60                stcq    bp|1,60         0       8\r
+    014143  aa  2 00001 7521 76                stcq    bp|1,76         1\r
+    014144  aa  2 00001 7521 70                stcq    bp|1,70         0       9\r
+    014145  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        " THE FOLLOWING SECTION IS DIRECTLY REFERENCED FROM PL/1 PROGRAMS BY MEANS OF\r
+                                        " ap|offset.  FOR THIS REASON, THE ORDER OF THE FOLLOWING INSTRUCTIONS MUST\r
+                                        " NOT BE CHANGED.\r
+                                        "\r
+    014146                              hfp_operator_table:\r
+    014146                              hfp_bit_mask:\r
+    014146  aa   000000 000000                 vfd     0/-1,72/0\r
+    014147  aa   000000 000000 \r
+    014150  aa   400000 000000                 vfd     1/-1,71/0\r
+    014151  aa   000000 000000 \r
+    014152  aa   600000 000000                 vfd     2/-1,70/0\r
+    014153  aa   000000 000000 \r
+    014154  aa   700000 000000                 vfd     3/-1,69/0\r
+    014155  aa   000000 000000 \r
+    014156  aa   740000 000000                 vfd     4/-1,68/0\r
+    014157  aa   000000 000000 \r
+    014160  aa   760000 000000                 vfd     5/-1,67/0\r
+    014161  aa   000000 000000 \r
+    014162  aa   770000 000000                 vfd     6/-1,66/0\r
+    014163  aa   000000 000000 \r
+    014164  aa   774000 000000                 vfd     7/-1,65/0\r
+    014165  aa   000000 000000 \r
+    014166  aa   776000 000000                 vfd     8/-1,64/0\r
+    014167  aa   000000 000000 \r
+    014170  aa   777000 000000                 vfd     9/-1,63/0\r
+    014171  aa   000000 000000 \r
+    014172  aa   777400 000000                 vfd     10/-1,62/0\r
+    014173  aa   000000 000000 \r
+    014174  aa   777600 000000                 vfd     11/-1,61/0\r
+    014175  aa   000000 000000 \r
+    014176  aa   777700 000000                 vfd     12/-1,60/0\r
+    014177  aa   000000 000000 \r
+    014200  aa   777740 000000                 vfd     13/-1,59/0\r
+    014201  aa   000000 000000 \r
+    014202  aa   777760 000000                 vfd     14/-1,58/0\r
+    014203  aa   000000 000000 \r
+    014204  aa   777770 000000                 vfd     15/-1,57/0\r
+    014205  aa   000000 000000 \r
+    014206  aa   777774 000000                 vfd     16/-1,56/0\r
+    014207  aa   000000 000000 \r
+    014210  aa   777776 000000                 vfd     17/-1,55/0\r
+    014211  aa   000000 000000 \r
+    014212  aa   777777 000000                 vfd     18/-1,54/0\r
+    014213  aa   000000 000000 \r
+    014214  aa   777777 400000                 vfd     19/-1,53/0\r
+    014215  aa   000000 000000 \r
+    014216  aa   777777 600000                 vfd     20/-1,52/0\r
+    014217  aa   000000 000000 \r
+    014220  aa   777777 700000                 vfd     21/-1,51/0\r
+    014221  aa   000000 000000 \r
+    014222  aa   777777 740000                 vfd     22/-1,50/0\r
+    014223  aa   000000 000000 \r
+    014224  aa   777777 760000                 vfd     23/-1,49/0\r
+    014225  aa   000000 000000 \r
+    014226  aa   777777 770000                 vfd     24/-1,48/0\r
+    014227  aa   000000 000000 \r
+    014230  aa   777777 774000                 vfd     25/-1,47/0\r
+    014231  aa   000000 000000 \r
+    014232  aa   777777 776000                 vfd     26/-1,46/0\r
+    014233  aa   000000 000000 \r
+    014234  aa   777777 777000                 vfd     27/-1,45/0\r
+    014235  aa   000000 000000 \r
+    014236  aa   777777 777400                 vfd     28/-1,44/0\r
+    014237  aa   000000 000000 \r
+    014240  aa   777777 777600                 vfd     29/-1,43/0\r
+    014241  aa   000000 000000 \r
+    014242  aa   777777 777700                 vfd     30/-1,42/0\r
+    014243  aa   000000 000000 \r
+    014244  aa   777777 777740                 vfd     31/-1,41/0\r
+    014245  aa   000000 000000 \r
+    014246  aa   777777 777760                 vfd     32/-1,40/0\r
+    014247  aa   000000 000000 \r
+    014250  aa   777777 777770                 vfd     33/-1,39/0\r
+    014251  aa   000000 000000 \r
+    014252  aa   777777 777774                 vfd     34/-1,38/0\r
+    014253  aa   000000 000000 \r
+    014254  aa   777777 777776                 vfd     35/-1,37/0\r
+    014255  aa   000000 000000 \r
+    014256  aa   777777 777777          hfp_ones:      vfd     36/-1,36/0\r
+    014257  aa   000000 000000 \r
+    014260  aa   777777 777777                 vfd     36/-1,1/-1,35/0\r
+    014261  aa   400000 000000 \r
+    014262  aa   777777 777777                 vfd     36/-1,2/-1,34/0\r
+    014263  aa   600000 000000 \r
+    014264  aa   777777 777777                 vfd     36/-1,3/-1,33/0\r
+    014265  aa   700000 000000 \r
+    014266  aa   777777 777777                 vfd     36/-1,4/-1,32/0\r
+    014267  aa   740000 000000 \r
+    014270  aa   777777 777777                 vfd     36/-1,5/-1,31/0\r
+    014271  aa   760000 000000 \r
+    014272  aa   777777 777777                 vfd     36/-1,6/-1,30/0\r
+    014273  aa   770000 000000 \r
+    014274  aa   777777 777777                 vfd     36/-1,7/-1,29/0\r
+    014275  aa   774000 000000 \r
+    014276  aa   777777 777777                 vfd     36/-1,8/-1,28/0\r
+    014277  aa   776000 000000 \r
+    014300  aa   777777 777777                 vfd     36/-1,9/-1,27/0\r
+    014301  aa   777000 000000 \r
+    014302  aa   777777 777777                 vfd     36/-1,10/-1,26/0\r
+    014303  aa   777400 000000 \r
+    014304  aa   777777 777777                 vfd     36/-1,11/-1,25/0\r
+    014305  aa   777600 000000 \r
+    014306  aa   777777 777777                 vfd     36/-1,12/-1,24/0\r
+    014307  aa   777700 000000 \r
+    014310  aa   777777 777777                 vfd     36/-1,13/-1,23/0\r
+    014311  aa   777740 000000 \r
+    014312  aa   777777 777777                 vfd     36/-1,14/-1,22/0\r
+    014313  aa   777760 000000 \r
+    014314  aa   777777 777777                 vfd     36/-1,15/-1,21/0\r
+    014315  aa   777770 000000 \r
+    014316  aa   777777 777777                 vfd     36/-1,16/-1,20/0\r
+    014317  aa   777774 000000 \r
+    014320  aa   777777 777777                 vfd     36/-1,17/-1,19/0\r
+    014321  aa   777776 000000 \r
+    014322  aa   777777 777777                 vfd     36/-1,18/-1,18/0\r
+    014323  aa   777777 000000 \r
+    014324  aa   777777 777777                 vfd     36/-1,19/-1,17/0\r
+    014325  aa   777777 400000 \r
+    014326  aa   777777 777777                 vfd     36/-1,20/-1,16/0\r
+    014327  aa   777777 600000 \r
+    014330  aa   777777 777777                 vfd     36/-1,21/-1,15/0\r
+    014331  aa   777777 700000 \r
+    014332  aa   777777 777777                 vfd     36/-1,22/-1,14/0\r
+    014333  aa   777777 740000 \r
+    014334  aa   777777 777777                 vfd     36/-1,23/-1,13/0\r
+    014335  aa   777777 760000 \r
+    014336  aa   777777 777777                 vfd     36/-1,24/-1,12/0\r
+    014337  aa   777777 770000 \r
+    014340  aa   777777 777777                 vfd     36/-1,25/-1,11/0\r
+    014341  aa   777777 774000 \r
+    014342  aa   777777 777777                 vfd     36/-1,26/-1,10/0\r
+    014343  aa   777777 776000 \r
+    014344  aa   777777 777777                 vfd     36/-1,27/-1,9/0\r
+    014345  aa   777777 777000 \r
+    014346  aa   777777 777777                 vfd     36/-1,28/-1,8/0\r
+    014347  aa   777777 777400 \r
+    014350  aa   777777 777777                 vfd     36/-1,29/-1,7/0\r
+    014351  aa   777777 777600 \r
+    014352  aa   777777 777777                 vfd     36/-1,30/-1,6/0\r
+    014353  aa   777777 777700 \r
+    014354  aa   777777 777777                 vfd     36/-1,31/-1,5/0\r
+    014355  aa   777777 777740 \r
+    014356  aa   777777 777777                 vfd     36/-1,32/-1,4/0\r
+    014357  aa   777777 777760 \r
+    014360  aa   777777 777777                 vfd     36/-1,33/-1,3/0\r
+    014361  aa   777777 777770 \r
+    014362  aa   777777 777777                 vfd     36/-1,34/-1,2/0\r
+    014363  aa   777777 777774 \r
+    014364  aa   777777 777777                 vfd     36/-1,35/-1,1/0\r
+    014365  aa   777777 777776 \r
+                                        "\r
+    014366                              hfp_mask_bit:\r
+    014366  aa   777777 777777                 vfd     0/0,36/-1,36/-1\r
+    014367  aa   777777 777777 \r
+    014370  aa   377777 777777                 vfd     1/0,35/-1,36/-1\r
+    014371  aa   777777 777777 \r
+    014372  aa   177777 777777                 vfd     2/0,34/-1,36/-1\r
+    014373  aa   777777 777777 \r
+    014374  aa   077777 777777                 vfd     3/0,33/-1,36/-1\r
+    014375  aa   777777 777777 \r
+    014376  aa   037777 777777                 vfd     4/0,32/-1,36/-1\r
+    014377  aa   777777 777777 \r
+    014400  aa   017777 777777                 vfd     5/0,31/-1,36/-1\r
+    014401  aa   777777 777777 \r
+    014402  aa   007777 777777                 vfd     6/0,30/-1,36/-1\r
+    014403  aa   777777 777777 \r
+    014404  aa   003777 777777                 vfd     7/0,29/-1,36/-1\r
+    014405  aa   777777 777777 \r
+    014406  aa   001777 777777                 vfd     8/0,28/-1,36/-1\r
+    014407  aa   777777 777777 \r
+    014410  aa   000777 777777                 vfd     9/0,27/-1,36/-1\r
+    014411  aa   777777 777777 \r
+    014412  aa   000377 777777                 vfd     10/0,26/-1,36/-1\r
+    014413  aa   777777 777777 \r
+    014414  aa   000177 777777                 vfd     11/0,25/-1,36/-1\r
+    014415  aa   777777 777777 \r
+    014416  aa   000077 777777                 vfd     12/0,24/-1,36/-1\r
+    014417  aa   777777 777777 \r
+    014420  aa   000037 777777                 vfd     13/0,23/-1,36/-1\r
+    014421  aa   777777 777777 \r
+    014422  aa   000017 777777                 vfd     14/0,22/-1,36/-1\r
+    014423  aa   777777 777777 \r
+    014424  aa   000007 777777                 vfd     15/0,21/-1,36/-1\r
+    014425  aa   777777 777777 \r
+    014426  aa   000003 777777                 vfd     16/0,20/-1,36/-1\r
+    014427  aa   777777 777777 \r
+    014430  aa   000001 777777                 vfd     17/0,19/-1,36/-1\r
+    014431  aa   777777 777777 \r
+    014432  aa   000000 777777                 vfd     18/0,18/-1,36/-1\r
+    014433  aa   777777 777777 \r
+    014434  aa   000000 377777                 vfd     19/0,17/-1,36/-1\r
+    014435  aa   777777 777777 \r
+    014436  aa   000000 177777                 vfd     20/0,16/-1,36/-1\r
+    014437  aa   777777 777777 \r
+    014440  aa   000000 077777                 vfd     21/0,15/-1,36/-1\r
+    014441  aa   777777 777777 \r
+    014442  aa   000000 037777                 vfd     22/0,14/-1,36/-1\r
+    014443  aa   777777 777777 \r
+    014444  aa   000000 017777                 vfd     23/0,13/-1,36/-1\r
+    014445  aa   777777 777777 \r
+    014446  aa   000000 007777                 vfd     24/0,12/-1,36/-1\r
+    014447  aa   777777 777777 \r
+    014450  aa   000000 003777                 vfd     25/0,11/-1,36/-1\r
+    014451  aa   777777 777777 \r
+    014452  aa   000000 001777                 vfd     26/0,10/-1,36/-1\r
+    014453  aa   777777 777777 \r
+    014454  aa   000000 000777                 vfd     27/0,9/-1,36/-1\r
+    014455  aa   777777 777777 \r
+    014456  aa   000000 000377                 vfd     28/0,8/-1,36/-1\r
+    014457  aa   777777 777777 \r
+    014460  aa   000000 000177                 vfd     29/0,7/-1,36/-1\r
+    014461  aa   777777 777777 \r
+    014462  aa   000000 000077                 vfd     30/0,6/-1,36/-1\r
+    014463  aa   777777 777777 \r
+    014464  aa   000000 000037                 vfd     31/0,5/-1,36/-1\r
+    014465  aa   777777 777777 \r
+    014466  aa   000000 000017                 vfd     32/0,4/-1,36/-1\r
+    014467  aa   777777 777777 \r
+    014470  aa   000000 000007                 vfd     33/0,3/-1,36/-1\r
+    014471  aa   777777 777777 \r
+    014472  aa   000000 000003                 vfd     34/0,2/-1,36/-1\r
+    014473  aa   777777 777777 \r
+    014474  aa   000000 000001                 vfd     35/0,1/-1,36/-1\r
+    014475  aa   777777 777777 \r
+    014476  aa   000000 000000                 vfd     36/0,36/-1\r
+    014477  aa   777777 777777 \r
+    014500                              hfp_max_single_value:\r
+    014500  aa   000000 000000                 vfd     37/0,35/-1\r
+    014501  aa   377777 777777 \r
+    014502  aa   000000 000000                 vfd     38/0,34/-1\r
+    014503  aa   177777 777777 \r
+    014504  aa   000000 000000                 vfd     39/0,33/-1\r
+    014505  aa   077777 777777 \r
+    014506  aa   000000 000000                 vfd     40/0,32/-1\r
+    014507  aa   037777 777777 \r
+    014510  aa   000000 000000                 vfd     41/0,31/-1\r
+    014511  aa   017777 777777 \r
+    014512  aa   000000 000000                 vfd     42/0,30/-1\r
+    014513  aa   007777 777777 \r
+    014514  aa   000000 000000                 vfd     43/0,29/-1\r
+    014515  aa   003777 777777 \r
+    014516  aa   000000 000000                 vfd     44/0,28/-1\r
+    014517  aa   001777 777777 \r
+    014520  aa   000000 000000                 vfd     45/0,27/-1\r
+    014521  aa   000777 777777 \r
+    014522  aa   000000 000000                 vfd     46/0,26/-1\r
+    014523  aa   000377 777777 \r
+    014524  aa   000000 000000                 vfd     47/0,25/-1\r
+    014525  aa   000177 777777 \r
+    014526  aa   000000 000000                 vfd     48/0,24/-1\r
+    014527  aa   000077 777777 \r
+    014530  aa   000000 000000                 vfd     49/0,23/-1\r
+    014531  aa   000037 777777 \r
+    014532  aa   000000 000000                 vfd     50/0,22/-1\r
+    014533  aa   000017 777777 \r
+    014534  aa   000000 000000                 vfd     51/0,21/-1\r
+    014535  aa   000007 777777 \r
+    014536  aa   000000 000000                 vfd     52/0,20/-1\r
+    014537  aa   000003 777777 \r
+    014540  aa   000000 000000                 vfd     53/0,19/-1\r
+    014541  aa   000001 777777 \r
+    014542  aa   000000 000000                 vfd     54/0,18/-1\r
+    014543  aa   000000 777777 \r
+    014544  aa   000000 000000                 vfd     55/0,17/-1\r
+    014545  aa   000000 377777 \r
+    014546  aa   000000 000000                 vfd     56/0,16/-1\r
+    014547  aa   000000 177777 \r
+    014550  aa   000000 000000                 vfd     57/0,15/-1\r
+    014551  aa   000000 077777 \r
+    014552  aa   000000 000000                 vfd     58/0,14/-1\r
+    014553  aa   000000 037777 \r
+    014554  aa   000000 000000                 vfd     59/0,13/-1\r
+    014555  aa   000000 017777 \r
+    014556  aa   000000 000000                 vfd     60/0,12/-1\r
+    014557  aa   000000 007777 \r
+    014560  aa   000000 000000                 vfd     61/0,11/-1\r
+    014561  aa   000000 003777 \r
+    014562  aa   000000 000000                 vfd     62/0,10/-1\r
+    014563  aa   000000 001777 \r
+    014564  aa   000000 000000                 vfd     63/0,9/-1\r
+    014565  aa   000000 000777 \r
+    014566  aa   000000 000000                 vfd     64/0,8/-1\r
+    014567  aa   000000 000377 \r
+    014570  aa   000000 000000                 vfd     65/0,7/-1\r
+    014571  aa   000000 000177 \r
+    014572  aa   000000 000000                 vfd     66/0,6/-1\r
+    014573  aa   000000 000077 \r
+    014574  aa   000000 000000                 vfd     67/0,5/-1\r
+    014575  aa   000000 000037 \r
+    014576  aa   000000 000000                 vfd     68/0,4/-1\r
+    014577  aa   000000 000017 \r
+    014600  aa   000000 000000                 vfd     69/0,3/-1\r
+    014601  aa   000000 000007 \r
+    014602  aa   000000 000000                 vfd     70/0,2/-1\r
+    014603  aa   000000 000003 \r
+    014604  aa   000000 000000                 vfd     71/0,1/-1\r
+    014605  aa   000000 000001 \r
+                                        "\r
+    014606  aa   040040 040040          hfp_blanks:    oct     040040040040,040040040040\r
+    014607  aa   040040 040040 \r
+    014610  aa   000040 040040                 oct     000040040040,040040040040\r
+    014611  aa   040040 040040 \r
+    014612  aa   000000 040040                 oct     000000040040,040040040040\r
+    014613  aa   040040 040040 \r
+    014614  aa   000000 000040                 oct     000000000040,040040040040\r
+    014615  aa   040040 040040 \r
+    014616  aa   000000 000000                 oct     000000000000,040040040040\r
+    014617  aa   040040 040040 \r
+    014620  aa   000000 000000                 oct     000000000000,000040040040\r
+    014621  aa   000040 040040 \r
+    014622  aa   000000 000000                 oct     000000000000,000000040040\r
+    014623  aa   000000 040040 \r
+    014624  aa   000000 000000                 oct     000000000000,000000000040\r
+    014625  aa   000000 000040 \r
+                                        "\r
+    014626  aa   077777 000077          hfp_ptr_mask:  oct     077777000077,777777077077 mask for use in ptr comparisions\r
+    014627  aa   777777 077077 \r
+                                        "\r
+                                        "      operator to convert single fixed to double fixed\r
+                                        "\r
+                                               even\r
+    014630                              hfp_fx1_to_fx2:\r
+    014630  aa   000044 7770 00                llr     36\r
+    014631  aa   000044 7330 00                lrs     36\r
+                                        "\r
+                                        "      operators to convert fixed to float\r
+                                        "\r
+    014632  aa   000000 0110 03                odd\r
+    014633                              hfp_fx1_to_fl2:\r
+    014633  0a   014630 7170 00                xed     hfp_fx1_to_fx2\r
+                                        "\r
+                                               even\r
+    014634                              hfp_fx2_to_fl2:\r
+    014634  aa   044000 4110 03                lde     =18b25,du               EAQ = unnormalized 2*float(number)\r
+    014635  aa   400000 4750 03                fad     P0.0H,du                EAQ = 2*float(number)\r
+    014636  aa   000400 4610 03                fmp     P0.5H,du                EAQ = float(number)\r
+    014637  aa  6 00046 7101 70                tra     sp|tbp,*x0      return\r
+                                        \r
+                                        "\r
+                                        "      operator to reset next stack pointer\r
+                                        "\r
+                                               even\r
+    014640                              hfp_reset_stack:\r
+    014640  aa  6 00005 2201 00                ldx0    sp|5\r
+    014641  aa  6 00023 7401 00                stx0    sp|stack_frame.next_sp+1\r
+                                        "\r
+                                        "      operators to convert indicators into relations\r
+                                        "\r
+    014642  0a   002164 6040 00         hfp_r_l_a:     tmi     true\r
+    014643  aa   000000 2350 07                lda     0,dl\r
+    014644  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014645  aa   000002 6000 04         hfp_r_g_s:     tze     2,ic\r
+    014646  0a   002164 6030 00                trc     true\r
+    014647  aa   000000 2350 07                lda     0,dl\r
+    014650  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014651  aa   000002 6000 04         hfp_r_g_a:     tze     2,ic\r
+    014652  0a   002164 6050 00                tpl     true\r
+    014653  aa   000000 2350 07                lda     0,dl\r
+    014654  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014655  0a   002164 6020 00         hfp_r_l_s:     tnc     true\r
+    014656  aa   000000 2350 07                lda     0,dl\r
+    014657  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014660  0a   002164 6000 00         hfp_r_e_as:    tze     true\r
+    014661  aa   000000 2350 07                lda     0,dl\r
+    014662  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014663  0a   002164 6010 00         hfp_r_ne_as:   tnz     true\r
+    014664  aa   000000 2350 07                lda     0,dl\r
+    014665  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014666  0a   002164 6040 00         hfp_r_le_a:    tmi     true\r
+    014667  0a   002164 6000 00                tze     true\r
+    014670  aa   000000 2350 07                lda     0,dl\r
+    014671  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014672  0a   002164 6030 00         hfp_r_ge_s:    trc     true\r
+    014673  aa   000000 2350 07                lda     0,dl\r
+    014674  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014675  0a   002164 6050 00         hfp_r_ge_a:    tpl     true\r
+    014676  aa   000000 2350 07                lda     0,dl\r
+    014677  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014700  0a   002164 6020 00         hfp_r_le_s:    tnc     true\r
+    014701  0a   002164 6000 00                tze     true\r
+    014702  aa   000000 2350 07                lda     0,dl\r
+    014703  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    014704  aa   400000 2350 03         hfp_true:      lda     =o400000,du\r
+    014705  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to set stack ptr to that of block N static\r
+                                        "      levels above the current block.  Entered with N in q.\r
+                                        "      (should not be called with N = 0, but will work anyway.)\r
+                                        "\r
+    014706                              hfp_set_stack:\r
+    014706  0a   005674 7010 00                tsx1    display_chase   get ptr to proper frame\r
+    014707  aa  2 00000 3721 00                eppsp   bp|0            into sp\r
+    014710  0a   003276 7100 00                tra     set_stack_extend        do three more instructions (added later\r
+                                        "                              and since compiled code knows offsets in this\r
+                                        "                              area, couldn't add the code inline)\r
+                                        "\r
+                                        "      tables to convert to bit offset ready to be ORed into pointer\r
+                                        "\r
+    014711  aa   000000 000000          hfp_mod2_tab:  dec     0,18b26\r
+    014712  aa   000000 022000 \r
+                                        "\r
+    014713  aa   000000 000000          hfp_mod4_tab:  dec     0,9b26,18b26,27b26\r
+    014714  aa   000000 011000 \r
+    014715  aa   000000 022000 \r
+    014716  aa   000000 033000 \r
+                                        "\r
+                                        "      transfer vector for operators not referenced directly\r
+                                        "      by the pl/1 program.  new operators may be added at the\r
+                                        "      end of the list only.\r
+                                        "\r
+    014717                              hfp_op_vector:\r
+    014717  0a   003140 7100 00                tra     alloc_char_temp 0\r
+    014720  0a   003152 7100 00                tra     alloc_bit_temp  1\r
+    014721  0a   003161 7100 00                tra     alloc_temp      2\r
+    014722  0a   003217 7100 00                tra     realloc_char_temp       3\r
+    014723  0a   003207 7100 00                tra     realloc_bit_temp        4\r
+    014724  0a   003304 7100 00                tra     save_string     5       obsolete\r
+    014725  0a   007646 7100 00                tra     pk_to_unpk      6\r
+    014726  0a   007655 7100 00                tra     unpk_to_pk      7\r
+    014727  0a   003633 7100 00                tra     move_chars      8       obsolete\r
+    014730  0a   003641 7100 00                tra     move_chars_aligned      9       obsolete\r
+    014731  0a   003604 7100 00                tra     move_bits               10      obsolete\r
+    014732  0a   003612 7100 00                tra     move_bits_aligned       11      obsolete\r
+    014733  0a   003727 7100 00                tra     chars_move      12      obsolete\r
+    014734  0a   003740 7100 00                tra     chars_move_aligned      13      obsolete\r
+    014735  0a   003755 7100 00                tra     bits_move               14      obsolete\r
+    014736  0a   003766 7100 00                tra     bits_move_aligned       15      obsolete\r
+    014737  0a   003573 7100 00                tra     move_not_bits   16      obsolete\r
+    014740  0a   003601 7100 00                tra     move_not_bits_aligned 17        obsolete\r
+    014741  0a   003676 7100 00                tra     ext_and_1               18\r
+    014742  0a   003677 7100 00                tra     ext_and_2               19\r
+    014743  0a   003717 7100 00                tra     comp_bits               20\r
+    014744  0a   004371 7100 00                tra     cpbs3           21      obsolete\r
+    014745  0a   004401 7100 00                tra     cpbs3_aligned   22      obsolete\r
+    014746  0a   004377 7100 00                tra     cpbs4           23      obsolete\r
+    014747  0a   004357 7100 00                tra     cpcs_ext1               24\r
+    014750  0a   004360 7100 00                tra     cpcs_ext2               25\r
+    014751  0a   004364 7100 00                tra     cpbs_ext1               26\r
+    014752  0a   004365 7100 00                tra     cpbs_ext2               27\r
+    014753  0a   003354 7100 00                tra     store_string    28\r
+    014754  0a   003215 7100 00                tra     cat_realloc_chars       29\r
+    014755  0a   003177 7100 00                tra     cat_realloc_bits        30\r
+    014756  0a   004320 7100 00                tra     cp_chars                31      obsolete\r
+    014757  0a   004326 7100 00                tra     cp_chars_aligned        32      obsolete\r
+    014760  0a   004340 7100 00                tra     cp_bits         33      obsolete\r
+    014761  0a   004346 7100 00                tra     cp_bits_aligned 34      obsolete\r
+    014762  0a   012372 7100 00                tra     enter_begin_block       35\r
+    014763  0a   005552 7100 00                tra     leave_begin_block       36\r
+    014764  0a   005607 7100 00                tra     call_ent_var_desc       37\r
+    014765  0a   005610 7100 00                tra     call_ent_var    38\r
+    014766  0a   005623 7100 00                tra     call_ext_in_desc        39\r
+    014767  0a   005624 7100 00                tra     call_ext_in     40\r
+    014770  0a   005623 7100 00                tra     call_ext_out_desc       41\r
+    014771  0a   005624 7100 00                tra     call_ext_out    42\r
+    014772  0a   005634 7100 00                tra     call_int_this_desc      43\r
+    014773  0a   005635 7100 00                tra     call_int_this   44\r
+    014774  0a   005645 7100 00                tra     call_int_other_desc     45\r
+    014775  0a   005646 7100 00                tra     call_int_other  46\r
+    014776  0a   005572 7100 00                tra     begin_return_mac        47\r
+    014777  0a   005600 7100 00                tra     return_mac      48\r
+    015000  0a   003654 7100 00                tra     cat_move_chars  49      obsolete\r
+    015001  0a   003662 7100 00                tra     cat_move_chars_aligned 50       obsolete\r
+    015002  0a   003552 7100 00                tra     cat_move_bits   51      obsolete\r
+    015003  0a   003560 7100 00                tra     cat_move_bits_aligned 52        obsolete\r
+    015004  0a   004040 7100 00                tra     cat_chars               53      obsolete\r
+    015005  0a   004046 7100 00                tra     cat_chars_aligned       54      obsolete\r
+    015006  0a   004063 7100 00                tra     cat_bits                55      obsolete\r
+    015007  0a   004071 7100 00                tra     cat_bits_aligned        56      obsolete\r
+    015010  0a   003321 7100 00                tra     set_chars               57      obsolete\r
+    015011  0a   003327 7100 00                tra     set_chars_aligned       58      obsolete\r
+    015012  0a   003342 7100 00                tra     set_bits                59      obsolete\r
+    015013  0a   003350 7100 00                tra     set_bits_aligned        60      obsolete\r
+    015014  0a   003517 7100 00                tra     and_bits                61      obsolete\r
+    015015  0a   003525 7100 00                tra     and_bits_aligned        62      obsolete\r
+    015016  0a   003530 7100 00                tra     or_bits         63      obsolete\r
+    015017  0a   003536 7100 00                tra     or_bits_aligned 64      obsolete\r
+    015020  0a   005660 7100 00                tra     move_label_var  65\r
+    015021  0a   005666 7100 00                tra     make_label_var  66\r
+    015022  0a   015672 7100 00                tra     hfp_fl2_to_fx1  67\r
+    015023  0a   015672 7100 00                tra     hfp_fl2_to_fx2  68\r
+    015024  0a   007620 7100 00                tra     longbs_to_fx2   69\r
+    015025  0a   007265 7100 00                tra     tra_ext_1               70\r
+    015026  0a   007273 7100 00                tra     tra_ext_2               71\r
+    015027  0a   007301 7100 00                tra     alloc_auto_adj  72\r
+    015030  0a   007636 7100 00                tra     longbs_to_bs18  73\r
+    015031  0a   006553 7100 00                tra     stac_mac                74\r
+    015032  0a   006642 7100 00                tra     sign_mac                75\r
+    015033  0a   010214 7100 00                tra     bound_ck_signal 76\r
+    015034  0a   006650 7100 00                tra     trans_sign_fx1  77\r
+    015035  0a   006660 7100 00                tra     trans_sign_fl   78\r
+    015036  0a   007023 7100 00                tra     copy_words      79      obsolete\r
+    015037  0a   007035 7100 00                tra     mpfx2           80\r
+    015040  0a   007104 7100 00                tra     mpfx3           81\r
+    015041  0a   004445 7100 00                tra     copy_const      82      obsolete\r
+    015042  0a   004444 7100 00                tra     copy_const_vt   83      obsolete\r
+    015043  0a   007205 7100 00                tra     sr_check                84      obsolete\r
+    015044  0a   003726 7100 00                tra     chars_move_vt   85      obsolete\r
+    015045  0a   003737 7100 00                tra     chars_move_vta  86      obsolete\r
+    015046  0a   003754 7100 00                tra     bits_move_vt    87      obsolete\r
+    015047  0a   003765 7100 00                tra     bits_move_vta   88      obsolete\r
+    015050  0a   016104 7100 00                tra     hfp_mdfl1               89\r
+    015051  0a   016126 7100 00                tra     hfp_mdfl2               90\r
+    015052  0a   005701 7100 00                tra     mdfx1           91\r
+    015053  0a   005716 7100 00                tra     mdfx2           92\r
+    015054  0a   005742 7100 00                tra     mdfx3           93\r
+    015055  0a   005720 7100 00                tra     mdfx4           94\r
+    015056  0a   007033 7100 00                tra     copy_double     95      obsolete\r
+    015057  0a   003371 7100 00                tra     string_store    96      obsolete\r
+    015060  0a   003421 7100 00                tra     get_chars               97      obsolete\r
+    015061  0a   003455 7100 00                tra     get_bits                98      obsolete\r
+    015062  0a   003474 7100 00                tra     pad_chars               99\r
+    015063  0a   003506 7100 00                tra     pad_bits                100\r
+    015064  0a   010210 7100 00                tra     signal_op               101\r
+    015065  0a   010115 7100 00                tra     enable_op               102\r
+    015066  0a   004453 7100 00                tra     index_chars     103     obsolete\r
+    015067  0a   004461 7100 00                tra     index_chars_aligned     104     obsolete\r
+    015070  0a   004611 7100 00                tra     index_bits      105     obsolete\r
+    015071  0a   004617 7100 00                tra     index_bits_aligned      106     obsolete\r
+    015072  0a   003541 7100 00                tra     exor_bits               107     obsolete\r
+    015073  0a   003547 7100 00                tra     exor_bits_aligned       108     obsolete\r
+    015074  0a   003344 7100 00                tra     set_bits_co     109     obsolete\r
+    015075  0a   003346 7100 00                tra     set_bits_ho     110     obsolete\r
+    015076  0a   003323 7100 00                tra     set_chars_co    111     obsolete\r
+    015077  0a   003325 7100 00                tra     set_chars_ho    112     obsolete\r
+    015100  0a   003373 7100 00                tra     string_store_co 113     obsolete\r
+    015101  0a   003402 7100 00                tra     string_store_ho 114     obsolete\r
+    015102  0a   003423 7100 00                tra     get_chars_co    115     obsolete\r
+    015103  0a   003425 7100 00                tra     get_chars_ho    116     obsolete\r
+    015104  0a   003457 7100 00                tra     get_bits_co     117     obsolete\r
+    015105  0a   003461 7100 00                tra     get_bits_ho     118     obsolete\r
+    015106  0a   003521 7100 00                tra     and_bits_co     119     obsolete\r
+    015107  0a   003523 7100 00                tra     and_bits_ho     120     obsolete\r
+    015110  0a   003532 7100 00                tra     or_bits_co      121     obsolete\r
+    015111  0a   003534 7100 00                tra     or_bits_ho      122     obsolete\r
+    015112  0a   003543 7100 00                tra     exor_bits_co    123     obsolete\r
+    015113  0a   003545 7100 00                tra     exor_bits_ho    124     obsolete\r
+    015114  0a   003554 7100 00                tra     cat_move_bits_co        125     obsolete\r
+    015115  0a   003556 7100 00                tra     cat_move_bits_ho        126     obsolete\r
+    015116  0a   003575 7100 00                tra     move_not_bits_co        127     obsolete\r
+    015117  0a   003577 7100 00                tra     move_not_bits_ho        128     obsolete\r
+    015120  0a   003606 7100 00                tra     move_bits_co    129     obsolete\r
+    015121  0a   003610 7100 00                tra     move_bits_ho    130     obsolete\r
+    015122  0a   003635 7100 00                tra     move_chars_co   131     obsolete\r
+    015123  0a   003637 7100 00                tra     move_chars_ho   132     obsolete\r
+    015124  0a   003656 7100 00                tra     cat_move_chars_co       133     obsolete\r
+    015125  0a   003660 7100 00                tra     cat_move_chars_ho       134     obsolete\r
+    015126  0a   004042 7100 00                tra     cat_chars_co    135     obsolete\r
+    015127  0a   004044 7100 00                tra     cat_chars_ho    136     obsolete\r
+    015130  0a   004065 7100 00                tra     cat_bits_co     137     obsolete\r
+    015131  0a   004067 7100 00                tra     cat_bits_ho     138     obsolete\r
+    015132  0a   011335 7100 00                tra     io_signal               139\r
+    015133  0a   004650 7100 00                tra     index_cs_1      140     obsolete\r
+    015134  0a   004656 7100 00                tra     index_cs_1_aligned      141     obsolete\r
+    015135  0a   015764 7100 00                tra     hfp_fort_mdfl1  142\r
+    015136  0a   006724 7100 00                tra     rfb1_to_cflb1   143\r
+    015137  0a   016175 7100 00                tra     hfp_rfb2_to_cflb1       144\r
+    015140  0a   006734 7100 00                tra     mpcfl1_1                145\r
+    015141  0a   006735 7100 00                tra     mpcfl1_2                146\r
+    015142  0a   006755 7100 00                tra     dvcfl1_1                147\r
+    015143  0a   006756 7100 00                tra     dvcfl1_2                148\r
+    015144  0a   003731 7100 00                tra     chars_move_vt_co        149     obsolete\r
+    015145  0a   003734 7100 00                tra     chars_move_vt_ho        150     obsolete\r
+    015146  0a   003732 7100 00                tra     chars_move_co   151     obsolete\r
+    015147  0a   003735 7100 00                tra     chars_move_ho   152     obsolete\r
+    015150  0a   003757 7100 00                tra     bits_move_vt_co 153     obsolete\r
+    015151  0a   003762 7100 00                tra     bits_move_vt_ho 154     obsolete\r
+    015152  0a   003760 7100 00                tra     bits_move_co    155     obsolete\r
+    015153  0a   003763 7100 00                tra     bits_move_ho    156     obsolete\r
+    015154  0a   004322 7100 00                tra     cp_chars_co     157     obsolete\r
+    015155  0a   004324 7100 00                tra     cp_chars_ho     158     obsolete\r
+    015156  0a   004342 7100 00                tra     cp_bits_co      159     obsolete\r
+    015157  0a   004344 7100 00                tra     cp_bits_ho      160     obsolete\r
+    015160  0a   004373 7100 00                tra     cpbs3_co                161     obsolete\r
+    015161  0a   004375 7100 00                tra     cpbs3_ho                162     obsolete\r
+    015162  0a   003254 7100 00                tra     shorten_stack   163\r
+    015163  0a   004426 7100 00                tra     zero_bits               164     obsolete\r
+    015164  0a   004434 7100 00                tra     zero_bits_aligned       165     obsolete\r
+    015165  0a   004430 7100 00                tra     zero_bits_co    166     obsolete\r
+    015166  0a   004432 7100 00                tra     zero_bits_ho    167     obsolete\r
+    015167  0a   004407 7100 00                tra     blank_chars     168     obsolete\r
+    015170  0a   004415 7100 00                tra     blank_chars_aligned     169     obsolete\r
+    015171  0a   004411 7100 00                tra     blank_chars_co  170     obsolete\r
+    015172  0a   004413 7100 00                tra     blank_chars_ho  171     obsolete\r
+    015173  0a   004455 7100 00                tra     index_chars_co  172     obsolete\r
+    015174  0a   004457 7100 00                tra     index_chars_ho  173     obsolete\r
+    015175  0a   004613 7100 00                tra     index_bits_co   174     obsolete\r
+    015176  0a   004615 7100 00                tra     index_bits_ho   175     obsolete\r
+    015177  0a   004652 7100 00                tra     index_cs_1_co   176     obsolete\r
+    015200  0a   004654 7100 00                tra     index_cs_1_ho   177     obsolete\r
+    015201  0a   004673 7100 00                tra     index_bs_1      178     obsolete\r
+    015202  0a   004701 7100 00                tra     index_bs_1_aligned      179     obsolete\r
+    015203  0a   004675 7100 00                tra     index_bs_1_co   180     obsolete\r
+    015204  0a   004677 7100 00                tra     index_bs_1_ho   181     obsolete\r
+    015205  0a   012452 0000 00                arg     shift_bo                182     obsolete\r
+    015206  0a   005422 7100 00                tra     return_words    183\r
+    015207  0a   005442 7100 00                tra     return_bits     184     obsolete\r
+    015210  0a   005444 7100 00                tra     return_bits_co  185     obsolete\r
+    015211  0a   005446 7100 00                tra     return_bits_ho  186     obsolete\r
+    015212  0a   005450 7100 00                tra     return_bits_al  187     obsolete\r
+    015213                              hfp_entry_operators:\r
+    015213  0a   012062 7100 00                tra     ext_entry               188\r
+    015214  0a   012106 7100 00                tra     ext_entry_desc  189\r
+    015215  0a   012127 7100 00                tra     int_entry               190\r
+    015216  0a   012145 7100 00                tra     int_entry_desc  191\r
+    015217  0a   012164 7100 00                tra     val_entry               192\r
+    015220  0a   012162 7100 00                tra     val_entry_desc  193\r
+    015221  0a   003427 7100 00                tra     get_chars_aligned       194     obsolete\r
+    015222  0a   003463 7100 00                tra     get_bits_aligned        195     obsolete\r
+    015223  0a   003416 7100 00                tra     fetch_chars     196\r
+    015224  0a   003451 7100 00                tra     fetch_bits      197\r
+    015225  0a   010507 7100 00                tra     get_terminate   198\r
+    015226  4a  4 00010 7101 20                tra     <put_format_>|[put_terminate]   199\r
+    015227  0a   010341 7100 00                tra     put_data_aligned        200     obsolete\r
+    015230  0a   010354 7100 00                tra     get_list_aligned        201     obsolete\r
+    015231  0a   010365 7100 00                tra     get_edit_aligned        202     obsolete\r
+    015232  0a   010417 7100 00                tra     put_list_aligned        203     obsolete\r
+    015233  0a   010430 7100 00                tra     put_edit_aligned        204     obsolete\r
+    015234  4a  4 00012 7101 20                tra     <put_format_>|[stream_prep]     205\r
+    015235  4a  4 00014 7101 20                tra     <record_io_>|[record_io]                206\r
+    015236  0a   010513 7100 00                tra     open_file               207\r
+    015237  0a   010515 7100 00                tra     close_file      208\r
+    015240  0a   010333 7100 00                tra     put_data                209     obsolete\r
+    015241  0a   010335 7100 00                tra     put_data_co     210     obsolete\r
+    015242  0a   010337 7100 00                tra     put_data_ho     211     obsolete\r
+    015243  0a   010346 7100 00                tra     get_list                212     obsolete\r
+    015244  0a   010350 7100 00                tra     get_list_co     213     obsolete\r
+    015245  0a   010352 7100 00                tra     get_list_ho     214     obsolete\r
+    015246  0a   010357 7100 00                tra     get_edit                215     obsolete\r
+    015247  0a   010361 7100 00                tra     get_edit_co     216     obsolete\r
+    015250  0a   010363 7100 00                tra     get_edit_ho     217     obsolete\r
+    015251  0a   010411 7100 00                tra     put_list                218     obsolete\r
+    015252  0a   010413 7100 00                tra     put_list_co     219     obsolete\r
+    015253  0a   010415 7100 00                tra     put_list_ho     220     obsolete\r
+    015254  0a   010422 7100 00                tra     put_edit                221     obsolete\r
+    015255  0a   010424 7100 00                tra     put_edit_co     222     obsolete\r
+    015256  0a   010426 7100 00                tra     put_edit_ho     223     obsolete\r
+    015257  0a   004236 7100 00                tra     suffix_cs               224     obsolete\r
+    015260  0a   004254 7100 00                tra     suffix_bs               225     obsolete\r
+    015261  0a   015703 7100 00                tra     hfp_fl2_to_fxscaled     226\r
+    015262  0a   007363 7100 00                tra     trunc_fx1               227\r
+    015263  0a   007375 7100 00                tra     trunc_fx2               228\r
+    015264  0a   007444 7100 00                tra     ceil_fx1                229\r
+    015265  0a   007500 7100 00                tra     ceil_fx2                230\r
+    015266  0a   015660 7100 00                tra     hfp_ceil_fl             231\r
+    015267  0a   007425 7100 00                tra     floor_fx1               232\r
+    015270  0a   007463 7100 00                tra     floor_fx2               233\r
+    015271  0a   015733 7100 00                tra     hfp_floor_fl    234\r
+    015272  0a   016204 7100 00                tra     hfp_trunc_fl    235\r
+    015273  0a   007515 7100 00                tra     round_fx1               236\r
+    015274  0a   007536 7100 00                tra     round_fx2               237\r
+    015275  0a   004103 7100 00                tra     repeat          238\r
+    015276  0a   005052 7100 00                tra     make_bit_table  239     obsolete\r
+    015277  0a   005060 7100 00                tra     make_bit_table_al       240     obsolete\r
+    015300  0a   005054 7100 00                tra     make_bit_table_co       241     obsolete\r
+    015301  0a   005056 7100 00                tra     make_bit_table_ho       242     obsolete\r
+    015302  0a   005147 7100 00                tra     verify          243     obsolete\r
+    015303  0a   005155 7100 00                tra     verify_al               244     obsolete\r
+    015304  0a   005151 7100 00                tra     verify_co               245     obsolete\r
+    015305  0a   005153 7100 00                tra     verify_ho               246     obsolete\r
+    015306  0a   005161 7100 00                tra     const_verify    247     obsolete\r
+    015307  0a   005167 7100 00                tra     const_verify_al 248     obsolete\r
+    015310  0a   005163 7100 00                tra     const_verify_co 249     obsolete\r
+    015311  0a   005165 7100 00                tra     const_verify_ho 250     obsolete\r
+    015312  0a   004212 7100 00                tra     reverse_cs      251\r
+    015313  0a   004166 7100 00                tra     reverse_bs      252\r
+    015314  0a   005110 7100 00                tra     form_bit_table  253     obsolete\r
+    015315  0a   005112 7100 00                tra     form_bit_table_co       254     obsolete\r
+    015316  0a   005114 7100 00                tra     form_bit_table_ho       255     obsolete\r
+    015317  0a   005116 7100 00                tra     form_bit_table_al       256     obsolete\r
+    015320  0a   004002 7100 00                tra     chars_move_ck   257     obsolete\r
+    015321  0a   004004 7100 00                tra     chars_move_ck_co        258     obsolete\r
+    015322  0a   004006 7100 00                tra     chars_move_ck_ho        259     obsolete\r
+    015323  0a   004010 7100 00                tra     chars_move_ck_al        260     obsolete\r
+    015324  0a   004021 7100 00                tra     bits_move_ck    261     obsolete\r
+    015325  0a   004023 7100 00                tra     bits_move_ck_co 262     obsolete\r
+    015326  0a   004025 7100 00                tra     bits_move_ck_ho 263     obsolete\r
+    015327  0a   004027 7100 00                tra     bits_move_ck_al 264     obsolete\r
+    015330  0a   007771 7100 00                tra     size_check_fx1  265\r
+    015331  0a   010013 7100 00                tra     size_check_fx2  266\r
+    015332  0a   010061 7100 00                tra     signal_stringsize       267\r
+    015333  0a   004272 7100 00                tra     suffix_cs_ck    268     obsolete\r
+    015334  0a   004312 7100 00                tra     suffix_bs_ck    269     obsolete\r
+    015335  0a   011040 7100 00                tra     pointer_hard    270\r
+    015336  0a   007727 7100 00                tra     alm_call                271     special for alm\r
+    015337  0a   007733 7100 00                tra     alm_push                272     special for alm\r
+    015340  0a   007757 7100 00                tra     alm_return      273     special for alm\r
+    015341  0a   007765 7100 00                tra     alm_return_no_pop       274     special for alm\r
+    015342  0a   007747 7100 00                tra     alm_entry               275     special for alm\r
+    015343  0a   007663 7100 00                tra     packed_to_bp    276     obsolete\r
+    015344  0a   005466 7100 00                tra     return_chars    277     obsolete\r
+    015345  0a   005470 7100 00                tra     return_chars_co 278     obsolete\r
+    015346  0a   005472 7100 00                tra     return_chars_ho 279     obsolete\r
+    015347  0a   005474 7100 00                tra     return_chars_aligned 280        obsolete\r
+    015350  0a   007667 7100 00                tra     rpd_odd_lp_bp   281     obsolete\r
+    015351  0a   007677 7100 00                tra     rpd_odd_bp_lp   282     obsolete\r
+    015352  0a   007707 7100 00                tra     rpd_even_lp_bp  283     obsolete\r
+    015353  0a   007717 7100 00                tra     rpd_even_bp_lp  284     obsolete\r
+    015354  0a   011066 7100 00                tra     offset_easy     285\r
+    015355  0a   011102 7100 00                tra     offset_easy_pk  286\r
+    015356  0a   011066 7100 00                tra     offset_hard     287\r
+    015357  0a   011102 7100 00                tra     offset_hard_pk  288\r
+    015360  0a   011053 7100 00                tra     pointer_hard_pk 289\r
+    015361  0a   011040 7100 00                tra     pointer_easy    290\r
+    015362  0a   011053 7100 00                tra     pointer_easy_pk 291\r
+    015363  0a   007553 7100 00                tra     round_fl                292\r
+    015364  0a   010230 7100 00                tra     enable_file     293\r
+    015365  0a   010303 7100 00                tra     revert_file     294\r
+    015366  0a   011115 7100 00                tra     alloc_block     295\r
+    015367  0a   011142 7100 00                tra     free_block      296\r
+    015370  0a   011157 7100 00                tra     push_ctl_data   297\r
+    015371  0a   011155 7100 00                tra     push_ctl_desc   298\r
+    015372  0a   011201 7100 00                tra     pop_ctl_data    299\r
+    015373  0a   011201 7100 00                tra     pop_ctl_desc    300\r
+    015374  0a   011221 7100 00                tra     allocation      301\r
+    015375  0a   003315 7100 00                tra     set_chars_eis   302\r
+    015376  0a   003336 7100 00                tra     set_bits_eis    303\r
+    015377  0a   004464 7100 00                tra     index_chars_eis 304\r
+    015400  0a   004606 7100 00                tra     index_bits_eis  305\r
+    015401  0a   004645 7100 00                tra     index_cs_1_eis  306\r
+    015402  0a   004670 7100 00                tra     index_bs_1_eis  307\r
+    015403  0a   005477 7100 00                tra     return_chars_eis        308\r
+    015404  0a   005453 7100 00                tra     return_bits_eis 309\r
+    015405  0a   010331 7100 00                tra     put_data_eis    310\r
+    015406  4a  4 00016 7101 20                tra     <put_format_>|[put_edit_eis]    311\r
+    015407  0a   010370 7100 00                tra     put_list_eis    312\r
+    015410  4a  4 00020 7101 20                tra     <put_format_>|[get_edit_eis]    313\r
+    015411  0a   010344 7100 00                tra     get_list_eis    314\r
+    015412  0a   005245 7100 00                tra     verify_eis      315\r
+    015413  0a   005223 7100 00                tra     search_eis      316\r
+    015414  0a   010517 7100 00                tra     fortran_read    317\r
+    015415  0a   010517 7100 00                tra     fortran_write   318\r
+    015416  0a   010562 7100 00                tra     fortran_manip   319\r
+    015417  0a   010555 7100 00                tra     fortran_scalar_xmit     320\r
+    015420  0a   010555 7100 00                tra     fortran_array_xmit      321\r
+    015421  0a   010564 7100 00                tra     fortran_terminate       322\r
+    015422  4a  4 00022 7101 20                tra     <any_to_any_>|[real_to_real_round_]     323\r
+    015423  4a  4 00024 7101 20                tra     <any_to_any_>|[real_to_real_truncate_]  324\r
+    015424  4a  4 00026 7101 20                tra     <any_to_any_>|[any_to_any_round_]       325\r
+    015425  4a  4 00030 7101 20                tra     <any_to_any_>|[any_to_any_truncate_]    326\r
+    015426  0a   011234 7100 00                tra     unpack_picture  327\r
+    015427  0a   011237 7100 00                tra     pack_picture    328\r
+    015430  0a   006042 7100 00                tra     divide_fx1      329\r
+    015431  0a   006061 7100 00                tra     divide_fx2      330\r
+    015432  0a   006044 7100 00                tra     divide_fx3      331\r
+    015433  0a   006063 7100 00                tra     divide_fx4      332\r
+    015434  0a   006027 7100 00                tra     scaled_mod_fx1  333\r
+    015435  0a   005757 7100 00                tra     scaled_mod_fx2  334\r
+    015436  0a   006031 7100 00                tra     scaled_mod_fx3  335\r
+    015437  0a   005761 7100 00                tra     scaled_mod_fx4  336\r
+    015440  0a   005322 7100 00                tra     translate_2     337\r
+    015441  0a   005360 7100 00                tra     translate_3     338\r
+    015442  4a  4 00566 7101 20                tra     <square_root_>|[hfp_square_root_]               339\r
+    015443  4a  4 00570 7101 20                tra     <sine_>|[hfp_sine_radians_]             340\r
+    015444  4a  4 00572 7101 20                tra     <sine_>|[hfp_sine_degrees_]             341\r
+    015445  4a  4 00574 7101 20                tra     <sine_>|[hfp_cosine_radians_]           342\r
+    015446  4a  4 00576 7101 20                tra     <sine_>|[hfp_cosine_degrees_]           343\r
+    015447  4a  4 00600 7101 20                tra     <tangent_>|[hfp_tangent_radians_]       344\r
+    015450  4a  4 00602 7101 20                tra     <tangent_>|[hfp_tangent_degrees_]       345\r
+    015451  4a  4 00604 7101 20                tra     <arc_sine_>|[hfp_arc_sine_radians_]     346\r
+    015452  4a  4 00606 7101 20                tra     <arc_sine_>|[hfp_arc_sine_degrees_]     347\r
+    015453  4a  4 00610 7101 20                tra     <arc_sine_>|[hfp_arc_cosine_radians_]   348\r
+    015454  4a  4 00612 7101 20                tra     <arc_sine_>|[hfp_arc_cosine_degrees_]   349\r
+    015455  4a  4 00614 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_radians_]       350\r
+    015456  4a  4 00616 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_degrees_]       351\r
+    015457  4a  4 00620 7101 20                tra     <logarithm_>|[hfp_log_base_2_]          352\r
+    015460  4a  4 00622 7101 20                tra     <logarithm_>|[hfp_log_base_e_]          353\r
+    015461  4a  4 00624 7101 20                tra     <logarithm_>|[hfp_log_base_10_]         354\r
+    015462  4a  4 00626 7101 20                tra     <exponential_>|[hfp_exponential_]               355\r
+    015463  4a  4 00630 7101 20                tra     <double_square_root_>|[hfp_double_square_root_] 356\r
+    015464  4a  4 00632 7101 20                tra     <double_sine_>|[hfp_double_sine_radians_]       357\r
+    015465  4a  4 00634 7101 20                tra     <double_sine_>|[hfp_double_sine_degrees_]       358\r
+    015466  4a  4 00636 7101 20                tra     <double_sine_>|[hfp_double_cosine_radians_]     359\r
+    015467  4a  4 00640 7101 20                tra     <double_sine_>|[hfp_double_cosine_degrees_]     360\r
+    015470  4a  4 00642 7101 20                tra     <double_tangent_>|[hfp_double_tangent_radians_] 361\r
+    015471  4a  4 00644 7101 20                tra     <double_tangent_>|[hfp_double_tangent_degrees_] 362\r
+    015472  4a  4 00646 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_sine_radians_]       363\r
+    015473  4a  4 00650 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_sine_degrees_]       364\r
+    015474  4a  4 00652 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_cosine_radians_]     365\r
+    015475  4a  4 00654 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_cosine_degrees_]     366\r
+    015476  4a  4 00656 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_radians_]     367\r
+    015477  4a  4 00660 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_degrees_]     368\r
+    015500  4a  4 00662 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_2_]    369\r
+    015501  4a  4 00664 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_e_]    370\r
+    015502  4a  4 00666 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_10_]   371\r
+    015503  4a  4 00670 7101 20                tra     <double_exponential_>|[hfp_double_exponential_] 372\r
+    015504  4a  4 00672 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_radians_2_]     373\r
+    015505  4a  4 00674 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_degrees_2_]     374\r
+    015506  4a  4 00676 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_radians_2_]   375\r
+    015507  4a  4 00700 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_degrees_2_]   376\r
+    015510  4a  4 00702 7101 20                tra     <power_>|[hfp_integer_power_single_]    377\r
+    015511  4a  4 00704 7101 20                tra     <power_>|[hfp_integer_power_double_]    378\r
+    015512  4a  4 00706 7101 20                tra     <power_>|[hfp_double_power_single_]     379\r
+    015513  4a  4 00710 7101 20                tra     <power_>|[hfp_double_power_double_]     380\r
+    015514  4a  4 00712 7101 20                tra     <power_integer_>|[hfp_double_power_integer_]    381\r
+    015515  4a  4 00714 7101 20                tra     <power_>|[hfp_single_power_single_]     382\r
+    015516  4a  4 00716 7101 20                tra     <power_integer_>|[hfp_single_power_integer_]    383\r
+    015517  4a  4 00164 7101 20                tra     <integer_power_integer_>|[integer_power_integer_]       384\r
+    015520  0a   010056 7100 00                tra     signal_size     385\r
+    015521  0a   012222 7100 00                tra     ss_ext_entry    386\r
+    015522  0a   012250 7100 00                tra     ss_ext_entry_desc       387\r
+    015523  0a   012272 7100 00                tra     ss_int_entry    388\r
+    015524  0a   012311 7100 00                tra     ss_int_entry_desc       389\r
+    015525  0a   012331 7100 00                tra     ss_val_entry    390\r
+    015526  0a   012327 7100 00                tra     ss_val_entry_desc       391\r
+    015527  4a  4 00166 7101 20                tra     <cplx_dec_ops_>|[mpcdec]        392\r
+    015530  4a  4 00170 7101 20                tra     <cplx_dec_ops_>|[dvcdec]        393\r
+    015531  4a  4 00172 7101 20                tra     <cplx_dec_ops_>|[dvrcdec]       394\r
+    015532  4a  4 00174 7101 20                tra     <dec_ops_>|[ceil]       395\r
+    015533  4a  4 00176 7101 20                tra     <dec_ops_>|[floor]      396\r
+    015534  4a  4 00200 7101 20                tra     <dec_ops_>|[sign]       397\r
+    015535  4a  4 00202 7101 20                tra     <cplx_dec_ops_>|[cabs]  398\r
+    015536  4a  4 00204 7101 20                tra     <dec_ops_>|[truncate]   399\r
+    015537  4a  4 00206 7101 20                tra     <dec_ops_>|[mod]                400\r
+    015540  0a   011357 7100 00                tra     set_support     401\r
+    015541  0a   006071 7100 00                tra     div_4_cplx_ops  402\r
+    015542  0a   003441 7100 00                tra     fetch_chars_eis 403\r
+    015543  0a   007247 7100 00                tra     signal_stringrange      404\r
+    015544  0a   012412 7100 00                tra     ss_enter_begin_block    405\r
+    015545  4a  4 00210 7101 20                tra     <put_field_>|[put_field]                406      \r
+    015546  4a  4 00212 7101 20                tra     <put_field_>|[put_field_chk]            407\r
+    015547  4a  4 00214 7101 20                tra     <put_field_>|[put_control]      408\r
+    015550  4a  4 00216 7101 20                tra     <alloc_>|[op_alloc_]    409\r
+    015551  0a   011112 7100 00                tra     alloc_storage           410\r
+    015552  4a  4 00220 7101 20                tra     <alloc_>|[op_freen_]    411\r
+    015553  4a  4 00222 7101 20                tra     <alloc_>|[op_empty_]    412\r
+    015554  4a  4 00720 7101 20                tra     <fort_math_ops_>|[hfp_cabs]             413     fortran only\r
+    015555  4a  4 00722 7101 20                tra     <fort_math_ops_>|[hfp_ccos]             414     fortran only\r
+    015556  4a  4 00724 7101 20                tra     <fort_math_ops_>|[hfp_cexp]             415     fortran only\r
+    015557  4a  4 00726 7101 20                tra     <fort_math_ops_>|[hfp_clog]             416     fortran only\r
+    015560  4a  4 00730 7101 20                tra     <fort_math_ops_>|[hfp_csin]             417     fortran only\r
+    015561  4a  4 00732 7101 20                tra     <fort_math_ops_>|[hfp_csqrt]            418     fortran only\r
+    015562  4a  4 00734 7101 20                tra     <fort_math_ops_>|[hfp_tanh]             419     fortran only\r
+    015563  4a  4 00736 7101 20                tra     <fort_math_ops_>|[hfp_dmod]             420     fortran only (obsolete)\r
+    015564  4a  4 00740 7101 20                tra     <fort_math_ops_>|[hfp_cmpx_p_cmpx]      421     fortran only\r
+    015565  0a   016003 7100 00                tra     hfp_get_math_entry      422     fortran only\r
+    015566  0a   011471 7100 00                tra     fortran_pause   423     fortran only\r
+    015567  0a   011473 7100 00                tra     fortran_stop    424     fortran only\r
+    015570  0a   011514 7100 00                tra     fortran_chain   425     fortran only\r
+    015571  0a   024751 7100 00                tra     long_profile    426\r
+    015572  0a   004714 7100 00                tra     index_before_cs 427\r
+    015573  0a   005004 7100 00                tra     index_before_bs 428\r
+    015574  0a   004720 7100 00                tra     index_after_cs  429\r
+    015575  0a   005010 7100 00                tra     index_after_bs  430\r
+    015576  0a   005035 7100 00                tra     index_before_bs_1       431\r
+    015577  0a   005041 7100 00                tra     index_after_bs_1        432\r
+    015600  0a   005271 7100 00                tra     verify_for_ltrim        433\r
+    015601  0a   005304 7100 00                tra     verify_for_rtrim        434\r
+    015602  0a   006557 7100 00                tra     stacq_mac               435\r
+    015603  0a   006563 7100 00                tra     clock_mac               436\r
+    015604  0a   006571 7100 00                tra     vclock_mac      437\r
+    015605  0a   010567 7100 00                tra     ftn_open_element        438     fortran only\r
+    015606  0a   011033 7100 00                tra     ftn_get_area_ptr        439     fortran only\r
+    015607  0a   006577 7100 00                tra     stop            440\r
+    015610  0a   006610 7100 00                tra     return_main     441\r
+    015611  0a   006626 7100 00                tra     set_main_flag   442\r
+    015612  0a   006614 7100 00                tra     begin_return_main       443\r
+    015613  0a   010030 7100 00                tra     size_check_uns_fx1      444\r
+    015614  0a   010036 7100 00                tra     size_check_uns_fx2      445\r
+    015615  0a   011463 7100 00                tra     fortran_end     446     fortran only\r
+    015616  0a   015745 7100 00                tra     hfp_fort_dmod   447     fortran only\r
+    015617  0a   004540 7100 00                tra     ix_rev_chars    448\r
+    015620  0a   005247 7100 00                tra     verify_rev_chars        449\r
+    015621  0a   005251 7100 00                tra     search_rev_chars        450\r
+    015622  0a   003261 7100 00                tra     shorten_stack_protect_ind       451\r
+    015623  0a   003270 7100 00                tra     save_stack_quick        452\r
+    015624  0a   003274 7100 00                tra     restore_stack_quick     453\r
+    015625  4a  4 00742 7101 20                tra     <fort_math_ops_>|[hfp_dtanh]    454     fortran only\r
+    015626  4a  4 00744 7101 20                tra     <fort_math_ops_>|[hfp_sinh]     455     fortran only\r
+    015627  4a  4 00746 7101 20                tra     <fort_math_ops_>|[hfp_dsinh]    456     fortran only\r
+    015630  4a  4 00750 7101 20                tra     <fort_math_ops_>|[hfp_cosh]     457     fortran only\r
+    015631  4a  4 00752 7101 20                tra     <fort_math_ops_>|[hfp_dcosh]    458     fortran only\r
+    015632  0a   016160 7100 00                tra     hfp_nearest_whole_number        459     fortran only\r
+    015633  0a   016146 7100 00                tra     hfp_nearest_integer     460     fortran only\r
+    015634  0a   010722 7100 00                tra     ftn_inquire_element     461     fortran only\r
+    015635  0a   010044 7100 00                tra     mpy_overflow_check      462     fortran only\r
+    015636  0a   005557 7100 00                tra     fort_return_mac 463     fortran only\r
+    015637  0a   010146 7100 00                tra     fort_cleanup    464     fortran only\r
+    015640  0a   010073 7100 00                tra     fort_storage    465     fortran only\r
+    015641  0a   011534 7100 00                tra     enter_BFP_mode  466\r
+    015642  0a   011540 7100 00                tra     enter_HFP_mode  467\r
+    015643  0a   011631 7100 00                tra     unimp           468     future expansion\r
+    015644  0a   011631 7100 00                tra     unimp           469     future expansion\r
+    015645  0a   011631 7100 00                tra     unimp           470     future expansion\r
+    015646  0a   011631 7100 00                tra     unimp           471     future expansion\r
+    015647  0a   011631 7100 00                tra     unimp           472     future expansion\r
+    015650  0a   011631 7100 00                tra     unimp           473     future expansion\r
+    015651  0a   011631 7100 00                tra     unimp           474     future expansion\r
+    015652  0a   011631 7100 00                tra     unimp           475     future expansion\r
+    015653  0a   011631 7100 00                tra     unimp           476     future expansion\r
+    015654  0a   011631 7100 00                tra     unimp           477     future expansion\r
+    015655  0a   011631 7100 00                tra     unimp           478     future expansion\r
+    015656  0a   011631 7100 00                tra     unimp           479     future expansion\r
+    015657  0a   011631 7100 00                tra     unimp           480     future expansion\r
+                                  6989  \r
+                                  6990  \r
+                                  6991  "\r
+                                  6992  "      Function:       ceiling of a float hex (71) number\r
+                                  6993  "\r
+                                  6994  "      Entry:  EAQ = number\r
+                                  6995  "              X0 = offset in caller's text section of return point\r
+                                  6996  "\r
+                                  6997  "      Exit:   EAQ = ceil(number)\r
+                                  6998  "\r
+    015660                        6999  hfp_ceil_fl:\r
+    015660  aa   000006 6040 04   7000         tmi     6,ic            if number +ve then:\r
+    015661  0a   012446 4770 00   7001           dfad    hfp_almost_one          EAQ = number + almost_one\r
+    015662  aa   002100 4610 03   7002           fmp     P2.0H,du        EAQ = 2*(number + almost_one)\r
+    015663  aa   044000 4750 03   7003           fad     =18b25,du       EAQ = 2*ceil(number)\r
+    015664  aa   000400 4610 03   7004           fmp     P0.5H,du        EAQ = ceil(number)\r
+    015665  aa  6 00046 7101 70   7005           tra     sp|tbp,*x0      return\r
+                                  7006  "                              else:\r
+    015666  aa   003700 4610 03   7007           fmp     M2.0H,du        EAQ = 2*abs(number)\r
+    015667  aa   044000 4750 03   7008           fad     =18b25,du       EAQ = 2*floor(abs(number))\r
+    015670  aa   001400 4610 03   7009           fmp     M0.5H,du        EAQ = -floor(abs(number))\r
+    015671  aa  6 00046 7101 70   7010           tra     sp|tbp,*x0      return\r
+                                  7011  \r
+                                  7012  \r
+                                  7013  "\r
+                                  7014  "      Function:       convert a float hex (71) number to fixed bin (71)\r
+                                  7015  "\r
+                                  7016  "      Entry:  EAQ = number\r
+                                  7017  "              X0 = offset in caller's text section of return point\r
+                                  7018  "\r
+                                  7019  "      Exit:   AQ = fixed (number, 71)\r
+                                  7020  "\r
+    015672                        7021  hfp_fl2_to_fx1:\r
+    015672                        7022  hfp_fl2_to_fx2:\r
+    015672  aa   400000 4750 03   7023         fad     P0.0H,du\r
+    015673  aa   000004 6040 04   7024         tmi     4,ic            if number +ve then:\r
+    015674  aa   002100 4610 03   7025           fmp     P2.0H,du        EAQ = 2*number\r
+    015675  aa   044000 4350 03   7026           ufa     =18b25,du       AQ = floor(number)\r
+    015676  aa  6 00046 7101 70   7027           tra     sp|tbp,*x0      return\r
+                                  7028  "                              else:\r
+    015677  aa   003700 4610 03   7029           fmp     M2.0H,du        EAQ = 2*abs(number)\r
+    015700  aa   044000 4350 03   7030           ufa     =18b25,du       AQ = floor (abs (number))\r
+    015701  aa   000000 5330 00   7031           negl    0               AQ = -floor(abs(number))\r
+    015702  aa  6 00046 7101 70   7032           tra     sp|tbp,*x0      return\r
+                                  7033  \r
+                                  7034  \r
+                                  7035  "\r
+                                  7036  "      Function:       convert a float hex (71) number to fixed bin\r
+                                  7037  "              (71, scale)\r
+                                  7038  "\r
+                                  7039  "      Entry:  EAQ = number\r
+                                  7040  "              X0 = offset in caller's text section of the word\r
+                                  7041  "                   containing the scale factor in the format\r
+                                  7042  "                   8/71-scale,28/0\r
+                                  7043  "\r
+                                  7044  "      Exit:   to word after scale factor word with:\r
+                                  7045  "              AQ = floor(number * 2**scale)\r
+                                  7046  "\r
+                                  7047  "      Note:   The format of the word containing the scale factor is the\r
+                                  7048  "              same as that used when converting float bin (71) to fixed\r
+                                  7049  "              bin (71, scale).  THIS IS NOT THE BEST FORMAT FOR\r
+                                  7050  "              CONVERTING HEX NUMBERS.  It is used because that is what\r
+                                  7051  "              the current PL/I compiler generates.  If float hex is ever\r
+                                  7052  "              added as a proper 'pl1' data type, it would be wise to\r
+                                  7053  "              change the format of the scale word to contain the float\r
+                                  7054  "              hex (27) representation of 2**(scale-1).  This would\r
+                                  7055  "              shorten the conversion code to:\r
+                                  7056  "\r
+                                  7057  "hfp_fl2_to_fxscaled:\r
+                                  7058  "      fad     P0.0H,du\r
+                                  7059  "      tmi     4,ic            if number +ve then:\r
+                                  7060  "        fmp     sp|tbp,*x0      EAQ = 2*number * 2**scale\r
+                                  7061  "        ufa     =18b25,du       AQ = floor(number * 2**scale)\r
+                                  7062  "      tra     5,ic            else:\r
+                                  7063  "        fneg    0               EAQ = abs(number)\r
+                                  7064  "        fmp     sp|tbp,*x0      EAQ = 2*abs(number) * 2**scale\r
+                                  7065  "        ufa     =18b25,du       AQ = floor(abs(number) * 2**scale)\r
+                                  7066  "        negl    0               AQ = -floor(abs(number) * 2**scale)\r
+                                  7067  "      adx0    =1,du           skip scale word\r
+                                  7068  "      tra     sp|tbp,*x0      return\r
+                                  7069  "\r
+    015703                        7070  hfp_fl2_to_fxscaled:\r
+    015703  aa  6 00076 7571 00   7071         staq    sp|temp         save mantissa of number\r
+    015704  aa  6 00046 2351 70   7072         lda     sp|tbp,*x0      A = 8/71-scale,28/0\r
+    015705  aa   000034 7310 00   7073         ars     28              A = 71-scale\r
+    015706  aa   000000 5310 00   7074         neg     0               A = scale-71\r
+    015707  aa   000110 0750 07   7075         ada     =72,dl          A = scale+1\r
+    015710  aa   000002 7330 00   7076         lrs     2               A = floor((scale+1)/4)\r
+    015711  aa   000042 7720 00   7077         qrl     34              Q = (scale+1) - 4*floor((scale+1)/4)\r
+    015712  aa   000000 6210 06   7078         eax1    0,ql            X1 = (scale+1) - 4*floor((scale+1)/4)\r
+    015713  aa   000001 0750 07   7079         ada     =1,dl           A = floor((scale+1)/4) + 1\r
+    015714  aa   000001 2360 07   7080         ldq     =1,dl           Q = 2**0\r
+    015715  aa   000037 7360 11   7081         qls     31,x1           Q = 2**(X1+31)\r
+    015716  aa   000034 7370 00   7082         lls     28              A = HFP representation of 2**(scale+1)\r
+    015717  aa  6 00072 7551 00   7083         sta     sp|temp2                save scale factor\r
+    015720  aa  6 00076 2371 00   7084         ldaq    sp|temp         restore mantissa of number\r
+    015721  aa   000004 6040 04   7085         tmi     4,ic            if number +ve then:\r
+    015722  aa  6 00072 4611 00   7086           fmp     sp|temp2        EAQ = 2*number * 2**scale\r
+    015723  aa   044000 4350 03   7087           ufa     =18b25,du       AQ = floor(number * 2**scale)\r
+    015724  aa   000005 7100 04   7088         tra     5,ic            else:\r
+    015725  aa   000000 5130 00   7089           fneg    0               EAQ = abs(number)\r
+    015726  aa  6 00072 4611 00   7090           fmp     sp|temp2        EAQ = 2*abs(number) * 2**scale\r
+    015727  aa   044000 4350 03   7091           ufa     =18b25,du       AQ = floor(abs(number) * 2**scale)\r
+    015730  aa   000000 5330 00   7092           negl    0               AQ = -floor(abs(number) * 2**scale)\r
+    015731  aa   000001 0600 03   7093         adx0    =1,du           skip scale word\r
+    015732  aa  6 00046 7101 70   7094         tra     sp|tbp,*x0      return\r
+                                  7095  \r
+                                  7096  \r
+                                  7097  \r
+                                  7098  "\r
+                                  7099  "      Function:       floor of a float hex (71) number\r
+                                  7100  "\r
+                                  7101  "      Entry:  EAQ = number\r
+                                  7102  "              X0 = offset in caller's text section of return point\r
+                                  7103  "\r
+                                  7104  "      Exit:   EAQ = floor(number)\r
+                                  7105  "\r
+    015733                        7106  hfp_floor_fl:\r
+    015733  aa   000005 6040 04   7107         tmi     5,ic            if number +ve then:\r
+    015734  aa   002100 4610 03   7108           fmp     P2.0H,du        EAQ = 2*number\r
+    015735  aa   044000 4750 03   7109           fad     =18b25,du       EAQ = 2*floor(number)\r
+    015736  aa   000400 4610 03   7110           fmp     P0.5H,du        EAQ = floor(number)\r
+    015737  aa  6 00046 7101 70   7111           tra     sp|tbp,*x0      return\r
+                                  7112  "                              else:\r
+    015740  0a   012446 5770 00   7113           dfsb    hfp_almost_one          EAQ = -(abs(number) + almost_one)\r
+    015741  aa   003700 4610 03   7114           fmp     M2.0H,du        EAQ = 2*(abs(number) + almost_one)\r
+    015742  aa   044000 4750 03   7115           fad     =18b25,du       EAQ = 2*ceil(abs(number))\r
+    015743  aa   001400 4610 03   7116           fmp     M0.5H,du        EAQ = -ceil(abs(number))\r
+    015744  aa  6 00046 7101 70   7117           tra     sp|tbp,*x0      return\r
+                                  7118  \r
+                                  7119  \r
+                                  7120  "\r
+                                  7121  "      Function:       FORTRAN float hex (63) modulus: dmod(x, y)\r
+                                  7122  "\r
+                                  7123  "      Entry:  EAQ = x\r
+                                  7124  "              bp|0 -> y\r
+                                  7125  "              X0 = offset in caller's text section of return point\r
+                                  7126  \r
+                                  7127  "      Exit:   EAQ = if y=0 then 0 else x - trunc(x/y)*y\r
+                                  7128  "\r
+    015745                        7129  hfp_fort_dmod:\r
+    015745  aa  2 00000 4301 00   7130         fszn    bp|0            return 0 if y is 0\r
+    015746  aa  6 00046 6001 70   7131         tze     sp|tbp,*x0\r
+    015747  aa  6 00076 4721 00   7132         dfstr   sp|temp         save x\r
+    015750  aa  2 00000 5671 00   7133         dfdv    bp|0            EAQ = x/y\r
+    015751  aa   000005 6040 04   7134         tmi     5,ic            if EAQ >= 0 then:\r
+    015752  aa   002100 4610 03   7135            fmp     P2.0H,du        EAQ = 2*x/y\r
+    015753  aa   044000 4750 03   7136            fad     =18b25,du       EAQ = 2*floor(x/y)\r
+    015754  aa   001400 4610 03   7137            fmp     M0.5H,du        EAQ = -trunc(x/y)\r
+    015755  aa   000004 7100 04   7138         tra     4,ic            else:\r
+    015756  aa   003700 4610 03   7139            fmp     M2.0H,du        EAQ = 2*abs(x/y)\r
+    015757  aa   044000 4750 03   7140            fad     =18b25,du       EAQ = 2*floor(abs(x/y))\r
+    015760  aa   000400 4610 03   7141            fmp     P0.5H,du        EAQ = -trunc(x/y)\r
+    015761  aa  2 00000 4631 00   7142         dfmp    bp|0            EAQ = -trunc(x/y)*y\r
+    015762  aa  6 00076 4771 00   7143         dfad    sp|temp         EAQ = x - trunc(x/y)*y\r
+    015763  aa  6 00046 7101 70   7144         tra     sp|tbp,*x0      return\r
+                                  7145  \r
+                                  7146  \r
+                                  7147  "\r
+                                  7148  "      Function:       FORTRAN float hex (27) modulus: amod(x, y)\r
+                                  7149  "\r
+                                  7150  "      Entry:  EAQ = x\r
+                                  7151  "              bp|0 -> y\r
+                                  7152  "              X0 = offset in caller's text section of return point\r
+                                  7153  "\r
+                                  7154  "      Exit:   EAQ = if y=0 then 0 else x - trunc(x/y)*y\r
+                                  7155  "\r
+    015764                        7156  hfp_fort_mdfl1:\r
+    015764  aa  2 00000 4301 00   7157         fszn    bp|0            return 0 if y is 0\r
+    015765  aa  6 00046 6001 70   7158         tze     sp|tbp,*x0\r
+    015766  aa  6 00076 4701 00   7159         fstr    sp|temp         save x\r
+    015767  aa  2 00000 5651 00   7160         fdv     bp|0            EAQ = x/y\r
+    015770  aa   000005 6040 04   7161         tmi     5,ic            if EAQ >= 0 then:\r
+    015771  aa   002100 4610 03   7162            fmp     P2.0H,du        EAQ = 2*x/y\r
+    015772  aa   044000 4750 03   7163            fad     =18b25,du       EAQ = 2*floor(x/y)\r
+    015773  aa   001400 4610 03   7164            fmp     M0.5H,du        EAQ = -trunc(x/y)\r
+    015774  aa   000004 7100 04   7165         tra     4,ic            else:\r
+    015775  aa   003700 4610 03   7166            fmp     M2.0H,du        EAQ = 2*abs(x/y)\r
+    015776  aa   044000 4750 03   7167            fad     =18b25,du       EAQ = 2*floor(abs(x/y))\r
+    015777  aa   000400 4610 03   7168            fmp     P0.5H,du        EAQ = -trunc(x/y)\r
+    016000  aa  2 00000 4611 00   7169         fmp     bp|0            EAQ = -trunc(x/y)*y\r
+    016001  aa  6 00076 4751 00   7170         fad     sp|temp         EAQ = x - trunc(x/y)*y\r
+    016002  aa  6 00046 7101 70   7171         tra     sp|tbp,*x0      return\r
+                                  7172  \r
+                                  7173  \r
+                                  7174  "\r
+                                  7175  "      Function:       Get address of a specified FORTRAN intrinsic function.\r
+                                  7176  "\r
+                                  7177  "      Entry:  X0 = offset in caller's text section of return point.\r
+                                  7178  "              X2 = index of the intrinsic function.\r
+                                  7179  "\r
+                                  7180  "      Exit:   PR2 = address of entry point of specified intrinsic.\r
+                                  7181  "\r
+    016003                        7182  hfp_get_math_entry:\r
+    016003  0a   011331 7010 00   7183         tsx1    get_our_lp\r
+    016004  0a   016005 7160 12   7184         xec     hfp_fort_math_names-1,2 get entry\r
+    016005  aa  6 00046 7101 70   7185         tra     sp|tbp,*0       return\r
+                                  7186  \r
+                                  7187  \r
+    016006                        7188  hfp_fort_math_names:\r
+    016006  4a  4 00754 3521 20   7189         epp2    <fort_hfp_builtins_>|[exp_]             1\r
+    016007  4a  4 00756 3521 20   7190         epp2    <fort_hfp_builtins_>|[alog_]            2\r
+    016010  4a  4 00760 3521 20   7191         epp2    <fort_hfp_builtins_>|[alog10_]  3\r
+    016011  4a  4 00762 3521 20   7192         epp2    <fort_hfp_builtins_>|[atan_]            4\r
+    016012  4a  4 00764 3521 20   7193         epp2    <fort_hfp_builtins_>|[atan2_]           5\r
+    016013  4a  4 00766 3521 20   7194         epp2    <fort_hfp_builtins_>|[sin_]             6\r
+    016014  4a  4 00770 3521 20   7195         epp2    <fort_hfp_builtins_>|[cos_]             7\r
+    016015  4a  4 00772 3521 20   7196         epp2    <fort_hfp_builtins_>|[tanh_]            8\r
+    016016  4a  4 00774 3521 20   7197         epp2    <fort_hfp_builtins_>|[sqrt_]            9\r
+    016017  4a  4 00776 3521 20   7198         epp2    <fort_hfp_builtins_>|[dmod_]            10\r
+    016020  4a  4 01000 3521 20   7199         epp2    <fort_hfp_builtins_>|[dexp_]            11\r
+    016021  4a  4 01002 3521 20   7200         epp2    <fort_hfp_builtins_>|[dlog_]            12\r
+    016022  4a  4 01004 3521 20   7201         epp2    <fort_hfp_builtins_>|[dlog10_]  13\r
+    016023  4a  4 01006 3521 20   7202         epp2    <fort_hfp_builtins_>|[datan_]           14\r
+    016024  4a  4 01010 3521 20   7203         epp2    <fort_hfp_builtins_>|[datan2_]  15\r
+    016025  4a  4 01012 3521 20   7204         epp2    <fort_hfp_builtins_>|[dsin_]            16\r
+    016026  4a  4 01014 3521 20   7205         epp2    <fort_hfp_builtins_>|[dcos_]            17\r
+    016027  4a  4 01016 3521 20   7206         epp2    <fort_hfp_builtins_>|[dsqrt_]           18\r
+    016030  4a  4 01020 3521 20   7207         epp2    <fort_hfp_builtins_>|[cabs_]            19\r
+    016031  4a  4 01022 3521 20   7208         epp2    <fort_hfp_builtins_>|[cexp_]            20\r
+    016032  4a  4 01024 3521 20   7209         epp2    <fort_hfp_builtins_>|[clog_]            21\r
+    016033  4a  4 01026 3521 20   7210         epp2    <fort_hfp_builtins_>|[csin_]            22\r
+    016034  4a  4 01030 3521 20   7211         epp2    <fort_hfp_builtins_>|[ccos_]            23\r
+    016035  4a  4 01032 3521 20   7212         epp2    <fort_hfp_builtins_>|[csqrt_]           24\r
+    016036  4a  4 01034 3521 20   7213         epp2    <fort_hfp_builtins_>|[cxp2_]            25\r
+    016037  4a  4 01036 3521 20   7214         epp2    <fort_hfp_builtins_>|[tan_]             26\r
+    016040  4a  4 01040 3521 20   7215         epp2    <fort_hfp_builtins_>|[dtan_]            27\r
+    016041  4a  4 01042 3521 20   7216         epp2    <fort_hfp_builtins_>|[asin_]            28\r
+    016042  4a  4 01044 3521 20   7217         epp2    <fort_hfp_builtins_>|[dasin_]           29\r
+    016043  4a  4 01046 3521 20   7218         epp2    <fort_hfp_builtins_>|[acos_]            30\r
+    016044  4a  4 01050 3521 20   7219         epp2    <fort_hfp_builtins_>|[dacos_]           31\r
+    016045  4a  4 00456 3521 20   7220         epp2    <fort_int_builtins_>|[index_]           32\r
+    016046  4a  4 01052 3521 20   7221         epp2    <fort_hfp_builtins_>|[dtanh_]           33\r
+    016047  4a  4 01054 3521 20   7222         epp2    <fort_hfp_builtins_>|[sinh_]            34\r
+    016050  4a  4 01056 3521 20   7223         epp2    <fort_hfp_builtins_>|[dsinh_]           35\r
+    016051  4a  4 01060 3521 20   7224         epp2    <fort_hfp_builtins_>|[cosh_]            36\r
+    016052  4a  4 01062 3521 20   7225         epp2    <fort_hfp_builtins_>|[dcosh_]           37\r
+    016053  4a  4 01064 3521 20   7226         epp2    <fort_hfp_builtins_>|[abs_]             38\r
+    016054  4a  4 00474 3521 20   7227         epp2    <fort_int_builtins_>|[iabs_]            39\r
+    016055  4a  4 01066 3521 20   7228         epp2    <fort_hfp_builtins_>|[dabs_]            40\r
+    016056  4a  4 01070 3521 20   7229         epp2    <fort_hfp_builtins_>|[dim_]             41\r
+    016057  4a  4 00502 3521 20   7230         epp2    <fort_int_builtins_>|[idim_]            42\r
+    016060  4a  4 01072 3521 20   7231         epp2    <fort_hfp_builtins_>|[ddim_]            43\r
+    016061  4a  4 01074 3521 20   7232         epp2    <fort_hfp_builtins_>|[sign_]            44\r
+    016062  4a  4 00510 3521 20   7233         epp2    <fort_int_builtins_>|[isign_]           45\r
+    016063  4a  4 01076 3521 20   7234         epp2    <fort_hfp_builtins_>|[dsign_]           46\r
+    016064  4a  4 01100 3521 20   7235         epp2    <fort_hfp_builtins_>|[aint_]            47\r
+    016065  4a  4 01102 3521 20   7236         epp2    <fort_hfp_builtins_>|[aimag_]           48\r
+    016066  4a  4 01104 3521 20   7237         epp2    <fort_hfp_builtins_>|[conjg_]           49\r
+    016067  4a  4 00522 3521 20   7238         epp2    <fort_int_builtins_>|[len_]             50\r
+    016070  4a  4 01106 3521 20   7239         epp2    <fort_hfp_builtins_>|[dint_]            51\r
+    016071  4a  4 01110 3521 20   7240         epp2    <fort_hfp_builtins_>|[anint_]           52\r
+    016072  4a  4 01112 3521 20   7241         epp2    <fort_hfp_builtins_>|[dnint_]           53\r
+    016073  4a  4 01114 3521 20   7242         epp2    <fort_hfp_builtins_>|[nint_]            54\r
+    016074  4a  4 01116 3521 20   7243         epp2    <fort_hfp_builtins_>|[idnint_]  55\r
+    016075  4a  4 01120 3521 20   7244         epp2    <fort_hfp_builtins_>|[dprod_]           56\r
+    016076  4a  4 00540 3521 20   7245         epp2    <fort_int_builtins_>|[mod_]             57\r
+    016077  4a  4 01122 3521 20   7246         epp2    <fort_hfp_builtins_>|[amod_]            58\r
+    016100  4a  4 00544 3521 20   7247         epp2    <fort_int_builtins_>|[ilr_]             59\r
+    016101  4a  4 00546 3521 20   7248         epp2    <fort_int_builtins_>|[ils_]             60\r
+    016102  4a  4 00550 3521 20   7249         epp2    <fort_int_builtins_>|[irl_]             61\r
+    016103  4a  4 00552 3521 20   7250         epp2    <fort_int_builtins_>|[irs_]             62\r
+                                  7251  \r
+                                  7252  "\r
+                                  7253  "      Function:       PL/I float hex (27) modulus: mod(x, y)\r
+                                  7254  "\r
+                                  7255  "      Entry:  EAQ = x\r
+                                  7256  "              bp|0 -> y\r
+                                  7257  "              X0 = offset in caller's text section of return point\r
+                                  7258  "\r
+                                  7259  "      Exit:   EAQ = if y=0 then x else x - floor(x/y)*y\r
+                                  7260  "\r
+    016104                        7261  hfp_mdfl1:\r
+    016104  aa  2 00000 4301 00   7262         fszn    bp|0            return x if y = 0\r
+    016105  0a   016124 6000 00   7263         tze     hfp_mdfl1a\r
+    016106  aa  6 00076 4551 00   7264         fst     sp|temp         save x\r
+    016107  aa  2 00000 5651 00   7265         fdv     bp|0            EAQ = x/y\r
+    016110  aa   000005 6040 04   7266         tmi     5,ic            if EAQ >= 0 then:\r
+    016111  aa   002100 4610 03   7267            fmp     P2.0H,du        EAQ = 2*(x/y)\r
+    016112  aa   044000 4750 03   7268            fad     =18b25,du       EAQ = 2*floor(x/y)\r
+    016113  aa   001400 4610 03   7269            fmp     M0.5H,du        EAQ = -floor(x/y)\r
+    016114  aa   000005 7100 04   7270         tra     5,ic            else:\r
+    016115  0a   012446 5770 00   7271            dfsb    hfp_almost_one          EAQ = -(abs(x/y) + almost_one)\r
+    016116  aa   003700 4610 03   7272            fmp     M2.0H,du        EAQ = 2*(abs(x/y) + almost_one)\r
+    016117  aa   044000 4750 03   7273            fad     =18b25,du       EAQ = 2*floor(abs(x/y) + almost_one)\r
+    016120  aa   000400 4610 03   7274            fmp     P0.5H,du        EAQ = -floor(x/y)\r
+    016121  aa  2 00000 4611 00   7275         fmp     bp|0            EAQ = -floor(x/y)*y\r
+    016122  aa  6 00076 4751 00   7276         fad     sp|temp         EAQ = x - floor(x/y)*y\r
+    016123  aa  6 00046 7101 70   7277         tra     sp|tbp,*x0      return\r
+                                  7278  \r
+    016124                        7279  hfp_mdfl1a:\r
+    016124  aa   400000 5150 03   7280         fcmp    P0.0H,du                set indicators properly\r
+    016125  aa  6 00046 7101 70   7281         tra     sp|tbp,*x0      return\r
+                                  7282  \r
+                                  7283  \r
+                                  7284  "\r
+                                  7285  "      Function:       PL/I float hex (63) modulus: mod(x, y)\r
+                                  7286  "\r
+                                  7287  "      Entry:  EAQ = x\r
+                                  7288  "              bp|0 -> y\r
+                                  7289  "              X0 = offset in caller's text section of return point\r
+                                  7290  "\r
+                                  7291  "      Exit:   EAQ = if y=0 then x else x - floor(x/y)\r
+                                  7292  "\r
+    016126                        7293  hfp_mdfl2:\r
+    016126  aa  6 00076 4571 00   7294         dfst    sp|temp         save x\r
+    016127  aa  2 00000 4331 00   7295         dfld    bp|0            load y\r
+    016130  0a   016144 6000 00   7296         tze     hfp_mdfl2a      return x if y = 0\r
+    016131  aa  2 00000 5271 00   7297         dfdi    bp|0            EAQ = x/y\r
+    016132  aa   000005 6040 04   7298         tmi     5,ic            if EAQ >= 0 then:\r
+    016133  aa   002100 4610 03   7299            fmp     P2.0H,du        EAQ = 2*(x/y)\r
+    016134  aa   044000 4750 03   7300            fad     =18b25,du       EAQ = 2*floor(x/y)\r
+    016135  aa   001400 4610 03   7301            fmp     M0.5H,du        EAQ = -floor(x/y)\r
+    016136  aa   000005 7100 04   7302         tra     5,ic            else:\r
+    016137  0a   012446 5770 00   7303            dfsb    hfp_almost_one          EAQ = -(abs(x/y) + almost_one)\r
+    016140  aa   003700 4610 03   7304            fmp     M2.0H,du        EAQ = 2*(abs(x/y) + almost_one)\r
+    016141  aa   044000 4750 03   7305            fad     =18b25,du       EAQ = 2*floor(abs(x/y) + almost_one)\r
+    016142  aa   000400 4610 03   7306            fmp     P0.5H,du        EAQ = -floor(x/y)\r
+    016143  aa  2 00000 4631 00   7307         dfmp    bp|0            EAQ = -floor(x/y)*y\r
+                                  7308  \r
+    016144                        7309  hfp_mdfl2a:\r
+    016144  aa  6 00076 4771 00   7310         dfad    sp|temp         EAQ = if y=0 then x else x-floor(x/y)*y\r
+    016145  aa  6 00046 7101 70   7311         tra     sp|tbp,*x0      return\r
+                                  7312  \r
+                                  7313  \r
+                                  7314  "\r
+                                  7315  "      Function:       round a float hex (71) number to fixed bin (71)\r
+                                  7316  "\r
+                                  7317  "      Entry:  EAQ = number\r
+                                  7318  "              X0 = offset in caller's text section of return point\r
+                                  7319  "\r
+                                  7320  "      Exit:   AQ = nearest fixed bin (71) number\r
+                                  7321  "\r
+    016146                        7322  hfp_nearest_integer:\r
+    016146  aa   000005 6040 04   7323         tmi     5,ic            if number +ve then:\r
+    016147  aa   000400 4750 03   7324           fad     P0.5H,du        EAQ = number + 0.5\r
+    016150  aa   002100 4610 03   7325           fmp     P2.0H,du        EAQ = 2*(number + 0.5)\r
+    016151  aa   044000 4350 03   7326           ufa     =18b25,du       AQ = floor(number + 0.5)\r
+    016152  aa  6 00046 7101 70   7327           tra     sp|tbp,*x0      return\r
+                                  7328  "                              else:\r
+    016153  aa   001400 4750 03   7329           fad     M0.5H,du        EAQ = -(abs(number) + 0.5)\r
+    016154  aa   003700 4610 03   7330           fmp     M2.0H,du        EAQ = 2*(abs(number) + 0.5)\r
+    016155  aa   044000 4350 03   7331           ufa     =18b25,du       AQ = floor(abs(number) + 0.5)\r
+    016156  aa   000000 5330 00   7332           negl    0               AQ = -floor(abs(number) + 0.5)\r
+    016157  aa  6 00046 7101 70   7333           tra     sp|tbp,*x0      return\r
+                                  7334  \r
+                                  7335  \r
+                                  7336  "\r
+                                  7337  "      Function:       round off a float hex (71) number\r
+                                  7338  "\r
+                                  7339  "      Entry:  EAQ = number\r
+                                  7340  "              X0 = offset in caller's text section of return point\r
+                                  7341  "\r
+                                  7342  "      Exit:   EAQ = nearest whole float hex (71) number\r
+                                  7343  "\r
+    016160                        7344  hfp_nearest_whole_number:\r
+    016160  aa   000006 6040 04   7345         tmi     6,ic            if number +ve then:\r
+    016161  aa   000400 4750 03   7346           fad     P0.5H,du        EAQ = number + 0.5\r
+    016162  aa   002100 4610 03   7347           fmp     P2.0H,du        EAQ = 2*(number + 0.5)\r
+    016163  aa   044000 4750 03   7348           fad     =18b25,du       EAQ = 2*floor(number + 0.5)\r
+    016164  aa   000400 4610 03   7349           fmp     P0.5H,du        EAQ = floor(number + 0.5)\r
+    016165  aa  6 00046 7101 70   7350           tra     sp|tbp,*x0      return\r
+                                  7351  "                              else:\r
+    016166  aa   001400 4750 03   7352           fad     M0.5H,du        EAQ = -(abs(number) + 0.5)\r
+    016167  aa   003700 4610 03   7353           fmp     M2.0H,du        EAQ = 2*(abs(number) + 0.5)\r
+    016170  aa   044000 4750 03   7354           fad     =18b25,du       EAQ = 2*floor(abs(number) + 0.5)\r
+    016171  aa   001400 4610 03   7355           fmp     M0.5H,du        EAQ = -floor(abs(number) + 0.5)\r
+    016172  aa  6 00046 7101 70   7356           tra     sp|tbp,*x0      return\r
+                                  7357  \r
+                                  7358  \r
+                                  7359  "\r
+                                  7360  "      Function:       convert a fixed bin (35) number to complex float hex (27)\r
+                                  7361  "\r
+                                  7362  "      Entry:  Q = number\r
+                                  7363  "              X0 = offset in caller's text section of return point\r
+                                  7364  "\r
+                                  7365  "      Exit:   EAQ = complex float hex (27) result\r
+                                  7366  "\r
+    016173                        7367  hfp_rfb1_to_cflb1:\r
+    016173  aa   000044 7370 00   7368         lls     36              convert to fixed bin (71) first\r
+    016174  aa   000044 7330 00   7369         lrs     36\r
+                                  7370  \r
+                                  7371  \r
+                                  7372  "\r
+                                  7373  "      Function:       convert from fixed bin (71) to complex float hex (27)\r
+                                  7374  "\r
+                                  7375  "      Entry:  AQ = number\r
+                                  7376  "              X0 = offset in caller's text section of return point\r
+                                  7377  "\r
+                                  7378  "      Exit:   EAQ = complex float hex (27) result\r
+                                  7379  "\r
+    016175                        7380  hfp_rfb2_to_cflb1:\r
+    016175  aa   044000 4110 03   7381         lde     =18b25,du               EAQ = unnormalized 2*float(source)\r
+    016176  aa   400000 4750 03   7382         fad     P0.0H,du                EAQ = 2*float(source)\r
+    016177  aa   000400 4610 03   7383         fmp     P0.5H,du                EAQ = float(source)\r
+    016200  aa  6 00076 4551 00   7384         fst     sp|temp\r
+    016201  aa  6 00076 2351 00   7385         lda     sp|temp         load real part\r
+    016202  aa   400000 2360 03   7386         ldq     P0.0H,du                load imaginary part\r
+    016203  aa  6 00046 7101 70   7387         tra     sp|tbp,*x0      return\r
+                                  7388  \r
+                                  7389  \r
+                                  7390  "\r
+                                  7391  "      Function:       truncate a float hex (71) number\r
+                                  7392  "\r
+                                  7393  "      Entry:  EAQ = number\r
+                                  7394  "              X0 = offset in caller's text section of return point\r
+                                  7395  "\r
+                                  7396  "      Exit:   EAQ = trunc (number)\r
+                                  7397  "\r
+    016204                        7398  hfp_trunc_fl:\r
+    016204  aa   000005 6040 04   7399         tmi     5,ic            if number +ve then:\r
+    016205  aa   002100 4610 03   7400           fmp     P2.0H,du        EAQ = 2*number\r
+    016206  aa   044000 4750 03   7401           fad     =18b25,du       EAQ = 2*trunc(number)\r
+    016207  aa   000400 4610 03   7402           fmp     P0.5H,du        EAQ = trunc(number)\r
+    016210  aa  6 00046 7101 70   7403           tra     sp|tbp,*x0      return\r
+                                  7404  "                              else:\r
+    016211  aa   003700 4610 03   7405           fmp     M2.0H,du        EAQ = 2*abs(number)\r
+    016212  aa   044000 4750 03   7406           fad     =18b25,du       EAQ = 2*trunc(abs(number))\r
+    016213  aa   001400 4610 03   7407           fmp     M0.5H,du        EAQ = trunc(number)\r
+    016214  aa  6 00046 7101 70   7408           tra     sp|tbp,*x0      return\r
+                                  7409  \f\r
+                                  7410  "\r
+                                  7411  " The following code is used by trace to gain control of PL/I and FORTRAN programs.\r
+                                  7412  "\r
+                                  7413         transfer_vector trace_\r
+                                        "\r
+                                        " Due to the presence of double-word constants (at bit_mask and mask_bit)\r
+                                        " these instructions must presently begin on an even-word boundary.\r
+                                        " Note that if an odd number  of words is added to the front of the\r
+                                        " operator_table region, then the following even pseudo-op must be\r
+                                        " changed to an odd pseudo-op. If you forget, an assembly error will\r
+                                        " result (due to clever divide-by-zero, below).\r
+                                        "\r
+    016215  aa   000000 0110 03                even\r
+                                        "\r
+                                        " The following section, from location 0 to label operator_table, is referenced\r
+                                        " directly from PL/1 programs by means of offsets of the form ap|-n (ap pointing\r
+                                        " at pl1_operators_$operator_table).  For this reason, the order of the\r
+                                        " following instructions must not be changed.  Any new coding must be placed at\r
+                                        " the FRONT of the segment.\r
+                                        "\r
+                                        " This table translates a bit number between 0 and 35 to a char number\r
+                                        " between 0 and 3.\r
+                                        "\r
+                                               even\r
+    016216                              trace_bitno_to_charno_table:\r
+                        000011                 dup     9\r
+    016216  aa   000000 000000                 dec     0\r
+                                               dupend\r
+    016217  aa   000000 000000                 dec     0\r
+    016220  aa   000000 000000                 dec     0\r
+    016221  aa   000000 000000                 dec     0\r
+    016222  aa   000000 000000                 dec     0\r
+    016223  aa   000000 000000                 dec     0\r
+    016224  aa   000000 000000                 dec     0\r
+    016225  aa   000000 000000                 dec     0\r
+    016226  aa   000000 000000                 dec     0\r
+                        000011                 dup     9\r
+    016227  aa   000000 000001                 dec     1\r
+                                               dupend\r
+    016230  aa   000000 000001                 dec     1\r
+    016231  aa   000000 000001                 dec     1\r
+    016232  aa   000000 000001                 dec     1\r
+    016233  aa   000000 000001                 dec     1\r
+    016234  aa   000000 000001                 dec     1\r
+    016235  aa   000000 000001                 dec     1\r
+    016236  aa   000000 000001                 dec     1\r
+    016237  aa   000000 000001                 dec     1\r
+                        000011                 dup     9\r
+    016240  aa   000000 000002                 dec     2\r
+                                               dupend\r
+    016241  aa   000000 000002                 dec     2\r
+    016242  aa   000000 000002                 dec     2\r
+    016243  aa   000000 000002                 dec     2\r
+    016244  aa   000000 000002                 dec     2\r
+    016245  aa   000000 000002                 dec     2\r
+    016246  aa   000000 000002                 dec     2\r
+    016247  aa   000000 000002                 dec     2\r
+    016250  aa   000000 000002                 dec     2\r
+                        000011                 dup     9\r
+    016251  aa   000000 000003                 dec     3\r
+                                               dupend\r
+    016252  aa   000000 000003                 dec     3\r
+    016253  aa   000000 000003                 dec     3\r
+    016254  aa   000000 000003                 dec     3\r
+    016255  aa   000000 000003                 dec     3\r
+    016256  aa   000000 000003                 dec     3\r
+    016257  aa   000000 000003                 dec     3\r
+    016260  aa   000000 000003                 dec     3\r
+    016261  aa   000000 000003                 dec     3\r
+                                        "\r
+                                        "      The following tables are for use with the TCT instruction.\r
+                                        "      Any single, given, character can be searched for using these\r
+                                        "      tables.\r
+                                        "\r
+                        000163                 dup     115\r
+    016262  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    016263  aa   777777 777777                 dec     -1\r
+    016264  aa   777777 777777                 dec     -1\r
+    016265  aa   777777 777777                 dec     -1\r
+    016266  aa   777777 777777                 dec     -1\r
+    016267  aa   777777 777777                 dec     -1\r
+    016270  aa   777777 777777                 dec     -1\r
+    016271  aa   777777 777777                 dec     -1\r
+    016272  aa   777777 777777                 dec     -1\r
+    016273  aa   777777 777777                 dec     -1\r
+    016274  aa   777777 777777                 dec     -1\r
+    016275  aa   777777 777777                 dec     -1\r
+    016276  aa   777777 777777                 dec     -1\r
+    016277  aa   777777 777777                 dec     -1\r
+    016300  aa   777777 777777                 dec     -1\r
+    016301  aa   777777 777777                 dec     -1\r
+    016302  aa   777777 777777                 dec     -1\r
+    016303  aa   777777 777777                 dec     -1\r
+    016304  aa   777777 777777                 dec     -1\r
+    016305  aa   777777 777777                 dec     -1\r
+    016306  aa   777777 777777                 dec     -1\r
+    016307  aa   777777 777777                 dec     -1\r
+    016310  aa   777777 777777                 dec     -1\r
+    016311  aa   777777 777777                 dec     -1\r
+    016312  aa   777777 777777                 dec     -1\r
+    016313  aa   777777 777777                 dec     -1\r
+    016314  aa   777777 777777                 dec     -1\r
+    016315  aa   777777 777777                 dec     -1\r
+    016316  aa   777777 777777                 dec     -1\r
+    016317  aa   777777 777777                 dec     -1\r
+    016320  aa   777777 777777                 dec     -1\r
+    016321  aa   777777 777777                 dec     -1\r
+    016322  aa   777777 777777                 dec     -1\r
+    016323  aa   777777 777777                 dec     -1\r
+    016324  aa   777777 777777                 dec     -1\r
+    016325  aa   777777 777777                 dec     -1\r
+    016326  aa   777777 777777                 dec     -1\r
+    016327  aa   777777 777777                 dec     -1\r
+    016330  aa   777777 777777                 dec     -1\r
+    016331  aa   777777 777777                 dec     -1\r
+    016332  aa   777777 777777                 dec     -1\r
+    016333  aa   777777 777777                 dec     -1\r
+    016334  aa   777777 777777                 dec     -1\r
+    016335  aa   777777 777777                 dec     -1\r
+    016336  aa   777777 777777                 dec     -1\r
+    016337  aa   777777 777777                 dec     -1\r
+    016340  aa   777777 777777                 dec     -1\r
+    016341  aa   777777 777777                 dec     -1\r
+    016342  aa   777777 777777                 dec     -1\r
+    016343  aa   777777 777777                 dec     -1\r
+    016344  aa   777777 777777                 dec     -1\r
+    016345  aa   777777 777777                 dec     -1\r
+    016346  aa   777777 777777                 dec     -1\r
+    016347  aa   777777 777777                 dec     -1\r
+    016350  aa   777777 777777                 dec     -1\r
+    016351  aa   777777 777777                 dec     -1\r
+    016352  aa   777777 777777                 dec     -1\r
+    016353  aa   777777 777777                 dec     -1\r
+    016354  aa   777777 777777                 dec     -1\r
+    016355  aa   777777 777777                 dec     -1\r
+    016356  aa   777777 777777                 dec     -1\r
+    016357  aa   777777 777777                 dec     -1\r
+    016360  aa   777777 777777                 dec     -1\r
+    016361  aa   777777 777777                 dec     -1\r
+    016362  aa   777777 777777                 dec     -1\r
+    016363  aa   777777 777777                 dec     -1\r
+    016364  aa   777777 777777                 dec     -1\r
+    016365  aa   777777 777777                 dec     -1\r
+    016366  aa   777777 777777                 dec     -1\r
+    016367  aa   777777 777777                 dec     -1\r
+    016370  aa   777777 777777                 dec     -1\r
+    016371  aa   777777 777777                 dec     -1\r
+    016372  aa   777777 777777                 dec     -1\r
+    016373  aa   777777 777777                 dec     -1\r
+    016374  aa   777777 777777                 dec     -1\r
+    016375  aa   777777 777777                 dec     -1\r
+    016376  aa   777777 777777                 dec     -1\r
+    016377  aa   777777 777777                 dec     -1\r
+    016400  aa   777777 777777                 dec     -1\r
+    016401  aa   777777 777777                 dec     -1\r
+    016402  aa   777777 777777                 dec     -1\r
+    016403  aa   777777 777777                 dec     -1\r
+    016404  aa   777777 777777                 dec     -1\r
+    016405  aa   777777 777777                 dec     -1\r
+    016406  aa   777777 777777                 dec     -1\r
+    016407  aa   777777 777777                 dec     -1\r
+    016410  aa   777777 777777                 dec     -1\r
+    016411  aa   777777 777777                 dec     -1\r
+    016412  aa   777777 777777                 dec     -1\r
+    016413  aa   777777 777777                 dec     -1\r
+    016414  aa   777777 777777                 dec     -1\r
+    016415  aa   777777 777777                 dec     -1\r
+    016416  aa   777777 777777                 dec     -1\r
+    016417  aa   777777 777777                 dec     -1\r
+    016420  aa   777777 777777                 dec     -1\r
+    016421  aa   777777 777777                 dec     -1\r
+    016422  aa   777777 777777                 dec     -1\r
+    016423  aa   777777 777777                 dec     -1\r
+    016424  aa   777777 777777                 dec     -1\r
+    016425  aa   777777 777777                 dec     -1\r
+    016426  aa   777777 777777                 dec     -1\r
+    016427  aa   777777 777777                 dec     -1\r
+    016430  aa   777777 777777                 dec     -1\r
+    016431  aa   777777 777777                 dec     -1\r
+    016432  aa   777777 777777                 dec     -1\r
+    016433  aa   777777 777777                 dec     -1\r
+    016434  aa   777777 777777                 dec     -1\r
+    016435  aa   777777 777777                 dec     -1\r
+    016436  aa   777777 777777                 dec     -1\r
+    016437  aa   777777 777777                 dec     -1\r
+    016440  aa   777777 777777                 dec     -1\r
+    016441  aa   777777 777777                 dec     -1\r
+    016442  aa   777777 777777                 dec     -1\r
+    016443  aa   777777 777777                 dec     -1\r
+    016444  aa   777777 777777                 dec     -1\r
+                                        "\r
+    016445                              trace_tct_octal_060:\r
+                        000004                 dup     4\r
+    016445  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    016446  aa   777777 777777                 dec     -1\r
+    016447  aa   777777 777777                 dec     -1\r
+    016450  aa   777777 777777                 dec     -1\r
+                                        "\r
+    016451                              trace_tct_octal_040:\r
+                        000010                 dup     8\r
+    016451  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    016452  aa   777777 777777                 dec     -1\r
+    016453  aa   777777 777777                 dec     -1\r
+    016454  aa   777777 777777                 dec     -1\r
+    016455  aa   777777 777777                 dec     -1\r
+    016456  aa   777777 777777                 dec     -1\r
+    016457  aa   777777 777777                 dec     -1\r
+    016460  aa   777777 777777                 dec     -1\r
+    016461                              trace_tct_byte_0:\r
+    016461  aa   000777 777777                 vfd     9/0,9/-1,9/-1,9/-1\r
+                        000177                 dup     127\r
+    016462  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    016463  aa   777777 777777                 dec     -1\r
+    016464  aa   777777 777777                 dec     -1\r
+    016465  aa   777777 777777                 dec     -1\r
+    016466  aa   777777 777777                 dec     -1\r
+    016467  aa   777777 777777                 dec     -1\r
+    016470  aa   777777 777777                 dec     -1\r
+    016471  aa   777777 777777                 dec     -1\r
+    016472  aa   777777 777777                 dec     -1\r
+    016473  aa   777777 777777                 dec     -1\r
+    016474  aa   777777 777777                 dec     -1\r
+    016475  aa   777777 777777                 dec     -1\r
+    016476  aa   777777 777777                 dec     -1\r
+    016477  aa   777777 777777                 dec     -1\r
+    016500  aa   777777 777777                 dec     -1\r
+    016501  aa   777777 777777                 dec     -1\r
+    016502  aa   777777 777777                 dec     -1\r
+    016503  aa   777777 777777                 dec     -1\r
+    016504  aa   777777 777777                 dec     -1\r
+    016505  aa   777777 777777                 dec     -1\r
+    016506  aa   777777 777777                 dec     -1\r
+    016507  aa   777777 777777                 dec     -1\r
+    016510  aa   777777 777777                 dec     -1\r
+    016511  aa   777777 777777                 dec     -1\r
+    016512  aa   777777 777777                 dec     -1\r
+    016513  aa   777777 777777                 dec     -1\r
+    016514  aa   777777 777777                 dec     -1\r
+    016515  aa   777777 777777                 dec     -1\r
+    016516  aa   777777 777777                 dec     -1\r
+    016517  aa   777777 777777                 dec     -1\r
+    016520  aa   777777 777777                 dec     -1\r
+    016521  aa   777777 777777                 dec     -1\r
+    016522  aa   777777 777777                 dec     -1\r
+    016523  aa   777777 777777                 dec     -1\r
+    016524  aa   777777 777777                 dec     -1\r
+    016525  aa   777777 777777                 dec     -1\r
+    016526  aa   777777 777777                 dec     -1\r
+    016527  aa   777777 777777                 dec     -1\r
+    016530  aa   777777 777777                 dec     -1\r
+    016531  aa   777777 777777                 dec     -1\r
+    016532  aa   777777 777777                 dec     -1\r
+    016533  aa   777777 777777                 dec     -1\r
+    016534  aa   777777 777777                 dec     -1\r
+    016535  aa   777777 777777                 dec     -1\r
+    016536  aa   777777 777777                 dec     -1\r
+    016537  aa   777777 777777                 dec     -1\r
+    016540  aa   777777 777777                 dec     -1\r
+    016541  aa   777777 777777                 dec     -1\r
+    016542  aa   777777 777777                 dec     -1\r
+    016543  aa   777777 777777                 dec     -1\r
+    016544  aa   777777 777777                 dec     -1\r
+    016545  aa   777777 777777                 dec     -1\r
+    016546  aa   777777 777777                 dec     -1\r
+    016547  aa   777777 777777                 dec     -1\r
+    016550  aa   777777 777777                 dec     -1\r
+    016551  aa   777777 777777                 dec     -1\r
+    016552  aa   777777 777777                 dec     -1\r
+    016553  aa   777777 777777                 dec     -1\r
+    016554  aa   777777 777777                 dec     -1\r
+    016555  aa   777777 777777                 dec     -1\r
+    016556  aa   777777 777777                 dec     -1\r
+    016557  aa   777777 777777                 dec     -1\r
+    016560  aa   777777 777777                 dec     -1\r
+    016561  aa   777777 777777                 dec     -1\r
+    016562  aa   777777 777777                 dec     -1\r
+    016563  aa   777777 777777                 dec     -1\r
+    016564  aa   777777 777777                 dec     -1\r
+    016565  aa   777777 777777                 dec     -1\r
+    016566  aa   777777 777777                 dec     -1\r
+    016567  aa   777777 777777                 dec     -1\r
+    016570  aa   777777 777777                 dec     -1\r
+    016571  aa   777777 777777                 dec     -1\r
+    016572  aa   777777 777777                 dec     -1\r
+    016573  aa   777777 777777                 dec     -1\r
+    016574  aa   777777 777777                 dec     -1\r
+    016575  aa   777777 777777                 dec     -1\r
+    016576  aa   777777 777777                 dec     -1\r
+    016577  aa   777777 777777                 dec     -1\r
+    016600  aa   777777 777777                 dec     -1\r
+    016601  aa   777777 777777                 dec     -1\r
+    016602  aa   777777 777777                 dec     -1\r
+    016603  aa   777777 777777                 dec     -1\r
+    016604  aa   777777 777777                 dec     -1\r
+    016605  aa   777777 777777                 dec     -1\r
+    016606  aa   777777 777777                 dec     -1\r
+    016607  aa   777777 777777                 dec     -1\r
+    016610  aa   777777 777777                 dec     -1\r
+    016611  aa   777777 777777                 dec     -1\r
+    016612  aa   777777 777777                 dec     -1\r
+    016613  aa   777777 777777                 dec     -1\r
+    016614  aa   777777 777777                 dec     -1\r
+    016615  aa   777777 777777                 dec     -1\r
+    016616  aa   777777 777777                 dec     -1\r
+    016617  aa   777777 777777                 dec     -1\r
+    016620  aa   777777 777777                 dec     -1\r
+    016621  aa   777777 777777                 dec     -1\r
+    016622  aa   777777 777777                 dec     -1\r
+    016623  aa   777777 777777                 dec     -1\r
+    016624  aa   777777 777777                 dec     -1\r
+    016625  aa   777777 777777                 dec     -1\r
+    016626  aa   777777 777777                 dec     -1\r
+    016627  aa   777777 777777                 dec     -1\r
+    016630  aa   777777 777777                 dec     -1\r
+    016631  aa   777777 777777                 dec     -1\r
+    016632  aa   777777 777777                 dec     -1\r
+    016633  aa   777777 777777                 dec     -1\r
+    016634  aa   777777 777777                 dec     -1\r
+    016635  aa   777777 777777                 dec     -1\r
+    016636  aa   777777 777777                 dec     -1\r
+    016637  aa   777777 777777                 dec     -1\r
+    016640  aa   777777 777777                 dec     -1\r
+    016641  aa   777777 777777                 dec     -1\r
+    016642  aa   777777 777777                 dec     -1\r
+    016643  aa   777777 777777                 dec     -1\r
+    016644  aa   777777 777777                 dec     -1\r
+    016645  aa   777777 777777                 dec     -1\r
+    016646  aa   777777 777777                 dec     -1\r
+    016647  aa   777777 777777                 dec     -1\r
+    016650  aa   777777 777777                 dec     -1\r
+    016651  aa   777777 777777                 dec     -1\r
+    016652  aa   777777 777777                 dec     -1\r
+    016653  aa   777777 777777                 dec     -1\r
+    016654  aa   777777 777777                 dec     -1\r
+    016655  aa   777777 777777                 dec     -1\r
+    016656  aa   777777 777777                 dec     -1\r
+    016657  aa   777777 777777                 dec     -1\r
+    016660  aa   777777 777777                 dec     -1\r
+                                        "\r
+    016661                              trace_tct_byte_1:\r
+    016661  aa   777000 777777                 vfd     9/-1,9/0,9/-1,9/-1\r
+                        000177                 dup     127\r
+    016662  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    016663  aa   777777 777777                 dec     -1\r
+    016664  aa   777777 777777                 dec     -1\r
+    016665  aa   777777 777777                 dec     -1\r
+    016666  aa   777777 777777                 dec     -1\r
+    016667  aa   777777 777777                 dec     -1\r
+    016670  aa   777777 777777                 dec     -1\r
+    016671  aa   777777 777777                 dec     -1\r
+    016672  aa   777777 777777                 dec     -1\r
+    016673  aa   777777 777777                 dec     -1\r
+    016674  aa   777777 777777                 dec     -1\r
+    016675  aa   777777 777777                 dec     -1\r
+    016676  aa   777777 777777                 dec     -1\r
+    016677  aa   777777 777777                 dec     -1\r
+    016700  aa   777777 777777                 dec     -1\r
+    016701  aa   777777 777777                 dec     -1\r
+    016702  aa   777777 777777                 dec     -1\r
+    016703  aa   777777 777777                 dec     -1\r
+    016704  aa   777777 777777                 dec     -1\r
+    016705  aa   777777 777777                 dec     -1\r
+    016706  aa   777777 777777                 dec     -1\r
+    016707  aa   777777 777777                 dec     -1\r
+    016710  aa   777777 777777                 dec     -1\r
+    016711  aa   777777 777777                 dec     -1\r
+    016712  aa   777777 777777                 dec     -1\r
+    016713  aa   777777 777777                 dec     -1\r
+    016714  aa   777777 777777                 dec     -1\r
+    016715  aa   777777 777777                 dec     -1\r
+    016716  aa   777777 777777                 dec     -1\r
+    016717  aa   777777 777777                 dec     -1\r
+    016720  aa   777777 777777                 dec     -1\r
+    016721  aa   777777 777777                 dec     -1\r
+    016722  aa   777777 777777                 dec     -1\r
+    016723  aa   777777 777777                 dec     -1\r
+    016724  aa   777777 777777                 dec     -1\r
+    016725  aa   777777 777777                 dec     -1\r
+    016726  aa   777777 777777                 dec     -1\r
+    016727  aa   777777 777777                 dec     -1\r
+    016730  aa   777777 777777                 dec     -1\r
+    016731  aa   777777 777777                 dec     -1\r
+    016732  aa   777777 777777                 dec     -1\r
+    016733  aa   777777 777777                 dec     -1\r
+    016734  aa   777777 777777                 dec     -1\r
+    016735  aa   777777 777777                 dec     -1\r
+    016736  aa   777777 777777                 dec     -1\r
+    016737  aa   777777 777777                 dec     -1\r
+    016740  aa   777777 777777                 dec     -1\r
+    016741  aa   777777 777777                 dec     -1\r
+    016742  aa   777777 777777                 dec     -1\r
+    016743  aa   777777 777777                 dec     -1\r
+    016744  aa   777777 777777                 dec     -1\r
+    016745  aa   777777 777777                 dec     -1\r
+    016746  aa   777777 777777                 dec     -1\r
+    016747  aa   777777 777777                 dec     -1\r
+    016750  aa   777777 777777                 dec     -1\r
+    016751  aa   777777 777777                 dec     -1\r
+    016752  aa   777777 777777                 dec     -1\r
+    016753  aa   777777 777777                 dec     -1\r
+    016754  aa   777777 777777                 dec     -1\r
+    016755  aa   777777 777777                 dec     -1\r
+    016756  aa   777777 777777                 dec     -1\r
+    016757  aa   777777 777777                 dec     -1\r
+    016760  aa   777777 777777                 dec     -1\r
+    016761  aa   777777 777777                 dec     -1\r
+    016762  aa   777777 777777                 dec     -1\r
+    016763  aa   777777 777777                 dec     -1\r
+    016764  aa   777777 777777                 dec     -1\r
+    016765  aa   777777 777777                 dec     -1\r
+    016766  aa   777777 777777                 dec     -1\r
+    016767  aa   777777 777777                 dec     -1\r
+    016770  aa   777777 777777                 dec     -1\r
+    016771  aa   777777 777777                 dec     -1\r
+    016772  aa   777777 777777                 dec     -1\r
+    016773  aa   777777 777777                 dec     -1\r
+    016774  aa   777777 777777                 dec     -1\r
+    016775  aa   777777 777777                 dec     -1\r
+    016776  aa   777777 777777                 dec     -1\r
+    016777  aa   777777 777777                 dec     -1\r
+    017000  aa   777777 777777                 dec     -1\r
+    017001  aa   777777 777777                 dec     -1\r
+    017002  aa   777777 777777                 dec     -1\r
+    017003  aa   777777 777777                 dec     -1\r
+    017004  aa   777777 777777                 dec     -1\r
+    017005  aa   777777 777777                 dec     -1\r
+    017006  aa   777777 777777                 dec     -1\r
+    017007  aa   777777 777777                 dec     -1\r
+    017010  aa   777777 777777                 dec     -1\r
+    017011  aa   777777 777777                 dec     -1\r
+    017012  aa   777777 777777                 dec     -1\r
+    017013  aa   777777 777777                 dec     -1\r
+    017014  aa   777777 777777                 dec     -1\r
+    017015  aa   777777 777777                 dec     -1\r
+    017016  aa   777777 777777                 dec     -1\r
+    017017  aa   777777 777777                 dec     -1\r
+    017020  aa   777777 777777                 dec     -1\r
+    017021  aa   777777 777777                 dec     -1\r
+    017022  aa   777777 777777                 dec     -1\r
+    017023  aa   777777 777777                 dec     -1\r
+    017024  aa   777777 777777                 dec     -1\r
+    017025  aa   777777 777777                 dec     -1\r
+    017026  aa   777777 777777                 dec     -1\r
+    017027  aa   777777 777777                 dec     -1\r
+    017030  aa   777777 777777                 dec     -1\r
+    017031  aa   777777 777777                 dec     -1\r
+    017032  aa   777777 777777                 dec     -1\r
+    017033  aa   777777 777777                 dec     -1\r
+    017034  aa   777777 777777                 dec     -1\r
+    017035  aa   777777 777777                 dec     -1\r
+    017036  aa   777777 777777                 dec     -1\r
+    017037  aa   777777 777777                 dec     -1\r
+    017040  aa   777777 777777                 dec     -1\r
+    017041  aa   777777 777777                 dec     -1\r
+    017042  aa   777777 777777                 dec     -1\r
+    017043  aa   777777 777777                 dec     -1\r
+    017044  aa   777777 777777                 dec     -1\r
+    017045  aa   777777 777777                 dec     -1\r
+    017046  aa   777777 777777                 dec     -1\r
+    017047  aa   777777 777777                 dec     -1\r
+    017050  aa   777777 777777                 dec     -1\r
+    017051  aa   777777 777777                 dec     -1\r
+    017052  aa   777777 777777                 dec     -1\r
+    017053  aa   777777 777777                 dec     -1\r
+    017054  aa   777777 777777                 dec     -1\r
+    017055  aa   777777 777777                 dec     -1\r
+    017056  aa   777777 777777                 dec     -1\r
+    017057  aa   777777 777777                 dec     -1\r
+    017060  aa   777777 777777                 dec     -1\r
+                                        "\r
+    017061                              trace_tct_byte_2:\r
+    017061  aa   777777 000777                 vfd     9/-1,9/-1,9/0,9/-1\r
+                        000177                 dup     127\r
+    017062  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    017063  aa   777777 777777                 dec     -1\r
+    017064  aa   777777 777777                 dec     -1\r
+    017065  aa   777777 777777                 dec     -1\r
+    017066  aa   777777 777777                 dec     -1\r
+    017067  aa   777777 777777                 dec     -1\r
+    017070  aa   777777 777777                 dec     -1\r
+    017071  aa   777777 777777                 dec     -1\r
+    017072  aa   777777 777777                 dec     -1\r
+    017073  aa   777777 777777                 dec     -1\r
+    017074  aa   777777 777777                 dec     -1\r
+    017075  aa   777777 777777                 dec     -1\r
+    017076  aa   777777 777777                 dec     -1\r
+    017077  aa   777777 777777                 dec     -1\r
+    017100  aa   777777 777777                 dec     -1\r
+    017101  aa   777777 777777                 dec     -1\r
+    017102  aa   777777 777777                 dec     -1\r
+    017103  aa   777777 777777                 dec     -1\r
+    017104  aa   777777 777777                 dec     -1\r
+    017105  aa   777777 777777                 dec     -1\r
+    017106  aa   777777 777777                 dec     -1\r
+    017107  aa   777777 777777                 dec     -1\r
+    017110  aa   777777 777777                 dec     -1\r
+    017111  aa   777777 777777                 dec     -1\r
+    017112  aa   777777 777777                 dec     -1\r
+    017113  aa   777777 777777                 dec     -1\r
+    017114  aa   777777 777777                 dec     -1\r
+    017115  aa   777777 777777                 dec     -1\r
+    017116  aa   777777 777777                 dec     -1\r
+    017117  aa   777777 777777                 dec     -1\r
+    017120  aa   777777 777777                 dec     -1\r
+    017121  aa   777777 777777                 dec     -1\r
+    017122  aa   777777 777777                 dec     -1\r
+    017123  aa   777777 777777                 dec     -1\r
+    017124  aa   777777 777777                 dec     -1\r
+    017125  aa   777777 777777                 dec     -1\r
+    017126  aa   777777 777777                 dec     -1\r
+    017127  aa   777777 777777                 dec     -1\r
+    017130  aa   777777 777777                 dec     -1\r
+    017131  aa   777777 777777                 dec     -1\r
+    017132  aa   777777 777777                 dec     -1\r
+    017133  aa   777777 777777                 dec     -1\r
+    017134  aa   777777 777777                 dec     -1\r
+    017135  aa   777777 777777                 dec     -1\r
+    017136  aa   777777 777777                 dec     -1\r
+    017137  aa   777777 777777                 dec     -1\r
+    017140  aa   777777 777777                 dec     -1\r
+    017141  aa   777777 777777                 dec     -1\r
+    017142  aa   777777 777777                 dec     -1\r
+    017143  aa   777777 777777                 dec     -1\r
+    017144  aa   777777 777777                 dec     -1\r
+    017145  aa   777777 777777                 dec     -1\r
+    017146  aa   777777 777777                 dec     -1\r
+    017147  aa   777777 777777                 dec     -1\r
+    017150  aa   777777 777777                 dec     -1\r
+    017151  aa   777777 777777                 dec     -1\r
+    017152  aa   777777 777777                 dec     -1\r
+    017153  aa   777777 777777                 dec     -1\r
+    017154  aa   777777 777777                 dec     -1\r
+    017155  aa   777777 777777                 dec     -1\r
+    017156  aa   777777 777777                 dec     -1\r
+    017157  aa   777777 777777                 dec     -1\r
+    017160  aa   777777 777777                 dec     -1\r
+    017161  aa   777777 777777                 dec     -1\r
+    017162  aa   777777 777777                 dec     -1\r
+    017163  aa   777777 777777                 dec     -1\r
+    017164  aa   777777 777777                 dec     -1\r
+    017165  aa   777777 777777                 dec     -1\r
+    017166  aa   777777 777777                 dec     -1\r
+    017167  aa   777777 777777                 dec     -1\r
+    017170  aa   777777 777777                 dec     -1\r
+    017171  aa   777777 777777                 dec     -1\r
+    017172  aa   777777 777777                 dec     -1\r
+    017173  aa   777777 777777                 dec     -1\r
+    017174  aa   777777 777777                 dec     -1\r
+    017175  aa   777777 777777                 dec     -1\r
+    017176  aa   777777 777777                 dec     -1\r
+    017177  aa   777777 777777                 dec     -1\r
+    017200  aa   777777 777777                 dec     -1\r
+    017201  aa   777777 777777                 dec     -1\r
+    017202  aa   777777 777777                 dec     -1\r
+    017203  aa   777777 777777                 dec     -1\r
+    017204  aa   777777 777777                 dec     -1\r
+    017205  aa   777777 777777                 dec     -1\r
+    017206  aa   777777 777777                 dec     -1\r
+    017207  aa   777777 777777                 dec     -1\r
+    017210  aa   777777 777777                 dec     -1\r
+    017211  aa   777777 777777                 dec     -1\r
+    017212  aa   777777 777777                 dec     -1\r
+    017213  aa   777777 777777                 dec     -1\r
+    017214  aa   777777 777777                 dec     -1\r
+    017215  aa   777777 777777                 dec     -1\r
+    017216  aa   777777 777777                 dec     -1\r
+    017217  aa   777777 777777                 dec     -1\r
+    017220  aa   777777 777777                 dec     -1\r
+    017221  aa   777777 777777                 dec     -1\r
+    017222  aa   777777 777777                 dec     -1\r
+    017223  aa   777777 777777                 dec     -1\r
+    017224  aa   777777 777777                 dec     -1\r
+    017225  aa   777777 777777                 dec     -1\r
+    017226  aa   777777 777777                 dec     -1\r
+    017227  aa   777777 777777                 dec     -1\r
+    017230  aa   777777 777777                 dec     -1\r
+    017231  aa   777777 777777                 dec     -1\r
+    017232  aa   777777 777777                 dec     -1\r
+    017233  aa   777777 777777                 dec     -1\r
+    017234  aa   777777 777777                 dec     -1\r
+    017235  aa   777777 777777                 dec     -1\r
+    017236  aa   777777 777777                 dec     -1\r
+    017237  aa   777777 777777                 dec     -1\r
+    017240  aa   777777 777777                 dec     -1\r
+    017241  aa   777777 777777                 dec     -1\r
+    017242  aa   777777 777777                 dec     -1\r
+    017243  aa   777777 777777                 dec     -1\r
+    017244  aa   777777 777777                 dec     -1\r
+    017245  aa   777777 777777                 dec     -1\r
+    017246  aa   777777 777777                 dec     -1\r
+    017247  aa   777777 777777                 dec     -1\r
+    017250  aa   777777 777777                 dec     -1\r
+    017251  aa   777777 777777                 dec     -1\r
+    017252  aa   777777 777777                 dec     -1\r
+    017253  aa   777777 777777                 dec     -1\r
+    017254  aa   777777 777777                 dec     -1\r
+    017255  aa   777777 777777                 dec     -1\r
+    017256  aa   777777 777777                 dec     -1\r
+    017257  aa   777777 777777                 dec     -1\r
+    017260  aa   777777 777777                 dec     -1\r
+                                        "\r
+    017261                              trace_tct_byte_3:\r
+    017261  aa   777777 777000                 vfd     9/-1,9/-1,9/-1,9/0\r
+                        000177                 dup     127\r
+    017262  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    017263  aa   777777 777777                 dec     -1\r
+    017264  aa   777777 777777                 dec     -1\r
+    017265  aa   777777 777777                 dec     -1\r
+    017266  aa   777777 777777                 dec     -1\r
+    017267  aa   777777 777777                 dec     -1\r
+    017270  aa   777777 777777                 dec     -1\r
+    017271  aa   777777 777777                 dec     -1\r
+    017272  aa   777777 777777                 dec     -1\r
+    017273  aa   777777 777777                 dec     -1\r
+    017274  aa   777777 777777                 dec     -1\r
+    017275  aa   777777 777777                 dec     -1\r
+    017276  aa   777777 777777                 dec     -1\r
+    017277  aa   777777 777777                 dec     -1\r
+    017300  aa   777777 777777                 dec     -1\r
+    017301  aa   777777 777777                 dec     -1\r
+    017302  aa   777777 777777                 dec     -1\r
+    017303  aa   777777 777777                 dec     -1\r
+    017304  aa   777777 777777                 dec     -1\r
+    017305  aa   777777 777777                 dec     -1\r
+    017306  aa   777777 777777                 dec     -1\r
+    017307  aa   777777 777777                 dec     -1\r
+    017310  aa   777777 777777                 dec     -1\r
+    017311  aa   777777 777777                 dec     -1\r
+    017312  aa   777777 777777                 dec     -1\r
+    017313  aa   777777 777777                 dec     -1\r
+    017314  aa   777777 777777                 dec     -1\r
+    017315  aa   777777 777777                 dec     -1\r
+    017316  aa   777777 777777                 dec     -1\r
+    017317  aa   777777 777777                 dec     -1\r
+    017320  aa   777777 777777                 dec     -1\r
+    017321  aa   777777 777777                 dec     -1\r
+    017322  aa   777777 777777                 dec     -1\r
+    017323  aa   777777 777777                 dec     -1\r
+    017324  aa   777777 777777                 dec     -1\r
+    017325  aa   777777 777777                 dec     -1\r
+    017326  aa   777777 777777                 dec     -1\r
+    017327  aa   777777 777777                 dec     -1\r
+    017330  aa   777777 777777                 dec     -1\r
+    017331  aa   777777 777777                 dec     -1\r
+    017332  aa   777777 777777                 dec     -1\r
+    017333  aa   777777 777777                 dec     -1\r
+    017334  aa   777777 777777                 dec     -1\r
+    017335  aa   777777 777777                 dec     -1\r
+    017336  aa   777777 777777                 dec     -1\r
+    017337  aa   777777 777777                 dec     -1\r
+    017340  aa   777777 777777                 dec     -1\r
+    017341  aa   777777 777777                 dec     -1\r
+    017342  aa   777777 777777                 dec     -1\r
+    017343  aa   777777 777777                 dec     -1\r
+    017344  aa   777777 777777                 dec     -1\r
+    017345  aa   777777 777777                 dec     -1\r
+    017346  aa   777777 777777                 dec     -1\r
+    017347  aa   777777 777777                 dec     -1\r
+    017350  aa   777777 777777                 dec     -1\r
+    017351  aa   777777 777777                 dec     -1\r
+    017352  aa   777777 777777                 dec     -1\r
+    017353  aa   777777 777777                 dec     -1\r
+    017354  aa   777777 777777                 dec     -1\r
+    017355  aa   777777 777777                 dec     -1\r
+    017356  aa   777777 777777                 dec     -1\r
+    017357  aa   777777 777777                 dec     -1\r
+    017360  aa   777777 777777                 dec     -1\r
+    017361  aa   777777 777777                 dec     -1\r
+    017362  aa   777777 777777                 dec     -1\r
+    017363  aa   777777 777777                 dec     -1\r
+    017364  aa   777777 777777                 dec     -1\r
+    017365  aa   777777 777777                 dec     -1\r
+    017366  aa   777777 777777                 dec     -1\r
+    017367  aa   777777 777777                 dec     -1\r
+    017370  aa   777777 777777                 dec     -1\r
+    017371  aa   777777 777777                 dec     -1\r
+    017372  aa   777777 777777                 dec     -1\r
+    017373  aa   777777 777777                 dec     -1\r
+    017374  aa   777777 777777                 dec     -1\r
+    017375  aa   777777 777777                 dec     -1\r
+    017376  aa   777777 777777                 dec     -1\r
+    017377  aa   777777 777777                 dec     -1\r
+    017400  aa   777777 777777                 dec     -1\r
+    017401  aa   777777 777777                 dec     -1\r
+    017402  aa   777777 777777                 dec     -1\r
+    017403  aa   777777 777777                 dec     -1\r
+    017404  aa   777777 777777                 dec     -1\r
+    017405  aa   777777 777777                 dec     -1\r
+    017406  aa   777777 777777                 dec     -1\r
+    017407  aa   777777 777777                 dec     -1\r
+    017410  aa   777777 777777                 dec     -1\r
+    017411  aa   777777 777777                 dec     -1\r
+    017412  aa   777777 777777                 dec     -1\r
+    017413  aa   777777 777777                 dec     -1\r
+    017414  aa   777777 777777                 dec     -1\r
+    017415  aa   777777 777777                 dec     -1\r
+    017416  aa   777777 777777                 dec     -1\r
+    017417  aa   777777 777777                 dec     -1\r
+    017420  aa   777777 777777                 dec     -1\r
+    017421  aa   777777 777777                 dec     -1\r
+    017422  aa   777777 777777                 dec     -1\r
+    017423  aa   777777 777777                 dec     -1\r
+    017424  aa   777777 777777                 dec     -1\r
+    017425  aa   777777 777777                 dec     -1\r
+    017426  aa   777777 777777                 dec     -1\r
+    017427  aa   777777 777777                 dec     -1\r
+    017430  aa   777777 777777                 dec     -1\r
+    017431  aa   777777 777777                 dec     -1\r
+    017432  aa   777777 777777                 dec     -1\r
+    017433  aa   777777 777777                 dec     -1\r
+    017434  aa   777777 777777                 dec     -1\r
+    017435  aa   777777 777777                 dec     -1\r
+    017436  aa   777777 777777                 dec     -1\r
+    017437  aa   777777 777777                 dec     -1\r
+    017440  aa   777777 777777                 dec     -1\r
+    017441  aa   777777 777777                 dec     -1\r
+    017442  aa   777777 777777                 dec     -1\r
+    017443  aa   777777 777777                 dec     -1\r
+    017444  aa   777777 777777                 dec     -1\r
+    017445  aa   777777 777777                 dec     -1\r
+    017446  aa   777777 777777                 dec     -1\r
+    017447  aa   777777 777777                 dec     -1\r
+    017450  aa   777777 777777                 dec     -1\r
+    017451  aa   777777 777777                 dec     -1\r
+    017452  aa   777777 777777                 dec     -1\r
+    017453  aa   777777 777777                 dec     -1\r
+    017454  aa   777777 777777                 dec     -1\r
+    017455  aa   777777 777777                 dec     -1\r
+    017456  aa   777777 777777                 dec     -1\r
+    017457  aa   777777 777777                 dec     -1\r
+    017460  aa   777777 777777                 dec     -1\r
+                                        "\r
+                                        "      The number of words per segment of a FORTRAN Very Large Array.\r
+                                        "\r
+    017461                              trace_VLA_words_per_seg_:\r
+    017461  aa   000001 000000                 vfd     36/256*1024\r
+                                        "\r
+                                        "      table of csl's for use by bool builtin function\r
+                                        "\r
+    017462                              trace_csl_vector:\r
+    017462  aa  0 00140 0605 40                csl     (pr,rl),(pr,rl),bool(0)\r
+    017463  aa  0 01140 0605 40                csl     (pr,rl),(pr,rl),bool(1)\r
+    017464  aa  0 02140 0605 40                csl     (pr,rl),(pr,rl),bool(2)\r
+    017465  aa  0 03140 0605 40                csl     (pr,rl),(pr,rl),bool(3)\r
+    017466  aa  0 04140 0605 40                csl     (pr,rl),(pr,rl),bool(4)\r
+    017467  aa  0 05140 0605 40                csl     (pr,rl),(pr,rl),bool(5)\r
+    017470  aa  0 06140 0605 40                csl     (pr,rl),(pr,rl),bool(6)\r
+    017471  aa  0 07140 0605 40                csl     (pr,rl),(pr,rl),bool(7)\r
+    017472  aa  0 10140 0605 40                csl     (pr,rl),(pr,rl),bool(10)\r
+    017473  aa  0 11140 0605 40                csl     (pr,rl),(pr,rl),bool(11)\r
+    017474  aa  0 12140 0605 40                csl     (pr,rl),(pr,rl),bool(12)\r
+    017475  aa  0 13140 0605 40                csl     (pr,rl),(pr,rl),bool(13)\r
+    017476  aa  0 14140 0605 40                csl     (pr,rl),(pr,rl),bool(14)\r
+    017477  aa  0 15140 0605 40                csl     (pr,rl),(pr,rl),bool(15)\r
+    017500  aa  0 16140 0605 40                csl     (pr,rl),(pr,rl),bool(16)\r
+    017501  aa  0 17140 0605 40                csl     (pr,rl),(pr,rl),bool(17)\r
+                                        "\r
+                                        "      shift table for character offset\r
+                                        "\r
+    017502  aa   000000 000000          trace_co_to_bo:        dec     0,9b17,18b17,27b17\r
+    017503  aa   000011 000000 \r
+    017504  aa   000022 000000 \r
+    017505  aa   000033 000000 \r
+                                        "\r
+                                        "      shift table for half word offset\r
+                                        "\r
+    017506  aa   000000 000000          trace_ho_to_bo:        dec     0,18b17\r
+    017507  aa   000022 000000 \r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017510                              trace_store_a9_co:\r
+    017510  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    017511  aa  2 00000 5511 20                stba    bp|0,20         1\r
+    017512  aa  2 00000 5511 10                stba    bp|0,10         2\r
+    017513  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    017514  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    017515  aa  2 00000 5511 30                stba    bp|0,30         1\r
+    017516  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    017517  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    017520  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    017521  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    017522  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    017523  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    017524  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    017525  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    017526  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    017527  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    017530  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    017531  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    017532  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    017533  aa  2 00000 5511 04                stba    bp|0,04         3\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017534                              trace_store_q9_co:\r
+    017534  aa   000000 0110 07                nop     0,dl            0       2\r
+    017535  aa   000000 0110 07                nop     0,dl            1\r
+    017536  aa   000000 0110 07                nop     0,dl            2\r
+    017537  aa  2 00001 5521 40                stbq    bp|1,40         3\r
+    017540  aa   000000 0110 07                nop     0,dl            0       3\r
+    017541  aa   000000 0110 07                nop     0,dl            1\r
+    017542  aa  2 00001 5521 40                stbq    bp|1,40         2\r
+    017543  aa  2 00001 5521 60                stbq    bp|1,60         3\r
+    017544  aa   000000 0110 07                nop     0,dl            0       4\r
+    017545  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    017546  aa  2 00001 5521 60                stbq    bp|1,60         2\r
+    017547  aa  2 00001 5521 70                stbq    bp|1,70         3\r
+    017550  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    017551  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    017552  aa  2 00001 5521 70                stbq    bp|1,70         2\r
+    017553  aa  2 00001 7561 00                stq     bp|1            3\r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017554                              trace_store_a9_ho:\r
+    017554  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    017555  aa  2 00000 5511 10                stba    bp|0,10         1\r
+    017556  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    017557  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    017560  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    017561  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    017562  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    017563  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    017564  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    017565  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    017566  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    017567  aa  2 00000 5511 14                stba    bp|0,14         1\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017570                              trace_store_q9_ho:\r
+    017570  aa   000000 0110 07                nop     0,dl            0       2\r
+    017571  aa   000000 0110 07                nop     0,dl            1\r
+    017572  aa   000000 0110 07                nop     0,dl            0       3\r
+    017573  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    017574  aa   000000 0110 07                nop     0,dl            0       4\r
+    017575  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    017576  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    017577  aa  2 00001 5521 70                stbq    bp|1,70         1\r
+    017600  aa  2 00001 5521 60                stbq    bp|1,60         0       6\r
+    017601  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        "      store table from a, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017602                              trace_store_a6_ho:\r
+    017602  aa  2 00000 7511 40                stca    bp|0,40         0       1\r
+    017603  aa  2 00000 7511 04                stca    bp|0,04         1\r
+    017604  aa  2 00000 7511 60                stca    bp|0,60         0       2\r
+    017605  aa  2 00000 7511 06                stca    bp|0,06         1\r
+    017606  aa  2 00000 7511 70                stca    bp|0,70         0       3\r
+    017607  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017610  aa  2 00000 7511 74                stca    bp|0,74         0       4\r
+    017611  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017612  aa  2 00000 7511 76                stca    bp|0,76         0       5\r
+    017613  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017614  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    017615  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017616  aa  2 00000 7551 00                sta     bp|0            0       7\r
+    017617  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017620  aa  2 00000 7551 00                sta     bp|0            0       8\r
+    017621  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    017622  aa  2 00000 7551 00                sta     bp|0            0       9\r
+    017623  aa  2 00000 7511 07                stca    bp|0,07         1\r
+                                        "\r
+                                        "      store table from q, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    017624                              trace_store_q6_ho:\r
+    017624  aa   000000 0110 07                nop     0,dl            0       2\r
+    017625  aa   000000 0110 07                nop     0,dl            1\r
+    017626  aa   000000 0110 07                nop     0,dl            0       3\r
+    017627  aa   000000 0110 07                nop     0,dl            1\r
+    017630  aa   000000 0110 07                nop     0,dl            0       4\r
+    017631  aa  2 00001 7521 40                stcq    bp|1,40         1\r
+    017632  aa   000000 0110 07                nop     0,dl            0       5\r
+    017633  aa  2 00001 7521 60                stcq    bp|1,60         1\r
+    017634  aa   000000 0110 07                nop     0,dl            0       6\r
+    017635  aa  2 00001 7521 70                stcq    bp|1,70         1\r
+    017636  aa  2 00001 7521 40                stcq    bp|1,40         0       7\r
+    017637  aa  2 00001 7521 74                stcq    bp|1,74         1\r
+    017640  aa  2 00001 7521 60                stcq    bp|1,60         0       8\r
+    017641  aa  2 00001 7521 76                stcq    bp|1,76         1\r
+    017642  aa  2 00001 7521 70                stcq    bp|1,70         0       9\r
+    017643  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        " THE FOLLOWING SECTION IS DIRECTLY REFERENCED FROM PL/1 PROGRAMS BY MEANS OF\r
+                                        " ap|offset.  FOR THIS REASON, THE ORDER OF THE FOLLOWING INSTRUCTIONS MUST\r
+                                        " NOT BE CHANGED.\r
+                                        "\r
+    017644                              trace_operator_table:\r
+    017644                              trace_bit_mask:\r
+    017644  aa   000000 000000                 vfd     0/-1,72/0\r
+    017645  aa   000000 000000 \r
+    017646  aa   400000 000000                 vfd     1/-1,71/0\r
+    017647  aa   000000 000000 \r
+    017650  aa   600000 000000                 vfd     2/-1,70/0\r
+    017651  aa   000000 000000 \r
+    017652  aa   700000 000000                 vfd     3/-1,69/0\r
+    017653  aa   000000 000000 \r
+    017654  aa   740000 000000                 vfd     4/-1,68/0\r
+    017655  aa   000000 000000 \r
+    017656  aa   760000 000000                 vfd     5/-1,67/0\r
+    017657  aa   000000 000000 \r
+    017660  aa   770000 000000                 vfd     6/-1,66/0\r
+    017661  aa   000000 000000 \r
+    017662  aa   774000 000000                 vfd     7/-1,65/0\r
+    017663  aa   000000 000000 \r
+    017664  aa   776000 000000                 vfd     8/-1,64/0\r
+    017665  aa   000000 000000 \r
+    017666  aa   777000 000000                 vfd     9/-1,63/0\r
+    017667  aa   000000 000000 \r
+    017670  aa   777400 000000                 vfd     10/-1,62/0\r
+    017671  aa   000000 000000 \r
+    017672  aa   777600 000000                 vfd     11/-1,61/0\r
+    017673  aa   000000 000000 \r
+    017674  aa   777700 000000                 vfd     12/-1,60/0\r
+    017675  aa   000000 000000 \r
+    017676  aa   777740 000000                 vfd     13/-1,59/0\r
+    017677  aa   000000 000000 \r
+    017700  aa   777760 000000                 vfd     14/-1,58/0\r
+    017701  aa   000000 000000 \r
+    017702  aa   777770 000000                 vfd     15/-1,57/0\r
+    017703  aa   000000 000000 \r
+    017704  aa   777774 000000                 vfd     16/-1,56/0\r
+    017705  aa   000000 000000 \r
+    017706  aa   777776 000000                 vfd     17/-1,55/0\r
+    017707  aa   000000 000000 \r
+    017710  aa   777777 000000                 vfd     18/-1,54/0\r
+    017711  aa   000000 000000 \r
+    017712  aa   777777 400000                 vfd     19/-1,53/0\r
+    017713  aa   000000 000000 \r
+    017714  aa   777777 600000                 vfd     20/-1,52/0\r
+    017715  aa   000000 000000 \r
+    017716  aa   777777 700000                 vfd     21/-1,51/0\r
+    017717  aa   000000 000000 \r
+    017720  aa   777777 740000                 vfd     22/-1,50/0\r
+    017721  aa   000000 000000 \r
+    017722  aa   777777 760000                 vfd     23/-1,49/0\r
+    017723  aa   000000 000000 \r
+    017724  aa   777777 770000                 vfd     24/-1,48/0\r
+    017725  aa   000000 000000 \r
+    017726  aa   777777 774000                 vfd     25/-1,47/0\r
+    017727  aa   000000 000000 \r
+    017730  aa   777777 776000                 vfd     26/-1,46/0\r
+    017731  aa   000000 000000 \r
+    017732  aa   777777 777000                 vfd     27/-1,45/0\r
+    017733  aa   000000 000000 \r
+    017734  aa   777777 777400                 vfd     28/-1,44/0\r
+    017735  aa   000000 000000 \r
+    017736  aa   777777 777600                 vfd     29/-1,43/0\r
+    017737  aa   000000 000000 \r
+    017740  aa   777777 777700                 vfd     30/-1,42/0\r
+    017741  aa   000000 000000 \r
+    017742  aa   777777 777740                 vfd     31/-1,41/0\r
+    017743  aa   000000 000000 \r
+    017744  aa   777777 777760                 vfd     32/-1,40/0\r
+    017745  aa   000000 000000 \r
+    017746  aa   777777 777770                 vfd     33/-1,39/0\r
+    017747  aa   000000 000000 \r
+    017750  aa   777777 777774                 vfd     34/-1,38/0\r
+    017751  aa   000000 000000 \r
+    017752  aa   777777 777776                 vfd     35/-1,37/0\r
+    017753  aa   000000 000000 \r
+    017754  aa   777777 777777          trace_ones:    vfd     36/-1,36/0\r
+    017755  aa   000000 000000 \r
+    017756  aa   777777 777777                 vfd     36/-1,1/-1,35/0\r
+    017757  aa   400000 000000 \r
+    017760  aa   777777 777777                 vfd     36/-1,2/-1,34/0\r
+    017761  aa   600000 000000 \r
+    017762  aa   777777 777777                 vfd     36/-1,3/-1,33/0\r
+    017763  aa   700000 000000 \r
+    017764  aa   777777 777777                 vfd     36/-1,4/-1,32/0\r
+    017765  aa   740000 000000 \r
+    017766  aa   777777 777777                 vfd     36/-1,5/-1,31/0\r
+    017767  aa   760000 000000 \r
+    017770  aa   777777 777777                 vfd     36/-1,6/-1,30/0\r
+    017771  aa   770000 000000 \r
+    017772  aa   777777 777777                 vfd     36/-1,7/-1,29/0\r
+    017773  aa   774000 000000 \r
+    017774  aa   777777 777777                 vfd     36/-1,8/-1,28/0\r
+    017775  aa   776000 000000 \r
+    017776  aa   777777 777777                 vfd     36/-1,9/-1,27/0\r
+    017777  aa   777000 000000 \r
+    020000  aa   777777 777777                 vfd     36/-1,10/-1,26/0\r
+    020001  aa   777400 000000 \r
+    020002  aa   777777 777777                 vfd     36/-1,11/-1,25/0\r
+    020003  aa   777600 000000 \r
+    020004  aa   777777 777777                 vfd     36/-1,12/-1,24/0\r
+    020005  aa   777700 000000 \r
+    020006  aa   777777 777777                 vfd     36/-1,13/-1,23/0\r
+    020007  aa   777740 000000 \r
+    020010  aa   777777 777777                 vfd     36/-1,14/-1,22/0\r
+    020011  aa   777760 000000 \r
+    020012  aa   777777 777777                 vfd     36/-1,15/-1,21/0\r
+    020013  aa   777770 000000 \r
+    020014  aa   777777 777777                 vfd     36/-1,16/-1,20/0\r
+    020015  aa   777774 000000 \r
+    020016  aa   777777 777777                 vfd     36/-1,17/-1,19/0\r
+    020017  aa   777776 000000 \r
+    020020  aa   777777 777777                 vfd     36/-1,18/-1,18/0\r
+    020021  aa   777777 000000 \r
+    020022  aa   777777 777777                 vfd     36/-1,19/-1,17/0\r
+    020023  aa   777777 400000 \r
+    020024  aa   777777 777777                 vfd     36/-1,20/-1,16/0\r
+    020025  aa   777777 600000 \r
+    020026  aa   777777 777777                 vfd     36/-1,21/-1,15/0\r
+    020027  aa   777777 700000 \r
+    020030  aa   777777 777777                 vfd     36/-1,22/-1,14/0\r
+    020031  aa   777777 740000 \r
+    020032  aa   777777 777777                 vfd     36/-1,23/-1,13/0\r
+    020033  aa   777777 760000 \r
+    020034  aa   777777 777777                 vfd     36/-1,24/-1,12/0\r
+    020035  aa   777777 770000 \r
+    020036  aa   777777 777777                 vfd     36/-1,25/-1,11/0\r
+    020037  aa   777777 774000 \r
+    020040  aa   777777 777777                 vfd     36/-1,26/-1,10/0\r
+    020041  aa   777777 776000 \r
+    020042  aa   777777 777777                 vfd     36/-1,27/-1,9/0\r
+    020043  aa   777777 777000 \r
+    020044  aa   777777 777777                 vfd     36/-1,28/-1,8/0\r
+    020045  aa   777777 777400 \r
+    020046  aa   777777 777777                 vfd     36/-1,29/-1,7/0\r
+    020047  aa   777777 777600 \r
+    020050  aa   777777 777777                 vfd     36/-1,30/-1,6/0\r
+    020051  aa   777777 777700 \r
+    020052  aa   777777 777777                 vfd     36/-1,31/-1,5/0\r
+    020053  aa   777777 777740 \r
+    020054  aa   777777 777777                 vfd     36/-1,32/-1,4/0\r
+    020055  aa   777777 777760 \r
+    020056  aa   777777 777777                 vfd     36/-1,33/-1,3/0\r
+    020057  aa   777777 777770 \r
+    020060  aa   777777 777777                 vfd     36/-1,34/-1,2/0\r
+    020061  aa   777777 777774 \r
+    020062  aa   777777 777777                 vfd     36/-1,35/-1,1/0\r
+    020063  aa   777777 777776 \r
+                                        "\r
+    020064                              trace_mask_bit:\r
+    020064  aa   777777 777777                 vfd     0/0,36/-1,36/-1\r
+    020065  aa   777777 777777 \r
+    020066  aa   377777 777777                 vfd     1/0,35/-1,36/-1\r
+    020067  aa   777777 777777 \r
+    020070  aa   177777 777777                 vfd     2/0,34/-1,36/-1\r
+    020071  aa   777777 777777 \r
+    020072  aa   077777 777777                 vfd     3/0,33/-1,36/-1\r
+    020073  aa   777777 777777 \r
+    020074  aa   037777 777777                 vfd     4/0,32/-1,36/-1\r
+    020075  aa   777777 777777 \r
+    020076  aa   017777 777777                 vfd     5/0,31/-1,36/-1\r
+    020077  aa   777777 777777 \r
+    020100  aa   007777 777777                 vfd     6/0,30/-1,36/-1\r
+    020101  aa   777777 777777 \r
+    020102  aa   003777 777777                 vfd     7/0,29/-1,36/-1\r
+    020103  aa   777777 777777 \r
+    020104  aa   001777 777777                 vfd     8/0,28/-1,36/-1\r
+    020105  aa   777777 777777 \r
+    020106  aa   000777 777777                 vfd     9/0,27/-1,36/-1\r
+    020107  aa   777777 777777 \r
+    020110  aa   000377 777777                 vfd     10/0,26/-1,36/-1\r
+    020111  aa   777777 777777 \r
+    020112  aa   000177 777777                 vfd     11/0,25/-1,36/-1\r
+    020113  aa   777777 777777 \r
+    020114  aa   000077 777777                 vfd     12/0,24/-1,36/-1\r
+    020115  aa   777777 777777 \r
+    020116  aa   000037 777777                 vfd     13/0,23/-1,36/-1\r
+    020117  aa   777777 777777 \r
+    020120  aa   000017 777777                 vfd     14/0,22/-1,36/-1\r
+    020121  aa   777777 777777 \r
+    020122  aa   000007 777777                 vfd     15/0,21/-1,36/-1\r
+    020123  aa   777777 777777 \r
+    020124  aa   000003 777777                 vfd     16/0,20/-1,36/-1\r
+    020125  aa   777777 777777 \r
+    020126  aa   000001 777777                 vfd     17/0,19/-1,36/-1\r
+    020127  aa   777777 777777 \r
+    020130  aa   000000 777777                 vfd     18/0,18/-1,36/-1\r
+    020131  aa   777777 777777 \r
+    020132  aa   000000 377777                 vfd     19/0,17/-1,36/-1\r
+    020133  aa   777777 777777 \r
+    020134  aa   000000 177777                 vfd     20/0,16/-1,36/-1\r
+    020135  aa   777777 777777 \r
+    020136  aa   000000 077777                 vfd     21/0,15/-1,36/-1\r
+    020137  aa   777777 777777 \r
+    020140  aa   000000 037777                 vfd     22/0,14/-1,36/-1\r
+    020141  aa   777777 777777 \r
+    020142  aa   000000 017777                 vfd     23/0,13/-1,36/-1\r
+    020143  aa   777777 777777 \r
+    020144  aa   000000 007777                 vfd     24/0,12/-1,36/-1\r
+    020145  aa   777777 777777 \r
+    020146  aa   000000 003777                 vfd     25/0,11/-1,36/-1\r
+    020147  aa   777777 777777 \r
+    020150  aa   000000 001777                 vfd     26/0,10/-1,36/-1\r
+    020151  aa   777777 777777 \r
+    020152  aa   000000 000777                 vfd     27/0,9/-1,36/-1\r
+    020153  aa   777777 777777 \r
+    020154  aa   000000 000377                 vfd     28/0,8/-1,36/-1\r
+    020155  aa   777777 777777 \r
+    020156  aa   000000 000177                 vfd     29/0,7/-1,36/-1\r
+    020157  aa   777777 777777 \r
+    020160  aa   000000 000077                 vfd     30/0,6/-1,36/-1\r
+    020161  aa   777777 777777 \r
+    020162  aa   000000 000037                 vfd     31/0,5/-1,36/-1\r
+    020163  aa   777777 777777 \r
+    020164  aa   000000 000017                 vfd     32/0,4/-1,36/-1\r
+    020165  aa   777777 777777 \r
+    020166  aa   000000 000007                 vfd     33/0,3/-1,36/-1\r
+    020167  aa   777777 777777 \r
+    020170  aa   000000 000003                 vfd     34/0,2/-1,36/-1\r
+    020171  aa   777777 777777 \r
+    020172  aa   000000 000001                 vfd     35/0,1/-1,36/-1\r
+    020173  aa   777777 777777 \r
+    020174  aa   000000 000000                 vfd     36/0,36/-1\r
+    020175  aa   777777 777777 \r
+    020176                              trace_max_single_value:\r
+    020176  aa   000000 000000                 vfd     37/0,35/-1\r
+    020177  aa   377777 777777 \r
+    020200  aa   000000 000000                 vfd     38/0,34/-1\r
+    020201  aa   177777 777777 \r
+    020202  aa   000000 000000                 vfd     39/0,33/-1\r
+    020203  aa   077777 777777 \r
+    020204  aa   000000 000000                 vfd     40/0,32/-1\r
+    020205  aa   037777 777777 \r
+    020206  aa   000000 000000                 vfd     41/0,31/-1\r
+    020207  aa   017777 777777 \r
+    020210  aa   000000 000000                 vfd     42/0,30/-1\r
+    020211  aa   007777 777777 \r
+    020212  aa   000000 000000                 vfd     43/0,29/-1\r
+    020213  aa   003777 777777 \r
+    020214  aa   000000 000000                 vfd     44/0,28/-1\r
+    020215  aa   001777 777777 \r
+    020216  aa   000000 000000                 vfd     45/0,27/-1\r
+    020217  aa   000777 777777 \r
+    020220  aa   000000 000000                 vfd     46/0,26/-1\r
+    020221  aa   000377 777777 \r
+    020222  aa   000000 000000                 vfd     47/0,25/-1\r
+    020223  aa   000177 777777 \r
+    020224  aa   000000 000000                 vfd     48/0,24/-1\r
+    020225  aa   000077 777777 \r
+    020226  aa   000000 000000                 vfd     49/0,23/-1\r
+    020227  aa   000037 777777 \r
+    020230  aa   000000 000000                 vfd     50/0,22/-1\r
+    020231  aa   000017 777777 \r
+    020232  aa   000000 000000                 vfd     51/0,21/-1\r
+    020233  aa   000007 777777 \r
+    020234  aa   000000 000000                 vfd     52/0,20/-1\r
+    020235  aa   000003 777777 \r
+    020236  aa   000000 000000                 vfd     53/0,19/-1\r
+    020237  aa   000001 777777 \r
+    020240  aa   000000 000000                 vfd     54/0,18/-1\r
+    020241  aa   000000 777777 \r
+    020242  aa   000000 000000                 vfd     55/0,17/-1\r
+    020243  aa   000000 377777 \r
+    020244  aa   000000 000000                 vfd     56/0,16/-1\r
+    020245  aa   000000 177777 \r
+    020246  aa   000000 000000                 vfd     57/0,15/-1\r
+    020247  aa   000000 077777 \r
+    020250  aa   000000 000000                 vfd     58/0,14/-1\r
+    020251  aa   000000 037777 \r
+    020252  aa   000000 000000                 vfd     59/0,13/-1\r
+    020253  aa   000000 017777 \r
+    020254  aa   000000 000000                 vfd     60/0,12/-1\r
+    020255  aa   000000 007777 \r
+    020256  aa   000000 000000                 vfd     61/0,11/-1\r
+    020257  aa   000000 003777 \r
+    020260  aa   000000 000000                 vfd     62/0,10/-1\r
+    020261  aa   000000 001777 \r
+    020262  aa   000000 000000                 vfd     63/0,9/-1\r
+    020263  aa   000000 000777 \r
+    020264  aa   000000 000000                 vfd     64/0,8/-1\r
+    020265  aa   000000 000377 \r
+    020266  aa   000000 000000                 vfd     65/0,7/-1\r
+    020267  aa   000000 000177 \r
+    020270  aa   000000 000000                 vfd     66/0,6/-1\r
+    020271  aa   000000 000077 \r
+    020272  aa   000000 000000                 vfd     67/0,5/-1\r
+    020273  aa   000000 000037 \r
+    020274  aa   000000 000000                 vfd     68/0,4/-1\r
+    020275  aa   000000 000017 \r
+    020276  aa   000000 000000                 vfd     69/0,3/-1\r
+    020277  aa   000000 000007 \r
+    020300  aa   000000 000000                 vfd     70/0,2/-1\r
+    020301  aa   000000 000003 \r
+    020302  aa   000000 000000                 vfd     71/0,1/-1\r
+    020303  aa   000000 000001 \r
+                                        "\r
+    020304  aa   040040 040040          trace_blanks:  oct     040040040040,040040040040\r
+    020305  aa   040040 040040 \r
+    020306  aa   000040 040040                 oct     000040040040,040040040040\r
+    020307  aa   040040 040040 \r
+    020310  aa   000000 040040                 oct     000000040040,040040040040\r
+    020311  aa   040040 040040 \r
+    020312  aa   000000 000040                 oct     000000000040,040040040040\r
+    020313  aa   040040 040040 \r
+    020314  aa   000000 000000                 oct     000000000000,040040040040\r
+    020315  aa   040040 040040 \r
+    020316  aa   000000 000000                 oct     000000000000,000040040040\r
+    020317  aa   000040 040040 \r
+    020320  aa   000000 000000                 oct     000000000000,000000040040\r
+    020321  aa   000000 040040 \r
+    020322  aa   000000 000000                 oct     000000000000,000000000040\r
+    020323  aa   000000 000040 \r
+                                        "\r
+    020324  aa   077777 000077          trace_ptr_mask:        oct     077777000077,777777077077 mask for use in ptr comparisions\r
+    020325  aa   777777 077077 \r
+                                        "\r
+                                        "      operator to convert single fixed to double fixed\r
+                                        "\r
+                                               even\r
+    020326                              trace_fx1_to_fx2:\r
+    020326  aa   000044 7770 00                llr     36\r
+    020327  aa   000044 7330 00                lrs     36\r
+                                        "\r
+                                        "      operators to convert fixed to float\r
+                                        "\r
+    020330  aa   000000 0110 03                odd\r
+    020331                              trace_fx1_to_fl2:\r
+    020331  0a   020326 7170 00                xed     trace_fx1_to_fx2\r
+                                        "\r
+                                               even\r
+    020332                              trace_fx2_to_fl2:\r
+                                        \r
+    020332  aa   216000 4110 03                lde     =71b25,du\r
+    020333  aa   400000 4750 03                fad     =0.,du\r
+    020334  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to reset next stack pointer\r
+                                        "\r
+    020335  aa   000000 0110 03                even\r
+    020336                              trace_reset_stack:\r
+    020336  aa  6 00005 2201 00                ldx0    sp|5\r
+    020337  aa  6 00023 7401 00                stx0    sp|stack_frame.next_sp+1\r
+                                        "\r
+                                        "      operators to convert indicators into relations\r
+                                        "\r
+    020340  0a   002164 6040 00         trace_r_l_a:   tmi     true\r
+    020341  aa   000000 2350 07                lda     0,dl\r
+    020342  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020343  aa   000002 6000 04         trace_r_g_s:   tze     2,ic\r
+    020344  0a   002164 6030 00                trc     true\r
+    020345  aa   000000 2350 07                lda     0,dl\r
+    020346  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020347  aa   000002 6000 04         trace_r_g_a:   tze     2,ic\r
+    020350  0a   002164 6050 00                tpl     true\r
+    020351  aa   000000 2350 07                lda     0,dl\r
+    020352  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020353  0a   002164 6020 00         trace_r_l_s:   tnc     true\r
+    020354  aa   000000 2350 07                lda     0,dl\r
+    020355  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020356  0a   002164 6000 00         trace_r_e_as:  tze     true\r
+    020357  aa   000000 2350 07                lda     0,dl\r
+    020360  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020361  0a   002164 6010 00         trace_r_ne_as: tnz     true\r
+    020362  aa   000000 2350 07                lda     0,dl\r
+    020363  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020364  0a   002164 6040 00         trace_r_le_a:  tmi     true\r
+    020365  0a   002164 6000 00                tze     true\r
+    020366  aa   000000 2350 07                lda     0,dl\r
+    020367  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020370  0a   002164 6030 00         trace_r_ge_s:  trc     true\r
+    020371  aa   000000 2350 07                lda     0,dl\r
+    020372  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020373  0a   002164 6050 00         trace_r_ge_a:  tpl     true\r
+    020374  aa   000000 2350 07                lda     0,dl\r
+    020375  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020376  0a   002164 6020 00         trace_r_le_s:  tnc     true\r
+    020377  0a   002164 6000 00                tze     true\r
+    020400  aa   000000 2350 07                lda     0,dl\r
+    020401  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    020402  aa   400000 2350 03         trace_true:    lda     =o400000,du\r
+    020403  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to set stack ptr to that of block N static\r
+                                        "      levels above the current block.  Entered with N in q.\r
+                                        "      (should not be called with N = 0, but will work anyway.)\r
+                                        "\r
+    020404                              trace_set_stack:\r
+    020404  0a   005674 7010 00                tsx1    display_chase   get ptr to proper frame\r
+    020405  aa  2 00000 3721 00                eppsp   bp|0            into sp\r
+    020406  0a   003276 7100 00                tra     set_stack_extend        do three more instructions (added later\r
+                                        "                              and since compiled code knows offsets in this\r
+                                        "                              area, couldn't add the code inline)\r
+                                        "\r
+                                        "      tables to convert to bit offset ready to be ORed into pointer\r
+                                        "\r
+    020407  aa   000000 000000          trace_mod2_tab:        dec     0,18b26\r
+    020410  aa   000000 022000 \r
+                                        "\r
+    020411  aa   000000 000000          trace_mod4_tab:        dec     0,9b26,18b26,27b26\r
+    020412  aa   000000 011000 \r
+    020413  aa   000000 022000 \r
+    020414  aa   000000 033000 \r
+                                        "\r
+                                        "      transfer vector for operators not referenced directly\r
+                                        "      by the pl/1 program.  new operators may be added at the\r
+                                        "      end of the list only.\r
+                                        "\r
+    020415                              trace_op_vector:\r
+    020415  0a   003140 7100 00                tra     alloc_char_temp 0\r
+    020416  0a   003152 7100 00                tra     alloc_bit_temp  1\r
+    020417  0a   003161 7100 00                tra     alloc_temp      2\r
+    020420  0a   003217 7100 00                tra     realloc_char_temp       3\r
+    020421  0a   003207 7100 00                tra     realloc_bit_temp        4\r
+    020422  0a   003304 7100 00                tra     save_string     5       obsolete\r
+    020423  0a   007646 7100 00                tra     pk_to_unpk      6\r
+    020424  0a   007655 7100 00                tra     unpk_to_pk      7\r
+    020425  0a   003633 7100 00                tra     move_chars      8       obsolete\r
+    020426  0a   003641 7100 00                tra     move_chars_aligned      9       obsolete\r
+    020427  0a   003604 7100 00                tra     move_bits               10      obsolete\r
+    020430  0a   003612 7100 00                tra     move_bits_aligned       11      obsolete\r
+    020431  0a   003727 7100 00                tra     chars_move      12      obsolete\r
+    020432  0a   003740 7100 00                tra     chars_move_aligned      13      obsolete\r
+    020433  0a   003755 7100 00                tra     bits_move               14      obsolete\r
+    020434  0a   003766 7100 00                tra     bits_move_aligned       15      obsolete\r
+    020435  0a   003573 7100 00                tra     move_not_bits   16      obsolete\r
+    020436  0a   003601 7100 00                tra     move_not_bits_aligned 17        obsolete\r
+    020437  0a   003676 7100 00                tra     ext_and_1               18\r
+    020440  0a   003677 7100 00                tra     ext_and_2               19\r
+    020441  0a   003717 7100 00                tra     comp_bits               20\r
+    020442  0a   004371 7100 00                tra     cpbs3           21      obsolete\r
+    020443  0a   004401 7100 00                tra     cpbs3_aligned   22      obsolete\r
+    020444  0a   004377 7100 00                tra     cpbs4           23      obsolete\r
+    020445  0a   004357 7100 00                tra     cpcs_ext1               24\r
+    020446  0a   004360 7100 00                tra     cpcs_ext2               25\r
+    020447  0a   004364 7100 00                tra     cpbs_ext1               26\r
+    020450  0a   004365 7100 00                tra     cpbs_ext2               27\r
+    020451  0a   003354 7100 00                tra     store_string    28\r
+    020452  0a   003215 7100 00                tra     cat_realloc_chars       29\r
+    020453  0a   003177 7100 00                tra     cat_realloc_bits        30\r
+    020454  0a   004320 7100 00                tra     cp_chars                31      obsolete\r
+    020455  0a   004326 7100 00                tra     cp_chars_aligned        32      obsolete\r
+    020456  0a   004340 7100 00                tra     cp_bits         33      obsolete\r
+    020457  0a   004346 7100 00                tra     cp_bits_aligned 34      obsolete\r
+    020460  0a   012372 7100 00                tra     enter_begin_block       35\r
+    020461  0a   005552 7100 00                tra     leave_begin_block       36\r
+    020462  0a   005607 7100 00                tra     call_ent_var_desc       37\r
+    020463  0a   005610 7100 00                tra     call_ent_var    38\r
+    020464  0a   005623 7100 00                tra     call_ext_in_desc        39\r
+    020465  0a   005624 7100 00                tra     call_ext_in     40\r
+    020466  0a   005623 7100 00                tra     call_ext_out_desc       41\r
+    020467  0a   005624 7100 00                tra     call_ext_out    42\r
+    020470  0a   005634 7100 00                tra     call_int_this_desc      43\r
+    020471  0a   005635 7100 00                tra     call_int_this   44\r
+    020472  0a   005645 7100 00                tra     call_int_other_desc     45\r
+    020473  0a   005646 7100 00                tra     call_int_other  46\r
+    020474  0a   005572 7100 00                tra     begin_return_mac        47\r
+    020475  0a   005600 7100 00                tra     return_mac      48\r
+    020476  0a   003654 7100 00                tra     cat_move_chars  49      obsolete\r
+    020477  0a   003662 7100 00                tra     cat_move_chars_aligned 50       obsolete\r
+    020500  0a   003552 7100 00                tra     cat_move_bits   51      obsolete\r
+    020501  0a   003560 7100 00                tra     cat_move_bits_aligned 52        obsolete\r
+    020502  0a   004040 7100 00                tra     cat_chars               53      obsolete\r
+    020503  0a   004046 7100 00                tra     cat_chars_aligned       54      obsolete\r
+    020504  0a   004063 7100 00                tra     cat_bits                55      obsolete\r
+    020505  0a   004071 7100 00                tra     cat_bits_aligned        56      obsolete\r
+    020506  0a   003321 7100 00                tra     set_chars               57      obsolete\r
+    020507  0a   003327 7100 00                tra     set_chars_aligned       58      obsolete\r
+    020510  0a   003342 7100 00                tra     set_bits                59      obsolete\r
+    020511  0a   003350 7100 00                tra     set_bits_aligned        60      obsolete\r
+    020512  0a   003517 7100 00                tra     and_bits                61      obsolete\r
+    020513  0a   003525 7100 00                tra     and_bits_aligned        62      obsolete\r
+    020514  0a   003530 7100 00                tra     or_bits         63      obsolete\r
+    020515  0a   003536 7100 00                tra     or_bits_aligned 64      obsolete\r
+    020516  0a   005660 7100 00                tra     move_label_var  65\r
+    020517  0a   005666 7100 00                tra     make_label_var  66\r
+    020520  0a   006532 7100 00                tra     fl2_to_fx1      67\r
+    020521  0a   006532 7100 00                tra     fl2_to_fx2      68\r
+    020522  0a   007620 7100 00                tra     longbs_to_fx2   69\r
+    020523  0a   007265 7100 00                tra     tra_ext_1               70\r
+    020524  0a   007273 7100 00                tra     tra_ext_2               71\r
+    020525  0a   007301 7100 00                tra     alloc_auto_adj  72\r
+    020526  0a   007636 7100 00                tra     longbs_to_bs18  73\r
+    020527  0a   006553 7100 00                tra     stac_mac                74\r
+    020530  0a   006642 7100 00                tra     sign_mac                75\r
+    020531  0a   010214 7100 00                tra     bound_ck_signal 76\r
+    020532  0a   006650 7100 00                tra     trans_sign_fx1  77\r
+    020533  0a   006660 7100 00                tra     trans_sign_fl   78\r
+    020534  0a   007023 7100 00                tra     copy_words      79      obsolete\r
+    020535  0a   007035 7100 00                tra     mpfx2           80\r
+    020536  0a   007104 7100 00                tra     mpfx3           81\r
+    020537  0a   004445 7100 00                tra     copy_const      82      obsolete\r
+    020540  0a   004444 7100 00                tra     copy_const_vt   83      obsolete\r
+    020541  0a   007205 7100 00                tra     sr_check                84      obsolete\r
+    020542  0a   003726 7100 00                tra     chars_move_vt   85      obsolete\r
+    020543  0a   003737 7100 00                tra     chars_move_vta  86      obsolete\r
+    020544  0a   003754 7100 00                tra     bits_move_vt    87      obsolete\r
+    020545  0a   003765 7100 00                tra     bits_move_vta   88      obsolete\r
+    020546  0a   007314 7100 00                tra     mdfl1           89\r
+    020547  0a   007335 7100 00                tra     mdfl2           90\r
+    020550  0a   005701 7100 00                tra     mdfx1           91\r
+    020551  0a   005716 7100 00                tra     mdfx2           92\r
+    020552  0a   005742 7100 00                tra     mdfx3           93\r
+    020553  0a   005720 7100 00                tra     mdfx4           94\r
+    020554  0a   007033 7100 00                tra     copy_double     95      obsolete\r
+    020555  0a   003371 7100 00                tra     string_store    96      obsolete\r
+    020556  0a   003421 7100 00                tra     get_chars               97      obsolete\r
+    020557  0a   003455 7100 00                tra     get_bits                98      obsolete\r
+    020560  0a   003474 7100 00                tra     pad_chars               99\r
+    020561  0a   003506 7100 00                tra     pad_bits                100\r
+    020562  0a   010210 7100 00                tra     signal_op               101\r
+    020563  0a   010115 7100 00                tra     enable_op               102\r
+    020564  0a   004453 7100 00                tra     index_chars     103     obsolete\r
+    020565  0a   004461 7100 00                tra     index_chars_aligned     104     obsolete\r
+    020566  0a   004611 7100 00                tra     index_bits      105     obsolete\r
+    020567  0a   004617 7100 00                tra     index_bits_aligned      106     obsolete\r
+    020570  0a   003541 7100 00                tra     exor_bits               107     obsolete\r
+    020571  0a   003547 7100 00                tra     exor_bits_aligned       108     obsolete\r
+    020572  0a   003344 7100 00                tra     set_bits_co     109     obsolete\r
+    020573  0a   003346 7100 00                tra     set_bits_ho     110     obsolete\r
+    020574  0a   003323 7100 00                tra     set_chars_co    111     obsolete\r
+    020575  0a   003325 7100 00                tra     set_chars_ho    112     obsolete\r
+    020576  0a   003373 7100 00                tra     string_store_co 113     obsolete\r
+    020577  0a   003402 7100 00                tra     string_store_ho 114     obsolete\r
+    020600  0a   003423 7100 00                tra     get_chars_co    115     obsolete\r
+    020601  0a   003425 7100 00                tra     get_chars_ho    116     obsolete\r
+    020602  0a   003457 7100 00                tra     get_bits_co     117     obsolete\r
+    020603  0a   003461 7100 00                tra     get_bits_ho     118     obsolete\r
+    020604  0a   003521 7100 00                tra     and_bits_co     119     obsolete\r
+    020605  0a   003523 7100 00                tra     and_bits_ho     120     obsolete\r
+    020606  0a   003532 7100 00                tra     or_bits_co      121     obsolete\r
+    020607  0a   003534 7100 00                tra     or_bits_ho      122     obsolete\r
+    020610  0a   003543 7100 00                tra     exor_bits_co    123     obsolete\r
+    020611  0a   003545 7100 00                tra     exor_bits_ho    124     obsolete\r
+    020612  0a   003554 7100 00                tra     cat_move_bits_co        125     obsolete\r
+    020613  0a   003556 7100 00                tra     cat_move_bits_ho        126     obsolete\r
+    020614  0a   003575 7100 00                tra     move_not_bits_co        127     obsolete\r
+    020615  0a   003577 7100 00                tra     move_not_bits_ho        128     obsolete\r
+    020616  0a   003606 7100 00                tra     move_bits_co    129     obsolete\r
+    020617  0a   003610 7100 00                tra     move_bits_ho    130     obsolete\r
+    020620  0a   003635 7100 00                tra     move_chars_co   131     obsolete\r
+    020621  0a   003637 7100 00                tra     move_chars_ho   132     obsolete\r
+    020622  0a   003656 7100 00                tra     cat_move_chars_co       133     obsolete\r
+    020623  0a   003660 7100 00                tra     cat_move_chars_ho       134     obsolete\r
+    020624  0a   004042 7100 00                tra     cat_chars_co    135     obsolete\r
+    020625  0a   004044 7100 00                tra     cat_chars_ho    136     obsolete\r
+    020626  0a   004065 7100 00                tra     cat_bits_co     137     obsolete\r
+    020627  0a   004067 7100 00                tra     cat_bits_ho     138     obsolete\r
+    020630  0a   011335 7100 00                tra     io_signal               139\r
+    020631  0a   004650 7100 00                tra     index_cs_1      140     obsolete\r
+    020632  0a   004656 7100 00                tra     index_cs_1_aligned      141     obsolete\r
+    020633  0a   006670 7100 00                tra     fort_mdfl1      142\r
+    020634  0a   006724 7100 00                tra     rfb1_to_cflb1   143\r
+    020635  0a   006726 7100 00                tra     rfb2_to_cflb1   144\r
+    020636  0a   006734 7100 00                tra     mpcfl1_1                145\r
+    020637  0a   006735 7100 00                tra     mpcfl1_2                146\r
+    020640  0a   006755 7100 00                tra     dvcfl1_1                147\r
+    020641  0a   006756 7100 00                tra     dvcfl1_2                148\r
+    020642  0a   003731 7100 00                tra     chars_move_vt_co        149     obsolete\r
+    020643  0a   003734 7100 00                tra     chars_move_vt_ho        150     obsolete\r
+    020644  0a   003732 7100 00                tra     chars_move_co   151     obsolete\r
+    020645  0a   003735 7100 00                tra     chars_move_ho   152     obsolete\r
+    020646  0a   003757 7100 00                tra     bits_move_vt_co 153     obsolete\r
+    020647  0a   003762 7100 00                tra     bits_move_vt_ho 154     obsolete\r
+    020650  0a   003760 7100 00                tra     bits_move_co    155     obsolete\r
+    020651  0a   003763 7100 00                tra     bits_move_ho    156     obsolete\r
+    020652  0a   004322 7100 00                tra     cp_chars_co     157     obsolete\r
+    020653  0a   004324 7100 00                tra     cp_chars_ho     158     obsolete\r
+    020654  0a   004342 7100 00                tra     cp_bits_co      159     obsolete\r
+    020655  0a   004344 7100 00                tra     cp_bits_ho      160     obsolete\r
+    020656  0a   004373 7100 00                tra     cpbs3_co                161     obsolete\r
+    020657  0a   004375 7100 00                tra     cpbs3_ho                162     obsolete\r
+    020660  0a   003254 7100 00                tra     shorten_stack   163\r
+    020661  0a   004426 7100 00                tra     zero_bits               164     obsolete\r
+    020662  0a   004434 7100 00                tra     zero_bits_aligned       165     obsolete\r
+    020663  0a   004430 7100 00                tra     zero_bits_co    166     obsolete\r
+    020664  0a   004432 7100 00                tra     zero_bits_ho    167     obsolete\r
+    020665  0a   004407 7100 00                tra     blank_chars     168     obsolete\r
+    020666  0a   004415 7100 00                tra     blank_chars_aligned     169     obsolete\r
+    020667  0a   004411 7100 00                tra     blank_chars_co  170     obsolete\r
+    020670  0a   004413 7100 00                tra     blank_chars_ho  171     obsolete\r
+    020671  0a   004455 7100 00                tra     index_chars_co  172     obsolete\r
+    020672  0a   004457 7100 00                tra     index_chars_ho  173     obsolete\r
+    020673  0a   004613 7100 00                tra     index_bits_co   174     obsolete\r
+    020674  0a   004615 7100 00                tra     index_bits_ho   175     obsolete\r
+    020675  0a   004652 7100 00                tra     index_cs_1_co   176     obsolete\r
+    020676  0a   004654 7100 00                tra     index_cs_1_ho   177     obsolete\r
+    020677  0a   004673 7100 00                tra     index_bs_1      178     obsolete\r
+    020700  0a   004701 7100 00                tra     index_bs_1_aligned      179     obsolete\r
+    020701  0a   004675 7100 00                tra     index_bs_1_co   180     obsolete\r
+    020702  0a   004677 7100 00                tra     index_bs_1_ho   181     obsolete\r
+    020703  0a   012452 0000 00                arg     shift_bo                182     obsolete\r
+    020704  0a   005422 7100 00                tra     return_words    183\r
+    020705  0a   005442 7100 00                tra     return_bits     184     obsolete\r
+    020706  0a   005444 7100 00                tra     return_bits_co  185     obsolete\r
+    020707  0a   005446 7100 00                tra     return_bits_ho  186     obsolete\r
+    020710  0a   005450 7100 00                tra     return_bits_al  187     obsolete\r
+    020711                              trace_entry_operators:\r
+    020711  0a   021407 7100 00                tra     trace_ext_entry         188\r
+    020712  0a   021444 7100 00                tra     trace_ext_entry_desc    189\r
+    020713  0a   012127 7100 00                tra     int_entry               190\r
+    020714  0a   012145 7100 00                tra     int_entry_desc  191\r
+    020715  0a   012164 7100 00                tra     val_entry               192\r
+    020716  0a   012162 7100 00                tra     val_entry_desc  193\r
+    020717  0a   003427 7100 00                tra     get_chars_aligned       194     obsolete\r
+    020720  0a   003463 7100 00                tra     get_bits_aligned        195     obsolete\r
+    020721  0a   003416 7100 00                tra     fetch_chars     196\r
+    020722  0a   003451 7100 00                tra     fetch_bits      197\r
+    020723  0a   010507 7100 00                tra     get_terminate   198\r
+    020724  4a  4 00010 7101 20                tra     <put_format_>|[put_terminate]   199\r
+    020725  0a   010341 7100 00                tra     put_data_aligned        200     obsolete\r
+    020726  0a   010354 7100 00                tra     get_list_aligned        201     obsolete\r
+    020727  0a   010365 7100 00                tra     get_edit_aligned        202     obsolete\r
+    020730  0a   010417 7100 00                tra     put_list_aligned        203     obsolete\r
+    020731  0a   010430 7100 00                tra     put_edit_aligned        204     obsolete\r
+    020732  4a  4 00012 7101 20                tra     <put_format_>|[stream_prep]     205\r
+    020733  4a  4 00014 7101 20                tra     <record_io_>|[record_io]                206\r
+    020734  0a   010513 7100 00                tra     open_file               207\r
+    020735  0a   010515 7100 00                tra     close_file      208\r
+    020736  0a   010333 7100 00                tra     put_data                209     obsolete\r
+    020737  0a   010335 7100 00                tra     put_data_co     210     obsolete\r
+    020740  0a   010337 7100 00                tra     put_data_ho     211     obsolete\r
+    020741  0a   010346 7100 00                tra     get_list                212     obsolete\r
+    020742  0a   010350 7100 00                tra     get_list_co     213     obsolete\r
+    020743  0a   010352 7100 00                tra     get_list_ho     214     obsolete\r
+    020744  0a   010357 7100 00                tra     get_edit                215     obsolete\r
+    020745  0a   010361 7100 00                tra     get_edit_co     216     obsolete\r
+    020746  0a   010363 7100 00                tra     get_edit_ho     217     obsolete\r
+    020747  0a   010411 7100 00                tra     put_list                218     obsolete\r
+    020750  0a   010413 7100 00                tra     put_list_co     219     obsolete\r
+    020751  0a   010415 7100 00                tra     put_list_ho     220     obsolete\r
+    020752  0a   010422 7100 00                tra     put_edit                221     obsolete\r
+    020753  0a   010424 7100 00                tra     put_edit_co     222     obsolete\r
+    020754  0a   010426 7100 00                tra     put_edit_ho     223     obsolete\r
+    020755  0a   004236 7100 00                tra     suffix_cs               224     obsolete\r
+    020756  0a   004254 7100 00                tra     suffix_bs               225     obsolete\r
+    020757  0a   006542 7100 00                tra     fl2_to_fxscaled 226\r
+    020760  0a   007363 7100 00                tra     trunc_fx1               227\r
+    020761  0a   007375 7100 00                tra     trunc_fx2               228\r
+    020762  0a   007444 7100 00                tra     ceil_fx1                229\r
+    020763  0a   007500 7100 00                tra     ceil_fx2                230\r
+    020764  0a   007415 7100 00                tra     ceil_fl         231\r
+    020765  0a   007425 7100 00                tra     floor_fx1               232\r
+    020766  0a   007463 7100 00                tra     floor_fx2               233\r
+    020767  0a   007405 7100 00                tra     floor_fl        234\r
+    020770  0a   007354 7100 00                tra     trunc_fl        235\r
+    020771  0a   007515 7100 00                tra     round_fx1               236\r
+    020772  0a   007536 7100 00                tra     round_fx2               237\r
+    020773  0a   004103 7100 00                tra     repeat          238\r
+    020774  0a   005052 7100 00                tra     make_bit_table  239     obsolete\r
+    020775  0a   005060 7100 00                tra     make_bit_table_al       240     obsolete\r
+    020776  0a   005054 7100 00                tra     make_bit_table_co       241     obsolete\r
+    020777  0a   005056 7100 00                tra     make_bit_table_ho       242     obsolete\r
+    021000  0a   005147 7100 00                tra     verify          243     obsolete\r
+    021001  0a   005155 7100 00                tra     verify_al               244     obsolete\r
+    021002  0a   005151 7100 00                tra     verify_co               245     obsolete\r
+    021003  0a   005153 7100 00                tra     verify_ho               246     obsolete\r
+    021004  0a   005161 7100 00                tra     const_verify    247     obsolete\r
+    021005  0a   005167 7100 00                tra     const_verify_al 248     obsolete\r
+    021006  0a   005163 7100 00                tra     const_verify_co 249     obsolete\r
+    021007  0a   005165 7100 00                tra     const_verify_ho 250     obsolete\r
+    021010  0a   004212 7100 00                tra     reverse_cs      251\r
+    021011  0a   004166 7100 00                tra     reverse_bs      252\r
+    021012  0a   005110 7100 00                tra     form_bit_table  253     obsolete\r
+    021013  0a   005112 7100 00                tra     form_bit_table_co       254     obsolete\r
+    021014  0a   005114 7100 00                tra     form_bit_table_ho       255     obsolete\r
+    021015  0a   005116 7100 00                tra     form_bit_table_al       256     obsolete\r
+    021016  0a   004002 7100 00                tra     chars_move_ck   257     obsolete\r
+    021017  0a   004004 7100 00                tra     chars_move_ck_co        258     obsolete\r
+    021020  0a   004006 7100 00                tra     chars_move_ck_ho        259     obsolete\r
+    021021  0a   004010 7100 00                tra     chars_move_ck_al        260     obsolete\r
+    021022  0a   004021 7100 00                tra     bits_move_ck    261     obsolete\r
+    021023  0a   004023 7100 00                tra     bits_move_ck_co 262     obsolete\r
+    021024  0a   004025 7100 00                tra     bits_move_ck_ho 263     obsolete\r
+    021025  0a   004027 7100 00                tra     bits_move_ck_al 264     obsolete\r
+    021026  0a   007771 7100 00                tra     size_check_fx1  265\r
+    021027  0a   010013 7100 00                tra     size_check_fx2  266\r
+    021030  0a   010061 7100 00                tra     signal_stringsize       267\r
+    021031  0a   004272 7100 00                tra     suffix_cs_ck    268     obsolete\r
+    021032  0a   004312 7100 00                tra     suffix_bs_ck    269     obsolete\r
+    021033  0a   011040 7100 00                tra     pointer_hard    270\r
+    021034  0a   007727 7100 00                tra     alm_call                271     special for alm\r
+    021035  0a   007733 7100 00                tra     alm_push                272     special for alm\r
+    021036  0a   007757 7100 00                tra     alm_return      273     special for alm\r
+    021037  0a   007765 7100 00                tra     alm_return_no_pop       274     special for alm\r
+    021040  0a   024730 7100 00                tra     trace_alm_entry         275     special for alm\r
+    021041  0a   007663 7100 00                tra     packed_to_bp    276     obsolete\r
+    021042  0a   005466 7100 00                tra     return_chars    277     obsolete\r
+    021043  0a   005470 7100 00                tra     return_chars_co 278     obsolete\r
+    021044  0a   005472 7100 00                tra     return_chars_ho 279     obsolete\r
+    021045  0a   005474 7100 00                tra     return_chars_aligned 280        obsolete\r
+    021046  0a   007667 7100 00                tra     rpd_odd_lp_bp   281     obsolete\r
+    021047  0a   007677 7100 00                tra     rpd_odd_bp_lp   282     obsolete\r
+    021050  0a   007707 7100 00                tra     rpd_even_lp_bp  283     obsolete\r
+    021051  0a   007717 7100 00                tra     rpd_even_bp_lp  284     obsolete\r
+    021052  0a   011066 7100 00                tra     offset_easy     285\r
+    021053  0a   011102 7100 00                tra     offset_easy_pk  286\r
+    021054  0a   011066 7100 00                tra     offset_hard     287\r
+    021055  0a   011102 7100 00                tra     offset_hard_pk  288\r
+    021056  0a   011053 7100 00                tra     pointer_hard_pk 289\r
+    021057  0a   011040 7100 00                tra     pointer_easy    290\r
+    021060  0a   011053 7100 00                tra     pointer_easy_pk 291\r
+    021061  0a   007553 7100 00                tra     round_fl                292\r
+    021062  0a   010230 7100 00                tra     enable_file     293\r
+    021063  0a   010303 7100 00                tra     revert_file     294\r
+    021064  0a   011115 7100 00                tra     alloc_block     295\r
+    021065  0a   011142 7100 00                tra     free_block      296\r
+    021066  0a   011157 7100 00                tra     push_ctl_data   297\r
+    021067  0a   011155 7100 00                tra     push_ctl_desc   298\r
+    021070  0a   011201 7100 00                tra     pop_ctl_data    299\r
+    021071  0a   011201 7100 00                tra     pop_ctl_desc    300\r
+    021072  0a   011221 7100 00                tra     allocation      301\r
+    021073  0a   003315 7100 00                tra     set_chars_eis   302\r
+    021074  0a   003336 7100 00                tra     set_bits_eis    303\r
+    021075  0a   004464 7100 00                tra     index_chars_eis 304\r
+    021076  0a   004606 7100 00                tra     index_bits_eis  305\r
+    021077  0a   004645 7100 00                tra     index_cs_1_eis  306\r
+    021100  0a   004670 7100 00                tra     index_bs_1_eis  307\r
+    021101  0a   005477 7100 00                tra     return_chars_eis        308\r
+    021102  0a   005453 7100 00                tra     return_bits_eis 309\r
+    021103  0a   010331 7100 00                tra     put_data_eis    310\r
+    021104  4a  4 00016 7101 20                tra     <put_format_>|[put_edit_eis]    311\r
+    021105  0a   010370 7100 00                tra     put_list_eis    312\r
+    021106  4a  4 00020 7101 20                tra     <put_format_>|[get_edit_eis]    313\r
+    021107  0a   010344 7100 00                tra     get_list_eis    314\r
+    021110  0a   005245 7100 00                tra     verify_eis      315\r
+    021111  0a   005223 7100 00                tra     search_eis      316\r
+    021112  0a   010517 7100 00                tra     fortran_read    317\r
+    021113  0a   010517 7100 00                tra     fortran_write   318\r
+    021114  0a   010562 7100 00                tra     fortran_manip   319\r
+    021115  0a   010555 7100 00                tra     fortran_scalar_xmit     320\r
+    021116  0a   010555 7100 00                tra     fortran_array_xmit      321\r
+    021117  0a   010564 7100 00                tra     fortran_terminate       322\r
+    021120  4a  4 00022 7101 20                tra     <any_to_any_>|[real_to_real_round_]     323\r
+    021121  4a  4 00024 7101 20                tra     <any_to_any_>|[real_to_real_truncate_]  324\r
+    021122  4a  4 00026 7101 20                tra     <any_to_any_>|[any_to_any_round_]       325\r
+    021123  4a  4 00030 7101 20                tra     <any_to_any_>|[any_to_any_truncate_]    326\r
+    021124  0a   011234 7100 00                tra     unpack_picture  327\r
+    021125  0a   011237 7100 00                tra     pack_picture    328\r
+    021126  0a   006042 7100 00                tra     divide_fx1      329\r
+    021127  0a   006061 7100 00                tra     divide_fx2      330\r
+    021130  0a   006044 7100 00                tra     divide_fx3      331\r
+    021131  0a   006063 7100 00                tra     divide_fx4      332\r
+    021132  0a   006027 7100 00                tra     scaled_mod_fx1  333\r
+    021133  0a   005757 7100 00                tra     scaled_mod_fx2  334\r
+    021134  0a   006031 7100 00                tra     scaled_mod_fx3  335\r
+    021135  0a   005761 7100 00                tra     scaled_mod_fx4  336\r
+    021136  0a   005322 7100 00                tra     translate_2     337\r
+    021137  0a   005360 7100 00                tra     translate_3     338\r
+    021140  4a  4 00032 7101 20                tra     <square_root_>|[square_root_]           339\r
+    021141  4a  4 00034 7101 20                tra     <sine_>|[sine_radians_]         340\r
+    021142  4a  4 00036 7101 20                tra     <sine_>|[sine_degrees_]         341\r
+    021143  4a  4 00040 7101 20                tra     <sine_>|[cosine_radians_]               342\r
+    021144  4a  4 00042 7101 20                tra     <sine_>|[cosine_degrees_]               343\r
+    021145  4a  4 00044 7101 20                tra     <tangent_>|[tangent_radians_]   344\r
+    021146  4a  4 00046 7101 20                tra     <tangent_>|[tangent_degrees_]   345\r
+    021147  4a  4 00050 7101 20                tra     <arc_sine_>|[arc_sine_radians_] 346\r
+    021150  4a  4 00052 7101 20                tra     <arc_sine_>|[arc_sine_degrees_] 347\r
+    021151  4a  4 00054 7101 20                tra     <arc_sine_>|[arc_cosine_radians_]       348\r
+    021152  4a  4 00056 7101 20                tra     <arc_sine_>|[arc_cosine_degrees_]       349\r
+    021153  4a  4 00060 7101 20                tra     <arc_tangent_>|[arc_tangent_radians_]   350\r
+    021154  4a  4 00062 7101 20                tra     <arc_tangent_>|[arc_tangent_degrees_]   351\r
+    021155  4a  4 00064 7101 20                tra     <logarithm_>|[log_base_2_]              352\r
+    021156  4a  4 00066 7101 20                tra     <logarithm_>|[log_base_e_]              353\r
+    021157  4a  4 00070 7101 20                tra     <logarithm_>|[log_base_10_]             354\r
+    021160  4a  4 00072 7101 20                tra     <exponential_>|[exponential_]           355\r
+    021161  4a  4 00074 7101 20                tra     <double_square_root_>|[double_square_root_]     356\r
+    021162  4a  4 00076 7101 20                tra     <double_sine_>|[double_sine_radians_]   357\r
+    021163  4a  4 00100 7101 20                tra     <double_sine_>|[double_sine_degrees_]   358\r
+    021164  4a  4 00102 7101 20                tra     <double_sine_>|[double_cosine_radians_] 359\r
+    021165  4a  4 00104 7101 20                tra     <double_sine_>|[double_cosine_degrees_] 360\r
+    021166  4a  4 00106 7101 20                tra     <double_tangent_>|[double_tangent_radians_]     361\r
+    021167  4a  4 00110 7101 20                tra     <double_tangent_>|[double_tangent_degrees_]     362\r
+    021170  4a  4 00112 7101 20                tra     <double_arc_sine_>|[double_arc_sine_radians_]   363\r
+    021171  4a  4 00114 7101 20                tra     <double_arc_sine_>|[double_arc_sine_degrees_]   364\r
+    021172  4a  4 00116 7101 20                tra     <double_arc_sine_>|[double_arc_cosine_radians_] 365\r
+    021173  4a  4 00120 7101 20                tra     <double_arc_sine_>|[double_arc_cosine_degrees_] 366\r
+    021174  4a  4 00122 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_radians_] 367\r
+    021175  4a  4 00124 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_degrees_] 368\r
+    021176  4a  4 00126 7101 20                tra     <double_logarithm_>|[double_log_base_2_]        369\r
+    021177  4a  4 00130 7101 20                tra     <double_logarithm_>|[double_log_base_e_]        370\r
+    021200  4a  4 00132 7101 20                tra     <double_logarithm_>|[double_log_base_10_]       371\r
+    021201  4a  4 00134 7101 20                tra     <double_exponential_>|[double_exponential_]     372\r
+    021202  4a  4 00136 7101 20                tra     <arc_tangent_>|[arc_tangent_radians_2_] 373\r
+    021203  4a  4 00140 7101 20                tra     <arc_tangent_>|[arc_tangent_degrees_2_] 374\r
+    021204  4a  4 00142 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_radians_2_]       375\r
+    021205  4a  4 00144 7101 20                tra     <double_arc_tangent_>|[double_arc_tan_degrees_2_]       376\r
+    021206  4a  4 00146 7101 20                tra     <power_>|[integer_power_single_]        377\r
+    021207  4a  4 00150 7101 20                tra     <power_>|[integer_power_double_]        378\r
+    021210  4a  4 00152 7101 20                tra     <power_>|[double_power_single_] 379\r
+    021211  4a  4 00154 7101 20                tra     <power_>|[double_power_double_] 380\r
+    021212  4a  4 00156 7101 20                tra     <power_integer_>|[double_power_integer_]        381\r
+    021213  4a  4 00160 7101 20                tra     <power_>|[single_power_single_] 382\r
+    021214  4a  4 00162 7101 20                tra     <power_integer_>|[single_power_integer_]        383\r
+    021215  4a  4 00164 7101 20                tra     <integer_power_integer_>|[integer_power_integer_]       384\r
+    021216  0a   010056 7100 00                tra     signal_size     385\r
+    021217  0a   021476 7100 00                tra     trace_ss_ext_entry      386\r
+    021220  0a   021535 7100 00                tra     trace_ss_ext_entry_desc 387\r
+    021221  0a   012272 7100 00                tra     ss_int_entry    388\r
+    021222  0a   012311 7100 00                tra     ss_int_entry_desc       389\r
+    021223  0a   012331 7100 00                tra     ss_val_entry    390\r
+    021224  0a   012327 7100 00                tra     ss_val_entry_desc       391\r
+    021225  4a  4 00166 7101 20                tra     <cplx_dec_ops_>|[mpcdec]        392\r
+    021226  4a  4 00170 7101 20                tra     <cplx_dec_ops_>|[dvcdec]        393\r
+    021227  4a  4 00172 7101 20                tra     <cplx_dec_ops_>|[dvrcdec]       394\r
+    021230  4a  4 00174 7101 20                tra     <dec_ops_>|[ceil]       395\r
+    021231  4a  4 00176 7101 20                tra     <dec_ops_>|[floor]      396\r
+    021232  4a  4 00200 7101 20                tra     <dec_ops_>|[sign]       397\r
+    021233  4a  4 00202 7101 20                tra     <cplx_dec_ops_>|[cabs]  398\r
+    021234  4a  4 00204 7101 20                tra     <dec_ops_>|[truncate]   399\r
+    021235  4a  4 00206 7101 20                tra     <dec_ops_>|[mod]                400\r
+    021236  0a   011357 7100 00                tra     set_support     401\r
+    021237  0a   006071 7100 00                tra     div_4_cplx_ops  402\r
+    021240  0a   003441 7100 00                tra     fetch_chars_eis 403\r
+    021241  0a   007247 7100 00                tra     signal_stringrange      404\r
+    021242  0a   012412 7100 00                tra     ss_enter_begin_block    405\r
+    021243  4a  4 00210 7101 20                tra     <put_field_>|[put_field]                406      \r
+    021244  4a  4 00212 7101 20                tra     <put_field_>|[put_field_chk]            407\r
+    021245  4a  4 00214 7101 20                tra     <put_field_>|[put_control]      408\r
+    021246  4a  4 00216 7101 20                tra     <alloc_>|[op_alloc_]    409\r
+    021247  0a   011112 7100 00                tra     alloc_storage           410\r
+    021250  4a  4 00220 7101 20                tra     <alloc_>|[op_freen_]    411\r
+    021251  4a  4 00222 7101 20                tra     <alloc_>|[op_empty_]    412\r
+    021252  4a  4 00224 7101 20                tra     <fort_math_ops_>|[cabs]         413     fortran only\r
+    021253  4a  4 00226 7101 20                tra     <fort_math_ops_>|[ccos]         414     fortran only\r
+    021254  4a  4 00230 7101 20                tra     <fort_math_ops_>|[cexp]         415     fortran only\r
+    021255  4a  4 00232 7101 20                tra     <fort_math_ops_>|[clog]         416     fortran only\r
+    021256  4a  4 00234 7101 20                tra     <fort_math_ops_>|[csin]         417     fortran only\r
+    021257  4a  4 00236 7101 20                tra     <fort_math_ops_>|[csqrt]                418     fortran only\r
+    021260  4a  4 00240 7101 20                tra     <fort_math_ops_>|[tanh]         419     fortran only\r
+    021261  4a  4 00242 7101 20                tra     <fort_math_ops_>|[dmod]         420     fortran only (obsolete)\r
+    021262  4a  4 00244 7101 20                tra     <fort_math_ops_>|[cmpx_p_cmpx]  421     fortran only\r
+    021263  0a   011362 7100 00                tra     get_math_entry  422     fortran only\r
+    021264  0a   011471 7100 00                tra     fortran_pause   423     fortran only\r
+    021265  0a   011473 7100 00                tra     fortran_stop    424     fortran only\r
+    021266  0a   011514 7100 00                tra     fortran_chain   425     fortran only\r
+    021267  0a   024751 7100 00                tra     long_profile    426\r
+    021270  0a   004714 7100 00                tra     index_before_cs 427\r
+    021271  0a   005004 7100 00                tra     index_before_bs 428\r
+    021272  0a   004720 7100 00                tra     index_after_cs  429\r
+    021273  0a   005010 7100 00                tra     index_after_bs  430\r
+    021274  0a   005035 7100 00                tra     index_before_bs_1       431\r
+    021275  0a   005041 7100 00                tra     index_after_bs_1        432\r
+    021276  0a   005271 7100 00                tra     verify_for_ltrim        433\r
+    021277  0a   005304 7100 00                tra     verify_for_rtrim        434\r
+    021300  0a   006557 7100 00                tra     stacq_mac               435\r
+    021301  0a   006563 7100 00                tra     clock_mac               436\r
+    021302  0a   006571 7100 00                tra     vclock_mac      437\r
+    021303  0a   010567 7100 00                tra     ftn_open_element        438     fortran only\r
+    021304  0a   011033 7100 00                tra     ftn_get_area_ptr        439     fortran only\r
+    021305  0a   006577 7100 00                tra     stop            440\r
+    021306  0a   006610 7100 00                tra     return_main     441\r
+    021307  0a   006626 7100 00                tra     set_main_flag   442\r
+    021310  0a   006614 7100 00                tra     begin_return_main       443\r
+    021311  0a   010030 7100 00                tra     size_check_uns_fx1      444\r
+    021312  0a   010036 7100 00                tra     size_check_uns_fx2      445\r
+    021313  0a   011463 7100 00                tra     fortran_end     446     fortran only\r
+    021314  0a   006706 7100 00                tra     fort_dmod       447     fortran only\r
+    021315  0a   004540 7100 00                tra     ix_rev_chars    448\r
+    021316  0a   005247 7100 00                tra     verify_rev_chars        449\r
+    021317  0a   005251 7100 00                tra     search_rev_chars        450\r
+    021320  0a   003261 7100 00                tra     shorten_stack_protect_ind       451\r
+    021321  0a   003270 7100 00                tra     save_stack_quick        452\r
+    021322  0a   003274 7100 00                tra     restore_stack_quick     453\r
+    021323  4a  4 00246 7101 20                tra     <fort_math_ops_>|[dtanh]        454     fortran only\r
+    021324  4a  4 00250 7101 20                tra     <fort_math_ops_>|[sinh] 455     fortran only\r
+    021325  4a  4 00252 7101 20                tra     <fort_math_ops_>|[dsinh]        456     fortran only\r
+    021326  4a  4 00254 7101 20                tra     <fort_math_ops_>|[cosh] 457     fortran only\r
+    021327  4a  4 00256 7101 20                tra     <fort_math_ops_>|[dcosh]        458     fortran only\r
+    021330  0a   007576 7100 00                tra     nearest_whole_number    459     fortran only\r
+    021331  0a   007607 7100 00                tra     nearest_integer 460     fortran only\r
+    021332  0a   010722 7100 00                tra     ftn_inquire_element     461     fortran only\r
+    021333  0a   010044 7100 00                tra     mpy_overflow_check      462     fortran only\r
+    021334  0a   005557 7100 00                tra     fort_return_mac 463     fortran only\r
+    021335  0a   010146 7100 00                tra     fort_cleanup    464     fortran only\r
+    021336  0a   010073 7100 00                tra     fort_storage    465     fortran only\r
+    021337  0a   021356 7100 00                tra     trace_enter_BFP_mode    466\r
+    021340  0a   021362 7100 00                tra     trace_enter_HFP_mode    467\r
+    021341  0a   011631 7100 00                tra     unimp           468     future expansion\r
+    021342  0a   011631 7100 00                tra     unimp           469     future expansion\r
+    021343  0a   011631 7100 00                tra     unimp           470     future expansion\r
+    021344  0a   011631 7100 00                tra     unimp           471     future expansion\r
+    021345  0a   011631 7100 00                tra     unimp           472     future expansion\r
+    021346  0a   011631 7100 00                tra     unimp           473     future expansion\r
+    021347  0a   011631 7100 00                tra     unimp           474     future expansion\r
+    021350  0a   011631 7100 00                tra     unimp           475     future expansion\r
+    021351  0a   011631 7100 00                tra     unimp           476     future expansion\r
+    021352  0a   011631 7100 00                tra     unimp           477     future expansion\r
+    021353  0a   011631 7100 00                tra     unimp           478     future expansion\r
+    021354  0a   011631 7100 00                tra     unimp           479     future expansion\r
+    021355  0a   011631 7100 00                tra     unimp           480     future expansion\r
+                                  7414  \r
+                                  7415  "\r
+                                  7416  "      Function:       enter Binary Floating Point (BFP) mode\r
+                                  7417  "\r
+                                  7418  "      Entry:  X0 = offset in caller's text section of return point\r
+                                  7419  "\r
+                                  7420  "      Exit:   PR0, (sp|stack_frame.operator_ptr) -> operator_table\r
+                                  7421  "\r
+    021356                        7422  trace_enter_BFP_mode:\r
+    021356  aa   000000 6340 07   7423         ldi     0,dl            clear HFP mode if it's set\r
+    021357  0a   017644 3500 00   7424         epp0    trace_operator_table    change to HFP trace operators\r
+    021360  aa  6 00030 2501 00   7425         spri0   sp|stack_frame.operator_ptr\r
+    021361  aa  6 00046 7101 70   7426         tra     sp|tbp,*x0\r
+                                  7427  \r
+                                  7428  "\r
+                                  7429  "      Function:       enter Hexadecimal Floating Point (HFP) mode\r
+                                  7430  "\r
+                                  7431  "      Entry:  X0 = offset in caller's text section of return point\r
+                                  7432  "\r
+                                  7433  "      Exit:   PR0, (sp|stack_frame.operator_ptr) = hfp_operator_table\r
+                                  7434  "\r
+                                  7435  "      Note:   It is not sufficient to just request HFP mode.  We must\r
+                                  7436  "              check that our request has been honoured, since if HFP\r
+                                  7437  "              mode has not been enabled (or if it is not supported), a\r
+                                  7438  "              request to enter HFP mode is simply ignored.  If we find\r
+                                  7439  "              that our request to enter HFP mode has not been honoured,\r
+                                  7440  "              we attempt to enable HFP mode.  If we are unsuccessful,\r
+                                  7441  "              we signal the condition 'cannot_enable_HFP_mode'.  If we\r
+                                  7442  "              are restarted after signalling this condition, we repeat\r
+                                  7443  "              all the above steps.\r
+                                  7444  "\r
+    021362                        7445  trace_enter_HFP_mode:\r
+    021362  aa   000010 6340 07   7446         ldi     HFP_mask,dl     request HFP mode\r
+    021363  aa   002040 4310 03   7447         fld     P1.0H,du                check if request honoured\r
+    021364  aa   400000 4750 03   7448         fad     P0.0H,du\r
+    021365  aa   020000 1750 03   7449         sba     =o020000,du\r
+    021366  0a   021404 6000 00   7450         tze     trace_enter_HFP_mode.entered\r
+    021367  aa   600000 2350 03   7451         lda     =o600000,du     try to enable HFP mode\r
+    021370  0a   011565 7010 00   7452         tsx1    call_set_hexfp_control\r
+    021371  aa   000010 6340 07   7453         ldi     HFP_mask,dl     check if successful\r
+    021372  aa   002040 4310 03   7454         fld     P1.0H,du\r
+    021373  aa   400000 4750 03   7455         fad     P0.0H,du\r
+    021374  aa   020000 1750 03   7456         sba     =o020000,du\r
+    021375  0a   021404 6000 00   7457         tze     trace_enter_HFP_mode.entered\r
+    021376  aa   000000 6340 07   7458         ldi     =0,dl           clear HFP mode request\r
+    021377  0a   025034 3520 00   7459         eppbp   =22acannot_enable_HFP_mode\r
+    021400  aa   000026 6260 00   7460         eax6    22\r
+    021401  aa   001750 2360 07   7461         ldq     =1000,dl\r
+    021402  0a   011251 7010 00   7462         tsx1    call_signal_    signal 'cannot_enable_HFP_mode' condition\r
+    021403  0a   021362 7100 00   7463         tra     trace_enter_HFP_mode    try again\r
+                                  7464  \r
+    021404                        7465  trace_enter_HFP_mode.entered:\r
+    021404  0a   014146 3500 00   7466         epp0    hfp_operator_table      change to HFP trace operators\r
+    021405  aa  6 00030 2501 00   7467         spri0   sp|stack_frame.operator_ptr\r
+    021406  aa  6 00046 7101 70   7468         tra     sp|tbp,*x0\r
+                                  7469  "\r
+                                  7470         ext_entry               trace_\r
+    021407                              trace_ext_entry:\r
+    021407  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   trace_\r
+    021410  0a   021410 2130 00                epaq    *               get segment number of pl1_operators_\r
+    021411  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+    021412  aa  7 00024 5421 20                sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+    021413  aa  7 00024 3521 20                eppbp   sb|stack_header.stack_end_ptr,*\r
+    021414  aa  2 00001 5411 00                sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+    021415  4a  4 01124 2721 20                tspbp   trace_catch_$catch_pl1_\r
+    021416  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    021417  aa  1 00000 7621 00                lprpbp  ab|0            restore entry ptr\r
+    021420  aa  1 00001 7611 00                lprpab  ab|1            restore lisp linkage ptr\r
+    021421  aa  2 00000 2131 00                epaq    bp|0            get segment number in a\r
+    021422  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    021423  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    021424  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    021425  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    021426  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    021427  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    021430  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr update stack end ptr\r
+    021431  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+    021432                              trace_save_link:\r
+    021432  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save ptr to linkage in stack head\r
+    021433  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr save ptr to entry point\r
+    021434                              trace_init_stack_join:\r
+    021434  aa  6 00046 2525 00                spbpbp  sp|text_base_ptr        save ptr to base of text segment\r
+    021435  aa  6 00024 2525 00                spbpbp  sp|stack_frame.return_ptr init procedure call return point\r
+    021436  aa  6 00037 4501 00                stz     sp|stack_frame.operator_ret_ptr init operator return offset\r
+                                        "\r
+    021437  0a   017644 3500 00                eppap   trace_operator_table    and pointer to operators\r
+    021440  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr save pointer to operator segment\r
+    021441  aa  6 00004 2515 00                spriab  sp|4            save pointer to end of frame for temp extensions\r
+    021442  aa   000000 6340 07                ldi     0,dl            reset all indicators (overflow mask in particular)\r
+    021443  aa  2 00005 7101 00                tra     bp|5            and return to user program\r
+                                  7471  "\r
+                                  7472         ext_entry_desc  trace_\r
+    021444                              trace_ext_entry_desc:\r
+    021444  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   trace_\r
+    021445  0a   021445 2130 00                epaq    *               get segment number of pl1_operators_\r
+    021446  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+    021447  aa  7 00024 5421 20                sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+    021450  aa  7 00024 3521 20                eppbp   sb|stack_header.stack_end_ptr,*\r
+    021451  aa  2 00001 5411 00                sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+    021452  4a  4 01124 2721 20                tspbp   trace_catch_$catch_pl1_\r
+    021453  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    021454  aa  1 00000 7621 00                lprpbp  ab|0            restore entry ptr\r
+    021455  aa  1 00001 7611 00                lprpab  ab|1            restore lisp linkage ptr\r
+    021456  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    021457  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from  packed ptr\r
+    021460  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    021461  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    021462  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    021463  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    021464  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    021465  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    021466  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    021467                              trace_eed:\r
+    021467  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    021470  aa   000010 3150 07                cana    8,dl            is there an extra arg\r
+    021471  aa   000002 6000 04                tze     2,ic            no\r
+    021472  aa   000002 0750 03                ada     2,du            yes, allow for it\r
+    021473  aa  0 00002 3535 01                eppbb   ap|2,au         get ptr to descriptors\r
+    021474  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    021475  0a   021432 7100 00                tra     trace_save_link         join common section\r
+                                  7473  "\r
+                                  7474         ext_entry               trace_,ss_\r
+    021476                              trace_ss_ext_entry:\r
+    021476  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   trace_\r
+    021477  0a   021477 2130 00                epaq    *               get segment number of pl1_operators_\r
+    021500  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+    021501  aa  7 00024 5421 20                sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+    021502  aa  7 00024 3521 20                eppbp   sb|stack_header.stack_end_ptr,*\r
+    021503  aa  2 00001 5411 00                sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+    021504  4a  4 01124 2721 20                tspbp   trace_catch_$catch_pl1_\r
+    021505  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    021506  aa  1 00000 7621 00                lprpbp  ab|0            restore entry ptr\r
+    021507  aa  1 00001 7611 00                lprpab  ab|1            restore lisp linkage ptr\r
+    021510  aa  2 00000 2131 00                epaq    bp|0            get segment number in a\r
+    021511  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from packed ptr\r
+    021512  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    021513  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    021514  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    021515  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    021516  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    021517  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    021520  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr update stack end ptr\r
+    021521  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+    021522                              trace_ss_save_link:\r
+    021522  aa  6 00044 6501 00                sprilp  sp|linkage_ptr  save ptr to linkage in stack head\r
+    021523  aa  6 00034 5451 00                sprplb  sp|stack_frame.static_ptr save static ptr\r
+    021524  aa  6 00026 2521 00                spribp  sp|stack_frame.entry_ptr save ptr to entry point\r
+    021525                              trace_ss_init_stack_join:\r
+    021525  aa  6 00046 2525 00                spbpbp  sp|text_base_ptr        save ptr to base of text segment\r
+    021526  aa  6 00024 2525 00                spbpbp  sp|stack_frame.return_ptr init procedure call return point\r
+    021527  aa  6 00037 4501 00                stz     sp|stack_frame.operator_ret_ptr init operator return offset\r
+                                        "\r
+    021530  0a   017644 3500 00                eppap   trace_operator_table    and pointer to operators\r
+    021531  aa  6 00030 2501 00                spriap  sp|stack_frame.operator_ptr save pointer to operator segment\r
+    021532  aa  6 00004 2515 00                spriab  sp|4            save pointer to end of frame for temp extensions\r
+    021533  aa   000000 6340 07                ldi     0,dl            reset all indicators (overflow mask in particular)\r
+    021534  aa  2 00005 7101 00                tra     bp|5            and return to user program\r
+                                  7475  "\r
+                                  7476         ext_entry_desc  trace_,ss_\r
+    021535                              trace_ss_ext_entry_desc:\r
+    021535  aa  2 77775 3521 00                eppbp   bp|-3           get correct entry pointer value\r
+                                               trace   trace_\r
+    021536  0a   021536 2130 00                epaq    *               get segment number of pl1_operators_\r
+    021537  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+    021540  aa  7 00024 5421 20                sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+    021541  aa  7 00024 3521 20                eppbp   sb|stack_header.stack_end_ptr,*\r
+    021542  aa  2 00001 5411 00                sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+    021543  4a  4 01124 2721 20                tspbp   trace_catch_$catch_pl1_\r
+    021544  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    021545  aa  1 00000 7621 00                lprpbp  ab|0            restore entry ptr\r
+    021546  aa  1 00001 7611 00                lprpab  ab|1            restore lisp linkage ptr\r
+    021547  aa  2 00000 2131 00                epaq    bp|0            get segment number of text\r
+    021550  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get seg no, offset of linkage from  packed ptr\r
+    021551  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get seg no, offset of static from packed ptr\r
+    021552  aa  7 00024 3535 20                eppbb   sb|stack_header.stack_end_ptr,* get ptr to next stack frame\r
+    021553  aa  3 00020 6521 00                sprisp  bb|stack_frame.prev_sp set back ptr of new frame\r
+    021554  aa  3 00032 2501 00                spriap  bb|stack_frame.arg_ptr save arg pointer\r
+    021555  aa  3 00000 3515 17                eppab   bb|0,7          get pointer to end of new frame\r
+    021556  aa  3 00022 2515 00                spriab  bb|stack_frame.next_sp set next pointer of new frame\r
+    021557  aa  7 00024 2515 00                spriab  sb|stack_header.stack_end_ptr set new stack end ptr\r
+    021560  aa  3 00000 3721 00                eppsp   bb|0            update sp\r
+                                        "\r
+    021561                              trace_ss_eed:\r
+    021561  aa  0 00000 2351 00                lda     ap|0            get 2*n_args in au, code in al\r
+    021562  aa   000010 3150 07                cana    8,dl            is there an extra arg\r
+    021563  aa   000002 6000 04                tze     2,ic            no\r
+    021564  aa   000002 0750 03                ada     2,du            yes, allow for it\r
+    021565  aa  0 00002 3535 01                eppbb   ap|2,au         get ptr to descriptors\r
+    021566  aa  6 00042 2535 00                spribb  sp|descriptor_ptr       set ptr in stack frame\r
+    021567  0a   021522 7100 00                tra     trace_ss_save_link              join common section\r
+                                  7477  "\r
+    021570                        7478  trace_entry_operators_end:\r
+                                  7479  \f\r
+                                  7480  "\r
+                                  7481  " The following code is used by trace to gain control of PL/I and FORTRAN\r
+                                  7482  " programs running in HFP mode.\r
+                                  7483  "\r
+                                  7484         transfer_vector trace_,hfp_\r
+                                        "\r
+                                        " Due to the presence of double-word constants (at bit_mask and mask_bit)\r
+                                        " these instructions must presently begin on an even-word boundary.\r
+                                        " Note that if an odd number  of words is added to the front of the\r
+                                        " operator_table region, then the following even pseudo-op must be\r
+                                        " changed to an odd pseudo-op. If you forget, an assembly error will\r
+                                        " result (due to clever divide-by-zero, below).\r
+                                        "\r
+                                               even\r
+                                        "\r
+                                        " The following section, from location 0 to label operator_table, is referenced\r
+                                        " directly from PL/1 programs by means of offsets of the form ap|-n (ap pointing\r
+                                        " at pl1_operators_$operator_table).  For this reason, the order of the\r
+                                        " following instructions must not be changed.  Any new coding must be placed at\r
+                                        " the FRONT of the segment.\r
+                                        "\r
+                                        " This table translates a bit number between 0 and 35 to a char number\r
+                                        " between 0 and 3.\r
+                                        "\r
+                                               even\r
+    021570                              trace_hfp_bitno_to_charno_table:\r
+                        000011                 dup     9\r
+    021570  aa   000000 000000                 dec     0\r
+                                               dupend\r
+    021571  aa   000000 000000                 dec     0\r
+    021572  aa   000000 000000                 dec     0\r
+    021573  aa   000000 000000                 dec     0\r
+    021574  aa   000000 000000                 dec     0\r
+    021575  aa   000000 000000                 dec     0\r
+    021576  aa   000000 000000                 dec     0\r
+    021577  aa   000000 000000                 dec     0\r
+    021600  aa   000000 000000                 dec     0\r
+                        000011                 dup     9\r
+    021601  aa   000000 000001                 dec     1\r
+                                               dupend\r
+    021602  aa   000000 000001                 dec     1\r
+    021603  aa   000000 000001                 dec     1\r
+    021604  aa   000000 000001                 dec     1\r
+    021605  aa   000000 000001                 dec     1\r
+    021606  aa   000000 000001                 dec     1\r
+    021607  aa   000000 000001                 dec     1\r
+    021610  aa   000000 000001                 dec     1\r
+    021611  aa   000000 000001                 dec     1\r
+                        000011                 dup     9\r
+    021612  aa   000000 000002                 dec     2\r
+                                               dupend\r
+    021613  aa   000000 000002                 dec     2\r
+    021614  aa   000000 000002                 dec     2\r
+    021615  aa   000000 000002                 dec     2\r
+    021616  aa   000000 000002                 dec     2\r
+    021617  aa   000000 000002                 dec     2\r
+    021620  aa   000000 000002                 dec     2\r
+    021621  aa   000000 000002                 dec     2\r
+    021622  aa   000000 000002                 dec     2\r
+                        000011                 dup     9\r
+    021623  aa   000000 000003                 dec     3\r
+                                               dupend\r
+    021624  aa   000000 000003                 dec     3\r
+    021625  aa   000000 000003                 dec     3\r
+    021626  aa   000000 000003                 dec     3\r
+    021627  aa   000000 000003                 dec     3\r
+    021630  aa   000000 000003                 dec     3\r
+    021631  aa   000000 000003                 dec     3\r
+    021632  aa   000000 000003                 dec     3\r
+    021633  aa   000000 000003                 dec     3\r
+                                        "\r
+                                        "      The following tables are for use with the TCT instruction.\r
+                                        "      Any single, given, character can be searched for using these\r
+                                        "      tables.\r
+                                        "\r
+                        000163                 dup     115\r
+    021634  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    021635  aa   777777 777777                 dec     -1\r
+    021636  aa   777777 777777                 dec     -1\r
+    021637  aa   777777 777777                 dec     -1\r
+    021640  aa   777777 777777                 dec     -1\r
+    021641  aa   777777 777777                 dec     -1\r
+    021642  aa   777777 777777                 dec     -1\r
+    021643  aa   777777 777777                 dec     -1\r
+    021644  aa   777777 777777                 dec     -1\r
+    021645  aa   777777 777777                 dec     -1\r
+    021646  aa   777777 777777                 dec     -1\r
+    021647  aa   777777 777777                 dec     -1\r
+    021650  aa   777777 777777                 dec     -1\r
+    021651  aa   777777 777777                 dec     -1\r
+    021652  aa   777777 777777                 dec     -1\r
+    021653  aa   777777 777777                 dec     -1\r
+    021654  aa   777777 777777                 dec     -1\r
+    021655  aa   777777 777777                 dec     -1\r
+    021656  aa   777777 777777                 dec     -1\r
+    021657  aa   777777 777777                 dec     -1\r
+    021660  aa   777777 777777                 dec     -1\r
+    021661  aa   777777 777777                 dec     -1\r
+    021662  aa   777777 777777                 dec     -1\r
+    021663  aa   777777 777777                 dec     -1\r
+    021664  aa   777777 777777                 dec     -1\r
+    021665  aa   777777 777777                 dec     -1\r
+    021666  aa   777777 777777                 dec     -1\r
+    021667  aa   777777 777777                 dec     -1\r
+    021670  aa   777777 777777                 dec     -1\r
+    021671  aa   777777 777777                 dec     -1\r
+    021672  aa   777777 777777                 dec     -1\r
+    021673  aa   777777 777777                 dec     -1\r
+    021674  aa   777777 777777                 dec     -1\r
+    021675  aa   777777 777777                 dec     -1\r
+    021676  aa   777777 777777                 dec     -1\r
+    021677  aa   777777 777777                 dec     -1\r
+    021700  aa   777777 777777                 dec     -1\r
+    021701  aa   777777 777777                 dec     -1\r
+    021702  aa   777777 777777                 dec     -1\r
+    021703  aa   777777 777777                 dec     -1\r
+    021704  aa   777777 777777                 dec     -1\r
+    021705  aa   777777 777777                 dec     -1\r
+    021706  aa   777777 777777                 dec     -1\r
+    021707  aa   777777 777777                 dec     -1\r
+    021710  aa   777777 777777                 dec     -1\r
+    021711  aa   777777 777777                 dec     -1\r
+    021712  aa   777777 777777                 dec     -1\r
+    021713  aa   777777 777777                 dec     -1\r
+    021714  aa   777777 777777                 dec     -1\r
+    021715  aa   777777 777777                 dec     -1\r
+    021716  aa   777777 777777                 dec     -1\r
+    021717  aa   777777 777777                 dec     -1\r
+    021720  aa   777777 777777                 dec     -1\r
+    021721  aa   777777 777777                 dec     -1\r
+    021722  aa   777777 777777                 dec     -1\r
+    021723  aa   777777 777777                 dec     -1\r
+    021724  aa   777777 777777                 dec     -1\r
+    021725  aa   777777 777777                 dec     -1\r
+    021726  aa   777777 777777                 dec     -1\r
+    021727  aa   777777 777777                 dec     -1\r
+    021730  aa   777777 777777                 dec     -1\r
+    021731  aa   777777 777777                 dec     -1\r
+    021732  aa   777777 777777                 dec     -1\r
+    021733  aa   777777 777777                 dec     -1\r
+    021734  aa   777777 777777                 dec     -1\r
+    021735  aa   777777 777777                 dec     -1\r
+    021736  aa   777777 777777                 dec     -1\r
+    021737  aa   777777 777777                 dec     -1\r
+    021740  aa   777777 777777                 dec     -1\r
+    021741  aa   777777 777777                 dec     -1\r
+    021742  aa   777777 777777                 dec     -1\r
+    021743  aa   777777 777777                 dec     -1\r
+    021744  aa   777777 777777                 dec     -1\r
+    021745  aa   777777 777777                 dec     -1\r
+    021746  aa   777777 777777                 dec     -1\r
+    021747  aa   777777 777777                 dec     -1\r
+    021750  aa   777777 777777                 dec     -1\r
+    021751  aa   777777 777777                 dec     -1\r
+    021752  aa   777777 777777                 dec     -1\r
+    021753  aa   777777 777777                 dec     -1\r
+    021754  aa   777777 777777                 dec     -1\r
+    021755  aa   777777 777777                 dec     -1\r
+    021756  aa   777777 777777                 dec     -1\r
+    021757  aa   777777 777777                 dec     -1\r
+    021760  aa   777777 777777                 dec     -1\r
+    021761  aa   777777 777777                 dec     -1\r
+    021762  aa   777777 777777                 dec     -1\r
+    021763  aa   777777 777777                 dec     -1\r
+    021764  aa   777777 777777                 dec     -1\r
+    021765  aa   777777 777777                 dec     -1\r
+    021766  aa   777777 777777                 dec     -1\r
+    021767  aa   777777 777777                 dec     -1\r
+    021770  aa   777777 777777                 dec     -1\r
+    021771  aa   777777 777777                 dec     -1\r
+    021772  aa   777777 777777                 dec     -1\r
+    021773  aa   777777 777777                 dec     -1\r
+    021774  aa   777777 777777                 dec     -1\r
+    021775  aa   777777 777777                 dec     -1\r
+    021776  aa   777777 777777                 dec     -1\r
+    021777  aa   777777 777777                 dec     -1\r
+    022000  aa   777777 777777                 dec     -1\r
+    022001  aa   777777 777777                 dec     -1\r
+    022002  aa   777777 777777                 dec     -1\r
+    022003  aa   777777 777777                 dec     -1\r
+    022004  aa   777777 777777                 dec     -1\r
+    022005  aa   777777 777777                 dec     -1\r
+    022006  aa   777777 777777                 dec     -1\r
+    022007  aa   777777 777777                 dec     -1\r
+    022010  aa   777777 777777                 dec     -1\r
+    022011  aa   777777 777777                 dec     -1\r
+    022012  aa   777777 777777                 dec     -1\r
+    022013  aa   777777 777777                 dec     -1\r
+    022014  aa   777777 777777                 dec     -1\r
+    022015  aa   777777 777777                 dec     -1\r
+    022016  aa   777777 777777                 dec     -1\r
+                                        "\r
+    022017                              trace_hfp_tct_octal_060:\r
+                        000004                 dup     4\r
+    022017  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022020  aa   777777 777777                 dec     -1\r
+    022021  aa   777777 777777                 dec     -1\r
+    022022  aa   777777 777777                 dec     -1\r
+                                        "\r
+    022023                              trace_hfp_tct_octal_040:\r
+                        000010                 dup     8\r
+    022023  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022024  aa   777777 777777                 dec     -1\r
+    022025  aa   777777 777777                 dec     -1\r
+    022026  aa   777777 777777                 dec     -1\r
+    022027  aa   777777 777777                 dec     -1\r
+    022030  aa   777777 777777                 dec     -1\r
+    022031  aa   777777 777777                 dec     -1\r
+    022032  aa   777777 777777                 dec     -1\r
+    022033                              trace_hfp_tct_byte_0:\r
+    022033  aa   000777 777777                 vfd     9/0,9/-1,9/-1,9/-1\r
+                        000177                 dup     127\r
+    022034  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022035  aa   777777 777777                 dec     -1\r
+    022036  aa   777777 777777                 dec     -1\r
+    022037  aa   777777 777777                 dec     -1\r
+    022040  aa   777777 777777                 dec     -1\r
+    022041  aa   777777 777777                 dec     -1\r
+    022042  aa   777777 777777                 dec     -1\r
+    022043  aa   777777 777777                 dec     -1\r
+    022044  aa   777777 777777                 dec     -1\r
+    022045  aa   777777 777777                 dec     -1\r
+    022046  aa   777777 777777                 dec     -1\r
+    022047  aa   777777 777777                 dec     -1\r
+    022050  aa   777777 777777                 dec     -1\r
+    022051  aa   777777 777777                 dec     -1\r
+    022052  aa   777777 777777                 dec     -1\r
+    022053  aa   777777 777777                 dec     -1\r
+    022054  aa   777777 777777                 dec     -1\r
+    022055  aa   777777 777777                 dec     -1\r
+    022056  aa   777777 777777                 dec     -1\r
+    022057  aa   777777 777777                 dec     -1\r
+    022060  aa   777777 777777                 dec     -1\r
+    022061  aa   777777 777777                 dec     -1\r
+    022062  aa   777777 777777                 dec     -1\r
+    022063  aa   777777 777777                 dec     -1\r
+    022064  aa   777777 777777                 dec     -1\r
+    022065  aa   777777 777777                 dec     -1\r
+    022066  aa   777777 777777                 dec     -1\r
+    022067  aa   777777 777777                 dec     -1\r
+    022070  aa   777777 777777                 dec     -1\r
+    022071  aa   777777 777777                 dec     -1\r
+    022072  aa   777777 777777                 dec     -1\r
+    022073  aa   777777 777777                 dec     -1\r
+    022074  aa   777777 777777                 dec     -1\r
+    022075  aa   777777 777777                 dec     -1\r
+    022076  aa   777777 777777                 dec     -1\r
+    022077  aa   777777 777777                 dec     -1\r
+    022100  aa   777777 777777                 dec     -1\r
+    022101  aa   777777 777777                 dec     -1\r
+    022102  aa   777777 777777                 dec     -1\r
+    022103  aa   777777 777777                 dec     -1\r
+    022104  aa   777777 777777                 dec     -1\r
+    022105  aa   777777 777777                 dec     -1\r
+    022106  aa   777777 777777                 dec     -1\r
+    022107  aa   777777 777777                 dec     -1\r
+    022110  aa   777777 777777                 dec     -1\r
+    022111  aa   777777 777777                 dec     -1\r
+    022112  aa   777777 777777                 dec     -1\r
+    022113  aa   777777 777777                 dec     -1\r
+    022114  aa   777777 777777                 dec     -1\r
+    022115  aa   777777 777777                 dec     -1\r
+    022116  aa   777777 777777                 dec     -1\r
+    022117  aa   777777 777777                 dec     -1\r
+    022120  aa   777777 777777                 dec     -1\r
+    022121  aa   777777 777777                 dec     -1\r
+    022122  aa   777777 777777                 dec     -1\r
+    022123  aa   777777 777777                 dec     -1\r
+    022124  aa   777777 777777                 dec     -1\r
+    022125  aa   777777 777777                 dec     -1\r
+    022126  aa   777777 777777                 dec     -1\r
+    022127  aa   777777 777777                 dec     -1\r
+    022130  aa   777777 777777                 dec     -1\r
+    022131  aa   777777 777777                 dec     -1\r
+    022132  aa   777777 777777                 dec     -1\r
+    022133  aa   777777 777777                 dec     -1\r
+    022134  aa   777777 777777                 dec     -1\r
+    022135  aa   777777 777777                 dec     -1\r
+    022136  aa   777777 777777                 dec     -1\r
+    022137  aa   777777 777777                 dec     -1\r
+    022140  aa   777777 777777                 dec     -1\r
+    022141  aa   777777 777777                 dec     -1\r
+    022142  aa   777777 777777                 dec     -1\r
+    022143  aa   777777 777777                 dec     -1\r
+    022144  aa   777777 777777                 dec     -1\r
+    022145  aa   777777 777777                 dec     -1\r
+    022146  aa   777777 777777                 dec     -1\r
+    022147  aa   777777 777777                 dec     -1\r
+    022150  aa   777777 777777                 dec     -1\r
+    022151  aa   777777 777777                 dec     -1\r
+    022152  aa   777777 777777                 dec     -1\r
+    022153  aa   777777 777777                 dec     -1\r
+    022154  aa   777777 777777                 dec     -1\r
+    022155  aa   777777 777777                 dec     -1\r
+    022156  aa   777777 777777                 dec     -1\r
+    022157  aa   777777 777777                 dec     -1\r
+    022160  aa   777777 777777                 dec     -1\r
+    022161  aa   777777 777777                 dec     -1\r
+    022162  aa   777777 777777                 dec     -1\r
+    022163  aa   777777 777777                 dec     -1\r
+    022164  aa   777777 777777                 dec     -1\r
+    022165  aa   777777 777777                 dec     -1\r
+    022166  aa   777777 777777                 dec     -1\r
+    022167  aa   777777 777777                 dec     -1\r
+    022170  aa   777777 777777                 dec     -1\r
+    022171  aa   777777 777777                 dec     -1\r
+    022172  aa   777777 777777                 dec     -1\r
+    022173  aa   777777 777777                 dec     -1\r
+    022174  aa   777777 777777                 dec     -1\r
+    022175  aa   777777 777777                 dec     -1\r
+    022176  aa   777777 777777                 dec     -1\r
+    022177  aa   777777 777777                 dec     -1\r
+    022200  aa   777777 777777                 dec     -1\r
+    022201  aa   777777 777777                 dec     -1\r
+    022202  aa   777777 777777                 dec     -1\r
+    022203  aa   777777 777777                 dec     -1\r
+    022204  aa   777777 777777                 dec     -1\r
+    022205  aa   777777 777777                 dec     -1\r
+    022206  aa   777777 777777                 dec     -1\r
+    022207  aa   777777 777777                 dec     -1\r
+    022210  aa   777777 777777                 dec     -1\r
+    022211  aa   777777 777777                 dec     -1\r
+    022212  aa   777777 777777                 dec     -1\r
+    022213  aa   777777 777777                 dec     -1\r
+    022214  aa   777777 777777                 dec     -1\r
+    022215  aa   777777 777777                 dec     -1\r
+    022216  aa   777777 777777                 dec     -1\r
+    022217  aa   777777 777777                 dec     -1\r
+    022220  aa   777777 777777                 dec     -1\r
+    022221  aa   777777 777777                 dec     -1\r
+    022222  aa   777777 777777                 dec     -1\r
+    022223  aa   777777 777777                 dec     -1\r
+    022224  aa   777777 777777                 dec     -1\r
+    022225  aa   777777 777777                 dec     -1\r
+    022226  aa   777777 777777                 dec     -1\r
+    022227  aa   777777 777777                 dec     -1\r
+    022230  aa   777777 777777                 dec     -1\r
+    022231  aa   777777 777777                 dec     -1\r
+    022232  aa   777777 777777                 dec     -1\r
+                                        "\r
+    022233                              trace_hfp_tct_byte_1:\r
+    022233  aa   777000 777777                 vfd     9/-1,9/0,9/-1,9/-1\r
+                        000177                 dup     127\r
+    022234  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022235  aa   777777 777777                 dec     -1\r
+    022236  aa   777777 777777                 dec     -1\r
+    022237  aa   777777 777777                 dec     -1\r
+    022240  aa   777777 777777                 dec     -1\r
+    022241  aa   777777 777777                 dec     -1\r
+    022242  aa   777777 777777                 dec     -1\r
+    022243  aa   777777 777777                 dec     -1\r
+    022244  aa   777777 777777                 dec     -1\r
+    022245  aa   777777 777777                 dec     -1\r
+    022246  aa   777777 777777                 dec     -1\r
+    022247  aa   777777 777777                 dec     -1\r
+    022250  aa   777777 777777                 dec     -1\r
+    022251  aa   777777 777777                 dec     -1\r
+    022252  aa   777777 777777                 dec     -1\r
+    022253  aa   777777 777777                 dec     -1\r
+    022254  aa   777777 777777                 dec     -1\r
+    022255  aa   777777 777777                 dec     -1\r
+    022256  aa   777777 777777                 dec     -1\r
+    022257  aa   777777 777777                 dec     -1\r
+    022260  aa   777777 777777                 dec     -1\r
+    022261  aa   777777 777777                 dec     -1\r
+    022262  aa   777777 777777                 dec     -1\r
+    022263  aa   777777 777777                 dec     -1\r
+    022264  aa   777777 777777                 dec     -1\r
+    022265  aa   777777 777777                 dec     -1\r
+    022266  aa   777777 777777                 dec     -1\r
+    022267  aa   777777 777777                 dec     -1\r
+    022270  aa   777777 777777                 dec     -1\r
+    022271  aa   777777 777777                 dec     -1\r
+    022272  aa   777777 777777                 dec     -1\r
+    022273  aa   777777 777777                 dec     -1\r
+    022274  aa   777777 777777                 dec     -1\r
+    022275  aa   777777 777777                 dec     -1\r
+    022276  aa   777777 777777                 dec     -1\r
+    022277  aa   777777 777777                 dec     -1\r
+    022300  aa   777777 777777                 dec     -1\r
+    022301  aa   777777 777777                 dec     -1\r
+    022302  aa   777777 777777                 dec     -1\r
+    022303  aa   777777 777777                 dec     -1\r
+    022304  aa   777777 777777                 dec     -1\r
+    022305  aa   777777 777777                 dec     -1\r
+    022306  aa   777777 777777                 dec     -1\r
+    022307  aa   777777 777777                 dec     -1\r
+    022310  aa   777777 777777                 dec     -1\r
+    022311  aa   777777 777777                 dec     -1\r
+    022312  aa   777777 777777                 dec     -1\r
+    022313  aa   777777 777777                 dec     -1\r
+    022314  aa   777777 777777                 dec     -1\r
+    022315  aa   777777 777777                 dec     -1\r
+    022316  aa   777777 777777                 dec     -1\r
+    022317  aa   777777 777777                 dec     -1\r
+    022320  aa   777777 777777                 dec     -1\r
+    022321  aa   777777 777777                 dec     -1\r
+    022322  aa   777777 777777                 dec     -1\r
+    022323  aa   777777 777777                 dec     -1\r
+    022324  aa   777777 777777                 dec     -1\r
+    022325  aa   777777 777777                 dec     -1\r
+    022326  aa   777777 777777                 dec     -1\r
+    022327  aa   777777 777777                 dec     -1\r
+    022330  aa   777777 777777                 dec     -1\r
+    022331  aa   777777 777777                 dec     -1\r
+    022332  aa   777777 777777                 dec     -1\r
+    022333  aa   777777 777777                 dec     -1\r
+    022334  aa   777777 777777                 dec     -1\r
+    022335  aa   777777 777777                 dec     -1\r
+    022336  aa   777777 777777                 dec     -1\r
+    022337  aa   777777 777777                 dec     -1\r
+    022340  aa   777777 777777                 dec     -1\r
+    022341  aa   777777 777777                 dec     -1\r
+    022342  aa   777777 777777                 dec     -1\r
+    022343  aa   777777 777777                 dec     -1\r
+    022344  aa   777777 777777                 dec     -1\r
+    022345  aa   777777 777777                 dec     -1\r
+    022346  aa   777777 777777                 dec     -1\r
+    022347  aa   777777 777777                 dec     -1\r
+    022350  aa   777777 777777                 dec     -1\r
+    022351  aa   777777 777777                 dec     -1\r
+    022352  aa   777777 777777                 dec     -1\r
+    022353  aa   777777 777777                 dec     -1\r
+    022354  aa   777777 777777                 dec     -1\r
+    022355  aa   777777 777777                 dec     -1\r
+    022356  aa   777777 777777                 dec     -1\r
+    022357  aa   777777 777777                 dec     -1\r
+    022360  aa   777777 777777                 dec     -1\r
+    022361  aa   777777 777777                 dec     -1\r
+    022362  aa   777777 777777                 dec     -1\r
+    022363  aa   777777 777777                 dec     -1\r
+    022364  aa   777777 777777                 dec     -1\r
+    022365  aa   777777 777777                 dec     -1\r
+    022366  aa   777777 777777                 dec     -1\r
+    022367  aa   777777 777777                 dec     -1\r
+    022370  aa   777777 777777                 dec     -1\r
+    022371  aa   777777 777777                 dec     -1\r
+    022372  aa   777777 777777                 dec     -1\r
+    022373  aa   777777 777777                 dec     -1\r
+    022374  aa   777777 777777                 dec     -1\r
+    022375  aa   777777 777777                 dec     -1\r
+    022376  aa   777777 777777                 dec     -1\r
+    022377  aa   777777 777777                 dec     -1\r
+    022400  aa   777777 777777                 dec     -1\r
+    022401  aa   777777 777777                 dec     -1\r
+    022402  aa   777777 777777                 dec     -1\r
+    022403  aa   777777 777777                 dec     -1\r
+    022404  aa   777777 777777                 dec     -1\r
+    022405  aa   777777 777777                 dec     -1\r
+    022406  aa   777777 777777                 dec     -1\r
+    022407  aa   777777 777777                 dec     -1\r
+    022410  aa   777777 777777                 dec     -1\r
+    022411  aa   777777 777777                 dec     -1\r
+    022412  aa   777777 777777                 dec     -1\r
+    022413  aa   777777 777777                 dec     -1\r
+    022414  aa   777777 777777                 dec     -1\r
+    022415  aa   777777 777777                 dec     -1\r
+    022416  aa   777777 777777                 dec     -1\r
+    022417  aa   777777 777777                 dec     -1\r
+    022420  aa   777777 777777                 dec     -1\r
+    022421  aa   777777 777777                 dec     -1\r
+    022422  aa   777777 777777                 dec     -1\r
+    022423  aa   777777 777777                 dec     -1\r
+    022424  aa   777777 777777                 dec     -1\r
+    022425  aa   777777 777777                 dec     -1\r
+    022426  aa   777777 777777                 dec     -1\r
+    022427  aa   777777 777777                 dec     -1\r
+    022430  aa   777777 777777                 dec     -1\r
+    022431  aa   777777 777777                 dec     -1\r
+    022432  aa   777777 777777                 dec     -1\r
+                                        "\r
+    022433                              trace_hfp_tct_byte_2:\r
+    022433  aa   777777 000777                 vfd     9/-1,9/-1,9/0,9/-1\r
+                        000177                 dup     127\r
+    022434  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022435  aa   777777 777777                 dec     -1\r
+    022436  aa   777777 777777                 dec     -1\r
+    022437  aa   777777 777777                 dec     -1\r
+    022440  aa   777777 777777                 dec     -1\r
+    022441  aa   777777 777777                 dec     -1\r
+    022442  aa   777777 777777                 dec     -1\r
+    022443  aa   777777 777777                 dec     -1\r
+    022444  aa   777777 777777                 dec     -1\r
+    022445  aa   777777 777777                 dec     -1\r
+    022446  aa   777777 777777                 dec     -1\r
+    022447  aa   777777 777777                 dec     -1\r
+    022450  aa   777777 777777                 dec     -1\r
+    022451  aa   777777 777777                 dec     -1\r
+    022452  aa   777777 777777                 dec     -1\r
+    022453  aa   777777 777777                 dec     -1\r
+    022454  aa   777777 777777                 dec     -1\r
+    022455  aa   777777 777777                 dec     -1\r
+    022456  aa   777777 777777                 dec     -1\r
+    022457  aa   777777 777777                 dec     -1\r
+    022460  aa   777777 777777                 dec     -1\r
+    022461  aa   777777 777777                 dec     -1\r
+    022462  aa   777777 777777                 dec     -1\r
+    022463  aa   777777 777777                 dec     -1\r
+    022464  aa   777777 777777                 dec     -1\r
+    022465  aa   777777 777777                 dec     -1\r
+    022466  aa   777777 777777                 dec     -1\r
+    022467  aa   777777 777777                 dec     -1\r
+    022470  aa   777777 777777                 dec     -1\r
+    022471  aa   777777 777777                 dec     -1\r
+    022472  aa   777777 777777                 dec     -1\r
+    022473  aa   777777 777777                 dec     -1\r
+    022474  aa   777777 777777                 dec     -1\r
+    022475  aa   777777 777777                 dec     -1\r
+    022476  aa   777777 777777                 dec     -1\r
+    022477  aa   777777 777777                 dec     -1\r
+    022500  aa   777777 777777                 dec     -1\r
+    022501  aa   777777 777777                 dec     -1\r
+    022502  aa   777777 777777                 dec     -1\r
+    022503  aa   777777 777777                 dec     -1\r
+    022504  aa   777777 777777                 dec     -1\r
+    022505  aa   777777 777777                 dec     -1\r
+    022506  aa   777777 777777                 dec     -1\r
+    022507  aa   777777 777777                 dec     -1\r
+    022510  aa   777777 777777                 dec     -1\r
+    022511  aa   777777 777777                 dec     -1\r
+    022512  aa   777777 777777                 dec     -1\r
+    022513  aa   777777 777777                 dec     -1\r
+    022514  aa   777777 777777                 dec     -1\r
+    022515  aa   777777 777777                 dec     -1\r
+    022516  aa   777777 777777                 dec     -1\r
+    022517  aa   777777 777777                 dec     -1\r
+    022520  aa   777777 777777                 dec     -1\r
+    022521  aa   777777 777777                 dec     -1\r
+    022522  aa   777777 777777                 dec     -1\r
+    022523  aa   777777 777777                 dec     -1\r
+    022524  aa   777777 777777                 dec     -1\r
+    022525  aa   777777 777777                 dec     -1\r
+    022526  aa   777777 777777                 dec     -1\r
+    022527  aa   777777 777777                 dec     -1\r
+    022530  aa   777777 777777                 dec     -1\r
+    022531  aa   777777 777777                 dec     -1\r
+    022532  aa   777777 777777                 dec     -1\r
+    022533  aa   777777 777777                 dec     -1\r
+    022534  aa   777777 777777                 dec     -1\r
+    022535  aa   777777 777777                 dec     -1\r
+    022536  aa   777777 777777                 dec     -1\r
+    022537  aa   777777 777777                 dec     -1\r
+    022540  aa   777777 777777                 dec     -1\r
+    022541  aa   777777 777777                 dec     -1\r
+    022542  aa   777777 777777                 dec     -1\r
+    022543  aa   777777 777777                 dec     -1\r
+    022544  aa   777777 777777                 dec     -1\r
+    022545  aa   777777 777777                 dec     -1\r
+    022546  aa   777777 777777                 dec     -1\r
+    022547  aa   777777 777777                 dec     -1\r
+    022550  aa   777777 777777                 dec     -1\r
+    022551  aa   777777 777777                 dec     -1\r
+    022552  aa   777777 777777                 dec     -1\r
+    022553  aa   777777 777777                 dec     -1\r
+    022554  aa   777777 777777                 dec     -1\r
+    022555  aa   777777 777777                 dec     -1\r
+    022556  aa   777777 777777                 dec     -1\r
+    022557  aa   777777 777777                 dec     -1\r
+    022560  aa   777777 777777                 dec     -1\r
+    022561  aa   777777 777777                 dec     -1\r
+    022562  aa   777777 777777                 dec     -1\r
+    022563  aa   777777 777777                 dec     -1\r
+    022564  aa   777777 777777                 dec     -1\r
+    022565  aa   777777 777777                 dec     -1\r
+    022566  aa   777777 777777                 dec     -1\r
+    022567  aa   777777 777777                 dec     -1\r
+    022570  aa   777777 777777                 dec     -1\r
+    022571  aa   777777 777777                 dec     -1\r
+    022572  aa   777777 777777                 dec     -1\r
+    022573  aa   777777 777777                 dec     -1\r
+    022574  aa   777777 777777                 dec     -1\r
+    022575  aa   777777 777777                 dec     -1\r
+    022576  aa   777777 777777                 dec     -1\r
+    022577  aa   777777 777777                 dec     -1\r
+    022600  aa   777777 777777                 dec     -1\r
+    022601  aa   777777 777777                 dec     -1\r
+    022602  aa   777777 777777                 dec     -1\r
+    022603  aa   777777 777777                 dec     -1\r
+    022604  aa   777777 777777                 dec     -1\r
+    022605  aa   777777 777777                 dec     -1\r
+    022606  aa   777777 777777                 dec     -1\r
+    022607  aa   777777 777777                 dec     -1\r
+    022610  aa   777777 777777                 dec     -1\r
+    022611  aa   777777 777777                 dec     -1\r
+    022612  aa   777777 777777                 dec     -1\r
+    022613  aa   777777 777777                 dec     -1\r
+    022614  aa   777777 777777                 dec     -1\r
+    022615  aa   777777 777777                 dec     -1\r
+    022616  aa   777777 777777                 dec     -1\r
+    022617  aa   777777 777777                 dec     -1\r
+    022620  aa   777777 777777                 dec     -1\r
+    022621  aa   777777 777777                 dec     -1\r
+    022622  aa   777777 777777                 dec     -1\r
+    022623  aa   777777 777777                 dec     -1\r
+    022624  aa   777777 777777                 dec     -1\r
+    022625  aa   777777 777777                 dec     -1\r
+    022626  aa   777777 777777                 dec     -1\r
+    022627  aa   777777 777777                 dec     -1\r
+    022630  aa   777777 777777                 dec     -1\r
+    022631  aa   777777 777777                 dec     -1\r
+    022632  aa   777777 777777                 dec     -1\r
+                                        "\r
+    022633                              trace_hfp_tct_byte_3:\r
+    022633  aa   777777 777000                 vfd     9/-1,9/-1,9/-1,9/0\r
+                        000177                 dup     127\r
+    022634  aa   777777 777777                 dec     -1\r
+                                               dupend\r
+    022635  aa   777777 777777                 dec     -1\r
+    022636  aa   777777 777777                 dec     -1\r
+    022637  aa   777777 777777                 dec     -1\r
+    022640  aa   777777 777777                 dec     -1\r
+    022641  aa   777777 777777                 dec     -1\r
+    022642  aa   777777 777777                 dec     -1\r
+    022643  aa   777777 777777                 dec     -1\r
+    022644  aa   777777 777777                 dec     -1\r
+    022645  aa   777777 777777                 dec     -1\r
+    022646  aa   777777 777777                 dec     -1\r
+    022647  aa   777777 777777                 dec     -1\r
+    022650  aa   777777 777777                 dec     -1\r
+    022651  aa   777777 777777                 dec     -1\r
+    022652  aa   777777 777777                 dec     -1\r
+    022653  aa   777777 777777                 dec     -1\r
+    022654  aa   777777 777777                 dec     -1\r
+    022655  aa   777777 777777                 dec     -1\r
+    022656  aa   777777 777777                 dec     -1\r
+    022657  aa   777777 777777                 dec     -1\r
+    022660  aa   777777 777777                 dec     -1\r
+    022661  aa   777777 777777                 dec     -1\r
+    022662  aa   777777 777777                 dec     -1\r
+    022663  aa   777777 777777                 dec     -1\r
+    022664  aa   777777 777777                 dec     -1\r
+    022665  aa   777777 777777                 dec     -1\r
+    022666  aa   777777 777777                 dec     -1\r
+    022667  aa   777777 777777                 dec     -1\r
+    022670  aa   777777 777777                 dec     -1\r
+    022671  aa   777777 777777                 dec     -1\r
+    022672  aa   777777 777777                 dec     -1\r
+    022673  aa   777777 777777                 dec     -1\r
+    022674  aa   777777 777777                 dec     -1\r
+    022675  aa   777777 777777                 dec     -1\r
+    022676  aa   777777 777777                 dec     -1\r
+    022677  aa   777777 777777                 dec     -1\r
+    022700  aa   777777 777777                 dec     -1\r
+    022701  aa   777777 777777                 dec     -1\r
+    022702  aa   777777 777777                 dec     -1\r
+    022703  aa   777777 777777                 dec     -1\r
+    022704  aa   777777 777777                 dec     -1\r
+    022705  aa   777777 777777                 dec     -1\r
+    022706  aa   777777 777777                 dec     -1\r
+    022707  aa   777777 777777                 dec     -1\r
+    022710  aa   777777 777777                 dec     -1\r
+    022711  aa   777777 777777                 dec     -1\r
+    022712  aa   777777 777777                 dec     -1\r
+    022713  aa   777777 777777                 dec     -1\r
+    022714  aa   777777 777777                 dec     -1\r
+    022715  aa   777777 777777                 dec     -1\r
+    022716  aa   777777 777777                 dec     -1\r
+    022717  aa   777777 777777                 dec     -1\r
+    022720  aa   777777 777777                 dec     -1\r
+    022721  aa   777777 777777                 dec     -1\r
+    022722  aa   777777 777777                 dec     -1\r
+    022723  aa   777777 777777                 dec     -1\r
+    022724  aa   777777 777777                 dec     -1\r
+    022725  aa   777777 777777                 dec     -1\r
+    022726  aa   777777 777777                 dec     -1\r
+    022727  aa   777777 777777                 dec     -1\r
+    022730  aa   777777 777777                 dec     -1\r
+    022731  aa   777777 777777                 dec     -1\r
+    022732  aa   777777 777777                 dec     -1\r
+    022733  aa   777777 777777                 dec     -1\r
+    022734  aa   777777 777777                 dec     -1\r
+    022735  aa   777777 777777                 dec     -1\r
+    022736  aa   777777 777777                 dec     -1\r
+    022737  aa   777777 777777                 dec     -1\r
+    022740  aa   777777 777777                 dec     -1\r
+    022741  aa   777777 777777                 dec     -1\r
+    022742  aa   777777 777777                 dec     -1\r
+    022743  aa   777777 777777                 dec     -1\r
+    022744  aa   777777 777777                 dec     -1\r
+    022745  aa   777777 777777                 dec     -1\r
+    022746  aa   777777 777777                 dec     -1\r
+    022747  aa   777777 777777                 dec     -1\r
+    022750  aa   777777 777777                 dec     -1\r
+    022751  aa   777777 777777                 dec     -1\r
+    022752  aa   777777 777777                 dec     -1\r
+    022753  aa   777777 777777                 dec     -1\r
+    022754  aa   777777 777777                 dec     -1\r
+    022755  aa   777777 777777                 dec     -1\r
+    022756  aa   777777 777777                 dec     -1\r
+    022757  aa   777777 777777                 dec     -1\r
+    022760  aa   777777 777777                 dec     -1\r
+    022761  aa   777777 777777                 dec     -1\r
+    022762  aa   777777 777777                 dec     -1\r
+    022763  aa   777777 777777                 dec     -1\r
+    022764  aa   777777 777777                 dec     -1\r
+    022765  aa   777777 777777                 dec     -1\r
+    022766  aa   777777 777777                 dec     -1\r
+    022767  aa   777777 777777                 dec     -1\r
+    022770  aa   777777 777777                 dec     -1\r
+    022771  aa   777777 777777                 dec     -1\r
+    022772  aa   777777 777777                 dec     -1\r
+    022773  aa   777777 777777                 dec     -1\r
+    022774  aa   777777 777777                 dec     -1\r
+    022775  aa   777777 777777                 dec     -1\r
+    022776  aa   777777 777777                 dec     -1\r
+    022777  aa   777777 777777                 dec     -1\r
+    023000  aa   777777 777777                 dec     -1\r
+    023001  aa   777777 777777                 dec     -1\r
+    023002  aa   777777 777777                 dec     -1\r
+    023003  aa   777777 777777                 dec     -1\r
+    023004  aa   777777 777777                 dec     -1\r
+    023005  aa   777777 777777                 dec     -1\r
+    023006  aa   777777 777777                 dec     -1\r
+    023007  aa   777777 777777                 dec     -1\r
+    023010  aa   777777 777777                 dec     -1\r
+    023011  aa   777777 777777                 dec     -1\r
+    023012  aa   777777 777777                 dec     -1\r
+    023013  aa   777777 777777                 dec     -1\r
+    023014  aa   777777 777777                 dec     -1\r
+    023015  aa   777777 777777                 dec     -1\r
+    023016  aa   777777 777777                 dec     -1\r
+    023017  aa   777777 777777                 dec     -1\r
+    023020  aa   777777 777777                 dec     -1\r
+    023021  aa   777777 777777                 dec     -1\r
+    023022  aa   777777 777777                 dec     -1\r
+    023023  aa   777777 777777                 dec     -1\r
+    023024  aa   777777 777777                 dec     -1\r
+    023025  aa   777777 777777                 dec     -1\r
+    023026  aa   777777 777777                 dec     -1\r
+    023027  aa   777777 777777                 dec     -1\r
+    023030  aa   777777 777777                 dec     -1\r
+    023031  aa   777777 777777                 dec     -1\r
+    023032  aa   777777 777777                 dec     -1\r
+                                        "\r
+                                        "      The number of words per segment of a FORTRAN Very Large Array.\r
+                                        "\r
+    023033                              trace_hfp_VLA_words_per_seg_:\r
+    023033  aa   000001 000000                 vfd     36/256*1024\r
+                                        "\r
+                                        "      table of csl's for use by bool builtin function\r
+                                        "\r
+    023034                              trace_hfp_csl_vector:\r
+    023034  aa  0 00140 0605 40                csl     (pr,rl),(pr,rl),bool(0)\r
+    023035  aa  0 01140 0605 40                csl     (pr,rl),(pr,rl),bool(1)\r
+    023036  aa  0 02140 0605 40                csl     (pr,rl),(pr,rl),bool(2)\r
+    023037  aa  0 03140 0605 40                csl     (pr,rl),(pr,rl),bool(3)\r
+    023040  aa  0 04140 0605 40                csl     (pr,rl),(pr,rl),bool(4)\r
+    023041  aa  0 05140 0605 40                csl     (pr,rl),(pr,rl),bool(5)\r
+    023042  aa  0 06140 0605 40                csl     (pr,rl),(pr,rl),bool(6)\r
+    023043  aa  0 07140 0605 40                csl     (pr,rl),(pr,rl),bool(7)\r
+    023044  aa  0 10140 0605 40                csl     (pr,rl),(pr,rl),bool(10)\r
+    023045  aa  0 11140 0605 40                csl     (pr,rl),(pr,rl),bool(11)\r
+    023046  aa  0 12140 0605 40                csl     (pr,rl),(pr,rl),bool(12)\r
+    023047  aa  0 13140 0605 40                csl     (pr,rl),(pr,rl),bool(13)\r
+    023050  aa  0 14140 0605 40                csl     (pr,rl),(pr,rl),bool(14)\r
+    023051  aa  0 15140 0605 40                csl     (pr,rl),(pr,rl),bool(15)\r
+    023052  aa  0 16140 0605 40                csl     (pr,rl),(pr,rl),bool(16)\r
+    023053  aa  0 17140 0605 40                csl     (pr,rl),(pr,rl),bool(17)\r
+                                        "\r
+                                        "      shift table for character offset\r
+                                        "\r
+    023054  aa   000000 000000          trace_hfp_co_to_bo:    dec     0,9b17,18b17,27b17\r
+    023055  aa   000011 000000 \r
+    023056  aa   000022 000000 \r
+    023057  aa   000033 000000 \r
+                                        "\r
+                                        "      shift table for half word offset\r
+                                        "\r
+    023060  aa   000000 000000          trace_hfp_ho_to_bo:    dec     0,18b17\r
+    023061  aa   000022 000000 \r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023062                              trace_hfp_store_a9_co:\r
+    023062  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    023063  aa  2 00000 5511 20                stba    bp|0,20         1\r
+    023064  aa  2 00000 5511 10                stba    bp|0,10         2\r
+    023065  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    023066  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    023067  aa  2 00000 5511 30                stba    bp|0,30         1\r
+    023070  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    023071  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    023072  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    023073  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    023074  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    023075  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    023076  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    023077  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    023100  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    023101  aa  2 00000 5511 04                stba    bp|0,04         3\r
+    023102  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    023103  aa  2 00000 5511 34                stba    bp|0,34         1\r
+    023104  aa  2 00000 5511 14                stba    bp|0,14         2\r
+    023105  aa  2 00000 5511 04                stba    bp|0,04         3\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, character offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023106                              trace_hfp_store_q9_co:\r
+    023106  aa   000000 0110 07                nop     0,dl            0       2\r
+    023107  aa   000000 0110 07                nop     0,dl            1\r
+    023110  aa   000000 0110 07                nop     0,dl            2\r
+    023111  aa  2 00001 5521 40                stbq    bp|1,40         3\r
+    023112  aa   000000 0110 07                nop     0,dl            0       3\r
+    023113  aa   000000 0110 07                nop     0,dl            1\r
+    023114  aa  2 00001 5521 40                stbq    bp|1,40         2\r
+    023115  aa  2 00001 5521 60                stbq    bp|1,60         3\r
+    023116  aa   000000 0110 07                nop     0,dl            0       4\r
+    023117  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    023120  aa  2 00001 5521 60                stbq    bp|1,60         2\r
+    023121  aa  2 00001 5521 70                stbq    bp|1,70         3\r
+    023122  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    023123  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    023124  aa  2 00001 5521 70                stbq    bp|1,70         2\r
+    023125  aa  2 00001 7561 00                stq     bp|1            3\r
+                                        "\r
+                                        "      store table from a, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023126                              trace_hfp_store_a9_ho:\r
+    023126  aa  2 00000 5511 40                stba    bp|0,40         0       1\r
+    023127  aa  2 00000 5511 10                stba    bp|0,10         1\r
+    023130  aa  2 00000 5511 60                stba    bp|0,60         0       2\r
+    023131  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    023132  aa  2 00000 5511 70                stba    bp|0,70         0       3\r
+    023133  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    023134  aa  2 00000 7551 00                sta     bp|0            0       4\r
+    023135  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    023136  aa  2 00000 7551 00                sta     bp|0            0       5\r
+    023137  aa  2 00000 5511 14                stba    bp|0,14         1\r
+    023140  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    023141  aa  2 00000 5511 14                stba    bp|0,14         1\r
+                                        "\r
+                                        "      store table from q, 9 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023142                              trace_hfp_store_q9_ho:\r
+    023142  aa   000000 0110 07                nop     0,dl            0       2\r
+    023143  aa   000000 0110 07                nop     0,dl            1\r
+    023144  aa   000000 0110 07                nop     0,dl            0       3\r
+    023145  aa  2 00001 5521 40                stbq    bp|1,40         1\r
+    023146  aa   000000 0110 07                nop     0,dl            0       4\r
+    023147  aa  2 00001 5521 60                stbq    bp|1,60         1\r
+    023150  aa  2 00001 5521 40                stbq    bp|1,40         0       5\r
+    023151  aa  2 00001 5521 70                stbq    bp|1,70         1\r
+    023152  aa  2 00001 5521 60                stbq    bp|1,60         0       6\r
+    023153  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        "      store table from a, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023154                              trace_hfp_store_a6_ho:\r
+    023154  aa  2 00000 7511 40                stca    bp|0,40         0       1\r
+    023155  aa  2 00000 7511 04                stca    bp|0,04         1\r
+    023156  aa  2 00000 7511 60                stca    bp|0,60         0       2\r
+    023157  aa  2 00000 7511 06                stca    bp|0,06         1\r
+    023160  aa  2 00000 7511 70                stca    bp|0,70         0       3\r
+    023161  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023162  aa  2 00000 7511 74                stca    bp|0,74         0       4\r
+    023163  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023164  aa  2 00000 7511 76                stca    bp|0,76         0       5\r
+    023165  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023166  aa  2 00000 7551 00                sta     bp|0            0       6\r
+    023167  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023170  aa  2 00000 7551 00                sta     bp|0            0       7\r
+    023171  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023172  aa  2 00000 7551 00                sta     bp|0            0       8\r
+    023173  aa  2 00000 7511 07                stca    bp|0,07         1\r
+    023174  aa  2 00000 7551 00                sta     bp|0            0       9\r
+    023175  aa  2 00000 7511 07                stca    bp|0,07         1\r
+                                        "\r
+                                        "      store table from q, 6 bit bytes, half word offset\r
+                                        "                              OFFSET  SIZE\r
+                                        "\r
+    023176                              trace_hfp_store_q6_ho:\r
+    023176  aa   000000 0110 07                nop     0,dl            0       2\r
+    023177  aa   000000 0110 07                nop     0,dl            1\r
+    023200  aa   000000 0110 07                nop     0,dl            0       3\r
+    023201  aa   000000 0110 07                nop     0,dl            1\r
+    023202  aa   000000 0110 07                nop     0,dl            0       4\r
+    023203  aa  2 00001 7521 40                stcq    bp|1,40         1\r
+    023204  aa   000000 0110 07                nop     0,dl            0       5\r
+    023205  aa  2 00001 7521 60                stcq    bp|1,60         1\r
+    023206  aa   000000 0110 07                nop     0,dl            0       6\r
+    023207  aa  2 00001 7521 70                stcq    bp|1,70         1\r
+    023210  aa  2 00001 7521 40                stcq    bp|1,40         0       7\r
+    023211  aa  2 00001 7521 74                stcq    bp|1,74         1\r
+    023212  aa  2 00001 7521 60                stcq    bp|1,60         0       8\r
+    023213  aa  2 00001 7521 76                stcq    bp|1,76         1\r
+    023214  aa  2 00001 7521 70                stcq    bp|1,70         0       9\r
+    023215  aa  2 00001 7561 00                stq     bp|1            1\r
+                                        "\r
+                                        " THE FOLLOWING SECTION IS DIRECTLY REFERENCED FROM PL/1 PROGRAMS BY MEANS OF\r
+                                        " ap|offset.  FOR THIS REASON, THE ORDER OF THE FOLLOWING INSTRUCTIONS MUST\r
+                                        " NOT BE CHANGED.\r
+                                        "\r
+    023216                              trace_hfp_operator_table:\r
+    023216                              trace_hfp_bit_mask:\r
+    023216  aa   000000 000000                 vfd     0/-1,72/0\r
+    023217  aa   000000 000000 \r
+    023220  aa   400000 000000                 vfd     1/-1,71/0\r
+    023221  aa   000000 000000 \r
+    023222  aa   600000 000000                 vfd     2/-1,70/0\r
+    023223  aa   000000 000000 \r
+    023224  aa   700000 000000                 vfd     3/-1,69/0\r
+    023225  aa   000000 000000 \r
+    023226  aa   740000 000000                 vfd     4/-1,68/0\r
+    023227  aa   000000 000000 \r
+    023230  aa   760000 000000                 vfd     5/-1,67/0\r
+    023231  aa   000000 000000 \r
+    023232  aa   770000 000000                 vfd     6/-1,66/0\r
+    023233  aa   000000 000000 \r
+    023234  aa   774000 000000                 vfd     7/-1,65/0\r
+    023235  aa   000000 000000 \r
+    023236  aa   776000 000000                 vfd     8/-1,64/0\r
+    023237  aa   000000 000000 \r
+    023240  aa   777000 000000                 vfd     9/-1,63/0\r
+    023241  aa   000000 000000 \r
+    023242  aa   777400 000000                 vfd     10/-1,62/0\r
+    023243  aa   000000 000000 \r
+    023244  aa   777600 000000                 vfd     11/-1,61/0\r
+    023245  aa   000000 000000 \r
+    023246  aa   777700 000000                 vfd     12/-1,60/0\r
+    023247  aa   000000 000000 \r
+    023250  aa   777740 000000                 vfd     13/-1,59/0\r
+    023251  aa   000000 000000 \r
+    023252  aa   777760 000000                 vfd     14/-1,58/0\r
+    023253  aa   000000 000000 \r
+    023254  aa   777770 000000                 vfd     15/-1,57/0\r
+    023255  aa   000000 000000 \r
+    023256  aa   777774 000000                 vfd     16/-1,56/0\r
+    023257  aa   000000 000000 \r
+    023260  aa   777776 000000                 vfd     17/-1,55/0\r
+    023261  aa   000000 000000 \r
+    023262  aa   777777 000000                 vfd     18/-1,54/0\r
+    023263  aa   000000 000000 \r
+    023264  aa   777777 400000                 vfd     19/-1,53/0\r
+    023265  aa   000000 000000 \r
+    023266  aa   777777 600000                 vfd     20/-1,52/0\r
+    023267  aa   000000 000000 \r
+    023270  aa   777777 700000                 vfd     21/-1,51/0\r
+    023271  aa   000000 000000 \r
+    023272  aa   777777 740000                 vfd     22/-1,50/0\r
+    023273  aa   000000 000000 \r
+    023274  aa   777777 760000                 vfd     23/-1,49/0\r
+    023275  aa   000000 000000 \r
+    023276  aa   777777 770000                 vfd     24/-1,48/0\r
+    023277  aa   000000 000000 \r
+    023300  aa   777777 774000                 vfd     25/-1,47/0\r
+    023301  aa   000000 000000 \r
+    023302  aa   777777 776000                 vfd     26/-1,46/0\r
+    023303  aa   000000 000000 \r
+    023304  aa   777777 777000                 vfd     27/-1,45/0\r
+    023305  aa   000000 000000 \r
+    023306  aa   777777 777400                 vfd     28/-1,44/0\r
+    023307  aa   000000 000000 \r
+    023310  aa   777777 777600                 vfd     29/-1,43/0\r
+    023311  aa   000000 000000 \r
+    023312  aa   777777 777700                 vfd     30/-1,42/0\r
+    023313  aa   000000 000000 \r
+    023314  aa   777777 777740                 vfd     31/-1,41/0\r
+    023315  aa   000000 000000 \r
+    023316  aa   777777 777760                 vfd     32/-1,40/0\r
+    023317  aa   000000 000000 \r
+    023320  aa   777777 777770                 vfd     33/-1,39/0\r
+    023321  aa   000000 000000 \r
+    023322  aa   777777 777774                 vfd     34/-1,38/0\r
+    023323  aa   000000 000000 \r
+    023324  aa   777777 777776                 vfd     35/-1,37/0\r
+    023325  aa   000000 000000 \r
+    023326  aa   777777 777777          trace_hfp_ones:        vfd     36/-1,36/0\r
+    023327  aa   000000 000000 \r
+    023330  aa   777777 777777                 vfd     36/-1,1/-1,35/0\r
+    023331  aa   400000 000000 \r
+    023332  aa   777777 777777                 vfd     36/-1,2/-1,34/0\r
+    023333  aa   600000 000000 \r
+    023334  aa   777777 777777                 vfd     36/-1,3/-1,33/0\r
+    023335  aa   700000 000000 \r
+    023336  aa   777777 777777                 vfd     36/-1,4/-1,32/0\r
+    023337  aa   740000 000000 \r
+    023340  aa   777777 777777                 vfd     36/-1,5/-1,31/0\r
+    023341  aa   760000 000000 \r
+    023342  aa   777777 777777                 vfd     36/-1,6/-1,30/0\r
+    023343  aa   770000 000000 \r
+    023344  aa   777777 777777                 vfd     36/-1,7/-1,29/0\r
+    023345  aa   774000 000000 \r
+    023346  aa   777777 777777                 vfd     36/-1,8/-1,28/0\r
+    023347  aa   776000 000000 \r
+    023350  aa   777777 777777                 vfd     36/-1,9/-1,27/0\r
+    023351  aa   777000 000000 \r
+    023352  aa   777777 777777                 vfd     36/-1,10/-1,26/0\r
+    023353  aa   777400 000000 \r
+    023354  aa   777777 777777                 vfd     36/-1,11/-1,25/0\r
+    023355  aa   777600 000000 \r
+    023356  aa   777777 777777                 vfd     36/-1,12/-1,24/0\r
+    023357  aa   777700 000000 \r
+    023360  aa   777777 777777                 vfd     36/-1,13/-1,23/0\r
+    023361  aa   777740 000000 \r
+    023362  aa   777777 777777                 vfd     36/-1,14/-1,22/0\r
+    023363  aa   777760 000000 \r
+    023364  aa   777777 777777                 vfd     36/-1,15/-1,21/0\r
+    023365  aa   777770 000000 \r
+    023366  aa   777777 777777                 vfd     36/-1,16/-1,20/0\r
+    023367  aa   777774 000000 \r
+    023370  aa   777777 777777                 vfd     36/-1,17/-1,19/0\r
+    023371  aa   777776 000000 \r
+    023372  aa   777777 777777                 vfd     36/-1,18/-1,18/0\r
+    023373  aa   777777 000000 \r
+    023374  aa   777777 777777                 vfd     36/-1,19/-1,17/0\r
+    023375  aa   777777 400000 \r
+    023376  aa   777777 777777                 vfd     36/-1,20/-1,16/0\r
+    023377  aa   777777 600000 \r
+    023400  aa   777777 777777                 vfd     36/-1,21/-1,15/0\r
+    023401  aa   777777 700000 \r
+    023402  aa   777777 777777                 vfd     36/-1,22/-1,14/0\r
+    023403  aa   777777 740000 \r
+    023404  aa   777777 777777                 vfd     36/-1,23/-1,13/0\r
+    023405  aa   777777 760000 \r
+    023406  aa   777777 777777                 vfd     36/-1,24/-1,12/0\r
+    023407  aa   777777 770000 \r
+    023410  aa   777777 777777                 vfd     36/-1,25/-1,11/0\r
+    023411  aa   777777 774000 \r
+    023412  aa   777777 777777                 vfd     36/-1,26/-1,10/0\r
+    023413  aa   777777 776000 \r
+    023414  aa   777777 777777                 vfd     36/-1,27/-1,9/0\r
+    023415  aa   777777 777000 \r
+    023416  aa   777777 777777                 vfd     36/-1,28/-1,8/0\r
+    023417  aa   777777 777400 \r
+    023420  aa   777777 777777                 vfd     36/-1,29/-1,7/0\r
+    023421  aa   777777 777600 \r
+    023422  aa   777777 777777                 vfd     36/-1,30/-1,6/0\r
+    023423  aa   777777 777700 \r
+    023424  aa   777777 777777                 vfd     36/-1,31/-1,5/0\r
+    023425  aa   777777 777740 \r
+    023426  aa   777777 777777                 vfd     36/-1,32/-1,4/0\r
+    023427  aa   777777 777760 \r
+    023430  aa   777777 777777                 vfd     36/-1,33/-1,3/0\r
+    023431  aa   777777 777770 \r
+    023432  aa   777777 777777                 vfd     36/-1,34/-1,2/0\r
+    023433  aa   777777 777774 \r
+    023434  aa   777777 777777                 vfd     36/-1,35/-1,1/0\r
+    023435  aa   777777 777776 \r
+                                        "\r
+    023436                              trace_hfp_mask_bit:\r
+    023436  aa   777777 777777                 vfd     0/0,36/-1,36/-1\r
+    023437  aa   777777 777777 \r
+    023440  aa   377777 777777                 vfd     1/0,35/-1,36/-1\r
+    023441  aa   777777 777777 \r
+    023442  aa   177777 777777                 vfd     2/0,34/-1,36/-1\r
+    023443  aa   777777 777777 \r
+    023444  aa   077777 777777                 vfd     3/0,33/-1,36/-1\r
+    023445  aa   777777 777777 \r
+    023446  aa   037777 777777                 vfd     4/0,32/-1,36/-1\r
+    023447  aa   777777 777777 \r
+    023450  aa   017777 777777                 vfd     5/0,31/-1,36/-1\r
+    023451  aa   777777 777777 \r
+    023452  aa   007777 777777                 vfd     6/0,30/-1,36/-1\r
+    023453  aa   777777 777777 \r
+    023454  aa   003777 777777                 vfd     7/0,29/-1,36/-1\r
+    023455  aa   777777 777777 \r
+    023456  aa   001777 777777                 vfd     8/0,28/-1,36/-1\r
+    023457  aa   777777 777777 \r
+    023460  aa   000777 777777                 vfd     9/0,27/-1,36/-1\r
+    023461  aa   777777 777777 \r
+    023462  aa   000377 777777                 vfd     10/0,26/-1,36/-1\r
+    023463  aa   777777 777777 \r
+    023464  aa   000177 777777                 vfd     11/0,25/-1,36/-1\r
+    023465  aa   777777 777777 \r
+    023466  aa   000077 777777                 vfd     12/0,24/-1,36/-1\r
+    023467  aa   777777 777777 \r
+    023470  aa   000037 777777                 vfd     13/0,23/-1,36/-1\r
+    023471  aa   777777 777777 \r
+    023472  aa   000017 777777                 vfd     14/0,22/-1,36/-1\r
+    023473  aa   777777 777777 \r
+    023474  aa   000007 777777                 vfd     15/0,21/-1,36/-1\r
+    023475  aa   777777 777777 \r
+    023476  aa   000003 777777                 vfd     16/0,20/-1,36/-1\r
+    023477  aa   777777 777777 \r
+    023500  aa   000001 777777                 vfd     17/0,19/-1,36/-1\r
+    023501  aa   777777 777777 \r
+    023502  aa   000000 777777                 vfd     18/0,18/-1,36/-1\r
+    023503  aa   777777 777777 \r
+    023504  aa   000000 377777                 vfd     19/0,17/-1,36/-1\r
+    023505  aa   777777 777777 \r
+    023506  aa   000000 177777                 vfd     20/0,16/-1,36/-1\r
+    023507  aa   777777 777777 \r
+    023510  aa   000000 077777                 vfd     21/0,15/-1,36/-1\r
+    023511  aa   777777 777777 \r
+    023512  aa   000000 037777                 vfd     22/0,14/-1,36/-1\r
+    023513  aa   777777 777777 \r
+    023514  aa   000000 017777                 vfd     23/0,13/-1,36/-1\r
+    023515  aa   777777 777777 \r
+    023516  aa   000000 007777                 vfd     24/0,12/-1,36/-1\r
+    023517  aa   777777 777777 \r
+    023520  aa   000000 003777                 vfd     25/0,11/-1,36/-1\r
+    023521  aa   777777 777777 \r
+    023522  aa   000000 001777                 vfd     26/0,10/-1,36/-1\r
+    023523  aa   777777 777777 \r
+    023524  aa   000000 000777                 vfd     27/0,9/-1,36/-1\r
+    023525  aa   777777 777777 \r
+    023526  aa   000000 000377                 vfd     28/0,8/-1,36/-1\r
+    023527  aa   777777 777777 \r
+    023530  aa   000000 000177                 vfd     29/0,7/-1,36/-1\r
+    023531  aa   777777 777777 \r
+    023532  aa   000000 000077                 vfd     30/0,6/-1,36/-1\r
+    023533  aa   777777 777777 \r
+    023534  aa   000000 000037                 vfd     31/0,5/-1,36/-1\r
+    023535  aa   777777 777777 \r
+    023536  aa   000000 000017                 vfd     32/0,4/-1,36/-1\r
+    023537  aa   777777 777777 \r
+    023540  aa   000000 000007                 vfd     33/0,3/-1,36/-1\r
+    023541  aa   777777 777777 \r
+    023542  aa   000000 000003                 vfd     34/0,2/-1,36/-1\r
+    023543  aa   777777 777777 \r
+    023544  aa   000000 000001                 vfd     35/0,1/-1,36/-1\r
+    023545  aa   777777 777777 \r
+    023546  aa   000000 000000                 vfd     36/0,36/-1\r
+    023547  aa   777777 777777 \r
+    023550                              trace_hfp_max_single_value:\r
+    023550  aa   000000 000000                 vfd     37/0,35/-1\r
+    023551  aa   377777 777777 \r
+    023552  aa   000000 000000                 vfd     38/0,34/-1\r
+    023553  aa   177777 777777 \r
+    023554  aa   000000 000000                 vfd     39/0,33/-1\r
+    023555  aa   077777 777777 \r
+    023556  aa   000000 000000                 vfd     40/0,32/-1\r
+    023557  aa   037777 777777 \r
+    023560  aa   000000 000000                 vfd     41/0,31/-1\r
+    023561  aa   017777 777777 \r
+    023562  aa   000000 000000                 vfd     42/0,30/-1\r
+    023563  aa   007777 777777 \r
+    023564  aa   000000 000000                 vfd     43/0,29/-1\r
+    023565  aa   003777 777777 \r
+    023566  aa   000000 000000                 vfd     44/0,28/-1\r
+    023567  aa   001777 777777 \r
+    023570  aa   000000 000000                 vfd     45/0,27/-1\r
+    023571  aa   000777 777777 \r
+    023572  aa   000000 000000                 vfd     46/0,26/-1\r
+    023573  aa   000377 777777 \r
+    023574  aa   000000 000000                 vfd     47/0,25/-1\r
+    023575  aa   000177 777777 \r
+    023576  aa   000000 000000                 vfd     48/0,24/-1\r
+    023577  aa   000077 777777 \r
+    023600  aa   000000 000000                 vfd     49/0,23/-1\r
+    023601  aa   000037 777777 \r
+    023602  aa   000000 000000                 vfd     50/0,22/-1\r
+    023603  aa   000017 777777 \r
+    023604  aa   000000 000000                 vfd     51/0,21/-1\r
+    023605  aa   000007 777777 \r
+    023606  aa   000000 000000                 vfd     52/0,20/-1\r
+    023607  aa   000003 777777 \r
+    023610  aa   000000 000000                 vfd     53/0,19/-1\r
+    023611  aa   000001 777777 \r
+    023612  aa   000000 000000                 vfd     54/0,18/-1\r
+    023613  aa   000000 777777 \r
+    023614  aa   000000 000000                 vfd     55/0,17/-1\r
+    023615  aa   000000 377777 \r
+    023616  aa   000000 000000                 vfd     56/0,16/-1\r
+    023617  aa   000000 177777 \r
+    023620  aa   000000 000000                 vfd     57/0,15/-1\r
+    023621  aa   000000 077777 \r
+    023622  aa   000000 000000                 vfd     58/0,14/-1\r
+    023623  aa   000000 037777 \r
+    023624  aa   000000 000000                 vfd     59/0,13/-1\r
+    023625  aa   000000 017777 \r
+    023626  aa   000000 000000                 vfd     60/0,12/-1\r
+    023627  aa   000000 007777 \r
+    023630  aa   000000 000000                 vfd     61/0,11/-1\r
+    023631  aa   000000 003777 \r
+    023632  aa   000000 000000                 vfd     62/0,10/-1\r
+    023633  aa   000000 001777 \r
+    023634  aa   000000 000000                 vfd     63/0,9/-1\r
+    023635  aa   000000 000777 \r
+    023636  aa   000000 000000                 vfd     64/0,8/-1\r
+    023637  aa   000000 000377 \r
+    023640  aa   000000 000000                 vfd     65/0,7/-1\r
+    023641  aa   000000 000177 \r
+    023642  aa   000000 000000                 vfd     66/0,6/-1\r
+    023643  aa   000000 000077 \r
+    023644  aa   000000 000000                 vfd     67/0,5/-1\r
+    023645  aa   000000 000037 \r
+    023646  aa   000000 000000                 vfd     68/0,4/-1\r
+    023647  aa   000000 000017 \r
+    023650  aa   000000 000000                 vfd     69/0,3/-1\r
+    023651  aa   000000 000007 \r
+    023652  aa   000000 000000                 vfd     70/0,2/-1\r
+    023653  aa   000000 000003 \r
+    023654  aa   000000 000000                 vfd     71/0,1/-1\r
+    023655  aa   000000 000001 \r
+                                        "\r
+    023656  aa   040040 040040          trace_hfp_blanks:      oct     040040040040,040040040040\r
+    023657  aa   040040 040040 \r
+    023660  aa   000040 040040                 oct     000040040040,040040040040\r
+    023661  aa   040040 040040 \r
+    023662  aa   000000 040040                 oct     000000040040,040040040040\r
+    023663  aa   040040 040040 \r
+    023664  aa   000000 000040                 oct     000000000040,040040040040\r
+    023665  aa   040040 040040 \r
+    023666  aa   000000 000000                 oct     000000000000,040040040040\r
+    023667  aa   040040 040040 \r
+    023670  aa   000000 000000                 oct     000000000000,000040040040\r
+    023671  aa   000040 040040 \r
+    023672  aa   000000 000000                 oct     000000000000,000000040040\r
+    023673  aa   000000 040040 \r
+    023674  aa   000000 000000                 oct     000000000000,000000000040\r
+    023675  aa   000000 000040 \r
+                                        "\r
+    023676  aa   077777 000077          trace_hfp_ptr_mask:    oct     077777000077,777777077077 mask for use in ptr comparisions\r
+    023677  aa   777777 077077 \r
+                                        "\r
+                                        "      operator to convert single fixed to double fixed\r
+                                        "\r
+                                               even\r
+    023700                              trace_hfp_fx1_to_fx2:\r
+    023700  aa   000044 7770 00                llr     36\r
+    023701  aa   000044 7330 00                lrs     36\r
+                                        "\r
+                                        "      operators to convert fixed to float\r
+                                        "\r
+    023702  aa   000000 0110 03                odd\r
+    023703                              trace_hfp_fx1_to_fl2:\r
+    023703  0a   023700 7170 00                xed     trace_hfp_fx1_to_fx2\r
+                                        "\r
+                                               even\r
+    023704                              trace_hfp_fx2_to_fl2:\r
+    023704  aa   044000 4110 03                lde     =18b25,du               EAQ = unnormalized 2*float(number)\r
+    023705  aa   400000 4750 03                fad     P0.0H,du                EAQ = 2*float(number)\r
+    023706  aa   000400 4610 03                fmp     P0.5H,du                EAQ = float(number)\r
+    023707  aa  6 00046 7101 70                tra     sp|tbp,*x0      return\r
+                                        \r
+                                        "\r
+                                        "      operator to reset next stack pointer\r
+                                        "\r
+                                               even\r
+    023710                              trace_hfp_reset_stack:\r
+    023710  aa  6 00005 2201 00                ldx0    sp|5\r
+    023711  aa  6 00023 7401 00                stx0    sp|stack_frame.next_sp+1\r
+                                        "\r
+                                        "      operators to convert indicators into relations\r
+                                        "\r
+    023712  0a   002164 6040 00         trace_hfp_r_l_a:       tmi     true\r
+    023713  aa   000000 2350 07                lda     0,dl\r
+    023714  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023715  aa   000002 6000 04         trace_hfp_r_g_s:       tze     2,ic\r
+    023716  0a   002164 6030 00                trc     true\r
+    023717  aa   000000 2350 07                lda     0,dl\r
+    023720  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023721  aa   000002 6000 04         trace_hfp_r_g_a:       tze     2,ic\r
+    023722  0a   002164 6050 00                tpl     true\r
+    023723  aa   000000 2350 07                lda     0,dl\r
+    023724  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023725  0a   002164 6020 00         trace_hfp_r_l_s:       tnc     true\r
+    023726  aa   000000 2350 07                lda     0,dl\r
+    023727  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023730  0a   002164 6000 00         trace_hfp_r_e_as:      tze     true\r
+    023731  aa   000000 2350 07                lda     0,dl\r
+    023732  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023733  0a   002164 6010 00         trace_hfp_r_ne_as:     tnz     true\r
+    023734  aa   000000 2350 07                lda     0,dl\r
+    023735  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023736  0a   002164 6040 00         trace_hfp_r_le_a:      tmi     true\r
+    023737  0a   002164 6000 00                tze     true\r
+    023740  aa   000000 2350 07                lda     0,dl\r
+    023741  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023742  0a   002164 6030 00         trace_hfp_r_ge_s:      trc     true\r
+    023743  aa   000000 2350 07                lda     0,dl\r
+    023744  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023745  0a   002164 6050 00         trace_hfp_r_ge_a:      tpl     true\r
+    023746  aa   000000 2350 07                lda     0,dl\r
+    023747  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023750  0a   002164 6020 00         trace_hfp_r_le_s:      tnc     true\r
+    023751  0a   002164 6000 00                tze     true\r
+    023752  aa   000000 2350 07                lda     0,dl\r
+    023753  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+    023754  aa   400000 2350 03         trace_hfp_true:        lda     =o400000,du\r
+    023755  aa  6 00046 7101 70                tra     sp|tbp,*0\r
+                                        "\r
+                                        "      operator to set stack ptr to that of block N static\r
+                                        "      levels above the current block.  Entered with N in q.\r
+                                        "      (should not be called with N = 0, but will work anyway.)\r
+                                        "\r
+    023756                              trace_hfp_set_stack:\r
+    023756  0a   005674 7010 00                tsx1    display_chase   get ptr to proper frame\r
+    023757  aa  2 00000 3721 00                eppsp   bp|0            into sp\r
+    023760  0a   003276 7100 00                tra     set_stack_extend        do three more instructions (added later\r
+                                        "                              and since compiled code knows offsets in this\r
+                                        "                              area, couldn't add the code inline)\r
+                                        "\r
+                                        "      tables to convert to bit offset ready to be ORed into pointer\r
+                                        "\r
+    023761  aa   000000 000000          trace_hfp_mod2_tab:    dec     0,18b26\r
+    023762  aa   000000 022000 \r
+                                        "\r
+    023763  aa   000000 000000          trace_hfp_mod4_tab:    dec     0,9b26,18b26,27b26\r
+    023764  aa   000000 011000 \r
+    023765  aa   000000 022000 \r
+    023766  aa   000000 033000 \r
+                                        "\r
+                                        "      transfer vector for operators not referenced directly\r
+                                        "      by the pl/1 program.  new operators may be added at the\r
+                                        "      end of the list only.\r
+                                        "\r
+    023767                              trace_hfp_op_vector:\r
+    023767  0a   003140 7100 00                tra     alloc_char_temp 0\r
+    023770  0a   003152 7100 00                tra     alloc_bit_temp  1\r
+    023771  0a   003161 7100 00                tra     alloc_temp      2\r
+    023772  0a   003217 7100 00                tra     realloc_char_temp       3\r
+    023773  0a   003207 7100 00                tra     realloc_bit_temp        4\r
+    023774  0a   003304 7100 00                tra     save_string     5       obsolete\r
+    023775  0a   007646 7100 00                tra     pk_to_unpk      6\r
+    023776  0a   007655 7100 00                tra     unpk_to_pk      7\r
+    023777  0a   003633 7100 00                tra     move_chars      8       obsolete\r
+    024000  0a   003641 7100 00                tra     move_chars_aligned      9       obsolete\r
+    024001  0a   003604 7100 00                tra     move_bits               10      obsolete\r
+    024002  0a   003612 7100 00                tra     move_bits_aligned       11      obsolete\r
+    024003  0a   003727 7100 00                tra     chars_move      12      obsolete\r
+    024004  0a   003740 7100 00                tra     chars_move_aligned      13      obsolete\r
+    024005  0a   003755 7100 00                tra     bits_move               14      obsolete\r
+    024006  0a   003766 7100 00                tra     bits_move_aligned       15      obsolete\r
+    024007  0a   003573 7100 00                tra     move_not_bits   16      obsolete\r
+    024010  0a   003601 7100 00                tra     move_not_bits_aligned 17        obsolete\r
+    024011  0a   003676 7100 00                tra     ext_and_1               18\r
+    024012  0a   003677 7100 00                tra     ext_and_2               19\r
+    024013  0a   003717 7100 00                tra     comp_bits               20\r
+    024014  0a   004371 7100 00                tra     cpbs3           21      obsolete\r
+    024015  0a   004401 7100 00                tra     cpbs3_aligned   22      obsolete\r
+    024016  0a   004377 7100 00                tra     cpbs4           23      obsolete\r
+    024017  0a   004357 7100 00                tra     cpcs_ext1               24\r
+    024020  0a   004360 7100 00                tra     cpcs_ext2               25\r
+    024021  0a   004364 7100 00                tra     cpbs_ext1               26\r
+    024022  0a   004365 7100 00                tra     cpbs_ext2               27\r
+    024023  0a   003354 7100 00                tra     store_string    28\r
+    024024  0a   003215 7100 00                tra     cat_realloc_chars       29\r
+    024025  0a   003177 7100 00                tra     cat_realloc_bits        30\r
+    024026  0a   004320 7100 00                tra     cp_chars                31      obsolete\r
+    024027  0a   004326 7100 00                tra     cp_chars_aligned        32      obsolete\r
+    024030  0a   004340 7100 00                tra     cp_bits         33      obsolete\r
+    024031  0a   004346 7100 00                tra     cp_bits_aligned 34      obsolete\r
+    024032  0a   012372 7100 00                tra     enter_begin_block       35\r
+    024033  0a   005552 7100 00                tra     leave_begin_block       36\r
+    024034  0a   005607 7100 00                tra     call_ent_var_desc       37\r
+    024035  0a   005610 7100 00                tra     call_ent_var    38\r
+    024036  0a   005623 7100 00                tra     call_ext_in_desc        39\r
+    024037  0a   005624 7100 00                tra     call_ext_in     40\r
+    024040  0a   005623 7100 00                tra     call_ext_out_desc       41\r
+    024041  0a   005624 7100 00                tra     call_ext_out    42\r
+    024042  0a   005634 7100 00                tra     call_int_this_desc      43\r
+    024043  0a   005635 7100 00                tra     call_int_this   44\r
+    024044  0a   005645 7100 00                tra     call_int_other_desc     45\r
+    024045  0a   005646 7100 00                tra     call_int_other  46\r
+    024046  0a   005572 7100 00                tra     begin_return_mac        47\r
+    024047  0a   005600 7100 00                tra     return_mac      48\r
+    024050  0a   003654 7100 00                tra     cat_move_chars  49      obsolete\r
+    024051  0a   003662 7100 00                tra     cat_move_chars_aligned 50       obsolete\r
+    024052  0a   003552 7100 00                tra     cat_move_bits   51      obsolete\r
+    024053  0a   003560 7100 00                tra     cat_move_bits_aligned 52        obsolete\r
+    024054  0a   004040 7100 00                tra     cat_chars               53      obsolete\r
+    024055  0a   004046 7100 00                tra     cat_chars_aligned       54      obsolete\r
+    024056  0a   004063 7100 00                tra     cat_bits                55      obsolete\r
+    024057  0a   004071 7100 00                tra     cat_bits_aligned        56      obsolete\r
+    024060  0a   003321 7100 00                tra     set_chars               57      obsolete\r
+    024061  0a   003327 7100 00                tra     set_chars_aligned       58      obsolete\r
+    024062  0a   003342 7100 00                tra     set_bits                59      obsolete\r
+    024063  0a   003350 7100 00                tra     set_bits_aligned        60      obsolete\r
+    024064  0a   003517 7100 00                tra     and_bits                61      obsolete\r
+    024065  0a   003525 7100 00                tra     and_bits_aligned        62      obsolete\r
+    024066  0a   003530 7100 00                tra     or_bits         63      obsolete\r
+    024067  0a   003536 7100 00                tra     or_bits_aligned 64      obsolete\r
+    024070  0a   005660 7100 00                tra     move_label_var  65\r
+    024071  0a   005666 7100 00                tra     make_label_var  66\r
+    024072  0a   015672 7100 00                tra     hfp_fl2_to_fx1  67\r
+    024073  0a   015672 7100 00                tra     hfp_fl2_to_fx2  68\r
+    024074  0a   007620 7100 00                tra     longbs_to_fx2   69\r
+    024075  0a   007265 7100 00                tra     tra_ext_1               70\r
+    024076  0a   007273 7100 00                tra     tra_ext_2               71\r
+    024077  0a   007301 7100 00                tra     alloc_auto_adj  72\r
+    024100  0a   007636 7100 00                tra     longbs_to_bs18  73\r
+    024101  0a   006553 7100 00                tra     stac_mac                74\r
+    024102  0a   006642 7100 00                tra     sign_mac                75\r
+    024103  0a   010214 7100 00                tra     bound_ck_signal 76\r
+    024104  0a   006650 7100 00                tra     trans_sign_fx1  77\r
+    024105  0a   006660 7100 00                tra     trans_sign_fl   78\r
+    024106  0a   007023 7100 00                tra     copy_words      79      obsolete\r
+    024107  0a   007035 7100 00                tra     mpfx2           80\r
+    024110  0a   007104 7100 00                tra     mpfx3           81\r
+    024111  0a   004445 7100 00                tra     copy_const      82      obsolete\r
+    024112  0a   004444 7100 00                tra     copy_const_vt   83      obsolete\r
+    024113  0a   007205 7100 00                tra     sr_check                84      obsolete\r
+    024114  0a   003726 7100 00                tra     chars_move_vt   85      obsolete\r
+    024115  0a   003737 7100 00                tra     chars_move_vta  86      obsolete\r
+    024116  0a   003754 7100 00                tra     bits_move_vt    87      obsolete\r
+    024117  0a   003765 7100 00                tra     bits_move_vta   88      obsolete\r
+    024120  0a   016104 7100 00                tra     hfp_mdfl1               89\r
+    024121  0a   016126 7100 00                tra     hfp_mdfl2               90\r
+    024122  0a   005701 7100 00                tra     mdfx1           91\r
+    024123  0a   005716 7100 00                tra     mdfx2           92\r
+    024124  0a   005742 7100 00                tra     mdfx3           93\r
+    024125  0a   005720 7100 00                tra     mdfx4           94\r
+    024126  0a   007033 7100 00                tra     copy_double     95      obsolete\r
+    024127  0a   003371 7100 00                tra     string_store    96      obsolete\r
+    024130  0a   003421 7100 00                tra     get_chars               97      obsolete\r
+    024131  0a   003455 7100 00                tra     get_bits                98      obsolete\r
+    024132  0a   003474 7100 00                tra     pad_chars               99\r
+    024133  0a   003506 7100 00                tra     pad_bits                100\r
+    024134  0a   010210 7100 00                tra     signal_op               101\r
+    024135  0a   010115 7100 00                tra     enable_op               102\r
+    024136  0a   004453 7100 00                tra     index_chars     103     obsolete\r
+    024137  0a   004461 7100 00                tra     index_chars_aligned     104     obsolete\r
+    024140  0a   004611 7100 00                tra     index_bits      105     obsolete\r
+    024141  0a   004617 7100 00                tra     index_bits_aligned      106     obsolete\r
+    024142  0a   003541 7100 00                tra     exor_bits               107     obsolete\r
+    024143  0a   003547 7100 00                tra     exor_bits_aligned       108     obsolete\r
+    024144  0a   003344 7100 00                tra     set_bits_co     109     obsolete\r
+    024145  0a   003346 7100 00                tra     set_bits_ho     110     obsolete\r
+    024146  0a   003323 7100 00                tra     set_chars_co    111     obsolete\r
+    024147  0a   003325 7100 00                tra     set_chars_ho    112     obsolete\r
+    024150  0a   003373 7100 00                tra     string_store_co 113     obsolete\r
+    024151  0a   003402 7100 00                tra     string_store_ho 114     obsolete\r
+    024152  0a   003423 7100 00                tra     get_chars_co    115     obsolete\r
+    024153  0a   003425 7100 00                tra     get_chars_ho    116     obsolete\r
+    024154  0a   003457 7100 00                tra     get_bits_co     117     obsolete\r
+    024155  0a   003461 7100 00                tra     get_bits_ho     118     obsolete\r
+    024156  0a   003521 7100 00                tra     and_bits_co     119     obsolete\r
+    024157  0a   003523 7100 00                tra     and_bits_ho     120     obsolete\r
+    024160  0a   003532 7100 00                tra     or_bits_co      121     obsolete\r
+    024161  0a   003534 7100 00                tra     or_bits_ho      122     obsolete\r
+    024162  0a   003543 7100 00                tra     exor_bits_co    123     obsolete\r
+    024163  0a   003545 7100 00                tra     exor_bits_ho    124     obsolete\r
+    024164  0a   003554 7100 00                tra     cat_move_bits_co        125     obsolete\r
+    024165  0a   003556 7100 00                tra     cat_move_bits_ho        126     obsolete\r
+    024166  0a   003575 7100 00                tra     move_not_bits_co        127     obsolete\r
+    024167  0a   003577 7100 00                tra     move_not_bits_ho        128     obsolete\r
+    024170  0a   003606 7100 00                tra     move_bits_co    129     obsolete\r
+    024171  0a   003610 7100 00                tra     move_bits_ho    130     obsolete\r
+    024172  0a   003635 7100 00                tra     move_chars_co   131     obsolete\r
+    024173  0a   003637 7100 00                tra     move_chars_ho   132     obsolete\r
+    024174  0a   003656 7100 00                tra     cat_move_chars_co       133     obsolete\r
+    024175  0a   003660 7100 00                tra     cat_move_chars_ho       134     obsolete\r
+    024176  0a   004042 7100 00                tra     cat_chars_co    135     obsolete\r
+    024177  0a   004044 7100 00                tra     cat_chars_ho    136     obsolete\r
+    024200  0a   004065 7100 00                tra     cat_bits_co     137     obsolete\r
+    024201  0a   004067 7100 00                tra     cat_bits_ho     138     obsolete\r
+    024202  0a   011335 7100 00                tra     io_signal               139\r
+    024203  0a   004650 7100 00                tra     index_cs_1      140     obsolete\r
+    024204  0a   004656 7100 00                tra     index_cs_1_aligned      141     obsolete\r
+    024205  0a   015764 7100 00                tra     hfp_fort_mdfl1  142\r
+    024206  0a   006724 7100 00                tra     rfb1_to_cflb1   143\r
+    024207  0a   016175 7100 00                tra     hfp_rfb2_to_cflb1       144\r
+    024210  0a   006734 7100 00                tra     mpcfl1_1                145\r
+    024211  0a   006735 7100 00                tra     mpcfl1_2                146\r
+    024212  0a   006755 7100 00                tra     dvcfl1_1                147\r
+    024213  0a   006756 7100 00                tra     dvcfl1_2                148\r
+    024214  0a   003731 7100 00                tra     chars_move_vt_co        149     obsolete\r
+    024215  0a   003734 7100 00                tra     chars_move_vt_ho        150     obsolete\r
+    024216  0a   003732 7100 00                tra     chars_move_co   151     obsolete\r
+    024217  0a   003735 7100 00                tra     chars_move_ho   152     obsolete\r
+    024220  0a   003757 7100 00                tra     bits_move_vt_co 153     obsolete\r
+    024221  0a   003762 7100 00                tra     bits_move_vt_ho 154     obsolete\r
+    024222  0a   003760 7100 00                tra     bits_move_co    155     obsolete\r
+    024223  0a   003763 7100 00                tra     bits_move_ho    156     obsolete\r
+    024224  0a   004322 7100 00                tra     cp_chars_co     157     obsolete\r
+    024225  0a   004324 7100 00                tra     cp_chars_ho     158     obsolete\r
+    024226  0a   004342 7100 00                tra     cp_bits_co      159     obsolete\r
+    024227  0a   004344 7100 00                tra     cp_bits_ho      160     obsolete\r
+    024230  0a   004373 7100 00                tra     cpbs3_co                161     obsolete\r
+    024231  0a   004375 7100 00                tra     cpbs3_ho                162     obsolete\r
+    024232  0a   003254 7100 00                tra     shorten_stack   163\r
+    024233  0a   004426 7100 00                tra     zero_bits               164     obsolete\r
+    024234  0a   004434 7100 00                tra     zero_bits_aligned       165     obsolete\r
+    024235  0a   004430 7100 00                tra     zero_bits_co    166     obsolete\r
+    024236  0a   004432 7100 00                tra     zero_bits_ho    167     obsolete\r
+    024237  0a   004407 7100 00                tra     blank_chars     168     obsolete\r
+    024240  0a   004415 7100 00                tra     blank_chars_aligned     169     obsolete\r
+    024241  0a   004411 7100 00                tra     blank_chars_co  170     obsolete\r
+    024242  0a   004413 7100 00                tra     blank_chars_ho  171     obsolete\r
+    024243  0a   004455 7100 00                tra     index_chars_co  172     obsolete\r
+    024244  0a   004457 7100 00                tra     index_chars_ho  173     obsolete\r
+    024245  0a   004613 7100 00                tra     index_bits_co   174     obsolete\r
+    024246  0a   004615 7100 00                tra     index_bits_ho   175     obsolete\r
+    024247  0a   004652 7100 00                tra     index_cs_1_co   176     obsolete\r
+    024250  0a   004654 7100 00                tra     index_cs_1_ho   177     obsolete\r
+    024251  0a   004673 7100 00                tra     index_bs_1      178     obsolete\r
+    024252  0a   004701 7100 00                tra     index_bs_1_aligned      179     obsolete\r
+    024253  0a   004675 7100 00                tra     index_bs_1_co   180     obsolete\r
+    024254  0a   004677 7100 00                tra     index_bs_1_ho   181     obsolete\r
+    024255  0a   012452 0000 00                arg     shift_bo                182     obsolete\r
+    024256  0a   005422 7100 00                tra     return_words    183\r
+    024257  0a   005442 7100 00                tra     return_bits     184     obsolete\r
+    024260  0a   005444 7100 00                tra     return_bits_co  185     obsolete\r
+    024261  0a   005446 7100 00                tra     return_bits_ho  186     obsolete\r
+    024262  0a   005450 7100 00                tra     return_bits_al  187     obsolete\r
+    024263                              trace_hfp_entry_operators:\r
+    024263  0a   021407 7100 00                tra     trace_ext_entry         188\r
+    024264  0a   021444 7100 00                tra     trace_ext_entry_desc    189\r
+    024265  0a   012127 7100 00                tra     int_entry               190\r
+    024266  0a   012145 7100 00                tra     int_entry_desc  191\r
+    024267  0a   012164 7100 00                tra     val_entry               192\r
+    024270  0a   012162 7100 00                tra     val_entry_desc  193\r
+    024271  0a   003427 7100 00                tra     get_chars_aligned       194     obsolete\r
+    024272  0a   003463 7100 00                tra     get_bits_aligned        195     obsolete\r
+    024273  0a   003416 7100 00                tra     fetch_chars     196\r
+    024274  0a   003451 7100 00                tra     fetch_bits      197\r
+    024275  0a   010507 7100 00                tra     get_terminate   198\r
+    024276  4a  4 00010 7101 20                tra     <put_format_>|[put_terminate]   199\r
+    024277  0a   010341 7100 00                tra     put_data_aligned        200     obsolete\r
+    024300  0a   010354 7100 00                tra     get_list_aligned        201     obsolete\r
+    024301  0a   010365 7100 00                tra     get_edit_aligned        202     obsolete\r
+    024302  0a   010417 7100 00                tra     put_list_aligned        203     obsolete\r
+    024303  0a   010430 7100 00                tra     put_edit_aligned        204     obsolete\r
+    024304  4a  4 00012 7101 20                tra     <put_format_>|[stream_prep]     205\r
+    024305  4a  4 00014 7101 20                tra     <record_io_>|[record_io]                206\r
+    024306  0a   010513 7100 00                tra     open_file               207\r
+    024307  0a   010515 7100 00                tra     close_file      208\r
+    024310  0a   010333 7100 00                tra     put_data                209     obsolete\r
+    024311  0a   010335 7100 00                tra     put_data_co     210     obsolete\r
+    024312  0a   010337 7100 00                tra     put_data_ho     211     obsolete\r
+    024313  0a   010346 7100 00                tra     get_list                212     obsolete\r
+    024314  0a   010350 7100 00                tra     get_list_co     213     obsolete\r
+    024315  0a   010352 7100 00                tra     get_list_ho     214     obsolete\r
+    024316  0a   010357 7100 00                tra     get_edit                215     obsolete\r
+    024317  0a   010361 7100 00                tra     get_edit_co     216     obsolete\r
+    024320  0a   010363 7100 00                tra     get_edit_ho     217     obsolete\r
+    024321  0a   010411 7100 00                tra     put_list                218     obsolete\r
+    024322  0a   010413 7100 00                tra     put_list_co     219     obsolete\r
+    024323  0a   010415 7100 00                tra     put_list_ho     220     obsolete\r
+    024324  0a   010422 7100 00                tra     put_edit                221     obsolete\r
+    024325  0a   010424 7100 00                tra     put_edit_co     222     obsolete\r
+    024326  0a   010426 7100 00                tra     put_edit_ho     223     obsolete\r
+    024327  0a   004236 7100 00                tra     suffix_cs               224     obsolete\r
+    024330  0a   004254 7100 00                tra     suffix_bs               225     obsolete\r
+    024331  0a   015703 7100 00                tra     hfp_fl2_to_fxscaled     226\r
+    024332  0a   007363 7100 00                tra     trunc_fx1               227\r
+    024333  0a   007375 7100 00                tra     trunc_fx2               228\r
+    024334  0a   007444 7100 00                tra     ceil_fx1                229\r
+    024335  0a   007500 7100 00                tra     ceil_fx2                230\r
+    024336  0a   015660 7100 00                tra     hfp_ceil_fl             231\r
+    024337  0a   007425 7100 00                tra     floor_fx1               232\r
+    024340  0a   007463 7100 00                tra     floor_fx2               233\r
+    024341  0a   015733 7100 00                tra     hfp_floor_fl    234\r
+    024342  0a   016204 7100 00                tra     hfp_trunc_fl    235\r
+    024343  0a   007515 7100 00                tra     round_fx1               236\r
+    024344  0a   007536 7100 00                tra     round_fx2               237\r
+    024345  0a   004103 7100 00                tra     repeat          238\r
+    024346  0a   005052 7100 00                tra     make_bit_table  239     obsolete\r
+    024347  0a   005060 7100 00                tra     make_bit_table_al       240     obsolete\r
+    024350  0a   005054 7100 00                tra     make_bit_table_co       241     obsolete\r
+    024351  0a   005056 7100 00                tra     make_bit_table_ho       242     obsolete\r
+    024352  0a   005147 7100 00                tra     verify          243     obsolete\r
+    024353  0a   005155 7100 00                tra     verify_al               244     obsolete\r
+    024354  0a   005151 7100 00                tra     verify_co               245     obsolete\r
+    024355  0a   005153 7100 00                tra     verify_ho               246     obsolete\r
+    024356  0a   005161 7100 00                tra     const_verify    247     obsolete\r
+    024357  0a   005167 7100 00                tra     const_verify_al 248     obsolete\r
+    024360  0a   005163 7100 00                tra     const_verify_co 249     obsolete\r
+    024361  0a   005165 7100 00                tra     const_verify_ho 250     obsolete\r
+    024362  0a   004212 7100 00                tra     reverse_cs      251\r
+    024363  0a   004166 7100 00                tra     reverse_bs      252\r
+    024364  0a   005110 7100 00                tra     form_bit_table  253     obsolete\r
+    024365  0a   005112 7100 00                tra     form_bit_table_co       254     obsolete\r
+    024366  0a   005114 7100 00                tra     form_bit_table_ho       255     obsolete\r
+    024367  0a   005116 7100 00                tra     form_bit_table_al       256     obsolete\r
+    024370  0a   004002 7100 00                tra     chars_move_ck   257     obsolete\r
+    024371  0a   004004 7100 00                tra     chars_move_ck_co        258     obsolete\r
+    024372  0a   004006 7100 00                tra     chars_move_ck_ho        259     obsolete\r
+    024373  0a   004010 7100 00                tra     chars_move_ck_al        260     obsolete\r
+    024374  0a   004021 7100 00                tra     bits_move_ck    261     obsolete\r
+    024375  0a   004023 7100 00                tra     bits_move_ck_co 262     obsolete\r
+    024376  0a   004025 7100 00                tra     bits_move_ck_ho 263     obsolete\r
+    024377  0a   004027 7100 00                tra     bits_move_ck_al 264     obsolete\r
+    024400  0a   007771 7100 00                tra     size_check_fx1  265\r
+    024401  0a   010013 7100 00                tra     size_check_fx2  266\r
+    024402  0a   010061 7100 00                tra     signal_stringsize       267\r
+    024403  0a   004272 7100 00                tra     suffix_cs_ck    268     obsolete\r
+    024404  0a   004312 7100 00                tra     suffix_bs_ck    269     obsolete\r
+    024405  0a   011040 7100 00                tra     pointer_hard    270\r
+    024406  0a   007727 7100 00                tra     alm_call                271     special for alm\r
+    024407  0a   007733 7100 00                tra     alm_push                272     special for alm\r
+    024410  0a   007757 7100 00                tra     alm_return      273     special for alm\r
+    024411  0a   007765 7100 00                tra     alm_return_no_pop       274     special for alm\r
+    024412  0a   024730 7100 00                tra     trace_alm_entry         275     special for alm\r
+    024413  0a   007663 7100 00                tra     packed_to_bp    276     obsolete\r
+    024414  0a   005466 7100 00                tra     return_chars    277     obsolete\r
+    024415  0a   005470 7100 00                tra     return_chars_co 278     obsolete\r
+    024416  0a   005472 7100 00                tra     return_chars_ho 279     obsolete\r
+    024417  0a   005474 7100 00                tra     return_chars_aligned 280        obsolete\r
+    024420  0a   007667 7100 00                tra     rpd_odd_lp_bp   281     obsolete\r
+    024421  0a   007677 7100 00                tra     rpd_odd_bp_lp   282     obsolete\r
+    024422  0a   007707 7100 00                tra     rpd_even_lp_bp  283     obsolete\r
+    024423  0a   007717 7100 00                tra     rpd_even_bp_lp  284     obsolete\r
+    024424  0a   011066 7100 00                tra     offset_easy     285\r
+    024425  0a   011102 7100 00                tra     offset_easy_pk  286\r
+    024426  0a   011066 7100 00                tra     offset_hard     287\r
+    024427  0a   011102 7100 00                tra     offset_hard_pk  288\r
+    024430  0a   011053 7100 00                tra     pointer_hard_pk 289\r
+    024431  0a   011040 7100 00                tra     pointer_easy    290\r
+    024432  0a   011053 7100 00                tra     pointer_easy_pk 291\r
+    024433  0a   007553 7100 00                tra     round_fl                292\r
+    024434  0a   010230 7100 00                tra     enable_file     293\r
+    024435  0a   010303 7100 00                tra     revert_file     294\r
+    024436  0a   011115 7100 00                tra     alloc_block     295\r
+    024437  0a   011142 7100 00                tra     free_block      296\r
+    024440  0a   011157 7100 00                tra     push_ctl_data   297\r
+    024441  0a   011155 7100 00                tra     push_ctl_desc   298\r
+    024442  0a   011201 7100 00                tra     pop_ctl_data    299\r
+    024443  0a   011201 7100 00                tra     pop_ctl_desc    300\r
+    024444  0a   011221 7100 00                tra     allocation      301\r
+    024445  0a   003315 7100 00                tra     set_chars_eis   302\r
+    024446  0a   003336 7100 00                tra     set_bits_eis    303\r
+    024447  0a   004464 7100 00                tra     index_chars_eis 304\r
+    024450  0a   004606 7100 00                tra     index_bits_eis  305\r
+    024451  0a   004645 7100 00                tra     index_cs_1_eis  306\r
+    024452  0a   004670 7100 00                tra     index_bs_1_eis  307\r
+    024453  0a   005477 7100 00                tra     return_chars_eis        308\r
+    024454  0a   005453 7100 00                tra     return_bits_eis 309\r
+    024455  0a   010331 7100 00                tra     put_data_eis    310\r
+    024456  4a  4 00016 7101 20                tra     <put_format_>|[put_edit_eis]    311\r
+    024457  0a   010370 7100 00                tra     put_list_eis    312\r
+    024460  4a  4 00020 7101 20                tra     <put_format_>|[get_edit_eis]    313\r
+    024461  0a   010344 7100 00                tra     get_list_eis    314\r
+    024462  0a   005245 7100 00                tra     verify_eis      315\r
+    024463  0a   005223 7100 00                tra     search_eis      316\r
+    024464  0a   010517 7100 00                tra     fortran_read    317\r
+    024465  0a   010517 7100 00                tra     fortran_write   318\r
+    024466  0a   010562 7100 00                tra     fortran_manip   319\r
+    024467  0a   010555 7100 00                tra     fortran_scalar_xmit     320\r
+    024470  0a   010555 7100 00                tra     fortran_array_xmit      321\r
+    024471  0a   010564 7100 00                tra     fortran_terminate       322\r
+    024472  4a  4 00022 7101 20                tra     <any_to_any_>|[real_to_real_round_]     323\r
+    024473  4a  4 00024 7101 20                tra     <any_to_any_>|[real_to_real_truncate_]  324\r
+    024474  4a  4 00026 7101 20                tra     <any_to_any_>|[any_to_any_round_]       325\r
+    024475  4a  4 00030 7101 20                tra     <any_to_any_>|[any_to_any_truncate_]    326\r
+    024476  0a   011234 7100 00                tra     unpack_picture  327\r
+    024477  0a   011237 7100 00                tra     pack_picture    328\r
+    024500  0a   006042 7100 00                tra     divide_fx1      329\r
+    024501  0a   006061 7100 00                tra     divide_fx2      330\r
+    024502  0a   006044 7100 00                tra     divide_fx3      331\r
+    024503  0a   006063 7100 00                tra     divide_fx4      332\r
+    024504  0a   006027 7100 00                tra     scaled_mod_fx1  333\r
+    024505  0a   005757 7100 00                tra     scaled_mod_fx2  334\r
+    024506  0a   006031 7100 00                tra     scaled_mod_fx3  335\r
+    024507  0a   005761 7100 00                tra     scaled_mod_fx4  336\r
+    024510  0a   005322 7100 00                tra     translate_2     337\r
+    024511  0a   005360 7100 00                tra     translate_3     338\r
+    024512  4a  4 00566 7101 20                tra     <square_root_>|[hfp_square_root_]               339\r
+    024513  4a  4 00570 7101 20                tra     <sine_>|[hfp_sine_radians_]             340\r
+    024514  4a  4 00572 7101 20                tra     <sine_>|[hfp_sine_degrees_]             341\r
+    024515  4a  4 00574 7101 20                tra     <sine_>|[hfp_cosine_radians_]           342\r
+    024516  4a  4 00576 7101 20                tra     <sine_>|[hfp_cosine_degrees_]           343\r
+    024517  4a  4 00600 7101 20                tra     <tangent_>|[hfp_tangent_radians_]       344\r
+    024520  4a  4 00602 7101 20                tra     <tangent_>|[hfp_tangent_degrees_]       345\r
+    024521  4a  4 00604 7101 20                tra     <arc_sine_>|[hfp_arc_sine_radians_]     346\r
+    024522  4a  4 00606 7101 20                tra     <arc_sine_>|[hfp_arc_sine_degrees_]     347\r
+    024523  4a  4 00610 7101 20                tra     <arc_sine_>|[hfp_arc_cosine_radians_]   348\r
+    024524  4a  4 00612 7101 20                tra     <arc_sine_>|[hfp_arc_cosine_degrees_]   349\r
+    024525  4a  4 00614 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_radians_]       350\r
+    024526  4a  4 00616 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_degrees_]       351\r
+    024527  4a  4 00620 7101 20                tra     <logarithm_>|[hfp_log_base_2_]          352\r
+    024530  4a  4 00622 7101 20                tra     <logarithm_>|[hfp_log_base_e_]          353\r
+    024531  4a  4 00624 7101 20                tra     <logarithm_>|[hfp_log_base_10_]         354\r
+    024532  4a  4 00626 7101 20                tra     <exponential_>|[hfp_exponential_]               355\r
+    024533  4a  4 00630 7101 20                tra     <double_square_root_>|[hfp_double_square_root_] 356\r
+    024534  4a  4 00632 7101 20                tra     <double_sine_>|[hfp_double_sine_radians_]       357\r
+    024535  4a  4 00634 7101 20                tra     <double_sine_>|[hfp_double_sine_degrees_]       358\r
+    024536  4a  4 00636 7101 20                tra     <double_sine_>|[hfp_double_cosine_radians_]     359\r
+    024537  4a  4 00640 7101 20                tra     <double_sine_>|[hfp_double_cosine_degrees_]     360\r
+    024540  4a  4 00642 7101 20                tra     <double_tangent_>|[hfp_double_tangent_radians_] 361\r
+    024541  4a  4 00644 7101 20                tra     <double_tangent_>|[hfp_double_tangent_degrees_] 362\r
+    024542  4a  4 00646 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_sine_radians_]       363\r
+    024543  4a  4 00650 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_sine_degrees_]       364\r
+    024544  4a  4 00652 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_cosine_radians_]     365\r
+    024545  4a  4 00654 7101 20                tra     <double_arc_sine_>|[hfp_double_arc_cosine_degrees_]     366\r
+    024546  4a  4 00656 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_radians_]     367\r
+    024547  4a  4 00660 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_degrees_]     368\r
+    024550  4a  4 00662 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_2_]    369\r
+    024551  4a  4 00664 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_e_]    370\r
+    024552  4a  4 00666 7101 20                tra     <double_logarithm_>|[hfp_double_log_base_10_]   371\r
+    024553  4a  4 00670 7101 20                tra     <double_exponential_>|[hfp_double_exponential_] 372\r
+    024554  4a  4 00672 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_radians_2_]     373\r
+    024555  4a  4 00674 7101 20                tra     <arc_tangent_>|[hfp_arc_tangent_degrees_2_]     374\r
+    024556  4a  4 00676 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_radians_2_]   375\r
+    024557  4a  4 00700 7101 20                tra     <double_arc_tangent_>|[hfp_double_arc_tan_degrees_2_]   376\r
+    024560  4a  4 00702 7101 20                tra     <power_>|[hfp_integer_power_single_]    377\r
+    024561  4a  4 00704 7101 20                tra     <power_>|[hfp_integer_power_double_]    378\r
+    024562  4a  4 00706 7101 20                tra     <power_>|[hfp_double_power_single_]     379\r
+    024563  4a  4 00710 7101 20                tra     <power_>|[hfp_double_power_double_]     380\r
+    024564  4a  4 00712 7101 20                tra     <power_integer_>|[hfp_double_power_integer_]    381\r
+    024565  4a  4 00714 7101 20                tra     <power_>|[hfp_single_power_single_]     382\r
+    024566  4a  4 00716 7101 20                tra     <power_integer_>|[hfp_single_power_integer_]    383\r
+    024567  4a  4 00164 7101 20                tra     <integer_power_integer_>|[integer_power_integer_]       384\r
+    024570  0a   010056 7100 00                tra     signal_size     385\r
+    024571  0a   021476 7100 00                tra     trace_ss_ext_entry      386\r
+    024572  0a   021535 7100 00                tra     trace_ss_ext_entry_desc 387\r
+    024573  0a   012272 7100 00                tra     ss_int_entry    388\r
+    024574  0a   012311 7100 00                tra     ss_int_entry_desc       389\r
+    024575  0a   012331 7100 00                tra     ss_val_entry    390\r
+    024576  0a   012327 7100 00                tra     ss_val_entry_desc       391\r
+    024577  4a  4 00166 7101 20                tra     <cplx_dec_ops_>|[mpcdec]        392\r
+    024600  4a  4 00170 7101 20                tra     <cplx_dec_ops_>|[dvcdec]        393\r
+    024601  4a  4 00172 7101 20                tra     <cplx_dec_ops_>|[dvrcdec]       394\r
+    024602  4a  4 00174 7101 20                tra     <dec_ops_>|[ceil]       395\r
+    024603  4a  4 00176 7101 20                tra     <dec_ops_>|[floor]      396\r
+    024604  4a  4 00200 7101 20                tra     <dec_ops_>|[sign]       397\r
+    024605  4a  4 00202 7101 20                tra     <cplx_dec_ops_>|[cabs]  398\r
+    024606  4a  4 00204 7101 20                tra     <dec_ops_>|[truncate]   399\r
+    024607  4a  4 00206 7101 20                tra     <dec_ops_>|[mod]                400\r
+    024610  0a   011357 7100 00                tra     set_support     401\r
+    024611  0a   006071 7100 00                tra     div_4_cplx_ops  402\r
+    024612  0a   003441 7100 00                tra     fetch_chars_eis 403\r
+    024613  0a   007247 7100 00                tra     signal_stringrange      404\r
+    024614  0a   012412 7100 00                tra     ss_enter_begin_block    405\r
+    024615  4a  4 00210 7101 20                tra     <put_field_>|[put_field]                406      \r
+    024616  4a  4 00212 7101 20                tra     <put_field_>|[put_field_chk]            407\r
+    024617  4a  4 00214 7101 20                tra     <put_field_>|[put_control]      408\r
+    024620  4a  4 00216 7101 20                tra     <alloc_>|[op_alloc_]    409\r
+    024621  0a   011112 7100 00                tra     alloc_storage           410\r
+    024622  4a  4 00220 7101 20                tra     <alloc_>|[op_freen_]    411\r
+    024623  4a  4 00222 7101 20                tra     <alloc_>|[op_empty_]    412\r
+    024624  4a  4 00720 7101 20                tra     <fort_math_ops_>|[hfp_cabs]             413     fortran only\r
+    024625  4a  4 00722 7101 20                tra     <fort_math_ops_>|[hfp_ccos]             414     fortran only\r
+    024626  4a  4 00724 7101 20                tra     <fort_math_ops_>|[hfp_cexp]             415     fortran only\r
+    024627  4a  4 00726 7101 20                tra     <fort_math_ops_>|[hfp_clog]             416     fortran only\r
+    024630  4a  4 00730 7101 20                tra     <fort_math_ops_>|[hfp_csin]             417     fortran only\r
+    024631  4a  4 00732 7101 20                tra     <fort_math_ops_>|[hfp_csqrt]            418     fortran only\r
+    024632  4a  4 00734 7101 20                tra     <fort_math_ops_>|[hfp_tanh]             419     fortran only\r
+    024633  4a  4 00736 7101 20                tra     <fort_math_ops_>|[hfp_dmod]             420     fortran only (obsolete)\r
+    024634  4a  4 00740 7101 20                tra     <fort_math_ops_>|[hfp_cmpx_p_cmpx]      421     fortran only\r
+    024635  0a   016003 7100 00                tra     hfp_get_math_entry      422     fortran only\r
+    024636  0a   011471 7100 00                tra     fortran_pause   423     fortran only\r
+    024637  0a   011473 7100 00                tra     fortran_stop    424     fortran only\r
+    024640  0a   011514 7100 00                tra     fortran_chain   425     fortran only\r
+    024641  0a   024751 7100 00                tra     long_profile    426\r
+    024642  0a   004714 7100 00                tra     index_before_cs 427\r
+    024643  0a   005004 7100 00                tra     index_before_bs 428\r
+    024644  0a   004720 7100 00                tra     index_after_cs  429\r
+    024645  0a   005010 7100 00                tra     index_after_bs  430\r
+    024646  0a   005035 7100 00                tra     index_before_bs_1       431\r
+    024647  0a   005041 7100 00                tra     index_after_bs_1        432\r
+    024650  0a   005271 7100 00                tra     verify_for_ltrim        433\r
+    024651  0a   005304 7100 00                tra     verify_for_rtrim        434\r
+    024652  0a   006557 7100 00                tra     stacq_mac               435\r
+    024653  0a   006563 7100 00                tra     clock_mac               436\r
+    024654  0a   006571 7100 00                tra     vclock_mac      437\r
+    024655  0a   010567 7100 00                tra     ftn_open_element        438     fortran only\r
+    024656  0a   011033 7100 00                tra     ftn_get_area_ptr        439     fortran only\r
+    024657  0a   006577 7100 00                tra     stop            440\r
+    024660  0a   006610 7100 00                tra     return_main     441\r
+    024661  0a   006626 7100 00                tra     set_main_flag   442\r
+    024662  0a   006614 7100 00                tra     begin_return_main       443\r
+    024663  0a   010030 7100 00                tra     size_check_uns_fx1      444\r
+    024664  0a   010036 7100 00                tra     size_check_uns_fx2      445\r
+    024665  0a   011463 7100 00                tra     fortran_end     446     fortran only\r
+    024666  0a   015745 7100 00                tra     hfp_fort_dmod   447     fortran only\r
+    024667  0a   004540 7100 00                tra     ix_rev_chars    448\r
+    024670  0a   005247 7100 00                tra     verify_rev_chars        449\r
+    024671  0a   005251 7100 00                tra     search_rev_chars        450\r
+    024672  0a   003261 7100 00                tra     shorten_stack_protect_ind       451\r
+    024673  0a   003270 7100 00                tra     save_stack_quick        452\r
+    024674  0a   003274 7100 00                tra     restore_stack_quick     453\r
+    024675  4a  4 00742 7101 20                tra     <fort_math_ops_>|[hfp_dtanh]    454     fortran only\r
+    024676  4a  4 00744 7101 20                tra     <fort_math_ops_>|[hfp_sinh]     455     fortran only\r
+    024677  4a  4 00746 7101 20                tra     <fort_math_ops_>|[hfp_dsinh]    456     fortran only\r
+    024700  4a  4 00750 7101 20                tra     <fort_math_ops_>|[hfp_cosh]     457     fortran only\r
+    024701  4a  4 00752 7101 20                tra     <fort_math_ops_>|[hfp_dcosh]    458     fortran only\r
+    024702  0a   016160 7100 00                tra     hfp_nearest_whole_number        459     fortran only\r
+    024703  0a   016146 7100 00                tra     hfp_nearest_integer     460     fortran only\r
+    024704  0a   010722 7100 00                tra     ftn_inquire_element     461     fortran only\r
+    024705  0a   010044 7100 00                tra     mpy_overflow_check      462     fortran only\r
+    024706  0a   005557 7100 00                tra     fort_return_mac 463     fortran only\r
+    024707  0a   010146 7100 00                tra     fort_cleanup    464     fortran only\r
+    024710  0a   010073 7100 00                tra     fort_storage    465     fortran only\r
+    024711  0a   021356 7100 00                tra     trace_enter_BFP_mode    466\r
+    024712  0a   021362 7100 00                tra     trace_enter_HFP_mode    467\r
+    024713  0a   011631 7100 00                tra     unimp           468     future expansion\r
+    024714  0a   011631 7100 00                tra     unimp           469     future expansion\r
+    024715  0a   011631 7100 00                tra     unimp           470     future expansion\r
+    024716  0a   011631 7100 00                tra     unimp           471     future expansion\r
+    024717  0a   011631 7100 00                tra     unimp           472     future expansion\r
+    024720  0a   011631 7100 00                tra     unimp           473     future expansion\r
+    024721  0a   011631 7100 00                tra     unimp           474     future expansion\r
+    024722  0a   011631 7100 00                tra     unimp           475     future expansion\r
+    024723  0a   011631 7100 00                tra     unimp           476     future expansion\r
+    024724  0a   011631 7100 00                tra     unimp           477     future expansion\r
+    024725  0a   011631 7100 00                tra     unimp           478     future expansion\r
+    024726  0a   011631 7100 00                tra     unimp           479     future expansion\r
+    024727  0a   011631 7100 00                tra     unimp           480     future expansion\r
+                                  7485  \f\r
+                                  7486  "\r
+                                  7487  " The ALM entry operator used by trace.\r
+                                  7488  "\r
+    024730                        7489  alm_trace_operators_begin:\r
+                                  7490         alm_entry_op trace_\r
+                                        "         BEGIN MACRO alm_entry_op\r
+    024730                              trace_alm_entry:\r
+    024730  aa  2 77777 3521 00                   eppbp     bp|-1               generate pointer to entry structure\r
+                                               trace   trace_\r
+    024731  0a   024731 2130 00                epaq    *               get segment number of pl1_operators_\r
+    024732  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au     get our linkage ptr\r
+    024733  aa  7 00024 5421 20                sprpbp  sb|stack_header.stack_end_ptr,* save entry ptr as packed ptr\r
+    024734  aa  7 00024 3521 20                eppbp   sb|stack_header.stack_end_ptr,*\r
+    024735  aa  2 00001 5411 00                sprpab  bp|1            save lisp linkage ptr (might be lisp environment)\r
+    024736  4a  4 01124 2721 20                tspbp   trace_catch_$catch_pl1_\r
+    024737  aa  7 00024 3515 20                eppab   sb|stack_header.stack_end_ptr,*\r
+    024740  aa  1 00000 7621 00                lprpbp  ab|0            restore entry ptr\r
+    024741  aa  1 00001 7611 00                lprpab  ab|1            restore lisp linkage ptr\r
+    024742  aa  7 00024 3701 20                epplp   sb|stack_header.stack_end_ptr,* get a pointer to the next stack frame\r
+    024743  aa  4 00026 2521 00                spribp  lp|stack_frame.entry_ptr\r
+    024744  aa  2 00000 2131 00                epaq    bp|0            get seg no of object in a\r
+    024745  aa  7 00052 7651 61                lprplb  sb|stack_header.isot_ptr,*au get packed ptr to static from isot\r
+    024746  aa  4 00034 5451 00                sprplb  lp|stack_frame.static_ptr save in next stack frame\r
+    024747  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    024750  aa  2 00001 7101 00                tra     bp|1            return to alm prog\r
+                                        "         END MACRO alm_entry_op\r
+    024751                        7491  alm_trace_operators_end:\r
+                                  7492  " \f\r
+                                  7493  "      operator to update long_profile entry\r
+                                  7494  "      Calling sequence:\r
+                                  7495  "\r
+                                  7496  "      tsx0    ap|long_profile\r
+                                  7497  "      zero    header_relp,entry_offset\r
+                                  7498  "\r
+                                  7499         include long_profile\r
+                                  11-1  \r
+                                  11-2  \r
+                                  11-3       "BEGIN INCLUDE FILE long_profile.incl.alm\r
+                                  11-4  \r
+                                  11-5         "Created 12/02/76  1639.2 est Thu by convert_include_file,\r
+                                  11-6         "   Version of 04/30/76  1208.1 est Fri.\r
+                                  11-7  \r
+                                  11-8         "Made from >exl>include>long_profile.incl.pl1,\r
+                                  11-9         "   modified 12/02/76  1551.0 est Thu\r
+                                 11-10         "   further edited by RAB 12/02/76 to remove mutliple symbols\r
+                                 11-11  \r
+                                 11-12  "\r
+                                 11-13  "      Structure long_profile_header\r
+                                 11-14  "\r
+                        000015   11-15         equ     long_profile_header_size,13\r
+                                 11-16  \r
+                                 11-17  \r
+                        000000   11-18         equ     long_profile_header.last_vcpu,0 "DOUBLE\r
+                        000002   11-19         equ     long_profile_header.last_pf,2\r
+                        000003   11-20         equ     long_profile_header.last_offset,3\r
+                        000004   11-21         equ     long_profile_header.nentries,4\r
+                        000005   11-22         equ     long_profile_header.dummy,5     "LEVEL 2\r
+                                 11-23  \r
+                        000011   11-24         equ     long_profile_header.control,9   "LEVEL 2\r
+                                 11-25  \r
+                                 11-26  \r
+                                 11-27  "\r
+                                 11-28  "      Structure long_profile_entry\r
+                                 11-29  "\r
+                        000004   11-30         equ     long_profile_entry_size,4\r
+                                 11-31  \r
+                        000000   11-32         equ     long_profile_entry.map,0        "UPPER\r
+                        000000   11-33         equ     long_profile_entry.skip,0       "LOWER\r
+                                 11-34  \r
+                        000001   11-35         equ     long_profile_entry.count,1\r
+                        000002   11-36         equ     long_profile_entry.vcpu,2\r
+                        000003   11-37         equ     long_profile_entry.pf,3\r
+                                 11-38  \r
+                        000005   11-39         equ     dummy_entry_offset,5    "MANIFEST\r
+                        000011   11-40         equ     control_entry_offset,9  "MANIFEST\r
+                                 11-41  \r
+                                 11-42       "END INCLUDE FILE long_profile.incl.alm\r
+                                  7500  "\r
+                                  7501  "      NB:  THIS OPERATOR IS NOT ALLOWED TO DESTROY ANY REGISTERS,\r
+                                  7502  "      INCLUDING A, Q, index registers, pointer registers,\r
+                                  7503  "      THE INDICATOR OR STRING REGISTERS.  This is part of the\r
+                                  7504  "      contract of long_profile not to affect the object\r
+                                  7505  "      code.\r
+                                  7506  "\r
+                                  7507  "\r
+    024751                        7508  long_profile:\r
+    024751  aa  6 00055 7541 00   7509         sti     sp|temp_indicators              save indicators\r
+    024752  aa  6 00010 7531 00   7510         sreg    sp|8                    save registers\r
+                                  7511         get_stack_offset\r
+    024753  aa  6 00000 6351 00                eaa     sp|0            get offset of stack frame in au\r
+    024754  0a   011705 6750 00                era     mask_bit_one    form 2's complement of whole a-reg\r
+    024755  aa   000001 0350 07                adla    1,dl            w/o overflow\r
+    024756  aa  6 00024 2541 21   7512         spri    sp|stack_header.stack_end_ptr,au*\r
+                                  7513  "\r
+                                  7514         get_our_lp\r
+    024757  aa  6 00000 3731 00                epbpsb  sp|0            make sure sb is set up\r
+    024760  0a   024760 2130 00                epaq    *               get ptr to ourselves\r
+    024761  aa  7 00026 7641 61                lprplp  sb|stack_header.lot_ptr,*au get packed ptr to linkage from lot\r
+    024762  aa  6 00024 3571 00   7515         stcd    sp|stack_frame.return_ptr\r
+    024763  4a  4 01126 7131 20   7516         callsp  <cpu_time_and_paging_op_>|[cpu_time_and_paging_op_]\r
+                                  7517  "\r
+    024764  aa  6 00056 7571 00   7518         staq    sp|cpu          save virtual cpu time\r
+    024765  aa  6 00054 7401 00   7519         stx0    sp|page         save page faults\r
+    024766  aa  6 00054 4411 00   7520         sxl1    sp|page         ..\r
+                                  7521  "\r
+    024767  aa  6 00010 2201 00   7522         ldx0    sp|8                    restore x0\r
+    024770  aa  6 00046 3521 70   7523         eppbp   sp|tbp,*0                       pt at arg word\r
+    024771  aa  6 00024 2525 00   7524         spbpbp  sp|stack_frame.return_ptr       restore return ptr\r
+    024772  aa  6 00000 3731 00   7525         epbpsb  sp|0                    sb = stack base\r
+                                  7526  "\r
+    024773  aa   004000 6340 07   7527         ldi     =o004000,dl             mask against overflow (vcpu faults at 19 hrs)\r
+    024774  aa  2 00000 2131 00   7528         epaq    bp|0                    get ptr to static section\r
+    024775  aa  7 00052 7651 61   7529         lprplb  sb|stack_header.isot_ptr,*au\r
+    024776  aa  2 00000 2211 00   7530         ldx1    bp|0                    get header relp\r
+    024777  aa  5 00000 3715 11   7531         epplb   lb|0,1                  point at long_profile_header\r
+    025000  aa  5 00003 7221 00   7532         lxl2    lb|long_profile_header.last_offset      point at profile entry to be updated\r
+    025001  aa  5 00001 0541 12   7533         aos     lb|long_profile_entry.count,2   update\r
+    025002  aa  6 00056 2371 00   7534         ldaq    sp|cpu\r
+    025003  aa  5 00000 1371 00   7535         sblaq   lb|long_profile_header.last_vcpu\r
+    025004  aa  5 00002 0561 12   7536         asq     lb|long_profile_entry.vcpu,2\r
+    025005  aa  6 00054 2361 00   7537         ldq     sp|page\r
+    025006  aa  5 00002 1361 00   7538         sblq    lb|long_profile_header.last_pf\r
+    025007  aa  5 00003 0561 12   7539         asq     lb|long_profile_entry.pf,2\r
+                                  7540  "\r
+    025010  aa  6 00056 2371 00   7541         ldaq    sp|cpu                  set up for next time\r
+    025011  aa  5 00000 7571 00   7542         staq    lb|long_profile_header.last_vcpu\r
+    025012  aa  6 00054 2361 00   7543         ldq     sp|page\r
+    025013  aa  5 00002 7561 00   7544         stq     lb|long_profile_header.last_pf\r
+    025014  aa  2 00000 7231 00   7545         lxl3    bp|0\r
+    025015  aa  5 00003 4431 00   7546         sxl3    lb|long_profile_header.last_offset\r
+                                  7547  "\r
+    025016  aa  7 00024 1731 20   7548         lpri    sb|stack_header.stack_end_ptr,* restore regs\r
+    025017  aa  6 00010 0731 00   7549         lreg    sp|8                    ..\r
+    025020  aa   000001 6200 10   7550         eax0    1,0                     increment for return\r
+    025021  aa  6 00055 6341 00   7551         ldi     sp|temp_indicators              restore indicators\r
+    025022  aa  6 00046 7101 70   7552         tra     sp|tbp,*0                       return\r
+    025023                        7553  signal_error_missing:\r
+    025023  0a   025026 3520 00   7554         eppbp   missing_error\r
+    025024  aa   000027 2260 03   7555         ldx6    missing_error_length,du\r
+    025025  0a   010210 7100 00   7556         tra     signal_op\r
+    025026                        7557  missing_error:\r
+    025026  aa  155 151 163 163   7558         aci     "missing_pl1_io_operator"\r
+    025027  aa  151 156 147 137\r
+    025030  aa  160 154 061 137\r
+    025031  aa  151 157 137 157\r
+    025032  aa  160 145 162 141\r
+    025033  aa  164 157 162 000\r
+                        000027    7559         equ     missing_error_length,23\r
+                                  7560  " \f\r
+                                  7561  " The following code performs an assembly-time cross-check of the consistency\r
+                                  7562  " of the operator_table region. The location referenced by operator_table itself\r
+                                  7563  " must be even...if it is not, the compiled code that references it will fail.\r
+                                  7564  " The following expression will divide-by-zero if operator_table is odd.\r
+                                  7565  " in PL/I: error1 = 1 / (1 - mod (operator_table - reloc_0, 2));\r
+                                  7566  "\r
+                        001426    7567         equ     optbl_abs,operator_table-begin_pl1_operators    " kill off relocation\r
+                        000001    7568         equ     error1,1/(1-(optbl_abs-2*(optbl_abs/2)))        " ERROR 1: operator_table on ODD location.\r
+                                  7569  "\r
+                                  7570         end\r
+\fLITERALS\r
+     \r
+    025034  aa   143141 156156 \r
+    025035  aa   157164 137145 \r
+    025036  aa   156141 142154 \r
+    025037  aa   145137 110106 \r
+    025040  aa   120137 155157 \r
+    025041  aa   144145 000000 \r
+\fNAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS\r
+\r
+    025042  5a   000003 000000 \r
+    025043  5a   000426 600000 \r
+    025044  aa   000000 000000 \r
+    025045  55   000012 000002 \r
+    025046  5a   000002 400003 \r
+    025047  55   000006 000012 \r
+    025050  aa  016 160 154 061\r
+    025051  aa  137 157 160 145\r
+    025052  aa  162 141 164 157\r
+    025053  aa  162 163 137 000\r
+    025054  55   000022 000003 \r
+    025055  0a   001243 400000 \r
+    025056  55   000015 000003 \r
+    025057  aa  022 126 114 101         VLA_words_per_seg_\r
+    025060  aa  137 167 157 162\r
+    025061  aa  144 163 137 160\r
+    025062  aa  145 162 137 163\r
+    025063  aa  145 147 137 000\r
+    025064  55   000030 000012 \r
+    025065  0a   005622 400000 \r
+    025066  55   000025 000003 \r
+    025067  aa  010 166 141 162         var_call\r
+    025070  aa  137 143 141 154\r
+    025071  aa  154 000 000 000\r
+    025072  55   000042 000022 \r
+    025073  0a   023216 400000 \r
+    025074  55   000033 000003 \r
+    025075  aa  030 164 162 141         trace_hfp_operator_table\r
+    025076  aa  143 145 137 150\r
+    025077  aa  146 160 137 157\r
+    025100  aa  160 145 162 141\r
+    025101  aa  164 157 162 137\r
+    025102  aa  164 141 142 154\r
+    025103  aa  145 000 000 000\r
+    025104  55   000053 000030 \r
+    025105  0a   017644 400000 \r
+    025106  55   000045 000003 \r
+    025107  aa  024 164 162 141         trace_operator_table\r
+    025110  aa  143 145 137 157\r
+    025111  aa  160 145 162 141\r
+    025112  aa  164 157 162 137\r
+    025113  aa  164 141 142 154\r
+    025114  aa  145 000 000 000\r
+    025115  55   000065 000042 \r
+    025116  0a   021570 400000 \r
+    025117  55   000056 000003 \r
+    025120  aa  031 164 162 141         trace_entry_operators_end\r
+    025121  aa  143 145 137 145\r
+    025122  aa  156 164 162 171\r
+    025123  aa  137 157 160 145\r
+    025124  aa  162 141 164 157\r
+    025125  aa  162 163 137 145\r
+    025126  aa  156 144 000 000\r
+    025127  55   000076 000053 \r
+    025130  0a   020711 400000 \r
+    025131  55   000070 000003 \r
+    025132  aa  025 164 162 141         trace_entry_operators\r
+    025133  aa  143 145 137 145\r
+    025134  aa  156 164 162 171\r
+    025135  aa  137 157 160 145\r
+    025136  aa  162 141 164 157\r
+    025137  aa  162 163 000 000\r
+    025140  55   000105 000065 \r
+    025141  0a   024730 400000 \r
+    025142  55   000101 000003 \r
+    025143  aa  017 164 162 141         trace_alm_entry\r
+    025144  aa  143 145 137 141\r
+    025145  aa  154 155 137 145\r
+    025146  aa  156 164 162 171\r
+    025147  55   000114 000076 \r
+    025150  0a   000227 400000 \r
+    025151  55   000110 000003 \r
+    025152  aa  015 164 143 164         tct_octal_060\r
+    025153  aa  137 157 143 164\r
+    025154  aa  141 154 137 060\r
+    025155  aa  066 060 000 000\r
+    025156  55   000123 000105 \r
+    025157  0a   000233 400000 \r
+    025160  55   000117 000003 \r
+    025161  aa  015 164 143 164         tct_octal_040\r
+    025162  aa  137 157 143 164\r
+    025163  aa  141 154 137 060\r
+    025164  aa  064 060 000 000\r
+    025165  55   000131 000114 \r
+    025166  0a   001043 400000 \r
+    025167  55   000126 000003 \r
+    025170  aa  012 164 143 164         tct_byte_3\r
+    025171  aa  137 142 171 164\r
+    025172  aa  145 137 063 000\r
+    025173  55   000137 000123 \r
+    025174  0a   000643 400000 \r
+    025175  55   000134 000003 \r
+    025176  aa  012 164 143 164         tct_byte_2\r
+    025177  aa  137 142 171 164\r
+    025200  aa  145 137 062 000\r
+    025201  55   000145 000131 \r
+    025202  0a   000443 400000 \r
+    025203  55   000142 000003 \r
+    025204  aa  012 164 143 164         tct_byte_1\r
+    025205  aa  137 142 171 164\r
+    025206  aa  145 137 061 000\r
+    025207  55   000153 000137 \r
+    025210  0a   000243 400000 \r
+    025211  55   000150 000003 \r
+    025212  aa  012 164 143 164         tct_byte_0\r
+    025213  aa  137 142 171 164\r
+    025214  aa  145 137 060 000\r
+    025215  55   000161 000145 \r
+    025216  0a   010454 400000 \r
+    025217  55   000156 000003 \r
+    025220  aa  012 160 165 164         put_return\r
+    025221  aa  137 162 145 164\r
+    025222  aa  165 162 156 000\r
+    025223  55   000166 000153 \r
+    025224  0a   010440 400000 \r
+    025225  55   000164 000003 \r
+    025226  aa  005 160 154 151         plio4\r
+    025227  aa  157 064 000 000\r
+    025230  55   000175 000161 \r
+    025231  0a   001426 400000 \r
+    025232  55   000171 000003 \r
+    025233  aa  016 157 160 145         operator_table\r
+    025234  aa  162 141 164 157\r
+    025235  aa  162 137 164 141\r
+    025236  aa  142 154 145 000\r
+    025237  55   000205 000166 \r
+    025240  0a   014146 400000 \r
+    025241  55   000200 000003 \r
+    025242  aa  022 150 146 160         hfp_operator_table\r
+    025243  aa  137 157 160 145\r
+    025244  aa  162 141 164 157\r
+    025245  aa  162 137 164 141\r
+    025246  aa  142 154 145 000\r
+    025247  55   000213 000175 \r
+    025250  0a   011331 400000 \r
+    025251  55   000210 000003 \r
+    025252  aa  012 147 145 164         get_our_lp\r
+    025253  aa  137 157 165 162\r
+    025254  aa  137 154 160 000\r
+    025255  55   000222 000205 \r
+    025256  0a   005633 400000 \r
+    025257  55   000216 000003 \r
+    025260  aa  014 146 157 162         forward_call\r
+    025261  aa  167 141 162 144\r
+    025262  aa  137 143 141 154\r
+    025263  aa  154 000 000 000\r
+    025264  55   000232 000213 \r
+    025265  0a   016006 400000 \r
+    025266  55   000225 000003 \r
+    025267  aa  023 150 146 160         hfp_fort_math_names\r
+    025270  aa  137 146 157 162\r
+    025271  aa  164 137 155 141\r
+    025272  aa  164 150 137 156\r
+    025273  aa  141 155 145 163\r
+    025274  55   000241 000222 \r
+    025275  0a   011365 400000 \r
+    025276  55   000235 000003 \r
+    025277  aa  017 146 157 162         fort_math_names\r
+    025300  aa  164 137 155 141\r
+    025301  aa  164 150 137 156\r
+    025302  aa  141 155 145 163\r
+    025303  55   000251 000232 \r
+    025304  0a   012434 400000 \r
+    025305  55   000244 000003 \r
+    025306  aa  023 145 156 164         entry_operators_end\r
+    025307  aa  162 171 137 157\r
+    025310  aa  160 145 162 141\r
+    025311  aa  164 157 162 163\r
+    025312  aa  137 145 156 144\r
+    025313  55   000260 000241 \r
+    025314  0a   002473 400000 \r
+    025315  55   000254 000003 \r
+    025316  aa  017 145 156 164         entry_operators\r
+    025317  aa  162 171 137 157\r
+    025320  aa  160 145 162 141\r
+    025321  aa  164 157 162 163\r
+    025322  55   000270 000251 \r
+    025323  0a   012516 400000 \r
+    025324  55   000263 000003 \r
+    025325  aa  021 145 156 144         end_pl1_operators\r
+    025326  aa  137 160 154 061\r
+    025327  aa  137 157 160 145\r
+    025330  aa  162 141 164 157\r
+    025331  aa  162 163 000 000\r
+    025332  55   000277 000260 \r
+    025333  0a   011251 400000 \r
+    025334  55   000273 000003 \r
+    025335  aa  014 143 141 154         call_signal_\r
+    025336  aa  154 137 163 151\r
+    025337  aa  147 156 141 154\r
+    025340  aa  137 000 000 000\r
+    025341  55   000307 000270 \r
+    025342  0a   000000 400000 \r
+    025343  55   000302 000003 \r
+    025344  aa  023 142 145 147         begin_pl1_operators\r
+    025345  aa  151 156 137 160\r
+    025346  aa  154 061 137 157\r
+    025347  aa  160 145 162 141\r
+    025350  aa  164 157 162 163\r
+    025351  55   000320 000277 \r
+    025352  0a   024751 400000 \r
+    025353  55   000312 000003 \r
+    025354  aa  027 141 154 155         alm_trace_operators_end\r
+    025355  aa  137 164 162 141\r
+    025356  aa  143 145 137 157\r
+    025357  aa  160 145 162 141\r
+    025360  aa  164 157 162 163\r
+    025361  aa  137 145 156 144\r
+    025362  55   000332 000307 \r
+    025363  0a   024730 400000 \r
+    025364  55   000323 000003 \r
+    025365  aa  031 141 154 155         alm_trace_operators_begin\r
+    025366  aa  137 164 162 141\r
+    025367  aa  143 145 137 157\r
+    025370  aa  160 145 162 141\r
+    025371  aa  164 157 162 163\r
+    025372  aa  137 142 145 147\r
+    025373  aa  151 156 000 000\r
+    025374  55   000342 000320 \r
+    025375  0a   007765 400000 \r
+    025376  55   000335 000003 \r
+    025377  aa  021 141 154 155         alm_return_no_pop\r
+    025400  aa  137 162 145 164\r
+    025401  aa  165 162 156 137\r
+    025402  aa  156 157 137 160\r
+    025403  aa  157 160 000 000\r
+    025404  55   000350 000332 \r
+    025405  0a   007757 400000 \r
+    025406  55   000345 000003 \r
+    025407  aa  012 141 154 155         alm_return\r
+    025410  aa  137 162 145 164\r
+    025411  aa  165 162 156 000\r
+    025412  55   000356 000342 \r
+    025413  0a   007733 400000 \r
+    025414  55   000353 000003 \r
+    025415  aa  010 141 154 155         alm_push\r
+    025416  aa  137 160 165 163\r
+    025417  aa  150 000 000 000\r
+    025420  55   000366 000350 \r
+    025421  0a   007771 400000 \r
+    025422  55   000361 000003 \r
+    025423  aa  021 141 154 155         alm_operators_end\r
+    025424  aa  137 157 160 145\r
+    025425  aa  162 141 164 157\r
+    025426  aa  162 163 137 145\r
+    025427  aa  156 144 000 000\r
+    025430  55   000376 000356 \r
+    025431  0a   007727 400000 \r
+    025432  55   000371 000003 \r
+    025433  aa  023 141 154 155         alm_operators_begin\r
+    025434  aa  137 157 160 145\r
+    025435  aa  162 141 164 157\r
+    025436  aa  162 163 137 142\r
+    025437  aa  145 147 151 156\r
+    025440  55   000404 000366 \r
+    025441  0a   007747 400000 \r
+    025442  55   000401 000003 \r
+    025443  aa  011 141 154 155         alm_entry\r
+    025444  aa  137 145 156 164\r
+    025445  aa  162 171 000 000\r
+    025446  55   000412 000376 \r
+    025447  0a   007727 400000 \r
+    025450  55   000407 000003 \r
+    025451  aa  010 141 154 155         alm_call\r
+    025452  aa  137 143 141 154\r
+    025453  aa  154 000 000 000\r
+    025454  55   000417 000404 \r
+    025455  0a   003162 400000 \r
+    025456  55   000415 000003 \r
+    025457  aa  005 141 154 154         alloc\r
+    025460  aa  157 143 000 000\r
+    025461  55   000002 000412 \r
+    025462  6a   000000 400002 \r
+    025463  55   000422 000003 \r
+    025464  aa  014 163 171 155         symbol_table\r
+    025465  aa  142 157 154 137\r
+    025466  aa  164 141 142 154\r
+    025467  aa  145 000 000 000\r
+\r
+DEFINITIONS HASH TABLE\r
+\r
+    025470  aa   000000 000065 \r
+    025471  aa   000000 000000 \r
+    025472  5a   000277 000000 \r
+    025473  5a   000376 000000 \r
+    025474  5a   000350 000000 \r
+    025475  5a   000404 000000 \r
+    025476  aa   000000 000000 \r
+    025477  aa   000000 000000 \r
+    025500  aa   000000 000000 \r
+    025501  5a   000412 000000 \r
+    025502  5a   000205 000000 \r
+    025503  aa   000000 000000 \r
+    025504  5a   000105 000000 \r
+    025505  5a   000114 000000 \r
+    025506  aa   000000 000000 \r
+    025507  5a   000022 000000 \r
+    025510  aa   000000 000000 \r
+    025511  5a   000053 000000 \r
+    025512  5a   000123 000000 \r
+    025513  5a   000030 000000 \r
+    025514  5a   000131 000000 \r
+    025515  5a   000137 000000 \r
+    025516  5a   000145 000000 \r
+    025517  5a   000260 000000 \r
+    025520  5a   000232 000000 \r
+    025521  5a   000065 000000 \r
+    025522  5a   000012 000000 \r
+    025523  5a   000042 000000 \r
+    025524  5a   000307 000000 \r
+    025525  5a   000222 000000 \r
+    025526  5a   000213 000000 \r
+    025527  5a   000175 000000 \r
+    025530  5a   000241 000000 \r
+    025531  5a   000320 000000 \r
+    025532  5a   000417 000000 \r
+    025533  5a   000366 000000 \r
+    025534  aa   000000 000000 \r
+    025535  5a   000076 000000 \r
+    025536  5a   000251 000000 \r
+    025537  5a   000332 000000 \r
+    025540  5a   000356 000000 \r
+    025541  5a   000153 000000 \r
+    025542  aa   000000 000000 \r
+    025543  5a   000161 000000 \r
+    025544  aa   000000 000000 \r
+    025545  aa   000000 000000 \r
+    025546  5a   000270 000000 \r
+    025547  aa   000000 000000 \r
+    025550  aa   000000 000000 \r
+    025551  5a   000166 000000 \r
+    025552  aa   000000 000000 \r
+    025553  aa   000000 000000 \r
+    025554  aa   000000 000000 \r
+    025555  5a   000342 000000 \r
+\r
+EXTERNAL NAMES\r
+\r
+    025556  aa  027 143 160 165         cpu_time_and_paging_op_\r
+    025557  aa  137 164 151 155\r
+    025560  aa  145 137 141 156\r
+    025561  aa  144 137 160 141\r
+    025562  aa  147 151 156 147\r
+    025563  aa  137 157 160 137\r
+    025564  aa  012 143 141 164         catch_pl1_\r
+    025565  aa  143 150 137 160\r
+    025566  aa  154 061 137 000\r
+    025567  aa  014 164 162 141         trace_catch_\r
+    025570  aa  143 145 137 143\r
+    025571  aa  141 164 143 150\r
+    025572  aa  137 000 000 000\r
+    025573  aa  022 146 157 162         fort_hfp_builtins_\r
+    025574  aa  164 137 150 146\r
+    025575  aa  160 137 142 165\r
+    025576  aa  151 154 164 151\r
+    025577  aa  156 163 137 000\r
+    025600  aa  011 150 146 160         hfp_dcosh\r
+    025601  aa  137 144 143 157\r
+    025602  aa  163 150 000 000\r
+    025603  aa  010 150 146 160         hfp_cosh\r
+    025604  aa  137 143 157 163\r
+    025605  aa  150 000 000 000\r
+    025606  aa  011 150 146 160         hfp_dsinh\r
+    025607  aa  137 144 163 151\r
+    025610  aa  156 150 000 000\r
+    025611  aa  010 150 146 160         hfp_sinh\r
+    025612  aa  137 163 151 156\r
+    025613  aa  150 000 000 000\r
+    025614  aa  011 150 146 160         hfp_dtanh\r
+    025615  aa  137 144 164 141\r
+    025616  aa  156 150 000 000\r
+    025617  aa  017 150 146 160         hfp_cmpx_p_cmpx\r
+    025620  aa  137 143 155 160\r
+    025621  aa  170 137 160 137\r
+    025622  aa  143 155 160 170\r
+    025623  aa  010 150 146 160         hfp_dmod\r
+    025624  aa  137 144 155 157\r
+    025625  aa  144 000 000 000\r
+    025626  aa  010 150 146 160         hfp_tanh\r
+    025627  aa  137 164 141 156\r
+    025630  aa  150 000 000 000\r
+    025631  aa  011 150 146 160         hfp_csqrt\r
+    025632  aa  137 143 163 161\r
+    025633  aa  162 164 000 000\r
+    025634  aa  010 150 146 160         hfp_csin\r
+    025635  aa  137 143 163 151\r
+    025636  aa  156 000 000 000\r
+    025637  aa  010 150 146 160         hfp_clog\r
+    025640  aa  137 143 154 157\r
+    025641  aa  147 000 000 000\r
+    025642  aa  010 150 146 160         hfp_cexp\r
+    025643  aa  137 143 145 170\r
+    025644  aa  160 000 000 000\r
+    025645  aa  010 150 146 160         hfp_ccos\r
+    025646  aa  137 143 143 157\r
+    025647  aa  163 000 000 000\r
+    025650  aa  010 150 146 160         hfp_cabs\r
+    025651  aa  137 143 141 142\r
+    025652  aa  163 000 000 000\r
+    025653  aa  031 150 146 160         hfp_single_power_integer_\r
+    025654  aa  137 163 151 156\r
+    025655  aa  147 154 145 137\r
+    025656  aa  160 157 167 145\r
+    025657  aa  162 137 151 156\r
+    025660  aa  164 145 147 145\r
+    025661  aa  162 137 000 000\r
+    025662  aa  030 150 146 160         hfp_single_power_single_\r
+    025663  aa  137 163 151 156\r
+    025664  aa  147 154 145 137\r
+    025665  aa  160 157 167 145\r
+    025666  aa  162 137 163 151\r
+    025667  aa  156 147 154 145\r
+    025670  aa  137 000 000 000\r
+    025671  aa  031 150 146 160         hfp_double_power_integer_\r
+    025672  aa  137 144 157 165\r
+    025673  aa  142 154 145 137\r
+    025674  aa  160 157 167 145\r
+    025675  aa  162 137 151 156\r
+    025676  aa  164 145 147 145\r
+    025677  aa  162 137 000 000\r
+    025700  aa  030 150 146 160         hfp_double_power_double_\r
+    025701  aa  137 144 157 165\r
+    025702  aa  142 154 145 137\r
+    025703  aa  160 157 167 145\r
+    025704  aa  162 137 144 157\r
+    025705  aa  165 142 154 145\r
+    025706  aa  137 000 000 000\r
+    025707  aa  030 150 146 160         hfp_double_power_single_\r
+    025710  aa  137 144 157 165\r
+    025711  aa  142 154 145 137\r
+    025712  aa  160 157 167 145\r
+    025713  aa  162 137 163 151\r
+    025714  aa  156 147 154 145\r
+    025715  aa  137 000 000 000\r
+    025716  aa  031 150 146 160         hfp_integer_power_double_\r
+    025717  aa  137 151 156 164\r
+    025720  aa  145 147 145 162\r
+    025721  aa  137 160 157 167\r
+    025722  aa  145 162 137 144\r
+    025723  aa  157 165 142 154\r
+    025724  aa  145 137 000 000\r
+    025725  aa  031 150 146 160         hfp_integer_power_single_\r
+    025726  aa  137 151 156 164\r
+    025727  aa  145 147 145 162\r
+    025730  aa  137 160 157 167\r
+    025731  aa  145 162 137 163\r
+    025732  aa  151 156 147 154\r
+    025733  aa  145 137 000 000\r
+    025734  aa  035 150 146 160         hfp_double_arc_tan_degrees_2_\r
+    025735  aa  137 144 157 165\r
+    025736  aa  142 154 145 137\r
+    025737  aa  141 162 143 137\r
+    025740  aa  164 141 156 137\r
+    025741  aa  144 145 147 162\r
+    025742  aa  145 145 163 137\r
+    025743  aa  062 137 000 000\r
+    025744  aa  035 150 146 160         hfp_double_arc_tan_radians_2_\r
+    025745  aa  137 144 157 165\r
+    025746  aa  142 154 145 137\r
+    025747  aa  141 162 143 137\r
+    025750  aa  164 141 156 137\r
+    025751  aa  162 141 144 151\r
+    025752  aa  141 156 163 137\r
+    025753  aa  062 137 000 000\r
+    025754  aa  032 150 146 160         hfp_arc_tangent_degrees_2_\r
+    025755  aa  137 141 162 143\r
+    025756  aa  137 164 141 156\r
+    025757  aa  147 145 156 164\r
+    025760  aa  137 144 145 147\r
+    025761  aa  162 145 145 163\r
+    025762  aa  137 062 137 000\r
+    025763  aa  032 150 146 160         hfp_arc_tangent_radians_2_\r
+    025764  aa  137 141 162 143\r
+    025765  aa  137 164 141 156\r
+    025766  aa  147 145 156 164\r
+    025767  aa  137 162 141 144\r
+    025770  aa  151 141 156 163\r
+    025771  aa  137 062 137 000\r
+    025772  aa  027 150 146 160         hfp_double_exponential_\r
+    025773  aa  137 144 157 165\r
+    025774  aa  142 154 145 137\r
+    025775  aa  145 170 160 157\r
+    025776  aa  156 145 156 164\r
+    025777  aa  151 141 154 137\r
+    026000  aa  027 150 146 160         hfp_double_log_base_10_\r
+    026001  aa  137 144 157 165\r
+    026002  aa  142 154 145 137\r
+    026003  aa  154 157 147 137\r
+    026004  aa  142 141 163 145\r
+    026005  aa  137 061 060 137\r
+    026006  aa  026 150 146 160         hfp_double_log_base_e_\r
+    026007  aa  137 144 157 165\r
+    026010  aa  142 154 145 137\r
+    026011  aa  154 157 147 137\r
+    026012  aa  142 141 163 145\r
+    026013  aa  137 145 137 000\r
+    026014  aa  026 150 146 160         hfp_double_log_base_2_\r
+    026015  aa  137 144 157 165\r
+    026016  aa  142 154 145 137\r
+    026017  aa  154 157 147 137\r
+    026020  aa  142 141 163 145\r
+    026021  aa  137 062 137 000\r
+    026022  aa  033 150 146 160         hfp_double_arc_tan_degrees_\r
+    026023  aa  137 144 157 165\r
+    026024  aa  142 154 145 137\r
+    026025  aa  141 162 143 137\r
+    026026  aa  164 141 156 137\r
+    026027  aa  144 145 147 162\r
+    026030  aa  145 145 163 137\r
+    026031  aa  033 150 146 160         hfp_double_arc_tan_radians_\r
+    026032  aa  137 144 157 165\r
+    026033  aa  142 154 145 137\r
+    026034  aa  141 162 143 137\r
+    026035  aa  164 141 156 137\r
+    026036  aa  162 141 144 151\r
+    026037  aa  141 156 163 137\r
+    026040  aa  036 150 146 160         hfp_double_arc_cosine_degrees_\r
+    026041  aa  137 144 157 165\r
+    026042  aa  142 154 145 137\r
+    026043  aa  141 162 143 137\r
+    026044  aa  143 157 163 151\r
+    026045  aa  156 145 137 144\r
+    026046  aa  145 147 162 145\r
+    026047  aa  145 163 137 000\r
+    026050  aa  036 150 146 160         hfp_double_arc_cosine_radians_\r
+    026051  aa  137 144 157 165\r
+    026052  aa  142 154 145 137\r
+    026053  aa  141 162 143 137\r
+    026054  aa  143 157 163 151\r
+    026055  aa  156 145 137 162\r
+    026056  aa  141 144 151 141\r
+    026057  aa  156 163 137 000\r
+    026060  aa  034 150 146 160         hfp_double_arc_sine_degrees_\r
+    026061  aa  137 144 157 165\r
+    026062  aa  142 154 145 137\r
+    026063  aa  141 162 143 137\r
+    026064  aa  163 151 156 145\r
+    026065  aa  137 144 145 147\r
+    026066  aa  162 145 145 163\r
+    026067  aa  137 000 000 000\r
+    026070  aa  034 150 146 160         hfp_double_arc_sine_radians_\r
+    026071  aa  137 144 157 165\r
+    026072  aa  142 154 145 137\r
+    026073  aa  141 162 143 137\r
+    026074  aa  163 151 156 145\r
+    026075  aa  137 162 141 144\r
+    026076  aa  151 141 156 163\r
+    026077  aa  137 000 000 000\r
+    026100  aa  033 150 146 160         hfp_double_tangent_degrees_\r
+    026101  aa  137 144 157 165\r
+    026102  aa  142 154 145 137\r
+    026103  aa  164 141 156 147\r
+    026104  aa  145 156 164 137\r
+    026105  aa  144 145 147 162\r
+    026106  aa  145 145 163 137\r
+    026107  aa  033 150 146 160         hfp_double_tangent_radians_\r
+    026110  aa  137 144 157 165\r
+    026111  aa  142 154 145 137\r
+    026112  aa  164 141 156 147\r
+    026113  aa  145 156 164 137\r
+    026114  aa  162 141 144 151\r
+    026115  aa  141 156 163 137\r
+    026116  aa  032 150 146 160         hfp_double_cosine_degrees_\r
+    026117  aa  137 144 157 165\r
+    026120  aa  142 154 145 137\r
+    026121  aa  143 157 163 151\r
+    026122  aa  156 145 137 144\r
+    026123  aa  145 147 162 145\r
+    026124  aa  145 163 137 000\r
+    026125  aa  032 150 146 160         hfp_double_cosine_radians_\r
+    026126  aa  137 144 157 165\r
+    026127  aa  142 154 145 137\r
+    026130  aa  143 157 163 151\r
+    026131  aa  156 145 137 162\r
+    026132  aa  141 144 151 141\r
+    026133  aa  156 163 137 000\r
+    026134  aa  030 150 146 160         hfp_double_sine_degrees_\r
+    026135  aa  137 144 157 165\r
+    026136  aa  142 154 145 137\r
+    026137  aa  163 151 156 145\r
+    026140  aa  137 144 145 147\r
+    026141  aa  162 145 145 163\r
+    026142  aa  137 000 000 000\r
+    026143  aa  030 150 146 160         hfp_double_sine_radians_\r
+    026144  aa  137 144 157 165\r
+    026145  aa  142 154 145 137\r
+    026146  aa  163 151 156 145\r
+    026147  aa  137 162 141 144\r
+    026150  aa  151 141 156 163\r
+    026151  aa  137 000 000 000\r
+    026152  aa  027 150 146 160         hfp_double_square_root_\r
+    026153  aa  137 144 157 165\r
+    026154  aa  142 154 145 137\r
+    026155  aa  163 161 165 141\r
+    026156  aa  162 145 137 162\r
+    026157  aa  157 157 164 137\r
+    026160  aa  020 150 146 160         hfp_exponential_\r
+    026161  aa  137 145 170 160\r
+    026162  aa  157 156 145 156\r
+    026163  aa  164 151 141 154\r
+    026164  aa  137 000 000 000\r
+    026165  aa  020 150 146 160         hfp_log_base_10_\r
+    026166  aa  137 154 157 147\r
+    026167  aa  137 142 141 163\r
+    026170  aa  145 137 061 060\r
+    026171  aa  137 000 000 000\r
+    026172  aa  017 150 146 160         hfp_log_base_e_\r
+    026173  aa  137 154 157 147\r
+    026174  aa  137 142 141 163\r
+    026175  aa  145 137 145 137\r
+    026176  aa  017 150 146 160         hfp_log_base_2_\r
+    026177  aa  137 154 157 147\r
+    026200  aa  137 142 141 163\r
+    026201  aa  145 137 062 137\r
+    026202  aa  030 150 146 160         hfp_arc_tangent_degrees_\r
+    026203  aa  137 141 162 143\r
+    026204  aa  137 164 141 156\r
+    026205  aa  147 145 156 164\r
+    026206  aa  137 144 145 147\r
+    026207  aa  162 145 145 163\r
+    026210  aa  137 000 000 000\r
+    026211  aa  030 150 146 160         hfp_arc_tangent_radians_\r
+    026212  aa  137 141 162 143\r
+    026213  aa  137 164 141 156\r
+    026214  aa  147 145 156 164\r
+    026215  aa  137 162 141 144\r
+    026216  aa  151 141 156 163\r
+    026217  aa  137 000 000 000\r
+    026220  aa  027 150 146 160         hfp_arc_cosine_degrees_\r
+    026221  aa  137 141 162 143\r
+    026222  aa  137 143 157 163\r
+    026223  aa  151 156 145 137\r
+    026224  aa  144 145 147 162\r
+    026225  aa  145 145 163 137\r
+    026226  aa  027 150 146 160         hfp_arc_cosine_radians_\r
+    026227  aa  137 141 162 143\r
+    026230  aa  137 143 157 163\r
+    026231  aa  151 156 145 137\r
+    026232  aa  162 141 144 151\r
+    026233  aa  141 156 163 137\r
+    026234  aa  025 150 146 160         hfp_arc_sine_degrees_\r
+    026235  aa  137 141 162 143\r
+    026236  aa  137 163 151 156\r
+    026237  aa  145 137 144 145\r
+    026240  aa  147 162 145 145\r
+    026241  aa  163 137 000 000\r
+    026242  aa  025 150 146 160         hfp_arc_sine_radians_\r
+    026243  aa  137 141 162 143\r
+    026244  aa  137 163 151 156\r
+    026245  aa  145 137 162 141\r
+    026246  aa  144 151 141 156\r
+    026247  aa  163 137 000 000\r
+    026250  aa  024 150 146 160         hfp_tangent_degrees_\r
+    026251  aa  137 164 141 156\r
+    026252  aa  147 145 156 164\r
+    026253  aa  137 144 145 147\r
+    026254  aa  162 145 145 163\r
+    026255  aa  137 000 000 000\r
+    026256  aa  024 150 146 160         hfp_tangent_radians_\r
+    026257  aa  137 164 141 156\r
+    026260  aa  147 145 156 164\r
+    026261  aa  137 162 141 144\r
+    026262  aa  151 141 156 163\r
+    026263  aa  137 000 000 000\r
+    026264  aa  023 150 146 160         hfp_cosine_degrees_\r
+    026265  aa  137 143 157 163\r
+    026266  aa  151 156 145 137\r
+    026267  aa  144 145 147 162\r
+    026270  aa  145 145 163 137\r
+    026271  aa  023 150 146 160         hfp_cosine_radians_\r
+    026272  aa  137 143 157 163\r
+    026273  aa  151 156 145 137\r
+    026274  aa  162 141 144 151\r
+    026275  aa  141 156 163 137\r
+    026276  aa  021 150 146 160         hfp_sine_degrees_\r
+    026277  aa  137 163 151 156\r
+    026300  aa  145 137 144 145\r
+    026301  aa  147 162 145 145\r
+    026302  aa  163 137 000 000\r
+    026303  aa  021 150 146 160         hfp_sine_radians_\r
+    026304  aa  137 163 151 156\r
+    026305  aa  145 137 162 141\r
+    026306  aa  144 151 141 156\r
+    026307  aa  163 137 000 000\r
+    026310  aa  020 150 146 160         hfp_square_root_\r
+    026311  aa  137 163 161 165\r
+    026312  aa  141 162 145 137\r
+    026313  aa  162 157 157 164\r
+    026314  aa  137 000 000 000\r
+    026315  aa  021 163 145 164         set_hexfp_control\r
+    026316  aa  137 150 145 170\r
+    026317  aa  146 160 137 143\r
+    026320  aa  157 156 164 162\r
+    026321  aa  157 154 000 000\r
+    026322  aa  004 150 143 163         hcs_\r
+    026323  aa  137 000 000 000\r
+    026324  aa  013 143 150 141         chain_entry\r
+    026325  aa  151 156 137 145\r
+    026326  aa  156 164 162 171\r
+    026327  aa  022 146 141 163         fast_related_data_\r
+    026330  aa  164 137 162 145\r
+    026331  aa  154 141 164 145\r
+    026332  aa  144 137 144 141\r
+    026333  aa  164 141 137 000\r
+    026334  aa  016 146 157 162         fortran_pause_\r
+    026335  aa  164 162 141 156\r
+    026336  aa  137 160 141 165\r
+    026337  aa  163 145 137 000\r
+    026340  aa  013 146 157 162         fortran_end\r
+    026341  aa  164 162 141 156\r
+    026342  aa  137 145 156 144\r
+    026343  aa  015 146 157 162         fortran_stop_\r
+    026344  aa  164 162 141 156\r
+    026345  aa  137 163 164 157\r
+    026346  aa  160 137 000 000\r
+    026347  aa  004 151 162 163         irs_\r
+    026350  aa  137 000 000 000\r
+    026351  aa  004 151 162 154         irl_\r
+    026352  aa  137 000 000 000\r
+    026353  aa  004 151 154 163         ils_\r
+    026354  aa  137 000 000 000\r
+    026355  aa  004 151 154 162         ilr_\r
+    026356  aa  137 000 000 000\r
+    026357  aa  005 141 155 157         amod_\r
+    026360  aa  144 137 000 000\r
+    026361  aa  004 155 157 144         mod_\r
+    026362  aa  137 000 000 000\r
+    026363  aa  006 144 160 162         dprod_\r
+    026364  aa  157 144 137 000\r
+    026365  aa  007 151 144 156         idnint_\r
+    026366  aa  151 156 164 137\r
+    026367  aa  005 156 151 156         nint_\r
+    026370  aa  164 137 000 000\r
+    026371  aa  006 144 156 151         dnint_\r
+    026372  aa  156 164 137 000\r
+    026373  aa  006 141 156 151         anint_\r
+    026374  aa  156 164 137 000\r
+    026375  aa  005 144 151 156         dint_\r
+    026376  aa  164 137 000 000\r
+    026377  aa  004 154 145 156         len_\r
+    026400  aa  137 000 000 000\r
+    026401  aa  006 143 157 156         conjg_\r
+    026402  aa  152 147 137 000\r
+    026403  aa  006 141 151 155         aimag_\r
+    026404  aa  141 147 137 000\r
+    026405  aa  005 141 151 156         aint_\r
+    026406  aa  164 137 000 000\r
+    026407  aa  006 144 163 151         dsign_\r
+    026410  aa  147 156 137 000\r
+    026411  aa  006 151 163 151         isign_\r
+    026412  aa  147 156 137 000\r
+    026413  aa  005 163 151 147         sign_\r
+    026414  aa  156 137 000 000\r
+    026415  aa  005 144 144 151         ddim_\r
+    026416  aa  155 137 000 000\r
+    026417  aa  005 151 144 151         idim_\r
+    026420  aa  155 137 000 000\r
+    026421  aa  004 144 151 155         dim_\r
+    026422  aa  137 000 000 000\r
+    026423  aa  005 144 141 142         dabs_\r
+    026424  aa  163 137 000 000\r
+    026425  aa  005 151 141 142         iabs_\r
+    026426  aa  163 137 000 000\r
+    026427  aa  004 141 142 163         abs_\r
+    026430  aa  137 000 000 000\r
+    026431  aa  006 144 143 157         dcosh_\r
+    026432  aa  163 150 137 000\r
+    026433  aa  005 143 157 163         cosh_\r
+    026434  aa  150 137 000 000\r
+    026435  aa  006 144 163 151         dsinh_\r
+    026436  aa  156 150 137 000\r
+    026437  aa  005 163 151 156         sinh_\r
+    026440  aa  150 137 000 000\r
+    026441  aa  006 144 164 141         dtanh_\r
+    026442  aa  156 150 137 000\r
+    026443  aa  006 151 156 144         index_\r
+    026444  aa  145 170 137 000\r
+    026445  aa  022 146 157 162         fort_int_builtins_\r
+    026446  aa  164 137 151 156\r
+    026447  aa  164 137 142 165\r
+    026450  aa  151 154 164 151\r
+    026451  aa  156 163 137 000\r
+    026452  aa  006 144 141 143         dacos_\r
+    026453  aa  157 163 137 000\r
+    026454  aa  005 141 143 157         acos_\r
+    026455  aa  163 137 000 000\r
+    026456  aa  006 144 141 163         dasin_\r
+    026457  aa  151 156 137 000\r
+    026460  aa  005 141 163 151         asin_\r
+    026461  aa  156 137 000 000\r
+    026462  aa  005 144 164 141         dtan_\r
+    026463  aa  156 137 000 000\r
+    026464  aa  004 164 141 156         tan_\r
+    026465  aa  137 000 000 000\r
+    026466  aa  005 143 170 160         cxp2_\r
+    026467  aa  062 137 000 000\r
+    026470  aa  006 143 163 161         csqrt_\r
+    026471  aa  162 164 137 000\r
+    026472  aa  005 143 143 157         ccos_\r
+    026473  aa  163 137 000 000\r
+    026474  aa  005 143 163 151         csin_\r
+    026475  aa  156 137 000 000\r
+    026476  aa  005 143 154 157         clog_\r
+    026477  aa  147 137 000 000\r
+    026500  aa  005 143 145 170         cexp_\r
+    026501  aa  160 137 000 000\r
+    026502  aa  005 143 141 142         cabs_\r
+    026503  aa  163 137 000 000\r
+    026504  aa  006 144 163 161         dsqrt_\r
+    026505  aa  162 164 137 000\r
+    026506  aa  005 144 143 157         dcos_\r
+    026507  aa  163 137 000 000\r
+    026510  aa  005 144 163 151         dsin_\r
+    026511  aa  156 137 000 000\r
+    026512  aa  007 144 141 164         datan2_\r
+    026513  aa  141 156 062 137\r
+    026514  aa  006 144 141 164         datan_\r
+    026515  aa  141 156 137 000\r
+    026516  aa  007 144 154 157         dlog10_\r
+    026517  aa  147 061 060 137\r
+    026520  aa  005 144 154 157         dlog_\r
+    026521  aa  147 137 000 000\r
+    026522  aa  005 144 145 170         dexp_\r
+    026523  aa  160 137 000 000\r
+    026524  aa  005 144 155 157         dmod_\r
+    026525  aa  144 137 000 000\r
+    026526  aa  005 163 161 162         sqrt_\r
+    026527  aa  164 137 000 000\r
+    026530  aa  005 164 141 156         tanh_\r
+    026531  aa  150 137 000 000\r
+    026532  aa  004 143 157 163         cos_\r
+    026533  aa  137 000 000 000\r
+    026534  aa  004 163 151 156         sin_\r
+    026535  aa  137 000 000 000\r
+    026536  aa  006 141 164 141         atan2_\r
+    026537  aa  156 062 137 000\r
+    026540  aa  005 141 164 141         atan_\r
+    026541  aa  156 137 000 000\r
+    026542  aa  007 141 154 157         alog10_\r
+    026543  aa  147 061 060 137\r
+    026544  aa  005 141 154 157         alog_\r
+    026545  aa  147 137 000 000\r
+    026546  aa  004 145 170 160         exp_\r
+    026547  aa  137 000 000 000\r
+    026550  aa  022 146 157 162         fort_bfp_builtins_\r
+    026551  aa  164 137 142 146\r
+    026552  aa  160 137 142 165\r
+    026553  aa  151 154 164 151\r
+    026554  aa  156 163 137 000\r
+    026555  aa  024 160 154 061         pl1_signal_from_ops_\r
+    026556  aa  137 163 151 147\r
+    026557  aa  156 141 154 137\r
+    026560  aa  146 162 157 155\r
+    026561  aa  137 157 160 163\r
+    026562  aa  137 000 000 000\r
+    026563  aa  015 160 141 143         pack_picture_\r
+    026564  aa  153 137 160 151\r
+    026565  aa  143 164 165 162\r
+    026566  aa  145 137 000 000\r
+    026567  aa  017 165 156 160         unpack_picture_\r
+    026570  aa  141 143 153 137\r
+    026571  aa  160 151 143 164\r
+    026572  aa  165 162 145 137\r
+    026573  aa  006 146 162 145         freen_\r
+    026574  aa  145 156 137 000\r
+    026575  aa  010 163 164 157         storage_\r
+    026576  aa  162 141 147 145\r
+    026577  aa  137 000 000 000\r
+    026600  aa  013 157 160 137         op_storage_\r
+    026601  aa  163 164 157 162\r
+    026602  aa  141 147 145 137\r
+    026603  aa  017 147 145 164         get_io_area_ptr\r
+    026604  aa  137 151 157 137\r
+    026605  aa  141 162 145 141\r
+    026606  aa  137 160 164 162\r
+    026607  aa  013 160 165 164         put_blanks_\r
+    026610  aa  137 142 154 141\r
+    026611  aa  156 153 163 137\r
+    026612  aa  007 145 154 145         element\r
+    026613  aa  155 145 156 164\r
+    026614  aa  011 164 145 162         terminate\r
+    026615  aa  155 151 156 141\r
+    026616  aa  164 145 000 000\r
+    026617  aa  014 146 151 154         file_control\r
+    026620  aa  145 137 143 157\r
+    026621  aa  156 164 162 157\r
+    026622  aa  154 000 000 000\r
+    026623  aa  015 162 145 141         read_or_write\r
+    026624  aa  144 137 157 162\r
+    026625  aa  137 167 162 151\r
+    026626  aa  164 145 000 000\r
+    026627  aa  013 146 157 162         fortran_io_\r
+    026630  aa  164 162 141 156\r
+    026631  aa  137 151 157 137\r
+    026632  aa  011 160 165 164         put_prep_\r
+    026633  aa  137 160 162 145\r
+    026634  aa  160 137 000 000\r
+    026635  aa  011 147 145 164         get_prep_\r
+    026636  aa  137 160 162 145\r
+    026637  aa  160 137 000 000\r
+    026640  aa  006 143 154 157         close_\r
+    026641  aa  163 145 137 000\r
+    026642  aa  016 157 160 145         open_explicit_\r
+    026643  aa  156 137 145 170\r
+    026644  aa  160 154 151 143\r
+    026645  aa  151 164 137 000\r
+    026646  aa  014 160 154 151         plio2_recio_\r
+    026647  aa  157 062 137 162\r
+    026650  aa  145 143 151 157\r
+    026651  aa  137 000 000 000\r
+    026652  aa  017 160 165 164         put_value_edit_\r
+    026653  aa  137 166 141 154\r
+    026654  aa  165 145 137 145\r
+    026655  aa  144 151 164 137\r
+    026656  aa  017 160 165 164         put_value_list_\r
+    026657  aa  137 166 141 154\r
+    026660  aa  165 145 137 154\r
+    026661  aa  151 163 164 137\r
+    026662  aa  017 147 145 164         get_value_list_\r
+    026663  aa  137 166 141 154\r
+    026664  aa  165 145 137 154\r
+    026665  aa  151 163 164 137\r
+    026666  aa  017 160 165 164         put_value_data_\r
+    026667  aa  137 166 141 154\r
+    026670  aa  165 145 137 144\r
+    026671  aa  141 164 141 137\r
+    026672  aa  016 160 165 164         put_terminate_\r
+    026673  aa  137 164 145 162\r
+    026674  aa  155 151 156 141\r
+    026675  aa  164 145 137 000\r
+    026676  aa  016 147 145 164         get_terminate_\r
+    026677  aa  137 164 145 162\r
+    026700  aa  155 151 156 141\r
+    026701  aa  164 145 137 000\r
+    026702  aa  006 160 154 151         plio2_\r
+    026703  aa  157 062 137 000\r
+    026704  aa  015 160 165 164         put_field_str\r
+    026705  aa  137 146 151 145\r
+    026706  aa  154 144 137 163\r
+    026707  aa  164 162 000 000\r
+    026710  aa  015 146 157 162         fort_cleanup_\r
+    026711  aa  164 137 143 154\r
+    026712  aa  145 141 156 165\r
+    026713  aa  160 137 000 000\r
+    026714  aa  006 143 162 145         create\r
+    026715  aa  141 164 145 000\r
+    026716  aa  020 146 157 162         fortran_storage_\r
+    026717  aa  164 162 141 156\r
+    026720  aa  137 163 164 157\r
+    026721  aa  162 141 147 145\r
+    026722  aa  137 000 000 000\r
+    026723  aa  011 165 156 167         unwinder_\r
+    026724  aa  151 156 144 145\r
+    026725  aa  162 137 000 000\r
+    026726  aa  010 163 164 157         stop_run\r
+    026727  aa  160 137 162 165\r
+    026730  aa  156 000 000 000\r
+    026731  aa  024 166 151 162         virtual_cpu_time_op_\r
+    026732  aa  164 165 141 154\r
+    026733  aa  137 143 160 165\r
+    026734  aa  137 164 151 155\r
+    026735  aa  145 137 157 160\r
+    026736  aa  137 000 000 000\r
+    026737  aa  006 143 154 157         clock_\r
+    026740  aa  143 153 137 000\r
+    026741  aa  010 163 171 163         sys_info\r
+    026742  aa  137 151 156 146\r
+    026743  aa  157 000 000 000\r
+    026744  aa  004 146 162 145         free\r
+    026745  aa  145 000 000 000\r
+    026746  aa  030 146 157 162         fortran_storage_manager_\r
+    026747  aa  164 162 141 156\r
+    026750  aa  137 163 164 157\r
+    026751  aa  162 141 147 145\r
+    026752  aa  137 155 141 156\r
+    026753  aa  141 147 145 162\r
+    026754  aa  137 000 000 000\r
+    026755  aa  005 144 143 157         dcosh\r
+    026756  aa  163 150 000 000\r
+    026757  aa  004 143 157 163         cosh\r
+    026760  aa  150 000 000 000\r
+    026761  aa  005 144 163 151         dsinh\r
+    026762  aa  156 150 000 000\r
+    026763  aa  004 163 151 156         sinh\r
+    026764  aa  150 000 000 000\r
+    026765  aa  005 144 164 141         dtanh\r
+    026766  aa  156 150 000 000\r
+    026767  aa  013 143 155 160         cmpx_p_cmpx\r
+    026770  aa  170 137 160 137\r
+    026771  aa  143 155 160 170\r
+    026772  aa  004 144 155 157         dmod\r
+    026773  aa  144 000 000 000\r
+    026774  aa  004 164 141 156         tanh\r
+    026775  aa  150 000 000 000\r
+    026776  aa  005 143 163 161         csqrt\r
+    026777  aa  162 164 000 000\r
+    027000  aa  004 143 163 151         csin\r
+    027001  aa  156 000 000 000\r
+    027002  aa  004 143 154 157         clog\r
+    027003  aa  147 000 000 000\r
+    027004  aa  004 143 145 170         cexp\r
+    027005  aa  160 000 000 000\r
+    027006  aa  004 143 143 157         ccos\r
+    027007  aa  163 000 000 000\r
+    027010  aa  016 146 157 162         fort_math_ops_\r
+    027011  aa  164 137 155 141\r
+    027012  aa  164 150 137 157\r
+    027013  aa  160 163 137 000\r
+    027014  aa  011 157 160 137         op_empty_\r
+    027015  aa  145 155 160 164\r
+    027016  aa  171 137 000 000\r
+    027017  aa  011 157 160 137         op_freen_\r
+    027020  aa  146 162 145 145\r
+    027021  aa  156 137 000 000\r
+    027022  aa  011 157 160 137         op_alloc_\r
+    027023  aa  141 154 154 157\r
+    027024  aa  143 137 000 000\r
+    027025  aa  006 141 154 154         alloc_\r
+    027026  aa  157 143 137 000\r
+    027027  aa  013 160 165 164         put_control\r
+    027030  aa  137 143 157 156\r
+    027031  aa  164 162 157 154\r
+    027032  aa  015 160 165 164         put_field_chk\r
+    027033  aa  137 146 151 145\r
+    027034  aa  154 144 137 143\r
+    027035  aa  150 153 000 000\r
+    027036  aa  011 160 165 164         put_field\r
+    027037  aa  137 146 151 145\r
+    027040  aa  154 144 000 000\r
+    027041  aa  012 160 165 164         put_field_\r
+    027042  aa  137 146 151 145\r
+    027043  aa  154 144 137 000\r
+    027044  aa  003 155 157 144         mod\r
+    027045  aa  010 164 162 165         truncate\r
+    027046  aa  156 143 141 164\r
+    027047  aa  145 000 000 000\r
+    027050  aa  004 143 141 142         cabs\r
+    027051  aa  163 000 000 000\r
+    027052  aa  004 163 151 147         sign\r
+    027053  aa  156 000 000 000\r
+    027054  aa  005 146 154 157         floor\r
+    027055  aa  157 162 000 000\r
+    027056  aa  004 143 145 151         ceil\r
+    027057  aa  154 000 000 000\r
+    027060  aa  010 144 145 143         dec_ops_\r
+    027061  aa  137 157 160 163\r
+    027062  aa  137 000 000 000\r
+    027063  aa  007 144 166 162         dvrcdec\r
+    027064  aa  143 144 145 143\r
+    027065  aa  006 144 166 143         dvcdec\r
+    027066  aa  144 145 143 000\r
+    027067  aa  006 155 160 143         mpcdec\r
+    027070  aa  144 145 143 000\r
+    027071  aa  015 143 160 154         cplx_dec_ops_\r
+    027072  aa  170 137 144 145\r
+    027073  aa  143 137 157 160\r
+    027074  aa  163 137 000 000\r
+    027075  aa  026 151 156 164         integer_power_integer_\r
+    027076  aa  145 147 145 162\r
+    027077  aa  137 160 157 167\r
+    027100  aa  145 162 137 151\r
+    027101  aa  156 164 145 147\r
+    027102  aa  145 162 137 000\r
+    027103  aa  025 163 151 156         single_power_integer_\r
+    027104  aa  147 154 145 137\r
+    027105  aa  160 157 167 145\r
+    027106  aa  162 137 151 156\r
+    027107  aa  164 145 147 145\r
+    027110  aa  162 137 000 000\r
+    027111  aa  024 163 151 156         single_power_single_\r
+    027112  aa  147 154 145 137\r
+    027113  aa  160 157 167 145\r
+    027114  aa  162 137 163 151\r
+    027115  aa  156 147 154 145\r
+    027116  aa  137 000 000 000\r
+    027117  aa  025 144 157 165         double_power_integer_\r
+    027120  aa  142 154 145 137\r
+    027121  aa  160 157 167 145\r
+    027122  aa  162 137 151 156\r
+    027123  aa  164 145 147 145\r
+    027124  aa  162 137 000 000\r
+    027125  aa  016 160 157 167         power_integer_\r
+    027126  aa  145 162 137 151\r
+    027127  aa  156 164 145 147\r
+    027130  aa  145 162 137 000\r
+    027131  aa  024 144 157 165         double_power_double_\r
+    027132  aa  142 154 145 137\r
+    027133  aa  160 157 167 145\r
+    027134  aa  162 137 144 157\r
+    027135  aa  165 142 154 145\r
+    027136  aa  137 000 000 000\r
+    027137  aa  024 144 157 165         double_power_single_\r
+    027140  aa  142 154 145 137\r
+    027141  aa  160 157 167 145\r
+    027142  aa  162 137 163 151\r
+    027143  aa  156 147 154 145\r
+    027144  aa  137 000 000 000\r
+    027145  aa  025 151 156 164         integer_power_double_\r
+    027146  aa  145 147 145 162\r
+    027147  aa  137 160 157 167\r
+    027150  aa  145 162 137 144\r
+    027151  aa  157 165 142 154\r
+    027152  aa  145 137 000 000\r
+    027153  aa  025 151 156 164         integer_power_single_\r
+    027154  aa  145 147 145 162\r
+    027155  aa  137 160 157 167\r
+    027156  aa  145 162 137 163\r
+    027157  aa  151 156 147 154\r
+    027160  aa  145 137 000 000\r
+    027161  aa  006 160 157 167         power_\r
+    027162  aa  145 162 137 000\r
+    027163  aa  031 144 157 165         double_arc_tan_degrees_2_\r
+    027164  aa  142 154 145 137\r
+    027165  aa  141 162 143 137\r
+    027166  aa  164 141 156 137\r
+    027167  aa  144 145 147 162\r
+    027170  aa  145 145 163 137\r
+    027171  aa  062 137 000 000\r
+    027172  aa  031 144 157 165         double_arc_tan_radians_2_\r
+    027173  aa  142 154 145 137\r
+    027174  aa  141 162 143 137\r
+    027175  aa  164 141 156 137\r
+    027176  aa  162 141 144 151\r
+    027177  aa  141 156 163 137\r
+    027200  aa  062 137 000 000\r
+    027201  aa  026 141 162 143         arc_tangent_degrees_2_\r
+    027202  aa  137 164 141 156\r
+    027203  aa  147 145 156 164\r
+    027204  aa  137 144 145 147\r
+    027205  aa  162 145 145 163\r
+    027206  aa  137 062 137 000\r
+    027207  aa  026 141 162 143         arc_tangent_radians_2_\r
+    027210  aa  137 164 141 156\r
+    027211  aa  147 145 156 164\r
+    027212  aa  137 162 141 144\r
+    027213  aa  151 141 156 163\r
+    027214  aa  137 062 137 000\r
+    027215  aa  023 144 157 165         double_exponential_\r
+    027216  aa  142 154 145 137\r
+    027217  aa  145 170 160 157\r
+    027220  aa  156 145 156 164\r
+    027221  aa  151 141 154 137\r
+    027222  aa  023 144 157 165         double_log_base_10_\r
+    027223  aa  142 154 145 137\r
+    027224  aa  154 157 147 137\r
+    027225  aa  142 141 163 145\r
+    027226  aa  137 061 060 137\r
+    027227  aa  022 144 157 165         double_log_base_e_\r
+    027230  aa  142 154 145 137\r
+    027231  aa  154 157 147 137\r
+    027232  aa  142 141 163 145\r
+    027233  aa  137 145 137 000\r
+    027234  aa  022 144 157 165         double_log_base_2_\r
+    027235  aa  142 154 145 137\r
+    027236  aa  154 157 147 137\r
+    027237  aa  142 141 163 145\r
+    027240  aa  137 062 137 000\r
+    027241  aa  021 144 157 165         double_logarithm_\r
+    027242  aa  142 154 145 137\r
+    027243  aa  154 157 147 141\r
+    027244  aa  162 151 164 150\r
+    027245  aa  155 137 000 000\r
+    027246  aa  027 144 157 165         double_arc_tan_degrees_\r
+    027247  aa  142 154 145 137\r
+    027250  aa  141 162 143 137\r
+    027251  aa  164 141 156 137\r
+    027252  aa  144 145 147 162\r
+    027253  aa  145 145 163 137\r
+    027254  aa  027 144 157 165         double_arc_tan_radians_\r
+    027255  aa  142 154 145 137\r
+    027256  aa  141 162 143 137\r
+    027257  aa  164 141 156 137\r
+    027260  aa  162 141 144 151\r
+    027261  aa  141 156 163 137\r
+    027262  aa  023 144 157 165         double_arc_tangent_\r
+    027263  aa  142 154 145 137\r
+    027264  aa  141 162 143 137\r
+    027265  aa  164 141 156 147\r
+    027266  aa  145 156 164 137\r
+    027267  aa  032 144 157 165         double_arc_cosine_degrees_\r
+    027270  aa  142 154 145 137\r
+    027271  aa  141 162 143 137\r
+    027272  aa  143 157 163 151\r
+    027273  aa  156 145 137 144\r
+    027274  aa  145 147 162 145\r
+    027275  aa  145 163 137 000\r
+    027276  aa  032 144 157 165         double_arc_cosine_radians_\r
+    027277  aa  142 154 145 137\r
+    027300  aa  141 162 143 137\r
+    027301  aa  143 157 163 151\r
+    027302  aa  156 145 137 162\r
+    027303  aa  141 144 151 141\r
+    027304  aa  156 163 137 000\r
+    027305  aa  030 144 157 165         double_arc_sine_degrees_\r
+    027306  aa  142 154 145 137\r
+    027307  aa  141 162 143 137\r
+    027310  aa  163 151 156 145\r
+    027311  aa  137 144 145 147\r
+    027312  aa  162 145 145 163\r
+    027313  aa  137 000 000 000\r
+    027314  aa  030 144 157 165         double_arc_sine_radians_\r
+    027315  aa  142 154 145 137\r
+    027316  aa  141 162 143 137\r
+    027317  aa  163 151 156 145\r
+    027320  aa  137 162 141 144\r
+    027321  aa  151 141 156 163\r
+    027322  aa  137 000 000 000\r
+    027323  aa  020 144 157 165         double_arc_sine_\r
+    027324  aa  142 154 145 137\r
+    027325  aa  141 162 143 137\r
+    027326  aa  163 151 156 145\r
+    027327  aa  137 000 000 000\r
+    027330  aa  027 144 157 165         double_tangent_degrees_\r
+    027331  aa  142 154 145 137\r
+    027332  aa  164 141 156 147\r
+    027333  aa  145 156 164 137\r
+    027334  aa  144 145 147 162\r
+    027335  aa  145 145 163 137\r
+    027336  aa  027 144 157 165         double_tangent_radians_\r
+    027337  aa  142 154 145 137\r
+    027340  aa  164 141 156 147\r
+    027341  aa  145 156 164 137\r
+    027342  aa  162 141 144 151\r
+    027343  aa  141 156 163 137\r
+    027344  aa  017 144 157 165         double_tangent_\r
+    027345  aa  142 154 145 137\r
+    027346  aa  164 141 156 147\r
+    027347  aa  145 156 164 137\r
+    027350  aa  026 144 157 165         double_cosine_degrees_\r
+    027351  aa  142 154 145 137\r
+    027352  aa  143 157 163 151\r
+    027353  aa  156 145 137 144\r
+    027354  aa  145 147 162 145\r
+    027355  aa  145 163 137 000\r
+    027356  aa  026 144 157 165         double_cosine_radians_\r
+    027357  aa  142 154 145 137\r
+    027360  aa  143 157 163 151\r
+    027361  aa  156 145 137 162\r
+    027362  aa  141 144 151 141\r
+    027363  aa  156 163 137 000\r
+    027364  aa  024 144 157 165         double_sine_degrees_\r
+    027365  aa  142 154 145 137\r
+    027366  aa  163 151 156 145\r
+    027367  aa  137 144 145 147\r
+    027370  aa  162 145 145 163\r
+    027371  aa  137 000 000 000\r
+    027372  aa  024 144 157 165         double_sine_radians_\r
+    027373  aa  142 154 145 137\r
+    027374  aa  163 151 156 145\r
+    027375  aa  137 162 141 144\r
+    027376  aa  151 141 156 163\r
+    027377  aa  137 000 000 000\r
+    027400  aa  014 144 157 165         double_sine_\r
+    027401  aa  142 154 145 137\r
+    027402  aa  163 151 156 145\r
+    027403  aa  137 000 000 000\r
+    027404  aa  023 144 157 165         double_square_root_\r
+    027405  aa  142 154 145 137\r
+    027406  aa  163 161 165 141\r
+    027407  aa  162 145 137 162\r
+    027410  aa  157 157 164 137\r
+    027411  aa  014 145 170 160         exponential_\r
+    027412  aa  157 156 145 156\r
+    027413  aa  164 151 141 154\r
+    027414  aa  137 000 000 000\r
+    027415  aa  014 154 157 147         log_base_10_\r
+    027416  aa  137 142 141 163\r
+    027417  aa  145 137 061 060\r
+    027420  aa  137 000 000 000\r
+    027421  aa  013 154 157 147         log_base_e_\r
+    027422  aa  137 142 141 163\r
+    027423  aa  145 137 145 137\r
+    027424  aa  013 154 157 147         log_base_2_\r
+    027425  aa  137 142 141 163\r
+    027426  aa  145 137 062 137\r
+    027427  aa  012 154 157 147         logarithm_\r
+    027430  aa  141 162 151 164\r
+    027431  aa  150 155 137 000\r
+    027432  aa  024 141 162 143         arc_tangent_degrees_\r
+    027433  aa  137 164 141 156\r
+    027434  aa  147 145 156 164\r
+    027435  aa  137 144 145 147\r
+    027436  aa  162 145 145 163\r
+    027437  aa  137 000 000 000\r
+    027440  aa  024 141 162 143         arc_tangent_radians_\r
+    027441  aa  137 164 141 156\r
+    027442  aa  147 145 156 164\r
+    027443  aa  137 162 141 144\r
+    027444  aa  151 141 156 163\r
+    027445  aa  137 000 000 000\r
+    027446  aa  014 141 162 143         arc_tangent_\r
+    027447  aa  137 164 141 156\r
+    027450  aa  147 145 156 164\r
+    027451  aa  137 000 000 000\r
+    027452  aa  023 141 162 143         arc_cosine_degrees_\r
+    027453  aa  137 143 157 163\r
+    027454  aa  151 156 145 137\r
+    027455  aa  144 145 147 162\r
+    027456  aa  145 145 163 137\r
+    027457  aa  023 141 162 143         arc_cosine_radians_\r
+    027460  aa  137 143 157 163\r
+    027461  aa  151 156 145 137\r
+    027462  aa  162 141 144 151\r
+    027463  aa  141 156 163 137\r
+    027464  aa  021 141 162 143         arc_sine_degrees_\r
+    027465  aa  137 163 151 156\r
+    027466  aa  145 137 144 145\r
+    027467  aa  147 162 145 145\r
+    027470  aa  163 137 000 000\r
+    027471  aa  021 141 162 143         arc_sine_radians_\r
+    027472  aa  137 163 151 156\r
+    027473  aa  145 137 162 141\r
+    027474  aa  144 151 141 156\r
+    027475  aa  163 137 000 000\r
+    027476  aa  011 141 162 143         arc_sine_\r
+    027477  aa  137 163 151 156\r
+    027500  aa  145 137 000 000\r
+    027501  aa  020 164 141 156         tangent_degrees_\r
+    027502  aa  147 145 156 164\r
+    027503  aa  137 144 145 147\r
+    027504  aa  162 145 145 163\r
+    027505  aa  137 000 000 000\r
+    027506  aa  020 164 141 156         tangent_radians_\r
+    027507  aa  147 145 156 164\r
+    027510  aa  137 162 141 144\r
+    027511  aa  151 141 156 163\r
+    027512  aa  137 000 000 000\r
+    027513  aa  010 164 141 156         tangent_\r
+    027514  aa  147 145 156 164\r
+    027515  aa  137 000 000 000\r
+    027516  aa  017 143 157 163         cosine_degrees_\r
+    027517  aa  151 156 145 137\r
+    027520  aa  144 145 147 162\r
+    027521  aa  145 145 163 137\r
+    027522  aa  017 143 157 163         cosine_radians_\r
+    027523  aa  151 156 145 137\r
+    027524  aa  162 141 144 151\r
+    027525  aa  141 156 163 137\r
+    027526  aa  015 163 151 156         sine_degrees_\r
+    027527  aa  145 137 144 145\r
+    027530  aa  147 162 145 145\r
+    027531  aa  163 137 000 000\r
+    027532  aa  015 163 151 156         sine_radians_\r
+    027533  aa  145 137 162 141\r
+    027534  aa  144 151 141 156\r
+    027535  aa  163 137 000 000\r
+    027536  aa  005 163 151 156         sine_\r
+    027537  aa  145 137 000 000\r
+    027540  aa  014 163 161 165         square_root_\r
+    027541  aa  141 162 145 137\r
+    027542  aa  162 157 157 164\r
+    027543  aa  137 000 000 000\r
+    027544  aa  024 141 156 171         any_to_any_truncate_\r
+    027545  aa  137 164 157 137\r
+    027546  aa  141 156 171 137\r
+    027547  aa  164 162 165 156\r
+    027550  aa  143 141 164 145\r
+    027551  aa  137 000 000 000\r
+    027552  aa  021 141 156 171         any_to_any_round_\r
+    027553  aa  137 164 157 137\r
+    027554  aa  141 156 171 137\r
+    027555  aa  162 157 165 156\r
+    027556  aa  144 137 000 000\r
+    027557  aa  026 162 145 141         real_to_real_truncate_\r
+    027560  aa  154 137 164 157\r
+    027561  aa  137 162 145 141\r
+    027562  aa  154 137 164 162\r
+    027563  aa  165 156 143 141\r
+    027564  aa  164 145 137 000\r
+    027565  aa  023 162 145 141         real_to_real_round_\r
+    027566  aa  154 137 164 157\r
+    027567  aa  137 162 145 141\r
+    027570  aa  154 137 162 157\r
+    027571  aa  165 156 144 137\r
+    027572  aa  013 141 156 171         any_to_any_\r
+    027573  aa  137 164 157 137\r
+    027574  aa  141 156 171 137\r
+    027575  aa  014 147 145 164         get_edit_eis\r
+    027576  aa  137 145 144 151\r
+    027577  aa  164 137 145 151\r
+    027600  aa  163 000 000 000\r
+    027601  aa  014 160 165 164         put_edit_eis\r
+    027602  aa  137 145 144 151\r
+    027603  aa  164 137 145 151\r
+    027604  aa  163 000 000 000\r
+    027605  aa  011 162 145 143         record_io\r
+    027606  aa  157 162 144 137\r
+    027607  aa  151 157 000 000\r
+    027610  aa  012 162 145 143         record_io_\r
+    027611  aa  157 162 144 137\r
+    027612  aa  151 157 137 000\r
+    027613  aa  013 163 164 162         stream_prep\r
+    027614  aa  145 141 155 137\r
+    027615  aa  160 162 145 160\r
+    027616  aa  015 160 165 164         put_terminate\r
+    027617  aa  137 164 145 162\r
+    027620  aa  155 151 156 141\r
+    027621  aa  164 145 000 000\r
+    027622  aa  013 160 165 164         put_format_\r
+    027623  aa  137 146 157 162\r
+    027624  aa  155 141 164 137\r
+\r
+NO TRAP POINTER WORDS\r
+\r
+TYPE PAIR BLOCKS\r
+\r
+    027625  aa   000004 000000 \r
+    027626  55   000514 000514 \r
+    027627  aa   000004 000000 \r
+    027630  55   000525 000522 \r
+    027631  aa   000004 000000 \r
+    027632  55   000531 001315 \r
+    027633  aa   000004 000000 \r
+    027634  55   000531 001321 \r
+    027635  aa   000004 000000 \r
+    027636  55   000531 001323 \r
+    027637  aa   000004 000000 \r
+    027640  55   000531 001325 \r
+    027641  aa   000004 000000 \r
+    027642  55   000531 001327 \r
+    027643  aa   000004 000000 \r
+    027644  55   000531 001331 \r
+    027645  aa   000004 000000 \r
+    027646  55   000531 001333 \r
+    027647  aa   000004 000000 \r
+    027650  55   000531 001337 \r
+    027651  aa   000004 000000 \r
+    027652  55   000531 001341 \r
+    027653  aa   000004 000000 \r
+    027654  55   000531 001343 \r
+    027655  aa   000004 000000 \r
+    027656  55   000531 001345 \r
+    027657  aa   000004 000000 \r
+    027660  55   000531 001351 \r
+    027661  aa   000004 000000 \r
+    027662  55   000531 001353 \r
+    027663  aa   000004 000000 \r
+    027664  55   000531 001357 \r
+    027665  aa   000004 000000 \r
+    027666  55   000531 001361 \r
+    027667  aa   000004 000000 \r
+    027670  55   000531 001365 \r
+    027671  aa   000004 000000 \r
+    027672  55   000531 001367 \r
+    027673  aa   000004 000000 \r
+    027674  55   000531 001371 \r
+    027675  aa   000004 000000 \r
+    027676  55   000531 001373 \r
+    027677  aa   000004 000000 \r
+    027700  55   000531 001375 \r
+    027701  aa   000004 000000 \r
+    027702  55   000531 001377 \r
+    027703  aa   000004 000000 \r
+    027704  55   000531 001410 \r
+    027705  aa   000004 000000 \r
+    027706  55   000531 001412 \r
+    027707  aa   000004 000000 \r
+    027710  55   000531 001414 \r
+    027711  aa   000004 000000 \r
+    027712  55   000531 001416 \r
+    027713  aa   000004 000000 \r
+    027714  55   000531 001420 \r
+    027715  aa   000004 000000 \r
+    027716  55   000531 001422 \r
+    027717  aa   000004 000000 \r
+    027720  55   000531 001424 \r
+    027721  aa   000004 000000 \r
+    027722  55   000531 001426 \r
+    027723  aa   000004 000000 \r
+    027724  55   000531 001430 \r
+    027725  aa   000004 000000 \r
+    027726  55   000531 001432 \r
+    027727  aa   000004 000000 \r
+    027730  55   000531 001434 \r
+    027731  aa   000004 000000 \r
+    027732  55   000531 001436 \r
+    027733  aa   000004 000000 \r
+    027734  55   000531 001440 \r
+    027735  aa   000004 000000 \r
+    027736  55   000531 001442 \r
+    027737  aa   000004 000000 \r
+    027740  55   000531 001444 \r
+    027741  aa   000004 000000 \r
+    027742  55   000531 001446 \r
+    027743  aa   000004 000000 \r
+    027744  55   000531 001450 \r
+    027745  aa   000004 000000 \r
+    027746  55   000531 001452 \r
+    027747  aa   000004 000000 \r
+    027750  55   000531 001454 \r
+    027751  aa   000004 000000 \r
+    027752  55   000531 001456 \r
+    027753  aa   000004 000000 \r
+    027754  55   000531 001460 \r
+    027755  aa   000004 000000 \r
+    027756  55   000531 001462 \r
+    027757  aa   000004 000000 \r
+    027760  55   000531 001464 \r
+    027761  aa   000004 000000 \r
+    027762  55   000531 001466 \r
+    027763  aa   000004 000000 \r
+    027764  55   000531 001470 \r
+    027765  aa   000004 000000 \r
+    027766  55   000531 001472 \r
+    027767  aa   000004 000000 \r
+    027770  55   000531 001474 \r
+    027771  aa   000004 000000 \r
+    027772  55   000531 001476 \r
+    027773  aa   000004 000000 \r
+    027774  55   000531 001500 \r
+    027775  aa   000004 000000 \r
+    027776  55   000531 001502 \r
+    027777  aa   000004 000000 \r
+    030000  55   000531 001504 \r
+    030001  aa   000004 000000 \r
+    030002  55   001746 000536 \r
+    030003  aa   000004 000000 \r
+    030004  55   001746 000541 \r
+    030005  aa   000004 000000 \r
+    030006  55   001746 000544 \r
+    030007  aa   000004 000000 \r
+    030010  55   001746 000547 \r
+    030011  aa   000004 000000 \r
+    030012  55   001746 000552 \r
+    030013  aa   000004 000000 \r
+    030014  55   001746 000555 \r
+    030015  aa   000004 000000 \r
+    030016  55   001746 000561 \r
+    030017  aa   000004 000000 \r
+    030020  55   001746 000564 \r
+    030021  aa   000004 000000 \r
+    030022  55   001746 000567 \r
+    030023  aa   000004 000000 \r
+    030024  55   001746 000572 \r
+    030025  aa   000004 000000 \r
+    030026  55   001746 000575 \r
+    030027  aa   000004 000000 \r
+    030030  55   001746 000600 \r
+    030031  aa   000004 000000 \r
+    030032  55   001746 000603 \r
+    030033  aa   000004 000000 \r
+    030034  55   001746 000606 \r
+    030035  aa   000004 000000 \r
+    030036  55   002063 000611 \r
+    030037  aa   000004 000000 \r
+    030040  55   002117 000620 \r
+    030041  aa   000004 000000 \r
+    030042  55   002063 000627 \r
+    030043  aa   000004 000000 \r
+    030044  55   002117 000636 \r
+    030045  aa   000004 000000 \r
+    030046  55   002117 000645 \r
+    030047  aa   000004 000000 \r
+    030050  55   002117 000654 \r
+    030051  aa   000004 000000 \r
+    030052  55   002117 000663 \r
+    030053  aa   000004 000000 \r
+    030054  55   002220 000672 \r
+    030055  aa   000004 000000 \r
+    030056  55   002220 000702 \r
+    030057  aa   000004 000000 \r
+    030060  55   002404 000712 \r
+    030061  aa   000004 000000 \r
+    030062  55   002404 000721 \r
+    030063  aa   000004 000000 \r
+    030064  55   002153 000730 \r
+    030065  aa   000004 000000 \r
+    030066  55   002177 000736 \r
+    030067  aa   000004 000000 \r
+    030070  55   002177 000744 \r
+    030071  aa   000004 000000 \r
+    030072  55   002177 000752 \r
+    030073  aa   000004 000000 \r
+    030074  55   002220 000760 \r
+    030075  aa   000004 000000 \r
+    030076  55   002220 000767 \r
+    030077  aa   000004 000000 \r
+    030100  55   002261 000776 \r
+    030101  aa   000004 000000 \r
+    030102  55   002261 001006 \r
+    030103  aa   000004 000000 \r
+    030104  55   002261 001016 \r
+    030105  aa   000004 000000 \r
+    030106  55   002261 001026 \r
+    030107  aa   000004 000000 \r
+    030110  55   002302 001036 \r
+    030111  aa   000004 000000 \r
+    030112  55   002302 001045 \r
+    030113  aa   000004 000000 \r
+    030114  55   002336 001054 \r
+    030115  aa   000004 000000 \r
+    030116  55   002336 001063 \r
+    030117  aa   000004 000000 \r
+    030120  55   002336 001072 \r
+    030121  aa   000004 000000 \r
+    030122  55   002336 001101 \r
+    030123  aa   000004 000000 \r
+    030124  55   002342 001110 \r
+    030125  aa   000004 000000 \r
+    030126  55   002347 001116 \r
+    030127  aa   000004 000000 \r
+    030130  55   002365 001123 \r
+    030131  aa   000004 000000 \r
+    030132  55   002365 001130 \r
+    030133  aa   000004 000000 \r
+    030134  55   002365 001134 \r
+    030135  aa   000004 000000 \r
+    030136  55   002404 001140 \r
+    030137  aa   000004 000000 \r
+    030140  55   002404 001147 \r
+    030141  aa   000004 000000 \r
+    030142  55   002434 001156 \r
+    030143  aa   000004 000000 \r
+    030144  55   002434 001164 \r
+    030145  aa   000004 000000 \r
+    030146  55   002434 001172 \r
+    030147  aa   000004 000000 \r
+    030150  55   002434 001200 \r
+    030151  aa   000004 000000 \r
+    030152  55   002451 001206 \r
+    030153  aa   000004 000000 \r
+    030154  55   002451 001214 \r
+    030155  aa   000004 000000 \r
+    030156  55   002474 001222 \r
+    030157  aa   000004 000000 \r
+    030160  55   002474 001227 \r
+    030161  aa   000004 000000 \r
+    030162  55   002474 001234 \r
+    030163  aa   000004 000000 \r
+    030164  55   002474 001241 \r
+    030165  aa   000004 000000 \r
+    030166  55   002476 001246 \r
+    030167  aa   000004 000000 \r
+    030170  55   001260 001253 \r
+    030171  aa   000004 000000 \r
+    030172  55   001265 001262 \r
+    030173  aa   000004 000000 \r
+    030174  55   001301 001301 \r
+    030175  aa   000004 000000 \r
+    030176  55   001272 001272 \r
+    030177  aa   000004 000000 \r
+    030200  55   001301 001276 \r
+    030201  aa   000004 000000 \r
+    030202  55   001403 001305 \r
+    030203  aa   000004 000000 \r
+    030204  55   001403 001307 \r
+    030205  aa   000004 000000 \r
+    030206  55   001403 001311 \r
+    030207  aa   000004 000000 \r
+    030210  55   001403 001313 \r
+    030211  aa   000004 000000 \r
+    030212  55   001506 001315 \r
+    030213  aa   000004 000000 \r
+    030214  55   001403 001317 \r
+    030215  aa   000004 000000 \r
+    030216  55   001506 001321 \r
+    030217  aa   000004 000000 \r
+    030220  55   001506 001323 \r
+    030221  aa   000004 000000 \r
+    030222  55   001506 001325 \r
+    030223  aa   000004 000000 \r
+    030224  55   001506 001327 \r
+    030225  aa   000004 000000 \r
+    030226  55   001506 001331 \r
+    030227  aa   000004 000000 \r
+    030230  55   001506 001333 \r
+    030231  aa   000004 000000 \r
+    030232  55   001403 001335 \r
+    030233  aa   000004 000000 \r
+    030234  55   001506 001337 \r
+    030235  aa   000004 000000 \r
+    030236  55   001506 001341 \r
+    030237  aa   000004 000000 \r
+    030240  55   001506 001343 \r
+    030241  aa   000004 000000 \r
+    030242  55   001506 001345 \r
+    030243  aa   000004 000000 \r
+    030244  55   001403 001347 \r
+    030245  aa   000004 000000 \r
+    030246  55   001506 001351 \r
+    030247  aa   000004 000000 \r
+    030250  55   001506 001353 \r
+    030251  aa   000004 000000 \r
+    030252  55   001403 001355 \r
+    030253  aa   000004 000000 \r
+    030254  55   001506 001357 \r
+    030255  aa   000004 000000 \r
+    030256  55   001506 001361 \r
+    030257  aa   000004 000000 \r
+    030260  55   001403 001363 \r
+    030261  aa   000004 000000 \r
+    030262  55   001506 001365 \r
+    030263  aa   000004 000000 \r
+    030264  55   001506 001367 \r
+    030265  aa   000004 000000 \r
+    030266  55   001506 001371 \r
+    030267  aa   000004 000000 \r
+    030270  55   001506 001373 \r
+    030271  aa   000004 000000 \r
+    030272  55   001506 001375 \r
+    030273  aa   000004 000000 \r
+    030274  55   001506 001377 \r
+    030275  aa   000004 000000 \r
+    030276  55   001403 001401 \r
+    030277  aa   000004 000000 \r
+    030300  55   001506 001410 \r
+    030301  aa   000004 000000 \r
+    030302  55   001506 001412 \r
+    030303  aa   000004 000000 \r
+    030304  55   001506 001414 \r
+    030305  aa   000004 000000 \r
+    030306  55   001506 001416 \r
+    030307  aa   000004 000000 \r
+    030310  55   001506 001420 \r
+    030311  aa   000004 000000 \r
+    030312  55   001506 001422 \r
+    030313  aa   000004 000000 \r
+    030314  55   001506 001424 \r
+    030315  aa   000004 000000 \r
+    030316  55   001506 001426 \r
+    030317  aa   000004 000000 \r
+    030320  55   001506 001430 \r
+    030321  aa   000004 000000 \r
+    030322  55   001506 001432 \r
+    030323  aa   000004 000000 \r
+    030324  55   001506 001434 \r
+    030325  aa   000004 000000 \r
+    030326  55   001506 001436 \r
+    030327  aa   000004 000000 \r
+    030330  55   001506 001440 \r
+    030331  aa   000004 000000 \r
+    030332  55   001506 001442 \r
+    030333  aa   000004 000000 \r
+    030334  55   001506 001444 \r
+    030335  aa   000004 000000 \r
+    030336  55   001506 001446 \r
+    030337  aa   000004 000000 \r
+    030340  55   001506 001450 \r
+    030341  aa   000004 000000 \r
+    030342  55   001506 001452 \r
+    030343  aa   000004 000000 \r
+    030344  55   001506 001454 \r
+    030345  aa   000004 000000 \r
+    030346  55   001506 001456 \r
+    030347  aa   000004 000000 \r
+    030350  55   001506 001460 \r
+    030351  aa   000004 000000 \r
+    030352  55   001506 001462 \r
+    030353  aa   000004 000000 \r
+    030354  55   001506 001464 \r
+    030355  aa   000004 000000 \r
+    030356  55   001506 001466 \r
+    030357  aa   000004 000000 \r
+    030360  55   001506 001470 \r
+    030361  aa   000004 000000 \r
+    030362  55   001506 001472 \r
+    030363  aa   000004 000000 \r
+    030364  55   001506 001474 \r
+    030365  aa   000004 000000 \r
+    030366  55   001506 001476 \r
+    030367  aa   000004 000000 \r
+    030370  55   001506 001500 \r
+    030371  aa   000004 000000 \r
+    030372  55   001506 001502 \r
+    030373  aa   000004 000000 \r
+    030374  55   001506 001504 \r
+    030375  aa   000004 000000 \r
+    030376  55   001513 001513 \r
+    030377  aa   000004 000000 \r
+    030400  55   001521 001521 \r
+    030401  aa   000004 000000 \r
+    030402  55   001525 001525 \r
+    030403  aa   000004 000000 \r
+    030404  55   001531 001531 \r
+    030405  aa   000004 000000 \r
+    030406  55   001763 001533 \r
+    030407  aa   000004 000000 \r
+    030410  55   001763 001536 \r
+    030411  aa   000004 000000 \r
+    030412  55   001565 001541 \r
+    030413  aa   000004 000000 \r
+    030414  55   001640 001545 \r
+    030415  aa   000004 000000 \r
+    030416  55   001640 001777 \r
+    030417  aa   000004 000000 \r
+    030420  55   001565 001550 \r
+    030421  aa   000004 000000 \r
+    030422  55   001565 001552 \r
+    030423  aa   000004 000000 \r
+    030424  55   001565 001555 \r
+    030425  aa   000004 000000 \r
+    030426  55   001565 001561 \r
+    030427  aa   000004 000000 \r
+    030430  55   001640 001570 \r
+    030431  aa   000004 000000 \r
+    030432  55   001640 001573 \r
+    030433  aa   000004 000000 \r
+    030434  55   001640 001576 \r
+    030435  aa   000004 000000 \r
+    030436  55   001640 001600 \r
+    030437  aa   000004 000000 \r
+    030440  55   001604 001604 \r
+    030441  aa   000004 000000 \r
+    030442  55   001640 001610 \r
+    030443  aa   000004 000000 \r
+    030444  55   001640 001614 \r
+    030445  aa   000004 000000 \r
+    030446  55   001640 001620 \r
+    030447  aa   000004 000000 \r
+    030450  55   001640 001624 \r
+    030451  aa   000004 000000 \r
+    030452  55   001640 001630 \r
+    030453  aa   000004 000000 \r
+    030454  55   001640 001634 \r
+    030455  aa   000004 000000 \r
+    030456  55   001777 001642 \r
+    030457  aa   000004 000000 \r
+    030460  55   001646 001646 \r
+    030461  aa   000004 000000 \r
+    030462  55   001654 001652 \r
+    030463  aa   000004 000000 \r
+    030464  55   001661 001661 \r
+    030465  aa   000004 000000 \r
+    030466  55   001664 001664 \r
+    030467  aa   000004 000000 \r
+    030470  55   001667 001667 \r
+    030471  aa   000004 000000 \r
+    030472  55   001677 001675 \r
+    030473  aa   000004 000000 \r
+    030474  55   001704 001702 \r
+    030475  aa   000004 000000 \r
+    030476  55   001746 001713 \r
+    030477  aa   000004 000000 \r
+    030500  55   001746 001715 \r
+    030501  aa   000004 000000 \r
+    030502  55   001746 001717 \r
+    030503  aa   000004 000000 \r
+    030504  55   001746 001721 \r
+    030505  aa   000004 000000 \r
+    030506  55   001746 001723 \r
+    030507  aa   000004 000000 \r
+    030510  55   001746 001725 \r
+    030511  aa   000004 000000 \r
+    030512  55   001746 001730 \r
+    030513  aa   000004 000000 \r
+    030514  55   001746 001732 \r
+    030515  aa   000004 000000 \r
+    030516  55   001746 001734 \r
+    030517  aa   000004 000000 \r
+    030520  55   001746 001736 \r
+    030521  aa   000004 000000 \r
+    030522  55   001746 001740 \r
+    030523  aa   000004 000000 \r
+    030524  55   001746 001742 \r
+    030525  aa   000004 000000 \r
+    030526  55   001746 001744 \r
+    030527  aa   000004 000000 \r
+    030530  55   001746 002006 \r
+    030531  aa   000004 000000 \r
+    030532  55   001763 001752 \r
+    030533  aa   000004 000000 \r
+    030534  55   001763 001755 \r
+    030535  aa   000004 000000 \r
+    030536  55   001763 001760 \r
+    030537  aa   000004 000000 \r
+    030540  55   001777 001765 \r
+    030541  aa   000004 000000 \r
+    030542  55   001777 001770 \r
+    030543  aa   000004 000000 \r
+    030544  55   001777 001774 \r
+    030545  aa   000004 000000 \r
+    030546  55   002016 002002 \r
+    030547  aa   000004 000000 \r
+    030550  55   002016 002003 \r
+    030551  aa   000004 000000 \r
+    030552  55   002027 002006 \r
+    030553  aa   000004 000000 \r
+    030554  55   002016 002010 \r
+    030555  aa   000004 000000 \r
+    030556  55   002016 002012 \r
+    030557  aa   000004 000000 \r
+    030560  55   002016 002014 \r
+    030561  aa   000004 000000 \r
+    030562  55   002027 002021 \r
+    030563  aa   000004 000000 \r
+    030564  55   002027 002023 \r
+    030565  aa   000004 000000 \r
+    030566  55   002027 002025 \r
+    030567  aa   000004 000000 \r
+    030570  55   002033 002033 \r
+    030571  aa   000004 000000 \r
+    030572  55   002063 002041 \r
+    030573  aa   000004 000000 \r
+    030574  55   002117 002047 \r
+    030575  aa   000004 000000 \r
+    030576  55   002063 002055 \r
+    030577  aa   000004 000000 \r
+    030600  55   002117 002067 \r
+    030601  aa   000004 000000 \r
+    030602  55   002117 002075 \r
+    030603  aa   000004 000000 \r
+    030604  55   002117 002103 \r
+    030605  aa   000004 000000 \r
+    030606  55   002117 002111 \r
+    030607  aa   000004 000000 \r
+    030610  55   002220 002121 \r
+    030611  aa   000004 000000 \r
+    030612  55   002220 002130 \r
+    030613  aa   000004 000000 \r
+    030614  55   002404 002137 \r
+    030615  aa   000004 000000 \r
+    030616  55   002404 002145 \r
+    030617  aa   000004 000000 \r
+    030620  55   002153 002153 \r
+    030621  aa   000004 000000 \r
+    030622  55   002177 002160 \r
+    030623  aa   000004 000000 \r
+    030624  55   002177 002165 \r
+    030625  aa   000004 000000 \r
+    030626  55   002177 002172 \r
+    030627  aa   000004 000000 \r
+    030630  55   002220 002204 \r
+    030631  aa   000004 000000 \r
+    030632  55   002220 002212 \r
+    030633  aa   000004 000000 \r
+    030634  55   002261 002225 \r
+    030635  aa   000004 000000 \r
+    030636  55   002261 002234 \r
+    030637  aa   000004 000000 \r
+    030640  55   002261 002243 \r
+    030641  aa   000004 000000 \r
+    030642  55   002261 002252 \r
+    030643  aa   000004 000000 \r
+    030644  55   002302 002266 \r
+    030645  aa   000004 000000 \r
+    030646  55   002302 002274 \r
+    030647  aa   000004 000000 \r
+    030650  55   002336 002306 \r
+    030651  aa   000004 000000 \r
+    030652  55   002336 002314 \r
+    030653  aa   000004 000000 \r
+    030654  55   002336 002322 \r
+    030655  aa   000004 000000 \r
+    030656  55   002336 002330 \r
+    030657  aa   000004 000000 \r
+    030660  55   002342 002342 \r
+    030661  aa   000004 000000 \r
+    030662  55   002347 002347 \r
+    030663  aa   000004 000000 \r
+    030664  55   002365 002353 \r
+    030665  aa   000004 000000 \r
+    030666  55   002365 002357 \r
+    030667  aa   000004 000000 \r
+    030670  55   002365 002362 \r
+    030671  aa   000004 000000 \r
+    030672  55   002404 002370 \r
+    030673  aa   000004 000000 \r
+    030674  55   002404 002376 \r
+    030675  aa   000004 000000 \r
+    030676  55   002434 002410 \r
+    030677  aa   000004 000000 \r
+    030700  55   002434 002415 \r
+    030701  aa   000004 000000 \r
+    030702  55   002434 002422 \r
+    030703  aa   000004 000000 \r
+    030704  55   002434 002427 \r
+    030705  aa   000004 000000 \r
+    030706  55   002451 002437 \r
+    030707  aa   000004 000000 \r
+    030710  55   002451 002444 \r
+    030711  aa   000004 000000 \r
+    030712  55   002474 002454 \r
+    030713  aa   000004 000000 \r
+    030714  55   002474 002460 \r
+    030715  aa   000004 000000 \r
+    030716  55   002474 002464 \r
+    030717  aa   000004 000000 \r
+    030720  55   002474 002470 \r
+    030721  aa   000004 000000 \r
+    030722  55   002476 002476 \r
+    030723  aa   000004 000000 \r
+    030724  55   002530 002502 \r
+    030725  aa   000004 000000 \r
+    030726  55   002530 002510 \r
+    030727  aa   000004 000000 \r
+    030730  55   002530 002515 \r
+    030731  aa   000004 000000 \r
+    030732  55   002530 002523 \r
+    030733  aa   000004 000000 \r
+    030734  55   002560 002533 \r
+    030735  aa   000004 000000 \r
+    030736  55   002560 002537 \r
+    030737  aa   000004 000000 \r
+    030740  55   002546 002543 \r
+    030741  aa   000004 000000 \r
+    030742  55   002560 002551 \r
+    030743  aa   000004 000000 \r
+    030744  55   002560 002554 \r
+    030745  aa   000001 000000 \r
+    030746  aa   000000 000000 \r
+\r
+INTERNAL EXPRESSION WORDS\r
+\r
+    030747  5a   002563 000000 \r
+    030750  5a   002565 000000 \r
+    030751  5a   002567 000000 \r
+    030752  5a   002571 000000 \r
+    030753  5a   002573 000000 \r
+    030754  5a   002575 000000 \r
+    030755  5a   002577 000000 \r
+    030756  5a   002601 000000 \r
+    030757  5a   002603 000000 \r
+    030760  5a   002605 000000 \r
+    030761  5a   002607 000000 \r
+    030762  5a   002611 000000 \r
+    030763  5a   002613 000000 \r
+    030764  5a   002615 000000 \r
+    030765  5a   002617 000000 \r
+    030766  5a   002621 000000 \r
+    030767  5a   002623 000000 \r
+    030770  5a   002625 000000 \r
+    030771  5a   002627 000000 \r
+    030772  5a   002631 000000 \r
+    030773  5a   002633 000000 \r
+    030774  5a   002635 000000 \r
+    030775  5a   002637 000000 \r
+    030776  5a   002641 000000 \r
+    030777  5a   002643 000000 \r
+    031000  5a   002645 000000 \r
+    031001  5a   002647 000000 \r
+    031002  5a   002651 000000 \r
+    031003  5a   002653 000000 \r
+    031004  5a   002655 000000 \r
+    031005  5a   002657 000000 \r
+    031006  5a   002661 000000 \r
+    031007  5a   002663 000000 \r
+    031010  5a   002665 000000 \r
+    031011  5a   002667 000000 \r
+    031012  5a   002671 000000 \r
+    031013  5a   002673 000000 \r
+    031014  5a   002675 000000 \r
+    031015  5a   002677 000000 \r
+    031016  5a   002701 000000 \r
+    031017  5a   002703 000000 \r
+    031020  5a   002705 000000 \r
+    031021  5a   002707 000000 \r
+    031022  5a   002711 000000 \r
+    031023  5a   002713 000000 \r
+    031024  5a   002715 000000 \r
+    031025  5a   002717 000000 \r
+    031026  5a   002721 000000 \r
+    031027  5a   002723 000000 \r
+    031030  5a   002725 000000 \r
+    031031  5a   002727 000000 \r
+    031032  5a   002731 000000 \r
+    031033  5a   002733 000000 \r
+    031034  5a   002735 000000 \r
+    031035  5a   002737 000000 \r
+    031036  5a   002741 000000 \r
+    031037  5a   002743 000000 \r
+    031040  5a   002745 000000 \r
+    031041  5a   002747 000000 \r
+    031042  5a   002751 000000 \r
+    031043  5a   002753 000000 \r
+    031044  5a   002755 000000 \r
+    031045  5a   002757 000000 \r
+    031046  5a   002761 000000 \r
+    031047  5a   002763 000000 \r
+    031050  5a   002765 000000 \r
+    031051  5a   002767 000000 \r
+    031052  5a   002771 000000 \r
+    031053  5a   002773 000000 \r
+    031054  5a   002775 000000 \r
+    031055  5a   002777 000000 \r
+    031056  5a   003001 000000 \r
+    031057  5a   003003 000000 \r
+    031060  5a   003005 000000 \r
+    031061  5a   003007 000000 \r
+    031062  5a   003011 000000 \r
+    031063  5a   003013 000000 \r
+    031064  5a   003015 000000 \r
+    031065  5a   003017 000000 \r
+    031066  5a   003021 000000 \r
+    031067  5a   003023 000000 \r
+    031070  5a   003025 000000 \r
+    031071  5a   003027 000000 \r
+    031072  5a   003031 000000 \r
+    031073  5a   003033 000000 \r
+    031074  5a   003035 000000 \r
+    031075  5a   003037 000000 \r
+    031076  5a   003041 000000 \r
+    031077  5a   003043 000000 \r
+    031100  5a   003045 000000 \r
+    031101  5a   003047 000000 \r
+    031102  5a   003051 000000 \r
+    031103  5a   003053 000000 \r
+    031104  5a   003055 000000 \r
+    031105  5a   003057 000000 \r
+    031106  5a   003061 000000 \r
+    031107  5a   003063 000000 \r
+    031110  5a   003065 000000 \r
+    031111  5a   003067 000000 \r
+    031112  5a   003071 000000 \r
+    031113  5a   003073 000000 \r
+    031114  5a   003075 000000 \r
+    031115  5a   003077 000000 \r
+    031116  5a   003101 000000 \r
+    031117  5a   003103 000000 \r
+    031120  5a   003105 000000 \r
+    031121  5a   003107 000000 \r
+    031122  5a   003111 000000 \r
+    031123  5a   003113 000000 \r
+    031124  5a   003115 000000 \r
+    031125  5a   003117 000000 \r
+    031126  5a   003121 000000 \r
+    031127  5a   003123 000000 \r
+    031130  5a   003125 000000 \r
+    031131  5a   003127 000000 \r
+    031132  5a   003131 000000 \r
+    031133  5a   003133 000000 \r
+    031134  5a   003135 000000 \r
+    031135  5a   003137 000000 \r
+    031136  5a   003141 000000 \r
+    031137  5a   003143 000000 \r
+    031140  5a   003145 000000 \r
+    031141  5a   003147 000000 \r
+    031142  5a   003151 000000 \r
+    031143  5a   003153 000000 \r
+    031144  5a   003155 000000 \r
+    031145  5a   003157 000000 \r
+    031146  5a   003161 000000 \r
+    031147  5a   003163 000000 \r
+    031150  5a   003165 000000 \r
+    031151  5a   003167 000000 \r
+    031152  5a   003171 000000 \r
+    031153  5a   003173 000000 \r
+    031154  5a   003175 000000 \r
+    031155  5a   003177 000000 \r
+    031156  5a   003201 000000 \r
+    031157  5a   003203 000000 \r
+    031160  5a   003205 000000 \r
+    031161  5a   003207 000000 \r
+    031162  5a   003211 000000 \r
+    031163  5a   003213 000000 \r
+    031164  5a   003215 000000 \r
+    031165  5a   003217 000000 \r
+    031166  5a   003221 000000 \r
+    031167  5a   003223 000000 \r
+    031170  5a   003225 000000 \r
+    031171  5a   003227 000000 \r
+    031172  5a   003231 000000 \r
+    031173  5a   003233 000000 \r
+    031174  5a   003235 000000 \r
+    031175  5a   003237 000000 \r
+    031176  5a   003241 000000 \r
+    031177  5a   003243 000000 \r
+    031200  5a   003245 000000 \r
+    031201  5a   003247 000000 \r
+    031202  5a   003251 000000 \r
+    031203  5a   003253 000000 \r
+    031204  5a   003255 000000 \r
+    031205  5a   003257 000000 \r
+    031206  5a   003261 000000 \r
+    031207  5a   003263 000000 \r
+    031210  5a   003265 000000 \r
+    031211  5a   003267 000000 \r
+    031212  5a   003271 000000 \r
+    031213  5a   003273 000000 \r
+    031214  5a   003275 000000 \r
+    031215  5a   003277 000000 \r
+    031216  5a   003301 000000 \r
+    031217  5a   003303 000000 \r
+    031220  5a   003305 000000 \r
+    031221  5a   003307 000000 \r
+    031222  5a   003311 000000 \r
+    031223  5a   003313 000000 \r
+    031224  5a   003315 000000 \r
+    031225  5a   003317 000000 \r
+    031226  5a   003321 000000 \r
+    031227  5a   003323 000000 \r
+    031230  5a   003325 000000 \r
+    031231  5a   003327 000000 \r
+    031232  5a   003331 000000 \r
+    031233  5a   003333 000000 \r
+    031234  5a   003335 000000 \r
+    031235  5a   003337 000000 \r
+    031236  5a   003341 000000 \r
+    031237  5a   003343 000000 \r
+    031240  5a   003345 000000 \r
+    031241  5a   003347 000000 \r
+    031242  5a   003351 000000 \r
+    031243  5a   003353 000000 \r
+    031244  5a   003355 000000 \r
+    031245  5a   003357 000000 \r
+    031246  5a   003361 000000 \r
+    031247  5a   003363 000000 \r
+    031250  5a   003365 000000 \r
+    031251  5a   003367 000000 \r
+    031252  5a   003371 000000 \r
+    031253  5a   003373 000000 \r
+    031254  5a   003375 000000 \r
+    031255  5a   003377 000000 \r
+    031256  5a   003401 000000 \r
+    031257  5a   003403 000000 \r
+    031260  5a   003405 000000 \r
+    031261  5a   003407 000000 \r
+    031262  5a   003411 000000 \r
+    031263  5a   003413 000000 \r
+    031264  5a   003415 000000 \r
+    031265  5a   003417 000000 \r
+    031266  5a   003421 000000 \r
+    031267  5a   003423 000000 \r
+    031270  5a   003425 000000 \r
+    031271  5a   003427 000000 \r
+    031272  5a   003431 000000 \r
+    031273  5a   003433 000000 \r
+    031274  5a   003435 000000 \r
+    031275  5a   003437 000000 \r
+    031276  5a   003441 000000 \r
+    031277  5a   003443 000000 \r
+    031300  5a   003445 000000 \r
+    031301  5a   003447 000000 \r
+    031302  5a   003451 000000 \r
+    031303  5a   003453 000000 \r
+    031304  5a   003455 000000 \r
+    031305  5a   003457 000000 \r
+    031306  5a   003461 000000 \r
+    031307  5a   003463 000000 \r
+    031310  5a   003465 000000 \r
+    031311  5a   003467 000000 \r
+    031312  5a   003471 000000 \r
+    031313  5a   003473 000000 \r
+    031314  5a   003475 000000 \r
+    031315  5a   003477 000000 \r
+    031316  5a   003501 000000 \r
+    031317  5a   003503 000000 \r
+    031320  5a   003505 000000 \r
+    031321  5a   003507 000000 \r
+    031322  5a   003511 000000 \r
+    031323  5a   003513 000000 \r
+    031324  5a   003515 000000 \r
+    031325  5a   003517 000000 \r
+    031326  5a   003521 000000 \r
+    031327  5a   003523 000000 \r
+    031330  5a   003525 000000 \r
+    031331  5a   003527 000000 \r
+    031332  5a   003531 000000 \r
+    031333  5a   003533 000000 \r
+    031334  5a   003535 000000 \r
+    031335  5a   003537 000000 \r
+    031336  5a   003541 000000 \r
+    031337  5a   003543 000000 \r
+    031340  5a   003545 000000 \r
+    031341  5a   003547 000000 \r
+    031342  5a   003551 000000 \r
+    031343  5a   003553 000000 \r
+    031344  5a   003555 000000 \r
+    031345  5a   003557 000000 \r
+    031346  5a   003561 000000 \r
+    031347  5a   003563 000000 \r
+    031350  5a   003565 000000 \r
+    031351  5a   003567 000000 \r
+    031352  5a   003571 000000 \r
+    031353  5a   003573 000000 \r
+    031354  5a   003575 000000 \r
+    031355  5a   003577 000000 \r
+    031356  5a   003601 000000 \r
+    031357  5a   003603 000000 \r
+    031360  5a   003605 000000 \r
+    031361  5a   003607 000000 \r
+    031362  5a   003611 000000 \r
+    031363  5a   003613 000000 \r
+    031364  5a   003615 000000 \r
+    031365  5a   003617 000000 \r
+    031366  5a   003621 000000 \r
+    031367  5a   003623 000000 \r
+    031370  5a   003625 000000 \r
+    031371  5a   003627 000000 \r
+    031372  5a   003631 000000 \r
+    031373  5a   003633 000000 \r
+    031374  5a   003635 000000 \r
+    031375  5a   003637 000000 \r
+    031376  5a   003641 000000 \r
+    031377  5a   003643 000000 \r
+    031400  5a   003645 000000 \r
+    031401  5a   003647 000000 \r
+    031402  5a   003651 000000 \r
+    031403  5a   003653 000000 \r
+    031404  5a   003655 000000 \r
+    031405  5a   003657 000000 \r
+    031406  5a   003661 000000 \r
+    031407  5a   003663 000000 \r
+    031410  5a   003665 000000 \r
+    031411  5a   003667 000000 \r
+    031412  5a   003671 000000 \r
+    031413  5a   003673 000000 \r
+    031414  5a   003675 000000 \r
+    031415  5a   003677 000000 \r
+    031416  5a   003701 000000 \r
+    031417  aa   000000 000000 \r
+\fLINKAGE INFORMATION\r
+      \r
+    000000  aa   000000 000000 \r
+    000001  0a   025042 000000 \r
+    000002  aa   000000 000000 \r
+    000003  aa   000000 000000 \r
+    000004  aa   000000 000000 \r
+    000005  aa   000000 000000 \r
+    000006  22   000010 001130 \r
+    000007  a2   000000 000000 \r
+    000010  9a   777770 0000 46         put_format_|put_terminate\r
+    000011  5a   004354 0000 00\r
+    000012  9a   777766 0000 46         put_format_|stream_prep\r
+    000013  5a   004353 0000 00\r
+    000014  9a   777764 0000 46         record_io_|record_io\r
+    000015  5a   004352 0000 00\r
+    000016  9a   777762 0000 46         put_format_|put_edit_eis\r
+    000017  5a   004351 0000 00\r
+    000020  9a   777760 0000 46         put_format_|get_edit_eis\r
+    000021  5a   004350 0000 00\r
+    000022  9a   777756 0000 46         any_to_any_|real_to_real_round_\r
+    000023  5a   004347 0000 00\r
+    000024  9a   777754 0000 46         any_to_any_|real_to_real_truncate_\r
+    000025  5a   004346 0000 00\r
+    000026  9a   777752 0000 46         any_to_any_|any_to_any_round_\r
+    000027  5a   004345 0000 00\r
+    000030  9a   777750 0000 46         any_to_any_|any_to_any_truncate_\r
+    000031  5a   004344 0000 00\r
+    000032  9a   777746 0000 46         square_root_|square_root_\r
+    000033  5a   004343 0000 00\r
+    000034  9a   777744 0000 46         sine_|sine_radians_\r
+    000035  5a   004342 0000 00\r
+    000036  9a   777742 0000 46         sine_|sine_degrees_\r
+    000037  5a   004341 0000 00\r
+    000040  9a   777740 0000 46         sine_|cosine_radians_\r
+    000041  5a   004340 0000 00\r
+    000042  9a   777736 0000 46         sine_|cosine_degrees_\r
+    000043  5a   004337 0000 00\r
+    000044  9a   777734 0000 46         tangent_|tangent_radians_\r
+    000045  5a   004336 0000 00\r
+    000046  9a   777732 0000 46         tangent_|tangent_degrees_\r
+    000047  5a   004335 0000 00\r
+    000050  9a   777730 0000 46         arc_sine_|arc_sine_radians_\r
+    000051  5a   004334 0000 00\r
+    000052  9a   777726 0000 46         arc_sine_|arc_sine_degrees_\r
+    000053  5a   004333 0000 00\r
+    000054  9a   777724 0000 46         arc_sine_|arc_cosine_radians_\r
+    000055  5a   004332 0000 00\r
+    000056  9a   777722 0000 46         arc_sine_|arc_cosine_degrees_\r
+    000057  5a   004331 0000 00\r
+    000060  9a   777720 0000 46         arc_tangent_|arc_tangent_radians_\r
+    000061  5a   004330 0000 00\r
+    000062  9a   777716 0000 46         arc_tangent_|arc_tangent_degrees_\r
+    000063  5a   004327 0000 00\r
+    000064  9a   777714 0000 46         logarithm_|log_base_2_\r
+    000065  5a   004326 0000 00\r
+    000066  9a   777712 0000 46         logarithm_|log_base_e_\r
+    000067  5a   004325 0000 00\r
+    000070  9a   777710 0000 46         logarithm_|log_base_10_\r
+    000071  5a   004324 0000 00\r
+    000072  9a   777706 0000 46         exponential_|exponential_\r
+    000073  5a   004323 0000 00\r
+    000074  9a   777704 0000 46         double_square_root_|double_square_root_\r
+    000075  5a   004322 0000 00\r
+    000076  9a   777702 0000 46         double_sine_|double_sine_radians_\r
+    000077  5a   004321 0000 00\r
+    000100  9a   777700 0000 46         double_sine_|double_sine_degrees_\r
+    000101  5a   004320 0000 00\r
+    000102  9a   777676 0000 46         double_sine_|double_cosine_radians_\r
+    000103  5a   004317 0000 00\r
+    000104  9a   777674 0000 46         double_sine_|double_cosine_degrees_\r
+    000105  5a   004316 0000 00\r
+    000106  9a   777672 0000 46         double_tangent_|double_tangent_radians_\r
+    000107  5a   004315 0000 00\r
+    000110  9a   777670 0000 46         double_tangent_|double_tangent_degrees_\r
+    000111  5a   004314 0000 00\r
+    000112  9a   777666 0000 46         double_arc_sine_|double_arc_sine_radians_\r
+    000113  5a   004313 0000 00\r
+    000114  9a   777664 0000 46         double_arc_sine_|double_arc_sine_degrees_\r
+    000115  5a   004312 0000 00\r
+    000116  9a   777662 0000 46         double_arc_sine_|double_arc_cosine_radians_\r
+    000117  5a   004311 0000 00\r
+    000120  9a   777660 0000 46         double_arc_sine_|double_arc_cosine_degrees_\r
+    000121  5a   004310 0000 00\r
+    000122  9a   777656 0000 46         double_arc_tangent_|double_arc_tan_radians_\r
+    000123  5a   004307 0000 00\r
+    000124  9a   777654 0000 46         double_arc_tangent_|double_arc_tan_degrees_\r
+    000125  5a   004306 0000 00\r
+    000126  9a   777652 0000 46         double_logarithm_|double_log_base_2_\r
+    000127  5a   004305 0000 00\r
+    000130  9a   777650 0000 46         double_logarithm_|double_log_base_e_\r
+    000131  5a   004304 0000 00\r
+    000132  9a   777646 0000 46         double_logarithm_|double_log_base_10_\r
+    000133  5a   004303 0000 00\r
+    000134  9a   777644 0000 46         double_exponential_|double_exponential_\r
+    000135  5a   004302 0000 00\r
+    000136  9a   777642 0000 46         arc_tangent_|arc_tangent_radians_2_\r
+    000137  5a   004301 0000 00\r
+    000140  9a   777640 0000 46         arc_tangent_|arc_tangent_degrees_2_\r
+    000141  5a   004300 0000 00\r
+    000142  9a   777636 0000 46         double_arc_tangent_|double_arc_tan_radians_2_\r
+    000143  5a   004277 0000 00\r
+    000144  9a   777634 0000 46         double_arc_tangent_|double_arc_tan_degrees_2_\r
+    000145  5a   004276 0000 00\r
+    000146  9a   777632 0000 46         power_|integer_power_single_\r
+    000147  5a   004275 0000 00\r
+    000150  9a   777630 0000 46         power_|integer_power_double_\r
+    000151  5a   004274 0000 00\r
+    000152  9a   777626 0000 46         power_|double_power_single_\r
+    000153  5a   004273 0000 00\r
+    000154  9a   777624 0000 46         power_|double_power_double_\r
+    000155  5a   004272 0000 00\r
+    000156  9a   777622 0000 46         power_integer_|double_power_integer_\r
+    000157  5a   004271 0000 00\r
+    000160  9a   777620 0000 46         power_|single_power_single_\r
+    000161  5a   004270 0000 00\r
+    000162  9a   777616 0000 46         power_integer_|single_power_integer_\r
+    000163  5a   004267 0000 00\r
+    000164  9a   777614 0000 46         integer_power_integer_|integer_power_integer_\r
+    000165  5a   004266 0000 00\r
+    000166  9a   777612 0000 46         cplx_dec_ops_|mpcdec\r
+    000167  5a   004265 0000 00\r
+    000170  9a   777610 0000 46         cplx_dec_ops_|dvcdec\r
+    000171  5a   004264 0000 00\r
+    000172  9a   777606 0000 46         cplx_dec_ops_|dvrcdec\r
+    000173  5a   004263 0000 00\r
+    000174  9a   777604 0000 46         dec_ops_|ceil\r
+    000175  5a   004262 0000 00\r
+    000176  9a   777602 0000 46         dec_ops_|floor\r
+    000177  5a   004261 0000 00\r
+    000200  9a   777600 0000 46         dec_ops_|sign\r
+    000201  5a   004260 0000 00\r
+    000202  9a   777576 0000 46         cplx_dec_ops_|cabs\r
+    000203  5a   004257 0000 00\r
+    000204  9a   777574 0000 46         dec_ops_|truncate\r
+    000205  5a   004256 0000 00\r
+    000206  9a   777572 0000 46         dec_ops_|mod\r
+    000207  5a   004255 0000 00\r
+    000210  9a   777570 0000 46         put_field_|put_field\r
+    000211  5a   004254 0000 00\r
+    000212  9a   777566 0000 46         put_field_|put_field_chk\r
+    000213  5a   004253 0000 00\r
+    000214  9a   777564 0000 46         put_field_|put_control\r
+    000215  5a   004252 0000 00\r
+    000216  9a   777562 0000 46         alloc_|op_alloc_\r
+    000217  5a   004251 0000 00\r
+    000220  9a   777560 0000 46         alloc_|op_freen_\r
+    000221  5a   004250 0000 00\r
+    000222  9a   777556 0000 46         alloc_|op_empty_\r
+    000223  5a   004247 0000 00\r
+    000224  9a   777554 0000 46         fort_math_ops_|cabs\r
+    000225  5a   004246 0000 00\r
+    000226  9a   777552 0000 46         fort_math_ops_|ccos\r
+    000227  5a   004245 0000 00\r
+    000230  9a   777550 0000 46         fort_math_ops_|cexp\r
+    000231  5a   004244 0000 00\r
+    000232  9a   777546 0000 46         fort_math_ops_|clog\r
+    000233  5a   004243 0000 00\r
+    000234  9a   777544 0000 46         fort_math_ops_|csin\r
+    000235  5a   004242 0000 00\r
+    000236  9a   777542 0000 46         fort_math_ops_|csqrt\r
+    000237  5a   004241 0000 00\r
+    000240  9a   777540 0000 46         fort_math_ops_|tanh\r
+    000241  5a   004240 0000 00\r
+    000242  9a   777536 0000 46         fort_math_ops_|dmod\r
+    000243  5a   004237 0000 00\r
+    000244  9a   777534 0000 46         fort_math_ops_|cmpx_p_cmpx\r
+    000245  5a   004236 0000 00\r
+    000246  9a   777532 0000 46         fort_math_ops_|dtanh\r
+    000247  5a   004235 0000 00\r
+    000250  9a   777530 0000 46         fort_math_ops_|sinh\r
+    000251  5a   004234 0000 00\r
+    000252  9a   777526 0000 46         fort_math_ops_|dsinh\r
+    000253  5a   004233 0000 00\r
+    000254  9a   777524 0000 46         fort_math_ops_|cosh\r
+    000255  5a   004232 0000 00\r
+    000256  9a   777522 0000 46         fort_math_ops_|dcosh\r
+    000257  5a   004231 0000 00\r
+    000260  9a   777520 0000 46         fortran_storage_manager_|free\r
+    000261  5a   004230 0000 00\r
+    000262  9a   777516 0000 46         sys_info|clock_\r
+    000263  5a   004227 0000 20\r
+    000264  9a   777514 0000 46         virtual_cpu_time_op_|virtual_cpu_time_op_\r
+    000265  5a   004226 0000 00\r
+    000266  9a   777512 0000 46         stop_run|stop_run\r
+    000267  5a   004225 0000 00\r
+    000270  9a   777510 0000 46         unwinder_|unwinder_\r
+    000271  5a   004224 0000 00\r
+    000272  9a   777506 0000 46         fortran_storage_|create\r
+    000273  5a   004223 0000 00\r
+    000274  9a   777504 0000 46         fort_cleanup_|fort_cleanup_\r
+    000275  5a   004222 0000 00\r
+    000276  9a   777502 0000 46         put_field_|put_field_str\r
+    000277  5a   004221 0000 00\r
+    000300  9a   777500 0000 46         plio2_|get_terminate_\r
+    000301  5a   004220 0000 00\r
+    000302  9a   777476 0000 46         plio2_|put_terminate_\r
+    000303  5a   004217 0000 00\r
+    000304  9a   777474 0000 46         plio2_|put_value_data_\r
+    000305  5a   004216 0000 00\r
+    000306  9a   777472 0000 46         plio2_|get_value_list_\r
+    000307  5a   004215 0000 00\r
+    000310  9a   777470 0000 46         plio2_|put_value_list_\r
+    000311  5a   004214 0000 00\r
+    000312  9a   777466 0000 46         plio2_|put_value_edit_\r
+    000313  5a   004213 0000 00\r
+    000314  9a   777464 0000 46         plio2_recio_|plio2_recio_\r
+    000315  5a   004212 0000 00\r
+    000316  9a   777462 0000 46         plio2_|open_explicit_\r
+    000317  5a   004211 0000 00\r
+    000320  9a   777460 0000 46         plio2_|close_\r
+    000321  5a   004210 0000 00\r
+    000322  9a   777456 0000 46         plio2_|get_prep_\r
+    000323  5a   004207 0000 00\r
+    000324  9a   777454 0000 46         plio2_|put_prep_\r
+    000325  5a   004206 0000 00\r
+    000326  9a   777452 0000 46         fortran_io_|read_or_write\r
+    000327  5a   004205 0000 00\r
+    000330  9a   777450 0000 46         fortran_io_|file_control\r
+    000331  5a   004204 0000 00\r
+    000332  9a   777446 0000 46         fortran_io_|terminate\r
+    000333  5a   004203 0000 00\r
+    000334  9a   777444 0000 46         fortran_io_|element\r
+    000335  5a   004202 0000 00\r
+    000336  9a   777442 0000 46         plio2_|put_field_\r
+    000337  5a   004201 0000 00\r
+    000340  9a   777440 0000 46         plio2_|put_blanks_\r
+    000341  5a   004200 0000 00\r
+    000342  9a   777436 0000 46         fortran_io_|get_io_area_ptr\r
+    000343  5a   004177 0000 00\r
+    000344  9a   777434 0000 46         alloc_|op_storage_\r
+    000345  5a   004176 0000 00\r
+    000346  9a   777432 0000 46         alloc_|storage_\r
+    000347  5a   004175 0000 00\r
+    000350  9a   777430 0000 46         freen_|freen_\r
+    000351  5a   004174 0000 00\r
+    000352  9a   777426 0000 46         unpack_picture_|unpack_picture_\r
+    000353  5a   004173 0000 00\r
+    000354  9a   777424 0000 46         pack_picture_|pack_picture_\r
+    000355  5a   004172 0000 00\r
+    000356  9a   777422 0000 46         pl1_signal_from_ops_|pl1_signal_from_ops_\r
+    000357  5a   004171 0000 00\r
+    000360  9a   777420 0000 46         fort_bfp_builtins_|exp_\r
+    000361  5a   004170 0000 00\r
+    000362  9a   777416 0000 46         fort_bfp_builtins_|alog_\r
+    000363  5a   004167 0000 00\r
+    000364  9a   777414 0000 46         fort_bfp_builtins_|alog10_\r
+    000365  5a   004166 0000 00\r
+    000366  9a   777412 0000 46         fort_bfp_builtins_|atan_\r
+    000367  5a   004165 0000 00\r
+    000370  9a   777410 0000 46         fort_bfp_builtins_|atan2_\r
+    000371  5a   004164 0000 00\r
+    000372  9a   777406 0000 46         fort_bfp_builtins_|sin_\r
+    000373  5a   004163 0000 00\r
+    000374  9a   777404 0000 46         fort_bfp_builtins_|cos_\r
+    000375  5a   004162 0000 00\r
+    000376  9a   777402 0000 46         fort_bfp_builtins_|tanh_\r
+    000377  5a   004161 0000 00\r
+    000400  9a   777400 0000 46         fort_bfp_builtins_|sqrt_\r
+    000401  5a   004160 0000 00\r
+    000402  9a   777376 0000 46         fort_bfp_builtins_|dmod_\r
+    000403  5a   004157 0000 00\r
+    000404  9a   777374 0000 46         fort_bfp_builtins_|dexp_\r
+    000405  5a   004156 0000 00\r
+    000406  9a   777372 0000 46         fort_bfp_builtins_|dlog_\r
+    000407  5a   004155 0000 00\r
+    000410  9a   777370 0000 46         fort_bfp_builtins_|dlog10_\r
+    000411  5a   004154 0000 00\r
+    000412  9a   777366 0000 46         fort_bfp_builtins_|datan_\r
+    000413  5a   004153 0000 00\r
+    000414  9a   777364 0000 46         fort_bfp_builtins_|datan2_\r
+    000415  5a   004152 0000 00\r
+    000416  9a   777362 0000 46         fort_bfp_builtins_|dsin_\r
+    000417  5a   004151 0000 00\r
+    000420  9a   777360 0000 46         fort_bfp_builtins_|dcos_\r
+    000421  5a   004150 0000 00\r
+    000422  9a   777356 0000 46         fort_bfp_builtins_|dsqrt_\r
+    000423  5a   004147 0000 00\r
+    000424  9a   777354 0000 46         fort_bfp_builtins_|cabs_\r
+    000425  5a   004146 0000 00\r
+    000426  9a   777352 0000 46         fort_bfp_builtins_|cexp_\r
+    000427  5a   004145 0000 00\r
+    000430  9a   777350 0000 46         fort_bfp_builtins_|clog_\r
+    000431  5a   004144 0000 00\r
+    000432  9a   777346 0000 46         fort_bfp_builtins_|csin_\r
+    000433  5a   004143 0000 00\r
+    000434  9a   777344 0000 46         fort_bfp_builtins_|ccos_\r
+    000435  5a   004142 0000 00\r
+    000436  9a   777342 0000 46         fort_bfp_builtins_|csqrt_\r
+    000437  5a   004141 0000 00\r
+    000440  9a   777340 0000 46         fort_bfp_builtins_|cxp2_\r
+    000441  5a   004140 0000 00\r
+    000442  9a   777336 0000 46         fort_bfp_builtins_|tan_\r
+    000443  5a   004137 0000 00\r
+    000444  9a   777334 0000 46         fort_bfp_builtins_|dtan_\r
+    000445  5a   004136 0000 00\r
+    000446  9a   777332 0000 46         fort_bfp_builtins_|asin_\r
+    000447  5a   004135 0000 00\r
+    000450  9a   777330 0000 46         fort_bfp_builtins_|dasin_\r
+    000451  5a   004134 0000 00\r
+    000452  9a   777326 0000 46         fort_bfp_builtins_|acos_\r
+    000453  5a   004133 0000 00\r
+    000454  9a   777324 0000 46         fort_bfp_builtins_|dacos_\r
+    000455  5a   004132 0000 00\r
+    000456  9a   777322 0000 46         fort_int_builtins_|index_\r
+    000457  5a   004131 0000 00\r
+    000460  9a   777320 0000 46         fort_bfp_builtins_|dtanh_\r
+    000461  5a   004130 0000 00\r
+    000462  9a   777316 0000 46         fort_bfp_builtins_|sinh_\r
+    000463  5a   004127 0000 00\r
+    000464  9a   777314 0000 46         fort_bfp_builtins_|dsinh_\r
+    000465  5a   004126 0000 00\r
+    000466  9a   777312 0000 46         fort_bfp_builtins_|cosh_\r
+    000467  5a   004125 0000 00\r
+    000470  9a   777310 0000 46         fort_bfp_builtins_|dcosh_\r
+    000471  5a   004124 0000 00\r
+    000472  9a   777306 0000 46         fort_bfp_builtins_|abs_\r
+    000473  5a   004123 0000 00\r
+    000474  9a   777304 0000 46         fort_int_builtins_|iabs_\r
+    000475  5a   004122 0000 00\r
+    000476  9a   777302 0000 46         fort_bfp_builtins_|dabs_\r
+    000477  5a   004121 0000 00\r
+    000500  9a   777300 0000 46         fort_bfp_builtins_|dim_\r
+    000501  5a   004120 0000 00\r
+    000502  9a   777276 0000 46         fort_int_builtins_|idim_\r
+    000503  5a   004117 0000 00\r
+    000504  9a   777274 0000 46         fort_bfp_builtins_|ddim_\r
+    000505  5a   004116 0000 00\r
+    000506  9a   777272 0000 46         fort_bfp_builtins_|sign_\r
+    000507  5a   004115 0000 00\r
+    000510  9a   777270 0000 46         fort_int_builtins_|isign_\r
+    000511  5a   004114 0000 00\r
+    000512  9a   777266 0000 46         fort_bfp_builtins_|dsign_\r
+    000513  5a   004113 0000 00\r
+    000514  9a   777264 0000 46         fort_bfp_builtins_|aint_\r
+    000515  5a   004112 0000 00\r
+    000516  9a   777262 0000 46         fort_bfp_builtins_|aimag_\r
+    000517  5a   004111 0000 00\r
+    000520  9a   777260 0000 46         fort_bfp_builtins_|conjg_\r
+    000521  5a   004110 0000 00\r
+    000522  9a   777256 0000 46         fort_int_builtins_|len_\r
+    000523  5a   004107 0000 00\r
+    000524  9a   777254 0000 46         fort_bfp_builtins_|dint_\r
+    000525  5a   004106 0000 00\r
+    000526  9a   777252 0000 46         fort_bfp_builtins_|anint_\r
+    000527  5a   004105 0000 00\r
+    000530  9a   777250 0000 46         fort_bfp_builtins_|dnint_\r
+    000531  5a   004104 0000 00\r
+    000532  9a   777246 0000 46         fort_bfp_builtins_|nint_\r
+    000533  5a   004103 0000 00\r
+    000534  9a   777244 0000 46         fort_bfp_builtins_|idnint_\r
+    000535  5a   004102 0000 00\r
+    000536  9a   777242 0000 46         fort_bfp_builtins_|dprod_\r
+    000537  5a   004101 0000 00\r
+    000540  9a   777240 0000 46         fort_int_builtins_|mod_\r
+    000541  5a   004100 0000 00\r
+    000542  9a   777236 0000 46         fort_bfp_builtins_|amod_\r
+    000543  5a   004077 0000 00\r
+    000544  9a   777234 0000 46         fort_int_builtins_|ilr_\r
+    000545  5a   004076 0000 00\r
+    000546  9a   777232 0000 46         fort_int_builtins_|ils_\r
+    000547  5a   004075 0000 00\r
+    000550  9a   777230 0000 46         fort_int_builtins_|irl_\r
+    000551  5a   004074 0000 00\r
+    000552  9a   777226 0000 46         fort_int_builtins_|irs_\r
+    000553  5a   004073 0000 00\r
+    000554  9a   777224 0000 46         fortran_stop_|fortran_end\r
+    000555  5a   004072 0000 00\r
+    000556  9a   777222 0000 46         fortran_pause_|fortran_pause_\r
+    000557  5a   004071 0000 00\r
+    000560  9a   777220 0000 46         fortran_stop_|fortran_stop_\r
+    000561  5a   004070 0000 00\r
+    000562  9a   777216 0000 46         fast_related_data_|chain_entry\r
+    000563  5a   004067 0000 00\r
+    000564  9a   777214 0000 46         hcs_|set_hexfp_control\r
+    000565  5a   004066 0000 00\r
+    000566  9a   777212 0000 46         square_root_|hfp_square_root_\r
+    000567  5a   004065 0000 00\r
+    000570  9a   777210 0000 46         sine_|hfp_sine_radians_\r
+    000571  5a   004064 0000 00\r
+    000572  9a   777206 0000 46         sine_|hfp_sine_degrees_\r
+    000573  5a   004063 0000 00\r
+    000574  9a   777204 0000 46         sine_|hfp_cosine_radians_\r
+    000575  5a   004062 0000 00\r
+    000576  9a   777202 0000 46         sine_|hfp_cosine_degrees_\r
+    000577  5a   004061 0000 00\r
+    000600  9a   777200 0000 46         tangent_|hfp_tangent_radians_\r
+    000601  5a   004060 0000 00\r
+    000602  9a   777176 0000 46         tangent_|hfp_tangent_degrees_\r
+    000603  5a   004057 0000 00\r
+    000604  9a   777174 0000 46         arc_sine_|hfp_arc_sine_radians_\r
+    000605  5a   004056 0000 00\r
+    000606  9a   777172 0000 46         arc_sine_|hfp_arc_sine_degrees_\r
+    000607  5a   004055 0000 00\r
+    000610  9a   777170 0000 46         arc_sine_|hfp_arc_cosine_radians_\r
+    000611  5a   004054 0000 00\r
+    000612  9a   777166 0000 46         arc_sine_|hfp_arc_cosine_degrees_\r
+    000613  5a   004053 0000 00\r
+    000614  9a   777164 0000 46         arc_tangent_|hfp_arc_tangent_radians_\r
+    000615  5a   004052 0000 00\r
+    000616  9a   777162 0000 46         arc_tangent_|hfp_arc_tangent_degrees_\r
+    000617  5a   004051 0000 00\r
+    000620  9a   777160 0000 46         logarithm_|hfp_log_base_2_\r
+    000621  5a   004050 0000 00\r
+    000622  9a   777156 0000 46         logarithm_|hfp_log_base_e_\r
+    000623  5a   004047 0000 00\r
+    000624  9a   777154 0000 46         logarithm_|hfp_log_base_10_\r
+    000625  5a   004046 0000 00\r
+    000626  9a   777152 0000 46         exponential_|hfp_exponential_\r
+    000627  5a   004045 0000 00\r
+    000630  9a   777150 0000 46         double_square_root_|hfp_double_square_root_\r
+    000631  5a   004044 0000 00\r
+    000632  9a   777146 0000 46         double_sine_|hfp_double_sine_radians_\r
+    000633  5a   004043 0000 00\r
+    000634  9a   777144 0000 46         double_sine_|hfp_double_sine_degrees_\r
+    000635  5a   004042 0000 00\r
+    000636  9a   777142 0000 46         double_sine_|hfp_double_cosine_radians_\r
+    000637  5a   004041 0000 00\r
+    000640  9a   777140 0000 46         double_sine_|hfp_double_cosine_degrees_\r
+    000641  5a   004040 0000 00\r
+    000642  9a   777136 0000 46         double_tangent_|hfp_double_tangent_radians_\r
+    000643  5a   004037 0000 00\r
+    000644  9a   777134 0000 46         double_tangent_|hfp_double_tangent_degrees_\r
+    000645  5a   004036 0000 00\r
+    000646  9a   777132 0000 46         double_arc_sine_|hfp_double_arc_sine_radians_\r
+    000647  5a   004035 0000 00\r
+    000650  9a   777130 0000 46         double_arc_sine_|hfp_double_arc_sine_degrees_\r
+    000651  5a   004034 0000 00\r
+    000652  9a   777126 0000 46         double_arc_sine_|hfp_double_arc_cosine_radians_\r
+    000653  5a   004033 0000 00\r
+    000654  9a   777124 0000 46         double_arc_sine_|hfp_double_arc_cosine_degrees_\r
+    000655  5a   004032 0000 00\r
+    000656  9a   777122 0000 46         double_arc_tangent_|hfp_double_arc_tan_radians_\r
+    000657  5a   004031 0000 00\r
+    000660  9a   777120 0000 46         double_arc_tangent_|hfp_double_arc_tan_degrees_\r
+    000661  5a   004030 0000 00\r
+    000662  9a   777116 0000 46         double_logarithm_|hfp_double_log_base_2_\r
+    000663  5a   004027 0000 00\r
+    000664  9a   777114 0000 46         double_logarithm_|hfp_double_log_base_e_\r
+    000665  5a   004026 0000 00\r
+    000666  9a   777112 0000 46         double_logarithm_|hfp_double_log_base_10_\r
+    000667  5a   004025 0000 00\r
+    000670  9a   777110 0000 46         double_exponential_|hfp_double_exponential_\r
+    000671  5a   004024 0000 00\r
+    000672  9a   777106 0000 46         arc_tangent_|hfp_arc_tangent_radians_2_\r
+    000673  5a   004023 0000 00\r
+    000674  9a   777104 0000 46         arc_tangent_|hfp_arc_tangent_degrees_2_\r
+    000675  5a   004022 0000 00\r
+    000676  9a   777102 0000 46         double_arc_tangent_|hfp_double_arc_tan_radians_2_\r
+    000677  5a   004021 0000 00\r
+    000700  9a   777100 0000 46         double_arc_tangent_|hfp_double_arc_tan_degrees_2_\r
+    000701  5a   004020 0000 00\r
+    000702  9a   777076 0000 46         power_|hfp_integer_power_single_\r
+    000703  5a   004017 0000 00\r
+    000704  9a   777074 0000 46         power_|hfp_integer_power_double_\r
+    000705  5a   004016 0000 00\r
+    000706  9a   777072 0000 46         power_|hfp_double_power_single_\r
+    000707  5a   004015 0000 00\r
+    000710  9a   777070 0000 46         power_|hfp_double_power_double_\r
+    000711  5a   004014 0000 00\r
+    000712  9a   777066 0000 46         power_integer_|hfp_double_power_integer_\r
+    000713  5a   004013 0000 00\r
+    000714  9a   777064 0000 46         power_|hfp_single_power_single_\r
+    000715  5a   004012 0000 00\r
+    000716  9a   777062 0000 46         power_integer_|hfp_single_power_integer_\r
+    000717  5a   004011 0000 00\r
+    000720  9a   777060 0000 46         fort_math_ops_|hfp_cabs\r
+    000721  5a   004010 0000 00\r
+    000722  9a   777056 0000 46         fort_math_ops_|hfp_ccos\r
+    000723  5a   004007 0000 00\r
+    000724  9a   777054 0000 46         fort_math_ops_|hfp_cexp\r
+    000725  5a   004006 0000 00\r
+    000726  9a   777052 0000 46         fort_math_ops_|hfp_clog\r
+    000727  5a   004005 0000 00\r
+    000730  9a   777050 0000 46         fort_math_ops_|hfp_csin\r
+    000731  5a   004004 0000 00\r
+    000732  9a   777046 0000 46         fort_math_ops_|hfp_csqrt\r
+    000733  5a   004003 0000 00\r
+    000734  9a   777044 0000 46         fort_math_ops_|hfp_tanh\r
+    000735  5a   004002 0000 00\r
+    000736  9a   777042 0000 46         fort_math_ops_|hfp_dmod\r
+    000737  5a   004001 0000 00\r
+    000740  9a   777040 0000 46         fort_math_ops_|hfp_cmpx_p_cmpx\r
+    000741  5a   004000 0000 00\r
+    000742  9a   777036 0000 46         fort_math_ops_|hfp_dtanh\r
+    000743  5a   003777 0000 00\r
+    000744  9a   777034 0000 46         fort_math_ops_|hfp_sinh\r
+    000745  5a   003776 0000 00\r
+    000746  9a   777032 0000 46         fort_math_ops_|hfp_dsinh\r
+    000747  5a   003775 0000 00\r
+    000750  9a   777030 0000 46         fort_math_ops_|hfp_cosh\r
+    000751  5a   003774 0000 00\r
+    000752  9a   777026 0000 46         fort_math_ops_|hfp_dcosh\r
+    000753  5a   003773 0000 00\r
+    000754  9a   777024 0000 46         fort_hfp_builtins_|exp_\r
+    000755  5a   003772 0000 00\r
+    000756  9a   777022 0000 46         fort_hfp_builtins_|alog_\r
+    000757  5a   003771 0000 00\r
+    000760  9a   777020 0000 46         fort_hfp_builtins_|alog10_\r
+    000761  5a   003770 0000 00\r
+    000762  9a   777016 0000 46         fort_hfp_builtins_|atan_\r
+    000763  5a   003767 0000 00\r
+    000764  9a   777014 0000 46         fort_hfp_builtins_|atan2_\r
+    000765  5a   003766 0000 00\r
+    000766  9a   777012 0000 46         fort_hfp_builtins_|sin_\r
+    000767  5a   003765 0000 00\r
+    000770  9a   777010 0000 46         fort_hfp_builtins_|cos_\r
+    000771  5a   003764 0000 00\r
+    000772  9a   777006 0000 46         fort_hfp_builtins_|tanh_\r
+    000773  5a   003763 0000 00\r
+    000774  9a   777004 0000 46         fort_hfp_builtins_|sqrt_\r
+    000775  5a   003762 0000 00\r
+    000776  9a   777002 0000 46         fort_hfp_builtins_|dmod_\r
+    000777  5a   003761 0000 00\r
+    001000  9a   777000 0000 46         fort_hfp_builtins_|dexp_\r
+    001001  5a   003760 0000 00\r
+    001002  9a   776776 0000 46         fort_hfp_builtins_|dlog_\r
+    001003  5a   003757 0000 00\r
+    001004  9a   776774 0000 46         fort_hfp_builtins_|dlog10_\r
+    001005  5a   003756 0000 00\r
+    001006  9a   776772 0000 46         fort_hfp_builtins_|datan_\r
+    001007  5a   003755 0000 00\r
+    001010  9a   776770 0000 46         fort_hfp_builtins_|datan2_\r
+    001011  5a   003754 0000 00\r
+    001012  9a   776766 0000 46         fort_hfp_builtins_|dsin_\r
+    001013  5a   003753 0000 00\r
+    001014  9a   776764 0000 46         fort_hfp_builtins_|dcos_\r
+    001015  5a   003752 0000 00\r
+    001016  9a   776762 0000 46         fort_hfp_builtins_|dsqrt_\r
+    001017  5a   003751 0000 00\r
+    001020  9a   776760 0000 46         fort_hfp_builtins_|cabs_\r
+    001021  5a   003750 0000 00\r
+    001022  9a   776756 0000 46         fort_hfp_builtins_|cexp_\r
+    001023  5a   003747 0000 00\r
+    001024  9a   776754 0000 46         fort_hfp_builtins_|clog_\r
+    001025  5a   003746 0000 00\r
+    001026  9a   776752 0000 46         fort_hfp_builtins_|csin_\r
+    001027  5a   003745 0000 00\r
+    001030  9a   776750 0000 46         fort_hfp_builtins_|ccos_\r
+    001031  5a   003744 0000 00\r
+    001032  9a   776746 0000 46         fort_hfp_builtins_|csqrt_\r
+    001033  5a   003743 0000 00\r
+    001034  9a   776744 0000 46         fort_hfp_builtins_|cxp2_\r
+    001035  5a   003742 0000 00\r
+    001036  9a   776742 0000 46         fort_hfp_builtins_|tan_\r
+    001037  5a   003741 0000 00\r
+    001040  9a   776740 0000 46         fort_hfp_builtins_|dtan_\r
+    001041  5a   003740 0000 00\r
+    001042  9a   776736 0000 46         fort_hfp_builtins_|asin_\r
+    001043  5a   003737 0000 00\r
+    001044  9a   776734 0000 46         fort_hfp_builtins_|dasin_\r
+    001045  5a   003736 0000 00\r
+    001046  9a   776732 0000 46         fort_hfp_builtins_|acos_\r
+    001047  5a   003735 0000 00\r
+    001050  9a   776730 0000 46         fort_hfp_builtins_|dacos_\r
+    001051  5a   003734 0000 00\r
+    001052  9a   776726 0000 46         fort_hfp_builtins_|dtanh_\r
+    001053  5a   003733 0000 00\r
+    001054  9a   776724 0000 46         fort_hfp_builtins_|sinh_\r
+    001055  5a   003732 0000 00\r
+    001056  9a   776722 0000 46         fort_hfp_builtins_|dsinh_\r
+    001057  5a   003731 0000 00\r
+    001060  9a   776720 0000 46         fort_hfp_builtins_|cosh_\r
+    001061  5a   003730 0000 00\r
+    001062  9a   776716 0000 46         fort_hfp_builtins_|dcosh_\r
+    001063  5a   003727 0000 00\r
+    001064  9a   776714 0000 46         fort_hfp_builtins_|abs_\r
+    001065  5a   003726 0000 00\r
+    001066  9a   776712 0000 46         fort_hfp_builtins_|dabs_\r
+    001067  5a   003725 0000 00\r
+    001070  9a   776710 0000 46         fort_hfp_builtins_|dim_\r
+    001071  5a   003724 0000 00\r
+    001072  9a   776706 0000 46         fort_hfp_builtins_|ddim_\r
+    001073  5a   003723 0000 00\r
+    001074  9a   776704 0000 46         fort_hfp_builtins_|sign_\r
+    001075  5a   003722 0000 00\r
+    001076  9a   776702 0000 46         fort_hfp_builtins_|dsign_\r
+    001077  5a   003721 0000 00\r
+    001100  9a   776700 0000 46         fort_hfp_builtins_|aint_\r
+    001101  5a   003720 0000 00\r
+    001102  9a   776676 0000 46         fort_hfp_builtins_|aimag_\r
+    001103  5a   003717 0000 00\r
+    001104  9a   776674 0000 46         fort_hfp_builtins_|conjg_\r
+    001105  5a   003716 0000 00\r
+    001106  9a   776672 0000 46         fort_hfp_builtins_|dint_\r
+    001107  5a   003715 0000 00\r
+    001110  9a   776670 0000 46         fort_hfp_builtins_|anint_\r
+    001111  5a   003714 0000 00\r
+    001112  9a   776666 0000 46         fort_hfp_builtins_|dnint_\r
+    001113  5a   003713 0000 00\r
+    001114  9a   776664 0000 46         fort_hfp_builtins_|nint_\r
+    001115  5a   003712 0000 00\r
+    001116  9a   776662 0000 46         fort_hfp_builtins_|idnint_\r
+    001117  5a   003711 0000 00\r
+    001120  9a   776660 0000 46         fort_hfp_builtins_|dprod_\r
+    001121  5a   003710 0000 00\r
+    001122  9a   776656 0000 46         fort_hfp_builtins_|amod_\r
+    001123  5a   003707 0000 00\r
+    001124  9a   776654 0000 46         trace_catch_|catch_pl1_\r
+    001125  5a   003706 0000 00\r
+    001126  9a   776652 0000 46         cpu_time_and_paging_op_|cpu_time_and_paging_op_\r
+    001127  5a   003705 0000 00\r
+\fSYMBOL INFORMATION\r
+     \r
+SYMBOL TABLE HEADER\r
+     \r
+    000000  aa   000000 000001 \r
+    000001  aa   163171 155142 \r
+    000002  aa   164162 145145 \r
+    000003  aa   000000 000010 \r
+    000004  aa   000000 147120 \r
+    000005  aa   256747 540556 \r
+    000006  aa   000000 152443 \r
+    000007  aa   603420 163041 \r
+    000010  aa   141154 155040 \r
+    000011  aa   040040 040040 \r
+    000012  aa   000024 000040 \r
+    000013  aa   000034 000040 \r
+    000014  aa   000044 000100 \r
+    000015  aa   000002 000002 \r
+    000016  aa   000064 000000 \r
+    000017  aa   000000 002736 \r
+    000020  aa   000000 000321 \r
+    000021  aa   002322 002154 \r
+    000022  aa   002720 000321 \r
+    000023  aa   000064 000000 \r
+    000024  aa   101114 115040 \r
+    000025  aa   126145 162163 \r
+    000026  aa   151157 156040 \r
+    000027  aa   070056 061064 \r
+    000030  aa   040115 141162 \r
+    000031  aa   143150 040061 \r
+    000032  aa   071070 071040 \r
+    000033  aa   040040 040040 \r
+    000034  aa   122145 160141 \r
+    000035  aa   151162 056123 \r
+    000036  aa   171163 101144 \r
+    000037  aa   155151 156056 \r
+    000040  aa   141040 040040 \r
+    000041  aa   040040 040040 \r
+    000042  aa   040040 040040 \r
+    000043  aa   040040 040040 \r
+    000044  aa   154151 163164 \r
+    000045  aa   040163 171155 \r
+    000046  aa   142157 154163 \r
+    000047  aa   040040 040040 \r
+    000050  aa   040040 040040 \r
+    000051  aa   040040 040040 \r
+    000052  aa   040040 040040 \r
+    000053  aa   040040 040040 \r
+    000054  aa   040040 040040 \r
+    000055  aa   040040 040040 \r
+    000056  aa   040040 040040 \r
+    000057  aa   040040 040040 \r
+    000060  aa   040040 040040 \r
+    000061  aa   040040 040040 \r
+    000062  aa   040040 040040 \r
+    000063  aa   040040 040040 \r
+    000064  aa   000000 000001 \r
+    000065  aa   000000 000014 \r
+    000066  aa   000146 000060 \r
+    000067  aa   524435 731526 \r
+    000070  aa   000000 152443 \r
+    000071  aa   603420 200000 \r
+    000072  aa   000162 000042 \r
+    000073  aa   502104 422573 \r
+    000074  aa   000000 115000 \r
+    000075  aa   507463 000000 \r
+    000076  aa   000173 000041 \r
+    000077  aa   502104 422554 \r
+    000100  aa   000000 105272 \r
+    000101  aa   317215 400000 \r
+    000102  aa   000204 000036 \r
+    000103  aa   502104 420060 \r
+    000104  aa   000000 101621 \r
+    000105  aa   351621 000000 \r
+    000106  aa   000214 000033 \r
+    000107  aa   502104 420637 \r
+    000110  aa   000000 111707 \r
+    000111  aa   640170 400000 \r
+    000112  aa   000223 000037 \r
+    000113  aa   502104 422062 \r
+    000114  aa   000000 104574 \r
+    000115  aa   400471 200000 \r
+    000116  aa   000233 000036 \r
+    000117  aa   502104 422022 \r
+    000120  aa   000000 104574 \r
+    000121  aa   400471 200000 \r
+    000122  aa   000243 000040 \r
+    000123  aa   502104 420230 \r
+    000124  aa   000000 110670 \r
+    000125  aa   211305 400000 \r
+    000126  aa   000253 000047 \r
+    000127  aa   502104 420233 \r
+    000130  aa   000000 110670 \r
+    000131  aa   204075 200000 \r
+    000132  aa   000265 000052 \r
+    000133  aa   502104 420161 \r
+    000134  aa   000000 110670 \r
+    000135  aa   204075 200000 \r
+    000136  aa   000300 000035 \r
+    000137  aa   502104 421734 \r
+    000140  aa   000000 102727 \r
+    000141  aa   712743 600000 \r
+    000142  aa   000310 000042 \r
+    000143  aa   502104 421136 \r
+    000144  aa   000000 104240 \r
+    000145  aa   023625 000000 \r
+    000146  aa   076165 163145          >user_dir_dir>SysAdmin>Repair>pl1_operators_.alm\r
+    000147  aa   162137 144151 \r
+    000150  aa   162137 144151 \r
+    000151  aa   162076 123171 \r
+    000152  aa   163101 144155 \r
+    000153  aa   151156 076122 \r
+    000154  aa   145160 141151 \r
+    000155  aa   162076 160154 \r
+    000156  aa   061137 157160 \r
+    000157  aa   145162 141164 \r
+    000160  aa   157162 163137 \r
+    000161  aa   056141 154155 \r
+    000162  aa   076154 144144          >ldd>include>stack_header.incl.alm\r
+    000163  aa   076151 156143 \r
+    000164  aa   154165 144145 \r
+    000165  aa   076163 164141 \r
+    000166  aa   143153 137150 \r
+    000167  aa   145141 144145 \r
+    000170  aa   162056 151156 \r
+    000171  aa   143154 056141 \r
+    000172  aa   154155 040040 \r
+    000173  aa   076154 144144          >ldd>include>stack_frame.incl.alm\r
+    000174  aa   076151 156143 \r
+    000175  aa   154165 144145 \r
+    000176  aa   076163 164141 \r
+    000177  aa   143153 137146 \r
+    000200  aa   162141 155145 \r
+    000201  aa   056151 156143 \r
+    000202  aa   154056 141154 \r
+    000203  aa   155040 040040 \r
+    000204  aa   076154 144144          >ldd>include>eis_bits.incl.alm\r
+    000205  aa   076151 156143 \r
+    000206  aa   154165 144145 \r
+    000207  aa   076145 151163 \r
+    000210  aa   137142 151164 \r
+    000211  aa   163056 151156 \r
+    000212  aa   143154 056141 \r
+    000213  aa   154155 040040 \r
+    000214  aa   076154 144144          >ldd>include>iocbx.incl.alm\r
+    000215  aa   076151 156143 \r
+    000216  aa   154165 144145 \r
+    000217  aa   076151 157143 \r
+    000220  aa   142170 056151 \r
+    000221  aa   156143 154056 \r
+    000222  aa   141154 155040 \r
+    000223  aa   076154 144144          >ldd>include>plio2_fsb.incl.alm\r
+    000224  aa   076151 156143 \r
+    000225  aa   154165 144145 \r
+    000226  aa   076160 154151 \r
+    000227  aa   157062 137146 \r
+    000230  aa   163142 056151 \r
+    000231  aa   156143 154056 \r
+    000232  aa   141154 155040 \r
+    000233  aa   076154 144144          >ldd>include>plio2_ps.incl.alm\r
+    000234  aa   076151 156143 \r
+    000235  aa   154165 144145 \r
+    000236  aa   076160 154151 \r
+    000237  aa   157062 137160 \r
+    000240  aa   163056 151156 \r
+    000241  aa   143154 056141 \r
+    000242  aa   154155 040040 \r
+    000243  aa   076154 144144          >ldd>include>fortran_ps.incl.alm\r
+    000244  aa   076151 156143 \r
+    000245  aa   154165 144145 \r
+    000246  aa   076146 157162 \r
+    000247  aa   164162 141156 \r
+    000250  aa   137160 163056 \r
+    000251  aa   151156 143154 \r
+    000252  aa   056141 154155 \r
+    000253  aa   076154 144144          >ldd>include>fortran_open_data.incl.alm\r
+    000254  aa   076151 156143 \r
+    000255  aa   154165 144145 \r
+    000256  aa   076146 157162 \r
+    000257  aa   164162 141156 \r
+    000260  aa   137157 160145 \r
+    000261  aa   156137 144141 \r
+    000262  aa   164141 056151 \r
+    000263  aa   156143 154056 \r
+    000264  aa   141154 155040 \r
+    000265  aa   076154 144144          >ldd>include>fortran_inquire_data.incl.alm\r
+    000266  aa   076151 156143 \r
+    000267  aa   154165 144145 \r
+    000270  aa   076146 157162 \r
+    000271  aa   164162 141156 \r
+    000272  aa   137151 156161 \r
+    000273  aa   165151 162145 \r
+    000274  aa   137144 141164 \r
+    000275  aa   141056 151156 \r
+    000276  aa   143154 056141 \r
+    000277  aa   154155 040040 \r
+    000300  aa   076154 144144          >ldd>include>on_unit.incl.alm\r
+    000301  aa   076151 156143 \r
+    000302  aa   154165 144145 \r
+    000303  aa   076157 156137 \r
+    000304  aa   165156 151164 \r
+    000305  aa   056151 156143 \r
+    000306  aa   154056 141154 \r
+    000307  aa   155040 040040 \r
+    000310  aa   076154 144144          >ldd>include>long_profile.incl.alm\r
+    000311  aa   076151 156143 \r
+    000312  aa   154165 144145 \r
+    000313  aa   076154 157156 \r
+    000314  aa   147137 160162 \r
+    000315  aa   157146 151154 \r
+    000316  aa   145056 151156 \r
+    000317  aa   143154 056141 \r
+    000320  aa   154155 040040 \r
+\f               MULTICS ASSEMBLY CROSS REFERENCE LISTING\r
+\r
+   Value        Symbol                   Source file   Line number\r
+\r
+           5    a                        pl1_operators_:    1720, 2167, 2194, 2280, 2306, 2328, 2347, 2609, 2621, 2686,\r
+                                         eis_bits:       9.\r
+                abs_                     pl1_operators_:    6358, 7226.\r
+        3150    abt                      pl1_operators_:    1367, 1380.\r
+                acos_                    pl1_operators_:    6350, 7218.\r
+        3146    act                      pl1_operators_:    1365, 1377.\r
+       10163    add_fort_cleanup         pl1_operators_:    5346, 5352.\r
+       10132    add_on                   pl1_operators_:    5311, 5316.\r
+                aimag_                   pl1_operators_:    6368, 7236.\r
+                aint_                    pl1_operators_:    6367, 7235.\r
+           5    al                       pl1_operators_:    3216, 3257,\r
+                                         eis_bits:      10.\r
+        3162    alloc                    pl1_operators_:     201, 1362, 1375, 1386, 2215, 2247, 2270, 2296, 3202, 3240.\r
+       11221    allocation               pl1_operators_:    1335, 6192, 6200, 6988, 7413, 7484.\r
+       11231    allocation_done          pl1_operators_:    6197, 6201.\r
+                alloc_                   pl1_operators_:    1335, 6087, 6105, 6988, 7413, 7484.\r
+        7301    alloc_auto_adj           pl1_operators_:    1335, 4660, 6988, 7413, 7484.\r
+        3152    alloc_bit_temp           pl1_operators_:    1335, 1370, 6988, 7413, 7484.\r
+       11115    alloc_block              pl1_operators_:    1335, 6092, 6988, 7413, 7484.\r
+        3140    alloc_char_temp          pl1_operators_:    1335, 1357, 6988, 7413, 7484.\r
+       11112    alloc_storage            pl1_operators_:    1335, 6084, 6988, 7413, 7484.\r
+        3161    alloc_temp               pl1_operators_:    1335, 1379, 6988, 7413, 7484.\r
+       12446    almost_one               pl1_operators_:    4682, 4700, 4755, 4762, 6957.\r
+        7727    alm_call                 pl1_operators_:     202, 1335, 5106, 6988, 7413, 7484.\r
+        7747    alm_entry                pl1_operators_:     203, 1335, 5126, 6988.\r
+        7727    alm_operators_begin      pl1_operators_:     204, 5105.\r
+        7771    alm_operators_end        pl1_operators_:     205, 5144.\r
+        7733    alm_push                 pl1_operators_:     206, 1335, 5112, 6988, 7413, 7484.\r
+        7757    alm_return               pl1_operators_:     207, 1335, 5128, 6988, 7413, 7484.\r
+        7765    alm_return_no_pop        pl1_operators_:     208, 1335, 5138, 6988, 7413, 7484.\r
+       24730    alm_trace_operators_begin      pl1_operators_:     209, 7489.\r
+       24751    alm_trace_operators_end  pl1_operators_:     210, 7491.\r
+                alog10_                  pl1_operators_:    6323, 7191.\r
+                alog_                    pl1_operators_:    6322, 7190.\r
+                amod_                    pl1_operators_:    6378, 7246.\r
+        3627    ana_op                   pl1_operators_:    1758, 1897.\r
+           1    and                      pl1_operators_:    1897,\r
+                                         eis_bits:      23.\r
+        3526    and_1                    pl1_operators_:    1745, 1749, 1753, 1758.\r
+        3517    and_bits                 pl1_operators_:    1335, 1743, 6988, 7413, 7484.\r
+        3525    and_bits_aligned         pl1_operators_:    1335, 1755, 6988, 7413, 7484.\r
+        3521    and_bits_co              pl1_operators_:    1335, 1747, 6988, 7413, 7484.\r
+        3523    and_bits_ho              pl1_operators_:    1335, 1751, 6988, 7413, 7484.\r
+                anint_                   pl1_operators_:    6372, 7240.\r
+                any_to_any_              pl1_operators_:    1335, 6988, 7413, 7484.\r
+                any_to_any_round_        pl1_operators_:    1335, 6988, 7413, 7484.\r
+                any_to_any_truncate_     pl1_operators_:    1335, 6988, 7413, 7484.\r
+         100    ar                       pl1_operators_:    1615, 1652, 1666, 1705, 1720, 1831, 1896, 1897, 1898, 1899, 1900,\r
+                                                            1928, 1955, 1991, 2005, 2046, 2085, 2113, 2137, 2167, 2194, 2223,\r
+                                                            2255, 2280, 2306, 2328, 2347, 2406, 2429, 2480, 2506, 2531, 2545,\r
+                                                            2583, 2609, 2621, 2672, 2686, 2744, 2834, 2871, 2882, 2916, 3109,\r
+                                                            3142, 3166, 3179, 3210, 3216, 3221, 3249, 3257, 3262, 3267, 3287,\r
+                                                            3337, 4446,\r
+                                         eis_bits:       1.\r
+                arc_cosine_degrees_      pl1_operators_:    1335, 7413.\r
+                arc_cosine_radians_      pl1_operators_:    1335, 7413.\r
+                arc_sine_                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                arc_sine_degrees_        pl1_operators_:    1335, 7413.\r
+                arc_sine_radians_        pl1_operators_:    1335, 7413.\r
+                arc_tangent_             pl1_operators_:    1335, 6988, 7413, 7484.\r
+                arc_tangent_degrees_     pl1_operators_:    1335, 7413.\r
+                arc_tangent_degrees_2_   pl1_operators_:    1335, 7413.\r
+                arc_tangent_radians_     pl1_operators_:    1335, 7413.\r
+                arc_tangent_radians_2_   pl1_operators_:    1335, 7413.\r
+          70    arg_list                 pl1_operators_:     269, 3437, 3440, 3441, 4649, 4651, 4652, 5274, 5276, 5280, 5283,\r
+                                                            5284, 5644, 5647, 5648, 5773, 5776, 5777, 6098, 6100, 6103, 6108,\r
+                                                            6109, 6131, 6222, 6223, 6224, 6386, 6387, 6388, 6401, 6405, 6408,\r
+                                                            6409, 6421, 6430, 6431, 6899, 6905.\r
+                asin_                    pl1_operators_:    6348, 7216.\r
+                atan2_                   pl1_operators_:    6325, 7193.\r
+                atan_                    pl1_operators_:    6324, 7192.\r
+           1    au                       eis_bits:       5.\r
+        4416    bc_1                     pl1_operators_:    2489, 2493, 2497, 2502.\r
+           0    begin_pl1_operators      pl1_operators_:     211, 1334, 7567.\r
+        5572    begin_return_mac         pl1_operators_:    1335, 3450, 6988, 7413, 7484.\r
+        6614    begin_return_main        pl1_operators_:    1335, 4232, 6988, 7413, 7484.\r
+           0    bitno_to_charno_table    pl1_operators_:    1335.\r
+        3755    bits_move                pl1_operators_:    1335, 2055, 6988, 7413, 7484.\r
+        3766    bits_move_aligned        pl1_operators_:    1335, 2076, 6988, 7413, 7484.\r
+        4021    bits_move_ck             pl1_operators_:    1335, 2118, 6988, 7413, 7484.\r
+        4027    bits_move_ck_al          pl1_operators_:    1335, 2130, 6988, 7413, 7484.\r
+        4023    bits_move_ck_co          pl1_operators_:    1335, 2122, 6988, 7413, 7484.\r
+        4025    bits_move_ck_ho          pl1_operators_:    1335, 2126, 6988, 7413, 7484.\r
+        3760    bits_move_co             pl1_operators_:    1335, 2062, 6988, 7413, 7484.\r
+        3763    bits_move_ho             pl1_operators_:    1335, 2069, 6988, 7413, 7484.\r
+        3754    bits_move_vt             pl1_operators_:    1335, 2052, 6988, 7413, 7484.\r
+        3765    bits_move_vta            pl1_operators_:    1335, 2073, 6988, 7413, 7484.\r
+        3757    bits_move_vt_co          pl1_operators_:    1335, 2059, 6988, 7413, 7484.\r
+        3762    bits_move_vt_ho          pl1_operators_:    1335, 2066, 6988, 7413, 7484.\r
+          62    bit_lg1                  pl1_operators_:     259, 1371, 1376, 1402, 1404, 1407, 1412, 1415, 1510, 1546, 1566,\r
+                                                            1679, 1729, 1732, 1883, 2002, 2084, 2136, 2234, 2242, 2252, 2267,\r
+                                                            2273, 2286, 2340, 2343, 2381, 2428, 2473, 2738, 2811, 2852, 2910,\r
+                                                            2936, 3325, 3328, 3708, 3709, 3743, 3744, 4582, 4587, 4591, 4595,\r
+                                                            4604, 4949, 4969.\r
+        1426    bit_mask                 pl1_operators_:    1335, 1735, 2532, 3773, 4197, 4488, 4497, 4561, 4571, 4736, 4812,\r
+                                                            4827, 4869, 4903, 4974.\r
+       11641    bit_mask_one             pl1_operators_:    1585, 6565.\r
+          65    bit_op                   pl1_operators_:     264, 1882, 1887.\r
+          64    bit_or_char              pl1_operators_:     262, 1359, 1372, 1519, 1538, 1547, 1567, 2208.\r
+          40    blank                    pl1_operators_:     299, 1652, 1720, 1928, 2046, 2113, 2406, 2506, 3221, 3262.\r
+        2066    blanks                   pl1_operators_:    1335, 2439.\r
+        4407    blank_chars              pl1_operators_:    1335, 2487, 6988, 7413, 7484.\r
+        4415    blank_chars_aligned      pl1_operators_:    1335, 2499, 6988, 7413, 7484.\r
+        4411    blank_chars_co           pl1_operators_:    1335, 2491, 6988, 7413, 7484.\r
+        4413    blank_chars_ho           pl1_operators_:    1335, 2495, 6988, 7413, 7484.\r
+        4030    bmk_1                    pl1_operators_:    2120, 2124, 2128, 2133.\r
+        3767    bm_1                     pl1_operators_:    2057, 2064, 2071, 2079.\r
+       10214    bound_ck_signal          pl1_operators_:    1335, 5390, 6988, 7413, 7484.\r
+                cabs                     pl1_operators_:    1335, 6988, 7413, 7484.\r
+                cabs_                    pl1_operators_:    6339, 7207.\r
+       11117    call_alloc               pl1_operators_:    6096, 6153.\r
+       11130    call_alloc_free          pl1_operators_:    6107, 6134, 6226.\r
+        5610    call_ent_var             pl1_operators_:    1335, 3480, 6988, 7413, 7484.\r
+        5607    call_ent_var_desc        pl1_operators_:    1335, 3477, 6988, 7413, 7484.\r
+        5624    call_ext_in              pl1_operators_:    1335, 3503, 6988, 7413, 7484.\r
+        5623    call_ext_in_desc         pl1_operators_:    1335, 3499, 6988, 7413, 7484.\r
+        5624    call_ext_out             pl1_operators_:    1335, 3504, 6988, 7413, 7484.\r
+        5623    call_ext_out_desc        pl1_operators_:    1335, 3500, 6988, 7413, 7484.\r
+       11150    call_free                pl1_operators_:    6129, 6186.\r
+        5646    call_int_other           pl1_operators_:    1335, 3545, 6988, 7413, 7484.\r
+        5645    call_int_other_desc      pl1_operators_:    1335, 3542, 6988, 7413, 7484.\r
+        5635    call_int_this            pl1_operators_:    1335, 3528, 6988, 7413, 7484.\r
+        5634    call_int_this_desc       pl1_operators_:    1335, 3525, 6988, 7413, 7484.\r
+        1170    call_offset              stack_header:        80.\r
+       11565    call_set_hexfp_control   pl1_operators_:    6481, 6516, 7452.\r
+       11251    call_signal_             pl1_operators_:     212, 2372, 4032, 4628, 5173, 5385, 5396, 6231, 6491, 7462.\r
+           2    carry                    pl1_operators_:     287, 3928, 3936, 3940, 3954.\r
+           3    carrya                   pl1_operators_:     288, 3929, 3942, 3948, 3953.\r
+                catch_pl1_               pl1_operators_:    7470, 7472, 7474, 7476, 7490.\r
+        4063    cat_bits                 pl1_operators_:    1335, 2175, 6988, 7413, 7484.\r
+        4071    cat_bits_aligned         pl1_operators_:    1335, 2177, 2181, 2185, 2187, 6988, 7413, 7484.\r
+        4065    cat_bits_co              pl1_operators_:    1335, 2179, 6988, 7413, 7484.\r
+        4067    cat_bits_ho              pl1_operators_:    1335, 2183, 6988, 7413, 7484.\r
+        4040    cat_chars                pl1_operators_:    1335, 2147, 6988, 7413, 7484.\r
+        4046    cat_chars_aligned        pl1_operators_:    1335, 2149, 2153, 2157, 2159, 6988, 7413, 7484.\r
+        4042    cat_chars_co             pl1_operators_:    1335, 2151, 6988, 7413, 7484.\r
+        4044    cat_chars_ho             pl1_operators_:    1335, 2155, 6988, 7413, 7484.\r
+        4061    cat_done                 pl1_operators_:    2162, 2171, 2190, 2197.\r
+          66    cat_lg1                  pl1_operators_:     266, 1403, 1421, 1826, 1951, 2165, 2192.\r
+        3552    cat_move_bits            pl1_operators_:    1335, 1811, 6988, 7413, 7484.\r
+        3560    cat_move_bits_aligned    pl1_operators_:    1335, 1823, 6988, 7413, 7484.\r
+        3554    cat_move_bits_co         pl1_operators_:    1335, 1815, 6988, 7413, 7484.\r
+        3556    cat_move_bits_ho         pl1_operators_:    1335, 1819, 6988, 7413, 7484.\r
+        3654    cat_move_chars           pl1_operators_:    1335, 1934, 6988, 7413, 7484.\r
+        3662    cat_move_chars_aligned   pl1_operators_:    1335, 1946, 6988, 7413, 7484.\r
+        3656    cat_move_chars_co        pl1_operators_:    1335, 1938, 6988, 7413, 7484.\r
+        3660    cat_move_chars_ho        pl1_operators_:    1335, 1942, 6988, 7413, 7484.\r
+        3177    cat_realloc_bits         pl1_operators_:    1335, 1401, 6988, 7413, 7484.\r
+        3215    cat_realloc_chars        pl1_operators_:    1335, 1419, 6988, 7413, 7484.\r
+                ccos                     pl1_operators_:    1335, 7413.\r
+                ccos_                    pl1_operators_:    6343, 7211.\r
+                ceil                     pl1_operators_:    1335, 6988, 7413, 7484.\r
+        7415    ceil_fl                  pl1_operators_:    1335, 4760, 7413.\r
+        7444    ceil_fx1                 pl1_operators_:    1335, 4790, 6988, 7413, 7484.\r
+        7500    ceil_fx2                 pl1_operators_:    1335, 4826, 6988, 7413, 7484.\r
+                cexp                     pl1_operators_:    1335, 7413.\r
+                cexp_                    pl1_operators_:    6340, 7208.\r
+                chain_entry              pl1_operators_:    6427.\r
+        3727    chars_move               pl1_operators_:    1335, 2016, 6988, 7413, 7484.\r
+        3740    chars_move_aligned       pl1_operators_:    1335, 2037, 6988, 7413, 7484.\r
+        4002    chars_move_ck            pl1_operators_:    1335, 2094, 6988, 7413, 7484.\r
+        4010    chars_move_ck_al         pl1_operators_:    1335, 2106, 6988, 7413, 7484.\r
+        4004    chars_move_ck_co         pl1_operators_:    1335, 2098, 6988, 7413, 7484.\r
+        4006    chars_move_ck_ho         pl1_operators_:    1335, 2102, 6988, 7413, 7484.\r
+        3732    chars_move_co            pl1_operators_:    1335, 2023, 6988, 7413, 7484.\r
+        3735    chars_move_ho            pl1_operators_:    1335, 2030, 6988, 7413, 7484.\r
+        3726    chars_move_vt            pl1_operators_:    1335, 2013, 6988, 7413, 7484.\r
+        3737    chars_move_vta           pl1_operators_:    1335, 2034, 6988, 7413, 7484.\r
+        3731    chars_move_vt_co         pl1_operators_:    1335, 2020, 6988, 7413, 7484.\r
+        3734    chars_move_vt_ho         pl1_operators_:    1335, 2027, 6988, 7413, 7484.\r
+          63    char_lg1                 pl1_operators_:     260, 1358, 1363, 1420, 1424, 1427, 1512, 1518, 1537, 1625, 1664,\r
+                                                            1716, 1718, 1925, 2045, 2112, 2210, 2220, 2233, 2293, 2299, 2312,\r
+                                                            2321, 2324, 2361, 2405, 2577, 2578, 2639, 2642, 2694, 2833, 2847,\r
+                                                            2867, 2963, 2967, 2969, 2976, 3008, 3012, 3014, 3022, 3072, 3073,\r
+                                                            3095, 3104, 3107, 3161, 3164, 3177, 3189, 3199, 3206, 3237, 3244,\r
+                                                            3365, 3368.\r
+           0    clear                    eis_bits:      27.\r
+                clock_                   pl1_operators_:    4196.\r
+        6563    clock_mac                pl1_operators_:    1335, 4194, 6988, 7413, 7484.\r
+                clog                     pl1_operators_:    1335, 7413.\r
+                clog_                    pl1_operators_:    6341, 7209.\r
+                close_                   pl1_operators_:    5670.\r
+       10515    close_file               pl1_operators_:    1335, 5705, 6988, 7413, 7484.\r
+        3561    cmb_1                    pl1_operators_:    1813, 1817, 1821, 1826.\r
+        3663    cmc_1                    pl1_operators_:    1936, 1940, 1944, 1949.\r
+        4011    cmk_1                    pl1_operators_:    2096, 2100, 2104, 2109.\r
+                cmpx_p_cmpx              pl1_operators_:    1335, 7413.\r
+        3741    cm_1                     pl1_operators_:    2018, 2025, 2032, 2040.\r
+          70    complex                  pl1_operators_:     273, 4354, 4359, 4362, 4363, 4366, 4369, 4370, 4395, 4411, 4417,\r
+                                                            4430, 4435.\r
+        3717    comp_bits                pl1_operators_:    1335, 2001, 6988, 7413, 7484.\r
+                conjg_                   pl1_operators_:    6369, 7237.\r
+        5161    const_verify             pl1_operators_:    1335, 3056, 6988, 7413, 7484.\r
+        5167    const_verify_al          pl1_operators_:    1335, 3068, 6988, 7413, 7484.\r
+        5163    const_verify_co          pl1_operators_:    1335, 3060, 6988, 7413, 7484.\r
+        5165    const_verify_ho          pl1_operators_:    1335, 3064, 6988, 7413, 7484.\r
+          11    control_entry_offset     long_profile:        40.\r
+        4445    copy_const               pl1_operators_:    1335, 2543, 6988, 7413, 7484.\r
+        4444    copy_const_vt            pl1_operators_:    1335, 2540, 6988, 7413, 7484.\r
+        7033    copy_double              pl1_operators_:    1335, 4455, 6988, 7413, 7484.\r
+        7023    copy_words               pl1_operators_:    1335, 4442, 4457, 6988, 7413, 7484.\r
+                cosh                     pl1_operators_:    1335, 7413.\r
+                cosh_                    pl1_operators_:    6356, 7224.\r
+                cosine_degrees_          pl1_operators_:    1335, 7413.\r
+                cosine_radians_          pl1_operators_:    1335, 7413.\r
+                cos_                     pl1_operators_:    6327, 7195.\r
+          77    count                    pl1_operators_:     280, 2206, 2211, 2218, 2243, 2250, 2737, 2739, 2866, 2868, 2909,\r
+                                                            2911, 3290, 3392, 3402, 3415, 3418, 3702, 3703.\r
+        1264    co_to_bo                 pl1_operators_:    1335, 1528, 1556, 1602, 1638, 1692, 1748, 1770, 1792, 1816, 1847,\r
+                                                            1870, 1913, 1939, 2024, 2063, 2099, 2123, 2152, 2180, 2393, 2417,\r
+                                                            2463, 2492, 2518, 2560, 2719, 2764, 2796, 2951, 2996, 3039, 3061,\r
+                                                            3311, 3351, 5513, 5538, 5559, 5603, 5624.\r
+        4371    cpbs3                    pl1_operators_:    1335, 2458, 6988, 7413, 7484.\r
+        4402    cpbs3a                   pl1_operators_:    2460, 2464, 2468, 2479.\r
+        4401    cpbs3_aligned            pl1_operators_:    1335, 2476, 6988, 7413, 7484.\r
+        4373    cpbs3_co                 pl1_operators_:    1335, 2462, 6988, 7413, 7484.\r
+        4375    cpbs3_ho                 pl1_operators_:    1335, 2466, 6988, 7413, 7484.\r
+        4377    cpbs4                    pl1_operators_:    1335, 2473, 6988, 7413, 7484.\r
+        4350    cpbs_1                   pl1_operators_:    2427, 2454.\r
+        4364    cpbs_ext1                pl1_operators_:    1335, 2447, 6988, 7413, 7484.\r
+        4365    cpbs_ext2                pl1_operators_:    1335, 2450, 6988, 7413, 7484.\r
+        4331    cpcs_1                   pl1_operators_:    2404, 2445.\r
+        4357    cpcs_ext1                pl1_operators_:    1335, 2438, 6988, 7413, 7484.\r
+        4360    cpcs_ext2                pl1_operators_:    1335, 2441, 6988, 7413, 7484.\r
+                cplx_dec_ops_            pl1_operators_:    1335, 6988, 7413, 7484.\r
+          56    cpu                      pl1_operators_:     255, 7518, 7534, 7541.\r
+                cpu_time_and_paging_op_  pl1_operators_:    7516.\r
+        4340    cp_bits                  pl1_operators_:    1335, 2412, 6988, 7413, 7484.\r
+        4346    cp_bits_aligned          pl1_operators_:    1335, 2414, 2418, 2422, 2424, 6988, 7413, 7484.\r
+        4342    cp_bits_co               pl1_operators_:    1335, 2416, 6988, 7413, 7484.\r
+        4344    cp_bits_ho               pl1_operators_:    1335, 2420, 6988, 7413, 7484.\r
+        4320    cp_chars                 pl1_operators_:    1335, 2388, 6988, 7413, 7484.\r
+        4326    cp_chars_aligned         pl1_operators_:    1335, 2390, 2394, 2398, 2400, 6988, 7413, 7484.\r
+        4322    cp_chars_co              pl1_operators_:    1335, 2392, 6988, 7413, 7484.\r
+        4324    cp_chars_ho              pl1_operators_:    1335, 2396, 6988, 7413, 7484.\r
+                create                   pl1_operators_:    5289.\r
+                csin                     pl1_operators_:    1335, 7413.\r
+                csin_                    pl1_operators_:    6342, 7210.\r
+        1244    csl_vector               pl1_operators_:    1335.\r
+                csqrt                    pl1_operators_:    1335, 7413.\r
+                csqrt_                   pl1_operators_:    6344, 7212.\r
+                cxp2_                    pl1_operators_:    6345, 7213.\r
+                dabs_                    pl1_operators_:    6360, 7228.\r
+                dacos_                   pl1_operators_:    6351, 7219.\r
+                dasin_                   pl1_operators_:    6349, 7217.\r
+                datan2_                  pl1_operators_:    6335, 7203.\r
+                datan_                   pl1_operators_:    6334, 7202.\r
+                dcosh                    pl1_operators_:    1335, 7413.\r
+                dcosh_                   pl1_operators_:    6357, 7225.\r
+                dcos_                    pl1_operators_:    6337, 7205.\r
+                ddim_                    pl1_operators_:    6363, 7231.\r
+                dec_ops_                 pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6205    dec_qhat                 pl1_operators_:    3900, 3921, 3925.\r
+          42    descriptor_ptr           pl1_operators_:     246, 6803, 6899, 6903, 6905, 7472, 7476.\r
+                dexp_                    pl1_operators_:    6331, 7199.\r
+        5545    different_stack          pl1_operators_:    3410, 3414.\r
+                dim_                     pl1_operators_:    6361, 7229.\r
+                dint_                    pl1_operators_:    6371, 7239.\r
+        5674    display_chase            pl1_operators_:    1335, 3574, 3584, 4641, 6988, 7413, 7484.\r
+          40    display_ptr              pl1_operators_:     245, 3551, 3554, 3587, 6899, 6905, 6942, 6944.\r
+        6102    divide1                  pl1_operators_:    3645, 3766, 3817.\r
+        6112    divide2                  pl1_operators_:    3623, 3683, 3794, 3806, 3830.\r
+          10    dividend                 pl1_operators_:     292, 3882, 3883, 3893, 3894, 3898, 3910, 3923, 3931, 3987, 3993,\r
+                                                            3995, 3997, 4055, 4094, 4099, 4103, 4109, 4112, 4123, 4128, 4132.\r
+        6431    divide_extension         pl1_operators_:    3817, 3830, 4068.\r
+          40    divide_extension_size    pl1_operators_:     284, 4021, 4073.\r
+        6042    divide_fx1               pl1_operators_:    1335, 3751, 6988, 7413, 7484.\r
+        6061    divide_fx2               pl1_operators_:    1335, 3780, 6988, 7413, 7484.\r
+        6044    divide_fx3               pl1_operators_:    1335, 3760, 6988, 7413, 7484.\r
+        6063    divide_fx4               pl1_operators_:    1335, 3789, 6988, 7413, 7484.\r
+          30    divide_lp                pl1_operators_:     295, 4018, 4077.\r
+          16    divisor                  pl1_operators_:     293, 3850, 3851, 3863, 3866, 3868, 3875, 3889, 3895, 3905, 3912,\r
+                                                            3917, 3930, 3934, 3949, 3969, 3974, 4046, 4057.\r
+        6144    divisor_3                pl1_operators_:    3840, 3862.\r
+        6071    div_4_cplx_ops           pl1_operators_:    1335, 3801, 6988, 7413, 7484.\r
+        6215    div_less                 pl1_operators_:    3896, 3909.\r
+        6241    div_loop                 pl1_operators_:    3932, 3950.\r
+        6301    div_loop1                pl1_operators_:    3965, 3975.\r
+        6406    div_single               pl1_operators_:    3824, 3838, 4045.\r
+           6    div_temp                 pl1_operators_:     291, 3852, 3853, 3939, 3943, 4089, 4113, 4116, 4117, 4136, 4137.\r
+                dlog10_                  pl1_operators_:    6333, 7201.\r
+                dlog_                    pl1_operators_:    6332, 7200.\r
+                dmod                     pl1_operators_:    1335, 7413.\r
+                dmod_                    pl1_operators_:    6330, 7198.\r
+                dnint_                   pl1_operators_:    6373, 7241.\r
+        6327    done                     pl1_operators_:    3890, 3993.\r
+                double_arc_cosine_degrees_     pl1_operators_:    1335, 7413.\r
+                double_arc_cosine_radians_     pl1_operators_:    1335, 7413.\r
+                double_arc_sine_         pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_arc_sine_degrees_       pl1_operators_:    1335, 7413.\r
+                double_arc_sine_radians_       pl1_operators_:    1335, 7413.\r
+                double_arc_tangent_      pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_arc_tan_degrees_  pl1_operators_:    1335, 7413.\r
+                double_arc_tan_degrees_2_      pl1_operators_:    1335, 7413.\r
+                double_arc_tan_radians_  pl1_operators_:    1335, 7413.\r
+                double_arc_tan_radians_2_      pl1_operators_:    1335, 7413.\r
+                double_cosine_degrees_   pl1_operators_:    1335, 7413.\r
+                double_cosine_radians_   pl1_operators_:    1335, 7413.\r
+                double_exponential_      pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_logarithm_        pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_log_base_10_      pl1_operators_:    1335, 7413.\r
+                double_log_base_2_       pl1_operators_:    1335, 7413.\r
+                double_log_base_e_       pl1_operators_:    1335, 7413.\r
+                double_power_double_     pl1_operators_:    1335, 7413.\r
+                double_power_integer_    pl1_operators_:    1335, 7413.\r
+                double_power_single_     pl1_operators_:    1335, 7413.\r
+                double_sine_             pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_sine_degrees_     pl1_operators_:    1335, 7413.\r
+                double_sine_radians_     pl1_operators_:    1335, 7413.\r
+                double_square_root_      pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_tangent_          pl1_operators_:    1335, 6988, 7413, 7484.\r
+                double_tangent_degrees_  pl1_operators_:    1335, 7413.\r
+                double_tangent_radians_  pl1_operators_:    1335, 7413.\r
+          56    double_temp              pl1_operators_:     254, 1505, 1506, 1614, 1616, 2367, 2374, 2442, 2444, 2451, 2453,\r
+                                                            3435, 3436, 4027, 4033, 5167, 5175, 5236, 5257, 5272, 5273, 5412,\r
+                                                            5445, 6152, 6155, 6553.\r
+                dprod_                   pl1_operators_:    6376, 7244.\r
+                dsign_                   pl1_operators_:    6366, 7234.\r
+                dsinh                    pl1_operators_:    1335, 7413.\r
+                dsinh_                   pl1_operators_:    6355, 7223.\r
+                dsin_                    pl1_operators_:    6336, 7204.\r
+                dsqrt_                   pl1_operators_:    6338, 7206.\r
+                dtanh                    pl1_operators_:    1335, 7413.\r
+                dtanh_                   pl1_operators_:    6353, 7221.\r
+                dtan_                    pl1_operators_:    6347, 7215.\r
+           3    du                       eis_bits:       7.\r
+           5    dummy_entry_offset       long_profile:        39.\r
+                dvcdec                   pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6755    dvcfl1_1                 pl1_operators_:    1335, 4395, 6988, 7413, 7484.\r
+        6756    dvcfl1_2                 pl1_operators_:    1335, 4397, 6988, 7413, 7484.\r
+        7003    dvcfl1_else              pl1_operators_:    4400, 4420.\r
+                dvrcdec                  pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6052    dv_done                  pl1_operators_:    3767, 3795.\r
+       12120    eed                      pl1_operators_:    6803, 6899.\r
+       10277    ef_1                     pl1_operators_:    5415, 5453.\r
+                element                  pl1_operators_:    5676.\r
+       10230    enable_file              pl1_operators_:    1335, 5408, 6988, 7413, 7484.\r
+       10115    enable_op                pl1_operators_:    1335, 5301, 6988, 7413, 7484.\r
+       12516    end_pl1_operators        pl1_operators_:     213, 6970.\r
+       12372    enter_begin_block        pl1_operators_:    1335, 6942, 6988, 7413, 7484.\r
+       11534    enter_BFP_mode           pl1_operators_:    1335, 6451, 6988.\r
+       11540    enter_HFP_mode           pl1_operators_:    1335, 6474, 6492, 6988.\r
+       11562    enter_HFP_mode.entered   pl1_operators_:    6479, 6486, 6494.\r
+        1174    entry_offset             stack_header:        84.\r
+        2473    entry_operators          pl1_operators_:     214, 1335.\r
+       12434    entry_operators_end      pl1_operators_:     215, 6947.\r
+        3631    era_op                   pl1_operators_:    1802, 1899.\r
+           1    error1                   pl1_operators_:    7568.\r
+           5    error_length             pl1_operators_:    6556, 6561.\r
+       11637    error_name               pl1_operators_:    6555, 6559.\r
+        3550    exor_1                   pl1_operators_:    1789, 1793, 1797, 1802.\r
+        3541    exor_bits                pl1_operators_:    1335, 1787, 6988, 7413, 7484.\r
+        3547    exor_bits_aligned        pl1_operators_:    1335, 1799, 6988, 7413, 7484.\r
+        3543    exor_bits_co             pl1_operators_:    1335, 1791, 6988, 7413, 7484.\r
+        3545    exor_bits_ho             pl1_operators_:    1335, 1795, 6988, 7413, 7484.\r
+                exponential_             pl1_operators_:    1335, 6988, 7413, 7484.\r
+                exp_                     pl1_operators_:    6321, 7189.\r
+          61    extend_size              pl1_operators_:     258, 1392, 1438, 1443, 1444.\r
+        3676    ext_and_1                pl1_operators_:    1335, 1965, 6988, 7413, 7484.\r
+        3677    ext_and_2                pl1_operators_:    1335, 1972, 6988, 7413, 7484.\r
+       12062    ext_entry                pl1_operators_:    1335, 6771, 6988.\r
+       12106    ext_entry_desc           pl1_operators_:    1335, 6803, 6988.\r
+                fast_related_data_       pl1_operators_:    6427.\r
+        5117    fbt                      pl1_operators_:    2993, 2997, 3001, 3006.\r
+        5130    fbt_1                    pl1_operators_:    3015, 3026, 3029.\r
+        3451    fetch_bits               pl1_operators_:    1335, 1677, 6988, 7413, 7484.\r
+        3416    fetch_chars              pl1_operators_:    1335, 1624, 6988, 7413, 7484.\r
+        3441    fetch_chars_eis          pl1_operators_:    1335, 1663, 6988, 7413, 7484.\r
+                file_control             pl1_operators_:    5674.\r
+       10314    find_unit                pl1_operators_:    5453, 5471, 5485.\r
+          11    fio_ps.element_count     fortran_ps:    26.\r
+          10    fio_ps.element_desc      fortran_ps:    25.\r
+          12    fio_ps.element_ptr       pl1_operators_:    5811,\r
+                                         fortran_ps:    27.\r
+          10    fio_ps.ele_desc_and_count      pl1_operators_:    5812,\r
+                                               fortran_ps:    24.\r
+           7    fio_ps.file_number       fortran_ps:    23.\r
+           6    fio_ps.job_bits          fortran_ps:    22.\r
+           6    fio_ps.job_bits_and_file       pl1_operators_:    5785,\r
+                                               fortran_ps:    21.\r
+           0    fio_ps.label_addr        pl1_operators_:    5798,\r
+                                         fortran_ps:    18.\r
+           4    fio_ps.label_index_addr  pl1_operators_:    5796,\r
+                                         fortran_ps:    20.\r
+           2    fio_ps.stack_frame_p     pl1_operators_:    5790,\r
+                                         fortran_ps:    19.\r
+        6532    fl2_to_fx1               pl1_operators_:    1335, 4149, 7413.\r
+        6532    fl2_to_fx2               pl1_operators_:    1335, 4150, 7413.\r
+        6542    fl2_to_fxscaled          pl1_operators_:    1335, 4163, 7413.\r
+                floor                    pl1_operators_:    1335, 6988, 7413, 7484.\r
+       12015    floor_ceil_mask          pl1_operators_:    4782, 4784, 4795, 4797, 6680.\r
+        7405    floor_fl                 pl1_operators_:    1335, 4750, 7413.\r
+        7425    floor_fx1                pl1_operators_:    1335, 4773, 6988, 7413, 7484.\r
+        7463    floor_fx2                pl1_operators_:    1335, 4811, 6988, 7413, 7484.\r
+        7574    fl_sign_change           pl1_operators_:    4904, 4907.\r
+        5110    form_bit_table           pl1_operators_:    1335, 2991, 6988, 7413, 7484.\r
+        5116    form_bit_table_al        pl1_operators_:    1335, 3003, 6988, 7413, 7484.\r
+        5112    form_bit_table_co        pl1_operators_:    1335, 2995, 6988, 7413, 7484.\r
+        5114    form_bit_table_ho        pl1_operators_:    1335, 2999, 6988, 7413, 7484.\r
+       10555    fortran_array_xmit       pl1_operators_:    1335, 5806, 6988, 7413, 7484.\r
+       11514    fortran_chain            pl1_operators_:    1335, 6420, 6988, 7413, 7484.\r
+       11463    fortran_end              pl1_operators_:    1335, 6384, 6390, 6988, 7413, 7484.\r
+                fortran_io_              pl1_operators_:    5673, 5674, 5675, 5676, 5683.\r
+       10562    fortran_manip            pl1_operators_:    1335, 5818, 6988, 7413, 7484.\r
+           6    fortran_open_data.access       pl1_operators_:    5882,\r
+                                               fortran_open_data:   12.\r
+           3    fortran_open_data.attach_desc  pl1_operators_:    5876,\r
+                                               fortran_open_data:    9.\r
+          11    fortran_open_data.binary       pl1_operators_:    5898,\r
+                                               fortran_open_data:   15.\r
+          15    fortran_open_data.blank  pl1_operators_:    5886,\r
+                                         fortran_open_data:   19.\r
+          13    fortran_open_data.carriage     pl1_operators_:    5902,\r
+                                               fortran_open_data:   17.\r
+          16    fortran_open_data.char_str     pl1_operators_:    5872, 5874, 5876, 5878, 5880, 5882, 5884, 5886,\r
+                                               fortran_open_data:   20.\r
+          14    fortran_open_data.defer  pl1_operators_:    5904,\r
+                                         fortran_open_data:   18.\r
+           4    fortran_open_data.filename     pl1_operators_:    5878,\r
+                                               fortran_open_data:   10.\r
+           7    fortran_open_data.form   pl1_operators_:    5884,\r
+                                         fortran_open_data:   13.\r
+           2    fortran_open_data.io_switch    pl1_operators_:    5874,\r
+                                               fortran_open_data:    8.\r
+          10    fortran_open_data.max_rec_len  pl1_operators_:    5889,\r
+                                               fortran_open_data:   14.\r
+           5    fortran_open_data.mode   pl1_operators_:    5880,\r
+                                         fortran_open_data:   11.\r
+          12    fortran_open_data.prompt       pl1_operators_:    5900,\r
+                                               fortran_open_data:   16.\r
+           0    fortran_open_data.specified    pl1_operators_:    5857,\r
+                                               fortran_open_data:    6.\r
+           1    fortran_open_data.status       pl1_operators_:    5872,\r
+                                               fortran_open_data:    7.\r
+       11471    fortran_pause            pl1_operators_:    1335, 6393, 6988, 7413, 7484.\r
+                fortran_pause_           pl1_operators_:    6417.\r
+       10517    fortran_read             pl1_operators_:    1335, 5762, 6988, 7413, 7484.\r
+       10555    fortran_scalar_xmit      pl1_operators_:    1335, 5805, 6988, 7413, 7484.\r
+       11473    fortran_stop             pl1_operators_:    1335, 6397, 6988, 7413, 7484.\r
+                fortran_stop_            pl1_operators_:    6390, 6418.\r
+                fortran_storage_         pl1_operators_:    5289.\r
+                fortran_storage_manager_       pl1_operators_:    3445.\r
+       10564    fortran_terminate        pl1_operators_:    1335, 5825, 6988, 7413, 7484.\r
+       10517    fortran_write            pl1_operators_:    1335, 5763, 6988, 7413, 7484.\r
+                fort_bfp_builtins_       pl1_operators_:    6321, 6322, 6323, 6324, 6325, 6326, 6327, 6328, 6329, 6330, 6331,\r
+                                                            6332, 6333, 6334, 6335, 6336, 6337, 6338, 6339, 6340, 6341, 6342,\r
+                                                            6343, 6344, 6345, 6346, 6347, 6348, 6349, 6350, 6351, 6353, 6354,\r
+                                                            6355, 6356, 6357, 6358, 6360, 6361, 6363, 6364, 6366, 6367, 6368,\r
+                                                            6369, 6371, 6372, 6373, 6374, 6375, 6376, 6378.\r
+       10146    fort_cleanup             pl1_operators_:    1335, 5336, 6988, 7413, 7484.\r
+                fort_cleanup_            pl1_operators_:    5362.\r
+       10157    fort_cleanup_1           pl1_operators_:    5347, 5351.\r
+           7    fort_cleanup_length      pl1_operators_:    5365, 5376.\r
+       10206    fort_cleanup_name        pl1_operators_:    5359, 5373.\r
+        6706    fort_dmod                pl1_operators_:    1335, 4319, 7413.\r
+                fort_hfp_builtins_       pl1_operators_:    7189, 7190, 7191, 7192, 7193, 7194, 7195, 7196, 7197, 7198, 7199,\r
+                                                            7200, 7201, 7202, 7203, 7204, 7205, 7206, 7207, 7208, 7209, 7210,\r
+                                                            7211, 7212, 7213, 7214, 7215, 7216, 7217, 7218, 7219, 7221, 7222,\r
+                                                            7223, 7224, 7225, 7226, 7228, 7229, 7231, 7232, 7234, 7235, 7236,\r
+                                                            7237, 7239, 7240, 7241, 7242, 7243, 7244, 7246.\r
+                fort_int_builtins_       pl1_operators_:    6352, 6359, 6362, 6365, 6370, 6377, 6379, 6380, 6381, 6382, 7220,\r
+                                                            7227, 7230, 7233, 7238, 7245, 7247, 7248, 7249, 7250.\r
+       11365    fort_math_names          pl1_operators_:     216, 6316, 6320.\r
+                fort_math_ops_           pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6670    fort_mdfl1               pl1_operators_:    1335, 4299, 7413.\r
+        5557    fort_return_mac          pl1_operators_:    1335, 3434, 6988, 7413, 7484.\r
+       10073    fort_storage             pl1_operators_:    1335, 5271, 6988, 7413, 7484.\r
+        5633    forward_call             pl1_operators_:     218, 3518.\r
+                free                     pl1_operators_:    3445.\r
+                freen_                   pl1_operators_:    6132.\r
+       11142    free_block               pl1_operators_:    1335, 6121, 6988, 7413, 7484.\r
+      400000    fsb.bit_string           plio2_fsb:     57.\r
+           4    fsb.blc                  plio2_fsb:     78.\r
+          10    fsb.bnc                  plio2_fsb:     81.\r
+           6    fsb.bptr                 plio2_fsb:     80.\r
+           5    fsb.bsize                plio2_fsb:     79.\r
+          42    fsb.buffer               plio2_fsb:     92.\r
+       20000    fsb.buffer_in_use        plio2_fsb:     40.\r
+          40    fsb.console              plio2_fsb:     48.\r
+       10000    fsb.copy                 plio2_fsb:     41.\r
+         440    fsb.declared_attributes  plio2_fsb:     94.\r
+       10000    fsb.delete               plio2_fsb:     62.\r
+        4000    fsb.detach               plio2_fsb:     42.\r
+          40    fsb.direct               plio2_fsb:     30.\r
+          20    fsb.emptyline            plio2_fsb:     49.\r
+          20    fsb.filename             plio2_fsb:     89.\r
+          20    fsb.from                 plio2_fsb:     70.\r
+         100    fsb.fsb_in_use           plio2_fsb:     47.\r
+          40    fsb.fsb_thread           plio2_fsb:     91.\r
+          40    fsb.ignore               plio2_fsb:     69.\r
+      200000    fsb.implementation       plio2_fsb:     37.\r
+       10000    fsb.input                plio2_fsb:     23.\r
+          20    fsb.interactive          plio2_fsb:     31.\r
+         400    fsb.internal             plio2_fsb:     45.\r
+         100    fsb.into                 plio2_fsb:     68.\r
+           3    fsb.iocb_p               plio2_fsb:     77.\r
+          10    fsb.iox_close            plio2_fsb:     50.\r
+        2000    fsb.key                  plio2_fsb:     64.\r
+           1    fsb.keyed                plio2_fsb:     35.\r
+         400    fsb.keyfrom              plio2_fsb:     66.\r
+        1000    fsb.keyto                plio2_fsb:     65.\r
+          11    fsb.kol                  plio2_fsb:     82.\r
+          16    fsb.limit                plio2_fsb:     87.\r
+          13    fsb.lineno               plio2_fsb:     84.\r
+          17    fsb.lnzc                 plio2_fsb:     88.\r
+        4000    fsb.locate               plio2_fsb:     63.\r
+           2    fsb.lsep                 plio2_fsb:     76.\r
+          12    fsb.lsize                plio2_fsb:     83.\r
+      400000    fsb.namelist             plio2_fsb:     36.\r
+          10    fsb.nofrom               plio2_fsb:     71.\r
+           4    fsb.nokey                plio2_fsb:     72.\r
+           2    fsb.nokeyfrom            plio2_fsb:     73.\r
+           1    fsb.nolock               plio2_fsb:     74.\r
+           1    fsb.nono                 plio2_fsb:     55.\r
+         400    fsb.notkeyed             plio2_fsb:     27.\r
+          10    fsb.not_used_1           plio2_fsb:     32.\r
+           4    fsb.not_used_2           plio2_fsb:     33.\r
+      200000    fsb.not_used_3           plio2_fsb:     58.\r
+      100000    fsb.not_used_4           plio2_fsb:     38.\r
+        1000    fsb.not_used_5           plio2_fsb:     44.\r
+       40000    fsb.open                 plio2_fsb:     21.\r
+        4000    fsb.output               plio2_fsb:     24.\r
+          15    fsb.pageno               plio2_fsb:     86.\r
+         366    fsb.path_name            plio2_fsb:     93.\r
+       20000    fsb.print                plio2_fsb:     22.\r
+          14    fsb.psize                plio2_fsb:     85.\r
+      100000    fsb.read                 plio2_fsb:     59.\r
+         200    fsb.record               plio2_fsb:     28.\r
+       20000    fsb.rewrite              plio2_fsb:     61.\r
+         100    fsb.sequential           plio2_fsb:     29.\r
+         200    fsb.set                  plio2_fsb:     67.\r
+        1000    fsb.stream               plio2_fsb:     26.\r
+           2    fsb.stringvalue          plio2_fsb:     34.\r
+           0    fsb.switch               plio2_fsb:     17.\r
+        2000    fsb.te_hold              plio2_fsb:     43.\r
+         200    fsb.threaded             plio2_fsb:     46.\r
+          30    fsb.title                plio2_fsb:     90.\r
+       40000    fsb.transmit_error       plio2_fsb:     39.\r
+        2000    fsb.update               plio2_fsb:     25.\r
+      100000    fsb.version_2            plio2_fsb:     20.\r
+       40000    fsb.write                plio2_fsb:     60.\r
+           4    fsb.xxx4                 plio2_fsb:     51.\r
+           2    fsb.xxx5                 plio2_fsb:     52.\r
+           1    fsb.xxx6                 plio2_fsb:     53.\r
+      400000    fsb.zot                  plio2_fsb:     19.\r
+      400000    fsb.zot1                 plio2_fsb:     97.\r
+      200000    fsb.zot2                 plio2_fsb:     98.\r
+         442    fsb_size                 plio2_fsb:     14.\r
+       11033    ftn_get_area_ptr         pl1_operators_:    1335, 6009, 6988, 7413, 7484.\r
+       10767    ftn_inquire_access       pl1_operators_:    5924, 5971.\r
+       10775    ftn_inquire_blank        pl1_operators_:    5931, 5975.\r
+          54    ftn_inquire_data.access  pl1_operators_:    5971,\r
+                                         fortran_inquire_data:      11.\r
+          61    ftn_inquire_data.blank   pl1_operators_:    5975,\r
+                                         fortran_inquire_data:      14.\r
+         100    ftn_inquire_data.direct  pl1_operators_:    5985,\r
+                                         fortran_inquire_data:      24.\r
+          63    ftn_inquire_data.exist   pl1_operators_:    5995,\r
+                                         fortran_inquire_data:      15.\r
+           2    ftn_inquire_data.filename      pl1_operators_:    5957,\r
+                                               fortran_inquire_data:      10.\r
+          56    ftn_inquire_data.form    pl1_operators_:    5973,\r
+                                         fortran_inquire_data:      12.\r
+          73    ftn_inquire_data.formatted     pl1_operators_:    5981,\r
+                                               fortran_inquire_data:      21.\r
+          67    ftn_inquire_data.name    pl1_operators_:    5977,\r
+                                         fortran_inquire_data:      19.\r
+          66    ftn_inquire_data.named   pl1_operators_:    6001,\r
+                                         fortran_inquire_data:      18.\r
+          77    ftn_inquire_data.nextrec       pl1_operators_:    6003,\r
+                                               fortran_inquire_data:      23.\r
+          65    ftn_inquire_data.number  pl1_operators_:    5999,\r
+                                         fortran_inquire_data:      17.\r
+          64    ftn_inquire_data.opened  pl1_operators_:    5997,\r
+                                         fortran_inquire_data:      16.\r
+          60    ftn_inquire_data.recl    pl1_operators_:    5993,\r
+                                         fortran_inquire_data:      13.\r
+          71    ftn_inquire_data.sequential    pl1_operators_:    5979,\r
+                                               fortran_inquire_data:      20.\r
+           0    ftn_inquire_data.specified     pl1_operators_:    5948,\r
+                                               fortran_inquire_data:       8.\r
+          75    ftn_inquire_data.unformatted   pl1_operators_:    5983,\r
+                                               fortran_inquire_data:      22.\r
+           1    ftn_inquire_data.unit    pl1_operators_:    5961,\r
+                                         fortran_inquire_data:       9.\r
+       11014    ftn_inquire_direct       pl1_operators_:    5944, 5985.\r
+       10722    ftn_inquire_element      pl1_operators_:    1335, 5916, 6988, 7413, 7484.\r
+       11021    ftn_inquire_exist        pl1_operators_:    5935, 5995.\r
+       10761    ftn_inquire_filename     pl1_operators_:    5922, 5954.\r
+       10772    ftn_inquire_form         pl1_operators_:    5925, 5973.\r
+       11006    ftn_inquire_formatted    pl1_operators_:    5941, 5981.\r
+       10756    ftn_inquire_indicators   pl1_operators_:    5918, 5947.\r
+       11000    ftn_inquire_name         pl1_operators_:    5939, 5977.\r
+       11027    ftn_inquire_named        pl1_operators_:    5938, 6001.\r
+       11031    ftn_inquire_nextrec      pl1_operators_:    5943, 6003.\r
+       10760    ftn_inquire_noop         pl1_operators_:    5919, 5920, 5921, 5923, 5927, 5928, 5929, 5930, 5933, 5934, 5951.\r
+       11025    ftn_inquire_number       pl1_operators_:    5937, 5999.\r
+       11023    ftn_inquire_opened       pl1_operators_:    5936, 5997.\r
+       11017    ftn_inquire_recl         pl1_operators_:    5926, 5993.\r
+       11003    ftn_inquire_sequential   pl1_operators_:    5940, 5979.\r
+       11011    ftn_inquire_unformatted  pl1_operators_:    5942, 5983.\r
+       10765    ftn_inquire_unit         pl1_operators_:    5932, 5960.\r
+       10660    ftn_open_access          pl1_operators_:    5847, 5882.\r
+       10630    ftn_open_attach_desc     pl1_operators_:    5844, 5876.\r
+       10712    ftn_open_binary          pl1_operators_:    5850, 5898.\r
+       10700    ftn_open_blank           pl1_operators_:    5854, 5886.\r
+       10716    ftn_open_carriage        pl1_operators_:    5852, 5902.\r
+       10720    ftn_open_defer           pl1_operators_:    5853, 5904.\r
+       10567    ftn_open_element         pl1_operators_:    1335, 5839, 6988, 7413, 7484.\r
+       10640    ftn_open_filename        pl1_operators_:    5845, 5878.\r
+       10670    ftn_open_form            pl1_operators_:    5848, 5884.\r
+       10606    ftn_open_indicators      pl1_operators_:    5841, 5856.\r
+       10620    ftn_open_io_switch       pl1_operators_:    5843, 5874.\r
+       10710    ftn_open_max_rec_len     pl1_operators_:    5849, 5888.\r
+       10650    ftn_open_mode            pl1_operators_:    5846, 5880.\r
+       10714    ftn_open_prompt          pl1_operators_:    5851, 5900.\r
+       10610    ftn_open_status          pl1_operators_:    5842, 5872.\r
+       10541    ft_fast_call             pl1_operators_:    5786, 5813, 5828, 6014.\r
+       10537    ft_fast_read_or_write    pl1_operators_:    5767, 5783.\r
+       10556    ft_fast_xmit             pl1_operators_:    5809.\r
+       10520    ft_io                    pl1_operators_:    5766, 5820.\r
+       10525    ft_io1                   pl1_operators_:    5772, 6012.\r
+          34    ft_ps.data_words         fortran_ps:    14.\r
+          27    ft_ps.element_count      fortran_ps:    12.\r
+          26    ft_ps.element_desc       fortran_ps:    11.\r
+          30    ft_ps.element_ptr        fortran_ps:    13.\r
+          26    ft_ps.ele_desc_and_count       fortran_ps:    10.\r
+          24    ft_ps.job_bits           pl1_operators_:    5770,\r
+                                         fortran_ps:     9.\r
+          10    ft_ps.unit               pl1_operators_:    5769,\r
+                                         fortran_ps:     8.\r
+       10320    fu_1                     pl1_operators_:    5491, 5495, 5498.\r
+        2113    fx1_to_fl2               pl1_operators_:    1335.\r
+        2110    fx1_to_fx2               pl1_operators_:    1335.\r
+        2114    fx2_to_fl2               pl1_operators_:    1335.\r
+        3464    gb_0                     pl1_operators_:    1689, 1693, 1697, 1702.\r
+        3466    gb_1                     pl1_operators_:    1681, 1705.\r
+        3430    gc_0                     pl1_operators_:    1635, 1639, 1643, 1648.\r
+        3433    gc_1                     pl1_operators_:    1627, 1652.\r
+        3455    get_bits                 pl1_operators_:    1335, 1687, 6988, 7413, 7484.\r
+        3463    get_bits_aligned         pl1_operators_:    1335, 1699, 6988, 7413, 7484.\r
+        3457    get_bits_co              pl1_operators_:    1335, 1691, 6988, 7413, 7484.\r
+        3461    get_bits_ho              pl1_operators_:    1335, 1695, 6988, 7413, 7484.\r
+        3421    get_chars                pl1_operators_:    1335, 1633, 6988, 7413, 7484.\r
+        3427    get_chars_aligned        pl1_operators_:    1335, 1645, 6988, 7413, 7484.\r
+        3423    get_chars_co             pl1_operators_:    1335, 1637, 6988, 7413, 7484.\r
+        3425    get_chars_ho             pl1_operators_:    1335, 1641, 6988, 7413, 7484.\r
+       10357    get_edit                 pl1_operators_:    1335, 5554, 6988, 7413, 7484.\r
+       10365    get_edit_aligned         pl1_operators_:    1335, 5566, 6988, 7413, 7484.\r
+       10361    get_edit_co              pl1_operators_:    1335, 5558, 6988, 7413, 7484.\r
+                get_edit_eis             pl1_operators_:    1335, 6988, 7413, 7484.\r
+       10363    get_edit_ho              pl1_operators_:    1335, 5562, 6988, 7413, 7484.\r
+                get_io_area_ptr          pl1_operators_:    5683.\r
+       10346    get_list                 pl1_operators_:    1335, 5533, 6988, 7413, 7484.\r
+       10354    get_list_aligned         pl1_operators_:    1335, 5545, 6988, 7413, 7484.\r
+       10350    get_list_co              pl1_operators_:    1335, 5537, 6988, 7413, 7484.\r
+       10344    get_list_eis             pl1_operators_:    1335, 5529, 6988, 7413, 7484.\r
+       10352    get_list_ho              pl1_operators_:    1335, 5541, 6988, 7413, 7484.\r
+       11362    get_math_entry           pl1_operators_:    1335, 6314, 7413.\r
+       11331    get_our_lp               pl1_operators_:     219, 3444, 4653, 5288, 5649, 5778, 6210, 6215, 6260, 6282, 6315,\r
+                                                            6389, 6412, 6426, 6533, 7183.\r
+                get_prep_                pl1_operators_:    5671.\r
+        6176    get_qhat                 pl1_operators_:    3892, 3989.\r
+       10507    get_terminate            pl1_operators_:    1335, 5687, 6988, 7413, 7484.\r
+                get_terminate_           pl1_operators_:    5661.\r
+                get_value_list_          pl1_operators_:    5664.\r
+       10366    ge_1                     pl1_operators_:    5556, 5560, 5564, 5569.\r
+       10355    gl_1                     pl1_operators_:    5535, 5539, 5543, 5548.\r
+        6234    got_qhat                 pl1_operators_:    3906, 3920, 3924, 3926.\r
+        6222    got_rhat                 pl1_operators_:    3908, 3915.\r
+        6466    hard_shift               pl1_operators_:    4091, 4106.\r
+       10167    have_fort_cleanup        pl1_operators_:    5349, 5357.\r
+       10136    have_on                  pl1_operators_:    5313, 5320.\r
+                hcs_                     pl1_operators_:    6537.\r
+       12446    hfp_almost_one           pl1_operators_:    6958, 7001, 7113, 7271, 7303.\r
+                hfp_arc_cosine_degrees_  pl1_operators_:    6988, 7484.\r
+                hfp_arc_cosine_radians_  pl1_operators_:    6988, 7484.\r
+                hfp_arc_sine_degrees_    pl1_operators_:    6988, 7484.\r
+                hfp_arc_sine_radians_    pl1_operators_:    6988, 7484.\r
+                hfp_arc_tangent_degrees_       pl1_operators_:    6988, 7484.\r
+                hfp_arc_tangent_degrees_2_     pl1_operators_:    6988, 7484.\r
+                hfp_arc_tangent_radians_       pl1_operators_:    6988, 7484.\r
+                hfp_arc_tangent_radians_2_     pl1_operators_:    6988, 7484.\r
+       12520    hfp_bitno_to_charno_table      pl1_operators_:    6988.\r
+       14146    hfp_bit_mask             pl1_operators_:    6988.\r
+       14606    hfp_blanks               pl1_operators_:    6988.\r
+                hfp_cabs                 pl1_operators_:    6988, 7484.\r
+                hfp_ccos                 pl1_operators_:    6988, 7484.\r
+       15660    hfp_ceil_fl              pl1_operators_:    6988, 6999, 7484.\r
+                hfp_cexp                 pl1_operators_:    6988, 7484.\r
+                hfp_clog                 pl1_operators_:    6988, 7484.\r
+                hfp_cmpx_p_cmpx          pl1_operators_:    6988, 7484.\r
+                hfp_cosh                 pl1_operators_:    6988, 7484.\r
+                hfp_cosine_degrees_      pl1_operators_:    6988, 7484.\r
+                hfp_cosine_radians_      pl1_operators_:    6988, 7484.\r
+       14004    hfp_co_to_bo             pl1_operators_:    6988.\r
+                hfp_csin                 pl1_operators_:    6988, 7484.\r
+       13764    hfp_csl_vector           pl1_operators_:    6988.\r
+                hfp_csqrt                pl1_operators_:    6988, 7484.\r
+                hfp_dcosh                pl1_operators_:    6988, 7484.\r
+                hfp_dmod                 pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_cosine_degrees_       pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_cosine_radians_       pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_sine_degrees_   pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_sine_radians_   pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_tan_degrees_    pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_tan_degrees_2_  pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_tan_radians_    pl1_operators_:    6988, 7484.\r
+                hfp_double_arc_tan_radians_2_  pl1_operators_:    6988, 7484.\r
+                hfp_double_cosine_degrees_     pl1_operators_:    6988, 7484.\r
+                hfp_double_cosine_radians_     pl1_operators_:    6988, 7484.\r
+                hfp_double_exponential_  pl1_operators_:    6988, 7484.\r
+                hfp_double_log_base_10_  pl1_operators_:    6988, 7484.\r
+                hfp_double_log_base_2_   pl1_operators_:    6988, 7484.\r
+                hfp_double_log_base_e_   pl1_operators_:    6988, 7484.\r
+                hfp_double_power_double_       pl1_operators_:    6988, 7484.\r
+                hfp_double_power_integer_      pl1_operators_:    6988, 7484.\r
+                hfp_double_power_single_       pl1_operators_:    6988, 7484.\r
+                hfp_double_sine_degrees_       pl1_operators_:    6988, 7484.\r
+                hfp_double_sine_radians_       pl1_operators_:    6988, 7484.\r
+                hfp_double_square_root_  pl1_operators_:    6988, 7484.\r
+                hfp_double_tangent_degrees_    pl1_operators_:    6988, 7484.\r
+                hfp_double_tangent_radians_    pl1_operators_:    6988, 7484.\r
+                hfp_dsinh                pl1_operators_:    6988, 7484.\r
+                hfp_dtanh                pl1_operators_:    6988, 7484.\r
+       15213    hfp_entry_operators      pl1_operators_:    6988.\r
+                hfp_exponential_         pl1_operators_:    6988, 7484.\r
+       15672    hfp_fl2_to_fx1           pl1_operators_:    6988, 7021, 7484.\r
+       15672    hfp_fl2_to_fx2           pl1_operators_:    6988, 7022, 7484.\r
+       15703    hfp_fl2_to_fxscaled      pl1_operators_:    6988, 7070, 7484.\r
+       15733    hfp_floor_fl             pl1_operators_:    6988, 7106, 7484.\r
+       15745    hfp_fort_dmod            pl1_operators_:    6988, 7129, 7484.\r
+       16006    hfp_fort_math_names      pl1_operators_:     217, 7184, 7188.\r
+       15764    hfp_fort_mdfl1           pl1_operators_:    6988, 7156, 7484.\r
+       14633    hfp_fx1_to_fl2           pl1_operators_:    6988.\r
+       14630    hfp_fx1_to_fx2           pl1_operators_:    6988.\r
+       14634    hfp_fx2_to_fl2           pl1_operators_:    6988.\r
+       16003    hfp_get_math_entry       pl1_operators_:    6988, 7182, 7484.\r
+       14010    hfp_ho_to_bo             pl1_operators_:    6988.\r
+                hfp_integer_power_double_      pl1_operators_:    6988, 7484.\r
+                hfp_integer_power_single_      pl1_operators_:    6988, 7484.\r
+                hfp_log_base_10_         pl1_operators_:    6988, 7484.\r
+                hfp_log_base_2_          pl1_operators_:    6988, 7484.\r
+                hfp_log_base_e_          pl1_operators_:    6988, 7484.\r
+          10    HFP_mask                 pl1_operators_:     303, 6475, 6482, 7446, 7453.\r
+       14366    hfp_mask_bit             pl1_operators_:    6988.\r
+       14500    hfp_max_single_value     pl1_operators_:    6988.\r
+       16104    hfp_mdfl1                pl1_operators_:    6988, 7261, 7484.\r
+       16124    hfp_mdfl1a               pl1_operators_:    7263, 7279.\r
+       16126    hfp_mdfl2                pl1_operators_:    6988, 7293, 7484.\r
+       16144    hfp_mdfl2a               pl1_operators_:    7296, 7309.\r
+       14711    hfp_mod2_tab             pl1_operators_:    6988.\r
+       14713    hfp_mod4_tab             pl1_operators_:    6988.\r
+       16146    hfp_nearest_integer      pl1_operators_:    6988, 7322, 7484.\r
+       16160    hfp_nearest_whole_number       pl1_operators_:    6988, 7344, 7484.\r
+       14256    hfp_ones                 pl1_operators_:    6988.\r
+       14146    hfp_operator_table       pl1_operators_:     220, 6495, 6988, 7466.\r
+       14717    hfp_op_vector            pl1_operators_:    6988.\r
+       14626    hfp_ptr_mask             pl1_operators_:    6988.\r
+       14640    hfp_reset_stack          pl1_operators_:    6988.\r
+       16173    hfp_rfb1_to_cflb1        pl1_operators_:    7367.\r
+       16175    hfp_rfb2_to_cflb1        pl1_operators_:    6988, 7380, 7484.\r
+       14660    hfp_r_e_as               pl1_operators_:    6988.\r
+       14675    hfp_r_ge_a               pl1_operators_:    6988.\r
+       14672    hfp_r_ge_s               pl1_operators_:    6988.\r
+       14651    hfp_r_g_a                pl1_operators_:    6988.\r
+       14645    hfp_r_g_s                pl1_operators_:    6988.\r
+       14666    hfp_r_le_a               pl1_operators_:    6988.\r
+       14700    hfp_r_le_s               pl1_operators_:    6988.\r
+       14642    hfp_r_l_a                pl1_operators_:    6988.\r
+       14655    hfp_r_l_s                pl1_operators_:    6988.\r
+       14663    hfp_r_ne_as              pl1_operators_:    6988.\r
+       14706    hfp_set_stack            pl1_operators_:    6988.\r
+                hfp_sine_degrees_        pl1_operators_:    6988, 7484.\r
+                hfp_sine_radians_        pl1_operators_:    6988, 7484.\r
+                hfp_single_power_integer_      pl1_operators_:    6988, 7484.\r
+                hfp_single_power_single_       pl1_operators_:    6988, 7484.\r
+                hfp_sinh                 pl1_operators_:    6988, 7484.\r
+                hfp_square_root_         pl1_operators_:    6988, 7484.\r
+       14104    hfp_store_a6_ho          pl1_operators_:    6988.\r
+       14012    hfp_store_a9_co          pl1_operators_:    6988.\r
+       14056    hfp_store_a9_ho          pl1_operators_:    6988.\r
+       14126    hfp_store_q6_ho          pl1_operators_:    6988.\r
+       14036    hfp_store_q9_co          pl1_operators_:    6988.\r
+       14072    hfp_store_q9_ho          pl1_operators_:    6988.\r
+                hfp_tangent_degrees_     pl1_operators_:    6988, 7484.\r
+                hfp_tangent_radians_     pl1_operators_:    6988, 7484.\r
+                hfp_tanh                 pl1_operators_:    6988, 7484.\r
+       12763    hfp_tct_byte_0           pl1_operators_:    6988.\r
+       13163    hfp_tct_byte_1           pl1_operators_:    6988.\r
+       13363    hfp_tct_byte_2           pl1_operators_:    6988.\r
+       13563    hfp_tct_byte_3           pl1_operators_:    6988.\r
+       12753    hfp_tct_octal_040        pl1_operators_:    6988.\r
+       12747    hfp_tct_octal_060        pl1_operators_:    6988.\r
+       14704    hfp_true                 pl1_operators_:    6988.\r
+       16204    hfp_trunc_fl             pl1_operators_:    6988, 7398, 7484.\r
+       13763    hfp_VLA_words_per_seg_   pl1_operators_:    6988.\r
+        1270    ho_to_bo                 pl1_operators_:    1335, 1532, 1560, 1611, 1642, 1696, 1752, 1774, 1796, 1820, 1851,\r
+                                                            1874, 1917, 1943, 2031, 2070, 2103, 2127, 2156, 2184, 2397, 2421,\r
+                                                            2467, 2496, 2522, 2564, 2723, 2768, 2800, 2955, 3000, 3043, 3065,\r
+                                                            3315, 3355, 5517, 5542, 5563, 5607, 5628.\r
+                iabs_                    pl1_operators_:    6359, 7227.\r
+           4    ic                       eis_bits:       8.\r
+          20    id                       eis_bits:       3.\r
+                idim_                    pl1_operators_:    6362, 7230.\r
+                idnint_                  pl1_operators_:    6375, 7243.\r
+                ilr_                     pl1_operators_:    6379, 7247.\r
+                ils_                     pl1_operators_:    6380, 7248.\r
+                index_                   pl1_operators_:    6352, 7220.\r
+        5010    index_after_bs           pl1_operators_:    1335, 2901, 6988, 7413, 7484.\r
+        5041    index_after_bs_1         pl1_operators_:    1335, 2931, 6988, 7413, 7484.\r
+        4720    index_after_cs           pl1_operators_:    1335, 2826, 6988, 7413, 7484.\r
+        5004    index_before_bs          pl1_operators_:    1335, 2895, 6988, 7413, 7484.\r
+        5035    index_before_bs_1        pl1_operators_:    1335, 2925, 6988, 7413, 7484.\r
+        4714    index_before_cs          pl1_operators_:    1335, 2820, 6988, 7413, 7484.\r
+        4611    index_bits               pl1_operators_:    1335, 2714, 6988, 7413, 7484.\r
+        4617    index_bits_aligned       pl1_operators_:    1335, 2726, 6988, 7413, 7484.\r
+        4613    index_bits_co            pl1_operators_:    1335, 2718, 6988, 7413, 7484.\r
+        4606    index_bits_eis           pl1_operators_:    1335, 2709, 6988, 7413, 7484.\r
+        4615    index_bits_ho            pl1_operators_:    1335, 2722, 6988, 7413, 7484.\r
+        4673    index_bs_1               pl1_operators_:    1335, 2791, 6988, 7413, 7484.\r
+        4701    index_bs_1_aligned       pl1_operators_:    1335, 2803, 6988, 7413, 7484.\r
+        4675    index_bs_1_co            pl1_operators_:    1335, 2795, 6988, 7413, 7484.\r
+        4670    index_bs_1_eis           pl1_operators_:    1335, 2786, 6988, 7413, 7484.\r
+        4677    index_bs_1_ho            pl1_operators_:    1335, 2799, 6988, 7413, 7484.\r
+        4453    index_chars              pl1_operators_:    1335, 2555, 6988, 7413, 7484.\r
+        4461    index_chars_aligned      pl1_operators_:    1335, 2567, 6988, 7413, 7484.\r
+        4455    index_chars_co           pl1_operators_:    1335, 2559, 6988, 7413, 7484.\r
+        4464    index_chars_eis          pl1_operators_:    1335, 2575, 6988, 7413, 7484.\r
+        4457    index_chars_ho           pl1_operators_:    1335, 2563, 6988, 7413, 7484.\r
+        4650    index_cs_1               pl1_operators_:    1335, 2759, 6988, 7413, 7484.\r
+        4656    index_cs_1_aligned       pl1_operators_:    1335, 2771, 6988, 7413, 7484.\r
+        4652    index_cs_1_co            pl1_operators_:    1335, 2763, 6988, 7413, 7484.\r
+        4645    index_cs_1_eis           pl1_operators_:    1335, 2755, 6988, 7413, 7484.\r
+        4654    index_cs_1_ho            pl1_operators_:    1335, 2767, 6988, 7413, 7484.\r
+       12076    init_stack_join          pl1_operators_:    6771, 6942, 6944.\r
+       10267    init_unit                pl1_operators_:    5443, 5454.\r
+                integer_power_double_    pl1_operators_:    1335, 7413.\r
+                integer_power_integer_   pl1_operators_:    1335, 6988, 7413, 7484.\r
+                integer_power_single_    pl1_operators_:    1335, 7413.\r
+       12127    int_entry                pl1_operators_:    1335, 6899, 6988, 7413, 7484.\r
+       12145    int_entry_desc           pl1_operators_:    1335, 6899, 6988, 7413, 7484.\r
+          14    invert                   pl1_operators_:    1900, 2005,\r
+                                         eis_bits:      28.\r
+          12    iocb.actual_iocb_ptr     iocbx:         20.\r
+          16    iocb.attach_data_ptr     iocbx:         22.\r
+          14    iocb.attach_descrip_ptr  iocbx:         21.\r
+          36    iocb.close               iocbx:         28.\r
+         132    iocb.close_file          iocbx:         43.\r
+          66    iocb.control             iocbx:         34.\r
+         106    iocb.delete_record       iocbx:         38.\r
+         136    iocb.detach              iocbx:         44.\r
+          26    iocb.detach_iocb         iocbx:         26.\r
+          24    iocb.event_channel       iocbx:         25.\r
+          46    iocb.get_chars           iocbx:         30.\r
+          42    iocb.get_line            iocbx:         29.\r
+         154    iocb.hash_chain_ptr      iocbx:         50.\r
+         142    iocb.ios_compatibility   iocbx:         45.\r
+          56    iocb.modes               iocbx:         32.\r
+           1    iocb.name                iocbx:         19.\r
+          32    iocb.open                iocbx:         27.\r
+          22    iocb.open_data_ptr       iocbx:         24.\r
+          20    iocb.open_descrip_ptr    iocbx:         23.\r
+         126    iocb.open_file           iocbx:         42.\r
+          62    iocb.position            iocbx:         33.\r
+          52    iocb.put_chars           iocbx:         31.\r
+         116    iocb.read_key            iocbx:         40.\r
+         122    iocb.read_length         iocbx:         41.\r
+          72    iocb.read_record         iocbx:         35.\r
+         102    iocb.rewrite_record      iocbx:         37.\r
+         112    iocb.seek_key            iocbx:         39.\r
+         150    iocb.syn_brother         iocbx:         48.\r
+         146    iocb.syn_father          iocbx:         47.\r
+         144    iocb.syn_inhibits        iocbx:         46.\r
+         152    iocb.syn_son             iocbx:         49.\r
+           0    iocb.version             iocbx:         18.\r
+          76    iocb.write_record        iocbx:         36.\r
+         156    iocb_size                iocbx:         15.\r
+       11335    io_signal                pl1_operators_:    1335, 6289, 6988, 7413, 7484.\r
+                irl_                     pl1_operators_:    6381, 7249.\r
+                irs_                     pl1_operators_:    6382, 7250.\r
+                isign_                   pl1_operators_:    6365, 7233.\r
+        4620    ixb                      pl1_operators_:    2716, 2720, 2724, 2729.\r
+        4625    ixb1                     pl1_operators_:    2734, 2815.\r
+        4624    ixb2                     pl1_operators_:    2712, 2733.\r
+        4723    ixba                     pl1_operators_:    2824, 2830.\r
+        5013    ixba_bs                  pl1_operators_:    2899, 2905.\r
+        5014    ixba_bs1                 pl1_operators_:    2906, 2940.\r
+        5044    ixba_bs2                 pl1_operators_:    2929, 2935.\r
+        4743    ixba_bs_fail             pl1_operators_:    2851, 2913.\r
+        5016    ixba_bs_loop             pl1_operators_:    2908, 2919.\r
+        4740    ixba_fail                pl1_operators_:    2838, 2846, 2870, 2875, 2878.\r
+        4750    ixba_long                pl1_operators_:    2832, 2862.\r
+        4752    ixba_loop                pl1_operators_:    2865, 2885.\r
+        4702    ixbs1_a                  pl1_operators_:    2793, 2797, 2801, 2806.\r
+        4706    ixbs1_b                  pl1_operators_:    2789, 2810.\r
+        4627    ixbs_loop                pl1_operators_:    2736, 2747.\r
+        4462    ixc                      pl1_operators_:    2557, 2561, 2565, 2570.\r
+        4473    ixc1                     pl1_operators_:    2583, 2782.\r
+        4464    ixc2                     pl1_operators_:    2576.\r
+        4657    ixcs1_a                  pl1_operators_:    2761, 2765, 2769, 2774.\r
+        4663    ixcs1_b                  pl1_operators_:    2758, 2778.\r
+        4507    ixcs_long                pl1_operators_:    2581, 2602.\r
+        4513    ixcs_loop                pl1_operators_:    2607, 2627.\r
+        4500    ixc_ret_ok               pl1_operators_:    2588, 2660.\r
+        4535    ixc_ret_ok_1             pl1_operators_:    2624, 2630.\r
+        4540    ix_rev_chars             pl1_operators_:    1335, 2638, 6988, 7413, 7484.\r
+        4555    ix_rev_long              pl1_operators_:    2645, 2667.\r
+        4560    ix_rev_loop              pl1_operators_:    2671, 2704.\r
+        4602    ix_rev_more              pl1_operators_:    2689, 2700.\r
+       12450    k71b25                   pl1_operators_:    4325, 4328, 4697, 4701, 6960.\r
+        6417    l1                       pl1_operators_:    4055, 4062.\r
+        6340    l2                       pl1_operators_:    4002, 4064.\r
+        6210    l3h                      pl1_operators_:    3899, 3904.\r
+          70    label_var                pl1_operators_:     272, 3573, 3575, 3576.\r
+        5552    leave_begin_block        pl1_operators_:    1335, 3424, 6988, 7413, 7484.\r
+                len_                     pl1_operators_:    6370, 7238.\r
+          75    lg2                      pl1_operators_:     277, 2212, 2231, 2244, 2603, 2605, 2620, 2668, 2669, 2693, 2734,\r
+                                                            2740, 2742, 2863, 2869, 2877, 2881, 2893, 2906, 2912, 2914, 3075,\r
+                                                            3083, 3094, 3138, 3154.\r
+          44    linkage_ptr              pl1_operators_:     247, 3491, 3511, 5275, 5364, 6771, 6901, 6942, 6944, 7470, 7474.\r
+                logarithm_               pl1_operators_:    1335, 6988, 7413, 7484.\r
+        3614    logical                  pl1_operators_:    1759, 1781, 1803, 1859, 1882.\r
+                log_base_10_             pl1_operators_:    1335, 7413.\r
+                log_base_2_              pl1_operators_:    1335, 7413.\r
+                log_base_e_              pl1_operators_:    1335, 7413.\r
+        3624    log_exit                 pl1_operators_:    1890, 2008, 2116, 2140, 2275, 2287, 2301, 2313, 2968, 2977, 3013,\r
+                                                            3023, 3074, 3092, 3694.\r
+        7636    longbs_to_bs18           pl1_operators_:    1335, 4967, 6988, 7413, 7484.\r
+        7620    longbs_to_fx2            pl1_operators_:    1335, 4947, 6988, 7413, 7484.\r
+        7634    longbs_to_fx2_short      pl1_operators_:    4954, 4960.\r
+       24751    long_profile             pl1_operators_:    1335, 6988, 7413, 7484, 7508.\r
+           1    long_profile_entry.count       pl1_operators_:    7533,\r
+                                               long_profile:        35.\r
+           0    long_profile_entry.map   long_profile:        32.\r
+           3    long_profile_entry.pf    pl1_operators_:    7539,\r
+                                         long_profile:        37.\r
+           0    long_profile_entry.skip  long_profile:        33.\r
+           2    long_profile_entry.vcpu  pl1_operators_:    7536,\r
+                                         long_profile:        36.\r
+           4    long_profile_entry_size  long_profile:        30.\r
+          11    long_profile_header.control    long_profile:        24.\r
+           5    long_profile_header.dummy      long_profile:        22.\r
+           3    long_profile_header.last_offset      pl1_operators_:    7532, 7546,\r
+                                                     long_profile:        20.\r
+           2    long_profile_header.last_pf    pl1_operators_:    7538, 7544,\r
+                                               long_profile:        19.\r
+           0    long_profile_header.last_vcpu  pl1_operators_:    7535, 7542,\r
+                                               long_profile:        18.\r
+           4    long_profile_header.nentries   long_profile:        21.\r
+          15    long_profile_header_size       long_profile:        15.\r
+          74    lv                       pl1_operators_:     275, 4480, 4486, 4487, 4494, 4531, 4537, 4538, 4544, 4545, 4558,\r
+                                                            4624, 4630, 4640, 4642, 4643, 4981, 4983.\r
+        1400    M0.5H                    pl1_operators_:     305, 7009, 7116, 7137, 7164, 7269, 7301, 7329, 7352, 7355, 7407.\r
+        3700    M2.0H                    pl1_operators_:     304, 7007, 7029, 7114, 7139, 7166, 7272, 7304, 7330, 7353, 7405.\r
+        5052    make_bit_table           pl1_operators_:    1335, 2946, 6988, 7413, 7484.\r
+        5060    make_bit_table_al        pl1_operators_:    1335, 2958, 6988, 7413, 7484.\r
+        5054    make_bit_table_co        pl1_operators_:    1335, 2950, 6988, 7413, 7484.\r
+        5056    make_bit_table_ho        pl1_operators_:    1335, 2954, 6988, 7413, 7484.\r
+        5666    make_label_var           pl1_operators_:    1335, 3572, 6988, 7413, 7484.\r
+       10241    make_unit                pl1_operators_:    5419, 5456.\r
+        1646    mask_bit                 pl1_operators_:    1335, 3009, 4036, 4477, 4515, 4527, 4819, 4821, 4831, 4833, 5223.\r
+       11705    mask_bit_one             pl1_operators_:    1388, 1445, 1495, 1579, 1985, 4663, 5210, 5420, 6062, 6233, 6267,\r
+                                                            6292, 6518, 6540, 6603, 7511.\r
+        1760    max_single_value         pl1_operators_:    1335, 3837, 3867, 3897.\r
+        5061    mbt                      pl1_operators_:    2948, 2952, 2956, 2961.\r
+        5072    mbt_1                    pl1_operators_:    2970, 2980, 2983.\r
+        3613    mb_1                     pl1_operators_:    1867, 1871, 1875, 1880.\r
+        3642    mc_1                     pl1_operators_:    1910, 1914, 1918, 1923.\r
+        7314    mdfl1                    pl1_operators_:    1335, 4674, 7413.\r
+        7333    mdfl1a                   pl1_operators_:    4675, 4689.\r
+        7335    mdfl2                    pl1_operators_:    1335, 4692, 7413.\r
+        7352    mdfl2a                   pl1_operators_:    4694, 4705.\r
+        5701    mdfx1                    pl1_operators_:    1335, 3594, 6988, 7413, 7484.\r
+        5714    mdfx1a                   pl1_operators_:    3601, 3603, 3605.\r
+        5716    mdfx2                    pl1_operators_:    1335, 3611, 6988, 7413, 7484.\r
+        5742    mdfx3                    pl1_operators_:    1335, 3639, 6988, 7413, 7484.\r
+        5720    mdfx4                    pl1_operators_:    1335, 3617, 6988, 7413, 7484.\r
+        5734    mdfx4a                   pl1_operators_:    3625, 3629, 3647, 3651.\r
+       25026    missing_error            pl1_operators_:    7554, 7557.\r
+          27    missing_error_length     pl1_operators_:    7555, 7559.\r
+                mod                      pl1_operators_:    1335, 6988, 7413, 7484.\r
+        2171    mod2_tab                 pl1_operators_:    1335.\r
+        2173    mod4_tab                 pl1_operators_:    1335.\r
+                mod_                     pl1_operators_:    6377, 7245.\r
+           3    move                     pl1_operators_:    1615, 1705, 1831, 1896, 2085, 2137, 2194, 2255, 2280, 2347, 2531,\r
+                                                            3337, 4951, 4970,\r
+                                         eis_bits:      22.\r
+        3604    move_bits                pl1_operators_:    1335, 1865, 6988, 7413, 7484.\r
+        3612    move_bits_aligned        pl1_operators_:    1335, 1877, 6988, 7413, 7484.\r
+        3606    move_bits_co             pl1_operators_:    1335, 1869, 6988, 7413, 7484.\r
+        3610    move_bits_ho             pl1_operators_:    1335, 1873, 6988, 7413, 7484.\r
+        3633    move_chars               pl1_operators_:    1335, 1908, 6988, 7413, 7484.\r
+        3641    move_chars_aligned       pl1_operators_:    1335, 1920, 6988, 7413, 7484.\r
+        3635    move_chars_co            pl1_operators_:    1335, 1912, 6988, 7413, 7484.\r
+        3637    move_chars_ho            pl1_operators_:    1335, 1916, 6988, 7413, 7484.\r
+        5660    move_label_var           pl1_operators_:    1335, 3560, 6988, 7413, 7484.\r
+        3602    move_not_1               pl1_operators_:    1844, 1848, 1852, 1857.\r
+        3573    move_not_bits            pl1_operators_:    1335, 1842, 6988, 7413, 7484.\r
+        3601    move_not_bits_aligned    pl1_operators_:    1335, 1854, 6988, 7413, 7484.\r
+        3575    move_not_bits_co         pl1_operators_:    1335, 1846, 6988, 7413, 7484.\r
+        3577    move_not_bits_ho         pl1_operators_:    1335, 1850, 6988, 7413, 7484.\r
+                mpcdec                   pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6734    mpcfl1_1                 pl1_operators_:    1335, 4354, 6988, 7413, 7484.\r
+        6735    mpcfl1_2                 pl1_operators_:    1335, 4356, 6988, 7413, 7484.\r
+        7035    mpfx2                    pl1_operators_:    1335, 4462, 6988, 7413, 7484.\r
+        7104    mpfx3                    pl1_operators_:    1335, 4505, 6988, 7413, 7484.\r
+       10044    mpy_overflow_check       pl1_operators_:    1335, 5231, 6988, 7413, 7484.\r
+        7200    mult_overflow            pl1_operators_:    4484, 4493, 4535, 4542, 4555, 4557, 4566.\r
+          16    nand                     eis_bits:      25.\r
+        7607    nearest_integer          pl1_operators_:    1335, 4931, 7413.\r
+        7613    nearest_integer_negative       pl1_operators_:    4932, 4937.\r
+        7602    nearest_whole_negative   pl1_operators_:    4916, 4921.\r
+        7576    nearest_whole_number     pl1_operators_:    1335, 4915, 7413.\r
+                nint_                    pl1_operators_:    6374, 7242.\r
+        5002    nop_adq                  pl1_operators_:    2887, 2891, 2921.\r
+        4746    nop_adq_dl               pl1_operators_:    2840, 2856.\r
+        3626    nop_op                   pl1_operators_:    1880, 1896.\r
+           5    norm_shift               pl1_operators_:     290, 3873, 4000.\r
+        3632    not_op                   pl1_operators_:    1858, 1900.\r
+       12436    null                     pl1_operators_:    6024, 6025, 6041, 6123, 6173, 6195, 6242, 6942, 6944, 6952.\r
+       12443    nullo                    pl1_operators_:    6022, 6038, 6058, 6955.\r
+       12440    nullx                    pl1_operators_:    6056, 6953.\r
+       12442    null_pk                  pl1_operators_:    6040, 6070, 6954.\r
+          74    num                      pl1_operators_:     276, 3212, 3213, 3252, 3254, 4403, 4408, 4413, 4422, 4427, 4432.\r
+       11071    oe                       pl1_operators_:    6058, 6071.\r
+       11073    oe1                      pl1_operators_:    6060, 6077.\r
+       11066    offset_easy              pl1_operators_:    1335, 6053, 6988, 7413, 7484.\r
+       11102    offset_easy_pk           pl1_operators_:    1335, 6068, 6988, 7413, 7484.\r
+       11066    offset_hard              pl1_operators_:    1335, 6054, 6988, 7413, 7484.\r
+       11102    offset_hard_pk           pl1_operators_:    1335, 6069, 6988, 7413, 7484.\r
+       11531    old_sys_name             pl1_operators_:    6423, 6440.\r
+       12444    one                      pl1_operators_:    4874, 6956.\r
+        1536    ones                     pl1_operators_:    1335, 3020, 3187.\r
+       10126    on_1                     pl1_operators_:    5312, 5315.\r
+           2    on_unit.body             pl1_operators_:    5321, 5363, 5450,\r
+                                         on_unit:        5.\r
+           6    on_unit.file             pl1_operators_:    5440,\r
+                                         on_unit:        9.\r
+          10    on_unit.file_copy        pl1_operators_:    5436, 5438, 5439, 5496,\r
+                                         on_unit:       10.\r
+           5    on_unit.flags            pl1_operators_:    5325, 5369, 5446,\r
+                                         on_unit:        8.\r
+           0    on_unit.name             pl1_operators_:    5320, 5360, 5433, 5493,\r
+                                         on_unit:        4.\r
+           5    on_unit.next             pl1_operators_:    5314, 5318, 5350, 5355, 5430, 5491,\r
+                                         on_unit:        7.\r
+           4    on_unit.size             pl1_operators_:    5322, 5323, 5366, 5367, 5441, 5444, 5472,\r
+                                         on_unit:        6.\r
+                open_explicit_           pl1_operators_:    5669.\r
+       10513    open_file                pl1_operators_:    1335, 5699, 6988, 7413, 7484.\r
+        1426    operator_table           pl1_operators_:     221, 1335, 6453, 6771, 6899, 6901, 6905, 7567.\r
+        1426    optbl_abs                pl1_operators_:    7567, 7568.\r
+                op_alloc_                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                op_empty_                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                op_freen_                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                op_storage_              pl1_operators_:    6087.\r
+        2177    op_vector                pl1_operators_:    1335.\r
+           7    or                       pl1_operators_:    1898,\r
+                                         eis_bits:      24.\r
+        3630    ora_op                   pl1_operators_:    1780, 1898.\r
+        3537    or_1                     pl1_operators_:    1767, 1771, 1775, 1780.\r
+        3530    or_bits                  pl1_operators_:    1335, 1765, 6988, 7413, 7484.\r
+        3536    or_bits_aligned          pl1_operators_:    1335, 1777, 6988, 7413, 7484.\r
+        3532    or_bits_co               pl1_operators_:    1335, 1769, 6988, 7413, 7484.\r
+        3534    or_bits_ho               pl1_operators_:    1335, 1773, 6988, 7413, 7484.\r
+          15    overflow_length          pl1_operators_:    4029, 4042, 5239.\r
+        6402    overflow_name            pl1_operators_:    4028, 4039, 5237.\r
+      400000    P0.0H                    pl1_operators_:     306, 6477, 6484, 6988, 7023, 7280, 7382, 7386, 7448, 7455, 7484.\r
+         400    P0.5H                    pl1_operators_:     307, 6988, 7004, 7110, 7141, 7168, 7274, 7306, 7324, 7346, 7349,\r
+                                                            7383, 7402, 7484.\r
+        2040    P1.0H                    pl1_operators_:     308, 6476, 6483, 7447, 7454.\r
+        2100    P2.0H                    pl1_operators_:     309, 7002, 7025, 7108, 7135, 7162, 7267, 7299, 7325, 7347, 7400.\r
+        7663    packed_to_bp             pl1_operators_:    1335, 5002, 6988, 7413, 7484.\r
+       11237    pack_picture             pl1_operators_:    1335, 6214, 6988, 7413, 7484.\r
+                pack_picture_            pl1_operators_:    6216.\r
+        3506    pad_bits                 pl1_operators_:    1335, 1728, 6988, 7413, 7484.\r
+        3474    pad_chars                pl1_operators_:    1335, 1714, 6988, 7413, 7484.\r
+          54    page                     pl1_operators_:     252, 7519, 7520, 7537, 7543.\r
+       11474    pause_stop               pl1_operators_:    6395, 6400.\r
+       11512    pause_stop_names         pl1_operators_:    6413, 6416.\r
+       10342    pd_1                     pl1_operators_:    5510, 5514, 5518, 5523.\r
+       10431    pe_1                     pl1_operators_:    5621, 5625, 5629, 5634.\r
+       11241    picture_common           pl1_operators_:    6212, 6218.\r
+        7646    pk_to_unpk               pl1_operators_:    1335, 4980, 6988, 7413, 7484.\r
+                pl1_signal_from_ops_     pl1_operators_:    6264.\r
+       10432    plio                     pl1_operators_:    5524, 5549, 5570, 5614, 5636.\r
+       10460    plio2                    pl1_operators_:    5653, 5661, 5781.\r
+                plio2_                   pl1_operators_:    5661, 5662, 5663, 5664, 5666, 5667, 5669, 5670, 5671, 5672, 5677, 5682.\r
+                plio2_recio_             pl1_operators_:    5668.\r
+       10440    plio4                    pl1_operators_:     222, 5596, 5643, 5689, 5695, 5701, 5707.\r
+       10404    plio_eis                 pl1_operators_:    5506, 5531, 5591.\r
+       10420    pl_1                     pl1_operators_:    5600, 5604, 5608, 5613.\r
+       11040    pointer_easy             pl1_operators_:    1335, 6020, 6988, 7413, 7484.\r
+       11053    pointer_easy_pk          pl1_operators_:    1335, 6036, 6988, 7413, 7484.\r
+       11040    pointer_hard             pl1_operators_:    1335, 6021, 6988, 7413, 7484.\r
+       11053    pointer_hard_pk          pl1_operators_:    1335, 6037, 6988, 7413, 7484.\r
+       11201    pop_ctl_data             pl1_operators_:    1335, 6170, 6988, 7413, 7484.\r
+       11201    pop_ctl_desc             pl1_operators_:    1335, 6171, 6988, 7413, 7484.\r
+                power_                   pl1_operators_:    1335, 6988, 7413, 7484.\r
+                power_integer_           pl1_operators_:    1335, 6988, 7413, 7484.\r
+        6154    prepare_dividend         pl1_operators_:    3858, 3872.\r
+          12    ps.abret                 plio2_ps:      24.\r
+          12    ps.ab_return             plio2_ps:      22.\r
+          44    ps.auxp                  plio2_ps:      81.\r
+          56    ps.a_stored              plio2_ps:      89.\r
+          20    ps.bit_string            plio2_ps:      43.\r
+          10    ps.char_string           plio2_ps:      44.\r
+         100    ps.copy                  plio2_ps:      41.\r
+          24    ps.copy_file_p           plio2_ps:      27.\r
+       40000    ps.data                  plio2_ps:      33.\r
+      400000    ps.delete                plio2_ps:      48.\r
+          54    ps.descr                 plio2_ps:      85.\r
+          32    ps.descriptor            pl1_operators_:    5593, 5637,\r
+                                         plio2_ps:      64.\r
+       20000    ps.edit                  plio2_ps:      34.\r
+      400000    ps.explicit_file         plio2_ps:      30.\r
+          50    ps.fab2p                 plio2_ps:      83.\r
+          46    ps.fabp                  plio2_ps:      82.\r
+      200000    ps.file                  plio2_ps:      75.\r
+          40    ps.file_p                plio2_ps:      79.\r
+      400000    ps.first_field           plio2_ps:      74.\r
+           6    ps.format_area_p         plio2_ps:      20.\r
+        1000    ps.from                  plio2_ps:      56.\r
+          42    ps.fsbp                  plio2_ps:      80.\r
+        4000    ps.get                   plio2_ps:      36.\r
+        2000    ps.ignore                plio2_ps:      55.\r
+        4000    ps.into                  plio2_ps:      54.\r
+          26    ps.job                   plio2_ps:      28.\r
+      100000    ps.key                   plio2_ps:      50.\r
+       20000    ps.keyfrom               plio2_ps:      52.\r
+       40000    ps.keyto                 plio2_ps:      51.\r
+          33    ps.length                plio2_ps:      65.\r
+         400    ps.line                  plio2_ps:      39.\r
+       10000    ps.list                  plio2_ps:      35.\r
+      200000    ps.locate                plio2_ps:      49.\r
+          36    ps.new_format            plio2_ps:      71.\r
+           4    ps.not_byte_buffer       plio2_ps:      59.\r
+          27    ps.number                plio2_ps:      62.\r
+          34    ps.offset                pl1_operators_:    5594, 5638,\r
+                                         plio2_ps:      68.\r
+          40    ps.p1p2                  plio2_ps:      42.\r
+           1    ps.packed_ptr            plio2_ps:      60.\r
+        1000    ps.page                  plio2_ps:      38.\r
+          35    ps.prep                  plio2_ps:      70.\r
+        2000    ps.put                   plio2_ps:      37.\r
+          56    ps.quick_stream_storage  plio2_ps:      87.\r
+          57    ps.q_stored              plio2_ps:      90.\r
+           4    ps.read                  plio2_ps:      45.\r
+           1    ps.rewrite               plio2_ps:      47.\r
+       40000    ps.semi_sep              plio2_ps:      77.\r
+       10000    ps.set                   plio2_ps:      53.\r
+         200    ps.skip                  plio2_ps:      40.\r
+          20    ps.source_p              plio2_ps:      25.\r
+          22    ps.special_list_p        plio2_ps:      26.\r
+          10    ps.ss_list_p             plio2_ps:      21.\r
+           0    ps.stack_frame_p         plio2_ps:      17.\r
+          55    ps.start_copy            plio2_ps:      86.\r
+      200000    ps.string                plio2_ps:      31.\r
+           4    ps.ST_block_p            plio2_ps:      19.\r
+           2    ps.ST_top_p              plio2_ps:      18.\r
+          37    ps.switch                plio2_ps:      72.\r
+          34    ps.top_half              plio2_ps:      67.\r
+      100000    ps.transmit_error        plio2_ps:      76.\r
+          30    ps.value_p               pl1_operators_:    5595, 5639, 5641,\r
+                                         plio2_ps:      63.\r
+      100000    ps.varying_string        plio2_ps:      32.\r
+          77    ps.version_mask          plio2_ps:      58.\r
+        7700    ps.version_mask_inplace  plio2_ps:      92.\r
+           3    ps.version_shift         plio2_ps:      57.\r
+          52    ps.vp                    plio2_ps:      84.\r
+           2    ps.write                 plio2_ps:      46.\r
+          52    ps_ptr                   pl1_operators_:     251, 5592, 5636, 5643, 5766, 5768, 5772, 6011.\r
+          60    ps_size                  plio2_ps:      14.\r
+        2106    ptr_mask                 pl1_operators_:    1335, 6055, 6124, 6174, 6196.\r
+       11157    push_ctl_data            pl1_operators_:    1335, 6141, 6146, 6988, 7413, 7484.\r
+       11155    push_ctl_desc            pl1_operators_:    1335, 6139, 6988, 7413, 7484.\r
+        1171    push_offset              stack_header:        81.\r
+                put_blanks_              pl1_operators_:    5682.\r
+                put_control              pl1_operators_:    1335, 6988, 7413, 7484.\r
+       10333    put_data                 pl1_operators_:    1335, 5508, 6988, 7413, 7484.\r
+       10341    put_data_aligned         pl1_operators_:    1335, 5520, 6988, 7413, 7484.\r
+       10335    put_data_co              pl1_operators_:    1335, 5512, 6988, 7413, 7484.\r
+       10331    put_data_eis             pl1_operators_:    1335, 5504, 6988, 7413, 7484.\r
+       10337    put_data_ho              pl1_operators_:    1335, 5516, 6988, 7413, 7484.\r
+       10422    put_edit                 pl1_operators_:    1335, 5619, 6988, 7413, 7484.\r
+       10430    put_edit_aligned         pl1_operators_:    1335, 5631, 6988, 7413, 7484.\r
+       10424    put_edit_co              pl1_operators_:    1335, 5623, 6988, 7413, 7484.\r
+                put_edit_eis             pl1_operators_:    1335, 6988, 7413, 7484.\r
+       10426    put_edit_ho              pl1_operators_:    1335, 5627, 6988, 7413, 7484.\r
+                put_field                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                put_field_               pl1_operators_:    1335, 5582, 5584, 5586, 5588, 5677, 6988, 7413, 7484.\r
+                put_field_chk            pl1_operators_:    1335, 6988, 7413, 7484.\r
+                put_field_str            pl1_operators_:    5582, 5584, 5586, 5588.\r
+                put_format_              pl1_operators_:    1335, 6988, 7413, 7484.\r
+       10411    put_list                 pl1_operators_:    1335, 5598, 6988, 7413, 7484.\r
+       10417    put_list_aligned         pl1_operators_:    1335, 5610, 6988, 7413, 7484.\r
+       10413    put_list_co              pl1_operators_:    1335, 5602, 6988, 7413, 7484.\r
+       10370    put_list_eis             pl1_operators_:    1335, 5577, 6988, 7413, 7484.\r
+       10415    put_list_ho              pl1_operators_:    1335, 5606, 6988, 7413, 7484.\r
+                put_prep_                pl1_operators_:    5672.\r
+       10454    put_return               pl1_operators_:     223, 5655.\r
+       10511    put_terminate            pl1_operators_:    1335, 5693, 6988, 7413, 7484.\r
+                put_terminate_           pl1_operators_:    5662.\r
+                put_value_data_          pl1_operators_:    5663.\r
+                put_value_edit_          pl1_operators_:    5667.\r
+                put_value_list_          pl1_operators_:    5666.\r
+           6    q                        pl1_operators_:    2280, 2306, 2672, 2744, 2871, 2882, 2916, 3109, 3142, 3166, 3179,\r
+                                         eis_bits:      11.\r
+           0    qhat                     pl1_operators_:     285, 3901, 3904, 3913, 3916, 3935, 3962, 3984.\r
+           6    ql                       pl1_operators_:    3210, 3216, 3221, 3249, 3257, 3262, 3267,\r
+                                         eis_bits:      12.\r
+          67    qmask                    pl1_operators_:     268, 4019, 4070, 4071.\r
+           2    qu                       eis_bits:       6.\r
+          22    quotient                 pl1_operators_:     294, 3885, 3886, 3887, 3985, 4006, 4007, 4009, 4011, 4014, 4053,\r
+                                                            4054, 4058.\r
+        5451    rba                      pl1_operators_:    3308, 3312, 3316, 3321.\r
+        5475    rca                      pl1_operators_:    3348, 3352, 3356, 3361.\r
+                read_or_write            pl1_operators_:    5673.\r
+        3225    realloc                  pl1_operators_:    1408, 1416, 1428, 1431.\r
+        3207    realloc_bit_temp         pl1_operators_:    1335, 1411, 6988, 7413, 7484.\r
+        3217    realloc_char_temp        pl1_operators_:    1335, 1423, 6988, 7413, 7484.\r
+                real_to_real_round_      pl1_operators_:    1335, 6988, 7413, 7484.\r
+                real_to_real_truncate_   pl1_operators_:    1335, 6988, 7413, 7484.\r
+                record_io                pl1_operators_:    1335, 6988, 7413, 7484.\r
+                record_io_               pl1_operators_:    1335, 6988, 7413, 7484.\r
+          56    remainder                pl1_operators_:     256, 3626, 3629, 3632, 3648, 3686, 3689, 3693, 4005.\r
+        4103    repeat                   pl1_operators_:    1335, 2202, 6988, 7413, 7484.\r
+        4143    repeat_bs                pl1_operators_:    2209, 2241.\r
+        4157    repeat_bs_loop           pl1_operators_:    2254, 2260.\r
+        4126    repeat_cs_loop           pl1_operators_:    2222, 2228.\r
+        4134    repeat_exit              pl1_operators_:    2219, 2221, 2229, 2251, 2253, 2261.\r
+        2120    reset_stack              pl1_operators_:    1335.\r
+        3274    restore_stack_quick      pl1_operators_:    1335, 1488, 6988, 7413, 7484.\r
+        5442    return_bits              pl1_operators_:    1335, 3306, 6988, 7413, 7484.\r
+        5450    return_bits_al           pl1_operators_:    1335, 3318, 6988, 7413, 7484.\r
+        5444    return_bits_co           pl1_operators_:    1335, 3310, 6988, 7413, 7484.\r
+        5453    return_bits_eis          pl1_operators_:    1335, 3324, 6988, 7413, 7484.\r
+        5446    return_bits_ho           pl1_operators_:    1335, 3314, 6988, 7413, 7484.\r
+        5466    return_chars             pl1_operators_:    1335, 3346, 6988, 7413, 7484.\r
+        5474    return_chars_aligned     pl1_operators_:    1335, 3358, 6988, 7413, 7484.\r
+        5470    return_chars_co          pl1_operators_:    1335, 3350, 6988, 7413, 7484.\r
+        5477    return_chars_eis         pl1_operators_:    1335, 3364, 6988, 7413, 7484.\r
+        5472    return_chars_ho          pl1_operators_:    1335, 3354, 6988, 7413, 7484.\r
+        5600    return_mac               pl1_operators_:    1335, 3442, 3451, 3462, 4227, 4243, 6988, 7413, 7484.\r
+        6610    return_main              pl1_operators_:    1335, 4224, 4233, 6988, 7413, 7484.\r
+        1173    return_no_pop_offset     stack_header:        83.\r
+        1172    return_offset            stack_header:        82.\r
+        5506    return_pop               pl1_operators_:    3278, 3329, 3369, 3377.\r
+        5422    return_words             pl1_operators_:    1335, 3277, 6988, 7413, 7484.\r
+        4166    reverse_bs               pl1_operators_:    1335, 2265, 6988, 7413, 7484.\r
+        4210    reverse_bs_exit          pl1_operators_:    2279, 2285.\r
+        4201    reverse_bs_loop          pl1_operators_:    2277, 2284.\r
+        4212    reverse_cs               pl1_operators_:    1335, 2291, 6988, 7413, 7484.\r
+        4234    reverse_cs_exit          pl1_operators_:    2305, 2311.\r
+        4225    reverse_cs_loop          pl1_operators_:    2303, 2310.\r
+       10303    revert_file              pl1_operators_:    1335, 5464, 6988, 7413, 7484.\r
+        5265    rev_search_done          pl1_operators_:    3150, 3151, 3152.\r
+        5263    rev_ttf_ttn              pl1_operators_:    3146, 3149.\r
+        6724    rfb1_to_cflb1            pl1_operators_:    1335, 4337, 6988, 7413, 7484.\r
+        6726    rfb2_to_cflb1            pl1_operators_:    1335, 4341, 7413.\r
+           1    rhat                     pl1_operators_:     286, 3903, 3907, 3914, 3919.\r
+        6522    right_shift              pl1_operators_:    4088, 4135.\r
+          40    rl                       pl1_operators_:    1615, 1652, 1666, 1705, 1720, 1831, 1896, 1897, 1898, 1899, 1900,\r
+                                                            1928, 1955, 1991, 2005, 2046, 2085, 2113, 2137, 2167, 2194, 2223,\r
+                                                            2255, 2328, 2347, 2406, 2429, 2480, 2506, 2531, 2545, 2583, 2609,\r
+                                                            2621, 2672, 2686, 2744, 2834, 2871, 2882, 2916, 3109, 3142, 3166,\r
+                                                            3179, 3249, 3287, 3337, 4446,\r
+                                         eis_bits:       2.\r
+           1    round                    eis_bits:      30.\r
+        7553    round_fl                 pl1_operators_:    1335, 4888, 6988, 7413, 7484.\r
+        7515    round_fx1                pl1_operators_:    1335, 4844, 6988, 7413, 7484.\r
+        7520    round_fx1a               pl1_operators_:    4848, 4863.\r
+        7532    round_fx1b               pl1_operators_:    4846, 4859.\r
+        7536    round_fx2                pl1_operators_:    1335, 4868, 6988, 7413, 7484.\r
+        7541    round_fx2a               pl1_operators_:    4872, 4883.\r
+        7550    round_fx2b               pl1_operators_:    4870, 4880.\r
+        1400    rpd_bits                 pl1_operators_:     297, 5016, 5029, 5042, 5055.\r
+        7717    rpd_even_bp_lp           pl1_operators_:    1335, 5053, 6988, 7413, 7484.\r
+        7707    rpd_even_lp_bp           pl1_operators_:    1335, 5040, 6988, 7413, 7484.\r
+        7677    rpd_odd_bp_lp            pl1_operators_:    1335, 5027, 6988, 7413, 7484.\r
+        7667    rpd_odd_lp_bp            pl1_operators_:    1335, 5014, 6988, 7413, 7484.\r
+        5423    rw_0                     pl1_operators_:    3285, 3371.\r
+        5430    rw_1                     pl1_operators_:    3286, 3290, 3336, 3340.\r
+        2140    r_e_as                   pl1_operators_:    1335.\r
+        2155    r_ge_a                   pl1_operators_:    1335.\r
+        2152    r_ge_s                   pl1_operators_:    1335.\r
+        2131    r_g_a                    pl1_operators_:    1335.\r
+        2125    r_g_s                    pl1_operators_:    1335.\r
+        2146    r_le_a                   pl1_operators_:    1335.\r
+        2160    r_le_s                   pl1_operators_:    1335.\r
+        2122    r_l_a                    pl1_operators_:    1335.\r
+        2135    r_l_s                    pl1_operators_:    1335.\r
+        2143    r_ne_as                  pl1_operators_:    1335.\r
+        5543    same_stack               pl1_operators_:    3401, 3411.\r
+        5617    save_display             pl1_operators_:    3488, 3553.\r
+       12074    save_link                pl1_operators_:    6771, 6803, 6899.\r
+          70    save_regs                pl1_operators_:     270, 3617, 3621, 3630, 3639, 3643, 3667, 3682, 3692, 3718, 3738,\r
+                                                            3761, 3763, 3768, 3769, 3790, 3792, 3802, 3803, 3807, 3808, 4567,\r
+                                                            4570, 4984, 4985.\r
+        3270    save_stack_quick         pl1_operators_:    1335, 1478, 6988, 7413, 7484.\r
+        3304    save_string              pl1_operators_:    1335, 1504, 6988, 7413, 7484.\r
+          70    save_x01                 pl1_operators_:     271, 1431, 1435, 1450.\r
+        3351    sba                      pl1_operators_:    1553, 1557, 1561, 1566.\r
+        3330    sca                      pl1_operators_:    1525, 1529, 1533, 1537.\r
+        3332    sca1                     pl1_operators_:    1540, 1568.\r
+        6027    scaled_mod_fx1           pl1_operators_:    1335, 3728, 6988, 7413, 7484.\r
+        5757    scaled_mod_fx2           pl1_operators_:    1335, 3657, 6988, 7413, 7484.\r
+        6031    scaled_mod_fx3           pl1_operators_:    1335, 3736, 6988, 7413, 7484.\r
+        5761    scaled_mod_fx4           pl1_operators_:    1335, 3665, 6988, 7413, 7484.\r
+        5773    scmd1                    pl1_operators_:    3682, 3711.\r
+        6003    scmd2                    pl1_operators_:    3685, 3687, 3690.\r
+        6010    scmd3                    pl1_operators_:    3677, 3702.\r
+        6022    scmd4                    pl1_operators_:    3707, 3718.\r
+        5766    sc_mod_common            pl1_operators_:    3672, 3745.\r
+        5241    search_done              pl1_operators_:    3119, 3124, 3125, 3165, 3170, 3595.\r
+        5223    search_eis               pl1_operators_:    1335, 3102, 3129, 6988, 7413, 7484.\r
+        5237    search_fail              pl1_operators_:    3108, 3116, 3141.\r
+        5226    search_loop              pl1_operators_:    3106, 3115.\r
+        5251    search_rev_chars         pl1_operators_:    1335, 3136, 6988, 7413, 7484.\r
+        5253    search_rev_loop          pl1_operators_:    3139, 3147.\r
+        3342    set_bits                 pl1_operators_:    1335, 1551, 6988, 7413, 7484.\r
+        3350    set_bits_aligned         pl1_operators_:    1335, 1563, 6988, 7413, 7484.\r
+        3344    set_bits_co              pl1_operators_:    1335, 1555, 6988, 7413, 7484.\r
+        3336    set_bits_eis             pl1_operators_:    1335, 1545, 6988, 7413, 7484.\r
+        3346    set_bits_ho              pl1_operators_:    1335, 1559, 6988, 7413, 7484.\r
+        3321    set_chars                pl1_operators_:    1335, 1523, 6988, 7413, 7484.\r
+        3327    set_chars_aligned        pl1_operators_:    1335, 1535, 6988, 7413, 7484.\r
+        3323    set_chars_co             pl1_operators_:    1335, 1527, 6988, 7413, 7484.\r
+        3315    set_chars_eis            pl1_operators_:    1335, 1517, 6988, 7413, 7484.\r
+        3325    set_chars_ho             pl1_operators_:    1335, 1531, 6988, 7413, 7484.\r
+       12141    set_display              pl1_operators_:    6899.\r
+                set_hexfp_control        pl1_operators_:    6537.\r
+        6626    set_main_flag            pl1_operators_:    1335, 4248, 6988, 7413, 7484.\r
+        2166    set_stack                pl1_operators_:    1335.\r
+        3276    set_stack_extend         pl1_operators_:    1335, 1494, 6988, 7413, 7484.\r
+       11357    set_support              pl1_operators_:    1335, 6309, 6988, 7413, 7484.\r
+           4    shift                    pl1_operators_:     289, 3818, 3831, 3874, 4087.\r
+       12452    shift_bo                 pl1_operators_:    1335, 1541, 5640, 6962, 6988, 7413, 7484.\r
+        6443    shift_dividend           pl1_operators_:    3880, 4051, 4086.\r
+        3254    shorten_stack            pl1_operators_:    1335, 1455, 6988, 7413, 7484.\r
+        3261    shorten_stack_protect_ind      pl1_operators_:    1335, 1465, 6988, 7413, 7484.\r
+                sign                     pl1_operators_:    1335, 6988, 7413, 7484.\r
+       11267    signal_common            pl1_operators_:    6244, 6305.\r
+       25023    signal_error_missing     pl1_operators_:    5665, 5678, 5679, 5680, 5681, 7553.\r
+       10210    signal_op                pl1_operators_:    1335, 5382, 6988, 7413, 7484, 7556.\r
+        6367    signal_overflow          pl1_operators_:    3721, 4008, 4013, 4026, 4568.\r
+       10056    signal_size              pl1_operators_:    1335, 5245, 6988, 7413, 7484.\r
+        7775    signal_size_condition    pl1_operators_:    4959, 5166, 5198, 5212, 5225, 5247.\r
+        7247    signal_stringrange       pl1_operators_:    1335, 4618, 6988, 7413, 7484.\r
+       10061    signal_stringsize        pl1_operators_:    1335, 5255, 6988, 7413, 7484.\r
+                sign_                    pl1_operators_:    6364, 7232.\r
+        6530    sign_change              pl1_operators_:    4017, 4143, 4878.\r
+        6642    sign_mac                 pl1_operators_:    1335, 4265, 6988, 7413, 7484.\r
+                sine_                    pl1_operators_:    1335, 6988, 7413, 7484.\r
+                sine_degrees_            pl1_operators_:    1335, 7413.\r
+                sine_radians_            pl1_operators_:    1335, 7413.\r
+       11751    single_bit               pl1_operators_:    2974, 3019, 6641.\r
+                single_power_integer_    pl1_operators_:    1335, 7413.\r
+                single_power_single_     pl1_operators_:    1335, 7413.\r
+                sinh                     pl1_operators_:    1335, 7413.\r
+                sinh_                    pl1_operators_:    6354, 7222.\r
+                sin_                     pl1_operators_:    6326, 7194.\r
+        7771    size_check_fx1           pl1_operators_:    1335, 5159, 6988, 7413, 7484.\r
+       10013    size_check_fx2           pl1_operators_:    1335, 5187, 6988, 7413, 7484.\r
+       10030    size_check_uns_fx1       pl1_operators_:    1335, 5207, 6988, 7413, 7484.\r
+       10036    size_check_uns_fx2       pl1_operators_:    1335, 5220, 6988, 7413, 7484.\r
+           4    size_length              pl1_operators_:    5170, 5251.\r
+       10060    size_name                pl1_operators_:    5168, 5249.\r
+       10010    size_ok_fx               pl1_operators_:    5164, 5178, 5211, 5213, 5224, 5226, 5235.\r
+        6503    sl                       pl1_operators_:    4115, 4119, 4120.\r
+        6450    split                    pl1_operators_:    4092, 4139.\r
+                sqrt_                    pl1_operators_:    6329, 7197.\r
+                square_root_             pl1_operators_:    1335, 6988, 7413, 7484.\r
+        7244    sr_2                     pl1_operators_:    4586, 4588, 4614.\r
+        7232    sr_3                     pl1_operators_:    4590, 4593, 4597, 4603.\r
+        7205    sr_check                 pl1_operators_:    1335, 4580, 6988, 7413, 7484.\r
+       10002    ssc                      pl1_operators_:    5172, 5241, 5262, 6558.\r
+        3410    ss_0                     pl1_operators_:    1594, 1603, 1613.\r
+       12263    ss_eed                   pl1_operators_:    6903, 6905.\r
+       12412    ss_enter_begin_block     pl1_operators_:    1335, 6944, 6988, 7413, 7484.\r
+       12222    ss_ext_entry             pl1_operators_:    1335, 6901, 6988.\r
+       12250    ss_ext_entry_desc        pl1_operators_:    1335, 6903, 6988.\r
+       12240    ss_init_stack_join       pl1_operators_:    6901.\r
+       12272    ss_int_entry             pl1_operators_:    1335, 6905, 6988, 7413, 7484.\r
+       12311    ss_int_entry_desc        pl1_operators_:    1335, 6905, 6988, 7413, 7484.\r
+       12235    ss_save_link             pl1_operators_:    6901, 6903, 6905.\r
+       12305    ss_set_display           pl1_operators_:    6905.\r
+       12331    ss_val_entry             pl1_operators_:    1335, 6905, 6988, 7413, 7484.\r
+       12327    ss_val_entry_desc        pl1_operators_:    1335, 6905, 6988, 7413, 7484.\r
+          73    stach_header.trace_top_ptr     stack_header:        62.\r
+          32    stack_frame.arg_ptr      pl1_operators_:    3385, 5116, 6771, 6803, 6899, 6901, 6903, 6905, 6942, 6944, 7470,\r
+                                                            7472, 7474, 7476,\r
+                                         stack_frame:   16.\r
+         100    stack_frame.condition_bit      stack_frame:   32.\r
+          20    stack_frame.condition_word     pl1_operators_:    5414, 5417, 5466,\r
+                                               stack_frame:    9.\r
+        2000    stack_frame.crawl_out_bit      stack_frame:   28.\r
+          26    stack_frame.entry_ptr    pl1_operators_:    5126, 6771, 6901, 6942, 6944, 7470, 7474, 7490,\r
+                                         stack_frame:   13.\r
+          20    stack_frame.flag_word    pl1_operators_:    4225, 4241, 4256, 4260, 6311,\r
+                                         stack_frame:   24.\r
+         400    stack_frame.link_trap_bit      stack_frame:   30.\r
+          30    stack_frame.lp_ptr       pl1_operators_:    5109, 5117,\r
+                                         stack_frame:   15.\r
+       20000    stack_frame.main_proc_bit      pl1_operators_:    4226, 4242, 4255, 4259,\r
+                                               stack_frame:   25.\r
+          60    stack_frame.min_length   stack_frame:   23.\r
+          22    stack_frame.next_sp      pl1_operators_:    1335, 1393, 1394, 1447, 1448, 1458, 1469, 1480, 1496, 3295, 3393,\r
+                                                            3407, 3412, 3413, 4020, 4022, 4074, 4076, 4666, 5121, 5423, 5424,\r
+                                                            5791, 5792, 5794, 6236, 6237, 6265, 6268, 6270, 6296, 6297, 6521,\r
+                                                            6522, 6538, 6542, 6771, 6803, 6899, 6901, 6903, 6905, 6942, 6944,\r
+                                                            6988, 7413, 7470, 7472, 7474, 7476, 7484,\r
+                                         stack_frame:   10.\r
+          36    stack_frame.on_unit_rel_ptrs   pl1_operators_:    5307, 5310, 5317, 5319, 5342, 5345, 5354, 5356, 5416, 5429,\r
+                                                                  5431, 5488,\r
+                                               stack_frame:   19.\r
+          30    stack_frame.operator_ptr       pl1_operators_:    1655, 1669, 1708, 1723, 1834, 1891, 1931, 1958, 2049, 2088,\r
+                                                                  2170, 2235, 2332, 2351, 2409, 2432, 2548, 2591, 2597, 2632,\r
+                                                                  2698, 2749, 2841, 2848, 2853, 2888, 2922, 3093, 3227, 3297,\r
+                                                                  3469, 3633, 3772, 3809, 4449, 5134, 5140, 5658, 6275, 6454,\r
+                                                                  6496, 6547, 6771, 6899, 6901, 6905, 7425, 7467, 7470, 7474,\r
+                                               stack_frame:   14.\r
+          37    stack_frame.operator_ret_ptr   pl1_operators_:    2366, 2373, 4031, 4034, 4035, 4581, 4599, 4600, 4619, 5015,\r
+                                                                  5028, 5041, 5054, 5172, 5176, 5177, 5302, 5326, 5337, 5370,\r
+                                                                  5383, 5391, 5409, 5447, 5448, 5468, 6093, 6126, 6149, 6176,\r
+                                                                  6219, 6252, 6293, 6771, 6901, 7470, 7474,\r
+                                               stack_frame:   20.\r
+          20    stack_frame.prev_sp      pl1_operators_:    3381, 3390, 3429, 3455, 3466, 4237, 5115, 5131, 5305, 5308, 5340,\r
+                                                            5343, 6771, 6803, 6899, 6901, 6903, 6905, 6942, 6944, 7470, 7472,\r
+                                                            7474, 7476,\r
+                                         stack_frame:    8.\r
+          40    stack_frame.regs         stack_frame:   22.\r
+          24    stack_frame.return_ptr   pl1_operators_:    3298, 3299, 3443, 3470, 3471, 3481, 3485, 3505, 3509, 3529, 3533,\r
+                                                            3546, 3550, 4205, 4206, 4218, 5107, 5108, 5135, 5136, 5141, 5142,\r
+                                                            5286, 5287, 5651, 5652, 5657, 5779, 5780, 5787, 5788, 6111, 6112,\r
+                                                            6116, 6262, 6263, 6274, 6410, 6411, 6436, 6437, 6535, 6536, 6546,\r
+                                                            6771, 6899, 6901, 6905, 7470, 7474, 7515, 7524,\r
+                                         stack_frame:   12.\r
+       10000    stack_frame.run_unit_manager   stack_frame:   26.\r
+        1000    stack_frame.signaller_bit      stack_frame:   29.\r
+          22    stack_frame.signaller_word     stack_frame:   11.\r
+        4000    stack_frame.signal_bit   stack_frame:   27.\r
+          34    stack_frame.static_ptr   pl1_operators_:    5126, 6901, 6944, 7474, 7490,\r
+                                         stack_frame:   17.\r
+         200    stack_frame.support_bit  pl1_operators_:    6310,\r
+                                         stack_frame:   31.\r
+          35    stack_frame.support_ptr  pl1_operators_:    5784, 5810, 5827, 6013,\r
+                                         stack_frame:   18.\r
+          37    stack_frame.translator_id      pl1_operators_:    5123,\r
+                                               stack_frame:   21.\r
+          66    stack_header.assign_linkage_ptr      stack_header:        59.\r
+          32    stack_header.bar_mode_sp       stack_header:        42.\r
+          36    stack_header.call_op_ptr       stack_header:        44.\r
+          10    stack_header.clr_ptr     stack_header:        27.\r
+           6    stack_header.combined_stat_ptr       stack_header:        25.\r
+           4    stack_header.cpm_data_ptr      stack_header:        24.\r
+          13    stack_header.cpm_enabled       stack_header:        32.\r
+          13    stack_header.cur_lot_size      stack_header:        31.\r
+          64    stack_header.ect_ptr     stack_header:        58.\r
+          46    stack_header.entry_op_ptr      stack_header:        49.\r
+          70    stack_header.heap_header_ptr   stack_header:        60.\r
+          74    stack_header.in_trace    stack_header:        63.\r
+          52    stack_header.isot_ptr    pl1_operators_:    5126, 6901, 6903, 6905, 7474, 7476, 7490, 7529,\r
+                                         stack_header:        52.\r
+          26    stack_header.lot_ptr     pl1_operators_:    4195, 4204, 4217, 5126, 5361, 6283, 6771, 6803, 6899, 6901, 6903,\r
+                                                            6905, 7470, 7472, 7474, 7476, 7490, 7514,\r
+                                         stack_header:        39.\r
+          12    stack_header.main_proc_invoked       pl1_operators_:    4250, 4254,\r
+                                                     stack_header:        29.\r
+          12    stack_header.max_lot_size      stack_header:        28.\r
+          20    stack_header.parent_ptr  stack_header:        36.\r
+          34    stack_header.pl1_operators_ptr       stack_header:        43.\r
+          40    stack_header.push_op_ptr       stack_header:        46.\r
+          42    stack_header.return_op_ptr     stack_header:        47.\r
+          44    stack_header.ret_no_pop_op_ptr       stack_header:        48.\r
+          62    stack_header.rnt_ptr     stack_header:        57.\r
+          12    stack_header.run_unit_depth    stack_header:        30.\r
+          54    stack_header.sct_ptr     stack_header:        53.\r
+          30    stack_header.signal_ptr  stack_header:        41.\r
+          22    stack_header.stack_begin_ptr   stack_header:        37.\r
+          24    stack_header.stack_end_ptr     pl1_operators_:    1389, 1395, 1449, 1459, 1470, 1497, 3296, 3409, 3428, 3454,\r
+                                                                  3465, 4023, 4072, 4075, 4236, 4667, 5113, 5114, 5120, 5126,\r
+                                                                  5130, 5421, 5425, 6234, 6238, 6271, 6294, 6298, 6519, 6523,\r
+                                                                  6543, 6771, 6803, 6899, 6901, 6903, 6905, 6942, 6944, 7470,\r
+                                                                  7472, 7474, 7476, 7490, 7512, 7548,\r
+                                               stack_header:        38.\r
+          14    stack_header.system_free_ptr   stack_header:        33.\r
+          60    stack_header.sys_link_info_ptr       stack_header:        56.\r
+          72    stack_header.trace_frames      stack_header:        61.\r
+          50    stack_header.trans_op_tv_ptr   stack_header:        51.\r
+          56    stack_header.unwinder_ptr      stack_header:        54.\r
+          16    stack_header.user_free_ptr     pl1_operators_:    6086, 6102,\r
+                                               stack_header:        34.\r
+         100    stack_header_end         stack_header:        64.\r
+        6557    stacq_mac                pl1_operators_:    1335, 4185, 6988, 7413, 7484.\r
+        6553    stac_mac                 pl1_operators_:    1335, 4177, 6988, 7413, 7484.\r
+        6577    stop                     pl1_operators_:    1335, 4212, 4228, 4244, 6988, 7413, 7484.\r
+                stop_run                 pl1_operators_:    4219.\r
+                storage_                 pl1_operators_:    6105.\r
+        1364    store_a6_ho              pl1_operators_:    1335.\r
+        1272    store_a9_co              pl1_operators_:    1335.\r
+        1336    store_a9_ho              pl1_operators_:    1335.\r
+        6321    store_q                  pl1_operators_:    3960, 3983.\r
+        1406    store_q6_ho              pl1_operators_:    1335.\r
+        1316    store_q9_co              pl1_operators_:    1335.\r
+        1352    store_q9_ho              pl1_operators_:    1335.\r
+        3354    store_string             pl1_operators_:    1335, 1574, 6988, 7413, 7484.\r
+                stream_prep              pl1_operators_:    1335, 6988, 7413, 7484.\r
+        7262    strg                     pl1_operators_:    4626, 4632.\r
+          12    stringsize_length        pl1_operators_:    2370, 5260, 5266.\r
+       10070    stringsize_name          pl1_operators_:    2369, 5259, 5264.\r
+        7251    string_signal            pl1_operators_:    4603, 4614, 4622.\r
+        3371    string_store             pl1_operators_:    1335, 1592, 6988, 7413, 7484.\r
+        3373    string_store_co          pl1_operators_:    1335, 1596, 6988, 7413, 7484.\r
+        3402    string_store_ho          pl1_operators_:    1335, 1605, 6988, 7413, 7484.\r
+       10224    subrg                    pl1_operators_:    5394, 5399.\r
+        4254    suffix_bs                pl1_operators_:    1335, 2337, 6988, 7413, 7484.\r
+        4260    suffix_bs_1              pl1_operators_:    2342, 2382, 2383.\r
+        4312    suffix_bs_ck             pl1_operators_:    1335, 2378, 6988, 7413, 7484.\r
+        4236    suffix_cs                pl1_operators_:    1335, 2318, 6988, 7413, 7484.\r
+        4242    suffix_cs_1              pl1_operators_:    2323, 2362, 2363.\r
+        4272    suffix_cs_ck             pl1_operators_:    1335, 2358, 6988, 7413, 7484.\r
+        4277    suffix_error             pl1_operators_:    2365, 2384.\r
+                sys_info                 pl1_operators_:    4196.\r
+          64    t1                       pl1_operators_:     263, 4516, 4539, 4547.\r
+          66    t2                       pl1_operators_:     267, 2606, 2625, 4517, 4530, 4533, 4553.\r
+          63    t3                       pl1_operators_:     261, 4528, 4532, 4546.\r
+          77    t4                       pl1_operators_:     279, 3112, 3145, 3169, 3182, 4529, 4540, 4550.\r
+          65    t5                       pl1_operators_:     265, 4478, 4481.\r
+                tangent_                 pl1_operators_:    1335, 6988, 7413, 7484.\r
+                tangent_degrees_         pl1_operators_:    1335, 7413.\r
+                tangent_radians_         pl1_operators_:    1335, 7413.\r
+                tanh                     pl1_operators_:    1335, 7413.\r
+                tanh_                    pl1_operators_:    6328, 7196.\r
+                tan_                     pl1_operators_:    6346, 7214.\r
+          46    tbp                      pl1_operators_:     249, 1335, 1368, 1409, 1429, 1461, 1473, 1482, 1490, 1498, 1513,\r
+                                                            1521, 1543, 1549, 1587, 1618, 1657, 1671, 1710, 1717, 1724, 1731,\r
+                                                            1737, 1828, 1835, 1884, 1892, 1926, 1932, 1953, 1959, 1988, 1995,\r
+                                                            2003, 2041, 2050, 2080, 2089, 2173, 2236, 2320, 2325, 2333, 2339,\r
+                                                            2344, 2352, 2410, 2433, 2483, 2503, 2509, 2529, 2534, 2544, 2549,\r
+                                                            2592, 2598, 2633, 2699, 2711, 2730, 2750, 2757, 2775, 2788, 2807,\r
+                                                            2822, 2828, 2842, 2849, 2854, 2889, 2897, 2903, 2923, 2927, 2933,\r
+                                                            3070, 3097, 3118, 3121, 3156, 3176, 3190, 3228, 3430, 3566, 3578,\r
+                                                            3606, 3634, 3674, 3765, 3774, 3793, 3810, 4154, 4158, 4166, 4168,\r
+                                                            4170, 4180, 4189, 4198, 4257, 4261, 4265, 4268, 4270, 4282, 4293,\r
+                                                            4295, 4301, 4313, 4321, 4333, 4347, 4371, 4418, 4436, 4444, 4450,\r
+                                                            4498, 4500, 4562, 4564, 4572, 4601, 4669, 4688, 4690, 4706, 4713,\r
+                                                            4717, 4725, 4731, 4739, 4743, 4753, 4758, 4764, 4768, 4777, 4788,\r
+                                                            4799, 4805, 4815, 4824, 4835, 4839, 4855, 4858, 4879, 4890, 4919,\r
+                                                            4926, 4935, 4942, 4962, 4975, 4987, 4998, 5005, 5181, 5201, 5277,\r
+                                                            5303, 5338, 5411, 5449, 5467, 5470, 5656, 5659, 5858, 5872, 5874,\r
+                                                            5876, 5878, 5880, 5882, 5884, 5886, 5890, 5898, 5900, 5902, 5904,\r
+                                                            5949, 5952, 5958, 5962, 5971, 5973, 5975, 5977, 5979, 5981, 5983,\r
+                                                            5985, 5993, 5995, 5997, 5999, 6001, 6003, 6026, 6032, 6042, 6059,\r
+                                                            6066, 6115, 6125, 6175, 6204, 6254, 6273, 6312, 6317, 6455, 6497,\r
+                                                            6545, 6988, 7005, 7010, 7027, 7032, 7072, 7094, 7111, 7117, 7131,\r
+                                                            7144, 7158, 7171, 7185, 7277, 7281, 7311, 7327, 7333, 7350, 7356,\r
+                                                            7387, 7403, 7408, 7413, 7426, 7468, 7484, 7523, 7552.\r
+         243    tct_byte_0               pl1_operators_:     224, 1335.\r
+         443    tct_byte_1               pl1_operators_:     225, 1335.\r
+         643    tct_byte_2               pl1_operators_:     226, 1335.\r
+        1043    tct_byte_3               pl1_operators_:     227, 1335.\r
+         233    tct_octal_040            pl1_operators_:     228, 1335.\r
+         227    tct_octal_060            pl1_operators_:     229, 1335.\r
+          76    temp                     pl1_operators_:     278, 1442, 1446, 1466, 1471, 1575, 1581, 1654, 1656, 1668, 1670,\r
+                                                            1707, 1709, 2368, 2375, 2586, 2589, 2612, 2618, 2619, 2626, 2658,\r
+                                                            2675, 2682, 2837, 2839, 2874, 2876, 2879, 3153, 3155, 3196, 3214,\r
+                                                            3234, 3248, 3255, 3398, 3400, 3596, 3599, 4302, 4312, 4322, 4332,\r
+                                                            4344, 4345, 4356, 4357, 4360, 4364, 4367, 4397, 4407, 4409, 4412,\r
+                                                            4415, 4426, 4428, 4431, 4433, 4467, 4479, 4482, 4491, 4623, 4629,\r
+                                                            4676, 4687, 4692, 4695, 4705, 4726, 4727, 4729, 4730, 4778, 4779,\r
+                                                            4786, 4787, 4800, 4801, 4803, 4804, 4849, 4852, 4856, 4857, 4860,\r
+                                                            4861, 4873, 4876, 4897, 4901, 4950, 4953, 4961, 4972, 4973, 5003,\r
+                                                            5004, 5160, 5179, 5188, 5194, 5199, 5208, 5221, 5232, 5246, 5256,\r
+                                                            5392, 5397, 5410, 5434, 5469, 5487, 5579, 5589, 6027, 6028, 6029,\r
+                                                            6030, 6031, 6043, 6044, 6045, 6046, 6047, 6403, 6404, 7071, 7084,\r
+                                                            7132, 7143, 7159, 7170, 7264, 7276, 7294, 7310, 7384, 7385.\r
+          72    temp2                    pl1_operators_:     274, 2779, 2780, 2812, 2813, 2937, 2938, 3197, 3226, 3235, 4406,\r
+                                                            4410, 4416, 4425, 4429, 4434, 4982, 4986, 5169, 5174, 5238, 5258,\r
+                                                            5455, 5486, 5494, 6060, 6064, 6554, 7083, 7086, 7090.\r
+          55    temp_indicators          pl1_operators_:     253, 3844, 3848, 5161, 5180, 5189, 5190, 5197, 5200, 5209, 5222,\r
+                                                            5233, 7509, 7551.\r
+          50    temp_pt                  pl1_operators_:     250, 1367, 1433, 1509, 1520, 1540, 1542, 1548, 1626, 1665, 1678,\r
+                                                            1719, 1734, 1736, 1830, 1886, 1927, 1954, 1973, 1994, 2004, 2044,\r
+                                                            2083, 2111, 2135, 2166, 2172, 2193, 2207, 2217, 2230, 2249, 2266,\r
+                                                            2272, 2292, 2298, 2326, 2345, 2404, 2427, 2474, 2576, 2641, 2733,\r
+                                                            2830, 2905, 3203, 3205, 3241, 3243, 3561, 3564, 3577, 3620, 3631,\r
+                                                            3642, 3670, 3673, 3690, 3691, 3741, 3762, 3771, 3791, 4445, 4948,\r
+                                                            4968, 5278, 5279, 6150, 6154, 6178, 6185.\r
+          60    temp_size                pl1_operators_:     257, 1387, 1432, 1437, 1987.\r
+                terminate                pl1_operators_:    5675.\r
+          46    text_base_ptr            pl1_operators_:     248, 6771, 6901, 7470, 7474.\r
+        6427    thru                     pl1_operators_:    4060, 4063.\r
+       24730    trace_alm_entry          pl1_operators_:     230, 7413, 7484, 7490.\r
+       16216    trace_bitno_to_charno_table    pl1_operators_:    7413.\r
+       17644    trace_bit_mask           pl1_operators_:    7413.\r
+       20304    trace_blanks             pl1_operators_:    7413.\r
+                trace_catch_             pl1_operators_:    7470, 7472, 7474, 7476, 7490.\r
+       17502    trace_co_to_bo           pl1_operators_:    7413.\r
+       17462    trace_csl_vector         pl1_operators_:    7413.\r
+       21467    trace_eed                pl1_operators_:    7472.\r
+       21356    trace_enter_BFP_mode     pl1_operators_:    7413, 7422, 7484.\r
+       21362    trace_enter_HFP_mode     pl1_operators_:    7413, 7445, 7463, 7484.\r
+       21404    trace_enter_HFP_mode.entered   pl1_operators_:    7450, 7457, 7465.\r
+       20711    trace_entry_operators    pl1_operators_:     231, 7413.\r
+       21570    trace_entry_operators_end      pl1_operators_:     232, 7478.\r
+       21407    trace_ext_entry          pl1_operators_:    7413, 7470, 7484.\r
+       21444    trace_ext_entry_desc     pl1_operators_:    7413, 7472, 7484.\r
+           0    trace_frames.count       stack_header:        69.\r
+           1    trace_frames.top_ptr     stack_header:        70.\r
+       20331    trace_fx1_to_fl2         pl1_operators_:    7413.\r
+       20326    trace_fx1_to_fx2         pl1_operators_:    7413.\r
+       20332    trace_fx2_to_fl2         pl1_operators_:    7413.\r
+       21570    trace_hfp_bitno_to_charno_table      pl1_operators_:    7484.\r
+       23216    trace_hfp_bit_mask       pl1_operators_:    7484.\r
+       23656    trace_hfp_blanks         pl1_operators_:    7484.\r
+       23054    trace_hfp_co_to_bo       pl1_operators_:    7484.\r
+       23034    trace_hfp_csl_vector     pl1_operators_:    7484.\r
+       24263    trace_hfp_entry_operators      pl1_operators_:    7484.\r
+       23703    trace_hfp_fx1_to_fl2     pl1_operators_:    7484.\r
+       23700    trace_hfp_fx1_to_fx2     pl1_operators_:    7484.\r
+       23704    trace_hfp_fx2_to_fl2     pl1_operators_:    7484.\r
+       23060    trace_hfp_ho_to_bo       pl1_operators_:    7484.\r
+       23436    trace_hfp_mask_bit       pl1_operators_:    7484.\r
+       23550    trace_hfp_max_single_value     pl1_operators_:    7484.\r
+       23761    trace_hfp_mod2_tab       pl1_operators_:    7484.\r
+       23763    trace_hfp_mod4_tab       pl1_operators_:    7484.\r
+       23326    trace_hfp_ones           pl1_operators_:    7484.\r
+       23216    trace_hfp_operator_table       pl1_operators_:     234, 7484.\r
+       23767    trace_hfp_op_vector      pl1_operators_:    7484.\r
+       23676    trace_hfp_ptr_mask       pl1_operators_:    7484.\r
+       23710    trace_hfp_reset_stack    pl1_operators_:    7484.\r
+       23730    trace_hfp_r_e_as         pl1_operators_:    7484.\r
+       23745    trace_hfp_r_ge_a         pl1_operators_:    7484.\r
+       23742    trace_hfp_r_ge_s         pl1_operators_:    7484.\r
+       23721    trace_hfp_r_g_a          pl1_operators_:    7484.\r
+       23715    trace_hfp_r_g_s          pl1_operators_:    7484.\r
+       23736    trace_hfp_r_le_a         pl1_operators_:    7484.\r
+       23750    trace_hfp_r_le_s         pl1_operators_:    7484.\r
+       23712    trace_hfp_r_l_a          pl1_operators_:    7484.\r
+       23725    trace_hfp_r_l_s          pl1_operators_:    7484.\r
+       23733    trace_hfp_r_ne_as        pl1_operators_:    7484.\r
+       23756    trace_hfp_set_stack      pl1_operators_:    7484.\r
+       23154    trace_hfp_store_a6_ho    pl1_operators_:    7484.\r
+       23062    trace_hfp_store_a9_co    pl1_operators_:    7484.\r
+       23126    trace_hfp_store_a9_ho    pl1_operators_:    7484.\r
+       23176    trace_hfp_store_q6_ho    pl1_operators_:    7484.\r
+       23106    trace_hfp_store_q9_co    pl1_operators_:    7484.\r
+       23142    trace_hfp_store_q9_ho    pl1_operators_:    7484.\r
+       22033    trace_hfp_tct_byte_0     pl1_operators_:    7484.\r
+       22233    trace_hfp_tct_byte_1     pl1_operators_:    7484.\r
+       22433    trace_hfp_tct_byte_2     pl1_operators_:    7484.\r
+       22633    trace_hfp_tct_byte_3     pl1_operators_:    7484.\r
+       22023    trace_hfp_tct_octal_040  pl1_operators_:    7484.\r
+       22017    trace_hfp_tct_octal_060  pl1_operators_:    7484.\r
+       23754    trace_hfp_true           pl1_operators_:    7484.\r
+       23033    trace_hfp_VLA_words_per_seg_   pl1_operators_:    7484.\r
+       17506    trace_ho_to_bo           pl1_operators_:    7413.\r
+       21434    trace_init_stack_join    pl1_operators_:    7470.\r
+       20064    trace_mask_bit           pl1_operators_:    7413.\r
+       20176    trace_max_single_value   pl1_operators_:    7413.\r
+       20407    trace_mod2_tab           pl1_operators_:    7413.\r
+       20411    trace_mod4_tab           pl1_operators_:    7413.\r
+       17754    trace_ones               pl1_operators_:    7413.\r
+       17644    trace_operator_table     pl1_operators_:     233, 7413, 7424, 7470, 7474.\r
+       20415    trace_op_vector          pl1_operators_:    7413.\r
+       20324    trace_ptr_mask           pl1_operators_:    7413.\r
+       20336    trace_reset_stack        pl1_operators_:    7413.\r
+       20356    trace_r_e_as             pl1_operators_:    7413.\r
+       20373    trace_r_ge_a             pl1_operators_:    7413.\r
+       20370    trace_r_ge_s             pl1_operators_:    7413.\r
+       20347    trace_r_g_a              pl1_operators_:    7413.\r
+       20343    trace_r_g_s              pl1_operators_:    7413.\r
+       20364    trace_r_le_a             pl1_operators_:    7413.\r
+       20376    trace_r_le_s             pl1_operators_:    7413.\r
+       20340    trace_r_l_a              pl1_operators_:    7413.\r
+       20353    trace_r_l_s              pl1_operators_:    7413.\r
+       20361    trace_r_ne_as            pl1_operators_:    7413.\r
+       21432    trace_save_link          pl1_operators_:    7470, 7472.\r
+       20404    trace_set_stack          pl1_operators_:    7413.\r
+       21561    trace_ss_eed             pl1_operators_:    7476.\r
+       21476    trace_ss_ext_entry       pl1_operators_:    7413, 7474, 7484.\r
+       21535    trace_ss_ext_entry_desc  pl1_operators_:    7413, 7476, 7484.\r
+       21525    trace_ss_init_stack_join       pl1_operators_:    7474.\r
+       21522    trace_ss_save_link       pl1_operators_:    7474, 7476.\r
+       17602    trace_store_a6_ho        pl1_operators_:    7413.\r
+       17510    trace_store_a9_co        pl1_operators_:    7413.\r
+       17554    trace_store_a9_ho        pl1_operators_:    7413.\r
+       17624    trace_store_q6_ho        pl1_operators_:    7413.\r
+       17534    trace_store_q9_co        pl1_operators_:    7413.\r
+       17570    trace_store_q9_ho        pl1_operators_:    7413.\r
+       16461    trace_tct_byte_0         pl1_operators_:    7413.\r
+       16661    trace_tct_byte_1         pl1_operators_:    7413.\r
+       17061    trace_tct_byte_2         pl1_operators_:    7413.\r
+       17261    trace_tct_byte_3         pl1_operators_:    7413.\r
+       16451    trace_tct_octal_040      pl1_operators_:    7413.\r
+       16445    trace_tct_octal_060      pl1_operators_:    7413.\r
+       20402    trace_true               pl1_operators_:    7413.\r
+       17461    trace_VLA_words_per_seg_       pl1_operators_:    7413.\r
+        5351    trans2_blank             pl1_operators_:    3215, 3220.\r
+        5335    trans2_loop              pl1_operators_:    3207, 3219, 3224.\r
+        5412    trans3_blank             pl1_operators_:    3256, 3261.\r
+        5373    trans3_loop              pl1_operators_:    3245, 3260, 3265, 3270.\r
+        5416    trans3_same              pl1_operators_:    3253, 3266.\r
+        5322    translate_2              pl1_operators_:    1335, 3195, 6988, 7413, 7484.\r
+        5360    translate_3              pl1_operators_:    1335, 3233, 6988, 7413, 7484.\r
+        5355    trans_done               pl1_operators_:    3209, 3225, 3247.\r
+        6660    trans_sign_fl            pl1_operators_:    1335, 4287, 6988, 7413, 7484.\r
+        6650    trans_sign_fx1           pl1_operators_:    1335, 4274, 6988, 7413, 7484.\r
+        7265    tra_ext_1                pl1_operators_:    1335, 4637, 6988, 7413, 7484.\r
+        7273    tra_ext_2                pl1_operators_:    1335, 4648, 6988, 7413, 7484.\r
+        2164    true                     pl1_operators_:    1335, 4178, 4187, 6988, 7413, 7484.\r
+           1    truncate                 pl1_operators_:    1335, 6988, 7413, 7484,\r
+                                         eis_bits:      31.\r
+        7354    trunc_fl                 pl1_operators_:    1335, 4710, 7413.\r
+        7363    trunc_fx1                pl1_operators_:    1335, 4721, 6988, 7413, 7484.\r
+        7375    trunc_fx2                pl1_operators_:    1335, 4735, 6988, 7413, 7484.\r
+        5243    ttf_ttn                  pl1_operators_:    3113, 3123.\r
+         551    tv_offset                stack_header:        75,   80,   81,   82,   83,   84.\r
+       11631    unimp                    pl1_operators_:    1335, 6553, 6988, 7413, 7484.\r
+       11234    unpack_picture           pl1_operators_:    1335, 6209, 6988, 7413, 7484.\r
+                unpack_picture_          pl1_operators_:    6211.\r
+        7655    unpk_to_pk               pl1_operators_:    1335, 4992, 6048, 6988, 7413, 7484.\r
+                unwinder_                pl1_operators_:    4654.\r
+        7202    use_first                pl1_operators_:    3619, 3641, 3669, 3720, 3722, 3740, 4569.\r
+       12164    val_entry                pl1_operators_:    1335, 6899, 6988, 7413, 7484.\r
+       12162    val_entry_desc           pl1_operators_:    1335, 6899, 6988, 7413, 7484.\r
+        5622    var_call                 pl1_operators_:     235, 3492.\r
+        6571    vclock_mac               pl1_operators_:    1335, 4203, 6988, 7413, 7484.\r
+        5147    verify                   pl1_operators_:    1335, 3035, 6988, 7413, 7484.\r
+        5155    verify_al                pl1_operators_:    1335, 3046, 6988, 7413, 7484.\r
+        5151    verify_co                pl1_operators_:    1335, 3038, 6988, 7413, 7484.\r
+        5245    verify_eis               pl1_operators_:    1335, 3127, 6988, 7413, 7484.\r
+        5271    verify_for_ltrim         pl1_operators_:    1335, 3160, 6988, 7413, 7484.\r
+        5304    verify_for_rtrim         pl1_operators_:    1335, 3174, 6988, 7413, 7484.\r
+        5153    verify_ho                pl1_operators_:    1335, 3042, 6988, 7413, 7484.\r
+        5247    verify_rev_chars         pl1_operators_:    1335, 3133, 6988, 7413, 7484.\r
+        5156    ver_1                    pl1_operators_:    3036, 3040, 3044, 3048.\r
+        5170    ver_2                    pl1_operators_:    3058, 3062, 3066, 3070.\r
+        5171    ver_3                    pl1_operators_:    3050, 3072.\r
+        5175    ver_4                    pl1_operators_:    3076, 3087, 3090.\r
+        5214    ver_done                 pl1_operators_:    3084, 3091.\r
+        5216    ver_fail                 pl1_operators_:    3082, 3093.\r
+        5273    vfl_loop                 pl1_operators_:    3163, 3172.\r
+        5316    vfr_done                 pl1_operators_:    3183, 3186.\r
+        5307    vfr_loop                 pl1_operators_:    3178, 3185.\r
+                virtual_cpu_time_op_     pl1_operators_:    4207.\r
+        1243    VLA_words_per_seg_       pl1_operators_:     236, 1335.\r
+          10    x0                       eis_bits:      13.\r
+          11    x1                       pl1_operators_:    1615, 1705, 1831, 1896, 1897, 1898, 1899, 1900, 2194, 2429, 2480,\r
+                                                            2531,\r
+                                         eis_bits:      14.\r
+          12    x2                       eis_bits:      15.\r
+          13    x3                       eis_bits:      16.\r
+          14    x4                       eis_bits:      17.\r
+          15    x5                       eis_bits:      18.\r
+          16    x6                       eis_bits:      19.\r
+          17    x7                       eis_bits:      20.\r
+           6    xor                      pl1_operators_:    1899,\r
+                                         eis_bits:      26.\r
+        4435    zb_1                     pl1_operators_:    2515, 2519, 2523, 2528.\r
+        4426    zero_bits                pl1_operators_:    1335, 2513, 6988, 7413, 7484.\r
+        4434    zero_bits_aligned        pl1_operators_:    1335, 2525, 6988, 7413, 7484.\r
+        4430    zero_bits_co             pl1_operators_:    1335, 2517, 6988, 7413, 7484.\r
+        4432    zero_bits_ho             pl1_operators_:    1335, 2521, 6988, 7413, 7484.\r
+        3703    zero_it                  pl1_operators_:    1417, 1984.\r
+        6637    zero_main_flag           pl1_operators_:    4252, 4258.\r
+        6526    zero_one                 pl1_operators_:    3968, 3978, 4141.\r
+        4504    zix                      pl1_operators_:    2579, 2582, 2587, 2596, 2613, 2628, 2640, 2644, 2659, 2676, 2703, 2741.\r
+        7227    z_done                   pl1_operators_:    4599, 4612, 4616, 4620, 5022, 5035, 5048, 5061, 5386, 5398, 5473,\r
+                                                            6094, 6127, 6165, 6187, 6220, 6290.\r
+\r
+\r
+NO FATAL ERRORS\r

diff --git a/pl1/symbols.sed b/pl1/symbols.sed
new file mode 100755 (executable)
index 0000000..7bc635c
--- /dev/null
+++ b/pl1/symbols.sed
@@ -0,0 +1,2 @@
+s/^    \([0-7][0-7][0-7][0-7][0-7][0-7]\)  ................... ......  \([A-Za-z_][0-9A-Za-z_]*\):.*/  {0\1, "\2"},/p
+

diff --git a/pl1_operators_.inc b/pl1_operators_.inc
new file mode 100644 (file)
index 0000000..e03d1dc
--- /dev/null
+++ b/pl1_operators_.inc
@@ -0,0 +1,876 @@
+  {0000000, "begin_pl1_operators"},
+  {0000000, "bitno_to_charno_table"},
+  {0000227, "tct_octal_060"},
+  {0000233, "tct_octal_040"},
+  {0000243, "tct_byte_0"},
+  {0000443, "tct_byte_1"},
+  {0000643, "tct_byte_2"},
+  {0001043, "tct_byte_3"},
+  {0001243, "VLA_words_per_seg_"},
+  {0001244, "csl_vector"},
+  {0001264, "co_to_bo"},
+  {0001270, "ho_to_bo"},
+  {0001272, "store_a9_co"},
+  {0001316, "store_q9_co"},
+  {0001336, "store_a9_ho"},
+  {0001352, "store_q9_ho"},
+  {0001364, "store_a6_ho"},
+  {0001406, "store_q6_ho"},
+  {0001426, "operator_table"},
+  {0001426, "bit_mask"},
+  {0001536, "ones"},
+  {0001646, "mask_bit"},
+  {0001760, "max_single_value"},
+  {0002066, "blanks"},
+  {0002106, "ptr_mask"},
+  {0002110, "fx1_to_fx2"},
+  {0002113, "fx1_to_fl2"},
+  {0002114, "fx2_to_fl2"},
+  {0002120, "reset_stack"},
+  {0002122, "r_l_a"},
+  {0002125, "r_g_s"},
+  {0002131, "r_g_a"},
+  {0002135, "r_l_s"},
+  {0002140, "r_e_as"},
+  {0002143, "r_ne_as"},
+  {0002146, "r_le_a"},
+  {0002152, "r_ge_s"},
+  {0002155, "r_ge_a"},
+  {0002160, "r_le_s"},
+  {0002164, "true"},
+  {0002166, "set_stack"},
+  {0002171, "mod2_tab"},
+  {0002173, "mod4_tab"},
+  {0002177, "op_vector"},
+  {0002473, "entry_operators"},
+  {0003140, "alloc_char_temp"},
+  {0003146, "act"},
+  {0003150, "abt"},
+  {0003152, "alloc_bit_temp"},
+  {0003161, "alloc_temp"},
+  {0003162, "alloc"},
+  {0003177, "cat_realloc_bits"},
+  {0003207, "realloc_bit_temp"},
+  {0003215, "cat_realloc_chars"},
+  {0003217, "realloc_char_temp"},
+  {0003225, "realloc"},
+  {0003254, "shorten_stack"},
+  {0003261, "shorten_stack_protect_ind"},
+  {0003270, "save_stack_quick"},
+  {0003274, "restore_stack_quick"},
+  {0003276, "set_stack_extend"},
+  {0003304, "save_string"},
+  {0003315, "set_chars_eis"},
+  {0003321, "set_chars"},
+  {0003323, "set_chars_co"},
+  {0003325, "set_chars_ho"},
+  {0003327, "set_chars_aligned"},
+  {0003330, "sca"},
+  {0003332, "sca1"},
+  {0003336, "set_bits_eis"},
+  {0003342, "set_bits"},
+  {0003344, "set_bits_co"},
+  {0003346, "set_bits_ho"},
+  {0003350, "set_bits_aligned"},
+  {0003351, "sba"},
+  {0003354, "store_string"},
+  {0003371, "string_store"},
+  {0003373, "string_store_co"},
+  {0003402, "string_store_ho"},
+  {0003410, "ss_0"},
+  {0003416, "fetch_chars"},
+  {0003421, "get_chars"},
+  {0003423, "get_chars_co"},
+  {0003425, "get_chars_ho"},
+  {0003427, "get_chars_aligned"},
+  {0003430, "gc_0"},
+  {0003433, "gc_1"},
+  {0003441, "fetch_chars_eis"},
+  {0003451, "fetch_bits"},
+  {0003455, "get_bits"},
+  {0003457, "get_bits_co"},
+  {0003461, "get_bits_ho"},
+  {0003463, "get_bits_aligned"},
+  {0003464, "gb_0"},
+  {0003466, "gb_1"},
+  {0003474, "pad_chars"},
+  {0003506, "pad_bits"},
+  {0003517, "and_bits"},
+  {0003521, "and_bits_co"},
+  {0003523, "and_bits_ho"},
+  {0003525, "and_bits_aligned"},
+  {0003526, "and_1"},
+  {0003530, "or_bits"},
+  {0003532, "or_bits_co"},
+  {0003534, "or_bits_ho"},
+  {0003536, "or_bits_aligned"},
+  {0003537, "or_1"},
+  {0003541, "exor_bits"},
+  {0003543, "exor_bits_co"},
+  {0003545, "exor_bits_ho"},
+  {0003547, "exor_bits_aligned"},
+  {0003550, "exor_1"},
+  {0003552, "cat_move_bits"},
+  {0003554, "cat_move_bits_co"},
+  {0003556, "cat_move_bits_ho"},
+  {0003560, "cat_move_bits_aligned"},
+  {0003561, "cmb_1"},
+  {0003573, "move_not_bits"},
+  {0003575, "move_not_bits_co"},
+  {0003577, "move_not_bits_ho"},
+  {0003601, "move_not_bits_aligned"},
+  {0003602, "move_not_1"},
+  {0003604, "move_bits"},
+  {0003606, "move_bits_co"},
+  {0003610, "move_bits_ho"},
+  {0003612, "move_bits_aligned"},
+  {0003613, "mb_1"},
+  {0003614, "logical"},
+  {0003624, "log_exit"},
+  {0003626, "nop_op"},
+  {0003627, "ana_op"},
+  {0003630, "ora_op"},
+  {0003631, "era_op"},
+  {0003632, "not_op"},
+  {0003633, "move_chars"},
+  {0003635, "move_chars_co"},
+  {0003637, "move_chars_ho"},
+  {0003641, "move_chars_aligned"},
+  {0003642, "mc_1"},
+  {0003654, "cat_move_chars"},
+  {0003656, "cat_move_chars_co"},
+  {0003660, "cat_move_chars_ho"},
+  {0003662, "cat_move_chars_aligned"},
+  {0003663, "cmc_1"},
+  {0003676, "ext_and_1"},
+  {0003677, "ext_and_2"},
+  {0003703, "zero_it"},
+  {0003717, "comp_bits"},
+  {0003726, "chars_move_vt"},
+  {0003727, "chars_move"},
+  {0003731, "chars_move_vt_co"},
+  {0003732, "chars_move_co"},
+  {0003734, "chars_move_vt_ho"},
+  {0003735, "chars_move_ho"},
+  {0003737, "chars_move_vta"},
+  {0003740, "chars_move_aligned"},
+  {0003741, "cm_1"},
+  {0003754, "bits_move_vt"},
+  {0003755, "bits_move"},
+  {0003757, "bits_move_vt_co"},
+  {0003760, "bits_move_co"},
+  {0003762, "bits_move_vt_ho"},
+  {0003763, "bits_move_ho"},
+  {0003765, "bits_move_vta"},
+  {0003766, "bits_move_aligned"},
+  {0003767, "bm_1"},
+  {0004002, "chars_move_ck"},
+  {0004004, "chars_move_ck_co"},
+  {0004006, "chars_move_ck_ho"},
+  {0004010, "chars_move_ck_al"},
+  {0004011, "cmk_1"},
+  {0004021, "bits_move_ck"},
+  {0004023, "bits_move_ck_co"},
+  {0004025, "bits_move_ck_ho"},
+  {0004027, "bits_move_ck_al"},
+  {0004030, "bmk_1"},
+  {0004040, "cat_chars"},
+  {0004042, "cat_chars_co"},
+  {0004044, "cat_chars_ho"},
+  {0004046, "cat_chars_aligned"},
+  {0004061, "cat_done"},
+  {0004063, "cat_bits"},
+  {0004065, "cat_bits_co"},
+  {0004067, "cat_bits_ho"},
+  {0004071, "cat_bits_aligned"},
+  {0004103, "repeat"},
+  {0004126, "repeat_cs_loop"},
+  {0004134, "repeat_exit"},
+  {0004143, "repeat_bs"},
+  {0004157, "repeat_bs_loop"},
+  {0004166, "reverse_bs"},
+  {0004201, "reverse_bs_loop"},
+  {0004210, "reverse_bs_exit"},
+  {0004212, "reverse_cs"},
+  {0004225, "reverse_cs_loop"},
+  {0004234, "reverse_cs_exit"},
+  {0004236, "suffix_cs"},
+  {0004242, "suffix_cs_1"},
+  {0004254, "suffix_bs"},
+  {0004260, "suffix_bs_1"},
+  {0004272, "suffix_cs_ck"},
+  {0004277, "suffix_error"},
+  {0004312, "suffix_bs_ck"},
+  {0004320, "cp_chars"},
+  {0004322, "cp_chars_co"},
+  {0004324, "cp_chars_ho"},
+  {0004326, "cp_chars_aligned"},
+  {0004331, "cpcs_1"},
+  {0004340, "cp_bits"},
+  {0004342, "cp_bits_co"},
+  {0004344, "cp_bits_ho"},
+  {0004346, "cp_bits_aligned"},
+  {0004350, "cpbs_1"},
+  {0004357, "cpcs_ext1"},
+  {0004360, "cpcs_ext2"},
+  {0004364, "cpbs_ext1"},
+  {0004365, "cpbs_ext2"},
+  {0004371, "cpbs3"},
+  {0004373, "cpbs3_co"},
+  {0004375, "cpbs3_ho"},
+  {0004377, "cpbs4"},
+  {0004401, "cpbs3_aligned"},
+  {0004402, "cpbs3a"},
+  {0004407, "blank_chars"},
+  {0004411, "blank_chars_co"},
+  {0004413, "blank_chars_ho"},
+  {0004415, "blank_chars_aligned"},
+  {0004416, "bc_1"},
+  {0004426, "zero_bits"},
+  {0004430, "zero_bits_co"},
+  {0004432, "zero_bits_ho"},
+  {0004434, "zero_bits_aligned"},
+  {0004435, "zb_1"},
+  {0004444, "copy_const_vt"},
+  {0004445, "copy_const"},
+  {0004453, "index_chars"},
+  {0004455, "index_chars_co"},
+  {0004457, "index_chars_ho"},
+  {0004461, "index_chars_aligned"},
+  {0004462, "ixc"},
+  {0004464, "index_chars_eis"},
+  {0004464, "ixc2"},
+  {0004473, "ixc1"},
+  {0004500, "ixc_ret_ok"},
+  {0004504, "zix"},
+  {0004507, "ixcs_long"},
+  {0004513, "ixcs_loop"},
+  {0004535, "ixc_ret_ok_1"},
+  {0004540, "ix_rev_chars"},
+  {0004555, "ix_rev_long"},
+  {0004560, "ix_rev_loop"},
+  {0004602, "ix_rev_more"},
+  {0004606, "index_bits_eis"},
+  {0004611, "index_bits"},
+  {0004613, "index_bits_co"},
+  {0004615, "index_bits_ho"},
+  {0004617, "index_bits_aligned"},
+  {0004620, "ixb"},
+  {0004624, "ixb2"},
+  {0004625, "ixb1"},
+  {0004627, "ixbs_loop"},
+  {0004645, "index_cs_1_eis"},
+  {0004650, "index_cs_1"},
+  {0004652, "index_cs_1_co"},
+  {0004654, "index_cs_1_ho"},
+  {0004656, "index_cs_1_aligned"},
+  {0004657, "ixcs1_a"},
+  {0004663, "ixcs1_b"},
+  {0004670, "index_bs_1_eis"},
+  {0004673, "index_bs_1"},
+  {0004675, "index_bs_1_co"},
+  {0004677, "index_bs_1_ho"},
+  {0004701, "index_bs_1_aligned"},
+  {0004702, "ixbs1_a"},
+  {0004706, "ixbs1_b"},
+  {0004714, "index_before_cs"},
+  {0004720, "index_after_cs"},
+  {0004723, "ixba"},
+  {0004740, "ixba_fail"},
+  {0004743, "ixba_bs_fail"},
+  {0004746, "nop_adq_dl"},
+  {0004750, "ixba_long"},
+  {0004752, "ixba_loop"},
+  {0005002, "nop_adq"},
+  {0005004, "index_before_bs"},
+  {0005010, "index_after_bs"},
+  {0005013, "ixba_bs"},
+  {0005014, "ixba_bs1"},
+  {0005016, "ixba_bs_loop"},
+  {0005035, "index_before_bs_1"},
+  {0005041, "index_after_bs_1"},
+  {0005044, "ixba_bs2"},
+  {0005052, "make_bit_table"},
+  {0005054, "make_bit_table_co"},
+  {0005056, "make_bit_table_ho"},
+  {0005060, "make_bit_table_al"},
+  {0005061, "mbt"},
+  {0005072, "mbt_1"},
+  {0005110, "form_bit_table"},
+  {0005112, "form_bit_table_co"},
+  {0005114, "form_bit_table_ho"},
+  {0005116, "form_bit_table_al"},
+  {0005117, "fbt"},
+  {0005130, "fbt_1"},
+  {0005147, "verify"},
+  {0005151, "verify_co"},
+  {0005153, "verify_ho"},
+  {0005155, "verify_al"},
+  {0005156, "ver_1"},
+  {0005161, "const_verify"},
+  {0005163, "const_verify_co"},
+  {0005165, "const_verify_ho"},
+  {0005167, "const_verify_al"},
+  {0005170, "ver_2"},
+  {0005171, "ver_3"},
+  {0005175, "ver_4"},
+  {0005214, "ver_done"},
+  {0005216, "ver_fail"},
+  {0005223, "search_eis"},
+  {0005226, "search_loop"},
+  {0005237, "search_fail"},
+  {0005241, "search_done"},
+  {0005243, "ttf_ttn"},
+  {0005245, "verify_eis"},
+  {0005247, "verify_rev_chars"},
+  {0005251, "search_rev_chars"},
+  {0005253, "search_rev_loop"},
+  {0005263, "rev_ttf_ttn"},
+  {0005265, "rev_search_done"},
+  {0005271, "verify_for_ltrim"},
+  {0005273, "vfl_loop"},
+  {0005304, "verify_for_rtrim"},
+  {0005307, "vfr_loop"},
+  {0005316, "vfr_done"},
+  {0005322, "translate_2"},
+  {0005335, "trans2_loop"},
+  {0005351, "trans2_blank"},
+  {0005355, "trans_done"},
+  {0005360, "translate_3"},
+  {0005373, "trans3_loop"},
+  {0005412, "trans3_blank"},
+  {0005416, "trans3_same"},
+  {0005422, "return_words"},
+  {0005423, "rw_0"},
+  {0005430, "rw_1"},
+  {0005442, "return_bits"},
+  {0005444, "return_bits_co"},
+  {0005446, "return_bits_ho"},
+  {0005450, "return_bits_al"},
+  {0005451, "rba"},
+  {0005453, "return_bits_eis"},
+  {0005466, "return_chars"},
+  {0005470, "return_chars_co"},
+  {0005472, "return_chars_ho"},
+  {0005474, "return_chars_aligned"},
+  {0005475, "rca"},
+  {0005477, "return_chars_eis"},
+  {0005506, "return_pop"},
+  {0005543, "same_stack"},
+  {0005545, "different_stack"},
+  {0005552, "leave_begin_block"},
+  {0005557, "fort_return_mac"},
+  {0005572, "begin_return_mac"},
+  {0005600, "return_mac"},
+  {0005607, "call_ent_var_desc"},
+  {0005610, "call_ent_var"},
+  {0005617, "save_display"},
+  {0005622, "var_call"},
+  {0005623, "call_ext_in_desc"},
+  {0005623, "call_ext_out_desc"},
+  {0005624, "call_ext_in"},
+  {0005624, "call_ext_out"},
+  {0005633, "forward_call"},
+  {0005634, "call_int_this_desc"},
+  {0005635, "call_int_this"},
+  {0005645, "call_int_other_desc"},
+  {0005646, "call_int_other"},
+  {0005660, "move_label_var"},
+  {0005666, "make_label_var"},
+  {0005674, "display_chase"},
+  {0005701, "mdfx1"},
+  {0005714, "mdfx1a"},
+  {0005716, "mdfx2"},
+  {0005720, "mdfx4"},
+  {0005734, "mdfx4a"},
+  {0005742, "mdfx3"},
+  {0005757, "scaled_mod_fx2"},
+  {0005761, "scaled_mod_fx4"},
+  {0005766, "sc_mod_common"},
+  {0005773, "scmd1"},
+  {0006003, "scmd2"},
+  {0006010, "scmd3"},
+  {0006022, "scmd4"},
+  {0006027, "scaled_mod_fx1"},
+  {0006031, "scaled_mod_fx3"},
+  {0006042, "divide_fx1"},
+  {0006044, "divide_fx3"},
+  {0006052, "dv_done"},
+  {0006061, "divide_fx2"},
+  {0006063, "divide_fx4"},
+  {0006071, "div_4_cplx_ops"},
+  {0006102, "divide1"},
+  {0006112, "divide2"},
+  {0006144, "divisor_3"},
+  {0006154, "prepare_dividend"},
+  {0006176, "get_qhat"},
+  {0006205, "dec_qhat"},
+  {0006210, "l3h"},
+  {0006215, "div_less"},
+  {0006222, "got_rhat"},
+  {0006234, "got_qhat"},
+  {0006241, "div_loop"},
+  {0006301, "div_loop1"},
+  {0006321, "store_q"},
+  {0006327, "done"},
+  {0006340, "l2"},
+  {0006367, "signal_overflow"},
+  {0006402, "overflow_name"},
+  {0006406, "div_single"},
+  {0006417, "l1"},
+  {0006427, "thru"},
+  {0006431, "divide_extension"},
+  {0006443, "shift_dividend"},
+  {0006450, "split"},
+  {0006466, "hard_shift"},
+  {0006503, "sl"},
+  {0006522, "right_shift"},
+  {0006526, "zero_one"},
+  {0006530, "sign_change"},
+  {0006532, "fl2_to_fx1"},
+  {0006532, "fl2_to_fx2"},
+  {0006542, "fl2_to_fxscaled"},
+  {0006553, "stac_mac"},
+  {0006557, "stacq_mac"},
+  {0006563, "clock_mac"},
+  {0006571, "vclock_mac"},
+  {0006577, "stop"},
+  {0006610, "return_main"},
+  {0006614, "begin_return_main"},
+  {0006626, "set_main_flag"},
+  {0006637, "zero_main_flag"},
+  {0006642, "sign_mac"},
+  {0006650, "trans_sign_fx1"},
+  {0006660, "trans_sign_fl"},
+  {0006670, "fort_mdfl1"},
+  {0006706, "fort_dmod"},
+  {0006724, "rfb1_to_cflb1"},
+  {0006726, "rfb2_to_cflb1"},
+  {0006734, "mpcfl1_1"},
+  {0006735, "mpcfl1_2"},
+  {0006755, "dvcfl1_1"},
+  {0006756, "dvcfl1_2"},
+  {0007003, "dvcfl1_else"},
+  {0007023, "copy_words"},
+  {0007033, "copy_double"},
+  {0007035, "mpfx2"},
+  {0007104, "mpfx3"},
+  {0007200, "mult_overflow"},
+  {0007202, "use_first"},
+  {0007205, "sr_check"},
+  {0007227, "z_done"},
+  {0007232, "sr_3"},
+  {0007244, "sr_2"},
+  {0007247, "signal_stringrange"},
+  {0007251, "string_signal"},
+  {0007262, "strg"},
+  {0007265, "tra_ext_1"},
+  {0007273, "tra_ext_2"},
+  {0007301, "alloc_auto_adj"},
+  {0007314, "mdfl1"},
+  {0007333, "mdfl1a"},
+  {0007335, "mdfl2"},
+  {0007352, "mdfl2a"},
+  {0007354, "trunc_fl"},
+  {0007363, "trunc_fx1"},
+  {0007375, "trunc_fx2"},
+  {0007405, "floor_fl"},
+  {0007415, "ceil_fl"},
+  {0007425, "floor_fx1"},
+  {0007444, "ceil_fx1"},
+  {0007463, "floor_fx2"},
+  {0007500, "ceil_fx2"},
+  {0007515, "round_fx1"},
+  {0007520, "round_fx1a"},
+  {0007532, "round_fx1b"},
+  {0007536, "round_fx2"},
+  {0007541, "round_fx2a"},
+  {0007550, "round_fx2b"},
+  {0007553, "round_fl"},
+  {0007574, "fl_sign_change"},
+  {0007576, "nearest_whole_number"},
+  {0007602, "nearest_whole_negative"},
+  {0007607, "nearest_integer"},
+  {0007613, "nearest_integer_negative"},
+  {0007620, "longbs_to_fx2"},
+  {0007634, "longbs_to_fx2_short"},
+  {0007636, "longbs_to_bs18"},
+  {0007646, "pk_to_unpk"},
+  {0007655, "unpk_to_pk"},
+  {0007663, "packed_to_bp"},
+  {0007667, "rpd_odd_lp_bp"},
+  {0007677, "rpd_odd_bp_lp"},
+  {0007707, "rpd_even_lp_bp"},
+  {0007717, "rpd_even_bp_lp"},
+  {0007727, "alm_operators_begin"},
+  {0007727, "alm_call"},
+  {0007733, "alm_push"},
+  {0007747, "alm_entry"},
+  {0007757, "alm_return"},
+  {0007765, "alm_return_no_pop"},
+  {0007771, "alm_operators_end"},
+  {0007771, "size_check_fx1"},
+  {0007775, "signal_size_condition"},
+  {0010002, "ssc"},
+  {0010010, "size_ok_fx"},
+  {0010013, "size_check_fx2"},
+  {0010030, "size_check_uns_fx1"},
+  {0010036, "size_check_uns_fx2"},
+  {0010044, "mpy_overflow_check"},
+  {0010056, "signal_size"},
+  {0010060, "size_name"},
+  {0010061, "signal_stringsize"},
+  {0010070, "stringsize_name"},
+  {0010073, "fort_storage"},
+  {0010115, "enable_op"},
+  {0010126, "on_1"},
+  {0010132, "add_on"},
+  {0010136, "have_on"},
+  {0010146, "fort_cleanup"},
+  {0010157, "fort_cleanup_1"},
+  {0010163, "add_fort_cleanup"},
+  {0010167, "have_fort_cleanup"},
+  {0010206, "fort_cleanup_name"},
+  {0010210, "signal_op"},
+  {0010214, "bound_ck_signal"},
+  {0010224, "subrg"},
+  {0010230, "enable_file"},
+  {0010241, "make_unit"},
+  {0010267, "init_unit"},
+  {0010277, "ef_1"},
+  {0010303, "revert_file"},
+  {0010314, "find_unit"},
+  {0010320, "fu_1"},
+  {0010331, "put_data_eis"},
+  {0010333, "put_data"},
+  {0010335, "put_data_co"},
+  {0010337, "put_data_ho"},
+  {0010341, "put_data_aligned"},
+  {0010342, "pd_1"},
+  {0010344, "get_list_eis"},
+  {0010346, "get_list"},
+  {0010350, "get_list_co"},
+  {0010352, "get_list_ho"},
+  {0010354, "get_list_aligned"},
+  {0010355, "gl_1"},
+  {0010357, "get_edit"},
+  {0010361, "get_edit_co"},
+  {0010363, "get_edit_ho"},
+  {0010365, "get_edit_aligned"},
+  {0010366, "ge_1"},
+  {0010370, "put_list_eis"},
+  {0010404, "plio_eis"},
+  {0010411, "put_list"},
+  {0010413, "put_list_co"},
+  {0010415, "put_list_ho"},
+  {0010417, "put_list_aligned"},
+  {0010420, "pl_1"},
+  {0010422, "put_edit"},
+  {0010424, "put_edit_co"},
+  {0010426, "put_edit_ho"},
+  {0010430, "put_edit_aligned"},
+  {0010431, "pe_1"},
+  {0010432, "plio"},
+  {0010440, "plio4"},
+  {0010454, "put_return"},
+  {0010460, "plio2"},
+  {0010507, "get_terminate"},
+  {0010511, "put_terminate"},
+  {0010513, "open_file"},
+  {0010515, "close_file"},
+  {0010517, "fortran_read"},
+  {0010517, "fortran_write"},
+  {0010520, "ft_io"},
+  {0010525, "ft_io1"},
+  {0010537, "ft_fast_read_or_write"},
+  {0010541, "ft_fast_call"},
+  {0010555, "fortran_scalar_xmit"},
+  {0010555, "fortran_array_xmit"},
+  {0010556, "ft_fast_xmit"},
+  {0010562, "fortran_manip"},
+  {0010564, "fortran_terminate"},
+  {0010567, "ftn_open_element"},
+  {0010606, "ftn_open_indicators"},
+  {0010610, "ftn_open_status"},
+  {0010620, "ftn_open_io_switch"},
+  {0010630, "ftn_open_attach_desc"},
+  {0010640, "ftn_open_filename"},
+  {0010650, "ftn_open_mode"},
+  {0010660, "ftn_open_access"},
+  {0010670, "ftn_open_form"},
+  {0010700, "ftn_open_blank"},
+  {0010710, "ftn_open_max_rec_len"},
+  {0010712, "ftn_open_binary"},
+  {0010714, "ftn_open_prompt"},
+  {0010716, "ftn_open_carriage"},
+  {0010720, "ftn_open_defer"},
+  {0010722, "ftn_inquire_element"},
+  {0010756, "ftn_inquire_indicators"},
+  {0010760, "ftn_inquire_noop"},
+  {0010761, "ftn_inquire_filename"},
+  {0010765, "ftn_inquire_unit"},
+  {0010767, "ftn_inquire_access"},
+  {0010772, "ftn_inquire_form"},
+  {0010775, "ftn_inquire_blank"},
+  {0011000, "ftn_inquire_name"},
+  {0011003, "ftn_inquire_sequential"},
+  {0011006, "ftn_inquire_formatted"},
+  {0011011, "ftn_inquire_unformatted"},
+  {0011014, "ftn_inquire_direct"},
+  {0011017, "ftn_inquire_recl"},
+  {0011021, "ftn_inquire_exist"},
+  {0011023, "ftn_inquire_opened"},
+  {0011025, "ftn_inquire_number"},
+  {0011027, "ftn_inquire_named"},
+  {0011031, "ftn_inquire_nextrec"},
+  {0011033, "ftn_get_area_ptr"},
+  {0011040, "pointer_easy"},
+  {0011040, "pointer_hard"},
+  {0011053, "pointer_easy_pk"},
+  {0011053, "pointer_hard_pk"},
+  {0011066, "offset_easy"},
+  {0011066, "offset_hard"},
+  {0011071, "oe"},
+  {0011073, "oe1"},
+  {0011102, "offset_easy_pk"},
+  {0011102, "offset_hard_pk"},
+  {0011112, "alloc_storage"},
+  {0011115, "alloc_block"},
+  {0011117, "call_alloc"},
+  {0011130, "call_alloc_free"},
+  {0011142, "free_block"},
+  {0011150, "call_free"},
+  {0011155, "push_ctl_desc"},
+  {0011157, "push_ctl_data"},
+  {0011201, "pop_ctl_data"},
+  {0011201, "pop_ctl_desc"},
+  {0011221, "allocation"},
+  {0011231, "allocation_done"},
+  {0011234, "unpack_picture"},
+  {0011237, "pack_picture"},
+  {0011241, "picture_common"},
+  {0011251, "call_signal_"},
+  {0011267, "signal_common"},
+  {0011331, "get_our_lp"},
+  {0011335, "io_signal"},
+  {0011357, "set_support"},
+  {0011362, "get_math_entry"},
+  {0011365, "fort_math_names"},
+  {0011463, "fortran_end"},
+  {0011471, "fortran_pause"},
+  {0011473, "fortran_stop"},
+  {0011474, "pause_stop"},
+  {0011512, "pause_stop_names"},
+  {0011514, "fortran_chain"},
+  {0011531, "old_sys_name"},
+  {0011534, "enter_BFP_mode"},
+  {0011540, "enter_HFP_mode"},
+  {0011565, "call_set_hexfp_control"},
+  {0011631, "unimp"},
+  {0011637, "error_name"},
+  {0011641, "bit_mask_one"},
+  {0011705, "mask_bit_one"},
+  {0011751, "single_bit"},
+  {0012015, "floor_ceil_mask"},
+  {0012062, "ext_entry"},
+  {0012074, "save_link"},
+  {0012076, "init_stack_join"},
+  {0012106, "ext_entry_desc"},
+  {0012120, "eed"},
+  {0012127, "int_entry"},
+  {0012141, "set_display"},
+  {0012145, "int_entry_desc"},
+  {0012162, "val_entry_desc"},
+  {0012164, "val_entry"},
+  {0012222, "ss_ext_entry"},
+  {0012235, "ss_save_link"},
+  {0012240, "ss_init_stack_join"},
+  {0012250, "ss_ext_entry_desc"},
+  {0012263, "ss_eed"},
+  {0012272, "ss_int_entry"},
+  {0012305, "ss_set_display"},
+  {0012311, "ss_int_entry_desc"},
+  {0012327, "ss_val_entry_desc"},
+  {0012331, "ss_val_entry"},
+  {0012372, "enter_begin_block"},
+  {0012412, "ss_enter_begin_block"},
+  {0012434, "entry_operators_end"},
+  {0012436, "null"},
+  {0012440, "nullx"},
+  {0012442, "null_pk"},
+  {0012443, "nullo"},
+  {0012444, "one"},
+  {0012446, "almost_one"},
+  {0012446, "hfp_almost_one"},
+  {0012450, "k71b25"},
+  {0012452, "shift_bo"},
+  {0012516, "end_pl1_operators"},
+  {0012520, "hfp_bitno_to_charno_table"},
+  {0012747, "hfp_tct_octal_060"},
+  {0012753, "hfp_tct_octal_040"},
+  {0012763, "hfp_tct_byte_0"},
+  {0013163, "hfp_tct_byte_1"},
+  {0013363, "hfp_tct_byte_2"},
+  {0013563, "hfp_tct_byte_3"},
+  {0013763, "hfp_VLA_words_per_seg_"},
+  {0013764, "hfp_csl_vector"},
+  {0014004, "hfp_co_to_bo"},
+  {0014010, "hfp_ho_to_bo"},
+  {0014012, "hfp_store_a9_co"},
+  {0014036, "hfp_store_q9_co"},
+  {0014056, "hfp_store_a9_ho"},
+  {0014072, "hfp_store_q9_ho"},
+  {0014104, "hfp_store_a6_ho"},
+  {0014126, "hfp_store_q6_ho"},
+  {0014146, "hfp_operator_table"},
+  {0014146, "hfp_bit_mask"},
+  {0014256, "hfp_ones"},
+  {0014366, "hfp_mask_bit"},
+  {0014500, "hfp_max_single_value"},
+  {0014606, "hfp_blanks"},
+  {0014626, "hfp_ptr_mask"},
+  {0014630, "hfp_fx1_to_fx2"},
+  {0014633, "hfp_fx1_to_fl2"},
+  {0014634, "hfp_fx2_to_fl2"},
+  {0014640, "hfp_reset_stack"},
+  {0014642, "hfp_r_l_a"},
+  {0014645, "hfp_r_g_s"},
+  {0014651, "hfp_r_g_a"},
+  {0014655, "hfp_r_l_s"},
+  {0014660, "hfp_r_e_as"},
+  {0014663, "hfp_r_ne_as"},
+  {0014666, "hfp_r_le_a"},
+  {0014672, "hfp_r_ge_s"},
+  {0014675, "hfp_r_ge_a"},
+  {0014700, "hfp_r_le_s"},
+  {0014704, "hfp_true"},
+  {0014706, "hfp_set_stack"},
+  {0014711, "hfp_mod2_tab"},
+  {0014713, "hfp_mod4_tab"},
+  {0014717, "hfp_op_vector"},
+  {0015213, "hfp_entry_operators"},
+  {0015660, "hfp_ceil_fl"},
+  {0015672, "hfp_fl2_to_fx1"},
+  {0015672, "hfp_fl2_to_fx2"},
+  {0015703, "hfp_fl2_to_fxscaled"},
+  {0015733, "hfp_floor_fl"},
+  {0015745, "hfp_fort_dmod"},
+  {0015764, "hfp_fort_mdfl1"},
+  {0016003, "hfp_get_math_entry"},
+  {0016006, "hfp_fort_math_names"},
+  {0016104, "hfp_mdfl1"},
+  {0016124, "hfp_mdfl1a"},
+  {0016126, "hfp_mdfl2"},
+  {0016144, "hfp_mdfl2a"},
+  {0016146, "hfp_nearest_integer"},
+  {0016160, "hfp_nearest_whole_number"},
+  {0016173, "hfp_rfb1_to_cflb1"},
+  {0016175, "hfp_rfb2_to_cflb1"},
+  {0016204, "hfp_trunc_fl"},
+  {0016216, "trace_bitno_to_charno_table"},
+  {0016445, "trace_tct_octal_060"},
+  {0016451, "trace_tct_octal_040"},
+  {0016461, "trace_tct_byte_0"},
+  {0016661, "trace_tct_byte_1"},
+  {0017061, "trace_tct_byte_2"},
+  {0017261, "trace_tct_byte_3"},
+  {0017461, "trace_VLA_words_per_seg_"},
+  {0017462, "trace_csl_vector"},
+  {0017502, "trace_co_to_bo"},
+  {0017506, "trace_ho_to_bo"},
+  {0017510, "trace_store_a9_co"},
+  {0017534, "trace_store_q9_co"},
+  {0017554, "trace_store_a9_ho"},
+  {0017570, "trace_store_q9_ho"},
+  {0017602, "trace_store_a6_ho"},
+  {0017624, "trace_store_q6_ho"},
+  {0017644, "trace_operator_table"},
+  {0017644, "trace_bit_mask"},
+  {0017754, "trace_ones"},
+  {0020064, "trace_mask_bit"},
+  {0020176, "trace_max_single_value"},
+  {0020304, "trace_blanks"},
+  {0020324, "trace_ptr_mask"},
+  {0020326, "trace_fx1_to_fx2"},
+  {0020331, "trace_fx1_to_fl2"},
+  {0020332, "trace_fx2_to_fl2"},
+  {0020336, "trace_reset_stack"},
+  {0020340, "trace_r_l_a"},
+  {0020343, "trace_r_g_s"},
+  {0020347, "trace_r_g_a"},
+  {0020353, "trace_r_l_s"},
+  {0020356, "trace_r_e_as"},
+  {0020361, "trace_r_ne_as"},
+  {0020364, "trace_r_le_a"},
+  {0020370, "trace_r_ge_s"},
+  {0020373, "trace_r_ge_a"},
+  {0020376, "trace_r_le_s"},
+  {0020402, "trace_true"},
+  {0020404, "trace_set_stack"},
+  {0020407, "trace_mod2_tab"},
+  {0020411, "trace_mod4_tab"},
+  {0020415, "trace_op_vector"},
+  {0020711, "trace_entry_operators"},
+  {0021356, "trace_enter_BFP_mode"},
+  {0021362, "trace_enter_HFP_mode"},
+  {0021407, "trace_ext_entry"},
+  {0021432, "trace_save_link"},
+  {0021434, "trace_init_stack_join"},
+  {0021444, "trace_ext_entry_desc"},
+  {0021467, "trace_eed"},
+  {0021476, "trace_ss_ext_entry"},
+  {0021522, "trace_ss_save_link"},
+  {0021525, "trace_ss_init_stack_join"},
+  {0021535, "trace_ss_ext_entry_desc"},
+  {0021561, "trace_ss_eed"},
+  {0021570, "trace_entry_operators_end"},
+  {0021570, "trace_hfp_bitno_to_charno_table"},
+  {0022017, "trace_hfp_tct_octal_060"},
+  {0022023, "trace_hfp_tct_octal_040"},
+  {0022033, "trace_hfp_tct_byte_0"},
+  {0022233, "trace_hfp_tct_byte_1"},
+  {0022433, "trace_hfp_tct_byte_2"},
+  {0022633, "trace_hfp_tct_byte_3"},
+  {0023033, "trace_hfp_VLA_words_per_seg_"},
+  {0023034, "trace_hfp_csl_vector"},
+  {0023054, "trace_hfp_co_to_bo"},
+  {0023060, "trace_hfp_ho_to_bo"},
+  {0023062, "trace_hfp_store_a9_co"},
+  {0023106, "trace_hfp_store_q9_co"},
+  {0023126, "trace_hfp_store_a9_ho"},
+  {0023142, "trace_hfp_store_q9_ho"},
+  {0023154, "trace_hfp_store_a6_ho"},
+  {0023176, "trace_hfp_store_q6_ho"},
+  {0023216, "trace_hfp_operator_table"},
+  {0023216, "trace_hfp_bit_mask"},
+  {0023326, "trace_hfp_ones"},
+  {0023436, "trace_hfp_mask_bit"},
+  {0023550, "trace_hfp_max_single_value"},
+  {0023656, "trace_hfp_blanks"},
+  {0023676, "trace_hfp_ptr_mask"},
+  {0023700, "trace_hfp_fx1_to_fx2"},
+  {0023703, "trace_hfp_fx1_to_fl2"},
+  {0023704, "trace_hfp_fx2_to_fl2"},
+  {0023710, "trace_hfp_reset_stack"},
+  {0023712, "trace_hfp_r_l_a"},
+  {0023715, "trace_hfp_r_g_s"},
+  {0023721, "trace_hfp_r_g_a"},
+  {0023725, "trace_hfp_r_l_s"},
+  {0023730, "trace_hfp_r_e_as"},
+  {0023733, "trace_hfp_r_ne_as"},
+  {0023736, "trace_hfp_r_le_a"},
+  {0023742, "trace_hfp_r_ge_s"},
+  {0023745, "trace_hfp_r_ge_a"},
+  {0023750, "trace_hfp_r_le_s"},
+  {0023754, "trace_hfp_true"},
+  {0023756, "trace_hfp_set_stack"},
+  {0023761, "trace_hfp_mod2_tab"},
+  {0023763, "trace_hfp_mod4_tab"},
+  {0023767, "trace_hfp_op_vector"},
+  {0024263, "trace_hfp_entry_operators"},
+  {0024730, "alm_trace_operators_begin"},
+  {0024730, "trace_alm_entry"},
+  {0024751, "alm_trace_operators_end"},
+  {0024751, "long_profile"},
+  {0025023, "signal_error_missing"},
+  {0025026, "missing_error"},

diff --git a/pointer.c b/pointer.c
index f17bcb1..b5462fa 100644 (file)
--- a/pointer.c
+++ b/pointer.c
@@ -1,21 +1,21 @@
 #include "pointer.h"
 
-struct pointer pointer(int address) {
-  struct pointer p = {0, 0, address, 0};
+struct pointer pointer(int offset) {
+  struct pointer p = {0, 0, offset, 0};
   return p;
 }
 
-struct itp_pointer itp_pointer(int pair, int address) {
-  struct itp_pointer p = {041, 0, address, pair, 0};
+struct itp_pointer itp_pointer(int pair, int offset) {
+  struct itp_pointer p = {041, 0, offset, pair, 0};
   return p;
 }
 
-struct its_pointer its_pointer(int segment, int address) {
-  struct its_pointer p = {043, 0, segment, 0, 0, 0, address, 0};
+struct its_pointer its_pointer(int segment, int offset) {
+  struct its_pointer p = {043, 0, segment, 0, 0, 0, offset, 0};
   return p;
 }
 
-struct packed_pointer packed_pointer(int segment, int address) {
-  struct packed_pointer p = {address, segment, 0};
+struct packed_pointer packed_pointer(int segment, int offset) {
+  struct packed_pointer p = {offset, segment, 0};
   return p;
 }

diff --git a/pointer.h b/pointer.h
index f9f720f..00ca20b 100644 (file)
--- a/pointer.h
+++ b/pointer.h
@@ -6,14 +6,14 @@
 struct pointer {
   uint64_t modifier : 6;
   uint64_t tally : 12;
-  uint64_t address : 18;
+  uint64_t offset : 18;
   uint64_t dummy0 : 28;
 };
 
 struct itp_pointer {
   uint64_t modifier : 6;
   uint64_t tally : 12;
-  int64_t address : 15;
+  int64_t offset : 15;
   uint64_t pair : 3;
   uint64_t dummy0 : 28;
 };
@@ -25,19 +25,19 @@ struct its_pointer {
   uint64_t dummy0 : 28;
   uint64_t modifier1 : 6;
   uint64_t tally1 : 12;
-  uint64_t address : 18;
+  uint64_t offset : 18;
   uint64_t dummy1 : 28;
 };
 
 struct packed_pointer {
-  uint64_t address : 18;
+  uint64_t offset : 18;
   uint64_t segment : 18;
   uint64_t dummy0 : 28;
 };
 
-struct pointer pointer(int address);
-struct itp_pointer itp_pointer(int pair, int address);
-struct its_pointer its_pointer(int segment, int address);
-struct packed_pointer packed_pointer(int segment, int address);
+struct pointer pointer(int offset);
+struct itp_pointer itp_pointer(int pair, int offset);
+struct its_pointer its_pointer(int segment, int offset);
+struct packed_pointer packed_pointer(int segment, int offset);
 
 #endif