home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / tex31 / texsrc.lzh / TEXSRC.LZH / tex12.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-28  |  25.1 KB  |  1,011 lines
  1. #define EXTERN extern
  2. #include "texd.h"
  3.  
  4. halfword zvsplit ( n , h ) 
  5. eightbits n ; 
  6. scaled h ; 
  7. {/* 10 30 */ register halfword Result; vsplit_regmem 
  8.   halfword v  ; 
  9.   halfword p  ; 
  10.   halfword q  ; 
  11.   v = eqtb [ 4578 + n ] .hh .v.RH ; 
  12.   if ( curmark [ 3 ] != 0 ) 
  13.   {
  14.     deletetokenref ( curmark [ 3 ] ) ; 
  15.     curmark [ 3 ] = 0 ; 
  16.     deletetokenref ( curmark [ 4 ] ) ; 
  17.     curmark [ 4 ] = 0 ; 
  18.   } 
  19.   if ( v == 0 ) 
  20.   {
  21.     Result = 0 ; 
  22.     return(Result) ; 
  23.   } 
  24.   if ( mem [ v ] .hh.b0 != 1 ) 
  25.   {
  26.     {
  27.       if ( interaction == 3 ) 
  28.       wakeupterminal () ; 
  29.       printnl ( 262 ) ; 
  30.       print ( 335 ) ; 
  31.     } 
  32.     printesc ( 958 ) ; 
  33.     print ( 959 ) ; 
  34.     printesc ( 960 ) ; 
  35.     {
  36.       helpptr = 2 ; 
  37.       helpline [ 1 ] = 961 ; 
  38.       helpline [ 0 ] = 962 ; 
  39.     } 
  40.     error () ; 
  41.     Result = 0 ; 
  42.     return(Result) ; 
  43.   } 
  44.   q = vertbreak ( mem [ v + 5 ] .hh .v.RH , h , eqtb [ 6736 ] .cint ) ; 
  45.   p = mem [ v + 5 ] .hh .v.RH ; 
  46.   if ( p == q ) 
  47.   mem [ v + 5 ] .hh .v.RH = 0 ; 
  48.   else while ( true ) {
  49.       
  50.     if ( mem [ p ] .hh.b0 == 4 ) 
  51.     if ( curmark [ 3 ] == 0 ) 
  52.     {
  53.       curmark [ 3 ] = mem [ p + 1 ] .cint ; 
  54.       curmark [ 4 ] = curmark [ 3 ] ; 
  55.       mem [ curmark [ 3 ] ] .hh .v.LH = mem [ curmark [ 3 ] ] .hh .v.LH + 2 ; 
  56.     } 
  57.     else {
  58.     
  59.       deletetokenref ( curmark [ 4 ] ) ; 
  60.       curmark [ 4 ] = mem [ p + 1 ] .cint ; 
  61.       incr ( mem [ curmark [ 4 ] ] .hh .v.LH ) ; 
  62.     } 
  63.     if ( mem [ p ] .hh .v.RH == q ) 
  64.     {
  65.       mem [ p ] .hh .v.RH = 0 ; 
  66.       goto lab30 ; 
  67.     } 
  68.     p = mem [ p ] .hh .v.RH ; 
  69.   } 
  70.   lab30: ; 
  71.   q = prunepagetop ( q ) ; 
  72.   p = mem [ v + 5 ] .hh .v.RH ; 
  73.   freenode ( v , 7 ) ; 
  74.   if ( q == 0 ) 
  75.   eqtb [ 4578 + n ] .hh .v.RH = 0 ; 
  76.   else eqtb [ 4578 + n ] .hh .v.RH = vpackage ( q , 0 , 1 , 1073741823L ) ; 
  77.   Result = vpackage ( p , h , 0 , eqtb [ 6736 ] .cint ) ; 
  78.   return(Result) ; 
  79. } 
  80. void printtotals ( ) 
  81. {printtotals_regmem 
  82.   printscaled ( pagesofar [ 1 ] ) ; 
  83.   if ( pagesofar [ 2 ] != 0 ) 
  84.   {
  85.     print ( 310 ) ; 
  86.     printscaled ( pagesofar [ 2 ] ) ; 
  87.     print ( 335 ) ; 
  88.   } 
  89.   if ( pagesofar [ 3 ] != 0 ) 
  90.   {
  91.     print ( 310 ) ; 
  92.     printscaled ( pagesofar [ 3 ] ) ; 
  93.     print ( 309 ) ; 
  94.   } 
  95.   if ( pagesofar [ 4 ] != 0 ) 
  96.   {
  97.     print ( 310 ) ; 
  98.     printscaled ( pagesofar [ 4 ] ) ; 
  99.     print ( 971 ) ; 
  100.   } 
  101.   if ( pagesofar [ 5 ] != 0 ) 
  102.   {
  103.     print ( 310 ) ; 
  104.     printscaled ( pagesofar [ 5 ] ) ; 
  105.     print ( 972 ) ; 
  106.   } 
  107.   if ( pagesofar [ 6 ] != 0 ) 
  108.   {
  109.     print ( 311 ) ; 
  110.     printscaled ( pagesofar [ 6 ] ) ; 
  111.   } 
  112. } 
  113. void zfreezepagespecs ( s ) 
  114. smallnumber s ; 
  115. {freezepagespecs_regmem 
  116.   pagecontents = s ; 
  117.   pagesofar [ 0 ] = eqtb [ 6734 ] .cint ; 
  118.   pagemaxdepth = eqtb [ 6735 ] .cint ; 
  119.   pagesofar [ 7 ] = 0 ; 
  120.   pagesofar [ 1 ] = 0 ; 
  121.   pagesofar [ 2 ] = 0 ; 
  122.   pagesofar [ 3 ] = 0 ; 
  123.   pagesofar [ 4 ] = 0 ; 
  124.   pagesofar [ 5 ] = 0 ; 
  125.   pagesofar [ 6 ] = 0 ; 
  126.   leastpagecost = 1073741823L ; 
  127.     ;
  128. #ifdef STAT
  129.   if ( eqtb [ 6196 ] .cint > 0 ) 
  130.   {
  131.     begindiagnostic () ; 
  132.     printnl ( 980 ) ; 
  133.     printscaled ( pagesofar [ 0 ] ) ; 
  134.     print ( 981 ) ; 
  135.     printscaled ( pagemaxdepth ) ; 
  136.     enddiagnostic ( false ) ; 
  137.   } 
  138. #endif /* STAT */
  139. } 
  140. void zboxerror ( n ) 
  141. eightbits n ; 
  142. {boxerror_regmem 
  143.   error () ; 
  144.   begindiagnostic () ; 
  145.   printnl ( 829 ) ; 
  146.   showbox ( eqtb [ 4578 + n ] .hh .v.RH ) ; 
  147.   enddiagnostic ( true ) ; 
  148.   flushnodelist ( eqtb [ 4578 + n ] .hh .v.RH ) ; 
  149.   eqtb [ 4578 + n ] .hh .v.RH = 0 ; 
  150. } 
  151. void zensurevbox ( n ) 
  152. eightbits n ; 
  153. {ensurevbox_regmem 
  154.   halfword p  ; 
  155.   p = eqtb [ 4578 + n ] .hh .v.RH ; 
  156.   if ( p != 0 ) 
  157.   if ( mem [ p ] .hh.b0 == 0 ) 
  158.   {
  159.     {
  160.       if ( interaction == 3 ) 
  161.       wakeupterminal () ; 
  162.       printnl ( 262 ) ; 
  163.       print ( 982 ) ; 
  164.     } 
  165.     {
  166.       helpptr = 3 ; 
  167.       helpline [ 2 ] = 983 ; 
  168.       helpline [ 1 ] = 984 ; 
  169.       helpline [ 0 ] = 985 ; 
  170.     } 
  171.     boxerror ( n ) ; 
  172.   } 
  173. } 
  174. void zfireup ( c ) 
  175. halfword c ; 
  176. {/* 10 */ fireup_regmem 
  177.   halfword p, q, r, s  ; 
  178.   halfword prevp  ; 
  179.   unsigned char n  ; 
  180.   boolean wait  ; 
  181.   integer savevbadness  ; 
  182.   scaled savevfuzz  ; 
  183.   halfword savesplittopskip  ; 
  184.   if ( mem [ bestpagebreak ] .hh.b0 == 12 ) 
  185.   {
  186.     geqworddefine ( 6202 , mem [ bestpagebreak + 1 ] .cint ) ; 
  187.     mem [ bestpagebreak + 1 ] .cint = 10000 ; 
  188.   } 
  189.   else geqworddefine ( 6202 , 10000 ) ; 
  190.   if ( curmark [ 2 ] != 0 ) 
  191.   {
  192.     if ( curmark [ 0 ] != 0 ) 
  193.     deletetokenref ( curmark [ 0 ] ) ; 
  194.     curmark [ 0 ] = curmark [ 2 ] ; 
  195.     incr ( mem [ curmark [ 0 ] ] .hh .v.LH ) ; 
  196.     deletetokenref ( curmark [ 1 ] ) ; 
  197.     curmark [ 1 ] = 0 ; 
  198.   } 
  199.   if ( c == bestpagebreak ) 
  200.   bestpagebreak = 0 ; 
  201.   if ( eqtb [ 4833 ] .hh .v.RH != 0 ) 
  202.   {
  203.     {
  204.       if ( interaction == 3 ) 
  205.       wakeupterminal () ; 
  206.       printnl ( 262 ) ; 
  207.       print ( 335 ) ; 
  208.     } 
  209.     printesc ( 405 ) ; 
  210.     print ( 996 ) ; 
  211.     {
  212.       helpptr = 2 ; 
  213.       helpline [ 1 ] = 997 ; 
  214.       helpline [ 0 ] = 985 ; 
  215.     } 
  216.     boxerror ( 255 ) ; 
  217.   } 
  218.   insertpenalties = 0 ; 
  219.   savesplittopskip = eqtb [ 3792 ] .hh .v.RH ; 
  220.   if ( eqtb [ 6216 ] .cint <= 0 ) 
  221.   {
  222.     r = mem [ memtop ] .hh .v.RH ; 
  223.     while ( r != memtop ) {
  224.     
  225.       if ( mem [ r + 2 ] .hh .v.LH != 0 ) 
  226.       {
  227.     n = mem [ r ] .hh.b1 ; 
  228.     ensurevbox ( n ) ; 
  229.     if ( eqtb [ 4578 + n ] .hh .v.RH == 0 ) 
  230.     eqtb [ 4578 + n ] .hh .v.RH = newnullbox () ; 
  231.     p = eqtb [ 4578 + n ] .hh .v.RH + 5 ; 
  232.     while ( mem [ p ] .hh .v.RH != 0 ) p = mem [ p ] .hh .v.RH ; 
  233.     mem [ r + 2 ] .hh .v.RH = p ; 
  234.       } 
  235.       r = mem [ r ] .hh .v.RH ; 
  236.     } 
  237.   } 
  238.   q = memtop - 4 ; 
  239.   mem [ q ] .hh .v.RH = 0 ; 
  240.   prevp = memtop - 2 ; 
  241.   p = mem [ prevp ] .hh .v.RH ; 
  242.   while ( p != bestpagebreak ) {
  243.       
  244.     if ( mem [ p ] .hh.b0 == 3 ) 
  245.     {
  246.       if ( eqtb [ 6216 ] .cint <= 0 ) 
  247.       {
  248.     r = mem [ memtop ] .hh .v.RH ; 
  249.     while ( mem [ r ] .hh.b1 != mem [ p ] .hh.b1 ) r = mem [ r ] .hh .v.RH 
  250.     ; 
  251.     if ( mem [ r + 2 ] .hh .v.LH == 0 ) 
  252.     wait = true ; 
  253.     else {
  254.         
  255.       wait = false ; 
  256.       s = mem [ r + 2 ] .hh .v.RH ; 
  257.       mem [ s ] .hh .v.RH = mem [ p + 4 ] .hh .v.LH ; 
  258.       if ( mem [ r + 2 ] .hh .v.LH == p ) 
  259.       {
  260.         if ( mem [ r ] .hh.b0 == 1 ) 
  261.         if ( ( mem [ r + 1 ] .hh .v.LH == p ) && ( mem [ r + 1 ] .hh .v.RH 
  262.         != 0 ) ) 
  263.         {
  264.           while ( mem [ s ] .hh .v.RH != mem [ r + 1 ] .hh .v.RH ) s = mem 
  265.           [ s ] .hh .v.RH ; 
  266.           mem [ s ] .hh .v.RH = 0 ; 
  267.           eqtb [ 3792 ] .hh .v.RH = mem [ p + 4 ] .hh .v.RH ; 
  268.           mem [ p + 4 ] .hh .v.LH = prunepagetop ( mem [ r + 1 ] .hh .v.RH 
  269.           ) ; 
  270.           if ( mem [ p + 4 ] .hh .v.LH != 0 ) 
  271.           {
  272.         tempptr = vpackage ( mem [ p + 4 ] .hh .v.LH , 0 , 1 , 
  273.         1073741823L ) ; 
  274.         mem [ p + 3 ] .cint = mem [ tempptr + 3 ] .cint + mem [ 
  275.         tempptr + 2 ] .cint ; 
  276.         freenode ( tempptr , 7 ) ; 
  277.         wait = true ; 
  278.           } 
  279.         } 
  280.         mem [ r + 2 ] .hh .v.LH = 0 ; 
  281.         n = mem [ r ] .hh.b1 ; 
  282.         tempptr = mem [ eqtb [ 4578 + n ] .hh .v.RH + 5 ] .hh .v.RH ; 
  283.         freenode ( eqtb [ 4578 + n ] .hh .v.RH , 7 ) ; 
  284.         eqtb [ 4578 + n ] .hh .v.RH = vpackage ( tempptr , 0 , 1 , 
  285.         1073741823L ) ; 
  286.       } 
  287.       else {
  288.           
  289.         while ( mem [ s ] .hh .v.RH != 0 ) s = mem [ s ] .hh .v.RH ; 
  290.         mem [ r + 2 ] .hh .v.RH = s ; 
  291.       } 
  292.     } 
  293.     mem [ prevp ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  294.     mem [ p ] .hh .v.RH = 0 ; 
  295.     if ( wait ) 
  296.     {
  297.       mem [ q ] .hh .v.RH = p ; 
  298.       q = p ; 
  299.       incr ( insertpenalties ) ; 
  300.     } 
  301.     else {
  302.         
  303.       deleteglueref ( mem [ p + 4 ] .hh .v.RH ) ; 
  304.       freenode ( p , 5 ) ; 
  305.     } 
  306.     p = prevp ; 
  307.       } 
  308.     } 
  309.     else if ( mem [ p ] .hh.b0 == 4 ) 
  310.     {
  311.       if ( curmark [ 1 ] == 0 ) 
  312.       {
  313.     curmark [ 1 ] = mem [ p + 1 ] .cint ; 
  314.     incr ( mem [ curmark [ 1 ] ] .hh .v.LH ) ; 
  315.       } 
  316.       if ( curmark [ 2 ] != 0 ) 
  317.       deletetokenref ( curmark [ 2 ] ) ; 
  318.       curmark [ 2 ] = mem [ p + 1 ] .cint ; 
  319.       incr ( mem [ curmark [ 2 ] ] .hh .v.LH ) ; 
  320.     } 
  321.     prevp = p ; 
  322.     p = mem [ prevp ] .hh .v.RH ; 
  323.   } 
  324.   eqtb [ 3792 ] .hh .v.RH = savesplittopskip ; 
  325.   if ( p != 0 ) 
  326.   {
  327.     if ( mem [ memtop - 1 ] .hh .v.RH == 0 ) 
  328.     if ( nestptr == 0 ) 
  329.     curlist .tailfield = pagetail ; 
  330.     else nest [ 0 ] .tailfield = pagetail ; 
  331.     mem [ pagetail ] .hh .v.RH = mem [ memtop - 1 ] .hh .v.RH ; 
  332.     mem [ memtop - 1 ] .hh .v.RH = p ; 
  333.     mem [ prevp ] .hh .v.RH = 0 ; 
  334.   } 
  335.   savevbadness = eqtb [ 6190 ] .cint ; 
  336.   eqtb [ 6190 ] .cint = 10000 ; 
  337.   savevfuzz = eqtb [ 6739 ] .cint ; 
  338.   eqtb [ 6739 ] .cint = 1073741823L ; 
  339.   eqtb [ 4833 ] .hh .v.RH = vpackage ( mem [ memtop - 2 ] .hh .v.RH , bestsize 
  340.   , 0 , pagemaxdepth ) ; 
  341.   eqtb [ 6190 ] .cint = savevbadness ; 
  342.   eqtb [ 6739 ] .cint = savevfuzz ; 
  343.   if ( lastglue != 65535L ) 
  344.   deleteglueref ( lastglue ) ; 
  345.   pagecontents = 0 ; 
  346.   pagetail = memtop - 2 ; 
  347.   mem [ memtop - 2 ] .hh .v.RH = 0 ; 
  348.   lastglue = 65535L ; 
  349.   lastpenalty = 0 ; 
  350.   lastkern = 0 ; 
  351.   pagesofar [ 7 ] = 0 ; 
  352.   pagemaxdepth = 0 ; 
  353.   if ( q != memtop - 4 ) 
  354.   {
  355.     mem [ memtop - 2 ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  356.     pagetail = q ; 
  357.   } 
  358.   r = mem [ memtop ] .hh .v.RH ; 
  359.   while ( r != memtop ) {
  360.       
  361.     q = mem [ r ] .hh .v.RH ; 
  362.     freenode ( r , 4 ) ; 
  363.     r = q ; 
  364.   } 
  365.   mem [ memtop ] .hh .v.RH = memtop ; 
  366.   if ( ( curmark [ 0 ] != 0 ) && ( curmark [ 1 ] == 0 ) ) 
  367.   {
  368.     curmark [ 1 ] = curmark [ 0 ] ; 
  369.     incr ( mem [ curmark [ 0 ] ] .hh .v.LH ) ; 
  370.   } 
  371.   if ( eqtb [ 4313 ] .hh .v.RH != 0 ) 
  372.   if ( deadcycles >= eqtb [ 6203 ] .cint ) 
  373.   {
  374.     {
  375.       if ( interaction == 3 ) 
  376.       wakeupterminal () ; 
  377.       printnl ( 262 ) ; 
  378.       print ( 998 ) ; 
  379.     } 
  380.     printint ( deadcycles ) ; 
  381.     print ( 999 ) ; 
  382.     {
  383.       helpptr = 3 ; 
  384.       helpline [ 2 ] = 1000 ; 
  385.       helpline [ 1 ] = 1001 ; 
  386.       helpline [ 0 ] = 1002 ; 
  387.     } 
  388.     error () ; 
  389.   } 
  390.   else {
  391.       
  392.     outputactive = true ; 
  393.     incr ( deadcycles ) ; 
  394.     pushnest () ; 
  395.     curlist .modefield = -1 ; 
  396.     curlist .auxfield .cint = -65536000L ; 
  397.     curlist .mlfield = - (integer) line ; 
  398.     begintokenlist ( eqtb [ 4313 ] .hh .v.RH , 6 ) ; 
  399.     newsavelevel ( 8 ) ; 
  400.     normalparagraph () ; 
  401.     scanleftbrace () ; 
  402.     return ; 
  403.   } 
  404.   {
  405.     if ( mem [ memtop - 2 ] .hh .v.RH != 0 ) 
  406.     {
  407.       if ( mem [ memtop - 1 ] .hh .v.RH == 0 ) 
  408.       if ( nestptr == 0 ) 
  409.       curlist .tailfield = pagetail ; 
  410.       else nest [ 0 ] .tailfield = pagetail ; 
  411.       else mem [ pagetail ] .hh .v.RH = mem [ memtop - 1 ] .hh .v.RH ; 
  412.       mem [ memtop - 1 ] .hh .v.RH = mem [ memtop - 2 ] .hh .v.RH ; 
  413.       mem [ memtop - 2 ] .hh .v.RH = 0 ; 
  414.       pagetail = memtop - 2 ; 
  415.     } 
  416.     shipout ( eqtb [ 4833 ] .hh .v.RH ) ; 
  417.     eqtb [ 4833 ] .hh .v.RH = 0 ; 
  418.   } 
  419. } 
  420. void buildpage ( ) 
  421. {/* 10 30 31 22 80 90 */ buildpage_regmem 
  422.   halfword p  ; 
  423.   halfword q, r  ; 
  424.   integer b, c  ; 
  425.   integer pi  ; 
  426.   unsigned char n  ; 
  427.   scaled delta, h, w  ; 
  428.   if ( ( mem [ memtop - 1 ] .hh .v.RH == 0 ) || outputactive ) 
  429.   return ; 
  430.   do {
  431.       lab22: p = mem [ memtop - 1 ] .hh .v.RH ; 
  432.     if ( lastglue != 65535L ) 
  433.     deleteglueref ( lastglue ) ; 
  434.     lastpenalty = 0 ; 
  435.     lastkern = 0 ; 
  436.     if ( mem [ p ] .hh.b0 == 10 ) 
  437.     {
  438.       lastglue = mem [ p + 1 ] .hh .v.LH ; 
  439.       incr ( mem [ lastglue ] .hh .v.RH ) ; 
  440.     } 
  441.     else {
  442.     
  443.       lastglue = 65535L ; 
  444.       if ( mem [ p ] .hh.b0 == 12 ) 
  445.       lastpenalty = mem [ p + 1 ] .cint ; 
  446.       else if ( mem [ p ] .hh.b0 == 11 ) 
  447.       lastkern = mem [ p + 1 ] .cint ; 
  448.     } 
  449.     switch ( mem [ p ] .hh.b0 ) 
  450.     {case 0 : 
  451.     case 1 : 
  452.     case 2 : 
  453.       if ( pagecontents < 2 ) 
  454.       {
  455.     if ( pagecontents == 0 ) 
  456.     freezepagespecs ( 2 ) ; 
  457.     else pagecontents = 2 ; 
  458.     q = newskipparam ( 9 ) ; 
  459.     if ( mem [ tempptr + 1 ] .cint > mem [ p + 3 ] .cint ) 
  460.     mem [ tempptr + 1 ] .cint = mem [ tempptr + 1 ] .cint - mem [ p + 3 ] 
  461.     .cint ; 
  462.     else mem [ tempptr + 1 ] .cint = 0 ; 
  463.     mem [ q ] .hh .v.RH = p ; 
  464.     mem [ memtop - 1 ] .hh .v.RH = q ; 
  465.     goto lab22 ; 
  466.       } 
  467.       else {
  468.       
  469.     pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] + mem [ p + 3 ] 
  470.     .cint ; 
  471.     pagesofar [ 7 ] = mem [ p + 2 ] .cint ; 
  472.     goto lab80 ; 
  473.       } 
  474.       break ; 
  475.     case 8 : 
  476.       goto lab80 ; 
  477.       break ; 
  478.     case 10 : 
  479.       if ( pagecontents < 2 ) 
  480.       goto lab31 ; 
  481.       else if ( ( mem [ pagetail ] .hh.b0 < 9 ) ) 
  482.       pi = 0 ; 
  483.       else goto lab90 ; 
  484.       break ; 
  485.     case 11 : 
  486.       if ( pagecontents < 2 ) 
  487.       goto lab31 ; 
  488.       else if ( mem [ p ] .hh .v.RH == 0 ) 
  489.       return ; 
  490.       else if ( mem [ mem [ p ] .hh .v.RH ] .hh.b0 == 10 ) 
  491.       pi = 0 ; 
  492.       else goto lab90 ; 
  493.       break ; 
  494.     case 12 : 
  495.       if ( pagecontents < 2 ) 
  496.       goto lab31 ; 
  497.       else pi = mem [ p + 1 ] .cint ; 
  498.       break ; 
  499.     case 4 : 
  500.       goto lab80 ; 
  501.       break ; 
  502.     case 3 : 
  503.       {
  504.     if ( pagecontents == 0 ) 
  505.     freezepagespecs ( 1 ) ; 
  506.     n = mem [ p ] .hh.b1 ; 
  507.     r = memtop ; 
  508.     while ( n >= mem [ mem [ r ] .hh .v.RH ] .hh.b1 ) r = mem [ r ] .hh 
  509.     .v.RH ; 
  510.     n = n ; 
  511.     if ( mem [ r ] .hh.b1 != n ) 
  512.     {
  513.       q = getnode ( 4 ) ; 
  514.       mem [ q ] .hh .v.RH = mem [ r ] .hh .v.RH ; 
  515.       mem [ r ] .hh .v.RH = q ; 
  516.       r = q ; 
  517.       mem [ r ] .hh.b1 = n ; 
  518.       mem [ r ] .hh.b0 = 0 ; 
  519.       ensurevbox ( n ) ; 
  520.       if ( eqtb [ 4578 + n ] .hh .v.RH == 0 ) 
  521.       mem [ r + 3 ] .cint = 0 ; 
  522.       else mem [ r + 3 ] .cint = mem [ eqtb [ 4578 + n ] .hh .v.RH + 3 ] 
  523.       .cint + mem [ eqtb [ 4578 + n ] .hh .v.RH + 2 ] .cint ; 
  524.       mem [ r + 2 ] .hh .v.LH = 0 ; 
  525.       q = eqtb [ 3800 + n ] .hh .v.RH ; 
  526.       if ( eqtb [ 6218 + n ] .cint == 1000 ) 
  527.       h = mem [ r + 3 ] .cint ; 
  528.       else h = xovern ( mem [ r + 3 ] .cint , 1000 ) * eqtb [ 6218 + n ] 
  529.       .cint ; 
  530.       pagesofar [ 0 ] = pagesofar [ 0 ] - h - mem [ q + 1 ] .cint ; 
  531.       pagesofar [ 2 + mem [ q ] .hh.b0 ] = pagesofar [ 2 + mem [ q ] 
  532.       .hh.b0 ] + mem [ q + 2 ] .cint ; 
  533.       pagesofar [ 6 ] = pagesofar [ 6 ] + mem [ q + 3 ] .cint ; 
  534.       if ( ( mem [ q ] .hh.b1 != 0 ) && ( mem [ q + 3 ] .cint != 0 ) ) 
  535.       {
  536.         {
  537.           if ( interaction == 3 ) 
  538.           wakeupterminal () ; 
  539.           printnl ( 262 ) ; 
  540.           print ( 991 ) ; 
  541.         } 
  542.         printesc ( 391 ) ; 
  543.         printint ( n ) ; 
  544.         {
  545.           helpptr = 3 ; 
  546.           helpline [ 2 ] = 992 ; 
  547.           helpline [ 1 ] = 993 ; 
  548.           helpline [ 0 ] = 915 ; 
  549.         } 
  550.         error () ; 
  551.       } 
  552.     } 
  553.     if ( mem [ r ] .hh.b0 == 1 ) 
  554.     insertpenalties = insertpenalties + mem [ p + 1 ] .cint ; 
  555.     else {
  556.         
  557.       mem [ r + 2 ] .hh .v.RH = p ; 
  558.       delta = pagesofar [ 0 ] - pagesofar [ 1 ] - pagesofar [ 7 ] + 
  559.       pagesofar [ 6 ] ; 
  560.       if ( eqtb [ 6218 + n ] .cint == 1000 ) 
  561.       h = mem [ p + 3 ] .cint ; 
  562.       else h = xovern ( mem [ p + 3 ] .cint , 1000 ) * eqtb [ 6218 + n ] 
  563.       .cint ; 
  564.       if ( ( ( h <= 0 ) || ( h <= delta ) ) && ( mem [ p + 3 ] .cint + mem 
  565.       [ r + 3 ] .cint <= eqtb [ 6751 + n ] .cint ) ) 
  566.       {
  567.         pagesofar [ 0 ] = pagesofar [ 0 ] - h ; 
  568.         mem [ r + 3 ] .cint = mem [ r + 3 ] .cint + mem [ p + 3 ] .cint ; 
  569.       } 
  570.       else {
  571.           
  572.         if ( eqtb [ 6218 + n ] .cint <= 0 ) 
  573.         w = 1073741823L ; 
  574.         else {
  575.         
  576.           w = pagesofar [ 0 ] - pagesofar [ 1 ] - pagesofar [ 7 ] ; 
  577.           if ( eqtb [ 6218 + n ] .cint != 1000 ) 
  578.           w = xovern ( w , eqtb [ 6218 + n ] .cint ) * 1000 ; 
  579.         } 
  580.         if ( w > eqtb [ 6751 + n ] .cint - mem [ r + 3 ] .cint ) 
  581.         w = eqtb [ 6751 + n ] .cint - mem [ r + 3 ] .cint ; 
  582.         q = vertbreak ( mem [ p + 4 ] .hh .v.LH , w , mem [ p + 2 ] .cint 
  583.         ) ; 
  584.         mem [ r + 3 ] .cint = mem [ r + 3 ] .cint + bestheightplusdepth ; 
  585.     ;
  586. #ifdef STAT
  587.         if ( eqtb [ 6196 ] .cint > 0 ) 
  588.         {
  589.           begindiagnostic () ; 
  590.           printnl ( 994 ) ; 
  591.           printint ( n ) ; 
  592.           print ( 995 ) ; 
  593.           printscaled ( w ) ; 
  594.           printchar ( 44 ) ; 
  595.           printscaled ( bestheightplusdepth ) ; 
  596.           print ( 924 ) ; 
  597.           if ( q == 0 ) 
  598.           printint ( -10000 ) ; 
  599.           else if ( mem [ q ] .hh.b0 == 12 ) 
  600.           printint ( mem [ q + 1 ] .cint ) ; 
  601.           else printchar ( 48 ) ; 
  602.           enddiagnostic ( false ) ; 
  603.         } 
  604. #endif /* STAT */
  605.         if ( eqtb [ 6218 + n ] .cint != 1000 ) 
  606.         bestheightplusdepth = xovern ( bestheightplusdepth , 1000 ) * eqtb 
  607.         [ 6218 + n ] .cint ; 
  608.         pagesofar [ 0 ] = pagesofar [ 0 ] - bestheightplusdepth ; 
  609.         mem [ r ] .hh.b0 = 1 ; 
  610.         mem [ r + 1 ] .hh .v.RH = q ; 
  611.         mem [ r + 1 ] .hh .v.LH = p ; 
  612.         if ( q == 0 ) 
  613.         insertpenalties = insertpenalties - 10000 ; 
  614.         else if ( mem [ q ] .hh.b0 == 12 ) 
  615.         insertpenalties = insertpenalties + mem [ q + 1 ] .cint ; 
  616.       } 
  617.     } 
  618.     goto lab80 ; 
  619.       } 
  620.       break ; 
  621.       default: 
  622.       confusion ( 986 ) ; 
  623.       break ; 
  624.     } 
  625.     if ( pi < 10000 ) 
  626.     {
  627.       if ( pagesofar [ 1 ] < pagesofar [ 0 ] ) 
  628.       if ( ( pagesofar [ 3 ] != 0 ) || ( pagesofar [ 4 ] != 0 ) || ( pagesofar 
  629.       [ 5 ] != 0 ) ) 
  630.       b = 0 ; 
  631.       else b = badness ( pagesofar [ 0 ] - pagesofar [ 1 ] , pagesofar [ 2 ] ) 
  632.       ; 
  633.       else if ( pagesofar [ 1 ] - pagesofar [ 0 ] > pagesofar [ 6 ] ) 
  634.       b = 1073741823L ; 
  635.       else b = badness ( pagesofar [ 1 ] - pagesofar [ 0 ] , pagesofar [ 6 ] ) 
  636.       ; 
  637.       if ( b < 1073741823L ) 
  638.       if ( pi <= -10000 ) 
  639.       c = pi ; 
  640.       else if ( b < 10000 ) 
  641.       c = b + pi + insertpenalties ; 
  642.       else c = 100000L ; 
  643.       else c = b ; 
  644.       if ( insertpenalties >= 10000 ) 
  645.       c = 1073741823L ; 
  646.     ;
  647. #ifdef STAT
  648.       if ( eqtb [ 6196 ] .cint > 0 ) 
  649.       {
  650.     begindiagnostic () ; 
  651.     printnl ( 37 ) ; 
  652.     print ( 920 ) ; 
  653.     printtotals () ; 
  654.     print ( 989 ) ; 
  655.     printscaled ( pagesofar [ 0 ] ) ; 
  656.     print ( 923 ) ; 
  657.     if ( b == 1073741823L ) 
  658.     printchar ( 42 ) ; 
  659.     else printint ( b ) ; 
  660.     print ( 924 ) ; 
  661.     printint ( pi ) ; 
  662.     print ( 990 ) ; 
  663.     if ( c == 1073741823L ) 
  664.     printchar ( 42 ) ; 
  665.     else printint ( c ) ; 
  666.     if ( c <= leastpagecost ) 
  667.     printchar ( 35 ) ; 
  668.     enddiagnostic ( false ) ; 
  669.       } 
  670. #endif /* STAT */
  671.       if ( c <= leastpagecost ) 
  672.       {
  673.     bestpagebreak = p ; 
  674.     bestsize = pagesofar [ 0 ] ; 
  675.     leastpagecost = c ; 
  676.     r = mem [ memtop ] .hh .v.RH ; 
  677.     while ( r != memtop ) {
  678.         
  679.       mem [ r + 2 ] .hh .v.LH = mem [ r + 2 ] .hh .v.RH ; 
  680.       r = mem [ r ] .hh .v.RH ; 
  681.     } 
  682.       } 
  683.       if ( ( c == 1073741823L ) || ( pi <= -10000 ) ) 
  684.       {
  685.     fireup ( p ) ; 
  686.     if ( outputactive ) 
  687.     return ; 
  688.     goto lab30 ; 
  689.       } 
  690.     } 
  691.     if ( ( mem [ p ] .hh.b0 < 10 ) || ( mem [ p ] .hh.b0 > 11 ) ) 
  692.     goto lab80 ; 
  693.     lab90: if ( mem [ p ] .hh.b0 == 11 ) 
  694.     q = p ; 
  695.     else {
  696.     
  697.       q = mem [ p + 1 ] .hh .v.LH ; 
  698.       pagesofar [ 2 + mem [ q ] .hh.b0 ] = pagesofar [ 2 + mem [ q ] .hh.b0 ] 
  699.       + mem [ q + 2 ] .cint ; 
  700.       pagesofar [ 6 ] = pagesofar [ 6 ] + mem [ q + 3 ] .cint ; 
  701.       if ( ( mem [ q ] .hh.b1 != 0 ) && ( mem [ q + 3 ] .cint != 0 ) ) 
  702.       {
  703.     {
  704.       if ( interaction == 3 ) 
  705.       wakeupterminal () ; 
  706.       printnl ( 262 ) ; 
  707.       print ( 987 ) ; 
  708.     } 
  709.     {
  710.       helpptr = 4 ; 
  711.       helpline [ 3 ] = 988 ; 
  712.       helpline [ 2 ] = 956 ; 
  713.       helpline [ 1 ] = 957 ; 
  714.       helpline [ 0 ] = 915 ; 
  715.     } 
  716.     error () ; 
  717.     r = newspec ( q ) ; 
  718.     mem [ r ] .hh.b1 = 0 ; 
  719.     deleteglueref ( q ) ; 
  720.     mem [ p + 1 ] .hh .v.LH = r ; 
  721.     q = r ; 
  722.       } 
  723.     } 
  724.     pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] + mem [ q + 1 ] .cint 
  725.     ; 
  726.     pagesofar [ 7 ] = 0 ; 
  727.     lab80: if ( pagesofar [ 7 ] > pagemaxdepth ) 
  728.     {
  729.       pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] - pagemaxdepth ; 
  730.       pagesofar [ 7 ] = pagemaxdepth ; 
  731.     } 
  732.     mem [ pagetail ] .hh .v.RH = p ; 
  733.     pagetail = p ; 
  734.     mem [ memtop - 1 ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  735.     mem [ p ] .hh .v.RH = 0 ; 
  736.     goto lab30 ; 
  737.     lab31: mem [ memtop - 1 ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  738.     mem [ p ] .hh .v.RH = 0 ; 
  739.     flushnodelist ( p ) ; 
  740.     lab30: ; 
  741.   } while ( ! ( mem [ memtop - 1 ] .hh .v.RH == 0 ) ) ; 
  742.   if ( nestptr == 0 ) 
  743.   curlist .tailfield = memtop - 1 ; 
  744.   else nest [ 0 ] .tailfield = memtop - 1 ; 
  745. } 
  746. void appspace ( ) 
  747. {appspace_regmem 
  748.   halfword q  ; 
  749.   if ( ( curlist .auxfield .hh .v.LH >= 2000 ) && ( eqtb [ 3795 ] .hh .v.RH != 
  750.   0 ) ) 
  751.   q = newparamglue ( 13 ) ; 
  752.   else {
  753.       
  754.     if ( eqtb [ 3794 ] .hh .v.RH != 0 ) 
  755.     mainp = eqtb [ 3794 ] .hh .v.RH ; 
  756.     else {
  757.     
  758.       mainp = fontglue [ eqtb [ 4834 ] .hh .v.RH ] ; 
  759.       if ( mainp == 0 ) 
  760.       {
  761.     mainp = newspec ( 0 ) ; 
  762.     maink = parambase [ eqtb [ 4834 ] .hh .v.RH ] + 2 ; 
  763.     mem [ mainp + 1 ] .cint = fontinfo [ maink ] .cint ; 
  764.     mem [ mainp + 2 ] .cint = fontinfo [ maink + 1 ] .cint ; 
  765.     mem [ mainp + 3 ] .cint = fontinfo [ maink + 2 ] .cint ; 
  766.     fontglue [ eqtb [ 4834 ] .hh .v.RH ] = mainp ; 
  767.       } 
  768.     } 
  769.     mainp = newspec ( mainp ) ; 
  770.     if ( curlist .auxfield .hh .v.LH >= 2000 ) 
  771.     mem [ mainp + 1 ] .cint = mem [ mainp + 1 ] .cint + fontinfo [ 7 + 
  772.     parambase [ eqtb [ 4834 ] .hh .v.RH ] ] .cint ; 
  773.     mem [ mainp + 2 ] .cint = xnoverd ( mem [ mainp + 2 ] .cint , curlist 
  774.     .auxfield .hh .v.LH , 1000 ) ; 
  775.     mem [ mainp + 3 ] .cint = xnoverd ( mem [ mainp + 3 ] .cint , 1000 , 
  776.     curlist .auxfield .hh .v.LH ) ; 
  777.     q = newglue ( mainp ) ; 
  778.     mem [ mainp ] .hh .v.RH = 0 ; 
  779.   } 
  780.   mem [ curlist .tailfield ] .hh .v.RH = q ; 
  781.   curlist .tailfield = q ; 
  782. } 
  783. void insertdollarsign ( ) 
  784. {insertdollarsign_regmem 
  785.   backinput () ; 
  786.   curtok = 804 ; 
  787.   {
  788.     if ( interaction == 3 ) 
  789.     wakeupterminal () ; 
  790.     printnl ( 262 ) ; 
  791.     print ( 1010 ) ; 
  792.   } 
  793.   {
  794.     helpptr = 2 ; 
  795.     helpline [ 1 ] = 1011 ; 
  796.     helpline [ 0 ] = 1012 ; 
  797.   } 
  798.   inserror () ; 
  799. } 
  800. void youcant ( ) 
  801. {youcant_regmem 
  802.   {
  803.     if ( interaction == 3 ) 
  804.     wakeupterminal () ; 
  805.     printnl ( 262 ) ; 
  806.     print ( 681 ) ; 
  807.   } 
  808.   printcmdchr ( curcmd , curchr ) ; 
  809.   print ( 1013 ) ; 
  810.   printmode ( curlist .modefield ) ; 
  811. } 
  812. void reportillegalcase ( ) 
  813. {reportillegalcase_regmem 
  814.   youcant () ; 
  815.   {
  816.     helpptr = 4 ; 
  817.     helpline [ 3 ] = 1014 ; 
  818.     helpline [ 2 ] = 1015 ; 
  819.     helpline [ 1 ] = 1016 ; 
  820.     helpline [ 0 ] = 1017 ; 
  821.   } 
  822.   error () ; 
  823. } 
  824. boolean privileged ( ) 
  825. {register boolean Result; privileged_regmem 
  826.   if ( curlist .modefield > 0 ) 
  827.   Result = true ; 
  828.   else {
  829.       
  830.     reportillegalcase () ; 
  831.     Result = false ; 
  832.   } 
  833.   return(Result) ; 
  834. } 
  835. boolean itsallover ( ) 
  836. {/* 10 */ register boolean Result; itsallover_regmem 
  837.   if ( privileged () ) 
  838.   {
  839.     if ( ( memtop - 2 == pagetail ) && ( curlist .headfield == curlist 
  840.     .tailfield ) && ( deadcycles == 0 ) ) 
  841.     {
  842.       Result = true ; 
  843.       return(Result) ; 
  844.     } 
  845.     backinput () ; 
  846.     {
  847.       mem [ curlist .tailfield ] .hh .v.RH = newnullbox () ; 
  848.       curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  849.     } 
  850.     mem [ curlist .tailfield + 1 ] .cint = eqtb [ 6733 ] .cint ; 
  851.     {
  852.       mem [ curlist .tailfield ] .hh .v.RH = newglue ( 8 ) ; 
  853.       curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  854.     } 
  855.     {
  856.       mem [ curlist .tailfield ] .hh .v.RH = newpenalty ( -1073741824L ) ; 
  857.       curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  858.     } 
  859.     buildpage () ; 
  860.   } 
  861.   Result = false ; 
  862.   return(Result) ; 
  863. } 
  864. void appendglue ( ) 
  865. {appendglue_regmem 
  866.   smallnumber s  ; 
  867.   s = curchr ; 
  868.   switch ( s ) 
  869.   {case 0 : 
  870.     curval = 4 ; 
  871.     break ; 
  872.   case 1 : 
  873.     curval = 8 ; 
  874.     break ; 
  875.   case 2 : 
  876.     curval = 12 ; 
  877.     break ; 
  878.   case 3 : 
  879.     curval = 16 ; 
  880.     break ; 
  881.   case 4 : 
  882.     scanglue ( 2 ) ; 
  883.     break ; 
  884.   case 5 : 
  885.     scanglue ( 3 ) ; 
  886.     break ; 
  887.   } 
  888.   {
  889.     mem [ curlist .tailfield ] .hh .v.RH = newglue ( curval ) ; 
  890.     curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  891.   } 
  892.   if ( s >= 4 ) 
  893.   {
  894.     decr ( mem [ curval ] .hh .v.RH ) ; 
  895.     if ( s > 4 ) 
  896.     mem [ curlist .tailfield ] .hh.b1 = 99 ; 
  897.   } 
  898. } 
  899. void appendkern ( ) 
  900. {appendkern_regmem 
  901.   quarterword s  ; 
  902.   s = curchr ; 
  903.   scandimen ( s == 99 , false , false ) ; 
  904.   {
  905.     mem [ curlist .tailfield ] .hh .v.RH = newkern ( curval ) ; 
  906.     curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  907.   } 
  908.   mem [ curlist .tailfield ] .hh.b1 = s ; 
  909. } 
  910. void offsave ( ) 
  911. {offsave_regmem 
  912.   halfword p  ; 
  913.   if ( curgroup == 0 ) 
  914.   {
  915.     {
  916.       if ( interaction == 3 ) 
  917.       wakeupterminal () ; 
  918.       printnl ( 262 ) ; 
  919.       print ( 772 ) ; 
  920.     } 
  921.     printcmdchr ( curcmd , curchr ) ; 
  922.     {
  923.       helpptr = 1 ; 
  924.       helpline [ 0 ] = 1036 ; 
  925.     } 
  926.     error () ; 
  927.   } 
  928.   else {
  929.       
  930.     backinput () ; 
  931.     p = getavail () ; 
  932.     mem [ memtop - 3 ] .hh .v.RH = p ; 
  933.     {
  934.       if ( interaction == 3 ) 
  935.       wakeupterminal () ; 
  936.       printnl ( 262 ) ; 
  937.       print ( 621 ) ; 
  938.     } 
  939.     switch ( curgroup ) 
  940.     {case 14 : 
  941.       {
  942.     mem [ p ] .hh .v.LH = 7611 ; 
  943.     printesc ( 512 ) ; 
  944.       } 
  945.       break ; 
  946.     case 15 : 
  947.       {
  948.     mem [ p ] .hh .v.LH = 804 ; 
  949.     printchar ( 36 ) ; 
  950.       } 
  951.       break ; 
  952.     case 16 : 
  953.       {
  954.     mem [ p ] .hh .v.LH = 7612 ; 
  955.     mem [ p ] .hh .v.RH = getavail () ; 
  956.     p = mem [ p ] .hh .v.RH ; 
  957.     mem [ p ] .hh .v.LH = 3118 ; 
  958.     printesc ( 1035 ) ; 
  959.       } 
  960.       break ; 
  961.       default: 
  962.       {
  963.     mem [ p ] .hh .v.LH = 637 ; 
  964.     printchar ( 125 ) ; 
  965.       } 
  966.       break ; 
  967.     } 
  968.     print ( 622 ) ; 
  969.     begintokenlist ( mem [ memtop - 3 ] .hh .v.RH , 4 ) ; 
  970.     {
  971.       helpptr = 5 ; 
  972.       helpline [ 4 ] = 1030 ; 
  973.       helpline [ 3 ] = 1031 ; 
  974.       helpline [ 2 ] = 1032 ; 
  975.       helpline [ 1 ] = 1033 ; 
  976.       helpline [ 0 ] = 1034 ; 
  977.     } 
  978.     error () ; 
  979.   } 
  980. } 
  981. void extrarightbrace ( ) 
  982. {extrarightbrace_regmem 
  983.   {
  984.     if ( interaction == 3 ) 
  985.     wakeupterminal () ; 
  986.     printnl ( 262 ) ; 
  987.     print ( 1041 ) ; 
  988.   } 
  989.   switch ( curgroup ) 
  990.   {case 14 : 
  991.     printesc ( 512 ) ; 
  992.     break ; 
  993.   case 15 : 
  994.     printchar ( 36 ) ; 
  995.     break ; 
  996.   case 16 : 
  997.     printesc ( 870 ) ; 
  998.     break ; 
  999.   } 
  1000.   {
  1001.     helpptr = 5 ; 
  1002.     helpline [ 4 ] = 1042 ; 
  1003.     helpline [ 3 ] = 1043 ; 
  1004.     helpline [ 2 ] = 1044 ; 
  1005.     helpline [ 1 ] = 1045 ; 
  1006.     helpline [ 0 ] = 1046 ; 
  1007.   } 
  1008.   error () ; 
  1009.   incr ( alignstate ) ; 
  1010. } 
  1011.