more e-pTeX

git-svn-id: svn://tug.org/texlive/trunk@21043 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 233 insertions, 6925 deletions

diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index 95f4977c566..84812a7aed4 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -1752,8 +1752,9 @@ eptex_web_srcs = \
 	etexdir/tex.ech
 
 eptex_ch_srcs = \
-	eptexdir/etex.ch0 \
 	eptexdir/eptex-base.ch \
+	eptexdir/etex.ch0 \
+	ptexdir/ptex-base.ch \
 	eptexdir/eptex.ech \
 	eptexdir/etex.ch1 \
 	eptexdir/fam256.ch \
diff --git a/Build/source/texk/web2c/eptexdir/am/eptex.am b/Build/source/texk/web2c/eptexdir/am/eptex.am
index 725e6814642..09eb2b1a04a 100644
--- a/Build/source/texk/web2c/eptexdir/am/eptex.am
+++ b/Build/source/texk/web2c/eptexdir/am/eptex.am
@@ -65,8 +65,9 @@ eptex_web_srcs = \
 eptex.ch: tie$(EXEEXT) eptex.web $(eptex_ch_srcs)
 	$(tie) -c eptex.ch eptex.web $(eptex_ch_srcs)
 eptex_ch_srcs = \
-	eptexdir/etex.ch0 \
 	eptexdir/eptex-base.ch \
+	eptexdir/etex.ch0 \
+	ptexdir/ptex-base.ch \
 	eptexdir/eptex.ech \
 	eptexdir/etex.ch1 \
 	eptexdir/fam256.ch \
diff --git a/Build/source/texk/web2c/eptexdir/eptex-base.ch b/Build/source/texk/web2c/eptexdir/eptex-base.ch
index 44b96720dfc..5555620f9b1 100644
--- a/Build/source/texk/web2c/eptexdir/eptex-base.ch
+++ b/Build/source/texk/web2c/eptexdir/eptex-base.ch
@@ -1,6832 +1,29 @@
-% This is a change file for e-pTeX,
-% essentialy same for that of e-pTeX 090309.
-% Based on change file for 
-%   pTeX 3.1.10 (by Sadayuki Tanaka (sada-t@ascii.co.jp),
-%                   Ken Nakano (ken-na@ascii.co.jp) and ASCII Corporation).
-% e-pTeX is developed by Hironori Kitagawa.
+% This is a change file for e-pTeX.
+%
+% e-pTeX is developed by Hironori Kitagawa,
+% based on pTeX by Sadayuki Tanaka <sada-t@ascii.co.jp>,
+%                  Ken Nakano <ken-na@ascii.co.jp>, and ASCII Corporation.
 %
 % Thanks for:
 %   Noriyuki Abe, Akira Kakuto, Takuji Tanaka, Takayuki Yato,
 %   Yusuke Kuroki.
 %
-% compile:
-% etex.web  := tex.web + etexdir/etex.ch + etexdir/etex.fix
-% etex.ch   := etexdir/tex.ch0 + tex.ch  + etexdir/tex.ch1 
-%              + etexdir/tex.ech + etexdir/etex-binpool.ch
-% eptex.web := eptex-base.ch + eptexdir/ptex-include.ch + eptexdir/fp.ch
-%  ^^^^^^^  please tangle eptex.web.
+% In this TeX Live realisation
+% eptex.web is build from:
+%	tex.web
+%	+ etexdir/etex.ch		e-TeX changes
+%	+ etexdir/tex.ch0		glue
+%	+ tex.ch			Web2C changes
+%	+ etexdir/tex.ech		e-TeX+Web2C changes
 %
-% ---------- pTeX history ----------
-% (??/??/87) RKS jTeX 2.9 -- j1.0
-% (??/??/89) RKS jTeX 2.93 -- j1.3
-% (12/ 9/89) H_2 pTeX 2.93 j1.3 p1.0.1
-% (12/??/89) RKS jTeX 2.95 -- j1.5
-% (12/??/89) RKS jTeX 2.99 -- j1.5
-% (02/02/90) RKS jTeX 2.99 -- j1.6
-% (04/16/90) H_2 pTeX 2.99 j1.6 p1.0.3
-% (09/14/90) H_2 pTeX 2.99 j1.6 p1.0.9 -- pre-release
-% (10/29/90) H_2 Bug fix (p1.0.9a)
-% (01/21/92) H_2 jTeX 2.99 - j1.7
-% (01/21/92) H_2 pTeX 2.99 j1.7 p1.0.9F
-% (03/09/92) H_2 pTeX 2.99 j1.7 p1.0.9G jflag BUG
-% (03/20/95) KN  pTeX p2.0 (based on 3.1415)
-% (09/08/95) KN  pTeX p2.1
-% (09/20/95) KN  pTeX p2.1.1
-% (11/21/95) KN  pTeX p2.1.4
-% (08/27/97) KN  pTeX p2.1.5 (based on 3.14159)
-% (02/26/98) KN  pTeX p2.1.6
-% (03/19/98) KN  pTeX p2.1.7
-% (03/26/98) KN  pTeX p2.1.8 (Web2c 7.2)
-% (02/21/2000) KN  pTeX p2.1.9 (Web2c 7.3.1)
-% (11/13/2000) KN  pTeX p2.1.10
-% (05/22/2001) KN  pTeX p2.1.11
-% (03/10/2001) KN  pTeX p3.0 (modified BSD licence)
-% (09/02/2004) ST  pTeX p3.1.4
-% (11/29/2004) KN  pTeX p3.1.5
-% (12/13/2004) KN  pTeX p3.1.8
-% (10/17/2005) ST  pTeX p3.1.9
-% (07/18/2006) ST  pTeX p3.1.10
-% (08/17/2009) ST  pTeX p3.1.11
-% (05/23/2010) AK  Bug fix by Hironori Kitagawa.
-% (31/12/2010) AK  Bug fix and accent Kanji by Hironori Kitagawa.
+% and eptex.ch from:
+%	+ eptexdir/etex.ch0		glue
+%	+ ptexdir/ptex-base.ch		pTeX changes
+%	+ eptexdir/eptex.ech		e-TeX+pTeX changes
+%	+ eptexdir/etex.ch1		glue
+%	+ eptexdir/fam256.ch		borrowed from Omega
+%	+ eptexdir/pdfstrcmp.ch		borrowed from pdfTeX
+%	+ tex-binpool.ch		compiled pool file
 %
