diff --git a/Makefile b/Makefile
index a8cdf720..80b33059 100644
--- a/Makefile
+++ b/Makefile
@@ -10,9 +10,9 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
       jim jm jpg macrak maxdoc maxsrc mrg munfas paulw reh rlb rlb% share \
       tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys \
-      draw wl taa
+      draw wl taa tj6
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
-      chprog sail draw wl pc
+      chprog sail draw wl pc tj6
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon \
       graphs draw datdrw
 
diff --git a/build/misc.tcl b/build/misc.tcl
index 63b90af6..8910cff2 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -787,3 +787,13 @@ respond "*" ":load sysbin;xxfile bin\r"
 respond "*" "ttyop1\033b\033g"
 expect ":PDUMP SYS2;TS XXFILE"
 type ":kill\r"
+
+# TJ6
+respond "*" ":midas sysbin;_tj6;tj6\r"
+expect ":KILL"
+respond "*" ":job tj6\r"
+respond "*" ":load sysbin; tj6 bin\r"
+respond "*" "purify\033g"
+respond "DSK: SYS; TS NTJ6" "\r"
+respond "*" ":kill\r"
+respond "*" ":link sys; ts tj6, sys; ts ntj6\r"
diff --git a/doc/programs.md b/doc/programs.md
index 46123ba7..82750a78 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -181,6 +181,7 @@
 - TIMES, TCP time server.
 - TIMOON, displays the time and phase of the moon.
 - TIMSRV, RFC 868 network time protocol.
+- TJ6, typesetting software.
 - TMPKIL, clean out old files in .TEMP.;.
 - TREK, Star Trek game.
 - TTLOC, Advertises physical location of logged in users.
diff --git a/doc/tj6/-read-.-this- b/doc/tj6/-read-.-this-
new file mode 100644
index 00000000..eecd8464
--- /dev/null
+++ b/doc/tj6/-read-.-this-
@@ -0,0 +1,25 @@
+This directory is maintained by BKPH and JDC.
+It contains:
+	.INSRT'able files for TJ6 users;
+	TJ6 documentation;
+	various test programs;
+	and TJ6 source listings.
+-READ- -THIS-	This file
+.TECO.  (INIT)	Some random macros for use in writing TJ6MEM >
+ERROR  > 	Part of source for ORDER XGP
+NNTJ6  > 	Current NNTJ6 and NTJ6 MIDAS source
+NTJ6   142   	Old (12/13/73 TJ6 source.)
+ORDER  >  	ORDER TJ6 source (.insrts ERROR > and SPACES >)
+ORDER  MEMO	:PRINTable TJ6 ORDER
+ORDER  XGP   	XGPable TJ6 ORDER
+SPACES >	Part of ORDER source
+SPTEST >	Test File
+TABTST >	Test File
+TJ6    129	Super old TJ6 source (12/13/73).
+TJ6    ARCHIV	All changes to TJ6 since 6/74.
+TJ6    LPT	.INSRTable file with LPT page and text sizes
+TJ6    TERMIN	.INSRTable file with TERMINET page and text sizes
+TJ6MEM mumble	Sources and outputs for new TJ6 AI MEMO #164B
+TJTST  30    	Test file
+VJTEST 1     	Test file
+
\ No newline at end of file
diff --git a/doc/tj6/tj6.archiv b/doc/tj6/tj6.archiv
new file mode 100644
index 00000000..a7e3badb
--- /dev/null
+++ b/doc/tj6/tj6.archiv
@@ -0,0 +1,392 @@
+WBA 2/4/78  version 26
+
+BUFSIZ increased from 200 to 600 (determines free storage)
+
+GLS 12/26/77  version 25
+
+[1] The maximum number of fonts has been raised
+    from six to ten.  Thus any decimal digit may
+    follow a ^F character.
+[2] One may write ^F*, which means pop the font
+    to the state before the last ^Fn command.
+    There is a ring buffer for this, so that
+    ^Fn ... ^F* may be nested about 64 deep.
+[3] .LTRSPC 0 prevents TJ6 from putting extra
+    space between letters of a word when adjusting
+    for the XGP.  .LTRSPC 1 (the default) reenables
+    this.
+[4] .XGP used to be ignored if the output device
+    was not DSK.  Now it is ignored only if the
+    output device is LPT or TPL.
+
+JDC  5/16/75   New NNTJ6 (and NTJ6) fixes some  bugs.  New features:
+.SQUISH  causes ;SQUISH to appear on XGP command page
+.ASP	absolute space.  Like .SPACE, but leaves same amount of space when
+	 SINGLE or DOUBLE spacing.
+.ABLOCK	absolute BLOCK.  Like .BLOCK, but not dependent on SINGLE or DOUBLE.
+ (control G)	new in-text command equivalent to .GENNUM 1 1.
+TJ6 will soon be identical to NNTJ6 and NTJ6.
+Reminder:  I'm still ignoring bug reports without source files, and all requests for
+   features.
+
+2/25/75
+NTJ6_NNTJ6.7 NNTJ6_NNTJ6.8
+NNTJ6.8 fixes some bugs: .HYPHEN, :JCL mumble <cr>P, etc.
+Also, as promised, eliminates commands in favor of in-text characters, or command switches:
+BSCORE	ESCORE	HDFONT	SELECT	SF	DATE	FNAME	CONTEN
+							/C
+
+1/75
+Because of some particularly bad default conditions in NNTJ6.6,
+NNTJ6 has been unfrozen and refrozen, and NNTJ6.7 has the following changes:
+The default size of a tab and spacing unit has been changed to
+	the largest character in font 0. The new command TABFNT
+	can be used to change this.
+Tabs and spaces which cause breaks will never be compacted.
+TABINC has gone away.
+Three command names have been changed to things that can be remembered:
+	PGN to NOHEAD
+	PGNRGH to HEADPW
+	RL to RTW
+BLUP and BLDOWN are flushed in favor of SCRIPT.
+There are 8 GENNUM counters.
+/X makes the output default 2nd file name XGP.
+NNTJ6.7 is not restartable and kills itself after one file.
+It is one block smaller the block which was flushed was unpure. (Total 6 blocks,
+	3 pure.)  This is part of President Ford's WIN program.
+
+For details, XGP TJ6;ORDER MEMO, or :print TJ6;TJ6 ORDER.
+This file has a writeup on spaces and tabs, and explains error mesages.
+
+11/27/74  JDC
+
+18 November, 1974
+There are many changes, some incompatible, in NNTJ6.6.
+The complete list of NNTJ6 commands is TJ6;TJ6 ORDER.  (XGP Version -- TJ6;ORDER MEMO)
+
+1) Contents:  TJ6 when asked to do a table of contents,
+outputs a file which is suitable for input to TJ6, and is a series of .SPREAD
+commands, eg,
+	.Spread
+	/First Section Heading//1/
+	.Spread
+	/Second section//2/
+etc.  TJ6 will use a / as the field seperator in writing .SPREADs,
+unless this is changed with the .STERM command, which takes one character
+as an argument (like .DUMMY).
+The preferred method of causing a table of contents to be produced is to
+type /C in the command line. If one uses the .CONTEN command instead,
+it must appear before any text.  (This command may go away soon.)
+The default output 2nd filename when /C is typed is CONTEN instead of MEMO.
+
+2)  Tabs on the XGP will try to align so that things which line up in TECO will
+also line up in TJ6.  In order to do this, tabstops will be equal to
+8 * the width of the largest character read in all fonts.
+Units for .INDENT, .TW, .RLINE, etc., and spaces at the
+beginning of a line will all be 1/8th of a tabstop wide.
+To change this, (but risk not having TJ6 and TECO be isomorphic with
+respect to tab alignment,) use:
+	.TABINC <number> sets width of a tabstop in inches
+	.SPW <number> sets the width of the spacing unit in XGP dots (and a tabstop
+is 8 times as wide).
+
+3)  (Control Q) is now the default quoting character.
+
+4)  (Control D) and (Control N) are two new in-text command
+characters which respectively insert the date and file name into the text
+(like .DATE and .FNAME).  The date is now of the form "November 78, 2965"
+instead of MM/DD/YY.  The in text characters should be preferred to the
+commands as the latter may go away.
+
+5) Redundant carriage returns will be retained in the output text.  To turn this
+off use:
+	.CRCOMP compacts carriage returns.  The opposite is:
+	.CRRETA retains carriage rturns.
+
+6) The size of a .BLOCK implied by a .SECT can be controlled with
+	.SBLOCK <number>
+
+7) Other new commands:
+.CRBR all carriage returns break.
+.CRSP carriage returns in fill and adjust mode are like spaces (default).
+.SPBR leading spaces and tabs cause a break (default).
+.SPSP they don't break.
+.SPCOMP compact spaces in FILL and ADJUST modes.
+.SPRETA retain spaces.  These last two commands are affected by
+	.FILL, .ADJUST, and .HALFAD, the first two of which do an automatic
+	.SPRETA, and the latter two do a .SPCOMP.
+Note that the combination of .SPSP and .SPCOMP will allow input text that
+has leading spaces or tabs to be treated as though those tabs or spaces weren't there.
+
+8) The .TABSET command has died an early death.
+
+9) -- (dash) will not be broken between the hyphens.
+
+10) Font files which don't open will have the ERR device message printed.
+
+11) The commands which should appear before text in the input file:
+.XGP, .FONT, and .CONTEN, will have an error message printed if they
+appear after text.
+
+12) PGNRGH will now align headings on both sides with the page boundaries.
+
+13) The p"pages" message printed by TJ6 is now the actual number of
+pages printed, rather than the last page number.
+
+14) Rubouts in the command string work better from displays.
+
+15) NNTJ6.6 is now down to 7 core blocks (but just barely).  This is one less than NNT6.5,
+and in spite gross additions (like variable width hackery) is only one greater than TJ6.
+Its small size (and shared pages) is one of the main reasons that TJ6 runs
+so much quicker than PUB (which is 54 blocks as soon as you type PUB^K, and gets
+bigger faster than Alice in Wonderland.)  I aim to keep TJ6 small, and I therefore declare
+it frozen, with the possibility of removing some commands.
+The commands likely to be flushed, which all can be effected some other way, are:
+	.FNAME (use )
+	.DATE  (use )
+	.SELECT and .SF (use )
+	.BSCORE (use )
+	.ESCORE (use )
+	One of .BLUP .BLDOWN
+	.HDFONT (use )
+Also TJ6 may kill itself after printing one file.
+
+16) I need source files in order to find bugs!!!
+A bug which looks easy to recreate often depends on
+som special circumstance in the source file, and is next to impossible for me to
+duplicate.
+
+--JDC
+
+
+            TJ6 Recent Changes                   1_             NNTJ6 3 -- 24 June, 1974
+
+






                                        or, T_h_e_ _N_e_w_ _R_e_g_i_m_e_
+
+
            There are important new changes to the text justifier.  These changes are
+            incorporated in NNTJ6.  After a while, NNTJ6 will become the standard TJ6,
+            so use NNTJ6 and help get the bugs out.
+
+            Most of these changes are designed to straighten out the mess which is the
+            insides of TJ6. Changes visible to the user are:
+
+            NNTJ6 is half p_u_r_e_ _c_o_d_e_.  Hopefully this will speed it up in certain
+            circumstances.
+
+            It has some n_e_w_ _c_o_m_m_a_n_d_s_:
+            ._P_W_I_N_C_H_ _n_ -- sets paper width (.PAPERW) in tenths of an inch.  E.G., 
+                     .PWINCH 8.5 sets the physical paper width to 8.5 inches.
+            ._T_W_I_N_C_H_ _n_ -- sets text width (.LINE) 
+            ._P_L_I_N_C_H_ _n_ -- paper length (.PSIZE) 
+            ._T_L_I_N_C_H_ _n_ -- text length (.PAPER) 
+            ._S_I_N_C_H_ _a_,_b_,_c_,_d_,_e_ -- sets paper width, text width, paper length, text
+                    length, and left margin  in inches respectively to a,b,c,d, and e.
+                    E.G., 
+                     .SINCH 8.5,6.,11,8.0,1.5 sets the physical paper size to 8 1/2x11,
+                    the text size to 6x8, and left margin to 1 1/2 inches.
+
+            ._F_I_N_C_H_ _n_ -- sets figure size in inches.
+                     ._F_I_G_U_R_E_ _n_ nows treats its argument as an absolute number of lines
+                    (irregardless of whether you are single or double spacing).
+
+            ._F_O_N_T_ _n_ _F_i_l_e_ _N_a_m_e_ -- associates font n with the appropriate font file.
+                    This is used to set font height and width, for use by various size
+                    commands, and to set the font name for the XGPLPT command page.
+                     .FONT 1 LGI makes font 1 FONTS;LGI KST.
+                    (This command actually causes the entire font to be read in and
+                    groveled over, so it takes a while to execute.  The only legal
+                    device names are AI and DSK.) 
+
+            ._V_S_P_ -- sets interline space. Units are XGP raster dots, 1/192nds of an
+                    inch.  (Default is 6.) 
+
+            ._H_V_W_ _a_,_b_,_c_ -- sets the height of font 0, VSP, and width of a space in font
+                    0 respectively to a, b, and c.  The defaults are 25, 6, and 16 for
+                    the XGP, and 24, 6, and 19 for non-XGP.  These data are used by the
+                    commands which set size in inches.  .HVW is a quicker way of
+                    reading in this information than .FONT.
+
+            X_G_P_L_P_T_ _c_o_m_m_a_n_d_ _p_a_g_e_ -- If TJ6 thinks it's outputting to the XGP, (i.e.,
+                    output device is DSK: and there was either a /X in the command line
+                    or a .XGP command,) it automatically outputs a page of XGPLPT
+                    commands:
+
+
+            TJ6 Recent Changes                   2_             NNTJ6 3 -- 24 June, 1974
+
+






                    ;TOPMAR 0
+                    ;BOTMAR 0
+                    ;LFTMAR 0
+                    ;VSP n
+                    ;KSET any font names you have specified with .FONT
+                    ;SKIP 1
+                    To prevent TJ6 from doing this, use:
+            ._N_O_S_P_E_C_ -- turns off automatic output of XGPLPT commands.
+
+            ._U_L_F_O_N_T_ _n_ -- causes printing in font n to be underlined if output is not to
+                    the XGP.  Default is .ULFONT 1.  (This is helpful if the ulfont is
+                    italicized.)  (To turn off, make n <0 or >3.) 
+
+
            _ _(_c_o_n_t_r_o_l_ _Y_)_ -- in text command character which begins underscore.
+            _ _(_c_o_n_t_r_o_l_ _X_)_ -- in text command character which ends underscore.
+            Note that underscoring is treated differently by TJ6 and the XGP than
+                    backspacing and overstriking with underbars.  For underscoring, TJ6
+                    outputs special XGP underscore commands.  For overstriking, TJ6
+                    backspaces and overstrikes.  (Complicated, huh?) For most fonts,
+                    the _ character is defined to look like underscoring.  For a couple
+                    it isn't.  So if you mean underscore, do it, and if you mean
+                    overstruck _, do that.  (Backspacing and overstriking of all
+                    characters once again win in .NOFILL mode.) 
+
+            All the in text command characters should now work on centered, spread,
+                    etc.,  lines, and in the header.  Those in-text characters which
+                    make sense to non-XGP devices are:  (control Y), begin underscore;
+                     (control X), end underscore; and  (control F), font switch,
+                    which makes sense because of .ULFONT). Other in-text commands are
+                    ignored if not to the XGP.
+
+            H_i_d_d_e_n_ _h_y_p_h_e_n_s_ work!
+
+            ^^_C_ _(_c_o_n_t_r_o_l_ _C_)_ is now read by TJ6 like any other input character, but TECO
+                    makes these difficult to insert.  Also they are not typed out in
+                    block mode .IOTs to teletypes, due to a system "feature".
+
+            Characters which have been quoted (with the quoting character), will be
+                    printed on the XGP in "normal" mode.  E.G., quoting character
+                    followed by a backspace will print as lambda, rather than
+                    backspace.  To turn this off use:
+                     ._N_O_R_M_A_L_ _n_ -- if no argument or n=0, turns off "normalization" of
+                    quoted characters to the XGP, otherwise turns it on.  This command
+                    does not break.
+
+
            F_L_U_S_H_E_D_ _C_O_M_M_A_N_D_S_ 
+            The following commands have been noops for a while, and are now gone:
+                     .BSPDIR (Back spacing is always direct.)
+
+
+            TJ6 Recent Changes                   3_             NNTJ6 3 -- 24 June, 1974
+
+






                     .QUICK
+                     .TABS
+                     .TABSET
+                     .C2471
+                     .K2471
+                     .S2471
+                     .T2471
+                     .CBALL
+                     .KBALL
+                     .SBALL
+                     .TBALL
+            The following have simply been flushed:
+                     .NJ
+                     .NOJUST
+                     .PAUSE
+                     .STOP
+                     .STPCHR
+                     .TSTOUT
+            The following "abbreviations" and command names have been flushed in favor
+                    of others:
+                     .BP -- use .BEGIN
+                     .CM -- use .C or .COMMENT
+                     .CO -- use .FI or .FILL
+                     .CP -- use .BLOCK
+                     .RA -- use .RI or .RIGHT
+                     .APPND -- use .AP or .APPEND
+                     .DUMCHR -- use .DUMMY
+                     .TR -- use .TRANS
+                     .QTECHR -- use .QUOTE
+                     .PL, .PAPER -- use .TL
+                     .PS, .PSIZE  -- use .PL
+                     .L, .LINE  -- use .TW
+                     .PAPERW -- use .PW
+            The prior four new names are mnemonic for T_ext L_ength, P_aper L_ength, T_ext
+                    W_idth, and P_aper W_idth.
+
+            C_H_A_N_G_E_D_ _C_O_M_M_A_N_D_S_ 
+                    The following have been changed:
+
+            ._D_U_M_M_Y_ -- can now be used to specify more than one dummy character by
+                    simply using the command more than once.
+
+            ._F_I_L_L_ -- now causes adjusting to be turned off.
+
+            ._H_E_A_D_E_R_ -- now takes its argument on the next line (just like .HE1, .HE2,
+                    etc.) 
+
+            ._P_H_P_1_ -- again takes no argument, and simply causes the header to be
+                    printed on page one.
+
+
+
+            TJ6 Recent Changes                   4_             NNTJ6 3 -- 24 June, 1974
+
+






            ._S_E_C_T_ -- now does a .BLOCK 2, so that a section title will not be the last
+                    line on an output page.
+
+            ._T_R_A_N_S_ -- now works on input instead of output.  All text characters may be
+                    translated.  Command line characters are not translated.  (The
+                    translation occurs before the test for in-text command characters,
+                    therefore, 
+                     .TRANS \^F will cause \_ to act as an in-text font switching
+                    character.) 
+
+            ._X_G_P_ and /_X_ -- now are equivalent.  If output is to DSK, they: do a .SINCH
+                    8.5,6,11,8; a .HVW 25,6,16;  and try to output an XGPLPT command
+                    page.
+
+            Handling of s_p_a_c_e_s_, ?_ _._ _!_, and ;_ _:_ has been changed.  In .NOFILL mode, they
+                    continue to get no special treatment.  In fill mode, they have two
+                    spaces inserted afterwards only if followed by a carriage return or
+                    line feed.  There is a n_e_w_ _m_o_d_e_, .HALFAD, in which the text is
+                    filled, but not adjusted, and in which spaces and ?_._!_:_;_ are treated
+                    the same as in .ADJUST mode.  The gist of this treatment is that
+                    two spaces will be inserted after ._!_?_:_;_ at the end of a clause or
+                    sentence, and that more than one space or tab in a row (except at
+                    the start of an input line,) is treated like one space.  NNTJ6's
+                    algorithm for determining the end of sentence or clause is:
+                                               A_B_._C_D_
+                    The . is always treated like the end of a clause or sentence if C
+                    is a carriage return or line feed;  otherwise, This is n_o_t_ the end
+                    of a sentence or clause if:
+                    1 B is a number;
+                    2 B is a letter and A is a space, tab, or one of ._!_?_;_:_;
+                    3 C is not a space, tab, carriage return, line feed, or one or more
+                    of the following:  )_"_'_]_;
+                    4 C is one or more of )_"_'_]_, and D is not a space, tab, carriage
+                    return, or line feed.
+                    (In cases like A_B_._)_ _, the spaces are inserted after the )_.) 
+                    If you don't like the special treatment of some of these
+                    characters, turn one off with:
+            ._P_E_R_I_O_D_ _n_ _c_h_a_r_a_c_t_e_r_ -- which turns off special treatment of c_h_a_r_a_c_t_e_r_ if
+                    n=0, otherwise, turns it on.
+                    ._P_E_R_I_O_D_ with no argument, still turns off special treatment of all
+                    of ._!_?_;_:_.
+
+            M_E_M_O_ is now the default output name instead of (MEMO).
+
+            V_a_r_i_a_b_l_e_ _w_i_d_t_h_ _f_o_n_t_s_ are now filled and adjusted correctly.
+
+            C_o_h_e_n_'_s_ _L_a_w_:
+                            P=1/C2, i.e., 
+            the probablity of my looking at any bug complaint, without an example of
+            the source file which caused it, is inversely proportional to the speed of
+
+
+            TJ6 Recent Changes                   5_             NNTJ6 3 -- 24 June, 1974
+
+






            light squared.
+
+
            O_T_H_E_R_ _N_E_W_ _F_E_A_T_U_R_E_S_:_ 
+            In the immediate future, I shall concentrate on continuing to straighten
+            out the inside of TJ6, and I am unwilling to put in new features.  Please
+            don't waste my time by asking for a .UPSIDEDOWN command, or whatever's your
+            penchant.  However, if you feel you absolutely must have a new feature, you
+            may go about it as follows:
+            1)  Obtain three "TJ6 Suggested Improvement Forms" 
+                    from Suzin Jabari.  (These will be available in a couple of weeks.)
+            2)  Fill them out, and give one copy to Marvin, one copy to Berthold, and
+                    one copy to me.
+            Your request will be carefully filed.
+
+                    --JDC 
+
diff --git a/doc/tj6/tj6.order b/doc/tj6/tj6.order
new file mode 100644
index 00000000..b1432ac2
--- /dev/null
+++ b/doc/tj6/tj6.order
@@ -0,0 +1,2 @@
+
+A description of TJ6 is available as AI Memo #358
diff --git a/doc/tj6/tj6_3.recent b/doc/tj6/tj6_3.recent
new file mode 100644
index 00000000..e0ab9214
--- /dev/null
+++ b/doc/tj6/tj6_3.recent
@@ -0,0 +1,27 @@
+.ALTER
+	Swap left and right header on even numbered pages.
+
+.GENSET
+	GENSET n now sets the counter to n-1, so that the next GENNUM produces n.
+
+(control-g)
+	now can take one argument, which is the counter number to increment.
+.LS
+
+	no longer exists.  Use blank lines instead of .SP if you want the old
+	LS SP effect.
+
+/T, typein from tty
+	In order to get typein from the TTY, you must now use the /T switch
+	instead of terminating the command line with a LF.  TJ6 will accept
+	command or text input from the tty, with reasonable rubouts, untill
+	tty input is terminated with a .APPEND, .INSRT, or the new command:
+
+.ET
+	which is now used to terminate input from the tty, instead of the
+	old CR, space.
+
+.XGP
+	now has the same effect as the /X switch, i.e., the default second
+	filename is XGP, not MEMO.
+
\ No newline at end of file
diff --git a/doc/tj6/tj6mem.61 b/doc/tj6/tj6mem.61
new file mode 100644
index 00000000..e339a7ee
--- /dev/null
+++ b/doc/tj6/tj6mem.61
@@ -0,0 +1,2588 @@
+.xgp
+.font 0 25vg
+.font 1 25fr
+.c 1 used for examples of TJ6 input
+.font 2 25vmic
+.c 2 used for examples of tj6 output
+.font 3 25vri
+.c 3 used for italics
+.font 4 40vshd
+.c 4 used for title page
+.squish
+.sinch 8.5,6.5,11,9,1.25
+.sidm 50
+.dummy 
+.sterm |
+.hyphen
+.insrt tj6;tj6mem title
+.spage
+.php1
+.page
+.sblock 3
+.adjust
+.spsp
+.he1
+TJ6 Text Justifier
+.he2
+Contents
+.rtw 15
+.insrt tj6;tj6mem conten
+.rtw -15
+.chap 1
+.he2
+Introduction
+.pa
+.sect
+Introduction
+
+TJ6 is a compiler which translates a sloppy
+input manuscript into a neat output document.
+It can justify and fill text; automatically number pages and figures;
+control page format and indentation; underline, super and subscript; print a table of contents;
+and do a few other strange things.
+
+TJ6 tries to be a fast, simple program which meets most
+documenting needs, rather than a large, complicated, relatively slow program like PUB,
+which tries to meet all documenting needs.
+In order to achieve speed, small size, and simplicity, TJ6 has naturally sacrificed
+the potential for many of PUB's capabilities.  TJ6 does not have:
+columnar output, macros, footnotes, indices, block structure,
+conditional commands, or arithmetic or string calculations.
+
+This memo tries to be both a reference manual and a user's manual.
+Towards the first end, this document is intended to be complete,
+even to the point of describing some of TJ6's inner workings.
+Towards the second end, this memo describes things
+in a manner which an experienced programmer might think too simple or verbose.
+This is intended to be useful
+to someone who has no programming or TJ6 experience.
+(If that description fits you, first have a look at section 20, Sample Input.)
+
+.sect
+Conventions
+
+This memo also includes examples of the use of most commands,
+which should be a help not only to the novice, but to someone trying
+to find a mysterious bug in his TJ6 program.
+Text which appears in
+.crbr
+.un -4
+    1fixed width roman type0
+is an example of input text.  Text which appears in
+.un -4
+    2microgramma type0
+is an example of output text.
+
+An underbar in examples of input text denotes a space, e.g.,
+.un -4
+    1foo_0
+means "1foo 0".
+.crsp
+.chap
+.he2
+Commands
+.pa
+.sect
+Commands
+
+TJ6 input is divided into text and command lines.
+Command lines are lines which start with a period.
+(Except that the line after SPREAD, HEADER, HE1, and HE2 is
+always interpreted as text even if it starts with a period.)
+The name of the command is the word following the period.
+.crbr
+Text lines:
+.in 4 EXAMPLE
+    1This is a text line.
+    .This is also a text line.
+.un 4
+0Command lines:
+    1.INDENT 5
+    .GUN0
+.crsp
+.in 0 END EXAMPLE
+(Even though there's no such command as GUN, the second line
+is still a command line because it starts with a period.)
+Only the first six letters of the command name are significant.
+Any extra stuff on command lines will be ignored.
+Some characters:  , , , , 
, , , , , and 
+have special meaning in text lines.
+(They are dealt with in section 16,  In-text Character Commands.)
+
+Many commands are followed by an argument, which will be denoted below by:
+.spbr
+	<integer>	a decimal integer;
+	<file name>	a standard ITS file name like "DSK:TJ6;TJ6 ORDER";
+	<character>	any ASCII character;
+	<decimal>	an integer or a psuedo floating point number, with up to three places
+to the right of the decimal, e.g., 5, 6., 7.089.
+.spsp
+.br
+Any other argument abbreviations should be read in context.
+
+Many commands which have no explicit inverse have the inverted effect if given
+the argument of 0.
+
+Many commands have abbreviations.
+These are listed on the line following the command.
+
+Each command is described as follows:
+
+.of 9
+Long form <argument(s)>
+.br
+	 B indicates this command causes a break.  (Text will not be filled across it.)
+.br
+	 Z indicates command can be inverted with an argument of 0.
+.un 8
+ abbreviation(s)
+.un 1
+	Description
+.sp
+.in 0
+.in 0
+.he2
+Page Format
+.chap
+.pa
+.sect
+Page Format
+
+0These commands control which area of the page text may appear in,
+and where the heading appears.  (See section 10, Headings.)
+Commands which give additional control
+within the defined text area (such as by indenting) are covered in
+section 8, Horizontal Margins.
+
+.nf
+			PW			
+			TW		
+



