OSDN Git Service

version 2.3.0-final.
[putex/putex.git] / src / texsourc / tex5.c
index fca8e07..474a339 100644 (file)
-#ifdef _WINDOWS
-  #define NOCOMM
-  #define NOSOUND
-  #define NODRIVERS
-  #define STRICT
-  #pragma warning(disable:4115) // kill rpcasync.h complaint
-  #include <windows.h>
-  #define MYLIBAPI __declspec(dllexport)
-#endif
-
-#include "texwin.h"
-
-#pragma warning(disable:4131) // old style declarator
-#pragma warning(disable:4135) // conversion between different integral types 
-#pragma warning(disable:4127) // conditional expression is constant
-
-#include <setjmp.h>
-
-#define EXTERN extern
-
-#include "texd.h"
-
-#pragma warning(disable:4244)       /* 96/Jan/10 */
-
-
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
-
-/* rebox_ used to be in tex4.c */
-
-halfword rebox_(halfword b, scaled w)
-{register halfword Result; 
-  halfword p; 
-  internal_font_number f; 
-  scaled v; 
-/* begin if (width(b)<>w)and(list_ptr(b)<>null) then l.14010 */
-  if ((mem[b + 1].cint != w) && (mem[b + 5].hh.v.RH != 0)) {
-    if (mem[b].hh.b0 == 1)
-      b = hpack(b, 0, 1);
-    p = mem[b + 5].hh.v.RH;
-/*  if (is_char_node(p))and(link(p)=null) then l.14013 */
-    if (((p >= hi_mem_min)) &&(mem[p].hh.v.RH == 0)) {
-      f = mem[p].hh.b0;
-      v = font_info[width_base[f]+ font_info[char_base[f]+ mem[p].hh.b1].qqqq.b0].cint;
-      if (v != mem[b + 1].cint)
-        mem[p].hh.v.RH = new_kern(mem[b + 1].cint - v);
-    }
-    free_node(b, 7);
-    b = new_glue(12);
-    mem[b].hh.v.RH = p;
-/*   while link(p)<>null do p:=link(p); l.14019 */
-    while (mem[p].hh.v.RH != 0) p = mem[p].hh.v.RH;
-    mem[p].hh.v.RH = new_glue(12);
-    Result = hpack(b, w, 0);
-  } else {
-    mem[b + 1].cint = w;
-    Result = b;
-  }
-  return Result;
-}
-/* This is to be the start of tex5.c */
-halfword math_glue_(halfword g, scaled m)
-{
-  register halfword Result; 
-  halfword p; 
-  integer n; 
-  scaled f; 
-  n = x_over_n(m, 65536L); 
-  f = tex_remainder; 
-  if (f < 0) {
-    decr(n);
-    f = f + 65536L;
-  }
-  p = get_node(4);
-  mem[p + 1].cint = mult_and_add(n, mem[g + 1].cint, xn_over_d(mem[g + 1].cint, f, 65536L), 1073741823L);  /* 2^30 - 1 */
-  mem[p].hh.b0 = mem[g].hh.b0; 
-  if (mem[p].hh.b0 == 0)
-    mem[p + 2].cint = mult_and_add(n, mem[g + 2].cint, xn_over_d(mem[g + 2].cint, f, 65536L), 1073741823L);  /* 2^30 - 1 */
-  else
-    mem[p + 2].cint = mem[g + 2].cint;
-  mem[p].hh.b1 = mem[g].hh.b1;
-  if (mem[p].hh.b1 == 0)
-    mem[p + 3].cint = mult_and_add(n, mem[g + 3].cint, xn_over_d(mem[g + 3].cint, f, 65536L), 1073741823L);  /* 2^30 - 1 */
-  else
-    mem[p + 3].cint = mem[g + 3].cint;
-  Result = p;
-  return Result;
-}
-void math_kern_ (halfword p, scaled m)
-{ 
-  integer n; 
-  scaled f; 
-  if (mem[p].hh.b1 == 99)
-  {
-    n = x_over_n(m, 65536L); 
-    f = tex_remainder; 
-    if (f < 0)
-    {
-      decr(n); 
-      f = f + 65536L; 
-    } 
-    mem[p + 1].cint = mult_and_add(n, mem[p + 1].cint, xn_over_d(mem 
-   [p + 1].cint, f, 65536L), 1073741823L);  /* 2^30 - 1 */
-/*    mem[p].hh.b1 = 0;  */
-    mem[p].hh.b1 = 1; /* changed in 3.14159 */
-  } 
-} 
-void flush_math (void) 
-{
-  flush_node_list(mem[head].hh.v.RH); 
-  flush_node_list(cur_list.aux_field.cint); 
-  mem[head].hh.v.RH = 0; 
-  tail = head; 
-  cur_list.aux_field.cint = 0; 
-} 
-halfword clean_box_(halfword p, small_number s)
-{/* 40 */ register halfword Result; 
-  halfword q; 
-  small_number savestyle; 
-  halfword x; 
-  halfword r; 
-  switch(mem[p].hh.v.RH)
-  {case 1 : 
-    {
-      cur_mlist = new_noad(); 
-      mem[cur_mlist + 1]= mem[p]; 
-    } 
-    break; 
-  case 2 : 
-    {
-      q = mem[p].hh.v.LH; 
-      goto lab40; 
-    } 
-    break; 
-  case 3 : 
-    cur_mlist = mem[p].hh.v.LH; 
-    break; 
-    default: 
-    {
-      q = new_null_box(); 
-      goto lab40; 
-    } 
-    break; 
-  } 
-  savestyle = cur_style; 
-  cur_style = s; 
-  mlist_penalties = false; 
-  mlist_to_hlist(); 
-  q = mem[temp_head].hh.v.RH; 
-  cur_style = savestyle; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint, 18); 
-  } 
-  lab40: if ((q >= hi_mem_min)||(q == 0)) 
-  x = hpack(q, 0, 1); 
-  else if ((mem[q].hh.v.RH == 0)&&(mem[q].hh.b0 <= 1)&&(mem 
- [q + 4].cint == 0)) 
-  x = q; 
-  else x = hpack(q, 0, 1); 
-  q = mem[x + 5].hh.v.RH; 
-  if ((q >= hi_mem_min)) 
-  {
-    r = mem[q].hh.v.RH; 
-/*   if r<>null then if link(r)=null then l.14140 */
-    if (r != 0)
-    if (mem[r].hh.v.RH == 0)
-    if (!(r >= hi_mem_min)) 
-    if (mem[r].hh.b0 == 11)
-    {
-      free_node(r, 2); 
-      mem[q].hh.v.RH = 0;   /* link(q):=null; */
-    } 
-  } 
-  Result = x; 
-  return Result; 
-} 
-void fetch_(halfword a)
-{
-  cur_c = mem[a].hh.b1; 
-  cur_f = eqtb[(hash_size + 1835) + mem[a].hh.b0 + cur_size].hh.v.RH; 
-  if (cur_f == 0)
-  {
-         print_err("");
-    print_size(cur_size); 
-    print_char(' ');
-    print_int(mem[a].hh.b0); 
-    print_string("is undefined (character ");
-    print(cur_c); 
-    print_char(')');
-       help4("Somewhere in the math formula just ended, you used the",
-               "stated character from an undefined font family. For example,",
-               "plain TeX doesn't allow \\it or \\sl in subscripts. Proceed,",
-               "and I'll try to forget that I needed that character.");
-    error(); 
-    cur_i = null_character; 
-    mem[a].hh.v.RH = 0; 
-  } 
-  else {
-      
-    if ((cur_c >= font_bc[cur_f])&&(cur_c <= font_ec[cur_f])) 
-    cur_i = font_info[char_base[cur_f]+ cur_c].qqqq; 
-    else cur_i = null_character; 
-    if (!((cur_i.b0 > 0)))
-    {
-      char_warning(cur_f, cur_c); 
-      mem[a].hh.v.RH = 0; 
-    } 
-  } 
-} 
-void make_over_(halfword q)
-{ 
-  mem[q + 1].hh.v.LH = overbar(clean_box(q + 1, 2 *(cur_style / 2)
-  + 1), 3 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]
-].cint, font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]] 
- .cint); 
-  mem[q + 1].hh.v.RH = 2; 
-} 
-void make_under_(halfword q)
-{
-  halfword p, x, y; 
-  scaled delta; 
-  x = clean_box(q + 1, cur_style); 
-  p = new_kern(3 * font_info[8 +
-    param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint); 
-  mem[x].hh.v.RH = p; 
-  mem[p].hh.v.RH = fraction_rule(font_info[8 +
-    param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint); 
-  y = vpackage(x, 0, 1, 1073741823L); /* 2^30 - 1 */
-  delta = mem[y + 3].cint + mem[y + 2].cint + font_info[8 +
-    param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint; 
-  mem[y + 3].cint = mem[x + 3].cint; 
-  mem[y + 2].cint = delta - mem[y + 3].cint; 
-  mem[q + 1].hh.v.LH = y; 
-  mem[q + 1].hh.v.RH = 2; 
-} 
-void make_vcenter_(halfword q)
-{ 
-  halfword v; 
-  scaled delta; 
-  v = mem[q + 1].hh.v.LH; 
-  if (mem[v].hh.b0 != 1){
-    confusion("vcenter");
-    return;         // abort_flag set
-  }
-  delta = mem[v + 3].cint + mem[v + 2].cint; 
-  mem[v + 3].cint = font_info[22 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + half(delta); 
-  mem[v + 2].cint = delta - mem[v + 3].cint; 
-} 
-void make_radical_(halfword q)
-{ 
-  halfword x, y; 
-  scaled delta, clr; 
-  x = clean_box(q + 1, 2 *(cur_style / 2)+ 1); 
-  if (cur_style < 2)
-  clr = font_info[8 +
-  param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint +
-    (abs(font_info[5 + param_base[eqtb[(hash_size + 1837) +
-        cur_size].hh.v.RH]].cint)/ 4); 
-  else {
-      
-    clr = font_info[8 +
-      param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint; 
-    clr = clr +(abs(clr)/ 4); 
-  } 
-  y = var_delimiter(q + 4, cur_size, mem[x + 3].cint + mem[x + 2]
- .cint + clr + font_info[8 +
-    param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint); 
-  delta = mem[y + 2].cint -(mem[x + 3].cint + mem[x + 2].cint + 
-  clr); 
-  if (delta > 0)
-  clr = clr + half(delta); 
-  mem[y + 4].cint = - (integer)(mem[x + 3].cint + clr); 
-  mem[y].hh.v.RH = overbar(x, clr, mem[y + 3].cint); 
-  mem[q + 1].hh.v.LH = hpack(y, 0, 1); 
-  mem[q + 1].hh.v.RH = 2; 
-} 
-void make_math_accent_(halfword q)
-{/* 30 31 */ 
-  halfword p, x, y; 
-  integer a; 
-  quarterword c; 
-  internal_font_number f; 
-  ffourquarters i; 
-  scaled s; 
-  scaled h; 
-  scaled delta; 
-  scaled w; 
-  fetch(q + 4); 
-  if ((cur_i.b0 > 0)) 
-  {
-    i = cur_i; 
-    c = cur_c; 
-    f = cur_f; 
-    s = 0; 
-    if (mem[q + 1].hh.v.RH == 1)
-    {
-      fetch(q + 1); 
-      if (((cur_i.b2)% 4)== 1)
-      {
-  a = lig_kern_base[cur_f]+ cur_i.b3; 
-  cur_i = font_info[a].qqqq; 
-  if (cur_i.b0 > 128)
-  {
-    a = lig_kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3 + 32768L - 256 
-    *(128); 
-    cur_i = font_info[a].qqqq; 
-  } 
-  while(true){
-    if (cur_i.b1 == skew_char[cur_f])
-    {
-      if (cur_i.b2 >= 128)
-      if (cur_i.b0 <= 128)
-      s = font_info[kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3]
-     .cint; 
-      goto lab31; 
-    } 
-    if (cur_i.b0 >= 128)
-    goto lab31; 
-    a = a + cur_i.b0 + 1; 
-    cur_i = font_info[a].qqqq; 
-  } 
-      } 
-    } 
-    lab31:; 
-    x = clean_box(q + 1, 2 *(cur_style / 2)+ 1); 
-    w = mem[x + 1].cint; 
-    h = mem[x + 3].cint; 
-    while(true){
-      if (((i.b2)% 4)!= 2)
-      goto lab30; 
-      y = i.b3; 
-      i = font_info[char_base[f]+ y].qqqq; 
-      if (!(i.b0 > 0)) 
-      goto lab30; 
-      if (font_info[width_base[f]+ i.b0].cint > w)
-      goto lab30; 
-/*    long to unsigned short ... */
-      c = y; 
-    } 
-    lab30:; 
-    if (h < font_info[5 + param_base[f]].cint)
-    delta = h; 
-    else delta = font_info[5 + param_base[f]].cint; 
-    if ((mem[q + 2].hh.v.RH != 0)||(mem[q + 3].hh.v.RH != 0)
-  )
-    if (mem[q + 1].hh.v.RH == 1)
-    {
-      flush_node_list(x); 
-      x = new_noad(); 
-      mem[x + 1]= mem[q + 1]; 
-      mem[x + 2]= mem[q + 2]; 
-      mem[x + 3]= mem[q + 3]; 
-      mem[q + 2].hh = empty_field; 
-      mem[q + 3].hh = empty_field; 
-      mem[q + 1].hh.v.RH = 3; 
-      mem[q + 1].hh.v.LH = x; 
-      x = clean_box(q + 1, cur_style); 
-      delta = delta + mem[x + 3].cint - h; 
-      h = mem[x + 3].cint; 
-    } 
-    y = char_box(f, c); 
-    mem[y + 4].cint = s + half(w - mem[y + 1].cint); 
-    mem[y + 1].cint = 0; 
-    p = new_kern(- (integer) delta); 
-    mem[p].hh.v.RH = x; 
-    mem[y].hh.v.RH = p; 
-    y = vpackage(y, 0, 1, 1073741823L);  /* 2^30 - 1 */
-    mem[y + 1].cint = mem[x + 1].cint; 
-    if (mem[y + 3].cint < h)
-    {
-      p = new_kern(h - mem[y + 3].cint); 
-      mem[p].hh.v.RH = mem[y + 5].hh.v.RH; 
-      mem[y + 5].hh.v.RH = p; 
-      mem[y + 3].cint = h; 
-    } 
-    mem[q + 1].hh.v.LH = y; 
-    mem[q + 1].hh.v.RH = 2; 
-  } 
-} 
-void make_fraction_(halfword q) 
-{
-  halfword p, v, x, y, z; 
-  scaled delta, delta1, delta2, shiftup, shiftdown, clr; 
-  if (mem[q + 1].cint == 1073741824L) /* 2^30 */
-  mem[q + 1].cint = font_info[8 +
-    param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint; 
-  x = clean_box(q + 2, cur_style + 2 - 2 *(cur_style / 6)); 
-  z = clean_box(q + 3, 2 *(cur_style / 2)+ 3 - 2 *(cur_style / 6)); 
-  if (mem[x + 1].cint < mem[z + 1].cint)
-  x = rebox(x, mem[z + 1].cint); 
-  else z = rebox(z, mem[x + 1].cint); 
-  if (cur_style < 2)
-  {
-    shiftup = font_info[8 +
-      param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint; 
-    shiftdown = font_info[11 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint; 
-  } 
-  else {
-      
-    shiftdown = font_info[12 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint; 
-    if (mem[q + 1].cint != 0)
-    shiftup = font_info[9 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint; 
-    else shiftup = font_info[10 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
-  } 
-  if (mem[q + 1].cint == 0)
-  {
-    if (cur_style < 2)
-    clr = 7 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]
-  ].cint; 
-    else clr = 3 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-   .v.RH]].cint; 
-    delta = half(clr -((shiftup - mem[x + 2].cint)-(mem[z + 3]
-   .cint - shiftdown))); 
-    if (delta > 0)
-    {
-      shiftup = shiftup + delta; 
-      shiftdown = shiftdown + delta; 
-    } 
-  } 
-  else {
-      
-    if (cur_style < 2)
-    clr = 3 * mem[q + 1].cint; 
-    else clr = mem[q + 1].cint; 
-    delta = half(mem[q + 1].cint); 
-    delta1 = clr -((shiftup - mem[x + 2].cint)-(font_info[22 + 
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + delta)); 
-    delta2 = clr -((font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size]
-   .hh.v.RH]].cint - delta)-(mem[z + 3].cint - shiftdown)); 
-    if (delta1 > 0)
-    shiftup = shiftup + delta1; 
-    if (delta2 > 0)
-    shiftdown = shiftdown + delta2; 
-  } 
-  v = new_null_box(); 
-  mem[v].hh.b0 = 1; 
-  mem[v + 3].cint = shiftup + mem[x + 3].cint; 
-  mem[v + 2].cint = mem[z + 2].cint + shiftdown; 
-  mem[v + 1].cint = mem[x + 1].cint; 
-  if (mem[q + 1].cint == 0)
-  {
-    p = new_kern((shiftup - mem[x + 2].cint)-(mem[z + 3].cint - 
-    shiftdown)); 
-    mem[p].hh.v.RH = z; 
-  } 
-  else {
-      
-    y = fraction_rule(mem[q + 1].cint); 
-    p = new_kern((font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-   .v.RH]].cint - delta)-(mem[z + 3].cint - shiftdown)); 
-    mem[y].hh.v.RH = p; 
-    mem[p].hh.v.RH = z; 
-    p = new_kern((shiftup - mem[x + 2].cint)-(font_info[22 + 
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + delta)); 
-    mem[p].hh.v.RH = y; 
-  } 
-  mem[x].hh.v.RH = p; 
-  mem[v + 5].hh.v.RH = x; 
-  if (cur_style < 2)
-  delta = font_info[20 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]] 
- .cint; 
-  else delta = font_info[21 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH 
-]].cint; 
-  x = var_delimiter(q + 4, cur_size, delta); 
-  mem[x].hh.v.RH = v; 
-  z = var_delimiter(q + 5, cur_size, delta); 
-  mem[v].hh.v.RH = z; 
-  mem[q + 1].cint = hpack(x, 0, 1); 
-} 
-/***************************************************************************/
-/* moved to end to avoid questions about pragma optimize 96/Sep/12 */
-scaled make_op_ (halfword);
-/***************************************************************************/
-void make_ord_(halfword q)
-{/* 20 10 */ 
-  integer a; 
-  halfword p, r; 
-  lab20: if (mem[q + 3].hh.v.RH == 0)
-  if (mem[q + 2].hh.v.RH == 0)
-  if (mem[q + 1].hh.v.RH == 1)
-  {
-    p = mem[q].hh.v.RH; 
-    if (p != 0)
-    if ((mem[p].hh.b0 >= 16)&&(mem[p].hh.b0 <= 22)) 
-    if (mem[p + 1].hh.v.RH == 1)
-    if (mem[p + 1].hh.b0 == mem[q + 1].hh.b0)
-    {
-      mem[q + 1].hh.v.RH = 4; 
-      fetch(q + 1); 
-      if (((cur_i.b2)% 4)== 1)
-      {
-  a = lig_kern_base[cur_f]+ cur_i.b3; 
-  cur_c = mem[p + 1].hh.b1; 
-  cur_i = font_info[a].qqqq; 
-  if (cur_i.b0 > 128)
-  {
-    a = lig_kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3 + 32768L - 256 
-    *(128); 
-    cur_i = font_info[a].qqqq; 
-  } 
-  while(true){
-    if (cur_i.b1 == cur_c)
-    if (cur_i.b0 <= 128)
-    if (cur_i.b2 >= 128)
-    {
-      p = new_kern(font_info[kern_base[cur_f]+ 256 * cur_i.b2 + cur_i 
-     .b3].cint); 
-      mem[p].hh.v.RH = mem[q].hh.v.RH; 
-      mem[q].hh.v.RH = p; 
-      return; 
-    } 
-    else {
-        
-      {
-        if (interrupt != 0){
-        pause_for_instructions();
-      }
-      } 
-      switch(cur_i.b2)
-      {case 1 : 
-      case 5 : 
-        mem[q + 1].hh.b1 = cur_i.b3; 
-        break; 
-      case 2 : 
-      case 6 : 
-        mem[p + 1].hh.b1 = cur_i.b3; 
-        break; 
-      case 3 : 
-      case 7 : 
-      case 11 : 
-        {
-    r = new_noad(); 
-    mem[r + 1].hh.b1 = cur_i.b3; 
-    mem[r + 1].hh.b0 = mem[q + 1].hh.b0; 
-    mem[q].hh.v.RH = r; 
-    mem[r].hh.v.RH = p; 
-    if (cur_i.b2 < 11)
-    mem[r + 1].hh.v.RH = 1; 
-    else mem[r + 1].hh.v.RH = 4; 
-        } 
-        break; 
-        default: 
-        {
-    mem[q].hh.v.RH = mem[p].hh.v.RH; 
-    mem[q + 1].hh.b1 = cur_i.b3; 
-    mem[q + 3]= mem[p + 3]; 
-    mem[q + 2]= mem[p + 2]; 
-    free_node(p, 4); 
-        } 
-        break; 
-      } 
-      if (cur_i.b2 > 3)
-      return; 
-      mem[q + 1].hh.v.RH = 1; 
-      goto lab20; 
-    } 
-    if (cur_i.b0 >= 128)
-    return; 
-    a = a + cur_i.b0 + 1; 
-    cur_i = font_info[a].qqqq; 
-  } 
-      } 
-    } 
-  } 
-} 
-/***************************************************************************/
-/* moved to end to avoid questions about pragma optimize 96/Sep/12 */
-void make_scripts_ (halfword, scaled);
-/***************************************************************************/
-small_number make_left_right_(halfword q, small_number style, scaled maxd, scaled max_h)
-{register small_number Result; 
-  scaled delta, delta1, delta2; 
-  if (style < 4)
-  cur_size = 0; 
-  else cur_size = 16 *((style - 2)/ 2); 
-  delta2 = maxd + font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
- .v.RH]].cint; 
-  delta1 = max_h + maxd - delta2; 
-  if (delta2 > delta1)
-  delta1 = delta2; 
-  delta =(delta1 / 500)* eqtb[(hash_size + 3181)].cint; 
-  delta2 = delta1 + delta1 - eqtb[(hash_size + 3740)].cint; 
-  if (delta < delta2)
-  delta = delta2; 
-  mem[q + 1].cint = var_delimiter(q + 1, cur_size, delta); 
-  Result = mem[q].hh.b0 -(10); 
-  return Result; 
-} 
-void mlist_to_hlist (void) 
-{/* 21 82 80 81 83 30 */
-  halfword mlist; 
-  bool penalties; 
-  small_number style; 
-  small_number savestyle; 
-  halfword q; 
-  halfword r; 
-/*  small_number rtype;  */
-  int rtype;            /* 95/Jan/7 */
-/*  small_number t; */
-  int t;              /* 95/Jan/7 */
-  halfword p, x, y, z; 
-  integer pen; 
-  small_number s; 
-  scaled max_h, maxd; 
-  scaled delta; 
-  mlist = cur_mlist; 
-  penalties = mlist_penalties; 
-  style = cur_style; 
-  q = mlist; 
-  r = 0; 
-  rtype = 17; 
-  max_h = 0; 
-  maxd = 0; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-   .v.RH]].cint, 18); 
-  } 
-  while(q != 0){
-      
-    lab21: delta = 0; 
-    switch(mem[q].hh.b0){
-    case 18 : 
-      switch(rtype)
-      {case 18 : 
-      case 17 : 
-      case 19 : 
-      case 20 : 
-      case 22 : 
-      case 30 : 
-  {
-    mem[q].hh.b0 = 16; 
-    goto lab21; 
-  } 
-  break; 
-  default: 
-  ; 
-  break; 
-      } 
-      break; 
-    case 19 : 
-    case 21 : 
-    case 22 : 
-    case 31 : 
-      {
-  if (rtype == 18) mem[r].hh.b0 = 16; 
-  if (mem[q].hh.b0 == 31)  goto lab80; 
-      } 
-      break; 
-    case 30 : 
-      goto lab80; 
-      break; 
-    case 25 : 
-      {
-  make_fraction(q); 
-  goto lab82; 
-      } 
-      break; 
-    case 17 : 
-      {
-  delta = make_op(q); 
-  if (mem[q].hh.b1 == 1)
-  goto lab82; 
-      } 
-      break; 
-    case 16 : 
-      make_ord(q); 
-      break; 
-    case 20 : 
-    case 23 : 
-   ; 
-      break; 
-    case 24 : 
-      make_radical(q); 
-      break; 
-    case 27 : 
-      make_over(q); 
-      break; 
-    case 26 : 
-      make_under(q); 
-      break; 
-    case 28 : 
-      make_math_accent(q); 
-      break; 
-    case 29 : 
-      make_vcenter(q); 
-      break; 
-    case 14 : 
-      {
-  cur_style = mem[q].hh.b1; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
-   .hh.v.RH]].cint, 18); 
-  } 
-  goto lab81; 
-      } 
-      break; 
-    case 15 : 
-      {
-  switch(cur_style / 2)
-  {case 0 : 
-    {
-      p = mem[q + 1].hh.v.LH; 
-      mem[q + 1].hh.v.LH = 0; 
-    } 
-    break; 
-  case 1 : 
-    {
-      p = mem[q + 1].hh.v.RH; 
-      mem[q + 1].hh.v.RH = 0; 
-    } 
-    break; 
-  case 2 : 
-    {
-      p = mem[q + 2].hh.v.LH; 
-      mem[q + 2].hh.v.LH = 0; 
-    } 
-    break; 
-  case 3 : 
-    {
-      p = mem[q + 2].hh.v.RH; 
-      mem[q + 2].hh.v.RH = 0; 
-    } 
-    break; 
-  } 
-  flush_node_list(mem[q + 1].hh.v.LH); 
-  flush_node_list(mem[q + 1].hh.v.RH); 
-  flush_node_list(mem[q + 2].hh.v.LH); 
-  flush_node_list(mem[q + 2].hh.v.RH); 
-  mem[q].hh.b0 = 14; 
-  mem[q].hh.b1 = cur_style; 
-  mem[q + 1].cint = 0; 
-  mem[q + 2].cint = 0; 
-  if (p != 0)/* if p<>null then l.14317 */
-  {
-    z = mem[q].hh.v.RH; 
-    mem[q].hh.v.RH = p; 
-/*   while link(p)<>null do p:=link(p); */
-    while(mem[p].hh.v.RH != 0)p = mem[p].hh.v.RH; 
-    mem[p].hh.v.RH = z; 
-  } 
-  goto lab81; 
-      } 
-      break; 
-    case 3 : 
-    case 4 : 
-    case 5 : 
-    case 8 : 
-    case 12 : 
-    case 7 : 
-      goto lab81; 
-      break; 
-    case 2 : 
-      {
-  if (mem[q + 3].cint > max_h)
-  max_h = mem[q + 3].cint; 
-  if (mem[q + 2].cint > maxd)
-  maxd = mem[q + 2].cint; 
-  goto lab81; 
-      } 
-      break; 
-    case 10 : 
-      {
-  if (mem[q].hh.b1 == 99)
-  {
-    x = mem[q + 1].hh.v.LH; 
-    y = math_glue(x, cur_mu); 
-    delete_glue_ref(x); 
-    mem[q + 1].hh.v.LH = y; 
-    mem[q].hh.b1 = 0; 
-  } 
-  else if ((cur_size != 0)&&(mem[q].hh.b1 == 98)) 
-  {
-    p = mem[q].hh.v.RH; 
-/*   if p<>null then if (type(p)=glue_node)or(type(p)=kern_node) then */
-    if (p != 0)
-    if ((mem[p].hh.b0 == 10)||(mem[p].hh.b0 == 11)) 
-    {
-      mem[q].hh.v.RH = mem[p].hh.v.RH; 
-      mem[p].hh.v.RH = 0; 
-      flush_node_list(p); 
-    } 
-  } 
-  goto lab81; 
-      } 
-      break; 
-    case 11 : 
-      {
-  math_kern(q, cur_mu); 
-  goto lab81; 
-      } 
-      break; 
-      default: 
-      {
-        confusion("mlist1");
-        return;       // abort_flag set
-      }
-      break; 
-  } /* end of switch */
-
-    switch(mem[q + 1].hh.v.RH){
-  case 1 : 
-    case 4 : 
-      {
-  fetch(q + 1); 
-  if ((cur_i.b0 > 0)) 
-  {
-    delta = font_info[italic_base[cur_f]+(cur_i.b2)/ 4].cint; 
-    p = new_character(cur_f, cur_c); 
-    if ((mem[q + 1].hh.v.RH == 4)&&(font_info[2 + param_base 
-   [cur_f]].cint != 0)) 
-    delta = 0; 
-    if ((mem[q + 3].hh.v.RH == 0)&&(delta != 0)) 
-    {
-      mem[p].hh.v.RH = new_kern(delta); 
-      delta = 0; 
-    } 
-  } 
-  else p = 0; 
-      } 
-      break; 
-    case 0 : 
-      p = 0; 
-      break; 
-    case 2 : 
-      p = mem[q + 1].hh.v.LH; 
-      break; 
-    case 3 : 
-      {
-  cur_mlist = mem[q + 1].hh.v.LH; 
-  savestyle = cur_style; 
-  mlist_penalties = false; 
-  mlist_to_hlist(); 
-  cur_style = savestyle; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
-   .hh.v.RH]].cint, 18); 
-  } 
-  p = hpack(mem[temp_head].hh.v.RH, 0, 1); 
-      } 
-      break; 
-      default: 
-      {
-        confusion("mlist2");
-        return;       // abort_flag set
-      }
-      break; 
-  } /* end of switch */
-  
-    mem[q + 1].cint = p;  /* p may be used without ... */
-    if ((mem[q + 3].hh.v.RH == 0)&&(mem[q + 2].hh.v.RH == 0)
-  )
-    goto lab82; 
-    make_scripts(q, delta); 
-    lab82: z = hpack(mem[q + 1].cint, 0, 1); 
-    if (mem[z + 3].cint > max_h)
-    max_h = mem[z + 3].cint; 
-    if (mem[z + 2].cint > maxd)
-    maxd = mem[z + 2].cint; 
-    free_node(z, 7); 
-    lab80: r = q; 
-    rtype = mem[r].hh.b0; 
-    lab81: q = mem[q].hh.v.RH; 
-  }
-  if (rtype == 18)
-  mem[r].hh.b0 = 16; 
-  p = temp_head; 
-  mem[p].hh.v.RH = 0; 
-  q = mlist; 
-  rtype = 0; 
-  cur_style = style; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-   .v.RH]].cint, 18); 
-  } 
-  while(q != 0){
-      
-    t = 16; 
-    s = 4; 
-    pen = 10000; 
-    switch(mem[q].hh.b0)
-    {case 17 : 
-    case 20 : 
-    case 21 : 
-    case 22 : 
-    case 23 : 
-      t = mem[q].hh.b0; 
-      break; 
-    case 18 : 
-      {
-  t = 18; 
-  pen = eqtb[(hash_size + 3172)].cint; 
-      } 
-      break; 
-    case 19 : 
-      {
-  t = 19; 
-  pen = eqtb[(hash_size + 3173)].cint; 
-      } 
-      break; 
-    case 16 : 
-    case 29 : 
-    case 27 : 
-    case 26 : 
-   ; 
-      break; 
-    case 24 : 
-      s = 5; 
-      break; 
-    case 28 : 
-      s = 5; 
-      break; 
-    case 25 : 
-      {
-  t = 23; 
-  s = 6; 
-      } 
-      break; 
-    case 30 : 
-    case 31 : 
-      t = make_left_right(q, style, maxd, max_h); 
-      break; 
-    case 14 : 
-      {
-  cur_style = mem[q].hh.b1; 
-  s = 3; 
-  {
-    if (cur_style < 4)
-    cur_size = 0; 
-    else cur_size = 16 *((cur_style - 2)/ 2); 
-    cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
-   .hh.v.RH]].cint, 18); 
-  } 
-  goto lab83; 
-      } 
-      break; 
-    case 8 : 
-    case 12 : 
-    case 2 : 
-    case 7 : 
-    case 5 : 
-    case 3 : 
-    case 4 : 
-    case 10 : 
-    case 11 : 
-      {
-  mem[p].hh.v.RH = q; 
-  p = q; 
-  q = mem[q].hh.v.RH; 
-  mem[p].hh.v.RH = 0; 
-  goto lab30; 
-      } 
-      break; 
-      default: 
-      {
-        confusion("mlist3");
-        return;       // abort_flag set
-      }
-      break; 
-    } 
-    if (rtype > 0)
-    {
-      switch(str_pool[rtype * 8 + t + magic_offset])
-      {case 48 : 
-  x = 0; 
-  break; 
-      case 49 : 
-  if (cur_style < 4)
-  x = 15; 
-  else x = 0; 
-  break; 
-      case 50 : 
-  x = 15; 
-  break; 
-      case 51 : 
-  if (cur_style < 4)
-  x = 16; 
-  else x = 0; 
-  break; 
-      case 52 : 
-  if (cur_style < 4)
-  x = 17; 
-  else x = 0; 
-  break; 
-  default: 
-    {
-      confusion("mlist4");
-      return;       // abort_flag set
-    }
-    break; 
-      } 
-      if (x != 0)
-      {
-  y = math_glue(eqtb[(hash_size + 782) + x].hh.v.RH, cur_mu); /* gluebase + x */
-  z = new_glue(y); 
-  mem[y].hh.v.RH = 0; 
-  mem[p].hh.v.RH = z; 
-  p = z; 
-  mem[z].hh.b1 = x + 1;   /* x may be used without ... */
-      } 
-    } 
-    if (mem[q + 1].cint != 0)
-    {
-      mem[p].hh.v.RH = mem[q + 1].cint; 
-      do {
-    p = mem[p].hh.v.RH; 
-      } while(!(mem[p].hh.v.RH == 0)); 
-    } 
-    if (penalties)
-    if (mem[q].hh.v.RH != 0)
-    if (pen < 10000)
-    {
-      rtype = mem[mem[q].hh.v.RH].hh.b0; 
-      if (rtype != 12)
-      if (rtype != 19)
-      {
-  z = new_penalty(pen); 
-  mem[p].hh.v.RH = z; 
-  p = z; 
-      } 
-    } 
-    rtype = t; 
-    lab83: r = q; 
-    q = mem[q].hh.v.RH; 
-    free_node(r, s); 
-    lab30:; 
-  } 
-} 
-void push_alignment (void) 
-{
-  halfword p; 
-  p = get_node(5); 
-  mem[p].hh.v.RH = align_ptr; 
-  mem[p].hh.v.LH = cur_align; 
-  mem[p + 1].hh.v.LH = mem[align_head].hh.v.RH; 
-  mem[p + 1].hh.v.RH = cur_span; 
-  mem[p + 2].cint = cur_loop; 
-  mem[p + 3].cint = align_state; 
-  mem[p + 4].hh.v.LH = cur_head; 
-  mem[p + 4].hh.v.RH = cur_tail; 
-  align_ptr = p; 
-  cur_head = get_avail(); 
-} 
-void pop_alignment (void) 
-{ 
-  halfword p; 
-  {
-    mem[cur_head].hh.v.RH = avail; 
-    avail = cur_head; 
-  ;
-#ifdef STAT
-    decr(dyn_used); 
-#endif /* STAT */
-  } 
-  p = align_ptr; 
-  cur_tail = mem[p + 4].hh.v.RH; 
-  cur_head = mem[p + 4].hh.v.LH; 
-  align_state = mem[p + 3].cint; 
-  cur_loop = mem[p + 2].cint; 
-  cur_span = mem[p + 1].hh.v.RH; 
-  mem[align_head].hh.v.RH = mem[p + 1].hh.v.LH; 
-  cur_align = mem[p].hh.v.LH; 
-  align_ptr = mem[p].hh.v.RH; 
-  free_node(p, 5); 
-} 
-void get_preamble_token (void) 
-{/* 20 */ 
-  lab20: get_token(); 
-  while((cur_chr == 256)&&(cur_cmd == 4)) {
-      
-    get_token(); 
-    if (cur_cmd > 100)
-    {
-      expand(); 
-      get_token(); 
-    } 
-  } 
-  if (cur_cmd == 9){
-    fatal_error("(interwoven alignment preambles are not allowed)"); /*  */
-    return;     // abort_flag set
-  }
-  if ((cur_cmd == 75)&&(cur_chr == (hash_size + 793))) 
-  {
-    scan_optional_equals(); 
-    scan_glue(2); 
-    if (eqtb[(hash_size + 3206)].cint > 0)
-    geq_define((hash_size + 793), 117, cur_val); 
-    else eq_define((hash_size + 793), 117, cur_val); 
-    goto lab20; 
-  } 
-} 
-void init_align (void) 
-{/* 30 31 32 22 */ 
-  halfword savecsptr; 
-  halfword p; 
-  savecsptr = cur_cs; 
-  push_alignment(); 
-  align_state = -1000000L; 
-  if ((mode == 203)&&((tail != cur_list 
- .head_field)||(cur_list.aux_field.cint != 0)))
-  {
-         print_err("Improper ");
-    print_esc("halign");
-    print_string("inside $$");
-       help3("Displays can use special alignments (like \\eqalignno)",
-               "only if nothing but the alignment itself is between $$'s.",
-               "So I've deleted the formulas that preceded this alignment.");
-    error(); 
-    flush_math(); 
-  } 
-  push_nest(); 
-  if (mode == 203)
-  {
-    mode = -1; 
-    cur_list.aux_field.cint = nest[nest_ptr - 2].aux_field.cint; 
-  } 
-  else if (mode > 0)
-/*    long to short ... */
-  mode = - (integer) mode; 
-  scan_spec(6, false); 
-  mem[align_head].hh.v.RH = 0; 
-  cur_align = align_head; 
-  cur_loop = 0; 
-  scanner_status = 4; 
-  warning_index = savecsptr; 
-  align_state = -1000000L; 
-  while(true){
-    mem[cur_align].hh.v.RH = new_param_glue(11); 
-    cur_align = mem[cur_align].hh.v.RH; 
-    if (cur_cmd == 5)
-    goto lab30; 
-    p = hold_head; 
-    mem[p].hh.v.RH = 0; 
-    while(true){
-      get_preamble_token(); 
-      if (cur_cmd == 6)
-      goto lab31; 
-      if ((cur_cmd <= 5)&&(cur_cmd >= 4)&&(align_state == -1000000L)) 
-      if ((p == hold_head)&&(cur_loop == 0)&&(cur_cmd == 4)) 
-      cur_loop = cur_align; 
-      else {
-    print_err("Missing # inserted in alignment preamble");
-       help3("There should be exactly one # between &'s, when an",
-               "\\halign or \\valign is being set up. In this case you had",
-               "none, so I've put one in; maybe that will work.");
-  back_error(); 
-  goto lab31; 
-      } 
-      else if ((cur_cmd != 10)||(p != hold_head)) 
-      {
-  mem[p].hh.v.RH = get_avail(); 
-  p = mem[p].hh.v.RH; 
-  mem[p].hh.v.LH = cur_tok; 
-      } 
-    } 
-    lab31:; 
-    mem[cur_align].hh.v.RH = new_null_box(); 
-    cur_align = mem[cur_align].hh.v.RH; 
-    mem[cur_align].hh.v.LH = end_span; 
-    mem[cur_align + 1].cint = -1073741824L;  /* - 2^30 */
-    mem[cur_align + 3].cint = mem[hold_head].hh.v.RH; 
-    p = hold_head; 
-    mem[p].hh.v.RH = 0; 
-    while(true){
-lab22:
-    get_preamble_token(); 
-      if ((cur_cmd <= 5)&&(cur_cmd >= 4)&&(align_state == -1000000L)) 
-      goto lab32; 
-      if (cur_cmd == 6)
-      {
-                 print_err("Only one # is allowed per tab");
-                 help3("There should be exactly one # between &'s, when an",
-                         "\\halign or \\valign is being set up. In this case you had",
-                         "more than one, so I'm ignoring all but the first."); 
-  error(); 
-  goto lab22; 
-      } 
-      mem[p].hh.v.RH = get_avail(); 
-      p = mem[p].hh.v.RH; 
-      mem[p].hh.v.LH = cur_tok; 
-    } 
-    lab32: mem[p].hh.v.RH = get_avail(); 
-    p = mem[p].hh.v.RH; 
-/*    mem[p].hh.v.LH = (hash_size + 4614);  */
-/*    mem[p].hh.v.LH = (hash_size + 4095 + 519);  */
-    mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 519); /* 96/Jan/10 */
-    mem[cur_align + 2].cint = mem[hold_head].hh.v.RH; 
-  } 
-  lab30: scanner_status = 0; 
-  new_save_level(6); 
-/* if every_cr<>null then begin_token_list(every_cr,every_cr_text); l.15665 */
-  if (eqtb[(hash_size + 1320)].hh.v.RH != 0)/* everycr */
-    begin_token_list(eqtb[(hash_size + 1320)].hh.v.RH, 13); 
-  align_peek(); 
-} 
-void init_span_ (halfword p)
-{
-  push_nest(); 
-  if (mode == -102)
-  space_factor = 1000; 
-  else {
-      
-    cur_list.aux_field.cint = ignore_depth; 
-    normal_paragraph(); 
-  } 
-  cur_span = p; 
-} 
-void init_row (void) 
-{
-  push_nest(); 
-  mode =(-103)- mode; 
-  if (mode == -102)
-  space_factor = 0; 
-  else cur_list.aux_field.cint = 0; 
-  {
-    mem[tail].hh.v.RH = new_glue(mem[mem[align_head]
-   .hh.v.RH + 1].hh.v.LH); 
-    tail = mem[tail].hh.v.RH; 
-  } 
-  mem[tail].hh.b1 = 12; 
-  cur_align = mem[mem[align_head].hh.v.RH].hh.v.RH; 
-  cur_tail = cur_head; 
-  init_span(cur_align); 
-} 
-void init_col (void) 
-{ 
-  mem[cur_align + 5].hh.v.LH = cur_cmd; 
-  if (cur_cmd == 63)
-  align_state = 0; 
-  else {
-      
-    back_input(); 
-    begin_token_list(mem[cur_align + 3].cint, 1); 
-  } 
-} 
-/* fin_col() moved to end to hide in pragma (g, "off") */
-/* may need to move more ? everything calling new_null_box() ? */
-void fin_row (void) 
-{
-  halfword p; 
-  if (mode == -102)
-  {
-    p = hpack(mem[head].hh.v.RH, 0, 1); 
-    pop_nest(); 
-    append_to_vlist(p); 
-    if (cur_head != cur_tail)
-    {
-      mem[tail].hh.v.RH = mem[cur_head].hh.v.RH; 
-      tail = cur_tail; 
-    } 
-  } 
-  else {
-      
-    p = vpackage(mem[head].hh.v.RH, 0, 1,
-    1073741823L);   /* 2^30 - 1 */
-    pop_nest(); 
-    mem[tail].hh.v.RH = p; 
-    tail = p; 
-    space_factor = 1000; 
-  } 
-  mem[p].hh.b0 = 13; 
-  mem[p + 6].cint = 0; 
-  if (eqtb[(hash_size + 1320)].hh.v.RH != 0)/* everycr */
-    begin_token_list(eqtb[(hash_size + 1320)].hh.v.RH, 13); 
-  align_peek(); 
-} 
-void fin_align (void) 
-{ 
-  halfword p, q, r, s, u, v; 
-  scaled t, w; 
-  scaled o; 
-  halfword n; 
-  scaled rulesave; 
-  memory_word auxsave; 
-
-  if (cur_group != 6){
-    confusion("align1");
-    return;       // abort_flag set
-  }
-  unsave(); 
-  if (cur_group != 6){
-    confusion("align0");
-    return;       // abort_flag set
-  }
-  unsave(); 
-  if (nest[nest_ptr - 1].mode_field == 203)
-  o = eqtb[(hash_size + 3745)].cint; 
-  else o = 0; 
-  q = mem[mem[align_head].hh.v.RH].hh.v.RH; 
-  do {
-      flush_list(mem[q + 3].cint); 
-    flush_list(mem[q + 2].cint); 
-    p = mem[mem[q].hh.v.RH].hh.v.RH; 
-    if (mem[q + 1].cint == -1073741824L) /* - 2^30 */
-    {
-      mem[q + 1].cint = 0; 
-      r = mem[q].hh.v.RH; 
-      s = mem[r + 1].hh.v.LH; 
-      if (s != 0)
-      {
-  incr(mem[0].hh.v.RH); /* mem[mem_bot]? mem[null]? */
-  delete_glue_ref(s); 
-  mem[r + 1].hh.v.LH = 0; 
-      } 
-    } 
-    if (mem[q].hh.v.LH != end_span)
-    {
-      t = mem[q + 1].cint + mem[mem[mem[q].hh.v.RH + 1].hh 
-     .v.LH + 1].cint; 
-      r = mem[q].hh.v.LH; 
-      s = end_span; 
-      mem[s].hh.v.LH = p; 
-      n = 1; 
-      do {
-    mem[r + 1].cint = mem[r + 1].cint - t; 
-  u = mem[r].hh.v.LH; 
-  while(mem[r].hh.v.RH > n){
-      
-    s = mem[s].hh.v.LH; 
-    n = mem[mem[s].hh.v.LH].hh.v.RH + 1; 
-  } 
-  if (mem[r].hh.v.RH < n)
-  {
-    mem[r].hh.v.LH = mem[s].hh.v.LH; 
-    mem[s].hh.v.LH = r; 
-    decr(mem[r].hh.v.RH); 
-    s = r; 
-  } 
-  else {
-      
-    if (mem[r + 1].cint > mem[mem[s].hh.v.LH + 1].cint)
-    mem[mem[s].hh.v.LH + 1].cint = mem[r + 1].cint; 
-    free_node(r, 2); 
-  } 
-  r = u; 
-      } while(!(r == end_span)); 
-    } 
-    mem[q].hh.b0 = 13; 
-    mem[q].hh.b1 = 0; 
-    mem[q + 3].cint = 0; 
-    mem[q + 2].cint = 0; 
-    mem[q + 5].hh.b1 = 0; 
-    mem[q + 5].hh.b0 = 0; 
-    mem[q + 6].cint = 0; 
-    mem[q + 4].cint = 0; 
-    q = p; 
-  } while(!(q == 0)); 
-  save_ptr = save_ptr - 2; 
-  pack_begin_line = - (integer) mode_line; 
-  if (mode == -1)
-  {
-    rulesave = eqtb[(hash_size + 3746)].cint; 
-    eqtb[(hash_size + 3746)].cint = 0; 
-    p = hpack(mem[align_head].hh.v.RH, save_stack[save_ptr + 1].cint 
-   , save_stack[save_ptr + 0].cint); 
-    eqtb[(hash_size + 3746)].cint = rulesave; 
-  } 
-  else {
-      
-    q = mem[mem[align_head].hh.v.RH].hh.v.RH; 
-    do {
-  mem[q + 3].cint = mem[q + 1].cint; 
-      mem[q + 1].cint = 0; 
-      q = mem[mem[q].hh.v.RH].hh.v.RH; 
-    } while(!(q == 0)); 
-    p = vpackage(mem[align_head].hh.v.RH, save_stack[save_ptr + 1]
-   .cint, save_stack[save_ptr + 0].cint, 1073741823L);  /* 2^30 - 1 */
-    q = mem[mem[align_head].hh.v.RH].hh.v.RH; 
-    do {
-  mem[q + 1].cint = mem[q + 3].cint; 
-      mem[q + 3].cint = 0; 
-      q = mem[mem[q].hh.v.RH].hh.v.RH; 
-    } while(!(q == 0)); 
-  } 
-  pack_begin_line = 0; 
-  q = mem[head].hh.v.RH; 
-  s = head; 
-  while(q != 0){    /* while q<>null l.15794 OK */
-      
-    if (!(q >= hi_mem_min))  /*   begin if not is_char_node(q) then */
-    if (mem[q].hh.b0 == 13)
-    {
-      if (mode == -1)
-      {
-  mem[q].hh.b0 = 0; 
-  mem[q + 1].cint = mem[p + 1].cint; 
-      } 
-      else {
-    
-  mem[q].hh.b0 = 1; 
-  mem[q + 3].cint = mem[p + 3].cint; 
-      } 
-      mem[q + 5].hh.b1 = mem[p + 5].hh.b1; 
-      mem[q + 5].hh.b0 = mem[p + 5].hh.b0; 
-      mem[q + 6].gr = mem[p + 6].gr; 
-      mem[q + 4].cint = o; 
-      r = mem[mem[q + 5].hh.v.RH].hh.v.RH; 
-      s = mem[mem[p + 5].hh.v.RH].hh.v.RH; 
-      do {
-    n = mem[r].hh.b1; 
-  t = mem[s + 1].cint; 
-  w = t; 
-  u = hold_head; 
-  while(n > 0){
-      
-    decr(n); 
-    s = mem[s].hh.v.RH; 
-    v = mem[s + 1].hh.v.LH; 
-    mem[u].hh.v.RH = new_glue(v); 
-    u = mem[u].hh.v.RH; 
-    mem[u].hh.b1 = 12; 
-    t = t + mem[v + 1].cint; 
-    if (mem[p + 5].hh.b0 == 1)
-    {
-      if (mem[v].hh.b0 == mem[p + 5].hh.b1)
-      t = t + round(mem[p + 6].gr * mem[v + 2].cint); 
-    } 
-    else if (mem[p + 5].hh.b0 == 2)
-    {
-      if (mem[v].hh.b1 == mem[p + 5].hh.b1)
-      t = t - round(mem[p + 6].gr * mem[v + 3].cint); 
-    } 
-    s = mem[s].hh.v.RH; 
-    mem[u].hh.v.RH = new_null_box(); 
-    u = mem[u].hh.v.RH; 
-    t = t + mem[s + 1].cint; 
-    if (mode == -1)
-    mem[u + 1].cint = mem[s + 1].cint; 
-    else {
-        
-      mem[u].hh.b0 = 1; 
-      mem[u + 3].cint = mem[s + 1].cint; 
-    } 
-  } 
-  if (mode == -1)
-  {
-    mem[r + 3].cint = mem[q + 3].cint; 
-    mem[r + 2].cint = mem[q + 2].cint; 
-    if (t == mem[r + 1].cint)
-    {
-      mem[r + 5].hh.b0 = 0; 
-      mem[r + 5].hh.b1 = 0; 
-      mem[r + 6].gr = 0.0; 
-    } 
-    else if (t > mem[r + 1].cint)
-    {
-      mem[r + 5].hh.b0 = 1; 
-      if (mem[r + 6].cint == 0)
-      mem[r + 6].gr = 0.0; 
-      else mem[r + 6].gr =(t - mem[r + 1].cint)/ ((double) 
-      mem[r + 6].cint); 
-    } 
-    else {
-        
-      mem[r + 5].hh.b1 = mem[r + 5].hh.b0; 
-      mem[r + 5].hh.b0 = 2; 
-      if (mem[r + 4].cint == 0)
-      mem[r + 6].gr = 0.0; 
-      else if ((mem[r + 5].hh.b1 == 0)&&(mem[r + 1].cint - 
-      t > mem[r + 4].cint)) 
-      mem[r + 6].gr = 1.0; 
-      else mem[r + 6].gr =(mem[r + 1].cint - t)/ ((double) 
-      mem[r + 4].cint); 
-    } 
-    mem[r + 1].cint = w; 
-    mem[r].hh.b0 = 0; 
-  } 
-  else {
-      
-    mem[r + 1].cint = mem[q + 1].cint; 
-    if (t == mem[r + 3].cint)
-    {
-      mem[r + 5].hh.b0 = 0; 
-      mem[r + 5].hh.b1 = 0; 
-      mem[r + 6].gr = 0.0; 
-    } 
-    else if (t > mem[r + 3].cint)
-    {
-      mem[r + 5].hh.b0 = 1; 
-      if (mem[r + 6].cint == 0)
-      mem[r + 6].gr = 0.0; 
-      else mem[r + 6].gr =(t - mem[r + 3].cint)/ ((double) 
-      mem[r + 6].cint); 
-    } 
-    else {
-        
-      mem[r + 5].hh.b1 = mem[r + 5].hh.b0; 
-      mem[r + 5].hh.b0 = 2; 
-      if (mem[r + 4].cint == 0)
-      mem[r + 6].gr = 0.0; 
-      else if ((mem[r + 5].hh.b1 == 0)&&(mem[r + 3].cint - 
-      t > mem[r + 4].cint)) 
-      mem[r + 6].gr = 1.0; 
-      else mem[r + 6].gr =(mem[r + 3].cint - t)/ ((double) 
-      mem[r + 4].cint); 
-    } 
-    mem[r + 3].cint = w; 
-    mem[r].hh.b0 = 1; 
-  } 
-  mem[r + 4].cint = 0; 
-  if (u != hold_head)
-  {
-    mem[u].hh.v.RH = mem[r].hh.v.RH; 
-    mem[r].hh.v.RH = mem[hold_head].hh.v.RH; 
-    r = u; 
-  } 
-  r = mem[mem[r].hh.v.RH].hh.v.RH; 
-  s = mem[mem[s].hh.v.RH].hh.v.RH; 
-      } while(!(r == 0)); 
-    } 
-    else if (mem[q].hh.b0 == 2)
-    {
-      if ((mem[q + 1].cint == -1073741824L))  /* 2^30  */
-      mem[q + 1].cint = mem[p + 1].cint; 
-      if ((mem[q + 3].cint == -1073741824L))  /* 2^30  */
-      mem[q + 3].cint = mem[p + 3].cint; 
-      if ((mem[q + 2].cint == -1073741824L))  /* 2^30  */
-      mem[q + 2].cint = mem[p + 2].cint; 
-      if (o != 0)
-      {
-  r = mem[q].hh.v.RH; 
-  mem[q].hh.v.RH = 0; 
-  q = hpack(q, 0, 1); 
-  mem[q + 4].cint = o; 
-  mem[q].hh.v.RH = r; 
-  mem[s].hh.v.RH = q; 
-      } 
-    } 
-    s = q; 
-    q = mem[q].hh.v.RH; 
-  } 
-  flush_node_list(p); 
-  pop_alignment(); 
-  auxsave = cur_list.aux_field; 
-  p = mem[head].hh.v.RH; 
-  q = tail; 
-  pop_nest(); 
-  if (mode == 203)
-  {
-    do_assignments(); 
-    if (cur_cmd != 3) {
-               print_err("Missing $$ inserted");
-               help2("Displays can use special alignments (like \\eqalignno)",
-                       "only if nothing but the alignment itself is between $$'s.");
-      back_error(); 
-    } 
-    else {
-  
-      get_x_token(); 
-      if (cur_cmd != 3)
-      {
-                 print_err("Display math should end with $$");
-                 help2("The `$' that I just saw supposedly matches a previous `$$'.",
-                         "So I shall assume that you typed `$$' both times.");
-  back_error(); 
-      } 
-  }
-    pop_nest(); 
-    {
-      mem[tail].hh.v.RH = new_penalty(eqtb[(hash_size + 3174)].cint 
-    ); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    {
-      mem[tail].hh.v.RH = new_param_glue(3); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    mem[tail].hh.v.RH = p; 
-    if (p != 0)
-    tail = q; 
-    {
-      mem[tail].hh.v.RH = new_penalty(eqtb[(hash_size + 3175)].cint 
-    ); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    {
-      mem[tail].hh.v.RH = new_param_glue(4); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    cur_list.aux_field.cint = auxsave.cint; 
-    resume_after_display(); 
-  } 
-  else {
-      
-    cur_list.aux_field = auxsave; 
-    mem[tail].hh.v.RH = p; 
-    if (p != 0)    /*   if p<>null then tail:=q; l.15926 */
-    tail = q; 
-    if (mode == 1){
-    build_page();
-  }
-  } 
-} 
-/* used to be align_peek, zfintieshrink, etc in old tex5.c */
-/************************************************************************/
-/* moved down here to avoid questions about pragma optimize */
-#pragma optimize("g", off)          /* for MC VS compiler */
-/*  Moved down here 96/Oct/12 in response to problem with texerror.tex */
-/*  pragma optimize("a", off) not strong enough - this may slow things */
-bool fin_col (void) 
-{/* 10 */ register bool Result;
-  halfword p; 
-  halfword q, r; 
-  halfword s; 
-  halfword u; 
-  scaled w; 
-  glue_ord o; 
-  halfword n; 
-  if (cur_align == 0){
-    confusion("endv");
-    return 0;       // abort_flag set
-  }
-  q = mem[cur_align].hh.v.RH; 
-  if (q == 0){
-    confusion("endv");
-    return 0;       // abort_flag set
-  }
-  if (align_state < 500000L) {     /* ??? */
-    fatal_error("(interwoven alignment preambles are not allowed)"); /*  */
-    return 0;     // abort_flag set
-  }
-  p = mem[q].hh.v.RH;         /* p <- link(q) p.791 */
-/* if (p = null) ^ (extra_info(cur_align) < cr_code) then p.792 */
-  if ((p == 0)&&(mem[cur_align + 5].hh.v.LH < 257)) 
-  if (cur_loop != 0)
-  {
-/*  potential problem here if new_null_box causes memory reallocation ??? */
-/*  compiler optimization does not refresh `mem' loaded in registers ? */
-    mem[q].hh.v.RH = new_null_box(); 
-    p = mem[q].hh.v.RH; 
-    mem[p].hh.v.LH = end_span; 
-    mem[p + 1].cint = -1073741824L;  /* - 2^30 */
-    cur_loop = mem[cur_loop].hh.v.RH; 
-    q = hold_head; 
-    r = mem[cur_loop + 3].cint; 
-    while(r != 0){
-  
-      mem[q].hh.v.RH = get_avail(); 
-      q = mem[q].hh.v.RH; 
-      mem[q].hh.v.LH = mem[r].hh.v.LH; 
-      r = mem[r].hh.v.RH; 
-    } 
-    mem[q].hh.v.RH = 0; 
-    mem[p + 3].cint = mem[hold_head].hh.v.RH; 
-    q = hold_head; 
-    r = mem[cur_loop + 2].cint; 
-    while(r != 0){
-  
-      mem[q].hh.v.RH = get_avail(); 
-      q = mem[q].hh.v.RH; 
-      mem[q].hh.v.LH = mem[r].hh.v.LH; 
-      r = mem[r].hh.v.RH; 
-    } 
-    mem[q].hh.v.RH = 0; 
-    mem[p + 2].cint = mem[hold_head].hh.v.RH; 
-    cur_loop = mem[cur_loop].hh.v.RH; 
-    mem[p].hh.v.RH = new_glue(mem[cur_loop + 1].hh.v.LH); 
-  } 
-  else {
-      print_err("Extra alignment tab has been changed to ");
-    print_esc("cr");
-       help3("You have given more \\span or & marks than there were",
-               "in the preamble to the \\halign or \\valign now in progress.",
-               "So I'll assume that you meant to type \\cr instead.");
-/* extra_info(cur_align) < cr_code) ? */
-    mem[cur_align + 5].hh.v.LH = 257; 
-    error(); 
-  } 
-  if (mem[cur_align + 5].hh.v.LH != 256)
-  {
-    unsave(); 
-    new_save_level(6); 
-    {
-      if (mode == -102)
-      {
-  adjust_tail = cur_tail; 
-  u = hpack(mem[head].hh.v.RH, 0, 1); 
-  w = mem[u + 1].cint; 
-  cur_tail = adjust_tail; 
-  adjust_tail = 0; 
-      } 
-      else {
-    
-  u = vpackage(mem[head].hh.v.RH, 0, 1, 0); 
-  w = mem[u + 3].cint; 
-      } 
-      n = 0; 
-      if (cur_span != cur_align)
-      {
-  q = cur_span; 
-  do {
-      incr(n); 
-    q = mem[mem[q].hh.v.RH].hh.v.RH; 
-  } while(!(q == cur_align)); 
-/*  if n > max_quarterword then confusion("256 spans"); p.798 */
-/*  if (n > 255) */            /* 94/Apr/4 ? */
-  if (n > max_quarterword) {       /* 96/Oct/12 ??? */
-    confusion("256 spans");   /* 256 spans --- message wrong now, but ... */
-    return 0;       // abort_flag set
-  }
-  q = cur_span; 
-  while(mem[mem[q].hh.v.LH].hh.v.RH < n)q = mem[q].hh 
-  .v.LH; 
-  if (mem[mem[q].hh.v.LH].hh.v.RH > n)
-  {
-    s = get_node(2); 
-    mem[s].hh.v.LH = mem[q].hh.v.LH; 
-    mem[s].hh.v.RH = n; 
-    mem[q].hh.v.LH = s; 
-    mem[s + 1].cint = w; 
-  } 
-  else if (mem[mem[q].hh.v.LH + 1].cint < w)
-  mem[mem[q].hh.v.LH + 1].cint = w; 
-      } 
-      else if (w > mem[cur_align + 1].cint)
-      mem[cur_align + 1].cint = w; 
-      mem[u].hh.b0 = 13; 
-      mem[u].hh.b1 = n; 
-      if (totalstretch[3]!= 0)
-      o = 3; 
-      else if (totalstretch[2]!= 0)
-      o = 2; 
-      else if (totalstretch[1]!= 0)
-      o = 1; 
-      else o = 0; 
-      mem[u + 5].hh.b1 = o; 
-      mem[u + 6].cint = totalstretch[o]; 
-      if (totalshrink[3]!= 0)
-      o = 3; 
-      else if (totalshrink[2]!= 0)
-      o = 2; 
-      else if (totalshrink[1]!= 0)
-      o = 1; 
-      else o = 0; 
-      mem[u + 5].hh.b0 = o; 
-      mem[u + 4].cint = totalshrink[o]; 
-      pop_nest(); 
-      mem[tail].hh.v.RH = u; 
-      tail = u; 
-    } 
-    {
-      mem[tail].hh.v.RH = new_glue(mem[mem[cur_align]
-     .hh.v.RH + 1].hh.v.LH); 
-      tail = mem[tail].hh.v.RH; 
-    } 
-    mem[tail].hh.b1 = 12; 
-/* if (extra_info(cur_align) >= cr_code) then p.792 */
-    if (mem[cur_align + 5].hh.v.LH >= 257)
-    {
-      Result = true; 
-      return(Result); 
-    } 
-    init_span(p); 
-  } 
-  align_state = 1000000L; 
-  do {
-      get_x_token(); 
-  } while(!(cur_cmd != 10)); 
-  cur_align = p; 
-  init_col(); 
-  Result = false; 
-  return Result; 
-} 
-/* #pragma optimize ("g", on) */        /* for MC VS compiler */
-/* #pragma optimize ("g",) */         /* 94/Jan/25 */
-/* #pragma optimize ("", on) */           /* 96/Sep/12 */
-/* #pragma optimize("g", off) */          /* for MC VS compiler */
-
-scaled make_op_(halfword q)
-{register scaled Result; 
-  scaled delta; 
-  halfword p, v, x, y, z; 
-  quarterword c; 
-  ffourquarters i; 
-  scaled shiftup, shiftdown; 
-  if ((mem[q].hh.b1 == 0)&&(cur_style < 2)) 
-  mem[q].hh.b1 = 1; 
-  if (mem[q + 1].hh.v.RH == 1)
-  {
-    fetch(q + 1); 
-    if ((cur_style < 2)&&(((cur_i.b2)% 4)== 2)) 
-    {
-      c = cur_i.b3; 
-      i = font_info[char_base[cur_f]+ c].qqqq; 
-      if ((i.b0 > 0)) 
-      {
-  cur_c = c; 
-  cur_i = i; 
-  mem[q + 1].hh.b1 = c; 
-      } 
-    } 
-    delta = font_info[italic_base[cur_f]+(cur_i.b2)/ 4].cint; 
-    x = clean_box(q + 1, cur_style); 
-    if ((mem[q + 3].hh.v.RH != 0)&&(mem[q].hh.b1 != 1)) 
-    mem[x + 1].cint = mem[x + 1].cint - delta; 
-    mem[x + 4].cint = half(mem[x + 3].cint - mem[x + 2].cint)- 
-    font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint; 
-    mem[q + 1].hh.v.RH = 2; 
-    mem[q + 1].hh.v.LH = x; 
-  } 
-  else delta = 0; 
-  if (mem[q].hh.b1 == 1)
-  {
-    x = clean_box(q + 2, 2 *(cur_style / 4)+ 4 +(cur_style % 2)); 
-    y = clean_box(q + 1, cur_style); 
-    z = clean_box(q + 3, 2 *(cur_style / 4)+ 5); 
-    v = new_null_box(); 
-    mem[v].hh.b0 = 1; 
-    mem[v + 1].cint = mem[y + 1].cint; 
-    if (mem[x + 1].cint > mem[v + 1].cint)
-    mem[v + 1].cint = mem[x + 1].cint; 
-    if (mem[z + 1].cint > mem[v + 1].cint)
-    mem[v + 1].cint = mem[z + 1].cint; 
-    x = rebox(x, mem[v + 1].cint); 
-    y = rebox(y, mem[v + 1].cint); 
-    z = rebox(z, mem[v + 1].cint); 
-    mem[x + 4].cint = half(delta); 
-    mem[z + 4].cint = - (integer) mem[x + 4].cint; 
-    mem[v + 3].cint = mem[y + 3].cint; 
-    mem[v + 2].cint = mem[y + 2].cint; 
-    if (mem[q + 2].hh.v.RH == 0)
-    {
-      free_node(x, 7); 
-      mem[v + 5].hh.v.RH = y; 
-    } 
-    else {
-  
-      shiftup = font_info[11 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH 
-    ]].cint - mem[x + 2].cint; 
-      if (shiftup < font_info[9 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-     .v.RH]].cint)
-      shiftup = font_info[9 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH 
-    ]].cint; 
-      p = new_kern(shiftup); 
-      mem[p].hh.v.RH = y; 
-      mem[x].hh.v.RH = p; 
-      p = new_kern(font_info[13 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-     .v.RH]].cint); 
-      mem[p].hh.v.RH = x; 
-      mem[v + 5].hh.v.RH = p; 
-      mem[v + 3].cint = mem[v + 3].cint + font_info[13 + param_base[
-      eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint + mem[x + 3].cint + mem 
-     [x + 2].cint + shiftup; 
-    } 
-    if (mem[q + 3].hh.v.RH == 0)
-    free_node(z, 7); 
-    else {
-  
-      shiftdown = font_info[12 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-     .v.RH]].cint - mem[z + 3].cint; 
-      if (shiftdown < font_info[10 + param_base[eqtb[(hash_size + 1838) + cur_size]
-     .hh.v.RH]].cint)
-      shiftdown = font_info[10 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-     .v.RH]].cint; 
-      p = new_kern(shiftdown); 
-      mem[y].hh.v.RH = p; 
-      mem[p].hh.v.RH = z; 
-      p = new_kern(font_info[13 + param_base[eqtb[(hash_size + 1838) + cur_size].hh 
-     .v.RH]].cint); 
-      mem[z].hh.v.RH = p; 
-      mem[v + 2].cint = mem[v + 2].cint + font_info[13 + param_base[
-      eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint + mem[z + 3].cint + mem 
-     [z + 2].cint + shiftdown; 
-    } 
-    mem[q + 1].cint = v; 
-  } 
-  Result = delta; 
-  return Result; 
-} 
-/* #pragma optimize ("g", on) */        /* for MC VS compiler */
-/* #pragma optimize ("g",) */         /* 94/Jan/25 */
-/* #pragma optimize ("", on) */           /* 96/Sep/12 */
-/* #pragma optimize ("g", off) */
-
-void make_scripts_(halfword q, scaled delta) 
-{ 
-  halfword p, x, y, z; 
-  scaled shiftup, shiftdown, clr; 
-  small_number t; 
-  p = mem[q + 1].cint; 
-  if ((p >= hi_mem_min)) 
-  {
-    shiftup = 0; 
-    shiftdown = 0; 
-  } 
-  else {
-      
-    z = hpack(p, 0, 1); 
-    if (cur_style < 4)
-    t = 16; 
-    else t = 32; 
-    shiftup = mem[z + 3].cint - font_info[18 + param_base[eqtb[(hash_size + 1837) + 
-    t].hh.v.RH]].cint; 
-    shiftdown = mem[z + 2].cint + font_info[19 + param_base[eqtb[(hash_size + 1837) 
-    + t].hh.v.RH]].cint; 
-    free_node(z, 7); 
-  } 
-  if (mem[q + 2].hh.v.RH == 0)
-  {
-    x = clean_box(q + 3, 2 *(cur_style / 4)+ 5); 
-    mem[x + 1].cint = mem[x + 1].cint + eqtb[(hash_size + 3742)].cint; 
-    if (shiftdown < font_info[16 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-   .v.RH]].cint)
-    shiftdown = font_info[16 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH 
-  ]].cint; 
-    clr = mem[x + 3].cint -(abs(font_info[5 + param_base[eqtb[
-    (hash_size + 1837) + cur_size].hh.v.RH]].cint * 4)/ 5); 
-    if (shiftdown < clr)
-    shiftdown = clr; 
-    mem[x + 4].cint = shiftdown; 
-  } 
-  else {
-      
-    {
-      x = clean_box(q + 2, 2 *(cur_style / 4)+ 4 +(cur_style % 2)); 
-      mem[x + 1].cint = mem[x + 1].cint + eqtb[(hash_size + 3742)].cint; 
-      if (odd(cur_style)) 
-      clr = font_info[15 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]] 
-     .cint; 
-      else if (cur_style < 2)
-      clr = font_info[13 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]] 
-     .cint; 
-      else clr = font_info[14 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-     .v.RH]].cint; 
-      if (shiftup < clr)
-      shiftup = clr; 
-      clr = mem[x + 2].cint +(abs(font_info[5 +
-    param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint)/ 4); 
-      if (shiftup < clr)
-      shiftup = clr; 
-    } 
-    if (mem[q + 3].hh.v.RH == 0)
-    mem[x + 4].cint = - (integer) shiftup; 
-    else {
-  
-      y = clean_box(q + 3, 2 *(cur_style / 4)+ 5); 
-      mem[y + 1].cint = mem[y + 1].cint + eqtb[(hash_size + 3742)].cint; 
-      if (shiftdown < font_info[17 + param_base[eqtb[(hash_size + 1837) + cur_size]
-     .hh.v.RH]].cint)
-      shiftdown = font_info[17 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-     .v.RH]].cint; 
-      clr = 4 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH 
-    ]].cint -((shiftup - mem[x + 2].cint)-(mem[y + 3].cint 
-      - shiftdown)); 
-      if (clr > 0)
-      {
-  shiftdown = shiftdown + clr; 
-  clr =(abs(font_info[5 + param_base[eqtb[(hash_size + 1837) + cur_size].hh 
-  .v.RH]].cint * 4)/ 5)-(shiftup - mem[x + 2].cint); 
-  if (clr > 0)
-  {
-    shiftup = shiftup + clr; 
-    shiftdown = shiftdown - clr; 
-  } 
-      } 
-      mem[x + 4].cint = delta; 
-      p = new_kern((shiftup - mem[x + 2].cint)-(mem[y + 3].cint 
-      - shiftdown)); 
-      mem[x].hh.v.RH = p; 
-      mem[p].hh.v.RH = y; 
-      x = vpackage(x, 0, 1, 1073741823L);  /* 2^30 - 1 */
-      mem[x + 4].cint = shiftdown; 
-    } 
-  } 
-  if (mem[q + 1].cint == 0)
-  mem[q + 1].cint = x; 
-  else {
-      
-    p = mem[q + 1].cint; 
-    while(mem[p].hh.v.RH != 0)p = mem[p].hh.v.RH; 
-    mem[p].hh.v.RH = x; 
-  } 
-} 
-/* #pragma optimize ("g", on) */        /* 96/Sep/12 */
-/* #pragma optimize ("g") */          /* 94/Jan/25 */
-#pragma optimize ("", on)           /* 96/Sep/12 */
-/***************************************************************************/
+/*\r
+   Copyright 2014 Clerk Ma\r
+\r
+   This program is free software; you can redistribute it and/or modify\r
+   it under the terms of the GNU General Public License as published by\r
+   the Free Software Foundation; either version 2 of the License, or\r
+   (at your option) any later version.\r
+\r
+   This program is distributed in the hope that it will be useful, but\r
+   WITHOUT ANY WARRANTY; without even the implied warranty of\r
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\r
+   General Public License for more details.\r
+\r
+   You should have received a copy of the GNU General Public License\r
+   along with this program; if not, write to the Free Software\r
+   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA\r
+   02110-1301 USA.\r
+*/\r
+\r
+#define EXTERN extern\r
+#include "yandytex.h"\r
+\r
+/* sec 0715 */\r
+pointer rebox (pointer b, scaled w)\r
+{\r
+  pointer p;\r
+  internal_font_number f;\r
+  scaled v;\r
+\r
+  if ((width(b) != w) && (list_ptr(b) != 0))\r
+  {\r
+    if (type(b) == vlist_node)\r
+      b = hpack(b, 0, 1);\r
+\r
+    p = list_ptr(b);\r
+\r
+    if ((is_char_node(p)) && (link(p) == 0))\r
+    {\r
+      f = font(p);\r
+      v = char_width(f, char_info(f, character(p)));\r
+\r
+      if (v != width(b))\r
+        link(p) = new_kern(width(b) - v);\r
+    }\r
+\r
+    free_node(b, box_node_size);\r
+    b = new_glue(ss_glue);\r
+    link(b) = p;\r
+\r
+    while (link(p) != 0)\r
+      p = link(p);\r
+\r
+    link(p) = new_glue(ss_glue);\r
+    return hpack(b, w, exactly);\r
+  }\r
+  else\r
+  {\r
+    width(b) = w;\r
+    return b;\r
+  }\r
+}\r
+/* sec 0716 */\r
+pointer math_glue (pointer g, scaled m)\r
+{\r
+  pointer p;\r
+  integer n;\r
+  scaled f;\r
+\r
+  n = x_over_n(m, 65536L);\r
+  f = tex_remainder;\r
+\r
+  if (f < 0)\r
+  {\r
+    decr(n);\r
+    f = f + 65536L;\r
+  }\r
+\r
+  p = get_node(glue_spec_size);\r
+  width(p) = mu_mult(width(g));\r
+  stretch_order(p) = stretch_order(g);\r
+\r
+  if (stretch_order(p) == normal)\r
+    stretch(p) = mu_mult(stretch(g));\r
+  else\r
+    stretch(p) = stretch(g);\r
+\r
+  shrink_order(p) = shrink_order(g);\r
+\r
+  if (shrink_order(p) == normal)\r
+    shrink(p) = mu_mult(shrink(g));\r
+  else\r
+    shrink(p) = shrink(g);\r
+\r
+  return p;\r
+}\r
+/* sec 0717 */\r
+void math_kern (pointer p, scaled m)\r
+{\r
+  integer n;\r
+  scaled f;\r
+\r
+  if (subtype(p) == mu_glue)\r
+  {\r
+    n = x_over_n(m, 65536L);\r
+    f = tex_remainder;\r
+\r
+    if (f < 0)\r
+    {\r
+      decr(n);\r
+      f = f + 65536L;\r
+    }\r
+\r
+    width(p) = mu_mult(width(p));\r
+    subtype(p) = explicit;\r
+  }\r
+}\r
+/* sec 0718 */\r
+void flush_math (void)\r
+{\r
+  flush_node_list(link(head));\r
+  flush_node_list(incompleat_noad);\r
+  link(head) = 0;\r
+  tail = head;\r
+  incompleat_noad = 0;\r
+}\r
+/* sec 0720 */\r
+pointer clean_box (pointer p, small_number s)\r
+{\r
+  pointer q;\r
+  small_number save_style;\r
+  pointer x;\r
+  pointer r;\r
+\r
+  switch (math_type(p))\r
+  {\r
+    case math_char:\r
+      {\r
+        cur_mlist = new_noad();\r
+        mem[nucleus(cur_mlist)] = mem[p];\r
+      }\r
+      break;\r
+\r
+    case sub_box:\r
+      {\r
+        q = info(p);\r
+        goto found;\r
+      }\r
+      break;\r
+\r
+    case sub_mlist:\r
+      cur_mlist = info(p);\r
+      break;\r
+\r
+    default:\r
+      {\r
+        q = new_null_box();\r
+        goto found;\r
+      }\r
+    break;\r
+  }\r
+\r
+  save_style = cur_style;\r
+  cur_style = s;\r
+  mlist_penalties = false;\r
+  mlist_to_hlist();\r
+  q = link(temp_head);\r
+  cur_style = save_style;\r
+\r
+  {\r
+    if (cur_style < script_style)\r
+      cur_size = text_size;\r
+    else\r
+      cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+    cur_mu = x_over_n(math_quad(cur_size), 18);\r
+  }\r
+\r
+found:\r
+  if (is_char_node(q) || (q == 0))\r
+    x = hpack(q, 0, 1);\r
+  else if ((link(q) == 0) && (type(q) <= vlist_node) && (shift_amount(q) == 0))\r
+    x = q;\r
+  else\r
+    x = hpack(q, 0, 1);\r
+\r
+  q = list_ptr(x);\r
+\r
+  if (is_char_node(q))\r
+  {\r
+    r = link(q);\r
+\r
+    if (r != 0)\r
+      if (link(r) == 0)\r
+        if (!is_char_node(r))\r
+          if (type(r) == kern_node)\r
+          {\r
+            free_node(r, small_node_size);\r
+            link(q) = 0;\r
+          }\r
+  }\r
+\r
+  return x;\r
+}\r
+/* sec 0722 */\r
+void fetch (pointer a)\r
+{\r
+  cur_c = character(a);\r
+  cur_f = fam_fnt(fam(a) + cur_size);\r
+\r
+  if (cur_f == null_font)\r
+  {\r
+    print_err("");\r
+    print_size(cur_size);\r
+    print_char(' ');\r
+    print_int(fam(a));\r
+    prints(" is undefined (character ");\r
+    print(cur_c);\r
+    print_char(')');\r
+    help4("Somewhere in the math formula just ended, you used the",\r
+        "stated character from an undefined font family. For example,",\r
+        "plain TeX doesn't allow \\it or \\sl in subscripts. Proceed,",\r
+        "and I'll try to forget that I needed that character.");\r
+    error();\r
+    cur_i = null_character;\r
+    math_type(a) = 0;\r
+  }\r
+  else\r
+  {\r
+    if ((cur_c >= font_bc[cur_f]) && (cur_c <= font_ec[cur_f]))\r
+      cur_i = char_info(cur_f, cur_c);\r
+    else\r
+      cur_i = null_character;\r
+\r
+    if (!char_exists(cur_i))\r
+    {\r
+      char_warning(cur_f, cur_c);\r
+      math_type(a) = 0;\r
+    }\r
+  }\r
+}\r
+/* sec 0734 */\r
+void make_over (pointer q)\r
+{\r
+  info(nucleus(q)) = overbar(clean_box(nucleus(q), 2 * (cur_style / 2) + 1),\r
+      3 * default_rule_thickness, default_rule_thickness);\r
+  math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0735 */\r
+void make_under (pointer q)\r
+{\r
+  pointer p, x, y;\r
+  scaled delta;\r
+\r
+  x = clean_box(nucleus(q), cur_style);\r
+  p = new_kern(3 * default_rule_thickness);\r
+  link(x) = p;\r
+  link(p) = fraction_rule(default_rule_thickness);\r
+  y = vpackage(x, 0, 1, max_dimen);\r
+  delta = height(y) + depth(y) + default_rule_thickness;\r
+  height(y) = height(x);\r
+  depth(y) = delta - height(y);\r
+  info(nucleus(q)) = y;\r
+  math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0736 */\r
+void make_vcenter (pointer q)\r
+{ \r
+  pointer v;\r
+  scaled delta;\r
+\r
+  v = info(nucleus(q));\r
+\r
+  if (type(v) != vlist_node)\r
+  {\r
+    confusion("vcenter");\r
+    return;\r
+  }\r
+\r
+  delta = height(v) + depth(v);\r
+  height(v) = axis_height(cur_size) + half(delta);\r
+  depth(v) = delta - height(v);\r
+}\r
+/* sec 0737 */\r
+void make_radical (pointer q)\r
+{\r
+  pointer x, y;\r
+  scaled delta, clr;\r
+\r
+  x = clean_box(nucleus(q), 2 * (cur_style / 2) + 1);\r
+\r
+  if (cur_style < text_style)\r
+    clr = default_rule_thickness + (abs(math_x_height(cur_size)) / 4);\r
+  else\r
+  {\r
+    clr = default_rule_thickness;\r
+    clr = clr + (abs(clr) / 4);\r
+  }\r
+\r
+  y = var_delimiter(left_delimiter(q), cur_size, height(x) + depth(x) + clr + default_rule_thickness);\r
+  delta = depth(y) - (height(x) + depth(x) + clr);\r
+\r
+  if (delta > 0)\r
+    clr = clr + half(delta);\r
+\r
+  shift_amount(y) = - (integer) (height(x) + clr);\r
+  link(y) = overbar(x, clr, height(y));\r
+  info(nucleus(q)) = hpack(y, 0, 1);\r
+  math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0738 */\r
+void make_math_accent (pointer q)\r
+{\r
+  pointer p, x, y;\r
+  integer a;\r
+  quarterword c;\r
+  internal_font_number f;\r
+  four_quarters i;\r
+  scaled s;\r
+  scaled h;\r
+  scaled delta;\r
+  scaled w;\r
+\r
+  fetch(accent_chr(q));\r
+\r
+  if (char_exists(cur_i))\r
+  {\r
+    i = cur_i;\r
+    c = cur_c;\r
+    f = cur_f;\r
+    s = 0;\r
+\r
+    if (math_type(nucleus(q)) == math_char)\r
+    {\r
+      fetch(nucleus(q));\r
+\r
+      if (char_tag(cur_i) == lig_tag)\r
+      {\r
+        a = lig_kern_start(cur_f, cur_i);\r
+        cur_i = font_info[a].qqqq;\r
+\r
+        if (skip_byte(cur_i) > stop_flag)\r
+        {\r
+          a = lig_kern_restart(cur_f, cur_i);\r
+          cur_i = font_info[a].qqqq;\r
+        }\r
+\r
+        while (true)\r
+        {\r
+          if (next_char(cur_i) == skew_char[cur_f])\r
+          {\r
+            if (op_byte(cur_i) >= kern_flag)\r
+              if (skip_byte(cur_i) <= stop_flag)\r
+                s = char_kern(cur_f, cur_i);\r
+\r
+            goto done1;\r
+          }\r
+\r
+          if (skip_byte(cur_i) >= stop_flag)\r
+            goto done1;\r
+\r
+          a = a + skip_byte(cur_i) + 1;\r
+          cur_i = font_info[a].qqqq;\r
+        }\r
+      }\r
+    }\r
+\r
+done1:\r
+    x = clean_box(nucleus(q), cramped_style(cur_style));\r
+    w = width(x);\r
+    h = height(x);\r
+\r
+    while (true)\r
+    {\r
+      if (char_tag(i) != list_tag)\r
+        goto done;\r
+\r
+      y = rem_byte(i);\r
+      i = char_info(f, y);\r
+\r
+      if (!char_exists(i))\r
+        goto done;\r
+\r
+      if (char_width(f, i) > w)\r
+        goto done;\r
+\r
+      c = y;\r
+    }\r
+\r
+done:\r
+    if (h < x_height(f))\r
+      delta = h;\r
+    else\r
+      delta = x_height(f);\r
+\r
+    if ((math_type(supscr(q)) != 0) || (math_type(subscr(q)) != 0))\r
+      if (math_type(nucleus(q)) == math_char)\r
+      {\r
+        flush_node_list(x);\r
+        x = new_noad();\r
+        mem[nucleus(x)] = mem[nucleus(q)];\r
+        mem[supscr(x)] = mem[supscr(q)];\r
+        mem[subscr(x)] = mem[subscr(q)];\r
+        mem[supscr(q)].hh = empty_field;\r
+        mem[subscr(q)].hh = empty_field;\r
+        math_type(nucleus(q)) = sub_mlist;\r
+        info(nucleus(q)) = x;\r
+        x = clean_box(nucleus(q), cur_style);\r
+        delta = delta + height(x) - h;\r
+        h = height(x);\r
+      }\r
+\r
+    y = char_box(f, c);\r
+    shift_amount(y) = s + half(w - width(y));\r
+    width(y) = 0;\r
+    p = new_kern(-(integer) delta);\r
+    link(p) = x;\r
+    link(y) = p;\r
+    y = vpackage(y, 0, 1, max_dimen);\r
+    width(y) = width(x);\r
+\r
+    if (height(y) < h)\r
+    {\r
+      p = new_kern(h - height(y));\r
+      link(p) = list_ptr(y);\r
+      list_ptr(y) = p;\r
+      height(y) = h;\r
+    }\r
+\r
+    info(nucleus(q)) = y;\r
+    math_type(nucleus(q)) = sub_box;\r
+  }\r
+}\r
+/* sec 0743 */\r
+void make_fraction (pointer q)\r
+{\r
+  pointer p, v, x, y, z;\r
+  scaled delta, delta1, delta2, shift_up, shift_down, clr;\r
+  \r
+  if (thickness(q) == default_code)\r
+    thickness(q) = default_rule_thickness;\r
+\r
+  x = clean_box(numerator(q), num_style(cur_style));\r
+  z = clean_box(denominator(q), denom_style(cur_style));\r
+\r
+  if (width(x) < width(z))\r
+    x = rebox(x, width(z));\r
+  else\r
+    z = rebox(z, width(x));\r
+\r
+  if (cur_style < text_style)\r
+  {\r
+    shift_up = num1(cur_size);\r
+    shift_down = denom1(cur_size);\r
+  }\r
+  else\r
+  {\r
+    shift_down = denom2(cur_size);\r
+\r
+    if (thickness(q) != 0)\r
+      shift_up = num2(cur_size);\r
+    else\r
+      shift_up = num3(cur_size);\r
+  }\r
+\r
+  if (thickness(q) == 0)\r
+  {\r
+    if (cur_style < text_style)\r
+      clr = 7 * default_rule_thickness;\r
+    else\r
+      clr = 3 * default_rule_thickness;\r
+\r
+    delta = half(clr - ((shift_up - depth(x)) - (height(z) - shift_down)));\r
+\r
+    if (delta > 0)\r
+    {\r
+      shift_up = shift_up + delta;\r
+      shift_down = shift_down + delta;\r
+    }\r
+  }\r
+  else\r
+  {\r
+    if (cur_style < text_style)\r
+      clr = 3 * thickness(q);\r
+    else\r
+      clr = thickness(q);\r
+\r
+    delta = half(thickness(q));\r
+    delta1 = clr - ((shift_up - depth(x)) - (axis_height(cur_size) + delta));\r
+    delta2 = clr - ((axis_height(cur_size) - delta) - (height(z) - shift_down));\r
+\r
+    if (delta1 > 0)\r
+      shift_up = shift_up + delta1;\r
+\r
+    if (delta2 > 0)\r
+      shift_down = shift_down + delta2;\r
+  }\r
+\r
+  v = new_null_box();\r
+  type(v) = vlist_node;\r
+  height(v) = shift_up + height(x);\r
+  depth(v) = depth(z) + shift_down;\r
+  width(v) = width(x);\r
+\r
+  if (thickness(q) == 0)\r
+  {\r
+    p = new_kern((shift_up - depth(x)) - (height(z) - shift_down));\r
+    link(p) = z;\r
+  }\r
+  else\r
+  {\r
+    y = fraction_rule(thickness(q));\r
+    p = new_kern((axis_height(cur_size) - delta) - (height(z) - shift_down));\r
+    link(y) = p;\r
+    link(p) = z;\r
+    p = new_kern((shift_up - depth(x)) - (axis_height(cur_size) + delta));\r
+    link(p) = y;\r
+  }\r
+\r
+  link(x) = p;\r
+  list_ptr(v) = x;\r
+\r
+  if (cur_style < text_style)\r
+    delta = delim1(cur_size);\r
+  else\r
+    delta = delim2(cur_size);\r
+\r
+  x = var_delimiter(left_delimiter(q), cur_size, delta);\r
+  link(x) = v;\r
+  z = var_delimiter(right_delimiter(q), cur_size, delta);\r
+  link(v) = z;\r
+  new_hlist(q) = hpack(x, 0, 1);\r
+}\r
+/* sec 0752 */\r
+void make_ord (pointer q)\r
+{\r
+  integer a;\r
+  pointer p, r;\r
+\r
+restart:\r
+  if (math_type(subscr(q)) == 0)\r
+    if (math_type(supscr(q)) == 0)\r
+      if (math_type(nucleus(q)) == math_char)\r
+      {\r
+        p = link(q);\r
+\r
+        if (p != 0)\r
+          if ((type(p) >= ord_noad) && (type(p) <= punct_noad))\r
+            if (math_type(nucleus(p)) == math_char)\r
+              if (fam(nucleus(p)) == fam(nucleus(q)))\r
+              {\r
+                math_type(nucleus(q)) = math_text_char;\r
+                fetch(nucleus(q));\r
+\r
+                if (char_tag(cur_i) == lig_tag)\r
+                {\r
+                  a = lig_kern_start(cur_f, cur_i);\r
+                  cur_c = character(nucleus(p));\r
+                  cur_i = font_info[a].qqqq;\r
+\r
+                  if (skip_byte(cur_i) > stop_flag)\r
+                  {\r
+                    a = lig_kern_restart(cur_f, cur_i);\r
+                    cur_i = font_info[a].qqqq;\r
+                  }\r
+\r
+                  while (true)\r
+                  {\r
+                    if (next_char(cur_i) == cur_c)\r
+                      if (skip_byte(cur_i) <= stop_flag)\r
+                        if (op_byte(cur_i) >= kern_flag)\r
+                        {\r
+                          p = new_kern(char_kern(cur_f, cur_i));\r
+                          link(p) = link(q);\r
+                          link(q) = p;\r
+                          return;\r
+                        }\r
+                        else\r
+                        {\r
+                          check_interrupt();\r
+\r
+                          switch (op_byte(cur_i))\r
+                          {\r
+                            case 1:\r
+                            case 5:\r
+                              character(nucleus(q)) = rem_byte(cur_i);\r
+                              break;\r
+                            case 2:\r
+                            case 6:\r
+                              character(nucleus(p)) = rem_byte(cur_i);\r
+                              break;\r
+                            case 3:\r
+                            case 7:\r
+                            case 11:\r
+                              {\r
+                                r = new_noad();\r
+                                character(nucleus(r)) = rem_byte(cur_i);\r
+                                fam(nucleus(r)) = fam(nucleus(q));\r
+                                link(q) = r;\r
+                                link(r) = p;\r
+\r
+                                if (op_byte(cur_i) < 11)\r
+                                  math_type(nucleus(r)) = math_char;\r
+                                else\r
+                                  math_type(nucleus(r)) = math_text_char;\r
+                              }\r
+                              break;\r
+\r
+                            default:\r
+                              {\r
+                                link(q) = link(p);\r
+                                character(nucleus(q)) = rem_byte(cur_i);\r
+                                mem[subscr(q)] = mem[subscr(p)];\r
+                                mem[supscr(q)] = mem[supscr(p)];\r
+                                free_node(p, noad_size);\r
+                              }\r
+                              break;\r
+                          }\r
+\r
+                          if (op_byte(cur_i) > 3)\r
+                            return;\r
+\r
+                          math_type(nucleus(q)) = math_char;\r
+                          goto restart;\r
+                        }\r
+\r
+                    if (skip_byte(cur_i) >= stop_flag)\r
+                      return;\r
+\r
+                    a = a + skip_byte(cur_i) + 1;\r
+                    cur_i = font_info[a].qqqq;\r
+                  }\r
+                }\r
+              }\r
+      }\r
+}\r
+/* sec 0762 */\r
+small_number make_left_right (pointer q, small_number style, scaled max_d, scaled max_h)\r
+{\r
+  scaled delta, delta1, delta2;\r
+\r
+  if (style < script_style)\r
+    cur_size = text_size;\r
+  else\r
+    cur_size = 16 * ((style - text_style) / 2);\r
+\r
+  delta2 = max_d + axis_height(cur_size);\r
+  delta1 = max_h + max_d - delta2;\r
+\r
+  if (delta2 > delta1)\r
+    delta1 = delta2;\r
+\r
+  delta = (delta1 / 500) * delimiter_factor;\r
+  delta2 = delta1 + delta1 - delimiter_shortfall;\r
+\r
+  if (delta < delta2)\r
+    delta = delta2;\r
+\r
+  new_hlist(q) = var_delimiter(delimiter(q), cur_size, delta);\r
+\r
+  return type(q) - (left_noad - open_noad);\r
+}\r
+/* sec 0726 */\r
+void mlist_to_hlist (void)\r
+{\r
+  pointer mlist;\r
+  boolean penalties;\r
+  small_number style;\r
+  small_number save_style;\r
+  pointer q;\r
+  pointer r;\r
+  /* small_number r_type; */\r
+  int r_type;\r
+  /* small_number t; */\r
+  int t;\r
+  pointer p, x, y, z;\r
+  integer pen;\r
+  small_number s;\r
+  scaled max_h, max_d;\r
+  scaled delta;\r
+\r
+  mlist = cur_mlist;\r
+  penalties = mlist_penalties;\r
+  style = cur_style;\r
+  q = mlist;\r
+  r = 0;\r
+  r_type = op_noad;\r
+  max_h = 0;\r
+  max_d = 0;\r
+\r
+  {\r
+    if (cur_style < script_style)\r
+      cur_size = text_size;\r
+    else\r
+      cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+    cur_mu = x_over_n(math_quad(cur_size), 18);\r
+  }\r
+\r
+  while (q != 0)\r
+  {\r
+reswitch:\r
+    delta = 0;\r
+\r
+    switch (type(q))\r
+    {\r
+      case bin_noad:\r
+        switch (r_type)\r
+        {\r
+          case bin_noad:\r
+          case op_noad:\r
+          case rel_noad:\r
+          case open_noad:\r
+          case punct_noad:\r
+          case left_noad:\r
+            {\r
+              type(q) = ord_noad;\r
+              goto reswitch;\r
+            }\r
+            break;\r
+\r
+          default:\r
+            do_nothing();\r
+            break;\r
+        }\r
+        break;\r
+\r
+      case rel_noad:\r
+      case close_noad:\r
+      case punct_noad:\r
+      case right_noad:\r
+        {\r
+          if (r_type == bin_noad)\r
+            type(r) = ord_noad;\r
+\r
+          if (type(q) == right_noad)\r
+            goto done_with_noad;\r
+        }\r
+        break;\r
+\r
+      case left_noad:\r
+        goto done_with_noad;\r
+        break;\r
+\r
+      case fraction_noad:\r
+        {\r
+          make_fraction(q);\r
+          goto check_dimensions;\r
+        }\r
+        break;\r
+\r
+      case op_noad:\r
+        {\r
+          delta = make_op(q);\r
+\r
+          if (subtype(q) == limits)\r
+            goto check_dimensions;\r
+        }\r
+        break;\r
+\r
+      case ord_noad:\r
+        make_ord(q);\r
+        break;\r
+\r
+      case open_noad:\r
+      case inner_noad:\r
+        do_nothing();\r
+        break;\r
+\r
+      case radical_noad:\r
+        make_radical(q);\r
+        break;\r
+\r
+      case over_noad:\r
+        make_over(q);\r
+        break;\r
+\r
+      case under_noad:\r
+        make_under(q);\r
+        break;\r
+\r
+      case accent_noad:\r
+        make_math_accent(q);\r
+        break;\r
+\r
+      case vcenter_noad:\r
+        make_vcenter(q);\r
+        break;\r
+\r
+      case style_node:\r
+        {\r
+          cur_style = subtype(q);\r
+\r
+          {\r
+            if (cur_style < script_style)\r
+              cur_size = text_size;\r
+            else\r
+              cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+            cur_mu = x_over_n(math_quad(cur_size), 18);\r
+          }\r
+\r
+          goto done_with_node;\r
+        }\r
+        break;\r
+\r
+      case choice_node:\r
+        {\r
+          switch (cur_style / 2)\r
+          {\r
+            case 0:\r
+              choose_mlist(display_mlist);\r
+              break;\r
+\r
+            case 1:\r
+              choose_mlist(text_mlist);\r
+              break;\r
+\r
+            case 2:\r
+              choose_mlist(script_mlist);\r
+              break;\r
+\r
+            case 3:\r
+              choose_mlist(script_script_mlist);\r
+              break;\r
+          }\r
+\r
+          flush_node_list(display_mlist(q));\r
+          flush_node_list(text_mlist(q));\r
+          flush_node_list(script_mlist(q));\r
+          flush_node_list(script_script_mlist(q));\r
+          type(q) = style_node;\r
+          subtype(q) = cur_style;\r
+          width(q) = 0;\r
+          depth(q) = 0;\r
+\r
+          if (p != 0)\r
+          {\r
+            z = link(q);\r
+            link(q) = p;\r
+\r
+            while (link(p) != 0)\r
+              p = link(p);\r
+\r
+            link(p) = z;\r
+          }\r
+\r
+          goto done_with_node;\r
+        }\r
+        break;\r
+\r
+      case ins_node:\r
+      case mark_node:\r
+      case adjust_node:\r
+      case whatsit_node:\r
+      case penalty_node:\r
+      case disc_node:\r
+        goto done_with_node;\r
+        break;\r
+\r
+      case rule_node:\r
+        {\r
+          if (height(q) > max_h)\r
+            max_h = height(q);\r
+\r
+          if (depth(q) > max_d)\r
+            max_d = depth(q);\r
+\r
+          goto done_with_node;\r
+        }\r
+        break;\r
+\r
+      case glue_node:\r
+        {\r
+          if (subtype(q) == mu_glue)\r
+          {\r
+            x = glue_ptr(q);\r
+            y = math_glue(x, cur_mu);\r
+            delete_glue_ref(x);\r
+            glue_ptr(q) = y;\r
+            subtype(q) = normal;\r
+          }\r
+          else if ((cur_size != text_size) && (subtype(q) == cond_math_glue))\r
+          {\r
+            p = link(q);\r
+\r
+            if (p != 0)\r
+              if ((type(q) == glue_node) || (type(p) == kern_node))\r
+              {\r
+                link(q) = link(p);\r
+                link(p) = 0;\r
+                flush_node_list(p);\r
+              }\r
+          }\r
+\r
+          goto done_with_node;\r
+        }\r
+        break;\r
+\r
+      case kern_node:\r
+        {\r
+          math_kern(q, cur_mu);\r
+          goto done_with_node;\r
+        }\r
+        break;\r
+\r
+      default:\r
+        {\r
+          confusion("mlist1");\r
+          return;\r
+        }\r
+        break;\r
+    }\r
+\r
+    switch (math_type(nucleus(q)))\r
+    {\r
+      case math_char:\r
+      case math_text_char:\r
+        {\r
+          fetch(nucleus(q));\r
+\r
+          if (char_exists(cur_i))\r
+          {\r
+            delta = char_italic(cur_f, cur_i);\r
+            p = new_character(cur_f, cur_c);\r
+\r
+            if ((math_type(nucleus(q)) == math_text_char) && (space(cur_f) != 0))\r
+              delta = 0;\r
+\r
+            if ((math_type(subscr(q)) == 0) && (delta != 0))\r
+            {\r
+              link(p) = new_kern(delta);\r
+              delta = 0;\r
+            }\r
+          }\r
+          else\r
+            p = 0;\r
+        }\r
+        break;\r
+\r
+      case 0:\r
+        p = 0;\r
+        break;\r
+\r
+      case sub_box:\r
+        p = info(nucleus(q));\r
+        break;\r
+\r
+      case sub_mlist:\r
+        {\r
+          cur_mlist = info(nucleus(q));\r
+          save_style = cur_style;\r
+          mlist_penalties = false;\r
+          mlist_to_hlist();\r
+          cur_style = save_style;\r
+\r
+          {\r
+            if (cur_style < script_style)\r
+              cur_size = text_size;\r
+            else\r
+              cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+            cur_mu = x_over_n(math_quad(cur_size), 18);\r
+          }\r
+\r
+          p = hpack(link(temp_head), 0, 1);\r
+        }\r
+        break;\r
+\r
+      default:\r
+        {\r
+          confusion("mlist2");\r
+          return;\r
+        }\r
+        break;\r
+    }\r
+  \r
+    new_hlist(q) = p;\r
+\r
+    if ((math_type(subscr(q)) == 0) && (math_type(supscr(q)) == 0))\r
+      goto check_dimensions;\r
+\r
+    make_scripts(q, delta);\r
+\r
+check_dimensions:\r
+    z = hpack(new_hlist(q), 0, 1);\r
+\r
+    if (height(z) > max_h)\r
+      max_h = height(z);\r
+\r
+    if (depth(z) > max_d)\r
+      max_d = depth(z);\r
+\r
+    free_node(z, box_node_size);\r
+\r
+done_with_noad:\r
+    r = q;\r
+    r_type = type(r);\r
+\r
+done_with_node:\r
+    q = link(q);\r
+  }\r
+\r
+  if (r_type == bin_noad)\r
+    type(r) = ord_noad;\r
+\r
+  p = temp_head;\r
+  link(p) = 0;\r
+  q = mlist;\r
+  r_type = 0;\r
+  cur_style = style;\r
+\r
+  {\r
+    if (cur_style < script_style)\r
+      cur_size = text_size;\r
+    else\r
+      cur_size = 16 *((cur_style - text_style) / 2);\r
+\r
+    cur_mu = x_over_n(math_quad(cur_size), 18);\r
+  }\r
+\r
+  while (q != 0)\r
+  {\r
+    t = ord_noad;\r
+    s = noad_size;\r
+    pen = inf_penalty;\r
+\r
+    switch (type(q))\r
+    {\r
+      case op_noad:\r
+      case open_noad:\r
+      case close_noad:\r
+      case punct_noad:\r
+      case inner_noad:\r
+        t = type(q);\r
+        break;\r
+\r
+      case bin_noad:\r
+        {\r
+          t = bin_noad;\r
+          pen = bin_op_penalty;\r
+        }\r
+        break;\r
+\r
+      case rel_noad:\r
+        {\r
+          t = rel_noad;\r
+          pen = rel_penalty;\r
+        }\r
+        break;\r
+\r
+      case ord_noad:\r
+      case vcenter_noad:\r
+      case over_noad:\r
+      case under_noad:\r
+        do_nothing();\r
+        break;\r
+\r
+      case radical_noad:\r
+        s = radical_noad_size;\r
+        break;\r
+\r
+      case accent_noad:\r
+        s = accent_noad_size;\r
+        break;\r
+\r
+      case fraction_noad:\r
+        {\r
+          t = inner_noad;\r
+          s = fraction_noad_size;\r
+        }\r
+        break;\r
+\r
+      case left_noad:\r
+      case right_noad:\r
+        t = make_left_right(q, style, max_d, max_h);\r
+        break;\r
+\r
+      case style_node:\r
+        {\r
+          cur_style = subtype(q);\r
+          s = style_node_size;\r
+\r
+          {\r
+            if (cur_style < script_style)\r
+              cur_size = text_size;\r
+            else\r
+              cur_size = 16 *((cur_style - text_style) / 2);\r
+\r
+            cur_mu = x_over_n(math_quad(cur_size), 18);\r
+          }\r
+\r
+          goto delete_q;\r
+        }\r
+        break;\r
+\r
+      case whatsit_node:\r
+      case penalty_node:\r
+      case rule_node:\r
+      case disc_node:\r
+      case adjust_node:\r
+      case ins_node:\r
+      case mark_node:\r
+      case glue_node:\r
+      case kern_node:\r
+        {\r
+          link(p) = q;\r
+          p = q;\r
+          q = link(q);\r
+          link(p) = 0;\r
+          goto done;\r
+        }\r
+        break;\r
+\r
+      default:\r
+        {\r
+          confusion("mlist3");\r
+          return;\r
+        }\r
+        break;\r
+    }\r
+\r
+    if (r_type > 0)\r
+    {\r
+      switch (str_pool[r_type * 8 + t + magic_offset])\r
+      {\r
+        case '0':\r
+          x = 0;\r
+          break;\r
+\r
+        case '1':\r
+          if (cur_style < script_style)\r
+            x = thin_mu_skip_code;\r
+          else\r
+            x = 0;\r
+          break;\r
+\r
+        case '2':\r
+          x = thin_mu_skip_code;\r
+          break;\r
+\r
+        case '3':\r
+          if (cur_style < script_style)\r
+            x = med_mu_skip_code;\r
+          else\r
+            x = 0;\r
+          break;\r
+\r
+        case '4':\r
+          if (cur_style < script_style)\r
+            x = thick_mu_skip_code;\r
+          else\r
+            x = 0;\r
+          break;\r
+\r
+        default:\r
+          {\r
+            confusion("mlist4");\r
+            return;\r
+          }\r
+          break;\r
+      }\r
+\r
+      if (x != 0)\r
+      {\r
+        y = math_glue(glue_par(x), cur_mu);\r
+        z = new_glue(y);\r
+        glue_ref_count(y) = 0;\r
+        link(p) = z;\r
+        p = z;\r
+        subtype(z) = x + 1;\r
+      }\r
+    }\r
+\r
+    if (new_hlist(q) != 0)\r
+    {\r
+      link(p) = new_hlist(q);\r
+\r
+      do\r
+        {\r
+          p = link(p);\r
+        }\r
+      while (!(link(p) == 0));\r
+    }\r
+\r
+    if (penalties)\r
+      if (link(q) != 0)\r
+        if (pen < inf_penalty)\r
+        {\r
+          r_type = type(link(q));\r
+\r
+          if (r_type != penalty_node)\r
+            if (r_type != rel_noad)\r
+            {\r
+              z = new_penalty(pen);\r
+              link(p) = z;\r
+              p = z;\r
+            }\r
+        }\r
+\r
+    r_type = t;\r
+\r
+delete_q:\r
+    r = q;\r
+    q = link(q);\r
+    free_node(r, s);\r
+done:;\r
+  }\r
+}\r
+/* sec 0772 */\r
+void push_alignment (void)\r
+{\r
+  pointer p;\r
+\r
+  p = get_node(align_stack_node_size);\r
+  link(p) = align_ptr;\r
+  info(p) = cur_align;\r
+  llink(p) = preamble;\r
+  rlink(p) = cur_span;\r
+  mem[p + 2].cint = cur_loop;\r
+  mem[p + 3].cint = align_state;\r
+  info(p + 4) = cur_head;\r
+  link(p + 4) = cur_tail;\r
+  align_ptr = p;\r
+  cur_head = get_avail();\r
+}\r
+/* sec 0772 */\r
+void pop_alignment (void)\r
+{\r
+  pointer p;\r
+\r
+  free_avail(cur_head);\r
+  p = align_ptr;\r
+  cur_tail = link(p + 4);\r
+  cur_head = info(p + 4);\r
+  align_state = mem[p + 3].cint;\r
+  cur_loop = mem[p + 2].cint;\r
+  cur_span = rlink(p);\r
+  preamble = llink(p);\r
+  cur_align = info(p);\r
+  align_ptr = link(p);\r
+  free_node(p, align_stack_node_size);\r
+}\r
+/* sec 0782 */\r
+void get_preamble_token (void)\r
+{\r
+restart:\r
+  get_token();\r
+\r
+  while ((cur_chr == span_code) && (cur_cmd == tab_mark))\r
+  {\r
+    get_token();\r
+\r
+    if (cur_cmd > max_command)\r
+    {\r
+      expand();\r
+      get_token();\r
+    }\r
+  }\r
+\r
+  if (cur_cmd == endv)\r
+  {\r
+    fatal_error("(interwoven alignment preambles are not allowed)");\r
+    return;\r
+  }\r
+\r
+  if ((cur_cmd == assign_glue) && (cur_chr == glue_base + tab_skip_code))\r
+  {\r
+    scan_optional_equals();\r
+    scan_glue(glue_val);\r
+\r
+    if (global_defs > 0)\r
+      geq_define(glue_base + tab_skip_code, glue_ref, cur_val);\r
+    else\r
+      eq_define(glue_base + tab_skip_code, glue_ref, cur_val);\r
+\r
+    goto restart;\r
+  }\r
+}\r
+/* sec 0774 */\r
+void init_align (void)\r
+{\r
+  pointer save_cs_ptr;\r
+  pointer p;\r
+\r
+  save_cs_ptr = cur_cs;\r
+  push_alignment();\r
+  align_state = -1000000L;\r
+\r
+  if ((mode == mmode) && ((tail != head) || (incompleat_noad != 0)))\r
+  {\r
+    print_err("Improper ");\r
+    print_esc("halign");\r
+    prints(" inside $$'s");\r
+    help3("Displays can use special alignments (like \\eqalignno)",\r
+        "only if nothing but the alignment itself is between $$'s.",\r
+        "So I've deleted the formulas that preceded this alignment.");\r
+    error();\r
+    flush_math();\r
+  }\r
+\r
+  push_nest();\r
+\r
+  if (mode == mmode)\r
+  {\r
+    mode = -vmode;\r
+    prev_depth = nest[nest_ptr - 2].aux_field.cint;\r
+  }\r
+  else if (mode > 0)\r
+    mode = - (integer) mode;\r
+\r
+  scan_spec(align_group, false);\r
+  preamble = 0;\r
+  cur_align = align_head;\r
+  cur_loop = 0;\r
+  scanner_status = aligning;\r
+  warning_index = save_cs_ptr;\r
+  align_state = -1000000L;\r
+\r
+  while (true)\r
+  {\r
+    link(cur_align) = new_param_glue(tab_skip_code);\r
+    cur_align = link(cur_align);\r
+\r
+    if (cur_cmd == car_ret)\r
+      goto done;\r
+\r
+    p = hold_head;\r
+    link(p) = 0;\r
+\r
+    while (true)\r
+    {\r
+      get_preamble_token();\r
+\r
+      if (cur_cmd == mac_param)\r
+        goto done1;\r
+\r
+      if ((cur_cmd <= car_ret) && (cur_cmd >= tab_mark) && (align_state == -1000000L))\r
+        if ((p == hold_head) && (cur_loop == 0) && (cur_cmd == tab_mark))\r
+          cur_loop = cur_align;\r
+        else\r
+        {\r
+          print_err("Missing # inserted in alignment preamble");\r
+          help3("There should be exactly one # between &'s, when an",\r
+              "\\halign or \\valign is being set up. In this case you had",\r
+              "none, so I've put one in; maybe that will work.");\r
+          back_error();\r
+          goto done1;\r
+        }\r
+      else if ((cur_cmd != spacer) || (p != hold_head))\r
+      {\r
+        link(p) = get_avail();\r
+        p = link(p);\r
+        info(p) = cur_tok;\r
+      }\r
+    }\r
+\r
+done1:\r
+    link(cur_align) = new_null_box();\r
+    cur_align = link(cur_align);\r
+    info(cur_align) = end_span;\r
+    width(cur_align) = null_flag;\r
+    u_part(cur_align) = link(hold_head);\r
+    p = hold_head;\r
+    link(p) = 0;\r
+\r
+    while (true)\r
+    {\r
+continu:\r
+      get_preamble_token();\r
+\r
+      if ((cur_cmd <= car_ret) && (cur_cmd >= tab_mark) && (align_state == -1000000L))\r
+        goto done2;\r
+\r
+      if (cur_cmd == mac_param)\r
+      {\r
+        print_err("Only one # is allowed per tab");\r
+        help3("There should be exactly one # between &'s, when an",\r
+            "\\halign or \\valign is being set up. In this case you had",\r
+            "more than one, so I'm ignoring all but the first.");\r
+        error();\r
+        goto continu;\r
+      }\r
+\r
+      link(p) = get_avail();\r
+      p = link(p);\r
+      info(p) = cur_tok;\r
+    }\r
+\r
+done2:\r
+    link(p) = get_avail();\r
+    p = link(p);\r
+    info(p) = end_template_token;\r
+    v_part(cur_align) = link(hold_head);\r
+  }\r
+\r
+done:\r
+  scanner_status = 0;\r
+  new_save_level(align_group);\r
+\r
+  if (every_cr != 0)\r
+    begin_token_list(every_cr, every_cr_text);\r
+\r
+  align_peek();\r
+}\r
+/* sec 0787 */\r
+void init_span (pointer p)\r
+{\r
+  push_nest();\r
+\r
+  if (mode == -hmode)\r
+    space_factor = 1000;\r
+  else\r
+  {\r
+    prev_depth = ignore_depth;\r
+    normal_paragraph();\r
+  }\r
+\r
+  cur_span = p;\r
+}\r
+/* sec 0786 */\r
+void init_row (void)\r
+{\r
+  push_nest();\r
+\r
+  mode = (-hmode - vmode) - mode;\r
+\r
+  if (mode == -hmode)\r
+    space_factor = 0;\r
+  else\r
+    prev_depth = 0;\r
+\r
+  tail_append(new_glue(glue_ptr(preamble)));\r
+  subtype(tail) = tab_skip_code + 1;\r
+  cur_align = link(preamble);\r
+  cur_tail = cur_head;\r
+  init_span(cur_align);\r
+}\r
+/* sec 0788 */\r
+void init_col (void)\r
+{\r
+  extra_info(cur_align) = cur_cmd;\r
+\r
+  if (cur_cmd == omit)\r
+    align_state = 0;\r
+  else\r
+  {\r
+    back_input();\r
+    begin_token_list(u_part(cur_align), u_template);\r
+  }\r
+}\r
+/* sec 0799 */\r
+void fin_row (void)\r
+{\r
+  pointer p;\r
+\r
+  if (mode == -hmode)\r
+  {\r
+    p = hpack(link(head), 0, 1);\r
+    pop_nest();\r
+    append_to_vlist(p);\r
+\r
+    if (cur_head != cur_tail)\r
+    {\r
+      link(tail) = link(cur_head);\r
+      tail = cur_tail;\r
+    }\r
+  }\r
+  else\r
+  {\r
+    p = vpackage(link(head), 0, 1, max_dimen);\r
+    pop_nest();\r
+    link(tail) = p;\r
+    tail = p;\r
+    space_factor = 1000;\r
+  }\r
+\r
+  type(p) = unset_node;\r
+  glue_stretch(p) = 0;\r
+\r
+  if (every_cr != 0)\r
+    begin_token_list(every_cr, every_cr_text);\r
+\r
+  align_peek();\r
+}\r
+/* sec 0800 */\r
+void fin_align (void)\r
+{\r
+  pointer p, q, r, s, u, v;\r
+  scaled t, w;\r
+  scaled o;\r
+  halfword n;\r
+  scaled rule_save;\r
+  memory_word aux_save;\r
+\r
+  if (cur_group != align_group)\r
+  {\r
+    confusion("align1");\r
+    return;\r
+  }\r
+\r
+  unsave();\r
+\r
+  if (cur_group != align_group)\r
+  {\r
+    confusion("align0");\r
+    return;\r
+  }\r
+\r
+  unsave();\r
+\r
+  if (nest[nest_ptr - 1].mode_field == mmode)\r
+    o = display_indent;\r
+  else\r
+    o = 0;\r
+\r
+  q = link(preamble);\r
+\r
+  do\r
+    {\r
+      flush_list(u_part(q));\r
+      flush_list(v_part(q));\r
+      p = link(link(q));\r
+\r
+      if (width(q) == null_flag)\r
+      {\r
+        width(q) = 0;\r
+        r = link(q);\r
+        s = glue_ptr(r);\r
+\r
+        if (s != zero_glue)\r
+        {\r
+          add_glue_ref(zero_glue);\r
+          delete_glue_ref(s);\r
+          glue_ptr(c) = zero_glue;\r
+        }\r
+      }\r
+\r
+      if (info(q) != end_span)\r
+      {\r
+        t = width(q) + width(glue_ptr(link(q)));\r
+        r = info(q);\r
+        s = end_span;\r
+        info(s) = p;\r
+        n = min_quarterword + 1;\r
+\r
+        do\r
+          {\r
+            width(r) = width(r) - t;\r
+            u = info(r);\r
+\r
+            while (link(r) > n)\r
+            {\r
+              s = info(s);\r
+              n = link(info(s)) + 1;\r
+            }\r
+\r
+            if (link(r) < n)\r
+            {\r
+              info(r) = info(s);\r
+              info(s) = r;\r
+              decr(link(r));\r
+              s = r;\r
+            }\r
+            else\r
+            {\r
+              if (width(r) > width(info(s)))\r
+                width(info(s)) = width(r);\r
+\r
+              free_node(r, span_node_size);\r
+            }\r
+\r
+            r = u;\r
+          }\r
+        while (!(r == end_span));\r
+      }\r
+\r
+      type(q) = unset_node;\r
+      span_count(q) = min_quarterword;\r
+      height(q) = 0;\r
+      depth(q) = 0;\r
+      glue_order(q) = normal;\r
+      glue_sign(q) = normal;\r
+      glue_stretch(q) = 0;\r
+      glue_shrink(q) = 0;\r
+      q = p;\r
+    }\r
+  while (!(q == 0));\r
+\r
+  save_ptr = save_ptr - 2;\r
+  pack_begin_line = - (integer) mode_line;\r
+\r
+  if (mode == -vmode)\r
+  {\r
+    rule_save = overfull_rule;\r
+    overfull_rule = 0;\r
+    p = hpack(preamble, saved(1), saved(0));\r
+    overfull_rule = rule_save;\r
+  }\r
+  else\r
+  {\r
+    q = link(preamble);\r
+\r
+    do\r
+      {\r
+        height(q) = width(q);\r
+        width(q) = 0;\r
+        q = link(link(q));\r
+      }\r
+    while (!(q == 0));\r
+\r
+    p = vpackage(preamble, saved(1), saved(0), max_dimen);\r
+    q = link(preamble);\r
+\r
+    do\r
+      {\r
+        width(q) = height(q);\r
+        height(q) = 0;\r
+        q = link(link(q));\r
+      }\r
+    while (!(q == 0));\r
+  }\r
+\r
+  pack_begin_line = 0;\r
+  q = link(head);\r
+  s = head;\r
+\r
+  while (q != 0)\r
+  {\r
+    if (!is_char_node(q))\r
+      if (type(q) == unset_node)\r
+      {\r
+        if (mode == -vmode)\r
+        {\r
+          type(q) = hlist_node;\r
+          width(q) = width(p);\r
+        }\r
+        else\r
+        {\r
+          type(q) = vlist_node;\r
+          height(q) = height(p);\r
+        }\r
+\r
+        glue_order(q) = glue_order(p);\r
+        glue_sign(q) = glue_sign(p);\r
+        glue_set(q) = glue_set(p);\r
+        shift_amount(q) = o;\r
+        r = link(list_ptr(q));\r
+        s = link(list_ptr(p));\r
+\r
+        do\r
+          {\r
+            n = span_count(r);\r
+            t = width(s);\r
+            w = t;\r
+            u = hold_head;\r
+\r
+            while (n > min_quarterword)\r
+            {\r
+              decr(n);\r
+              s = link(s);\r
+              v = glue_ptr(s);\r
+              link(u) = new_glue(v);\r
+              u = link(u);\r
+              subtype(u) = tab_skip_code + 1;\r
+              t = t + width(v);\r
+\r
+              if (glue_sign(p) == stretching)\r
+              {\r
+                if (stretch_order(v) == glue_order(p))\r
+                  t = t + round(glue_set(p) * stretch(v));\r
+              }\r
+              else if (glue_sign(p) == shrinking)\r
+              {\r
+                if (shrink_order(v) == glue_order(p))\r
+                  t = t - round(glue_set(p) * shrink(v));\r
+              }\r
+\r
+              s = link(s);\r
+              link(u) = new_null_box();\r
+              u = link(u);\r
+              t = t + width(s);\r
+\r
+              if (mode == -vmode)\r
+                width(u) = width(s);\r
+              else\r
+              {\r
+                type(u) = vlist_node;\r
+                height(u) = width(s);\r
+              }\r
+            }\r
+            \r
+\r
+            if (mode == -vmode)\r
+            {\r
+              height(r) = height(q);\r
+              depth(r) = depth(q);\r
+\r
+              if (t == width(r))\r
+              {\r
+                glue_sign(r) = normal;\r
+                glue_order(r) = normal;\r
+                glue_set(r) = 0.0;\r
+              }\r
+              else if (t > width(r))\r
+              {\r
+                glue_sign(r) = stretching;\r
+\r
+                if (glue_stretch(r) == 0)\r
+                  glue_set(r) = 0.0;\r
+                else\r
+                  glue_set(r) = (t - width(r)) / ((double) glue_stretch(r));\r
+              }\r
+              else\r
+              {\r
+                glue_order(r) = glue_sign(r);\r
+                glue_sign(r) = shrinking;\r
+\r
+                if (glue_shrink(r) == 0)\r
+                  glue_set(r) = 0.0;\r
+                else if ((glue_order(r) == normal) && (width(r) - t > glue_shrink(r)))\r
+                  glue_set(r) = 1.0;\r
+                else\r
+                  glue_set(r) = (width(r) - t)/ ((double) glue_shrink(r));\r
+              }\r
+\r
+              width(r) = w;\r
+              type(r) = hlist_node;\r
+            }\r
+            else\r
+            {\r
+              width(r) = width(q);\r
+\r
+              if (t == height(r))\r
+              {\r
+                glue_sign(r) = normal;\r
+                glue_order(r) = normal;\r
+                glue_set(r) = 0.0;\r
+              }\r
+              else if (t > height(r))\r
+              {\r
+                glue_sign(r) = stretching;\r
+\r
+                if (glue_stretch(r) == 0)\r
+                  glue_set(r) = 0.0;\r
+                else\r
+                  glue_set(r) = (t - height(r)) / ((double) glue_stretch(r));\r
+              }\r
+              else\r
+              {\r
+                glue_order(r) = glue_sign(r);\r
+                glue_sign(r) = shrinking;\r
+\r
+                if (glue_shrink(r) == 0)\r
+                  glue_set(r) = 0.0;\r
+                else if ((glue_order(r) == normal) && (height(r) - t > glue_shrink(r)))\r
+                  glue_set(r) = 1.0;\r
+                else\r
+                  glue_set(r) = (height(r) - t) / ((double) glue_shrink(r));\r
+              }\r
+\r
+              height(r) = w;\r
+              type(r) = vlist_node;\r
+            }\r
+\r
+            shift_amount(r) = 0;\r
+\r
+            if (u != hold_head)\r
+            {\r
+              link(u) = link(r);\r
+              link(r) = link(hold_head);\r
+              r = u;\r
+            }\r
+\r
+            r = link(link(r));\r
+            s = link(link(s));\r
+          }\r
+        while (!(r == 0));\r
+      }\r
+      else if (type(q) == rule_node)\r
+      {\r
+        if (is_running(width(q)))\r
+          width(q) = width(p);\r
+\r
+        if (is_running(height(q)))\r
+          height(q) = height(p);\r
+\r
+        if (is_running(depth(q)))\r
+          depth(q) = depth(p);\r
+\r
+        if (o != 0)\r
+        {\r
+          r = link(q);\r
+          link(q) = 0;\r
+          q = hpack(q, 0, 1);\r
+          shift_amount(q) = o;\r
+          link(q) = r;\r
+          link(s) = q;\r
+        }\r
+      }\r
+    s = q;\r
+    q = link(q);\r
+  }\r
+\r
+  flush_node_list(p);\r
+  pop_alignment();\r
+  aux_save = cur_list.aux_field;\r
+  p = link(head);\r
+  q = tail;\r
+  pop_nest();\r
+\r
+  if (mode == mmode)\r
+  {\r
+    do_assignments();\r
+\r
+    if (cur_cmd != math_shift)\r
+    {\r
+      print_err("Missing $$ inserted");\r
+      help2("Displays can use special alignments (like \\eqalignno)",\r
+          "only if nothing but the alignment itself is between $$'s.");\r
+      back_error();\r
+    }\r
+    else\r
+    {\r
+      get_x_token();\r
+\r
+      if (cur_cmd != math_shift)\r
+      {\r
+        print_err("Display math should end with $$");\r
+        help2("The `$' that I just saw supposedly matches a previous `$$'.",\r
+            "So I shall assume that you typed `$$' both times.");\r
+        back_error();\r
+      }\r
+    }\r
+\r
+    pop_nest();\r
+    tail_append(new_penalty(pre_display_penalty));\r
+    tail_append(new_param_glue(above_display_skip_code));\r
+    link(tail) = p;\r
+\r
+    if (p != 0)\r
+      tail = q;\r
+\r
+    tail_append(new_penalty(post_display_penalty));\r
+    tail_append(new_param_glue(below_display_skip_code));\r
+    prev_depth = aux_save.cint;\r
+    resume_after_display();\r
+  }\r
+  else\r
+  {\r
+    cur_list.aux_field = aux_save;\r
+    link(tail) = p;\r
+\r
+    if (p != 0)\r
+      tail = q;\r
+\r
+    if (mode == vmode)\r
+      build_page();\r
+  }\r
+}\r
+/* sec 0791 */\r
+boolean fin_col (void)\r
+{\r
+  pointer p;\r
+  pointer q, r;\r
+  pointer s;\r
+  pointer u;\r
+  scaled w;\r
+  glue_ord o;\r
+  halfword n;\r
+\r
+  if (cur_align == 0)\r
+  {\r
+    confusion("endv");\r
+    return 0;\r
+  }\r
+\r
+  q = link(cur_align);\r
+\r
+  if (q == 0)\r
+  {\r
+    confusion("endv");\r
+    return 0;\r
+  }\r
+\r
+  if (align_state < 500000L)\r
+  {\r
+    fatal_error("(interwoven alignment preambles are not allowed)");\r
+    return 0;\r
+  }\r
+\r
+  p = link(q);\r
+\r
+  if ((p == 0) && (extra_info(cur_align) < cr_code))\r
+    if (cur_loop != 0)\r
+    {\r
+      link(q) = new_null_box();\r
+      p = link(q);\r
+      info(p) = end_span;\r
+      width(p) = null_flag;\r
+      cur_loop = link(cur_loop);\r
+      q = hold_head;\r
+      r = u_part(cur_loop);\r
+\r
+      while (r != 0)\r
+      {\r
+        link(q) = get_avail();\r
+        q = link(q);\r
+        info(q) = info(r);\r
+        r = link(r);\r
+      }\r
+\r
+      link(q) = 0;\r
+      u_part(p) = link(hold_head);\r
+      q = hold_head;\r
+      r = v_part(cur_loop);\r
+\r
+      while (r != 0)\r
+      {\r
+        link(q) = get_avail();\r
+        q = link(q);\r
+        info(q) = info(r);\r
+        r = link(r);\r
+      }\r
+\r
+      link(q) = 0;\r
+      v_part(p) = link(hold_head);\r
+      cur_loop = link(cur_loop);\r
+      link(p) = new_glue(glue_ptr(cur_loop));\r
+    }\r
+    else\r
+    {\r
+      print_err("Extra alignment tab has been changed to ");\r
+      print_esc("cr");\r
+      help3("You have given more \\span or & marks than there were",\r
+          "in the preamble to the \\halign or \\valign now in progress.",\r
+          "So I'll assume that you meant to type \\cr instead.");\r
+      extra_info(cur_align) = cr_code;\r
+      error();\r
+    }\r
+\r
+  if (extra_info(cur_align) != span_code)\r
+  {\r
+    unsave();\r
+    new_save_level(align_group);\r
+\r
+    {\r
+      if (mode == -hmode)\r
+      {\r
+        adjust_tail = cur_tail;\r
+        u = hpack(link(head), 0, 1);\r
+        w = width(u);\r
+        cur_tail = adjust_tail;\r
+        adjust_tail = 0;\r
+      }\r
+      else\r
+      {\r
+        u = vpackage(link(head), 0, 1, 0);\r
+        w = height(u);\r
+      }\r
+\r
+      n = min_quarterword;\r
+\r
+      if (cur_span != cur_align)\r
+      {\r
+        q = cur_span;\r
+\r
+        do\r
+          {\r
+            incr(n);\r
+            q = link(link(q));\r
+          }\r
+        while (!(q == cur_align));\r
+\r
+        if (n > max_quarterword)\r
+        {\r
+          confusion("256 spans");\r
+          return 0;\r
+        }\r
+\r
+        q = cur_span;\r
+\r
+        while (link(info(q)) < n)\r
+          q = info(q);\r
+\r
+        if (link(info(q)) > n)\r
+        {\r
+          s = get_node(span_node_size);\r
+          info(s) = info(q);\r
+          link(s) = n;\r
+          info(q) = s;\r
+          width(s) = w;\r
+        }\r
+        else if (width(info(q)) < w)\r
+          width(info(q)) = w;\r
+      }\r
+      else if (w > width(cur_align))\r
+        width(cur_align) = w;\r
+\r
+      type(u) = unset_node;\r
+      span_count(u) = n;\r
+\r
+      if (total_stretch[filll] != 0)\r
+        o = filll;\r
+      else if (total_stretch[fill] != 0)\r
+        o = fill;\r
+      else if (total_stretch[fil] != 0)\r
+        o = fil;\r
+      else\r
+        o = normal;\r
+\r
+      glue_order(u) = o;\r
+      glue_stretch(u) = total_stretch[o];\r
+\r
+      if (total_shrink[filll] != 0)\r
+        o = filll;\r
+      else if (total_shrink[fill] != 0)\r
+        o = fill;\r
+      else if (total_shrink[fil] != 0)\r
+        o = fil;\r
+      else\r
+        o = normal;\r
+\r
+      glue_sign(u) = o;\r
+      glue_shrink(u) = total_shrink[o];\r
+      pop_nest();\r
+      link(tail) = u;\r
+      tail = u;\r
+    }\r
+\r
+    tail_append(new_glue(glue_ptr(link(cur_align))));\r
+    subtype(tail) = tab_skip_code + 1;\r
+\r
+    if (extra_info(cur_align) >= cr_code)\r
+    {\r
+      return true;\r
+    }\r
+\r
+    init_span(p);\r
+  }\r
+\r
+  align_state = 1000000L;\r
+\r
+  do\r
+    {\r
+      get_x_token();\r
+    }\r
+  while (!(cur_cmd != spacer));\r
+\r
+  cur_align = p;\r
+  init_col();\r
+\r
+  return false;\r
+}\r
+/* sec 0749 */\r
+scaled make_op (pointer q)\r
+{\r
+  scaled delta;\r
+  pointer p, v, x, y, z;\r
+  quarterword c;\r
+  four_quarters i;\r
+  scaled shift_up, shift_down;\r
+\r
+  if ((subtype(q) == normal) && (cur_style < text_style))\r
+    subtype(q) = limits;\r
+\r
+  if (math_type(nucleus(q)) == math_char)\r
+  {\r
+    fetch(nucleus(q));\r
+\r
+    if ((cur_style < text_style) && (char_tag(cur_i) == list_tag))\r
+    {\r
+      c = rem_byte(cur_i);\r
+      i = char_info(cur_f, c);\r
+\r
+      if (char_exists(i))\r
+      {\r
+        cur_c = c;\r
+        cur_i = i;\r
+        character(nucleus(q)) = c;\r
+      }\r
+    }\r
+\r
+    delta = char_italic(cur_f, cur_i);\r
+    x = clean_box(nucleus(q), cur_style);\r
+\r
+    if ((math_type(subscr(q)) != 0) && (subtype(q) != limits))\r
+      width(x) = width(x) - delta;\r
+\r
+    shift_amount(x) = half(height(x) - depth(x)) - axis_height(cur_size);\r
+    math_type(nucleus(q)) = sub_box;\r
+    info(nucleus(q)) = x;\r
+  }\r
+  else\r
+    delta = 0;\r
+\r
+  if (subtype(q) == limits)\r
+  {\r
+    x = clean_box(supscr(q), sup_style(cur_style));\r
+    y = clean_box(nucleus(q), cur_style);\r
+    z = clean_box(subscr(q), sub_style(cur_style));\r
+    v = new_null_box();\r
+    type(v) = vlist_node;\r
+    width(v) = width(y);\r
+\r
+    if (width(x) > width(v))\r
+      width(v) = width(x);\r
+\r
+    if (width(z) > width(v))\r
+      width(v) = width(z);\r
+\r
+    x = rebox(x, width(v));\r
+    y = rebox(y, width(v));\r
+    z = rebox(z, width(v));\r
+    shift_amount(x) = half(delta);\r
+    shift_amount(z) = - (integer) shift_amount(x);\r
+    height(v) = height(y);\r
+    depth(v) = depth(y);\r
+\r
+    if (math_type(supscr(q)) == 0)\r
+    {\r
+      free_node(x, box_node_size);\r
+      list_ptr(v) = y;\r
+    }\r
+    else\r
+    {\r
+      shift_up = big_op_spacing3 - depth(x);\r
+\r
+      if (shift_up < big_op_spacing1)\r
+        shift_up = big_op_spacing1;\r
+\r
+      p = new_kern(shift_up);\r
+      link(p) = y;\r
+      link(x) = p;\r
+      p = new_kern(big_op_spacing5);\r
+      link(p) = x;\r
+      list_ptr(v) = p;\r
+      height(v) = height(v) + big_op_spacing5 + height(x) + depth(x) + shift_up;\r
+    }\r
+\r
+    if (math_type(subscr(q)) == 0)\r
+      free_node(z, box_node_size);\r
+    else\r
+    {\r
+      shift_down = big_op_spacing4 - height(z);\r
+\r
+      if (shift_down < big_op_spacing2)\r
+        shift_down = big_op_spacing2;\r
+\r
+      p = new_kern(shift_down);\r
+      link(y) = p;\r
+      link(p) = z;\r
+      p = new_kern(big_op_spacing5);\r
+      link(z) = p;\r
+      depth(v) = depth(v) + big_op_spacing5 + height(z) + depth(z) + shift_down;\r
+    }\r
+\r
+    new_hlist(q) = v;\r
+  }\r
+\r
+  return delta;\r
+}\r
+/* sec 0756 */\r
+void make_scripts (pointer q, scaled delta)\r
+{\r
+  pointer p, x, y, z;\r
+  scaled shift_up, shift_down, clr;\r
+  small_number t;\r
+\r
+  p = new_hlist(q);\r
+\r
+  if (is_char_node(p))\r
+  {\r
+    shift_up = 0;\r
+    shift_down = 0;\r
+  }\r
+  else\r
+  {\r
+    z = hpack(p, 0, 1);\r
+\r
+    if (cur_style < script_style)\r
+      t = script_size;\r
+    else\r
+      t = script_script_size;\r
+\r
+    shift_up = height(z) - sup_drop(t);\r
+    shift_down = depth(z) + sub_drop(t);\r
+    free_node(z, box_node_size);\r
+  }\r
+\r
+  if (math_type(supscr(q)) == 0)\r
+  {\r
+    x = clean_box(subscr(q), sub_style(cur_style));\r
+    width(x) = width(x) + script_space;\r
+\r
+    if (shift_down < sub1(cur_size))\r
+      shift_down = sub1(cur_size);\r
+\r
+    clr = height(x) -(abs(math_x_height(cur_size) * 4) / 5);\r
+\r
+    if (shift_down < clr)\r
+      shift_down = clr;\r
+\r
+    shift_amount(x) = shift_down;\r
+  }\r
+  else\r
+  {\r
+    {\r
+      x = clean_box(supscr(q), sup_style(cur_style));\r
+      width(x) = width(x) + script_space;\r
+\r
+      if (odd(cur_style))\r
+        clr = sup3(cur_size);\r
+      else if (cur_style < text_style)\r
+        clr = sup1(cur_size);\r
+      else\r
+        clr = sup2(cur_size);\r
+\r
+      if (shift_up < clr)\r
+        shift_up = clr;\r
+\r
+      clr = depth(x) +(abs(math_x_height(cur_size)) / 4);\r
+\r
+      if (shift_up < clr)\r
+        shift_up = clr;\r
+    }\r
+\r
+    if (math_type(subscr(q)) == 0)\r
+      shift_amount(x) = - (integer) shift_up;\r
+    else\r
+    {\r
+      y = clean_box(subscr(q), sub_style(cur_style));\r
+      width(y) = width(y) + script_space;\r
+\r
+      if (shift_down < sub2(cur_size))\r
+        shift_down = sub2(cur_size);\r
+\r
+      clr = 4 * default_rule_thickness - ((shift_up - depth(x)) - (height(y) - shift_down));\r
+\r
+      if (clr > 0)\r
+      {\r
+        shift_down = shift_down + clr;\r
+\r
+        clr = (abs(math_x_height(cur_size) * 4) / 5) - (shift_up - depth(x));\r
+\r
+        if (clr > 0)\r
+        {\r
+          shift_up = shift_up + clr;\r
+          shift_down = shift_down - clr;\r
+        }\r
+      }\r
+\r
+      shift_amount(x) = delta;\r
+      p = new_kern((shift_up - depth(x)) - (height(y) - shift_down));\r
+      link(x) = p;\r
+      link(p) = y;\r
+      x = vpackage(x, 0, 1, max_dimen);\r
+      shift_amount(x) = shift_down;\r
+    }\r
+  }\r
+\r
+  if (new_hlist(q) == 0)\r
+    new_hlist(q) = x;\r
+  else\r
+  {\r
+    p = new_hlist(q);\r
+\r
+    while (link(p) != 0)\r
+      p = link(p);\r
+\r
+    link(p) = x;\r
+  }\r
+}
\ No newline at end of file