home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / texsrc.arc / TEX5.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  64KB  |  2,090 lines
  1. overlay "tex5"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. zappendtovlis ( b ) 
  6. halfword b ; 
  7. {r_appendtovlis 
  8.   scaled d ; 
  9.   halfword p ; 
  10.   if ( curlist .auxfield > - 65536000 ) 
  11.   {
  12.     d = mem [(long) eqtb [ 3527 ] .hh .v.RH + 1 ] .cint - curlist .auxfield - mem [(long) 
  13.     b + 3 ] .cint ; 
  14.     if ( d < eqtb [ 5703 ] .cint ) 
  15.     p = newparamglue ( 0 ) ; 
  16.     else { 
  17.       p = newskipparam ( 1 ) ; 
  18.       mem [(long) tempptr + 1 ] .cint = d ; 
  19.     } 
  20.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  21.     curlist .tailfield = p ; 
  22.   } 
  23.   mem [(long) curlist .tailfield ] .hh .v.RH = b ; 
  24.   curlist .tailfield = b ; 
  25.   curlist .auxfield = mem [(long) b + 2 ] .cint ; 
  26. } 
  27. halfword newnoad () { register halfword Result; r_newnoad 
  28.   long p ; 
  29.   p = getnode ( 4 ) ; 
  30.   mem [  p ] .hh.b0 = 16 ; 
  31.   mem [  p ] .hh.b1 = 0 ; 
  32.   mem [  p + 1 ] .hh = emptyfield ; 
  33.   mem [  p + 3 ] .hh = emptyfield ; 
  34.   mem [  p + 2 ] .hh = emptyfield ; 
  35.   Result = p ; 
  36.   return(Result) ; 
  37. } 
  38. halfword znewstyle ( s ) 
  39. smallnumber s ; 
  40. {register halfword Result; r_newstyle 
  41.  long p ; 
  42.   p = getnode ( 3 ) ; 
  43.   mem [  p ] .hh.b0 = 14 ; 
  44.   mem [  p ] .hh.b1 = s ; 
  45.   mem [  p + 1 ] .cint = 0 ; 
  46.   mem [  p + 2 ] .cint = 0 ; 
  47.   Result = p ; 
  48.   return(Result) ; 
  49. } 
  50. halfword newchoice () { register halfword Result; r_newchoice 
  51.   long p ; 
  52.   p = getnode ( 3 ) ; 
  53.   mem [  p ] .hh.b0 = 15 ; 
  54.   mem [  p ] .hh.b1 = 0 ; 
  55.   mem [  p + 1 ] .hh .v.LH = 0 ; 
  56.   mem [  p + 1 ] .hh .v.RH = 0 ; 
  57.   mem [  p + 2 ] .hh .v.LH = 0 ; 
  58.   mem [  p + 2 ] .hh .v.RH = 0 ; 
  59.   Result = p ; 
  60.   return(Result) ; 
  61. } 
  62. showinfo () { r_showinfo 
  63.   shownodelist ( mem [(long) tempptr ] .hh .v.LH ) ; 
  64. } 
  65. halfword zfractionrule ( t ) 
  66. scaled t ; 
  67. {register halfword Result; r_fractionrule 
  68.   halfword p ; 
  69.   p = newrule () ; 
  70.   mem [(long) p + 3 ] .cint = t ; 
  71.   mem [(long) p + 2 ] .cint = 0 ; 
  72.   Result = p ; 
  73.   return(Result) ; 
  74. } 
  75. halfword zoverbar ( b , k , t ) 
  76. halfword b ; 
  77. scaled k , t ; 
  78. {register halfword Result; r_overbar 
  79.   halfword p, q ; 
  80.   p = newkern ( k ) ; 
  81.   mem [(long) p ] .hh .v.RH = b ; 
  82.   q = fractionrule ( t ) ; 
  83.   mem [(long) q ] .hh .v.RH = p ; 
  84.   p = newkern ( t ) ; 
  85.   mem [(long) p ] .hh .v.RH = q ; 
  86.   Result = vpackage ( p , 0 , 1 , 1073741823 ) ; 
  87.   return(Result) ; 
  88. } 
  89. halfword zcharbox ( f , c ) 
  90. internalfont f ; 
  91. quarterword c ; 
  92. {register halfword Result; r_charbox 
  93.   fourquarters q ; 
  94.   eightbits hd ; 
  95.   halfword b, p ; 
  96.   q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  97.   hd = q .b1 ; 
  98.   b = newnullbox () ; 
  99.   mem [(long) b + 1 ] .cint = fontinfo [ widthbase [ f ] + q .b0 ] .cint + fontinfo 
  100.   [ italicbase [ f ] + ( q .b2 ) / 4 ] .cint ; 
  101.   mem [(long) b + 3 ] .cint = fontinfo [ heightbase [ f ] + ( hd ) / 16 ] .cint ; 
  102.   mem [(long) b + 2 ] .cint = fontinfo [ depthbase [ f ] + ( hd ) % 16 ] .cint ; 
  103.   p = getavail () ; 
  104.   mem [(long) p ] .hh.b1 = c ; 
  105.   mem [(long) p ] .hh.b0 = f ; 
  106.   mem [(long) b + 5 ] .hh .v.RH = p ; 
  107.   Result = b ; 
  108.   return(Result) ; 
  109. } 
  110. zstackintobox ( b , f , c ) 
  111. halfword b ; 
  112. internalfont f ; 
  113. quarterword c ; 
  114. {r_stackintobox 
  115.   halfword p ; 
  116.   p = charbox ( f , c ) ; 
  117.   mem [(long) p ] .hh .v.RH = mem [(long) b + 5 ] .hh .v.RH ; 
  118.   mem [(long) b + 5 ] .hh .v.RH = p ; 
  119.   mem [(long) b + 3 ] .cint = mem [(long) p + 3 ] .cint ; 
  120. } 
  121. scaled zheightplusde ( f , c ) 
  122. internalfont f ; 
  123. quarterword c ; 
  124. {register scaled Result; r_heightplusde 
  125.   fourquarters q ; 
  126.   eightbits hd ; 
  127.   q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  128.   hd = q .b1 ; 
  129.   Result = fontinfo [ heightbase [ f ] + ( hd ) / 16 ] .cint + fontinfo [ 
  130.   depthbase [ f ] + ( hd ) % 16 ] .cint ; 
  131.   return(Result) ; 
  132. } 
  133. halfword zvardelimiter ( d , s , v ) 
  134. halfword d ; 
  135. smallnumber s ; 
  136. scaled v ; 
  137. {/* 40 22 */ register halfword Result; r_vardelimiter 
  138.   halfword b ; 
  139.   internalfont f, g ; 
  140.   quarterword c, x, y ; 
  141.   integer m, n ; 
  142.   scaled u ; 
  143.   scaled w ; 
  144.   fourquarters q ; 
  145.   eightbits hd ; 
  146.   fourquarters r ; 
  147.   smallnumber z ; 
  148.   boolean largeattempt ; 
  149.   f = 0 ; 
  150.   w = 0 ; 
  151.   largeattempt = false ; 
  152.   z = mem [(long) d ] .qqqq .b0 ; 
  153.   x = mem [(long) d ] .qqqq .b1 ; 
  154.   while ( true ) { 
  155.     if ( ( z != 0 ) || ( x != 0 ) ) 
  156.     {
  157.       z = z + s + 16 ; 
  158.       do { z = z - 16 ; 
  159.     g = eqtb [ 4579 + z ] .hh .v.RH ; 
  160.     if ( g != 0 ) 
  161.     {
  162.       y = x ; 
  163.       lab22: if ( ( y >= fontbc [ g ] ) && ( y <= fontec [ g ] ) ) 
  164.       {
  165.         q = fontinfo [ charbase [ g ] + y ] .qqqq ; 
  166.         if ( ( q .b0 > 0 ) ) 
  167.         {
  168.           if ( ( ( q .b2 ) % 4 ) == 3 ) 
  169.           {
  170.         f = g ; 
  171.         c = y ; 
  172.         goto lab40 ; 
  173.           } 
  174.           hd = q .b1 ; 
  175.           u = fontinfo [ heightbase [ g ] + ( hd ) / 16 ] .cint + fontinfo 
  176.           [ depthbase [ g ] + ( hd ) % 16 ] .cint ; 
  177.           if ( u > w ) 
  178.           {
  179.         f = g ; 
  180.         c = y ; 
  181.         w = u ; 
  182.         if ( u >= v ) 
  183.         goto lab40 ; 
  184.           } 
  185.           if ( ( ( q .b2 ) % 4 ) == 2 ) 
  186.           {
  187.         y = q .b3 ; 
  188.         goto lab22 ; 
  189.           } 
  190.         } 
  191.       } 
  192.     } 
  193.       } while ( ! ( z < 16 ) ) ; 
  194.     } 
  195.     if ( largeattempt ) 
  196.     goto lab40 ; 
  197.     largeattempt = true ; 
  198.     z = mem [(long) d ] .qqqq .b2 ; 
  199.     x = mem [(long) d ] .qqqq .b3 ; 
  200.   } 
  201.   lab40: if ( f != 0 ) 
  202.   if ( ( ( q .b2 ) % 4 ) == 3 ) 
  203.   {
  204.     b = newnullbox () ; 
  205.     mem [(long) b ] .hh.b0 = 1 ; 
  206.     r = fontinfo [ extenbase [ f ] + q .b3 ] .qqqq ; 
  207.     c = r .b3 ; 
  208.     u = heightplusde ( f , c ) ; 
  209.     w = 0 ; 
  210.     q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  211.     mem [(long) b + 1 ] .cint = fontinfo [ widthbase [ f ] + q .b0 ] .cint + 
  212.     fontinfo [ italicbase [ f ] + ( q .b2 ) / 4 ] .cint ; 
  213.     c = r .b2 ; 
  214.     if ( c != 0 ) 
  215.     w = w + heightplusde ( f , c ) ; 
  216.     c = r .b1 ; 
  217.     if ( c != 0 ) 
  218.     w = w + heightplusde ( f , c ) ; 
  219.     c = r .b0 ; 
  220.     if ( c != 0 ) 
  221.     w = w + heightplusde ( f , c ) ; 
  222.     n = 0 ; 
  223.     if ( u > 0 ) 
  224.     while ( w < v ) { 
  225.       w = w + u ; 
  226.       incr ( n ) ; 
  227.       if ( r .b1 != 0 ) 
  228.       w = w + u ; 
  229.     } 
  230.     c = r .b2 ; 
  231.     if ( c != 0 ) 
  232.     stackintobox ( b , f , c ) ; 
  233.     c = r .b3 ; 
  234.     for ( m = 1 ; m <= n ; m ++ ) 
  235.     stackintobox ( b , f , c ) ; 
  236.     c = r .b1 ; 
  237.     if ( c != 0 ) 
  238.     {
  239.       stackintobox ( b , f , c ) ; 
  240.       c = r .b3 ; 
  241.       for ( m = 1 ; m <= n ; m ++ ) 
  242.       stackintobox ( b , f , c ) ; 
  243.     } 
  244.     c = r .b0 ; 
  245.     if ( c != 0 ) 
  246.     stackintobox ( b , f , c ) ; 
  247.     mem [(long) b + 2 ] .cint = w - mem [(long) b + 3 ] .cint ; 
  248.   } 
  249.   else b = charbox ( f , c ) ; 
  250.   else { 
  251.     b = newnullbox () ; 
  252.     mem [(long) b + 1 ] .cint = eqtb [ 5712 ] .cint ; 
  253.   } 
  254.   mem [(long) b + 4 ] .cint = half ( mem [(long) b + 3 ] .cint - mem [(long) b + 2 ] .cint ) - 
  255.   fontinfo [ 22 + parambase [ eqtb [ 4581 + s ] .hh .v.RH ] ] .cint ; 
  256.   Result = b ; 
  257.   return(Result) ; 
  258. } 
  259. halfword zrebox ( b , w ) 
  260. halfword b ; 
  261. scaled w ; 
  262. {register halfword Result; r_rebox 
  263.   halfword p ; 
  264.   internalfont f ; 
  265.   scaled v ; 
  266. fourquarters qi;
  267.   if ( ( mem [(long) b + 1 ] .cint != w ) && ( mem [(long) b + 5 ] .hh .v.RH != 0 ) ) 
  268.   {
  269.     if ( mem [(long) b ] .hh.b0 == 1 ) 
  270.     b = hpack ( b , 0 , 1 ) ; 
  271.     p = mem [(long) b + 5 ] .hh .v.RH ; 
  272.     if ( ( ( p >= himemmin ) ) && ( mem [(long) p ] .hh .v.RH == 0 ) ) 
  273.     {
  274.       f = mem [(long) p ] .hh.b0 ; 
  275. /*      v = fontinfo [ widthbase [ f ] + fontinfo [ charbase [ f ] + mem [(long) p ] 
  276.       .hh.b1 ] .qqqq .b0 ] .cint ; */
  277.   qi = fontinfo [ charbase [ f ] + mem [(long) p ]  .hh.b1 ] .qqqq;
  278.       v = fontinfo [ widthbase [ f ] +qi.b0 ] .cint ;
  279.       if ( v != mem [(long) b + 1 ] .cint ) 
  280.       mem [(long) p ] .hh .v.RH = newkern ( mem [(long) b + 1 ] .cint - v ) ; 
  281.     } 
  282.     freenode ( b , 7 ) ; 
  283.     b = newglue ( 12 ) ; 
  284.     mem [(long) b ] .hh .v.RH = p ; 
  285.     while ( mem [(long) p ] .hh .v.RH != 0 ) p = mem [(long) p ] .hh .v.RH ; 
  286.     mem [(long) p ] .hh .v.RH = newglue ( 12 ) ; 
  287.     Result = hpack ( b , w , 0 ) ; 
  288.   } 
  289.   else { 
  290.     mem [(long) b + 1 ] .cint = w ; 
  291.     Result = b ; 
  292.   } 
  293.   return(Result) ; 
  294. } 
  295. halfword zmathglue ( g , m ) 
  296. halfword g ; 
  297. scaled m ; 
  298. {register halfword Result; r_mathglue 
  299.   halfword p ; 
  300.   integer n ; 
  301.   scaled f ; 
  302.   n = xovern ( m , 65536 ) ; 
  303.   f = remainder ; 
  304.   p = getnode ( 4 ) ; 
  305.   mem [(long) p + 1 ] .cint = nxplusy ( n , mem [(long) g + 1 ] .cint , xnoverd ( mem [(long) g 
  306.   + 1 ] .cint , f , 65536 ) ) ; 
  307.   mem [(long) p ] .hh.b0 = mem [(long) g ] .hh.b0 ; 
  308.   if ( mem [(long) p ] .hh.b0 == 0 ) 
  309.   mem [(long) p + 2 ] .cint = nxplusy ( n , mem [(long) g + 2 ] .cint , xnoverd ( mem [(long) g 
  310.   + 2 ] .cint , f , 65536 ) ) ; 
  311.   else mem [(long) p + 2 ] .cint = mem [(long) g + 2 ] .cint ; 
  312.   mem [(long) p ] .hh.b1 = mem [(long) g ] .hh.b1 ; 
  313.   if ( mem [(long) p ] .hh.b1 == 0 ) 
  314.   mem [(long) p + 3 ] .cint = nxplusy ( n , mem [(long) g + 3 ] .cint , xnoverd ( mem [(long) g 
  315.   + 3 ] .cint , f , 65536 ) ) ; 
  316.   else mem [(long) p + 3 ] .cint = mem [(long) g + 3 ] .cint ; 
  317.   Result = p ; 
  318.   return(Result) ; 
  319. } 
  320. zmathkern ( p , m ) 
  321. halfword p ; 
  322. scaled m ; 
  323. {r_mathkern 
  324.   integer n ; 
  325.   scaled f ; 
  326.   if ( mem [(long) p ] .hh.b1 == 99 ) 
  327.   {
  328.     n = xovern ( m , 65536 ) ; 
  329.     f = remainder ; 
  330.     mem [(long) p + 1 ] .cint = nxplusy ( n , mem [(long) p + 1 ] .cint , xnoverd ( mem [(long) 
  331.     p + 1 ] .cint , f , 65536 ) ) ; 
  332.     mem [(long) p ] .hh.b1 = 0 ; 
  333.   } 
  334. } 
  335. flushmath () { r_flushmath 
  336.   flushnodelis ( mem [(long) curlist .headfield ] .hh .v.RH ) ; 
  337.   flushnodelis ( curlist .auxfield ) ; 
  338.   mem [(long) curlist .headfield ] .hh .v.RH = 0 ; 
  339.   curlist .tailfield = curlist .headfield ; 
  340.   curlist .auxfield = 0 ; 
  341. } 
  342. halfword zcleanbox ( p , s ) 
  343. halfword p ; 
  344. smallnumber s ; 
  345. {/* 40 */ register halfword Result; r_cleanbox 
  346.   halfword q ; 
  347.   smallnumber savestyle ; 
  348.   halfword x ; 
  349.   halfword r ; 
  350.   switch ( mem [(long) p ] .hh .v.RH ) 
  351.   {case 1 : 
  352.     {
  353.       curmlist = newnoad () ; 
  354.       mem [(long) curmlist + 1 ] = mem [(long) p ] ; 
  355.     } 
  356.     break ; 
  357.   case 2 : 
  358.     {
  359.       q = mem [(long) p ] .hh .v.LH ; 
  360.       goto lab40 ; 
  361.     } 
  362.     break ; 
  363.   case 3 : 
  364.     curmlist = mem [(long) p ] .hh .v.LH ; 
  365.     break ; 
  366.   default : 
  367.     {
  368.       q = newnullbox () ; 
  369.       goto lab40 ; 
  370.     } 
  371.     break ; 
  372.   } 
  373.   savestyle = curstyle ; 
  374.   curstyle = s ; 
  375.   mlistpenalti = false ; 
  376.   mlisttohlist () ; 
  377.   q = mem [(long) memtop - 3 ] .hh .v.RH ; 
  378.   curstyle = savestyle ; 
  379.   {
  380.     if ( curstyle < 4 ) 
  381.     cursize = 0 ; 
  382.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  383.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] .hh 
  384.     .v.RH ] ] .cint , 18 ) ; 
  385.   } 
  386.   lab40: if ( ( q >= himemmin ) || ( q == 0 ) ) 
  387.   x = hpack ( q , 0 , 1 ) ; 
  388.   else if ( ( mem [(long) q ] .hh .v.RH == 0 ) && ( mem [(long) q ] .hh.b0 <= 1 ) && ( mem 
  389.   [ q + 4 ] .cint == 0 ) ) 
  390.   x = q ; 
  391.   else x = hpack ( q , 0 , 1 ) ; 
  392.   q = mem [(long) x + 5 ] .hh .v.RH ; 
  393.   if ( ( q >= himemmin ) ) 
  394.   {
  395.     r = mem [(long) q ] .hh .v.RH ; 
  396.     if ( r != 0 ) 
  397.     if ( mem [(long) r ] .hh .v.RH == 0 ) 
  398.     if ( ! ( r >= himemmin ) ) 
  399.     if ( mem [(long) r ] .hh.b0 == 11 ) 
  400.     {
  401.       freenode ( r , 2 ) ; 
  402.       mem [(long) q ] .hh .v.RH = 0 ; 
  403.     } 
  404.   } 
  405.   Result = x ; 
  406.   return(Result) ; 
  407. } 
  408. zfetch ( a ) 
  409. halfword a ; 
  410. {r_fetch 
  411.   curc = mem [(long) a ] .hh.b1 ; 
  412.   curf = eqtb [ 4579 + mem [(long) a ] .hh.b0 + cursize ] .hh .v.RH ; 
  413.   if ( curf == 0 ) 
  414.   {
  415.     {
  416.       if ( interaction == 3 ) 
  417.       wakeuptermin () ; 
  418.       printnl ( 133 ) ; 
  419.       print ( 206 ) ; 
  420.     } 
  421.     printsize ( cursize ) ; 
  422.     printchar ( 32 ) ; 
  423.     printint ( mem [(long) a ] .hh.b0 ) ; 
  424.     print ( 737 ) ; 
  425.     printASCII ( curc ) ; 
  426.     printchar ( 41 ) ; 
  427.     {
  428.       helpptr = 4 ; 
  429.       helpline [ 3 ] = 738 ; 
  430.       helpline [ 2 ] = 739 ; 
  431.       helpline [ 1 ] = 740 ; 
  432.       helpline [ 0 ] = 741 ; 
  433.     } 
  434.     error () ; 
  435.     curi = nullcharacte ; 
  436.     mem [(long) a ] .hh .v.RH = 0 ; 
  437.   } 
  438.   else { 
  439.     if ( ( curc >= fontbc [ curf ] ) && ( curc <= fontec [ curf ] ) ) 
  440.     curi = fontinfo [ charbase [ curf ] + curc ] .qqqq ; 
  441.     else curi = nullcharacte ; 
  442.     if ( ! ( ( curi .b0 > 0 ) ) ) 
  443.     {
  444.       charwarning ( curf , curc ) ; 
  445.       mem [(long) a ] .hh .v.RH = 0 ; 
  446.     } 
  447.   } 
  448. } 
  449. zmakeover ( q ) 
  450. halfword q ; 
  451. {r_makeover 
  452.   mem [(long) q + 1 ] .hh .v.LH = overbar ( cleanbox ( q + 1 , 2 * ( curstyle / 2 ) 
  453.   + 1 ) , 3 * fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] 
  454.   .cint , fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] 
  455.   .cint ) ; 
  456.   mem [(long) q + 1 ] .hh .v.RH = 2 ; 
  457. } 
  458. zmakeunder ( q ) 
  459. halfword q ; 
  460. {r_makeunder 
  461.   halfword p, x, y ; 
  462.   scaled delta ; 
  463.   x = cleanbox ( q + 1 , curstyle ) ; 
  464.   p = newkern ( 3 * fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh 
  465.   .v.RH ] ] .cint ) ; 
  466.   mem [(long) x ] .hh .v.RH = p ; 
  467.   mem [(long) p ] .hh .v.RH = fractionrule ( fontinfo [ 8 + parambase [ eqtb [ 4582 
  468.   + cursize ] .hh .v.RH ] ] .cint ) ; 
  469.   y = vpackage ( x , 0 , 1 , 1073741823 ) ; 
  470.   delta = mem [(long) y + 3 ] .cint + mem [(long) y + 2 ] .cint + fontinfo [ 8 + parambase 
  471.   [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] .cint ; 
  472.   mem [(long) y + 3 ] .cint = mem [(long) x + 3 ] .cint ; 
  473.   mem [(long) y + 2 ] .cint = delta - mem [(long) y + 3 ] .cint ; 
  474.   mem [(long) q + 1 ] .hh .v.LH = y ; 
  475.   mem [(long) q + 1 ] .hh .v.RH = 2 ; 
  476. } 
  477. zmakevcenter ( q ) 
  478. halfword q ; 
  479. {r_makevcenter 
  480.   halfword v ; 
  481.   scaled delta ; 
  482.   v = mem [(long) q + 1 ] .hh .v.LH ; 
  483.   if ( mem [(long) v ] .hh.b0 != 1 ) 
  484.   confusion ( 397 ) ; 
  485.   delta = mem [(long) v + 3 ] .cint + mem [(long) v + 2 ] .cint ; 
  486.   mem [(long) v + 3 ] .cint = fontinfo [ 22 + parambase [ eqtb [ 4581 + cursize ] 
  487.   .hh .v.RH ] ] .cint + half ( delta ) ; 
  488.   mem [(long) v + 2 ] .cint = delta - mem [(long) v + 3 ] .cint ; 
  489. } 
  490. zmakeradical ( q ) 
  491. halfword q ; 
  492. {r_makeradical 
  493.   halfword x, y ; 
  494.   scaled delta, clr ; 
  495.   x = cleanbox ( q + 1 , 2 * ( curstyle / 2 ) + 1 ) ; 
  496.   if ( curstyle < 2 ) 
  497.   clr = fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] .cint 
  498.   + ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  499.   .cint ) / 4 ) ; 
  500.   else { 
  501.     clr = fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] 
  502.     .cint ; 
  503.     clr = clr + ( abs ( clr ) / 4 ) ; 
  504.   } 
  505.   y = vardelimiter ( q + 4 , cursize , mem [(long) x + 3 ] .cint + mem [(long) x + 2 ] 
  506.   .cint + clr + fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] 
  507.   ] .cint ) ; 
  508.   delta = mem [(long) y + 2 ] .cint - ( mem [(long) x + 3 ] .cint + mem [(long) x + 2 ] .cint + 
  509.   clr ) ; 
  510.   if ( delta > 0 ) 
  511.   clr = clr + half ( delta ) ; 
  512.   mem [(long) y + 4 ] .cint = - ( mem [(long) x + 3 ] .cint + clr ) ; 
  513.   mem [(long) y ] .hh .v.RH = overbar ( x , clr , mem [(long) y + 3 ] .cint ) ; 
  514.   mem [(long) q + 1 ] .hh .v.LH = hpack ( y , 0 , 1 ) ; 
  515.   mem [(long) q + 1 ] .hh .v.RH = 2 ; 
  516. } 
  517. zmakemathacce ( q ) 
  518. halfword q ; 
  519. {/* 30 31 */ r_makemathacce 
  520.   halfword p, x, y ; 
  521.   integer a ; 
  522.   quarterword c ; 
  523.   internalfont f ; 
  524.   fourquarters i ; 
  525.   scaled s ; 
  526.   scaled h ; 
  527.   scaled delta ; 
  528.   scaled w ; 
  529.   fetch ( q + 4 ) ; 
  530.   if ( ( curi .b0 > 0 ) ) 
  531.   {
  532.     i = curi ; 
  533.     c = curc ; 
  534.     f = curf ; 
  535.     s = 0 ; 
  536.     if ( mem [(long) q + 1 ] .hh .v.RH == 1 ) 
  537.     {
  538.       fetch ( q + 1 ) ; 
  539.       if ( ( ( curi .b2 ) % 4 ) == 1 ) 
  540.       {
  541.     a = ligkernbase [ curf ] + curi .b3 ; 
  542.     do { curi = fontinfo [ a ] .qqqq ; 
  543.       if ( curi .b1 == skewchar [ curf ] ) 
  544.       {
  545.         if ( curi .b2 >= 128 ) 
  546.         s = fontinfo [ kernbase [ curf ] + curi .b3 ] .cint ; 
  547.         goto lab31 ; 
  548.       } 
  549.       incr ( a ) ; 
  550.     } while ( ! ( curi .b0 >= 128 ) ) ; 
  551.       } 
  552.     } 
  553.     lab31: ; 
  554.     x = cleanbox ( q + 1 , 2 * ( curstyle / 2 ) + 1 ) ; 
  555.     w = mem [(long) x + 1 ] .cint ; 
  556.     h = mem [(long) x + 3 ] .cint ; 
  557.     while ( true ) { 
  558.       if ( ( ( i .b2 ) % 4 ) != 2 ) 
  559.       goto lab30 ; 
  560.       y = i .b3 ; 
  561.       i = fontinfo [ charbase [ f ] + y ] .qqqq ; 
  562.       if ( fontinfo [ widthbase [ f ] + i .b0 ] .cint > w ) 
  563.       goto lab30 ; 
  564.       c = y ; 
  565.     } 
  566.     lab30: ; 
  567.     if ( h < fontinfo [ 5 + parambase [ f ] ] .cint ) 
  568.     delta = h ; 
  569.     else delta = fontinfo [ 5 + parambase [ f ] ] .cint ; 
  570.     if ( ( mem [(long) q + 2 ] .hh .v.RH != 0 ) || ( mem [(long) q + 3 ] .hh .v.RH != 0 ) 
  571.     ) 
  572.     if ( mem [(long) q + 1 ] .hh .v.RH == 1 ) 
  573.     {
  574.       flushnodelis ( x ) ; 
  575.       x = newnoad () ; 
  576.       mem [(long) x + 1 ] = mem [(long) q + 1 ] ; 
  577.       mem [(long) x + 2 ] = mem [(long) q + 2 ] ; 
  578.       mem [(long) x + 3 ] = mem [(long) q + 3 ] ; 
  579.       mem [(long) q + 2 ] .hh = emptyfield ; 
  580.       mem [(long) q + 3 ] .hh = emptyfield ; 
  581.       mem [(long) q + 1 ] .hh .v.RH = 3 ; 
  582.       mem [(long) q + 1 ] .hh .v.LH = x ; 
  583.       x = cleanbox ( q + 1 , curstyle ) ; 
  584.       delta = delta + mem [(long) x + 3 ] .cint - h ; 
  585.       h = mem [(long) x + 3 ] .cint ; 
  586.     } 
  587.     y = charbox ( f , c ) ; 
  588.     mem [(long) y + 4 ] .cint = s + half ( w - mem [(long) y + 1 ] .cint ) ; 
  589.     mem [(long) y + 1 ] .cint = 0 ; 
  590.     p = newkern ( - delta ) ; 
  591.     mem [(long) p ] .hh .v.RH = x ; 
  592.     mem [(long) y ] .hh .v.RH = p ; 
  593.     y = vpackage ( y , 0 , 1 , 1073741823 ) ; 
  594.     mem [(long) y + 1 ] .cint = mem [(long) x + 1 ] .cint ; 
  595.     if ( mem [(long) y + 3 ] .cint < h ) 
  596.     {
  597.       p = newkern ( h - mem [(long) y + 3 ] .cint ) ; 
  598.       mem [(long) p ] .hh .v.RH = mem [(long) y + 5 ] .hh .v.RH ; 
  599.       mem [(long) y + 5 ] .hh .v.RH = p ; 
  600.       mem [(long) y + 3 ] .cint = h ; 
  601.     } 
  602.     mem [(long) q + 1 ] .hh .v.LH = y ; 
  603.     mem [(long) q + 1 ] .hh .v.RH = 2 ; 
  604.   } 
  605. } 
  606. zmakefraction ( q ) 
  607. halfword q ; 
  608. {r_makefraction 
  609.   halfword p, v, x, y, z ; 
  610.   scaled delta, delta1, delta2, shiftup, shiftdown, clr ; 
  611.   if ( mem [(long) q + 1 ] .cint == 1073741824 ) 
  612.   mem [(long) q + 1 ] .cint = fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh 
  613.   .v.RH ] ] .cint ; 
  614.   x = cleanbox ( q + 2 , curstyle + 2 - 2 * ( curstyle / 6 ) ) ; 
  615.   z = cleanbox ( q + 3 , 2 * ( curstyle / 2 ) + 3 - 2 * ( curstyle / 6 ) ) ; 
  616.   if ( mem [(long) x + 1 ] .cint < mem [(long) z + 1 ] .cint ) 
  617.   x = rebox ( x , mem [(long) z + 1 ] .cint ) ; 
  618.   else z = rebox ( z , mem [(long) x + 1 ] .cint ) ; 
  619.   if ( curstyle < 2 ) 
  620.   {
  621.     shiftup = fontinfo [ 8 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  622.     .cint ; 
  623.     shiftdown = fontinfo [ 11 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH 
  624.     ] ] .cint ; 
  625.   } 
  626.   else { 
  627.     shiftdown = fontinfo [ 12 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH 
  628.     ] ] .cint ; 
  629.     if ( mem [(long) q + 1 ] .cint != 0 ) 
  630.     shiftup = fontinfo [ 9 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  631.     .cint ; 
  632.     else shiftup = fontinfo [ 10 + parambase [ eqtb [ 4581 + cursize ] .hh 
  633.     .v.RH ] ] .cint ; 
  634.   } 
  635.   if ( mem [(long) q + 1 ] .cint == 0 ) 
  636.   {
  637.     if ( curstyle < 2 ) 
  638.     clr = 7 * fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] ] 
  639.     .cint ; 
  640.     else clr = 3 * fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh 
  641.     .v.RH ] ] .cint ; 
  642.     delta = half ( clr - ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( mem [(long) z + 3 ] 
  643.     .cint - shiftdown ) ) ) ; 
  644.     if ( delta > 0 ) 
  645.     {
  646.       shiftup = shiftup + delta ; 
  647.       shiftdown = shiftdown + delta ; 
  648.     } 
  649.   } 
  650.   else { 
  651.     if ( curstyle < 2 ) 
  652.     clr = 3 * mem [(long) q + 1 ] .cint ; 
  653.     else clr = mem [(long) q + 1 ] .cint ; 
  654.     delta = half ( mem [(long) q + 1 ] .cint ) ; 
  655.     delta1 = clr - ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( fontinfo [ 22 + 
  656.     parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] .cint + delta ) ) ; 
  657.     delta2 = clr - ( ( fontinfo [ 22 + parambase [ eqtb [ 4581 + cursize ] .hh 
  658.     .v.RH ] ] .cint - delta ) - ( mem [(long) z + 3 ] .cint - shiftdown ) ) ; 
  659.     if ( delta1 > 0 ) 
  660.     shiftup = shiftup + delta1 ; 
  661.     if ( delta2 > 0 ) 
  662.     shiftdown = shiftdown + delta2 ; 
  663.   } 
  664.   v = newnullbox () ; 
  665.   mem [(long) v ] .hh.b0 = 1 ; 
  666.   mem [(long) v + 3 ] .cint = shiftup + mem [(long) x + 3 ] .cint ; 
  667.   mem [(long) v + 2 ] .cint = mem [(long) z + 2 ] .cint + shiftdown ; 
  668.   mem [(long) v + 1 ] .cint = mem [(long) x + 1 ] .cint ; 
  669.   if ( mem [(long) q + 1 ] .cint == 0 ) 
  670.   {
  671.     p = newkern ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( mem [(long) z + 3 ] .cint - 
  672.     shiftdown ) ) ; 
  673.     mem [(long) p ] .hh .v.RH = z ; 
  674.   } 
  675.   else { 
  676.     y = fractionrule ( mem [(long) q + 1 ] .cint ) ; 
  677.     p = newkern ( ( fontinfo [ 22 + parambase [ eqtb [ 4581 + cursize ] .hh 
  678.     .v.RH ] ] .cint - delta ) - ( mem [(long) z + 3 ] .cint - shiftdown ) ) ; 
  679.     mem [(long) y ] .hh .v.RH = p ; 
  680.     mem [(long) p ] .hh .v.RH = z ; 
  681.     p = newkern ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( fontinfo [ 22 + 
  682.     parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] .cint + delta ) ) ; 
  683.     mem [(long) p ] .hh .v.RH = y ; 
  684.   } 
  685.   mem [(long) x ] .hh .v.RH = p ; 
  686.   mem [(long) v + 5 ] .hh .v.RH = x ; 
  687.   if ( curstyle < 2 ) 
  688.   delta = fontinfo [ 20 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  689.   .cint ; 
  690.   else delta = fontinfo [ 21 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] 
  691.   ] .cint ; 
  692.   x = vardelimiter ( q + 4 , cursize , delta ) ; 
  693.   mem [(long) x ] .hh .v.RH = v ; 
  694.   z = vardelimiter ( q + 5 , cursize , delta ) ; 
  695.   mem [(long) v ] .hh .v.RH = z ; 
  696.   mem [(long) q + 1 ] .cint = hpack ( x , 0 , 1 ) ; 
  697. } 
  698. scaled zmakeop ( q ) 
  699. halfword q ; 
  700. {register scaled Result; r_makeop 
  701.   scaled delta ; 
  702.   halfword p, v, x, y, z ; 
  703.   scaled shiftup, shiftdown ; 
  704.   if ( ( mem [(long) q ] .hh.b1 == 0 ) && ( curstyle < 2 ) ) 
  705.   mem [(long) q ] .hh.b1 = 1 ; 
  706.   if ( mem [(long) q + 1 ] .hh .v.RH == 1 ) 
  707.   {
  708.     fetch ( q + 1 ) ; 
  709.     if ( ( curstyle < 2 ) && ( ( ( curi .b2 ) % 4 ) == 2 ) ) 
  710.     {
  711.       curc = curi .b3 ; 
  712.       mem [(long) q + 1 ] .hh.b1 = curc ; 
  713.       curi = fontinfo [ charbase [ curf ] + curc ] .qqqq ; 
  714.     } 
  715.     delta = fontinfo [ italicbase [ curf ] + ( curi .b2 ) / 4 ] .cint ; 
  716.     x = cleanbox ( q + 1 , curstyle ) ; 
  717.     if ( ( mem [(long) q + 3 ] .hh .v.RH != 0 ) && ( mem [(long) q ] .hh.b1 != 1 ) ) 
  718.     mem [(long) x + 1 ] .cint = mem [(long) x + 1 ] .cint - delta ; 
  719.     mem [(long) x + 4 ] .cint = half ( mem [(long) x + 3 ] .cint - mem [(long) x + 2 ] .cint ) - 
  720.     fontinfo [ 22 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] .cint ; 
  721.     mem [(long) q + 1 ] .hh .v.RH = 2 ; 
  722.     mem [(long) q + 1 ] .hh .v.LH = x ; 
  723.   } 
  724.   else delta = 0 ; 
  725.   if ( mem [(long) q ] .hh.b1 == 1 ) 
  726.   {
  727.     x = cleanbox ( q + 2 , 2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ) ) ; 
  728.     y = cleanbox ( q + 1 , curstyle ) ; 
  729.     z = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  730.     v = newnullbox () ; 
  731.     mem [(long) v ] .hh.b0 = 1 ; 
  732.     mem [(long) v + 1 ] .cint = mem [(long) y + 1 ] .cint ; 
  733.     if ( mem [(long) x + 1 ] .cint > mem [(long) v + 1 ] .cint ) 
  734.     mem [(long) v + 1 ] .cint = mem [(long) x + 1 ] .cint ; 
  735.     if ( mem [(long) z + 1 ] .cint > mem [(long) v + 1 ] .cint ) 
  736.     mem [(long) v + 1 ] .cint = mem [(long) z + 1 ] .cint ; 
  737.     x = rebox ( x , mem [(long) v + 1 ] .cint ) ; 
  738.     y = rebox ( y , mem [(long) v + 1 ] .cint ) ; 
  739.     z = rebox ( z , mem [(long) v + 1 ] .cint ) ; 
  740.     mem [(long) x + 4 ] .cint = half ( delta ) ; 
  741.     mem [(long) z + 4 ] .cint = - mem [(long) x + 4 ] .cint ; 
  742.     mem [(long) v + 3 ] .cint = mem [(long) y + 3 ] .cint ; 
  743.     mem [(long) v + 2 ] .cint = mem [(long) y + 2 ] .cint ; 
  744.     if ( mem [(long) q + 2 ] .hh .v.RH == 0 ) 
  745.     {
  746.       freenode ( x , 7 ) ; 
  747.       mem [(long) v + 5 ] .hh .v.RH = y ; 
  748.     } 
  749.     else { 
  750.       shiftup = fontinfo [ 11 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH 
  751.       ] ] .cint - mem [(long) x + 2 ] .cint ; 
  752.       if ( shiftup < fontinfo [ 9 + parambase [ eqtb [ 4582 + cursize ] .hh 
  753.       .v.RH ] ] .cint ) 
  754.       shiftup = fontinfo [ 9 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] 
  755.       ] .cint ; 
  756.       p = newkern ( shiftup ) ; 
  757.       mem [(long) p ] .hh .v.RH = y ; 
  758.       mem [(long) x ] .hh .v.RH = p ; 
  759.       p = newkern ( fontinfo [ 13 + parambase [ eqtb [ 4582 + cursize ] .hh 
  760.       .v.RH ] ] .cint ) ; 
  761.       mem [(long) p ] .hh .v.RH = x ; 
  762.       mem [(long) v + 5 ] .hh .v.RH = p ; 
  763.       mem [(long) v + 3 ] .cint = mem [(long) v + 3 ] .cint + fontinfo [ 13 + parambase [ 
  764.       eqtb [ 4582 + cursize ] .hh .v.RH ] ] .cint + mem [(long) x + 3 ] .cint + mem 
  765.       [ x + 2 ] .cint + shiftup ; 
  766.     } 
  767.     if ( mem [(long) q + 3 ] .hh .v.RH == 0 ) 
  768.     freenode ( z , 7 ) ; 
  769.     else { 
  770.       shiftdown = fontinfo [ 12 + parambase [ eqtb [ 4582 + cursize ] .hh 
  771.       .v.RH ] ] .cint - mem [(long) z + 3 ] .cint ; 
  772.       if ( shiftdown < fontinfo [ 10 + parambase [ eqtb [ 4582 + cursize ] .hh 
  773.       .v.RH ] ] .cint ) 
  774.       shiftdown = fontinfo [ 10 + parambase [ eqtb [ 4582 + cursize ] .hh 
  775.       .v.RH ] ] .cint ; 
  776.       p = newkern ( shiftdown ) ; 
  777.       mem [(long) y ] .hh .v.RH = p ; 
  778.       mem [(long) p ] .hh .v.RH = z ; 
  779.       p = newkern ( fontinfo [ 13 + parambase [ eqtb [ 4582 + cursize ] .hh 
  780.       .v.RH ] ] .cint ) ; 
  781.       mem [(long) z ] .hh .v.RH = p ; 
  782.       mem [(long) v + 2 ] .cint = mem [(long) v + 2 ] .cint + fontinfo [ 13 + parambase [ 
  783.       eqtb [ 4582 + cursize ] .hh .v.RH ] ] .cint + mem [(long) z + 3 ] .cint + mem 
  784.       [ z + 2 ] .cint + shiftdown ; 
  785.     } 
  786.     mem [(long) q + 1 ] .cint = v ; 
  787.   } 
  788.   Result = delta ; 
  789.   return(Result) ; 
  790. } 
  791. zmakeord ( q ) 
  792. halfword q ; 
  793. {/* 20 10 */ r_makeord 
  794.   integer a ; 
  795.   halfword p ; 
  796.   lab20: if ( ( mem [(long) q + 3 ] .hh .v.RH == 0 ) && ( mem [(long) q + 2 ] .hh .v.RH == 
  797.   0 ) && ( mem [(long) q + 1 ] .hh .v.RH == 1 ) ) 
  798.   {
  799.     p = mem [(long) q ] .hh .v.RH ; 
  800.     if ( p != 0 ) 
  801.     if ( ( mem [(long) p ] .hh.b0 >= 16 ) && ( mem [(long) p ] .hh.b0 <= 22 ) ) 
  802.     if ( mem [(long) p + 1 ] .hh .v.RH == 1 ) 
  803.     if ( mem [(long) p + 1 ] .hh.b0 == mem [(long) q + 1 ] .hh.b0 ) 
  804.     {
  805.       mem [(long) q + 1 ] .hh .v.RH = 4 ; 
  806.       fetch ( q + 1 ) ; 
  807.       if ( ( ( curi .b2 ) % 4 ) == 1 ) 
  808.       {
  809.     a = ligkernbase [ curf ] + curi .b3 ; 
  810.     curc = mem [(long) p + 1 ] .hh.b1 ; 
  811.     do { curi = fontinfo [ a ] .qqqq ; 
  812.       if ( curi .b1 == curc ) 
  813.       if ( curi .b2 >= 128 ) 
  814.       {
  815.         p = newkern ( fontinfo [ kernbase [ curf ] + curi .b3 ] .cint ) ; 
  816.         mem [(long) p ] .hh .v.RH = mem [(long) q ] .hh .v.RH ; 
  817.         mem [(long) q ] .hh .v.RH = p ; 
  818.         return ; 
  819.       } 
  820.       else { 
  821.         mem [(long) q ] .hh .v.RH = mem [(long) p ] .hh .v.RH ; 
  822.         mem [(long) q + 1 ] .hh .v.RH = 1 ; 
  823.         mem [(long) q + 1 ] .hh.b1 = curi .b3 ; 
  824.         mem [(long) q + 3 ] = mem [(long) p + 3 ] ; 
  825.         mem [(long) q + 2 ] = mem [(long) p + 2 ] ; 
  826.         freenode ( p , 4 ) ; 
  827.         goto lab20 ; 
  828.       } 
  829.       incr ( a ) ; 
  830.     } while ( ! ( curi .b0 >= 128 ) ) ; 
  831.       } 
  832.     } 
  833.   } 
  834. } 
  835. zmakescripts ( q , delta ) 
  836. halfword q ; 
  837. scaled delta ; 
  838. {r_makescripts 
  839.   halfword p, x, y, z ; 
  840.   scaled shiftup, shiftdown, clr ; 
  841.   smallnumber t ; 
  842.   p = mem [(long) q + 1 ] .cint ; 
  843.   if ( ( p >= himemmin ) ) 
  844.   {
  845.     shiftup = 0 ; 
  846.     shiftdown = 0 ; 
  847.   } 
  848.   else { 
  849.     z = hpack ( p , 0 , 1 ) ; 
  850.     if ( curstyle < 4 ) 
  851.     t = 16 ; 
  852.     else t = 32 ; 
  853.     shiftup = mem [(long) z + 3 ] .cint - fontinfo [ 18 + parambase [ eqtb [ 4581 + 
  854.     t ] .hh .v.RH ] ] .cint ; 
  855.     shiftdown = mem [(long) z + 2 ] .cint + fontinfo [ 19 + parambase [ eqtb [ 4581 
  856.     + t ] .hh .v.RH ] ] .cint ; 
  857.     freenode ( z , 7 ) ; 
  858.   } 
  859.   if ( mem [(long) q + 2 ] .hh .v.RH == 0 ) 
  860.   {
  861.     x = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  862.     mem [(long) x + 1 ] .cint = mem [(long) x + 1 ] .cint + eqtb [ 5713 ] .cint ; 
  863.     if ( shiftdown < fontinfo [ 16 + parambase [ eqtb [ 4581 + cursize ] .hh 
  864.     .v.RH ] ] .cint ) 
  865.     shiftdown = fontinfo [ 16 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH 
  866.     ] ] .cint ; 
  867.     clr = mem [(long) x + 3 ] .cint - ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4581 
  868.     + cursize ] .hh .v.RH ] ] .cint * 4 ) / 5 ) ; 
  869.     if ( shiftdown < clr ) 
  870.     shiftdown = clr ; 
  871.     mem [(long) x + 4 ] .cint = shiftdown ; 
  872.   } 
  873.   else { 
  874.     {
  875.       x = cleanbox ( q + 2 , 2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ) ) ; 
  876.       mem [(long) x + 1 ] .cint = mem [(long) x + 1 ] .cint + eqtb [ 5713 ] .cint ; 
  877.       if ( odd ( curstyle ) ) 
  878.       clr = fontinfo [ 15 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  879.       .cint ; 
  880.       else if ( curstyle < 2 ) 
  881.       clr = fontinfo [ 13 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH ] ] 
  882.       .cint ; 
  883.       else clr = fontinfo [ 14 + parambase [ eqtb [ 4581 + cursize ] .hh .v.RH 
  884.       ] ] .cint ; 
  885.       if ( shiftup < clr ) 
  886.       shiftup = clr ; 
  887.       clr = mem [(long) x + 2 ] .cint + ( abs ( fontinfo [ 5 + parambase [ eqtb [ 
  888.       4581 + cursize ] .hh .v.RH ] ] .cint ) / 4 ) ; 
  889.       if ( shiftup < clr ) 
  890.       shiftup = clr ; 
  891.     } 
  892.     if ( mem [(long) q + 3 ] .hh .v.RH == 0 ) 
  893.     mem [(long) x + 4 ] .cint = - shiftup ; 
  894.     else { 
  895.       y = cleanbox ( q + 3 , 2 * ( curstyle / 4 ) + 5 ) ; 
  896.       mem [(long) y + 1 ] .cint = mem [(long) y + 1 ] .cint + eqtb [ 5713 ] .cint ; 
  897.       if ( shiftdown < fontinfo [ 17 + parambase [ eqtb [ 4581 + cursize ] .hh 
  898.       .v.RH ] ] .cint ) 
  899.       shiftdown = fontinfo [ 17 + parambase [ eqtb [ 4581 + cursize ] .hh 
  900.       .v.RH ] ] .cint ; 
  901.       clr = 4 * fontinfo [ 8 + parambase [ eqtb [ 4582 + cursize ] .hh .v.RH ] 
  902.       ] .cint - ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( mem [(long) y + 3 ] .cint - 
  903.       shiftdown ) ) ; 
  904.       if ( clr > 0 ) 
  905.       {
  906.     shiftdown = shiftdown + clr ; 
  907.     clr = ( abs ( fontinfo [ 5 + parambase [ eqtb [ 4581 + cursize ] .hh 
  908.     .v.RH ] ] .cint * 4 ) / 5 ) - ( shiftup - mem [(long) x + 2 ] .cint ) ; 
  909.     if ( clr > 0 ) 
  910.     {
  911.       shiftup = shiftup + clr ; 
  912.       shiftdown = shiftdown - clr ; 
  913.     } 
  914.       } 
  915.       mem [(long) x + 4 ] .cint = delta ; 
  916.       p = newkern ( ( shiftup - mem [(long) x + 2 ] .cint ) - ( mem [(long) y + 3 ] .cint 
  917.       - shiftdown ) ) ; 
  918.       mem [(long) x ] .hh .v.RH = p ; 
  919.       mem [(long) p ] .hh .v.RH = y ; 
  920.       x = vpackage ( x , 0 , 1 , 1073741823 ) ; 
  921.       mem [(long) x + 4 ] .cint = shiftdown ; 
  922.     } 
  923.   } 
  924.   if ( mem [(long) q + 1 ] .cint == 0 ) 
  925.   mem [(long) q + 1 ] .cint = x ; 
  926.   else { 
  927.     p = mem [(long) q + 1 ] .cint ; 
  928.     while ( mem [(long) p ] .hh .v.RH != 0 ) p = mem [(long) p ] .hh .v.RH ; 
  929.     mem [(long) p ] .hh .v.RH = x ; 
  930.   } 
  931. } 
  932. smallnumber zmakeleftrigh ( q , style , maxd , maxh ) 
  933. halfword q ; 
  934. smallnumber style ; 
  935. scaled maxd , maxh ; 
  936. {register smallnumber Result; r_makeleftrigh 
  937.   scaled delta, delta1, delta2 ; 
  938.   if ( style < 4 ) 
  939.   cursize = 0 ; 
  940.   else cursize = 16 * ( ( style - 2 ) / 2 ) ; 
  941.   delta2 = maxd + fontinfo [ 22 + parambase [ eqtb [ 4581 + cursize ] .hh 
  942.   .v.RH ] ] .cint ; 
  943.   delta1 = maxh + maxd - delta2 ; 
  944.   if ( delta2 > delta1 ) 
  945.   delta1 = delta2 ; 
  946.   delta = ( delta1 / 500 ) * eqtb [ 5285 ] .cint ; 
  947.   delta2 = delta1 + delta1 - eqtb [ 5711 ] .cint ; 
  948.   if ( delta < delta2 ) 
  949.   delta = delta2 ; 
  950.   mem [(long) q + 1 ] .cint = vardelimiter ( q + 1 , cursize , delta ) ; 
  951.   Result = mem [(long) q ] .hh.b0 - ( 10 ) ; 
  952.   return(Result) ; 
  953. } 
  954. mlisttohlist () { /* 21 82 80 81 83 30 */ r_mlisttohlist 
  955.   halfword mlist ; 
  956.   boolean penalties ; 
  957.   smallnumber style ; 
  958.   smallnumber savestyle ; 
  959.   halfword q ; 
  960.   halfword r ; 
  961.   smallnumber rtype ; 
  962.   smallnumber t ; 
  963.   halfword p, x, y, z ; 
  964.   integer pen ; 
  965.   smallnumber s ; 
  966.   scaled maxh, maxd ; 
  967.   scaled delta ; 
  968.   mlist = curmlist ; 
  969.   penalties = mlistpenalti ; 
  970.   style = curstyle ; 
  971.   q = mlist ; 
  972.   r = 0 ; 
  973.   rtype = 17 ; 
  974.   maxh = 0 ; 
  975.   maxd = 0 ; 
  976.   {
  977.     if ( curstyle < 4 ) 
  978.     cursize = 0 ; 
  979.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  980.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] .hh 
  981.     .v.RH ] ] .cint , 18 ) ; 
  982.   } 
  983.   while ( q != 0 ) { 
  984.     lab21: delta = 0 ; 
  985.     switch ( mem [(long) q ] .hh.b0 ) 
  986.     {case 18 : 
  987.       switch ( rtype ) 
  988.       {case 18 : 
  989.       case 17 : 
  990.       case 19 : 
  991.       case 20 : 
  992.       case 22 : 
  993.       case 30 : 
  994.     {
  995.       mem [(long) q ] .hh.b0 = 16 ; 
  996.       goto lab21 ; 
  997.     } 
  998.     break ; 
  999.       default : 
  1000.  
  1001.     break ; 
  1002.       } 
  1003.       break ; 
  1004.     case 19 : 
  1005.     case 21 : 
  1006.     case 22 : 
  1007.     case 31 : 
  1008.       {
  1009.     if ( rtype == 18 ) 
  1010.     mem [(long) r ] .hh.b0 = 16 ; 
  1011.     if ( mem [(long) q ] .hh.b0 == 31 ) 
  1012.     goto lab80 ; 
  1013.       } 
  1014.       break ; 
  1015.     case 30 : 
  1016.       goto lab80 ; 
  1017.       break ; 
  1018.     case 25 : 
  1019.       {
  1020.     makefraction ( q ) ; 
  1021.     goto lab82 ; 
  1022.       } 
  1023.       break ; 
  1024.     case 17 : 
  1025.       {
  1026.     delta = makeop ( q ) ; 
  1027.     if ( mem [(long) q ] .hh.b1 == 1 ) 
  1028.     goto lab82 ; 
  1029.       } 
  1030.       break ; 
  1031.     case 16 : 
  1032.       makeord ( q ) ; 
  1033.       break ; 
  1034.     case 20 : 
  1035.     case 23 : 
  1036.       ; 
  1037.       break ; 
  1038.     case 24 : 
  1039.       makeradical ( q ) ; 
  1040.       break ; 
  1041.     case 27 : 
  1042.       makeover ( q ) ; 
  1043.       break ; 
  1044.     case 26 : 
  1045.       makeunder ( q ) ; 
  1046.       break ; 
  1047.     case 28 : 
  1048.       makemathacce ( q ) ; 
  1049.       break ; 
  1050.     case 29 : 
  1051.       makevcenter ( q ) ; 
  1052.       break ; 
  1053.     case 14 : 
  1054.       {
  1055.     curstyle = mem [(long) q ] .hh.b1 ; 
  1056.     {
  1057.       if ( curstyle < 4 ) 
  1058.       cursize = 0 ; 
  1059.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  1060.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] 
  1061.       .hh .v.RH ] ] .cint , 18 ) ; 
  1062.     } 
  1063.     goto lab81 ; 
  1064.       } 
  1065.       break ; 
  1066.     case 15 : 
  1067.       {
  1068.     switch ( curstyle / 2 ) 
  1069.     {case 0 : 
  1070.       {
  1071.         p = mem [(long) q + 1 ] .hh .v.LH ; 
  1072.         mem [(long) q + 1 ] .hh .v.LH = 0 ; 
  1073.       } 
  1074.       break ; 
  1075.     case 1 : 
  1076.       {
  1077.         p = mem [(long) q + 1 ] .hh .v.RH ; 
  1078.         mem [(long) q + 1 ] .hh .v.RH = 0 ; 
  1079.       } 
  1080.       break ; 
  1081.     case 2 : 
  1082.       {
  1083.         p = mem [(long) q + 2 ] .hh .v.LH ; 
  1084.         mem [(long) q + 2 ] .hh .v.LH = 0 ; 
  1085.       } 
  1086.       break ; 
  1087.     case 3 : 
  1088.       {
  1089.         p = mem [(long) q + 2 ] .hh .v.RH ; 
  1090.         mem [(long) q + 2 ] .hh .v.RH = 0 ; 
  1091.       } 
  1092.       break ; 
  1093.     } 
  1094.     flushnodelis ( mem [(long) q + 1 ] .hh .v.LH ) ; 
  1095.     flushnodelis ( mem [(long) q + 1 ] .hh .v.RH ) ; 
  1096.     flushnodelis ( mem [(long) q + 2 ] .hh .v.LH ) ; 
  1097.     flushnodelis ( mem [(long) q + 2 ] .hh .v.RH ) ; 
  1098.     mem [(long) q ] .hh.b0 = 14 ; 
  1099.     mem [(long) q ] .hh.b1 = curstyle ; 
  1100.     mem [(long) q + 1 ] .cint = 0 ; 
  1101.     mem [(long) q + 2 ] .cint = 0 ; 
  1102.     if ( p != 0 ) 
  1103.     {
  1104.       z = mem [(long) q ] .hh .v.RH ; 
  1105.       mem [(long) q ] .hh .v.RH = p ; 
  1106.       while ( mem [(long) p ] .hh .v.RH != 0 ) p = mem [(long) p ] .hh .v.RH ; 
  1107.       mem [(long) p ] .hh .v.RH = z ; 
  1108.     } 
  1109.     goto lab81 ; 
  1110.       } 
  1111.       break ; 
  1112.     case 3 : 
  1113.     case 4 : 
  1114.     case 5 : 
  1115.     case 8 : 
  1116.     case 12 : 
  1117.     case 7 : 
  1118.       goto lab81 ; 
  1119.       break ; 
  1120.     case 2 : 
  1121.       {
  1122.     if ( mem [(long) q + 3 ] .cint > maxh ) 
  1123.     maxh = mem [(long) q + 3 ] .cint ; 
  1124.     if ( mem [(long) q + 2 ] .cint > maxd ) 
  1125.     maxd = mem [(long) q + 2 ] .cint ; 
  1126.     goto lab81 ; 
  1127.       } 
  1128.       break ; 
  1129.     case 10 : 
  1130.       {
  1131.     if ( mem [(long) q ] .hh.b1 == 99 ) 
  1132.     {
  1133.       x = mem [(long) q + 1 ] .hh .v.LH ; 
  1134.       y = mathglue ( x , curmu ) ; 
  1135.       deletegluere ( x ) ; 
  1136.       mem [(long) q + 1 ] .hh .v.LH = y ; 
  1137.       mem [(long) q ] .hh.b1 = 0 ; 
  1138.     } 
  1139.     else if ( ( cursize != 0 ) && ( mem [(long) q ] .hh.b1 == 98 ) ) 
  1140.     {
  1141.       p = mem [(long) q ] .hh .v.RH ; 
  1142.       if ( p != 0 ) 
  1143.       if ( ( mem [(long) p ] .hh.b0 == 10 ) || ( mem [(long) p ] .hh.b0 == 11 ) ) 
  1144.       {
  1145.         mem [(long) q ] .hh .v.RH = mem [(long) p ] .hh .v.RH ; 
  1146.         mem [(long) p ] .hh .v.RH = 0 ; 
  1147.         flushnodelis ( p ) ; 
  1148.       } 
  1149.     } 
  1150.     goto lab81 ; 
  1151.       } 
  1152.       break ; 
  1153.     case 11 : 
  1154.       {
  1155.     mathkern ( q , curmu ) ; 
  1156.     goto lab81 ; 
  1157.       } 
  1158.       break ; 
  1159.     default : 
  1160.       confusion ( 742 ) ; 
  1161.       break ; 
  1162.     } 
  1163.     switch ( mem [(long) q + 1 ] .hh .v.RH ) 
  1164.     {case 1 : 
  1165.     case 4 : 
  1166.       {
  1167.     fetch ( q + 1 ) ; 
  1168.     if ( ( curi .b0 > 0 ) ) 
  1169.     {
  1170.       delta = fontinfo [ italicbase [ curf ] + ( curi .b2 ) / 4 ] .cint ; 
  1171.       p = newcharacter ( curf , curc ) ; 
  1172.       if ( ( mem [(long) q + 1 ] .hh .v.RH == 4 ) && ( fontinfo [ 2 + parambase 
  1173.       [ curf ] ] .cint != 0 ) ) 
  1174.       delta = 0 ; 
  1175.       if ( ( mem [(long) q + 3 ] .hh .v.RH == 0 ) && ( delta != 0 ) ) 
  1176.       {
  1177.         mem [(long) p ] .hh .v.RH = newkern ( delta ) ; 
  1178.         delta = 0 ; 
  1179.       } 
  1180.     } 
  1181.     else p = 0 ; 
  1182.       } 
  1183.       break ; 
  1184.     case 0 : 
  1185.       p = 0 ; 
  1186.       break ; 
  1187.     case 2 : 
  1188.       p = mem [(long) q + 1 ] .hh .v.LH ; 
  1189.       break ; 
  1190.     case 3 : 
  1191.       {
  1192.     curmlist = mem [(long) q + 1 ] .hh .v.LH ; 
  1193.     savestyle = curstyle ; 
  1194.     mlistpenalti = false ; 
  1195.     mlisttohlist () ; 
  1196.     curstyle = savestyle ; 
  1197.     {
  1198.       if ( curstyle < 4 ) 
  1199.       cursize = 0 ; 
  1200.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  1201.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] 
  1202.       .hh .v.RH ] ] .cint , 18 ) ; 
  1203.     } 
  1204.     p = hpack ( mem [(long) memtop - 3 ] .hh .v.RH , 0 , 1 ) ; 
  1205.       } 
  1206.       break ; 
  1207.     default : 
  1208.       confusion ( 743 ) ; 
  1209.       break ; 
  1210.     } 
  1211.     mem [(long) q + 1 ] .cint = p ; 
  1212.     if ( ( mem [(long) q + 3 ] .hh .v.RH == 0 ) && ( mem [(long) q + 2 ] .hh .v.RH == 0 ) 
  1213.     ) 
  1214.     goto lab82 ; 
  1215.     makescripts ( q , delta ) ; 
  1216.     lab82: z = hpack ( mem [(long) q + 1 ] .cint , 0 , 1 ) ; 
  1217.     if ( mem [(long) z + 3 ] .cint > maxh ) 
  1218.     maxh = mem [(long) z + 3 ] .cint ; 
  1219.     if ( mem [(long) z + 2 ] .cint > maxd ) 
  1220.     maxd = mem [(long) z + 2 ] .cint ; 
  1221.     freenode ( z , 7 ) ; 
  1222.     lab80: r = q ; 
  1223.     rtype = mem [(long) r ] .hh.b0 ; 
  1224.     lab81: q = mem [(long) q ] .hh .v.RH ; 
  1225.   } 
  1226.   if ( rtype == 18 ) 
  1227.   mem [(long) r ] .hh.b0 = 16 ; 
  1228.   p = memtop - 3 ; 
  1229.   mem [(long) p ] .hh .v.RH = 0 ; 
  1230.   q = mlist ; 
  1231.   rtype = 0 ; 
  1232.   curstyle = style ; 
  1233.   {
  1234.     if ( curstyle < 4 ) 
  1235.     cursize = 0 ; 
  1236.     else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  1237.     curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] .hh 
  1238.     .v.RH ] ] .cint , 18 ) ; 
  1239.   } 
  1240.   while ( q != 0 ) { 
  1241.     t = 16 ; 
  1242.     s = 4 ; 
  1243.     pen = 10000 ; 
  1244.     switch ( mem [(long) q ] .hh.b0 ) 
  1245.     {case 17 : 
  1246.     case 20 : 
  1247.     case 21 : 
  1248.     case 22 : 
  1249.     case 23 : 
  1250.       t = mem [(long) q ] .hh.b0 ; 
  1251.       break ; 
  1252.     case 18 : 
  1253.       {
  1254.     t = 18 ; 
  1255.     pen = eqtb [ 5276 ] .cint ; 
  1256.       } 
  1257.       break ; 
  1258.     case 19 : 
  1259.       {
  1260.     t = 19 ; 
  1261.     pen = eqtb [ 5277 ] .cint ; 
  1262.       } 
  1263.       break ; 
  1264.     case 16 : 
  1265.     case 29 : 
  1266.     case 27 : 
  1267.     case 26 : 
  1268.       ; 
  1269.       break ; 
  1270.     case 24 : 
  1271.       s = 5 ; 
  1272.       break ; 
  1273.     case 28 : 
  1274.       s = 5 ; 
  1275.       break ; 
  1276.     case 25 : 
  1277.       {
  1278.     t = 23 ; 
  1279.     s = 6 ; 
  1280.       } 
  1281.       break ; 
  1282.     case 30 : 
  1283.     case 31 : 
  1284.       t = makeleftrigh ( q , style , maxd , maxh ) ; 
  1285.       break ; 
  1286.     case 14 : 
  1287.       {
  1288.     curstyle = mem [(long) q ] .hh.b1 ; 
  1289.     s = 3 ; 
  1290.     {
  1291.       if ( curstyle < 4 ) 
  1292.       cursize = 0 ; 
  1293.       else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ; 
  1294.       curmu = xovern ( fontinfo [ 6 + parambase [ eqtb [ 4581 + cursize ] 
  1295.       .hh .v.RH ] ] .cint , 18 ) ; 
  1296.     } 
  1297.     goto lab83 ; 
  1298.       } 
  1299.       break ; 
  1300.     case 8 : 
  1301.     case 12 : 
  1302.     case 2 : 
  1303.     case 7 : 
  1304.     case 5 : 
  1305.     case 3 : 
  1306.     case 4 : 
  1307.     case 10 : 
  1308.     case 11 : 
  1309.       {
  1310.     mem [(long) p ] .hh .v.RH = q ; 
  1311.     p = q ; 
  1312.     q = mem [(long) q ] .hh .v.RH ; 
  1313.     mem [(long) p ] .hh .v.RH = 0 ; 
  1314.     goto lab30 ; 
  1315.       } 
  1316.       break ; 
  1317.     default : 
  1318.       confusion ( 744 ) ; 
  1319.       break ; 
  1320.     } 
  1321.     if ( rtype > 0 ) 
  1322.     {
  1323.       switch ( strpool [ rtype * 8 + t + magicoffset ] ) 
  1324.       {case 48 : 
  1325.     x = 0 ; 
  1326.     break ; 
  1327.       case 49 : 
  1328.     if ( curstyle < 4 ) 
  1329.     x = 15 ; 
  1330.     else x = 0 ; 
  1331.     break ; 
  1332.       case 50 : 
  1333.     x = 15 ; 
  1334.     break ; 
  1335.       case 51 : 
  1336.     if ( curstyle < 4 ) 
  1337.     x = 16 ; 
  1338.     else x = 0 ; 
  1339.     break ; 
  1340.       case 52 : 
  1341.     if ( curstyle < 4 ) 
  1342.     x = 17 ; 
  1343.     else x = 0 ; 
  1344.     break ; 
  1345.       default : 
  1346.     confusion ( 746 ) ; 
  1347.     break ; 
  1348.       } 
  1349.       if ( x != 0 ) 
  1350.       {
  1351.     y = mathglue ( eqtb [ 3526 + x ] .hh .v.RH , curmu ) ; 
  1352.     z = newglue ( y ) ; 
  1353.     mem [(long) y ] .hh .v.RH = 0 ; 
  1354.     mem [(long) p ] .hh .v.RH = z ; 
  1355.     p = z ; 
  1356.     mem [(long) z ] .hh.b1 = x + 1 ; 
  1357.       } 
  1358.     } 
  1359.     if ( mem [(long) q + 1 ] .cint != 0 ) 
  1360.     {
  1361.       mem [(long) p ] .hh .v.RH = mem [(long) q + 1 ] .cint ; 
  1362.       do { p = mem [(long) p ] .hh .v.RH ; 
  1363.       } while ( ! ( mem [(long) p ] .hh .v.RH == 0 ) ) ; 
  1364.     } 
  1365.     if ( penalties ) 
  1366.     if ( mem [(long) q ] .hh .v.RH != 0 ) 
  1367.     if ( pen < 10000 ) 
  1368.     {
  1369.       rtype = mem [(long) mem [(long) q ] .hh .v.RH ] .hh.b0 ; 
  1370.       if ( rtype != 12 ) 
  1371.       if ( rtype != 19 ) 
  1372.       {
  1373.     z = newpenalty ( pen ) ; 
  1374.     mem [(long) p ] .hh .v.RH = z ; 
  1375.     p = z ; 
  1376.       } 
  1377.     } 
  1378.     rtype = t ; 
  1379.     lab83: r = q ; 
  1380.     q = mem [(long) q ] .hh .v.RH ; 
  1381.     freenode ( r , s ) ; 
  1382.     lab30: ; 
  1383.   } 
  1384. } 
  1385. pushalignmen () { r_pushalignmen 
  1386.   halfword p ; 
  1387.   p = getnode ( 5 ) ; 
  1388.   mem [(long) p ] .hh .v.RH = alignptr ; 
  1389.   mem [(long) p ] .hh .v.LH = curalign ; 
  1390.   mem [(long) p + 1 ] .hh .v.LH = mem [(long) memtop - 8 ] .hh .v.RH ; 
  1391.   mem [(long) p + 1 ] .hh .v.RH = curspan ; 
  1392.   mem [(long) p + 2 ] .cint = curloop ; 
  1393.   mem [(long) p + 3 ] .cint = alignstate ; 
  1394.   mem [(long) p + 4 ] .hh .v.LH = curhead ; 
  1395.   mem [(long) p + 4 ] .hh .v.RH = curtail ; 
  1396.   alignptr = p ; 
  1397.   curhead = getavail () ; 
  1398. } 
  1399. popalignment () { r_popalignment 
  1400.   halfword p ; 
  1401.   {
  1402.     mem [(long) curhead ] .hh .v.RH = avail ; 
  1403.     avail = curhead ; 
  1404.  
  1405. #ifdef STAT
  1406.     decr ( dynused ) ; 
  1407. #endif /* STAT */
  1408.   } 
  1409.   p = alignptr ; 
  1410.   curtail = mem [(long) p + 4 ] .hh .v.RH ; 
  1411.   curhead = mem [(long) p + 4 ] .hh .v.LH ; 
  1412.   alignstate = mem [(long) p + 3 ] .cint ; 
  1413.   curloop = mem [(long) p + 2 ] .cint ; 
  1414.   curspan = mem [(long) p + 1 ] .hh .v.RH ; 
  1415.   mem [(long) memtop - 8 ] .hh .v.RH = mem [(long) p + 1 ] .hh .v.LH ; 
  1416.   curalign = mem [(long) p ] .hh .v.LH ; 
  1417.   alignptr = mem [(long) p ] .hh .v.RH ; 
  1418.   freenode ( p , 5 ) ; 
  1419. } 
  1420. getpreamblet () { /* 20 */ r_getpreamblet 
  1421.   lab20: gettoken () ; 
  1422.   while ( ( curchr == 128 ) && ( curcmd == 4 ) ) { 
  1423.     gettoken () ; 
  1424.     if ( curcmd > 99 ) 
  1425.     {
  1426.       expand () ; 
  1427.       gettoken () ; 
  1428.     } 
  1429.   } 
  1430.   if ( ( curcmd == 74 ) && ( curchr == 3537 ) ) 
  1431.   {
  1432.     scanoptional () ; 
  1433.     scanglue ( 2 ) ; 
  1434.     if ( eqtb [ 5310 ] .cint > 0 ) 
  1435.     geqdefine ( 3537 , 116 , curval ) ; 
  1436.     else eqdefine ( 3537 , 116 , curval ) ; 
  1437.     goto lab20 ; 
  1438.   } 
  1439. } 
  1440. initalign () { /* 30 31 32 22 */ r_initalign 
  1441.   halfword savecsptr ; 
  1442.   halfword p ; 
  1443.   savecsptr = curcs ; 
  1444.   pushalignmen () ; 
  1445.   alignstate = - 1000000 ; 
  1446.   if ( ( curlist .modefield == 201 ) && ( ( curlist .tailfield != curlist 
  1447.   .headfield ) || ( curlist .auxfield != 0 ) ) ) 
  1448.   {
  1449.     {
  1450.       if ( interaction == 3 ) 
  1451.       wakeuptermin () ; 
  1452.       printnl ( 133 ) ; 
  1453.       print ( 536 ) ; 
  1454.     } 
  1455.     printesc ( 379 ) ; 
  1456.     print ( 747 ) ; 
  1457.     {
  1458.       helpptr = 3 ; 
  1459.       helpline [ 2 ] = 748 ; 
  1460.       helpline [ 1 ] = 749 ; 
  1461.       helpline [ 0 ] = 750 ; 
  1462.     } 
  1463.     error () ; 
  1464.     flushmath () ; 
  1465.   } 
  1466.   pushnest () ; 
  1467.   if ( curlist .modefield == 201 ) 
  1468.   {
  1469.     curlist .modefield = - 1 ; 
  1470.     curlist .auxfield = nest [ nestptr - 2 ] .auxfield ; 
  1471.   } 
  1472.   else if ( curlist .modefield > 0 ) 
  1473.   curlist .modefield = - curlist .modefield ; 
  1474.   scanspec () ; 
  1475.   newsavelevel ( 6 ) ; 
  1476.   mem [(long) memtop - 8 ] .hh .v.RH = 0 ; 
  1477.   curalign = memtop - 8 ; 
  1478.   curloop = 0 ; 
  1479.   scannerstatu = 4 ; 
  1480.   warningindex = savecsptr ; 
  1481.   alignstate = - 1000000 ; 
  1482.   while ( true ) { 
  1483.     mem [(long) curalign ] .hh .v.RH = newparamglue ( 11 ) ; 
  1484.     curalign = mem [(long) curalign ] .hh .v.RH ; 
  1485.     if ( curcmd == 5 ) 
  1486.     goto lab30 ; 
  1487.     p = memtop - 4 ; 
  1488.     mem [(long) p ] .hh .v.RH = 0 ; 
  1489.     while ( true ) { 
  1490.       getpreamblet () ; 
  1491.       if ( curcmd == 6 ) 
  1492.       goto lab31 ; 
  1493.       if ( ( curcmd <= 5 ) && ( curcmd >= 4 ) && ( alignstate == - 1000000 ) ) 
  1494.       if ( ( p == memtop - 4 ) && ( curloop == 0 ) && ( curcmd == 4 ) ) 
  1495.       curloop = curalign ; 
  1496.       else { 
  1497.     {
  1498.       if ( interaction == 3 ) 
  1499.       wakeuptermin () ; 
  1500.       printnl ( 133 ) ; 
  1501.       print ( 756 ) ; 
  1502.     } 
  1503.     {
  1504.       helpptr = 3 ; 
  1505.       helpline [ 2 ] = 757 ; 
  1506.       helpline [ 1 ] = 758 ; 
  1507.       helpline [ 0 ] = 759 ; 
  1508.     } 
  1509.     backerror () ; 
  1510.     goto lab31 ; 
  1511.       } 
  1512.       else if ( ( curcmd != 10 ) || ( p != memtop - 4 ) ) 
  1513.       {
  1514.     mem [(long) p ] .hh .v.RH = getavail () ; 
  1515.     p = mem [(long) p ] .hh .v.RH ; 
  1516.     mem [(long) p ] .hh .v.LH = curtok ; 
  1517.       } 
  1518.     } 
  1519.     lab31: ; 
  1520.     mem [(long) curalign ] .hh .v.RH = newnullbox () ; 
  1521.     curalign = mem [(long) curalign ] .hh .v.RH ; 
  1522.     mem [(long) curalign ] .hh .v.LH = memtop - 9 ; 
  1523.     mem [(long) curalign + 1 ] .cint = - 1073741824 ; 
  1524.     mem [(long) curalign + 3 ] .cint = mem [(long) memtop - 4 ] .hh .v.RH ; 
  1525.     p = memtop - 4 ; 
  1526.     mem [(long) p ] .hh .v.RH = 0 ; 
  1527.     while ( true ) { 
  1528.       lab22: getpreamblet () ; 
  1529.       if ( ( curcmd <= 5 ) && ( curcmd >= 4 ) && ( alignstate == - 1000000 ) ) 
  1530.       goto lab32 ; 
  1531.       if ( curcmd == 6 ) 
  1532.       {
  1533.     {
  1534.       if ( interaction == 3 ) 
  1535.       wakeuptermin () ; 
  1536.       printnl ( 133 ) ; 
  1537.       print ( 760 ) ; 
  1538.     } 
  1539.     {
  1540.       helpptr = 3 ; 
  1541.       helpline [ 2 ] = 757 ; 
  1542.       helpline [ 1 ] = 758 ; 
  1543.       helpline [ 0 ] = 761 ; 
  1544.     } 
  1545.     error () ; 
  1546.     goto lab22 ; 
  1547.       } 
  1548.       mem [(long) p ] .hh .v.RH = getavail () ; 
  1549.       p = mem [(long) p ] .hh .v.RH ; 
  1550.       mem [(long) p ] .hh .v.LH = curtok ; 
  1551.     } 
  1552.     lab32: mem [(long) p ] .hh .v.RH = getavail () ; 
  1553.     p = mem [(long) p ] .hh .v.RH ; 
  1554.     mem [(long) p ] .hh .v.LH = 7359 ; 
  1555.     mem [(long) curalign + 2 ] .cint = mem [(long) memtop - 4 ] .hh .v.RH ; 
  1556.   } 
  1557.   lab30: scannerstatu = 0 ; 
  1558.   newsavelevel ( 6 ) ; 
  1559.   if ( eqtb [ 4064 ] .hh .v.RH != 0 ) 
  1560.   begintokenli ( eqtb [ 4064 ] .hh .v.RH , 13 ) ; 
  1561.   alignpeek () ; 
  1562. } 
  1563. zinitspan ( p ) 
  1564. halfword p ; 
  1565. {r_initspan 
  1566.   pushnest () ; 
  1567.   if ( curlist .modefield == - 101 ) 
  1568.   curlist .auxfield = 1000 ; 
  1569.   else { 
  1570.     curlist .auxfield = - 65536000 ; 
  1571.     normalparagr () ; 
  1572.   } 
  1573.   curspan = p ; 
  1574. } 
  1575. initrow () { r_initrow 
  1576.   pushnest () ; 
  1577.   curlist .modefield = ( - 102 ) - curlist .modefield ; 
  1578.   curlist .auxfield = 0 ; 
  1579.   {
  1580.     mem [(long) curlist .tailfield ] .hh .v.RH = newglue ( mem [(long) mem [(long) memtop - 8 ] 
  1581.     .hh .v.RH + 1 ] .hh .v.LH ) ; 
  1582.     curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  1583.   } 
  1584.   mem [(long) curlist .tailfield ] .hh.b1 = 12 ; 
  1585.   curalign = mem [(long) mem [(long) memtop - 8 ] .hh .v.RH ] .hh .v.RH ; 
  1586.   curtail = curhead ; 
  1587.   initspan ( curalign ) ; 
  1588. } 
  1589. initcol () { r_initcol 
  1590.   mem [(long) curalign + 5 ] .hh .v.LH = curcmd ; 
  1591.   if ( curcmd == 63 ) 
  1592.   alignstate = 0 ; 
  1593.   else { 
  1594.     backinput () ; 
  1595.     begintokenli ( mem [(long) curalign + 3 ] .cint , 1 ) ; 
  1596.   } 
  1597. } 
  1598. boolean fincol () { /* 10 */ register boolean Result; r_fincol 
  1599.   halfword p ; 
  1600.   halfword q, r ; 
  1601.   halfword s ; 
  1602.   halfword u ; 
  1603.   scaled w ; 
  1604.   glueord o ; 
  1605.   halfword n ; 
  1606.   q = mem [(long) curalign ] .hh .v.RH ; 
  1607.   if ( ( curalign == 0 ) || ( q == 0 ) ) 
  1608.   confusion ( 763 ) ; 
  1609.   p = mem [(long) q ] .hh .v.RH ; 
  1610.   if ( ( p == 0 ) && ( mem [(long) curalign + 5 ] .hh .v.LH < 129 ) ) 
  1611.   if ( curloop != 0 ) 
  1612.   {
  1613.     mem [(long) q ] .hh .v.RH = newnullbox () ; 
  1614.     p = mem [(long) q ] .hh .v.RH ; 
  1615.     mem [(long) p ] .hh .v.LH = memtop - 9 ; 
  1616.     mem [(long) p + 1 ] .cint = - 1073741824 ; 
  1617.     curloop = mem [(long) curloop ] .hh .v.RH ; 
  1618.     q = memtop - 4 ; 
  1619.     r = mem [(long) curloop + 3 ] .cint ; 
  1620.     while ( r != 0 ) { 
  1621.       mem [(long) q ] .hh .v.RH = getavail () ; 
  1622.       q = mem [(long) q ] .hh .v.RH ; 
  1623.       mem [(long) q ] .hh .v.LH = mem [(long) r ] .hh .v.LH ; 
  1624.       r = mem [(long) r ] .hh .v.RH ; 
  1625.     } 
  1626.     mem [(long) q ] .hh .v.RH = 0 ; 
  1627.     mem [(long) p + 3 ] .cint = mem [(long) memtop - 4 ] .hh .v.RH ; 
  1628.     q = memtop - 4 ; 
  1629.     r = mem [(long) curloop + 2 ] .cint ; 
  1630.     while ( r != 0 ) { 
  1631.       mem [(long) q ] .hh .v.RH = getavail () ; 
  1632.       q = mem [(long) q ] .hh .v.RH ; 
  1633.       mem [(long) q ] .hh .v.LH = mem [(long) r ] .hh .v.LH ; 
  1634.       r = mem [(long) r ] .hh .v.RH ; 
  1635.     } 
  1636.     mem [(long) q ] .hh .v.RH = 0 ; 
  1637.     mem [(long) p + 2 ] .cint = mem [(long) memtop - 4 ] .hh .v.RH ; 
  1638.     curloop = mem [(long) curloop ] .hh .v.RH ; 
  1639.     mem [(long) p ] .hh .v.RH = newglue ( mem [(long) curloop + 1 ] .hh .v.LH ) ; 
  1640.   } 
  1641.   else { 
  1642.     {
  1643.       if ( interaction == 3 ) 
  1644.       wakeuptermin () ; 
  1645.       printnl ( 133 ) ; 
  1646.       print ( 764 ) ; 
  1647.     } 
  1648.     printesc ( 752 ) ; 
  1649.     {
  1650.       helpptr = 3 ; 
  1651.       helpline [ 2 ] = 765 ; 
  1652.       helpline [ 1 ] = 766 ; 
  1653.       helpline [ 0 ] = 767 ; 
  1654.     } 
  1655.     mem [(long) curalign + 5 ] .hh .v.LH = 129 ; 
  1656.     error () ; 
  1657.   } 
  1658.   if ( mem [(long) curalign + 5 ] .hh .v.LH != 128 ) 
  1659.   {
  1660.     unsave () ; 
  1661.     newsavelevel ( 6 ) ; 
  1662.     {
  1663.       if ( curlist .modefield == - 101 ) 
  1664.       {
  1665.     adjusttail = curtail ; 
  1666.     u = hpack ( mem [(long) curlist .headfield ] .hh .v.RH , 0 , 1 ) ; 
  1667.     w = mem [(long) u + 1 ] .cint ; 
  1668.     curtail = adjusttail ; 
  1669.     adjusttail = 0 ; 
  1670.       } 
  1671.       else { 
  1672.     u = vpackage ( mem [(long) curlist .headfield ] .hh .v.RH , 0 , 1 , 0 ) ; 
  1673.     w = mem [(long) u + 3 ] .cint ; 
  1674.       } 
  1675.       n = 0 ; 
  1676.       if ( curspan != curalign ) 
  1677.       {
  1678.     q = curspan ; 
  1679.     do { incr ( n ) ; 
  1680.       q = mem [(long) mem [(long) q ] .hh .v.RH ] .hh .v.RH ; 
  1681.     } while ( ! ( q == curalign ) ) ; 
  1682.     if ( n > 255 ) 
  1683.     confusion ( 768 ) ; 
  1684.     q = curspan ; 
  1685.     while ( mem [(long) mem [(long) q ] .hh .v.LH ] .hh .v.RH < n ) q = mem [(long) q ] .hh 
  1686.     .v.LH ; 
  1687.     if ( mem [(long) mem [(long) q ] .hh .v.LH ] .hh .v.RH > n ) 
  1688.     {
  1689.       s = getnode ( 2 ) ; 
  1690.       mem [(long) s ] .hh .v.LH = mem [(long) q ] .hh .v.LH ; 
  1691.       mem [(long) s ] .hh .v.RH = n ; 
  1692.       mem [(long) q ] .hh .v.LH = s ; 
  1693.       mem [(long) s + 1 ] .cint = w ; 
  1694.     } 
  1695.     else if ( mem [(long) mem [(long) q ] .hh .v.LH + 1 ] .cint < w ) 
  1696.     mem [(long) mem [(long) q ] .hh .v.LH + 1 ] .cint = w ; 
  1697.       } 
  1698.       else if ( w > mem [(long) curalign + 1 ] .cint ) 
  1699.       mem [(long) curalign + 1 ] .cint = w ; 
  1700.       mem [(long) u ] .hh.b0 = 13 ; 
  1701.       mem [(long) u ] .hh.b1 = n ; 
  1702.       if ( totalstretch [ 3 ] != 0 ) 
  1703.       o = 3 ; 
  1704.       else if ( totalstretch [ 2 ] != 0 ) 
  1705.       o = 2 ; 
  1706.       else if ( totalstretch [ 1 ] != 0 ) 
  1707.       o = 1 ; 
  1708.       else o = 0 ; 
  1709.       mem [(long) u + 5 ] .hh.b1 = o ; 
  1710.       mem [(long) u + 6 ] .cint = totalstretch [ o ] ; 
  1711.       if ( totalshrink [ 3 ] != 0 ) 
  1712.       o = 3 ; 
  1713.       else if ( totalshrink [ 2 ] != 0 ) 
  1714.       o = 2 ; 
  1715.       else if ( totalshrink [ 1 ] != 0 ) 
  1716.       o = 1 ; 
  1717.       else o = 0 ; 
  1718.       mem [(long) u + 5 ] .hh.b0 = o ; 
  1719.       mem [(long) u + 4 ] .cint = totalshrink [ o ] ; 
  1720.       popnest () ; 
  1721.       mem [(long) curlist .tailfield ] .hh .v.RH = u ; 
  1722.       curlist .tailfield = u ; 
  1723.     } 
  1724.     {
  1725.       mem [(long) curlist .tailfield ] .hh .v.RH = newglue ( mem [(long) mem [(long) curalign ] 
  1726.       .hh .v.RH + 1 ] .hh .v.LH ) ; 
  1727.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  1728.     } 
  1729.     mem [(long) curlist .tailfield ] .hh.b1 = 12 ; 
  1730.     if ( mem [(long) curalign + 5 ] .hh .v.LH >= 129 ) 
  1731.     {
  1732.       Result = true ; 
  1733.       return(Result) ; 
  1734.     } 
  1735.     initspan ( p ) ; 
  1736.   } 
  1737.   alignstate = 1000000 ; 
  1738.   do { getxtoken () ; 
  1739.   } while ( ! ( curcmd != 10 ) ) ; 
  1740.   curalign = p ; 
  1741.   initcol () ; 
  1742.   Result = false ; 
  1743.   return(Result) ; 
  1744. } 
  1745. finrow () { r_finrow 
  1746.   halfword p ; 
  1747.   if ( curlist .modefield == - 101 ) 
  1748.   {
  1749.     p = hpack ( mem [(long) curlist .headfield ] .hh .v.RH , 0 , 1 ) ; 
  1750.     popnest () ; 
  1751.     appendtovlis ( p ) ; 
  1752.     if ( curhead != curtail ) 
  1753.     {
  1754.       mem [(long) curlist .tailfield ] .hh .v.RH = mem [(long) curhead ] .hh .v.RH ; 
  1755.       curlist .tailfield = curtail ; 
  1756.     } 
  1757.   } 
  1758.   else { 
  1759.     p = vpackage ( mem [(long) curlist .headfield ] .hh .v.RH , 0 , 1 , 1073741823 ) 
  1760.     ; 
  1761.     popnest () ; 
  1762.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  1763.     curlist .tailfield = p ; 
  1764.     curlist .auxfield = 1000 ; 
  1765.   } 
  1766.   mem [(long) p ] .hh.b0 = 13 ; 
  1767.   mem [(long) p + 6 ] .cint = 0 ; 
  1768.   if ( eqtb [ 4064 ] .hh .v.RH != 0 ) 
  1769.   begintokenli ( eqtb [ 4064 ] .hh .v.RH , 13 ) ; 
  1770.   alignpeek () ; 
  1771. } 
  1772. finalign () { r_finalign 
  1773.   halfword p, q, r, s, u, v ; 
  1774.   scaled t, w ; 
  1775.   scaled o ; 
  1776.   halfword n ; 
  1777.   scaled rulesave ; 
  1778.   if ( curgroup != 6 ) 
  1779.   confusion ( 769 ) ; 
  1780.   unsave () ; 
  1781.   if ( curgroup != 6 ) 
  1782.   confusion ( 770 ) ; 
  1783.   unsave () ; 
  1784.   if ( nest [ nestptr - 1 ] .modefield == 201 ) 
  1785.   o = eqtb [ 5716 ] .cint ; 
  1786.   else o = 0 ; 
  1787.   q = mem [(long) mem [(long) memtop - 8 ] .hh .v.RH ] .hh .v.RH ; 
  1788.   do { flushlist ( mem [(long) q + 3 ] .cint ) ; 
  1789.     flushlist ( mem [(long) q + 2 ] .cint ) ; 
  1790.     p = mem [(long) mem [(long) q ] .hh .v.RH ] .hh .v.RH ; 
  1791.     if ( mem [(long) q + 1 ] .cint == - 1073741824 ) 
  1792.     {
  1793.       mem [(long) q + 1 ] .cint = 0 ; 
  1794.       r = mem [(long) q ] .hh .v.RH ; 
  1795.       s = mem [(long) r + 1 ] .hh .v.LH ; 
  1796.       if ( s != 0 ) 
  1797.       {
  1798.     incr ( mem [(long) 0 ] .hh .v.RH ) ; 
  1799.     deletegluere ( s ) ; 
  1800.     mem [(long) r + 1 ] .hh .v.LH = 0 ; 
  1801.       } 
  1802.     } 
  1803.     if ( mem [(long) q ] .hh .v.LH != memtop - 9 ) 
  1804.     {
  1805.       t = mem [(long) q + 1 ] .cint + mem [(long) mem [(long) mem [(long) q ] .hh .v.RH + 1 ] .hh 
  1806.       .v.LH + 1 ] .cint ; 
  1807.       r = mem [(long) q ] .hh .v.LH ; 
  1808.       s = memtop - 9 ; 
  1809.       mem [(long) s ] .hh .v.LH = p ; 
  1810.       n = 1 ; 
  1811.       do { mem [(long) r + 1 ] .cint = mem [(long) r + 1 ] .cint - t ; 
  1812.     u = mem [(long) r ] .hh .v.LH ; 
  1813.     while ( mem [(long) r ] .hh .v.RH > n ) { 
  1814.       s = mem [(long) s ] .hh .v.LH ; 
  1815.       n = mem [(long) mem [(long) s ] .hh .v.LH ] .hh .v.RH + 1 ; 
  1816.     } 
  1817.     if ( mem [(long) r ] .hh .v.RH < n ) 
  1818.     {
  1819.       mem [(long) r ] .hh .v.LH = mem [(long) s ] .hh .v.LH ; 
  1820.       mem [(long) s ] .hh .v.LH = r ; 
  1821.       decr ( mem [(long) r ] .hh .v.RH ) ; 
  1822.       s = r ; 
  1823.     } 
  1824.     else { 
  1825.       if ( mem [(long) r + 1 ] .cint > mem [(long) mem [(long) s ] .hh .v.LH + 1 ] .cint ) 
  1826.       mem [(long) mem [(long) s ] .hh .v.LH + 1 ] .cint = mem [(long) r + 1 ] .cint ; 
  1827.       freenode ( r , 2 ) ; 
  1828.     } 
  1829.     r = u ; 
  1830.       } while ( ! ( r == memtop - 9 ) ) ; 
  1831.     } 
  1832.     mem [(long) q ] .hh.b0 = 13 ; 
  1833.     mem [(long) q ] .hh.b1 = 0 ; 
  1834.     mem [(long) q + 3 ] .cint = 0 ; 
  1835.     mem [(long) q + 2 ] .cint = 0 ; 
  1836.     mem [(long) q + 5 ] .hh.b1 = 0 ; 
  1837.     mem [(long) q + 5 ] .hh.b0 = 0 ; 
  1838.     mem [(long) q + 6 ] .cint = 0 ; 
  1839.     mem [(long) q + 4 ] .cint = 0 ; 
  1840.     q = p ; 
  1841.   } while ( ! ( q == 0 ) ) ; 
  1842.   saveptr = saveptr - 2 ; 
  1843.   packbeginlin = - curlist .mlfield ; 
  1844.   if ( curlist .modefield == - 1 ) 
  1845.   {
  1846.     rulesave = eqtb [ 5717 ] .cint ; 
  1847.     eqtb [ 5717 ] .cint = 0 ; 
  1848.     p = hpack ( mem [(long) memtop - 8 ] .hh .v.RH , savestack [ saveptr + 1 ] .cint 
  1849.     , savestack [ saveptr + 0 ] .cint ) ; 
  1850.     eqtb [ 5717 ] .cint = rulesave ; 
  1851.   } 
  1852.   else { 
  1853.     q = mem [(long) mem [(long) memtop - 8 ] .hh .v.RH ] .hh .v.RH ; 
  1854.     do { mem [(long) q + 3 ] .cint = mem [(long) q + 1 ] .cint ; 
  1855.       mem [(long) q + 1 ] .cint = 0 ; 
  1856.       q = mem [(long) mem [(long) q ] .hh .v.RH ] .hh .v.RH ; 
  1857.     } while ( ! ( q == 0 ) ) ; 
  1858.     p = vpackage ( mem [(long) memtop - 8 ] .hh .v.RH , savestack [ saveptr + 1 ] 
  1859.     .cint , savestack [ saveptr + 0 ] .cint , 1073741823 ) ; 
  1860.     q = mem [(long) mem [(long) memtop - 8 ] .hh .v.RH ] .hh .v.RH ; 
  1861.     do { mem [(long) q + 1 ] .cint = mem [(long) q + 3 ] .cint ; 
  1862.       mem [(long) q + 3 ] .cint = 0 ; 
  1863.       q = mem [(long) mem [(long) q ] .hh .v.RH ] .hh .v.RH ; 
  1864.     } while ( ! ( q == 0 ) ) ; 
  1865.   } 
  1866.   packbeginlin = 0 ; 
  1867.   q = mem [(long) curlist .headfield ] .hh .v.RH ; 
  1868.   s = curlist .headfield ; 
  1869.   while ( q != 0 ) { 
  1870.     if ( mem [(long) q ] .hh.b0 == 13 ) 
  1871.     {
  1872.       if ( curlist .modefield == - 1 ) 
  1873.       {
  1874.     mem [(long) q ] .hh.b0 = 0 ; 
  1875.     mem [(long) q + 1 ] .cint = mem [(long) p + 1 ] .cint ; 
  1876.       } 
  1877.       else { 
  1878.     mem [(long) q ] .hh.b0 = 1 ; 
  1879.     mem [(long) q + 3 ] .cint = mem [(long) p + 3 ] .cint ; 
  1880.       } 
  1881.       mem [(long) q + 5 ] .hh.b1 = mem [(long) p + 5 ] .hh.b1 ; 
  1882.       mem [(long) q + 5 ] .hh.b0 = mem [(long) p + 5 ] .hh.b0 ; 
  1883.       mem [(long) q + 6 ] .gr = mem [(long) p + 6 ] .gr ; 
  1884.       mem [(long) q + 4 ] .cint = o ; 
  1885.       r = mem [(long) mem [(long) q + 5 ] .hh .v.RH ] .hh .v.RH ; 
  1886.       s = mem [(long) mem [(long) p + 5 ] .hh .v.RH ] .hh .v.RH ; 
  1887.       do { n = mem [(long) r ] .hh.b1 ; 
  1888.     t = mem [(long) s + 1 ] .cint ; 
  1889.     w = t ; 
  1890.     u = memtop - 4 ; 
  1891.     while ( n > 0 ) { 
  1892.       decr ( n ) ; 
  1893.       s = mem [(long) s ] .hh .v.RH ; 
  1894.       v = mem [(long) s + 1 ] .hh .v.LH ; 
  1895.       mem [(long) u ] .hh .v.RH = newglue ( v ) ; 
  1896.       u = mem [(long) u ] .hh .v.RH ; 
  1897.       mem [(long) u ] .hh.b1 = 12 ; 
  1898.       t = t + mem [(long) v + 1 ] .cint ; 
  1899.       if ( mem [(long) p + 5 ] .hh.b0 == 1 ) 
  1900.       {
  1901.         if ( mem [(long) v ] .hh.b0 == mem [(long) p + 5 ] .hh.b1 ) 
  1902.         t = t + round ( mem [(long) p + 6 ] .gr * mem [(long) v + 2 ] .cint ) ; 
  1903.       } 
  1904.       else if ( mem [(long) p + 5 ] .hh.b0 == 2 ) 
  1905.       {
  1906.         if ( mem [(long) v ] .hh.b1 == mem [(long) p + 5 ] .hh.b1 ) 
  1907.         t = t - round ( mem [(long) p + 6 ] .gr * mem [(long) v + 3 ] .cint ) ; 
  1908.       } 
  1909.       s = mem [(long) s ] .hh .v.RH ; 
  1910.       mem [(long) u ] .hh .v.RH = newnullbox () ; 
  1911.       u = mem [(long) u ] .hh .v.RH ; 
  1912.       t = t + mem [(long) s + 1 ] .cint ; 
  1913.       if ( curlist .modefield == - 1 ) 
  1914.       mem [(long) u + 1 ] .cint = mem [(long) s + 1 ] .cint ; 
  1915.       else { 
  1916.         mem [(long) u ] .hh.b0 = 1 ; 
  1917.         mem [(long) u + 3 ] .cint = mem [(long) s + 1 ] .cint ; 
  1918.       } 
  1919.     } 
  1920.     if ( curlist .modefield == - 1 ) 
  1921.     {
  1922.       mem [(long) r + 3 ] .cint = mem [(long) q + 3 ] .cint ; 
  1923.       mem [(long) r + 2 ] .cint = mem [(long) q + 2 ] .cint ; 
  1924.       if ( t == mem [(long) r + 1 ] .cint ) 
  1925.       {
  1926.         mem [(long) r + 5 ] .hh.b0 = 0 ; 
  1927.         mem [(long) r + 5 ] .hh.b1 = 0 ; 
  1928.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1929.       } 
  1930.       else if ( t > mem [(long) r + 1 ] .cint ) 
  1931.       {
  1932.         mem [(long) r + 5 ] .hh.b0 = 1 ; 
  1933.         if ( mem [(long) r + 6 ] .cint == 0 ) 
  1934.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1935.         else mem [(long) r + 6 ] .gr = ( t - mem [(long) r + 1 ] .cint ) / ((double) 
  1936.         mem [(long) r + 6 ] .cint ) ; 
  1937.       } 
  1938.       else { 
  1939.         mem [(long) r + 5 ] .hh.b1 = mem [(long) r + 5 ] .hh.b0 ; 
  1940.         mem [(long) r + 5 ] .hh.b0 = 2 ; 
  1941.         if ( mem [(long) r + 4 ] .cint == 0 ) 
  1942.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1943.         else if ( ( mem [(long) r + 5 ] .hh.b1 == 0 ) && ( mem [(long) r + 1 ] .cint - 
  1944.         t > mem [(long) r + 4 ] .cint ) ) 
  1945.         mem [(long) r + 6 ] .gr = 1.0 ; 
  1946.         else mem [(long) r + 6 ] .gr = ( mem [(long) r + 1 ] .cint - t ) / ((double) 
  1947.         mem [(long) r + 4 ] .cint ) ; 
  1948.       } 
  1949.       mem [(long) r + 1 ] .cint = w ; 
  1950.       mem [(long) r ] .hh.b0 = 0 ; 
  1951.     } 
  1952.     else { 
  1953.       mem [(long) r + 1 ] .cint = mem [(long) q + 1 ] .cint ; 
  1954.       if ( t == mem [(long) r + 3 ] .cint ) 
  1955.       {
  1956.         mem [(long) r + 5 ] .hh.b0 = 0 ; 
  1957.         mem [(long) r + 5 ] .hh.b1 = 0 ; 
  1958.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1959.       } 
  1960.       else if ( t > mem [(long) r + 3 ] .cint ) 
  1961.       {
  1962.         mem [(long) r + 5 ] .hh.b0 = 1 ; 
  1963.         if ( mem [(long) r + 6 ] .cint == 0 ) 
  1964.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1965.         else mem [(long) r + 6 ] .gr = ( t - mem [(long) r + 3 ] .cint ) / ((double) 
  1966.         mem [(long) r + 6 ] .cint ) ; 
  1967.       } 
  1968.       else { 
  1969.         mem [(long) r + 5 ] .hh.b1 = mem [(long) r + 5 ] .hh.b0 ; 
  1970.         mem [(long) r + 5 ] .hh.b0 = 2 ; 
  1971.         if ( mem [(long) r + 4 ] .cint == 0 ) 
  1972.         mem [(long) r + 6 ] .gr = 0.0 ; 
  1973.         else if ( ( mem [(long) r + 5 ] .hh.b1 == 0 ) && ( mem [(long) r + 3 ] .cint - 
  1974.         t > mem [(long) r + 4 ] .cint ) ) 
  1975.         mem [(long) r + 6 ] .gr = 1.0 ; 
  1976.         else mem [(long) r + 6 ] .gr = ( mem [(long) r + 3 ] .cint - t ) / ((double) 
  1977.         mem [(long) r + 4 ] .cint ) ; 
  1978.       } 
  1979.       mem [(long) r + 3 ] .cint = w ; 
  1980.       mem [(long) r ] .hh.b0 = 1 ; 
  1981.     } 
  1982.     mem [(long) r + 4 ] .cint = 0 ; 
  1983.     if ( u != memtop - 4 ) 
  1984.     {
  1985.       mem [(long) u ] .hh .v.RH = mem [(long) r ] .hh .v.RH ; 
  1986.       mem [(long) r ] .hh .v.RH = mem [(long) memtop - 4 ] .hh .v.RH ; 
  1987.       r = u ; 
  1988.     } 
  1989.     r = mem [(long) mem [(long) r ] .hh .v.RH ] .hh .v.RH ; 
  1990.     s = mem [(long) mem [(long) s ] .hh .v.RH ] .hh .v.RH ; 
  1991.       } while ( ! ( r == 0 ) ) ; 
  1992.     } 
  1993.     else if ( mem [(long) q ] .hh.b0 == 2 ) 
  1994.     {
  1995.       if ( ( mem [(long) q + 1 ] .cint == - 1073741824 ) ) 
  1996.       mem [(long) q + 1 ] .cint = mem [(long) p + 1 ] .cint ; 
  1997.       if ( ( mem [(long) q + 3 ] .cint == - 1073741824 ) ) 
  1998.       mem [(long) q + 3 ] .cint = mem [(long) p + 3 ] .cint ; 
  1999.       if ( ( mem [(long) q + 2 ] .cint == - 1073741824 ) ) 
  2000.       mem [(long) q + 2 ] .cint = mem [(long) p + 2 ] .cint ; 
  2001.       if ( o != 0 ) 
  2002.       {
  2003.     r = mem [(long) q ] .hh .v.RH ; 
  2004.     mem [(long) q ] .hh .v.RH = 0 ; 
  2005.     q = hpack ( q , 0 , 1 ) ; 
  2006.     mem [(long) q + 4 ] .cint = o ; 
  2007.     mem [(long) q ] .hh .v.RH = r ; 
  2008.     mem [(long) s ] .hh .v.RH = q ; 
  2009.       } 
  2010.     } 
  2011.     s = q ; 
  2012.     q = mem [(long) q ] .hh .v.RH ; 
  2013.   } 
  2014.   flushnodelis ( p ) ; 
  2015.   popalignment () ; 
  2016.   t = curlist .auxfield ; 
  2017.   p = mem [(long) curlist .headfield ] .hh .v.RH ; 
  2018.   q = curlist .tailfield ; 
  2019.   popnest () ; 
  2020.   if ( curlist .modefield == 201 ) 
  2021.   {
  2022.     doassignment () ; 
  2023.     if ( curcmd != 3 ) 
  2024.     {
  2025.       {
  2026.     if ( interaction == 3 ) 
  2027.     wakeuptermin () ; 
  2028.     printnl ( 133 ) ; 
  2029.     print ( 1018 ) ; 
  2030.       } 
  2031.       {
  2032.     helpptr = 2 ; 
  2033.     helpline [ 1 ] = 748 ; 
  2034.     helpline [ 0 ] = 749 ; 
  2035.       } 
  2036.       backerror () ; 
  2037.     } 
  2038.     else { 
  2039.       getxtoken () ; 
  2040.       if ( curcmd != 3 ) 
  2041.       {
  2042.     {
  2043.       if ( interaction == 3 ) 
  2044.       wakeuptermin () ; 
  2045.       printnl ( 133 ) ; 
  2046.       print ( 1014 ) ; 
  2047.     } 
  2048.     {
  2049.       helpptr = 2 ; 
  2050.       helpline [ 1 ] = 1015 ; 
  2051.       helpline [ 0 ] = 1016 ; 
  2052.     } 
  2053.     backerror () ; 
  2054.       } 
  2055.     } 
  2056.     popnest () ; 
  2057.     {
  2058.       mem [(long) curlist .tailfield ] .hh .v.RH = newpenalty ( eqtb [ 5278 ] .cint 
  2059.       ) ; 
  2060.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  2061.     } 
  2062.     {
  2063.       mem [(long) curlist .tailfield ] .hh .v.RH = newparamglue ( 3 ) ; 
  2064.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  2065.     } 
  2066.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  2067.     if ( p != 0 ) 
  2068.     curlist .tailfield = q ; 
  2069.     {
  2070.       mem [(long) curlist .tailfield ] .hh .v.RH = newpenalty ( eqtb [ 5279 ] .cint 
  2071.       ) ; 
  2072.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  2073.     } 
  2074.     {
  2075.       mem [(long) curlist .tailfield ] .hh .v.RH = newparamglue ( 4 ) ; 
  2076.       curlist .tailfield = mem [(long) curlist .tailfield ] .hh .v.RH ; 
  2077.     } 
  2078.     curlist .auxfield = t ; 
  2079.     resumeafterd () ; 
  2080.   } 
  2081.   else { 
  2082.     curlist .auxfield = t ; 
  2083.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  2084.     if ( p != 0 ) 
  2085.     curlist .tailfield = q ; 
  2086.     if ( curlist .modefield == 1 ) 
  2087.     buildpage () ; 
  2088.   } 
  2089. } 
  2090.