paper				  PL
+text	TL
+
+


					
+						
+.center
+Page and text size parameters
+.adjust
+
+Whenever one of these parameters is changed, TJ6 readjusts the margins so that the
+proportional size of left to right margin and top to bottom margin stays the same.
+(Those proportions can be changed with the SIDM and TOPM commands.)
+All of these commands also move the heading.
+.sp
+.sect
+.of 8
+PL <number> B
+.br
+	Set paper length to <number> lines.
+.sp
+.sect
+.un 8
+PLINCH <decimal> B
+.br
+	Like PL but argument in inches.
+.sp
+.sect
+.un 8
+PW <number> B
+.br
+	Set paper width to <number> "spacing units".
+.sp
+.sect
+.un 8
+PWINCH <decimal> B
+.br
+	Like PW, but argument in inches.
+.sp
+.sect
+.un 8
+TL <number> B
+.br
+	Set the text length to <number> lines.
+.sp
+.sect
+.un 8
+TLINCH <decimal> B
+.br
+	Like TL, but argument in inches.
+.sp
+.sect
+.un 8
+TW <number> B
+.br
+	Set text width to <number> "spacing units".  (See section 7, Spaces and Tabs.)
+	(A spacing unit is usually the largest character in FONT 0.)
+.sp
+.sect
+.un 8
+TWINCH <decimal> B
+.br
+	Like TW but argument in inches.
+	For example,
+
+.in 4 EXAMPLE
+.crbr
+    1.TWINCH 3.5
+    "If the past were permitted to weigh on its conscience,
+    every nation would be compelled to commit hara-kiri."0
+.un -4
+	is output as:
+.block 3
+.crsp
+.in 0
+.rtw 26
+    2"If the past were permitted to weigh on its conscience,
+    every nation would be compelled to commit hara-kiri."0
+.rtw -26
+.in 8 END EXAMPLE
+Note how the percentage of margin on each side is kept constant.
+.sp
+.sect
+.un 8
+SINCH <a,b,c,d,e> B
+.br
+	Set PWINCH, TWINCH, PLINCH, TLINCH, and left margin in inches,
+	respectively to <a>, <b>, <c>, <d>, and <e>.
+	(All the arguments are decimal.)
+	This memo was produced with a
+.in 4 EXAMPLE
+    1.SINCH 8.5,6.5,11,9,10
+.in 8 END EXAMPLE
+	The default for the XGP is SINCH 8.5,6,11,8,1.25.
+	(When not using the XGP, the defaults are:
+	PW 85, TW 73, PL 66, and TL 50.
+	For a typewriter with a character width of 1/10 inch and
+	line height of 1/6 inch, this works out to
+	SINCH 8.5,7.3,11,8.333,0.6.)
+.sp
+.sect
+.un 8
+TOPM <number> B
+.br
+	Make the top margin <number> percent of the total.
+.in 4 EXAMPLE
+.crbr
+    1.PLINCH 11
+    .TLINCH 9
+    .TOPM 600
+.crsp
+.in 8 END EXAMPLE
+	will make the top margin 1.2 inches (60 percent of 11-9)
+	and the bottom margin 0.8 inches.
+.sp
+.sect
+.un 8
+SIDM <number> B
+.br
+	Make left margin <number> percent of the available margin space.
+	The setting of SIDM, normally 50%, effects the appearance of lines
+	whose size has been change by TW, TWINCH, or RTW.
+	SIDM is kept constant through changes in TW.
+.in 0
+.chap
+.he2
+Filling, Adjusting, Centering, Aligning
+.pa
+.sect
+Filling, Adjusting, Centering, and Aligning
+
+This section deals with the basic "justification" operations of TJ6--the
+commands which make the output neat, even though the input is ragged.
+ADJUST and FILL also affect the treatment of punctuation marks and
+redundant spaces in the input text.  This is described in section 12,
+Periods and Punctuation.
+
+.sect
+.of 8
+ADJUST B
+.un 7
+ AD
+.br
+	Adjust the output text.
+	(Align its left and right edges by inserting spaces within the line.)
+	For example, the input text,
+.crbr
+.in 4 EXAMPLE
+    1.ADJUST
+    "Lilies that fester smell far worse than weeds:
+    both India and Japan seem to be spiritually sicker,
+    more estranged from a living faith than the West.
+    They are at opposite ends of the Asian spectrum,
+    whose centre is occupied by the vastness of China,
+    one of the world's oldest cultures;
+    yet it proved even less resistant against the impact
+    of a materialistic ideology."0
+.un -4
+	is output as:
+.crsp
+    2"Lilies that fester smell far
+    worse than weeds:
+    both India and Japan
+    seem to be spiritually sicker, more estranged from a living faith than the West.
+    They are at opposite ends of the Asian spectrum,
+    whose centre is occupied by the vastness of China,
+    one of the world's oldest cultures;
+    yet it proved even less resistant against the impact of a materialistic ideology."0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+FILL B
+.un 7
+ FI
+.br
+	Approximately align right margin by not printing a word which would go
+	beyond it.
+	(The default mode.) With .FILL instead of .ADJUST, the previous example
+	becomes:
+.in 4 EXAMPLE
+.FILL
+.spcomp
+    2"Lilies that fester smell far
+    worse than weeds:
+    both India and Japan
+    seem to be spiritually sicker, more estranged from a living faith than the West.
+    They are at opposite ends of the Asian spectrum,
+    whose centre is occupied by the vastness of China,
+    one of the world's oldest cultures;
+    yet it proved even less resistant against the impact of a materialistic ideology."0
+.in 8 END EXAMPLE
+.ad
+.sp
+.sect
+.un 8
+Filling vs. Adjusting
+.br
+	There is some argument as to whether filled or adjusted text looks better.
+	While the even right margin of adjusted text can be easier on the eye,
+	there are some problems which can be introduced by the addition of space
+	in the middle of the line.  Typically, all the adjusting is done by putting
+	additional spaces between words.  This can cause "rivers",
+	where several adjacent
+	lines have extra space in about the same column.  This problem is especially
+	bad with short lines, as in newspaper columns.
+	TJ6 tries to avoid rivers by trying to put space between letters before
+	putting space between words.
+	TJ6 figures out how much space has to be inserted to adjust the line to
+	the right margin;  puts as much space as possible between letters, while
+	keeping the space between letters equal;  and then puts the remainder of
+	the space between words.
+	This can lead to another problem -- the intercharacter space is large compared
+	to the interword space.
+	The MIT Press is avoiding these problems by making many publications
+	filled, not adjusted.
+.sp
+.sect
+.un 8
+NOFILL B
+.un 7
+ NF
+.br
+	Don't fill text.
+	(This is not the equivalent of PUB's VERBATIM.
+	NOFILL simply causes TJ6 to begin a new output line for every new input line.)
+	Tabs and leading spaces in NOFILL  and FILL modes occupy the same
+	amount of space.  (See section 7, Spaces and Tabs.)
+	A NOFILL line which sticks out past the right margin will
+	generate an error message, but will be printed anyway.
+.sp
+.sect
+.un 8
+NVRADJ BZ
+.br
+	Never adjust.  Ignore future adjust commands.
+.sp
+.sect
+.un 8
+CENTER B
+.un 7
+ CE
+.br
+	Center the very next input line.
+.in 4 EXAMPLE
+.block 3
+    1.CENTER
+.br
+    Winnie the Pooh0
+.CENTER
+2Winnie the Pooh0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+RIGHT B
+.un 7
+ RI
+.br
+	Right justify the next input line.
+.in 4 EXAMPLE
+.crbr
+.block 3
+    1.RIGHT
+    Winnie the Pooh0
+.crsp
+.RIGHT
+2Winnie the Pooh0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+SPREAD B
+.br
+	The next line is three strings, the first will be left justified,
+	the second centered, and the third right-justified.
+	The strings are separated by a separator defined as the
+	very first character on the next line.
+.in 4 EXAMPLE
+.crbr
+.block 3
+    1.SPREAD
+    /Winnie/the/Pooh/
+.crsp
+.SPREAD
+/2Winnie/the/Pooh0/
+.in 0 END EXAMPLE
+.chap
+.in 0
+.he2
+Breaking
+.pa
+.sect
+Breaking
+
+When TJ6 is filling or adjusting, it runs together lines of input text
+in the output.
+This section deals with what causes TJ6 to break, i.e.,  to begin a new output line.
+
+TJ6 reads characters into an internal buffer untill it finds a word boundary
+which sticks past the right margin.  Then it goes back through the buffer untill it
+finds a word boundary which doesn't stick past the margin.
+The output text is broken at that word boundary.
+A word boundary can be:
+.in 8
+.nf
+a space;
+a carriage return line feed;
+a hypen;
+a hidden hypen.  (See HYPCHR below.)
+
+.un 8
+In addition, the user may cause the output text to be broken by:
+a breaking command (one which is followed by a B in this memo);
+a blank line or lines;
+a line with leading spaces and/or tabs;
+the BREAK command.
+.ad
+.sp
+.sect
+.un 8
+HYPHEN Z
+.br
+	Don't allow - to break a line.
+	For example, the following text will ordinarily be broken
+	at the hyphen in "Lao-Tse":
+.hyphen 0
+.in 4 EXAMPLE
+    2"The nation which held fast for ... millenia to the
+    teachingofConfucius,Lao-TseandtheBuddha,succumbed to the atheistic doctrine
+    formulated by the son of a German lawyer, and has become the most accomplished
+    robot state this side of science fiction."0
+.in 8
+	When preceded, by a .HYPHEN, the text will be broken at the space
+	preceeding the hyphen.
+.in 4
+.BR
+.HYPHEN
+    2"The nation which held fast for ... millenia to the
+    teaching of Confucius, Lao-TseandtheBuddha,succumbed to the atheistic doctrine
+    formulated by the son of a German lawyer, and has become the most accomplished
+    robot state this side of science fiction."0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+HYPCHR <character> B
+.br
+	Define the "hidden hyphen" character which will not be printed unless used
+	to break a word, in which case it will be printed as -.
+	This can be used as a super-stupid syllabification,
+	or in a  special case when there is  an extraordinarily long word, which,
+	when broken at the word boundary, looks awful.
+	HYPCHR with no argument turns off the current HYPCHR.
+.in 4 EXAMPLE
+.crbr
+.block 3
+    1.HYPCHR 
+    TolooktoAsiaformysticenlightenmentandspiritual
+    guidancehasbecomeasmuchofananachronismastothinkof
+    AmericaastheWildWest.0
+.crsp
+.HYPCHR 
+    2To look to Asia for mystic enlightenment and spiritual guidance
+    hasbecomeasmuchofananachronismastothinkof
+    AmericaastheWildWest.0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+BREAK B
+.un 7
+ BR
+.br
+	Don't fill input text across this command.
+.block 5
+.in 4 EXAMPLE
+.crbr
+    1Don't fill text
+    .BREAK
+    across the BREAK command.0
+.crsp
+.ad
+    2Don't fill text
+.BREAK
+    across the BREAK command.0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+CRBR B
+.br
+	Make every carriage return cause a break.
+	(Opposite of CRSP.)
+	This command can be used as a sort of compromise between FILL and NOFILL
+	mode, where lines are filled, (or adjusted)
+	but every time you begin a new input line,
+	TJ6 begins a new output line.
+.in 4 EXAMPLE
+.crbr
+    1.TWINCH 2.5
+    .CRBR
+    This memo, TJ6 Text Justifier, is divided into the following sections:
+    Introduction,
+    Commands,
+    Page Format,
+    etc.
+.sinch 8.5,2.5,11,9,1
+    2This memo, TJ6 Text Justifier, is divided in the following sections:
+.BR
+    Introduction,
+    Commands,
+    Page Format,
+    etc.0
+.crsp
+.in 8 END EXAMPLE
+.sinch 8.5,6.5,11,9,1
+.sp
+.sect
+.un 8
+CRSP
+.br
+	When not in NOFILL mode, carriage returns cause spaces, instead of breaks.
+	(The default.  Opposite of CRBR.)
+.sp
+.sect
+.un 8
+SPBR B
+.br
+	Leading spaces or tabs (see section 7, Spaces and Tabs),  cause a break.
+	(The default.  Opposite of SPSP.)
+	Tabs and spaces that cause breaks will appear in the output
+	text.  (They will not be compacted by SPCOMP.  See section 12,
+	Periods and Punctuation.)
+.sp
+.sect
+.un 8
+SPSP
+.br
+	Opposite of SPBR.
+	This command is useful for allowing text which will be indented in the output
+	to also be indented in the input,
+	without worrying about where that text will be broken.
+.in 4 EXAMPLE
+.crbr
+    1.SPSP
+    As Arthur Koestler has remarked,
+    .INDENT 4
+.rin 4
+	"Asians have a tendency to lay the blame for this decline
+	on the soul-destroying influence of the West,
+	and Western intellectuals are inclined to accept the blame."
+.rin -4
+.crsp
+.SPSP
+    2As Arthur Koestler has remarked,
+.rin 4
+	"Asians have a tendency to lay the blame for this decline
+	on the soul-destroying influence of the West,
+	and Western intellectuals are inclined to accept the blame."0
+.in 8 END EXAMPLE
+.sp
+	SPSP works this way because the leading spaces
+	in the indented lines are compacted in ADJUST mode.  To do this in
+	FILL mode use the SPCOMP command.  (See section 12, Periods and Punctuation.)
+.in 0
+.chap
+.he2
+Blank Lines
+.pa
+.sect
+Blank Lines
+
+This section deals with how to leave extra spacing (blank lines) in a page.
+Extra spacing can be left with the commands described, or by leaving blank lines
+in the input text.
+
+TJ6 is not as clever about blank input lines as it is about the SPACE command.
+Consecutive blank input lines may be split across a page boundary in the output.
+When in NOFILL mode, blank input lines appear as blank output lines.
+This is the default condition in FILL or ADJUST mode, but may be turned off and
+on with CRCOMP and CRRETA.
+
+.sect
+.of 8
+SINGLE B
+.un 7
+ SS
+.br
+	Single space the output text.
+	(The default spacing.)
+.in 4 EXAMPLE
+.crbr
+    1.SINGLE
+    These two lines are
+    single spaced.
+    2These two lines are
+    single spaced.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+DOUBLE B
+.un 7
+ DS
+.br
+	Double space output text.
+.in 4 EXAMPLE
+.crbr
+    1.DOUBLE
+    These two lines are
+    double spaced.0
+.DOUBLE
+    2These two lines are
+.ss
+    double spaced.0
+.crsp
+.in 8 END EXAMPLE
+	SINGLE and DOUBLE take effect when the next line is output,
+	not immediately.
+.in 4 EXAMPLE
+.crbr
+    1These
+    .DOUBLE
+    four
+    .SINGLE
+    little
+    lines.
+    2These
+.DOUBLE
+    four
+.SINGLE
+    little
+    lines.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+SPACE <number> B
+.un 7
+ SP
+.br
+	Insert <number> contiguous  blank lines in the output text.
+	(When DOUBLE spacing, leave 2*<number> blank lines.)
+	(If not enough space at end of page, does a PAGE.
+	SPACE is slightly cleverer than blank lines in the input text, in that
+	SPACE 1 is ignored at the top of page.)
+.in 4 EXAMPLE
+.block 7
+.crbr
+    1Blank
+    .SPACE
+    Line0
+    2Blank
+.SPACE
+    Line0
+.block 10
+.un -4
+	But when double spacing,
+    1.DOUBLE
+    Blank
+    .SPACE
+    Line2
+    Blank
+.DOUBLE
+.SPACE
+.ss
+    Line0
+.crsp
+.in 8 END EXAMPLE
+	(Compare this with the next example.)
+.sp
+.sect
+.un 8
+ASP <number> B
+.br
+	Absolute space.  Just like SPACE, but
+	inserts <number> blank lines in the output text regardless of
+	whether one is SINGLE or DOUBLE spacing.
+.in 4 EXAMPLE
+.crbr
+.block 7
+    1.DOUBLE
+    Blank
+    .ASP
+    Line2
+.DOUBLE
+    Blank
+.ASP
+.ss
+    Line0
+.crsp
+.in 8 END EXAMPLE
+.ad
+	(Compare this with the previous example.)
+.sp
+.sect
+.un 8
+FIGURE <number>
+.br
+	Leave <number> contiguous blank lines at the next available break.
+	If there is room on the current output page,
+	leave <number> blank lines at the next break;
+	if no room on the current output page, at the top of the next page.
+	(The argument is an absolute number of lines and is not affected by SINGLE
+	or DOUBLE spacing.)
+	FIGURE is really iterative, i.e., if there is not space
+	at the top of the next output page, (due to an earlier FIGURE),
+	leave space at the top of the next available page.
+.in 4 EXAMPLE
+.crbr
+    1This command
+    .FIGURE 3
+    causes three consecutive blank lines to be left somewhere, without
+    interrupting the output stream at the command.0
+.crsp
+.block 6
+    2This command
+.FIGURE 3
+    causes three consecutive blank lines to be left somewhere, without
+    interrupting the output stream at the command.0
+.in 8 END EXAMPLE
+	Another way of leaving room for illustrations is with the BLOCK
+	command.  (See section 9, Pagination.)
+.sp
+.sect
+.un 8
+FINCH <decimal>
+.br
+	Like FIGURE, but argument in inches.
+.in 4 EXAMPLE
+.crbr
+    1Just as in the previous example,
+    .FINCH 0.5
+    there should be a one half inch figure
+    somewhere in the middle of this line.0
+.crsp
+    2Just as in the previous example,
+.FINCH 0.5
+    there should be a one half inch figure
+    somewhere in the middle of this line.0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+CRRETA B
+.br
+	Retain redundant carriage returns.
+	(The default.  Opposite of CRCOMP.)
+.block 8
+.in 4 EXAMPLE
+.crbr
+    1.CRETA
+    Blank
+
+    Line
+    2Blank
+
+    Line0
+.crsp
+.in 8 END EXAMPLE
+    	(Compare this with the next example.)
+.sp
+.sect
+.un 8
+CRCOMP B
+.br
+	When not in NOFILL mode, compact redundant carriage returns.
+	(Opposite of CRRETA.)
+.in 4 EXAMPLE
+.block 8
+.crbr
+    1.CRCOMP
+    Blank
+    
+    Line0
+.ad
+.crsp
+.CRCOMP
+.un -4
+	prints as:
+.br
+    2Blank
+    
+    Line0
+.crreta
+.crsp
+.in 8 END EXAMPLE
+	The total effect of carriage returns is determined not only
+	by CRRETA and CRCOMP, but also by CRBR and CRSP.
+	(See section 5, Breaking.)
+.tabfnt 2  THE TABFNT IS 2 FOR THIS SECTION
+.chap
+.he2
+Spaces and Tabs
+.in 0
+.adjust
+.pa
+.sect
+Leading Spaces and Tabstops
+
+When using variable width fonts, TJ6 goes to some extra trouble in order to:
+.in 8
+.un 2
+     1)   Make things which are aligned with tabs in TECO also align in TJ6;
+.in 4 EXAMPLE
+.crbr
+    1.NOFILL
+    123456789
+    iiiiiitabstop
+    WWWWWWtabstop0
+.nf
+2123456789
+iiiiii	tabstop
+WWWWWW	tabstop0
+.ad
+.crsp
+.in 8 END EXAMPLE
+	There is a tab after the i's and W's, so the word "tabstop" is aligned
+	in both input and output.
+
+.un 2
+      2)  Make <number> spaces at the beginning of a line equivalent to INDENT <number>.
+.in 4 EXAMPLE
+.crbr
+    1_One leading space is the same as
+    .INDENT 1
+    indenting one.
+    2_One leading space is the same as
+.un -1
+    indenting one.0
+.crsp
+.in 8 END EXAMPLE
+
+.un 2
+      3)  and since in TECO and ITS generally, there is a tabstop every 8 spaces,
+	TJ6 makes INDENT <number*8> equivalent to <number> tabs;
+.sp
+	To accomplish this, the size of a space at the beginning of a line;
+	the size of indentation units; and the size of the TW and PW unit,
+	referred to as the "spacing unit",
+	will not necessarily be equal to the size of a space
+	in any font.
+	(In particular, note that the size of a leading space is usually different from
+	the size of a space in the middle of a line.  The former is a spacing unit,
+	the latter is a space in the appropriate font.)
+	Compare
+.in 4 EXAMPLE
+.crbr
+    2______six leading spaces with
+    six imbedded spaces.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+	Leading spaces and tabs are tabs which appear at the beginning of a line
+	with no other characters before them on the line.  A line with
+	in-text characters preceeding spaces does not have leading spaces, e.g.,
+.in 4 EXAMPLE
+.crbr
+    1_This line has a leading space.
+     This line does not.
+    2_This line has a leading space.
+    This line does not.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+	The default size of the spacing unit is
+	the size of the widest character in FONT 0.
+	In the 2microgramma0 font, 2W0 is the widest character,
+	so if FONT 0 is 25VMIC, 2W0 is the spacing unit.  Then,
+.in 4 EXAMPLE
+.crbr
+    2_One leading space is the same width as
+    1.INDENT 12
+.rin 1
+    indenting one, and also the same width as a
+.rin -1
+    W.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+	A tab stop is equal to 8 spacing units.
+	(Of course, if font 0 is fixed width, the spacing unit is identical to
+	a FONT 0 space, and a tab equals eight spaces.)
+	Leading tabs and spaces are all printed in spacing units.
+	The following commands all use the spacing unit as the unit of their argument:
+	INDENT, UNDENT, OF, RINDEN, RTW, PW, and TW.
+	(PW and TW actually are internally translated to TWINCH and
+	PWINCH, so that changing the size of the spacing unit will not change the
+	text width or paper width.)
+.sp
+	The default is chosen on the assumption that all the characters to the left of
+	tabstops are in FONT 0.  If this is not true, you should probably use:
+.sp
+.sect
+.un 8
+TABFNT <number>
+.br
+	where <number> is the only or largest font which will always be to the left
+	of tabs, or <number>=-1 if any font can be to the left of tabs.
+	Make the spacing unit the largest character in FONT <number>,
+	or if <number>=-1, make the spacing unit the largest character in all fonts.
+	The default is TABFNT 0.
+	For example, the largest character in both 25VMIC and 25VG is W, but in
+	25VMIC it's 28 XGP dots wide, while in 25VG it's 23 wide.
+.in 4 EXAMPLE
+.block 8
+.crbr
+    1.FONT 0 25VG
+    .FONT 2 25VMIC
+    .TABFNT 2
+    Tab in 25VMIC
+    .TABFNT 0
+    Tab in 25VG
+.crsp
+.nf
+.in 0
+.twinch 5.38  UGH!! bad interaction of width change with indents or RTW set
+.c old width=28  Old IN 4 indented by 4*28=112 dots so text width
+.c must change by 112/100 inch new TW = 6.5-1.12=5.38
+2	Tab in 25VMIC
+.TABFNT 0
+0	Tab in 25VG
+.TABFNT 2
+.adjust
+.twinch 6.5
+.sp
+.in 0
+.in 8 END EXAMPLE
+.sect
+.un 8
+SPW <number>
+.br
+	Set the size of the spacing unit to <number> XGP dots.
+ 	For example,
+	in 25FR, all characters are 17 XGP dots wide.
+.in 4 EXAMPLE
+.crbr
+2WWWWW
+_A leading space is normally 28 dots wide, but with
+1.SPW 17
+1_2it's 17 dots wide.
+WWWWW0
+.ad
+.crsp
+.in 8 END EXAMPLE
+.sp
+  	One of the results of all this is that if the TABFNT is variable width,
+	tabstops will be much larger than expected, and there will be a gross difference
+	between leading and imbedded spaces.  (Look at the previous examples.)
+	The spacing unit with 25VMIC is 100% larger than with 25FGB.  The large spacing
+	unit size is necessary to guarantee alignment of tabstops.  If there can be
+	7 microgramma 2W0's to the left of a tabstop, than a tab obviously in the
+	worst case should be 8 2W0's wide.
+	Most of the time, you won't have the worst case (all wide characters within a
+	tabstop), and you can get away with a SPW 16 (width of 25FG).
+	This will result in indentations and tabs whose size is intuitively
+	more expected.
+.br
+.tabfnt 0
+.in 0
+.chap
+.he2
+Horizontal Margins
+.pa
+.section
+Horizontal Margins
+
+This section deals with changing the margins of text within the area declared
+by the page format commands (PW and TW).
+.sp
+.sect
+.of 8
+INDENT <number> B
+.un 7
+ IN
+.br
+	Indent the text left margin by <number> "spacing units".
+	(See section 7, Spaces and Tabs.)
+.in 4
+.crbr
+    1.INDENT 2
+    Indents two spaces.
+.un -2
+    2Indents two spaces.0
+.crsp
+.in 8
+.sp
+.sect
+.un 8
+RINDEN <number> B
+.un 7
+ RIN
+.br
+	Increment the indentation by <number>. <Number> may be negative.
+.in 4 EXAMPLE
+.crbr
+    1.RINDEN 1
+    Indent one.
+    .RINDEN 1
+    Indent one more.
+.RINDEN 1
+    2Indent one.
+.RINDEN 1
+    Indent one more.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+UNDENT <number> B
+.un 7
+ UN
+.br
+	Start the next line <number> "spacing units" left of the current INDENTation.
+	You may not UNDENT past the left margin.
+	Undent should appear immediately before the line to be UNDENTed.
+	(See INDENT and section 7, Spaces and Tabs.)
+.in 4 EXAMPLE
+.crbr
+    1Cox's lecture begins,
+    .UNDENT -8
+    "To understand our labor laws one must first understand the genius
+    of our labor movement."
+    2Cox's lecture begins,
+.crsp
+.UNDENT -8
+    "To understand our labor laws one must first understand the genius
+    of our labor movement."0
+.ad
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+OF <number> B
+.br
+	Increase the indentation by <number> after the next line is output.
+	(Just like
+.un -8
+		.RIN <number>
+.un -8
+		.UN <number>.)
+.in 4 EXAMPLE
+.crbr
+    1.OF 4
+    "Although negotiation carries its own compulsions, few 'voluntary'
+    agreements are executed in the absence of economic power."
+.crsp
+.ad
+.of 4
+    2"Although negotiation carries its own compulsions, few 'voluntary'
+    agreements are executed in the absence of economic power."0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+RLINE <number> B
+.un 7
+ RTW
+.br
+	Decrease the text width by <number> without affecting
+	where the header is printed.  This command is really a way of
+	simultaneously indenting both left and right margin.
+	The amount of additional indentation which will appear on
+	either side is determined by SIDM.  (See section 3, Page Format.)
+.in 4 EXAMPLE
+.fi
+.spcomp
+    1"The only functions of law, it is thought, are:
+.br
+    .RTW 4
+.br
+    (1) to protect the formation of unions, so that employees may exert
+    sufficient bargaining power to solve the problems of workers in an industrial
+    society; and
+.br
+    .BREAK
+.br
+    (2) to provide the framework for negotiations between the employer and employees..."
+.ad
+    2"The only functions of law, it is thought, are:
+.RTW 4
+      (1) to protect the formation of unions, so that employees may exert
+      sufficient bargaining power to solve the problems of workers in an industrial
+      society; and
+.BREAK
+      (2) to provide the framework for negotiations between the empoyer and employees..."0
+.RTW -4
+.ad
+.in 8 END EXAMPLE
+	Note that <number> is the total increment to the indentation of both
+	sides.  Since, in this memo, SIDM is 50, the total indentation of 4
+	is divided equally into 2 for the left margin and 2 for the right.
+.in 0
+.chap
+.he2
+Pagination
+.pa
+.sect
+Pagination
+
+This section deals with forcing TJ6 to start a new output page, and with the
+page number which appears in the heading.  (Also see section 10, Headings.)
+The page number is normally an integer, but can be made into a "decimal",
+consisting of <chapter>.<page> through the CHAP command.
+The first output page is page number 1.
+
+.sect
+.of 8
+PAGE <number> B
+.un 7
+ PA
+.br
+	Start a new output page and increment page number by <number>.
+	If no argument increment by one.
+	Note that there is a difference between PAGE <n> and n PAGEs.
+	The former starts a new page with a number <n> higher than the
+	current page, while the latter actually prints n-1 blank pages.
+.sp
+.sect
+.un 8
+BLOCK <number> B
+.br
+	If there is not room for <number> lines of text on this page,
+	begin a new output page.
+	BLOCK takes into account whether you are SINGLE or DOUBLE spacing.
+	I.E., BLOCK n when DOUBLE spacing leaves twice as much space
+	as when SINGLE spacing.
+.sp
+.sect
+.un 8
+ABLOCK <number> B
+.br
+	If there are less than <number> lines left on this page,
+	begin a new output page.
+	ABLOCK does not take into account SINGLE or DOUBLE spacing.
+	ABLOCK is useful as a substitute for FIGURE, when you want a diagram
+	to appear at that spot in the text, e.g.,
+.in 4 EXAMPLE
+.crbr
+    1.ABLOCK 3
+    .SPACE 30
+.ablock 3
+.space 3
+.crsp
+.in 8 END EXAMPLE
+	(The ABLOCK prevents the SPACE from being split by a page boundary.)
+.sp
+.sect
+.un 8
+SPAGE <number>
+.br
+	Set page number at the next page break to <number>.
+	(A page break is when TJ6 has too much text to put on a page,
+	or a new page is forced by a PAGE, BLOCK, or other command.)
+	(SPAGE with no argument makes the next page number one.)
+.sp
+.sect
+.un 8
+EPAGE <number>
+.un 7
+ EP
+.br
+	Increment the page number by <number> at the next page boundary.
+.sp
+.sect
+.un 8
+PD B
+.br
+	Odd page force.  Do a PAGE, and if the next page number would not
+	be odd, do an EPAGE to make it odd.
+.sp
+.sect
+.un 8
+PV B
+.br
+	Even page force.  Works like PD.
+.sp
+.sect
+.un 8
+CHAP <number> B
+.br
+	Does an SPAGE 1, and
+	if <number>0, causes <number>
+	to be printed before page number in headings (see section 10, Headings).
+	If there is no argument, the chapter number is incremented.
+	This page was started with:
+.in 4 EXAMPLE
+.crbr
+    1.CHAP 9
+    .PAGE
+    Pagination0
+.crsp
+.in 8 END EXAMPLE
+.in 0
+.chap
+.he2
+Headings
+.pa
+.sect
+Headings
+
+This section deals with headings -- where and when they are printed.
+The default TJ6 heading is "PAGE " followed by the page number,
+all printed in font 0 (see section 14, XGP),
+and appearing one line from the top of the
+page, aligned with the right margin (set by TW, TWINCH, etc.)
+The heading is not normally printed on the first page (page 1).
+Even though TJ6 has a default heading, it's a good idea to always
+define a heading line, as this gives TJ6 an accurate idea of the
+heading width.
+(The width is calculated when the heading is defined, but is only
+roughly estimated for the deafult heading, since TJ6 doesn't know
+in advance what font 0 will look like.  Therefore, headings should
+always be defined after the fonts are given.)
+
+.sect
+.of 8
+HEADER B
+.un 7
+ HEADIN
+.un 7
+ HE
+.br
+	The very next input line will be printed by TJ6 as the heading,
+	followed immediately by the page number.  (TJ6 won't insert
+	a space between the HEADER and the page number, so make sure
+	that you do.)  In-text character commands (see section 16)
+	can appear as input in HEADER lines.  For instance,
+.in 4 EXAMPLE
+.crbr
+    1.HEADER
+    Important memo_0
+.un -4
+	is output as:
+.ri
+2Important memo 17760
+.un -4
+	but, without the final space
+    1.HEADER
+    Important memo0
+.ri
+2Important memo17760
+.crsp
+.ad
+.in 8 END EXAMPLE
+	Another common mistake is to try to put a command line between
+	the HEADER command line and the header.  The very next line after
+	.HEADER will be intrepreted as the desired heading.
+.sp
+.sect
+.un 8
+HE1 B
+.br
+	Make the header a SPREAD line with the page number in the middle,
+	and the very next input line on the left.
+	The center field of the heading is the page number, and the
+	right field is defined with HE2.
+	This memo's heading was generated with
+.in 4 EXAMPLE
+.crbr
+    1.HE1
+    TJ6 Text Justifier0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+HE2 B
+.br
+	Make the header a SPREAD line with the page number in the middle,
+	and the very next input line on the right.
+	This section of the memo starts with
+.in 4 EXAMPLE
+.crbr
+    1.CHAP 10
+    .HE2
+    Headings
+    .PAGE0
+.crsp
+.in 8 END EXAMPLE
+	Note the interaction between HE1 and HE2.  The begin underline ()
+	at the start of the HE1 field is finished with an end underline ()
+	at the end of the HE2 field, so that the whole heading, including
+	page number, is underscored.
+.sp
+.sect
+.un 8
+NOHEAD BZ
+.br
+	Don't print a heading line.  (NOHEAD 0 turns it back on.)
+.sp
+.sect
+.un 8
+PHP1 Z
+.br
+	Print header on page one.
+	(The default is no heading on page 1 -- PHP1 0.)
+.sp
+.sect
+.un 8
+THESIS B
+.br
+	Print the header inside of the text margins,
+	instead of 2 lines from the top of the page.
+	(Make header appear where the first text line normally
+	would appear.)
+.sp
+.sect
+.un 8
+HEADPW BZ
+.block 3
+	Align header with full page width (set by PW rather that TW).
+	For instance, the heading on this page would be
+.in 4 EXAMPLE
+    1.HEADPW0
+.twinch 8.5
+.spread
+/TJ6 Text Justifier/10.2/Headings/
+.twinch 6.5
+.ad
+.in 8 END EXAMPLE
+.in 0
+.chap
+.he2
+Sections and Table of Contents
+.pa
+.section
+Sections and Table of Contents
+
+This section deals with TJ6's cheap table of contents feature,
+and some commands affecting it.
+Since TJ6 is a one-pass compiler, the user has to run TJ6 twice
+to get a finished table of contents.  (Two-pass compilers like
+PUB don't have this problem.)  The first time, TJ6 is run with
+the /C switch.  (See section 17, Console Operation.)  On that run, TJ6
+outputs a file, suitable for TJ6 input, which contains section titles
+and page numbers.
+When TJ6 is run on that file, a neat looking
+table of contents will result.
+The source file for this memo is TJ6;TJ6MEM >.  The DDT command line
+.un -4
+    1:TJ6 TJ6MEM /C0
+.br
+results in the file TJ6;TJ6MEM CONTEN, which looks like this:
+.in 4
+.crbr
+    1.C TJ6-generated Contents
+    .Spread
+    /Introduction//1.1/
+    .Spread
+    /Conventions//1.1/
+    .Spread
+    /Commands//2.1/
+    .Spread
+    /Page Format//3.1/
+    .Spread
+    /PL <number> B//3.1/0
+    etc.
+.crsp
+.in 0
+When fed back to TJ6, TJ6MEM CONTEN results in the table of contents
+for this memo.  (Actually, TJ6MEM > inserts the file TJ6MEM CONTEN,
+as well as the file TJ6MEM INDEX, which is merely the CONTEN file
+modified with a simple TECO alphabetizing command.)
+.sp
+.sect
+.of 8
+SECTIO B
+.un 7
+ SECT
+.br
+	The next output line is a section title which will
+	be used when TJ6 outputs a table of contents.  (See /C.)
+	SECT also does a BLOCK 2, so that the section title and first line will
+	not appear on seperate pages.  (See SBLOCK.)
+	This paragraph of this memo starts with
+.in 4 EXAMPLE
+.crbr
+    1.sect
+    .of 8
+    SECTIO B0
+.un -4
+	The appropriate line in the CONTENts file is
+    1.Spread
+    /SECTIO B//11.1/0
+.un -4
+	which finally appears in the table of contents (page 2) as
+.in 0
+.rtw 15
+.spread
+/SECTIO B//11.1/
+.rtw -15
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+SBLOCK <number>
+.br
+	Set the size of the .BLOCK implied by .SECT to <number>.
+	(The default is SBLOCK 2, so that a section title
+	and the first line of the section will appear on the same page.)
+.sp
+.sect
+.un 8
+STERM <character>
+.br
+	Set the .SPREAD separator used by TJ6 in writing a table of contents.
+	This command is useful when a / must appear in the section title.
+	For instance
+.in 4 EXAMPLE
+.crbr
+    1.STERM |
+    .SECTIO
+    /C0
+.un -4
+	appears in the CONTENts file as
+    1.Spread
+    |/C||17.1|0
+.block 4
+.un -4
+	but without the .STERM |, would appear as
+    1//C//17.1/
+.un -4
+	0which would print as
+.ce
+2C0
+.crsp
+.ad
+.in 8 END EXAMPLE
+.in 0
+.chap
+.he2
+Periods and Punctuation
+.pa
+.sect
+Periods and Punctuation
+
+The handling of periods and punctuation is one area in which TJ6 tries harder
+and has more hair than PUB.  When adjusting, TJ6 tries to put two spaces
+after each of the following characters at the end of a sentence or clause:
+., ?, !, :, and ;.
+When justifying, TJ6 will also try to add space at the end of a sentence
+before adding space between words.
+.rtw 2
+  TJ6's algorithm for determining whether one of . ? ! : ; ends a clause or
+  sentence is, given the following character sequence, with . standing for
+  all the punctuation characters:
+.ce
+1AB.CD0,
+  the . is the end of a clause or sentence if C is a carriage return or line feed;
+  otherwise,
+.crbr
+  this is not the end of a clause or sentence if:
+  B is a number;  or
+  B is a letter and A is a space, tab, one of .?!:;;  or
+  C is not a space, tab, carriage return or line feed, or one of )]"';  or
+  C is one or more of )]"' and D is not a space, tab, carriage return, or line feed.
+.crsp
+  In cases like 11AB.)0, the two spaces and justifying spaces are inserted
+  after the 1)0.
+  TJ6 will determine that the following do end clauses:
+.in 4
+.crbr
+.fi
+    1End. End; "End." ("End.") End"])
+.ad
+    2End. End; "End." ("End.") End"])0
+.un 2
+  and the following do not:
+.fi
+    1No.end 1.414 !n. J. Cohen .no no!)))o
+.ad
+    2No.end 1.414 !n. J. Cohen .no no!)))o0,
+.un 2
+  but beware
+.fi
+    1Mr. Cohen
+.ad
+    2Mr. Cohen0
+.crsp
+.in 2
+  which TJ6 thinks is the end of a sentence.
+.rtw -2
+When in ADJUST mode, TJ6 removes any extra spaces between words in order
+to make it easier to decide where to put in justifying spaces.  Therefore,
+in adjust mode, the following all have the same affect as one space:
+tab, tabs, spaces, or combinations thereof.
+.in 4
+    1One spaceTwoTab
+.br
+    2One space  Two	Tab.0
+.in 0
+.sp
+.sect
+.of 8
+PERIOD <number>,<character> B
+.br
+	Turns off special treatment of <character> if <number>=0, else turns it on.
+	<Character> can be any of .?!:;  PERIOD with no arguments turns off
+	special treatment of all of .!?:;
+	When special treatment is turned off, TJ6 will no longer try to
+	insert two spaces after that character.
+.sp
+.sect
+.un 8
+HALFAD B
+.br
+	Fill the text (see FILL),
+	but flush more than 1 space or tab in a row (SRCOMP),
+	and insert two spaces after any .!?:; which ends a clause or sentence.
+	This is a fill mode for people who are sloppy with punctuation.
+.in 4 EXAMPLE
+.crbr
+.fi
+    1.HALFAD
+    See the perceptron! Run, perceptron, run! Both
+    previous sentences have only one space at the end.
+.HALFAD
+.crsp
+    2See the perceptron! Run, perceptron, run! Both
+    previous sentences have only one space at the end.0
+.ad
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+SPCOMP
+.br
+	When not in NOFILL mode, compact redundant spaces.
+	ADJUST and HALFAD do an automatic SPCOMP.
+	Spaces or tabs which cause breaks will not
+	be compacted.
+	(Opposite of SPRETA.)
+.sp
+.sect
+.un 8
+SPRETA
+.br
+	Retain redundant spaces.
+	NOFILL and FILL do an automatic SPRETA.
+	(Opposite of SPCOMP.)
+.in 0
+.chap
+.he2
+File Commands
+.pa
+.sect
+File Commands
+
+0These commands give TJ6 the means to access other files.
+The VERSE command and  (see section 16, In-text Character Commands)
+allow for insertion of file names.
+
+.sect
+.of 8
+INSRT <file name>
+.br
+	Insert <file name> into the current input file.
+	INSRTs may not be nested more than 7 deep.
+	The source file for this memo is TJ6;TJ6MEM >, which
+	contains all sections but Contents, Error Messages,
+	and Index, which are inserted with
+.in 4 EXAMPLE
+.crbr
+    1.INSRT TJ6;TJ6MEM CONTEN
+    .INSRT TJ6;ERROR >
+    .INSRT TJ6;TJ6MEM INDEX0
+.crsp
+.IN 8
+.sp
+.sect
+.un 8
+APPEND <file name>
+.un 7
+ AP
+.br
+	Append file <file name> to the input file here.
+.sp
+.sect
+.un 8
+END B
+.br
+	Ignore the rest of this file.
+	(A file need not end with this command.
+	END is useful when there is stuff at the end of the file
+	that one doesn't want printed.
+	This is useful for putting comments at the end of a file.)
+.in 4
+.crbr
+    1... which proves all the points set forth in this thesis.
+    .END
+    Not by a long shot!!!
+    2... which proves all the points set forth in this thesis.0
+.crsp
+.in 8
+.sp
+.sect
+.un 8
+VERSE
+.br
+	Insert into the current TJ6 version number into the input stream.
+	(This is mostly useful as a command for debugging TJ6.)
+.in 4
+.crbr
+    1This memo was produced using
+    .VERSE
+.crsp
+2This memo was produced using
+.VERSE
+.in 8
+	0(The TJ6 source file is stored on the TJ6 directory.
+	The portion of VERSE before the period is the file name of the source.
+	The number after the period represents the number of patches
+	which have been made (number of bugs killed) since last reassembling.
+	The impure binary is on the SYSBIN directory, and the pure
+	binary on the SYS directory.)
+.in 0
+.in 0
+.chap
+.he2
+XGP Commands
+.pa
+.sect
+XGP
+
+If you intend to use the XGP, there are special TJ6 commands which take
+advantage of XGP and SCRIMP features such as:  choice of fonts, super and
+subscripts, underscoring.
+In order to take advantage of these features, you must use TJ6's "XGP" command.
+This also results in an output file in a strange looking format.
+
+.sect
+.of 8
+XGP B
+.br
+	Either this command or the /X switch (see section 17, Console Operation)
+	must be used to activate all XGP-type features.
+	If the output device is DSK, TJ6 will output a file
+	intended for printing on the XGP with a default second file name of XGP,
+	and will pay attention to other
+	XGP-only commands and in-text character commands:
+	FONT, SQUISH, VSP, NORMAL, NOSPEC, SCRIPT, BLADJU, PSCORE,
+	, , 
, and .
+	All of these commands will be ignored unless preceeded by XGP or
+	the /X switch is used.
+	Since XGP be ignored unless it appears before all input text,
+	it's a good idea to have this be the very first line of the input file.
+	(Since the output device must be DSK, you can cause TJ6 to ignore
+	the XGP command by outputting to TTY, AI, etc.)
+	The output file created by TJ6 for the XGP is designed to
+	be used by AI ITS' SCRIMP program, and contains coded data for
+	the XGP, as well as the output text.
+	(The XGP character interpretation is described in
+	AI Working Paper Number 72, XGP Font Catalog.)
+.sp
+.sect
+.un 8
+FONT <number> <file name> B
+.br
+	Causes the font  file <file name> to be associated with font (character set)
+	number <number>.
+	When the output file is finally printed on the XGP, it will appear in the
+	designated fonts.
+	(The font file must be in KST format.  See Working Paper #78 if you want to
+	design your own font.)
+	TJ6  has six fonts numbered 0 through 5, and starts printing in
+	font 0.  Fonts are switched with the  in-text command.
+	(See section 16, In-text Character Commands.)
+	FONT is ignored if not preceeded by /X switch or XGP command
+	and must appear before text.
+	FONT 0 is special in that it is normally used to determine the
+	size of tabs and leading spaces, (see section 7,) and all fonts are
+	assumed to be the same height.  (I.E., although TJ6 understands
+	variable width fonts, it assumes all lines of text are equal in height.
+	This results in a page which is too long if the page contains
+	lots of super or subscripts, or lots of text in a font which is
+	taller than FONT 0.)
+	The default FONT 0 is 25FG.  There is no default for higher fonts.
+	A good place to have the FONT specifications is immediately after
+	the XGP command.  The source file for this memo starts with
+.crbr
+.in 4
+    1.XGP
+    .FONT 0 25vg
+    .FONT 1 25fr
+    .FONT 2 25vmic
+    .FONT 3 25vri0
+.crsp
+.in 8
+.sp
+.sect
+.un 8
+SQUISH
+.br
+	This causes a ;SQUISH to appear on the XGP command page.
+	;SQUISH causes the XGP program to minimize the number of font
+	character rasters shipped to the XGP's PDP11 and stored there.
+	SCRIMP squishes by reading the entire file before sending fonts
+	to the PDP11.  It then sends only the rasters for characters
+	which appear in the TJ6'ed file.
+	(Normally, SCRIMP sends to the PDP11 and stores there the raster
+	for every character in all the FONTs you used.  Because of the
+	limited size of the PDP11's memory, it sometimes does not have room for
+	all those rasters.)  SQUISH is useful when SCRIMP types out a
+	"CHARACTERS LOST" error message.
+.sp
+.sect
+.un 8
+VSP <number> B
+.br
+	Set XGP interline spacing to <number> scan lines.
+	This command must appear before all text.
+	VSP is normally 6, i.e., 1/32 inch.
+.sp
+.sect
+.un 8
+NORMAL <number>
+.br
+	If <number>=0, or no argument, don't print quoted characters on
+	XGP in normal mode.
+	(The default is normalized characters -- NORMAL 1.)
+	Certain characters:
+	 (null),
+	 (backspace),
+		 (tab),
+	
 (linefeed),