-@x [1.2] l.200 - pTeX:
-@d banner==TeX_banner
-@d banner_k==TeX_banner_k
-@y
-@d pTeX_version_string=='-p3.1.11' {current p\TeX\ version}
-@#
-@d pTeX_banner_k=='This is pTeXk, Version 3.1415926',pTeX_version_string
-@d pTeX_banner=='This is pTeX, Version 3.1415926',pTeX_version_string
-  {printed when p\TeX\ starts}
-@#
-@d banner==pTeX_banner
-@d banner_k==pTeX_banner_k
-@z
-
-@x [2.??] l.586 - pTeX:
-@!ASCII_code=0..255; {eight-bit numbers}
-@y
-@!ASCII_code=0..255; {eight-bit numbers}
-@!KANJI_code=0..65535; {sixteen-bit numbers}
-@z
-
-@x [4.??] l.870 - pTeX:
-@!eight_bits=0..255; {unsigned one-byte quantity}
-@y
-@!eight_bits=0..255; {unsigned one-byte quantity}
-@!sixteen_bits=0..65535; {unsigned two-bytes quantity}
-@z
-
-@x [3.??] l.891 - pTeX:
-@ All of the file opening functions are defined in C.
-@y
-@ All of the file opening functions are defined in C.
-
-@ Kanji code handling.
-@z
-
-@x [4.47] l.1325 - pTeX:
-@!init function get_strings_started:boolean; {initializes the string pool,
-  but returns |false| if something goes wrong}
-label done,exit;
-var k,@!l:0..255; {small indices or counters}
-@y
-@!init function get_strings_started:boolean; {initializes the string pool,
-  but returns |false| if something goes wrong}
-label done,exit;
-var k,@!l:KANJI_code; {small indices or counters}
-@z
-
-@x [4.49] l.1384 - pTeX:
-@<Character |k| cannot be printed@>=
-  (k<" ")or(k>"~")
-@y
-@<Character |k| cannot be printed@>=
-   not (ismultiprn(k) or xprn[k])
-@z
-
-@x [5.54] l.1514 - pTeX: Global variables
-@!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for
-  pseudoprinting}
-@y
-@!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for
-  pseudoprinting}
-@!trick_buf2:array[0..ssup_error_line] of 0..2; {pTeX: buffer for KANJI}
-@!kcode_pos: 0..2; {pTeX: denotes whether first byte or second byte of KANJI}
-@z
-
-@x [5.55] l.1519 - pTeX: Initialize the kcode_pos
-@ @<Initialize the output routines@>=
-selector:=term_only; tally:=0; term_offset:=0; file_offset:=0;
-@y
-@ @<Initialize the output routines@>=
-selector:=term_only; tally:=0; term_offset:=0; file_offset:=0;
-kcode_pos:=0;
-@z
-
-@x [5.57] l.1538 - pTeX: kcode_pos
-procedure print_ln; {prints an end-of-line}
-begin case selector of
-term_and_log: begin wterm_cr; wlog_cr;
-  term_offset:=0; file_offset:=0;
-  end;
-log_only: begin wlog_cr; file_offset:=0;
-  end;
-term_only: begin wterm_cr; term_offset:=0;
-  end;
-no_print,pseudo,new_string: do_nothing;
-othercases write_ln(write_file[selector])
-endcases;@/
-@y
-procedure print_ln; {prints an end-of-line}
-begin case selector of
-term_and_log: begin
-  if kcode_pos=1 then begin wterm(' '); wlog(' '); end;
-  wterm_cr; wlog_cr; term_offset:=0; file_offset:=0;
-  end;
-log_only: begin if kcode_pos=1 then wlog(' ');
-  wlog_cr; file_offset:=0;
-  end;
-term_only: begin if kcode_pos=1 then wterm(' ');
-  wterm_cr; term_offset:=0;
-  end;
-no_print,pseudo,new_string: do_nothing;
-othercases write_ln(write_file[selector])
-endcases;@/
-kcode_pos:=0;
-@z
-
-@x [5.58] l.1557 - pTeX: kcode_pos, trick_buf2
-procedure print_char(@!s:ASCII_code); {prints a single character}
-label exit;
-begin if @<Character |s| is the current new-line character@> then
- if selector<pseudo then
-  begin print_ln; return;
-  end;
-case selector of
-term_and_log: begin wterm(xchr[s]); wlog(xchr[s]);
-  incr(term_offset); incr(file_offset);
-  if term_offset=max_print_line then
-    begin wterm_cr; term_offset:=0;
-    end;
-  if file_offset=max_print_line then
-    begin wlog_cr; file_offset:=0;
-    end;
-  end;
-log_only: begin wlog(xchr[s]); incr(file_offset);
-  if file_offset=max_print_line then print_ln;
-  end;
-term_only: begin wterm(xchr[s]); incr(term_offset);
-  if term_offset=max_print_line then print_ln;
-  end;
-no_print: do_nothing;
-pseudo: if tally<trick_count then trick_buf[tally mod error_line]:=s;
-@y
-procedure print_char(@!s:ASCII_code); {prints a single character}
-label exit; {label is not used but nonetheless kept (for other changes?)}
-begin if @<Character |s| is the current new-line character@> then
- if selector<pseudo then
-  begin print_ln; return;
-  end;
-if kcode_pos=1 then kcode_pos:=2
-else if iskanji1(xchr[s]) then
-  begin kcode_pos:=1;
-  if (selector=term_and_log)or(selector=log_only) then
-    if file_offset>=max_print_line-1 then
-       begin wlog_cr; file_offset:=0;
-       end;
-  if (selector=term_and_log)or(selector=term_only) then
-    if term_offset>=max_print_line-1 then
-       begin wterm_cr; term_offset:=0;
-       end;
-  end
-else kcode_pos:=0;
-case selector of
-term_and_log: begin wterm(xchr[s]); incr(term_offset);
-  if term_offset=max_print_line then
-    begin wterm_cr; term_offset:=0;
-    end;
-  wlog(xchr[s]); incr(file_offset);
-  if file_offset=max_print_line then
-    begin wlog_cr; file_offset:=0;
-    end;
-  end;
-log_only: begin wlog(xchr[s]); incr(file_offset);
-  if file_offset=max_print_line then print_ln;
-  end;
-term_only: begin wterm(xchr[s]); incr(term_offset);
-  if term_offset=max_print_line then print_ln;
-  end;
-no_print: do_nothing;
-pseudo: if tally<trick_count then
-  begin trick_buf[tally mod error_line]:=s;
-  trick_buf2[tally mod error_line]:=kcode_pos;
-  end;
-@z
-
-@x l.1603 - pTeX
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<256 then
-  if s<0 then s:="???" {can't happen}
-  else begin if selector>pseudo then
-      begin print_char(s); return; {internal strings are not expanded}
-      end;
-    if (@<Character |s| is the current new-line character@>) then
-      if selector<pseudo then
-        begin print_ln; return;
-        end;
-    nl:=new_line_char; new_line_char:=-1;
-      {temporarily disable new-line character}
-    j:=str_start[s];
-    while j<str_start[s+1] do
-      begin print_char(so(str_pool[j])); incr(j);
-      end;
-    new_line_char:=nl; return;
-    end;
-j:=str_start[s];
-while j<str_start[s+1] do
-  begin print_char(so(str_pool[j])); incr(j);
-  end;
-exit:end;
-@y
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<256 then
-  if s<0 then s:="???" {can't happen}
-  else begin if selector>pseudo then
-      begin print_char(s); return; {internal strings are not expanded}
-      end;
-    if (@<Character |s| is the current new-line character@>) then
-      if selector<pseudo then
-        begin print_ln; return;
-        end;
-    nl:=new_line_char; new_line_char:=-1;
-      {temporarily disable new-line character}
-    j:=str_start[s];
-    while j<str_start[s+1] do
-      begin print_char(so(str_pool[j])); incr(j);
-      end;
-    new_line_char:=nl; return;
-    end;
-j:=str_start[s];
-while j<str_start[s+1] do
-  begin print_char(so(str_pool[j])); incr(j);
-  end;
-exit:end;
-@z
-
-@x [5.61] l.1656 - pTeX:
-@<Initialize the output...@>=
-if src_specials_p or file_line_error_style_p or parse_first_line_p then
-  wterm(banner_k)
-else
-  wterm(banner);
-@y
-@<Initialize the output...@>=
-if src_specials_p or file_line_error_style_p or parse_first_line_p then
-  wterm(banner_k)
-else
-  wterm(banner);
-  wterm(' (');
-  wterm(conststringcast(get_enc_string));
-  wterm(')');
-@z
-
-@x l.1820 - pTeX
-k:=first; while k < last do begin print_buffer(k) end;
-@y
-if last<>first then for k:=first to last-1 do print(buffer[k]);
-@z
-
-@x [8.112] l.2588 - pTeX:
-@d ho(#)==# {to take a sixteen-bit item from a halfword}
-@y
-@d ho(#)==# {to take a sixteen-bit item from a halfword}
-@d KANJI(#)==# {pTeX: to output an KANJI code into a halfword}
-@d tokanji(#)==# {pTeX: to take an KANJI code into a halfword}
-@d tonum(#)==# {pTeX: to put an KANJI code into a halfword}
-@z
-
-@x [10.135] l.3008 - pTeX: box_dir, space_ptr, xspace_ptr
-@d hlist_node=0 {|type| of hlist nodes}
-@d box_node_size=7 {number of words to allocate for a box node}
-@d width_offset=1 {position of |width| field in a box node}
-@d depth_offset=2 {position of |depth| field in a box node}
-@d height_offset=3 {position of |height| field in a box node}
-@d width(#) == mem[#+width_offset].sc {width of the box, in sp}
-@d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp}
-@d height(#) == mem[#+height_offset].sc {height of the box, in sp}
-@d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp}
-@d list_offset=5 {position of |list_ptr| field in a box node}
-@d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box}
-@d glue_order(#) == subtype(#+list_offset) {applicable order of infinity}
-@d glue_sign(#) == type(#+list_offset) {stretching or shrinking}
-@d normal=0 {the most common case when several cases are named}
-@d stretching = 1 {glue setting applies to the stretch components}
-@d shrinking = 2 {glue setting applies to the shrink components}
-@d glue_offset = 6 {position of |glue_set| in a box node}
-@d glue_set(#) == mem[#+glue_offset].gr
-  {a word of type |glue_ratio| for glue setting}
-@y
-@d hlist_node=0 {|type| of hlist nodes}
-@d box_node_size=8 {number of words to allocate for a box node}
-@#
-@d box_dir(#) == subtype(#) {direction mode of a box}
-@d dir_default == qi(0) {direction of the box, default Left to Right}
-@d dir_dtou == qi(1) {direction of the box, Bottom to Top}
-@d dir_tate == qi(3) {direction of the box, Top to Bottom}
-@d dir_yoko == qi(4) {direction of the box, equal default}
-@d any_dir == dir_yoko,dir_tate,dir_dtou
-@#
-@d width_offset=1 {position of |width| field in a box node}
-@d depth_offset=2 {position of |depth| field in a box node}
-@d height_offset=3 {position of |height| field in a box node}
-@d width(#) == mem[#+width_offset].sc {width of the box, in sp}
-@d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp}
-@d height(#) == mem[#+height_offset].sc {height of the box, in sp}
-@d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp}
-@d list_offset=5 {position of |list_ptr| field in a box node}
-@d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box}
-@d glue_order(#) == subtype(#+list_offset) {applicable order of infinity}
-@d glue_sign(#) == type(#+list_offset) {stretching or shrinking}
-@d normal=0 {the most common case when several cases are named}
-@d stretching = 1 {glue setting applies to the stretch components}
-@d shrinking = 2 {glue setting applies to the shrink components}
-@d glue_offset = 6 {position of |glue_set| in a box node}
-@d glue_set(#) == mem[#+glue_offset].gr
-  {a word of type |glue_ratio| for glue setting}
-@d space_offset = 7 {position of |glue_set| in a box node}
-@d space_ptr(#) == link(#+space_offset)
-@d xspace_ptr(#) == info(#+space_offset)
-@z
-
-@x [10.136] l.3037 - pTeX: space_ptr, xspace_ptr
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-@y
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-space_ptr(p):=zero_glue; xspace_ptr(p):=zero_glue;
-add_glue_ref(zero_glue); add_glue_ref(zero_glue);
-@z
-
-@x [10.137] l.3045 - pTeX: direction change node
-@d vlist_node=1 {|type| of vlist nodes}
-@y
-@d vlist_node=1 {|type| of vlist nodes}
-
-@ A |dir_node| stands for direction change.
-
-@d dir_node=2 {|type| of dir nodes}
-
-@p function new_dir_node(b:pointer; dir:eight_bits):pointer;
-var p:pointer; {the new node}
-begin if type(b)>vlist_node then confusion("new_dir_node:not box");
-p:=new_null_box; type(p):=dir_node; box_dir(p):=dir;
-case box_dir(b) of
-  dir_yoko: @<Yoko to other direction@>;
-  dir_tate: @<Tate to other direction@>;
-  dir_dtou: @<DtoU to other direction@>;
-  othercases confusion("new_dir_node:illegal dir");
-endcases;
-link(b):=null; list_ptr(p):=b;
-new_dir_node:=p;
-end;
-
-@ @<Yoko to other direction@>=
-  case dir of
-  dir_tate: begin width(p):=height(b)+depth(b);
-      depth(p):=width(b)/2; height(p):=width(b)-depth(p);
-      end;
-  dir_dtou: begin width(p):=height(b)+depth(b);
-      depth(p):=0; height(p):=width(b);
-      end;
-  othercases confusion("new_dir_node:y->?");
-  endcases
-
-@ @<Tate to other direction@>=
-  case dir of
-  dir_yoko: begin width(p):=height(b)+depth(b);
-      depth(p):=0; height(p):=width(b);
-      end;
-  dir_dtou: begin width(p):=width(b);
-      depth(p):=height(b); height(p):=depth(b);
-      end;
-  othercases confusion("new_dir_node:t->?");
-  endcases
-
-@ @<DtoU to other direction@>=
-  case dir of
-  dir_yoko: begin width(p):=height(b)+depth(b);
-      depth(p):=0; height(p):=width(b);
-      end;
-  dir_tate: begin width(p):=width(b);
-      depth(p):=height(b); height(p):=depth(b);
-      end;
-  othercases confusion("new_dir_node:d->?");
-  endcases
-@z
-
-@x [10.138] l.3054 - pTeX: renumber rule_node
-@d rule_node=2 {|type| of rule nodes}
-@y
-@d rule_node=3 {|type| of rule nodes}
-@z
-
-@x [10.140] l.3083 - pTeX: renumber ins_node, add ins_dir field
-@d ins_node=3 {|type| of insertion nodes}
-@d ins_node_size=5 {number of words to allocate for an insertion}
-@d float_cost(#)==mem[#+1].int {the |floating_penalty| to be used}
-@d ins_ptr(#)==info(#+4) {the vertical list to be inserted}
-@d split_top_ptr(#)==link(#+4) {the |split_top_skip| to be used}
-@y
-@d ins_node=4 {|type| of insertion nodes}
-@d ins_node_size=6 {number of words to allocate for an insertion}
-@d float_cost(#)==mem[#+1].int {the |floating_penalty| to be used}
-@d ins_ptr(#)==info(#+4) {the vertical list to be inserted}
-@d split_top_ptr(#)==link(#+4) {the |split_top_skip| to be used}
-@d ins_dir(#)==subtype(#+5) {direction of |ins_node|}
-@z
-
-@x [10.141] l.3089 - pTeX: disp_node
-@ A |mark_node| has a |mark_ptr| field that points to the reference count
-@y
-@ A |disp_node| has a |disp_dimen| field that points to the displacement
-distance of the baselineshift between Latin characters and Kanji chatacters.
-
-@d disp_node=5 {|type| of a displace node}
-@d disp_dimen(#)==mem[#+1].sc
-
-@ A |mark_node| has a |mark_ptr| field that points to the reference count
-@z
-
-@x [10.140] l.3095 - pTeX: renumber nodes
-@d mark_node=4 {|type| of a mark node}
-@y
-@d mark_node=6 {|type| of a mark node}
-@z
-
-@x [10.141] l.3105 - pTeX: renumber nodes
-@d adjust_node=5 {|type| of an adjust node}
-@y
-@d adjust_node=7 {|type| of an adjust node}
-@z
-
-@x [10.142] l.3122 - pTeX: renumber nodes
-@d ligature_node=6 {|type| of a ligature node}
-@y
-@d ligature_node=8 {|type| of a ligature node}
-@z
-
-@x [10.145] l.3163 - pTeX: renumber nodes
-@d disc_node=7 {|type| of a discretionary node}
-@y
-@d disc_node=9 {|type| of a discretionary node}
-@z
-
-@x [10.146] l.3191 - pTeX: renumber nodes
-@d whatsit_node=8 {|type| of special extension nodes}
-@y
-@d whatsit_node=10 {|type| of special extension nodes}
-@z
-
-@x [10.147] l.3198 - pTeX: renumber nodes
-@d math_node=9 {|type| of a math node}
-@y
-@d math_node=11 {|type| of a math node}
-@z
-
-@x [10.150] l.3244 - pTeX: renumber nodes
-@d glue_node=10 {|type| of node that points to a glue specification}
-@y
-@d glue_node=12 {|type| of node that points to a glue specification}
-@z
-
-@x [10.155] l.3342 - pTeX: renumber nodes
-@d kern_node=11 {|type| of a kern node}
-@d explicit=1 {|subtype| of kern nodes from \.{\\kern} and \.{\\/}}
-@d acc_kern=2 {|subtype| of kern nodes from accents}
-@y
-@d kern_node=13 {|type| of a kern node}
-@d explicit=1 {|subtype| of kern nodes from \.{\\kern}}
-@d acc_kern=2 {|subtype| of kern nodes from accents}
-@d ita_kern=3 {|subtype| of kern nodes from \.{\\/}}
-@z
-
-@x [10.157] l.3363 - pTeX: renumber nodes
-@d penalty_node=12 {|type| of a penalty node}
-@y
-@d penalty_node=14 {|type| of a penalty node}
-@d widow_pena=1 {|subtype| of penalty nodes from \.{\\jchrwidowpenalty}}
-@d kinsoku_pena=2 {|subtype| of penalty nodes from kinsoku}
-@z
-
-@x [10.159] l.3392 - pTeX: renumber nodes
-@d unset_node=13 {|type| for an unset node}
-@y
-@d unset_node=15 {|type| for an unset node}
-@z
-
-@x [10.160] l.3397 - pTeX: renumber nodes
-@ In fact, there are still more types coming. When we get to math formula
-processing we will see that a |style_node| has |type=14|; and a number
-of larger type codes will also be defined, for use in math mode only.
-@y
-@ In fact, there are still more types coming. When we get to math formula
-processing we will see that a |style_node| has |type=16|; and a number
-of larger type codes will also be defined, for use in math mode only.
-@z
-
-@x [12.174] l.3662 - pTeX: print KANJI
-      print_ASCII(qo(character(p)));
-@y
-      if font_dir[font(p)]<>dir_default then
-        begin p:=link(p); print_kanji(info(p));
-        end
-      else print_ASCII(qo(character(p)));
-@z
-
-@x [12.175] l.3672 - pTeX: Print a short indication of dir_nodes.
-hlist_node,vlist_node,ins_node,whatsit_node,mark_node,adjust_node,
-  unset_node: print("[]");
-@y
-hlist_node,vlist_node,dir_node,ins_node,whatsit_node,
-  mark_node,adjust_node,unset_node: print("[]");
-@z
-
-@x [12.176] l.3698 - pTeX: print KANJI.
-  print_char(" "); print_ASCII(qo(character(p)));
-@y
-  print_char(" ");
-  if font_dir[font(p)]<>dir_default then
-    begin p:=link(p); print_kanji(info(p));
-    end
-  else print_ASCII(qo(character(p)));
-@z
-
-@x [12.183] l.3815 - pTeX: display char_node and disp_node.
-if is_char_node(p) then print_font_and_char(p)
-else  case type(p) of
-  hlist_node,vlist_node,unset_node: @<Display box |p|@>;
-  rule_node: @<Display rule |p|@>;
-  ins_node: @<Display insertion |p|@>;
-  whatsit_node: @<Display the whatsit node |p|@>;
-@y
-if is_char_node(p) then
-  begin print_font_and_char(p);
-  if font_dir[font(p)]<>dir_default then p:=link(p)
-  end
-else  case type(p) of
-  hlist_node,vlist_node,dir_node,unset_node: @<Display box |p|@>;
-  rule_node: @<Display rule |p|@>;
-  ins_node: @<Display insertion |p|@>;
-  whatsit_node: @<Display the whatsit node |p|@>;
-  disp_node: begin print_esc("displace "); print_scaled(disp_dimen(p));
-    end;
-@z
-
-@x [12.184] l.3833 - pTeX: display dir_node.
-@ @<Display box |p|@>=
-begin if type(p)=hlist_node then print_esc("h")
-else if type(p)=vlist_node then print_esc("v")
-else print_esc("unset");
-@y
-@ @<Display box |p|@>=
-begin case type(p) of
-  hlist_node: print_esc("h");
-  vlist_node: print_esc("v");
-  dir_node: print_esc("dir");
-  othercases print_esc("unset")
-  endcases@/;
-@z
-@x [12.184] l.3842 - pTeX: display dir_node.
-  if shift_amount(p)<>0 then
-    begin print(", shifted "); print_scaled(shift_amount(p));
-    end;
-@y
-  if shift_amount(p)<>0 then
-    begin print(", shifted "); print_scaled(shift_amount(p));
-    end;
-@z
-@x [12.184] l.3845 - pTeX: display dir_node.
-  end;
-@y
-  if box_dir(p)<>dir_default then
-    begin print_direction_alt(box_dir(p));
-    end;
-  end;
-@z
-
-@x [12.188] l.3896 - pTeX: Display insertion and ins_dir.
-@ @<Display insertion |p|@>=
-begin print_esc("insert"); print_int(qo(subtype(p)));
-print(", natural size "); print_scaled(height(p));
-@y
-@ @<Display insertion |p|@>=
-begin print_esc("insert"); print_int(qo(subtype(p)));
-print_dir(ins_dir(p));
-print(", natural size "); print_scaled(height(p));
-@z
-
-@x [12.194] l.3961 - pTeX: Display penalty usage
-@ @<Display penalty |p|@>=
-begin print_esc("penalty "); print_int(penalty(p));
-end
-@y
-@ @<Display penalty |p|@>=
-begin print_esc("penalty "); print_int(penalty(p));
-if subtype(p)=widow_pena then print("(for \jchrwidowpenalty)")
-else if subtype(p)=kinsoku_pena then print("(for kinsoku)");
-end
-@z
-
-@x [13.202] l.4043 - pTeX: dir_node, disp_node
-    hlist_node,vlist_node,unset_node: begin flush_node_list(list_ptr(p));
-      free_node(p,box_node_size); goto done;
-      end;
-@y
-    hlist_node,vlist_node,dir_node,unset_node:
-      begin flush_node_list(list_ptr(p));
-      fast_delete_glue_ref(space_ptr(p));
-      fast_delete_glue_ref(xspace_ptr(p));
-      free_node(p,box_node_size); goto done;
-      end;
-@z
-
-@x [13.202] l.4056 - pTeX:
-    kern_node,math_node,penalty_node: do_nothing;
-@y
-    kern_node,disp_node,math_node,penalty_node: do_nothing;
-@z
-
-@x [14.206] l.4121 - pTeX: space_ptr, xspace_ptr, dir_node, disp_node
-@ @<Case statement to copy...@>=
-case type(p) of
-hlist_node,vlist_node,unset_node: begin r:=get_node(box_node_size);
-  mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last two words}
-  list_ptr(r):=copy_node_list(list_ptr(p)); {this affects |mem[r+5]|}
-  words:=5;
-  end;
-rule_node: begin r:=get_node(rule_node_size); words:=rule_node_size;
-  end;
-ins_node: begin r:=get_node(ins_node_size); mem[r+4]:=mem[p+4];
-  add_glue_ref(split_top_ptr(p));
-  ins_ptr(r):=copy_node_list(ins_ptr(p)); {this affects |mem[r+4]|}
-  words:=ins_node_size-1;
-  end;
-@y
-@ @<Case statement to copy...@>=
-case type(p) of
-hlist_node,vlist_node,dir_node,unset_node:
-  begin r:=get_node(box_node_size);
-  mem[r+7]:=mem[p+7];
-  mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last three words}
-  add_glue_ref(space_ptr(r)); add_glue_ref(xspace_ptr(r));
-  list_ptr(r):=copy_node_list(list_ptr(p)); {this affects |mem[r+5]|}
-  words:=5;
-  end;
-rule_node: begin r:=get_node(rule_node_size); words:=rule_node_size;
-  end;
-ins_node: begin r:=get_node(ins_node_size);
-  mem[r+5]:=mem[p+5]; mem[r+4]:=mem[p+4];
-  add_glue_ref(split_top_ptr(p));
-  ins_ptr(r):=copy_node_list(ins_ptr(p)); {this affects |mem[r+4]|}
-  words:=ins_node_size-2;
-  end;
-@z
-
-@x [14.206] l.4140 - pTeX: disp_node
-kern_node,math_node,penalty_node: begin r:=get_node(small_node_size);
-  words:=small_node_size;
-  end;
-@y
-kern_node,disp_node,math_node,penalty_node:
-  begin r:=get_node(small_node_size); words:=small_node_size;
-  end;
-@z
-
-@x [15.207] l.4201 - pTeX: Add kanji, kana, other_kchar category codes.
-@d max_char_code=15 {largest catcode for individual characters}
-@y
-@d kanji=16 {kanji}
-@d kana=17 {hiragana, katakana, alphabet}
-@d other_kchar=18 {kanji codes}
-@d max_char_code=18 {largest catcode for individual characters}
-@z
-
-@x [15.208] l.4207 - pTeX: Add inhibit_glue, chg_dir.
-@d char_num=16 {character specified numerically ( \.{\\char} )}
-@d math_char_num=17 {explicit math code ( \.{\\mathchar} )}
-@d mark=18 {mark definition ( \.{\\mark} )}
-@d xray=19 {peek inside of \TeX\ ( \.{\\show}, \.{\\showbox}, etc.~)}
-@d make_box=20 {make a box ( \.{\\box}, \.{\\copy}, \.{\\hbox}, etc.~)}
-@d hmove=21 {horizontal motion ( \.{\\moveleft}, \.{\\moveright} )}
-@d vmove=22 {vertical motion ( \.{\\raise}, \.{\\lower} )}
-@d un_hbox=23 {unglue a box ( \.{\\unhbox}, \.{\\unhcopy} )}
-@d un_vbox=24 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )}
-@d remove_item=25 {nullify last item ( \.{\\unpenalty},
-  \.{\\unkern}, \.{\\unskip} )}
-@d hskip=26 {horizontal glue ( \.{\\hskip}, \.{\\hfil}, etc.~)}
-@d vskip=27 {vertical glue ( \.{\\vskip}, \.{\\vfil}, etc.~)}
-@d mskip=28 {math glue ( \.{\\mskip} )}
-@d kern=29 {fixed space ( \.{\\kern})}
-@d mkern=30 {math kern ( \.{\\mkern} )}
-@d leader_ship=31 {use a box ( \.{\\shipout}, \.{\\leaders}, etc.~)}
-@d halign=32 {horizontal table alignment ( \.{\\halign} )}
-@d valign=33 {vertical table alignment ( \.{\\valign} )}
-@d no_align=34 {temporary escape from alignment ( \.{\\noalign} )}
-@d vrule=35 {vertical rule ( \.{\\vrule} )}
-@d hrule=36 {horizontal rule ( \.{\\hrule} )}
-@d insert=37 {vlist inserted in box ( \.{\\insert} )}
-@d vadjust=38 {vlist inserted in enclosing paragraph ( \.{\\vadjust} )}
-@d ignore_spaces=39 {gobble |spacer| tokens ( \.{\\ignorespaces} )}
-@d after_assignment=40 {save till assignment is done ( \.{\\afterassignment} )}
-@d after_group=41 {save till group is done ( \.{\\aftergroup} )}
-@d break_penalty=42 {additional badness ( \.{\\penalty} )}
-@d start_par=43 {begin paragraph ( \.{\\indent}, \.{\\noindent} )}
-@d ital_corr=44 {italic correction ( \.{\\/} )}
-@d accent=45 {attach accent in text ( \.{\\accent} )}
-@d math_accent=46 {attach accent in math ( \.{\\mathaccent} )}
-@d discretionary=47 {discretionary texts ( \.{\\-}, \.{\\discretionary} )}
-@d eq_no=48 {equation number ( \.{\\eqno}, \.{\\leqno} )}
-@d left_right=49 {variable delimiter ( \.{\\left}, \.{\\right} )}
-@d math_comp=50 {component of formula ( \.{\\mathbin}, etc.~)}
-@d limit_switch=51 {diddle limit conventions ( \.{\\displaylimits}, etc.~)}
-@d above=52 {generalized fraction ( \.{\\above}, \.{\\atop}, etc.~)}
-@d math_style=53 {style specification ( \.{\\displaystyle}, etc.~)}
-@d math_choice=54 {choice specification ( \.{\\mathchoice} )}
-@d non_script=55 {conditional math glue ( \.{\\nonscript} )}
-@d vcenter=56 {vertically center a vbox ( \.{\\vcenter} )}
-@d case_shift=57 {force specific case ( \.{\\lowercase}, \.{\\uppercase}~)}
-@d message=58 {send to user ( \.{\\message}, \.{\\errmessage} )}
-@d extension=59 {extensions to \TeX\ ( \.{\\write}, \.{\\special}, etc.~)}
-@d in_stream=60 {files for reading ( \.{\\openin}, \.{\\closein} )}
-@d begin_group=61 {begin local grouping ( \.{\\begingroup} )}
-@d end_group=62 {end local grouping ( \.{\\endgroup} )}
-@d omit=63 {omit alignment template ( \.{\\omit} )}
-@d ex_space=64 {explicit space ( \.{\\\ } )}
-@d no_boundary=65 {suppress boundary ligatures ( \.{\\noboundary} )}
-@d radical=66 {square root and similar signs ( \.{\\radical} )}
-@d end_cs_name=67 {end control sequence ( \.{\\endcsname} )}
-@d min_internal=68 {the smallest code that can follow \.{\\the}}
-@d char_given=68 {character code defined by \.{\\chardef}}
-@d math_given=69 {math code defined by \.{\\mathchardef}}
-@d last_item=70 {most recent item ( \.{\\lastpenalty},
-  \.{\\lastkern}, \.{\\lastskip} )}
-@d max_non_prefixed_command=70 {largest command code that can't be \.{\\global}}
-@y
-@d char_num=max_char_code+1 {character specified numerically ( \.{\\char} )}
-@d math_char_num=char_num+1 {explicit math code ( \.{\\mathchar} )}
-@d mark=math_char_num+1 {mark definition ( \.{\\mark} )}
-@d xray=mark+1 {peek inside of \TeX\ ( \.{\\show}, \.{\\showbox}, etc.~)}
-@d make_box=xray+1 {make a box ( \.{\\box}, \.{\\copy}, \.{\\hbox}, etc.~)}
-@d hmove=make_box+1 {horizontal motion ( \.{\\moveleft}, \.{\\moveright} )}
-@d vmove=hmove+1 {vertical motion ( \.{\\raise}, \.{\\lower} )}
-@d un_hbox=vmove+1 {unglue a box ( \.{\\unhbox}, \.{\\unhcopy} )}
-@d un_vbox=un_hbox+1 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )}
-@d remove_item=un_vbox+1 {nullify last item ( \.{\\unpenalty},
-  \.{\\unkern}, \.{\\unskip} )}
-@d hskip=remove_item+1 {horizontal glue ( \.{\\hskip}, \.{\\hfil}, etc.~)}
-@d vskip=hskip+1 {vertical glue ( \.{\\vskip}, \.{\\vfil}, etc.~)}
-@d mskip=vskip+1 {math glue ( \.{\\mskip} )}
-@d kern=mskip+1 {fixed space ( \.{\\kern})}
-@d mkern=kern+1 {math kern ( \.{\\mkern} )}
-@d leader_ship=mkern+1 {use a box ( \.{\\shipout}, \.{\\leaders}, etc.~)}
-@d halign=leader_ship+1 {horizontal table alignment ( \.{\\halign} )}
-@d valign=halign+1 {vertical table alignment ( \.{\\valign} )}
-@d no_align=valign+1 {temporary escape from alignment ( \.{\\noalign} )}
-@d vrule=no_align+1 {vertical rule ( \.{\\vrule} )}
-@d hrule=vrule+1 {horizontal rule ( \.{\\hrule} )}
-@d insert=hrule+1 {vlist inserted in box ( \.{\\insert} )}
-@d vadjust=insert+1 {vlist inserted in enclosing paragraph ( \.{\\vadjust} )}
-@d ignore_spaces=vadjust+1 {gobble |spacer| tokens ( \.{\\ignorespaces} )}
-@d after_assignment=ignore_spaces+1 {save till assignment is done ( \.{\\afterassignment} )}
-@d after_group=after_assignment+1 {save till group is done ( \.{\\aftergroup} )}
-@d break_penalty=after_group+1 {additional badness ( \.{\\penalty} )}
-@d start_par=break_penalty+1 {begin paragraph ( \.{\\indent}, \.{\\noindent} )}
-@d ital_corr=start_par+1 {italic correction ( \.{\\/} )}
-@d accent=ital_corr+1 {attach accent in text ( \.{\\accent} )}
-@d math_accent=accent+1 {attach accent in math ( \.{\\mathaccent} )}
-@d discretionary=math_accent+1 {discretionary texts ( \.{\\-}, \.{\\discretionary} )}
-@d eq_no=discretionary+1 {equation number ( \.{\\eqno}, \.{\\leqno} )}
-@d left_right=eq_no+1 {variable delimiter ( \.{\\left}, \.{\\right} )}
-@d math_comp=left_right+1 {component of formula ( \.{\\mathbin}, etc.~)}
-@d limit_switch=math_comp+1 {diddle limit conventions ( \.{\\displaylimits}, etc.~)}
-@d above=limit_switch+1 {generalized fraction ( \.{\\above}, \.{\\atop}, etc.~)}
-@d math_style=above+1 {style specification ( \.{\\displaystyle}, etc.~)}
-@d math_choice=math_style+1 {choice specification ( \.{\\mathchoice} )}
-@d non_script=math_choice+1 {conditional math glue ( \.{\\nonscript} )}
-@d vcenter=non_script+1 {vertically center a vbox ( \.{\\vcenter} )}
-@d case_shift=vcenter+1 {force specific case ( \.{\\lowercase}, \.{\\uppercase}~)}
-@d message=case_shift+1 {send to user ( \.{\\message}, \.{\\errmessage} )}
-@d extension=message+1 {extensions to \TeX\ ( \.{\\write}, \.{\\special}, etc.~)}
-@d in_stream=extension+1 {files for reading ( \.{\\openin}, \.{\\closein} )}
-@d begin_group=in_stream+1 {begin local grouping ( \.{\\begingroup} )}
-@d end_group=begin_group+1 {end local grouping ( \.{\\endgroup} )}
-@d omit=end_group+1 {omit alignment template ( \.{\\omit} )}
-@d ex_space=omit+1 {explicit space ( \.{\\\ } )}
-@d no_boundary=ex_space+1 {suppress boundary ligatures ( \.{\\noboundary} )}
-@d radical=no_boundary+1 {square root and similar signs ( \.{\\radical} )}
-@d end_cs_name=radical+1 {end control sequence ( \.{\\endcsname} )}
-@d min_internal=end_cs_name+1 {the smallest code that can follow \.{\\the}}
-@d char_given=min_internal {character code defined by \.{\\chardef}}
-@d math_given=char_given+1 {math code defined by \.{\\mathchardef}}
-@d last_item=math_given+1 {most recent item ( \.{\\lastpenalty},
-  \.{\\lastkern}, \.{\\lastskip} )}
-@d inhibit_glue=last_item+1 {inhibit adjust glue ( \.{\\inhibitglue} )}
-@d chg_dir=inhibit_glue+1 {change dir mode by \.{\\tate}, \.{\\yoko}}
-@d max_non_prefixed_command=chg_dir {largest command code that can't be \.{\\global}}
-@z
-
-@x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing
-@d toks_register=71 {token list register ( \.{\\toks} )}
-@d assign_toks=72 {special token list ( \.{\\output}, \.{\\everypar}, etc.~)}
-@d assign_int=73 {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)}
-@d assign_dimen=74 {user-defined length ( \.{\\hsize}, etc.~)}
-@d assign_glue=75 {user-defined glue ( \.{\\baselineskip}, etc.~)}
-@d assign_mu_glue=76 {user-defined muglue ( \.{\\thinmuskip}, etc.~)}
-@d assign_font_dimen=77 {user-defined font dimension ( \.{\\fontdimen} )}
-@d assign_font_int=78 {user-defined font integer ( \.{\\hyphenchar},
-  \.{\\skewchar} )}
-@d set_aux=79 {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )}
-@d set_prev_graf=80 {specify state info ( \.{\\prevgraf} )}
-@d set_page_dimen=81 {specify state info ( \.{\\pagegoal}, etc.~)}
-@d set_page_int=82 {specify state info ( \.{\\deadcycles},
-  \.{\\insertpenalties} )}
-@d set_box_dimen=83 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )}
-@d set_shape=84 {specify fancy paragraph shape ( \.{\\parshape} )}
-@d def_code=85 {define a character code ( \.{\\catcode}, etc.~)}
-@d def_family=86 {declare math fonts ( \.{\\textfont}, etc.~)}
-@d set_font=87 {set current font ( font identifiers )}
-@d def_font=88 {define a font file ( \.{\\font} )}
-@d register=89 {internal register ( \.{\\count}, \.{\\dimen}, etc.~)}
-@d max_internal=89 {the largest code that can follow \.{\\the}}
-@d advance=90 {advance a register or parameter ( \.{\\advance} )}
-@d multiply=91 {multiply a register or parameter ( \.{\\multiply} )}
-@d divide=92 {divide a register or parameter ( \.{\\divide} )}
-@d prefix=93 {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )}
-@d let=94 {assign a command code ( \.{\\let}, \.{\\futurelet} )}
-@d shorthand_def=95 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)}
-  {or \.{\\charsubdef}}
-@d read_to_cs=96 {read into a control sequence ( \.{\\read} )}
-@d def=97 {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )}
-@d set_box=98 {set a box ( \.{\\setbox} )}
-@d hyph_data=99 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )}
-@d set_interaction=100 {define level of interaction ( \.{\\batchmode}, etc.~)}
-@d max_command=100 {the largest command code seen at |big_switch|}
-@y
-@d toks_register=max_non_prefixed_command+1 {token list register ( \.{\\toks} )}
-@d assign_toks=toks_register+1
-  {special token list ( \.{\\output}, \.{\\everypar}, etc.~)}
-@d assign_int=assign_toks+1
-  {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)}
-@d assign_dimen=assign_int+1 {user-defined length ( \.{\\hsize}, etc.~)}
-@d assign_glue=assign_dimen+1 {user-defined glue ( \.{\\baselineskip}, etc.~)}
-@d assign_mu_glue=assign_glue+1 {user-defined muglue ( \.{\\thinmuskip}, etc.~)}
-@d assign_font_dimen=assign_mu_glue+1
-  {user-defined font dimension ( \.{\\fontdimen} )}
-@d assign_font_int=assign_font_dimen+1
-  {user-defined font integer ( \.{\\hyphenchar}, \.{\\skewchar} )}
-@d assign_kinsoku=assign_font_int+1
-  {user-defined kinsoku character ( \.{\\prebreakpenalty},
-   \.{\\postbreakpenalty} )}
-@d assign_inhibit_xsp_code=assign_kinsoku+1
-  {user-defined inhibit xsp character ( \.{\\inhibitxspcode} )}
-@d set_kansuji_char=assign_inhibit_xsp_code+1
-  {user-defined kansuji character ( \.{\\kansujichar} )}
-@d set_aux=set_kansuji_char+1
-  {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )}
-@d set_prev_graf=set_aux+1 {specify state info ( \.{\\prevgraf} )}
-@d set_page_dimen=set_prev_graf+1 {specify state info ( \.{\\pagegoal}, etc.~)}
-@d set_page_int=set_page_dimen+1 {specify state info ( \.{\\deadcycles},
-  \.{\\insertpenalties} )}
-@d set_box_dimen=set_page_int+1 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )}
-@d set_shape=set_box_dimen+1 {specify fancy paragraph shape ( \.{\\parshape} )}
-@d def_code=set_shape+1 {define a character code ( \.{\\catcode}, etc.~)}
-@d def_family=def_code+1 {declare math fonts ( \.{\\textfont}, etc.~)}
-@d set_font=def_family+1 {set current font ( font identifiers )}
-@d def_font=set_font+1 {define a font file ( \.{\\font} )}
-@d def_jfont=def_font+1 {define a font file ( \.{\\jfont} )}
-@d def_tfont=def_jfont+1 {define a font file ( \.{\\tfont} )}
-@d register=def_tfont+1 {internal register ( \.{\\count}, \.{\\dimen}, etc.~)}
-@d max_internal=register {the largest code that can follow \.{\\the}}
-@d advance=max_internal+1 {advance a register or parameter ( \.{\\advance} )}
-@d multiply=advance+1 {multiply a register or parameter ( \.{\\multiply} )}
-@d divide=multiply+1 {divide a register or parameter ( \.{\\divide} )}
-@d prefix=divide+1 {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )}
-@d let=prefix+1 {assign a command code ( \.{\\let}, \.{\\futurelet} )}
-@d shorthand_def=let+1 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)}
-@d read_to_cs=shorthand_def+1 {read into a control sequence ( \.{\\read} )}
-@d def=read_to_cs+1 {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )}
-@d set_box=def+1 {set a box ( \.{\\setbox} )}
-@d hyph_data=set_box+1 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )}
-@d set_interaction=hyph_data+1 {define level of interaction ( \.{\\batchmode}, etc.~)}
-@d set_auto_spacing=set_interaction+1 {set auto spaceing mode
-  ( \.{\\autospacing}, \.{\\noautospacing}, ( \.{\\autospacing}, \.{\\noautospacing} )}
-@d max_command=set_auto_spacing {the largest command code seen at |big_switch|}
-@z
-
-@x [16.212] l.4437 - pTeX: last_jchr, direction, adjust direction
-@<Types...@>=
-@!list_state_record=record@!mode_field:-mmode..mmode;@+
-  @!head_field,@!tail_field: pointer;
-@y
-@<Types...@>=
-@!list_state_record=record@!mode_field:-mmode..mmode;@+
-  @!dir_field,@!adj_dir_field: -dir_dtou..dir_dtou;
-  @!pdisp_field: scaled;
-  @!head_field,@!tail_field,@!pnode_field,@!last_jchr_field: pointer;
-@z
-
-@x [16.213] l.4445 - pTeX: last_jchr, direction, adjust_dir, prev_{node,disp}
-@d head==cur_list.head_field {header node of current list}
-@d tail==cur_list.tail_field {final node on current list}
-@y
-@d direction==cur_list.dir_field {current direction}
-@d adjust_dir==cur_list.adj_dir_field {current adjust direction}
-@d head==cur_list.head_field {header node of current list}
-@d tail==cur_list.tail_field {final node on current list}
-@d prev_node==cur_list.pnode_field {previous to last |disp_node|}
-@d prev_disp==cur_list.pdisp_field {displacemant at |prev_node|}
-@d last_jchr==cur_list.last_jchr_field {final jchar node on current list}
-@z
-
-@x [16.214] l.4464 - pTeX: prev_append: disp_node
-@d tail_append(#)==begin link(tail):=#; tail:=link(tail);
-  end
-@y
-@d tail_append(#)==begin link(tail):=#; tail:=link(tail);
-  end
-@d prev_append(#)==begin link(prev_node):=#;
-  link(link(prev_node)):=tail; prev_node:=link(prev_node);
-  end
-@z
-
-@x [16.215] l.4477 - pTeX: last_jchar, direction, adjust_dir, prev_node
-mode:=vmode; head:=contrib_head; tail:=contrib_head;
-@y
-mode:=vmode; head:=contrib_head; tail:=contrib_head; prev_node:=tail;
-direction:=dir_yoko; adjust_dir:=direction; prev_disp:=0; last_jchr:=null;
-@z
-
-@x [16.216] l.4496 - pTeX: last_jchr, displacement.
-incr(nest_ptr); head:=get_avail; tail:=head; prev_graf:=0; mode_line:=line;
-@y
-incr(nest_ptr); head:=new_null_box; tail:=head; prev_node:=tail;
-prev_graf:=0; prev_disp:=0; last_jchr:=null; mode_line:=line;
-@z
-
-@x [16.217] l.4504 - pTeX: pop_nest last_jchr
-@p procedure pop_nest; {leave a semantic level, re-enter the old}
-begin free_avail(head); decr(nest_ptr); cur_list:=nest[nest_ptr];
-end;
-@y
-@p procedure pop_nest; {leave a semantic level, re-enter the old}
-begin
-fast_delete_glue_ref(space_ptr(head)); fast_delete_glue_ref(xspace_ptr(head));
-free_node(head,box_node_size); decr(nest_ptr); cur_list:=nest[nest_ptr];
-end;
-@z
-
-@x [16.218] l.4521 - pTeX: show_activities : direction
-  print_nl("### "); print_mode(m);
-@y
-  print_nl("### "); print_direction(nest[p].dir_field);
-  print(", "); print_mode(m);
-@z
-
-@x [17.224] l.4711 - pTeX: kanji_skip_code xkanji_skip_code, jfm_skip
-@d thin_mu_skip_code=15 {thin space in math formula}
-@d med_mu_skip_code=16 {medium space in math formula}
-@d thick_mu_skip_code=17 {thick space in math formula}
-@d glue_pars=18 {total number of glue parameters}
-@y
-@d kanji_skip_code=15 {between kanji-kanji space}
-@d xkanji_skip_code=16 {between latin-kanji or kanji-latin space}
-@d thin_mu_skip_code=17 {thin space in math formula}
-@d med_mu_skip_code=18 {medium space in math formula}
-@d thick_mu_skip_code=19 {thick space in math formula}
-@d jfm_skip=20 {space refer from JFM}
-@d glue_pars=21 {total number of glue parameters}
-@z
-
-@x [17.224] l.4739 - kanji_skip, xkanji_skip
-@d thick_mu_skip==glue_par(thick_mu_skip_code)
-@y
-@d thick_mu_skip==glue_par(thick_mu_skip_code)
-@d kanji_skip==glue_par(kanji_skip_code)
-@d xkanji_skip==glue_par(xkanji_skip_code)
-@z
-
-@x [17.225] l.4767 - pTeX: kanji_skip_code xkanji_skip_code
-thick_mu_skip_code: print_esc("thickmuskip");
-othercases print("[unknown glue parameter!]")
-@y
-thick_mu_skip_code: print_esc("thickmuskip");
-kanji_skip_code: print_esc("kanjiskip");
-xkanji_skip_code: print_esc("xkanjiskip");
-jfm_skip: print("refer from jfm");
-othercases print("[unknown glue parameter!]")
-@z
-
-@x [17.226] l.4813 - pTeX: kanji_skip_code xkanji_skip_code
-primitive("thickmuskip",assign_mu_glue,glue_base+thick_mu_skip_code);@/
-@!@:thick_mu_skip_}{\.{\\thickmuskip} primitive@>
-@y
-primitive("thickmuskip",assign_mu_glue,glue_base+thick_mu_skip_code);@/
-@!@:thick_mu_skip_}{\.{\\thickmuskip} primitive@>
-primitive("kanjiskip",assign_glue,glue_base+kanji_skip_code);@/
-@!@:kanji_skip_}{\.{\\kanjiskip} primitive@>
-primitive("xkanjiskip",assign_glue,glue_base+xkanji_skip_code);@/
-@!@:xkanji_skip_}{\.{\\xkanjiskip} primitive@>
-@z
-
-@x [17.230] l.4867 - pTeX: cat_code_size, cur_jfont_loc, auto_spacing, auto_xspacing, inhibit_xsp_code, cur_tfont_loc
-@d math_font_base=cur_font_loc+1 {table of 48 math font numbers}
-@d cat_code_base=math_font_base+48
-  {table of 256 command codes (the ``catcodes'')}
-@d lc_code_base=cat_code_base+256 {table of 256 lowercase mappings}
-@y
-@d math_font_base=cur_font_loc+1 {table of 48 math font numbers}
-@d cur_jfont_loc=math_font_base+48
-@d cur_tfont_loc=cur_jfont_loc+1
-@d auto_spacing_code=cur_tfont_loc+1
-@d auto_xspacing_code=auto_spacing_code+1
-@d cat_code_base=auto_xspacing_code+1
-  {table of 256 command codes (the ``catcodes'')}
-@d kcat_code_base=cat_code_base+256
-  {table of 256 command codes for the wchar's catcodes }
-@d auto_xsp_code_base=kcat_code_base+256 {table of 256 auto spacer flag}
-@d inhibit_xsp_code_base=auto_xsp_code_base+256
-@d kinsoku_base=inhibit_xsp_code_base+256 {table of 256 kinsoku mappings}
-@d kansuji_base=kinsoku_base+256 {table of 10 kansuji mappings}
-@d lc_code_base=kansuji_base+10 {table of 256 lowercase mappings}
-@z
-
-@x [17.230] l.4900 - pTeX:
-@d char_sub_code(#)==equiv(char_sub_code_base+#)
-  {Note: |char_sub_code(c)| is the true substitution info plus |min_halfword|}
-@y
-@d char_sub_code(#)==equiv(char_sub_code_base+#)
-  {Note: |char_sub_code(c)| is the true substitution info plus |min_halfword|}
-@#
-@d cur_jfont==equiv(cur_jfont_loc) {pTeX: }
-@d cur_tfont==equiv(cur_tfont_loc)
-@d auto_spacing==equiv(auto_spacing_code)
-@d auto_xspacing==equiv(auto_xspacing_code)
-@d kcat_code(#)==equiv(kcat_code_base+#)
-@d auto_xsp_code(#)==equiv(auto_xsp_code_base+#)
-@d inhibit_xsp_type(#)==eq_type(inhibit_xsp_code_base+#)
-@d inhibit_xsp_code(#)==equiv(inhibit_xsp_code_base+#)
-@d kinsoku_type(#)==eq_type(kinsoku_base+#)
-@d kinsoku_code(#)==equiv(kinsoku_base+#)
-@d kansuji_char(#)==equiv(kansuji_base+#)
-@z
-
-@x [17.232] l.4959 - pTeX: initialize cat_code, cur_jfont, cur_tfont
-cur_font:=null_font; eq_type(cur_font_loc):=data;
-eq_level(cur_font_loc):=level_one;@/
-@y
-cur_font:=null_font; eq_type(cur_font_loc):=data;
-eq_level(cur_font_loc):=level_one;@/
-cur_jfont:=null_font; eq_type(cur_jfont_loc):=data;
-eq_level(cur_jfont_loc):=level_one;@/
-cur_tfont:=null_font; eq_type(cur_tfont_loc):=data;
-eq_level(cur_tfont_loc):=level_one;@/
-@z
-
-@x [17.232] l.4965 - pTeX: initialize cat_code, cur_jfont, cur_tfont
-for k:=0 to 255 do
-  begin cat_code(k):=other_char; math_code(k):=hi(k); sf_code(k):=1000;
-  end;
-@y
-eqtb[auto_spacing_code]:=eqtb[cat_code_base];
-eqtb[auto_xspacing_code]:=eqtb[cat_code_base];
-for k:=0 to 255 do
-  begin cat_code(k):=other_char; kcat_code(k):=other_kchar;
-  math_code(k):=hi(k); sf_code(k):=1000;
-  auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0;
-  kinsoku_code(k):=0; kinsoku_type(k):=0;
-  end;
-@z
-@x [17.232] l.4971 - pTeX: initialize cat_code, cur_jfont, cur_tfont
-for k:="0" to "9" do math_code(k):=hi(k+var_code);
-for k:="A" to "Z" do
-  begin cat_code(k):=letter; cat_code(k+"a"-"A"):=letter;@/
-  math_code(k):=hi(k+var_code+@"100);
-  math_code(k+"a"-"A"):=hi(k+"a"-"A"+var_code+@"100);@/
-  lc_code(k):=k+"a"-"A"; lc_code(k+"a"-"A"):=k+"a"-"A";@/
-  uc_code(k):=k; uc_code(k+"a"-"A"):=k;@/
-  sf_code(k):=999;
-  end;
-@y
-for k:="0" to "9" do
-  begin math_code(k):=hi(k+var_code);
-  auto_xsp_code(k):=3;
-  end;
-kansuji_char(0):=toDVI(fromJIS(@"213B));
-kansuji_char(1):=toDVI(fromJIS(@"306C));
-kansuji_char(2):=toDVI(fromJIS(@"4673));
-kansuji_char(3):=toDVI(fromJIS(@"3B30));
-kansuji_char(4):=toDVI(fromJIS(@"3B4D));
-kansuji_char(5):=toDVI(fromJIS(@"385E));
-kansuji_char(6):=toDVI(fromJIS(@"4F3B));
-kansuji_char(7):=toDVI(fromJIS(@"3C37));
-kansuji_char(8):=toDVI(fromJIS(@"482C));
-kansuji_char(9):=toDVI(fromJIS(@"3665));
-for k:="A" to "Z" do
-  begin cat_code(k):=letter; cat_code(k+"a"-"A"):=letter;@/
-  math_code(k):=hi(k+var_code+@"100);
-  math_code(k+"a"-"A"):=hi(k+"a"-"A"+var_code+@"100);@/
-  lc_code(k):=k+"a"-"A"; lc_code(k+"a"-"A"):=k+"a"-"A";@/
-  uc_code(k):=k; uc_code(k+"a"-"A"):=k;@/
-  auto_xsp_code(k):=3; auto_xsp_code(k+"a"-"A"):=3;@/
-  sf_code(k):=999;
-  end;
-@t\hskip10pt@>kcat_code(@"20+1):=other_kchar; {1 ku}
-@t\hskip10pt@>kcat_code(@"20+2):=other_kchar; {2 ku}
-@+@t\1@>for k:=3 to 6 do kcat_code(@"20+k):=kana; {3 ku ... 6 ku}
-@+@t\1@>for k:=7 to 8 do kcat_code(@"20+k):=other_kchar; {7 ku ... 8 ku}
-@+@t\1@>for k:=16 to 84 do kcat_code(@"20+k):=kanji; {16 ku ... 84 ku}
-{ @"20+k = kcatcodekey(fromKUTEN(HILO(k,1)) }
-@z
-
-@x [17.236] l.5092 - pTeX: cur_jfam_code, jchr_widow_penalty
-@d cur_fam_code=44 {current family}
-@d escape_char_code=45 {escape character for token output}
-@d default_hyphen_char_code=46 {value of \.{\\hyphenchar} when a font is loaded}
-@d default_skew_char_code=47 {value of \.{\\skewchar} when a font is loaded}
-@d end_line_char_code=48 {character placed at the right end of the buffer}
-@d new_line_char_code=49 {character that prints as |print_ln|}
-@d language_code=50 {current hyphenation table}
-@d left_hyphen_min_code=51 {minimum left hyphenation fragment size}
-@d right_hyphen_min_code=52 {minimum right hyphenation fragment size}
-@d holding_inserts_code=53 {do not remove insertion nodes from \.{\\box255}}
-@d error_context_lines_code=54 {maximum intermediate line pairs shown}
-@d tex_int_pars=55 {total number of \TeX's integer parameters}
-@#
-@d web2c_int_base=tex_int_pars {base for web2c's integer parameters}
-@d char_sub_def_min_code=web2c_int_base {smallest value in the charsubdef list}
-@d char_sub_def_max_code=web2c_int_base+1 {largest value in the charsubdef list}
-@d tracing_char_sub_def_code=web2c_int_base+2 {traces changes to a charsubdef def}
-@d web2c_int_pars=web2c_int_base+3 {total number of web2c's integer parameters}
-@#
-@d int_pars=web2c_int_pars {total number of integer parameters}
-@d count_base=int_base+int_pars {256 user \.{\\count} registers}
-@y
-@d cur_fam_code=44 {current family}
-@d cur_jfam_code=45 {current kanji family}
-@d escape_char_code=46 {escape character for token output}
-@d default_hyphen_char_code=47 {value of \.{\\hyphenchar} when a font is loaded}
-@d default_skew_char_code=48 {value of \.{\\skewchar} when a font is loaded}
-@d end_line_char_code=49 {character placed at the right end of the buffer}
-@d new_line_char_code=50 {character that prints as |print_ln|}
-@d language_code=51 {current hyphenation table}
-@d left_hyphen_min_code=52 {minimum left hyphenation fragment size}
-@d right_hyphen_min_code=53 {minimum right hyphenation fragment size}
-@d holding_inserts_code=54 {do not remove insertion nodes from \.{\\box255}}
-@d error_context_lines_code=55 {maximum intermediate line pairs shown}
-@d jchr_widow_penalty_code=56
-			{penalty for creating a widow KANJI character line}
-@d char_sub_def_min_code=57 {smallest value in the charsubdef list}
-@d char_sub_def_max_code=58 {largest value in the charsubdef list}
-@d tracing_char_sub_def_code=59 {traces changes to a charsubdef def}
-@d int_pars=60 {total number of integer parameters}
-@d count_base=int_base+int_pars {256 user \.{\\count} registers}
-@z
-
-@x [17.236] l.5167 - pTeX: cur_jfam, |jchr_widow_penalty|
-@d cur_fam==int_par(cur_fam_code)
-@d escape_char==int_par(escape_char_code)
-@y
-@d cur_fam==int_par(cur_fam_code)
-@d cur_jfam==int_par(cur_jfam_code)
-@d escape_char==int_par(escape_char_code)
-@d jchr_widow_penalty==int_par(jchr_widow_penalty_code)
-@z
-
-@x [17.237] l.5244 - pTeX: cur_jfam_code, jchr_window_penalty_code
-new_line_char_code:print_esc("newlinechar");
-@y
-new_line_char_code:print_esc("newlinechar");
-cur_jfam_code:print_esc("jfam");
-jchr_widow_penalty_code:print_esc("jcharwidowpenalty");
-@z
-
-@x [17.238] l.5365 - pTeX: cur_jfam_code, jchr_window_penalty_code
-primitive("newlinechar",assign_int,int_base+new_line_char_code);@/
-@!@:new_line_char_}{\.{\\newlinechar} primitive@>
-@y
-primitive("newlinechar",assign_int,int_base+new_line_char_code);@/
-@!@:new_line_char_}{\.{\\newlinechar} primitive@>
-primitive("jfam",assign_int,int_base+cur_jfam_code);@/
-@!@:cur_jfam_}{\.{\\jfam} primitive@>
-primitive("jcharwidowpenalty",assign_int,int_base+jchr_widow_penalty_code);@/
-@!@:jchr_widow_penalty}{\.{\\jcharwidowpenalty} primitive@>
-@z
-
-@x [17.247] l.5490 - pTeX: kinsoku, t_baseline_shift, y_baseline_shift
-@d h_offset_code=18 {amount of horizontal offset when shipping pages out}
-@d v_offset_code=19 {amount of vertical offset when shipping pages out}
-@d emergency_stretch_code=20 {reduces badnesses on final pass of line-breaking}
-@d dimen_pars=21 {total number of dimension parameters}
-@d scaled_base=dimen_base+dimen_pars
-  {table of 256 user-defined \.{\\dimen} registers}
-@d eqtb_size=scaled_base+255 {largest subscript of |eqtb|}
-@y
-@d h_offset_code=18 {amount of horizontal offset when shipping pages out}
-@d v_offset_code=19 {amount of vertical offset when shipping pages out}
-@d emergency_stretch_code=20 {reduces badnesses on final pass of line-breaking}
-@d t_baseline_shift_code=21 {shift amount when mixing TATE-kumi and Alphabet}
-@d y_baseline_shift_code=22 {shift amount when mixing YOKO-kumi and Alphabet}
-@d dimen_pars=23 {total number of dimension parameters}
-@d scaled_base=dimen_base+dimen_pars
-  {table of 256 user-defined \.{\\dimen} registers}
-@d kinsoku_penalty_base=scaled_base+256 {table of 256 kinsoku registers}
-@d eqtb_size=kinsoku_penalty_base+255 {largest subscript of |eqtb|}
-@z
-
-@x l.5498 - pTeX: kinsoku, t_baseline_shift, y_baseline_shift
-@d dimen(#)==eqtb[scaled_base+#].sc
-@d dimen_par(#)==eqtb[dimen_base+#].sc {a scaled quantity}
-@y
-@d dimen(#)==eqtb[scaled_base+#].sc
-@d dimen_par(#)==eqtb[dimen_base+#].sc {a scaled quantity}
-@d kinsoku_penalty(#)==eqtb[kinsoku_penalty_base+#].int
-@z
-
-@x l.5518 - pTeX:
-@d h_offset==dimen_par(h_offset_code)
-@d v_offset==dimen_par(v_offset_code)
-@y
-@d h_offset==dimen_par(h_offset_code)
-@d v_offset==dimen_par(v_offset_code)
-@d t_baseline_shift==dimen_par(t_baseline_shift_code)
-@d y_baseline_shift==dimen_par(y_baseline_shift_code)
-@z
-
-@x l.5542 - pTeX:
-h_offset_code:print_esc("hoffset");
-v_offset_code:print_esc("voffset");
-emergency_stretch_code:print_esc("emergencystretch");
-othercases print("[unknown dimen parameter!]")
-@y
-h_offset_code:print_esc("hoffset");
-v_offset_code:print_esc("voffset");
-t_baseline_shift_code:print_esc("tbaselineshift");
-y_baseline_shift_code:print_esc("ybaselineshift");
-emergency_stretch_code:print_esc("emergencystretch");
-othercases print("[unknown dimen parameter!]")
-@z
-
-@x [17.248] l.5588 - pTeX: rotate offset
-primitive("hoffset",assign_dimen,dimen_base+h_offset_code);@/
-@!@:h_offset_}{\.{\\hoffset} primitive@>
-primitive("voffset",assign_dimen,dimen_base+v_offset_code);@/
-@!@:v_offset_}{\.{\\voffset} primitive@>
-@y
-primitive("hoffset",assign_dimen,dimen_base+h_offset_code);@/
-@!@:h_offset_}{\.{\\hoffset} primitive@>
-primitive("voffset",assign_dimen,dimen_base+v_offset_code);@/
-@!@:v_offset_}{\.{\\voffset} primitive@>
-primitive("tbaselineshift",assign_dimen,dimen_base+t_baseline_shift_code);@/
-@!@:t_baseline_shift_}{\.{\\tbaselineshift} primitive@>
-primitive("ybaselineshift",assign_dimen,dimen_base+y_baseline_shift_code);@/
-@!@:y_baseline_shift_}{\.{\\ybaselineshift} primitive@>
-@z
-
-@x [17.252] l.5622 - pTeX: show eqtb
-else if n<=eqtb_size then @<Show equivalent |n|, in region 6@>
-else print_char("?"); {this can't happen either}
-end;
-tats
-@y
-else if n<kinsoku_penalty_base then @<Show equivalent |n|, in region 6@>
-else if n<=eqtb_size then print("kinsoku")
-else print_char("?"); {this can't happen either}
-end;
-tats
-@z
-
-@x [18.265] l.5903 - pTeX: \jfont \tfont
-primitive("font",def_font,0);@/
-@!@:font_}{\.{\\font} primitive@>
-@y
-primitive("font",def_font,0);@/
-@!@:font_}{\.{\\font} primitive@>
-primitive("jfont",def_jfont,0);@/
-@!@:jfont_}{\.{\\jfont} primitive@>
-primitive("tfont",def_tfont,0);@/
-@!@:tfont_}{\.{\\tfont} primitive@>
-@z
-
-@x [18.266] l.5979 - pTeX: \jfont, \tfont
-def_font: print_esc("font");
-@y
-def_font: print_esc("font");
-def_jfont: print_esc("jfont");
-def_tfont: print_esc("tfont");
-@z
-
-@x [20.289] l.6387 - pTeX: cs_token_flag
-@d cs_token_flag==@'7777 {amount added to the |eqtb| location in a
-  token that stands for a control sequence; is a multiple of~256, less~1}
-@y
-@d cs_token_flag==@"FFFF {amount added to the |eqtb| location in a
-token that stands for a control sequence; is a multiple of~256, less~1}
-@z
-
-@x [20.293] l.6496 - pTeX: show_token_list
-@ @<Display token |p|...@>=
-if (p<hi_mem_min) or (p>mem_end) then
-  begin print_esc("CLOBBERED."); return;
-@.CLOBBERED@>
-  end;
-if info(p)>=cs_token_flag then print_cs(info(p)-cs_token_flag)
-else  begin m:=info(p) div @'400; c:=info(p) mod @'400;
-  if info(p)<0 then print_esc("BAD.")
-@.BAD@>
-  else @<Display the token $(|m|,|c|)$@>;
-  end
-@y
-@ @<Display token |p|...@>=
-if (p<hi_mem_min) or (p>mem_end) then
-  begin print_esc("CLOBBERED."); return;
-@.CLOBBERED@>
-  end;
-if info(p)>=cs_token_flag then print_cs(info(p)-cs_token_flag) {wchar_token}
-else  begin
-  if check_kanji(info(p)) then {wchar_token}
-    begin m:=kcat_code(kcatcodekey(info(p))); c:=info(p);
-    end
-  else  begin m:=Hi(info(p)); c:=Lo(info(p));
-    end;
-  if (m<kanji)and(c>256) then print_esc("BAD.")
-@.BAD@>
-  else @<Display the token $(|m|,|c|)$@>;
-end
-@z
-
-@x [20.294] l.6512 - pTeX: show_token_list
-@<Display the token ...@>=
-case m of
-left_brace,right_brace,math_shift,tab_mark,sup_mark,sub_mark,spacer,
-  letter,other_char: print(c);
-@y
-@<Display the token ...@>=
-case m of
-kanji,kana,other_kchar: print_kanji(KANJI(c));
-left_brace,right_brace,math_shift,tab_mark,sup_mark,sub_mark,spacer,
-  letter,other_char: print(c);
-@z
-
-@x [21.298] l.6632 - pTeX: print KANJI
-other_char: chr_cmd("the character ");
-@y
-other_char: chr_cmd("the character ");
-kanji,kana,other_kchar: begin print("kanji character ");
-  print_kanji(KANJI(chr_code)); end;
-@z
-
-@x [22.303] l.6726 - pTeX: state mid_kanji
-1) |state=mid_line| is the normal state.\cr
-2) |state=skip_blanks| is like |mid_line|, but blanks are ignored.\cr
-3) |state=new_line| is the state at the beginning of a line.\cr}}$$
-@y
-1) |state=mid_line| is the normal state.\cr
-2) |state=mid_kanji| is like |mid_line|, and internal KANJI string.\cr
-3) |state=skip_blanks| is like |mid_line|, but blanks are ignored.\cr
-4) |state=new_line| is the state at the beginning of a line.\cr}}$$
-@z
-
-@x [22.303] l.6736 - pTeX: state mid_kanji
-@d mid_line=1 {|state| code when scanning a line of characters}
-@d skip_blanks=2+max_char_code {|state| code when ignoring blanks}
-@d new_line=3+max_char_code+max_char_code {|state| code at start of line}
-@y
-@d mid_line=1 {|state| code when scanning a line of characters}
-@d mid_kanji=2+max_char_code {|state| code when scanning a line of characters}
-@d skip_blanks=3+max_char_code+max_char_code {|state| code when ignoring blanks}
-@d new_line=4+max_char_code+max_char_code+max_char_code
-   {|state| code at start of line}
-@z
-
-@x [22.311] l.6986 - pTeX: label
-@p procedure show_context; {prints where the scanner is}
-label done;
-var old_setting:0..max_selector; {saved |selector| setting}
-@y
-@p procedure show_context; {prints where the scanner is}
-label done, done1;
-var old_setting:0..max_selector; {saved |selector| setting}
-@!s: pointer; {temporary pointer}
-@z
-
-@x [22.316] l.7110 - pTeX: init kcode_pos
-@d begin_pseudoprint==
-  begin l:=tally; tally:=0; selector:=pseudo;
-  trick_count:=1000000;
-  end
-@y
-@d begin_pseudoprint==
-  begin l:=tally; tally:=0; selector:=pseudo; kcode_pos:=0;
-  trick_count:=1000000;
-  end
-@z
-@x [22.316] l.7114 - pTeX: kcode_pos
-@d set_trick_count==
-  begin first_count:=tally;
-  trick_count:=tally+1+error_line-half_error_line;
-  if trick_count<error_line then trick_count:=error_line;
-  end
-@y
-@d set_trick_count==
-  begin first_count:=tally;
-  if (first_count>0)and(trick_buf2[(first_count-1)mod error_line]=1) then
-      incr(first_count);
-  trick_count:=first_count+1+error_line-half_error_line;
-  if trick_count<error_line then trick_count:=error_line;
-  end
-@z
-
-@x [22.317] l.7133 - pTeX: adjust kanji code pos
-for q:=p to first_count-1 do print_char(trick_buf[q mod error_line]);
-print_ln;
-for q:=1 to n do print_char(" "); {print |n| spaces to begin line~2}
-if m+n<=error_line then p:=first_count+m else p:=first_count+(error_line-n-3);
-@y
-if trick_buf2[p mod error_line]=2 then
-  begin p:=p+1; n:=n-1;
-  end;
-for q:=p to first_count-1 do print_char(trick_buf[q mod error_line]);
-print_ln;
-for q:=1 to n do print_char(" "); {print |n| spaces to begin line~2}
-if m+n<=error_line then p:=first_count+m else p:=first_count+(error_line-n-3);
-if trick_buf2[(p-1) mod error_line]=1 then p:=p-1;
-@z
-
-@x [22.319] l.7157 - pTeX: adjust kanji code token
-@ @<Pseudoprint the token list@>=
-begin_pseudoprint;
-if token_type<macro then show_token_list(start,loc,100000)
-else show_token_list(link(start),loc,100000) {avoid reference count}
-@y
-@ @<Pseudoprint the token list@>=
-begin_pseudoprint;
-if token_type<macro then
-  begin  if (token_type=backed_up)and(loc<>null) then
-    begin  if (link(start)=null)and(check_kanji(info(start))) then {wchar_token}
-      begin cur_input:=input_stack[base_ptr-1];
-      s:=get_avail; info(s):=Lo(buffer[loc]);
-      cur_input:=input_stack[base_ptr];
-      link(start):=s;
-      show_token_list(start,loc,100000);
-      free_avail(s);link(start):=null;
-      goto done1;
-      end;
-    end;
-  show_token_list(start,loc,100000);
-  end
-else show_token_list(link(start),loc,100000); {avoid reference count}
-done1:
-@z
-
-@x [24.341] l.7479 - pTeX: set last_chr
-@!cat:0..max_char_code; {|cat_code(cur_chr)|, usually}
-@y
-@!cat:escape..max_char_code; {|cat_code(cur_chr)|, usually}
-@!l:0..buf_size; {temporary index into |buffer|}
-@z
-
-@x [24.343] l.7500 - pTeX: input external file
-@ @<Input from external file, |goto restart| if no input found@>=
-@^inner loop@>
-begin switch: if loc<=limit then {current line not yet finished}
-  begin cur_chr:=buffer[loc]; incr(loc);
-  reswitch: cur_cmd:=cat_code(cur_chr);
-@y
-@ @<Input from external file, |goto restart| if no input found@>=
-@^inner loop@>
-begin switch: if loc<=limit then {current line not yet finished}
-  begin cur_chr:=buffer[loc]; incr(loc);
-    if (multistrlen(buffer, limit+1, loc-1)=2) then
-      begin cur_chr:=fromBUFF(buffer, limit+1, loc-1);
-      cur_cmd:=kcat_code(kcatcodekey(cur_chr));
-      incr(loc);
-      end
-    else reswitch: cur_cmd:=cat_code(cur_chr);
-@z
-
-@x [24.344] l.7535 - pTeX: ASCII-KANJI space handling
-@d any_state_plus(#) == mid_line+#,skip_blanks+#,new_line+#
-@y
-@d any_state_plus(#) == mid_line+#,mid_kanji+#,skip_blanks+#,new_line+#
-@z
-
-@x [24.347] l.7569 - pTeX: scaner
-@ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param,
-  #+sub_mark,#+letter,#+other_char
-@y
-@ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param,
-  #+sub_mark,#+letter,#+other_char
-@d all_jcode(#)==#+kanji,#+kana,#+other_kchar
-@z
-
-@x [24.347] l.7573 - pTeX: scaner
-mid_line+spacer:@<Enter |skip_blanks| state, emit a space@>;
-mid_line+car_ret:@<Finish line, emit a space@>;
-skip_blanks+car_ret,any_state_plus(comment):
-  @<Finish line, |goto switch|@>;
-new_line+car_ret:@<Finish line, emit a \.{\\par}@>;
-mid_line+left_brace: incr(align_state);
-skip_blanks+left_brace,new_line+left_brace: begin
-  state:=mid_line; incr(align_state);
-  end;
-mid_line+right_brace: decr(align_state);
-skip_blanks+right_brace,new_line+right_brace: begin
-  state:=mid_line; decr(align_state);
-  end;
-add_delims_to(skip_blanks),add_delims_to(new_line): state:=mid_line;
-@y
-mid_kanji+spacer,mid_line+spacer:@<Enter |skip_blanks| state, emit a space@>;
-mid_line+car_ret:@<Finish line, emit a space@>;
-mid_kanji+car_ret: if skip_mode then @<Finish line, |goto switch|@>
-  else @<Finish line, emit a space@>;
-skip_blanks+car_ret,any_state_plus(comment):
-  @<Finish line, |goto switch|@>;
-new_line+car_ret:@<Finish line, emit a \.{\\par}@>;
-mid_line+left_brace,mid_kanji+left_brace: incr(align_state);
-skip_blanks+left_brace,new_line+left_brace: begin
-  state:=mid_line; incr(align_state);
-  end;
-mid_line+right_brace,mid_kanji+right_brace: decr(align_state);
-skip_blanks+right_brace,new_line+right_brace: begin
-  state:=mid_line; decr(align_state);
-  end;
-add_delims_to(skip_blanks),add_delims_to(new_line),add_delims_to(mid_kanji):
-  state:=mid_line;
-all_jcode(skip_blanks),all_jcode(new_line),all_jcode(mid_line):
-  state:=mid_kanji;
-
-@ @<Global...@>=
-skip_mode:boolean;
-
-@ @<Set init...@>=
-skip_mode:=true;
-@z
-
-@x [24.354] l.7659 - pTeX: scan control sequence
-@<Scan a control...@>=
-begin if loc>limit then cur_cs:=null_cs {|state| is irrelevant in this case}
-else  begin start_cs: k:=loc; cur_chr:=buffer[k]; cat:=cat_code(cur_chr);
-  incr(k);
-  if cat=letter then state:=skip_blanks
-  else if cat=spacer then state:=skip_blanks
-  else state:=mid_line;
-  if (cat=letter)and(k<=limit) then
-    @<Scan ahead in the buffer until finding a nonletter;
-    if an expanded code is encountered, reduce it
-    and |goto start_cs|; otherwise if a multiletter control
-    sequence is found, adjust |cur_cs| and |loc|, and
-    |goto found|@>
-  else @<If an expanded code is present, reduce it and |goto start_cs|@>;
-  cur_cs:=single_base+buffer[loc]; incr(loc);
-  end;
-found: cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs);
-if cur_cmd>=outer_call then check_outer_validity;
-end
-@y
-@<Scan a control...@>=
-begin if loc>limit then cur_cs:=null_cs {|state| is irrelevant in this case}
-else  begin k:=loc; cur_chr:=buffer[k]; incr(k);
-  if (multistrlen(buffer, limit+1, k-1)=2) then
-    begin cat:=kcat_code(kcatcodekey(fromBUFF(buffer, limit+1, k-1))); incr(k);
-    end
-  else cat:=cat_code(cur_chr);
-start_cs:
-  if (cat=letter)or(cat=kanji)or(cat=kana) then state:=skip_blanks
-  else if cat=spacer then state:=skip_blanks
-  else state:=mid_line;
-  if cat=other_kchar then
-    begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found;
-    end
-  else if ((cat=letter)or(cat=kanji)or(cat=kana))and(k<=limit) then
-    @<Scan ahead in the buffer until finding a nonletter;
-    if an expanded code is encountered, reduce it
-    and |goto start_cs|; otherwise if a multiletter control
-    sequence is found, adjust |cur_cs| and |loc|, and
-    |goto found|@>
-  else @<If an expanded code is present, reduce it and |goto start_cs|@>;
-  cur_cs:=single_base+buffer[loc]; incr(loc);
-  end;
-found: cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs);
-if cur_cmd>=outer_call then check_outer_validity;
-end
-@z
-
-@x
-@<If an expanded...@>=
-begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k<limit then
-  begin c:=buffer[k+1]; @+if c<@'200 then {yes, one is indeed present}
-    begin d:=2;
-    if is_hex(c) then @+if k+2<=limit then
-      begin cc:=buffer[k+2]; @+if is_hex(cc) then incr(d);
-      end;
-    if d>2 then
-      begin hex_to_cur_chr; buffer[k-1]:=cur_chr;
-      end
-    else if c<@'100 then buffer[k-1]:=c+@'100
-    else buffer[k-1]:=c-@'100;
-    limit:=limit-d; first:=first-d;
-    while k<=limit do
-      begin buffer[k]:=buffer[k+d]; incr(k);
-      end;
-    goto start_cs;
-    end;
-  end;
-end
-@y
-@<If an expanded...@>=
-begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k<limit then
-  begin c:=buffer[k+1]; @+if c<@'200 then {yes, one is indeed present}
-    begin d:=2;
-    if is_hex(c) then @+if k+2<=limit then
-      begin cc:=buffer[k+2]; @+if is_hex(cc) then incr(d);
-      end;
-    if d>2 then
-      begin hex_to_cur_chr; buffer[k-1]:=cur_chr;
-      end
-    else if c<@'100 then buffer[k-1]:=c+@'100
-    else buffer[k-1]:=c-@'100;
-    limit:=limit-d; first:=first-d;
-    l:=k; cur_chr:=buffer[k-1]; cat:=cat_code(cur_chr);
-    while l<=limit do
-      begin buffer[l]:=buffer[l+d]; incr(l);
-      end;
-    goto start_cs;
-    end;
-  end;
-end
-@z
-
-@x [24.356] l.7727 - pTeX: scan control sequence (cont)
-@ @<Scan ahead in the buffer...@>=
-begin repeat cur_chr:=buffer[k]; cat:=cat_code(cur_chr); incr(k);
-until (cat<>letter)or(k>limit);
-@<If an expanded...@>;
-if cat<>letter then decr(k);
-  {now |k| points to first nonletter}
-if k>loc+1 then {multiletter control sequence has been scanned}
-  begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found;
-  end;
-end
-@y
-@ @<Scan ahead in the buffer...@>=
-begin repeat cur_chr:=buffer[k]; incr(k);
-  if (multistrlen(buffer, limit+1, k-1)=2) then
-    begin cat:=kcat_code(kcatcodekey(fromBUFF(buffer, limit+1, k-1))); incr(k);
-    end
-  else cat:=cat_code(cur_chr);
-  while (buffer[k]=cur_chr)and(cat=sup_mark)and(k<limit) do
-    begin c:=buffer[k+1]; @+if c<@'200 then {yes, one is indeed present}
-      begin d:=2;
-      if is_hex(c) then @+if k+2<=limit then
-        begin cc:=buffer[k+2]; @+if is_hex(cc) then incr(d);
-        end;
-      if d>2 then
-        begin hex_to_cur_chr;
-        end
-      else if c<@'100 then cur_chr:=c+@'100
-      else cur_chr:=c-@'100;
-      cat:=cat_code(cur_chr);
-      if (cat=letter)or(cat=sup_mark) then
-        begin buffer[k-1]:=cur_chr;
-        limit:=limit-d; first:=first-d;
-        l:=k;
-        while l<=limit do
-          begin buffer[l]:=buffer[l+d]; incr(l);
-          end;
-        end;
-      end;
-    end;
-until not((cat=letter)or(cat=kanji)or(cat=kana))or(k>limit);
-{@@<If an expanded...@@>;}
-if not((cat=letter)or(cat=kanji)or(cat=kana)) then decr(k);
-if cat=other_kchar then decr(k); {now |k| points to first nonletter}
-if k>loc+1 then {multiletter control sequence has been scanned}
-  begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found;
-  end;
-end
-@z
-
-@x [24.357] l.7771 - pTeX: input from token list
-@<Input from token list, |goto restart| if end of list or
-  if a parameter needs to be expanded@>=
-if loc<>null then {list not exhausted}
-@^inner loop@>
-  begin t:=info(loc); loc:=link(loc); {move to next}
-  if t>=cs_token_flag then {a control sequence token}
-    begin cur_cs:=t-cs_token_flag;
-    cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs);
-    if cur_cmd>=outer_call then
-      if cur_cmd=dont_expand then
-        @<Get the next token, suppressing expansion@>
-      else check_outer_validity;
-    end
-  else  begin cur_cmd:=t div @'400; cur_chr:=t mod @'400;
-    case cur_cmd of
-    left_brace: incr(align_state);
-    right_brace: decr(align_state);
-    out_param: @<Insert macro parameter and |goto restart|@>;
-    othercases do_nothing
-    endcases;
-    end;
-  end
-else  begin {we are done with this token list}
-  end_token_list; goto restart; {resume previous level}
-  end
-@y
-@<Input from token list, |goto restart| if end of list or
-  if a parameter needs to be expanded@>=
-if loc<>null then {list not exhausted}
-@^inner loop@>
-  begin t:=info(loc); loc:=link(loc); {move to next}
-  if t>=cs_token_flag then {a control sequence token}
-    begin cur_cs:=t-cs_token_flag;
-    cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs);
-    if cur_cmd>=outer_call then
-      if cur_cmd=dont_expand then
-        @<Get the next token, suppressing expansion@>
-      else check_outer_validity;
-    end
-  else if check_kanji(t) then {wchar_token}
-    begin cur_chr:=t; cur_cmd:=kcat_code(kcatcodekey(t));
-    end
-  else
-    begin cur_cmd:=Hi(t); cur_chr:=Lo(t);
-    case cur_cmd of
-    left_brace: incr(align_state);
-    right_brace: decr(align_state);
-    out_param: @<Insert macro parameter and |goto restart|@>;
-    othercases do_nothing
-    endcases;
-    end;
-  end
-else  begin {we are done with this token list}
-  end_token_list; goto restart; {resume previous level}
-  end
-@z
-
-@x [24.365] l.7935 - pTeX: get_token
-@p procedure get_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|}
-begin no_new_control_sequence:=false; get_next; no_new_control_sequence:=true;
-@^inner loop@>
-if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-end;
-@y
-@p procedure get_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|}
-begin no_new_control_sequence:=false; get_next; no_new_control_sequence:=true;
-@^inner loop@>
-if cur_cs=0 then
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {wchar_token}
-    cur_tok:=cur_chr
-  else cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-end;
-@z
-
-@x [25.374] l.8073 - pTeX: get_chr
-@ @<Look up the characters of list |r| in the hash table...@>=
-j:=first; p:=link(r);
-while p<>null do
-  begin if j>=max_buf_stack then
-    begin max_buf_stack:=j+1;
-    if max_buf_stack=buf_size then
-      overflow("buffer size",buf_size);
-@:TeX capacity exceeded buffer size}{\quad buffer size@>
-    end;
-  buffer[j]:=info(p) mod @'400; incr(j); p:=link(p);
-  end;
-@y
-@ @<Look up the characters of list |r| in the hash table...@>=
-j:=first; p:=link(r);
-while p<>null do
-  begin if j>=max_buf_stack then
-    begin max_buf_stack:=j+1;
-    if max_buf_stack=buf_size then
-      overflow("buffer size",buf_size);
-@:TeX capacity exceeded buffer size}{\quad buffer size@>
-    end;
-  if check_kanji(info(p)) then {wchar_token}
-    begin buffer[j]:=Hi(info(p)); incr(j);
-    end;
-  buffer[j]:=Lo(info(p)); incr(j); p:=link(p);
-  end;
-@z
-
-@x [25.380] l.8221 - pTeX: get_x_token
-@p procedure get_x_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|,
-  and expands macros}
-label restart,done;
-begin restart: get_next;
-@^inner loop@>
-if cur_cmd<=max_command then goto done;
-if cur_cmd>=call then
-  if cur_cmd<end_template then macro_call
-  else  begin cur_cs:=frozen_endv; cur_cmd:=endv;
-    goto done; {|cur_chr=null_list|}
-    end
-else expand;
-goto restart;
-done: if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-end;
-@y
-@p procedure get_x_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|,
-  and expands macros}
-label restart,done;
-begin restart: get_next;
-@^inner loop@>
-if cur_cmd<=max_command then goto done;
-if cur_cmd>=call then
-  if cur_cmd<end_template then macro_call
-  else  begin cur_cs:=frozen_endv; cur_cmd:=endv;
-    goto done; {|cur_chr=null_list|}
-    end
-else expand;
-goto restart;
-done: if cur_cs=0 then
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-    cur_tok:=cur_chr
-  else cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-end;
-@z
-
-@x [25.381] l.8151 - pTeX: x_token
-@p procedure x_token; {|get_x_token| without the initial |get_next|}
-begin while cur_cmd>max_command do
-  begin expand;
-  get_next;
-  end;
-if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-@y
-@p procedure x_token; {|get_x_token| without the initial |get_next|}
-begin while cur_cmd>max_command do
-  begin expand;
-  get_next;
-  end;
-if cur_cs=0 then
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-    cur_tok:=cur_chr
-  else cur_tok:=(cur_cmd*@'400)+cur_chr
-else cur_tok:=cs_token_flag+cur_cs;
-@z
-
-@x [26.413] l.8659 - pTeX: scan_somthing_internal
-@p procedure scan_something_internal(@!level:small_number;@!negative:boolean);
-@y
-@p @t\4@>@<Declare procedures needed in |scan_something|@>@t@>@/
-procedure scan_something_internal(@!level:small_number;@!negative:boolean);
-@z
-@x [26.413] l.8663 - pTeX: scan_somthing_internal
-begin m:=cur_chr;
-case cur_cmd of
-def_code: @<Fetch a character code from some table@>;
-toks_register,assign_toks,def_family,set_font,def_font: @<Fetch a token list or
-  font identifier, provided that |level=tok_val|@>;
-@y
-@!q:pointer;
-begin m:=cur_chr;
-case cur_cmd of
-assign_kinsoku: @<Fetch breaking penalty from some table@>;
-assign_inhibit_xsp_code: @<Fetch inhibit type from some table@>;
-def_code: @<Fetch a character code from some table@>;
-toks_register,assign_toks,def_family,set_font,def_font,def_jfont,def_tfont:
-  @<Fetch a token list or font identifier, provided that |level=tok_val|@>;
-@z
-
-@x [26.414] l.8693 - pTeX:
-if m=math_code_base then scanned_result(ho(math_code(cur_val)))(int_val)
-else if m<math_code_base then scanned_result(equiv(m+cur_val))(int_val)
-else scanned_result(eqtb[m+cur_val].int)(int_val);
-@y
-if m=math_code_base then scanned_result(ho(math_code(cur_val)))(int_val)
-else if m=kcat_code_base then scanned_result(equiv(m+kcatcodekey(cur_val)))(int_val)
-else if m<math_code_base then
-  begin if is_kanji(cur_val) then
-  scanned_result(equiv(m+Hi(cur_val)))(int_val)
-  else scanned_result(equiv(m+cur_val))(int_val)
-  end
-else scanned_result(eqtb[m+cur_val].int)(int_val);
-@z
-
-@x [26.420] l.8799 - pTeX: Fetch a box dimension: dir_node
-if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
-@y
-if box(cur_val)=null then cur_val:=0
-else
-   begin q:=box(cur_val);
-  while (q<>null)and(box_dir(q)<>abs(direction)) do q:=link(q);
-  if q=null then
-    begin q:=new_dir_node(box(cur_val),abs(direction));
-    cur_val:=mem[q+m].sc;
-    delete_glue_ref(space_ptr(q)); delete_glue_ref(xspace_ptr(q));
-    free_node(q,box_node_size);
-    end
-  else cur_val:=mem[q+m].sc;
-  end;
-@z
-
-@x [26.435] l.8940 - pTeX: scan_char_num
-procedure scan_char_num;
-begin scan_int;
-if (cur_val<0)or(cur_val>255) then
-  begin print_err("Bad character code");
-@.Bad character code@>
-  help2("A character number must be between 0 and 255.")@/
-    ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
-  end;
-end;
-@y
-procedure scan_char_num;
-begin scan_int;
-if (not is_char_ascii(cur_val))and(not check_kanji(cur_val)) then {wchar_token}
-  begin print_err("Bad character code");
-@.Bad character code@>
-  help2("A character number must be between 0 and 255, or KANJI code.")@/
-    ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
-  end;
-end;
-@z
-
-@x [26.442] l.9045 - pTeX: KANJI character scanning
-@<Scan an alphabetic character code into |cur_val|@>=
-begin get_token; {suppress macro expansion}
-if cur_tok<cs_token_flag then
-  begin cur_val:=cur_chr;
-  if cur_cmd<=right_brace then
-    if cur_cmd=right_brace then incr(align_state)
-    else decr(align_state);
-  end
-else if cur_tok<cs_token_flag+single_base then
-  cur_val:=cur_tok-cs_token_flag-active_base
-else cur_val:=cur_tok-cs_token_flag-single_base;
-if cur_val>255 then
-  begin print_err("Improper alphabetic constant");
-@.Improper alphabetic constant@>
-  help2("A one-character control sequence belongs after a ` mark.")@/
-    ("So I'm essentially inserting \0 here.");
-  cur_val:="0"; back_error;
-  end
-else @<Scan an optional space@>;
-end
-@y
-@<Scan an alphabetic character code into |cur_val|@>=
-begin get_token; {suppress macro expansion}
-if cur_tok<cs_token_flag then
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {wchar_token}
-    begin skip_mode:=false; cur_val:=tonum(cur_chr);
-    end
-  else begin cur_val:=cur_chr;
-  if cur_cmd<=right_brace then
-    if cur_cmd=right_brace then incr(align_state)
-    else decr(align_state);
-  end
-else if cur_tok<cs_token_flag+single_base then
-  cur_val:=cur_tok-cs_token_flag-active_base
-else cur_val:=cur_tok-cs_token_flag-single_base;
-if (cur_val>255)and(cur_cmd<kanji) then
-  begin print_err("Improper alphabetic or KANJI constant");
-@.Improper alphabetic constant@>
-  help2("A one-character control sequence belongs after a ` mark.")@/
-    ("So I'm essentially inserting \0 here.");
-  cur_val:="0"; back_error;
-  end
-else @<Scan an optional space@>;
-skip_mode:=true;
-end
-@z
-
-@x [26.455] l.9288 - pTeX: zw, zh: zenkaku width & height
-if scan_keyword("em") then v:=(@<The em width for |cur_font|@>)
-@.em@>
-else if scan_keyword("ex") then v:=(@<The x-height for |cur_font|@>)
-@.ex@>
-else goto not_found;
-@y
-if scan_keyword("em") then v:=(@<The em width for |cur_font|@>)
-@.em@>
-else if scan_keyword("ex") then v:=(@<The x-height for |cur_font|@>)
-@.ex@>
-else if scan_keyword("zw") then @<The KANJI width for |cur_jfont|@>
-@.ze@>
-else if scan_keyword("zh") then @<The KANJI height for |cur_jfont|@>
-@.zh@>
-else goto not_found;
-@z
-
-@x [26.458] l.9345 - pTeX: dimension unit: Q, H (1/4 mm)
-else if scan_keyword("sp") then goto done
-@.sp@>
-@y
-else if scan_keyword("H") then set_conversion(7227)(10160)
-@.H@>
-else if scan_keyword("Q") then set_conversion(7227)(10160)
-@.Q@>
-else if scan_keyword("sp") then goto done
-@.sp@>
-@z
-
-@x [27.464] l.9475 - pTeX: str_toks
-  if t=" " then t:=space_token
-  else t:=other_token+t;
-@y
-  if (multistrlen(str_pool, pool_ptr, k)=2) then
-    begin t:=fromBUFF(str_pool, pool_ptr, k); incr(k);
-    end
-  else if t=" " then t:=space_token
-  else t:=other_token+t;
-@z
-
-@x [27.468] l.9531 - pTeX: convert KANJI code
-@d number_code=0 {command code for \.{\\number}}
-@d roman_numeral_code=1 {command code for \.{\\romannumeral}}
-@d string_code=2 {command code for \.{\\string}}
-@d meaning_code=3 {command code for \.{\\meaning}}
-@d font_name_code=4 {command code for \.{\\fontname}}
-@d job_name_code=5 {command code for \.{\\jobname}}
-@y
-@d number_code=0 {command code for \.{\\number}}
-@d roman_numeral_code=1 {command code for \.{\\romannumeral}}
-@d kansuji_code=2 {command code for \.{\\kansuji}}
-@d string_code=3 {command code for \.{\\string}}
-@d meaning_code=4 {command code for \.{\\meaning}}
-@d font_name_code=5 {command code for \.{\\fontname}}
-@d euc_code=6 {command code for \.{\\euc}}
-@d sjis_code=7 {command code for \.{\\sjis}}
-@d jis_code=8 {command code for \.{\\jis}}
-@d kuten_code=9 {command code for \.{\\kuten}}
-@d job_name_code=10 {command code for \.{\\jobname}}
-@z
-
-@x [27.468] l.9547 - pTeX:
-primitive("fontname",convert,font_name_code);@/
-@!@:font_name_}{\.{\\fontname} primitive@>
-@y
-primitive("fontname",convert,font_name_code);@/
-@!@:font_name_}{\.{\\fontname} primitive@>
-primitive("kansuji",convert,kansuji_code);
-@!@:kansuji_}{\.{\\kansuji} primitive@>
-primitive("euc",convert,euc_code);
-@!@:euc_}{\.{\\euc} primitive@>
-primitive("sjis",convert,sjis_code);
-@!@:sjis_}{\.{\\sjis} primitive@>
-primitive("jis",convert,jis_code);
-@!@:jis_}{\.{\\jis} primitive@>
-primitive("kuten",convert,kuten_code);
-@!@:kuten_}{\.{\\kuten} primitive@>
-@z
-
-@x [27.469] l.9558 - pTeX:
-  font_name_code: print_esc("fontname");
-@y
-  font_name_code: print_esc("fontname");
-  kansuji_code: print_esc("kansuji");
-  euc_code:print_esc("euc");
-  sjis_code:print_esc("sjis");
-  jis_code:print_esc("jis");
-  kuten_code:print_esc("kuten");
-@z
-
-@x [27.470] l.9566 - pTeX: convert KANJI code continue
-@p procedure conv_toks;
-var old_setting:0..max_selector; {holds |selector| setting}
-@y
-@p procedure conv_toks;
-var old_setting:0..max_selector; {holds |selector| setting}
-@!cx:KANJI_code; {temporary register for KANJI}
-@z
-
-@x [27.471] l.9577 - pTeX: convert KANJI code continue
-@ @<Scan the argument for command |c|@>=
-case c of
-number_code,roman_numeral_code: scan_int;
-string_code, meaning_code: begin save_scanner_status:=scanner_status;
-  scanner_status:=normal; get_token; scanner_status:=save_scanner_status;
-  end;
-@y
-@ @<Scan the argument for command |c|@>=
-KANJI(cx):=0;
-case c of
-number_code,roman_numeral_code,
-kansuji_code,euc_code,sjis_code,jis_code,kuten_code: scan_int;
-string_code, meaning_code: begin save_scanner_status:=scanner_status;
-  scanner_status:=normal; get_token;
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {wchar_token}
-    KANJI(cx):=cur_tok;
-  scanner_status:=save_scanner_status;
-  end;
-@z
-
-@x [27.471] l.9587 - pTeX: convert KANJI code continue
-@ @<Print the result of command |c|@>=
-case c of
-number_code: print_int(cur_val);
-roman_numeral_code: print_roman_int(cur_val);
-string_code:if cur_cs<>0 then sprint_cs(cur_cs)
-  else print_char(cur_chr);
-@y
-@ @<Print the result of command |c|@>=
-case c of
-number_code: print_int(cur_val);
-roman_numeral_code: print_roman_int(cur_val);
-jis_code:   print_int(fromJIS(cur_val));
-euc_code:   print_int(fromEUC(cur_val));
-sjis_code:  print_int(fromSJIS(cur_val));
-kuten_code: print_int(fromKUTEN(cur_val));
-kansuji_code: print_kansuji(cur_val);
-string_code:if cur_cs<>0 then sprint_cs(cur_cs)
-  else if KANJI(cx)=0 then print_char(cur_chr)
-  else print_kanji(cx);
-@z
-
-@x [28.487] l.9852 - pTeX: iftdir, ifydir, iftbox, ifybox
-@d if_case_code=16 { `\.{\\ifcase}' }
-@y
-@d if_case_code=16 { `\.{\\ifcase}' }
-@d if_tdir_code=17 { `\.{\\iftdir}' }
-@d if_ydir_code=18 { `\.{\\ifydir}' }
-@d if_mdir_code=19 { `\.{\\ifmdir}' }
-@d if_tbox_code=20 { `\.{\\iftbox}' }
-@d if_ybox_code=21 { `\.{\\ifybox}' }
-@z
-
-@x [28.487] l.9887 - pTeX: iftdir, ifydir, iftbox, ifybox
-primitive("ifcase",if_test,if_case_code);
-@!@:if_case_}{\.{\\ifcase} primitive@>
-@y
-primitive("ifcase",if_test,if_case_code);
-@!@:if_case_}{\.{\\ifcase} primitive@>
-primitive("iftdir",if_test,if_tdir_code);
-@!@:if_tdir_}{\.{\\iftdir} primitive@>
-primitive("ifydir",if_test,if_ydir_code);
-@!@:if_ydir_}{\.{\\ifydir} primitive@>
-primitive("ifmdir",if_test,if_mdir_code);
-@!@:if_mdir_}{\.{\\ifmdir} primitive@>
-primitive("iftbox",if_test,if_tbox_code);
-@!@:if_tbox_}{\.{\\iftbox} primitive@>
-primitive("ifybox",if_test,if_ybox_code);
-@!@:if_ybox_}{\.{\\ifybox} primitive@>
-@z
-
-@x [28.488] l.9907 - pTeX: iftdir, ifydir, iftbox, ifybox
-  if_case_code:print_esc("ifcase");
-@y
-  if_case_code:print_esc("ifcase");
-  if_tdir_code:print_esc("iftdir");
-  if_ydir_code:print_esc("ifydir");
-  if_mdir_code:print_esc("ifmdir");
-  if_tbox_code:print_esc("iftbox");
-  if_ybox_code:print_esc("ifybox");
-@z
-
-@x [28.501] l.10073 - pTeX: iftdir, ifydir, iftbox, ifybox
-if_void_code, if_hbox_code, if_vbox_code: @<Test box register status@>;
-@y
-if_tdir_code: b:=(abs(direction)=dir_tate);
-if_ydir_code: b:=(abs(direction)=dir_yoko);
-if_mdir_code: b:=(direction<0);
-if_void_code, if_hbox_code, if_vbox_code, if_tbox_code, if_ybox_code:
-  @<Test box register status@>;
-@z
-
-@x [28.505] l.10118 - pTeX: Test box register status : iftbox, ifybox
-if this_if=if_void_code then b:=(p=null)
-else if p=null then b:=false
-else if this_if=if_hbox_code then b:=(type(p)=hlist_node)
-else b:=(type(p)=vlist_node);
-@y
-if this_if=if_void_code then b:=(p=null)
-else if p=null then b:=false
-else begin
-  if type(p)=dir_node then p:=list_ptr(p);
-  if this_if=if_hbox_code then b:=(type(p)=hlist_node)
-  else if this_if=if_vbox_code then b:=(type(p)=vlist_node)
-  else if this_if=if_tbox_code then b:=(box_dir(p)=dir_tate)
-  else b:=(box_dir(p)=dir_yoko);
-  end
-@z
-
-@x [28.502] l.10138 - pTeX: ifx : Test character : KANJI character
-if (cur_cmd>active_char)or(cur_chr>255) then {not a character}
-  begin m:=relax; n:=256;
-  end
-else  begin m:=cur_cmd; n:=cur_chr;
-  end;
-get_x_token_or_active_char;
-if (cur_cmd>active_char)or(cur_chr>255) then
-  begin cur_cmd:=relax; cur_chr:=256;
-  end;
-@y
-if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-  begin m:=cur_cmd; n:=cur_chr;
-  end
-else if (cur_cmd>active_char)or(cur_chr>255) then
-  begin m:=relax; n:=256;
-  end
-else  begin m:=cur_cmd; n:=cur_chr;
-  end;
-get_x_token_or_active_char;
-if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-  begin cur_cmd:=cur_cmd;
-  end {dummy}
-else if (cur_cmd>active_char)or(cur_chr>255) then
-  begin cur_cmd:=relax; cur_chr:=256;
-  end;
-@z
-
-@x [29.523] l.10571 - pTeX: xord
-for j:=1 to n do append_to_name(xord[TEX_format_default[j]]);
-for j:=a to b do append_to_name(buffer[j]);
-for j:=format_default_length-format_ext_length+1 to format_default_length do
-  append_to_name(xord[TEX_format_default[j]]);
-@y
-if name_of_file then libc_free (name_of_file);
-name_of_file := xmalloc (1 + n + (b - a + 1) + format_ext_length + 1);
-for j:=1 to n do append_to_name(xord[TEX_format_default[j]]);
-for j:=a to b do append_to_name(buffer[j]);
-for j:=format_default_length-format_ext_length+1 to format_default_length do
-  append_to_name(xord[TEX_format_default[j]]);
-@z
-
-@x [29.526] l.10668 - pTeX: scan file name
-loop@+begin if (cur_cmd>other_char)or(cur_chr>255) then {not a character}
-    begin back_input; goto done;
-    end;
-  {If |cur_chr| is a space and we're not scanning a token list, check
-   whether we're at the end of the buffer. Otherwise we end up adding
-   spurious spaces to file names in some cases.}
-  if (cur_chr=" ") and (state<>token_list) and (loc>limit) then goto done;
-  if not more_name(cur_chr) then goto done;
-  get_x_token;
-  end;
-done: end_name; name_in_progress:=false;
-@y
-skip_mode:=false;
-loop@+begin
-  if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {is kanji}
-    begin str_room(2);
-    append_char(Hi(cur_chr)); {kanji upper byte}
-    append_char(Lo(cur_chr)); {kanji lower byte}
-    end
-  else if (cur_cmd>other_char)or(cur_chr>255) then {not a alphabet}
-    begin back_input; goto done;
-    end
-  {If |cur_chr| is a space and we're not scanning a token list, check
-   whether we're at the end of the buffer. Otherwise we end up adding
-   spurious spaces to file names in some cases.}
-   else if ((cur_chr=" ") and (state<>token_list) and (loc>limit)) or not more_name(cur_chr) then goto done;
-  get_x_token;
-  end;
-done: end_name; name_in_progress:=false;
-skip_mode:=true;
-@z
-
-@x [29.536] l.10834 - pTeX:
-begin
-if src_specials_p or file_line_error_style_p or parse_first_line_p
-then
-  wlog(banner_k)
-else
-  wlog(banner);
-@y
-begin
-if src_specials_p or file_line_error_style_p or parse_first_line_p
-then
-  wlog(banner_k)
-else
-  wlog(banner);
-  wlog(' (');
-  wlog(conststringcast(get_enc_string));
-  wlog(')');
-@z
-
-@x [30.560] l.10968 - pTeX:
-This is called BigEndian order.
-@!@^BigEndian order@>
-@y
-This is called BigEndian order.
-@!@^BigEndian order@>
-
-We use to get \TeX\ knowledge about KANJI fonts from \.{JFM} files.
-The \.{JFM} format holds more two 16-bit integers ,|id| and |nt|,
-at the top of the file.
-$$\vbox{\halign{\hfil#&$\null=\null$#\hfil\cr
-|id|&identification code of the file;\cr
-|nt|&number of words in the |char_type| table;\cr}}$$
-The identification byte, |id| equals~11 or~9. When \TeX read a font file,
-the |id| equals~11 or~9 then the font is the \.{JFM}, othercases it is
-the \.{TFM} file. The \.{TFM} holds |lf| at the same postion of |id|,
-usually it take a larger number than~9 or~11.
-The |nt| is nonngative and less than $2^{15}$.
-
-We must have |ec=0|,
-$$\hbox{|lf=7+lh+nt+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np|.}$$
-
-@d yoko_jfm_id=11 {for `yoko-kumi' fonts}
-@d tate_jfm_id=9  {for `tate-kumi' fonts}
-@z
-
-@x [30.544] l.11085 - pTeX: gk_tag
-operation looks for both |list_tag| and |ext_tag|.
-@y
-operation looks for both |list_tag| and |ext_tag|.
-
-If the \.{JFM}, the |lig_tag| is called |gk_tag|. The |gk_tag| means that
-this character has a glue/kerning program starting at position |remainder|
-in the |glue_kern| array. And a \.{JFM} not used |tag=2| and |tag=3|.
-@z
-
-@x [30.544] l.11088 - pTeX: gk_tag
-@d lig_tag=1 {character has a ligature/kerning program}
-@y
-@d lig_tag=1 {character has a ligature/kerning program}
-@d gk_tag=1 {character has a glue/kerning program}
-@z
-
-@x [30.549] l.11228 - pTeX:
-@<Glob...@>=
-@!font_info: ^fmemory_word;
-@y
-@<Glob...@>=
-@!font_info: ^memory_word; {pTeX: use halfword for |char_type| table.}
-@!font_dir: ^eight_bits;
-  {pTeX: direction of fonts, 0 is default, 1 is Yoko, 2 is Tate}
-@!font_num_ext: ^integer;
-  {pTeX: number of the |char_type| table.}
-@z
-
-@x [30.550] l.11270 - pTeX:
-@!char_base: ^integer;
-  {base addresses for |char_info|}
-@y
-@!char_base: ^integer;
-  {base addresses for |char_info|}
-@!ctype_base: ^integer;
-  {pTeX: base addresses for KANJI character type parameters}
-@z
-
-@x [30.554] l.11373 - pTeX:
-@d orig_char_info_end(#)==#].qqqq
-@d orig_char_info(#)==font_info[char_base[#]+orig_char_info_end
-@y
-@d orig_char_info_end(#)==#].qqqq
-@d orig_char_info(#)==font_info[char_base[#]+orig_char_info_end
-@#
-@d kchar_code_end(#)==#].hh.rh
-@d kchar_code(#)==font_info[ctype_base[#]+kchar_code_end
-@d kchar_type_end(#)==#].hh.lhfield
-@d kchar_type(#)==font_info[ctype_base[#]+kchar_type_end
-@z
-
-@x [30.557] l.11413 - pTeX: glue_kern_start
-@d lig_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of lig/kern program}
-@y
-@d lig_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of lig/kern program}
-@d glue_kern_start(#)==lig_kern_base[#]+rem_byte
-  {beginning of glue/kern program}
-@z
-
-@x [30.560] l.11457 - pTeX: jfm_flag, jfm_id, nt, cx
-var k:font_index; {index into |font_info|}
-@y
-var k:font_index; {index into |font_info|}
-@!jfm_flag:dir_default..dir_tate; {direction of the \.{JFM}}
-@!nt:halfword; {number of the |char_type| tables}
-@!cx:KANJI_code; {kanji code}
-@z
-
-@x [30.565] l.11548 - pTeX: read tfm size
-@ @<Read the {\.{TFM}} size fields@>=
-begin read_sixteen(lf);
-fget; read_sixteen(lh);
-fget; read_sixteen(bc);
-fget; read_sixteen(ec);
-if (bc>ec+1)or(ec>255) then abort;
-if bc>255 then {|bc=256| and |ec=255|}
-  begin bc:=1; ec:=0;
-  end;
-fget; read_sixteen(nw);
-fget; read_sixteen(nh);
-fget; read_sixteen(nd);
-fget; read_sixteen(ni);
-fget; read_sixteen(nl);
-fget; read_sixteen(nk);
-fget; read_sixteen(ne);
-fget; read_sixteen(np);
-if lf<>6+lh+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort;
-if (nw=0)or(nh=0)or(nd=0)or(ni=0) then abort;
-end
-@y
-@ @<Read the {\.{TFM}} size fields@>=
-begin read_sixteen(lf);
-fget; read_sixteen(lh);
-if lf=yoko_jfm_id then
-  begin jfm_flag:=dir_yoko; nt:=lh;
-  fget; read_sixteen(lf);
-  fget; read_sixteen(lh);
-  end
-else if lf=tate_jfm_id then
-  begin jfm_flag:=dir_tate; nt:=lh;
-  fget; read_sixteen(lf);
-  fget; read_sixteen(lh);
-  end
-else begin jfm_flag:=dir_default; nt:=0;
-  end;
-fget; read_sixteen(bc);
-fget; read_sixteen(ec);
-if (bc>ec+1)or(ec>255) then abort;
-if bc>255 then {|bc=256| and |ec=255|}
-  begin bc:=1; ec:=0;
-  end;
-fget; read_sixteen(nw);
-fget; read_sixteen(nh);
-fget; read_sixteen(nd);
-fget; read_sixteen(ni);
-fget; read_sixteen(nl);
-fget; read_sixteen(nk);
-fget; read_sixteen(ne);
-fget; read_sixteen(np);
-if jfm_flag<>dir_default then
-  begin if lf<>7+lh+nt+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort
-  end
-else
-  begin if lf<>6+lh+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort
-  end;
-if (nw=0)or(nh=0)or(nd=0)or(ni=0) then abort;
-end
-@z
-
-@x [30.566] l.11574 - pTeX: set font_dir & font_num_ext
-@<Use size fields to allocate font information@>=
-lf:=lf-6-lh; {|lf| words should be loaded into |font_info|}
-if np<7 then lf:=lf+7-np; {at least seven parameters will appear}
-if (font_ptr=font_max)or(fmem_ptr+lf>font_mem_size) then
-  @<Apologize for not loading the font, |goto done|@>;
-f:=font_ptr+1;
-char_base[f]:=fmem_ptr-bc;
-width_base[f]:=char_base[f]+ec+1;
-height_base[f]:=width_base[f]+nw;
-depth_base[f]:=height_base[f]+nh;
-italic_base[f]:=depth_base[f]+nd;
-lig_kern_base[f]:=italic_base[f]+ni;
-kern_base[f]:=lig_kern_base[f]+nl-kern_base_offset;
-exten_base[f]:=kern_base[f]+kern_base_offset+nk;
-param_base[f]:=exten_base[f]+ne
-@y
-@<Use size fields to allocate font information@>=
-if jfm_flag<>dir_default then
-  lf:=lf-7-lh  {If \.{JFM}, |lf| holds more two-16bit records than \.{TFM}}
-else
-  lf:=lf-6-lh; {|lf| words should be loaded into |font_info|}
-if np<7 then lf:=lf+7-np; {at least seven parameters will appear}
-if (font_ptr=font_max)or(fmem_ptr+lf>font_mem_size) then
-  @<Apologize for not loading the font, |goto done|@>;
-f:=font_ptr+1;
-font_dir[f]:=jfm_flag;
-font_num_ext[f]:=nt;
-ctype_base[f]:=fmem_ptr;
-char_base[f]:=ctype_base[f]+nt-bc;
-width_base[f]:=char_base[f]+ec+1;
-height_base[f]:=width_base[f]+nw;
-depth_base[f]:=height_base[f]+nh;
-italic_base[f]:=depth_base[f]+nd;
-lig_kern_base[f]:=italic_base[f]+ni;
-kern_base[f]:=lig_kern_base[f]+nl-kern_base_offset;
-exten_base[f]:=kern_base[f]+kern_base_offset+nk;
-param_base[f]:=exten_base[f]+ne;
-@z
-
-@x [30.569] l.11619 - pTeX: read char_type
-@ @<Read character data@>=
-for k:=fmem_ptr to width_base[f]-1 do
-  begin store_four_quarters(font_info[k].qqqq);
-@y
-@ @<Read character data@>=
-if jfm_flag<>dir_default then
-  for k:=ctype_base[f] to ctype_base[f]+nt-1 do
-    begin
-    fget; read_sixteen(cx); font_info[k].hh.rh:=tokanji(cx); {|kchar_code|}
-    fget; read_sixteen(cx); font_info[k].hh.lhfield:=tonum(cx); {|kchar_type|}
-    end;
-for k:=char_base[f]+bc to width_base[f]-1 do
-  begin store_four_quarters(font_info[k].qqqq);
-@z
-
-@x [30.570] l.11638 - pTeX:
-@d current_character_being_worked_on==k+bc-fmem_ptr
-@y
-@d current_character_being_worked_on==k-char_base[f]
-@z
-
-@x [30.573] l.11704 - pTeX: jfm
-    if a>128 then
-      begin if 256*c+d>=nl then abort;
-      if a=255 then if k=lig_kern_base[f] then bchar:=b;
-      end
-    else begin if b<>bchar then check_existence(b);
-      if c<128 then check_existence(d) {check ligature}
-      else if 256*(c-128)+d>=nk then abort; {check kern}
-      if a<128 then if k-lig_kern_base[f]+a+1>=nl then abort;
-      end;
-    end;
-@y
-    if a>128 then
-      begin if 256*c+d>=nl then abort;
-      if a=255 then if k=lig_kern_base[f] then bchar:=b;
-      end
-    else begin if b<>bchar then check_existence(b);
-      if c<128 then begin
-          if jfm_flag<>dir_default then begin if d>=ne then abort; end
-        else check_existence(d); {check ligature}
-      end else if 256*(c-128)+d>=nk then abort; {check kern}
-      if a<128 then if k-lig_kern_base[f]+a+1>=nl then abort;
-      end;
-    end;
-@z
-
-@x [30.574] l.11720 - pTeX: read jfm exten
-for k:=exten_base[f] to param_base[f]-1 do
-  begin store_four_quarters(font_info[k].qqqq);
-@y
-if jfm_flag<>dir_default then
-  for k:=exten_base[f] to param_base[f]-1 do
-    store_scaled(font_info[k].sc) {NOTE: this area subst for glue program}
-else for k:=exten_base[f] to param_base[f]-1 do
-  begin store_four_quarters(font_info[k].qqqq);
-@z
-
-@x [30.576] l.11765 - pTeX: adjust ctype_base
-adjust(char_base); adjust(width_base); adjust(lig_kern_base);
-@y
-adjust(ctype_base);
-adjust(char_base); adjust(width_base); adjust(lig_kern_base);
-@z
-
-@x [30.577] l.11778 - pTeX: jfont, tfont
-if cur_cmd=def_font then f:=cur_font
-@y
-if cur_cmd=def_jfont then f:=cur_jfont
-else if cur_cmd=def_tfont then f:=cur_tfont
-else if cur_cmd=def_font then f:=cur_font
-@z
-
-@x
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var old_setting: integer; {saved value of |tracing_online|}
-begin if tracing_lost_chars>0 then
- begin old_setting:=tracing_online;
- if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1;
-  begin begin_diagnostic;
-  print_nl("Missing character: There is no ");
-@.Missing character@>
-  print_ASCII(c); print(" in font ");
-  slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
-  end;
-@y
-@d print_lc_hex(#)==l:=#;
-  if l<10 then print_char(l+"0")@+else print_char(l-10+"a")
-
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var @!l:0..255; {small indices or counters}
-old_setting: integer; {saved value of |tracing_online|}
-begin if tracing_lost_chars>0 then
- begin old_setting:=tracing_online;
- if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1;
-  begin begin_diagnostic;
-  print_nl("Missing character: There is no ");
-@.Missing character@>
-  if (c<" ")or(c>"~") then
-    begin print_char("^"); print_char("^");
-    if c<64 then print_char(c+64)
-    else if c<128 then print_char(c-64)
-    else begin print_lc_hex(c div 16);  print_lc_hex(c mod 16); end
-    end
-  else print_ASCII(c);
-  print(" in font ");
-  slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
-  end;
-@z
-
-@x [31.586] l.12189 - pTeX: define set2
-@d set1=128 {typeset a character and move right}
-@y
-@d set1=128 {typeset a character and move right}
-@d set2=129 {typeset a character and move right}
-@z
-@x [31.586] l.12214 - pTeX: define dirchg
-@d post_post=249 {postamble ending}
-@y
-@d post_post=249 {postamble ending}
-@d dirchg=255 {direction change}
-@z
-
-@x [31.587] l.12246 - pTeX: ex_id_byte
-@d id_byte=2 {identifies the kind of \.{DVI} files described here}
-@y
-@d id_byte=2 {identifies the kind of \.{DVI} files described here}
-@d ex_id_byte=3 {identifies the kind of extended \.{DVI} files}
-@z
-
-@x [32.590] l.12329 - pTeX: ex_id_byte: This dvi is extended!
-@ The last part of the postamble, following the |post_post| byte that
-signifies the end of the font definitions, contains |q|, a pointer to the
-|post| command that started the postamble.  An identification byte, |i|,
-comes next; this currently equals~2, as in the preamble.
-@y
-@ The last part of the postamble, following the |post_post| byte that
-signifies the end of the font definitions, contains |q|, a pointer to the
-|post| command that started the postamble.  An identification byte, |i|,
-comes next; this equals~2 or~3. If not used p\TeX primitives then the
-identification byte equals~2, othercase this is set to~3.
-@z
-
-@x [32.592] l.12405 - pTeX:
- {character and font in current |char_node|}
-@!c:quarterword;
-@!f:internal_font_number;
-@y
- {character and font in current |char_node|}
-@!c:quarterword;
-@!f:internal_font_number;
-@!dir_used:boolean; {Is this dvi extended?}
-@z
-
-@x [32.593] l.12414 - pTeX: dir_used: Is this dvi extended?
-doing_leaders:=false; dead_cycles:=0; cur_s:=-1;
-@y
-doing_leaders:=false; dead_cycles:=0; cur_s:=-1; dir_used:=false;
-@z
-
-@x [32.617] l.12846 - pTeX: Initialize dvi_dir as shipout begins
-dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font;
-@y
-dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font;
-dvi_dir:=dir_yoko; cur_dir_hv:=dvi_dir;
-@z
-
-@x [32.619] l.12892 - pTeX: hlist_out Kanji, disp_node
-procedure hlist_out; {output an |hlist_node| box}
-label reswitch, move_past, fin_rule, next_p, continue, found;
-var base_line: scaled; {the baseline coordinate for this box}
-@y
-procedure hlist_out; {output an |hlist_node| box}
-label reswitch, move_past, fin_rule, next_p, continue, found;
-var base_line: scaled; {the baseline coordinate for this box}
-@!disp: scaled; {displacement}
-@!save_dir:eight_bits; {what |dvi_dir| should pop to}
-@!jc:KANJI_code; {temporary register for KANJI codes}
-@!ksp_ptr:pointer; {position of |auto_spacing_glue| in the hlist}
-@z
-@x [32.619] l.12913 - pTeX: hlist_out Kanji, disp_node
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h;
-@y
-ksp_ptr:=space_ptr(this_box);
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr;
-synch_dir;
-base_line:=cur_v; left_edge:=cur_h; disp:=0;
-@z
-
-@x [32.622] l.12945 - pTeX: chain
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
-  begin synch_h; synch_v;
-  repeat f:=font(p); c:=character(p);
-  if f<>dvi_f then @<Change font |dvi_f| to |f|@>;
-  if font_ec[f]>=qo(c) then if font_bc[f]<=qo(c) then
-    if char_exists(orig_char_info(f)(c)) then  {N.B.: not |char_info|}
-      begin if c>=qi(128) then dvi_out(set1);
-      dvi_out(qo(c));@/
-      cur_h:=cur_h+char_width(f)(orig_char_info(f)(c));
-      goto continue;
-      end;
-  if mltex_enabled_p then
-    @<Output a substitution, |goto continue| if not possible@>;
-continue:
-  p:=link(p);
-  until not is_char_node(p);
-  dvi_h:=cur_h;
-  end
-else @<Output the non-|char_node| |p| for |hlist_out|
-    and move to the next node@>
-@y
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
-  begin synch_h; synch_v;
-  chain:=false;
-  repeat f:=font(p); c:=character(p);
-  if f<>dvi_f then @<Change font |dvi_f| to |f|@>;
-  if font_dir[f]=dir_default then
-    begin chain:=false;
-    if font_ec[f]>=qo(c) then if font_bc[f]<=qo(c) then
-      if char_exists(orig_char_info(f)(c)) then  {N.B.: not |char_info|}
-        begin if c>=qi(128) then dvi_out(set1);
-        dvi_out(qo(c));@/
-        cur_h:=cur_h+char_width(f)(orig_char_info(f)(c));
-        goto continue;
-        end;
-    if mltex_enabled_p then
-      @<Output a substitution, |goto continue| if not possible@>;
-continue:
-    end
-  else
-    begin if chain=false then chain:=true
-    else begin cur_h:=cur_h+width(ksp_ptr);
-      if g_sign<>normal then
-        begin  if g_sign=stretching then
-          begin  if stretch_order(ksp_ptr)=g_order then
-            cur_h:=cur_h+round(float(glue_set(this_box))*stretch(ksp_ptr));
-@^real multiplication@>
-          end
-        else
-          begin  if shrink_order(ksp_ptr)=g_order then
-            cur_h:=cur_h-round(float(glue_set(this_box))*shrink(ksp_ptr));
-@^real multiplication@>
-          end;
-        end;
-      synch_h;
-      end;
-    prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|}
-    p:=link(p);
-	jc:=toDVI(KANJI(info(p)));
-    dvi_out(set2); dvi_out(Hi(jc)); dvi_out(Lo(jc));
-    cur_h:=cur_h+char_width(f)(orig_char_info(f)(c)); {not |jc|}
-    end;
-  dvi_h:=cur_h; p:=link(p);
-  until not is_char_node(p);
-  chain:=false;
-  end
-else @<Output the non-|char_node| |p| for |hlist_out|
-    and move to the next node@>
-@z
-
-@x [32.623] l.12982 - pTeX: disp_node, dir_node
-@ @<Output the non-|char_node| |p| for |hlist_out|...@>=
-begin case type(p) of
-hlist_node,vlist_node:@<Output a box in an hlist@>;
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
-  goto fin_rule;
-  end;
-whatsit_node: @<Output the whatsit node |p| in an hlist@>;
-@y
-@ @<Output the non-|char_node| |p| for |hlist_out|...@>=
-begin case type(p) of
-hlist_node,vlist_node,dir_node:@<Output a box in an hlist@>;
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
-  goto fin_rule;
-  end;
-whatsit_node: @<Output the whatsit node |p| in an hlist@>;
-disp_node: begin disp:=disp_dimen(p); revdisp:=disp; cur_v:=base_line+disp; end;
-@z
-
-@x [32.624] l.13000 - pTeX: output a box(and dir_node) with disp
-@ @<Output a box in an hlist@>=
-if list_ptr(p)=null then cur_h:=cur_h+width(p)
-else  begin save_h:=dvi_h; save_v:=dvi_v;
-  cur_v:=base_line+shift_amount(p); {shift the box down}
-@y
-@ @<Output a box in an hlist@>=
-if list_ptr(p)=null then cur_h:=cur_h+width(p)
-else  begin save_h:=dvi_h; save_v:=dvi_v; save_dir:=dvi_dir;
-  cur_v:=base_line+disp+shift_amount(p); {shift the box down}
-@z
-@x [32.624] l.13005 - pTeX: output a box(and dir_node) with disp
-  if type(p)=vlist_node then vlist_out@+else hlist_out;
-  dvi_h:=save_h; dvi_v:=save_v;
-  cur_h:=edge; cur_v:=base_line;
-  end
-@y
-  case type(p) of
-    hlist_node:hlist_out;
-    vlist_node:vlist_out;
-    dir_node:dir_out;
-  endcases;
-  dvi_h:=save_h; dvi_v:=save_v; dvi_dir:=save_dir;
-  cur_h:=edge; cur_v:=base_line+disp; cur_dir_hv:=save_dir;
-  end
-@z
-
-@x [32.625] l.13010 - pTeX: Output a rule with disp
-@ @<Output a rule in an hlist@>=
-if is_running(rule_ht) then rule_ht:=height(this_box);
-if is_running(rule_dp) then rule_dp:=depth(this_box);
-@y
-@ @<Output a rule in an hlist@>=
-if is_running(rule_ht) then rule_ht:=height(this_box)+disp;
-if is_running(rule_dp) then rule_dp:=depth(this_box)-disp;
-@z
-
-@x [32.629] l.13103 - pTeX: Output a leader box(and dir_node) with disp
-@<Output a leader box at |cur_h|, ...@>=
-begin cur_v:=base_line+shift_amount(leader_box); synch_v; save_v:=dvi_v;@/
-synch_h; save_h:=dvi_h; temp_ptr:=leader_box;
-@y
-@<Output a leader box at |cur_h|, ...@>=
-begin cur_v:=base_line+disp+shift_amount(leader_box); synch_v; save_v:=dvi_v;@/
-synch_h; save_h:=dvi_h; save_dir:=dvi_dir; temp_ptr:=leader_box;
-@z
-@x [32.629] l.13107 - pTeX: Output a leader box(and dir_node) with disp
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; cur_v:=base_line;
-cur_h:=save_h+leader_wd+lx;
-end
-@y
-case type(leader_box) of
-  hlist_node:hlist_out;
-  vlist_node:vlist_out;
-  dir_node:dir_out;
-endcases;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; dvi_dir:=save_dir;
-cur_v:=base_line; cur_h:=save_h+leader_wd+lx; cur_dir_hv:=save_dir;
-end
-@z
-
-@x [32.630] l.13133 - pTeX: vlist_out
-begin cur_g:=0; cur_glue:=float_constant(0);
-this_box:=temp_ptr; g_order:=glue_order(this_box);
-g_sign:=glue_sign(this_box); p:=list_ptr(this_box);
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; left_edge:=cur_h; cur_v:=cur_v-height(this_box);
-@y
-@!save_dir:integer; {what |dvi_dir| should pop to}
-begin cur_g:=0; cur_glue:=float_constant(0);
-this_box:=temp_ptr; g_order:=glue_order(this_box);
-g_sign:=glue_sign(this_box); p:=list_ptr(this_box);
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr;
-synch_dir;
-left_edge:=cur_h; cur_v:=cur_v-height(this_box);
-@z
-
-@x [32.632] l.13155 - pTeX: output non-char-node
-@ @<Output the non-|char_node| |p| for |vlist_out|@>=
-begin case type(p) of
-hlist_node,vlist_node:@<Output a box in a vlist@>;
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
-  goto fin_rule;
-  end;
-@y
-@ @<Output the non-|char_node| |p| for |vlist_out|@>=
-begin case type(p) of
-hlist_node,vlist_node,dir_node: @<Output a box in a vlist@>;
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
-  goto fin_rule;
-  end;
-@z
-
-@x [32.633] l.13175 - pTeX: Output a box in a vlist
-@<Output a box in a vlist@>=
-if list_ptr(p)=null then cur_v:=cur_v+height(p)+depth(p)
-else  begin cur_v:=cur_v+height(p); synch_v;
-  save_h:=dvi_h; save_v:=dvi_v;
-@y
-@<Output a box in a vlist@>=
-if list_ptr(p)=null then cur_v:=cur_v+height(p)+depth(p)
-else begin cur_v:=cur_v+height(p); synch_v;
-  save_h:=dvi_h; save_v:=dvi_v; save_dir:=dvi_dir;
-@z
-@x [32.633] l.13181 - pTeX: Output a box in a vlist
-  if type(p)=vlist_node then vlist_out@+else hlist_out;
-  dvi_h:=save_h; dvi_v:=save_v;
-  cur_v:=save_v+depth(p); cur_h:=left_edge;
-  end
-@y
-  case type(p) of
-    hlist_node:hlist_out;
-    vlist_node:vlist_out;
-    dir_node:dir_out;
-  endcases;
-  dvi_h:=save_h; dvi_v:=save_v; dvi_dir:=save_dir;
-  cur_v:=save_v+depth(p); cur_h:=left_edge; cur_dir_hv:=save_dir;
-  end
-@z
-
-@x [32.637] l.13256 - pTeX: Output a leader in a vlist
-@<Output a leader box at |cur_v|, ...@>=
-@y
-@<Output a leader box at |cur_v|, ...@>=
-@z
-@x [32.637] l.13258 - pTeX: Output a leader in a vlist
-cur_v:=cur_v+height(leader_box); synch_v; save_v:=dvi_v;
-temp_ptr:=leader_box;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; cur_h:=left_edge;
-cur_v:=save_v-height(leader_box)+leader_ht+lx;
-end
-@y
-cur_v:=cur_v+height(leader_box); synch_v; save_v:=dvi_v; save_dir:=dvi_dir;
-temp_ptr:=leader_box;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-case type(leader_box) of
-  hlist_node:hlist_out;
-  vlist_node:vlist_out;
-  dir_node:dir_out;
-endcases;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; dvi_dir:=save_dir;
-cur_h:=left_edge; cur_v:=save_v-height(leader_box)+leader_ht+lx;
-cur_dir_hv:=save_dir;
-end
-@z
-
-@x [32.638] l.13270 - pTeX: ship out
-@p procedure ship_out(@!p:pointer); {output the box |p|}
-label done;
-var page_loc:integer; {location of the current |bop|}
-@y
-@p procedure ship_out(@!p:pointer); {output the box |p|}
-label done;
-var page_loc:integer; {location of the current |bop|}
-@!del_node:pointer; {used when delete the |dir_node| continued box}
-@z
-@x [32.640] l.13294 - pTeX: ship out
-@<Ship box |p| out@>;
-@y
-if type(p)=dir_node then
-  begin del_node:=p; p:=list_ptr(p);
-  delete_glue_ref(space_ptr(del_node));
-  delete_glue_ref(xspace_ptr(del_node));
-  free_node(del_node,box_node_size);
-  end;
-flush_node_list(link(p)); link(p):=null;
-if box_dir(p)<>dir_yoko then p:=new_dir_node(p,dir_yoko);
-@<Ship box |p| out@>;
-@z
-
-@x [32.641] l.13327 - pTeX: dir_node
-if type(p)=vlist_node then vlist_out@+else hlist_out;
-@y
-case type(p) of
-  hlist_node:hlist_out;
-  vlist_node:vlist_out;
-  dir_node:dir_out;
-endcases;
-@z
-
-@x [33.642] l.13394 - pTeX: postamble's id_byte
-  @<Output the font definitions for all fonts that were used@>;
-  dvi_out(post_post); dvi_four(last_bop); dvi_out(id_byte);@/
-@y
-  @<Output the font definitions for all fonts that were used@>;
-  dvi_out(post_post); dvi_four(last_bop);
-  if dir_used then dvi_out(ex_id_byte) else dvi_out(id_byte);@/
-@z
-
-@x [33.647] l.13515 - pTeX: cur_kanji_skip, cur_xkanji_skip, last_disp
-@< Glob...@>=
-@!adjust_tail:pointer; {tail of adjustment list}
-@y
-@< Glob...@>=
-@!adjust_tail:pointer; {tail of adjustment list}
-@!last_disp:scaled; {displacement at end of list}
-@!cur_kanji_skip:pointer;
-@!cur_xkanji_skip:pointer;
-@z
-
-@x [33.648] l.13518 - pTeX: cur_kanji_skip, cur_xkanji_skip
-@ @<Set init...@>=adjust_tail:=null; last_badness:=0;
-@y
-@ @<Set init...@>=adjust_tail:=null; last_badness:=0;
-  cur_kanji_skip:=zero_glue; cur_xkanji_skip:=zero_glue;
-{ koko
-  |incr(glue_ref_count(cur_kanji_skip));|
-  |incr(glue_ref_count(cur_xkanji_skip));|
-}
-@z
-
-@x [33.649] l.13522 - pTeX: hpack
-@p function hpack(@!p:pointer;@!w:scaled;@!m:small_number):pointer;
-label reswitch, common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@y
-@p function hpack(@!p:pointer;@!w:scaled;@!m:small_number):pointer;
-label reswitch, common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@!k:pointer; {points to a |kanji_space| specification}
-@!disp:scaled; {displacement}
-@z
-
-@x [33.649] l.13533 - pTeX: hpack
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
-q:=r+list_offset; link(q):=p;@/
-h:=0; @<Clear dimensions to zero@>;
-if TeXXeT_en then @<Initialize the LR stack@>;
-while p<>null do @<Examine node |p| in the hlist, taking account of its effect
-  on the dimensions of the new box, or moving it to the adjustment list;
-  then advance |p| to the next node@>;
-if adjust_tail<>null then link(adjust_tail):=null;
-height(r):=h; depth(r):=d;@/
-@<Determine the value of |width(r)| and the appropriate glue setting;
-  then |return| or |goto common_ending|@>;
-common_ending: @<Finish issuing a diagnostic message
-      for an overfull or underfull hbox@>;
-exit: if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>;
-hpack:=r;
-end;
-@y
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
-space_ptr(r):=cur_kanji_skip; xspace_ptr(r):=cur_xkanji_skip;
-add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-k:=cur_kanji_skip;
-q:=r+list_offset; link(q):=p;@/
-h:=0; @<Clear dimensions to zero@>;
-disp:=0;
-if TeXXeT_en then @<Initialize the LR stack@>;
-while p<>null do @<Examine node |p| in the hlist, taking account of its effect
-  on the dimensions of the new box, or moving it to the adjustment list;
-  then advance |p| to the next node@>;
-if adjust_tail<>null then link(adjust_tail):=null;
-height(r):=h; depth(r):=d;@/
-@<Determine the value of |width(r)| and the appropriate glue setting;
-  then |return| or |goto common_ending|@>;
-common_ending:
-  @<Finish issuing a diagnostic message for an overfull or underfull hbox@>;
-exit: last_disp:=disp;
-if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>; 
-hpack:=r;
-end;
-@z
-
-@x [33.651] l.13556 - pTeX: dir_node, disp_node, reset chain
-@ @<Examine node |p| in the hlist, taking account of its effect...@>=
-@^inner loop@>
-begin reswitch: while is_char_node(p) do
-  @<Incorporate character dimensions into the dimensions of
-    the hbox that will contain~it, then move to the next node@>;
-if p<>null then
-  begin case type(p) of
-  hlist_node,vlist_node,rule_node,unset_node:
-    @<Incorporate box dimensions into the dimensions of
-      the hbox that will contain~it@>;
-  ins_node,mark_node,adjust_node: if adjust_tail<>null then
-    @<Transfer node |p| to the adjustment list@>;
-  whatsit_node:@<Incorporate a whatsit node into an hbox@>;
-  glue_node:@<Incorporate glue into the horizontal totals@>;
-  kern_node: x:=x+width(p);
-  math_node: begin x:=x+width(p);
-    if TeXXeT_en then @<Adjust \(t)the LR stack for the |hpack| routine@>;
-    end;
-  ligature_node: @<Make node |p| look like a |char_node|
-    and |goto reswitch|@>;
-  othercases do_nothing
-  endcases;@/
-  p:=link(p);
-  end;
-end
-@y
-@ @<Examine node |p| in the hlist, taking account of its effect...@>=
-@^inner loop@>
-begin reswitch: chain:=false;
-while is_char_node(p) do
-  @<Incorporate character dimensions into the dimensions of
-    the hbox that will contain~it, then move to the next node@>;
-if p<>null then
-  begin case type(p) of
-  hlist_node,vlist_node,dir_node,rule_node,unset_node:
-    @<Incorporate box dimensions into the dimensions of
-      the hbox that will contain~it@>;
-  ins_node,mark_node,adjust_node:
-    if adjust_tail<>null then @<Transfer node |p| to the adjustment list@>;
-  whatsit_node:@<Incorporate a whatsit node into an hbox@>;
-  disp_node:begin disp:=disp_dimen(p); revdisp:=disp; end;
-  glue_node:@<Incorporate glue into the horizontal totals@>;
-  kern_node: x:=x+width(p);
-  math_node: begin x:=x+width(p);
-    if TeXXeT_en then @<Adjust \(t)the LR stack for the |hpack| routine@>;
-    end;
-  ligature_node:@<Make node |p| look like a |char_node| and |goto reswitch|@>;
-  othercases do_nothing
-  endcases;@/
-  p:=link(p);
-  end;
-end
-@z
-
-@x [33.653] l.13589 - pTeX: displacement
-@<Incorporate box dimensions into the dimensions of the hbox...@>=
-begin x:=x+width(p);
-if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p);
-if height(p)-s>h then h:=height(p)-s;
-if depth(p)+s>d then d:=depth(p)+s;
-end
-@y
-@<Incorporate box dimensions into the dimensions of the hbox...@>=
-begin x:=x+width(p);
-if type(p)>=rule_node then s:=disp @+else s:=shift_amount(p)+disp;
-if height(p)-s>h then h:=height(p)-s;
-if depth(p)+s>d then d:=depth(p)+s;
-end
-@z
-
-@x [33.654] l.13601 - pTeX: auto spacing, displacement
-@<Incorporate character dimensions into the dimensions of the hbox...@>=
-begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i);
-x:=x+char_width(f)(i);@/
-s:=char_height(f)(hd);@+if s>h then h:=s;
-s:=char_depth(f)(hd);@+if s>d then d:=s;
-p:=link(p);
-end
-@y
-@<Incorporate character dimensions into the dimensions of the hbox...@>=
-begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i);
-x:=x+char_width(f)(i);@/
-s:=char_height(f)(hd)-disp; if s>h then h:=s;
-s:=char_depth(f)(hd)+disp; if s>d then d:=s;
-if font_dir[f]<>dir_default then
-  begin p:=link(p);
-  if chain then
-    begin x:=x+width(k);@/
-    o:=stretch_order(k); total_stretch[o]:=total_stretch[o]+stretch(k);
-    o:=shrink_order(k); total_shrink[o]:=total_shrink[o]+shrink(k);
-    end
-  else chain:=true;
-  end
-else chain:=false;
-p:=link(p);
-end
-@z
-
-@x [33.668] l.13779 - pTeX: vpackage
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
-@y
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
-space_ptr(r):=zero_glue; xspace_ptr(r):=zero_glue;
-add_glue_ref(zero_glue); add_glue_ref(zero_glue);
-@z
-
-@x [33.669] l.13797 - pTeX: dir_node
-@ @<Examine node |p| in the vlist, taking account of its effect...@>=
-begin if is_char_node(p) then confusion("vpack")
-@:this can't happen vpack}{\quad vpack@>
-else  case type(p) of
-  hlist_node,vlist_node,rule_node,unset_node:
-    @<Incorporate box dimensions into the dimensions of
-      the vbox that will contain~it@>;
-@y
-@ @<Examine node |p| in the vlist, taking account of its effect...@>=
-begin if is_char_node(p) then confusion("vpack")
-@:this can't happen vpack}{\quad vpack@>
-else  case type(p) of
-  hlist_node,vlist_node,dir_node,rule_node,unset_node:
-    @<Incorporate box dimensions into the dimensions of
-      the vbox that will contain~it@>;
-@z
-
-@x [34.681] l.14026 - pTeX: math noad
-@d noad_size=4 {number of words in a normal noad}
-@d nucleus(#)==#+1 {the |nucleus| field of a noad}
-@d supscr(#)==#+2 {the |supscr| field of a noad}
-@d subscr(#)==#+3 {the |subscr| field of a noad}
-@y
-\yskip\hang In Japanese, |math_type(q)=math_jchar| means that |fam(q)|
-refers to one of the sixteen kanji font families, and |KANJI(q)| is the
-internal kanji code number.
-@^Japanese extentions@>
-
-@d noad_size=5 {number of words in a normal noad}
-@d nucleus(#)==#+1 {the |nucleus| field of a noad}
-@d supscr(#)==#+2 {the |supscr| field of a noad}
-@d subscr(#)==#+3 {the |subscr| field of a noad}
-@d kcode_noad(#)==#+4
-@d math_kcode(#)==info(#+4) {the |kanji character| field of a noad}
-@d kcode_noad_nucleus(#)==#+3
-@d math_kcode_nucleus(#)==info(#+3)
-	{the |kanji character| field offset from nucleus}
-@#
-@d math_jchar=5
-@d math_text_jchar=6
-@z
-
-@x [34.686] l.14129 - pTeX: new_noad
-mem[supscr(p)].hh:=empty_field;
-new_noad:=p;
-@y
-mem[supscr(p)].hh:=empty_field;
-mem[kcode_noad(p)].hh:=empty_field;
-new_noad:=p;
-@z
-
-@x [34.687] accent with japanese char
-@d accent_noad_size=5 {number of |mem| words in an accent noad}
-@d accent_chr(#)==#+4 {the |accent_chr| field of an accent noad}
-@y
-@d accent_noad_size=6 {number of |mem| words in an accent noad}
-@d accent_chr(#)==#+5 {the |accent_chr| field of an accent noad}
-@z
-
-@x [34.691] l.14236 - pTeX: print_fam_and_char
-procedure print_fam_and_char(@!p:pointer); {prints family and character}
-begin print_esc("fam"); print_int(fam(p)); print_char(" ");
-print_ASCII(qo(character(p)));
-@y
-procedure print_fam_and_char(@!p:pointer;@!t:small_number);
-					{prints family and character}
-var @!cx:KANJI_code; {temporary register for KANJI}
-begin print_esc("fam"); print_int(fam(p)); print_char(" ");
-if t=math_char then print_ASCII(qo(character(p)))
-else  begin KANJI(cx):=math_kcode_nucleus(p); print_kanji(cx);
-  end;
-@z
-
-@x [34.692] l.14266 - pTeX: print_subsidiary_data
-  math_char: begin print_ln; print_current_string; print_fam_and_char(p);
-@y
-  math_char, math_jchar: begin print_ln; print_current_string;
-    print_fam_and_char(p,math_type(p));
-@z
-
-@x [34.696] l.14327 - pTeX: print_fam_and_char
-accent_noad: begin print_esc("accent"); print_fam_and_char(accent_chr(p));
-@y
-accent_noad: begin print_esc("accent");
-  print_fam_and_char(accent_chr(p),math_char);
-@z
-
-@x [35.715] l.14687 - pTeX: rebox
-  begin if type(b)=vlist_node then b:=hpack(b,natural);
-  p:=list_ptr(b);
-  if (is_char_node(p))and(link(p)=null) then
-    begin f:=font(p); v:=char_width(f)(char_info(f)(character(p)));
-    if v<>width(b) then link(p):=new_kern(width(b)-v);
-    end;
-@y
-  begin if type(b)<>hlist_node then b:=hpack(b,natural);
-  p:=list_ptr(b);
-  if is_char_node(p) then
-    if font_dir[font(p)]<>dir_default then
-      begin if link(link(p))=null then
-        begin f:=font(p); v:=char_width(f)(orig_char_info(f)(character(p)));
-        if v<>width(b) then link(link(p)):=new_kern(width(b)-v);
-        end
-      end
-    else if link(p)=null then
-      begin f:=font(p); v:=char_width(f)(orig_char_info(f)(character(p)));
-      if v<>width(b) then link(p):=new_kern(width(b)-v);
-      end;
-  delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b));
-@z
-
-@x [36.720] l.14783 - pTeX: clean_box
-function clean_box(@!p:pointer;@!s:small_number):pointer;
-@y
-function clean_box(@!p:pointer;@!s:small_number;@!jc:halfword):pointer;
-@z
-
-@x [36.720] l.14790 - pTeX: clean_box
-math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p];
-  end;
-@y
-math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p];
-  end;
-math_jchar: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p];
-  math_kcode(cur_mlist):=jc;
-  end;
-@z
-
-@x [36.720] l.14802 - pTeX: clean_box
-found: if is_char_node(q)or(q=null) then x:=hpack(q,natural)
-  else if (link(q)=null)and(type(q)<=vlist_node)and(shift_amount(q)=0) then
-    x:=q {it's already clean}
-  else x:=hpack(q,natural);
-@y
-found: if is_char_node(q)or(q=null) then x:=hpack(q,natural)
-  else if (link(q)=null)and(type(q)<=dir_node)and(shift_amount(q)=0) then
-    x:=q {it's already clean}
-  else x:=hpack(q,natural);
-@z
-
-@x [36.721] l.14814 - pTeX: skip 2nd kanji node
-if is_char_node(q) then
-  begin r:=link(q);
-@y
-if is_char_node(q) then
-  begin if font_dir[font(q)]<>dir_default then q:=link(q);
-  r:=link(q);
-@z
-
-@x [36.722] l.14833 - pTeX: fetch
-else  begin if (qo(cur_c)>=font_bc[cur_f])and(qo(cur_c)<=font_ec[cur_f]) then
-    cur_i:=orig_char_info(cur_f)(cur_c)
-  else cur_i:=null_character;
-  if not(char_exists(cur_i)) then
-    begin char_warning(cur_f,qo(cur_c));
-    math_type(a):=empty;
-    end;
-  end;
-@y
-else  begin if font_dir[cur_f]<>dir_default then
-    cur_c:=qi(get_jfm_pos(KANJI(math_kcode_nucleus(a)),cur_f));
-  if (qo(cur_c)>=font_bc[cur_f])and(qo(cur_c)<=font_ec[cur_f]) then
-    cur_i:=orig_char_info(cur_f)(cur_c)
-  else cur_i:=null_character;
-  if not(char_exists(cur_i)) then
-    begin char_warning(cur_f,qo(cur_c));
-    math_type(a):=empty;
-    end;
-  end;
-@z
-
-@x [36.726] l.14892 - pTeX: mlist_to_hlist
-var mlist:pointer; {beginning of the given list}
-@!penalties:boolean; {should penalty nodes be inserted?}
-@!style:small_number; {the given style}
-@y
-var mlist:pointer; {beginning of the given list}
-@!penalties:boolean; {should penalty nodes be inserted?}
-@!style:small_number; {the given style}
-@!u:pointer; {temporary register}
-@z
-
-@x [36.726] l.14913 - pTeX: mlist_to_hlist
-@<Make a second pass over the mlist, removing all noads and inserting the
-  proper spacing and penalties@>;
-end;
-@y
-@<Make a second pass over the mlist, removing all noads and inserting the
-  proper spacing and penalties@>;
-p:=new_null_box; link(p):=link(temp_head);
-adjust_hlist(p,false); link(temp_head):=link(p);
-delete_glue_ref(space_ptr(p)); delete_glue_ref(xspace_ptr(p));
-free_node(p,box_node_size);
-end;
-@z
-
-@x [36.727] l.14928 - pTeX: free box
-free_node(z,box_node_size);
-@y
-delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z));
-free_node(z,box_node_size);
-@z
-
-@x [36.730] l.14976 - pTeX: free box: disp_node
-kern_node: begin math_kern(q,cur_mu); goto done_with_node;
-  end;
-@y
-kern_node: begin math_kern(q,cur_mu); goto done_with_node;
-  end;
-disp_node: goto done_with_node;
-@z
-
-@x [36.734] l.15046 - pTeX: make_over:clean_box
-  overbar(clean_box(nucleus(q),cramped_style(cur_style)),@|
-@y
-  overbar(clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q)),@|
-@z
-
-@x [36.735] l.15055 - pTeX: make_under:clean_box
-begin x:=clean_box(nucleus(q),cur_style);
-@y
-begin x:=clean_box(nucleus(q),cur_style,math_kcode(q));
-@z
-
-@x [36.736] l.15069 - pTeX: make_under:clean_box
-if type(v)<>vlist_node then confusion("vcenter");
-@y
-if type(v)=dir_node then
-  begin if type(list_ptr(v))<>vlist_node then confusion("dircenter")
-  end
-else  begin if type(v)<>vlist_node then confusion("vcenter")
-  end;
-@z
-
-@x [36.737] l.15089 - pTeX: make_radical:clean_box
-begin x:=clean_box(nucleus(q),cramped_style(cur_style));
-@y
-begin x:=clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q));
-@z
-
-@x [36.738] l.15123 - pTeX: make_math_accent:clean_box
-  x:=clean_box(nucleus(q),cramped_style(cur_style)); w:=width(x); h:=height(x);
-@y
-  x:=clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q));
-  w:=width(x); h:=height(x);
-@z
-
-@x [36.742] l.15186 - pTeX: make_math_accent:clean_box
-x:=clean_box(nucleus(q),cur_style); delta:=delta+height(x)-h; h:=height(x);
-@y
-x:=clean_box(nucleus(q),cur_style,math_kcode(q));
-delta:=delta+height(x)-h; h:=height(x);
-@z
-
-@x [36.744] l.15211 - pTeX: make_fraction:clean_box
-x:=clean_box(numerator(q),num_style(cur_style));
-z:=clean_box(denominator(q),denom_style(cur_style));
-@y
-x:=clean_box(numerator(q),num_style(cur_style),math_kcode(q));
-z:=clean_box(denominator(q),denom_style(cur_style),math_kcode(q));
-@z
-
-@x [36.749] l.15304 - pTeX: make_op:clean_box
-  delta:=char_italic(cur_f)(cur_i); x:=clean_box(nucleus(q),cur_style);
-@y
-  delta:=char_italic(cur_f)(cur_i);
-  x:=clean_box(nucleus(q),cur_style,math_kcode(q));
-@z
-
-@x [36.750] l.15321 - pTeX: make_op:clean_box
-begin x:=clean_box(supscr(q),sup_style(cur_style));
-y:=clean_box(nucleus(q),cur_style);
-z:=clean_box(subscr(q),sub_style(cur_style));
-@y
-begin x:=clean_box(supscr(q),sup_style(cur_style),math_kcode(q));
-y:=clean_box(nucleus(q),cur_style,math_kcode(q));
-z:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q));
-@z
-
-@x [36.751] l.15342 - pTeX: free box node
-  begin free_node(x,box_node_size); list_ptr(v):=y;
-  end
-@y
-  begin
-    delete_glue_ref(space_ptr(x)); delete_glue_ref(xspace_ptr(x));
-    free_node(x,box_node_size); list_ptr(v):=y;
-  end
-@z
-
-@x [36.751] l.15350 - pTeX: free box node
-if math_type(subscr(q))=empty then free_node(z,box_node_size)
-@y
-if math_type(subscr(q))=empty then begin
-  delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z));
-  free_node(z,box_node_size)
-end
-@z
-
-@x [36.752] l.15369 - pTeX: make_ord
-procedure make_ord(@!q:pointer);
-label restart,exit;
-var a:integer; {address of lig/kern instruction}
-@!p,@!r:pointer; {temporary registers for list manipulation}
-begin restart:@t@>@;@/
-if math_type(subscr(q))=empty then if math_type(supscr(q))=empty then
- if math_type(nucleus(q))=math_char then
-  begin p:=link(q);
-  if p<>null then if (type(p)>=ord_noad)and(type(p)<=punct_noad) then
-    if math_type(nucleus(p))=math_char then
-    if fam(nucleus(p))=fam(nucleus(q)) then
-      begin math_type(nucleus(q)):=math_text_char;
-      fetch(nucleus(q));
-      if char_tag(cur_i)=lig_tag then
-        begin a:=lig_kern_start(cur_f)(cur_i);
-        cur_c:=character(nucleus(p));
-        cur_i:=font_info[a].qqqq;
-        if skip_byte(cur_i)>stop_flag then
-          begin a:=lig_kern_restart(cur_f)(cur_i);
-          cur_i:=font_info[a].qqqq;
-          end;
-        loop@+ begin @<If instruction |cur_i| is a kern with |cur_c|, attach
-            the kern after~|q|; or if it is a ligature with |cur_c|, combine
-            noads |q| and~|p| appropriately; then |return| if the cursor has
-            moved past a noad, or |goto restart|@>;
-          if skip_byte(cur_i)>=stop_flag then return;
-          a:=a+qo(skip_byte(cur_i))+1;
-          cur_i:=font_info[a].qqqq;
-          end;
-        end;
-      end;
-  end;
-exit:end;
-@y
-procedure make_ord(@!q:pointer);
-label restart,exit;
-var a:integer; {address of lig/kern instruction}
-@!gp,@!gq,@!p,@!r:pointer; {temporary registers for list manipulation}
-@!rr:halfword;
-begin restart:@t@>@;@/
-if (math_type(subscr(q))=empty)and(math_type(supscr(q))=empty)and@|
-((math_type(nucleus(q))=math_char)or(math_type(nucleus(q))=math_jchar)) then
-  begin p:=link(q);
-  if p<>null then if (type(p)>=ord_noad)and(type(p)<=punct_noad) then
-   if fam(nucleus(p))=fam(nucleus(q)) then
-    if math_type(nucleus(p))=math_char then
-      begin math_type(nucleus(q)):=math_text_char;
-      fetch(nucleus(q));
-      if char_tag(cur_i)=lig_tag then
-        begin a:=lig_kern_start(cur_f)(cur_i);
-        cur_c:=character(nucleus(p));
-        cur_i:=font_info[a].qqqq;
-        if skip_byte(cur_i)>stop_flag then
-          begin a:=lig_kern_restart(cur_f)(cur_i);
-          cur_i:=font_info[a].qqqq;
-          end;
-        loop@+ begin @<If instruction |cur_i| is a kern with |cur_c|, attach
-            the kern after~|q|; or if it is a ligature with |cur_c|, combine
-            noads |q| and~|p| appropriately; then |return| if the cursor has
-            moved past a noad, or |goto restart|@>;
-          if skip_byte(cur_i)>=stop_flag then return;
-          a:=a+qo(skip_byte(cur_i))+1;
-          cur_i:=font_info[a].qqqq;
-          end;
-        end;
-      end
-    else  if math_type(nucleus(p))=math_jchar then
-      begin math_type(nucleus(q)):=math_text_jchar;
-      fetch(nucleus(p)); a:=cur_c; fetch(nucleus(q));
-      if char_tag(cur_i)=gk_tag then
-        begin cur_c:=a; a:=glue_kern_start(cur_f)(cur_i);
-        {|cur_c|:=qi(|get_jfm_pos|(|math_kcode|(p),
-                   |fam_fnt|(fam(nucleus(p))+|cur_size|)));}
-        repeat
-         cur_i:=font_info[a].qqqq;
-         if next_char(cur_i)=cur_c then
-         if op_byte(cur_i)<kern_flag then
-           begin gp:=font_glue[cur_f]; rr:=rem_byte(cur_i);
-           if gp<>null then begin
-             while((type(gp)<>rr)and(link(gp)<>null)) do begin gp:=link(gp);
-               end;
-             gq:=glue_ptr(gp);
-             end
-           else begin gp:=get_node(small_node_size);
-             font_glue[cur_f]:=gp; gq:=null;
-             end;
-           if gq=null then
-             begin type(gp):=rr; gq:=new_spec(zero_glue); glue_ptr(gp):=gq;
-             a:=exten_base[cur_f]+qi((qo(rr))*3); width(gq):=font_info[a].sc;
-             stretch(gq):=font_info[a+1].sc; shrink(gq):=font_info[a+2].sc;
-             add_glue_ref(gq); link(gp):=get_node(small_node_size);
-             gp:=link(gp); glue_ptr(gp):=null; link(gp):=null;
-             end;
-           p:=new_glue(gq); link(p):=link(q); link(q):=p; return;
-           end
-         else begin p:=new_kern(char_kern(cur_f)(cur_i));
-           link(p):=link(q); link(q):=p; return;
-           end;
-         incr(a);
-        until skip_byte(cur_i)>=stop_flag;
-        end;
-      end;
-  end;
-exit:end;
-@z
-
-@x [36.754] l.15452 - pTeX:
-math_char, math_text_char:
-@y
-math_char, math_text_char, math_jchar, math_text_jchar:
-@z
-
-@x [36.755] l.15475 - pTeX: convert math text to KANJI char_node
-  begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c));
-  if (math_type(nucleus(q))=math_text_char)and(space(cur_f)<>0) then
-    delta:=0; {no italic correction in mid-word of text font}
-  if (math_type(subscr(q))=empty)and(delta<>0) then
-    begin link(p):=new_kern(delta); delta:=0;
-@y
-  begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c));
-  u:=p;
-  if font_dir[cur_f]<>dir_default then begin
-    link(u):=get_avail; u:=link(u); info(u):=math_kcode(q);
-  end;
-  if ((math_type(nucleus(q))=math_text_char)or
-      (math_type(nucleus(q))=math_text_jchar))and(space(cur_f)<>0) then
-    delta:=0; {no italic correction in mid-word of text font}
-  if (math_type(subscr(q))=empty)and(delta<>0) then begin
-    link(u):=new_kern(delta); delta:=0;
-@z
-
-@x [36.756] l.15505 - pTeX: free box
-  shift_down:=depth(z)+sub_drop(t);
-  free_node(z,box_node_size);
-  end;
-@y
-  shift_down:=depth(z)+sub_drop(t);
-  delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z));
-  free_node(z,box_node_size);
-  end;
-@z
-
-@x [36.757] l.15526 - pTeX: make_scripts:clean_box
-begin x:=clean_box(subscr(q),sub_style(cur_style));
-@y
-begin x:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q));
-@z
-
-@x [36.758] l.15538 - pTeX: make_scripts:clean_box
-begin x:=clean_box(supscr(q),sup_style(cur_style));
-@y
-begin x:=clean_box(supscr(q),sup_style(cur_style),math_kcode(q));
-@z
-
-@x [36.758] l.15555 - pTeX: make_scripts:clean_box
-begin y:=clean_box(subscr(q),sub_style(cur_style));
-@y
-begin y:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q));
-@z
-
-@x [36.760] l.15616 - pTeX: disp_node
-othercases confusion("mlist3")
-@y
-disp_node: begin link(p):=q; p:=q; q:=link(q); link(p):=null; goto done;
-  end;
-othercases confusion("mlist3")
-@z
-
-@x [37.796] l.16276 - pTeX: call adjust_hlist
-  begin adjust_tail:=cur_tail; u:=hpack(link(head),natural); w:=width(u);
-@y
-  begin adjust_tail:=cur_tail; adjust_hlist(head,false);
-  delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-  cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head);
-  add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-  u:=hpack(link(head),natural); w:=width(u);
-@z
-
-@x [37.799] l.16331 - pTeX: call adjust_hlist
-  begin p:=hpack(link(head),natural);
-@y
-  begin adjust_hlist(head,false);
-  delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-  cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head);
-  add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-  p:=hpack(link(head),natural);
-@z
-
-@x [37.800] l.16353 - pTeX: call adjust_hlist
-var @!p,@!q,@!r,@!s,@!u,@!v: pointer; {registers for the list operations}
-@y
-var @!p,@!q,@!r,@!s,@!u,@!v,@!z: pointer; {registers for the list operations}
-@z
-
-@x [37.804] l.16456 - pTeX: call adjust_hlist
-  p:=hpack(preamble,saved(1),saved(0)); overfull_rule:=rule_save;
-@y
-  z:=new_null_box; link(z):=preamble;
-  adjust_hlist(z,false);
-  delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-  cur_kanji_skip:=space_ptr(z); cur_xkanji_skip:=xspace_ptr(z);
-  add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-  p:=hpack(preamble,saved(1),saved(0)); overfull_rule:=rule_save;
-  delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z));
-  free_node(z,box_node_size);
-@z
-
-@x [37.807] l.16499 - pTeX: unset box -> BOX
-glue_order(q):=glue_order(p); glue_sign(q):=glue_sign(p);
-glue_set(q):=glue_set(p); shift_amount(q):=o;
-r:=link(list_ptr(q)); s:=link(list_ptr(p));
-@y
-box_dir(q):=abs(direction);
-glue_order(q):=glue_order(p); glue_sign(q):=glue_sign(p);
-glue_set(q):=glue_set(p); shift_amount(q):=o;
-r:=link(list_ptr(q)); s:=link(list_ptr(p));
-@z
-
-@x [37.809] l.16541 - pTeX: unset box -> BOX
-s:=link(s); link(u):=new_null_box; u:=link(u); t:=t+width(s);
-if mode=-vmode then width(u):=width(s)@+else
-  begin type(u):=vlist_node; height(u):=width(s);
-  end
-@y
-s:=link(s); link(u):=new_null_box; u:=link(u); t:=t+width(s);
-if mode=-vmode then width(u):=width(s)@+else
-  begin type(u):=vlist_node; height(u):=width(s);
-  end;
-box_dir(u):=abs(direction)
-@z
-
-@x [37.810] l.16564 - pTeX: unset box -> BOX
-width(r):=w; type(r):=hlist_node;
-end
-@y
-width(r):=w; type(r):=hlist_node;
-box_dir(r):=abs(direction);
-end
-@z
-
-@x [37.811] l.16585 - pTeX: unset box -> BOX
-height(r):=w; type(r):=vlist_node;
-@y
-height(r):=w; type(r):=vlist_node;
-box_dir(r):=abs(direction);
-@z
-
-@x [38.816] l.16687 - pTeX: init chain, delete disp_node
-link(temp_head):=link(head);
-if is_char_node(tail) then tail_append(new_penalty(inf_penalty))
-else if type(tail)<>glue_node then tail_append(new_penalty(inf_penalty))
-@y
-first_use:=true; chain:=false;
-delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head);
-add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-link(temp_head):=link(head);
-if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin free_node(tail,small_node_size); tail:=prev_node; link(tail):=null
-  end;
-if is_char_node(tail) then tail_append(new_penalty(inf_penalty))
-else if type(tail)<>glue_node then tail_append(new_penalty(inf_penalty))
-@z
-
-@x [38.828] l.16946 - pTeX: Global variable |chain|
-@!cur_p:pointer; {the current breakpoint under consideration}
-@y
-@!cur_p:pointer; {the current breakpoint under consideration}
-@!chain:boolean; {chain current line and next line?}
-@z
-
-% chain ¤¬¿¿¤Î¾ì¹ç¡¢¸å¤í¤Ë cur_kanji_skip ¤¬ÁÞÆþ¤µ¤ì¤ë¤Î¤Ç¡¢¤³¤³¤Ç
-% break_width ¤«¤é°ú¤¤¤Æ¤ª¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£
-@x [38.837] l.17125 - pTeX: add kanji_skip width, ita_kern
-begin no_break_yet:=false; do_all_six(set_break_width_to_background);
-s:=cur_p;
-if break_type>unhyphenated then if cur_p<>null then
-  @<Compute the discretionary |break_width| values@>;
-while s<>null do
-  begin if is_char_node(s) then goto done;
-@y
-begin no_break_yet:=false; do_all_six(set_break_width_to_background);
-s:=cur_p;
-if break_type>unhyphenated then if cur_p<>null then
-  @<Compute the discretionary |break_width| values@>;
-while s<>null do
-  begin if is_char_node(s) then
-    begin if chain then
-      begin break_width[1]:=break_width[1]-width(cur_kanji_skip);
-      break_width[2+stretch_order(cur_kanji_skip)]:=
-         break_width[2+stretch_order(cur_kanji_skip)]-stretch(cur_kanji_skip);
-      break_width[6]:=break_width[6]-shrink(cur_kanji_skip);
-      end;
-    goto done end;
-@z
-
-@x [38.837] l.17135 - pTeX:
-  kern_node: if subtype(s)<>explicit then goto done
-    else break_width[1]:=break_width[1]-width(s);
-@y
-  kern_node: if (subtype(s)<>explicit)and(subtype(s)<>ita_kern) then
-    goto done
-    else break_width[1]:=break_width[1]-width(s);
-@z
-
-@x [38.841] l.17186 - pTeX:
-if is_char_node(v) then
-  begin f:=font(v);
-  break_width[1]:=break_width[1]-char_width(f)(char_info(f)(character(v)));
-  end
-else  case type(v) of
-  ligature_node: begin f:=font(lig_char(v));@/
-    break_width[1]:=@|break_width[1]-
-      char_width(f)(char_info(f)(character(lig_char(v))));
-    end;
-  hlist_node,vlist_node,rule_node,kern_node:
-    break_width[1]:=break_width[1]-width(v);
-  othercases confusion("disc1")
-@:this can't happen disc1}{\quad disc1@>
-  endcases
-@y
-if is_char_node(v) then
-  begin f:=font(v);
-  break_width[1]:=break_width[1]-char_width(f)(orig_char_info(f)(character(v)));
-  if font_dir[f]<>dir_default then v:=link(v);
-  end
-else case type(v) of
-  ligature_node: begin f:=font(lig_char(v));@/
-    break_width[1]:=@|break_width[1]-
-      char_width(f)(orig_char_info(f)(character(lig_char(v))));
-    end;
-  hlist_node,vlist_node,dir_node,rule_node,kern_node:
-    break_width[1]:=break_width[1]-width(v);
-  disp_node: do_nothing;
-  othercases confusion("disc1")
-@:this can't happen disc1}{\quad disc1@>
-  endcases
-@z
-
-@x [38.842] l.17204 - pTeX:
-  break_width[1]:=@|break_width[1]+char_width(f)(char_info(f)(character(s)));
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    break_width[1]:=break_width[1]+
-      char_width(f)(char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,rule_node,kern_node:
-    break_width[1]:=break_width[1]+width(s);
-@y
-  break_width[1]:=@|break_width[1]+char_width(f)(orig_char_info(f)(character(s)));
-  if font_dir[f]<>dir_default then s:=link(s);
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    break_width[1]:=break_width[1]+
-      char_width(f)(orig_char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,dir_node,rule_node,kern_node:
-    break_width[1]:=break_width[1]+width(s);
-  disp_node: do_nothing;
-@z
-
-@x [38.856] l.17467 - pTeX: print symbolic feasibe node
-if cur_p=null then print_esc("par")
-else if type(cur_p)<>glue_node then
-  begin if type(cur_p)=penalty_node then print_esc("penalty")
-  else if type(cur_p)=disc_node then print_esc("discretionary")
-@y
-if cur_p=null then print_esc("par")
-else if (type(cur_p)<>glue_node)and(not is_char_node(cur_p)) then
-  begin if type(cur_p)=penalty_node then print_esc("penalty")
-  else if type(cur_p)=disc_node then print_esc("discretionary")
-@z
-
-@x [39.862] l.17584 - pTeX: local valiable for line breaking
-@!auto_breaking:boolean; {is node |cur_p| outside a formula?}
-@!prev_p:pointer; {helps to determine when glue nodes are breakpoints}
-@!q,@!r,@!s,@!prev_s:pointer; {miscellaneous nodes of temporary interest}
-@!f:internal_font_number; {used when calculating character widths}
-@y
-@!auto_breaking:boolean; {is node |cur_p| outside a formula?}
-@!prev_p:pointer; {helps to determine when glue nodes are breakpoints}
-@!q,@!r,@!s,@!prev_s:pointer; {miscellaneous nodes of temporary interest}
-@!f,@!post_f:internal_font_number; {used when calculating character widths}
-@!post_p:pointer;
-@!cc:ASCII_code;
-@!first_use:boolean;
-@z
-
-@x [39.866] l.17677 - pTeX: dir_node, disp_node, ita_kern
-case type(cur_p) of
-hlist_node,vlist_node,rule_node: act_width:=act_width+width(cur_p);
-@y
-case type(cur_p) of
-hlist_node,vlist_node,dir_node,rule_node: act_width:=act_width+width(cur_p);
-@z
-
-@x [39.866] l.17685 - pTeX:
-kern_node: if subtype(cur_p)=explicit then kern_break
-  else act_width:=act_width+width(cur_p);
-@y
-kern_node: if (subtype(cur_p)=explicit)or(subtype(cur_p)=ita_kern) then
-  kern_break
-  else act_width:=act_width+width(cur_p);
-@z
-
-@x [39.866] l.17694 - pTeX:
-mark_node,ins_node,adjust_node: do_nothing;
-@y
-disp_node,mark_node,ins_node,adjust_node: do_nothing;
-@z
-
-% ¤³¤³¤Ç¡¢Ï¢Â³¤¹¤ë´Á»ú¥³¡¼¥É´Ö¤Ë cur_kanji_skip ¤òÁÞÆþ¤¹¤ë¡£
-% penalty_node ¤ä box_node ¤Ë¤Ï¡¢adjust_hlist ¥ë¡¼¥Á¥ó¤Ë¤è¤Ã¤Æ´û¤Ë¼ÂºÝ¤Î
-% glue_node ¤¬ÁÞÆþ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤È²¾Äꤷ¤Æ¤¤¤ë¡£
-% chain ¤Ï¡¢try_break ¤Ç cur_kanji_skip ¤Î¥¢¥¸¥ã¥¹¥È¤Î¤¿¤á¤Ë»È¤ï¤ì¤ë¡£
-@x [39.867] l.17708 - pTeX: add kanji char width
-@<Advance \(c)|cur_p| to the node following the present string...@>=
-begin prev_p:=cur_p;
-repeat f:=font(cur_p);
-act_width:=act_width+char_width(f)(char_info(f)(character(cur_p)));
-cur_p:=link(cur_p);
-until not is_char_node(cur_p);
-end
-@y
-@<Advance \(c)|cur_p| to the node following the present string...@>=
-begin chain:=false;
-if is_char_node(cur_p) then
-  if font_dir[font(cur_p)]<>dir_default then
-    begin case type(prev_p) of
-    hlist_node,vlist_node,dir_node,rule_node,
-    ligature_node,disc_node,math_node: begin
-      cur_p:=prev_p; try_break(0,unhyphenated); cur_p:=link(cur_p);
-      end;
-    othercases do_nothing;
-    endcases;
-    end;
-  prev_p:=cur_p; post_p:=cur_p; post_f:=font(post_p);
-  repeat f:=post_f; cc:=character(cur_p);
-  act_width:=act_width+char_width(f)(orig_char_info(f)(cc));
-  post_p:=link(cur_p);
-  if font_dir[f]<>dir_default then
-    begin prev_p:=cur_p; cur_p:=post_p; post_p:=link(post_p);
-    if is_char_node(post_p) then
-      begin post_f:=font(post_p);
-      if font_dir[post_f]<>dir_default then chain:=true else chain:=false;
-      try_break(0,unhyphenated);
-      end
-    else
-      begin chain:=false;
-      case type(post_p) of
-      hlist_node,vlist_node,dir_node,rule_node,ligature_node,
-        disc_node,math_node: try_break(0,unhyphenated);
-      othercases do_nothing;
-      endcases;
-      end;
-    if chain then
-      begin if first_use then
-        begin check_shrinkage(cur_kanji_skip);
-        first_use:=false;
-        end;
-      act_width:=act_width+width(cur_kanji_skip);@|
-      active_width[2+stretch_order(cur_kanji_skip)]:=@|
-          active_width[2+stretch_order(cur_kanji_skip)]
-          +stretch(cur_kanji_skip);@/
-      active_width[6]:=active_width[6]+shrink(cur_kanji_skip);
-      end;
-    prev_p:=cur_p;
-    end
-  else  if is_char_node(post_p) then
-    begin post_f:=font(post_p); chain:=false;
-    if font_dir[post_f]<>dir_default then try_break(0,unhyphenated);
-    end;
-  cur_p:=post_p;
-  until not is_char_node(cur_p);
-chain:=false;
-end
-@z
-
-@x [39.868] l.17723 - pTeX: ita_kern
-  else if (type(prev_p)=kern_node)and(subtype(prev_p)<>explicit) then
-    try_break(0,unhyphenated);
-@y
-  else if (type(prev_p)=kern_node) then
-    if (subtype(prev_p)<>explicit)and(subtype(prev_p)<>ita_kern) then
-    try_break(0,unhyphenated);
-@z
-
-@x [39.871] l.17756 - pTeX: add kanji char width, dir_node width, disp_node
-  disc_width:=disc_width+char_width(f)(char_info(f)(character(s)));
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    disc_width:=disc_width+
-      char_width(f)(char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,rule_node,kern_node:
-    disc_width:=disc_width+width(s);
-@y
-  disc_width:=disc_width+char_width(f)(orig_char_info(f)(character(s)));
-  if font_dir[f]<>dir_default then s:=link(s)
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    disc_width:=disc_width+
-      char_width(f)(orig_char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,dir_node,rule_node,kern_node:
-    disc_width:=disc_width+width(s);
-  disp_node: do_nothing;
-@z
-
-@x [39.872] l.17772 - pTeX: add kanji char width, dir_node width, disp_node
-  act_width:=act_width+char_width(f)(char_info(f)(character(s)));
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    act_width:=act_width+
-      char_width(f)(char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,rule_node,kern_node:
-    act_width:=act_width+width(s);
-@y
-  act_width:=act_width+char_width(f)(orig_char_info(f)(character(s)));
-  if font_dir[f]<>dir_default then s:=link(s)
-  end
-else  case type(s) of
-  ligature_node: begin f:=font(lig_char(s));
-    act_width:=act_width+
-      char_width(f)(orig_char_info(f)(character(lig_char(s))));
-    end;
-  hlist_node,vlist_node,dir_node,rule_node,kern_node:
-    act_width:=act_width+width(s);
-  disp_node: do_nothing;
-@z
-
-@x [39.877] l.17879 - pTeX: last_disp
-cur_line:=prev_graf+1;
-@y
-cur_line:=prev_graf+1; last_disp:=0;
-@z
-
-@x [39.879] l.17919 - pTeX: ita_kern
-  if type(q)=kern_node then if subtype(q)<>explicit then goto done1;
-@y
-  if type(q)=kern_node then
-    if (subtype(q)<>explicit)and(subtype(q)<>ita_kern) then goto done1;
-@z
-
-@x [39.881] l.17950 - pTeX: |q| may be a |char_node|
-if q<>null then {|q| cannot be a |char_node|}
-  if type(q)=glue_node then
-    begin delete_glue_ref(glue_ptr(q));
-    glue_ptr(q):=right_skip;
-    subtype(q):=right_skip_code+1; add_glue_ref(right_skip);
-    goto done;
-    end
-  else  begin if type(q)=disc_node then
-      @<Change discretionary to compulsory and set
-        |disc_break:=true|@>
-    else if type(q)=kern_node then width(q):=0
-    else if type(q)=math_node then
-      begin width(q):=0;
-      if TeXXeT_en then @<Adjust \(t)the LR stack for the |p...@>;
-      end;
-    end
-@y
-if q<>null then {|q| may be a |char_node|}
-  begin if not is_char_node(q) then
-    if type(q)=glue_node then
-      begin delete_glue_ref(glue_ptr(q));
-      glue_ptr(q):=right_skip;
-      subtype(q):=right_skip_code+1; add_glue_ref(right_skip);
-      goto done;
-      end
-    else  begin if type(q)=disc_node then
-        @<Change discretionary to compulsory and set
-          |disc_break:=true|@>
-      else if type(q)=kern_node then width(q):=0
-      else if type(q)=math_node then
-        begin width(q):=0;
-        if TeXXeT_en then @<Adjust \(t)the LR stack for the |p...@>;
-        end;
-      end
-  end
-@z
-
-@x [39.887] l.18014 - pTeX: disp_node at begin-of-line
-r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r;
-@y
-r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r;
-if last_disp<>0 then begin
-  r:=get_node(small_node_size);
-  type(r):=disp_node; disp_dimen(r):=last_disp;
-  link(r):=q; q:=r;
-  end;
-@z
-
-@x [40.896] l.18177 - pTeX: hyphenation
-loop@+  begin if is_char_node(s) then
-    begin c:=qo(character(s)); hf:=font(s);
-    end
-@y
-loop@+  begin if is_char_node(s) then
-    begin hf:=font(s);
-    if font_dir[hf]<>dir_default then
-      begin prev_s:=s; s:=link(prev_s); c:=info(s); goto continue;
-      end else c:=qo(character(s));
-    end
-  else if type(s)=disp_node then goto continue
-  else if (type(s)=penalty_node)and(not subtype(s)=normal) then goto continue
-@z
-
-@x [40.899] l.18248 - pTeX: disp_node
-    whatsit_node,glue_node,penalty_node,ins_node,adjust_node,mark_node:
-      goto done4;
-@y
-    disp_node: do_nothing;
-    whatsit_node,glue_node,penalty_node,ins_node,adjust_node,mark_node:
-      goto done4;
-@z
-
-@x [44.968] l.19535 - pTeX: dir_node
-  hlist_node,vlist_node,rule_node:@<Insert glue for |split_top_skip|
-    and set~|p:=null|@>;
-@y
-  hlist_node,vlist_node,dir_node,rule_node:
-    @<Insert glue for |split_top_skip| and set~|p:=null|@>;
-@z
-
-@x [44.973] l.19626 - pTeX: dir_node
-hlist_node,vlist_node,rule_node: begin@t@>@;@/
-  cur_height:=cur_height+prev_dp+height(p); prev_dp:=depth(p);
-@y
-hlist_node,vlist_node,dir_node,rule_node: begin@t@>@;@/
-  cur_height:=cur_height+prev_dp+height(p); prev_dp:=depth(p);
-@z
-
-@x [44.977] l.19710 - pTeX: free box node
-var v:pointer; {the box to be split}
-@y
-var v:pointer; {the box to be split}
-w:pointer; {|dir_node|}
-@z
-
-@x [44.977] l.19722 - pTeX: free box node
-q:=prune_page_top(q); p:=list_ptr(v); free_node(v,box_node_size);
-if q=null then box(n):=null {the |eq_level| of the box stays the same}
-else box(n):=vpack(q,natural);
-vsplit:=vpackage(p,h,exactly,split_max_depth);
-@y
-q:=prune_page_top(q,saving_vdiscards>0); p:=list_ptr(v);
-if q<>null then begin
-    q:=vpack(q,natural); box_dir(q):=box_dir(v);
-  end;
-change_box(q);
-q:=vpackage(p,h,exactly,split_max_depth);
-box_dir(q):=box_dir(v);
-delete_glue_ref(space_ptr(v)); delete_glue_ref(xspace_ptr(v));
-free_node(v,box_node_size);
-vsplit:=q;
-@z
-
-@x [44.978] l.19732 - pTeX: bad box for vsplit
-if type(v)<>vlist_node then
-  begin print_err(""); print_esc("vsplit"); print(" needs a ");
-  print_esc("vbox");
-@:vsplit_}{\.{\\vsplit needs a \\vbox}@>
-  help2("The box you are trying to split is an \hbox.")@/
-  ("I can't split such a box, so I'll leave it alone.");
-  error; vsplit:=null; return;
-  end
-@y
-if type(v)=dir_node then begin
-  w:=v; v:=list_ptr(v);
-  delete_glue_ref(space_ptr(w));
-  delete_glue_ref(xspace_ptr(w));
-  free_node(w,box_node_size);
-end;
-if type(v)<>vlist_node then begin
-  print_err(""); print_esc("vsplit"); print(" needs a ");
-  print_esc("vbox");
-@:vsplit_}{\.{\\vsplit needs a \\vbox}@>
-  help2("The box you are trying to split is an \hbox.")@/
-  ("I can't split such a box, so I'll leave it alone.");
-  error; vsplit:=null; return;
-end;
-flush_node_list(link(v)); link(v):=null
-@z
-
-@x [45.993] l.20053 - pTeX: ensure_vbox
-begin p:=box(n);
-if p<>null then if type(p)=hlist_node then
-  begin print_err("Insertions can only be added to a vbox");
-@y
-begin p:=box(n);
-if p<>null then if (type(p)=dir_node) then
-  begin p:=list_ptr(p);
-  delete_glue_ref(space_ptr(box(n)));
-  delete_glue_ref(xspace_ptr(box(n)));
-  free_node(box(n),box_node_size);
-  box(n):=p
-end;
-if p<>null then if type(p)<>vlist_node then begin
-  print_err("Insertions can only be added to a vbox");
-@z
-
-@x [45.1000] l.20146 - pTeX: dir_node
-hlist_node,vlist_node,rule_node: if page_contents<box_there then
-    @<Initialize the current page, insert the \.{\\topskip} glue
-      ahead of |p|, and |goto continue|@>
-@y
-hlist_node,vlist_node,dir_node,rule_node: if page_contents<box_there then
-    @<Initialize the current page, insert the \.{\\topskip} glue
-      ahead of |p|, and |goto continue|@>
-@z
-
-@x [45.1009] l.20291 - pTeX: ins_dir
-if box(n)=null then height(r):=0
-else height(r):=height(box(n))+depth(box(n));
-@y
-if box(n)=null then height(r):=0
-else
-  begin if ins_dir(p)<>box_dir(box(n)) then
-    begin print_err("Insertions can only be added to a same direction vbox");
-@.Insertions can only...@>
-    help3("Tut tut: You're trying to \insert into a")@/
-      ("\box register that now have a different direction.")@/
-      ("Proceed, and I'll discard its present contents.");
-    box_error(n)
-    end
-  else
-    height(r):=height(box(n))+depth(box(n));
-  end;
-@z
-
-@x [45.1017] l.20470 - pTeX: page dir
-box(255):=vpackage(link(page_head),best_size,exactly,page_max_depth);
-@y
-box(255):=vpackage(link(page_head),best_size,exactly,page_max_depth);
-box_dir(box(255)):=page_dir;
-@z
-
-@x [45.1020] l.20513 - pTeX: check ins_dir
-if best_ins_ptr(r)=null then wait:=true
-else  begin wait:=false; s:=last_ins_ptr(r); link(s):=ins_ptr(p);
-@y
-if best_ins_ptr(r)=null then wait:=true
-else  begin wait:=false;
-  n:=qo(subtype(p));
-  case box_dir(box(n)) of
-    any_dir:
-      if ins_dir(p)<>box_dir(box(n)) then begin
-        print_err("Insertions can only be added to a same direction vbox");
-@.Insertions can only...@>
-        help3("Tut tut: You're trying to \insert into a")@/
-          ("\box register that now have a different direction.")@/
-          ("Proceed, and I'll discard its present contents.");
-        box_error(n);
-        box(n):=new_null_box; last_ins_ptr(r):=box(n)+list_offset;
-      end;
-    othercases
-      box_dir(box(n)):=ins_dir(p);
-  endcases;
-  s:=last_ins_ptr(r); link(s):=ins_ptr(p);
-@z
-
-@x [45.1021] l.20537 - pTeX: free box node, ins_dir
-      free_node(temp_ptr,box_node_size); wait:=true;
-@y
-      delete_glue_ref(space_ptr(temp_ptr));
-      delete_glue_ref(xspace_ptr(temp_ptr));
-      free_node(temp_ptr,box_node_size); wait:=true;
-@z
-
-@x [45.1021] l.20543 - pTeX: free box node, ins_dir
-free_node(box(n),box_node_size);
-box(n):=vpack(temp_ptr,natural);
-@y
-delete_glue_ref(space_ptr(box(n)));
-delete_glue_ref(xspace_ptr(box(n)));
-flush_node_list(link(box(n)));
-free_node(box(n),box_node_size);
-box(n):=vpack(temp_ptr,natural); box_dir(box(n)):=ins_dir(p);
-@z
-
-@x [46.1030] l.20687 -  pTeX:main_control
-@d append_normal_space=120 {go here to append a normal space between words}
-@y
-@d append_normal_space=120 {go here to append a normal space between words}
-@d main_loop_j=130 {like |main_loop|, but |cur_chr| holds a KANJI code}
-@d skip_loop=141
-@d again_2=150
-@z
-
-@x [46.1030] l.20691 - pTeX: main_control
-procedure main_control; {governs \TeX's activities}
-label big_switch,reswitch,main_loop,main_loop_wrapup,
-@y
-procedure main_control; {governs \TeX's activities}
-label big_switch,reswitch,main_loop,main_loop_wrapup,
-  main_loop_j,main_loop_j+1,main_loop_j+3,skip_loop,again_2,
-@z
-
-@x [46.1030] l.20697 - pTeX: main_control
-var@!t:integer; {general-purpose temporary variable}
-@y
-var@!t:integer; {general-purpose temporary variable}
-@!cx:KANJI_code; {kanji character}
-@!kp:pointer; {kinsoku penalty register}
-@!gp,gq:pointer; {temporary registers for list manipulation}
-@!disp:scaled; {displacement register}
-@!ins_kp:boolean; {whether insert kinsoku penalty}
-@z
-
-@x [46.1030] l.20701 - pTeX: main_control
-case abs(mode)+cur_cmd of
-hmode+letter,hmode+other_char,hmode+char_given: goto main_loop;
-hmode+char_num: begin scan_char_num; cur_chr:=cur_val; goto main_loop;@+end;
-hmode+no_boundary: begin get_x_token;
-  if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or
-   (cur_cmd=char_num) then cancel_boundary:=true;
-  goto reswitch;
-  end;
-@y
-ins_kp:=false;
-case abs(mode)+cur_cmd of
-hmode+letter,hmode+other_char: goto main_loop;
-hmode+kanji,hmode+kana,hmode+other_kchar: goto main_loop_j;
-hmode+char_given:
-  if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j;
-hmode+char_num: begin scan_char_num; cur_chr:=cur_val;
-  if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j;
-  end;
-hmode+no_boundary: begin get_x_token;
-  if (cur_cmd=letter)or(cur_cmd=other_char)or
-   (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar)or
-   (cur_cmd=char_given)or(cur_cmd=char_num) then cancel_boundary:=true;
-  goto reswitch;
-  end;
-@z
-
-@x [46.1030] l.20715 - pTeX: main_control
-main_loop:@<Append character |cur_chr| and the following characters (if~any)
-  to the current hlist in the current font; |goto reswitch| when
-  a non-character has been fetched@>;
-@y
-main_loop_j:@<Append KANJI-character |cur_chr|
-  to the current hlist in the current font; |goto reswitch| when
-  a non-character has been fetched@>;
-main_loop:@<Append character |cur_chr| and the following characters (if~any)
-  to the current hlist in the current font; |goto reswitch| when
-  a non-character has been fetched@>;
-@z
-
-@x [46.1034] l.20788 - pTeX: disp_node
-@<Append character |cur_chr|...@>=
-if ((head=tail) and (mode>0)) then begin
-  if (insert_src_special_auto) then append_src_special;
-end;
-adjust_space_factor;@/
-@y
-@<Append character |cur_chr|...@>=
-if ((head=tail) and (mode>0)) then begin
-  if (insert_src_special_auto) then append_src_special;
-end;
-adjust_space_factor;@/
-if direction=dir_tate then disp:=t_baseline_shift else disp:=y_baseline_shift;
-@<Append |disp_node| at begin of displace area@>;
-@z
-
-%@x [46.1035] l.20850 - pTeX: kinsoku penalty
-%@<Make a ligature node, if |ligature_present|;...@>=
-%wrapup(rt_hit)
-%@y
-%@<Make a ligature node, if |ligature_present|;...@>=
-%wrapup(rt_hit);
-%if ins_kp=true then
-%  begin cx:=KANJI(cur_l); @<Insert kinsoku penalty@>;
-%  ins_kp:=false;
-%  end
-%@z
-
-@x [46.1036] l.20854 - pTeX: disp_node
-if lig_stack=null then goto reswitch;
-@y
-if lig_stack=null then
-  begin @<Append |disp_node| at end of displace area@>;
-  goto reswitch;
-  end;
-@z
-
-@x [46.1037] l.20886 - pTeX: Look ahead for another character
-@<Look ahead for another character...@>=
-get_next; {set only |cur_cmd| and |cur_chr|, for speed}
-if cur_cmd=letter then goto main_loop_lookahead+1;
-if cur_cmd=other_char then goto main_loop_lookahead+1;
-if cur_cmd=char_given then goto main_loop_lookahead+1;
-x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|}
-if cur_cmd=letter then goto main_loop_lookahead+1;
-if cur_cmd=other_char then goto main_loop_lookahead+1;
-if cur_cmd=char_given then goto main_loop_lookahead+1;
-if cur_cmd=char_num then
-  begin scan_char_num; cur_chr:=cur_val; goto main_loop_lookahead+1;
-  end;
-if cur_cmd=no_boundary then bchar:=non_char;
-cur_r:=bchar; lig_stack:=null; goto main_lig_loop;
-main_loop_lookahead+1: adjust_space_factor;
-fast_get_avail(lig_stack); font(lig_stack):=main_f;
-cur_r:=qi(cur_chr); character(lig_stack):=cur_r;
-if cur_r=false_bchar then cur_r:=non_char {this prevents spurious ligatures}
-@y
-@<Look ahead for another character...@>=
-get_next; {set only |cur_cmd| and |cur_chr|, for speed}
-if cur_cmd=letter then goto main_loop_lookahead+1;
-if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-  @<goto |main_lig_loop|@>;
-if cur_cmd=other_char then goto main_loop_lookahead+1;
-if cur_cmd=char_given then
-  begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1
-  else @<goto |main_lig_loop|@>;
-  end;
-x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|}
-if cur_cmd=letter then goto main_loop_lookahead+1;
-if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-  @<goto |main_lig_loop|@>;
-if cur_cmd=other_char then goto main_loop_lookahead+1;
-if cur_cmd=char_given then
-  begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1
-  else @<goto |main_lig_loop|@>;
-  end;
-if cur_cmd=char_num then
-  begin scan_char_num; cur_chr:=cur_val;
-  if is_char_ascii(cur_chr) then goto main_loop_lookahead+1
-  else @<goto |main_lig_loop|@>;
-  end;
-if cur_cmd=inhibit_glue then
-  begin inhibit_glue_flag:=true; goto main_loop_lookahead;
-  end;
-if cur_cmd=no_boundary then bchar:=non_char;
-cur_r:=bchar; lig_stack:=null; goto main_lig_loop;
-main_loop_lookahead+1: adjust_space_factor;
-fast_get_avail(lig_stack); font(lig_stack):=main_f;
-cur_r:=qi(cur_chr); character(lig_stack):=cur_r;
-if cur_r=false_bchar then cur_r:=non_char {this prevents spurious ligatures}
-
-@ @<goto |main_lig_loop|@>=
-begin bchar:=non_char; cur_r:=bchar; lig_stack:=null;
-if ligature_present then pack_lig(rt_hit);
-if ins_kp=true then
-  begin cx:=cur_l; @<Insert kinsoku penalty@>;
-  end;
-ins_kp:=false;
-goto main_loop_j;
-end
-@z
-
-@x [46.1041] l.20999 - pTeX: disp_node
-link(tail):=temp_ptr; tail:=temp_ptr;
-@y
-if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin link(prev_node):=temp_ptr; link(temp_ptr):=tail; prev_node:=temp_ptr;
-  end
-else begin link(tail):=temp_ptr; tail:=temp_ptr;
-  end;
-@z
-
-@x [46.1043] l.21029 - pTeX: disp_node
-link(tail):=q; tail:=q;
-@y
-if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin link(prev_node):=q; link(q):=tail; prev_node:=q;
-  end
-else begin link(tail):=q; tail:=q;
-  end
-@z
-
-@x [47.1061] l.21277 - pTeX: append kern
-begin s:=cur_chr; scan_dimen(s=mu_glue,false,false);
-tail_append(new_kern(cur_val)); subtype(tail):=s;
-end;
-@y
-begin s:=cur_chr; scan_dimen(s=mu_glue,false,false);
-if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin prev_append(new_kern(cur_val)); subtype(prev_node):=s;
-  end
-else
-  begin tail_append(new_kern(cur_val)); subtype(tail):=s;
-  end;
-end;
-@z
-
-@x [47.1068] l.21377 - pTeX:
-var p,@!q:pointer; {for short-term use}
-@y
-var p,@!q:pointer; {for short-term use}
-@!r:pointer; {temporaly}
-@z
-
-@x [47.1071] l.21485 - pTeX: \tate, \yoko, \dtou
-primitive("hbox",make_box,vtop_code+hmode);@/
-@!@:hbox_}{\.{\\hbox} primitive@>
-@y
-primitive("hbox",make_box,vtop_code+hmode);@/
-@!@:hbox_}{\.{\\hbox} primitive@>
-primitive("tate",chg_dir,dir_tate);@/
-@!@:tate_}{\.{\\tate} primitive@>
-primitive("yoko",chg_dir,dir_yoko);@/
-@!@:yoko_}{\.{\\yoko} primitive@>
-primitive("dtou",chg_dir,dir_dtou);@/
-@!@:dtou_}{\.{\\dtou} primitive@>
-@z
-
-@x [47.1072] l.21506 - pTeX: \tate, \yoko, \dtou
-  othercases print_esc("hbox")
-  endcases;
-leader_ship: if chr_code=a_leaders then print_esc("leaders")
-@y
-  othercases print_esc("hbox")
-  endcases;
-chg_dir:
-  case chr_code of
-    dir_yoko: print_esc("yoko");
-    dir_tate: print_esc("tate");
-    dir_dtou: print_esc("dtou");
-  endcases;
-leader_ship: if chr_code=a_leaders then print_esc("leaders")
-@z
-
-@x [47.1073] l.21523 - pTeX: \tate, \yoko
-any_mode(make_box): begin_box(0);
-@y
-any_mode(make_box): begin_box(0);
-any_mode(chg_dir):
-  begin  if cur_group<>align_group then
-    if head=tail then
-      begin direction:=cur_chr;
-      if mode=vmode then page_dir:=cur_chr;
-      end
-    else begin print_err("Use `"); print_cmd_chr(cur_cmd,cur_chr);
-      print("' at top of list");
-      help2("Direction change command is available only while")
-      ("current list is null."); error;
-      end
-  else begin print_err("You can't use `"); print_cmd_chr(cur_cmd,cur_chr);
-    print("' in an align");
-    help2("To change direction in an align,")
-    ("you shold use \hbox or \vbox with \tate or \yoko."); error;
-    end
-  end;
-@z
-
-@x [47.1075] l.21538 - pTeX: box_end
-var p:pointer; {|ord_noad| for new box in math mode}
-@y
-var p:pointer; {|ord_noad| for new box in math mode}
-q:pointer;
-@z
-
-@x [47.1076] l.21553 - pTeX: box_dir adjust
-begin if cur_box<>null then
-  begin shift_amount(cur_box):=box_context;
-  if abs(mode)=vmode then
-    begin append_to_vlist(cur_box);
-    if adjust_tail<>null then
-      begin if adjust_head<>adjust_tail then
-        begin link(tail):=link(adjust_head); tail:=adjust_tail;
-        end;
-      adjust_tail:=null;
-      end;
-    if mode>0 then build_page;
-    end
-  else  begin if abs(mode)=hmode then space_factor:=1000
-    else  begin p:=new_noad;
-      math_type(nucleus(p)):=sub_box;
-      info(nucleus(p)):=cur_box; cur_box:=p;
-      end;
-    link(tail):=cur_box; tail:=cur_box;
-    end;
-  end;
-end
-@y
-begin if cur_box<>null then
-  begin p:=link(cur_box); link(cur_box):=null;
-  while p<>null do begin
-    q:=p; p:=link(p);
-    if box_dir(q)=abs(direction) then
-      begin list_ptr(q):=cur_box; cur_box:=q; link(cur_box):=null;
-      end
-    else begin
-      delete_glue_ref(space_ptr(q));
-      delete_glue_ref(xspace_ptr(q));
-      free_node(q,box_node_size);
-      end;
-  end;
-  if box_dir(cur_box)<>abs(direction) then
-    cur_box:=new_dir_node(cur_box,abs(direction));
-  shift_amount(cur_box):=box_context;
-  if abs(mode)=vmode then
-    begin append_to_vlist(cur_box);
-    if adjust_tail<>null then
-      begin if adjust_head<>adjust_tail then
-        begin link(tail):=link(adjust_head); tail:=adjust_tail;
-        end;
-      adjust_tail:=null;
-      end;
-    if mode>0 then build_page;
-    end
-  else begin
-    if abs(mode)=hmode then
-      space_factor:=1000
-    else  begin p:=new_noad;
-      math_type(nucleus(p)):=sub_box;
-      info(nucleus(p)):=cur_box; cur_box:=p;
-      end;
-    link(tail):=cur_box; tail:=cur_box;
-  end;
-end;
-end
-@z
-
-@x [47.1078] l.21585 - pTeX: box_dir adjust
-  begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders);
-  leader_ptr(tail):=cur_box;
-  end
-@y
-  begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders);
-  if type(cur_box)<=dir_node then
-    begin p:=link(cur_box); link(cur_box):=null;
-    while p<>null do
-      begin q:=p; p:=link(p);
-      if box_dir(q)=abs(direction) then
-        begin list_ptr(q):=cur_box; cur_box:=q; link(cur_box):=null;
-        end
-      else begin
-        delete_glue_ref(space_ptr(q));
-        delete_glue_ref(xspace_ptr(q));
-        free_node(q,box_node_size);
-        end;
-      end;
-    if box_dir(cur_box)<>abs(direction) then
-      cur_box:=new_dir_node(cur_box,abs(direction));
-    end;
-  leader_ptr(tail):=cur_box;
-  end
-@z
-
-@x [47.1079] l.21605  - pTeX: disp_node, adjust direction
-var @!p,@!q:pointer; {run through the current list}
-@!m:quarterword; {the length of a replacement list}
-@!k:halfword; {0 or |vmode| or |hmode|}
-@!n:halfword; {a box number}
-@y
-var @!p,@!q:pointer; {run through the current list}
-@!m:quarterword; {the length of a replacement list}
-@!k:halfword; {0 or |vmode| or |hmode|}
-@!n:halfword; {a box number}
-@!a_dir:eight_bits; {adjust direction}
-@!d:pointer; {last |disp_node|}
-@!disp,@!pdisp:scaled; {displacement}
-@!pp,pnode:pointer;
-@!f:boolean; {will |d| free?}
-@z
-
-@x [47.1080] l.21636 - pTeX: disp_node, check head=tail
-else  begin if not is_char_node(tail) then
-    if (type(tail)=hlist_node)or(type(tail)=vlist_node) then
-      @<Remove the last box, unless it's part of a discretionary@>;
-  end;
-@y
-else  begin f:=false;
-  if (not is_char_node(tail))and(type(tail)=disp_node) then
-    begin d:=tail; tail:=prev_node;
-    end
-  else d:=null;
-  if (not is_char_node(tail))and(head<>tail) then
-    if (type(tail)=hlist_node)or(type(tail)=vlist_node)
-          or(type(tail)=dir_node) then
-      @<Remove the last box, unless it's part of a discretionary@>;
-  if d<>null then
-    if (not is_char_node(tail))and(type(tail)=disp_node) then
-      begin prev_node:=pnode; prev_disp:=pdisp;
-      {|if prev_disp=disp_dimen(d) then free_node(tail,small_node_size)|}
-      if prev_disp<>disp_dimen(d) then disp_dimen(tail):=disp_dimen(d);
-      if f then free_node(d,small_node_size)
-      else begin prev_node:=tail; tail_append(d); end;
-      end
-    else tail_append(d);
-  end;
-@z
-
-@x [47.1081] l.21642 - pTeX: disp_node
-@ @<Remove the last box...@>=
-begin q:=head;
-repeat p:=q;
-if not is_char_node(q) then if type(q)=disc_node then
-  begin for m:=1 to replace_count(q) do p:=link(p);
-  if p=tail then goto done;
-  end;
-q:=link(p);
-until q=tail;
-cur_box:=tail; shift_amount(cur_box):=0;
-tail:=p; link(p):=null;
-done:end
-@y
-@ @<Remove the last box...@>=
-begin q:=head; disp:=0; pdisp:=0;
-repeat p:=q;
-if not is_char_node(q) then
-  if type(q)=disc_node then
-    begin for m:=1 to replace_count(q) do p:=link(p);
-    if p=tail then goto done;
-    end
-  else if type(q)=disp_node then
-    begin pnode:=pp; pdisp:=disp; disp:=disp_dimen(q);
-    end;
-pp:=q; q:=link(p);
-until q=tail;
-cur_box:=tail; shift_amount(cur_box):=0;
-tail:=p; link(p):=null;
-if type(cur_box)=dir_node then
-  begin link(list_ptr(cur_box)):=cur_box;
-  cur_box:=list_ptr(cur_box);
-  list_ptr(link(cur_box)):=null;
-  end
-else
-  if box_dir(cur_box)=dir_default then box_dir(cur_box):=abs(direction);
-done:end
-@z
-
-@x [47.1083] l.21675 - pTeX: adjust_dir
-if k=hmode then
-  if (box_context<box_flag)and(abs(mode)=vmode) then
-    scan_spec(adjusted_hbox_group,true)
-  else scan_spec(hbox_group,true)
-else  begin if k=vmode then scan_spec(vbox_group,true)
-  else  begin scan_spec(vtop_group,true); k:=vmode;
-    end;
-  normal_paragraph;
-  end;
-push_nest; mode:=-k;
-@y
-a_dir:=adjust_dir;
-if k=hmode then
-  if (box_context<box_flag)and(abs(mode)=vmode) then
-    begin a_dir:=abs(direction); scan_spec(adjusted_hbox_group,true);
-    end
-  else scan_spec(hbox_group,true)
-else  begin if k=vmode then scan_spec(vbox_group,true)
-  else  begin scan_spec(vtop_group,true); k:=vmode;
-    end;
-  normal_paragraph;
-  end;
-push_nest; mode:=-k; adjust_dir:=a_dir;
-@z
-
-@x [47.1085] l.21717 - pTeX: end of box, call adjust_hlist
-hbox_group: package(0);
-adjusted_hbox_group: begin adjust_tail:=adjust_head; package(0);
-  end;
-@y
-hbox_group: begin adjust_hlist(head,false); package(0);
-  end;
-adjusted_hbox_group: begin adjust_hlist(head,false);
-  adjust_tail:=adjust_head; package(0);
-  end;
-@z
-
-@x [47.1086] l.21730 - pTeX: set cur_kanji_skip, cur_xkanji_skip
-begin d:=box_max_depth; unsave; save_ptr:=save_ptr-3;
-if mode=-hmode then cur_box:=hpack(link(head),saved(2),saved(1))
-else  begin cur_box:=vpackage(link(head),saved(2),saved(1),d);
-  if c=vtop_code then @<Readjust the height and depth of |cur_box|,
-    for \.{\\vtop}@>;
-  end;
-pop_nest; box_end(saved(0));
-end;
-@y
-begin d:=box_max_depth;
-  delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-  if auto_spacing>0 then cur_kanji_skip:=kanji_skip
-  else cur_kanji_skip:=zero_glue;
-  if auto_xspacing>0 then cur_xkanji_skip:=xkanji_skip
-  else cur_xkanji_skip:=zero_glue;
-  add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-  unsave; save_ptr:=save_ptr-3;
-  if mode=-hmode then begin
-    cur_box:=hpack(link(head),saved(2),saved(1));
-    box_dir(cur_box):=abs(direction); pop_nest;
-  end else begin
-    cur_box:=vpackage(link(head),saved(2),saved(1),d);
-    box_dir(cur_box):=abs(direction); pop_nest;
-    if c=vtop_code then
-      @<Readjust the height and depth of |cur_box|, for \.{\\vtop}@>;
-  end;
-  box_end(saved(0));
-end;
-@z
-
-@x [47.1090] l.21765 - pTeX: apend vmode case
-vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given,
-   vmode+math_shift,vmode+un_hbox,vmode+vrule,
-   vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign,
-   vmode+ex_space,vmode+no_boundary:@t@>@;@/
-  begin back_input; new_graf(true);
-  end;
-@y
-vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given,
-   vmode+math_shift,vmode+un_hbox,vmode+vrule,
-   vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign,
-   vmode+kanji,vmode+kana,vmode+other_kchar,
-   vmode+ex_space,vmode+no_boundary:@t@>@;@/
-  begin back_input; new_graf(true);
-  end;
-@z
-
-@x [47.1091] l.21782 - pTeX: new_graf, adjust direction
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-@y
-push_nest; adjust_dir:=abs(direction);
-mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-@z
-
-@x [47.1096] l.21842 - pTeX: end_graf, call adjust_hlist
-  begin if head=tail then pop_nest {null paragraphs are ignored}
-  else line_break(widow_penalty);
-@y
-  begin if head=tail then pop_nest {null paragraphs are ignored}
-  else begin adjust_hlist(head,true); line_break(widow_penalty)
-       end;
-@z
-
-@x [47.1099] l.21871 - pTeX: insert and adjust
-new_save_level(insert_group); scan_left_brace; normal_paragraph;
-push_nest; mode:=-vmode; prev_depth:=ignore_depth;
-@y
-new_save_level(insert_group); scan_left_brace; normal_paragraph;
-push_nest; mode:=-vmode; direction:=adjust_dir; prev_depth:=ignore_depth;
-@z
-
-@x [47.1100] l.21876 - pTeX: free box node, ins_dir
-insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q);
-  d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr);
-  {now |saved(0)| is the insertion number, or 255 for |vadjust|}
-  p:=vpack(link(head),natural); pop_nest;
-  if saved(0)<255 then
-    begin tail_append(get_node(ins_node_size));
-    type(tail):=ins_node; subtype(tail):=qi(saved(0));
-    height(tail):=height(p)+depth(p); ins_ptr(tail):=list_ptr(p);
-    split_top_ptr(tail):=q; depth(tail):=d; float_cost(tail):=f;
-    end
-  else  begin tail_append(get_node(small_node_size));
-    type(tail):=adjust_node;@/
-    subtype(tail):=0; {the |subtype| is not used}
-    adjust_ptr(tail):=list_ptr(p); delete_glue_ref(q);
-    end;
-  free_node(p,box_node_size);
-  if nest_ptr=0 then build_page;
-  end;
-@y
-insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q);
-  d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr);
-  {now |saved(0)| is the insertion number, or 255 for |vadjust|}
-  p:=vpack(link(head),natural); box_dir(p):=abs(direction); pop_nest;
-  if saved(0)<255 then
-    begin r:=get_node(ins_node_size);
-    type(r):=ins_node; subtype(r):=qi(saved(0));
-    height(r):=height(p)+depth(p); ins_ptr(r):=list_ptr(p);
-    split_top_ptr(r):=q; depth(r):=d; float_cost(r):=f;
-    ins_dir(r):=box_dir(p);
-    if (not is_char_node(tail))and(type(tail)=disp_node) then
-      prev_append(r)
-    else tail_append(r);
-    end
-  else  begin
-    if box_dir(p)<>adjust_dir then
-      begin print_err("Direction Incompatible.");
-      help1("\vadjust's argument and outer vlist must have same direction.");
-      error; flush_node_list(list_ptr(p));
-      end
-    else  begin
-      r:=get_node(small_node_size); type(r):=adjust_node;@/
-      adjust_ptr(r):=list_ptr(p); delete_glue_ref(q);
-      if (not is_char_node(tail))and(type(tail)=disp_node) then
-        prev_append(r)
-      else tail_append(r);
-      end;
-    end;
-  delete_glue_ref(space_ptr(p));
-  delete_glue_ref(xspace_ptr(p));
-  free_node(p,box_node_size);
-  if nest_ptr=0 then build_page;
-  end;
-@z
-
-@x [47.1101] l.21901 - pTeX: mark_node, prev_append
-mark_ptr(p):=def_ref; link(tail):=p; tail:=p;
-@y
-mark_ptr(p):=def_ref;
-if (not is_char_node(tail))and(type(tail)=disp_node) then
-  prev_append(p)
-else tail_append(p);
-@z
-
-@x [47.1103] l.21911 - pTeX: penalty, prev_append
-procedure append_penalty;
-begin scan_int; tail_append(new_penalty(cur_val));
-if mode=vmode then build_page;
-end;
-@y
-procedure append_penalty;
-begin scan_int;
-  if (not is_char_node(tail))and(type(tail)=disp_node) then
-    prev_append(new_penalty(cur_val))
-  else tail_append(new_penalty(cur_val));
-  if mode=vmode then build_page;
-end;
-@z
-
-@x [47.1105] l.21932 - pTeX: delete_last: disp_node
-var @!p,@!q:pointer; {run through the current list}
-@!m:quarterword; {the length of a replacement list}
-@y
-var @!p,@!q:pointer; {run through the current list}
-@!m:quarterword; {the length of a replacement list}
-@!d:pointer; {last |disp_node|}
-@!disp,@!pdisp:scaled; {displacement}
-@!pp,pnode:pointer;
-@!f:boolean;  {whether remove disp node d }
-@z
-
-@x [47.1105] l.21937 - pTeX: delete_last: disp_node
-else  begin if not is_char_node(tail) then if type(tail)=cur_chr then
-    begin q:=head;
-    repeat p:=q;
-    if not is_char_node(q) then if type(q)=disc_node then
-      begin for m:=1 to replace_count(q) do p:=link(p);
-      if p=tail then return;
-      end;
-    q:=link(p);
-    until q=tail;
-    link(p):=null; flush_node_list(tail); tail:=p;
-    end;
-  end;
-exit:end;
-@y
-else  begin
-  if (not is_char_node(tail))and(type(tail)=disp_node) then
-    begin f:=true; d:=tail; tail:=prev_node; link(tail):=null;
-    end
-  else d:=null;
-  if not is_char_node(tail) then
-  begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then
-    remove_end_M;
-  if type(tail)=cur_chr then
-    begin q:=head; pp:=null; disp:=0; pdisp:=0;
-    repeat p:=q;
-    if not is_char_node(q) then
-      if type(q)=disc_node then
-        begin for m:=1 to replace_count(q) do p:=link(p);
-        if p=tail then
-          begin if d<>null then tail_append(d);
-          return;
-          end
-        else if link(p)=tail then f:=false;
-        end
-      else  if type(q)=disp_node then
-        begin pnode:=pp; pdisp:=disp; disp:=disp_dimen(q);
-        end;
-    pp:=q; q:=link(p);
-    until q=tail;
-    link(p):=null; flush_node_list(tail); tail:=p;
-    end
-  else { |tail| will not be deleted }
-    begin if d<>null then tail_append(d); return; end;
-    prev_node:=pnode; prev_disp:=pdisp;
-    if d<>null then
-      if (not is_char_node(tail))and(type(tail)=disp_node) then
-        begin if prev_disp=disp_dimen(d) then
-          {|free_node(tail,small_node_size)|}
-          else disp_dimen(tail):=disp_dimen(d);
-        if f then free_node(d,small_node_size) 
-          else begin prev_node:=tail; prev_disp:=disp; tail_append(d) end
-        end
-      else
-        begin prev_node:=tail; prev_disp:=disp; tail_append(d)
-        end;
-  if LR_temp<>null then insert_end_M;
-  end;
-  end;
-exit:end;
-@z
-
-@x [47.1110] l.21997 -pTeX:  free box node, delete kanji_skip
-var p:pointer; {the box}
-@!c:box_code..copy_code; {should we copy?}
-@y
-var p:pointer; {the box}
-@!c:box_code..copy_code; {should we copy?}
-@!disp:scaled; {displacement}
-@z
-
-@x [47.1110] l.22001 - pTeX: free box node, delete kanji_skip
-if (abs(mode)=mmode)or((abs(mode)=vmode)and(type(p)<>vlist_node))or@|
-   ((abs(mode)=hmode)and(type(p)<>hlist_node)) then
-  begin print_err("Incompatible list can't be unboxed");
-@.Incompatible list...@>
-  help3("Sorry, Pandora. (You sneaky devil.)")@/
-  ("I refuse to unbox an \hbox in vertical mode or vice versa.")@/
-  ("And I can't open any boxes in math mode.");@/
-  error; return;
-  end;
-if c=copy_code then link(tail):=copy_node_list(list_ptr(p))
-else  begin link(tail):=list_ptr(p); box(cur_val):=null;
-  free_node(p,box_node_size);
-  end;
-done:
-while link(tail)<>null do tail:=link(tail);
-exit:end;
-@y
-if type(p)=dir_node then p:=list_ptr(p);
-if (abs(mode)=mmode)or((abs(mode)=vmode)and(type(p)<>vlist_node))or@|
-    ((abs(mode)=hmode)and(type(p)<>hlist_node)) then
-  begin print_err("Incompatible list can't be unboxed");
-@.Incompatible list...@>
-  help3("Sorry, Pandora. (You sneaky devil.)")@/
-  ("I refuse to unbox an \hbox in vertical mode or vice versa.")@/
-  ("And I can't open any boxes in math mode.");@/
-  error; return;
-end;
-case box_dir(p) of
-  any_dir:
-    if abs(direction)<>box_dir(p) then begin
-      print_err("Incompatible direction list can't be unboxed");
-      help2("Sorry, Pandora. (You sneaky devil.)")@/
-      ("I refuse to unbox a box in differrent direction.");@/
-      error; return;
-    end;
-endcases;
-disp:=0;
-if c=copy_code then link(tail):=copy_node_list(list_ptr(p))
-else
-  begin if type(p)=dir_node then
-    begin delete_glue_ref(space_ptr(p));
-    delete_glue_ref(xspace_ptr(p));
-    free_node(p,box_node_size);
-    end;
-  flush_node_list(link(p));
-  link(tail):=list_ptr(p); change_box(null);
-  delete_glue_ref(space_ptr(p));
-  delete_glue_ref(xspace_ptr(p));
-  free_node(p,box_node_size);
-  end;
-done:
-while link(tail)<>null do
-  begin p:=tail; tail:=link(tail);
-  if not is_char_node(tail) then
-    case type(tail) of
-    glue_node :
-      if (subtype(tail)=kanji_skip_code+1)
-             or(subtype(tail)=xkanji_skip_code+1) then
-        begin link(p):=link(tail);
-        delete_glue_ref(glue_ptr(tail));
-        free_node(tail,small_node_size); tail:=p;
-        end;
-    penalty_node :
-      if subtype(tail)=widow_pena then
-        begin link(p):=link(tail); free_node(tail,small_node_size);
-        tail:=p;
-        end;
-    disp_node :
-      begin prev_disp:=disp; disp:=disp_dimen(tail); prev_node:=p;
-      end;
-    endcases;
-  end;
-exit:end;
-@z
-
-@x [47.1113] l.22028 - pTeX: italic correction, ita_kern
-procedure append_italic_correction;
-label exit;
-var p:pointer; {|char_node| at the tail of the current list}
-@!f:internal_font_number; {the font in the |char_node|}
-begin if tail<>head then
-  begin if is_char_node(tail) then p:=tail
-  else if type(tail)=ligature_node then p:=lig_char(tail)
-  else return;
-  f:=font(p);
-  tail_append(new_kern(char_italic(f)(char_info(f)(character(p)))));
-  subtype(tail):=explicit;
-  end;
-@y
-procedure append_italic_correction;
-label exit;
-var p:pointer; {|char_node| at the tail of the current list}
-@!f:internal_font_number; {the font in the |char_node|}
-@!d:pointer; {|disp_node|}
-begin if tail<>head then
-  begin
-  if (not is_char_node(tail))and(type(tail)=disp_node) then
-    begin d:=tail; tail:=prev_node;
-    end
-  else d:=null;
-  if (last_jchr<>null)and(link(last_jchr)=tail)and(is_char_node(tail)) then
-    p:=last_jchr
-  else if is_char_node(tail) then p:=tail
-  else if type(tail)=ligature_node then p:=lig_char(tail)
-  else return;
-  f:=font(p);
-  tail_append(new_kern(char_italic(f)(char_info(f)(character(p)))));
-  subtype(tail):=ita_kern;
-  if d<>null then
-    begin prev_node:=tail; tail_append(d);
-    end;
-  end;
-@z
-
-@x [47.1120] l.22119 - pTeX: discretionary with disp_node
-decr(save_ptr); return;
-@y
-decr(save_ptr);
-prev_node:=tail; tail_append(get_node(small_node_size));
-type(tail):=disp_node; disp_dimen(tail):=0; prev_disp:=0;
-return;
-@z
-
-@x [47.1121] l.22127 - pTeX: discretionary with disp_node
-  begin if not is_char_node(p) then if type(p)>rule_node then
-    if type(p)<>kern_node then if type(p)<>ligature_node then
-      begin print_err("Improper discretionary list");
-@y
-  begin if not is_char_node(p) then
-    if (type(p)>rule_node)and(type(p)<>kern_node)and
-         (type(p)<>ligature_node)and(type(p)<>disp_node) then
-      if (type(p)=penalty_node)and(subtype(p)<>normal) then
-        begin link(q):=link(p); free_node(p,small_node_size); p:=q;
-        end
-      else
-        begin print_err("Improper discretionary list");
-@z
-
-@x [47.1123] l.22160 - pTeX: make_accent, Kanji, insert disp_node
-var s,@!t: real; {amount of slant}
-@y
-var s,@!t: real; {amount of slant}
-@!disp:scaled; {displacement}
-@!cx:KANJI_code; {temporary register for KANJI}
-@z
-
-@x [47.1123] l.22165 - pTeX: make_accent, Kanji, insert disp_node
-begin scan_char_num; f:=cur_font; p:=new_character(f,cur_val);
-@y
-begin scan_char_num;
-if (not is_char_ascii(cur_val)) then
-  begin KANJI(cx):=cur_val;
-  if direction=dir_tate then f:=cur_tfont else f:=cur_jfont;
-  p:=new_character(f,get_jfm_pos(KANJI(cx),f));
-  if p<>null then
-    begin
-      link(p):=get_avail; info(link(p)):=KANJI(cx);
-    end;
-  end
-else begin f:=cur_font; p:=new_character(f,cur_val);
-  end;
-@z
-
-@x [47.1123] l.22175 - pTeX: make_accent, Kanji, insert disp_node
-  link(tail):=p; tail:=p; space_factor:=1000;
-@y
-  link(tail):=p;
-  if link(p)<>null then tail:=link(p) else tail:=p;
-  @<Append |disp_node| at end of displace area@>;
-  space_factor:=1000;
-@z
-
-@x [47.1124] l.22180 - pTeX: make_accent Kanji, insert disp_node
-q:=null; f:=cur_font;
-if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given) then
-  q:=new_character(f,cur_chr)
-else if cur_cmd=char_num then
-  begin scan_char_num; q:=new_character(f,cur_val);
-  end
-else back_input
-@y
-q:=null; f:=cur_font; KANJI(cx):=empty;
-if (cur_cmd=letter)or(cur_cmd=other_char) then
-  q:=new_character(f,cur_chr)
-else if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
-  begin  if direction=dir_tate then f:=cur_tfont else f:=cur_jfont;
-  cx:=cur_chr;
-  end
-else if cur_cmd=char_given then
-  if is_char_ascii(cur_chr) then q:=new_character(f,cur_chr)
-  else begin
-    if direction=dir_tate then f:=cur_tfont else f:=cur_jfont;
-    KANJI(cx):=cur_chr
-    end
-  else if cur_cmd=char_num then
-    begin scan_char_num;
-    if is_char_ascii(cur_val) then q:=new_character(f,cur_val)
-    else  begin
-      if direction=dir_tate then f:=cur_tfont else f:=cur_jfont;
-      KANJI(cx):=cur_val
-    end
-  end
-else back_input;
-if direction=dir_tate then
-  begin if font_dir[f]=dir_tate then disp:=0
-  else if font_dir[f]=dir_yoko then disp:=t_baseline_shift-y_baseline_shift
-  else disp:=t_baseline_shift
-  end
-else  begin if font_dir[f]=dir_yoko then disp:=0
-  else if font_dir[f]=dir_tate then disp:=y_baseline_shift-t_baseline_shift
-  else disp:=y_baseline_shift
-  end;
-@<Append |disp_node| at begin of displace area@>;
-if KANJI(cx)<>empty then
-  begin q:=new_character(f,get_jfm_pos(KANJI(cx),f));
-  link(q):=get_avail; info(link(q)):=KANJI(cx); last_jchr:=q;
-  end;
-@z
-
-@x [47.1125] l.22200 - pTeX: make_accent Kanji
-if h<>x then {the accent must be shifted up or down}
-  begin p:=hpack(p,natural); shift_amount(p):=x-h;
-  end;
-@y
-if h<>x then {the accent must be shifted up or down}
-  begin delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-  cur_kanji_skip:=zero_glue; cur_xkanji_skip:=zero_glue;
-  add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-  p:=hpack(p,natural); shift_amount(p):=x-h;
-  end;
-@z
-
-@x [47.1125] pTeX: make accent Kanji
-tail:=new_kern(-a-delta); subtype(tail):=acc_kern; link(p):=tail; p:=q;
-@y
-tail:=new_kern(-a-delta); subtype(tail):=acc_kern;
-if h=x then begin
-  if font_dir[font(p)]<>dir_default then link(link(p)):=tail 
-  else link(p):=tail; end
-else link(p):=tail;
-{ bugfix: if |p| is KANJI char, |link(p)|:=|tail| collapses |p| and kern after accent. }
-p:=q;
-@z
-
-@x l.22334 - pTeX
-procedure cs_error;
-begin
-if cur_chr = 10 then
-begin
-  print_err("Extra "); print_esc("endmubyte");
-@.Extra \\endmubyte@>
-  help1("I'm ignoring this, since I wasn't doing a \mubyte.");
-end else begin
-  print_err("Extra "); print_esc("endcsname");
-@.Extra \\endcsname@>
-  help1("I'm ignoring this, since I wasn't doing a \csname.");
-end;
-@y
-procedure cs_error;
-begin print_err("Extra "); print_esc("endcsname");
-@.Extra \\endcsname@>
-help1("I'm ignoring this, since I wasn't doing a \csname.");
-@z
-
-@x [48.1138] l.22385 - pTeX: init math : direction < 0 ... math direction
-if (cur_cmd=math_shift)and(mode>0) then @<Go into display math mode@>
-else  begin back_input; @<Go into ordinary math mode@>;
-  end;
-@y
-if (cur_cmd=math_shift)and(mode>0) then @<Go into display math mode@>
-else  begin back_input; @<Go into ordinary math mode@>;
-  end;
-direction:=-abs(direction);
-@z
-
-@x [48.1145] l.22435 - pTeX: Call adjust_hlist at begin of display
-else  begin line_break(display_widow_penalty);@/
-@y
-else  begin adjust_hlist(head,true); line_break(display_widow_penalty);@/
-@z
-
-@x [48.1147] l.22471 - pTeX: Skip kanji 2nd node, dir_node
-reswitch: if is_char_node(p) then
-  begin f:=font(p); d:=char_width(f)(char_info(f)(character(p)));
-  goto found;
-  end;
-case type(p) of
-hlist_node,vlist_node,rule_node: begin d:=width(p); goto found;
-  end;
-@y
-reswitch: if is_char_node(p) then
-  begin f:=font(p); d:=char_width(f)(orig_char_info(f)(character(p)));
-  if font_dir[f]<>dir_default then p:=link(p);
-  goto found;
-  end;
-case type(p) of
-hlist_node,vlist_node,dir_node,rule_node: begin d:=width(p); goto found;
-  end;
-@z
-
-@x [48.1150] l.22541 - pTeX: scan_math
-mmode+left_brace: begin tail_append(new_noad);
-  back_input; scan_math(nucleus(tail));
-  end;
-@y
-mmode+left_brace: begin tail_append(new_noad);
-  back_input; scan_math(nucleus(tail),kcode_noad(tail));
-  end;
-@z
-
-@x [48.1151] l.22555 - pTeX: scan_math: use Kanji in math_mode
-procedure scan_math(@!p:pointer);
-label restart,reswitch,exit;
-var c:integer; {math character code}
-begin restart:@<Get the next non-blank non-relax...@>;
-reswitch:case cur_cmd of
-letter,other_char,char_given: begin c:=ho(math_code(cur_chr));
-    if c=@'100000 then
-      begin @<Treat |cur_chr| as an active character@>;
-      goto restart;
-      end;
-    end;
-@y
-procedure scan_math(@!p,@!q:pointer);
-label restart,reswitch,exit;
-var c:integer; {math character code}
-cx:KANJI_code; {temporary register for KANJI}
-begin KANJI(cx):=0;
-restart: @<Get the next non-blank non-relax...@>;
-reswitch:case cur_cmd of
-letter,other_char,char_given:
-  if (is_char_ascii(cur_chr) or (cur_chr=256)) then begin
-    c:=ho(math_code(cur_chr));
-    if c=@'100000 then
-      begin @<Treat |cur_chr| as an active character@>;
-      goto restart;
-      end;
-    end
-  else
-    KANJI(cx):=cur_chr;
-kanji,kana,other_kchar: cx:=cur_chr;
-@z
-
-@x [48.1151] l.22576 - pTeX: scan_math: use Kanji in math_mode
-math_type(p):=math_char; character(p):=qi(c mod 256);
-if (c>=var_code)and fam_in_range then fam(p):=cur_fam
-else fam(p):=(c div 256) mod 16;
-@y
-if KANJI(cx)=0 then
-  begin math_type(p):=math_char; character(p):=qi(c mod 256);
-  if (c>=var_code)and(fam_in_range) then fam(p):=cur_fam
-  else fam(p):=(c div 256) mod 16;
-  if font_dir[fam_fnt(fam(p)+cur_size)]<>dir_default then
-    begin print_err("Not one-byte family");
-    help1("IGNORE.");@/
-    error;
-    end
-  end
-else  begin
-  if q=null then
-    begin math_type(p):=sub_mlist; info(p):=new_noad;
-    p:=nucleus(info(p)); q:=kcode_noad_nucleus(p);
-    end;
-  math_type(p):=math_jchar; fam(p):=cur_jfam; character(p):=qi(0);
-  math_kcode(p-1):=KANJI(cx);
-  if font_dir[fam_fnt(fam(p)+cur_size)]=dir_default then
-    begin print_err("Not two-byte family");
-    help1("IGNORE.");@/
-    error;
-    end
-  end;
-@z
-
-@x [48.1154] l.22605 - pTeX: math mode
-mmode+letter,mmode+other_char,mmode+char_given:
-  set_math_char(ho(math_code(cur_chr)));
-mmode+char_num: begin scan_char_num; cur_chr:=cur_val;
-  set_math_char(ho(math_code(cur_chr)));
-  end;
-@y
-mmode+letter,mmode+other_char,mmode+char_given:
-  if is_char_ascii(cur_chr) then
-    if cur_chr<128 then set_math_char(ho(math_code(cur_chr)))
-    else set_math_char(cur_chr)
-  else set_math_kchar(cur_chr);
-mmode+kanji,mmode+kana,mmode+other_kchar: begin
-    cx:=cur_chr; set_math_kchar(KANJI(cx));
-  end;
-mmode+char_num: begin scan_char_num; cur_chr:=cur_val;
-  if is_char_ascii(cur_chr) then
-    if cur_chr<128 then set_math_char(ho(math_code(cur_chr)))
-    else set_math_char(cur_chr)
-  else set_math_kchar(cur_chr);
-  end;
-@z
-
-@x [48.1155] l.22635 - pTeX: set_math_char
-  link(tail):=p; tail:=p;
-@y
-  link(tail):=p; tail:=p;
-  if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]<>dir_default then begin
-    print_err("Not one-byte family");
-    help1("IGNORE.");@/
-    error;
-  end
-@z
-
-@x [48.1158] l.22690 - pTeX: scan_math
-  type(tail):=cur_chr; scan_math(nucleus(tail));
-@y
-  type(tail):=cur_chr; scan_math(nucleus(tail),kcode_noad(tail));
-@z
-
-@x [48.1163] l.22750 - pTeX: scan_math
-scan_delimiter(left_delimiter(tail),true); scan_math(nucleus(tail));
-@y
-scan_delimiter(left_delimiter(tail),true);
-scan_math(nucleus(tail),kcode_noad(tail));
-@z
-
-@x [48.1164] l.22770 - pTeX: scan_math
-scan_math(nucleus(tail));
-@y
-scan_math(nucleus(tail),kcode_noad(tail));
-@z
-
-@x [48.1164] l.22790 - pTeX: vcenter : dir
-vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-2;
-  p:=vpack(link(head),saved(1),saved(0)); pop_nest;
-  tail_append(new_noad); type(tail):=vcenter_noad;
-  math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p;
-  end;
-@y
-vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-2;
-  p:=vpack(link(head),saved(1),saved(0));
-  box_dir(p):=abs(direction); pop_nest;
-  if box_dir(p)<>abs(direction) then p:=new_dir_node(p,abs(direction));
-  tail_append(new_noad); type(tail):=vcenter_noad;
-  math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p;
-  end;
-@z
-
-@x [48.1176] l.22864 - pTeX: scan_math
-scan_math(p);
-@y
-scan_math(p,null);
-@z
-
-@x [48.1186] l.23006 - pTeX: copy kanji code
-     if math_type(supscr(p))=empty then
-      begin mem[saved(0)].hh:=mem[nucleus(p)].hh;
-@y
-     if ((math_type(supscr(p))=empty)and(math_kcode(p)=null)) then
-      begin mem[saved(0)].hh:=mem[nucleus(p)].hh;
-@z
-
-@x [48.1194] l.23078 - pTeX: set cur_kanji_skip, cur_xkanji_skip
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@y
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@!disp:scaled; {displacement}
-@z
-
-@x [48.1194] l.23087 - pTeX: set cur_kanji_skip, cur_xkanji_skip
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-@y
-delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip);
-if auto_spacing>0 then cur_kanji_skip:=kanji_skip
-else cur_kanji_skip:=zero_glue;
-if auto_xspacing>0 then cur_xkanji_skip:=xkanji_skip
-else cur_xkanji_skip:=zero_glue;
-add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-@z
-
-@x [48.1196] l.23134 - pTeX: insert disp_node
-begin tail_append(new_math(math_surround,before));
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist;
-link(tail):=link(temp_head);
-while link(tail)<>null do tail:=link(tail);
-tail_append(new_math(math_surround,after));
-space_factor:=1000; unsave;
-end
-@y
-begin if direction=dir_tate then disp:=t_baseline_shift
-      else disp:=y_baseline_shift;
-@<Append |disp_node| at begin of displace area@>;
-tail_append(new_math(math_surround,before));
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist;
-link(tail):=link(temp_head);
-while link(tail)<>null do tail:=link(tail);
-tail_append(new_math(math_surround,after));
-@<Append |disp_node| at end of displace area@>;
-space_factor:=1000; unsave;
-end
-@z
-
-@x [48.1200] l.23203 - pTeX: adjust direction
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-@y
-push_nest; adjust_dir:=abs(direction);
-mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-@z
-
-@x [48.1201] l.23217 - pTeX: free box node
-  begin free_node(b,box_node_size);
-@y
-  begin delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b));
-  free_node(b,box_node_size);
-@z
-
-@x [48.1201] l.23222 - pTeX: free box node
-    begin free_node(b,box_node_size);
-@y
-    begin delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b));
-    free_node(b,box_node_size);
-@z
-
-@x [49.1210] l.23361 - pTeX: set_auto_spacing
-any_mode(toks_register),
-any_mode(assign_toks),
-any_mode(assign_int),
-@y
-any_mode(assign_kinsoku),
-any_mode(assign_inhibit_xsp_code),
-any_mode(set_auto_spacing),
-any_mode(set_kansuji_char),
-any_mode(toks_register),
-any_mode(assign_toks),
-any_mode(assign_int),
-any_mode(def_jfont),
-any_mode(def_tfont),
-@z
-
-@x [49.1211] l.23397 - pTeX: prefixed_command
-procedure prefixed_command;
-label done,exit;
-var a:small_number; {accumulated prefix codes so far}
-@y
-procedure prefixed_command;
-label done,exit;
-var a:small_number; {accumulated prefix codes so far}
-@!m:integer; {ditto}
-@z
-
-@x [49.1217] l.23487 - pTeX: select cur font
-set_font: define(cur_font_loc,data,cur_chr);
-@y
-set_font: begin
-  if font_dir[cur_chr]=dir_yoko then
-    define(cur_jfont_loc,data,cur_chr)
-  else if font_dir[cur_chr]=dir_tate then
-    define(cur_tfont_loc,data,cur_chr)
-  else
-    define(cur_font_loc,data,cur_chr)
-end;
-@z
-
-@x l.23504 - pTeX
-primitive("futurelet",let,normal+1);@/
-@!@:future_let_}{\.{\\futurelet} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-let: if chr_code<>normal then print_esc("futurelet")@+else print_esc("let");
-
-@ @<Assignments@>=
-let:  begin n:=cur_chr;
-@y
-primitive("futurelet",let,normal+1);@/
-@!@:future_let_}{\.{\\futurelet} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-let: if chr_code<>normal then print_esc("futurelet")@+else print_esc("let");
-
-@ @<Assignments@>=
-let:  begin n:=cur_chr;
-@z
-
-@x [49.1228] l.23785 - pTeX: assign jfam
-assign_int: begin p:=cur_chr; scan_optional_equals; scan_int;
-  word_define(p,cur_val);
-  end;
-@y
-assign_int: begin p:=cur_chr; scan_optional_equals; scan_int;
-  if p=int_base+cur_fam_code then
-    begin if font_dir[fam_fnt(cur_val)]<>dir_default then
-      word_define(int_base+cur_jfam_code,cur_val)
-    else word_define(p,cur_val);
-    end
-  else word_define(p,cur_val);
-  end;
-@z
-
-@x [49.1230] l.23812 - pTeX: xspcode, kcatcode
-@<Put each...@>=
-primitive("catcode",def_code,cat_code_base);
-@!@:cat_code_}{\.{\\catcode} primitive@>
-@y
-@<Put each...@>=
-primitive("catcode",def_code,cat_code_base);
-@!@:cat_code_}{\.{\\catcode} primitive@>
-primitive("kcatcode",def_code,kcat_code_base);
-@!@:cat_code_}{\.{\\kcatcode} primitive@>
-primitive("xspcode",def_code,auto_xsp_code_base);
-@!@:auto_xsp_code_}{\.{\\xspcode} primitive@>
-@z
-
-@x [49.1231] l.23842 - pTeX: xspcode, kcatcode
-def_code: if chr_code=cat_code_base then print_esc("catcode")
-  else if chr_code=math_code_base then print_esc("mathcode")
-@y
-def_code: if chr_code=cat_code_base then print_esc("catcode")
-  else if chr_code=kcat_code_base then print_esc("kcatcode")
-  else if chr_code=auto_xsp_code_base then print_esc("xspcode")
-  else if chr_code=math_code_base then print_esc("mathcode")
-@z
-
-@x [49.1232] l.23857 - pTeX: kcatcode
-def_code: begin @<Let |n| be the largest legal code value, based on |cur_chr|@>;
-  p:=cur_chr; scan_char_num; p:=p+cur_val; scan_optional_equals;
-  scan_int;
-  if ((cur_val<0)and(p<del_code_base))or(cur_val>n) then
-    begin print_err("Invalid code ("); print_int(cur_val);
-@.Invalid code@>
-    if p<del_code_base then print("), should be in the range 0..")
-    else print("), should be at most ");
-    print_int(n);
-    help1("I'm going to use 0 instead of that illegal code value.");@/
-    error; cur_val:=0;
-    end;
-  if p<math_code_base then define(p,data,cur_val)
-  else if p<del_code_base then define(p,data,hi(cur_val))
-  else word_define(p,cur_val);
-  end;
-@y
-def_code: begin
-  @<Let |m| be the minimal legal code value, based on |cur_chr|@>;
-  @<Let |n| be the largest legal code value, based on |cur_chr|@>;
-  p:=cur_chr; scan_char_num;
-  if p=kcat_code_base then p:=p+kcatcodekey(cur_val) else p:=p+cur_val;
-  scan_optional_equals; scan_int;
-  if ((cur_val<m)and(p<del_code_base))or(cur_val>n) then
-  begin print_err("Invalid code ("); print_int(cur_val);
-@.Invalid code@>
-    if p<del_code_base then
-      begin print("), should be in the range "); print_int(m); print("..");
-      end
-    else print("), should be at most ");
-    print_int(n);
-    if m=0 then
-      begin help1("I'm going to use 0 instead of that illegal code value.");@/
-      error;
-      end
-    else
-      begin help1("I'm going to use 16 instead of that illegal code value.");@/
-      error;
-      end;
-    cur_val:=m;
-  end;
-  if p<math_code_base then define(p,data,cur_val)
-  else if p<del_code_base then define(p,data,hi(cur_val))
-  else word_define(p,cur_val);
-  end;
-@z
-
-@x [49.1233] l.23882 - pTeX: kcatcode
-@ @<Let |n| be the largest...@>=
-if cur_chr=cat_code_base then n:=max_char_code
-@y
-@ @<Let |m| be the minimal...@>=
-if cur_chr=kcat_code_base then m:=kanji else m:=0
-
-@ @<Let |n| be the largest...@>=
-if cur_chr=cat_code_base then n:=invalid_char {1byte |max_char_code|}
-else if cur_chr=kcat_code_base then n:=max_char_code
-@z
-
-@x [49.1247] l.24083 - pTeX: alter_box_dimen : box_dir
-procedure alter_box_dimen;
-var c:small_number; {|width_offset| or |height_offset| or |depth_offset|}
-@!b:pointer; {box register}
-begin c:=cur_chr; scan_register_num; fetch_box(b); scan_optional_equals;
-scan_normal_dimen;
-if b<>null then mem[b+c].sc:=cur_val;
-end;
-@y
-procedure alter_box_dimen;
-var c:small_number; {|width_offset| or |height_offset| or |depth_offset|}
-@!b:pointer; {box register}
-@!p,q:pointer; {temporary registers}
-begin c:=cur_chr; scan_register_num; fetch_box(b); scan_optional_equals;
-scan_normal_dimen;
-if b<>null then
-  begin q:=b; p:=link(q);
-  while p<>null do
-    begin if abs(direction)=box_dir(p) then q:=p;
-    p:=link(p);
-    end;
-  if box_dir(q)<>abs(direction) then
-    begin q:=new_dir_node(q,abs(direction)); list_ptr(q):=null;
-    link(q):=link(b); link(b):=q;
-    end;
-    mem[q+c].sc:=cur_val;
-  end;
-end;
-@z
-
-@x [49.1256] l.24163 - pTeX: def_tfont
-def_font: new_font(a);
-@y
-def_tfont,def_jfont,def_font: new_font(a);
-@z
-
-@x [49.1292] l.24451 - pTeX: shift_case
-@<Change the case of the token in |p|, if a change is appropriate@>=
-t:=info(p);
-if t<cs_token_flag+single_base then
-  begin c:=t mod 256;
-  if equiv(b+c)<>0 then info(p):=t-c+equiv(b+c);
-  end
-@y
-@<Change the case of the token in |p|, if a change is appropriate@>=
-t:=info(p);
-if (t<cs_token_flag+single_base)and(not check_kanji(t)) then
-  begin c:=t mod 256;
-  if equiv(b+c)<>0 then info(p):=t-c+equiv(b+c);
-  end
-@z
-
-@x [49.1291] l.24467 - pTeX: show_mode
-@d show_lists=3 { \.{\\showlists} }
-@y
-@d show_lists=3 { \.{\\showlists} }
-@d show_mode=4 { \.{\\showmode} }
-@z
-
-@x [49.1291] l.24476 - pTeX: show_mode
-primitive("showlists",xray,show_lists);
-@!@:show_lists_}{\.{\\showlists} primitive@>
-@y
-primitive("showlists",xray,show_lists);
-@!@:show_lists_}{\.{\\showlists} primitive@>
-primitive("showmode",xray,show_mode);
-@!@:show_mode_}{\.{\\showmode} primitive@>
-@z
-
-@x [49.1292] l.24483 - pTeX: show_mode
-  othercases print_esc("show")
-@y
-  show_mode:print_esc("showmode");
-  othercases print_esc("show")
-@z
-
-@x [49.1293] l.24495 - pTeX: show_mode
-show_code: @<Show the current meaning of a token, then |goto common_ending|@>;
-@y
-show_code: @<Show the current meaning of a token, then |goto common_ending|@>;
-show_mode: @<Show the current japanese processing mode@>;
-@z
-
-@x l.24982
-font_info:=xmalloc_array(fmemory_word, font_mem_size);
-@y
-font_info:=xmalloc_array(memory_word, font_mem_size);
-@z
-
-@x [50.1320] l.24988 - pTeX:
-@ @<Dump the array info for internal font number |k|@>=
-begin
-dump_things(font_check[null_font], font_ptr+1-null_font);
-@y
-@ @<Dump the array info for internal font number |k|@>=
-begin
-dump_things(font_dir[null_font], font_ptr+1-null_font);
-dump_things(font_num_ext[null_font], font_ptr+1-null_font);
-dump_things(font_check[null_font], font_ptr+1-null_font);
-@z
-
-@x [50.1321] l.25000 - pTeX:
-dump_things(char_base[null_font], font_ptr+1-null_font);
-@y
-dump_things(ctype_base[null_font], font_ptr+1-null_font);
-dump_things(char_base[null_font], font_ptr+1-null_font);
-@z
-
-@x [50.1322] l.25024 - pTeX:
-@<Undump the array info for internal font number |k|@>=
-begin {Allocate the font arrays}
-@y
-@<Undump the array info for internal font number |k|@>=
-begin {Allocate the font arrays}
-font_dir:=xmalloc_array(eight_bits, font_max);
-font_num_ext:=xmalloc_array(integer, font_max);
-@z
-
-@x [50.1322] l.25040 - pTeX:
-char_base:=xmalloc_array(integer, font_max);
-@y
-ctype_base:=xmalloc_array(integer, font_max);
-char_base:=xmalloc_array(integer, font_max);
-@z
-
-@x [50.1322] l.25050 - pTeX:
-undump_things(font_check[null_font], font_ptr+1-null_font);
-@y
-undump_things(font_dir[null_font], font_ptr+1-null_font);
-undump_things(font_num_ext[null_font], font_ptr+1-null_font);
-undump_things(font_check[null_font], font_ptr+1-null_font);
-@z
-
-@x [50.1322] l.25064 - pTeX:
-undump_things(char_base[null_font], font_ptr+1-null_font);
-@y
-undump_things(ctype_base[null_font], font_ptr+1-null_font);
-undump_things(char_base[null_font], font_ptr+1-null_font);
-@z
-
-@x l.25363 - pTeX
-  font_info:=xmalloc_array (fmemory_word, font_mem_size);
-@y
-  font_info:=xmalloc_array (memory_word, font_mem_size);
-@z
-
-@x [51.1337] l.25563 - pTeX:
-  font_check:=xmalloc_array(four_quarters, font_max);
-@y
-  font_dir:=xmalloc_array(eight_bits, font_max);
-  font_num_ext:=xmalloc_array(integer, font_max);
-  font_check:=xmalloc_array(four_quarters, font_max);
-@z
-
-@x [51.1337] l.25577 - pTeX:
-  char_base:=xmalloc_array(integer, font_max);
-@y
-  ctype_base:=xmalloc_array(integer, font_max);
-  char_base:=xmalloc_array(integer, font_max);
-@z
-
-@x [51.1337] l.25587 - pTeX:
-  font_ptr:=null_font; fmem_ptr:=7;
-@y
-  font_ptr:=null_font; fmem_ptr:=7;
-  font_dir[null_font]:=dir_default;
-  font_num_ext[null_font]:=0;
-@z
-
-@x [51.1337] l.25594 - pTeX:
-  char_base[null_font]:=0; width_base[null_font]:=0;
-@y
-  ctype_base[null_font]:=0; char_base[null_font]:=0; width_base[null_font]:=0;
-@z
-
-@x [53.1376] l.26309 - pTeX:
-@<Glob...@> =
-@!debug_format_file: boolean;
-@y
-@<Glob...@> =
-@!debug_format_file: boolean;
-
-@ @<Set init...@>=
-@!debug debug_format_file:=true; @+gubed;
-@z
-
-@x l.26984 - pTeX
-@* \[54] System-dependent changes.
-@y
-@* \[55/p\TeX] System-dependent changes for p\TeX.
-This section described extended variables, procesures, functions and so on
-for pTeX.
-
-@<Declare procedures that scan font-related stuff@>=
-function get_jfm_pos(@!kcode:KANJI_code;@!f:internal_font_number):eight_bits;
-var @!jc:KANJI_code; {temporary register for KANJI}
-@!sp,@!mp,@!ep:pointer;
-begin@/
-jc:=toDVI(kcode);
-sp:=1; { start position }
-ep:=font_num_ext[f]-1; { end position }
-if (ep>=1)and(kchar_code(f)(sp)<=jc)and(jc<=kchar_code(f)(ep)) then
-  begin while (sp <= ep) do
-    begin mp:=sp+((ep-sp) div 2);
-    if jc<kchar_code(f)(mp) then ep:=mp-1
-    else if jc>kchar_code(f)(mp) then sp:=mp+1
-    else
-      begin get_jfm_pos:=kchar_type(f)(mp); return;
-      end;
-    end;
-  end;
-get_jfm_pos:=kchar_type(f)(0);
-end;
-
-@ Following codes are used to calcutation a KANJI width and height.
-
-@<Local variables for dimension calculations@>=
-@!t: eight_bits;
-
-@ @<The KANJI width for |cur_jfont|@>=
-if direction=dir_tate then
-  v:=char_width(cur_tfont)(orig_char_info(cur_tfont)(qi(0)))
-else
-  v:=char_width(cur_jfont)(orig_char_info(cur_jfont)(qi(0)))
-
-@ @<The KANJI height for |cur_jfont|@>=
-if direction=dir_tate then begin
-  t:=height_depth(orig_char_info(cur_tfont)(qi(0)));
-  v:=char_height(cur_tfont)(t)+char_depth(cur_tfont)(t);
-end else begin
-  t:=height_depth(orig_char_info(cur_jfont)(qi(0)));
-  v:=char_height(cur_jfont)(t)+char_depth(cur_jfont)(t);
-end
-
-@ set a kansuji character.
-
-@ @<Put each...@>=
-primitive("kansujichar",set_kansuji_char,0);
-@!@:kansujichar_}{\.{\\kansujichar} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-set_kansuji_char: print_esc("kansujichar");
-
-@ @<Assignments@>=
-set_kansuji_char:
-begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int;
-if not check_kanji(cur_val) then
-  begin print_err("Invalid KANSUJI char (");
-  print_hex(cur_val); print_char(")");
-@.Invalid KANSUJI char@>
-  help1("I'm skip this control sequences.");@/
-  error; return;
-  end
-else if (n<0)or(n>9) then
-  begin print_err("Invalid KANSUJI number ("); print_int(n); print_char(")");
-@.Invalid KANSUJI number@>
-  help1("I'm skip this control sequences.");@/
-  error; return;
-  end
-else
-  define(kansuji_base+n,n,tokanji(toDVI(cur_val)));
-end;
-
-@ |print_kansuji| procedure converts a number to KANJI number.
-
-@ @<Declare procedures needed in |scan_something|@>=
-procedure print_kansuji(@!n:integer);
-var @!k:0..23; {index to current digit; we assume that $|n|<10^{23}$}
-@!cx: KANJI_code; {temporary register for KANJI}
-begin k:=0;
-  if n<0 then return; {nonpositive input produces no output}
-  repeat dig[k]:=n mod 10; n:=n div 10; incr(k);
-  until n=0;
-  begin while k>0 do
-    begin decr(k);
-	cx:=kansuji_char(dig[k]);
-	print_kanji(fromDVI(cx));
-    end;
-  end;
-end;
-
-@ pTeX inserts a glue specified by \.{\\kanjiskip} between 2byte-characters,
-automatically, if \.{\\autospacing}.  This glue is suppressed by
-\.{\\noautospacing}.
-\.{\\xkanjiskip}, \.{\\noautoxspacing}, \.{\\autoxspacing}, \.{\\xspcode} is
-used to control between 2byte and 1byte characters.
-
-@d reset_auto_spacing_code=0
-@d set_auto_spacing_code=1
-@d reset_auto_xspacing_code=2
-@d set_auto_xspacing_code=3
-
-@<Put each...@>=
-primitive("autospacing",set_auto_spacing,set_auto_spacing_code);
-@!@:auto_spacing_}{\.{\\autospacing} primitive@>
-primitive("noautospacing",set_auto_spacing,reset_auto_spacing_code);
-@!@:no_auto_spacing_}{\.{\\noautospacing} primitive@>
-primitive("autoxspacing",set_auto_spacing,set_auto_xspacing_code);
-@!@:auto_xspacing_}{\.{\\autoxspacing} primitive@>
-primitive("noautoxspacing",set_auto_spacing,reset_auto_xspacing_code);
-@!@:no_auto_xspacing_}{\.{\\noautoxspacing} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-set_auto_spacing:begin
-  if (chr_code mod 2)=0 then print_esc("noauto") else print_esc("auto");
-  if chr_code<2 then print("spacing") else print("xspacing");
-end;
-
-@ @<Assignments@>=
-set_auto_spacing:begin
-  if cur_chr<2 then p:=auto_spacing_code
-  else begin p:=auto_xspacing_code; cur_chr:=(cur_chr mod 2); end;
-  define(p,data,cur_chr);
-end;
-
-@ Following codes are used in section 49.
-
-@<Show the current japanese processing mode@>=
-begin print_nl("> ");
-if auto_spacing>0 then print("auto spacing mode; ")
-  else print("no auto spacing mode; ");
-print_nl("> ");
-if auto_xspacing>0 then print("auto xspacing mode")
-  else print("no auto xspacing mode");
-goto common_ending;
-end
-
-@ The \.{\\inhibitglue} primitive control to insert a glue specified
-JFM (Japanese Font Metic) file.  The \.{\\inhibitxspcode} is used to control
-inserting a space between 2byte-char and 1byte-char.
-
-@d inhibit_both=0     {disable to insert space before 2byte-char and after it}
-@d inhibit_previous=1 {disable to insert space before 2byte-char}
-@d inhibit_after=2    {disable to insert space after 2byte-char}
-@d no_entry=1000
-@d new_pos=0
-@d cur_pos=1
-
-@<Global...@>=
-  inhibit_glue_flag:boolean;
-
-@ @<Set init...@>=
-  inhibit_glue_flag:=false;
-
-@ @<Cases of |main_control| that don't...@>=
-  any_mode(inhibit_glue): inhibit_glue_flag:=true;
-
-@ @<Put each...@>=
-primitive("inhibitglue",inhibit_glue,0);
-@!@:inhibit_glue_}{\.{\\inhibitglue} primitive@>
-primitive("inhibitxspcode",assign_inhibit_xsp_code,inhibit_xsp_code_base);
-@!@:inhibit_xsp_code_}{\.{\\inhibitxspcode} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-inhibit_glue: print_esc("inhibitglue");
-assign_inhibit_xsp_code: print_esc("inhibitxspcode");
-
-@ @<Declare procedures needed in |scan_something|@>=
-function get_inhibit_pos(c:KANJI_code; n:small_number):pointer;
-label done, done1;
-var p,s:pointer;
-begin s:=calc_pos(c); p:=s;
-if n=new_pos then
-  begin repeat
-  if (inhibit_xsp_code(p)=0)or(inhibit_xsp_code(p)=c) then goto done;
-  incr(p); if p>255 then p:=0;
-  until s=p; p:=no_entry;
-  end
-else
-  begin repeat
-  if inhibit_xsp_code(p)=0 then goto done1;
-  if inhibit_xsp_code(p)=c then goto done;
-  incr(p); if p>255 then p:=0;
-  until s=p;
-done1: p:=no_entry;
-  end;
-done: get_inhibit_pos:=p;
-end;
-
-@ @<Assignments@>=
-assign_inhibit_xsp_code:
-begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int;
-if check_kanji(n) then
-  begin j:=get_inhibit_pos(tokanji(n),new_pos);
-  if j=no_entry then
-    begin print_err("Inhibit table is full!!");
-    help1("I'm skip this control sequences.");@/
-    error; return;
-  end;
-  define(inhibit_xsp_code_base+j,cur_val,n);
-  end
-else
-  begin print_err("Invalid KANJI code ("); print_hex(n); print_char(")");
-@.Invalid KANJI code@>
-  help1("I'm skip this control sequences.");@/
-  error; return;
-  end;
-end;
-
-@ @<Fetch inhibit type from some table@>=
-begin scan_int; q:=get_inhibit_pos(tokanji(cur_val),cur_pos);
-cur_val_level:=int_val; cur_val:=3;
-if q<>no_entry then cur_val:=inhibit_xsp_type(q);
-end
-
-@ The \.{\\prebreakpenalty} is used to specified amount of penalties inserted
-before the 2byte-char which is first argument of this primitive.
-The \.{\\postbreakpenalty} is inserted after the 2byte-char.
-
-@d pre_break_penalty_code=1
-@d post_break_penalty_code=2
-
-@<Put each...@>=
-primitive("prebreakpenalty",assign_kinsoku,pre_break_penalty_code);
-@!@:pre_break_penalty_}{\.{\\prebreakpenalty} primitive@>
-primitive("postbreakpenalty",assign_kinsoku,post_break_penalty_code);
-@!@:post_break_penalty_}{\.{\\postbreakpenalty} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-assign_kinsoku: case chr_code of
-  pre_break_penalty_code: print_esc("prebreakpenalty");
-  post_break_penalty_code: print_esc("postbreakpenalty");
-  endcases;
-
-@ @<Declare procedures needed in |scan_something|@>=
-function get_kinsoku_pos(c:KANJI_code; n:small_number):pointer;
-label done, done1;
-var p,s:pointer;
-begin s:=calc_pos(c); p:=s;
-@!debug
-print_ln; print("c:="); print_int(c); print(", p:="); print_int(s);
-if p+kinsoku_base<0 then
-  begin print("p is negative value"); print_ln;
-  end;
-gubed
-if n=new_pos then
-  begin repeat
-  if (kinsoku_type(p)=0)or(kinsoku_code(p)=c) then goto done;
-  incr(p); if p>255 then p:=0;
-  until s=p;
-  p:=no_entry;
-  end
-else
-  begin repeat
-  if kinsoku_type(p)=0 then goto done1;
-  if kinsoku_code(p)=c then goto done;
-  incr(p); if p>255 then p:=0;
-  until s=p;
-done1: p:=no_entry;
-  end;
-done: get_kinsoku_pos:=p;
-end;
-
-@ @<Assignments@>=
-assign_kinsoku:
-begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int;
-if (is_char_ascii(n) or check_kanji(n)) then
-  begin j:=get_kinsoku_pos(tokanji(n),new_pos);
-  if j=no_entry then
-    begin print_err("KINSOKU table is full!!");
-    help1("I'm skip this control sequences.");@/
-    error; return;
-    end;
-  if (p=pre_break_penalty_code)or(p=post_break_penalty_code) then
-    begin define(kinsoku_base+j,p,tokanji(n));
-    word_define(kinsoku_penalty_base+j,cur_val);
-    end
-  else confusion("kinsoku");
-@:this can't happen kinsoku}{\quad kinsoku@>
-  end
-else
-  begin print_err("Invalid KANJI code for ");
-  if (p=pre_break_penalty_code) then print("pre")
-  else if (p=post_break_penalty_code) then print("post")
-  else print_char("?");
-  print("breakpenalty ("); print_hex(n); print_char(")");
-@.Invalid KANJI code@>
-  help1("I'm skip this control sequences.");@/
-  error; return;
-  end;
-end;
-
-@ @<Fetch breaking penalty from some table@>=
-begin scan_int; q:=get_kinsoku_pos(tokanji(cur_val),cur_pos);
-cur_val_level:=int_val; cur_val:=0;
-if (q<>no_entry)and(m=kinsoku_type(q)) then
-    scanned_result(kinsoku_penalty(q))(int_val);
-end
-
-@ Following codes are used in |main_control|.
-
-@<Insert kinsoku penalty@>=
-begin kp:=get_kinsoku_pos(cx,cur_pos);
-if (kp<>no_entry) then
-  begin if (kinsoku_type(kp)=pre_break_penalty_code) then
-    begin if (not is_char_node(cur_q))and(type(cur_q)=penalty_node) then
-      penalty(cur_q):=penalty(cur_q)+kinsoku_penalty(kp)
-    else
-      begin main_p:=link(cur_q); link(cur_q):=new_penalty(kinsoku_penalty(kp));
-      subtype(link(cur_q)):=kinsoku_pena; link(link(cur_q)):=main_p;
-      end;
-    end
-  else if (kinsoku_type(kp)=post_break_penalty_code) then
-    begin tail_append(new_penalty(kinsoku_penalty(kp)));
-    subtype(tail):=kinsoku_pena;
-    end;
-  end;
-end;
-
-@ @<Insert |pre_break_penalty| of |cur_chr|@>=
-begin kp:=get_kinsoku_pos(cur_chr,cur_pos);
-if (kp<>no_entry) then
-  begin if (kinsoku_type(kp)=pre_break_penalty_code) then
-    if (not is_char_node(tail))and(type(tail)=penalty_node) then
-      penalty(tail):=penalty(tail)+kinsoku_penalty(kp)
-    else
-      begin tail_append(new_penalty(kinsoku_penalty(kp)));
-      subtype(tail):=kinsoku_pena;
-      end;
-  end;
-end;
-
-@ @<Insert |post_break_penalty|@>=
-begin kp:=get_kinsoku_pos(cx,cur_pos);
-if (kp<>no_entry) then
-  begin if (kinsoku_type(kp)=post_break_penalty_code) then
-    begin tail_append(new_penalty(kinsoku_penalty(kp)));
-    subtype(tail):=kinsoku_pena;
-    end;
-  end;
-end;
-
-@ This is a part of section 32.
-
-The procedure |synch_dir| is used in |hlist_out| and |vlist_out|.
-
-@d dvi_yoko=0
-@d dvi_tate=1
-@d dvi_dtou=3
-
-@<Glob...@>=
-@!dvi_dir:integer; {a \.{DVI} reader program thinks we direct to}
-@!cur_dir_hv:integer; {\TeX\ thinks we direct to}
-@!page_dir:eight_bits;
-
-@ @<Set init...@>=
-page_dir:=dir_yoko;
-
-@ @<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-procedure synch_dir;
-var tmp:scaled; {temporary resister}
-begin
-  case cur_dir_hv of
-  dir_yoko:
-    if dvi_dir<>cur_dir_hv then begin
-      synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_yoko);
-      dir_used:=true;
-      case dvi_dir of
-        dir_tate: begin tmp:=cur_h; cur_h:=-cur_v; cur_v:=tmp end;
-        dir_dtou: begin tmp:=cur_h; cur_h:=cur_v; cur_v:=-tmp end;
-      endcases;
-      dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv;
-    end;
-  dir_tate:
-    if dvi_dir<>cur_dir_hv then begin
-      synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_tate);
-      dir_used:=true;
-      case dvi_dir of
-        dir_yoko: begin tmp:=cur_h; cur_h:=cur_v; cur_v:=-tmp end;
-        dir_dtou: begin cur_v:=-cur_v; cur_h:=-cur_h; end;
-      endcases;
-      dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv;
-    end;
-  dir_dtou:
-    if dvi_dir<>cur_dir_hv then begin
-      synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_dtou);
-      dir_used:=true;
-      case dvi_dir of
-        dir_yoko: begin tmp:=cur_h; cur_h:=-cur_v; cur_v:=tmp end;
-        dir_tate: begin cur_v:=-cur_v; cur_h:=-cur_h; end;
-      endcases;
-      dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv;
-    end;
-  othercases
-    confusion("synch_dir");
-  endcases
-end;
-
-@ This function is called from |adjust_hlist| to used to check, whether
-a list which pointed |box_p| contain a printing character.
-If the list contain such a character, then return `true', otherwise `false'.
-If the first matter is a character, |first_char| is stored it.
-|last_char| is stored a last character.  If no printing characters exist
-in the list, |first_char| and |last_char| is null.
-@^recursion@>
-
-@<Glob...@>=
-@!first_char:pointer; {first printable character}
-@!last_char:pointer; {last printable character}
-@!find_first_char:boolean; {find for a first printable character?}
-
-@ @<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-function check_box(box_p:pointer):boolean;
-label done;
-var @!p:pointer; {run through the current box}
-@!flag:boolean; {found any printable character?}
-begin flag:=false; p:=box_p;
-while p<>null do
-  begin if is_char_node(p) then
-    repeat
-    if find_first_char then
-      begin first_char:=p; find_first_char:=false
-      end;
-    last_char:=p; flag:=true;
-    if font_dir[font(p)]<>dir_default then p:=link(p);
-    p:=link(p);
-    if p=null then goto done;
-    until not is_char_node(p);
-  case type(p) of
-  hlist_node:
-    begin flag:=true;
-      if shift_amount(p)=0 then
-        begin if check_box(list_ptr(p)) then flag:=true;
-        end
-      else if find_first_char then find_first_char:=false
-        else last_char:=null;
-    end;
-  ligature_node: if check_box(lig_ptr(p)) then flag:=true;
-  ins_node,disp_node,mark_node,adjust_node,whatsit_node,penalty_node:
-    do_nothing;
-  othercases begin flag:=true;
-    if find_first_char then find_first_char:=false
-    else last_char:=null;
-    end;
-  endcases;
-  p:=link(p);
-  end;
-done: check_box:=flag;
-end;
-
-@ Following procedure |adjust_hlist| inserts \.{\\xkanjiskip} between
-2byte-char and 1byte-char in hlist which pointed |p|.
-Note that the skip is inserted into a place where too difficult to decide
-whether inserting or not (i.e, before penalty, after penalty).
-
-If |pf| is true then insert |jchr_widow_penalty| that is penalty for
-creating a widow KANJI character line.
-
-@d no_skip=0
-@d after_schar=1 {denote after single byte character}
-@d after_wchar=2 {denote after double bytes character}
-
-@<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-procedure adjust_hlist(p:pointer;pf:boolean);
-label exit;
-var q,s,t,u,v,x,z:pointer;
-  i,k:halfword;
-  a: pointer; { temporary pointer for accent }
-  insert_skip:no_skip..after_wchar;
-  cx:KANJI_code; {temporaly register for KANJI character}
-  ax:ASCII_code; {temporaly register for ASCII character}
-  do_ins:boolean; {for inserting |xkanji_skip| into prevous (or after) KANJI}
-begin if link(p)=null then goto exit;
-if auto_spacing>0 then
-  begin delete_glue_ref(space_ptr(p)); space_ptr(p):=kanji_skip;
-  add_glue_ref(kanji_skip);
-  end;
-if auto_xspacing>0 then
-  begin delete_glue_ref(xspace_ptr(p)); xspace_ptr(p):=xkanji_skip;
-  add_glue_ref(xkanji_skip);
-  end;
-u:=space_ptr(p); add_glue_ref(u);
-s:=xspace_ptr(p); add_glue_ref(s);
-if (not is_char_node(link(p))) {p1.0.9d}
-    and(type(link(p))=glue_node)and(subtype(link(p))=jfm_skip+1) then
-  begin v:=link(p); link(p):=link(v);
-  fast_delete_glue_ref(glue_ptr(v)); free_node(v,small_node_size);
-  end;
-i:=0; insert_skip:=no_skip; p:=link(p); v:=p; q:=p;
-while p<>null do
-  begin if is_char_node(p) then
-    begin repeat @<Insert a space around the character |p|@>;
-      q:=p; p:=link(p); incr(i);
-      if (i>5)and(pf) then
-        begin if is_char_node(v) then
-        if font_dir[font(v)]<>dir_default then v:=link(v);
-        v:=link(v);
-        end;
-    until not is_char_node(p);
-    end
-  else
-    begin case type(p) of
-    hlist_node: @<Insert hbox surround spacing@>;
-    ligature_node: @<Insert ligature surround spacing@>;
-    penalty_node,disp_node: @<Insert penalty or displace surround spacing@>;
-    kern_node: if (subtype(p)=explicit) then insert_skip:=no_skip
-      else if (subtype(p)=acc_kern) then begin 
-        { When we insert \.{\\xkanjiskip}, we first ignore accent (and kerns) and
-          insert \.{\\xkanjiskip}, then we recover the accent. }
-        if q=p then begin t:=link(p);
-          { if p is beginning on the list, we have only to ignore nodes. }
-          if is_char_node(t) then 
-            if font_dir[font(t)]<>dir_default then t:=link(t);
-          p:=link(link(t)); 
-	  if font_dir[font(p)]<>dir_default then 
-            begin p:=link(p); insert_skip:=after_wchar; end
-          else  insert_skip:=after_schar;
-          end
-        else begin
-          a:=p; t:=link(p);
-          if is_char_node(t) then 
-            if font_dir[font(t)]<>dir_default then t:=link(t);
-          t:=link(link(t)); link(q):=t; p:=t;
-          @<Insert a space around the character |p|@>; incr(i);
-          if (i>5)and(pf) then
-            begin if is_char_node(v) then
-            if font_dir[font(v)]<>dir_default then v:=link(v);
-            v:=link(v);
-            end;
-          if link(q)<>t then link(link(q)):=a else link(q):=a;
-          end;
-        end;
-    math_node: @<Insert math surround spacing@>;
-    mark_node,adjust_node,ins_node,whatsit_node:
-      {These nodes are vanished when typeset is done}
-      do_nothing;
-    othercases insert_skip:=no_skip;
-    endcases;
-    q:=p; p:=link(p);
-    end;
-  end;
-if (not is_char_node(q))and(type(q)=glue_node)and(subtype(q)=jfm_skip+1) then
-  begin fast_delete_glue_ref(glue_ptr(q));
-  glue_ptr(q):=zero_glue; add_glue_ref(zero_glue);
-  end;
-delete_glue_ref(u); delete_glue_ref(s);
-if (v<>null)and(pf)and(i>5) then @<Make |jchr_widow_penalty| node@>;
-exit:
-end;
-
-@ @<Insert a space around the character |p|@>=
-if font_dir[font(p)]<>dir_default then
-  begin KANJI(cx):=info(link(p));
-  if insert_skip=after_schar then @<Insert ASCII-KANJI spacing@>;
-  p:=link(p); insert_skip:=after_wchar;
-  end
-else
-  begin ax:=qo(character(p));
-  if insert_skip=after_wchar then @<Insert KANJI-ASCII spacing@>;
-  if auto_xsp_code(ax)>=2 then
-    insert_skip:=after_schar else insert_skip:=no_skip;
-  end
-
-@ @<Insert hbox surround spacing@>=
-begin find_first_char:=true; first_char:=null; last_char:=null;
-if (shift_amount(p)=0) then
-  begin if check_box(list_ptr(p)) then
-    begin if first_char<>null then @<Insert a space before the |first_char|@>;
-    if last_char<>null then
-      begin @<Insert a space after the |last_char|@>;
-      end else insert_skip:=no_skip;
-    end else insert_skip:=no_skip;
-  end else insert_skip:=no_skip;
-end
-
-@ @<Insert a space before the |first_char|@>=
-if font_dir[font(first_char)]<>dir_default then
-  begin KANJI(cx):=info(link(first_char));
-  if insert_skip=after_schar then @<Insert ASCII-KANJI spacing@>
-  else if insert_skip=after_wchar then @<Insert KANJI-KANJI spacing@>;
-  insert_skip:=after_wchar;
-  end
-else
-  begin ax:=qo(character(first_char));
-  if insert_skip=after_wchar then @<Insert KANJI-ASCII spacing@>;
-  if auto_xsp_code(ax)>=2 then
-    insert_skip:=after_schar else insert_skip:=no_skip;
-  end;
-
-@ @<Insert a space after the |last_char|@>=
-if font_dir[font(last_char)]<>dir_default then
-  begin insert_skip:=after_wchar;
-  if (is_char_node(link(p)))and(font_dir[font(link(p))]<>dir_default) then
-    begin @<Append KANJI-KANJI spacing@>; p:=link(p);
-    end;
-  end
-else
-  begin ax:=qo(character(last_char));
-  if auto_xsp_code(ax)>=2 then
-    insert_skip:=after_schar else insert_skip:=no_skip;
-  end;
-
-@ @<Insert math surround spacing@>=
-begin if (subtype(p)=before)and(insert_skip=after_wchar) then
-  begin ax:=qo("0"); @<Insert KANJI-ASCII spacing@>;
-  insert_skip:=no_skip;
-  end
-else if (subtype(p)=after) then
-  begin ax:=qo("0"); insert_skip:=after_schar;
-  end
-else insert_skip:=no_skip;
-end
-
-@ @<Insert ligature surround spacing@>=
-begin t:=lig_ptr(p);
-if is_char_node(t) then
-  begin ax:=qo(character(t));
-  if insert_skip=after_wchar then @<Insert KANJI-ASCII spacing@>;
-  while link(t)<>null do t:=link(t);
-  if is_char_node(t) then
-    begin ax:=qo(character(t));
-    if auto_xsp_code(ax)>=2 then
-      insert_skip:=after_schar else insert_skip:=no_skip;
-    end;
-  end;
-end
-
-@ @<Insert penalty or displace surround spacing@>=
-begin if is_char_node(link(p)) then
-  begin q:=p; p:=link(p);
-  if font_dir[font(p)]<>dir_default then
-    begin KANJI(cx):=info(link(p));
-    if insert_skip=after_schar then @<Insert ASCII-KANJI spacing@>
-    else if insert_skip=after_wchar then @<Insert KANJI-KANJI spacing@>;
-    p:=link(p); insert_skip:=after_wchar;
-    end
-  else
-    begin ax:=qo(character(p));
-    if insert_skip=after_wchar then @<Insert KANJI-ASCII spacing@>;
-    if auto_xsp_code(ax)>=2 then
-      insert_skip:=after_schar else insert_skip:=no_skip;
-    end;
-  end
-end
-
-@ @<Insert ASCII-KANJI spacing@>=
-begin
-  begin x:=get_inhibit_pos(cx,cur_pos);
-  if x<>no_entry then
-    if (inhibit_xsp_type(x)=inhibit_both)or
-       (inhibit_xsp_type(x)=inhibit_previous) then
-      do_ins:=false else do_ins:=true
-  else do_ins:=true;
-  end;
-if do_ins then
-  begin z:=new_glue(s); subtype(z):=xkanji_skip_code+1;
-  link(z):=link(q); link(q):=z; q:=z;
-  end;
-end
-
-@ @<Insert KANJI-ASCII spacing@>=
-begin if (auto_xsp_code(ax) mod 2)=1 then
-  begin x:=get_inhibit_pos(cx,cur_pos);
-  if x<>no_entry then
-    if (inhibit_xsp_type(x)=inhibit_both)or
-       (inhibit_xsp_type(x)=inhibit_after) then
-      do_ins:=false else do_ins:=true
-  else do_ins:=true;
-  end
-else do_ins:=false;
-if do_ins then
-  begin z:=new_glue(s); subtype(z):=xkanji_skip_code+1;
-  link(z):=link(q); link(q):=z; q:=z;
-  end;
-end
-
-@ @<Insert KANJI-KANJI spacing@>=
-begin z:=new_glue(u); subtype(z):=kanji_skip_code+1;
-link(z):=link(q); link(q):=z; q:=z;
-end
-
-@ @<Append KANJI-KANJI spacing@>=
-begin z:=new_glue(u); subtype(z):=kanji_skip_code+1;
-link(z):=link(p); link(p):=z; p:=link(z); q:=z;
-end
-
-@ @<Make |jchr_widow_penalty| node@>=
-begin q:=v; p:=link(v);
-if (is_char_node(v))and(font_dir[font(v)]<>dir_default) then
-  begin q:=p; p:=link(p);
-  end;
-t:=q; s:=null;
-@<Seek list and make |t| pointing widow penalty position@>;
-if (s<>null) then
-  begin s:=link(t);
-    if (not is_char_node(s))and(type(s)=penalty_node) then
-      penalty(s):=penalty(s)+jchr_widow_penalty
-    else if (jchr_widow_penalty<>0) then
-      begin s:=new_penalty(jchr_widow_penalty); subtype(s):=widow_pena;
-      link(s):=link(t); link(t):=s; t:=link(s);
-      while(not is_char_node(t)) do
-        begin if (type(t)=glue_node)or(type(t)=kern_node) then goto exit;
-        t:=link(t);
-        end;
-      z:=new_glue(u); subtype(z):=kanji_skip_code+1;
-      link(z):=link(s); link(s):=z;
-      end;
-  end;
-end;
-
-@ @<Seek list and make |t| pointing widow penalty position@>=
-while(p<>null) do
-begin if is_char_node(p) then
-  begin if font_dir[font(p)]<>dir_default then
-    begin KANJI(cx):=info(link(p)); i:=kcat_code(kcatcodekey(cx)); k:=0;
-    if (i=kanji)or(i=kana) then begin t:=q; s:=p; end;
-    p:=link(p); q:=p;
-    end
-  else begin k:=k+1;
-    if k>1 then begin q:=p; s:=null; end;
-    end;
-  end
-else begin case type(p) of
-  penalty_node,mark_node,adjust_node,whatsit_node,
-  glue_node,kern_node,math_node,disp_node:
-    do_nothing;
-  othercases begin q:=p; s:=null; end;
-  endcases;
-  end;
-p:=link(p);
-end
-
-@ @<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-procedure dir_out;
-var @!this_box: pointer; {pointer to containing box}
-begin this_box:=temp_ptr;
-  temp_ptr:=list_ptr(this_box);
-  if (type(temp_ptr)<>hlist_node)and(type(temp_ptr)<>vlist_node) then
-    confusion("dir_out");
-  case box_dir(this_box) of
-  dir_yoko:
-    case box_dir(temp_ptr) of
-    dir_tate: {Tate in Yoko}
-      begin cur_v:=cur_v-height(this_box); cur_h:=cur_h+depth(temp_ptr) end;
-    dir_dtou: {DtoU in Yoko}
-      begin cur_v:=cur_v+depth(this_box); cur_h:=cur_h+height(temp_ptr) end;
-    endcases;
-  dir_tate:
-    case box_dir(temp_ptr) of
-    dir_yoko: {Yoko in Tate}
-      begin cur_v:=cur_v+depth(this_box); cur_h:=cur_h+height(temp_ptr) end;
-    dir_dtou: {DtoU in Tate}
-      begin
-        cur_v:=cur_v+depth(this_box)-height(temp_ptr);
-        cur_h:=cur_h+width(temp_ptr)
-      end;
-    endcases;
-  dir_dtou:
-    case box_dir(temp_ptr) of
-    dir_yoko: {Yoko in DtoU}
-      begin cur_v:=cur_v-height(this_box); cur_h:=cur_h+depth(temp_ptr) end;
-    dir_tate: {Tate in DtoU}
-      begin
-        cur_v:=cur_v+depth(this_box)-height(temp_ptr);
-        cur_h:=cur_h+width(temp_ptr)
-      end;
-    endcases;
-  endcases;
-  cur_dir_hv:=box_dir(temp_ptr);
-  if type(temp_ptr)=vlist_node then vlist_out@+else hlist_out;
-end;
-
-@ These routines are used to output diagnostic which related direction.
-
-@ @<Basic printing procedures@>=
-procedure print_dir(@!dir:eight_bits); {prints |dir| data}
-begin if dir=dir_yoko then print_char("Y")
-else if dir=dir_tate then print_char("T")
-else if dir=dir_dtou then print_char("D")
-end;
-@#
-procedure print_direction(@!d:integer); {print the direction represented by d}
-begin case abs(d) of
-dir_yoko: print("yoko");
-dir_tate: print("tate");
-dir_dtou: print("dtou");
-end;
-if d<0 then print("(math)");
-print(" direction");
-end;
-
-@ The procedure |set_math_kchar| is same as |set_math_char| which
-written in section 48.
-
-@<Declare act...@>=
-procedure set_math_kchar(@!c:integer);
-var p:pointer; {the new noad}
-begin p:=new_noad; math_type(nucleus(p)):=math_jchar;
-character(nucleus(p)):=qi(0);
-math_kcode(p):=c; fam(nucleus(p)):=cur_jfam;
-if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]=dir_default then
-  begin print_err("Not two-byte family");
-  help1("IGNORE.");@/
-  error;
-  end;
-type(p):=ord_noad;
-link(tail):=p; tail:=p;
-end;
-
-@ This section is a part of |main_control|.
-
-@<Append KANJI-character |cur_chr| ...@>=
-if is_char_node(tail) then
-  begin cx:=qo(character(tail)); @<Insert |post_break_penalty|@>;
-  end
-else if type(tail)=ligature_node then
-  begin cx:=qo(character(lig_char(tail))); @<Insert |post_break_penalty|@>;
-  end;
-if direction=dir_tate then
-  begin if font_dir[main_f]=dir_tate then disp:=0
-  else if font_dir[main_f]=dir_yoko then disp:=t_baseline_shift-y_baseline_shift
-  else disp:=t_baseline_shift;
-  main_f:=cur_tfont;
-  end
-else
-  begin if font_dir[main_f]=dir_yoko then disp:=0
-  else if font_dir[main_f]=dir_tate then disp:=y_baseline_shift-t_baseline_shift
-  else disp:=y_baseline_shift;
-  main_f:=cur_jfont;
-  end;
-@<Append |disp_node| at end of displace area@>;
-ins_kp:=false; ligature_present:=false;
-cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f));
-main_i:=orig_char_info(main_f)(qi(0));
-goto main_loop_j+3;
-@#
-main_loop_j+1: space_factor:=1000;
-  fast_get_avail(main_p); font(main_p):=main_f; character(main_p):=cur_l;
-  link(tail):=main_p; tail:=main_p; last_jchr:=tail;
-  fast_get_avail(main_p); info(main_p):=KANJI(cur_chr);
-  link(tail):=main_p; tail:=main_p;
-  cx:=cur_chr; @<Insert kinsoku penalty@>;
-  ins_kp:=false;
-again_2:
-  get_next;
-  main_i:=orig_char_info(main_f)(cur_l);
-  case cur_cmd of
-    kanji,kana,other_kchar: begin
-      cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); goto main_loop_j+3;
-      end;
-    letter,other_char: begin ins_kp:=true; cur_l:=qi(0); goto main_loop_j+3;
-      end;
-  endcases;
-  x_token;
-  case cur_cmd of
-    kanji,kana,other_kchar: cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f));
-    letter,other_char: begin ins_kp:=true; cur_l:=qi(0); end;
-    char_given: begin
-      if is_char_ascii(cur_chr) then
-        begin ins_kp:=true; cur_l:=qi(0);
-        end
-      else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f));
-      end;
-    char_num: begin scan_char_num; cur_chr:=cur_val;
-      if is_char_ascii(cur_chr) then
-        begin ins_kp:=true; cur_l:=qi(0);
-        end
-      else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f));
-      end;
-    inhibit_glue: begin inhibit_glue_flag:=true; goto again_2; end;
-    othercases begin ins_kp:=max_halfword;
-      cur_l:=qi(0); cur_r:=non_char; lig_stack:=null;
-      end;
-  endcases;
-@#
-main_loop_j+3:
-  if ins_kp=true then @<Insert |pre_break_penalty| of |cur_chr|@>;
-  @<Look ahead for glue or kerning@>;
-  if (ins_kp=false) then begin { Kanji -> Kanji }
-    goto main_loop_j+1;
-  end else if (ins_kp=true) then begin { Kanji -> Ascii }
-    {@<Append |disp_node| at begin of displace area@>;}
-    ins_kp:=false; goto main_loop;
-  end else begin { Kanji -> cs }
-    {@<Append |disp_node| at begin of displace area@>;}
-    goto reswitch;
-  end;
-
-@ @<Append |disp_node| at begin ...@>=
-begin if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin if prev_disp=disp then
-    begin free_node(tail,small_node_size); tail:=prev_node; link(tail):=null;
-    end
-  else disp_dimen(tail):=disp;
-  end
-else
-  if disp<>0 then
-    begin prev_node:=tail; tail_append(get_node(small_node_size));
-    type(tail):=disp_node; disp_dimen(tail):=disp; prev_disp:=disp;
-    end;
-end;
-
-@ @<Append |disp_node| at end ...@>=
-if disp<>0 then
-begin if (not is_char_node(tail))and(type(tail)=disp_node) then
-  begin disp_dimen(tail):=0;
-  end
-else
-  begin prev_node:=tail; tail_append(get_node(small_node_size));
-  type(tail):=disp_node; disp_dimen(tail):=0; prev_disp:=disp;
-  end;
-end;
-
-@ @<Look ahead for glue or kerning@>=
-cur_q:=tail;
-if inhibit_glue_flag<>true then
-  begin if char_tag(main_i)=gk_tag then
-    begin main_k:=glue_kern_start(main_f)(main_i);
-    repeat main_j:=font_info[main_k].qqqq;
-    if next_char(main_j)=cur_l then
-      begin if op_byte(main_j)<kern_flag then
-        begin gp:=font_glue[main_f]; cur_r:=rem_byte(main_j);
-        if gp<>null then
-          begin while((type(gp)<>cur_r)and(link(gp)<>null)) do gp:=link(gp);
-          gq:=glue_ptr(gp);
-          end
-        else
-          begin gp:=get_node(small_node_size); font_glue[main_f]:=gp;
-          gq:=null;
-          end;
-        if gq=null then
-          begin type(gp):=cur_r; gq:=new_spec(zero_glue);
-          glue_ptr(gp):=gq;
-          main_k:=exten_base[main_f]+qi((qo(cur_r))*3);
-          width(gq):=font_info[main_k].sc;
-          stretch(gq):=font_info[main_k+1].sc;
-          shrink(gq):=font_info[main_k+2].sc;
-          add_glue_ref(gq); link(gp):=get_node(small_node_size);
-          gp:=link(gp); glue_ptr(gp):=null; link(gp):=null;
-          end;
-        tail_append(new_glue(gq)); subtype(tail):=jfm_skip+1;
-        goto skip_loop;
-        end
-      else  begin
-        tail_append(new_kern(char_kern(main_f)(main_j)));
-        goto skip_loop;
-        end;
-    end;
-  incr(main_k);
-  until skip_byte(main_j)>=stop_flag;
-  end;
-end;
-skip_loop: inhibit_glue_flag:=false;
-
-@ @<Basic printing...@>=
-procedure print_kanji(@!s:KANJI_code); {prints a single character}
-begin
-if s>255 then
-  begin print_char(Hi(s)); print_char(Lo(s));
-  end else print_char(s);
-end;
-
-@* \[56] System-dependent changes.
-@z
+% where the three small files denoted as glue resolve incompatibilities
+% between the main change files (used to build TeX, e-TeX, and pTeX).
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index 8c40aac55d7..ba29c389e54 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -1,3 +1,5 @@
+% eptexdir/eptex.ech: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
+% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
 
 @x e-pTeX: logo
 \def\eTeX{$\varepsilon$-\TeX}
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch0 b/Build/source/texk/web2c/eptexdir/etex.ch0
index e4916ee1bdc..5da8d0e05ab 100644
--- a/Build/source/texk/web2c/eptexdir/etex.ch0
+++ b/Build/source/texk/web2c/eptexdir/etex.ch0
@@ -1,35 +1,32 @@
+% eptexdir/etex.ch0: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
+% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
 
-@x
+@x [15.208]
   {( or \.{\\pagediscards}, \.{\\splitdiscards} )}
 @y
 @z
-
-@x
+@x [15.208]
   {or text direction directives ( \.{\\beginL}, etc.~)}
 @y
 @z
-
-@x
+@x [15.208]
   {( or \.{\\middle} )}
 @y
 @z
 
-@x
+@x [15.209]
   {( or \.{\\interactionmode} )}
 @y
 @z
-
-@x
+@x [15.209]
   {(or \.{\\interlinepenalties}, etc.~)}
 @y
 @z
-
-@x
+@x [15.209]
   {( or \.{\\protected} )}
 @y
 @z
-
-@x
+@x [15.209]
   {( or \.{\\readline} )}
 @y
 @z
@@ -43,13 +40,13 @@
 @d count_base=int_base+int_pars {256 user \.{\\count} registers}
 @z
 
-@x
+@x [26.420]
 if q=null then cur_val:=0 @+else cur_val:=mem[q+m].sc;
 @y
 if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
 @z
 
-@x
+@x [27.468]
 @d etex_convert_base=5 {base for \eTeX's command codes}
 @d eTeX_revision_code=etex_convert_base {command code for \.{\\eTeXrevision}}
 @d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes}
@@ -58,7 +55,12 @@ if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
 @d job_name_code=5 {command code for \.{\\jobname}}
 @z
 
-@x
+@x [30.581]
+var old_setting: integer; {saved value of |tracing_online|}
+@y
+@z
+
+@x [32.619]
 save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v;
 prev_p:=this_box+list_offset;
 @<Initialize |hlist_out| for mixed direction typesetting@>;
@@ -67,12 +69,25 @@ left_edge:=cur_h;
 save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h;
 @z
 
-@x
+@x [32.620]
   prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|}
 @y
 @z
 
-@x
+@x [32.624] l.13005 - pTeX: output a box(and dir_node) with disp
+  cur_h:=edge; cur_v:=base_line;
+@y
+  cur_h:=edge+width(p); cur_v:=base_line;
+@z
+
+@x [33.649]
+exit: if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>;
+hpack:=r;
+@y
+exit: hpack:=r;
+@z
+
+@x [44.977]
 q:=prune_page_top(q,saving_vdiscards>0);
 p:=list_ptr(v); free_node(v,box_node_size);
 if q<>null then q:=vpack(q,natural);
@@ -83,25 +98,24 @@ if q=null then box(n):=null {the |eq_level| of the box stays the same}
 else box(n):=vpack(q,natural);
 @z
 
-@x
+@x [47.1080]
     begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then
       remove_end_M;
 @y
 @z
-
-@x
+@x [47.1080]
     if LR_temp<>null then insert_end_M;
     end;
 @y
 @z
 
-@x
+@x [47.1096]
   else line_break(false);
 @y
   else line_break(widow_penalty);
 @z
 
-@x
+@x [47.1105]
 else  begin if not is_char_node(tail) then
   begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then
     remove_end_M;
@@ -109,22 +123,27 @@ else  begin if not is_char_node(tail) then
 @y
 else  begin if not is_char_node(tail) then if type(tail)=cur_chr then
 @z
-
-@x
+@x [47.1105]
   if LR_temp<>null then insert_end_M;
   end;
 @y
 @z
 
-@x
+@x [47.1110]
 else  begin link(tail):=list_ptr(p); change_box(null);
 @y
 else  begin link(tail):=list_ptr(p); box(cur_val):=null;
 @z
 
-@x
+@x [48.1145]
 else  begin line_break(true);@/
 @y
 else  begin line_break(display_widow_penalty);@/
 @z
 
+@x [49.1247]
+if b<>null then mem[b+c].sc:=cur_val;
+@y
+if box(b)<>null then mem[box(b)+c].sc:=cur_val;
+@z
+
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch1 b/Build/source/texk/web2c/eptexdir/etex.ch1
index 8cc64f4b363..adf57d5f4ee 100644
--- a/Build/source/texk/web2c/eptexdir/etex.ch1
+++ b/Build/source/texk/web2c/eptexdir/etex.ch1
@@ -1,5 +1,7 @@
+% eptexdir/etex.ch1: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
+% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
 
-@x
+@x [1.2]
 @d banner==pTeX_banner
 @d banner_k==pTeX_banner_k
 @y
@@ -7,28 +9,32 @@
 @d banner_k==epTeX_banner_k
 @z
 
-@x
+@x [12.184]
+    begin print(", "); print_direction(box_dir(p));
+@y
+    begin print_direction_alt(box_dir(p));
+@z
+
+@x [15.208]
 @d un_vbox=un_hbox+1 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )}
 @y
 @d un_vbox=un_hbox+1 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )}
   {( or \.{\\pagediscards}, \.{\\splitdiscards} )}
 @z
-
-@x
+@x [15.208]
 @d valign=halign+1 {vertical table alignment ( \.{\\valign} )}
 @y
 @d valign=halign+1 {vertical table alignment ( \.{\\valign} )}
   {or text direction directives ( \.{\\beginL}, etc.~)}
 @z
-
-@x
+@x [15.208]
 @d left_right=eq_no+1 {variable delimiter ( \.{\\left}, \.{\\right} )}
 @y
 @d left_right=eq_no+1 {variable delimiter ( \.{\\left}, \.{\\right} )}
   {( or \.{\\middle} )}
 @z
 
-@x
+@x [15.209]
 @d set_box_dimen=set_page_int+1 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )}
 @d set_shape=set_box_dimen+1 {specify fancy paragraph shape ( \.{\\parshape} )}
 @y
@@ -37,8 +43,7 @@
 @d set_shape=set_box_dimen+1 {specify fancy paragraph shape ( \.{\\parshape} )}
   {(or \.{\\interlinepenalties}, etc.~)}
 @z
-
-@x
+@x [15.209]
 @d let=prefix+1 {assign a command code ( \.{\\let}, \.{\\futurelet} )}
 @d shorthand_def=let+1 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)}
 @d read_to_cs=shorthand_def+1 {read into a control sequence ( \.{\\read} )}
@@ -50,7 +55,7 @@
   {( or \.{\\readline} )}
 @z
 
-@x
+@x [17.236]
 @d int_pars=60 {total number of integer parameters}
 @d count_base=int_base+int_pars {256 user \.{\\count} registers}
 @y
@@ -59,13 +64,13 @@
 @d etex_int_base=tex_int_pars {base for \eTeX's integer parameters}
 @z
 
-@x
+@x [26.413]
 @!q:halfword; {general purpose index}
 @y
 @!qx:halfword; {general purpose index}
 @z
 
-@x
+@x [26.420]
 if box(cur_val)=null then cur_val:=0
 else
    begin q:=box(cur_val);
@@ -81,7 +86,7 @@ else
     begin q:=new_dir_node(qx,abs(direction));
 @z
 
-@x
+@x [27.468]
 @d job_name_code=10 {command code for \.{\\jobname}}
 @y
 @d etex_convert_base=10 {base for \eTeX's command codes}
@@ -90,7 +95,14 @@ else
 @d job_name_code=etex_convert_codes {command code for \.{\\jobname}}
 @z
 
-@x
+@x [30.581]
+var @!l:0..255; {small indices or counters}
+@y
+var @!l:0..255; {small indices or counters}
+old_setting: integer; {saved value of |tracing_online|}
+@z
+
+@x [32.619]
 base_line:=cur_v; left_edge:=cur_h; disp:=0;
 @y
 base_line:=cur_v; disp:=0; revdisp:=0;
@@ -99,7 +111,59 @@ prev_p:=this_box+list_offset;
 left_edge:=cur_h;
 @z
 
-@x
+@x [32.622]
+@<Output node |p| for |hlist_out|...@>=
+@y
+@<Output node |p| for |hlist_out|...@>=
+@z
+@x [32.622]
+    p:=link(p);
+@y
+    prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|}
+    p:=link(p);
+@z
+
+@x [32.623]
+disp_node: begin disp:=disp_dimen(p); cur_v:=base_line+disp; end;
+@y
+disp_node: begin disp:=disp_dimen(p); revdisp:=disp; cur_v:=base_line+disp; end;
+@z
+
+@x [32.624]
+  cur_h:=edge+width(p); cur_v:=base_line+disp; cur_dir_hv:=save_dir;
+@y
+  cur_h:=edge; cur_v:=base_line+disp; cur_dir_hv:=save_dir;
+@z
+
+@x [33.649]
+exit: last_disp:=disp; hpack:=r;
+@y
+exit: last_disp:=disp;
+if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>; 
+hpack:=r;
+@z
+
+@x [33.651]
+  disp_node:disp:=disp_dimen(p);
+@y
+  disp_node:begin disp:=disp_dimen(p); revdisp:=disp; end;
+@z
+
+@x [44.977]
+q:=prune_page_top(q); p:=list_ptr(v);
+if q=null then box(n):=null {the |eq_level| of the box stays the same}
+else begin
+  box(n):=vpack(q,natural); box_dir(box(n)):=box_dir(v);
+  end;
+@y
+q:=prune_page_top(q,saving_vdiscards>0); p:=list_ptr(v);
+if q<>null then begin
+    q:=vpack(q,natural); box_dir(q):=box_dir(v);
+  end;
+change_box(q);
+@z
+
+@x [47.1080]
     if (type(tail)=hlist_node)or(type(tail)=vlist_node)
           or(type(tail)=dir_node) then
       @<Remove the last box, unless it's part of a discretionary@>;
@@ -113,19 +177,67 @@ left_edge:=cur_h;
     end;
 @z
 
-@x
+@x [47.1096]
   else begin adjust_hlist(head,true); line_break(widow_penalty)
 @y
   else begin adjust_hlist(head,true); line_break(false)
 @z
 
-@x
+@x [47.1105]
+  if not is_char_node(tail) then if type(tail)=cur_chr then
+@y
+  if not is_char_node(tail) then
+  begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then
+    remove_end_M;
+  if type(tail)=cur_chr then
+@z
+@x [47.1105]
+        begin prev_node:=tail; prev_disp:=disp; tail_append(d)
+        end
+@y
+        begin prev_node:=tail; prev_disp:=disp; tail_append(d)
+        end;
+  if LR_temp<>null then insert_end_M;
+  end;
+@z
+
+@x [47.1110]
+  begin if type(box(cur_val))=dir_node then
+    begin delete_glue_ref(space_ptr(box(cur_val)));
+    delete_glue_ref(xspace_ptr(box(cur_val)));
+    free_node(box(cur_val),box_node_size);
+@y
+  begin if type(p)=dir_node then
+    begin delete_glue_ref(space_ptr(p));
+    delete_glue_ref(xspace_ptr(p));
+    free_node(p,box_node_size);
+@z
+@x [47.1110]
+  link(tail):=list_ptr(p); box(cur_val):=null;
+@y
+  link(tail):=list_ptr(p); change_box(null);
+@z
+
+@x [48.1145]
 else  begin adjust_hlist(head,true); line_break(display_widow_penalty);@/
 @y
 else  begin adjust_hlist(head,true); line_break(true);@/
 @z
 
-@x
+@x [49.1247]
+if box(b)<>null then
+  begin q:=box(b); p:=link(q);
+@y
+if b<>null then
+  begin q:=b; p:=link(q);
+@z
+@x [49.1247]
+    link(q):=link(box(b)); link(box(b)):=q;
+@y
+    link(q):=link(b); link(b):=q;
+@z
+
+@x [49.1291]
 @d show_mode=4 { \.{\\showmode} }
 @y
 @d show_mode=7 { \.{\\showmode} }
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index e78ae593e1d..4d9bc2c6a83 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -66,7 +66,7 @@
 @!KANJI_code=0..65535; {sixteen-bit numbers}
 @z
 
-@x [4.??] l.870 - pTeX:
+@x [3.??] l.870 - pTeX:
 @!eight_bits=0..255; {unsigned one-byte quantity}
 @y
 @!eight_bits=0..255; {unsigned one-byte quantity}
@@ -2589,24 +2589,18 @@ else if cur_cmd=def_tfont then f:=cur_tfont
 else if cur_cmd=def_font then f:=cur_font
 @z
 
-@x
+@x [30.581]
 @p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-begin if tracing_lost_chars>0 then
-  begin begin_diagnostic;
-  print_nl("Missing character: There is no ");
-@.Missing character@>
-  print_ASCII(c); print(" in font ");
-  slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
 @y
 @d print_lc_hex(#)==l:=#;
   if l<10 then print_char(l+"0")@+else print_char(l-10+"a")
 
 @p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
 var @!l:0..255; {small indices or counters}
-begin if tracing_lost_chars>0 then
-  begin begin_diagnostic;
-  print_nl("Missing character: There is no ");
-@.Missing character@>
+@z
+@x [30.581]
+  print_ASCII(c); print(" in font ");
+@y
   if (c<" ")or(c>"~") then
     begin print_char("^"); print_char("^");
     if c<64 then print_char(c+64)
@@ -2615,7 +2609,6 @@ begin if tracing_lost_chars>0 then
     end
   else print_ASCII(c);
   print(" in font ");
-  slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
 @z
 
 @x [31.586] l.12189 - pTeX: define set2
@@ -3029,11 +3022,18 @@ var r:pointer; {the box node that will be returned}
 @!disp:scaled; {displacement}
 @z
 
-@x [33.649] l.13533 - pTeX: hpack
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
+@x [33.649] l.13535 - pTeX: hpack
+q:=r+list_offset; link(q):=p;@/
+h:=0; @<Clear dimensions to zero@>;
+@y
+space_ptr(r):=cur_kanji_skip; xspace_ptr(r):=cur_xkanji_skip;
+add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
+k:=cur_kanji_skip;
 q:=r+list_offset; link(q):=p;@/
 h:=0; @<Clear dimensions to zero@>;
+disp:=0;
+@z
+@x [33.649] l.13537 - pTeX: hpack
 while p<>null do @<Examine node |p| in the hlist, taking account of its effect
   on the dimensions of the new box, or moving it to the adjustment list;
   then advance |p| to the next node@>;
@@ -3046,14 +3046,6 @@ common_ending: @<Finish issuing a diagnostic message
 exit: hpack:=r;
 end;
 @y
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-subtype(r):=min_quarterword; shift_amount(r):=0;
-space_ptr(r):=cur_kanji_skip; xspace_ptr(r):=cur_xkanji_skip;
-add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip);
-k:=cur_kanji_skip;
-q:=r+list_offset; link(q):=p;@/
-h:=0; @<Clear dimensions to zero@>;
-disp:=0;
 while p<>null do @<Examine node |p| in the hlist, taking account of its effect
   on the dimensions of the new box, or moving it to the adjustment list;
   then advance |p| to the next node@>;
@@ -3081,15 +3073,6 @@ if p<>null then
   ins_node,mark_node,adjust_node: if adjust_tail<>null then
     @<Transfer node |p| to the adjustment list@>;
   whatsit_node:@<Incorporate a whatsit node into an hbox@>;
-  glue_node:@<Incorporate glue into the horizontal totals@>;
-  kern_node,math_node: x:=x+width(p);
-  ligature_node: @<Make node |p| look like a |char_node|
-    and |goto reswitch|@>;
-  othercases do_nothing
-  endcases;@/
-  p:=link(p);
-  end;
-end
 @y
 @ @<Examine node |p| in the hlist, taking account of its effect...@>=
 @^inner loop@>
@@ -3106,14 +3089,6 @@ if p<>null then
     if adjust_tail<>null then @<Transfer node |p| to the adjustment list@>;
   whatsit_node:@<Incorporate a whatsit node into an hbox@>;
   disp_node:disp:=disp_dimen(p);
-  glue_node:@<Incorporate glue into the horizontal totals@>;
-  kern_node,math_node:x:=x+width(p);
-  ligature_node:@<Make node |p| look like a |char_node| and |goto reswitch|@>;
-  othercases do_nothing
-  endcases;@/
-  p:=link(p);
-  end;
-end
 @z
 
 @x [33.653] l.13589 - pTeX: displacement
@@ -4031,8 +4006,6 @@ if q<>null then {|q| cannot be a |char_node|}
   else  begin if type(q)=disc_node then
       @<Change discretionary to compulsory and set
         |disc_break:=true|@>
-    else if (type(q)=math_node)or(type(q)=kern_node) then width(q):=0;
-    end
 @y
 if q<>null then {|q| may be a |char_node|}
   begin if not is_char_node(q) then
@@ -4045,7 +4018,10 @@ if q<>null then {|q| may be a |char_node|}
     else  begin if type(q)=disc_node then
         @<Change discretionary to compulsory and set
           |disc_break:=true|@>
-      else if (type(q)=math_node)or(type(q)=kern_node) then width(q):=0;
+@z
+@x [39.881] l.17961 - pTeX: |q| may be a |char_node|
+    end
+@y
       end
   end
 @z
@@ -4614,12 +4590,10 @@ end
 var @!p,@!q:pointer; {run through the current list}
 @!m:quarterword; {the length of a replacement list}
 @!k:halfword; {0 or |vmode| or |hmode|}
-@!n:eight_bits; {a box number}
 @y
 var @!p,@!q:pointer; {run through the current list}
 @!m:quarterword; {the length of a replacement list}
 @!k:halfword; {0 or |vmode| or |hmode|}
-@!n:eight_bits; {a box number}
 @!a_dir:eight_bits; {adjust direction}
 @!d:pointer; {last |disp_node|}
 @!disp,@!pdisp:scaled; {displacement}
@@ -4974,7 +4948,6 @@ if c=copy_code then link(tail):=copy_node_list(list_ptr(p))
 else  begin link(tail):=list_ptr(p); box(cur_val):=null;
   free_node(p,box_node_size);
   end;
-while link(tail)<>null do tail:=link(tail);
 @y
 if type(p)=dir_node then p:=list_ptr(p);
 if (abs(mode)=mmode)or((abs(mode)=vmode)and(type(p)<>vlist_node))or@|
@@ -5009,6 +4982,10 @@ else
   delete_glue_ref(xspace_ptr(p));
   free_node(p,box_node_size);
   end;
+@z
+@x [47.1110] l.22014 - pTeX: free box node, delete kanji_skip
+while link(tail)<>null do tail:=link(tail);
+@y
 while link(tail)<>null do
   begin p:=tail; tail:=link(tail);
   if not is_char_node(tail) then
@@ -5637,17 +5614,16 @@ else if cur_chr=kcat_code_base then n:=max_char_code
 @x [49.1247] l.24083 - pTeX: alter_box_dimen : box_dir
 procedure alter_box_dimen;
 var c:small_number; {|width_offset| or |height_offset| or |depth_offset|}
-@!b:eight_bits; {box number}
-begin c:=cur_chr; scan_eight_bit_int; b:=cur_val; scan_optional_equals;
-scan_normal_dimen;
-if box(b)<>null then mem[box(b)+c].sc:=cur_val;
-end;
 @y
 procedure alter_box_dimen;
 var c:small_number; {|width_offset| or |height_offset| or |depth_offset|}
-@!b:eight_bits; {box number}
 @!p,q:pointer; {temporary registers}
-begin c:=cur_chr; scan_eight_bit_int; b:=cur_val; scan_optional_equals;
+@z
+@x [49.1247] l.24087 - pTeX: alter_box_dimen : box_dir
+scan_normal_dimen;
+if box(b)<>null then mem[box(b)+c].sc:=cur_val;
+end;
+@y
 scan_normal_dimen;
 if box(b)<>null then
   begin q:=box(b); p:=link(q);