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