+	 (formfeed),
+	î (carriage return), and
+	 (rubout),
+	are interpreted by SCRIMP and the XGP as commands,
+	unless they are quoted to the XGP (in which case they are simply printed
+	as characters).  Whenever one of these characters is quoted in
+	the TJ6 source file, TJ6 will in turn quote it to the XGP.
+	The quoting of formatting characters to force them to be printing
+	characters is "normalization".
+	(To avoid this, use NORMAL 0.)
+.block 5
+.in 4 EXAMPLE
+.crbr
+    1W<backspace>|
+    .NORMAL 0
+    W<backspace>|
+    2W|
+.NORMAL 0
+    W|0
+.normal
+.crsp
+.in 8 END EXAMPLE
+	The quoted backspace is usually output as a lambda.  In non-normal mode,
+	the quoted backspace is passed on to the XGP as a backspace.
+.sp
+.sect
+.un 8
+NOSPEC B
+.br
+	Don't output an XGP command page.  In XGP mode, TJ6 normally outputs
+	a page of SCRIMP commands which looks like
+.in 4 EXAMPLE
+.crbr
+    1;SIZE 11
+    ;VSP 6
+    ;TOPMAR 0
+    ;BOTMAR 0
+    ;LFTMAR 0
+    ;SKIP 1
+    ;KSET FONTS;25VG KST,FONTS;25FR KST,FONTS;25VMIC KST,,,
+    AI:JDC;NNTJ6 10.00
+.crsp
+.in 8 END EXAMPLE
+	By making the left margin 0, (SIDM 0), and using NOSPEC, the
+	user may, for his own perverse reasons, output his own SCRIMP command page.
+.sp
+.sect
+.un 8
+SCRIPT <number>
+.br
+	Set the number of XGP lines that  (superscript) or 
 (subscript)
+	will raise or lower the baseline.
+	(See section 16, In-text Character Commands.)
+	(The default is SCRIPT 12, 1/16 inch.)
+.in 4 EXAMPLE
+.crbr
+    1.SCRIPT 12
+    E=MC12
+    .SCRIPT 6
+    MC6=E
+.crsp
+    2E=MC12
+.SCRIPT 6
+    MC6=E0
+.script 12
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+BLADJU <number>
+.br
+	Sets the baseline to <number> amount. + is up.
+	BLADJU 0 is the same as .
+	<number> must be between -64 and +63.
+.in 4 EXAMPLE
+.crbr
+    1E=MC
+    .BLADJU 8
+    8
+.crsp
+    2E=MC
+.BLADJU 8
+    80
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+PSCORE <number>
+.br
+	Sets the position of underscoring to <number> scan lines below font base line.
+	(- is up.)  Underscoring done with the  and  in-text command characters
+	is normally 3 XGP scan lines below the font base line (PSCORE 3).
+.in 4 EXAMPLE
+.crbr
+    1Ordinary underline (PSCORE 3)
+    .PSCORE 0
+    Raised underscore
+.crsp
+    2Ordinary underline (PSCORE 3)
+.PSCORE 0
+    Raised underscore0
+.pscore 3
+.in 8 END EXAMPLE
+.chap
+.he2
+Miscellaneous Commands
+.pa
+.in 0
+.sect
+Miscellaneous Commands
+
+.sect
+.of 8
+COMMEN
+.un 7
+ C
+.br
+	Treat the entire command line as a comment.
+.in 4 EXAMPLE
+.crbr
+    1Winnie
+    .COMMEN I like Piglet lots.
+    the Pooh
+.crsp
+    2Winnie
+.COMMEN I like Piglet lots.
+    the Pooh0
+.in 8 END EXAMPLE
+	(But remember that excess on any command line is also treated as a comment.)
+.in 4 EXAMPLE
+.crbr
+    1Winnie
+    .UNDENT -2 I also like Eeyore and Rabbit.
+    the Pooh
+.crsp
+    2Winnie
+.UNDENT -2 I also like Eeyore and Rabbit.
+    the Pooh0
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+DUMMY <character> <number> B
+.br
+	If no second argument or <number>0,
+	defines a character which will be treated a letter internally,
+	but print as a space on output.
+	If <number>=0, turns off DUMMYing for that character.
+	(There is no default DUMMY character.  There may be more than one dummy.)
+.in 4 EXAMPLE
+.crbr
+    1.DUMMY 
+    124.
+.DUMMY 
+    2124.0
+.DUMMY  0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+QUOTE <character> B
+.br
+	<Character> becomes the TJ6 quoting character, which is used
+	in input text to quote the following character.
+	(Also see section 16, In-text Character Commands.)
+	To turn off use QUOTE with no argument.
+	(The default is QUOTE . (control Q))
+.in 4 EXAMPLE
+.crbr
+    1.QUOTE 
+.quote 
+    
+    20
+.quote 
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+TRANS ab,cd, . . .
+.br
+	On input, translate character <a> to <b>, <c> to <d>, etc.
+	Characters are not translated within command lines.
+	To undo, "translate" the character back to itself.
+.in 4 EXAMPLE
+.crbr
+    1.TRANS WD,eu,lt,sc
+    Welsh
+    .TRANS WW,ee,ll,ss
+    Welsh
+.TRANS WD,eu,lt,sc
+    2Welsh
+.TRANS WW,ee,ll,ss
+    Welsh0
+.crsp
+.in 8 END EXAMPLE
+	(Since translation occurs before interpretation of in-text commands,
+	TRANS can be used in the same way as PUB's TURN ON FOR.)
+.sp
+.sect
+.un 8
+GENNUM <number> <counternumber>
+.br
+	Increment GENNUM counter number <counternumber>
+	by <number> and insert the incremented number.
+	If no second argument, use counter 1.
+	If no arguments, increment counter 1 by 1.
+	TJ6 has eight GENNUM counters numbered 1-8.
+.in 4 EXAMPLE
+.crbr
+    1.GENNUM
+    .GENNUM 3
+    .GENNUM 2 12
+.crsp
+.GENNUM 1 8
+.GENNUM 3 8
+.GENNUM 2 8
+.in 8 END EXAMPLE
+	0To get GENNUMs without contiguous spaces, use the  in-text
+	command.  (See section 16, In-text Character Commands.)
+.sp
+.sect
+.un 8
+GENSET <number> <counternumber>
+.br
+	Set GENNUM counter number <counternumber> to <number>-1,
+	so that when the next GENNUM or  is used, <number> will appear.
+	If no second argument, use counter 1.  If no arguments,
+	reset counter number 1 to 0.
+.in 4 EXAMPLE
+.crbr
+    1.GENSET 1 1
+    .GENNUM2
+.GENSET 1 8
+.GENNUM 1 8
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+0ULFONT <number> B
+.br
+	If not using the XGP, underscore all characters in font number <number>.
+	When not using the XGP,
+	this command is handy for causing an italic XGP font to be replaced
+	by underscoring.
+	(Only one font at a time can be the ULFONT.)
+.in 4 EXAMPLE
+.crbr
+    1.ULFONT 3
+    Berman's book, 3Talks on American Law0, ...0
+.un -4
+	appears on the XGP as,
+    2Berman's book, 3Talks on American Law0, ...0
+.un -4
+	but appears elsewhere as,
+    1Berman's book, T_a_l_k_s__o_n__A_m_e_r_i_c_a_n__L_a_w_, ...0
+.crsp
+.in 8 END EXAMPLE
+.chap
+.he2
+In-text Character Commands
+.pa
+.in 0
+.sect
+In-text Character Commands
+
+These are characters which appear in text lines, but have the effect of
+commands.
+(All in-text commands can also appear in HEADING lines.)
+(They cannot be turned on and off as in PUB, but since translation
+(see TRANS, section 15, Miscellaneous Commands) occurs before in-text
+commands are interpreted, TRANS can be used as a sort of TURN ON FOR.)
+
+.sect
+.of 8
+(control Y)
+.br
+	Begin underscore.
+.in 4 EXAMPLE
+.crbr
+    1The House at Pooh Corner
+    2The House at Pooh Corner0
+.crsp
+.in 8 END EXAMPLE
+	Don't forget to turn off underscoring with the  command.
+	TJ6 underscores by printing a backspace and underscore following
+	each underscored character, except on the XGP where the XGP
+	underscore commands are used.
+	(The location of the XGP underscore is controlled by the PSCORE
+	command.  See section 14, XGP Commands.)
+	This means that on the XGP, an underscore made with the  and 
+	characters is different than one made by putting backspaces
+	and underbars in the input text.  Compare:
+.in 4 EXAMPLE
+.crbr
+    1The House at Pooh Corner.
+    T_h_e__H_o_u_s_e__a_t__P_o_o_h__C_o_r_n_e_r_.
+    2The House at Pooh Corner.
+    T_h_e__H_o_u_s_e__a_t__P_o_o_h__C_o_r_n_e_r_.0
+.crsp
+.in 8 END EXAMPLE
+	Use of  and  is preferred because it is:
+	easier to type in;  easier to edit;
+	takes less space in the source file;
+	and looks better on the XGP than underbars.
+.sp
+.sect
+.un 8
+(control X)
+.br
+	End underscore.  Used to terminate scope of  begin underscore command.
+.sp
+.sect
+.un 8
+<n>(control F)
+.br
+	Select font number <n>.
+	In this file fonts 0 through 3 are respectively:
+	25VG, 25FG, 25VMIC, and 25VRI.
+.in 4 EXAMPLE
+.crbr
+    1Fonts 0zero, 1one, 2two, and 3three.
+    2Fonts 0zero, 1one, 2two, and 3three.0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+<n>(control G)
+.br
+	Insert a generated number.  This command has exactly the
+	same effect as GENNUM 1 <n>, or with no argument, is the same
+	as GENNUM 1 1.  It is more flexible than GENNUM,
+	however, since a GENNUMed number is surrounded by spaces.
+.in 4
+.crbr
+    1Figure 1.
+    2Figure 1.0
+.crsp
+.in 8
+	If a GENNUM had been used here, there would have been a space
+	after the period.
+.in 4 EXAMPLE
+.crbr
+    1Figure 1.
+    .GENNUM2
+.crsp
+.GENSET
+    Figure 1.
+.GENNUM
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+0(control K)
+.br
+	Superscript. (Raise baseline by SCRIPT.)
+	The baseline will continue to be raised untill changed by another
+	 or 
, or reset by a .
+.in 4 EXAMPLE
+.crbr
+    1A
2n=B
n2
+    2A
2n=B
n20
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+
(control A)
+.br
+	Subscript. (Lower baseline by SCRIPT.)
+	See previous example.
+.sp
+.sect
+.un 8
+(control W)
+.br
+	Reset baseline to 0.
+	See previous example.
+.sp
+.block 4
+.sect
+.un 8
+(control D)
+.br
+	Insert date in format: Month day, Year.
+.in 4 EXAMPLE
+.crbr
+    1Today is .
+    2Today is .0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+(control N)
+.br
+	Insert current input file name in standard ITS format
+	DEV:SYSNAM;FNAM1 FNAM2.
+.in 4 EXAMPLE
+.crbr
+    1The source for this section of the TJ6 memo is .
+    2The source for this section of the TJ6 memo is .0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+(control Q)
+.br
+	Default QUOTE character. (See QUOTE.)
+.in 4 EXAMPLE
+.crbr
+    1
+    2
+    
+    0
+.crsp
+.in 8 END EXAMPLE
+.in 0
+.chap
+.he2
+Console Operation, Switches
+.pa
+.adjust
+.spsp
+.in 0
+Console Operation
+
+TJ6 console operation is basically like that of most other compilers.
+The program is started from DDT in the normal way.  It takes two file
+names as arguments, first the output name, then the input name.
+It compiles the output file, typing out any errors it finds, and when
+it is done, TJ6 kills itself.
+.br
+In this section 3italics0 will be used for all computer generated typeout.
+.br
+The following command strings will both compile the file JDC;TEST MEMO
+from the source file JDC;TEST >:
+.in 4 EXAMPLE
+.crbr
+    1TJ63!
+    NNTJ6 11.1
+    _1JDC;TEST MEMO_JDC;TEST >0
+.un -4
+	or simply
+    1:TJ6 TEST0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.sect
+.un 8
+Command Line Switches
+.br
+	There are some special "commands" which can be given as part of
+	the original TJ6 command line, and  which will be ignored when
+	part of a source file.
+	They are "command line switches" and consist of a / followed
+	by a character.
+.sp
+.sect
+.un 8
+/C
+.br
+	Output a table of contents intended for input to TJ6.
+	Make the output default second file name CONTEN instead of MEMO.
+	The table of contents will be a series of .SPREADs,
+	with the left field the .SECTIO section titles, and the right field
+	the page number.  The separator will be / or a character defined by
+	STERM.
+	(See section 11, Sections and Table of Contents.)
+.sp
+	Using the TJ6 contents feature requires running two passes of
+	TJ6, the one to produce the table of contents, the other to
+	produce the memo.
+	This memo has both a table of contents and a crude index which are
+	both INSRTed into the orginal file in order to produce the final
+	memo.
+	The DDT command string
+.un 4
+    1:TJ6 TJ6;TJ6MEM /X/C0
+.br
+	uses TJ6;TJ6MEM >, and outputs only a table of contents as the
+	file TJ6;TJ6MEM CONTEN.  TJ6MEM CONTEN is then alphabetized in TECO
+	to produce the index file TJ6;TJ6MEM INDEX.
+.un 4
+    1:TJ6 TJ6;TJ6MEM /X0
+.br
+	uses TJ6;TJ6MEM >
+	to produce the final XGPable memo as the file TJ6;TJ6MEM XGP.
+.sp
+	When using the /C command, make sure that TJ6 knows what
+	device the memo will eventually be output on, otherwise
+	the page numbers may be incorrect.  If the memo is eventually
+	going to the XGP, make sure to use the /X or XGP command.
+	If not using the XGP, use neither command, or specify an
+	output device other than DSK.
+.sp
+.sect
+.un 8
+/X
+.br
+	Output for the XGP.
+	This command is ignored unless output is to DSK.
+	This switch is exactly the same as the XGP command.
+.sp
+.sect
+.un 8
+/T
+.br
+	Take input from the teletype before reading the specified
+	file.
+	TJ6 will type out the prompt character > and
+	treat input from the teletype as though it
+	appears at the beginning of the specified source file.
+	TJ6 will continue reading from the teletype untill you
+	type a ET, INSRT, or APPEND command.
+.in 4 EXAMPLE
+.crbr
+    1TJ63!
+    NNTJ6 11.1
+    _1TEST /T
+    3>1.DS
+    3>1.BEGIN 7
+    3>1.ET0
+.crsp
+.in 8 END EXAMPLE
+.sp
+.in 0
+Although the following commands can appear in source files, they are usually
+used with the /T command switch.
+.in 8
+.sp
+.sect
+.un 8
+ET
+.br
+	End teletype input, and take input from the file.
+	This is used to end the scope of the /T console command switch.
+.sp
+.sect
+.un 8
+BEGIN <page number>
+.br
+	Begin output with page number <page number>.
+	(This means page number n, not the nth page.  For instance
+	if your text starts with page number 2, and you use
+	BEGIN 3, the output starts with page number 3, the second
+	page, not page number 4, the third page.
+.sp
+.sect
+.un 8
+NOWAIT BZ
+.br
+	Don't wait for a space to be typed on input console at start of each output page.
+	(Default for output to DSK, LPT, TPL, AI, ML, DM.)
+
+.chap
+.he2
+Error Messages
+.sp
+.insrt tj6;error >
+.in 0
+.chap
+.he2
+History
+.pa
+.sect
+Historical Note
+
+TJ6 was written  in the late 1960's by Richard Greenblatt to facilitate the writing
+of his paper on the chess program, and has since been "improved" by
+almost every system programmer, and many other ITS users.  This memo replaces one
+written by Greenblatt, Horn, and Krakauer,
+(AI Memo 164A, The Text-Justifier TJ6, Greenblatt, Horn, Krakauer, June 1970,)
+which in turn replaced the first TJ6 memo,
+(AI Memo 164, Producing Memos Using TJ6, TECO, and the
+Type 37 Teletype, Krakauer, September, 1968).
+
+Many of the changes introduced to TJ6 have been to satisfy the whim of some
+programmer for some formatting trick in his memo, but the major revisions represent
+a history of the output hardware of the AI Lab.  As seen by the title of the first memo,
+TJ6 was first used to output to a model 37 Teletype.  The second memo was
+contemporary to our IBM Selectrics and had an appendix
+entitled "The 'Selectric' output device".
+Another appendix on "Inserting lower case letters into the TECO buffer"
+was due to the lack of lower case terminals, and the need for a trick
+to get lower case into the TECO buffer from our model 33 Teletypes
+and GE "bagbiters" (Datanet 760's).
+
+The latest round of changes, made by
+the author, is aimed mostly at the Xerox Graphic Printer.
+TJ6 knows about variable width fonts, underlining, and other XGP features,
+and much of the code relating to Selectrics has beeen removed.  I have also
+spent much time trying to straighten out some of the internal workings of the
+program, and trying to make TJ6 a bit more human to use (by adding new features,
+error messages, and defaults.)
+
+Another round of changes has been aimed at simplifying and speeding up TJ6,
+largely by reducing it in size.  This effort has been rewarded.  TJ6 has been reduced
+from about 14 to 6 pure pages, in spite of the addition of much code needed
+to handle variable width fonts and the XGP.
+
+Although everyone probably has a favorite feature he or she would like added to
+TJ6, the program will probably remain frozen.  This freeze is a reaction
+to the sorry state that TJ6 was once in, when everyone's favorite feature
+of the week was added, and it became hard to run TJ6 without exciting
+some sort of bug.
+
+Making changes to TJ6 is ordinarily difficult because of complicated
+interactions among variables.  This difficulty, plus the desire to keep
+TJ6 small and fast militate against most changes.  Although some features
+will doubtless be added to TJ6, some of the most frequently requested
+changes:  footnotes, indices, etc., are absolutely out the question,
+as they would require total rewriting of TJ6 to be a two pass compiler
+like PUB.  If that sort of feature is important to you, use PUB.
+.sp
+.sect 
+Bugs
+.sp
+I am glad to fix any TJ6 bugs, but I need a copy (or pointer to) the source
+file that produces them.  A bug which seems as though it could be
+easily reproduced is often caused by some complicated interaction
+of commands and text in the source file.  It's frustrating to struggle
+to reproduce such bugs, when someone should have saved me the trouble
+by sending me a file that is know to do so.
+.sp
+.sect
+Overprinting
+.sp
+Simple overprinting works correctly in TJ6, but overprinting coupled
+with underlines, font shifts, or super- or subscripts will probably
+not give you the desired output.  This is because of TJ6's internal
+line storage format.  TJ6 stores lines column by column, with each
+column stored as a linked list of characters.
+When a printing character is read, it is CONSed onto the end of the
+current column, and the column number is incremented.
+Non-printing characters (n, , 
, , , ,)
+are CONSed to the end of the column list, but the column number is
+not incremented.
+Backspacing simply decrements the column number.
+TJ6 then prints the line column by column,
+centering all the characters in each column.
+.in 8
+	The input string:
+.in 4 EXAMPLE
+.crbr
+    1A<backspace>B<backspace>CD0
+.un -4
+	is stored internally as
+    Column 1: 1A B C0
+    Column 2: 1D0
+.un -4
+	 and will be printed correctly.  The input string
+    1e3<backspace>^0tre
+.un -4
+	0is stored as
+    Column 1:  1e ^ 0
+    Column 2:  13 0 t 0
+    Column 3:  1r 0
+    Column 4:  1e 0
+.crbr
+.in 8
+	Since all the characters in column 1 are printed before those in
+	column 2, the intended effect will be lost.  However,
+.crbr
+.in 4
+    1e<backspace>3^0tre
+.un -4
+	0is stored as:
+    Column 1:  1e 3 ^ 0
+    Column 2:  10 t 0
+    Column 3:  1r 0
+    Column 4:  1e 0
+.crsp
+.in 8 END EXAMPLE
+	and prints correctly as
+.un 4
+    2e0^2tre.0
+.br
+	(Since the internal line storage format is convenient for text
+	justification, and the combination of overstriking and font switching
+	is rarely used, it hardly seems worth the trouble to change
+	the internal format.)
+.in 0
+.sp
+.sect
+Sources
+.sp
+Most of the strange quotations in this memo are from
+Koestler's The Lotus and the Robot, and
+Berman's Talks on American Law.
+.sp
+.sect
+Files
+.sp
+Some of the ITS files related to TJ6 are:
+.nf
+TJ6;TJ6 >		source for TJ6
+SYSBIN;TJ6 BIN		assembled unpurified binary
+SYS;TS TJ6		purified binary (This is what actually runs.)
+SYS;TS OTJ6		antique version of TJ6
+TJ6;TJ6MEM >		source for this memo
+TJ6;TJ6MEM CONTEN	contents for this memo
+TJ6;ERROR >		error messages for this memo
+TJ6;TJ6MEM INDEX	index of this memo
+TJ6;RECENT >		recent changes to TJ6
+TJ6;TJTST >		TJ6 test file, INSRTs:
+TJ6;SPTEST >		INSRTed test file
+TJ6;TABTST >		INSRTed test file
+.in 0
+.ad
+.chap
+.he2
+Sample Input
+.pa
+.sect
+Sample Input
+
+.nf
+1.fill
+.center
+Simple Sample
+.SP
+Here is a simple sample of some input and output intended primarily
+for people who have never used TJ6.
+The TJ6 input file is a mixture of text and command lines.
+Command lines start with a period and tell TJ6 what to do with the
+text.  These lines are filled -- the left edges are aligned, and
+the right edges don't go beyond the margin.
+.sp
+.adjust
+These lines are adjusted -- both margins are exactly aligned.
+In order to use TJ6, you must start the program from DDT, and
+give TJ6 the name of an output and source file, separated by a _.
+For instance, (text generated by the computer is underlined)
+.nf
+.in 8
+:TJ6 <carriage return>
+NNTJ6 11.1
+_ TEST OUTPUT_TEST INPUT <carriage return>
+.INDENT 0
+.ADJUST
+If you don't give TJ6 an output file name, it will use the input first name
+and MEMO, and if you don't give it an input second name it will use >.
+For instance, the following lines have the same effect:
+.nf
+	:TJ6 TEST
+	:TJ6 TEST MEMO_TEST >2
+.sp
+.he2
+Sample Output
+.fill
+.center
+2Simple Sample
+.SP
+Here is a simple sample of some input and output intended primarily
+for people who have never used TJ6.
+The TJ6 input file is a mixture of text and command lines.
+Command lines start with a period and tell TJ6 what to do with the
+text.  These lines are filled -- the left edges are aligned, and
+the right edges don't go beyond the margin.
+.sp
+.adjust
+These lines are adjusted -- both margins are exactly aligned.
+In order to use TJ6, you must start the program from DDT, and
+give TJ6 the name of an output and source file, separated by a _.
+For instance, (text generated by the computer is underlined)
+.nf
+.in 8
+:TJ6 <carriage return>
+NNTJ6 11.1
+_ TEST OUTPUT_TEST INPUT <carriage return>
+.INDENT 0
+.ADJUST
+If you don't give TJ6 an output file name, it will use the input first name
+and MEMO, and if you don't give it an input second name it will use >.
+For instance, the following lines have the same effect:
+.nf
+	:TJ6 TEST
+	:TJ6 TEST MEMO_TEST >0
+.ad
+.in 0
+.chap
+.he2
+Index
+.pa
+.sect
+Index
+
+Note that this index is simply the TJ6 produced table of contents, as modified
+by the TECO alphabetic sort command.
+Section Titles are underlined.
+.nf
+.rtw 15
+.sp
+.append TJ6;TJ6MEM INDEX
+
\ No newline at end of file
diff --git a/src/tj6/tj6.28 b/src/tj6/tj6.28
new file mode 100644
index 00000000..6cc45114
--- /dev/null
+++ b/src/tj6/tj6.28
@@ -0,0 +1,4512 @@
+
+;title nntj6
+;Text justifier and adjuster
+;impurities go at the beginning
+.MLLIT==1
+
+Z=0	;flag register used in cmd
+A=1	;usually char
+B=2	;sometimes cdtab(character in a), sometimes command routine address
+C=3	;usually points into buff
+D=4	;width of char in a
+E=5
+F=6	;sometimes free storage pntr
+G=7	;xgp horiz pos
+H=10	;jsp to chrc & at xct rltbl(a)
+I=11	;used by chrc as pntr to next char
+J=12	;jsp to scnr1
+K=13	;temporary in commands from file e.g.
+L=14
+M=15
+W=16	;width of current line in xgp dots
+
+P=17	;pdl pointer
+.XCREF A,B,C,D,H,K,P,Z
+.XCREF CDTAB,LTYI,UTYI,TTYI
+
+MAXFNT==9	;highest legal font
+CSETSZ==200	;size of character set
+BUFSIZ==600	;size of buff
+SFS==<3*BUFSIZ>/2	;size of free storage (fs)
+HBUFL==120	;size of header
+PDLL==40	;size of pdl
+CMSWL==20	;size of end-of-line call buffer
+OBSIZ==200	;size of output buffer for block iots
+LFNTRNG==100	;length of ring buffer of font changes
+
+ERR==1000	;uuo for printing error comments
+EGG==2000	;print uuo
+BUGR==3000	;like err, but for internal bugs
+
+TYIC==1		;type in
+TYOC==2		;type out
+UTYIC==3	;file input
+UTYOC==4	;file output
+ERRC==5		;error device in
+FNTC==6		;font channel in
+
+SCBIT==200000	;On in BUFF if single char command
+ARGBIT==100000	;On if arg to single char command
+XQUOBT==40000	;Try to "normalize" quoted char
+JUSBIT==1000	;Prefer for justification (. ? ! at end of sentence)
+BKBIT==400	;Break (.?!:; at end of sentence or clause)
+MKBIT==200	;Marked space
+
+;On input (ie things in the source file)
+BLDCH==^A	;Base line down
+BLUCH==^K	;Base line up
+BLZCH==^W	;Base line reset
+BSCRCH==^Y	;Begin underscore
+ESCRCH==^X	;End underscore
+SFCH==^F	;Select font n
+GENCH==^G	;Generate number (=.GENNUM 1) followed by counter number
+FNMCH==^N	;File name
+DATCH==^D	;Date
+;On output (ie, things TJ6 puts in BUFF)
+;BSCRCH
+;ESCRCH		;End underscore followed by where it goes
+;SFCH		;Followed by fnt #
+BLSCH==BLZCH	;Base line set, followed by where
+BLICH==BLDCH	;Base line increment, followd by that
+ICSPCH==^Z	;Set intercharacter spacing
+VSPCH==^_	;Variable space
+TABCH==^I	;Tab (for variable width)
+
+;XGP information
+VRES==192.	;Resolution in dots per inch
+HRES==200.	;Horizontal res
+ULBUG==3	;Underline bugger factor. # of dots below baseline
+
+;Chars sent to XGP
+XGPESC==177	;XGP escape
+XRASET==40	;SP= set raster position
+XBASCH==43	;#= set base line
+STRTUL==46	;&= start underscore
+STOPUL==47	;'= end underscore
+XICHSP==50	;( set intercharacter space
+
+;Program character dispatch table
+;Flags in left half
+CDIGF==1_0	;Digit
+CLETF==1_1	;Letter
+CDUMF==1_2	;Dummy char, treated like letter
+CQUOF==1_3	;Quoting char
+CEOLF==1_4	;End of line char (cr of lf)
+CEOSF==1_5	;End of sentence (.?!)
+CEOCF==1_6	;End of clause (;:)
+CSMSF==1_7	;Space or marked space (240)
+CHYPF==1_10	;On if hyphen allowed to break
+CHHYF==1_11	;Hidden hyphen
+CFSPF==1_12	;Causes forward spacing (sp, tab)
+CLOSF==1_13	;"closing character" can follow super marked .  -)]"'
+CITCF==1_14	;In text command 

+CNNRF==1_15	;Usual XGP meaning is not "normal"
+CEOFF==1_16	;Can appear at or past eof (^@ ^C ^L)
+;Dispatch index in right half
+	CCOLX==1	; :
+	CSEMX==2	; ;
+	CSLSX==3	; /
+	CSPCX==4	; SP
+	CBKAX==5	; _
+	CCRTX==6	; CR
+	CLNFX==7	; LF
+	CLETX==10	; UPPER CASE LETTER
+	CDIGX==11	;Digit
+	CLLTX==12	;lower case letter
+	CMINX==13	; -
+	CRBOX==14	;RBO
+	CFFDX==15	;^L
+	CEOFX==16	;^C
+	CQUOX==17	;quote
+;	CTABX==20	;tab
+;	CBLDX==21	;^A
+;	CDATX==22	;^D
+;	CFNTX==23	;^F
+;	CGNMX==24	;^G
+;	CFNMX==25	;^N
+;	CBLZX==26	;^W
+;	CBULX==27	;^X
+;	CEULX==30	;^Y
+;	CEOSX==31	;! ? .
+;	CDUMX==32	;
+;	CHHYX==33	;
+;	C6BTX==34	;6 bit but none of above
+;CIDXL==35		;Length of dispatch tables
+	C6BTX==20
+CIDXL==21
+
+;macros
+DEFINE PRINT ARG\	;print error message (no CRLF)
+	EGG,,[ASCIZ /!ARG!/]
+TERMIN
+DEFINE BARF ARG\	;error message+file locations (+CRLF)
+	ERR,,[ASCIZ /!ARG!/]
+TERMIN
+DEFINE BUG ARG\		;TJ6BUG
+	BUGR,,[ASCIZ /!ARG!/]
+TERMIN
+
+;INTERRUPT LOCATIONS
+LOC 41
+JSR ERRH
+JSR TSINT
+LOC 100
+
+;variables and other impurities
+RAN:	0			;-1 if program ran (prevents purification)
+
+ONAM:	0,,(SIXBIT /DSK/)	;to-file name
+	0
+	SIXBIT /MEMO/
+OSYSNM:	-1
+
+RNBLK==.-1			;for final rename from tj6 output to memo
+	0			;called with .FDELE RNBLK
+	UTYOC
+	0
+	0
+
+RANTXT:	BLOCK 10		;for storage of random strings
+	RANMAX==5*<.-RANTXT>
+RANCNT:	0
+RANIPT:	440700,,RANTXT		;for writing into rantxt
+RANOPT:	440700,,RANTXT
+RSYSNM:	0			;initial system name
+DATE:	BLOCK 4			;asciz date stored here
+;these 4 must be in order (are printed like a file name)
+ITSNAM:	0			;machine name (AI,ML, or DM)
+JNAME:	.FNAM1			;file name of tj6
+	.FNAM2
+UNAME:	0			;user name
+;font stuff
+FEOF:	0			;font eof ptr
+TFBLK:	SIXBIT /  &DSK/		;font file specs temporarily stored here
+	SIXBIT /25FG/		;default font
+	SIXBIT /KST/
+	SIXBIT /FONTS/
+
+FNTBLK:
+FFDEV==.
+FFSYS==.+3
+	BLOCK	4
+HEIGHT:	<VRES/6>-6		;changed if in xgpmod
+BASE:	20
+WIDTHS:	;REPEAT CSETSZ,HRES/10.
+	REPEAT CSETSZ,16.
+	FNTBKL==.-FNTBLK	;font block length
+BLOCK <MAXFNT*FNTBKL>		;room for other fonts
+
+PAT:
+PATCH:	BLOCK 40
+
+;variables
+INDS:	0		;amount to indent
+NINDS:	0		;new
+NXLSPC:	0		;number of spaces to add to next line after current output line
+NXLC1:	0		;number of spaces at beginning of line
+MXPF:	0		;max position used in buff so far (see mxpf1 also)
+MXPF1:	0		;length of line up to where we cut off for full line output
+PSMX:	0		;max position used for pstrg
+NLFS:	0		;number line feeds extra after next line
+NBRKS:	0		;number spaces in line
+NPRDS:	0		;number of periods in line
+SPN:	0		;number spaces needed in justifying
+SINCR:	0		;space increment (left half integer)
+PGCMFL:	0		;-1 during .page command
+PGSPFL:	0		;on during .space or .page
+JERRF:	0		;-1 >one space needed per space
+C240S:	0		;# of marked spaces this column
+PRNCRS:	0		;# of printed chrs in a position
+PNST:	0		;0 or page to start with
+AUNDT:	0		;amount to undent
+CENTF:	0		;on during .space & .center
+;Following are numbers and variables which can be accessed with GENNUM
+GENNUM:	BLOCK 10	;Numbers gened
+CHAPNO:	0		;>0 chapter #
+OUTPAG:	0		;output page #, 1=first
+GENWMX==.-GENNUM	;End of writables
+OUTLIN:	0		;text line number on page, 1 = first line
+FPGPOS:	0		;line count on output from very top of page
+NPAGES:	0		;actual # of pages printed
+GENMAX==.-GENNUM
+DOTPOS:	0		;. or : or ? stored
+DOTPOB:	0		;cdtab indexed by dotpos
+DOTWID:	0		;width of dotpos
+ROTPNT:	0		;saved pointer to command for error output
+BLCKNT:	0		;.block count
+PLACEF:	0		;-1 print file locations with error msg
+BUGF:	0		;-1 print octal uuo pc
+EPGIN:	0		;epage increment
+EPGINN:	0		;new epage increment
+RGHCN:	0		;0 for center, -1 for right
+NWAITF:	0		;-1 for nowait at top of page
+NHEADF:	0		;-1 for no header
+PHP1F:	0		;-1 print header on pd 1
+THSFLG:	0		;pg #s inside margins
+PWHDF:	0		;align margin with paper width
+NVRADJ:	0		;non-zero to cause no adjusting at all to happen
+JMODE:	0		;1 justify and fill, 0 fill, -1 do nothing
+NJMODE:	0		;new jmode
+SPSPF:	0		;-1 leadings sp and tab don't break
+CRBRF:	0		;-1 break on all crs
+SPFLSF:	0		;-1 compact spaces
+CRCOMF:	0		;-1 compact cr's
+MID.F:	0		;-1 use smarts about  .?!;:
+CONTEN:	0		;-1 table of contents
+SLASHC:	0		;/c in file specs
+CONFLG:	0		;>1 when printing contents line
+CNTFL:	0		;counts number of times we go to rdeol during section title
+IOPUSD:	0		;# of nested inserts
+APPFLG:	0		;0 for insrt, -1 for appnd
+HYPOP:	0		;-1 broke on hidden hyphen
+FIGP:	0		;# lines this fig,,pntr to next
+LTLF:	0		;>1 line too long message typed for this line
+COMLF:	0		;-1 sucessfully read initial command line
+SLASHT:	0		;-1 /t flag in initial line
+			;xgp stuff
+SLASHX:	0		;-1 /x typed, ignore user page specs
+XGPMOD:	0		;-1 use xgp (output dev=dsk & .xgp or /x typed)
+FONTD:	0		;desired font
+FONTC:	0		;current font
+ULD:	0		;desired underline state (1=underline)
+ULC:	0		;current underline state
+HEDSPT:	0		;-1 use split headers
+BLPOS:	0		;baseline position +=down
+LBLPOS:	0		;last base line position sent
+XSPGF:	0		;-1 no xgp command pg
+SQUISF:	0		;-1 print ;squish
+LTRSPF:	-1		;0 suppress letterspacing (allow .adjust to space only between words)
+XNORF:	-1		;-1 to "normalize" quoted characters
+IFNT:	0		;input font
+IFNIDX:	0		;index to input font
+RSEFNT:	0		;ifnt at end of rstrg
+HDFONT:	0		;ifnt at end of .header (font that pg num will appear in)
+OFNIDX:	0		;index to output font
+INCHSP:	0		;intercharacter space
+HPCW:	0		;-hlf previous character width
+TABSEF:	0		;-1 if user specified tab or space width
+TABFNT:	0		;idx of font whose widest char is 1/8 tab. -1 for all fonts
+
+BLOCKM:	0		;-1 if output block iots
+CMIDX:	0		;index to cmblk on ouput
+CMCNT:	0		;same on input
+RDTXTF:	0		;-1 if some text has been read
+OFN2F:	0		;-1 user specified output fnm2
+
+HYPCHR:	-1		;Character to hide hyphen
+NQUOTE:	^Q		;Quote character
+STERMC:	"/		;Used as separator in written .spreads
+PROMPT:	"_		;Prompt character for tty input
+
+LNL:	73.		;Line length (=tw-indentation-leading spaces)
+XLNL:	73.*16.		;In xgp dots
+OPTST:	CAMGE C,LNL	;Skip if enough to output line
+OPTST1:	CAMLE C,LNL	;skip if not too much for one line
+TW:	73.		;Text width in chars
+PW:	85.		;Full page width
+TL:	50.		;Text length in lines
+PL:	66.		;Full page length
+WIDTH:	HRES/10.	;Width of above units in xgp dots
+TABW:	<10*HRES>/10.	;Width of tab
+	;Order of following is important
+PWINCH:	8500.		;Paper width in 1000-th of an inch
+PLINCH:	11000.		;Length
+TWINCH:	<73.*16.*1000.>/HRES	;Text width
+TLINCH:	<50.*<6+25.>*1000.>/VRES	;Text length
+LMINCH:	1500.		;Left margin
+VSP:	6.		;Xgp vertical spacing
+TOPMAR:	50.		;TOPMAR to send to XGP
+LFTMAR:	50.		;LFTMAR to send to XGP
+
+LFMD:	1		;1= single spacing, 2=double, etc.
+OLFMD:	1		; .. for previous line output
+DIRSCN:	-1		;Direction of justifing scan
+TYRFL:	TYO		;PUSHJ P,@TYRFL to output character
+CHARO:	BUFOUT		;Output char to file (different for blaock and unit output)
+CHARI:	TTYI		;Input char (switch among file, tty, rantxt, last char)
+CHARI1:	TTYI		;Moved to chari after lchar is used
+COMTYI:	FTYI		;Used by command reader
+LCHAR:	0		;Character to be reread
+FFFF:	0		;-1 supply ff at end of page (not on for lpt and tty)
+MARGIN:	6		;Left (and hopefully right) margin
+HBUFC:	5		;Number columns taken by text in hbuf
+HBUFW:	5*16.		;Width of text
+HBUFC1:	0		;number of columns of left header
+HBUFW1:	0		;width of left header
+HBUFC2:	0		;number of columns of right header
+HBUFW2:	0		;width of right header
+TPMAR:	8		;Top margin in lines counting heading (heading takes 3 lines)
+TPMAR3:	5		;top margin-heading space
+PRCNT:	60.		;Percent of paging margin which goes at top of page
+PRSNT:	50.		;Percent of line margin which goes on left side
+TERMC:	-1		;Terminator in RSTRG
+CBUF1:	0		;Count for first field in spread
+CBUF2:	0		;Second field
+RNLL:	73.		;"Real" NLL (used for header)
+RMARGI:	6		;"Real" margin
+ULBASI:	ULBUG		;underline position for input stream
+ULBASO:	ULBUG		;			output
+BLAMT:	12.		;Amount ^A or ^K will move base
+ULFNT:	1		;Font to underline if not to XGP
+SEPCHR:	-1		;terminator in spread
+SBLOCK:	2		;size of .block implied by .sect
+TCTYPE:	0		;its tctyp variable 0 =printing console
+ALTFLG:	0		;alternates heading 1 & 2 when non-zero (bkph)
+SWPFLG:	0		;zero means he1 on left & he2 on right
+
+;various buffers & pntrs
+COMCAL:	0			;last call from COMMA1
+CMBLK:	BLOCK CMSWL		;commands to do after printing line currently in buff
+TRNTBL:	REPEAT CSETSZ,.RPCNT	;(Input) translation table
+CDTAB:	BLOCK	CSETSZ		;character bit and dispatch table
+
+TPNTR:	10700,,TBUF-1		;tty buffer pntr
+TCNT:	0			;# of chars in tbuf
+
+DNAM:	'DSK			;from-file name
+FNAM1:	0
+FNAM2:	SIXBIT />/
+ISYSNM:	-1
+IACCES:	0			;.access pntr
+	INBLK==.
+INPAGN:	1			;page # in input file
+INLINE:	0			;line count on input file
+INPTR:	10700,,RCHBUF-1
+BLKIP:	0			;.iot pntr after iot
+IEOFP:	0			;possible byte pntr to end of file
+RCHBUF:	BLOCK 200		;input buffer
+	TBUF==RCHBUF		;doubles as tty buffer
+RCHBFE:	^C_35
+
+IOPDLB:				;inpagn,inline,inptr,ieofp, + 1 buffer wd saved here
+PBLKIP==.+BLKIP-INBLK
+PIEOFP==.+IEOFP-INBLK
+PINWD==PIEOFP+1
+IOBKL==PINWD+1-IOPDLB
+	BLOCK 7*IOBKL
+
+OUTFLS:	0			;-1 flush output (used by contents and begin)
+OUTBUF:	BLOCK OBSIZ		;buffer for block iots
+OUTCNT:	OBSIZ			;# of free bytes in outbuf
+OUTPTR:	700,,OUTBUF-1		;byte pntr to outbuf
+
+HBUF: IRPC C,,[PAGE ]
+	"C,,0
+TERMIN
+	LOC HBUF+HBUFL
+HBUF1:	BLOCK HBUFL/2		;left header character string
+HBUF2:	BLOCK HBUFL/2		;right header character string
+
+FNTRPT:	LFNTRNG-1		;font ring pointer
+FNTRNG:	REPEAT LFNTRNG, -1	;ring buffer of IFNT as of before each ^F command
+
+FF:	.+1			;pntr to head of fs
+	REPEAT SFS,.+1		;fs chain
+	0
+	FNTBUF==.		;following double for font buffer
+BUFF:	BLOCK BUFSIZ		;contains chrs, marked chrs and pointers into chains
+	0			;losing crock can run 1 over buffer
+COLWID:	BLOCK BUFSIZ		;width of columns
+	FNTBFL==.-FNTBUF
+	0			;losing crock can run 1 over buffer
+PDL:	-PDLL,,.+1
+	BLOCK PDLL+1
+
+;start of code
+ERRH:	0			;uuo handler
+	JRST	ERRHAN
+
+				;interrupt code
+TSINTA:	0			;A saved here
+TSINT:	0			;interupt has to be type in
+	0
+PURE==.				;start of pure code
+	MOVEM	A,TSINTA
+	MOVEI	A,TYIC
+	.ITYIC	A,		;int caused by tty?
+	JRST	DINT		;no
+	CAIN	A,^Z
+	.VALUE			;to replace toplevel TJ6 with DDT
+	CAIN	A,^G
+	JRST	CNTRLG
+DINT:	MOVE	A,TSINTA
+	.DISMIS	TSINT+1
+
+CNTRLG:	SKIPN	FFFF		;user trying to quit
+	.RESET	UTYOC,
+	.RESET	TYIC,
+	MOVE	A,CHARI1
+	CAME	A,TTYI
+	JRST	ENDAR		;To avoid getting stuck in TYI
+	JRST	DINT
+
+;4 types of error output routines
+ERRHAN:	PUSH	P,A
+	PUSH	P,B
+	PUSH	P,C
+	PUSH	P,H
+	PUSH	P,K
+	PUSHJ	P,TTYOON
+	HLRZ	B,40		;uuo
+	CAIN	B,BUGR
+	JRST	BGRH
+	CAIN	B,EGG		;print uuo
+	JRST	EGGH
+	CAIN	B,ERR
+	JRST	ERRH2
+	PUSHJ	P,PLACET
+ILLUUO:	.VALUE
+	JRST	ENDAR		;start again if return from ddt
+
+EGGH:	SETZM	PLACEF
+	JRST	.+2
+ERRH2:	SETOM	PLACEF
+	SETZM	BUGF
+ERRH3:	HRRZ	B,40		;normal error message output routine
+	HRLI	B,440700
+	JRST	ERRHP
+
+BGRH:	SETOM	PLACEF
+	MOVEI	H,[ASCIZ /TJ6BUG /]
+	PUSHJ	P,OPSTH		;print string
+	HRRZ	A,ERRH		;location
+	SOJ	A,
+	PUSHJ	P,OCPT
+	PUSHJ	P,OPSP
+	SKIPN	PURED
+	SETOM	BUGF		;.value if unpure
+	JRST	ERRH3
+
+	PUSHJ	P,@TYRFL
+ERRHP:	ILDB	A,B
+	JUMPN	A,.-2
+	SKIPE	PLACEF
+ERRHPL:	PUSHJ	P,PLACET	;print file place info
+	POP	P,TYRFL
+	POP	P,K
+	POP	P,H
+	POP	P,C
+	POP	P,B
+	POP	P,A
+	SKIPN	BUGF
+	SKIPE	ERBRK
+BUGVAL:	.VALUE
+	JRST	2,@ERRH		;return
+
+;print IFNAME(page,line)(output page,line)
+PLACET:	SKIPN	BLOCKM
+	PUSHJ	P,PRNTRA	;To avoid top of page hassle
+	PUSHJ	P,OPSP
+	PUSHJ	P,OPINAM	;Print file name
+	PUSHJ	P,OPOPAR	;Input page & line
+	MOVE	A,INPAGN
+	PUSHJ	P,DPT
+	PUSHJ	P,OPCOMA
+	MOVE	A,INLINE
+	PUSHJ	P,DPT
+	PUSHJ	P,OPCPAR
+	PUSHJ	P,OPOPAR	;Output chapter,page and line
+	PUSHJ	P,PGNPT
+	PUSHJ	P,OPCOMA
+	MOVE	A,OUTLIN
+	AOJ	A,
+	PUSHJ	P,DPT
+	PUSHJ	P,OPCPAR
+	SKIPE	BLOCKM
+	JRST	OPCRLF
+	JRST	CRR
+;character input routines
+RNCH:	MOVE	A,CHARI1	;read next char
+	MOVEM	A,CHARI
+	JRST	@A
+
+UNCHCR:	MOVEI	A,^J		;make lf last char
+UNCH:	MOVEM	A,LCHAR
+	MOVEI	A,LTYI		;reread last char
+	MOVEM	A,CHARI
+	POPJ	P,
+
+RURCH:	PUSHJ	P,RCH		;read and "unread" char
+UNCHA:	PUSHJ	P,UNCH
+	MOVE	A,LCHAR
+	POPJ	P,
+
+RCH:	PUSHJ	P,@CHARI	;Read an untranslated char
+	MOVE	A,TRNTBL(A)	;Translate
+	MOVE	B,CDTAB(A)	;Get char description bits
+RWID:	MOVE	D,A		;Get width
+	ADD	D,IFNIDX
+	MOVE	D,WIDTHS(D)
+	POPJ	P,
+
+LTYI:	MOVE	A,CHARI1	;reread last char
+	MOVEM	A,CHARI		;reset chari
+	MOVE	A,LCHAR
+	MOVE	B,CDTAB(A)
+	POPJ	P,
+
+RTYI:	SOSGE	RANCNT		;input from rantxt
+	JRST	RTY1		;nothing left
+	ILDB	A,RANOPT
+	POPJ	P,
+RTY1:	SETZM	RANCNT		;reset counters
+	MOVE	A,[440700,,RANTXT]
+	MOVEM	A,RANIPT
+	MOVEM	A,RANOPT
+	PUSHJ	P,FTYION
+	JRST	FTYI		;get char from file
+
+RTYION:	SKIPA	A,[RTYI]
+FTYION:	MOVEI	A,FTYI
+TYION:	MOVEM	A,CHARI1	;change CHARI
+	EXCH	A,CHARI		;return old CHARI
+	POPJ	P,
+FTYI:	ILDB	A,INPTR		;read char from file
+	MOVE	B,ICDTAB(A)
+FTYI1:	XCT	FTYITB(B)
+	POPJ	P,
+
+FTYITB: REPEAT CIDXL,POPJ P,
+LOC FTYITB+CEOFX
+	JRST	RDFCC
+LOC FTYITB+CLNFX
+	AOS	INLINE
+LOC FTYITB+CFFDX
+	JRST	RPAK
+LOC FTYITB+CIDXL
+
+RPAK:	AOSN	LCHAR
+	POPJ	P,		;quoted ^L
+	AOS	INPAGN		;count input file page #
+	MOVEI	A,1
+	MOVEM	A,INLINE
+	JRST	FTYI		;Read another char
+
+RDFCC:	MOVE	L,INPTR		;read a ^c from file
+	CAMN	L,IEOFP
+	JRST	RCHEOF		;Real end of file
+	CAME	L,[350700,,RCHBFE]
+	POPJ	P,		;Not end of buffer, real ^C
+REFILL:	MOVE	A,[-200,,RCHBUF]
+	.IOT	UTYIC,A
+	HRRZM	A,BLKIP
+	JUMPL	A,REFEOF	;end of file in this block
+	SETZM	IEOFP
+REFIL1:	MOVE	A,[10700,,RCHBUF-1]
+	MOVEM	A,INPTR
+	JRST	FTYI
+
+REFEOF:	HLL	A,RCHBFE
+	HLLZM	A,(A)		;make sure of end of file char
+	MOVE	L,A
+	HRLI	L,350700	;make b byte pointer
+REDBP:	PUSHJ	P,DECBP		;decrement it
+	CAMN	L,[10700,,RCHBUF-1]
+	JRST	REDBP3		;at start of buffer
+REDBP1:	LDB	A,L
+	JUMPE	A,REDBP		;null
+	CAIE	A,^C
+	CAIN	A,^L
+	JRST	REDBP		;not yet backed past eof
+REDBP2:	ILDB	A,L		;found 1st char before eof, now go back to eof
+	CAIE	A,^C
+	JRST	REDBP2
+	MOVEM	L,IEOFP
+	JRST	REFIL1
+				;bletch, eof was in previous buffer
+	PUSH	P,H
+	JSP	H,CHRC		;traps if not ^c or ^l
+	 QPEOF
+REDBP3:	SOJGE	C,.-2
+	POP	P,H
+	SETZ	C,
+	JRST	QPEOF1
+
+QPEOF:	TLNE	B,CEOFF
+	POPJ	P,		;this char can appear at or after eof
+	POP	P,
+QPEOF1:	MOVEM	C,MXPF
+	MOVEM	C,MXPF1
+	JRST	RCHEOF
+
+DECBP:	ADD	L,[70000,,0]	;decrement byte pntr in L
+	SKIPGE	L
+	SUB	L,[430000,,1]
+	POPJ	P,
+
+;stuff to output to file
+DAMBUF:	PUSH	P,A
+	MOVE	A,[-OBSIZ,,OUTBUF]
+	.IOT	UTYOC,A		;block mode .IOT
+	MOVEI	A,OBSIZ*5
+	MOVEM	A,OUTCNT
+	MOVE	A,[440700,,OUTBUF]
+	MOVEM	A,OUTPTR
+	POP	P,A
+BUFOUT:	SOSGE	OUTCNT		;block mode
+	JRST	DAMBUF
+	IDPB	A,OUTPTR
+	POPJ	P,
+
+UNITYO:	.IOT	UTYOC,A		;unit mode
+	POPJ	P,
+
+
+;Low level printing routines
+OPCRLF:	MOVEI	A,^M
+	PUSHJ	P,@TYRFL
+	MOVEI	A,^J
+	JRST	@TYRFL
+
+OPFF:	SKIPA	A,[^L]
+OPSP:	MOVEI	A,40
+	JRST	@TYRFL
+
+OPDOT:	SKIPA	A,[".]
+OPCOMA:	MOVEI	A,",
+	JRST	@TYRFL
+
+OPOPAR:	SKIPA	A,["(]
+OPCPAR:	MOVEI	A,")
+	JRST	@TYRFL
+
+PGNPT:	SKIPG	A,CHAPNO	;print page & chapter
+	JRST	PGNPT1		;no chapter
+	PUSHJ	P,DPT		;print it
+	PUSHJ	P,OPDOT
+PGNPT1:	MOVE	A,OUTPAG
+DPT:	JUMPGE	A,DPT2
+	MOVNS	A
+	SKIPA	B,["- - "0]
+DPT2:	IDIVI	A,10.		;decimal output routine
+	HRLM	B,(P)		;store digits in lefthalf of pdl words
+	JUMPE	A,DPT1
+	PUSHJ	P,DPT2		;more digits to come
+DPT1:	HLRZ	A,(P)		;get digits off pdl again
+	ADDI	A,"0
+	PUSHJ	P,@TYRFL
+	POPJ	P,
+
+OCPT:	IDIVI	A,10		;octal print
+	HRLM	B,(P)
+	JUMPE	A,DPT1
+	PUSHJ	P,OCPT
+	JRST	DPT1
+
+PSTN:	PUSHJ	P,OPSTH		;print ASCIZ string, number, CRLF
+	MOVE	A,K
+PSTN1:	PUSHJ	P,DPT
+	JRST	OPCRLF
+
+OPSTH:	HRLI	H,440700
+	JRST	.+2
+	PUSHJ	P,@TYRFL
+	ILDB	A,H
+	JUMPN	A,.-2
+	POPJ	P,
+
+OPSTHC:	PUSHJ	P,OPSTH		;print string, then crlf
+	JRST	OPCRLF
+
+OPINAM:	MOVEI	K,DNAM		;input file name
+;output file name at k
+OPFNM:	HRLZ	H,(K)		;device
+	PUSHJ	P,OP6BT
+	MOVEI	A,":
+	PUSHJ	P,@TYRFL
+OPFNM1:	MOVE	H,3(K)		;sys name
+	PUSHJ	P,OP6BT
+	MOVEI	A,";
+	PUSHJ	P,@TYRFL
+OPFNM2:	MOVE	H,1(K)		;1st name
+	PUSHJ	P,OP6BT
+	MOVEI	A,40
+	PUSHJ	P,@TYRFL
+	MOVE	H,2(K)		;2nd name
+	JRST	OP6BT
+
+OPFNMA:	HRRZ	H,(K)		; Output possibly foreign font file name.
+	CAIE	H,(SIXBIT /DM/)
+	 CAIN	H,(SIXBIT /MC/)
+	  JRST	OPFNM
+	CAIN	H,(SIXBIT /ML/)
+	 JRST	OPFNM
+	JRST	OPFNM1
+
+	LDB	A,[360600,,H]
+	LSH	H,6
+	ADDI	A,40		;convert to ascii
+	PUSHJ	P,@TYRFL
+OP6BT:	JUMPN	H,.-4		;output 6bt in h
+	POPJ	P,
+
+OPDECK:	IDIVI	K,1000.		;print "decimal" # in k
+	MOVE	A,K
+	PUSHJ	P,DPT		;print to left of decimal
+	SKIPN	K,L
+	POPJ	P,		;nothing to right of .
+	PUSHJ	P,OPDOT		;print .
+	IDIVI	K,10.
+	PUSH	P,L
+	IDIVI	K,10.
+	MOVEI	A,"0(K)
+	PUSHJ	P,@TYRFL
+	MOVEI	A,"0(L)
+	PUSHJ	P,@TYRFL
+	POP	P,A
+	ADDI	A,"0
+	JRST	@TYRFL
+
+SPUMPB:	ADD	B,MARGIN	;sp or underlin
+SPUL:	JUMPLE	B,SPARET
+	MOVE	A,ULFNT
+	CAME	A,FONTD
+	SKIPE	ULD
+	JRST	.+2
+	JRST	SPAZIG		;space
+	MOVEI	A,"_
+	JRST	SPAZI2
+
+SPMPB1:	MOVE	G,B		;use real spaces
+	IDIV	G,WIDTH
+	SKIPA	B,G
+SPAZIG:	PUSHJ	P,SPNULF	;insert b spaces
+SPAZI1:	JUMPLE	B,SPARET
+	MOVEI	A,40
+SPAZI2:	PUSHJ	P,@CHARO
+	SOJG	B,.-1
+SPARET:	POPJ	P,
+
+SPMPB:	SKIPE	CONTEN
+	JRST	SPMPB1
+	MOVE	G,MARGIN	;space to margin +b raster dots
+	IMUL	G,WIDTH
+	ADD	G,B
+	JRST	OPRAST
+
+SPMBSP:	ADD	B,MARGIN	;space to margin + B spaces
+	JUMPGE	B,SPB
+	SKIPGE	MARGIN
+	BARF TW>PW		;margin is negative
+	SETZB	B,MARGIN
+SPB:	PUSHJ	P,FIXUSE	;turn off underlining
+SPB1:	SKIPE	XGPMOD		;space to b spaces
+	SKIPE	CONTEN
+	JRST	SPAZI1
+	MOVE	G,B
+	IMUL	G,WIDTH
+OPRAST:	PUSHJ	P,OPESC1	;tab to raster position in g
+	MOVEI	A,XRASET
+	PUSHJ	P,BUFOUT
+	LDB	A,[70700,,G]
+	PUSHJ	P,BUFOUT
+	MOVE	A,G
+	JRST	BUFOUT
+
+OPCINC:	PUSHJ	P,OPESC2	;output column increment in k
+	MOVE	A,K
+	ADD	G,K
+	JRST	BUFOUT
+
+;fix underline state and font
+SPNULF:	PUSHJ	P,FIXUSE	;fix underline state
+OPFNTZ:	TDZA	A,A		;space in font 0
+OPFNTD:	MOVE	A,FONTD
+OPFNTA:	SKIPE	XGPMODE		;output font command, font in a
+	CAMN	A,FONTC
+	POPJ	P,		;not xgp, or right font
+	SETZM	LBLPOS		;font change resets base line
+	MOVEM	A,FONTC		;current font
+	SKIPE	CONTEN
+	POPJ	P,
+	PUSHJ	P,OPES1A	;output escape 1,then a
+OPBASE:	MOVE	A,BLPOS		;output base line position from blpos
+	SKIPE	XGPMOD
+	CAMN	A,LBLPOS
+	POPJ	P,
+	MOVEM	A,LBLPOS
+	SKIPE	CONTEN
+	POPJ	P,
+	MOVEI	A,XBASCH
+	PUSHJ	P,OPES1A
+	MOVE	A,BLPOS
+	JRST	BUFOUT
+
+;fix underline state
+FIXUSE:	TDZA	A,A		;end uderscore
+FIXUS:	MOVE	A,ULD
+	EXCH	A,ULC
+	SKIPE	XGPMOD
+	CAMN	A,ULC
+	POPJ	P,		;current state is desired one
+	SKIPN	CONTEN
+FIXUSP:	JRST	@FIXUST(A)
+	POPJ	P,
+
+	OPESCR
+FIXUST:	OPBSCR			;idx by -1
+
+;output begin underscore
+OPBSCR:	MOVEI	A,STRTUL
+	JRST	OPES1A
+
+;end underscore
+OPESCR:	PUSHJ	P,OPSTPU
+	MOVE	A,ULBASO	;where to underline
+	PUSHJ	P,BUFOUT
+	PUSHJ	P,OPSTPU
+	MOVE	A,ULBASO
+	SOJA	A,BUFOUT	;another one one dot down
+
+OPSTPU:	MOVEI	A,STOPUL
+OPES1A:	PUSH	P,A
+	PUSHJ	P,OPESC1	;output escape 1,
+	JRST	OPPA		;then a
+
+OPESC2:	SKIPA	A,[2]
+OPESC1:	MOVEI	A,1		;output xgp escape 1
+OPESCA:	PUSH	P,A		;output escape then a
+OPESPA:	MOVEI	A,XGPESC	;escape, then pushed a
+	PUSHJ	P,BUFOUT
+OPPA:	POP	P,A		;pushed a
+	JRST	BUFOUT
+
+;Loop untill fill or adjusted, long enough to output
+;Unfilled, centered, etc. untill eol
+RLOOPX:	XCT	RLTBL(A)	;pushj p, jsp h, or jrst
+	JUMP	RLOOPI		;for JRST @(H), noop otherwise
+RLOOP:	CAMLE	C,MXPF
+	MOVEM	C,MXPF		;furthest into buffer we have been
+	PUSHJ	P,RCH		;read char in a, bits in b
+RLOOP2:	TLNE	B,CEOSF+CEOCF+CQUOF+CHHYF+CDUMF+CHYPF
+	JRST	RLOOPS
+	CAIG	A,40
+	JRST	RLOOPX
+RLOOPI:	PUSHJ	P,BE		;put goodie in a into buffer
+RLOOP1:	CAIGE	C,BUFSIZ-1
+	AOJA	C,RLOOP
+	JRST	MNBRR		;line too long, print it
+
+;Here if .!? ;: quote hidden - dummy or hyphen
+RLOOPS:	TLNE	B,CEOSF+CEOCF
+	JRST	RDOT		;!?. or ;:
+	TLNE	B,CDUMF
+	JRST	RDDUM		;dummy
+	TLNE	B,CHYPF
+	JRST	RDHYP		;-
+	TLNE	B,CQUOF
+	JRST	RDQUO		;gobble next unconditionally
+	JUMPLE	C,RLOOP		;hidden hyphen, ignore in 1st col
+	SOJ	C,		;put in previous col
+	SETZ	D,
+	PUSHJ	P,BE		;store
+	MOVE	A,IFNIDX
+	MOVE	A,WIDTHS+"-(A)
+	ADDI	A,ARGBIT	;Store width of - as arg
+	JRST	RLOOPI
+
+RDHYP:	PUSH	P,D
+	PUSHJ	P,RURCH
+	POP	P,D
+	MOVEI	A,"-
+	TLNE	B,CHYPF
+	ADDI	A,XQUOBT	;Quote first - to prevent break in middle of dash
+	JRST	RLOOPI
+
+RDDUM:	PUSHJ	P,RDUM
+	JRST	RLOOP1
+
+RDUM:	MOVEI	A,40		;dummy, quoted space
+	JRST	RQUOT1
+
+RDQUO:	PUSHJ	P,RQUOT
+	JRST	RLOOP1
+
+;here on quote char
+RQUOT:	SETOM	LCHAR		;kluge so that ^l can be quoted
+	PUSHJ	P,@CHARI	;gobble another guy, untranslated
+	SETZM	LCHAR
+RQUOT1:	PUSHJ	P,RWID
+	ADDI	A,XQUOBT
+	JRST	BE		;store the quoted char
+
+;DISPATCH TABLE FOR RLOOP, READIN
+;Called with XCT RLTBL(A), table contains JSP H, to know who did XCT
+;NOTE THIS TABLE INCLUDES SPACE (for RLOOP only)
+RLTBL:	REPEAT 41,JSP H,RLDEF	;All but following simply default
+LOC RLTBL+BLDCH
+	PUSHJ	P,RBLD		;base line down
+LOC RLTBL+DATCH
+	PUSHJ	P,ADATE		;date
+LOC RLTBL+SFCH
+	PUSHJ	P,RFNT		;select font
+	PUSHJ	P,RDGEN		;^G .GENNUM
+	PUSHJ	P,RDBS		;^H
+	JSP	H,RDTAB		;^I TAB
+	JSP	H,RDLF		;^J Line feed
+	PUSHJ	P,RBLU		;^K Base line up
+	JSP	H,RLDEF
+	JSP	H,RDCR		;^M CR
+	PUSHJ	P,AFNAME	;^N file name
+LOC RLTBL+BLZCH
+	PUSHJ	P,RBLZ		;^W Zero base line
+	PUSHJ	P,RESCR		;^X End score
+	PUSHJ	P,R1CMD		;^Y Begin underscore
+LOC RLTBL+40
+	JRST	RDSP		;Space (only called from RLOOPX)
+
+RLDEF:	JRST	@(H)		;simply return to where indicated at call
+
+RDTABF:	MOVEI	A,40
+RDSP:	SKIPE	SPFLSF		;Here if char is a space
+	JUMPE	C,RLOOP		;Ignore leading spaces in adjust mode
+RDSP1:	PUSHJ	P,BE		;Stow it
+RDSPC:	PUSHJ	P,RCH		;Here if char we put in buff acts like a space
+	TLNE	B,CFSPF
+	JRST	RDFLSP		;Treat series of spaces and tabs like one
+RDSPC1:	TLNE	B,CEOLF
+	AOJA	C,RLOOPX	;Handle CR&LF now to avoid extra blank lines
+	PUSHJ	P,UNCH
+RDOTST:	XCT	OPTST
+	JRST	RLOOP1
+	JRST	MNBRR		;Enough for output
+
+RDFLSP:	SKIPE	SPFLSF
+	JRST	RDSPC		;Flushing spaces in middle of line
+	AOJA	C,RDSP1		;Stow it
+
+;Tab handling routines
+RDTAB:	HRRZ	H,H
+	CAIE	H,RLOOPX+1
+	JRST	RDTAB1		;Called from readin
+	SKIPE	SPFLSF
+	JRST	RDTABF		;flushing redundant spacing
+	SKIPN	XGPMOD
+	JRST	RDTAB1
+	MOVEI	B,10(C)
+	LSH	B,-3
+	IMUL	B,TABW
+	CAML	B,XLNL
+	JRST	MNBRK		;output the line
+RDTAB1:	PUSH	P,H		;where to popj to
+	SKIPN	XGPMOD
+	JRST	RETAB
+				;var width tab
+RVTAB:	MOVE	A,NXLC1		;size of tab=(10-(c+nxlc1)!7)*width
+	ADD	A,C
+	ANDI	A,7
+	MOVEI	D,10
+	SUB	D,A		;# of columns taken by this tab
+	ADDI	C,-1(D)		;put tab in 7'th mod 10 column
+	CAIL	C,BUFSIZ-1
+	JRST	RVTAB1		;buffer full
+	MOVE	D,WIDTH
+	IMULI	D,1(C)		;absolute distance from start of text on this line
+	SUB	D,W		;size of tab
+	JUMPG	D,.+3
+	ADD	D,TABW		;in case user made width too small
+	JUMPLE	D,.-1
+	MOVEI	A,TABCH+SCBIT
+	PUSHJ	P,BE		;put tab in buf
+	MOVEI	A,ARGBIT+1(C)	;column for next char as arg
+	PUSHJ	P,BE
+	PUSHJ	P,BE3		;fix column width
+	AOJA	C,RETABP
+
+RVTAB1:	POP	P,		;fix stack
+	MOVEI	A,^I		;for unch
+	JRST	MNBRK		;print line
+
+RETAB1:	MOVE	A,C
+	ADD	A,NXLC1
+RETABP:	POPJ	P,
+RETAB:	PUSHJ	P,BESP
+	AOJA	C,RETAB1
+
+;read single char subrs
+
+;change font
+RFNT:	PUSHJ	P,RCH
+	CAIN	A,"*		;^F* means pop ring buffer
+	JRST	RFNT4
+	PUSHJ	P,TSTFNC	;convert to font & test
+	POPJ	P,		;bad font #
+	AOS	H,FNTRPT	;bump font ring pointer
+	CAIL	H,LFNTRNG
+	SETZ	H,
+	MOVEM	H,FNTRPT
+	MOVE	D,IFNT		;push old font onto ring
+	MOVEM	D,FNTRNG(H)
+RFNT2:	MOVEM	A,IFNT		;install new input font #
+	MOVE	H,A
+	IMULI	H,FNTBKL
+	MOVEM	H,IFNIDX
+	PUSH	P,A
+	MOVEI	A,SFCH
+RFNT1:	PUSHJ	P,R1CMD		;put a in buffer
+	POP	P,A
+	CAILE	A,77
+	ANDI	A,77
+	ANDI	A,177
+	TROA	A,ARGBIT
+R1CMD:	ADDI	A,SCBIT		;single char command, just put in buffer
+	JRST	BE
+
+RFNT4:	MOVE	H,FNTRPT	;handle ^F*
+	SKIPGE	A,FNTRNG(H)	;if top entry on ring is -1,
+	JRST	FNOPOP		; then the ring has been overpopped
+	SETOM	FNTRNG(H)	;set vacated entry to -1
+	SOSGE	H		;decrement ring pointer
+	MOVEI	H,LFNTRNG-1
+	MOVEM	H,FNTRPT
+	JRST	RFNT2		;go install new input font #
+
+FNOPOP:	BARF Font overpop
+	POPJ P,
+
+;get font # in k, skip if valid, barf if not
+GFONTN:	PUSHJ	P,GNUMAR
+	JUMPE	H,GFONER	;no font #
+	SKIPA	A,K
+;test font char in a
+TSTFNC:	SUBI	A,"0		;convert to #
+	JUMPL	A,.+3
+	CAIG	A,MAXFNT
+	AOSA	(P)		;skip return
+GFONER:	BARF Bad font #
+POPJP:	POPJ	P,
+
+;end underscore, store at end of previous column
+RESCR:	JUMPLE	C,RESCR1	;jump if no previous column
+	PUSH	P,[RESCR2]	;return to RESCR2 from RESCR1
+	SOJA	C,RESCR1	;dec C, and call rescr1 as subr
+RESCR2:	AOJA	C,POPJP
+
+RBLZ:	PUSH	P,[0]		;zero base line
+RBLS:	SKIPA	A,[BLSCH]	;here to set base to (p)
+RESCR1:	PUSH	P,ULBASI
+	JRST	RFNT1
+
+RBLU:	SKIPA	A,BLAMT		;read base line up
+RBLD:	MOVN	A,BLAMT		;read base line down
+	PUSH	P,A
+	MOVEI	A,BLICH		;increment base line
+	JRST	RFNT1
+
+;^G gennum 1<counternum>
+RDGEN:	PUSHJ	P,RDNUM		;read number from text
+	MOVEI	D,1
+	JRST	AGENN2
+
+;read a number, leave in K, skip if there is a number, 0 in K as default
+RDNUM:	SETZB	K,G
+RDNUM1:	PUSHJ	P,@CHARI
+	CAIL	A,"0
+	CAILE	A,"9
+	JRST	RDNUM2
+	IMULI	K,10.
+	ADDI	K,-"0(A)
+	SOJA	G,RDNUM1
+
+RDNUM2:	JUMPN	G,UNCH		;did read a number
+	AOJA	K,UNCH		;return 1 as default
+
+;this and next page decides if the . is of the type found ending sentences
+;if so stores it as .+bkbit, and puts 2 marked spaces afterwards
+;if . is .?!, then it is prefered in justification, & stored with jusbit.
+
+;ab.cd
+
+;the . will always be the end of clause or sentence
+;if c is a cr or lf, otherwise
+;the point will not be used in justifying
+;and will not have two marked spaces put after it, if:
+;0 b is a number
+;1 b is a letter and a is a space or .
+;2 c is not a sp tab cr lf ) " ' ]
+;3 c is a ) ] " ' and d is not a sp, tab cr lf
+
+;here from slt if a ends a sentence or clause (.?! ;:)
+RDOT:	MOVEM	A,DOTPOS	;save the . or ? or :
+	MOVEM	B,DOTPOB	;type of .
+	MOVEM	D,DOTWID	;width
+	PUSHJ	P,RURCH		;look at next char
+	TLNE	B,CEOLF
+	JRST	RDBK		;. followed by cr or lf
+	TLNE	B,CFSPF+CLOSF
+	SKIPN	MID.F
+	JRST	RDNBK		;in fill mode, or next char not sp or close
+	SOJL	C,RDL4A
+	JSP	H,CHRC		;see what the chr before the . is 
+	 QRB.			;trap out on not letter
+	SOJL	C,RDL4C
+	JSP	H,CHRC		;look at chr before that
+	 QRB1.			;trap out on not space or .
+	ADDI	C,2
+RDNBK:	PUSHJ	P,BEDOT		;here if not a break, just store .
+	JRST	RLOOP1		;go on as usual
+
+QRB.:	TLNN	B,CLETF+CDUMF	;check before .
+	TRNE	A,XQUOBT
+	POPJ	P,		;it's a letter
+	POP	P,
+	TLNE	B,CDIGF
+	AOJA	C,RDNBK
+RDL4A:	AOJA	C,RDAF.		;look after .
+
+QRB1.:	TLNN	B,CSMSF+CEOCF+CEOSF	;check 2 before .
+	TRNE	A,MKBIT+BKBIT
+	POPJ	P,		;it's sp or .?!;:
+	POP	P,
+RDL4C:	AOJA	C,RDL4A
+
+;chars before . ok, look after
+RDAF.:	PUSHJ	P,RURCH
+	TLNE	B,CFSPF+CEOLF
+	JRST	RDBK		;. followed by sp tab cr lf
+	TLNN	B,CLOSF
+	JRST	RDNBK		;not )
+RDAF1:	EXCH	A,DOTPOS
+	EXCH	D,DOTWID
+	PUSHJ	P,BE
+	PUSHJ	P,RNCH		;read next chr
+	TLNE	B,CLOSF
+	AOJA	C,RDAF1		;it's another )"]
+	PUSHJ	P,UNCH
+	TLNN	B,CEOLF+CFSPF
+	AOJA	C,RDNBK		;not cr lf sp tb
+	AOJ	C,
+
+RDBK:	MOVE	A,DOTPOS	;this . ends a clause or sentence
+	MOVE	B,DOTPOB
+	MOVE	D,DOTWID
+	ADDI	A,BKBIT
+	TLNE	B,CEOSF
+	ADDI	A,JUSBIT	;prefer for justification also
+	PUSHJ	P,BE		;put in . with appropriate bits
+	AOJ	C,
+	PUSHJ	P,BEMIN		;stow marked space
+	AOJA	C,RDSP1		;pretend we just read a cr
+
+;this page handles the end of an input line
+RDCR:	HRRZ	H,H
+	CAIE	H,RLOOPX+1
+	JRST	RECR
+	SKIPE	CRBRF
+	JRST	RDCR2		;break on all crs
+	SKIPN	CRCOMFL		;here on cr
+	JUMPE	C,MNBRR
+RDCR2:	PUSHJ	P,RCH
+RDCR1:	CAIE	A,^J
+	PUSHJ	P,UNCH		;next char not lf
+	SKIPE	CRBRF
+	JRST	RDEOL2		;break on all crs
+RDLF1:	JUMPE	C,RDEOL1	;don't put in space if nothing on line
+	PUSHJ	P,GLC		;get last char in a
+	CAIE	A,40
+	CAIN	A,40+MKBIT
+	SOJA	C,RDEOL		;marked space or space
+	PUSHJ	P,BESP		;otherwise, put in space
+				;C now points to space at end of buffer
+RDEOL:	XCT	OPTST		;here on end of line (also after non-autob command)
+	JRST	RDEOL1		;not enough for an output line
+RDEOL2:	MOVEI	B,LTYI
+	CAME	B,CHARI
+	PUSHJ	P,UNCHCR
+	JRST	MNBRR		;enough, first finish last line
+RDEOL1:	SKIPE	CONTEN		;here when finished with eol calls
+	PUSHJ	P,CONTES	;listing contents
+RD1ST:	PUSHJ	P,RCH		;first char of next input line
+	SKIPE	CRCOMF
+	JRST	.+3
+	CAIN	A,^M
+	JUMPN	C,MNBRK
+	CAIN	A,".
+	JRST	RDF.		;it's a command
+	TLNE	B,CFSPF
+	JRST	RDFSP		;first on new line is space
+RD1ST1:	JUMPN	C,RDSPC1
+	JRST	RLOOP2
+
+RDLF:	HRRZ	H,H
+	CAIN	H,RLOOPX+1
+	JRST	RDLF1
+	JRST	REOL
+
+RDFSP:	SKIPE	SPSPF		;1st on next line is sp
+	JRST	RDFSNB		;don't break on spaces
+	PUSHJ	P,RDFSPS
+	JUMPN	C,MNBRR
+	JRST	MNLP		;will wipe out .un?
+
+RDFSNB:	SKIPN	SPFLSF		;here if not breaking on spaces
+	JRST	RD1ST1		;jump if not flushing spaces
+	JUMPN	C,RDSPC		;if in middle of line, just go to where space is read
+	JRST	RLOOPX
+
+RDFSPS:	MOVEI	K,1
+	CAIE	A,40
+	MOVEI	K,10
+	ADDB	K,NXLSPC	;add in space count
+	CAML	K,TW
+	PUSHJ	P,RDBUST
+	PUSHJ	P,RCH
+	TLNE	B,CFSPF
+	JRST	RDFSPS		;another space next on line
+	JRST	UNCH
+
+RDBUST:	BARF Too many leading spaces
+	SETZM	NXLSPC
+	POPJ	P,
+
+CONTES:	SKIPN	OUTFLS
+	AOSG	CNTFL		;flag setomed by commands
+	POPJ	P,		;haven't read text lie
+	PUSHJ	P,UNCHCR	;make cr last char
+CONPRN:	SETOM	CONFLG
+	JUMPN	C,CONPR1	;output cruft
+	SETZM	CONFLG
+	JRST	SECTN		;put in page number
+
+CONPR1:	POP	P,
+	JRST	MNBRR
+
+RDBS:	SOJL	C,RDBS1		;here on bs
+	JSP	H,CHRC		;see if previous chr is space or marked space
+	 QBS
+	POPJ	P,
+
+RDBS1:	BARF Backspaced too far
+	SETZ	C,
+	POPJ	P,
+
+QBS:	TLNE	B,CSMSF		;predicate used by rdl1
+	BARF Backspaced over space 
+	POPJ	P,
+
+BEDOT:	MOVE	A,DOTPOS
+	MOVE	D,DOTWID
+	JRST	BE
+BEMIN:	SKIPA	A,[40+MKBIT]
+BESP:	MOVEI	A,40
+	MOVE	D,IFNIDX
+	MOVE	D,WIDTHS+40(D)
+
+;put char at end of chain at c
+BE:	CAILE	C,BUFSIZ-1
+	JRST	BELTL		;no space in line buffer for this char
+	SKIPE	B,BUFF(C)	;put (a) in buffer at c
+	JRST	BE1		;need to grovel along chain
+	HRLZM	A,BUFF(C)	;space existed, just put it in
+BE2:	SKIPE	XGPMOD
+	TRNE	A,SCBIT+ARGBIT
+	POPJ	P,
+BE3:	SUB	D,COLWID(C)	;difference in column size
+	JUMPLE	D,BER		;this column already as wide as this char
+	ADDM	D,COLWID(C)	;new size of this column
+	ADD	W,D
+BER:	POPJ	P,
+
+BE1:	MOVEI	F,BUFF(C)	;pntr to head of chain
+	MOVE	B,F
+	HRRZ	F,(B)		;cdr
+	JUMPN	F,.-2		;more to chain
+	PUSHJ	P,CONS		;free space pointed to by F
+	HRRM	F,(B)		;add F to end of chain
+	HRLZM	A,(F)		;store char
+	JRST	BE2
+
+;trying to put char past end of buffer
+BELTL:	AOS	C,LTLF
+	CAIG	C,1		;skip if error message already printed for this line
+	BARF Line too long
+	MOVE	C,BUFSIZ-1
+	POPJ	P,
+
+;apply test to character chain at c, called with jsp h,
+;(h)	;test predicate (either returns or goes on of its own)
+;1(h)	;return
+CHRC:	SKIPA	I,BUFF(C)
+CHRC1:	MOVE	I,(I)		;next word in chain
+	HLRZ	A,I		;char
+	CAIN	A,SCBIT+TABCH
+	JRST	CHRC4		;variable width tab
+	TRNE	A,SCBIT+ARGBIT
+	JRST	CHRC2		;command char or argument
+	SETZ	B,
+	CAIGE	A,200
+	MOVE	B,CDTAB(A)
+	CAIN	A,40+MKBIT
+	MOVSI	B,CSMSF
+CHRC3:	PUSHJ	P,@(H)		;call test function
+CHRC2:	TRNE	I,-1		;skip if no next char
+	JRST	CHRC1
+	JRST	1(H)		;return
+
+CHRC4:	MOVEI	B,ICDTAB+^I	;get bits for tab
+	JRST	CHRC3
+
+;get last char of column pointed to by c
+GLC:	SETZ	A,
+	SKIPA	B,BUFF-1(C)
+GLC1:	MOVE	B,(B)
+	TLNN	B,ARGBIT+SCBIT
+	HLRZ	A,B		;save char
+	TRNN	B,-1		;more in chain?
+	POPJ	P,		;no
+	JRST	GLC1
+
+;flush chain of characters starting at buff(c)
+FLS:	HRRZ	A,BUFF(C)	;pntr to next char
+	SETZM	BUFF(C)
+	SKIPN	XGPMOD
+	JRST	FLS1
+	SUB	W,COLWID(C)
+	SKIPGE	W
+	SETZ	W,
+	SETZM	COLWID(C)
+FLS1:	JUMPE	A,FLSR		;jump if no cdr
+	HRRZ	B,(A)		;next entry
+	EXCH	A,FF		;make ff point to this loc
+	HRRZM	A,@FF		;this loc to former ff
+	MOVE	A,B
+	JRST	FLS1
+
+;flush line just printed
+FLSLIN:	SETCM	C,MXPF1		;-c-1
+	HRLZ	C,C
+	JRST	FLSBU1
+FLSBUF:	MOVSI	C,-BUFSIZ
+FLSBU1:	PUSHJ	P,FLS
+	AOBJN	C,.-1
+FLSR:	POPJ	P,
+
+CONS:	MOVE	F,FF		;'expand' buffer storage
+	JUMPE	F,SCE
+	HRRZ	E,(F)		;by grabbing tail of free storage chain
+	MOVEM	E,FF
+	SETZM	(F)		;free word pointed to by F
+	POPJ	P,
+
+SCE:	BARF Free storage exceeded 
+	JRST	ENDAR
+
+;main line for nofill mode
+;no justification-do this instead of mnchrr, mnlp1, rch,slt,...
+NJMN1:	PUSHJ	P,RCH		;flush previous CR or LF
+	CAIN	A,15
+	PUSHJ	P,RCH
+	CAIN	A,12
+	PUSHJ	P,RCH
+	CAIN	A,".
+	JRST	NJMNC		;command
+	TLNN	B,CFSPF
+	JRST	NJMN2
+	PUSHJ	P,RDFSPS	;increments nxlspc
+	MOVE	A,NXLSPC
+	MOVEM	A,NXLC1
+	ADDM	A,INDS
+	SETZM	NXLSPC
+	JRST	.+2
+NJMN2:	PUSHJ	P,UNCH
+	PUSHJ	P,READIT
+	XCT	OPTST1
+	PUSHJ	P,NJMER
+	SKIPN	CONTEN
+	JRST	MNPRN
+	SKIPN	OUTFLS
+	AOSE	CNTFL
+	JRST	MNPRN
+	PUSHJ	P,PRNTR		;Print contents line
+	PUSHJ	P,SECTN
+	JRST	MNJ6L
+
+NJMNC:	PUSHJ	P,COMMAN	;Here on command
+	JRST	MNLPR
+
+NJMER:	PRINT NOFILL
+LTWER:	BARF  line wider than TW
+	POPJ	P,
+;read in .nofill .center or .spread line
+READIT:	SETOM	SEPCHR
+READIS:	SETZB	W,MXPF
+	SETZB	C,MXPF1
+	JRST	READI1
+READIX:	XCT	RLTBL(A)
+	JUMP	READIN
+READI1:	CAMLE	C,MXPF1
+	MOVEM	C,MXPF1
+	PUSHJ	P,RCH		;get a char
+	CAMN	A,SEPCHR
+	JRST	REOL		;we are done
+	TLNE	B,CQUOF+CDUMF
+	JRST	READI4
+	CAIGE	A,40
+	JRST	READIX
+READIN:	PUSHJ	P,BE		;put in buffer
+	AOJA	C,READI1
+
+READI4:	TLNN	B,CDUMF
+	JRST	REQUO
+	PUSHJ	P,RDUM
+	AOJA	C,READI1
+REQUO:	PUSHJ	P,RQUOT		;quote next char
+	AOJA	C,READI1
+
+REOL:	PUSHJ	P,UNCHA
+RECR:	MOVEM	A,TERMC
+	MOVEM	C,MXPF
+	POPJ	P,
+
+;If filling, normal path is
+;RLOOP untill enough to output
+;MNBRR to decide how much to print
+;MNPRN to print, and back to MNLPA
+;If in NOFILL mode, path is NJMN1, MNPRN, MNLP
+MNBEG:	.CORE	CORSIZ
+	.VALUE			;couldn't core down
+MNLPR:	PUSHJ	P,UNCHCR	;cause lf to appear as next chr read
+MNLP:	SETZB	C,MXPF		;initialise pointers to beginning of buffer
+	SETZB	W,MXPF1
+MNLPA:	SETZM	LTLF
+	SKIPE	C,MXPF
+	SKIPN	NXLSPC		;Next line spaces
+	SKIPA	A,TW
+	SOJA	C,MNLPC1	;some text still in BUFF, finish out rest of line
+	MOVE	B,NJMODE	;move in new flags now
+	CAME	B,JMODE
+	JRST	MNSMOD		;changing output mode
+MNLP1:	MOVEM	B,JMODE
+	SUB	A,NXLSPC	;calculate new line length
+	SUB	A,NINDS
+	PUSHJ	P,LNLCHK	;line length check
+	PUSHJ	P,NINDC		;fix number of indents
+	SKIPE	CMCNT
+	JRST	CMEOL		;do end of line command call
+	JUMPL	B,NJMN1		;nofill mode
+	XCT	OPTST
+	JRST	RLOOP		;not enough to output
+	SOJA	C,MNLPC
+
+NINDC:	MOVE	A,NXLSPC	;number of spaces to add to beginning of line
+	MOVEM	A,NXLC1		;factor in inds due to nxlspc
+	SETZM	NXLSPC
+	ADD	A,NINDS		;if inds was unlocked
+	MOVEM	A,INDS		;spaces to indent
+	POPJ	P,		;inds=ninds+nxlspc
+
+MNSMOD:	JUMPE	C,MNSMO1	;here on mode change
+	PUSHJ	P,NINDC		;something in buffer
+	SOJA	C,MNLPC		;finish line in old mode
+
+MNSMO1:	JUMPGE	B,MNLP1		;if filling, proceed
+	PUSHJ	P,UNCHCR	;just switched to nofill
+	MOVE	A,TW
+	JRST	MNLP1
+
+MNLPC1:	MOVN	B,NXLC1		;something in buffer, or leading spaces
+	ADDM	B,INDS
+	SETZM	NXLC1
+	JRST	MNLPC		;print the line
+
+LNLCHK:	JUMPG	A,.+3		;Check for line length <1
+	BARF Line length<1
+	MOVE	A,TW
+	MOVEM	A,LNL
+	IMUL	A,WIDTH
+	MOVEM	A,XLNL
+	POPJ	P,
+
+;here when it is time to break
+MNBRK:	PUSHJ	P,UNCH
+MNBRR:	CAMGE	C,MXPF		;here when enough for ouput line
+	SKIPA	C,MXPF
+MNLPC:	MOVEM	C,MXPF
+	SKIPGE	JMODE
+	JRST	MNHEM2		;nofill mode
+	XCT	OPTST
+	JRST	MNHEM		;not enough for one full line
+MNLP3:	JUMPE	C,MNLP		;move back over spaces which broke-unless line was blank
+	JSP	H,CHRC		;test if last was a space
+	 QSPMS			;jumps to mnlp4a,4e,2d on non-space
+	SUB	W,COLWID(C)
+	SOJA	C,MNLP3		;search until find non-space
+
+QSPMS:	TLNE	B,CSMSF+CFSPF
+	POPJ	P,		;it's a space or marked space
+
+	POP	P,		;end of a word
+	SKIPN	XGPMOD
+	AOJA	C,MNLP2T
+	XCT	OPTST1
+MNLP2H:	SOJA	C,MNLPBU	;too much for line, back up another word
+				;have found word to break at
+MNLP2A:	JSP	H,CHRC		;return if no - or hidden -
+	 QNHYP
+ADTST:	SKIPE	XGPMOD
+	JRST	MNLP2E		;we have less than a full line
+	MOVE	D,LNL
+	CAIE	D,1(C)
+	JRST	MNLP2E		;we have less than a full line
+	JRST	MNHEM2
+
+MNLP2T:	XCT	OPTST1
+	SOJA	C,MNLP2H
+	SOJA	C,MNLP2A
+
+QNHYP:	TLNN	B,CHHYF+CHYPF
+	POPJ	P,
+	TLNE	B,CHYPF
+	JRST	BEMIN		;hyphen, add space
+
+	POP	P,
+	SKIPN	XGPMOD		;hidden hyhen at end of word we are breaking at
+	JRST	HYPTS1
+	HLRZ	D,(I)
+	SUBI	D,ARGBIT	;Arg is width of hidden -
+	ADD	D,W
+	CAMLE	D,XLNL		;Room on line for hyphen?
+	SOJA	C,MNLPBU	;No
+	SETOM	HYPOP
+	MOVE	W,D
+	JRST	MNLP2E		;adjust
+
+HYPTS1:	CAIGE	D,2(C)		;Room for hidden hyphen?
+	SOJA	C,MNLPBU	;no
+	SETOM	HYPOP		;indicate we broke on hidden hyphen
+	SOJA	D,ADTST
+
+
+;found a non-break char--back-up one and look for break
+MNLPBU:	SUB	W,COLWID+1(C)
+	JSP	H,CHRC		;move back to last space or hyphen
+	 QBRK			;jumps to MNLP3 on break
+	SOJG	C,MNLPBU	;search until find a space or hyphen
+
+	MOVE	C,MXPF		;single word wider than TW
+	PUSHJ	P,LTWER
+	JRST	MNHEM2		;print it anyway
+
+QBRK:	TLNN	B,CSMSF+CHYPF+CHHYF+CFSPF
+	POPJ	P,		;not sp, marked sp, - or hidden -
+	POP	P,		;found a break
+	JRST	MNLP3		;now move back over space
+
+;no justification needed, eliminate trailing marked spaces & spaces
+MNHEM:	jUMPLE	C,MNHEM2
+	MOVEI	B,BUFF(C)
+	JRST	MNHEM1
+MNHFSP:	HRRZS	(B)		;flush sp
+	SETZM	COLWID(C)
+MNHEMN:	HRRZ	B,(B)
+	JUMPE	B,MNHEM3	;nothing more in column
+MNHEM1:	HLRZ	A,(B)
+	CAIE	A,40
+	CAIN	A,40+MKBIT
+	JRST	MNHFSP		;sp or marked sp
+	TRNE	A,SCBIT+ARGBIT
+	JRST	MNHEMN		;command, etc, ignore
+	SKIPN	(B)
+MNHEM3:	SOJG	C,MNHEM
+MNHEM2:	MOVEM	C,MXPF1
+	JRST	MNPRN
+
+;here to adjust, C<LNL or W<XLNL
+MNLP2E:	MOVEM	C,MXPF1		;pointer to end of what is to go on next line
+	SKIPLE	JMODE
+	SKIPE	NVRADJ
+	JRST	MNPRN		;filling or never adjust
+	XCT	OPTST1		;too much input for one line?
+	JRST	MNPRN		;yes, couldn't back up far enough
+
+	SETZB	C,NBRKS
+	SETZM	NPRDS
+MNLP2G:	CAMLE	C,MXPF1
+	JRST	MNLP2B
+	JSP	H,CHRC		;count spaces and .'s in line
+	 QCBRK
+	AOJA C,MNLP2G
+
+;counting places used for justifying
+QCBRK:	CAIN	A,40
+	AOSA	NBRKS		;count breaks - only real spaces
+	TRNN	A,JUSBIT
+	POPJ	P,
+	CAMGE	C,MXPF1
+	AOS	NPRDS		;was .?! at end of sentence
+	POPJ	P,		;dont count .'s at end of line
+;put spaces in
+MNLP2B:	SETZM	SPN
+	SKIPE	XGPMOD
+	SOJA	C,MNJX
+	MOVE	H,LNL
+	SUB	H,MXPF1		;amount of space needed
+	SKIPE	HYPOP
+	SOJ	H,		;one less for hidden hyphen
+	SOJL	H,MNJERR
+	JUMPE	H,MNPRN		;don't need any (probably because of hidden hyphen)
+	MOVEM	H,SPN		;spaces total needed
+	MOVE	A,NPRDS
+	ADD	A,NBRKS
+	JUMPE	A,MNHEM2	;no place to put spaces
+MNJ1B:	SETCMM	DIRSCN		;complement scan direction
+	SKIPN	NPRDS
+	JRST	MNJ1		;no .'s
+	HRLZS	H		;insert spaces at periods first
+	IDIV	H,NPRDS		;spaces per period _18.
+	PUSHJ	P,SINCRC
+
+	JSP J,SCNR1		;put spaces at end of sentences
+	 QJUS
+
+MNJ1:	SKIPN	NBRKS
+	JRST	MNJ9		;no spaces exist
+	HRLZ	H,SPN
+	JUMPE	H,MNPRN		;need no more spaces
+	IDIV	H,NBRKS		;spaces per space _18.
+	PUSHJ	P,SINCRC
+
+	JSP	J,SCNR1		;put spaces after spaces
+	 QRS
+
+MNJ9:	SKIPN	H,SPN		;have we put in all needed justification spaces?
+	JRST	MNPRN		;yea team
+	AOSN	JERRF		;needed more than one space per break?
+	JRST	MNJ1B		;yes, so go it once more
+	JRST	MNJERR
+
+QRS:	CAIE	A,40		;skip if real space
+	POPJ	P,
+QRS1:	POP	P,
+	JRST	2(H)		;condition met, real space (or .)
+
+QJUS:	TRNE	A,JUSBIT	;put spaces after sentences (used by mnj1b)
+	CAML	C,MXPF1
+	POPJ	P,		;not . or at end of line
+	JRST	QRS1
+
+SINCRC:	SETZM	JERRF		;calculate space increment
+	ADDI	H,100
+	CAML	H,[1,,]		;more than one per break ?
+	JRST	SINCR1		;yes
+SINCR2:	MOVEM	H,SINCR
+	POPJ	P,
+
+SINCR1:	MOVSI	H,1		;put in one space per break this time round
+	SETOM	JERRF		;indicate we need to repeat this performance
+	JRST	SINCR2
+
+;(j)	routine to test chr
+;1(j)	return
+SCNR1:	SETZ	K,		;scan and put in spaces for justification
+	MOVE	A,DIRSCN	;A set to scan direction
+	XCT	SCNT1(A)	;get starting value for c
+SCNR3:	XCT	SCNT3(A)	;test c for end
+	JRST	1(J)		;done
+
+	JSP	H,CHRC		;use predicate specified by calling routine
+	 @(J)			;skip if condition matched
+
+	 JRST	SCNR2		;condition not matched
+	ADD	K,SINCR		;spacing increment
+	TLZN	K,-1
+	 JRST	SCNR2		;don't put one in yet
+
+	SOS	SPN		;reduce count of spaces still needed
+	PUSHJ	P,BEMIN		;put in a marked space
+SCNR2:	MOVE	A,DIRSCN
+	XCT	SCNT2(A)	;increment c and jrst scnr3
+
+;these are executed by scnr1 etc.
+;indexed by -1 for backward, 0 for forward
+	MOVE	C,MXPF1
+SCNT1:	SETZ	C,		;set c to starting value
+
+	SOJA	C,SCNR3		;backward
+SCNT2:	AOJA	C,SCNR3		;move forward
+
+	SKIPGE	C
+SCNT3:	CAMLE	C,MXPF1		;test c for completion
+
+MNJX:	MOVE	J,XLNL		;line length in xgp dots
+	SUB	J,W		;amount of justification needed
+	JUMPL	J,MNJERR
+	SKIPE	HYPOP
+	AOJ	C,
+	MOVE	K,J
+	SKIPN	LTRSPF		;.LTRSPC 0 suppresses letter-spacing
+	TDZA	J,J		; causing inter char space to be zero
+	IDIV	J,C		;amount of inter char space
+	SETZ	C,
+	JUMPE	J,.+2
+	PUSHJ	P,MNICS		;set inter char spacing
+	JUMPE	K,MNPRN		;inter char space took up all justification
+	MOVE	D,NPRDS
+	ADD	D,NBRKS
+	JUMPE	D,MNPRN		;line is one word!
+	MOVNM	K,SPN		;-# spaces needed
+	HRLZ	K,K
+	IDIV	K,D		;# of xtra dots per space_18.
+
+MNJXSP:	SKIPE	SPN		;put spaces after .s and spaces
+	CAML	C,MXPF1
+	JRST	MNJX2
+	JSP	H,CHRC		;put in adjusting space
+	 QSPBR
+	AOJA	C,MNJXSP
+
+QSPBR:	CAIE	A,40
+	TRNE	A,JUSBIT
+	JRST	.+2
+	POPJ	P,
+
+	POP	P,		;space or break
+	HLRZ	D,K		;integral spacing increment
+	ADDI	L,(K)		;L + fractional spacing inc
+	CAIGE	L,-1
+	JRST	.+3
+	SUB	L,[1,,0]	;fractional part overflowed
+	AOJA	D,.+2
+	JUMPE	D,QSPBR1	;no extra this sp
+	ADDM	D,SPN
+	MOVEI	A,SCBIT+VSPCH
+	PUSHJ	P,BE
+	MOVEI	A,ARGBIT(D)
+	PUSHJ	P,BE
+QSPBR1:	AOJA	C,MNJXSP
+
+MNICS:	PUSH	P,J		;put in inter character spacing
+	MOVEI	A,ICSPCH
+	JRST	RFNT1
+
+MNJX2:	SKIPE	SPN
+MNJERR:	BUG Adjust bug		;still not adjusted (can get here several ways)
+
+MNPRN:	PUSHJ	P,PRNTR		;go output line at last
+MNJ6L:	CAML	C,MXPF		;anything left at end of buffer?
+	JRST	MNTLC		;no
+	JSP	H,CHRC		;flush spaces at end before remaining text
+	 QFSPE
+;blt remaining text to beginning of buff
+MNEBLT:	MOVE	D,MXPF
+	MOVE	B,D
+	SUBI	B,-1(C)		;# of columns to blt
+	HRLZ	A,C
+	ADD	A,[BUFF,,BUFF]
+	BLT	A,BUFF-1(B)
+	SKIPN	XGPMOD
+	JRST	MNEBL1
+	HRLZ	A,C		;fix up colwid
+	ADD	A,[COLWID,,COLWID]
+	BLT	A,COLWID-1(B)	;blt to beginning columns
+	MOVE	A,C
+	HRL	A,A
+	ADD	A,[COLWID,,COLWID+1]
+	SETZM	COLWID(C)
+	BLT	A,COLWID(D)
+	SETZB	A,W
+	ADD	W,COLWID(A)	;calculate new w for remaining columns
+	CAIG	A,-1(B)
+	AOJA	A,.-2
+MNEBL1:	SETZM	BUFF(C)		;wipe out old stuff
+	HRL	C,C
+	ADD	C,[BUFF,,BUFF+1]
+	BLT	C,BUFF(D)
+	MOVEI	C,-1(B)		;end of where we blted to
+	JSP H,CHRC
+	 QSPEND			;traps to mnlpb if ends with space, 240 or .
+	AOJ	C,
+	SKIPE	LTLF		;skip if broke because line too long
+	PUSHJ	P,BESP		;delimit with space
+	AOJA	C,MNLPB
+
+MNTLC:	SKIPE	A,BUFF(C)	;test past last column
+	PUSHJ	P,MNFSP		;Do commands there
+	JRST	MNLP
+
+QSPEND:	TLNN	B,CSMSF+CFSPF
+	TRNE	A,BKBIT
+	JRST	.+2		; text ends on space, 240 or .
+QSPR:	POPJ	P,
+	POP	P,
+	AOJ	C,
+MNLPB:	MOVEM	C,MXPF
+	JRST	MNLPA		;grand exit at last
+
+QFSPE:	TLNN	B,CSMSF+CFSPF
+	JUMPN	A,QSPR		;not space or marked space or blank
+	POP	P,
+	MOVE	A,BUFF(C)
+	PUSHJ	P,MNFSP		;do commands before flushing column
+	AOJA	C,MNJ6L
+
+MNFSP1:	MOVE	A,(B)
+MNFSP:	HRRZ	B,A		;pntr to next char
+	HLRZ	A,A		;char
+	TRZE	A,SCBIT
+	XCT	PRTAB(A)	;do in text command before flushing column
+	JUMPN	B,MNFSP1
+	JRST	FLS		;finally flush column
+
+CONSTA
+
+;print something
+PRNTRA:	SETOM	CENTF		;call from  .space & .center & .page goes here
+				;test only --  not line output
+PRNTR:	MOVE	A,OUTLIN	;output a line
+	CAMGE	A,TL
+	JRST	PRNTR1
+	PUSHJ	P,NPAGER	;time for a new page
+	AOSN	PGCMFL
+	JRST	PRNTR9		;doing a .page
+PRNTR1:	SKIPN	FPGPOS
+	JRST	HEADTY		;time for heading
+PRNTR9:	AOSN	CENTF
+	POPJ	P,		;don't print (test only)
+	MOVE	B,INDS
+PRNTR2:	PUSHJ	P,PRNBSP	;print and flush line
+PREOL:	SKIPN	HYPOP		;here at end of output line
+	JRST	PREOL1
+	SETZM	HYPOP
+	MOVEI	A,"-
+	SKIPN	OUTFLS
+	PUSHJ	P,PPAX		;output hidden hyphen
+PREOL1:	MOVE	B,LFMD		;here after center, spread
+	MOVEM	B,OLFMD
+	SKIPN	CONTEN
+	JRST	CRRB
+	JRST	CRFAKB		;fake crs
+
+;print line in buff from 0 through mxpf1, then flush it
+PRNTIT:	SKIPN	OUTFLS
+	JRST	PRNTI2
+	JRST	FLSLIN
+PRNMRG:	SETZ	B,
+PRNBSP:	SKIPE	OUTFLS
+	JRST	FLSLIN
+	SKIPE	CONTEN
+	SUB	B,MARGIN	;Don't put in margin for contents
+	PUSHJ	P,SPMBSP	;go to marg + b spaces
+PRNTI3:	PUSHJ	P,FIXUS		;fix underline
+	PUSHJ	P,OPFNTD	;font
+	PUSHJ	P,OPBASE	;base line
+PRNTI2:	SETZB	C,INCHSP
+PRNTI1:	CAMLE	C,MXPF1
+	JRST	FLSLIN		;flush and exit
+	SKIPE	A,BUFF(C)	;ignore nulls?
+	PUSHJ	P,PRC		;print all chars in this column
+	AOJA	C,PRNTI1
+
+;print all the chars in column pointed to by c
+PRC:	SETZM	C240S		;#of marked spaces
+	SETOM	PRNCRS		;#of chars in this column
+PRC1:	HRRZ	B,A		;pntr to cdr
+	HLRZ	A,A		;car=character
+	JUMPE	A,PRC2
+	TRZE	A,SCBIT
+	JRST	PRCMD		;it's a command
+	CAIN	A,40+MKBIT
+	JRST	PRCMS		;marked space
+	TRNN	A,ARGBIT
+	CAMN	A,HYPCHR
+	JRST	PRC2		;ignore arguments & hidden hyphen
+	AOSN	PRNCRS
+	JUMPE	B,PRC3		;jump if only one char this column
+	SKIPE	XGPMOD
+	JRST	PRCV
+	SKIPE	PRNCRS
+	PUSHJ	P,PRCBS		;not first char, print back space
+PRC3:	PUSHJ	P,PPAX		;print char
+PRC2:	JUMPE	B,PRCE		;no next character
+	MOVE	A,(B)		;next word
+	JRST	PRC1
+
+PRCE:	SKIPLE	PRNCRS		;print end of output column
+	SKIPN	XGPMOD
+	JRST	PRCE1
+	MOVE	K,COLWID(C)
+	ASH	K,-1
+	ADD	K,HPCW		;-1/2 previous char width
+	SKIPLE	K		;skip if prev char as wide as column
+	PUSHJ	P,OPCINC	;otherwise, space to end of column
+PRCE1:	SKIPG	B,C240S
+	POPJ	P,
+	SKIPE	XGPMOD
+	JRST	SPAZI1		;print marked spaces
+	JRST	SPUL
+
+PRCMS:	CAMGE	C,MXPF1		;ignore marked spaces in last col
+	AOS	C240S		;marked space
+	JRST	PRC2
+
+PRCV:	PUSH	P,A		;so as not to loose xnorf
+	ANDI	A,177		;variable spacing
+	MOVE	K,OFNIDX
+	ADD	K,A
+	MOVE	D,WIDTHS(K)	;width of this char
+	MOVN	K,D
+	ASH	K,-1
+	EXCH	K,HPCW		;1/2 previous char width
+	SKIPN	PRNCRS
+	JRST	PRCV1		;1st char for this column
+	ASH	D,-1		;move back 1/2 width this char
+	SUB	K,D		;+1/2 width previous char
+	SUB	K,INCHSP	;+interchar space
+	PUSHJ	P,OPCINC
+PRCV1:	POP	P,A
+	JRST	PRC3
+
+;fix underline state & font if necessary, then print char
+PPAX:	SKIPN	XGPMOD
+	JRST	PPAX1
+PPAX2:	TRZN	A,XQUOBT
+	JRST	@CHARO		;not quoted
+	PUSH	P,A
+	SKIPE	CONFLG
+	JRST	PPAX3		;Printing contents line
+	MOVE	A,CDTAB(A)
+	SKIPE	XNORF
+	TLNN	A,CNNRF
+	JRST	OPPA		;Not normalizing, or normal is non-escape
+	JRST	OPESPA		;normal is escape
+
+PPAX3:	MOVE	A,NQUOTE	;printing contents
+	PUSHJ	P,@CHARO	;print quote
+	JRST	OPPA		;print character
+
+;not using xgp
+PPAX1:	SKIPE	CONFLG
+	JRST	@CHARO
+	MOVE	K,FONTD
+	CAMN	K,ULFNT
+	JRST	PPAUL		;underline this "font"
+	SKIPN	ULD		;not xgp, just worry about underlines
+	JRST	@CHARO		;no underlines
+PPAUL:	PUSHJ	P,@CHARO	;print char
+	MOVEI	A,"_
+	PUSHJ	P,PRCBS		;print BS
+	JRST	@CHARO		;and underbar
+
+PRCBS:	PUSH	P,A
+	MOVEI	A,^H		;print bs
+	PUSHJ	P,@CHARO
+POPAJ:	POP	P,A
+	POPJ	P,
+
+;found a command char
+PRCMD:	XCT	PRTAB(A)
+	JRST	PRC2
+
+PRTAB:	REPEAT 40,.VALUE	;shouldn't get here
+LOC PRTAB+TABCH
+	PUSHJ	P,PTAB
+LOC PRTAB+BLICH
+	PUSHJ	P,PBLAD		;increment base line
+LOC PRTAB+BLSCH
+	PUSHJ	P,PBLS		;base set
+LOC PRTAB+BSCRCH
+	PUSHJ	P,PBSCR		;begin underscore
+LOC PRTAB+ESCRCH
+	PUSHJ	P,PESCR		;end underscore
+LOC PRTAB+SFCH
+	PUSHJ	P,PFNT
+LOC PRTAB+VSPCH
+	PUSHJ	P,PVRSP		;variable space
+LOC PRTAB+ICSPCH
+	PUSHJ	P,PSICHS	;set inter char space
+LOC PRTAB+40
+
+PBSCR:	SETOM	ULD
+	PUSHJ	P,PCTST
+	JRST	FIXUS
+
+PESCR:	SETZM	ULD
+	PUSHJ	P,PCTST
+	PUSHJ	P,PRARG		;end underscore (next char arg)
+	MOVEM	A,ULBASO
+	JRST	FIXUS
+
+PCTST:	SKIPN	CONFLG
+	POPJ	P,		;if not contenting, ignore
+	POP	P,		;return up one level
+	JRST	@CHARO		;print A
+
+;read argument in 7 bit 2's complement, extend sign
+PRARG:	MOVE	A,(B)		;next word
+	HRRZ	B,A		;pntr to next
+	HLRZ	A,A		;character
+	SUBI	A,ARGBIT
+	CAIL	A,100
+	SUBI	A,200		;negative, extend sign
+	POPJ	P,
+
+PBLAD:	PUSHJ	P,PRARG		;adjust base line with next char
+	MOVE	K,A
+	ADD	A,BLPOS
+	CAIGE	A,200
+	CAMGE	A,[-200]
+	JRST	BLERR
+	MOVEM	A,BLPOS
+	MOVEI	A,BLUCH
+	JUMPG	K,.+2
+	MOVEI	A,BLDCH		;base line down
+	PUSHJ	P,PCTST
+	JRST	OPBASE
+
+BLERR:	BARF Too much script
+	POPJ	P,
+
+PBLS:	PUSHJ	P,PCTST
+	PUSHJ	P,PRARG		;set base line to next char
+	MOVEM	A,BLPOS
+	JRST	OPBASE
+
+PFNT:	PUSHJ	P,PRARG		;switch font (next char arg)
+PFNT1:	MOVEM	A,FONTD
+	IMULI	A,FNTBKL
+	MOVEM	A,OFNIDX
+	SKIPN	CONFLG
+	JRST	OPFNTD
+	MOVEI	A,SFCH
+	PUSHJ	P,@CHARO	;print ^F
+	MOVE	A,FONTD
+	ADDI	A,"0
+	JRST	@CHARO		;print font #
+
+PVRSP:	SKIPE	CONFLG
+	POPJ	P,
+	PUSHJ	P,PRARG		;print a variable space
+	MOVE	K,A
+	JRST	OPCINC
+
+PSICHS:	SKIPE	CONFLG
+	POPJ	P,
+	MOVEI	A,XICHSP	;set inter-char space
+	PUSHJ	P,OPES1A
+	PUSHJ	P,PRARG
+	JRST	BUFOUT
+
+;print a tab (variable width spacing)
+PTAB:	PUSHJ	P,PCTST
+	PUSHJ	P,FIXUS		;fix underline state
+	MOVE	A,(B)
+	HRRZ	B,A
+	PUSH	P,B
+	HLRZ	B,A		;column # of next char
+	ADD	B,INDS
+	ADD	B,MARGIN
+	PUSHJ	P,SPB1
+POPBJ:	POP	P,B
+	POPJ	P,
+
+NPAGER:	SKIPGE	PGCMFL		;skip if not doing a .page now
+	SETZM	NLFS
+	MOVE	B,PL
+	SUB	B,FPGPOS
+	SKIPN	XGPMOD
+	PUSHJ	P,CRRB		;finish off page
+	SETZM	OUTLIN		;reset page position
+	SETZM	FPGPOS		;full page position
+	SKIPE	OUTFLS
+	POPJ	P,
+	MOVEI	A,^L
+	SKIPE	FFFF		;need form feed ?
+	JRST	@CHARO		;yes, and no wait for type in (not lpt or tty)
+NOISTZ:	MOVE	A,NWAITF
+	IOR	A,FFFF
+	IOR	A,SLASHT
+	IOR	A,OUTFLS
+	JUMPE	A,TYI		;if all flags off, wait at top of page for typed char
+	POPJ	P,
+
+CRRB:	SKIPE	OUTFLS
+	JRST	CRFAKB		;fake b crrs
+	JUMPLE	B,CRRET		;do b crlfs
+	SKIPN	FFFF
+	JRST	CRRB1
+	MOVE	A,OUTLIN
+	ADD	A,B
+	CAML	A,TL
+	JRST	CFAKE		;crs will move us past text area
+CRRB1:	PUSHJ	P,CRR
+	SOJLE	B,CRRET
+	AOS	OUTLIN		;update position
+	AOS	FPGPOS
+	PUSHJ	P,@CHARO	;output a lf
+	SOJG	B,.-3
+CRRET:	POPJ	P,
+
+CRR:	AOS	OUTLIN		;output a cr and lf and advance the page position
+	AOS	FPGPOS
+	SKIPE	OUTFLS	
+	POPJ	P,
+	PUSHJ	P,SPNULF	;end underline, switch to font 0
+	SETZM	LBLPOS		;cr resets baseline
+CRROF:	MOVEI	A,^M		;here for output which doesn't want to be counted
+	PUSHJ	P,@CHARO
+	MOVEI	A,^J
+	JRST	@CHARO
+
+CFAKE:	MOVE	A,TL		;fake enough crs to get out of text area
+	SUB	A,OUTLIN
+CRFAK1:	ADDM	A,OUTLIN
+	ADDM	A,FPGPOS
+	POPJ	P,
+
+CRFAKB:	ADDM	B,OUTLIN	;fake b crlfs
+	ADDM	B,FPGPOS
+	POPJ	P,
+
+;here when it's time to print heading
+HEADTY:	SETOM	RDTXTF
+	MOVE	A,EPGIN
+	ADDM	A,OUTPAG	;Add in EPAGE increment
+	SETZM	EPGIN
+	AOS	NPAGES
+	AOS	D,OUTPAG
+	CAML	D,PNST
+	PUSHJ	P,TXSTRT	;time to start output
+	SKIPE	FIGP
+	PUSHJ	P,FIGTP		;need to put extra lines at top of page due to .figure
+	SKIPE	THSFLG
+	SKIPA	B,TPMAR3	;thesis mode, put in top marg before header
+	MOVEI	B,2		
+	PUSHJ	P,CRRB		;TWO (or TPMAR-3) blank lines before header
+	SETZM	OUTLIN
+	PUSHJ	P,HICTOR	;line of heading
+	SKIPN	THSFLG
+	SKIPA	B,TPMAR3	;normal mode, put in margin after header
+	MOVEI	B,2
+	PUSHJ	P,CRRB		;TPMAR-3 (or TWO) blank lines after header
+	SETZM	OUTLIN		;reset page position
+
+	HLRZ	B,FIGP		;actually put in figures
+HFIG:	PUSHJ	P,CRRB
+	HRRZ	A,FIGP		;pntr to next figure
+	SETZM	FIGP
+	JUMPE	A,PRNTR		;no next figure
+	MOVE	B,(A)
+	MOVEM	B,FIGP
+	EXCH	A,FF		;add word to fs
+	HRRZM	A,@FF
+	MOVE	A,TL
+	SUB	A,OUTLIN	;# of lines left
+	HLRZ	B,B		;size of fig
+	CAMG	B,A
+	JRST	HFIG
+	JRST	PRNTR
+
+FIGTP:	SKIPL	PGCMFL		;are we doing a .page ?
+	POPJ	P,		;no
+	SKIPN	A,FIGP		;yes - so do .epage in effect
+	JRST 	FIGTP1		;no figures waiting
+	HRRZ	A,A
+	SETZM	FIGP
+	PUSHJ	P,FLS1		;flush string of waiting figs
+FIGTP1:	AOS	D,OUTPAG
+	AOS	NPAGES
+	SETZM	NLFS
+	POPJ	P,
+
+;print line of heading
+HICTOR:	SKIPN	OUTFLS
+	SKIPE	NHEADF		;do we want heading and page numbers?
+	JRST	CRR		;no
+	SKIPN	PHP1F
+	SOJE	D,CRR		;don't print page 1 header
+	PUSH	P,ULD
+	PUSH	P,FONTD
+	PUSH	P,BLPOS		;save these states
+	PUSH	P,ULBASI
+	SETZM	ULD		;and intialize them
+	SETZM	FONTD
+	SETZM	BLPOS
+	MOVEI	A,ULBUG
+	MOVEM	A,ULBASI
+	MOVEM	A,ULBASO
+
+	PUSHJ	P,OPBASE
+	MOVE	B,OUTPAG	;page number
+	SETOM	SWPFLG		;hack for alternating headings (bkph)
+	SKIPE	ALTFLG		;do headings get alternated
+	TRNE	B,1		;on odd page ?
+	SETZM	SWPFLG		;yes, he1 on left, he2 on right
+	SKIPE	HEDSPT
+	JRST	HICTOP		;split header
+	SKIPE	SWPFLG		;test if header should be on left (bkph) 
+	JRST	HIMPLE		;yes, simple margin
+	MOVE	B,RNLL
+	ADD	B,RMARGIN
+	SKIPE	XGPMOD		;in XGP mode?
+	JRST	HTYIV
+	SUB	B,HBUFC
+	PUSHJ	P,HPNCMP	;dec b by # of digits in page #
+	PUSHJ	P,SPB		;space up to heading
+HTYI2:	PUSHJ	P,PSTRG		;print header
+	 HBUFC
+	 HBUF
+	PUSHJ	P,PGNPT		;print page #
+HEND:	PUSHJ	P,FIXUSE	;end underscore
+	POP	P,ULBASI
+	POP	P,BLPOS
+	POP	P,FONTD
+	POP	P,ULD
+	PUSHJ	P,OPBASE
+	JRST	CRR
+
+HIMPLE:	MOVE	B,RMARGIN	;yes, simple margin (bkph)
+	PUSHJ	P,SPB		;space up to heading
+	JRST	HTYI2
+
+HTYIV:	MOVE	G,B
+	IMUL	G,WIDTH		;calculate size of var width header
+	SUB	G,HBUFW
+	SETZ	B,
+	MOVE	H,HDFONT	;Font pg # will be in
+	PUSHJ	P,HPCWDR	;Decrement by width of page#
+	ADD	G,B
+	PUSHJ	P,OPRAST
+	JRST	HTYI2
+
+HPNCMP:	SKIPG	A,CHAPNO	;dec b by pg & chap size
+	JRST	.+3		;no chapter #
+	PUSHJ	P,HNCMP
+	SOJ	B,		;account for .
+	MOVE	A,OUTPAG
+HNCMP:	CAIL	A,100.		;dec b by # of digits in a
+	SOJ	B,
+	CAIL	A,10.
+	SOJ	B,
+	SOJ	B,
+	POPJ	P,		;assumes not more than 999 pages!
+
+HPCWD:	MOVE	H,FONTD		;for variable width
+HPCWDR:	IMULI	H,FNTBKL	;call here for .header
+	SKIPLE	K,CHAPNO
+	SUB	B,WIDTHS+".(H)
+	PUSHJ	P,NUMWID
+	MOVE	K,OUTPAG
+NUMWID:	JUMPLE	K,NUMWIR
+	IDIVI	K,10.
+	ADD	L,H
+	SUB	B,WIDTHS+"0(L)
+	JUMPG	K,.-3
+NUMWIR:	POPJ	P,
+
+;print string stored at @1(p), which is @(p) columns
+PSTRG:	MOVE	C,@(P)
+	MOVE	C,(C)
+	MOVEM	C,PSMX		;size of string
+	AOS	(P)
+	MOVE	C,@(P)		;location of string
+	ADDM	C,PSMX
+	AOS	(P)
+	SETZM	INCHSP
+PSTRG1:	CAMLE	C,PSMX
+	POPJ	P,
+	SKIPE	A,(C)
+	PUSHJ	P,PRC
+	AOJA	C,PSTRG1
+
+;routine to output split header
+HICTOP:	MOVE	B,RMARGIN
+	PUSHJ	P,SPB		;output margin
+	SKIPN	SWPFLG
+	PUSHJ	P,LHEADE	;print header 1
+	SKIPE	SWPFLG
+	PUSHJ	P,RHEADE	;print header 2
+	SETZ	B,		;calculate sign of center field
+	SKIPE	XGPMOD
+	JRST	HICV
+	PUSHJ	P,HPNCMP	;get -size of pg # in b
+	ADD	B,RNLL		;sps after he1=linel/2-center fieldsz/2-he1 size
+	LSH	B,-1
+	SKIPN	SWPFLG
+	SUB	B,HBUFC1	;normal
+	SKIPE	SWPFLG
+	SUB	B,HBUFC2	;swapped
+	PUSHJ	P,SPUL		;space or ul
+HICTPC:	PUSHJ	P,PGNPT		;print pg & chap
+	SKIPE	XGPMOD
+	JRST	HICV1
+	MOVE	B,RNLL		;# of spaces after center=
+	PUSHJ	P,HNCMP
+	AOS	B
+	LSH	B,-1
+	SKIPN	SWPFLG
+	SUB	B,HBUFC2	;normal
+	SKIPE	SWPFLG
+	SUB	B,HBUFC1	;swapped
+	PUSHJ	P,SPUL
+HICTP4:	SKIPN	SWPFLG
+	PUSHJ	P,RHEADE	;print header 2
+	SKIPE	SWPFLG
+	PUSHJ	P,LHEADE	;print header 1
+	JRST	HEND
+
+LHEADE:	PUSHJ	P,PSTRG		;print he1
+	 HBUFC1
+	 HBUF1
+	POPJ	P,
+
+RHEADE:	PUSHJ	P,PSTRG		;print he2
+	 HBUFC2
+	 HBUF2
+	POPJ	P,
+
+;print space after 1st field=linel/2-cent field/2
+HICV:	PUSHJ	P,HPCWD		;get size of center field in b
+	MOVE	G,RMARGI
+	ASH	G,1
+	ADD	G,RNLL
+	IMUL	G,WIDTH
+	ADD	G,B
+	ASH	G,-1
+	PUSHJ	P,FIXUS		;fix underline state
+	PUSHJ	P,OPRAST
+	JRST	HICTPC
+
+;print space after center field=linel-2nd field
+HICV1:	MOVE	G,RNLL
+	ADD	G,RMARGI
+	IMUL	G,WIDTH
+	SKIPN	SWPFLG
+	SUB	G,HBUFW2	;normal
+	SKIPE	SWPFLG
+	SUB	G,HBUFW1	;swapped
+	PUSHJ	P,FIXUS
+	PUSHJ	P,OPRAST
+	PUSHJ	P,OPFNTZ
+	JRST	HICTP4
+
+;Get a Sixbit syllable in H, with decimal number in K
+;Terminator in A, index in B
+;Flags in Z
+
+CMSYLF==1	;read any SIXBIT character
+CMFN1F==2
+CMFN2F==4
+CMDEVF==10
+CMSNMF==20
+GSLETF==40	;read a non-digit
+GSMINF==100	;read odd number of minus signs
+GSNUMF==200	;terminate on a non-digit
+
+GSYLFS:	PUSHJ	P,@CHARI	;flush spaces
+	CAIN	A,40
+	JRST	.-2
+	PUSHJ	P,UNCH
+GSYL:	SETZB	H,K
+	TLZ	Z,CMSYLF+GSLETF+GSMINF
+	MOVE	I,[440600,,H]
+	JRST	GSYLI
+
+GSYLTB: REPEAT CIDXL,GSYLT	;all chars terminate except:
+	GSILL			;non 6bit
+LOC GSYLTB+CLNFX
+	GSLF			;linefeed
+	GSLET			;UPPER CASE LETTERS
+	GSDIG			;0-9
+	GSLOW			;lower case letters
+	GSMIN			; -
+REPEAT 3,GSILL			;rbo, ^L, ^C
+	GSQUO			;quote
+	GSO6B			;"other" 6bit
+LOC GSYLTB+CIDXL
+
+GSLOW:	SUBI	A,40		;convert lower to upper case
+GSLET:	TLO	Z,GSLETF	;it's a letter
+GSO6B:	TLO	CMSYLF
+	TLNE	Z,GSNUMF
+	JRST	GSYLT		;but we were trying to read number
+GSDIG2:	SUBI	A,40		;convert
+	TLNE	I,770000
+	IDPB	A,I
+GSYLI:	PUSHJ	P,@CHARI	;read char
+	JRST	@GSYLTB(B)
+
+GSDIG:	TRNE	H,77
+	JRST	GSYLI		;ignore >6 digits
+	IMULI	K,10.		;assemble decimal number
+	ADDI	K,-"0(A)
+GSDIG1:	TLO	Z,CMSYLF
+	JRST	GSDIG2		;also add to chr string
+
+GSMIN:	TLNE	Z,GSNUMF
+	TLNE	Z,GSLETF
+	JRST	GSO6B		;can't be a number
+	TLC	Z,GSMINF	;flip minus flag
+	JRST	GSYLI		;read more
+
+GSQUO:	PUSHJ	P,@CHARI	;get another char
+	CAILE	A,"_
+	JRST	GSLOW
+	CAIL	A,40
+	JRST	GSLET
+GSILL:	TRZA	B,B		;give all non 6bit same dispatch #
+GSLF:	MOVE	B,ICDTAB+15	;make lf look like cr
+GSYLT:	SKIPN	H
+	MOVEI	K,1		;if no text, return the number 1 (default value)
+	TLNE	Z,GSMINF
+	MOVNS	K		;negate it
+	MOVEM	A,LCHAR		;save terminator
+	TLZ	Z,GSNUMF
+	POPJ	P,
+
+;read a number, leave in k returns 1 as default if no arg
+GNUMAR:	HRLI	Z,GSNUMF	;break on non-digit
+	PUSHJ	P,GSYLFS
+	TLZ	Z,GSNUMF
+	TLNN	Z,GSLETF
+	POPJ	P,
+	PUSHJ	P,AERLIN
+	BARF  Non-numeric argument 
+	POPJ	P,
+
+GFNUM:	PUSHJ	P,GNUMAR	;get "decimal" number
+	SKIPN	H
+	SOJ	K,GFNUMR	;gnum returned 1 as default!
+	CAIE	A,".
+	JRST	GFNUM2		;no decimal point
+	PUSH	P,K
+	PUSHJ	P,GNUMAR
+	SKIPE	H
+	SKIPN	K
+	AOJA	H,GFNUM1	;no or 0 arg
+	POP	P,K
+	MOVE	I,[440600,,H]
+	MOVEI	B,3
+
+	ILDB	A,I		;get one digit
+	IMULI	K,10.
+	SKIPE	A
+	ADDI	K,-'0(A)
+	SOJG	B,.-4
+GFNUMR:	POPJ	P,
+
+GFNUM1:	POP	P,K
+GFNUM2:	IMULI	K,1000.
+	POPJ	P,
+
+;in nofill mode, just:  pushj p,comman, jrst mnlpr
+;If Filling or Adjusting, come here for . at start of line;
+RDF.:	SKIPN	CNTFL
+	SETOM	CNTFL		;inside a .sect
+	PUSHJ	P,RCOM		;read command
+	JRST	RUDDER		;lost
+	JUMPL	B,POWB
+	PUSHJ	P,COMMA1
+RUDDER:	JUMPN	C,RDEOL
+	SKIPN	CMCNT
+	JUMPE	C,MNLPR		;buffer is empty and no end of line call
+RDL2X:	JUMPE	C,MNLP		;buffer is empty and an end of line call
+	JRST	MNBRR		;buffer not empty
+
+COMMAN:	PUSHJ	P,RCOM		;Read command
+	POPJ	P,		;Lost
+COMMA1:	MOVE	A,CHARI1
+	MOVEM	A,COMTYI	;Save where cmnd comes from
+	SETZB	K,H
+	HRRZM	B,COMCAL
+	LDB	A,[222100,,B]	;dispatch for pre-command instruction
+	CAIL	A,PCTBL
+	MOVEI	A,PCTBL		;unknown dispatch #
+	XCT	PCTAB(A)	;do any pre-command instruction
+	PUSHJ	P,@COMCAL	;do command
+FINLIN:	SKIPA	A,LCHAR
+FINLI2:	PUSHJ	P,@COMTYI	;Ignore rest of command line
+FINLI3:	CAIE	A,^J
+	JRST	FINLI2
+	POPJ	P,
+
+RCOM:	PUSHJ	P,GSYL		;Read a command - get syllable into H
+	MOVSI	B,-COML
+	CAMN	H,COMT(B)	;compare with valid commands
+	JRST	RCOM1		;Found it
+	AOBJN	B,.-2
+RCOMER:	PUSHJ	P,RCOMO		;ERROR-output command
+	BARF  unknown command 
+	JRST	FINLIN
+
+RCOM1:	MOVEM	B,ROTPNT
+	MOVE	B,COMDT1(B)
+POPJ1:	AOS	(P)		;Skip return
+	POPJ	P,
+
+;table for instruction done before commands
+PCTAB:	JFCL			;0 no precommand instr
+	PUSHJ	P,GNUMAR	;1 get a numerical argument
+	PUSHJ	P,GFNUM		;2 get a "floating" argument
+	PUSHJ	P,LATEST	;3 see if before text
+	JRST	CMONE		;4 put command on end of line list
+	PUSHJ	P,RCSV		;5 read one char and save in lchar
+	SETO	K,		;6 for use as flag
+PCTBL==.-PCTAB
+	BUG Comidx
+
+AERLIN:	MOVE	H,ROTPNT	;Output command
+	MOVE	H,COMT(H)
+RCOMO:	PUSHJ	P,TTYOON
+	PUSHJ	P,OP6BT		;Output 6bit syllable in H
+	PUSHJ	P,OPSP
+POPTJ:	POP	P,TYRFL
+	POPJ	P,
+
+POWB:	MOVEI	B,POWER		;Here on autob command in fill mode
+	PUSHJ	P,CMONE
+	JRST	RDL2X
+
+POWER:	JUMPN	C,DUPLXT
+	MOVE	B,ROTPNT	;Finally do an AUTOB command
+	MOVE	B,COMDT1(B)
+	PUSHJ	P,COMMA1
+	AOS	H,CMIDX
+	SETOM	CMBLK-1(H)	;Indicate Command done
+	POP	P,
+	JRST	RDL2X
+
+DUPLXT:	SOS	C,MXPF
+	POP	P,		;Still some left in buffer after all
+	JRST	MNBRR
+
+CMEOL:	MOVE	H,CMIDX		;Here when there are end of line command calls
+CMEOL1:	CAML	H,CMCNT
+	JRST	CMEOL2
+	SETZ	K,
+	SKIPLE	H,CMBLK(H)	;Get next call
+	PUSHJ	P,(H)		;do it
+	AOS	H,CMIDX
+	SETOM	CMBLK-1(H)
+	JRST	CMEOL1
+
+CMEOL2:	SETZM	CMIDX
+	SETZM	CMCNT
+	SKIPGE	JMODE
+	JRST	NJMN1		;not filling
+	JUMPLE	C,RDEOL1	;nothing on line
+	SOSGE	C,MXPF
+	SETZB	C,MXPF
+	JRST	RDEOL
+
+CMONE.:	POP	P,B		;eol routine is just after call to me
+CMONE:	MOVE	A,CMCNT
+	HRRZM	B,CMBLK(A)	;store end of line routine address
+	AOS	B,CMCNT
+	CAIGE	B,CMSWL
+	POPJ	P,
+	BUG Too many eol calls
+	SOS	CMCNT
+	POPJ	P,
+
+COMT:		;Searched linearly from this end
+SIXBIT	/SP/
+SIXBIT	/SPACE/
+SIXBIT	/PA/
+SIXBIT	/PAGE/
+SIXBIT	/BR/
+SIXBIT	/BREAK/
+
+SIXBIT	/IN/
+	'INDENT
+SIXBIT	/UN/
+	'UNDENT
+SIXBIT	/RIN/
+	'RINDEN
+SIXBIT	/OF/
+
+SIXBIT	/SS/
+	'SINGLE
+SIXBIT	/DS/
+	'DOUBLE
+SIXBIT	/NF/
+	'NOFILL
+SIXBIT	/FI/
+SIXBIT	/FILL/
+SIXBIT	/AD/
+	'ADJUST
+	'HALFAD
+
+SIXBIT	/CE/
+	'CENTER
+SIXBIT	/RI/
+SIXBIT	/RIGHT/
+	'SPREAD
+
+SIXBIT	/SECT/
+	'SECTIO
+	'GENNUM
+	'GENSET
+SIXBIT	/C/
+	'COMMEN
+	'FIGURE
+SIXBIT	/BLOCK/
+SIXBIT	/INSRT/
+SIXBIT	/AP/
+	'APPEND
+SIXBIT	/RLINE/
+SIXBIT	/RTW/
+
+SIXBIT	/HE1/
+SIXBIT	/HE2/
+SIXBIT	/HE/
+	'HEADER
+	'HEADIN
+SIXBIT	/CHAP/
+
+	'ULFONT
+SIXBIT	/FINCH/
+	'TABFNT
+SIXBIT	/SPW/
+	'SBLOCK
+SIXBIT	/STERM/
+
+SIXBIT	/SPBR/
+SIXBIT	/SPSP/
+SIXBIT	/CRBR/
+SIXBIT	/CRSP/
+	'SPCOMP
+	'SPRETA
+	'CRCOMP
+	'CRRETA
+
+SIXBIT	/ASP/
+	'ABLOCK
+	'SELECT
+SIXBIT	/EP/
+SIXBIT	/EPAGE/
+SIXBIT	/SPAGE/
+SIXBIT	/PV/
+SIXBIT	/PD/
+	'BLADJU
+	'PSCORE
+	'SCRIPT
+
+SIXBIT	/DUMMY/
+SIXBIT	/QUOTE/
+	'HYPCHR
+	'HYPHEN
+	'PERIOD
+SIXBIT	/TRANS/
+	'NORMAL
+
+SIXBIT	/SINCH/
+	'TWINCH
+	'TLINCH
+	'PWINCH
+	'PLINCH
+SIXBIT	/TW/
+SIXBIT	/TL/
+SIXBIT	/PW/
+SIXBIT	/PL/
+SIXBIT	/HVW/
+SIXBIT	/TOPM/
+SIXBIT	/SIDM/
+	'THESIS
+	'HEADPW
+SIXBIT	/PHP1/
+	'NOHEAD
+
+SIXBIT	/XGP/
+SIXBIT	/FONT/
+SIXBIT	/VSP/
+	'NOSPEC
+	'SQUISH
+	'LTRSPC
+
+SIXBIT	/END/
+SIXBIT	/BEGIN/
+	'NOWAIT
+	'NVRADJ
+SIXBIT	/VERSE/
+SIXBIT	/DEBUG/
+SIXBIT	/ET/
+SIXBIT	/ALTER/
+
+COML==.-COMT
+DEFINE CM A/
+	A
+	A
+TERMIN
+COMMENT \;table for instruction done before commands
+PCTAB:	JFCL			;0 no precommand instr
+	PUSHJ	P,GNUMAR	;1 get a numerical argument
+	PUSHJ	P,GFNUM		;2 get a "floating" argument
+	PUSHJ	P,LATEST	;3 see if before text
+	JRST	CMONE		;4 put command on end of line list
+	PUSHJ	P,RCSV		;5 read one char and save in lchar
+	SETO	K,		;6 for use as flag\
+;these numbers are in index field
+COMDT1:
+CM SETZ	ASPC(1)		;SPACE
+CM SETZ APAGE(1)	;PAGE
+CM SETZ POPJP		;BREAK
+
+CM SETZ AIND(1)		;INDENT
+CM SETZ AUND(1)		;UNDENT
+CM SETZ ARIN(1)		;RINDEN
+   SETZ	AOFFSE(1)	;OFFSET
+
+CM SETZ ASS		;SINGLE
+CM SETZ ADS		;DOUBLE
+CM SETZ ANF		;NOFILL
+CM SETZ AFILL		;FILL
+CM SETZ AADJ		;ADJUST
+   SETZ	AHALFA		;HALFAD
+
+CM SETZ ACENT(4)	;CENTER
+CM SETZ ARIGHT(4)	;RIGHT
+   SETZ	ASPREA(4)	;SPREAD
+
+CM SETZ ASECT		;SECT
+	AGENNU(1)	;GENNUM
+	AGENSE(1)	;GENSET
+CM	POPJP		;COMMEN
+	AFIGUR(1)	;FIGURE
+   SETZ	ABLOCK(1)	;BLOCK
+	AINSRT		;INSRT
+CM	AAP(6)		;APPEND
+CM SETZ ARLINE(1)		;RTW Add n to line length
+
+   SETZ	AHE1(4)		;Header to left of centered page #
+   SETZ	AHE2(4)		;Header to right of centered page #
+CM SETZ AHEAD(4)	;HEADER
+   SETZ	AHEAD(4)
+   SETZ	ACHAP(1)	;chapter number to be printed with page #
+
+   SETZ	AULFON(1)	;ULFONT font to be automatically underlined on tty
+	AFINCH(2)	;figure (arg in inches)
+	ATABFN(1)	;TABFNT font used for tab and spacing unit
+   SETZ	ASPW(1)		;# of xgp dots in width
+	ASBLOC(1)	;SBLOCK -- size of .sect implied block
+	ASTERM(5)	;STERM -- set terminator for written spreads
+
+   SETZ	ASPBR		;SPBR leading spac or tab breaks
+	ASPSP(6)	;SPSP don't break
+   SETZ	ACRBR(6)	;CRBR break on crs
+	ACRSP		;CRSP don't
+	ASPCOM(6)	;SPCOMP compact consecutive spaces
+	ASPRET		;SPRETA retain them
+   SETZ	ACRCOM(6)	;CRCOMP compact consecutive CRs
+   SETZ	ACRRET		;CRRETA retain them
+
+   SETZ	AASP(1)		;ASP absolute space
+   SETZ	AABLOC(1)	;ABLOCK absolute block
+   SETZ	ASELEC		;SELECT font #
+CM 	AEPAGE(1)	;EPAGE
+	ASPAGE(1)	;Set page #
+   SETZ	APV		;PV-even page force
+   SETZ	APD		;PD-odd page force
+	ABLADJ(1)	;BLADJU set baseline
+	APSCOR(1)	;PSCORE set underscore position
+	ASCRIP(1)	;SCRIPT set super and subscript amount
+
+   SETZ	ADUMMY(5)	;DUMMY
+   SETZ	AQUOTE(5)	;QUOTE
+   SETZ	AHYPCHR(5)	;HYPCHR
+	AHYPH(1)	;HYPHEN
+   SETZ	APERI(1)	;PERIOD
+	ATRANS(5)	;TRANS input TRANSlation
+	ANORMA(1)	;NORMAL Arg means "normalize" quoted xgp chars
+
+   SETZ	ASINCH(2)	;SINCH set pw,tw,pl,tl,lmarg in inches
+   SETZ	ATWINC(2)	;TWINCH text width
+   SETZ	ATLINC(2)	;TLINCH text length
+   SETZ	APWINC(2)	;PWINCH paper width in 1/10 inch
+   SETZ	APLINC(2)	;PLINCH paper length
+   SETZ	ATW(1)		;TW
+   SETZ	ATL(1)		;TL
+   SETZ	APW(1)		;PW
+   SETZ	APL(1)		;PL
+   SETZ	AHVW(1)		;HVW set height, vsp, width
+   SETZ	ATOPP(1)	;TOPM
+   SETZ	ASIDP(1)	;SIDM
+   SETZ	ATHES(1)	;THESIS
+   SETZ	AHEADP(1)	;HEADPW make heading as wide as page
+	APHP1(1)	;PHP1 print header on page 1
+   SETZ	ANOHEA(1)	;NOHEAD
+
+   SETZ	AXGP(3)		;XGP set xgp mode
+   SETZ	AFONT(3)	;FONT read in font
+   SETZ	AVSP(3)		;VSP interline space
+   SETZ	ANOSPE(3)	;NOSPEC don't output xgp spec page
+	ASQUIS(3)	;SQUISH -- causes ;SQUISH to appear on command page
+	ALTRSP(1)	;LTRSPC -- 0 arg suppresses letterspacing on XGP in adjust mode
+
+   SETZ	AEND		;END
+   SETZ	ABEGIN(1)	;BEGIN
+   SETZ	ANOWT(1)	;NOWAIT
+   SETZ	ANVRAD(1)	;NVRADJ
+	AVERSE		;VERSE version # (like .DATE)
+	ADEBUG		;DEBUG does a .VALUE if debugging
+	AET		;ET end typein
+   SETZ AALTER(1)	;ALTERnate left and right headings	
+
+IFN .-COMDT1-COML,[
+	PRINTC /COMMANDS DONT MATCH
+ /
+]
+
+;Various routines to handle commands
+
+;Some commands like to do things at the end of the next output line
+;This can be done in two ways:
+;Save paramters now, then swap them in in MNLP or
+;Generate an end of line routine and put its adress into CMSW
+
+ATW:	PUSHJ	P,CVWTI		;convert to 1/10 inch
+	MOVEM	H,TWINCH
+ATW1:	SKIPN	XGPMOD
+	CAIG	K,BUFSIZ-1
+	JRST	.+3
+	BARF TW too wide
+	MOVEI	K,BUFSIZ-1
+	MOVEM	K,TW
+ATW4:	MOVEM	K,RNLL
+ATW2:	SUB	K,PW
+ATW3:	PUSHJ	P,MCAL		;caculate margin
+	SKIPE	PWHDF
+	POPJ	P,
+	PUSH	P,A
+	MOVE	A,RNLL		;update rmargin only if tw = rtw
+	CAMN	A,TW
+	MOVNM	K,RMARGIN
+	JRST	POPAJ
+
+ARLINE:	SUB	K,TW		;.RTW adds to NLL but not RNLL (doesn't affect header)
+	MOVNS	K
+	MOVEM	K,TW
+	SUB	K,PW
+MCAL:	IMUL	K,PRSNT		;calculate left margin from %
+	IDIVI	K,100.
+	CAIL	L,50.
+	AOJ	K,
+	MOVNM	K,MARGIN	;if margin < 0, none appears 
+	MOVE	K,PWINCH
+	SUB	K,TWINCH
+	IMUL	K,PRSNT
+	IDIVI	K,100.
+	CAIL	L,50.
+	AOJ	K,
+	MOVEM	K,LMINCH
+	MOVN	K,MARGIN
+	POPJ	P,		;so in effect pw > or = lnl.
+
+APW:	PUSHJ	P,CVWTI		;convert to 1/10 inch
+	MOVEM	H,PWINCH
+APW1:	MOVEM	K,PW
+	SUB	K,TW
+	MOVNS	K
+	JRST 	ATW3
+
+APL:	PUSHJ	P,CVLTI		;convert to 1/10 inch
+	MOVEM	H,TLINCH
+APL1:	MOVEM	K,PL
+	SUB	K,TL
+	JRST	ATL3
+
+ATL:	PUSHJ	P,CVLTI		;convert to 1/10 inch
+	MOVEM	H,TLINCH
+ATL1:	SKIPE	THSFLG
+	 SUBI	K,3		;Thesis mode, discount for header included in text area
+	MOVEM	K,TL
+ATL2:	SUB	K,PL
+	MOVNS	K
+ATL3:	SKIPE	THSFLG
+	 SUBI	K,3
+	IMUL	K,PRCNT		;calculate top margin
+	IDIVI	K,100.
+	CAIL	L,50.
+	AOJ	K,
+	CAIGE	K,5		;do we have 5 lines for top
+	MOVEI	K,5		;no
+	SKIPE	THSFLG
+	 ADDI	K,3
+	MOVEM	K,TPMAR		;prcnt of extra lines in top margin
+	SUBI	K,3		;top margin minus heading
+	MOVEM	K,TPMAR3
+	POPJ	P,		;if margin < 0 it, none appears
+				;so in effect pl > or = pl+5
+
+CVLTI:	MOVE	A,HEIGHT
+	ADD	A,VSP
+	MOVE	H,XVRES
+	JRST	CVCHTI
+CVWTI:	MOVE	A,WIDTH
+	MOVE	H,XHRES
+;CONVERT # OF CHARS IN K TO 1/1000 INCH IN H
+CVCHTI:	PUSH	P,K
+	IMUL	K,A		;xgp dots per char
+	IMULI	K,1000.
+	IDIV	K,H
+	ASH	H,-1
+	CAML	L,H
+	AOJ	K,
+	MOVE	H,K
+	POP	P,K
+	POPJ	P,
+
+ACHAP:	SKIPN	H		;.CHAP
+	AOSA	CHAPNO		;no arg, simply increment chapter
+	MOVEM	K,CHAPNO
+	SETZM	OUTPAG		;Restart page numbering
+	POPJ	P,
+
+AIND:	MOVEM	K,NINDS		;.INDENT
+	POPJ	P,
+
+ARIN:	ADDM	K,NINDS		;.RTW
+	POPJ	P,
+
+AOFFSE:	PUSHJ	P,ARIN		;.OF
+AUND:	MOVEM	K,AUNDT		;.UNDENT
+	PUSHJ	P,CMONE.
+	MOVN	K,AUNDT
+	ADDB	K,INDS
+	JUMPGE	K,.+2
+	SETZB	K,INDS		;If INDS<0, set to 0
+	MOVE	A,TW		;recalculate line length
+	SUB	A,NXLSPC
+	SUB	A,INDS
+	JRST	LNLCHK
+
+ASS:	SKIPA	K,[1]		;.SINGLE
+ADS:	MOVEI	K,2		;.DOUBLE
+	MOVEM	K,LFMD
+	POPJ	P,
+
+ANVRAD:	MOVNM	K,NVRADJ	;.NVRADJ
+	POPJ	P,
+
+AFILL:	TDZA	A,A		;.FILL
+ANF:	SETOM	A		;.NOFILL
+	SETZM	SPFLSF		;don't flush extra spaces
+	SETZM	MID.F		;.s not special in middle of line
+ANF1:	MOVEM	A,NJMODE
+	POPJ	P,
+
+AHALFA:	TDZA	A,A		;.HALFAD fill but treat . & sp like .ad
+AADJ:	MOVEI	A,1		;.ADJUST
+	SETOM	SPFLSF		;flush redundant spaces
+	SETOM	MID.F		;. special in middle
+	JRST	ANF1
+
+ACENT:	SETZM	RGHCN		;.CENTER
+	JRST	ARI1
+
+ARIGHT:	SETOM	RGHCN		;.RIGHT
+ARI1:	PUSHJ	P,PRNTRA	;do at end of line after .center
+	PUSHJ	P,RCH
+	TLNE	B,CEOLF+CFSPF
+	JRST	.-2		;flush cr, lf, sp tab
+	PUSHJ	P,UNCH
+	PUSHJ	P,READIT
+	SKIPN	CONTEN
+	SKIPE	OUTFLS
+	JRST	ACENT3
+	MOVE	B,TW		;line length
+	SKIPE	XGPMOD
+	JRST	ACENX
+	SUB	B,C		;length of text to be centered
+	JUMPL	B,ACENER
+	SKIPN	RGHCN
+	ASH	B,-1		;calculate spaces needed
+	ADD	B,MARGIN
+	PUSHJ	P,SPB1
+ACENT3:	PUSHJ	P,[ SKIPN OUTFLS ? JRST PRNTI3 ? JRST FLSLIN ]
+	SETZB	C,MXPF
+	JRST	PREOL1
+
+ACENX:	MOVE	B,TW		;center for xgp
+	IMUL	B,WIDTH
+	SUB	B,W
+	JUMPL	B,ACENER
+	SKIPN	RGHCN
+	ASH	B,-1
+	PUSHJ	P,SPMPB
+	JRST	ACENT3
+
+ACENER:	PUSHJ	P,AERLIN	;print command name
+	PUSHJ	P,LTWER		;print line wider than TW
+	JRST	ACENT3
+
+AHEAD:	SETZM	HEDSPT		;.HEADER
+	PUSHJ	P,HEDST
+	JSP H,RSTRG		;put it in headin hbuf
+	 HBUFC
+	 HBUFW
+	 HBUF
+	 HBUFL
+	 PUSHJ P,FTLER
+	MOVE	A,RSEFNT	;Current input font
+	MOVEM	A,HDFONT	;Save, Pg # is in this font
+	POPJ P,
+
+AHE1:	SETOM	HEDSPT		;.HE1
+	PUSHJ	P,HEDST
+	JSP H,RSTRG
+	 HBUFC1
+	 HBUFW1
+	 HBUF1
+	 HBUFL/2
+	 PUSHJ P,FTLER
+	POPJ P,
+
+AHE2:	SETOM	HEDSPT		;.HE2
+	PUSHJ	P,HEDST
+	JSP H,RSTRG
+	 HBUFC2
+	 HBUFW2
+	 HBUF2
+	 HBUFL/2
+	 PUSHJ P,FTLER
+	POPJ P,
+
+HEDST:	PUSHJ	P,RNCH
+	CAIE	A,12
+	JRST	UNCH
+	POPJ	P,
+
+FTLER:	PUSHJ	P,AERLIN	;print command name
+	BARF  field too wide
+	POPJ	P,
+
+;0(H)	Place to put number of columns taken
+;1(H)	Place to put width
+;2(H)	Place to put goodies
+;3(H)	Maximum width
+;4(H)	What to do when too long
+;5(H)	Return
+
+RSTRG:	SKIPN	C,@(H)
+	JRST	RSTRG1		;No previous data
+	HRLZ	A,2(H)		;Flush current data
+	HRRI	A,BUFF
+	BLT	A,BUFF(C)	;Put in input buffer
+	MOVEM	C,MXPF1
+	PUSHJ	P,FLSLIN	;Then flush it
+	MOVE	A,2(H)
+	SETZM	(A)
+	ADD	C,A
+	HRL	A,A
+	AOJ	A,
+	BLT	A,-1(C)		;Zero out string buffer
+RSTRG1:	PUSH	P,H
+	PUSH	P,IFNT
+	PUSH	P,IFNIDX
+	SETZM	IFNT
+	SETZM	IFNIDX
+	PUSHJ	P,READIT	;Read a line into buff
+	MOVE	A,IFNT
+	MOVEM	A,RSEFNT	;Save font # for .HEADER
+	POP	P,IFNIDX
+	POP	P,IFNT
+	POP	P,H
+	CAML	C,3(H)
+	JRST	RSTRTL		;Too Long
+RSTRG2:	MOVEM	C,@(H)		;# of columns
+	MOVEM	W,@1(H)		;Width
+	MOVE	A,2(H)
+	ADD	C,A
+	HRLI	A,BUFF
+	BLT	A,(C)		;BLT from BUFF to string buffer
+	SETZM	BUFF
+	MOVE	A,[BUFF,,BUFF+1]
+	MOVE	C,@(H)
+	BLT	A,BUFF(C)	;Clear out buffer
+	MOVE	A,[COLWID,,COLWID+1]
+	SETZB	W,COLWID
+	BLT	A,COLWID(C)
+	SETZB	C,MXPF
+	JRST	5(H)
+
+RSTRTL:	PUSH	P,H
+	XCT	4(H)
+	POP	P,H
+	SETCA	C,
+	ADD	C,3(H)	;Flush 1 extra column
+	HRLZS	C
+	HRR	C,3(H)	;First one to flush
+	PUSHJ	P,FLSBU1
+	MOVE	C,3(H)
+	JRST	RSTRG2
+
+ABLOCK:	MOVE	H,LFMD		;.BLOCK
+	IMULI	K,(H)
+	ADDI	K,-1(H)
+AABLOC:	MOVEM	K,BLCKNT	;.ABLOCK
+	PUSHJ	P,CMONE.
+	MOVE	K,TL
+	SUB	K,OUTLIN
+	CAML	K,BLCKNT
+	POPJ	P,		;enough space
+	SETOM	PGSPFL		;need to do .page
+	JRST	ASPAG
+
+AEPAGE:	ADDM	K,EPGINN	;.EPAGE
+	PUSHJ	P,CMONE.
+	MOVE	K,EPGINN
+	SETZM	EPGINN
+	ADDM	K,EPGIN
+	POPJ	P,
+
+APV:	SETOM	PGSPFL		;.PV even page force
+	PUSHJ	P,CMONE.
+	MOVE	K,OUTPAG
+APV1:	ADD	K,EPGIN
+	TRNN	K,1
+	AOS	EPGIN
+	JRST	ASPAG
+
+APD:	SETOM	PGSPFL		;.PO odd page force
+	PUSHJ	P,CMONE.
+	MOVE	K,OUTPAG
+	AOJA	K,APV1
+
+ASPC:	IMUL	K,LFMD		;.SPACE
+ASP1:	ADDM	K,NLFS		;.ASP
+	SETOM	PGSPFL
+	PUSHJ	P,CMONE.
+	JRST	ASPC1
+
+AASP:	SKIPN	OUTLIN
+	JRST	ASP1
+	SUB	K,OLFMD		;account for LFs at end of previous line
+	AOJA	K,ASP1
+
+APAGE:	SOJL	K,POPJP		;.PAGE
+	ADDM	K,EPGIN
+	SETOM	PGSPFL
+	PUSHJ	P,CMONE.
+ASPAG:	MOVE	K,TL		;used by .page .block, etc. at end of line
+	SUB	K,OUTLIN
+	ADDI	K,2		;?
+	MOVEM	K,NLFS		;lines after present one
+	SETOM	PGCMFL		;indicate that we are doing a .page
+	SKIPLE	PNST		;avoid ^l before xgp specs
+	SKIPG	FPGPOS
+ASPC1:	PUSHJ	P,PRNTRA	;here for .sp eol call
+	SKIPN	OUTPAG
+	JRST	ASPC2		;page 1
+	MOVE	B,NLFS
+	ADD	B,OUTLIN
+	;SKIPE	THSFLG
+	;SUBI	B,3		;for 3 lines in thesis mode
+	CAMLE	B,OLFMD		;ignore .sp 1 at top of page
+ASPC2:	SKIPG	B,NLFS
+	JRST	ASPPG
+	MOVE	H,TL
+	SUB	H,OUTLIN	;# of lines left on page
+	CAMLE	B,H
+	MOVE	B,H		;don't space >h lines
+	SETZM	NLFS
+	PUSHJ	P,CRRB		;do a cr and b crlfs
+	JRST	ASPC1
+
+ASPPG:	MOVE	K,TL
+	SUB	K,OUTLIN
+	IDIV	K,LFMD
+	SOJL	K,ASPAG		;jump if at bottom of page
+	SETZM	NLFS
+	POPJ	P,
+
+ASPAGE:	MOVEM	K,EPGINN	;.SPAGE
+	PUSHJ	P,CMONE.
+	SOSE	K,EPGINN
+	SETZM	EPGINN
+	MOVEM	K,OUTPAG
+	POPJ	P,
+
+AFINCH:	PUSHJ	P,CVLITC	;.FINCH
+AFIGUR:	AOJ	K,		;.FIGURE
+	SUB	K,LFMD
+	CAMLE	K,TL
+	MOVE	K,TL		;figure can't be bigger than page
+	SKIPE	FIGP
+	JRST	AFIGU3		;already figures waiting
+	HRLZM	K,FIGP
+	PUSHJ	P,CMONE.
+AFIGU2:	HLRZ	K,FIGP		;first figure
+	MOVE	A,TL
+	SUB	A,OUTLIN	;lines left on page
+	CAMLE	K,A		;enough space?
+	POPJ	P,		;no - so let happen at top of next page
+	PUSH	P,NLFS
+	MOVEM	K,NLFS
+	PUSHJ	P,ASPC1
+	POP	P,NLFS
+	HRRZ	A,FIGP		;next figure
+	SETZM	FIGP
+	JUMPE	A,AFIGUP	;no next figure
+	MOVE	K,(A)
+	MOVEM	K,FIGP		;move next q entry to figp
+	EXCH	A,FF
+	HRRZM	A,@FF		;free up where it was
+	JRST	AFIGU2
+
+AFIGU3:	MOVEI	H,FIGP		;find end of figure queue
+	MOVE	A,H
+	HRRZ	H,(A)
+	JUMPN	H,.-2
+	PUSHJ	P,CONS		;get new wd of fs
+	HRRM	F,(A)		;add this figure to q
+	HRLZM	K,(F)
+AFIGUP:	POPJ	P,
+
+ABEGIN:	MOVEM	K,PNST		;.BEGIN page to start output at
+ABEGI1:	SETOM	OUTFLS		;switch off output 
+	POPJ	P,
+
+ACONT:	SETOM	CONTEN		;/C in command line, output tabel of contents
+	MOVE	A,['CONTEN]
+	SKIPN	OFN2F
+	MOVEM	A,ONAM+2
+	SETOM	OFN2F
+	JRST	ABEGI1
+
+ANOHEA:	MOVEM	K,NHEADF	;.NOHEAD
+	POPJ	P,
+
+AFNAME:	PUSHJ	P,RANBEG	;control N (in-text command)
+	PUSHJ	P,OPINAM
+	JRST	AGENN1
+
+RANIN:	AOS	I,RANCNT	;put char in a into rantxt
+	CAILE	I,RANMAX
+	JRST	RANER
+	IDPB	A,RANIPT
+	AOS	(P)		;win, skip
+	POPJ	P,
+RANER:	SOS	RANCNT
+	BUG Too much GENTXT
+	POPJ	P,
+
+RANBEG:	MOVEI	A,NRANIN
+	EXCH	A,TYRFL
+	EXCH	A,(P)
+	JRST	(A)
+
+ADATE:	MOVE	H,[440700,,DATE]
+	JRST	.+3		;.ADATE
+	PUSHJ	P,RANIN
+	POPJ	P,
+	ILDB	A,H		;get next char in date
+	JUMPN	A,.-3
+RANSET:	PUSHJ	P,RTYION	;set up input from random text
+	CAIE	A,LTYI
+	POPJ	P,
+	MOVE	A,LCHAR		;don't destroy lchar
+NRANIN:	PUSHJ	P,RANIN
+	POPJ	P,
+	POPJ	P,
+
+AGENNU:	MOVE	D,K		;.GENNUM  1st arg, amount to inc by
+	MOVEI	K,1
+	TLNN	B,CEOLF
+	PUSHJ	P,GNUMAR
+	PUSHJ	P,UNCHCR	;make LF appear after .GENNUM text
+AGENN2:	ADD	D,GENNUM-1(K)
+	PUSHJ	P,AGENW		;Update gennum
+	PUSHJ	P,RANBEG
+	MOVE	A,D
+	PUSHJ	P,DPT		;put gened # into rantxt buffer
+AGENN1:	POP	P,TYRFL
+	JRST	RANSET
+
+AGENSE:	MOVEI	D,-1(K)		;.GENSET
+	MOVEI	K,1
+	TLNN	B,CEOLF
+	PUSHJ	P,GNUMAR
+AGENW:	JUMPLE	K,AGENER
+	CAILE	K,GENMAX
+	JRST	AGENER
+	CAIG	K,GENWMX	;Skip if read-only
+	MOVEM	D,GENNUM-1(K)
+	POPJ	P,
+
+AGENER:	PUSHJ	P,AERLIN
+	BARF  Bad GENNUM counter #
+	JRST	POPAJ
+
+AVERSE:	PUSHJ	P,RANBEG
+	PUSHJ	P,PVERSE
+	PUSHJ	P,UNCHCR	;don't loose LF after .VERSE
+	JRST	AGENN1
+
+PVERSE:	MOVEI	K,ITSNAM	;Print TJ6 Version #
+	JRST	OPFNM2
+
+ADUMMY:	TLNE	B,CEOLF		;.DUMMY
+	POPJ	P,		;don't dummy cr or lf
+	MOVE	D,A
+	PUSHJ	P,GNUMAR
+	MOVSI	H,CDUMF
+	JUMPN	K,.+3
+	ANDCAM	H,CDTAB(D)	;out with the old dummy
+	POPJ	P,
+	IORM	H,CDTAB(D)	;or in with the new
+	POPJ	P,
+
+AQUOTE:	TLNE	B,CEOLF		;.QUOTE
+	SETO	A,
+	MOVSI	H,CQUOF
+	EXCH	A,NQUOTE
+	SKIPL	A
+	ANDCAM	H,CDTAB(A)
+	SKIPL	A,NQUOTE
+	IORM	H,CDTAB(A)
+	POPJ	P,
+
+AHYPCH:	TLNE	B,CEOLF		;.HYPCHR
+	SETO	A,		;turn off
+	MOVSI	H,CHHYF
+	EXCH	A,HYPCHR
+	SKIPL	A
+	ANDCAM	H,CDTAB(A)
+	SKIPL	A,HYPCHR
+	IORM	H,CDTAB(A)
+	POPJ	P,
+
+AHYPH:	MOVSI	A,CHYPF		;.HYPHEN
+	JUMPE	K,.+3
+	ANDCAM	A,CDTAB+"-	;turn off
+	POPJ	P,		;drop out
+	IORM	A,CDTAB+"-	;turn on (arg=0)
+	POPJ	P,
+
+RCSV:	PUSHJ	P,@CHARI
+	MOVEM	A,LCHAR
+	POPJ	P,
+
+APERI:	CAIN	A,40		;.PERIOD
+	JRST	APERI2		;more args
+	MOVSI	A,CEOSF		;turn off special treatment of . ! ?
+	MOVSI	H,CEOCF
+	SKIPN	K
+	JRST	APERON		;arg=0, turn on
+	ANDCAM	A,CDTAB+".
+	ANDCAM	A,CDTAB+"?
+	ANDCAM	A,CDTAB+"!
+	ANDCAM	H,CDTAB+":
+	ANDCAM	H,CDTAB+";
+	POPJ	P,
+APERON:	IORM	A,CDTAB+".
+	IORM	A,CDTAB+"?
+	IORM	A,CDTAB+"!
+	IORM	H,CDTAB+":
+	IORM	H,CDTAB+";
+	POPJ	P,
+
+APERI2:	PUSHJ	P,RCSV
+	TLNE	B,CEOLF
+	POPJ	P,
+	CAIE	A,":
+	CAIN	A,";
+	SKIPA	H,[CEOCF,,]
+	MOVSI	H,CEOSF
+	SKIPE	K
+	JRST	.+3
+	ANDCAM	H,CDTAB(A)	;turn off
+	POPJ	P,
+	IORM	H,CDTAB(A)
+	POPJ	P,
+
+ATRANS:	MOVE	K,A		;.TRANS
+	PUSHJ	P,RCSV
+	MOVEM	A,TRNTBL(K)
+	PUSHJ	P,RCSV
+	CAIN	A,",
+	JRST	ATRANS
+	POPJ	P,
+
+ASTERM:	MOVEM	A,STERMC	;.STERM
+	POPJ	P,
+
+ASBLOC:	JUMPL	K,.+2		;.SBLOCK
+	MOVEM	K,SBLOCK
+	POPJ	P,
+
+ASECT:	MOVE	K,SBLOCK	;.SECT make sure enough lines on page
+	PUSHJ	P,ABLOCK	;by simulating .BLOCK
+	SKIPN	CONTEN
+	POPJ	P,		;if not /c, do nothing else
+	PUSHJ	P,CMONE.
+	PUSHJ	P,PRNTRA	;to avoid top of page hassle
+	SETZM	OUTFLS
+	SETOM	CNTFL		;counts times we got to rdeol
+	MOVEI	H,[ASCIZ /.Spread
+/]
+	SETOM	CONFLG
+	PUSHJ	P,OPSTH
+ASECT1:	MOVE	A,STERMC
+	JRST	@CHARO
+
+SECTN:	SETZM	CONFLG		;Write page #
+	PUSHJ	P,ASECT1
+	PUSHJ	P,@CHARO
+	PUSHJ	P,PGNPT
+	PUSHJ	P,ASECT1
+	PUSHJ	P,CRROF
+	SETOM	OUTFLS
+	POPJ	P,
+
+ATOPP:	MOVEM	K,PRCNT		;.TOPM % of margin on top
+	MOVE	K,TL
+	JRST	ATL2
+
+ASIDP:	MOVEM	K,PRSNT		;.SIDM  % of margin on side
+	MOVE	K,TW
+	JRST	ATW2
+
+ATHES:	MOVNM	K,THSFLG	;.THESIS
+	POPJ	P,
+
+AHEADP:	MOVNM	K,PWHDF		;.HEADPW
+	JUMPE	K,APGNR1
+	SETZM	RMARGIN
+	MOVE	A,PW
+	MOVEM	A,RNLL
+	POPJ	P,
+
+APGNR1:	MOVE	K,TW
+	JRST	ATW4
+
+ANOWT:	MOVEM	K,NWAITF	;.NOWAIT
+	POPJ	P,
+
+ASPSP:				;.SPSP
+ASPBR:	MOVEM	K,SPSPF		;.SPBR
+	POPJ	P,
+
+ACRBR:				;.CRBR
+ACRSP:	MOVEM	K,CRBRF		;.CRSP
+	POPJ	P,
+
+ASPCOM:				;.SPCOMP
+ASPRET:	MOVEM	K,SPFLSF	;.SPRETA
+	POPJ	P,
+
+ACRCOM:				;.CRCOMP
+ACRRET:	MOVEM	K,CRCOMF	;.CRRETA
+	POPJ	P,
+
+AINSRT:	MOVE	A,IOPUSD	;.INSRT
+	CAIL	A,7
+	JRST	PSHFAR
+AAP:	MOVEM	K,APPFLG	;.APPEND
+	PUSHJ	P,AET		;turn off tty input
+	MOVE	A,CHARI1
+	MOVEM	A,CHARI
+	MOVEI	Z,-1		;only get input specs
+	PUSHJ	P,FNR
+	PUSHJ	P,FINLI2
+	PUSHJ	P,UNCHCR	;make cr appear to be next char
+	SKIPE	APPFLG
+	JRST	AINSR2
+	MOVE	A,IOPUSD
+	IMULI	A,IOBKL
+	MOVEI	B,IOPDLB(A)
+	HRLI	B,INBLK
+	BLT	B,PIEOFP(A)	;save INPAGN, INLINE, INPTR, BLKIP, IEOFP
+	MOVE	B,INPTR
+	MOVE	B,(B)		;Save one buffered word
+	MOVEM	B,PINWD(A)
+	AOS	IOPUSD
+	.IOPUSH	UTYIC,		;Push current file
+AINSR2:	PUSHJ	P,TTYOON
+	PUSHJ	P,OPNRD
+	JRST	PSHFA1		;Failed to open
+	JRST	POPTJ
+
+PSHFAR:	BARF >7 nested inserts
+	POPJ	P,
+PSHFA1:	POP	P,TYRFL
+	SKIPN	APPFLG
+	JRST	ENDER1		;Just pop back old file
+	JRST	ENDAR		;No point on .APPEND
+
+RCHEOF:	MOVE	P,PDL		;read real eof
+	MOVEI	A,RDL2X
+	MOVEM	A,(P)
+AEND:	PUSHJ	P,CMONE.	;.END
+ENDER:	JUMPN	C,DUPLXT	;if not all flushed from buffer (unlikely ?)
+ENDER1:	SOSGE	A,IOPUSD
+	JRST	REND		;no inputs left to pop
+	.IOPOP	UTYIC,
+	IMULI	A,IOBKL
+	HRLI	B,IOPDLB(A)
+	HRRI	B,INBLK
+	BLT	B,IEOFP
+	MOVE	B,PINWD(A)	;one word of buffer we saved
+	MOVEM	B,RCHBFE-1
+	HRRZ	B,INPTR		;Where it was pointing
+	MOVEI	A,RCHBFE-1
+	HRRM	A,INPTR		;Mung it
+	SUB	A,B		;Amnt INPTR advanced by
+	ADDM	A,IEOFP
+	MOVE	A,[UTYIC,,DNAM]
+	.RCHST	A,		;Get file name and .ACCESS pntr
+	SUB	B,BLKIP		;-Amount of buffer we lost in .INSRT
+	AOS	B		;But 1 wd was saved
+	ADDB	B,IACCES	;+ old ACCESS pntr
+	.ACCES	UTYIC,B		;= new pntr
+	JRST	UNCHCR		;make cr last char
+
+ANORMA:	SKIPN	H		;.NORMAL
+	SETZ	K,		;no arg
+	MOVEM	K,XNORF		;0 means don't normalize quoted chars
+	POPJ	P,
+
+AET:	SKIPN	SLASHT		;.ET
+	POPJ	P,
+	SETZM	SLASHT		;end typein
+	PUSHJ	P,FTYION	;turn on file input
+	JRST	RESETT		;reset pointers
+
+AALTER:	MOVEM	K,ALTFLG	;set alternating header flag (bkph)
+	POPJ	P,
+
+ASPREA:	PUSHJ	P,PRNTRA	;.SPREAD
+	PUSHJ	P,FINLIN
+ASPRE1:	PUSHJ	P,@CHARI
+	CAIN	A,12
+	 JRST	 ASPRE1		;kludge kludge kludge.  sorry -- DAM
+	MOVEM	A,SEPCHR
+	PUSHJ	P,READIS
+	SKIPE	XGPMOD
+	MOVE	C,W		;if xgp
+	MOVEM	C,CBUF1
+	PUSHJ	P,PRNMRG
+	PUSHJ	P,ASPRT		;get next field
+	JRST	ASPRV		;output flushed or contents
+	JRST	ASPRE3		;not xgp
+	IMUL	B,WIDTH
+	SUB	B,W
+	ASH	B,-1
+	PUSHJ	P,FIXUS
+	PUSHJ	P,SPMPB
+	JRST	ASPRV
+
+ASPRE3:	MOVEM	C,CBUF2
+	SUB	B,C
+	ASH	B,-1
+	SUB	B,CBUF1
+	SKIPGE	B
+	SETZ	B,
+	ADDM	B,CBUF2
+	PUSHJ	P,SPUL		;put in spaces or _s
+ASPRV:	PUSHJ 	P,PRNTIT
+	PUSHJ	P,ASPRT		;get next field
+	JRST	ASPRV1
+	JRST	ASPRE6
+	IMUL	B,WIDTH
+	SUB	B,W
+	PUSHJ	P,FIXUS
+	PUSHJ	P,SPMPB
+	JRST	ASPRV1
+
+ASPRE6:	SUB	B,C
+	SUB	B,CBUF2
+	SUB	B,CBUF1
+	SKIPGE	B
+	SETZ	B,
+	PUSHJ	P,SPUL		;put in spaces
+ASPRV1:	PUSHJ	P,PRNTIT
+	PUSHJ	P,@CHARI
+	PUSHJ	P,FINLI3
+	JRST	ASPRP1
+
+ASPRT:	MOVE	A,TERMC		;get next field
+	CAIN	A,15
+	JRST	ASPRP		;no more args
+	MOVE	A,CHARI1
+	MOVEM	A,CHARI
+	PUSHJ	P,READIS
+	SKIPE	OUTFLS
+	POPJ	P,		;Don't skip
+	MOVE	B,TW
+	AOS	(P)
+	SKIPN	CONTEN
+	SKIPN	XGPMOD
+	POPJ	P,
+	AOS	(P)		;XGP
+	POPJ	P,
+
+
+ASPRP:	POP	P,
+ASPRP1:	SETOM	SEPCHR
+	SETZB	C,MXPF
+	JRST	PREOL1
+
+ABLADJ:	PUSH	P,K		;.BLADJU
+	JRST	RBLS
+
+APSCOR:	CAILE	K,77		;.PSCORE
+	ANDI	K,77
+	MOVEM	K,ULBASI
+	POPJ	P,
+
+ASCRIP:	CAILE	K,77		;.SCRIPT
+	ANDI	K,77
+	MOVEM	K,BLAMT
+	POPJ	P,
+
+APHP1:	MOVEM	K,PHP1F		;.PHP1
+	POPJ	P,
+
+AULFON:	MOVEM	K,ULFNT		;.ULFONT
+	POPJ	P,
+
+ASELEC:	PUSHJ	P,GFONTN	;.SELECT, like ^F
+	POPJ	P,
+	JRST	PFNT1
+
+;Associate font n with file
+AFONT:	SKIPE	XGPMOD		;.FONT
+	PUSHJ	P,GFONTN	;Get font #
+	POPJ	P,		;None or illegal
+	IMULI	K,FNTBKL	;Index into font block
+	PUSH	P,K
+	PUSHJ	P,GFNAM		;Get name & open
+	JRST	POPAJ		;Open lost
+	POP	P,K
+	SETZB	H,FEOF
+	MOVEI	D,FNTBUF+FNTBFL
+GKST:	MOVEI	A,FFDEV(K)
+	HRLI	A,TFBLK
+	BLT	A,FFSYS(K)	;Move names to permanent resting place
+	PUSHJ	P,KSTYI
+	JRST	GKSTER
+	PUSHJ	P,KSTYI		;Ignore kstid
+	JRST	GKSTER
+	HRRZM	A,HEIGHT(K)
+	TLZ	A,777000
+	HLRZM	A,BASE(K)
+	SETZM	WIDTHS(K)	;Zero out widths
+	MOVSI	A,WIDTHS(K)
+	HRRI	A,WIDTHS+1(K)
+GKST1:	PUSHJ	P,KSTYI		;user id
+	JRST	GKSTER
+	TRNN	A,1		;beginning of char info has this bit on
+	JRST	GKST1
+	AOJE	A,GKSTE		;end of font has -1
+	PUSHJ	P,KSTYI		;char id
+	JRST	GKSTER
+	HRRZ	L,A
+	ADDI	L,WIDTHS(K)	;Where to store width
+	PUSHJ	P,KSTYI
+	JRST	GKSTER
+	HRRZM	A,(L)		;save char width
+	JRST	GKST1
+
+GKSTER:	PUSHJ	P,OFNER		;print font file name
+	BARF Bad font file
+	SETZM	FNTBLK(K)
+	POPJ	P,
+
+GKSTE:	.CLOSE	FNTC,
+	MOVE	A,[FNTBUF,,FNTBUF+1]
+	SETZM	FNTBUF
+	BLT	A,FNTBUF+FNTBFL-1
+	SKIPL	TABFNT
+GKSTE1:	CAMN	K,TABFNT
+	PUSHJ	P,GKSTAB
+	JRST	RECALM
+
+KSTYI1:	MOVE	D,[-FNTBFL,,FNTBUF]
+	.IOT	FNTC,D		;refill disk buffer
+	SKIPGE	D
+	HRRZM	D,FEOF		;eof in this buffer load
+	MOVEI	D,FNTBUF
+KSTYI:	CAMN	D,FEOF
+	POPJ	P,
+	CAIL	D,FNTBUF+FNTBFL
+	JRST	KSTYI1		;at end of buffer
+	MOVE	A,(D)
+	AOJA	D,POPJ1
+
+OFNER:	PUSHJ	P,TTYOON
+	MOVEI	K,TFBLK
+	PUSHJ	P,FAILD		;Print loosing name and ERR device msg
+	JRST	POPTJ
+
+GKSTAB:	SKIPE	FFDEV(K)
+	SKIPE	TABSEF		;Take this font into account when setting tabstops
+	POPJ	P,		;font not defined or tabs frozen
+	SETZM	WIDTH
+	SETZM	TABW
+	HRLI	K,-CSETSZ
+GKSTA1:	MOVE	A,WIDTHS(K)
+	CAMG	A,WIDTH
+	JRST	GKSTA2
+	MOVEM	A,WIDTH
+	LSH	A,3
+	MOVEM	A,TABW
+GKSTA2:	AOBJN	K,GKSTA1
+	POPJ	P,
+
+ATABFN:	JUMPE	H,ATABFE	;.TABFNT
+	CAML	K,[-1]
+	CAILE	K,MAXFNT
+	JRST	ATABFE
+	IMULI	K,FNTBKL
+	MOVEM	K,TABFNT
+	SETZM	TABSEF
+	JUMPGE	K,GKSTE1	;Only one font
+	SETZB	K,H		;arg was negative, use all fonts
+ATABF1:	PUSHJ	P,GKSTAB
+	CAIL	H,MAXFNT*FNTBKL
+	JRST	RECALM
+	ADDI	H,FNTBKL
+	MOVE	K,H
+	JRST	ATABF1
+
+ATABFE:	PUSHJ	P,AERLIN
+	JRST	GFONER
+
+;GET FONT NAME IN TFBLK & TRY OPENING SKIP IF WINNER
+GFNAM:	SETZ	Z,
+GFNAM1:	PUSHJ	P,GSYLFS	;GET 6BIT SYLLABLE IN B, BREAK CHAR INDEX IN A
+	JRST	@GFNTAB(B)
+
+GFNTAB:	GFNAM2	;ILLEGAL CHAR
+	GFCL	;:
+	GFSC	;;
+	GFNAM2	;/
+	GFSP	;SP
+	GFNAM2	;_
+	GFCR	;CR
+
+GFSP:	PUSHJ	P,GFNM
+	JRST	GFNAM2		;LOST
+	JRST	GFNAM1
+
+GFNM:	JUMPE	H,POPJ1		;IGNORE LEADING SPACES
+	TLOE	Z,CMFN1F
+	JRST	GFNM1		;ALREADY READ ONE NAME
+	MOVEM	H,TFBLK+1	;MAKE IT 1ST FILE NAME
+	JRST	POPJ1
+
+GFNM1:	TLOE	Z,CMFN2F
+	POPJ	P,		;read 2 names already
+	MOVEM	H,TFBLK+2
+	JRST	POPJ1
+
+GFSC:	TLOE	Z,CMSNMF
+	JRST	GFNAM2		;ALREADY READ SYS NAME
+	MOVEM	H,TFBLK+3
+	JRST	GFNAM1
+
+GFCL:	TLOE	Z,CMDEVF
+	JRST	GFNAM2
+	MOVSS	H
+	CAIE	H,'DSK
+	 CAIN	H,(SIXBIT /AI/)
+	  JRST	GFCL1
+	CAIE	H,(SIXBIT /DM/)
+	 CAIN	H,(SIXBIT /MC/)
+	  JRST	GFCL1
+	CAIE	H,(SIXBIT /ML/)
+	 JRST	GFNAM2		;BAD DEVICE NAME
+GFCL1:	HRRM	H,TFBLK
+	JRST	GFNAM1
+
+GFCR:	PUSHJ	P,GFNM		;POSSIBLE FILE NAME
+	JRST	GFNAM2		;LOST
+	.SUSET	[.SSNAME,,TFBLK+3]
+	.OPEN	FNTC,TFBLK
+	JRST	.+2
+	JRST	POPJ1
+	PUSHJ	P,OFNER
+	BARF Can't read font
+	POPJ	P,
+
+GFNAM2:	BARF Illegal font name
+	POPJ	P,
+
+ASPW:	JUMPE	H,ASPWR		;.SPW
+	JUMPLE	K,ASPWR
+	SETOM	TABSEF		;freeze width
+	JRST	AHVWW
+
+AHVW:	SKIPE	H		;.HVW
+	MOVEM	K,HEIGHT
+	PUSHJ	P,GNUMAR
+	SKIPE	H
+	MOVEM	K,VSP
+	PUSHJ	P,GNUMAR
+	JUMPE	H,RECALM	;No more args
+AHVWW:	MOVEM	K,WIDTH
+	LSH	K,3
+	MOVEM	K,TABW
+	JRST	RECALM		;Recalculate, but keep constant margin
+
+AVSP:	PUSHJ	P,GNUMAR	;.VSP
+	JUMPE	H,POPJP		;no arg
+	MOVEM	K,VSP
+	JRST	RECAL
+
+;set various page parameters in 1/100s inch
+APWINC:	MOVEM	K,PWINCH	;.PWINCH
+	JRST	RECAL
+
+ATWINC:	MOVEM	K,TWINCH	;.TWINCH
+	JRST	RECAL
+
+APLINC:	MOVEM	K,PLINCH	;.PLINCH
+	JRST	RECAL
+
+ATLINC:	MOVEM	K,TLINCH	;.TLINCH
+	JRST	RECAL
+
+;get size in 1/1000 inch
+ASINCH:	SKIPE	H		;.SINCH
+	MOVEM	K,PWINCH
+	PUSHJ	P,GFNUM
+	SKIPE	H
+	MOVEM	K,TWINCH
+	PUSHJ	P,GFNUM
+	SKIPE	H
+	MOVEM	K,PLINCH
+	PUSHJ	P,GFNUM
+	SKIPE	H
+	MOVEM	K,TLINCH
+	PUSHJ	P,GFNUM
+	JUMPE	H,RECAL
+	MOVEM	K,LMINCH
+
+;FALLS THROUGH
+
+;FALLS IN
+;RECALCULATE SIDM TO KEEP LEFT MARG CONSTANT
+RECALM:	MOVE	K,PWINCH
+	CAMGE	K,TWINCH
+	PUSHJ	P,RECWER
+	SUB	K,TWINCH
+	MOVE	A,LMINCH
+	IMULI	A,100.
+	IDIV	A,K
+	ASH	K,-1
+	CAML	B,K
+	AOJ	A,
+	MOVEM	A,PRSNT
+	MOVE	K,PLINCH
+	CAMGE	K,TLINCH
+	PUSHJ	P,RECLER
+
+;RECALCULATE PAGE & TEXT SIZE IN CHARS AND LINES,
+;BASED ON THOSE SIZES IN INCHES, VSP, AND FONT SPECS
+RECAL:	MOVE	K,PWINCH	;PAGE WIDTH
+	PUSHJ	P,CVWITC	;CONVERT TO # OF CHARS
+	PUSHJ	P,APW1
+	MOVE	K,TWINCH	;TEXT WIDTH
+	PUSHJ	P,CVWITC
+	PUSHJ	P,ATW1
+	MOVE	K,PLINCH	;PAPER LENGTH
+	PUSHJ	P,CVLITC
+	PUSHJ	P,APL1
+	MOVE	K,TLINCH	;TEXT LENGTH
+	PUSHJ	P,CVLITC
+	JRST	ATL1
+
+RECWER:	MOVEM	K,TWINCH
+	BARF TW>PW
+	POPJ	P,
+
+RECLER:	MOVEM	K,TLINCH
+	BARF TL>PL
+	POPJ	P,
+
+CVLITC:	MOVE	A,HEIGHT
+	ADD	A,VSP
+	IMUL	K,XVRES
+	JRST	CVITCH
+CVWITC:	MOVE	A,WIDTH
+	IMUL	K,XHRES
+;CONVERT # IN 1/1000 INCHES TO CHARS OR LINES
+CVITCH:	IDIVI	K,1000.
+	CAIL	L,500.
+	AOJ	K,
+	IDIV	K,A
+	ASH	A,-1
+	CAML	L,A
+	AOJ	K,
+ASPWR:	POPJ	P,
+
+;XGP RESOLUTION IN DOTS PER INCH
+XHRES:	HRES	;HORIZONTAL
+XVRES:	VRES	;VERTICAL
+
+;here when ready to output first text
+TXSTRT:	MOVEI	A,-1		;large number
+	MOVEM	A,PNST		;to avoid coming here again
+	SKIPE	CONTEN
+	JRST	CSTART
+	SETZM	OUTFLS		;switch output on now
+XGSPG:	SKIPE	XGPMOD		;output page of xgp specs (called if pgout was neg)
+	SKIPE	XSPGF
+	JRST	NOISTZ
+	PUSH	P,TYRFL
+	MOVEI	A,BUFOUT
+	MOVEM	A,TYRFL		;so that margin won't be inserted
+	MOVEI	H,[ASCIZ /;SIZE /]
+	PUSHJ	P,OPSTH
+	MOVE	K,PLINCH
+	PUSHJ	P,OPDECK	;print "decimal" # in k
+	PUSHJ	P,OPCRLF
+	MOVEI	H,[ASCIZ /;VSP /]
+	MOVE	K,VSP
+	PUSHJ	P,PSTN
+	MOVE	K,TOPMAR	;TOP MARGIN TO SEND TO XGP
+	MOVEI	H,[ASCIZ /;TOPMAR /]
+	PUSHJ	P,PSTN
+	SETZ	K,		;REDUNDANT ? (since SIZE specified)
+	MOVEI	H,[ASCIZ /;BOTMAR /]
+	PUSHJ	P,PSTN
+	MOVE	K,LFTMAR	;LEFT MARGIN TO SEND TO XGP
+	MOVEI	H,[ASCIZ /;LFTMAR /]
+	PUSHJ	P,PSTN
+	MOVEI	H,[ASCIZ /;SKIP 1/]
+	PUSHJ	P,OPSTHC
+	SKIPN	SQUISF
+	JRST	.+3
+	MOVEI	H,[ASCIZ /;SQUISH/]
+	PUSHJ	P,OPSTHC
+	MOVEI	H,[ASCIZ /;KSET /]
+	PUSHJ	P,OPSTH
+	SKIPA	K,[FNTBLK]
+XGSPG1:	PUSHJ	P,OPCOMA
+	SKIPN	(K)
+	JRST	XGSPG2		;this font not specified
+	PUSHJ	P,OPFNMA
+XGSPG2:	ADDI	K,FNTBKL
+	CAIG	K,FNTBLK+<FNTBKL*MAXFNT>
+	JRST	XGSPG1
+	PUSHJ	P,OPCRLF	;The following appears in first page of file,
+				;is ignored by XGP spooler, and is not printed.
+	MOVEI	K,ITSNAM
+	PUSHJ	P,OPFNM		;Print ITSNAM:UNAME;FNAM1 FNAM2
+	PUSHJ	P,OPCRLF
+	PUSHJ	P,OPDATE	;Print date
+	PUSHJ	P,OPCRLF
+	PUSHJ	P,OPINAM	;Print in-file name
+	PUSHJ	P,OPCRLF
+	POP	P,TYRFL
+	JRST	OPFF
+
+OPDATE:	MOVE	H,[440700,,DATE]
+DATELP:	ILDB	A,H
+	CAIGE	A,40
+	POPJ	P,
+	PUSHJ	P,@TYRFL
+	JRST	DATELP
+
+CSTART:	PUSH	P,TYRFL
+	MOVE	A,[@CHARO]
+	MOVEM	A,TYRFL
+	MOVEI	H,[ASCIZ /.C TJ6-generated Contents/]
+	PUSHJ	P,OPSTHC
+	JRST	POPTJ
+;Here to use XGP -- font switching, special underlining, etc.
+AXGP:	HRRZ	A,ONAM		;.XGP and /X
+	CAIE	A,'LPT		;ignore if output to LPT or TPL
+	CAIN	A,'TPL
+	POPJ	P,
+	MOVE	A,[XPAGE,,PWINCH]
+	BLT	A,VSP		;Initialize page size
+	MOVEI	A,25.
+	MOVEM	A,HEIGHT
+	MOVEI	A,16.
+	MOVEM	A,WIDTH
+	MOVEI	A,16.*10
+	MOVEM	A,TABW
+	SETOM	XGPMOD		;Turn on XGP mode
+	MOVE	A,[CAMGE W,XLNL]
+	MOVEM	A,OPTST
+	HRLI	A,(CAMLE W,)	;CAMLE W,XLNL
+	MOVEM	A,OPTST1
+	SKIPE	OFN2F
+	JRST	RECAL		;user specified output FNM2
+	MOVSI	A,'XGP
+	MOVEM	A,ONAM+2
+	MOVEM	A,RNBLK+4
+	JRST	RECAL
+
+ASQUIS:	SETOM	SQUISF		;.SQUISH
+	POPJ	P,
+
+ANOSPE:	SETOM	XSPGF		;.NOSPEC no XGP spec page
+	POPJ	P,
+
+ALTRSP:	MOVEM	K,LTRSPF	;.LTRSPC <arg>	0 arg suppresses letterspacing
+	POPJ	P,
+
+XPAGE:	85.*100.		;PW
+	11.*1000.		;PL
+	6*1000.			;TW
+	8*1000.			;TL
+	125.*10.		;LM
+	6			;V
+
+LATEST:	JUMPN	C,.+3		;See if text has been input
+	 SKIPN	 RDTXTF
+	 POPJ	 P,
+	PUSHJ	P,AERLIN	;Print commmand name
+	BARF  command must appear before text
+	JRST	POPJ1		;Skip command execution
+
+ADEBUG:	SKIPN	PURED		;.DEBUG
+	.VALUE			;Break if impure
+	POPJ	P,
+
+OPNRD:	MOVEI	A,2		;Open input file
+	HRLM	A,DNAM
+	.SUSET	[.SSNAME,,ISYSNM]
+	.OPEN	UTYIC,DNAM
+	JRST	IPFAIL
+	MOVE	A,[UTYIC,,DNAM]
+	.RCHST	A,		;Get real file name
+	AOS	(P)		;skip return
+RESETT:	MOVEI	A,1
+	MOVEM	A,INPAGN
+	SETZM	INLINE
+	MOVE	A,[440700,,RCHBFE]
+	MOVEM	A,INPTR		;Force reload
+	POPJ	P,
+
+IPFAIL:	PRINT Input 
+	MOVEI	K,DNAM
+FAILD:	PUSHJ	P,OPFNM
+	MOVEI	A,40
+	PUSHJ	P,@TYRFL
+	.OPEN	ERRC,[SIXBIT /   ERR     !     /]
+	.VALUE
+FAILLP:	.IOT	ERRC,A
+	CAIN	A,14		;Control L
+	POPJ	P,
+	PUSHJ	P,@TYRFL	;Output reason
+	JRST	FAILLP
+
+CMD:	SETZ	Z,		;clear flags
+FNR:	PUSHJ	P,GSYL		;return syllable in h, delimiter in a, index in b
+CMDIGN:	TLNN	B,CEOCF
+	TLNN	Z,CMSYLF	;take care of left arg as followed by space
+	JRST	@CMDTB(B)	; : ; or blank syllable
+	TLOE	Z,CMFN1F
+	JRST	[TLON Z,CMFN2F	;already read 1st name, must be 2nd
+		MOVEM H,FNAM2
+		JRST @CMDTB(B)]
+	MOVEM	H,FNAM1
+	JRST	@CMDTB(B)
+
+CMDTB:	CMDBCH	;Illeg char
+	CMDCOL	;:
+	CMDSEM	;;
+	CMSWIT	;/
+	FNR	; space or tab
+	CMDLEF	;_
+	CMEND	;CR
+
+CMSWIT:	PUSHJ	P,@CHARI	;get one char
+	CAILE	A,"_
+	SUBI	A,40
+	CAIN	A,"C		;possibly set switches
+	SETOM	SLASHC
+	CAIN	A,"X
+	SETOM	SLASHX
+	CAIN	A,"T
+	SKIPE	COMLF
+	JRST	FNR
+	SETOM	SLASHT		;only set for initial command line
+	JRST	FNR
+
+CMEND:	TLNN	Z,CMFN1F
+	JRST	CMDILF		;no source file
+	MOVEI	H,'DSK		;default device specs
+	TLNN	Z,CMDEVF
+	HRRM	H,DNAM
+	TRNN	Z,CMDEVF
+	HRRM	H,ONAM
+	MOVE	H,RSYSNM	;default sysnam
+	TLNN	Z,CMSNMF
+	MOVEM	H,ISYSNM
+	TRNN	Z,CMSNMF
+	MOVEM	H,OSYSNM
+	MOVSI	H,(SIXBIT />/)	;default input fn2
+	TLNN	Z,CMFN2F
+	MOVEM	H,FNAM2
+	MOVE	H,[SIXBIT /MEMO/]	;default output fn2
+	TRNN	Z,CMFN2F
+	MOVEM	H,ONAM+2
+	MOVE	H,FNAM1		;default fn1 of output
+	TRNN	Z,CMFN1F
+	MOVEM	H,ONAM+1
+	POPJ	P,
+
+CMDCOL:	TLNN	Z,CMSYLF	;here on :
+	JRST	CMDILF		;nothing came before :
+	HLRZM	H,DNAM
+	TLO	Z,CMDEVF
+	JRST	FNR
+
+CMDSEM:	TLNN	Z,CMSYLF	;here on ;
+	JRST	CMDILF
+	MOVEM	H,ISYSNM
+	TLO	Z,CMSNMF
+	JRST	FNR
+
+CMDLEF:	TRNE	Z,-1		;here on _
+	JRST	CMDILF		;too many left arrows
+	MOVE	A,[DNAM,,ONAM]
+	BLT	A,OSYSNM
+	HLRZS	Z
+	JRST	FNR
+
+CMDBCH:	PRINT Non 6-bit character in file name
+	JRST	CMD
+
+CMDILF:	PRINT Bad file name format
+	JRST	CMD
+;INITIAL CHARACTER BIT TABLE
+ICDTAB:	CNNRF+CEOFF,,	;^@			Control characters
+	CITCF,,		;^A
+	0
+	CEOFF,,CEOFX	;^C
+	CITCF,,	;^D
+	0
+	CITCF,,		;^F
+	CITCF,,		;^G
+	CNNRF,,	;^H BACKSPACE
+ CNNRF+CFSPF,,CSPCX	;^I TAB
+ CNNRF+CEOLF,,CLNFX	;^J LINEFEED
+	CITCF,,		;^K
+ CEOFF+CNNRF,,CFFDX	;^L FORMFEED
+ CNNRF+CEOLF,,CCRTX	;^M CARRIAGE RETURN
+BLOCK ^Q-^N
+	CQUOF,,CQUOX	;^Q
+BLOCK ^W-^R
+	CITCF,,	;^W
+	CITCF,,	;^X
+	CITCF,,	;^Y
+BLOCK 40-^Z
+CFSPF+CSMSF,,CSPCX	;SP			;Printing chars
+	CEOSF,,C6BTX	;!
+	CLOSF,,C6BTX	;"
+	REPEAT 4,C6BTX	;# $ % &
+	CLOSF,,C6BTX	;'
+	0,,C6BTX	;(
+	CLOSF,,C6BTX	;)
+	0,,C6BTX	;*
+	0,,C6BTX	;+
+	0,,C6BTX	;,
+	CHYPF,,CMINX	;-
+	CEOSF,,C6BTX	;.
+	0,,CSLSX	;/
+REPEAT 10.,CDIGF,,CDIGX	;0-9
+	CEOCF,,CCOLX	;:
+	CEOCF,,CSEMX	;;
+	0,,C6BTX	;<
+	0,,C6BTX	;=
+	0,,C6BTX	;>
+	CEOSF,,C6BTX	;?
+	0,,C6BTX	;@			;UPPER CASE
+REPEAT 26.,CLETF,,CLETX
+	0,,C6BTX	;[
+	0,,C6BTX	;\
+	CLOSF,,C6BTX	;]
+	0,,C6BTX	;^
+	0,,CBKAX	;_
+	0		;`			;lower case
+REPEAT 26.,CLETF,,CLLTX
+LOC ICDTAB+177
+	CNNRF,,CRBOX	;^? (RBO)
+
+;really the end of all files
+REND:	PUSHJ	P,NPAGER	;finish last page
+ENDAR:	MOVE	P,PDL
+	SKIPN	BLOCKM
+	JRST	CLOFI2		;Unit mode
+	MOVE	A,OUTCNT	;# of bytes left
+	IDIVI	A,5
+	JUMPE	B,CLOFI1	;No free bytes in current word
+	SKIPA	A,[^C]		;Fill wd with ^C, nulls
+	SETZ	A,
+	PUSHJ	P,BUFOUT
+	SOJG	B,.-2
+CLOFI1:	HRLZ	A,OUTPTR
+	MOVN	A,A
+	ADD	A,[OUTBUF-1,,OUTBUF]
+	.IOT	UTYOC,A
+CLOFI2:	.FDELE	RNBLK		;rename output file from OUTPUT to MEMO or whatever
+	.VALUE
+	.CLOSE	UTYOC,
+	.LOGOUT			;Flush if top level
+	PUSHJ	P,TTYOON
+	MOVE	A,NPAGES
+	PUSHJ	P,DPT
+	PRINT  pages
+	SKIPN	PURED
+	.VALUE
+	.BREAK	16,160000	;have ddt kill job
+
+TTYIB:	POP	P,TYRFL
+TTYI:	SOSGE	TCNT		;read chars from tty
+	JRST	TFILLB		;first refill TBUF
+	ILDB	A,TPNTR		;read from tbuf
+	MOVE	B,ICDTAB(A)
+	POPJ	P,
+
+TFILLB:	PUSHJ	P,TTYOON	;turn on tty output
+TFILL:	SETZM	TCNT		;read chars from tty into TBUF til eol
+	MOVE	L,[10700,,TBUF-1]
+	MOVEM	L,TPNTR
+	PUSHJ	P,OPCRLF	;prompt user
+	MOVE	A,PROMPT
+TFILL1:	PUSHJ	P,@TYRFL
+TFILL2:	PUSHJ	P,TYI		;get one char from tty
+	CAIN	A,^G
+	JRST	TFILL
+	CAIN	A,177
+	JRST	TFRBO
+TFILL3:	IDPB	A,L		;put into buffer
+	AOS	TCNT
+	CAIN	A,^J
+	JRST	[ PUSHJ P,OPCRLF ? JRST TTYIB ]	;now go back and feed chars to main prog
+	CAIE	A,^M
+	JRST	TFILL2
+	MOVEI	A,^J
+	JRST	TFILL3		;put lf into buffer
+
+TFRBO:	SKIPG	TCNT		;here on rubout
+	JRST	TFRBO1		;buffer empty
+	LDB	A,L
+	PUSHJ	P,DECBP		;back up pntr
+	SOS	TCNT
+	SKIPN	TCTYPE
+	JRST	TFILL1		;printing console, echo rubbed out char
+	MOVEI	A,^P		;display, back up and rub out
+	PUSHJ	P,@TYRFL
+	MOVEI	A,"X
+	JRST	TFILL1
+
+TFRBO1:	SKIPE	TCTYPE		;buffer empty
+	JRST	TFILL2		;display tty, don't do anything
+	JRST	TFILL		;printing tty, reprompt user
+
+TTYION:	SETZM	TCNT		;turn on tty input
+	MOVEI	A,TTYI
+	JRST	TYION
+
+TTYOON:	MOVEI	A,TYO		;switch on tty output
+	EXCH	A,TYRFL
+	EXCH	A,(P)
+	JRST	(A)
+
+TYI:	.IOT 	TYIC,A
+	POPJ	P,
+
+TYO:	.IOT	TYOC,A
+	POPJ	P,
+
+CONSTA
+FPUR==<PURE+1777>_-10.		;# of first pure page
+
+ERBRK:	0			;-1 .value on all errors
+PURED:	0			;-1 and pure when purified
+
+CORE==.
+CORSIZ==<CORE+1777>_-10.	;we will core down to here
+
+BEGGAR:	MOVE	A,[ICDTAB,,CDTAB]
+	BLT	A,CDTAB+CSETSZ-1
+	PUSHJ	P,FTYION
+	SKIPN	RCHBUF		;skip if jcl
+BEG2:	PUSHJ	P,TTYION	;turn on tty input
+	SETZB	Z,SLASHC
+	SETZM	SLASHT
+	SETZM	SLASHX
+	SETZM	OFN2F
+	PUSHJ	P,FNR		;Get file specs
+	TRNE	Z,CMFN2F
+	SETOM	OFN2F		;user gave output FNM2
+	MOVE	A,CHARI1
+	PUSHJ	P,FINLIN	;read till lf
+	MOVEM	A,COMTYI
+	MOVE	A,ISYSNM
+	MOVEM	A,RSYSNM
+	SETZ	C,
+	SKIPE	SLASHC		;Fix up output device open block
+	PUSHJ	P,ACONT		;Table of contents
+	SKIPE	SLASHX		;See what output device is
+	JRST	BXGPO		;It's XGP
+	HRRZ	A,ONAM
+	MOVE	B,[-DKTBL,,DKTAB]
+	CAMN	A,(B)
+	JRST	BDSKO		;Some flavor of DISK
+	AOBJN	B,.-2
+	CAIE	A,'TPL
+	CAIN	A,'LPT
+	JRST	BLPTO
+	LSH	A,-12.		;1st letter of odev
+	CAIN	A,'T
+BTTYO:	SETZM	NWAITF		;tty or tnm
+	MOVEI	A,1		;ascii mode
+	MOVEI	B,UNITYO	;unit mode
+BOPN:	HRLM	A,ONAM		;.open mode
+	MOVEM	B,CHARO		;output instr
+	PUSHJ	P,OPNRD		;open input file
+	JRST	BEG2		;failed
+	PUSHJ	P,WINIT		;open output file
+	JRST	BEG2
+				;all .OPENs succeeded, start examining input
+BEG3:	SETOM	COMLF		;set command line flag
+	MOVEI	A,PPAX
+	MOVEM	A,TYRFL		;where to pushj to print char
+	MOVEI	A,">
+	MOVEM	A,PROMPT
+	PUSHJ	P,FTYION	;read from file
+	SKIPE	SLASHT
+	PUSHJ	P,TTYION	;read from tty
+	JRST	MNBEG		;Start analysing file
+
+WINIT:	.SUSET	[.SSNAME,,OSYSNM]
+	MOVE	A,[ONAM+1,,RNBLK+3]
+	BLT	A,RNBLK+4		;save file name
+	MOVE	A,[[SIXBIT /TJ6/
+			   'OUTPUT],,ONAM+1]
+	BLT	A,ONAM+2		;open TJ6 OUTPUT instead
+	.OPEN	UTYOC,ONAM
+	JRST	OPFAIL
+	JRST	POPJ1
+
+OPFAIL:	PRINT Output 
+	MOVEI	K,ONAM
+	JRST	FAILD
+
+BLPTO:	MOVEI	A,7			;blk image mode
+	JRST	BBLKO
+BXGPO:	PUSHJ	P,AXGP
+BDSKO:	SETOM	FFFF
+	MOVEI	A,3			;block ascii
+BBLKO:	SETOM	NWAITF			;don't wait
+	SETOM	BLOCKM
+	MOVEI	B,OBSIZ*5		;set up output buffer
+	MOVEM	B,OUTCNT
+	MOVE	B,[440700,,OUTBUF]
+	MOVEM	B,OUTPTR
+	MOVEI	B,BUFOUT
+	JRST	BOPN
+
+DKTAB:	'DSK				;these devices open in block ascii mode
+	(SIXBIT /AI/)
+	(SIXBIT /ML/)
+	(SIXBIT /DM/)
+	'NUL
+DKTBL==.-DKTAB
+
+BEGJCL:	MOVE	A,[10700,,RCHBUF-1]
+	ILDB	B,A		;find end of jcl
+	CAIE	B,15
+	JRST	.-2
+	MOVEI	B,^J
+	IDPB	B,A
+	SETZ	B,
+	IDPB	B,A		;write null byte
+	JRST	BEG1
+
+BEG:	SETOM	RAN		;indicate program has run
+	.OPEN	TYOC,[4001,,'TTY]	;Allow ^P codes
+	.VALUE
+	.OPEN	TYIC,[10,,'TTY]
+	.VALUE
+	.SUSET [.SMASK,,[1]]	;type in bit on
+	.SUSET [.SPICL,,[-1]]	;enable all
+	MOVE P,PDL
+	.CALL [SETZ
+		'SSTATU
+		REPEAT 5 2000,,
+		SETZM A]	;Read name of ITS
+	.VALUE
+	HLRZM	A,ITSNAM
+	.SUSET [.RUNAME,,UNAME]	;Uname
+	.SUSET [.RSNAME,,RSYSNM]	;get sname
+	.BREAK	12,[5,,RCHBUF]	;try reading jcl
+BEGDAT:	.RDATE	B,
+	LDB	A,[140600,,B]	;month
+	SUBI	A,'0		;low digit-1
+	TLNE	B,1		;high digit?
+	ADDI	A,10.
+	MOVE	H,MONTHS-1(A)	;byte pntr to asciz month
+	MOVE	K,[440700,,DATE]
+	PUSHJ	P,ASHTK		;move month to date buffer
+	LDB	A,[60600,,B]	;high digit of day
+	CAIE	A,'0		;skip if 0
+	PUSHJ	P,BEG6D		;put 6bit in a to date buffer
+	LDB	A,[600,,B]
+	PUSHJ	P,BEG6D
+	MOVE	H,[440700,,[ASCIZ /, 19/]]
+	PUSHJ	P,ASHTK
+	LDB	A,[360600,,B]	;1st year digit
+	PUSHJ	P,BEG6D
+	LDB	A,[300600,,B]
+	PUSHJ	P,BEG6D
+	SKIPE	RCHBUF
+	JRST	BEGJCL		;there is a jcl
+	PUSHJ	P,PVERSE	;print NNTJ6 and version #
+BEG1:	.CALL	[SETZ		;get tctyp
+		'CNSGET
+		1000,,TYIC
+		2000,,0
+		2000,,0
+		402000,,TCTYPE]
+	.VALUE
+	JRST	BEGGAR
+
+	IDPB	A,K
+ASHTK:	ILDB	A,H		;move asciz in h to asci in k
+	JUMPN	A,.-2
+	POPJ	P,
+
+BEG6D:	ADDI	A,40		;change a to asci
+	IDPB	A,K
+	POPJ	P,
+
+MONTHS:
+	440700,,[ASCIZ /January /]
+	440700,,[ASCIZ /February /]
+	440700,,[ASCIZ /March /]
+	440700,,[ASCIZ /April /]
+	440700,,[ASCIZ /May /]
+	440700,,[ASCIZ /June /]
+	440700,,[ASCIZ /July /]
+	440700,,[ASCIZ /August /]
+	440700,,[ASCIZ /September /]
+	440700,,[ASCIZ /October /]
+	440700,,[ASCIZ /November /]
+	440700,,[ASCIZ /December /]
+
+PURIFY:	SKIPN	[VBLKL]
+	SKIPE	PURED
+	.VALUE			;can't or already purify(ied)
+	SKIPE	RAN
+	.VALUE			;program has been run
+	MOVEI	A,FPUR+FPUR_9+400000
+	SETOM	PURED
+PURIF1:	.CBLK	A,
+	.VALUE
+	ADDI	A,1001
+	CAIGE	A,HICORE+HICORE_9+400000
+	JRST	PURIF1
+	.VALUE	[ASCIZ /:PURIFIED
+:PDUMP SYS;TS NTJ6/]
+	JRST	BEG
+
+EPURE==.			;end of purity
+	VARIABLES		;there should not be any
+	VBLKL==.-EPURE
+IFN VBLKL,[PRINTC /VARIABLES=IMPURITY
+/]
+CONSTA
+HILOC==.
+HICORE==<HILOC+1777>_-10.
+END BEG
+
\ No newline at end of file