Trailing-Edge
-
PDP-10 Archives
-
BB-4172G-BM
-
4-sources/runoff.mac
There are 18 other files named runoff.mac in the archive. Click here to see a list.
;<3-UTILITIES>RUNOFF.MAC.3, 8-Nov-77 10:50:55, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-UTILITIES>RUNOFF.MAC.2, 26-Oct-77 11:19:06, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<2-UTILITIES>RUNOFF.MAC.3, 8-Apr-77 11:51:42, EDIT BY HURLEY
;<2-UTILITIES>RUNOFF.MAC.2, 8-Apr-77 11:50:11, EDIT BY HURLEY
;MAKE RUNOFF ASSEMBLE WITH RELEASE 2 MACREL AND MACRO 52
;<1B-UTILITIES>RUNOFF.MAC.4, 23-Jun-76 16:39:21, EDIT BY HURLEY
;<1B-UTILITIES>RUNOFF.MAC.3, 23-Jun-76 15:49:47, EDIT BY HURLEY
;<1B-UTILITIES>RUNOFF.MAC.2, 23-Jun-76 15:40:25, EDIT BY HURLEY
TITLE RUNOFF - PROGRAM TO FORMAT DOCUMENTATION - %11(247)
SUBTTL R CLEMENTS/RCC/CHP/PFC/DAL 16-DEC-75
RNFWHO==0 ;DEC DEVELOPMENT
RNFVER==11 ;MAJOR VERSION
RNFMIN==0 ;MINOR VERSION
RNFEDT==251 ;EDIT NUMBER
;+
;.AUTOPARAGRAPH.FLAG INDEX.FLAG CAPITAL.LOWER CASE
;.TITLE ^PROGRAM ^LOGIC ^MANUAL FOR ^^RUNOFF\\
;.FIGURE 10.CENTER;^^RUNOFF\\
;.SKIP 1.CENTER;^PROGRAM ^LOGIC ^MANUAL
;.SKIP 1.CENTER;^VERSION 10
;.SKIP -20.CENTER;<ABSTRACT
;.SKIP 1
;<RUNOFF IS A PROGRAM WHICH FORMATS A FILE OF DOCUMENTATION.
;^THE FILE MUST BE A SPECIAL FORMAT CONSISTING OF FREE FORMAT
;TEXT MIXED WITH SPECIAL CONTROL LINES, WHICH START WITH PERIOD.
;.PAGE;^^
;***COPYRIGHT 1970, 1971, 1972, 1973, 1974, 1975, 1976 DIGITAL EQUIPMENT CORP., MAYNARD,MASS.***
;-\\
; TABLE OF CONTENTS FOR RUNOFF
;
;
; SECTION PAGE
; 1. REVISION HISTORY...................................... 6
; 2. DEFINITIONS........................................... 7
; 3. IMPURE STORAGE........................................ 12
; 4. INITIALIZATION........................................ 13
; 5. INPUT SECTION......................................... 27
; 6. DOT COMMAND SCANNER................................... 33
; 7. DOT COMMANDS.......................................... 49
; 8. CHAPTER AND SECTION OPERATIONS........................ 67
; 9. VARIABLE AND IF OPERATIONS............................ 69
; 10. INDEX OPERATIONS...................................... 72
; 11. FOOTNOTE OPERATIONS................................... 78
; 12. OUTPUT SECTION........................................ 80
; 13. TYPESET TRANSLATION LOGIC............................. 96
; 14. HANDY-DANDY SUBROUTINES............................... 99
; 15. INPUT CHARACTER PROCESSORS............................ 115
; 16. ERROR MESSAGE HANDLING................................ 121
;+.LEFT MARGIN 5.RIGHT MARGIN 55
;.SKIP 3
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;.LEFT MARGIN 0.RIGHT MARGIN 60
;.PAGE.SUBTITLE ^TABLE OF ^CONTENTS
;.CENTER;^TABLE OF ^CONTENTS
;.NOFILL.NOAUTOP.LM10.TAB STOPS 15,18.SKIP 2
;1. ^GENERAL ^INFORMATION
;2. ^DEFAULT ^PARAMETERS
;3. ^REVISION ^HISTORY
;4. ^DEFINITIONS
; ^A^CS
; ^FLAGS
; ^CHARACTERS
; ^MACROS
;5. ^IMPURE ^STORAGE
;6. ^TERMINAL ^COMMAND ^SCANNING
;7. ^TEXT ^INPUT ^LOGIC
;8. ^DOT ^COMMAND ^SCANNER
;9. ^DOT ^COMMAND ^PROCESSORS
;10. ^CHAPTER AND ^SECTION ^OPERATIONS
;11. ^VARIABLE AND ^IF ^OPERATIONS
;12. ^INDEXING
;13. ^FOOTNOTES
;14. ^OUTPUT PROCESSING
;15. ^TYPESET ^OUTPUT ^LOGIC
;16. ^HANDY ^SUBROUTINES
;17. ^INPUT ^CHARACTER ^PROCESSING
;18. ^ERROR ^MESSAGE ^HANDLING
;.FILL.AUTOP.LM0.TS5,8
;.CHAPTER GENERAL INFORMATION
;-
SYN IFE,IF
IF TOPS-10,<
SEARCH JOBDAT,C,SCNMAC
%%JOBD==%%JOBD
%%C==%%C
%%SCNM==%%SCNM
> ;END TOPS-10
IF TOPS-20,<
SEARCH SCNM20,MACTEN,MACSYM,MONSYM
.JBHRL==115 ;SIZE OF HISEG
.JBFF==121 ;FIRST FREE
.JBVER==137 ;WHERE TO PUT VERSION #
> ;END TOPS-20
.REQUE SYS:SCAN11
.REQUE SYS:WILD11
.REQUE SYS:HELPER
%%%SCN==:11
%%%WLD==:11
SALL
;+
;^ASSEMBLY INSTRUCTIONS:^^
;
; .LOAD OPSYS+RUNOFF
; W\\HERE ^^OPSYS.MAC\\ CONTAINS EITHER:^^
;.B; ^^TOPS==10 ;FOR TOPS-10
;.C;-OR-
; ^^TOPS==20 ;FOR TOPS-20
;.B 2;
;
;- \\ ^THEN <SSAVE THE PROGRAM AND PLACE IT ON <SYS:.
;THIS MACRO IS USED TO FORCE A PAGE OVERFLOW WITH COMMENT
;TO HAVE LISTINGS MATCH THE PROPOSED CODING STANDARD.
;
;IT IS INVOKED WHENEVER A PAGE OVERFLOW WOULD HAVE HAPPENED.
;
;
;ACCORDING TO THE PROPOSED STANDARD, ALL SOURCE FOR A ROUTINE
;MUST OCCUR ON ONE PAGE. HOWEVER, IT IS IMPORTANT FOR THE
;USER TO FIND "SENTENCE" BREAKS TO FORM THE OVERFLOW (EJECT)
;POINTS. WHENEVER OVERFLOW OCCURS, A COMMENT
;TO THAT EFFECT SHOULD APPEAR IN THE LISTING. ALL THIS IS
;ACCOMPLISHED BY THE USER INCLUDING THE MACRO "CONT." IN HIS
;SOURCE AT THE POINT OF THE OVERFLOW. NO BLANKS SHOULD PRECEED
;OR FOLLOW THE MACRO.
DEFINE CONT.<LALL
PAGE ;(CONTINUED ON NEXT PAGE)
SALL ;(CONTINUED FROM PREVIOUS PAGE)
>
TWOSEG
LOC .JBVER
VRSN. RNF
RELOC
;+
;.CHAPTER DEFAULT PARAMETERS
;
;^THE FOLLOWING PARAMETERS CAN PROBABLY BE REDEFINED:^^
;.TS20.LM20.P-20,0.SK.SELECT D
;D+
ND AD.CAS,CASEUPPER ;INITIAL CASE DEFAULT
ND AD.CON,0 ;/CONTROL DEFAULT
ND AD.UND,"_" ;/UNDERLINE CHARACTER DEFAULT
ND ADSUND,"-" ;UNDERLINE CHARACTER IF /UNDERLINE:SEPARATE
ND BARWID,3 ;WIDTH OF BAR AREA
ND CHAPTB,^D12 ;BLANK BEFORE CHAPTER (IF LENGTH IS 64)
ND CHAPTC,1 ;BLANK BEFORE CHAPTER TITLE
ND CHAPTD,3 ;BLANK AFTER CHAPTER TITLE
ND HEADLB,3 ;BLANK BEFORE .HL
ND HEADLC,1 ;BLANK AFTER .HL1-2
ND HEADLT,4 ;EXTRA TEST PAGE ON .HL
ND HRMRG,^D72 ;INITIAL RIGHT MARGIN FOR .HLP FILES
ND HWPLN,^D66 ;HARDWARE PAGE LENGTH
ND ILMRG,0 ;INITIAL LEFT MARGIN
ND ILPGNO,1 ;INITIAL PAGE NUMBER
ND INDEXD,CHAPTD ;SPACING AFTER INDEX HEADER
ND IPARIN,5 ;INITIAL PARAGRAPH INDENT
ND IPARTP,2 ;INITIAL PARAGRAPH .TEST PAGE
ND IPARVS,-1 ;INITIAL PARAGRAPH VERTICAL SPACING
ND L0LMAR,^D9 ;INITIAL LEFT MARGIN ON .LIST
ND LESPAC,2 ;HORIZ. SPACE AFTER "." IN LIST ELEMENT NUMBER
ND LFSPAC,1 ;LIST FINAL SPACE
ND LSLMAR,^D4 ;LEFT MARGIN FOR EMBEDDED .LIST
ND LPTLEN,^D60 ;SPOOLED HARDWARE PAGE LENGTH
ND NASPAC,1 ;SPACING AFTER "NOTE"
ND NFSPAC,2 ;SPACING AFTER NOTE (FINAL SPACE)
ND NHSPAC,2 ;SPACING BEFORE NOTE
ND NPMARG,^D15 ;NOTES PRIMARY MARGIN CHANGE
ND NSMARG,4 ;NOTES SECONDARY MARGIN CHANGE
ND NSPACG,1 ;NOTES SPACING
ND PD.TYP,TYPCAT ;/TYPESET DEFAULTS :CAT
ND RHDSPA,2 ;RUNNING HEAD (TITLE) SPACING AFTER
ND SINDIN,2 ;INDENT FOR SUB-INDEX
ND SPARIN,0 ;PARAGRAPH INDENT IF .SD COMMAND
ND TYPSWD,^D36 ;WIDTH OF TYPESETTER
CONT.
;D.SELECT _;
;+
; AD.BAR,"|" ;BAR CHARACTER
; PD.BAR,"\" ;BAR CHARACTER IF /BAR
; AD.DWN,0 ;VERTICAL SPACING BEFORE TITLE
; PD.DWN,5 ;VERTICAL SPACING BEFORE TITLE IF /DOWN
; AD.HDR,HEADMIXED ;INITIAL HEADER DEFAULT
; PD.HDR,HEADUPPER ;HEADER DEFAULT IF /HEADER
; AD.LPP,58 ;LINES PER PAGE
; PD.LPP,64 ;LINES PER PAGE IF /LINES
; AD.OVR,0 ;HORIZONTAL SPACING BEFORE LEFT BORDER
; PD.OVR,^D20 ;HORIZONTAL SPACING BEFORE LEFT BORDER IF /OVER
; AD.SPC,1 ;INITIAL SPACING
; PD.SPC,2 ;INITIAL SPACING IF /SPACING
; AD.UNL,UNDRLINE ;/UNDERLINE MODE DEFAULT
; PD.UNL,UNDRCHARACTER ;/UNDERLINE MODE DEFAULT IF /UNDERLINE
; AD.WID,^D60 ;INITIAL WIDTH
; PD.WID,^D70 ;INITIAL WIDTH IF /WIDTH
;-
DM BAR,177,"|","\" ;/BAR:CH
DM DWN,^D60,0,5 ;/DOWN:N
DM HDR,,HEADMIXED,HEADUPPER ;/HEADER:X
DM LPP,^D100000,^D58,^D64 ;/LINES:N
DM OVR,^D70,0,^D20 ;/OVER:N
DM SPC,5,1,2 ;/SPACING:N
DM UNL,77,UNDRLINE,UNDRCHARACTER ;/UNDERLINE: TYPE
DM WID,^D100000,^D60,^D70 ;/WIDTH:N
;+.LM0.P0,-1
;\\ ^THE FOLLOWING PARAMETERS CAN NOT BE CHANGED WITHOUT
;RISKING FURTHER DEBUGGING: ^^
;.LM20.P-20,0.SK.SELECT D
;D+
IF TOPS-10,<
ND LN$DRB,6 ;MAX DIRECTORY DEPTH (UFD+SFDS)
ND LN$ENT,11 ;LENGTH OF EXTENDED ENTER BLOCK
ND LN$LKP,7 ;LENGTH OF EXTENDED LOOKUP BLOCK
> ;END TOPS-10
IF TOPS-20,<
ND LN$DRB,0 ;NO SFD'S ON TOPS-20
ND LN$ENT,^D30 ;ENTER STRING
ND LN$LKP,^D30 ;LOOKUP STRING
>
ND LN$IDX,^D60 ;MAX/5 LENGTH OF NAME IN INDEX
ND LN$LIN,^D100 ;MAX/5 LINE LENGTH
ND LN$MJP,5 ;LENGTH OF NOTE/LIST PUSH DOWN LIST
ND LN$MJS,4 ;LENGTH OF ENTRY ON NOTE/LIST PUSH DOWN LIST
ND LN$PDL,200 ;PUSH DOWN LIST LENGTH
ND LN$RNG,^D20 ;NUMBER OF /IRANGE/ORANGE PAIRS
ND LN$SEC,6 ;MAX DEPTH OF SECTION LOGIC
ND LN$TAB,40 ;MAX NUMBER OF TAB STOPS
ND LN$TEC,^D20 ;MAX/5 CHARS IN END COMMANDS
ND LN$TTL,^D50 ;MAX/5 TITLE LENGTH
ND LN$UND,^D100 ;MAX NUMBER UNDERLINES IN A LINE
ND LN$VAR,^D20 ;MAX NUMBER OF VARIABLES
ND LN$IFS,^D32 ;MAX NUMBER OF NESTED .IF'S [244]
;D.SELECT _;
;&.FILL;\\
SUBTTL REVISION HISTORY
;+
;.CHAPTER REVISION HISTORY
;.SK2
;.LM5.P -5,0.TS 5.UC.AUTOTABLE.NOFLAGS
;#7a -- and previous versions are lost in the dark ages. Work
; started on #10 during fall, 1971. Work was resumed
; after edit 11.
;a. Change to use twoseg.
;b. ! and ? followed by space are treated like . followed
; by space.
;c. All commands may be abbreviated.
;d. Add new commands: CENTRE (= CENTER), I (=INDEX), P
; (=PARAGRAPH), X (=SUBINDEX), PAGE SIZE (=PAPER SIZE),
; UPPER CASE (=^^), LOWER CASE (=\\).
;e. Add SUBINDEX command. Same as INDEX except subindices
; indicated by >.
;f. Warn of indents to the left of 0.
;g. Add defensive code to footnote routine to recover
; instead of halt.
;h. .PAGE clears current line before changing page width and
; counts as a break.
;i. Ring bell in PAUSE mode between pages.
;j. Avoid blank pages.
;k. Handle multiple lines of INDEX.
;l. Defend against footnote within a footnote.
;m. Defend correctly against ! when not in footnote.
;n. Around footnotes, preserve (and clear) indentation and
; case lock, preserve (and set) JUSTIFY and FILL.
;o. INDICATE core usage within [].
;p. TYPE number of pages at end.
;q. Warn and disregard strange control characters in file.
;r. Suppress the leading and trailing form feed on output
; except in PAUSE mode.
;s. Clear out any final footnotes at EOF.
;t. "PAGE" in page header is now UPPER/LOWER case.
;(12) Convert to use C, SCNMAC, SCAN, and WILD. This
; includes full wild-card and path usage on both input
; and output.
;RUNOFF pushed through PGMFMT.
;Default spacing is single, default case is UPPER.
;Default output is LPT:same.<MAGIC>[-]
;Default input is DSK:.RNX[-] (file is previous or output
; file). where RNX=RNO+RND+RNP+RNC+<nul> in that order.
;Convert all messages to lower case. Improve several of them
; in the process.
;Use LF-VT-FF instead of CR as end of line.
;Detect comments after non-text commands; junk as error.
CONT.
;(13) Add /HEADER:X and .HEADER X (X=UPPER,LOWER,MIXED) to
; control case of "PAGE n" (default is MIXED).
;Detect illegal negative arguments in commands (NUMBER, LEFT
; MARGIN, TEST PAGE, SKIP, BLANK, TAB STOPS, CENTER,
; FOOTNOTE).
;Keep Center within PAGE SIZE.
;(10-6912) Fix multiple case indexing correctly.
;Include SUBPAGE in error messages.
;Correct SUBPAGE logic to allow .PAGE inside .SUBPAGE.
;Warn if too many SUBPAGES (gt 26).
;Include SUBPAGES in INDEX.
;(10-6710) Put out sets of pages in INDEX with hyphens.
;Add .LITERAL n and .END LITERAL commands.
;Make ! be comment character, and ; be multiple command
; separator (except for TITLE, SUBTITLE, and INDEX).
;Fix error messages to print actual commands
;Include input page and line in error messages.
;Initialize FOOTNOTE case to /CASE:X setting as modified by
; .UPPER CASE and .LOWER CASE.
;14 Implement .SCWLD for full output wildcarding.
;15 Implement > in SUBINDEX. also ;.
;16 Recognize multiple tab and space in AUTOPARAGRAPH.
;17 Fix bug which kept .X > from printing main entry.
;20 Handle RUNOFF and RUN xxx () commands.
;21 Add .AUTOPARAGRAPH and .NO AUTOPARAGRAPH.
;22 Add /NOAUTOPARAGRAPH/nopause/NOSIMULATE.
;23 Make .<CR> and .<SPACE> be break. In particular, note
; that . ;text is a new line.
;24 Add default extension .RNH to produce .HLP.
;25 Add .NOPAGING, reset by .PAGING. This is default if
; .RNH input.
;26 Add .COMMENT.
;27 Add optional second argument to .PARAGRAPH to set
; vertical paragraph spacing. -1 sets <SPAC+1>/2
;30 Add /SEQUENCE/NOSEQUENCE to list input file sequence
; numbers to left of output.
;31 Add .SUBTTL (identical to .SUBTITLE).
;32 Allow sequence .PAGE;.TITLE to work.
;33 Add .FIRSTTITLE to cause PAGE 1 to be titled.
;34 Add .SELECT, .NOSELECT, /SELECT/NOSELECT, and default
; selection on source files.
;35 Correct /PAUSE bug to pause on first page.
;36 Suppress informational typeouts if output to TTY:
;37 Change output device default to DSK:
;40 Add file name to page count message.
;41 Add .NO XXX for .NOXXX.
;42 Treat : and ; like ! ? and .
;43 Add .PERIOD .NOPERIOD to defeat the .?!:; special
; handling.
CONT.
;44 Change internal EOF code to -1.
;45 Have .CENTER suppress trailing unquoted spaces.
;46 On .CENTER, treat TAB as a space.
;47 If CCL mode, type "RUNOFF: " before file in page
; count.
;50 Correct core messages to round up.
;51 Convert to the error message standard.
;52 Allow multiple spaces and tabs between words in
; commands.
;53 Allow null numbers on .PARAGRAPH, .TAB STOPS.
;54 Fix .CENTER to work correctly at top of page.
;55 In .AUTOPARAGRAPH mode, a blank line causes a new
; paragraph.
;56 Use the current .SPACING in the INDEX.
;57 Preset .TAB STOPS 9,17,25,...
;60 Allow relative specifications on .CENTER, .NUMBER,
; .LEFT MARGIN, .RIGHT MARGIN, .PAGE SIZE.
;61 Add .LEFT and .RIGHT.
;62 Only consider .:;!? as needing double space if it
; comes after two consecutive alphabetics.
;63 Treat spaces before last tab on line as non-expanding
; (quoted).
;64 /SEPARATE line for underline; default /UND to -.
;65 Change command entry point names for consistency.
; Change names of LH(F) to L.XXXX.
;66 Add defensive code on all buffers with error E$$IBO.
;67 If source file, then default output to .PLM.
;70 Negative argument to BLANK/SKIP is from bottom of page.
;71 Place underlined items before identically spelled
; ununderlined ones.
;72 Add .FLAGS/.NOFLAGS commands.
;73 Default RIGHT MARGIN to 72 if .HLP.
;74 Default INDEX casing is UPPER for first character and
; LOWER for rest. This is altered by any case controls.
;75 Start FOOTNOTE in case lock of text at definition.
;76 Add .FIGURE DEFER n.
;77 Add _ control character, .CONTROL, /CONTROL.
;100 Add .FLAG CAPITALIZE <.
;101 Add .FLAG INDEX >.
;102 Add .NOHEADER.
;103 Add 1-2 letter abbreviations for each command.
;104 Add .LS, .NOTE, .END, .SD.
;105 Add optional third argument to .P for automatic test
; page.
;106 Notice <LF><FF> as not a blank line.
;107 Add /DOWN, /OVER.
;110 Don't justify an exactly full line with no spaces.
;111 Detect absence of command.
;112 Fix the bug in routine which causes spaces before tabs
; to be quoted.
CONT.
;113 Add CHAPTER and HEADER commands for automatic
; sectioning.
;114 Fix bugs in < and . logic within text.
;115 Allow "." (current form) as statement separator except
; in comments.
;116 Flag capital and index take up to the next space or
; linefeed.
;117 Add SPARIN and set it on .SD command.
;120 Fix .NOTE to agree with DEC standard.
;121 Fix many minor bugs in above edits.
;122 Centralize start of all error messages.
;123 Change to use C, SCNMAC as universal files.
;124 .CH update title, .HL1 update subtitle.
;125 If .RM is greater than page width, expand page width.
;126 Add .NST.
;127 Fix bugs in implicit skip logic which caused missing
; headings.
;130 Introduce internal mode of defaulting capitalization.
;131 Check indent against right margin.
;132 Add .AUTOTABLE.
;133 Include chapter numbers in page numbering.
;134 Add .DO INDEX and "INDEX-" in paging of chapter
; documents.
;135 Add .LIST ELEMENT.
;136 Make "n" optional in .LITERAL.
;137 Add long names for HL, SD, LS.
;140 Add /VARIANT, .VARIABLE, etc.
;141 Add options to .NUMBER.
;142 Add .APPENDIX.
;143 Add /DRAFT.
;144 Add /IRANGE, /ORANGE.
;145 Add /TYPESET.
;146 Clear indent on page/section/paragraph style commands.
;147 Detect illegal commands inside footnote.
;150 Add .NUMBER LEVEL and .NUMBER LIST.
;151 (10-13004) If ^\, etc., use last; make ^ followed by
; lower case force upper (just one character).
;152 Change /OVER to /RIGHT; consolidate /UNDERLINE
; switches.
;153 Cancel edit 62 as a bad idea.
;154 Add /LINES to set initial page length.
;155 Add .RNE makes .ERR, .RNS makes .STD.
;156 Have angle flags toggle settings.
;157 (QAR 2220) Allow /UNDERLINE:NONE and /UNDER:arg:arg and
; /NOUNDERLINE.
;160 Clean up /ORANGE.
;161 Decrease NIA errors. Issue as warnings.
;162 Add /TYPESET:CAT.
;163 Add .TYPESET.
;164 Fix literal tab bug and wild open bug.
CONT.
;165 (QAR 2632) Allow period in text type commands.
;166 Fix bug which lost line if footnote defined at end of
; page.
;167 (QAR 2453) Ignore autopar, autotab if no fill.
;170 (QAR 2537) Preserve AC B in routine FIN.
;171 (QAR 2473) Don't clear indent on test page.
;172 (QAR 2473) Allow .NUMBER PAGE 0.
;173 (QAR 2480) Add .END LIST.
;174 (QAR 2483) Underline quoted spaces when underlining.
;175 (QAR 2486) Speed up output by removing unneeded
; carriage returns.
;176 (QAR 2487) Discard extra space on line overflow when no
; fill.
;177 (QAR 2488) Improve justify with no fill.
;200 (QAR 2489) Move indent reset to handle CJL error
; better.
;201 (QAR 2491) More error tests: .I and .P to left of left
; edge, have .LM update .P if needed.
;202 (QAR 2493) Clear typein before waiting on /PAUSE.
;203 (QAR 2494) When output to TTY:/PAUSE, suppress echo.
;204 (QAR 2499) Return core after print index.
;205 (QAR 2633) Update lines this page more reliably.
;206 Support routine .OSDFS.
;207 Add extensions .RNB and .RNM; add more languages.
;210 Handle .END LITERAL if in lower case.
;211 (QAR 2635) Add BAR feature.
;212 Add .END FOOTNOTE.
;213 (QAR 2727) Fix relative .NUMBER.
;214 (QAR 2726) TSTPAG was off by 1.
;215 Remove bug of not double space after period at input
; eol.
;216 Remove bug in /SEQ if file not sequenced.
;217 Add command .NOSPACE.
;220 Remove bug in /VARIANT table lookup.
;221 Add /NUMBER/PAGING/WIDTH.
;222 (QAR 2784) Don't clear indent on .TP.
;223 (QAR 2785) Remove spurious JEC on .FLAG.
;224 (QAR 2786) Detect .ENDIF after blank line.
;225 Allow subindexes to match shorter form.
;226 (QAR 2845) Allow .PG.NM x to work.
;227 (QAR 2845) Add /CRETURN.
;230 (QAR 2845) Add .END SELECT.
;231 .NT at top of page lost page heading.
;232 Blank lines in .LT lost page heading.
;.B;.C;VERSION 10(232) RELEASED
;.B
;233 CONVERT TO RUN ON TOPS-20
;234 RUNOFF DOES NOT JUSTIFY CORRECTLY WHEN THE TITLE OF A HEADER
; (.HL3 OR GREATER) IS UNDERLINED. [SPR 10-17960]
;235 NOT ENOUGH SPACE ALLOCATED FOR /IRANGE AND /ORANGE. 3 WORDS
; ARE STORED BUT ONLY 2 ALLOCATED.
;236 IF A CENTERED LINE CONTAINS SPACES QUOTED WITH UNDERLINE (TO
; GET THE SPACES UNDERLINED ON THE PRINTOUT), THE LINE IS NOT
; CENTERED CORRECTLY. [SPR 10-17868]
;237 ALLOW RUNOFF TO HANDLE BACKSPACE IN THE SOURCE TEXT (TO ALLOW
; OVERSTRIKES). RUNOFF WILL NOW JUSTIFY LINES WITH BACKSPACES
; ASSUMING THAT THE BACKSPACE TAKES -1 PRINT POSITION. [SPR 10-17551]
;240 PUT HEADER ON CONTINUATION PAGE OF INDEX [SPR 10-16812]
;241 MAKE .DO INDEX WORK EVEN IF DOCUMENT HAS NO CHAPTERS. [SPRS
; 10-16842 AND 10-17089]
;242 HANDLE QUOTED CHARACTERS IN INDEXED ITEMS CORRECTLY. [SPRS
; 10-17188 AND 10-17522]
;243 CHANGE RUNOFF SO THAT TYPING JUST THE WORD "RUNOFF" ON SYSTEMS
; WITH A RUNOFF COMMAND PRINTS A * INSTEAD OF RNFNFS ERROR.
;244 NESTED .IF CONDITIONALS DO NOT WORK PROPERLY. [SPR 10-16797]
;245 /SELECT SWITCH FAILS [SPR 10-16820]
;246 ILL. MEM. REF. USING .NOHEADER/.HEADER [SPR 10-16454]
;247 CORRECT 244
SUBTTL DEFINITIONS
;.FLAGS.LM 0.NOAUTOT.UPPER CASE
;.CHAPTER DEFINITIONS
;.HL1 AC DEFINITIONS
;.NOFILL.TS16;.P0,-1
;-
;AC'S
;&.END SELECT
F=0 ;FLAGS
A=1 ;WORK
B=2
C=3
D=4
X=5
CH=6
C2=7 ;MUST STAY 7
S1=10
S2=11
N=12
N1=13
PA=15 ;POP ARGS
P=17 ;STACK
;&
;+.HL1 FLAGS
;.HL2 FLAGS IN <LH OF F
;.NOFILL.END SELECT
L.PJUS==(1B0) ;.JUSTIFY
L.JUST==(1B1) ;.JUSTIFY BUT NOT .NO FILL
L.TJUS==(1B2) ;JUSTIFY THIS LINE
L.FILL==(1B3) ;.FILL
L.NFSP==(1B4) ;NO FREE SPACE
L.FOOT==(1B5) ;ON IF PROCESSING FROM FOOTNOTE STRING
L.GCIN==(1B6) ;ON IF CHARS IN GCINP TO READ
L.ESOL==(1B7) ;EXTRA SPACES ON LEFT
L.INDX==(1B8) ;INDEX THIS WORD
L.CAPS==(1B9) ;CAPITALIZE THIS WORD
L.ULMS==(1B10) ;ON IF UNDERLINE SHIFT-LOCKED ON
L.UMOD==(1B11) ;ON IF UNDERLINE GETS DONE IN ONE PASS
L.USUP==(1B12) ;ON IF USER HAS SUPPRESSED UNDERLINING
L.UBSP==(1B13) ;ON IF UNDERLINING WITH BACKSPACE (ASCII)
L.ULIN==(1B14) ;ON IF UNDERLINING TAKES A SECOND LINE
L.SUPO==(1B15) ;SUPPRESS OUTPUT BECAUSE OF /RANGE
L.IDXC==(1B16) ;IN INDEX, INDICATES L.IDXD SIGNIFICANT
L.IDXD==(1B17) ;IN INDEX, OLD ENTRY COMES FIRST
;&
;+
;.HL2 FLAGS IN <RH OF F
;.NOFILL.END SELECT
R.FSEQ==1B18 ;SEQUENCE NUMBER BEING DISCARDED ON INPUT
R.LCWV==1B19 ;LAST CHAR INPUT WAS VERT. MOTION
R.SPPR==1B20 ;LEADING SPACE IMPLIES PARAGRAPH
R.AUTB==1B21 ;.AUTOTABLE MODE
R.PGSQ==1B22 ;SEQUENCE OF PAGES DURING INDEX PRINTING
R.CCOM==1B23 ;READING A COMMAND (DUPLICATE INTO BUFFER)
R.SEQU==1B24 ;/SEQUENCE
R.QNIC==1B25 ;QUOTE NEXT INPUT
R.ALCC==1B26 ;ALLOW ALL CONTROL CHARS
R.SLCT==1B27 ;SELECT MODE
R.SLLK==1B28 ;LOOK FOR SELECTION PREFIX
R.SLRG==1B29 ;IN +- SELECTION RANGE
R.NPER==1B30 ;.NO PERIOD
R.MULN==1B31 ;GOING FOR MULTIPLE NUMBERS
R.NNUL==1B32 ;LAST NUMBER WAS NOT NULL
;;SPARE 1B33
R.NFLA==1B34 ;SUPPRESS ALL FLAG CHARACTERS EXCEPT .!
R.FRCC==1B35 ;CASE CONTROLLED BY USER
;&
;+
;.HL2 OTHER FLAGS (NOT IN F)
;.NOFLAGS.NOFILL.END SELECT
LCHPVT==1B18 ;PREVENT CHARACTER RECOGNITION (FOLLOWS _)
APPXFL==1B23 ;IN CHAPTER NUMBER, APPENDIX
;&
;+
;.FLAGS.HL1 OTHER DEFINITIONS
;.HL2 MISCELLANEOUS SYMBOLS
;.NOFLAGS.NOFILL.END SELECT
CNVTOK==-12 ;CONVERT TO K FROM WORDS
INFIN==377777 ;INFINITY
PGWID==^D18 ;PAGE WIDTH IN INDEX TABLE
PGMASK==<1_PGWID>-1 ;PAGE MASK IN INDEX TABLE
SPWID==5 ;SUB-PAGE WIDTH IN INDEX TABLE
SPMASK==<1_SPWID>-1 ;SUB-PAGE MASK IN INDEX TABLE
CHWID==^D36-PGWID-SPWID ;CHAPTER WIDTH IN INDEX TABLE
CHMASK==<1_CHWID>-1 ;CHAPTER MASK IN INDEX TABLE
IFE APPXFL&CHMASK,<PRINTX ? CHAPTER MASK DOESN'T INCLUDE APPENDIX FLAG>
ULCAS==40 ;DIFFERENCE BETWEEN CASES
CCUCAS==100 ;DIFFERENCE BETWEEN CONTROL AND UPPER
CHRMSK==177 ;ASCII CHARACTER MASK
IFN LCHPVT&CHRMSK,<PRINTX ? CHRMSK INCLUDES LCHPVT>
;&
;+
;.FLAGS
;.HL2 CHARACTERS FOR <CREF
;.NOFLAGS.NOFILL.END SELECT
C.SIFI==1 ;SUBINDEX FLAG IN INTERNAL STRING STORAGE
C.QUTI==2 ;INTERNAL QUOTE IN STORAGE
C.ULS==3 ;UNDERLINE CHARACTER IN INTERNAL STORAGE
C.TAT==4 ;TYPESET END OF MACRO ARG IN INTERNAL STORAGE
C.FLGS==" "-3 ;HIGHEST INTERNAL FLAG CHARACTER
C.QTS==" "-2 ;QUOTED SPACE (INTERNAL FOR #)
C.NXS==" "-1 ;NON-EXPANDABLE SPACE (INTERNAL)
C.GRPH==" " ;LOWEST GRAPHIC
C.SPC==" "
C.EXCL=="!" ;EXCLAMATION (AS PUNCT, NOT FOOTNOTE CUE)
C.EFNT=="!" ;END OF FOOTNOTE
C.COMT=="!" ;COMMENT FLAG
C.QS=="#" ;QUOTED (NONEXPANDABLE) SPACE IN INPUT FILE
C.ULI=="&" ;UNDERLINE COMMAND IN INPUT DATA
C.PLUS=="+" ;PLUS IN NUMBERS
C.CMA=="," ;COMMA SEPARATOR IN ARGUMENT LISTS
C.HYPH=="-" ;HYPHEN IN SECTION HEADERS
C.MINS=="-" ;MINUS IN NUMBERS
C.CNT=="." ;CONTROL PREFIX
C.PD=="." ;PERIOD. FOR SPECIAL SPACING AFTER PERIOD
C.COLN==":" ;COLON IN TEXT
C.SEMI==";" ;SEMICOLON
C.SEMC==";" ;SEMICOLON IN TEXT
C.CAP=="<" ;CAPITALIZE NEXT WORD
C.IND==">" ;INDEX NEXT WORD
C.SIF==">" ;SUBINDEX FLAG IN INPUT
C.QM=="?" ;QUESTION MARK
C.DN=="\" ;LOWER CASE INDICATOR
C.UP=="^" ;UPPER CASE INDICATOR
C.QNC=="_" ;QUOTE NEXT CHARACTER
;&
;+
;.FLAGS
;.HL2 SOFTWARE CHANNELS
;.NOFLAGS.NOFILL.END SELECT
F.FIN==1 ;COMMAND FILE INPUT
F.FOUT==2 ;COMMAND FILE OUTPUT
;&
;&.FLAGS.FILL
DEFINE IFEOF$($LOC),< JUMPL CH,$LOC> ;CREF EOF TESTS
;+
;.AUTOP.LOWER CASE
;.HL2 MACROS
; <MSG$ IS FOLLOWED BY THE THREE LETTER ERROR CODE,
;ONE OF THE INDICATORS <ERR, <WRN, OR <INF FOR WHICH CLASS
;OF MESSAGE, AN OPTIONAL ^S TO SAVE ALL ACCUMULATORS,
;AND THE MESSAGE TEXT. ^IT WILL FORCE OUT ANY <TTY
;BUFFERS, ISSUE THE FILE NAME IF NOT YET DONE,
;THEN ISSUE THE MESSAGE CORRECTLY PREFIXED.
;-
DEFINE MSG$(CODE$,LEVEL$,SAVEF$,TEXT$),<XLIST
E$$'CODE$:
IFIDN <SAVEF$><S>,< SAVE$ <A,B,C,D> >
MOVE A,[''CODE$'',,[ASCIZ \TEXT$\] ]
LIST
PUSHJ P,LEVEL$'MSG
XLIST
IFIDN <SAVEF$><S>,< RSTR$ <D,C,B,A> >
LIST>
;+
;<ILCM$ IS FOLLOWED BY THE THREE LETTER ERROR CODE,
;AND THEN THE TEXT OF THE MESSAGE. ^IT ISSUES
;THE MESSAGE WITH THE STANDARD PREFIX AS A
;FATAL ERROR MESSAGE. ^IT THEN FOLLOWS THE
;MESSAGE WITH THE CURRENT COMMAND AND THE
;PAGE LOCATION OF THE ERROR. ^FINALLY, IT JUMPS
;TO END OF COMMAND PROCESSING.
;-
DEFINE ILCM$(CODE$,TEXT$),<XLIST
E$$'CODE$:
MOVE A,[''CODE$'',,[ASCIZ \TEXT$: "\] ]
LIST
JRST ILCMSG
>
CONT.
;+
;<SAVE$ _<LIST_> PUSHS THE LIST OF LOCATIONS
;ONTO THE STACK.
;-
DEFINE SAVE$ (LIST$),<
XLIST
IRP (LIST$),< PUSH P,LIST$ >
LIST
>
;+
;<RSTR$ _<LIST_> POPS THE LIST OF LOCATIONS FROM THE STACK.
;-
DEFINE RSTR$ (LIST$),<
XLIST
IRP (LIST$),< POP P,LIST$ >
LIST
>
SUBTTL IMPURE STORAGE
;+
;.TS8,16,24.UPPER CASE
;.CHAPTER IMPURE STORAGE
;-.NOFILL.NOFLAGS.END SELECT
;LOCATIONS WHICH ARE SET AT START-UP TIME AND NEVER CLEARED
CCLF1: BLOCK 1 ;1 IF CCL ENTRY, 0 IF NORMAL
INICOR: BLOCK 1 ;SIZE OF CORE BEFORE ANY EXPANSION
INIFF: BLOCK 1 ;INITIAL SETTING OF .JBFF
;SCAN BLOCKS
SCNFWA:! ;START OF SCAN BLOCKS
SCNLOC: BLOCK 1 ;POINTER TO LAST INPUT SCAN BLOCK
SCNPTR: BLOCK 1 ;WILD-CARD SCAN POINTER
SINCOR: BLOCK 1 ;LH=.JBFF, RH=.JBREL AT START OF FILE
SCNFIR: BLOCK 1 ;START OF SCAN PARAMETER AREA
FINI: BLOCK 1 ;INITIAL F SETTING
FINIM: BLOCK 1 ;MASK FOR FINI
SCNNVR: BLOCK 1 ;/VARIABLE COUNT
SCNVAR: BLOCK LN$VAR ;/VARIABLE LIST
SCNNIR: BLOCK 1 ;/IRANGE COUNT
SCNIRG: BLOCK 3*LN$RNG ;/IRANGE FROM:TO PAIRS
SCNNOR: BLOCK 1 ;/ORANGE COUNT
SCNORG: BLOCK 3*LN$RNG ;/ORANGE FROM:TO PAIRS
;(0) FROM PAGE,,LINE
;(1) TO PAGE,,LINE
;(2) START CHAPTER,,END CHAPTER
SCMFWA:! ;START OF SCAN SWITCHES
SCNBAR: BLOCK 1 ;/BAR SWITCH
SCNCAS: BLOCK 1 ;/CASE SWITCH
SCNCRT: BLOCK 1 ;/CRETURN SWITCH
SCNDRF: BLOCK 1 ;/DRAFT SWITCH
SCNDWN: BLOCK 1 ;/DOWN SWITCH
SCNHDR: BLOCK 1 ;/HEADER SWITCH
SCNLPP: BLOCK 1 ;/LINES SWITCH
SCNNMB: BLOCK 1 ;/NUMBER SWITCH
SCNOVR: BLOCK 1 ;/OVER SWITCH
SCNPAG: BLOCK 1 ;/PAGING SWITCH
SCNPAU: BLOCK 1 ;/PAUSE SWITCH
SCNPER: BLOCK 1 ;/PERIOD SWITCH
SCNSEL: BLOCK 1 ;/SELECT SWITCH VALU
SCNSIM: BLOCK 1 ;/SIMULATE SWITCH
SCNSPG: BLOCK 1 ;/SPACING SWITCH
SCNTYP: BLOCK 1 ;/TYPESET
SCNWID: BLOCK 1 ;/WIDTH SWITCH
ULCHO: BLOCK 1 ;/UNDERLINE CHARACTER
ULTYPE: BLOCK 1 ;TYPE OF UNDERLINE
SCMLWA==.-1 ;END OF SCAN SWITCHES
CONT.
SCNOUT: BLOCK .FXLEN ;OUTPUT PARAMETER BLOCK
OPNBLK: BLOCK 3 ;INPUT OPEN BLOCK
SCNLWA==.-1
FILFWA:! ;START OF AREA TO CLEAR BEFORE EACH FILE
RMARG: BLOCK 1 ;RIGHT MARGIN
PRMRG: BLOCK 1 ;RIGHT PAGE-SIZE
LMARG: BLOCK 1 ;LEFT MARGIN
FILCAS: BLOCK 1 ;INITIAL CASE MODE
CAS: BLOCK 1 ;0 OR 40 TO CONVERT TO LOWER CASE
PAGENO: BLOCK 1 ;PAGE NUMBER FOR OUTPUT FILE
FRCPAR: BLOCK 1 ;FLAG TO FORCE PARAGRAPH
PARIND: BLOCK 1 ;INDENTING FOR PARAGRAPHS
PARSPC: BLOCK 1 ;VERT SPAC FOR PARAGRAPHS
PARTPG: BLOCK 1 ;TEST PAGE FOR PARAGRAPHS
LASLS: BLOCK 1 ;DEPTH OF LAST .LIST COMMAND
LSTCNT: BLOCK LN$MJP+1 ;COUNT AT THAT DEPTH
NSPNG: BLOCK 1 ;SPACING
LINEC: BLOCK 1
SUBPGE: BLOCK 1 ;0 OR 1+SUBPAGE WE ARE IN
FILHDR: BLOCK 1 ;.HEADER CASE
FILOVR: BLOCK 1 ;SPACES IN FROM /OVER
FILOVT: BLOCK 1 ;TABS IN FROM /OVER
FLNUMB: BLOCK 1 ;.NONUMBERING
FLTITL: BLOCK 1 ;TITLE ON NEXT PAGE
FLNOPG: BLOCK 1 ;.NOPAGING
FLNHDR: BLOCK 1 ;.NOHEADER
FLSOPG: BLOCK 1 ;FLAG SOMETHING ON PAGE
FILNVR: BLOCK 1 ;NUMBER OF VARIABLES
FILVAR: BLOCK LN$VAR ;VARIABLE NAMES
FILVVR: BLOCK LN$VAR ;VARIABLE VALUES (-LN$VAR=FALSE)
FILFVR: BLOCK LN$VAR ;VARIABLE DRAFT FLAGS (IF,,IFN)
IFSTKP: BLOCK 1 ;[244] STACK POINTER FOR IF STACK
IFSTK: BLOCK 3*LN$IFS ;[244] IF STACK
VRSKIP: BLOCK 1 ;CURRENT VARIABLE INDEX
FLSKIP: BLOCK 1 ;ASCIZ LISTING FLAGS (/DRAFT)
IFSKIP: BLOCK 1 ;-1 TO SKIP INPUT
MJSPDL: BLOCK 1 ;PD POINTER TO MJSPDB
MJSPDB: BLOCK LN$MJP*LN$MJS ;PD STORAGE FOR NOTE/LS
SECNUM: BLOCK LN$SEC ;SECTION NUMBERS (FIRST IS CHAPTER)
LASHL: BLOCK 1 ;LEVEL OF LAST .HL OR .CH
CENPOS: BLOCK 1 ;SAVED VALUE FOR CENTERING
CENTTL: BLOCK 1 ;-1 OR COUNT DOWN OF TITLE IN CENTER
SMINSC: BLOCK 1 ;FLAG SOMETHING IN THIS SECTION
TABTAB: BLOCK LN$TAB ;TAB SETTINGS
NTABS: BLOCK 1
NLPG: BLOCK 1 ;PAGE LENGTH
PNLPG: BLOCK 1 ;PAGE SIZE
CONT.
; GLOBAL VARIABLES
PLIST: BLOCK LN$PDL+1
INIFBF: BLOCK 1 ;FIRST VALUE LOADED INTO FOOTBF
FOOTBF: BLOCK 1 ;ADDRESS OF FOOTNOTE BUFFER (SET AT INITIALIZATION)
FOOTC: BLOCK 1 ;FOOTNOTE COUNT
FOOTP1: BLOCK 1
FOOTP2: BLOCK 1
FOOTP3: BLOCK 1
FOOTP4: BLOCK 1
FOOTWB: BLOCK LN$LIN ;LINE HOLDING BUFFER AROUND FOOTNOTE OUTPUTTER
FOOTS1: BLOCK 1 ;POINTERS TO FOOTWB
FOOTS2: BLOCK 1 ; ..
ICBUF: BLOCK LN$IDX ;STORAGE FOR INDEXED ITEM
ICBFE=.-1
ICBUFC: BLOCK 1 ;UP COUNTER ON ICBUF
ICBUFP: BLOCK 1 ;BYTE POINTER TO ICBUF
SUBIDX: BLOCK 1 ;DISTINGUISHES SUBINDEX COMMAND
XFIRST: BLOCK 1 ;ADDRESS OF ALPHABETICALLY FIRST ITEM
XTOP: BLOCK 1 ;TOP OF INDEX STORAGE
XBOT: BLOCK 1 ;BOTTOM OF INDEX STORAGE
OIXC: BLOCK 1 ;CURRENT ITEM IN OUTPUT INDEX
OIXL: BLOCK 1 ;INITIAL LETTER IN OUTPUT INDEX
AUTIDX: BLOCK 1 ;-1 IF > INDEXING
PAGECT: BLOCK 1 ;COUNT OF REAL PAGES OUTPUT
LINECT: BLOCK 1 ;COUNT OF LINES ON CURRENT PAGE OUTPUT
DIDSOM: BLOCK 1 ;NON-ZERO IF LINE OUT SINCE LAST PAUSE
INDCT: BLOCK 1 ;INDENTATION
NIACNT: BLOCK 1 ;COUNT OF NIA WARNINGS SINCE LM
DEFFIG: BLOCK 1 ;DEFERRED FIGURE SIZE
LITCNT: BLOCK 1 ;LITERAL LINE COUNTER
BARSW: BLOCK 1 ;BAR ENABLED
BARON: BLOCK 1 ;BAR ON
BARNPY: BLOCK 1 ;BAR WAS ON AT START OF LINE
CONT.
LKPBLK: BLOCK LN$LKP ;LOOKUP BLOCK FOR INPUT FILE
INEXT: BLOCK 1 ;INPUT EXTENSION
OPNOUT: BLOCK 3 ;OPEN BLOCK FOR OUTPUT
ENTBLK: BLOCK LN$ENT ;ENTER BLOCK FOR OUTPUT FILE
DEFEXT: BLOCK 1 ;DEFAULT EXTENSION FOR OUTPUT
H.FOUT: BLOCK 3 ;BUFFER HEADER FOR OUTPUT
; GENERAL
TT1: BLOCK 1
TT2: BLOCK 1
TT5: BLOCK 1
TT6: BLOCK 1
LCH: BLOCK 1
PSTRP: BLOCK 2
INSEQP: BLOCK 1 ;POINTER TO INPUT SEQUENCE NUMBER
INSEQN: BLOCK 1 ;CURRENT INPUT SEQUENCE NUMBER
INSEQL: BLOCK 1 ;INPUT SEQUENCE NUMBER OF LAST LINE
INLINE: BLOCK 1 ;INPUT LINE COUNT THIS PAGE
INPAGE: BLOCK 1 ;INPUT PAGE COUNT
THISEQ: BLOCK 1 ;SEQUENCE AT START OF THIS OUTPUT LINE
THISLN: BLOCK 1 ;LINE COUNT AT START OF OUTPUT LINE
THISPG: BLOCK 1 ;PAGE COUNT AT START OF OUTPUT LINE
INEOFP: BLOCK 1 ;INPUT END OF FILE STRING POINTER
SELPFX: BLOCK 1 ;SELECT PREFIX ;;KEEP
SELSNG: BLOCK 1 ;SELECT SINGLE LINE ;; IN
SELSTR: BLOCK 1 ;SELECT START RANGE ;;THIS
SELSTP: BLOCK 1 ;SELECT STOP RANGE ;;ORDER
ESLCTF: BLOCK 1 ;-1 IF AFTER .END SELECT
SLINBF: BLOCK 50 ;.END SELECT BUFFER
SLINBL==.-SLINBF
SLIN: BLOCK 4 ;POINTERS TO SLINBF
TTISOT: BLOCK 1 ;-1 IF OUTPUT TO TTY:
ISDFLN: BLOCK 1 ;-1 IF ISSUED FILE NAME
AFTRNC: BLOCK 1 ;IF NON-ZERO, ADDRESS OF STRING TO
; OUTPUT AFTER NEXT CHARACTER
TYPMUL: BLOCK 1 ;SPACING MULTIPLIER IF TYPESETTING
TYPDIV: BLOCK 1 ;SPACING DIVISOR IF TYPESETTING
FLTYPC: BLOCK 1 ;FLAG THAT IN .TYPESET COMMAND
FLTYPR: BLOCK 1 ;0=NO FACE CHANGE,
; -1=FACE CHANGE, +1=TEXT AFTER FACE CHANGE
FLTYPS: BLOCK 1 ;-1=SUPPRESS NEXT STARTING SPACE
FOUTCH: BLOCK 1 ;ADDRESS OF ROUTINE TO OUTPUT CHAR
CONT.
IF TOPS-20,<
;TOPS-20 STORAGE
DFIEXT: BLOCK 1 ;DEFAULT INPUT EXTENSION
PMAPZ:! ;CLEARED FOR EACH OUTPUT FILE
PMAPF: BLOCK 1 ;NUMBER OF PAGES PMAP'ED
BYTECT: BLOCK 1 ;OUTPUT FILE BYTE COUNT
PMAPPG: BLOCK 1 ;PROCESS PAGE FOR START OF WINDOW
BYTEPT: BLOCK 1 ;BYTE POINTER TO WINDOW
WINCNT: BLOCK 1 ;ROOM LEFT IN WINDOW
FILEPG: BLOCK 1 ;FILE PAGE NUMBER TO START NEXT WINDOW
PMAPEZ==.-1 ;LAST WORD CLEARED
> ;TOPS-20
CONT.
; LINE TEMPS
LNINCT: BLOCK 1 ;COUNT OF CHARACTERS IN LINBF
LINBK: BLOCK 1
SPCNT: BLOCK 1 ;COUNT OF SPACES IN LINBF
LSTSP: BLOCK 1 ;CHARACTER ADDRESS OF LAST SPACE IN LINBF
LINNSC: BLOCK 1 ;COUNT OF NON-SPACING CHARS IN LINBF
LNIN1: BLOCK 1 ;INPUT POINTERS TO LINBF
LNIN2: BLOCK 1 ; ..
LOUT1: BLOCK 1 ;OUTPUT POINTERS TO LINBF
LOUT2: BLOCK 1 ; ..
LINBF: BLOCK LN$LIN ;LINE BUFFER
GCINP: BLOCK 1 ;RE-EAT POINTERS
GCIN2: BLOCK 1 ; ..
GCSCH: BLOCK 1 ;SAVED CHARACTER (-1=NONE)
LINDCX: BLOCK 1 ;ADDRESS OF ROUTINE IN LINDCW
CMSTP: BLOCK 1
CMST2: BLOCK 1
CMBF: BLOCK 10
ECMBF=.-1
CMEBFP: BLOCK 4 ;READ/WRITE/FIRST/LAST+1 CHAR POINT TO CMEBF
CMEBF: BLOCK 6 ;LAST COMMAND
CMEBFL==.-CMEBF
RINCHR: BLOCK 1 ;ROUTINE TO READ CHAR
ADRECM: BLOCK 1 ;END ADDRESS MATCH
TECBFP: BLOCK 4 ;READ/WRITE/FIRST/LAST+4 CHAR PNTR TO TECBF
TECBF: BLOCK LN$TEC ;END COMMAND TEMP STRING BUFFER
TTLP1: BLOCK 1 ;TITLES
TTLP2: BLOCK 1
TTLBUF: BLOCK LN$TTL
STTLP1: BLOCK 1 ;SUB TITLES
STTLP2: BLOCK 1
STTLBF: BLOCK LN$TTL
DOSTTL: BLOCK 1 ;INCLUDE SUBTITLE
CONT.
EXSP1: BLOCK 1
EXSP2: BLOCK 1
ULMCH: BLOCK 1
NSPCH: BLOCK 1
LSTNSP: BLOCK 1
ULPOS: BLOCK 1
CPOS: BLOCK 1
ULPT1: BLOCK 1
ULPBF: BLOCK LN$UND ;COLUMNS TO BE UNDERLINED
CCTABL:! ;PARRALLELS FLASTD
CC.CAP: BLOCK 1 ;.FLAG CAPITALIZE <
CC.CON: BLOCK 1 ;.FLAG CONTROL .
CC.END: BLOCK 1 ;.FLAG ENDFOOTNOTE !
CC.IND: BLOCK 1 ;.FLAG INDEX >
CC.LOW: BLOCK 1 ;.FLAG LOWERCASE \
CC.QUO: BLOCK 1 ;.FLAG QUOTE _
CC.SPA: BLOCK 1 ;.FLAG SPACE #
CC.SUB: BLOCK 1 ;.FLAG SUBINDEX >
CC.UND: BLOCK 1 ;.FLAG UNDERLINE &
CC.UPP: BLOCK 1 ;.FLAG UPPERCASE ^
CCTEND==.-1
FILLWA==.-1 ;END OF STORAGE CLEARED EACH FILE
;&
RELOC 400000 ;END OF VARIABLES
SUBTTL INITIALIZATION
;+
;.AUTOPA.FLAGS.TS8,16,24,32,,,,,,,,.LM0.P0,-1.FILL.LOWER CASE
;.CHAPTER TERMINAL COMMAND SCANNING
;-
RUNOFF: TDZA A,A ;NON-CCL ENTRY
MOVEI A,1 ;CCL ENTRY
MOVEM A,CCLF1 ;STORE FOR LATER
RESET ;CLEAR ALL I/O
IF TOPS-10,<
HRRZ A,.JBREL ;GET FIRST-TIME CORE SIZE
MOVEM A,INICOR
> ;END TOPS-10
HRRZ A,.JBFF ;GET INITIAL .JBFF
MOVEM A,INIFF ;SAVE FOR LATER
STORE 17,0,16,0 ;CLEAR ALL ACS
MOVE P,[IOWD LN$PDL,PLIST] ;STACK
MOVE A,[2,,[ IOWD 1,['RUNOFF']
CCLF1,,'RNO']]
CISCAN: PUSHJ P,.ISCAN## ;INITIALIZE COMMAND SCANNER [243]
CONT.
;BACK HERE AFTER EACH COMMAND IS COMPLETE
RUNOF0: MOVE A,[11,,[IOWD SWTL,SWTN
SWTD,,SWTM
0,,SWTP
-1
SCNCLA,,0
SCNAIN,,SCNAOT
0
0
0,,SCNSWT]]
PUSHJ P,.TSCAN## ;SCAN THE LINE
SKIPN A,SCNLOC ;IS THERE A FILE? [243]
JRST CISCAN ;RESTART RUNOFF (NOTE C(A)=0) [243]
MOVE A,[3,,[IOWD SWTL,SWTN
SWTD,,SWTM
0,,SWTP]]
PUSHJ P,.OSCAN## ;GET OPTIONS IF ANY
JRST RUNOFS ;GO PROCESS IT
;ROUTINE TO CLEAR SCAN RESULTS
SCNCLA: STORE A,SCNFWA,SCNLWA,0 ;CLEAR AREA
STORE A,SCMFWA,SCMLWA,-1 ;AND SWITCHES
MOVE A,INIFF ;RESTORE .JBFF
MOVEM A,.JBFF ; ..
IF TOPS-10,<
MOVE A,INICOR ;RESTORE .JBREL
CAME A,.JBREL ; ..
CORE A, ; ..
JFCL ; (NICE TRY)
> ;END TOPS-10
POPJ P, ;RETURN
;ROUTINE TO STORE MULTI-VALUED SWITCHES
SCNSWT: TLZ B,-1 ;CLEAR POINTER TO LEAVE INDEX
JUMPG B,SCNRNG ;IF NOT /VARIANT, JUMP
;HERE WHEN SWITCH IS /VARIANT
AOS A,SCNNVR ;INCREMENT COUNT
CAIN A,LN$VAR+1 ;SEE IF TOO MANY
E$$TMV: JRST [MOVEI A,'TMV' ;YES--GIVE UP
PJSP B,SCNERR
ASCIZ \Too many /VARIANTS\]
E$$VVZ: JUMPE C2,[MOVEI A,'VVZ'
PJSP B,SCNERR
ASCIZ \/VARIANT value zero\]
MOVEM C2,SCNVAR-1(A) ;NO--STORE AWAY
POPJ P, ;RETURN, INDICATING DONE
;HERE IF /IRANGE OR /ORANGE
SCNRNG: CAILE B,2 ;SEE IF NOT /IR OR /OR
JRST SCNUND ;RIGHT--GO TRY SOMETHING ELSE
MOVEI D,SCNNIR ;POINT TO /IRANGE
CAIN B,2 ;SEE IF /ORANGE
MOVEI D,SCNNOR ;YES--POINT TO IT
AOS A,(D) ;INCREMENT COUNT
CAIN A,LN$RNG+1 ;SEE IF OVERFLOW YET
E$$TMR: JRST [MOVEI A,'TMR' ;YES--GIVE UP
PJSP B,SCNERR
ASCIZ \Too many RANGES\]
IMULI A,3 ;MULTIPLY COUNT BY 3
ADDI D,-2(A) ;POINT TO START OF TRIPLET
MOVE A,.NMUL## ;GET FROM
MOVEM A,(D) ;STORE
MOVE A,.NMUL+1 ;GET TO
MOVEM A,1(D) ;STORE
MOVE A,.NMUL+2 ;GET CHAPTERS
MOVEM A,2(D) ;STORE
POPJ P, ;RETURN
;HERE IF /UNDERLINE
SCNUND: HLRE A,C2 ;GET UNDERLINE CHARACTER
JUMPL A,SCNUN1 ;NOT SPECIFIED--PROCEED
SKIPLE ULCHO ;SEE IF PREVIOUSLY SET
CAMN A,ULCHO ;YES--SEE IF SAME
SKIPA ;OK
JRST E.DSI## ;NO--ERROR
MOVEM A,ULCHO ;OK--STORE
SCNUN1: HRRE A,C2 ;GET UNDERLINE TYPE
JUMPL A,SCNUN2 ;NOT SPECIFIED--ALL DONE
SKIPL ULTYPE ;SEE IF PREVIOUSLY SET
CAMN A,ULTYPE ;YES--SEE IF SAME
SKIPA ;OK
JRST E.DSI## ;NO--ERROR
MOVEM A,ULTYPE ;OK--STORE TYPE
;HERE WHEN DONE WITH ARG, IF COLON, DO AGAIN
SCNUN2: CAIE S1,":" ;SEE IF COLON
POPJ P, ;RETURN
PUSHJ P,SWUNDR ;YES--GET ANOTHER ARG
JRST SCNUND ;AND GO STORE IT
;ROUTINE TO SCAN THE /UNDERLINE SWITCH
;VALUES ARE:
; /UNDERLINE:"CHARACTER"
; /UNDERLINE:OCTAL BOTH SET UNDERLINE CHARACTER
;
; /UNDERLINE:KEYWORD SETS TYPE OF UNDERLINING
SWUNDR: PUSHJ P,TCHOO ;GET CHARACTER OR OCTAL VALUE
JRST [JUMPE C2,SWUND4 ;IF 0, INDICATE /UNDER:0
HRLO C2,C2 ;RETURN THE
POPJ P,] ; ANSWER NUMBER
PUSHJ P,.SIXSC## ;MUST BE KEYWORD
MOVE A,[IOWD UNDR.L,UNDR.T]
PUSHJ P,.NAME## ;LOOK IN TABLE OF KEYS
JRST SWUND3 ;NOT FOUND--GO SEE WHY
SUBI A,UNDR.T-1 ;FOUND--REMOVE OFFSET
TLZ A,-1 ;CLEAR JUNK
CAIN A,UNDRNONE ;SEE IF NONE
JRST SWUND4 ;YES--INDICATE THAT
HRROI C2,(A) ;SET IN ANSWER
POPJ P, ; AND RETURN
SWUND3: CAME C2,['0 '] ;SEE IF :0
JUMPN C2,E.UKK## ;IF NOT AND NOT BLANK, ERROR
SWUND4: HRROI C2,0 ;IF SO, RETURN 0
POPJ P, ;RETURN
;SWITCH HANDLER FOR OCTAL OR QUOTED CHARACTER
SWCHOO: PUSHJ P,TCHOO ;GET IT
POPJ P, ;SOMETHING
MOVEI C2,0 ;IGNORE
POPJ P, ; NULL
;ROUTINE TO GET OCTAL OR QUOTED CHARACTER
TCHOO: PUSHJ P,.TIAUC## ;GET FIRST CHARACTER
CAIE S1,"""" ;SEE IF QUOTED CHARACTER
JRST SWCHO1 ;NO--TRY SOMETHING ELSE
PUSHJ P,.TISQT## ;YES--SET QUOTE
SKIPN .QUOTE## ;SEE IF STILL QUOTED
JRST E.SVR## ;NO--INDICATE SWITCH VALUE REQUIRED
MOVE C2,S1 ;RETURN THE ANSWER CHARACTER
MOVEI A,.TFCHR## ;INDICATE SINGLE
MOVEM A,.LASWD## ; CHARACTER FORMAT
PJRST .TIAUC## ;GET SEPARATOR AND RETURN
SWCHO1: CAIL S1,"0" ;SEE IF
CAILE S1,"7" ; OCTAL
JRST CPOPJ1 ;NOT FOUND
PUSHJ P,.OCTNC## ;YES--GET OCTAL NUMBER
CAILE C2,177 ;SEE IF VALID CHARACTER
JRST E.SVTL## ;NO--INDICATE ERROR
POPJ P, ;RETURN VALUE
;ROUTINE TO SCAN A RANGE VALUE
;FORM IS A/B-C:D/E-F WHERE A,C,D,F ARE DECIMAL NUMBERS OR ^ OR *
; A/B-C IS FROM, D/E-F IS TO ON THE RANGE
; A,D ARE LINE NUMBERS, C,F ARE PAGE NUMBERS
; B,E ARE CHAPTER NUMBERS OR APPENDIX LETTERS OR "INDEX"
;IF B,E ARE OMITTED, SO CAN FOLLOWING -
;IF D/E-F ARE ABSENT, COLON CAN BE OMITTED AND THEY ARE END OF FILE
;IF A/B-C ARE ABSENT, MEANS FROM START OF FILE
;IF F IS MISSING, SAME AS C
;IF C IS MISSING, SAME AS 1
;IF A IS MISSING, SAME AS 1
;IF D IS MISSING, SAME AS END OF PAGE (777777 INTERNALLY)
;^ IS SAME AS 1 (I.E., BEGINNING)
;* IS SAME AS 777777 (I.E., END)
SWRNGE: SAVE$ <X,CH> ;SAVE P1, P2
PUSHJ P,.TIAUC## ;GET NEXT CHARACTER
PUSHJ P,.TICQT## ;SET QUOTE IF APPROPRIATE
SETZB X,CH ;CLEAR FROM AND TO
PUSHJ P,DECPGC ;GET A
HRLZ X,C2 ;SAVE AWAY
MOVEI C2,0 ;CLEAR ACCUMULATOR
CAIN S1,"/" ;SEE IF PAGE NEXT
SKIPN .QUOTE## ;YES--LEGAL ONLY IF QUOTED
SKIPA ;NO--SKIP
PUSHJ P,DECHAP ;YES--GET IT
HRR X,C2 ;SAVE AWAY
HLLOM C2,.NMUL+2 ;SET START CHAPTER (END CH=INF)
CAIE S1,":" ;SEE IF TO SPECIFIED
JRST SWRNG1 ;NO--SKIP OVER
PUSHJ P,DECPAG ;YES--GET D
HRLZ CH,C2 ;SAVE AWAY
MOVEI C2,0 ;CLEAR ACCUMULATOR
CAIN S1,"/" ;SEE IF PAGE NEXT
SKIPN .QUOTE## ;YES--LEGAL ONLY IF QUOTED
SKIPA ;NO--SKIP
PUSHJ P,DECHAP ;YES--GET IT
HRR CH,C2 ;SAVE AWAY
TLNE C2,-1 ;SEE IF CHAPTER SET
HLRM C2,.NMUL+2 ;YES--SAVE AWAY
SWRNG1: SKIPN CH ;SEE IF TO SPECIFIED
SETOM CH ;NO--DEFAULT TO MAX
;A DEFAULTS TO 0
TRNN X,-1 ;SEE IF C
HRRI X,1 ;NO--DEFAULT TO /1
TLNN CH,-1 ;SEE IF D
TLO CH,-1 ;NO--DEFAULT TO END OF PAGE
TRNN CH,-1 ;SEE IF F
HRR CH,X ;NO--DEFAULT TO C
MOVEM X,.NMUL## ;STORE FROM
MOVEM CH,.NMUL+1 ;STORE TO
RSTR$ <CH,X> ;RESTORE P2, P1
POPJ P, ;AND FINISH PROCESSING
;ROUTINE TO GET CHAPTER AND PAGE NUMBER
;RETURNS CHAPTER,,PAGE IN C2
DECHAP: PUSHJ P,.TIAUC## ;GET FIRST CHARACTER
CAIL S1,"A" ;SEE IF ALPHA
CAILE S1,"Z" ; ..
JRST DECHP3 ;NO--HANDLE NUMERIC
MOVEI C2,0 ;YES--APPENDIX
DECHP1: CAIL S1,"A" ;SEE IF STILL ALPHA
CAILE S1,"Z" ; ..
JRST DECHP2 ;NO--EXIT LOOP
IMULI C2,^D26 ;YES--ADVANCE RADIX
ADDI C2,1-"A"(S1) ;INCLUDE THIS DIGIT--OFFSET BY 1
PUSHJ P,.TIAUC## ;GET NEXT CHARACTER
JRST DECHP1 ;LOOP
DECHP2: CAME C2,[^D4361706] ;"INDEX"
TROA C2,APPXFL ;APPENDIX--SET FLAG
SETOM C2 ;INDEX--SET CODE
JRST DECHP4 ;GO FINISH UP
DECHP3: PUSHJ P,DECPGC ;GET DECIMAL CHAPTER
CAIE S1,"-" ;SEE IF WAS CHAPTER
JRST DECHP5 ;NO--IS PAGE
DECHP4: PUSH P,C2 ;SAVE CHAPTER
MOVEI C2,0 ;CLEAR PAGE
CAIN S1,"-" ;SEE IF PAGE COMING
PUSHJ P,DECPAG ;YES--GET IT
POP P,A ;RESTORE CHAPTER
HRL C2,A ;ENTER IN RESULT
DECHP5: POPJ P, ;RETURN VALUE
;ROUTINE TO GET POSITION
; DECIMAL OR ^ FOR 1 OR * FOR END (777777)
;RETURNS VALUE IN C2
DECPAG: PUSHJ P,.TIAUC## ;GET FIRST CHARACTER
DECPGC: CAIN S1,"*" ;SEE IF END
JRST DECPG1 ;YES--GO HANDLE
CAIE S1,"^" ;SEE IF START
PJRST .DECNC## ;NO--HANDLE DECIMAL
SKIPA C2,[1] ;YES--SET "1"
DECPG1: MOVEI C2,-1 ;END--SET "777777"
PJRST .TIAUC## ;GET BREAK AND RETURN
;ROUTINE TO ALLOCATE OUTPUT SPEC AREA
SCNAOT: MOVEI A,SCNOUT ;POINT TO AREA
MOVEI B,.FXLEN ;AND LENGTH
POPJ P, ;RETURN
;ROUTINE TO ALLOCATE INPUT SPEC AREA
SCNAIN: MOVE B,.JBFF ;GET START OF FREE CORE
SUBI B,.FXLEN ;OFFSET FOLLOWING ADDI
SKIPN A,SCNLOC ;SEE IF ALREADY SOME
MOVE A,B ;NO--POINT TO START OF FREE CORE
ADDI A,.FXLEN ;POINT TO START OF AREA
MOVEM A,SCNLOC ;UPDATE MEMORY
MOVEI B,.FXLEN(A) ;DETERMINE NEW START OF FREE SPACE
MOVEM B,.JBFF ;SAVE FOR OTHERS
IF TOPS-10,<
CAMG B,.JBREL ;SEE IF IT FITS IN CORE
JRST SCNAIG ;YES--PROCEED
MOVEI C,(B) ;NO--GET MORE
CORE C, ;FROM MONITOR
> ;END TOPS-10
IF TOPS-20,<
CAIL B,RUNOFF ;LOWSEG UP TO HISEG
> ;TOPS-20
JRST E$$TMI ;WELL--NICE TRY
SCNAIG: HRLZ C,A ;CLEAR AREA
HRRI C,1(A) ; ..
SETZM (A) ; ..
BLT C,(B) ; ..
MOVEI B,.FXLEN ;INDICATE LENGTH
POPJ P, ;RETURN
E$$TMI: MOVEI A,'TMI' ;NOT ENOUGH CORE
MOVEI B,[ASCIZ \Insufficient core for command\]
;HERE ON ALL SCANNING ERRORS
SCNERR: HRLI A,'RNF' ;INCLUDE RUNOFF PREFIX
HRLI B,"?" ;INDICATE FATAL ERROR
PUSHJ P,.ERMSG## ;ISSUE ERROR MESSAGE
PJRST .FMSGE## ;GO RESTART COMMAND
;HERE TO PROCESS /SELECT
SCNASQ: PUSHJ P,.SWASQ## ;[245]READ SWITCH
MOVE C2,.NMUL## ;[245]PUT ANSWER IN N
POPJ P,0 ;[245]RETURN TO SCAN
;SWITCH CONTROL TABLES
DEFINE SWTCHS,<
SN AUTOPARAGRAPH,<POINTR (FINI,R.SPPR)>,FS.NUE!FS.NFS
SP BAR,SCNBAR,SWCHOO,BAR,FS.NUE!FS.NFS
SL CASE,SCNCAS,CASE,CASELOWER,FS.NUE!FS.NFS
SN CONTROL,<POINTR (FINI,R.ALCC)>,FS.NUE!FS.NFS
SN CRETURN,SCNCRT,FS.NUE!FS.NFS
SP DOWN,SCNDWN,.SWDEC##,DWN,FS.NUE!FS.NFS
SN DRAFT,SCNDRF,FS.NUE!FS.NFS
SL HEADER,SCNHDR,HEAD,HEADUPPER,FS.NUE!FS.NFS
SP IRANGE,1,SWRNGE,VAR,FS.LRG!FS.VRQ!FS.NFS
SP LINES,SCNLPP,.SWDEC##,LPP,FS.NUE!FS.NFS
SS NOBAR,SCNBAR,0,FS.NUE!FS.NFS
SS NOSELECT,SCNSEL,1,FS.NUE!FS.NFS
SS NOUNDERLINE,ULTYPE,UNDRNONE,FS.NUE!FS.NFS
SN NUMBERING,SCNNMB,FS.NUE!FS.NFS
SP ORANGE,2,SWRNGE,VAR,FS.LRG!FS.VRQ!FS.NFS
SN PAGING,SCNPAG,FS.NUE!FS.NFS
SN PAUSE,SCNPAU,FS.NUE!FS.NFS
SN PERIOD,SCNPER,FS.NUE!FS.NFS
SP RIGHT,SCNOVR,.SWDEC##,OVR,FS.NUE!FS.NFS
SP SELECT,SCNSEL,SCNASQ,,FS.NUE!FS.NFS, ;[245]
SN SEQUENCE,<POINTR (FINI,R.SEQU)>,FS.NUE!FS.NFS
SN SIMULATE,SCNSIM,FS.NUE!FS.NFS
SP SPACING,SCNSPG,.SWDEC##,SPC,FS.NUE!FS.NFS
SL TYPESET,SCNTYP,TYP,PD.TYP,FS.NUE!FS.NFS
SP UNDERLINE,3,SWUNDR,UNL,FS.NFS
SP VARIANT,,.SWSIX##,VAR,FS.VRQ!FS.NFS
SP WIDTH,SCNWID,.SWDEC##,WID,FS.NUE!FS.NFS
>
PD.VAR==0
MX.VAR==1
;KEY WORD LISTS
KEYS (CASE,<LOWER,UPPER>)
KEYS (HEAD,<UPPER,MIXED,LOWER>)
KEYS (TYP,<LPT,CAT,TXT>)
KEYS (UNDR,<BACKSPACE,CHARACTER,LINE,SEPARATE,NONE>)
;NOW BUILD THE TABLES
DOSCAN (SWT)
;HERE WHEN SCAN COMPLETED
RUNOFS:
IF TOPS-10,<
MOVSI A,'DSK' ;GET DEFAULT OUTPUT DEVICE
SKIPN SCNOUT+.FXDEV ;SEE IF NEEDED
MOVEM A,SCNOUT+.FXDEV ;YES--FILL IN DEFAULT
> ;END TOPS-10
MOVEI A,AD.DWN ;GET DEFAULT FOR DOWN
SKIPGE SCNDWN ;SEE IF VALUE SET FOR DOWN
MOVEM A,SCNDWN ;WASN'T,MOVE IN DEFAULT
SKIPLE SCNDRF ;SEE IF /DRAFT
JRST [MOVEI A,R.SEQU ;YES--SEE IF /SEQUENCE
TDNN A,FINIM ; OR /NOSEQUENCE
IORM A,FINI ;NO--SET /SEQUENCE
JRST .+1] ; AND PROCEED
;LOOP OVER INPUT SPECS
SKIPN SCNLOC ;SEE IF ANY INPUT
PUSHJ P,SCNAIN ;NO--MAKE A BLANK AREA
MOVE X,INIFF ;GET INITIAL AREA
MOVEM X,SCNFIR ;SET AS START OF SCAN AREA
INDEFL: MOVE A,X ;POINT TO SPEC [206]
MOVEI B,.FXLEN ;INDICATE LENGTH [206]
PUSHJ P,.OSDFS## ;APPLY DEFAULTS FROM SWITCH.INI [206]
IF TOPS-10,<
MOVSI B,'DSK' ;GET DEFAULT DEVICE
SKIPN .FXDEV(X) ;SEE IF NEEDED
MOVEM B,.FXDEV(X) ;YES--FILL IN DEFAULT
MOVE B,SCNOUT+.FXNAM ;GET OUTPUT FILE NAME IF ANY
MOVE C,SCNOUT+.FXNMM ;GET OUTPUT FILE NAME WILD CARD
CAME X,INIFF ;SEE IF FIRST SPEC
MOVE B,.FXNAM-.FXLEN(X) ;NO--DEFAULT TO PREVIOUS
CAME X,INIFF ; ..
MOVE C,.FXNMM-.FXLEN(X) ; ..
SKIPN .FXNAM(X) ;SEE IF FILE NAME GIVEN
MOVEM C,.FXNMM(X) ;NO--FILL IN DEFAULT
SKIPN .FXNAM(X) ; ..
MOVEM B,.FXNAM(X) ; ..
HLLO B,EXTTAB ;GET DEFAULT EXTENSION
SKIPN .FXEXT(X) ;SEE IF ANYTHING TYPED
MOVEM B,.FXEXT(X) ;NO--FILL IN DEFAULT
> ;END TOPS-10
ADDI X,.FXLEN ;ADVANCE TO NEXT SPEC
CAMG X,SCNLOC ;SEE IF ALL DONE
JRST INDEFL ;NO--GO DO NEXT ONE
IF TOPS-10,<
MOVE A,.JBREL ;GET CORE
HRL A,.JBFF ;AND FREE STORAGE
> ;END TOPS-10
IF TOPS-20,<
HRLZ A,.JBFF ;GET FIRST FREE
> ;TOPS-20
MOVEM A,SINCOR ;SAVE FOR MAIN LOOP
CONT.
;BACK HERE AFTER EACH FILE PROCESSED
RUNOF1: MOVE A,SINCOR ;GET ORIGINAL CORE
HLRZM A,.JBFF ;RESTORE FREE CORE
IF TOPS-10,<
TLZ A,-1 ;CLEAR TO CORE SIZE
CAME A,.JBREL ; ..
CORE A, ;RESTORE IT
JFCL ;NICE TRY.
> ;END TOPS-10
MOVSI F,L.JUST!L.PJUS!L.FILL
SKIPGE A,ULTYPE ;GET TYPE OF UNDERLINING
MOVEI A,AD.UNL ; FILL IN DEFAULT
SKIPLE SCNTYP ;SEE IF TYPESETTING
MOVEI A,UNDRCH ;YES--SET /UNDERLINE:CHARACTER
XCT [TLO F,L.USUP ;/UNDERLINE:NO
TLO F,L.UBSP!L.UMOD ;/UNDERLINE:BACKSPACE
TLO F,L.UMOD ;/UNDERLINE:CHARACTER (NON-SPACING)
JFCL ;/UNDERLINE:LINE (OVERPRINT)
TLO F,L.ULIN ;/UNDERLINE:SEPARATE (LINE)
TLO F,L.USUP](A) ;/UNDERLINE:NONE
IFN AD.CON< TRO F,R.ALCC> ;SET /CONTROLS IF DEFAULT
ANDCM F,FINIM ;CLEAR SPECIFIED SWITCHES
IOR F,FINI ;INCLUDE OTHER COMMAND FLAGS
SKIPN SCNPER ;SEE IF /NOPERIOD
TRO F,R.NPER ;YES--SET INITIALLY TO IGNORE THEM
STORE A,FILFWA,FILLWA,0 ;CLEAR FILE AREA
CONT.
MOVE A,[4,,[ SCNFIR,,SCNLOC
OPNBLK,,LKPBLK
.FXLEN,,LN$LKP
1B0+F.FIN_^D18+SCNPTR]]
PUSHJ P,.LKWLD## ;PERFORM WILD-CARD LOOKUP (SEARCH)
JRST RUNOF0 ;NOT DISK--SEE IF DONE OR OTHER DEVICE
IF TOPS-10,<
MOVE X,SCNPTR ;GET INDEX
MOVE C2,B ;SAVE DEVICE TYPE FOR LATER
JUMPE A,RDERR3 ;ERROR IF NO SUCH DEVICE
OPEN F.FIN,OPNBLK ;OPEN CHANNEL
JRST RDERR1 ;CAN'T GET DEVICE
INBUF F.FIN,0 ;GET DEFAULT BUFFER RING
MOVE CH,LKPBLK+.RBPPN ;SAVE DIRECTORY
MOVSI S1,-EXTN ;POINT TO DEFAULT EXTENSION TABLE
;BACK HERE IF FILE NOT FOUND AND NEW DEFAULT BEING TRIED
SETUP2: MOVEI A,0 ;SET FOR EXTENDEDLOOKUP
SKIPL C2 ;SET OFFSET OF 0 IF DISK
MOVEI A,2 ;OR 2 IF NOT
MOVEM CH,LKPBLK+.RBPPN ;RESTORE DIRECTORY
LOOKUP F.FIN,LKPBLK(A) ;LOOKUP FILE
JRST RDERR2 ;CAN'T GET AT FILE
> ;END TOPS-10
IF TOPS-20,<
SKIPE OPNBLK ;ANY JFN ASSIGNED?
JRST SETU2X ;YES--GO USE IT
MOVSI S1,-EXTN ;NO--POINTER TO DEFAULTS
SETU2A: MOVE B,[POINT 6,EXTTAB(S1)]
MOVE C,[POINT 7,DFIEXT]
MOVEI D,3
SETU2B: ILDB A,B ;GET A BYTE
ADDI A," "-' ' ;CONVERT TO ASCII
IDPB A,C ;STORE IN BUFFER
SOJG D,SETU2B ;LOOP OVER EXTENSION
MOVEI A,GTJFNB ;POINT TO GTJFN BLOCK
HRROI B,LKPBLK ;MAIN STRING POINTER
GTJFN ;TRY TO FIND FILE
JRST SETU2C ;LOST
MOVEM A,OPNBLK ;REMEMBER THE ANSWER
HRRZ B,SCNPTR ;POINTER TO SCAN BLOCK
MOVEM A,.FXJFN(B) ;SAVE FOR .SCWLD
TLNE A,770000 ;ANY WILD CARDS?
GNJFN ;YES--DO FIEST STEP
JFCL
JRST SETU2X ;USE JFN
SETU2C: AOBJN S1,SETU2A ;LOOP OVER ALL EXTS
MSG$ FNF,ERR,,<INPUT FILE NOT FOUND >
MOVEI A,LKPBLK
PUSHJ P,.TSTRG## ;GIVE FILE NAME
PUSHJ P,.CLRBF## ;CLEAR INPUT BUFFER
PUSHJ P,.TCRLF## ;START NEW LINE
JRST RUNOF0 ;START OVER
SETU2X:
> ;END TOPS-20
PUSHJ P,.CHKTM## ;CHECK /BEFORE/SINCE
JRST SETER4 ;FAIL--GO TRY ANOTHER
IF TOPS-20,<
PUSHJ P,.DTOPN## ;OPEN THE DATA FILE
>
CONT.
;NOW THE PRIMARY OUTPUT FILE
SETUP3: MOVSI N,-EXTN ;NOW FIND CORRESPONDING OUT EXT
IF TOPS-10,<
HLLZ B,LKPBLK+.RBEXT ;JUST THE EXT
> ;END TOPS-10
IF TOPS-20,<
HRROI A,.STEMP## ;WHERE TO PUT ANSWER
HRRZ B,OPNBLK ;JFN
MOVX C,<1B11> ;JUST DO EXTENSION
JFNS ;CONVERT TO ASCII
MOVE A,[POINT 6,B] ;POINTER FOR SIXBIT
MOVE C,[POINT 7,.STEMP##]
MOVEI N1,3 ;MAX LENGTH
SETZB B,INEXT ;CLEAR ANSWER
SETU30: ILDB D,C ;GET A BYTE
JUMPE D,SETU3C ;NOT 3 CHARS
SUBI D," "-' ' ;MAKE SIXBIT
IDPB D,A ;SAVE
SOJG N1,SETU30 ;DO 3 CHARS
ILDB D,C ;GET FORTH CHAR
JUMPN D,SETU3C ;MUST BE ZERO FOR 3 CHAR EXT
> ;END TOPS-20
MOVEM B,INEXT ;SAVE INPUT EXTENSION
SETU3A: HLLZ C,EXTTAB(N) ;CHECK INPUT EXT
CAMN B,C ;INPUT IN TABLE?
JRST SETU3D ;YES.
AOBJN N,SETU3A ;NOT THAT ONE. TRY THEM ALL
MOVSI N1,-NSLEXT ;NOT FOUND--TRY SOURCE FILES
SETU3B: HLLZ C,SELEXT(N1) ;GET SAMPLE
CAME B,C ;CHECK
AOBJN N1,SETU3B ;NO--TRY NEXT
JUMPGE N1,SETU3C ;DEFAULT IF UNKNOWN
MOVS N,PLMEXT ;YES--SET TO .PLM
JRST SETU3E ;AND PROCEED
SETU3C: SUBI N,1 ;NOT FOUND--USE LAST ENTRY
SETU3D: MOVS N,EXTTAB(N) ;FOUND. GET OUT EXT FOR IT.
SETU3E: SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST [ANDI N,77 ;YES--SAVE LAST CHAR OF INPUT
TRO N,'TP ' ;INCLUDE .TP?
HRLZS N ;POSITION TO LH
JRST .+1] ;AND PROCEED
HLLOM N,DEFEXT ;SAVE FOR .SCWLD
MOVE A,[4,,[SCNPTR,,[SCNOUT]
OPNBLK,,OPNOUT
LKPBLK,,ENTBLK
DEFEXT,,LN$ENT]]
PUSHJ P,.SCWLD## ;SETUP OUTPUT WILDCARDS
JRST SETER4 ;GIVE UP IF IMPOSSIBLE
IF TOPS-10,<
MOVSI C,H.FOUT
MOVEM C,OPNOUT+2 ;SET BUFFER ADDRESS
OPEN F.FOUT,OPNOUT
JRST WRERR1 ;CANT GET OUTPUT DEVICE
OUTBUF F.FOUT,0 ;ALLOCATE DEFAULT OUTPUT BUFFERS
CONT.
MOVE A,LKPBLK+.RBVER ;GET VERSION OF INPUT
SKIPN ENTBLK+.RBVER ;UNLESS SET,
MOVEM A,ENTBLK+.RBVER ;STORE FOR OUTPUT
SKIPG A,LKPBLK+.RBSIZ ;GET ACTUAL INPUT SIZE
MOVEI A,0 ;(IGNORE IF .LE. 0)
LSH A,-7 ;CONVERT TO BLOCKS
SKIPN ENTBLK+.RBEST ;UNLESS SET,
MOVEM A,ENTBLK+.RBEST ;SAVE AS ESTIMATED LENGTH
MOVEI A,0 ;SET FOR EXTENDED
SKIPL B ;IF NOT DISK
MOVEI A,2 ;CHANGE TO SHORT
ENTER F.FOUT,ENTBLK(A) ;ENTER FILE
JRST WRERR2 ;IF ERROR, GO GIVE UP
MOVEI A,F.FOUT ;POINT TO OUTPUT CHANNEL
DEVNAM A, ;GET PHYSICAL NAME
MOVE A,OPNOUT+1 ;(OLD MONS, GET LOG NAME)
GETLIN B, ;GET TTY NAME
CAMN A,B ;SEE IF THE SAME
SETOM TTISOT ;YES--SET FLAG TO SUPPRESS INFO MESSAGES
MOVEI A,F.FOUT ;POINT TO CHANNEL [203]
DEVCHR A, ;GET CHARACTERISTICS [203]
TXNE A,DV.TTY ;SEE IF A TTY [203]
SETSTS F.FOUT,IO.SUP ;YES--SUPPRESS ECHO [203]
> ;END TOPS-10
IF TOPS-20,<
HRRZ A,OPNOUT ;GET OUTPUT JFN
MOVX B,<7B5+1B20>
OPENF ;OPEN OUTPUT FILE
JRST WRERR1 ;CAN NOT OPEN FILE
STORE A,PMAPZ,PMAPEZ,0 ;CLEAR TEMPS
HRRZ A,OPNOUT ;GET OUTPUT JFN
DVCHR ;SEE IF DISK
TLNE B,777 ; ..
JRST RNGO ;NOT A DISK
HRRZ A,.JBHRL ;GET END OF HISEG
ADDI A,1 ;POINT TO FIRST FREE
TDNE A,[-1,,777] ;WAS .JBHRL GOOD?
HALT . ;SOMEONE BROKE LINK
LSH A,-9 ;GET PAGE #
MOVEM A,PMAPPG ;SAVE PAGE NUMBER
MOVN A,A ;GET NUMBER OF PAGES TO
ADDI A,700 ; PMAP IN ONE CHUNK
MOVEM A,PMAPF ;REMEMBER THAT
> ;TOPS-20
JRST RNGO ;NO GO INTO THE REAL PROGRAM, SETUP DONE.
;ERRORS DURING SPECIFICATIONS
IF TOPS-10,<
RDERR1: PUSHJ P,E.DFO## ;OPEN ERROR
JRST RUNOF1 ;GO TRY AGAIN
RDERR2: HRRZ A,LKPBLK+.RBEXT ;GET ERROR CODE
JUMPN A,RDER2E ;UNLESS NOT FOUND, GO GIVE ERROR
MOVX B,FX.NUL ;SEE IF NULL EXTENSION
TDNE B,.FXMOD(X) ; ..
AOBJN S1,.+2 ;YES--SEE IF MORE NAMES TO TRY
JRST RDER2E ;NO--GO GIVE ERROR NOW
HLLZ B,EXTTAB(S1) ;ELSE, GET NEXT CHOICE
MOVEM B,LKPBLK+.RBEXT ;SET FOR LOOKUP
JRST SETUP2 ;GO BACK AND TRY IT
RDER2E: PUSHJ P,E.DFL## ;LOOKUP ERROR
JRST SETER4 ;RELEASE INPUT AND TRY AGAIN
> ;END TOPS-10
WRERR1: SETZM SCNLOC ;CLEAR WILD SCAN
PUSHJ P,E.SCO## ;ERROR--OUTPUT OPEN
JRST SETER4 ;FINISH UP
IF TOPS-10,<
WRERR2: PUSHJ P,E.SCL## ;ENTER ERROR
JRST SETER3 ;FINISH UP
RDERR3: MSG$ NID,ERR,,No input device
PUSHJ P,.TSPAC## ;TYPE A SPACE
MOVE A,.FXDEV(X) ;GET INPUT DEVICE
PUSHJ P,.TSIXN##
> ;END TOPS-10
SETER2: PUSHJ P,.TCRLF
IF TOPS-10,<
SETER3: RELEAS F.FOUT,
SETER4: RELEAS F.FIN,
> ;END TOPS-10
IF TOPS-20,<
SETER3: HRRZ A,OPNOUT
CLOSF
JFCL
SETER4: HRRZ A,OPNBLK
TLO A,(1B0)
CLOSF
JFCL
> ;TOPS-20
JRST RUNOF1
EXTTAB: ;TABLE OF XWD DEFAULT INPUT EXTENSION, OUTPUT EXT.
SIXBIT /RNOMEM/ ;FIRST IS DEFAULT INPUT IF WILDCARD
;KEEP REST IN ALPHABETIC ORDER
SIXBIT /RNBBLB/
SIXBIT /RNCCCO/
SIXBIT /RNDDOC/
SIXBIT /RNEERR/
SIXBIT /RNHHLP/
PLMEXT: SIXBIT /RNLPLM/
SIXBIT /RNMMAN/
SIXBIT /RNPOPR/
SIXBIT /RNSSTD/
SIXBIT / MEM/ ;LAST IS DEFAULT OUTPUT EXTENSION
EXTN==.-EXTTAB
;HERE WHEN FILES OPENED
RNGO: MOVE A,[FLASTD,,CCTABL]
BLT A,CCTEND ;PRESET .FLAG TABLE
HLRZ D,INEXT ;GET EXTENSION
SETOM GCSCH ;NO SAVED CHARACTER
SETOM ULMCH ; ..
SKIPL A,SCNLPP ;GET /LINES:N
CAIGE A,12 ;MAKE SURE AT LEAST MIN
MOVEI A,AD.LPP ;INITIAL LENGTH OF PAGE
SKIPGE SCNPAG ;IF NO /NOPAGING OR /PAGING
CAIE D,'RNH' ;SEE IF HELP FILE
SKIPN SCNPAG ;NOT HELP--SEE IF /NOPAGING
HRLOI A,INFIN ;YES--SET INFINITY [205]
MOVEM A,PNLPG
MOVEM A,NLPG
MOVEI A,AD.WID ;INITIAL RIGHT MARGIN
CAIN D,'RNH' ;SEE IF HELP FILE
MOVEI A,HRMRG ;YES--GET SPECIAL WIDTH
SKIPL SCNWID ;IF /WIDTH,
MOVE A,SCNWID ; GET IT INSTEAD
MOVEM A,PRMRG
MOVEM A,RMARG
STORE A,LMARG,,ILMRG ;SET INITIAL LEFT MARGIN
SKIPN SCNNMB ;IF /NONUMBERING,
SETOM FLNUMB ; SET .NONUMBER
SKIPGE A,SCNOVR ;OVER SWITCH ON?
MOVEI A,AD.OVR ;NO
IDIVI A,^D8 ;THIS FOR TABS
MOVEM A,FILOVT ;SAVE TABS OVER
MOVEM B,FILOVR ;SAVE SPACES OVER
MOVEI A,ILPGNO ;INITIAL PAGE NUMBER
MOVEM A,PAGENO
PUSHJ P,SETRNG ;SET L.SUPO IF NOT IN /RANGE
MOVEI A,IPARIN ;INITIAL PARAGRAPH INDENTING
MOVEM A,PARIND
STORE A,PARSPC,,IPARVS ;DEFAULT VERT SPACING OF PARAGRAPHS
MOVEI A,IPARTP ;INITIAL
MOVEM A,PARTPG ; PARAGRAPH TEST PAGE
MOVEI PA,LINBF ;INITIALIZE LINE INPUT POINTER
PUSHJ P,CSP
MOVEM A,LNIN1 ;STORE.
MOVEM B,LNIN2 ; ..
SKIPGE A,SCNCAS ;GET SWITCH CASE
MOVEI A,AD.CAS ;NONE--DEFAULT TO UPPER
MOVE A,[ULCAS
0]-1(A) ;CONVERT TO INTERNAL FORMAT
MOVEM A,FILCAS ;SET INITIAL FILE CASE
MOVEM A,CAS ;STORE CURRENT FILE CASE
CONT.
SKIPGE A,SCNSPG ;GET /SPACING SWITCH
MOVEI A,AD.SPC ;NONE--GET DEFAULT
MOVEM A,NSPNG ;STORE AS INITIAL VALUE
SKIPG A,SCNHDR ;SEE IF /HEADER
MOVEI A,AD.HDR ;NO--USE DEFAULT
MOVEM A,FILHDR ;INITIALIZE SETTING
SKIPGE SCNPAG ;SEE IF /PAGING OR /NOPAGING
CAIE D,'RNH' ;NO--SEE IF HELP FILE
SKIPN SCNPAG ;NOT HELP--SEE IF /NOPAGING
JRST [SETOM FLNOPG ;HELP OR /NOPAGING--SET .NO PAG
SETOM FLNHDR ; AND .NO HEAD
JRST .+1] ;AND PROCEED
MOVEI A,AD.UND ;GET DEFAULT /UNDERLINE
TLNE F,L.ULIN ;SEE IF /UNDERLINE:SEPARATE
MOVEI A,ADSUND ;YES--DIFFERENT DEFAULT
SKIPG ULCHO ;SEE IF USER GAVE /UNDERLINE
MOVEM A,ULCHO ;NO--SUPPLY DEFAULT
MOVE A,[IOWD 3*LN$IFS,IFSTK] ;[244] IF STACK POINTER
MOVEM A,IFSTKP ;[244] STORE FOR .IF
HRRZ PA,.JBFF ;GET FREE AREA
MOVEM PA,XTOP ;INITIAL INDEX POINTERS
MOVEM PA,XBOT ; ..
IF TOPS-10,<
HRRZ PA,.JBREL ;INITIALIZE FOOTNOTE STUFF
SUBI PA,^D200 ;SPACE FOR SOME FOOTNOTES?
HRRZ A,.JBFF ; ..
CAIL A,0(PA) ; ..
JRST [ADDI PA,^D1000 ;NO. ASK FOR MORE CORE
CORE PA, ; ..
JFCL ;BUT DONT PANIC IF NOT THERE
JRST .+1]
HRRZ PA,.JBREL ;GIVE HALF OF CORE TO FOOTNOTES
> ;END TOPS-10
IF TOPS-20,<
MOVEI PA,RUNOFF-11 ;TOP OF LOWSEG
HRRZ A,.JBFF ;END OF USED CORE
> ;END TOPS-20
SUBI PA,0(A) ;AND HALF TO INDEX
ASH PA,-1 ; ..
ADDI PA,0(A) ;.JBFF PLUS HALF DIFFERENCE
HRRZM PA,FOOTBF ;SAVE FOR COMPARISON LATER
HRRZM PA,INIFBF ;SAVE SE WE CAN TELL IF MOVED
PUSHJ P,CSP ; ..
MOVEM A,FOOTP1 ;STORE
MOVEM B,FOOTP2
MOVEM A,FOOTP3 ;IN BOTH POINTERS
MOVEM B,FOOTP4
CONT.
MOVEI PA,CMEBFP ;POINT TO COMMAND ERROR BUFFER
MOVEI A,CMEBF ;WORD ADDRESS
MOVEI B,CMEBFL ;WORD LENGTH
PUSHJ P,ICI ;INITIALIZE CHARACTER POINTERS
MOVEI PA,SLIN ;POINT TO POINTERS
MOVEI A,SLINBF ;WORD ADDRESS
MOVEI B,SLINBL ;WORD LENGTH
PUSHJ P,ICI ;SET INITIAL POINTERS
MOVEI PA,TECBFP ;POINT TO BUFFER FOR TEST END
MOVEI A,TECBF ;WORD ADDRESS
MOVEI B,LN$TEC ;WORD LENGTH
PUSHJ P,ICI ;INITIALIZE CHARACTER POINTERS
MOVSI A,-LN$TAB ;LENGTH OF TAB STOP TABLE
MOVEI B,0 ;PRESET TO 8,16,24,...
INTABL: ADDI B,8 ;ADVANCE TO NEXT
MOVEM B,TABTAB(A) ;STORE
AOBJN A,INTABL ;LOOP FOR ENTIRE TABLE
HRRZM A,NTABS ;STORE NUMBER WE SET
MOVE B,SCNTYP ;GET /TYPESET SWITCH
CAIN B,TYPLPT ;IF /TYPESET:LPT
SETZM B ; TREAT AS NORMAL OUTPUT
MOVEI A,1 ;SET 1/1
SKIPLE B ;UNLESS TYPESETTING (NOT LPT)
MOVEI A,TYPSWD ;GET TYPESETTING WIDTH
MOVEM A,TYPMUL ;STORE AS SPACING MULTIPLIER
SKIPLE B ;UNLESS TYPESETTING (NOT LPT)
MOVE A,PRMRG ;GET PAGE WIDTH
MOVEM A,TYPDIV ;STORE AS SPACING DIVISOR
MOVEI A,FOUTCS ;PRESET FILE
SKIPLE SCNTYP ; OUTPUT ROUTINE
MOVEI A,OUTTYP ;IF TYPESETTING--MUST CONVERT
MOVEM A,FOUTCH ;STORE
CONT.
HLRZ B,INEXT ;GET EXTENSION
MOVSI A,-NSLEXT ;LENGTH OF SELECTION TABLE
RNGSEL: HLRZ C,SELEXT(A) ;GET EXTENSION
CAME C,B ;SEE IF SAME
AOBJN A,RNGSEL ;NO--LOOP
HRRZ A,SELEXT(A) ;GET SELECTION ADDRESS
MOVE B,SCNSEL ;GET /SELECT VALUE
AOSE B ;SEE IF DEFAULT
MOVEI A,SCNSEL ;A NOW POINTS TO DEFAULT
SKIPE A ;IF NO DEFAULT
SKIPN B,(A) ;OR NO VALUE,
JRST RNGNSL ; SUPPRESS SELECTION
CAIN B,1 ;SEE IF /NOSELECT
JRST RNGNSL ;YES--NO SELECTION
TRO F,R.SLCT!R.SLLK ;SET .SELECTION MODE
MOVSI C,-4 ;COUNT OF MASK SIZE
RNGYSL: MOVEI A,0 ;CLEAR JUNK
LSHC A,7 ;PEEL OUT NEXT CHAR
MOVEM A,SELPFX(C) ;STORE IN ARRAY
AOBJN C,RNGYSL ;LOOP
RNGNSL: AOS DIDSOM ;FORCE FIRST WAIT
SKIPLE SCNSIM ;FORMFEED OR LF'S?
JRST RNG1 ;LINEFEEDS. REQUEST POSITIONING
SKIPL TTISOT ;SEE IF TTY: OUTPUT
SKIPLE SCNPAU ;OR IF PAUSE MODE IS ON
PUSHJ P,FRCFRM ;YES--FORCE FORM FEED
JRST RNG2 ;AND GO.
RNG1: MOVEI A,[ASCIZ \
Position paper, type space.
\]
PUSHJ P,.TSTRG ;ASK FOR POSITIONING
PUSHJ P,BPGXY ;WAIT FOR A CHARACTER
CONT.
RNG2: SKIPG SCNTYP ;SEE IF TYPESETTING
JRST RNG3 ;NO--PROCEED
MOVEI A,FOUTTT ;SET FOR FILE OUTPUT FROM .TOUTS
PUSHJ P,.TYOCH## ; GET BACK ORIGINAL
SAVE$ A ;SAVE FOR RESTORE
MOVEI A,[ASCIZ \<RUNOFF version \]
PUSHJ P,.TSTRG## ;ISSUE COMMENT
MOVE A,.JBVER ;GET OUR VERSION
PUSHJ P,.TVERW## ;ISSUE IT
MOVEI A,[ASCIZ \ run on \]
PUSHJ P,.TSTRG## ;ISSUE COMMENT
PUSHJ P,.TDATN## ;ISSUE TODAY'S DATE
IF TOPS-10,<
MOVEI A,[ASCIZ \
from file \]
PUSHJ P,.TSTRG## ;ISSUE COMMENT
MOVE A,LKPBLK+.RBNAM ;GET FILE NAME
PUSHJ P,.TSIXN## ;ISSUE IN SIXBIT
MOVEI A,"." ;GET SEPARATOR
PUSHJ P,.TCHAR## ;ISSUE
HLLZ A,LKPBLK+.RBEXT ;GET EXTENSION
PUSHJ P,.TSIXN## ;ISSUE IN SIXBIT
MOVEI A,[ASCIZ \ created \]
PUSHJ P,.TSTRG## ;ISSUE COMMENT
LDB A,[POINTR (LKPBLK+.RBEXT,RB.CRX)]
MOVE B,LKPBLK+.RBPRV ;GET REST OF CREATION
LSH B,^L<RB.CRD> ;ABUT EXTENSION OF DATE
LSHC A,WID(RB.CRD) ;FORMAT TOGETHER
PUSHJ P,.TDATE## ;ISSUE IT
PUSHJ P,.TSPAC## ;SPACE OVER
LDB A,[POINTR (LKPBLK+.RBPRV,RB.CRT)]
IMULI A,^D60000 ;CONVERT TO MILLI-SEC.
PUSHJ P,.TTIME## ;ISSUE THAT
> ;END TOPS-10
MOVEI A,[ASCIZ \>[*CAT]\]
MOVE B,SCNTYP ;GET /TYPESET
CAIN B,TYPLPT ;IF /TYPESET:LPT
MOVEI A,[ASCIZ \>[*LPTR]\] ; USE SPECIAL SETUP
CAIN B,TYPTXT ;IF /TYPESET:TXT
MOVEI A,[ASCIZ \>[*TXT6]\] ; USE ITS SETUP
PUSHJ P,.TSTRG## ;ISSUE MACRO TO START TYPESETTING OFF
PUSHJ P,LRMTYP ;ISSUE INITIAL MARGINS
PUSHJ P,.TCRLF## ;CLEAN LINE
RSTR$ A ;RESTORE ORIGINAL TYPER
PUSHJ P,.TYOCH## ;TELL .TOUTS
PUSHJ P,STSTYP ;SET TAB STOPS FOR TYPESETTING
RNG3: PUSHJ P,LINSET ;SET UP FOR LINE
PUSHJ P,LINDFN ;INITIALIZE TO NORMAL CASE RULES
JRST LGO ;AND INTO MAIN LOOP, LINE INPUT
;TABLE OF XWD EXTENSION,ADDRESS OF DEFAULT .SELECTION
;+
;^THE TABLE "<SELEXT" IS A SET
;OF PAIRS OF FILE EXTENSION AND DEFAULT .<SELECT
;MODE FOR THAT EXTENSION. ^EVERY LANGUAGE'S EXTENSION SHOULD
;APPEAR HERE IN THE FORM OF 'EXTENSION',,ADDRESS OF SELECTION
;SO THAT THE PROGRAM LOGIC MANUAL OF ANY PROGRAM CAN BE
;OBTAINED BY THE <RUNOFF COMMAND _<FILE NAME_>. ^THE USER
;DOES NOT NEED TO REMEMBER THE COMMENTING CONVENTION FOR EACH
;LANGUAGE TO EXTRACT THE PROGRAM'S DOCUMENTATION. ^IF A PROGRAM
;NEEDS ITS DOCUMENTATION TO BE FLAGGED BY NON-STANDARD CHARACTERS,
;IT SHOULD START WITH A .<SELECT COMMAND UNDER THE STANDARD
;CONVENTION. ^THIS COMMAND WILL THEN SWITCH THE FILE TO ITS
;OWN SELECTION MODE.
;-
SELEXT: ;SELECTION TABLE
'ALG',,SELEXL ;ALGOL
'BAS',,SELQUT ;BASIC
'BLI',,SELEXL ;BLISS
'B10',,SELEXL ;BLISS-10
'B11',,SELEXL ;BLISS-11
'FAI',,SELEXL ;FAIL
'FOR',,SELEXL ;FORTRAN-10
'F40',,SELEXL ;F40
'MAC',,SELSEM ;MACRO-10
'N ',,SELNEL ;NELIAC
'PAL',,SELSLH ;PAL-10
'P11',,SELSEM ;MACY-11
NSLEXT==.-SELEXT ;LENGTH
0,,0 ;MUST BE END
;TABLES OF DEFAULT .SELECTIONS
;+
;^THE FOLLOWING ARE THE STANDARD .<SELECT SETTINGS
;FOR EACH LANGUAGE:
;.LEFT MAR 5.TAB STOP 5,25.NOFLAGS
;SWITCH TO -&+- TO AVOID PATTERN IN SELSEM
;-.SELECT -
SELEXL: ASCIZ /!&+-/ ;-&. ;MOST LANGUAGES ! & + -
SELNEL: ASCIZ /!!/ ;-&. ;NELIAC ! !
SELQUT: ASCIZ /'&+-/ ;-&. ;BASIC ' & + -
SELSEM: ASCIZ /;&+-/ ;-&. ;ASSEMBLERS ; & + -
SELSLH: ASCIZ \/&+-\ ;-&. ;PAL-10 / & + -
;-&.FLAGS ;.SELECT _;
;&.LEFT MAR 0
;&^WHERE THE CHARACTERS ARE GIVEN IN
;&THE SAME ORDER AS IN THE .<SELECT COMMAND.
;HERE AT END OF FILE
ENDFL1: PUSHJ P,BPAGE ;OUTPUT TO TOP OF PAGE, TO GET FOOTNOTES
ENDFIL: PUSHJ P,OUTNJ ;FINISH LAST LINE
MOVE A,FOOTP3 ;ARE THERE ANY REMAINING FOOTNOTES?
CAME A,FOOTP4 ; ..
JRST ENDFL1 ;YES. FORCE THEM OUT.
SKIPL TTISOT ;PAGE IF TTY OUTPUT
SKIPLE SCNPAU ;PAGE IF IN PAUSE MODE
PUSHJ P,FORM ;TO TOP OF FORM
MOVE A,IFSTKP ;[244] GET IF STACK POINTER
CAME A,[IOWD 3*LN$IFS,IFSTK] ;[244] UP TO TOP?
JRST E$$TFE ;[244] NO--SAY TOO FEW END COMMANDS
SKIPN MJSPDL ;SEE IF NOTE/LS PDL EMPTY
JRST ENDF2 ;YES--OK
MSG$ TFE,WRN,,Too few end commands
PUSHJ P,.TCRLF ;END LINE
ENDF2: PUSHJ P,NEGINC ;CATCH ANY REMAINING NEG IND MESSAGES
SKIPGE TTISOT ;SEE IF TTY: OUTPUT
JRST ENDFLX ;YES--SUPPRESS INFO
IF TOPS-10,<
SKPINL
JFCL ;TURN CONTROL-O OFF
> ;END TOPS-10
PUSHJ P,ISUFLN ;NO--ISSUE IT
PUSHJ P,.TTABC## ;TAB OVER
MOVE A,PAGECT ;HOW MANY PAGES?
SKIPE LINECT
AOS A,PAGECT ;ROUND UP IF PARTIAL PAGE
PUSHJ P,.TDECW##
MOVEI A,[ASCIZ / pages
/]
MOVE N,PAGECT ;IN CASE IT'S ONE.
CAIN N,1 ;GET THE GRAMMAR RIGHT
MOVEI A,[ASCIZ / page
/]
PUSHJ P,.TSTRG## ;AND TEXT
ENDFLX:
IF TOPS-10,<
RELEAS F.FIN, ;LET GO OF INPUT FILE
> ;END TOPS-10
IF TOPS-20,<
HRRZ A,OPNBLK ;GET THE INPUT JFN
TLO A,(1B0) ;DO NOT RELEASE JFN
CLOSF ;CLOSE THE INPUT FILE
SKIPA ;ERROR
JRST ENDFA ;CLOSED OK
MSG$ ECI,ERR,,ERROR CLOSING INPUT FILE
ENDFA:> ;END TOPS-20
IF TOPS-10,<
RELEAS F.FOUT, ;RELEASE OUTPUT FILE
> ;END TOPS-10
IF TOPS-20,<
HRRZ A,OPNOUT ;GET OUTPUT JFN
HRLI A,12
MOVE B,BYTECT
SETOM C
SKIPE B
CHFDB ;SET CORRECT BYTE COUNT
HRLI A,11
MOVX B,7B11
MOVX C,77B11
SKIPE BYTECT
CHFDB
SETOM A
HRLI B,.FHSLF
HRR B,PMAPPG
MOVE C,PMAPF
TXO C,PM%CNT
SKIPE BYTECT
PMAP
HRRZ A,OPNOUT ;GET JFN AGAIN
CLOSF ;CLOSE FILE
SKIPA ;ERROR
JRST RUNOF1 ;CLOSED OK
MSG$ ECO,ERR,,ERROR CLOSING OUTPUT FILE
> ;END TOPS-20
JRST RUNOF1
SUBTTL INPUT SECTION
;+
;.CHAPTER TEXT INPUT LOGIC
;
;^THE MAIN TEXT CHARACTER INPUT LOOP STARTS AT THE
;LABEL "<LIN". ^AFTER EACH CHARACTER IS PROCESSED
;CONTROL RETURNS TO "<LIN" IF THE LAST CHARACTER WAS
;A TAB OR SPACE AND TO "<LIN1" IF NOT. ^DURING THE
;TEXT SCAN, A TWO ENTRY HISTORY IS KEPT OF THE LAST
;TWO CHARACTERS SEEN IN LOCATION "<LCH".
;^THIS TEXT LOOP HANDLES SPACES, TABS, AND
;LINE FEEDS SPECIALLY. ^EVERYTHING ELSE IS JUST ACCUMULATED
;UNTIL THE INPUT BUFFER IS FULL ENOUGH TO GENERATE SOME
;OUTPUT. ^WHEN THAT IS SO, THE OUTPUT ROUTINE "<OUTLJ"
;IS CALLED, AND THEN INPUT SCANNING IS RESUMED.
;-
LIN: SKIPG LINEC ;SEE IF NEW PAGE
PUSHJ P,HEADIN ;YES--GET IT BEFORE PROCEEDING
HRRZ CH,LCH ;GET LAST CHAR
CAIE CH,C.NXS ;SEE IF NON-EXPANDABLE SPACE
CAIN CH,C.SPC ;OR REGULAR SPACE
SKIPA ;YES--SAVE
SETZM LCH ;ELSE--CLEAR CHAR MEMORY
LIN1: PUSHJ P,GCIN ;READ CHARACTER WITH PRE-TRANSLATE
TXNE CH,LCHPVT ;SEE IF QUOTED
AOS LINNSC ;YES--COUNT NON-SPACING QUOTE
CAIN CH,.CHTAB ;TAB?
SKIPLE SCNTYP ; UNLESS TYPESETTING
SKIPA ;NO
JRST LTAB ;YES. SPECIAL HANDLING
CAIN CH,.CHLFD ;LINE FEED?
JRST LGO ;YES. GO LOOK FOR NEXT COMMAND
MOVE A,CH ;GET CHARACTER
ANDI A,CHRMSK ;MASK TO ASCII
CAIG A,C.FLGS ;SOME OTHER INTERNAL FLAG?
JRST LINNS ;YES. TREAT AS NON-SPACING
CAIE CH,C.NXS ;NON EXPANDABLE SPACE?
CAIN CH,C.SPC ;OR REGULAR SPACE?
JRST LSPAC ;YES. GO HANDLE SPACING
LIN3: PUSHJ P,WLNIN1 ;WRITE CHAR IN INPUT BUFFER
PUSHJ P,SLCH ;SAVE LAST CHARACTER
SOSL LINBK ;TIME TO BREAK LINE YET?
JRST LIN1 ;NO. LOOP FOR MORE
PUSHJ P,OUTLJ ;YES. OUTPUT LINE,JUSTIFIED IF FLAGS
; SAY SO, AND SET FOR NEXT LINE
JRST LIN1 ;PROCESS NEXT LINE.
LINNS: PUSHJ P,WLNIN1 ;WRITE CHAR IN LINE BUFFER
PUSHJ P,SLCH ;SAVE LAST CHARACTER
AOS LINNSC ;COUNT NON-SPACING CHARACTERS
CAIN CH,LCHPVT+"H"-100 ;[237] BACKSPACE?
AOS LINNSC ;[237] YES--COUNT IT TWICE
JRST LIN1 ;BACK INTO LOOP
;ROUTINE TO SAVE LAST TWO CHARACTERS LOOKING FOR TWO ALPHAS
;+
;^THE ROUTINE "<SLCH" MAINTAINS THE HISTORY BUFFER WORD,
;"<LCH". ^THIS ALWAYS HAS THE LAST TWO CHARACTERS STORED
;IN THE INPUT BUFFER EXCEPT THAT IT IS CLEARED AT THE BEGINNING
;OF EACH INPUT LINE AND AFTER EACH SPACE AND TAB.
;-
SLCH: CAIN CH,C.ULS ;IGNORE UNDERLINES
POPJ P, ; ..
REPEAT 0,< ;NO LONGER GOOD IDEA [EDIT 153]
TRZ F,R.LASA ;CLEAR FLAG
HLRZ A,LCH ;GET OLDEST CHAR
ANDI A,CHRMSK ;STRIP FLAGS
CAIG A,"Z"+ULCAS ;SEE IF ALPHA
CAIGE A,"A" ; ..
JRST SLCHX ;NO
CAIGE A,"A"+ULCAS ; ..
CAIG A,"Z" ; ..
SKIPA ;OK
JRST SLCHX ;NO
HRRZ A,LCH ;GET LAST CHAR
ANDI A,CHRMSK ;STRIP FLAGS
CAIG A,"Z"+ULCAS ;SEE IF ALPHA
CAIGE A,"A" ; ..
JRST SLCHX ;NO
CAIGE A,"A"+ULCAS ; ..
CAIG A,"Z" ; ..
SKIPA ;OK
JRST SLCHX ;NO
TRO F,R.LASA ;FLAG TWO ALPHAS
>;END REPEAT 0 [EDIT 153]
;HERE WHEN DONE
SLCHX: HRL CH,LCH ;MOVE LAST OVER
MOVEM CH,LCH ;STORE THIS AS LAST
TLZ CH,-1 ;CLEAR JUNK [153]
POPJ P, ;RETURN
;SUBROUTINE TO INITIALIZE COUNTS AND POINTERS FOR A NEW LINE
;+
;^THE ROUTINE "<LINSET" IS USED TO INITIALIZE THE TEXT
;INPUT BUFFER. ^IT RESETS THE POINTERS, INTIALIZES THE
;COUNTERS AND CLEARS OUT ANY HISTORY FROM THE PREVIOUS
;LINE. ^WHILE SCANNING INPUT TEXT, THE FOLLOWING ARE MAINTAINED:
;.TAB STOP 10
;. ;<LINBK A DOWN COUNTER OF OUTPUT SPACE
;. ;<LNINCT A DOWN COUNTER OF INPUT TEXT BUFFER SPACE
;. ;<SPCNT A COUNT OF SPACES IN THE INPUT
;. ;<NSPCH A COUNT OF NON-SPACING CHARACTERS
;. ;<CPOS THE OUTPUT POSITION COUNTER
;. ;<LINNSC A COUNT OF NON-SPACING CHARACTERS IN THE INPUT BUFFER
;-
LINSET: MOVE A,RMARG ;COMPUTE REAL WIDTH OF LINE
SUB A,LMARG ;AS DIFFERENCE OF MARGINS
SUB A,INDCT ;MINUS INDENTING
MOVEM A,LINBK ;STORE IN LINE-BREAK COUNT
MOVEI A,5*LN$LIN ;GET MAX CHARS IN LINE BUFFER
MOVEM A,LNINCT ;SET INTO COUNTER
SETOM SPCNT ;INITIAL COUNTS OF SPACING
SETZM NSPCH ; AND NON-SPACING CHARS
SETZM CPOS ;CARRIAGE POSITION IS FAR LEFT
SETZM LINNSC ;NO NON-SPACING CHARACTERS
MOVEI A,ULPBF ;UNDERLINE POSITION BUFFER AT START
MOVEM A,ULPOS ; ..
MOVE A,LNIN1 ;CLEAR LINE INPUT BUFFER BY MOVING
MOVEM A,LNIN2 ; END POINTER BACK TO START
MOVEM A,LSTSP ;SET LAST SPACING CHARACTER BACK HERE
SOS LSTSP ;MINUS ONE, SO OFF START OF BUFFER
PJRST LINUPC ;UPDATE THISXX PAGE COUNTS
;HERE ON TAB DURING LINE INPUT
;+
;^WHEN A TAB IS SEEN WHILE PROCESSING THE INPUT TEXT, THE
;PROGRAM TRANSFERS TO LOCATION "<LTAB". ^THE CURRENT
;HORIZONTAL POSITION IS COMPUTED AND THE TAB STOP TABLE
;IS EXAMINED TO FIND THE NEXT POSITION. ^IF THIS TAB IS BEYOND
;THE TABLE OR WOULD BE BEYOND THE RIGHT MARGIN, IT IS TREATED
;AS A SPACE BY JUMPING TO "<LSPAC".
;^IF THE TAB IS REASONABLE, IT IS THEN
;REPLACED BY THE RIGHT NUMBER OF QUOTED SPACES. ^ALSO,
;ALL PREVIOUS SPACES ON THE SAME LINE ARE REPLACED BY
;QUOTED SPACES TO KEEP THEM FROM BEING EXPANDED DURING
;JUSTIFICATION.
;-
LTAB: MOVE A,LNIN2 ;DETERMINE PRESENT POSITION
SUB A,LNIN1
SUB A,LINNSC
ADD A,LMARG
ADD A,INDCT
PUSHJ P,TAB ;FIND WHERE NEXT TAB STOP IS
CAML A,LINBK ;WOULD THAT MANY EQUAL OR EXCEED LINE SIZE?
JRST LSPAC ;YES. TREAT AS SPACE, NOT TAB
MOVN X,A ;NO. NEGATE NUMBER OF SPACES
MOVEI CH,C.NXS ;PUT N NON-EXPANDABLE SPACES IN BUFFER
PUSHJ P,WLNINC ; ..
AOJL X,.-1 ; ..
MOVEI C,C.NXS ;GET A NON-EXPANDABLE SPACE
MOVEI PA,LNIN1 ;POINT TO INPUT STRING
PUSH P,(PA) ;SAVE IT
LTABSL: SKIPGE SPCNT ;ANY SPACES LEFT?
JRST LTABX ;NO--EXIT
LTABS1: PUSHJ P,GCI ;GET NEXT CHAR IN LINE
JRST LTABX ;GIVE UP IF NONE (ERROR?)
CAIE CH,C.SPC ;SEE IF SPACE
JRST LTABS1 ;NO--LOOP ON
DPB C,CBYTAB(B) ;YES--REPLACE WITH NON-EXPANDABLE SPACE
SOS SPCNT ;AND DECREMENT COUNT OF SPACES
JRST LTABSL ;LOOP UNTIL DONE
LTABX: POP P,(PA) ;RESTORE INPUT POINTER
JRST LIN ;AND BACK INTO LINE INPUT ROUTINE
;+
;^WHEN A SPACE IS SEEN IN THE TEXT INPUT SCAN, CONTROL IS
;TRANSFERED TO LOCATION "<LSPAC". ^LEADING SPACES AND MULTIPLE
;SPACES ARE DISCARDED. ^IF THE SPACE WAS PRECEEDED BY A PERIOD,
;EXCLAMATION, QUESTION, COLON, OR SEMI-COLON AND THAT IN TURN
;WAS PRECEEDED BY AT LEAST TWO ALPHABETICS, THEN THE SPACE IS
;DOUBLED. ^IN ANY CASE, THE NUMBER OF SPACES IS COUNTED AND
;THE LAST SPACE SEEN IS MAINTAINED. ^THE CHARACTER IS
;STORED AND THE SCAN RESUMES.
;-
LSPAC: TLNN F,L.FILL ;FILLING INPUT BEYOND BREAKS?
JRST LSPC1 ;NO. SIMPLER PROCESSING
MOVE A,LNIN2 ;FILTER OUT LEADING SPACES
SUBI A,1 ;GET START OF BUFFER MINUS ONE
CAMG A,LSTSP ;IS THAT WHERE LAST SPACE IS?
JRST LIN ;YES. JUST IGNORE THIS SPACE
HRRZ CH,LCH ;GET PREVIOUS CHARACTER. WHAT WAS IT?
CAIE CH,C.SPC ;A SPACE?
CAIN CH,C.NXS ;OR NON-EXPANDABLE SPACE?
JRST LIN ;YES. FILTER MULTIPLE SPACES
;***DELETED TRNE F,R.LASA [153]
TRNE F,R.NPER ;SEE IF .NOPERIOD
JRST LSPC1 ;RIGHT--SKIP SPECIAL TESTS
SKIPLE A,SCNTYP ;SEE IF /TYPESET
CAIN A,TYPLPT ;AND NOT /TYPESET:LPT
SKIPA ;NO--PROCEED
JRST LSPC1 ;YES--DON'T DOUBLE THE SPACE
CAIN CH,C.EXCL ;EXCLAMATION POINT FOLLOWED BY SPACE?
JRST LSPCD ;YES. SPECIAL PROCESSING
CAIE CH,C.COLN ;SEE IF COLON
CAIN CH,C.SEMC ;OR SEMI-COLON
JRST LSPCD ;YES--SPECIAL PROCESSING
CAIE CH,C.QM ;QUEST FOLLOWED BY SPACE, OR
CAIN CH,C.PD ;PERIOD FOLLOWED BY SPACE?
LSPCD: SKIPG LINBK ;YES. ANY MOBE ROOM LEFT?
JRST LSPC1 ;NO. JUST STORE THE SPACE
LSPC0: MOVE A,LNIN2 ;YES. FORCE DOUBLE SPACE ON OUTPUT FILE
MOVEM A,LSTSP ;SAVE POINTER AT LAST (THIS) SPACE.
MOVE A,LINNSC ;POSITION OF LAST NON-SPACING CHARACTER
MOVEM A,LSTNSP ;SAVE AS LST ...
AOS SPCNT ;COUNT SPACING CHARACTER
MOVEI CH,C.SPC ;WRITE THIS SPACE INTO BUFFER
PUSHJ P,WLNINC ; ..
MOVEI CH,C.NXS ;NON-EXPANDABLE SPACE
JRST LIN3 ; TO BUFFER. THUS 2 IF ANY AT ALL AFTER PD
LSPC1: MOVE A,LNIN2 ;HERE TO STORE AND COUNT A SPACE
MOVEM A,LSTSP ;SAVE POSITION OF THIS SPACE
MOVE A,LINNSC ;AND NON-SPACING CHAR POSN
MOVEM A,LSTNSP ; ..
AOS SPCNT ;COUNT THIS SPACE
MOVEI CH,C.SPC ;SPACE CHARACTER (EXPANDABLE)
JRST LIN3 ; ..
;ENTER HERE AFTER INITIALIZATION AND AT START OF EACH LINE.
;+
;^COMMANDS TO <RUNOFF ARE GIVEN ON LINES WHICH START WITH
;THE FLAG CHARACTER ".". ^THIS CHARACTER MUST BE THE
;FIRST CHARACTER OF THE LINE TO BE RECOGNIZED.
;^MULTIPLE COMMANDS CAN BE GIVEN ON ONE LINE BY SEPARATING
;THEM BY THE CHARACTER ";" IN WHICH CASE THE PERIOD FLAG
;CHARACTER FOR THE NEXT COMMAND MUST FOLLOW IMMEDIATELY
;AFTER THE SEMI-COLON (OTHERWISE, THE LINE WOULD BE TREATED
;AS TEXT). ^FOR COMPATABILITY WITH EARLIER VERSIONS OF
;<RUNOFF, A FEW COMMANDS (<TITLE, <SUBTITLE, AND <INDEX)
;DO NOT RECOGNIZE THE SEMI-COLON AS THE END OF THE COMMAND.
;^IF <RUNOFF IS IN .<AUTOPARAGRAPH MODE, A BLANK LINE
;OR A LINE STARTING WITH ONE OR MORE SPACES OR TABS WILL BE
;CONSIDERED THE START OF A NEW PARAGRAPH.
;-
LGO: PUSHJ P,CCIN ;READ INITIAL CHARACTER ON LINE
IFEOF$ ENDFIL ;IF END OF FILE, ALL DONE
CAMN CH,CC.END ;END OF FOOTNOTE?
JRST FOOTND ;YES. GO FINISH FOOTNOTE PROCESSING
LGO1: CAMN CH,CC.CON ;PERIOD AS FIRST CHAR?
JRST CMN ;YES. GO READ COMMAND LINE
TLNN F,L.FILL ;SEE IF FILLING [167]
JRST LGO2 ;NO--IGNORE AUTOPARAG, ETC. [167]
CAIN CH,.CHLFD ;SEE IF LINE-FEED
JRST LGOAP ;YES--MAYBE AUTO PARAGRAPH
CAIE CH,C.SPC ;LEADING SPACE?
CAIN CH,.CHTAB ; OR TAB?
JRST LGOAP ;YES--TRY AUTO PARAGRAPH
TRNN F,R.AUTB ;NO--SEE IF AUTO TABLE
JRST LGO2 ;NO--PROCEED NORMALLY
JRST LGOSAP ;YES--GO SET AUTOPARAGRAPH
LGOAP: TRNN F,R.SPPR ;YES--IN .AUTOPARAGRAPH?
JRST LGO2 ;NO
LGOSAP: MOVEM CH,GCSCH ;YES, SAVE CHAR FOR RE-EATING
PUSHJ P,PARAGF ;MAKE NEW PARAGRAPH
PUSHJ P,RSKIPS ;SKIP COMMAND SPACES AND TABS
SETOM GCSCH ;CLEAR ANY RE-EATING
CONT.
LGO2: CAIN CH,.CHLFD ;LINEFEED ON INPUT?
JRST LGO ;YES. IGNORE IT.
MOVEM CH,GCSCH ;NONE OF ABOVE SPECIAL CASES. SAVE.
;DELETE SETZM LCH [215]
TLZE F,L.NFSP ;SPECIAL HEADER CASE
JRST LIN ;GO START LINE WITHOUT FREE SPACE
TLNE F,L.FILL ;FILLING FROM INPUT FILE?
JRST LSPAC ;YES. TREAT AS IF A SPACE WERE INPUT
MOVE A,LNIN2 ;SEE IF LINE EMPTY
CAMLE A,LNIN1 ; (IF WE DIDN'T, IT WOULD CLEAR INDCT)
JRST LGO3 ;NO--GO OUTPUT [177]
SKIPL SPCNT ;IF SOME SPACES, [177]
AOS SPCNT ; COUNT ONE MORE [177]
JRST LGO4 ;SKIP OUTPUT [177]
LGO3: PUSHJ P,OUTLIN ;NO. OUTPUT THIS LINE
LGO4: PUSHJ P,LINSET ;THEN SETUP FOR NEW LINE
JRST LIN ;AND START ANOTHER.
SUBTTL DOT COMMAND SCANNER
;+
;.CHAPTER DOT COMMAND SCANNER
;-
;READ AND DISPATCH ON COMMAND
;+
;^COMMANDS TO <RUNOFF ARE EXPRESSED AS ONE OR TWO KEY-WORDS
;TO IDENTIFY THE COMMAND FOLLOWED BY OPTIONAL ARGUMENTS.
;^THE KEYWORDS MAY BE ABBREVIATED AS LONG AS ENOUGH LETTERS
;ARE TYPED TO ALLOW THE WORD TO BE RECOGNIZED UNIQUELY.
;^THIS FORM OF ABBREVIATION SHOULD ONLY BE USED TO DROP THE END
;OF VERY LONG COMMANDS BECAUSE THE ABBREVIATIONS ARE NOT
;GUARANTEED INTO NEW VERSIONS OF <RUNOFF.
;^SOME COMMANDS ARE USED SO OFTEN THAT A SINGLE LETTER ABBREVIATION
;HAS BEEN DEFINED. ^FOR THE REST, A TWO
;OR THREE LETTER ABBREVIATION HAS BEEN DEFINED.
;-
CMN: PUSHJ P,STRCMN ;INITIALIZE COMMAND ERROR POINTERS
PUSHJ P,CMGWD ;GET FIRST ALPHABETIC WORD ON COMMAND LINE
JRST CMN1 ;NO ALPHAS THERE. GO CONTEMPLATE.
MOVE S1,[XWD -CMTL1,CMTAB] ;POINTER TO COMMAND FIRST WORDS
CMNREP: PUSHJ P,CMREC ;TRY TO RECOGNIZE ONE.
JRST ILCM ;NO GOOD.
HLRZ A,0(D) ;GET THE DISPATCH ADDRESS
JRST (A) ;AND GO TO IT. PARSE SECOND WORD AT
; THAT CODE IF NEEDED.
CONT.
;+
;^THE FIRST KEY-WORD OF A COMMAND LINE MUST START IN THE
;FIRST COLUMN FOLLOWING THE COMMAND FLAG CHARACTER ".". ^IF THIS
;COLUMN DOES NOT HAVE AN ALPHABETIC IN IT, IT IS
;NOT A KEY-WORD COMMAND. ^IN THIS CASE, IF IT
;IS A SPACE OR TAB, WE HAVE THE ULTIMATE ABBREVIATION FOR A
;_.<BREAK COMMAND. ^SIMILARLY, IF THE LINE CONSISTS OF
;ONLY THE PERIOD (COMMAND FLAG CHARACTER), IT IS A BREAK.
;^IF THE CHARACTER IS "!" OR ";", THEN THE LINE
;IS A COMMENT (".;" IS RECOGNIZED AS A COMMENT FOR
;COMPATABILITY WITH PREVIOUS VERSIONS OF <RUNOFF).
;^FINALLY, IF THE LINE STARTS "..", THEN THIS IS TREATED AS
;THE SAME AS "__." WHICH IS A TEXT CHARACTER ".".
;-
CMN1: CAIE CH,C.SPC ;SPACE?
CAIN CH,.CHTAB ; OR TAB?
JRST $BREAK ;YES--DO A $BREAK
CAIN CH,.CHLFD ;BLANK COMMAND?
JRST $BREAK ;YES--DO A $BREAK
CAIE CH,C.SEMI ;COMMENT?
CAIN CH,C.COMT ; ..
JRST $COMME ;YES. NO ACTION.
CAMN CH,CC.CON ;COMMAND?
JRST LGO2 ;NO--.. IS A TEXT .
JRST ILCM ;OTHERWISE, COMMAND LINE IS ILLEGAL.
$COMME: SETOM GCSCH ;CLEAR ANY RE-EATING
PUSHJ P,ENDCMT ;SKIP COMMENT
JRST ENDCMX ;COMPLETE COMMAND
;+
;^AFTER ALL THE ARGUMENTS FOR A COMMAND ARE FOUND, THE
;ONLY THING WHICH CAN REMAIN ON THE COMMAND LINE ARE
;SPACES, TABS, AND COMMENTS PRECEEDED BY THE CHARACTER "!".
;^COMMAND PROCESSORS WHICH CAUSE AN IMPLICIT BREAK USUALLY RETURN
;TO THE LOCATION "<ENDBCM" WHICH RESETS THE INPUT LINE
;BUFFER, SKIPS FINAL BLANKS AND COMMENTS AND RETURNS TO SCAN
;THE NEXT LINE. ^NOTE THAT THIS ROUTINE DOES NOT ACTUALLY
;FORCE OUT THE RESIDUAL TEXT IN THE LINE BUFFER; THAT IS
;ACCOMPLISHED BY THE INDIVIDUAL COMMAND ROUTINE'S CALLING THE
;ROUTINE "<OUTNJ". ^COMMAND PROCESSORS WHICH DO NOT CAUSE AN
;IMPLICIT BREAK NORMALLY RETURN TO THE LOCATION "<ENDCM" WHICH
;SKIPS FINAL BLANKS AND COMMENTS AND RETURNS TO SCAN THE
;NEXT LINE. ^COMMAND PROCESSORS WHICH HAVE ALREADY SCANNED TO
;THE END OF THE LINE (SUCH AS .<CENTER) RETURN TO THE LOCATION
;"<ENDCMX" WHICH SIMPLY CLEAR COMMAND MODE AND SCANS FOR
;THE NEXT LINE.
;-
ENDBCM: PUSHJ P,LINSET ;SET FOR NEW LINE (BREAK COMMAND)
ENDCM: PUSHJ P,FRCEND ;GO FORCE TO END OF COMMAND LINE
ENDCMX: TRZ F,R.CCOM ;CLEAR COMMAND INDICATOR
PUSHJ P,LINDFN ;CLEAR SPECIAL CASING RULES
JRST LGO ;GO DO NEXT PIECE OF WORK
;+
;^THE ROUTINE "<FRCEND" SKIPS TRAILING SPACES AND TABS AND
;COMMENTS STARTING WITH "!". ^IF IT FINDS ANYTHING ELSE BEFORE
;THE FIRST ";" (MULTIPLE COMMAND INDICATOR) OR END OF LINE,
;IT ISSUES THE WARNING MESSAGE <JEC.
;-
FRCEND: PUSHJ P,RSKIPS ;SKIP OVER SPACES AND TABS
JRST [CAIN CH,C.COMT ;SEE IF COMMENT
JRST ENDCMT ;YES--GO HANDLE
JRST ENDCMN] ;NO--END OF COMMAND
MSG$ JEC,WRN,,<Junk at end of command: ">
PUSHJ P,TYPCOM ;ISSUE COMMAND
;+
;^THE ROUTINE "<ENDCMT" SKIPS ALL CHARACTERS UNTIL THE
;FIRST ";" OR END OF LINE. ^IT IS USUALLY INVOKED WHEN THE
;COMMENT INDICATOR ("!") IS SEEN IN A COMMAND.
;^THE ROUTINE "<ENDCMN" CLEARS COMMAND MODE.
;-
ENDCMT: PUSHJ P,CCIN ;GET NEXT CHAR
CAIE CH,C.SEMI ;SEE IF NEW COMMAND
CAIN CH,.CHLFD ;SEE IF END YET
SKIPA ;YES--RETURN
JRST ENDCMT ;NO--LOOP
ENDCMN: TRZ F,R.CCOM ;CLEAR COMMAND INDICATOR
SETOM GCSCH ;CLEAR ANY RE-EATING
CAMN CH,CC.CON ;SEE IF PERIOD
MOVEM CH,GCSCH ;YES--SET TO RESCAN IT
POPJ P,
;SUBROUTINES FOR COMMAND SCANNER
;+
;^THE ROUTINE "<STRCMN" INITIALIZES A COMMAND LINE AND IS
;USUALLY CALLED AFTER THE COMMAND FLAG (".") IS SEEN.
;-
STRCMN: TRO F,R.CCOM ;SET COMMAND INDICATOR
MOVEI PA,CMEBFP ;POINT TO COMMAND ERROR POINTERS
PJRST RCI ;RESET POINTERS
;+
;^MOST COMMANDS ARE PARSED BY CALLING THE COMMAND GET CHARACTER
;ROUTINE "<CMCIN" WHICH IS THE STANDARD GET CHARACTER ROUTINE
;WITH THE ADDITION THAT LOWER CASE ALPHABETICS (A-Z) ARE
;CONVERTED TO UPPER CASE (^A-^Z).
;
;^THE ROUTINE "<CMCFUC" WILL FORCE A LOWER CASE ALPHABETIC
;INTO UPPER CASE.
;-
CMCIN: PUSHJ P,CCIN ;READ FROM INPUT FILE
CMCFUC: CAIG CH,"Z"+ULCAS ;CHECK FOR LOWER CASE LETTERS
CAIGE CH,"A"+ULCAS ;..
POPJ P, ;NO. RETURN CHARACTER
TRZ CH,ULCAS ;YES. MAKE UPPER CASE FOR COMMAND ROUTINE
POPJ P, ; AND RETURN UC EQUIVALENT
;ILLEGAL COMMAND ROUTINE
;+
;^INCORRECT COMMANDS CAN BE FLAGGED BY JUMPING TO THE ROUTINE
;"<ILCM" FROM THE TOP-LEVEL OF ANY COMMAND PROCESSOR. ^IT
;DISCARDS THE REST OF THE COMMAND LINE AND ISSUES THE FATAL
;MESSAGE <ILC.
;^ALTERNATIVELY, THE COMMAND PROCESSOR CAN INVOKE THE
;MACRO <ILCM$ WHICH WILL ISSUE A SPECIFIC FATAL MESSAGE
;BY JUMPING TO THE LOCATION "<ILCMSG" WITH LH(^A) CONTAINING THE
;ERROR PREFIX AND THE RH(^A) POINTING TO THE MESSAGE
;WHICH SHOULD BE UNDER 28 CHARACTERS LONG. ^EITHER ROUTINE WILL FOLLOW THE MESSAGE
;WITH THE FIRST 30 CHARACTERS OF THE COMMAND AND THE CLOSING
;QUOTE MARK. ^FINALLY, A SECOND LINE WILL BE ADDED WHICH GIVES
;THE INPUT AND OUTPUT FILE LOCATIONS OF THE ERROR.
;-
ILCM: PUSHJ P,ENDCMT ;NOW ADD REST OF LINE
ILCM$ ILC,Illegal command
;HERE FROM MANY ERROR ROUTINES
;INVOKED BY THE ILCM$ MACRO
ILCMSG: PUSHJ P,ERRMSG ;ISSUE ERROR MESSAGE
PUSHJ P,TYPCOM ;TYPE MESSAGE, ETC.
JRST ENDCMX ;GO DISCARD THE REST OF COMMAND LINE
;ROUTINE TO TYPE ERROR MESSAGE, COMMAND LINE, AND LOCATION
;+
;^THE ROUTINE "<TYPCOM" IS CALLED AFTER ISSUING A MESSAGE
;WHICH SHOULD END WITH THE SEQUENCE ':#"'. ^THIS WILL
;BE FOLLOWED BY THE COMMAND LINE TEXT IN ERROR UP TO
;A MAXIMUM OF 30 CHARACTERS FOLLOWED BY A QUOTE. ^THEN
;THE MESSAGE WILL BE FOLLOWED BY ANOTHER LINE WHICH
;GIVES THE INPUT AND OUTPUT FILE LOCATIONS OF THE ERROR.
;^THE ERROR MESSAGE SHOULD BE NO MORE THAN 28 CHARACTERS
;EXCLUDING THE STANDARD PREFIX AND THE ':#"'.
;^THIS WILL ENSURE THAT THE MESSAGE FITS ON ONE 72-COLUMN LINE.
;-
TYPCOM: PUSHJ P,.VERBO## ;GET /MESSAGE
TXNN A,JWW.FL ;SEE IF :NOFIRST
PJRST .TCRLF## ;YES--JUST GIVE END OF LINE
HRRZ A,CC.CON ;GET COMMAND FLAG
PUSHJ P,.TFCHR## ;ISSUE IT
TYPCM1: MOVEI PA,CMEBFP ;READ OUT COMMAND BUFFER
PUSHJ P,GCI ; TO TELETYPE
JRST ILCM4 ;END OF LINE
CAIE CH,C.SEMI ;SEE IF MULT. COMMAND
CAIN CH,.CHLFD ;OR END OF LINE
JRST ILCM4 ;YES--ALL DONE
MOVE A,CH ;GET CHARACTER
ANDI A,CHRMSK ;REMOVE QUOTE
PUSHJ P,.TFCHR## ;TYPE IT
JRST TYPCM1 ;LOOP FOR WHOLE LINE
ILCM4: MOVEI A,""""
PUSHJ P,.TCHAR##
;+
;^ROUTINE "<ONPAG" SHOULD BE CALLED AFTER EVERY ERROR MESSAGE
;TO IDENTIFY THE INPUT AND OUTPUT FILE LOCATIONS OF THE ERROR.
;^IT STARTS WITH A CARRIAGE-RETURN LINE-FEED PAIR, THEN TABS IN
;AND GIVES THE OUTPUT PAGE NUMBER, THE INPUT LINE COUNT FOR THIS
;INPUT PAGE, THE LINE SEQUENCE NUMBER IF THE FILE IS SEQUENCED
;AND THE INPUT PAGE NUMBER. ^IT ENDS WITH A CARRIAGE-RETURN
;LINE-FEED PAIR.
;-
ONPAG: PUSHJ P,.VERBO## ;GET /MESSAGE
TXNN A,JWW.FL ;SEE IF :NOFIRST
PJRST .TCRLF## ;YES--IGNORE THIS LINE
MOVEI A,[ASCIZ /
on output page /]
PUSHJ P,.TSTRG
SAVE$ <B,C>
SKIPN A,SECNUM ;SEE IF CHAPTERS
JRST ONPAG0 ;NO--PROCEED
PUSHJ P,TYPCHP ;YES--GIVE NUMBER
MOVEI A,"-" ;AND
PUSHJ P,.TCHAR ;SEPARATE IT
ONPAG0: MOVE A,PAGENO
PUSHJ P,.TDECW ;OUTPUT PAGE NUMBER
SKIPN A,SUBPGE ;SEE IF IN SUB-PAGE
JRST ONPAG1 ;NO--PROCEED BELOW
ADDI A,"A"-2 ;CONVERT TO LETTER
CAILE A,"Z" ;SEE IF ALPHA
MOVEI A,"?" ;NO--INDICATE OVERFLOW
PUSHJ P,.TCHAR ;TYPE IT ALSO
CONT.
ONPAG1: TLNE F,L.FOOT ;SEE IF IN FOOTNOTE
JRST [MOVEI A,[ASCIZ /; in footnote/]
PUSHJ P,.TSTRG ;YES--DON'T KNOW PAGE
JRST ONPAGX] ;FINISH UP
MOVEI A,[ASCIZ /; on input line /]
PUSHJ P,.TSTRG
MOVE A,INLINE ;GET INPUT LINE NUMBER
PUSHJ P,.TDECW ;TYPE LINE NUMBER
SKIPN B,INSEQN ;SEE IF THIS LINE
MOVE B,INSEQL ;NO--GET PREVIOUS
JUMPE B,ONPAG2 ;GIVE UP IF NEITHER
MOVEI A,[ASCIZ / (line # /]
PUSHJ P,.TSTRG
MOVEI A,B ;POINT TO LITERAL
MOVEI C,0 ;TERMINATE STRING
PUSHJ P,.TSTRG ;TYPE IT
MOVEI A,")" ;CLOSE BRACKET
PUSHJ P,.TCHAR
ONPAG2: MOVEI A,[ASCIZ / of page /]
PUSHJ P,.TSTRG
MOVE A,INPAGE ;GET INPUT PAGE COUNTER
AOS A ;PAGE COUNTER IS ONE SHY
PUSHJ P,.TDECW
ONPAGX: RSTR$ <C,B>
PJRST .TCRLF##
;GET NEXT COMMAND WORD INTO CMBF.
;+
;^THE ROUTINES "<CMGNWD" AND "<CMGWD" ARE USED
;BY COMMAND PROCESSORS TO SCAN ALPHABETIC WORDS FROM A COMMAND
;LINE. "<CMGWD" READS THE NEXT STRING OF ALPHABETICS
;INTO THE COMMAND BUFFER "<CMBF" AND TERMINATES ON THE FIRST
;NON-ALPHABETIC FOUND, WHICH IS LEFT IN ACCUMULATOR <CH
;AND LOCATION <GCSCH.
;"<CMGNWD" DOES THE SAME THING EXCEPT THAT IT FIRST SKIPS
;ANY LEADING SPACES OR TABS. ^THUS, IT IS USED FOR GETTING THE
;NEXT WORD IN A COMMAND.
;-
CMGNWD: PUSHJ P,RSKIPS ;SKIP SPACES AND TABS
JFCL ;IGNORE EOL
;COMMAND GET WORD INTO CMBF. TERMINATES ON NON-ALPHABETIC.
;SKIPS UNLESS THERE ARE NO ALPHABETICS AT ALL.
CMGWD: MOVEI PA,CMBF ;INITIAL STRING POINTER TO WORD BUFFER
PUSHJ P,CSP ;MAKE THE POINTER
MOVEM A,CMSTP ;STORE IT
MOVEM B,CMST2 ; ..
TRZ F,R.MULN ;INDICATE NOT STRING OF NUMBERS YET
MOVEI N,<ECMBF-CMBF>*5 ;FOR END TEST
CMGWDL: PUSHJ P,CMCIN ;GET AN UPPER CASE CHARACTER
CAIG CH,"Z" ;ALPHABETIC?
CAIGE CH,"A" ; ..
JRST CMGWD1 ;NO. GO SEE IF EMPTY WORD.
MOVEI PA,CMSTP ;WHERE TO PUT THE CHARACTERS
SOSLE N ;MAKE SURE THERE'S ROOM.
PUSHJ P,WCI ;STORE IT.
JRST CMGWDL ;LOOP TO END OF WORD.
CMGWD1: MOVEM CH,GCSCH ;STORE BREAK CHARACTER FOR RESCAN
MOVE A,CMSTP ;WAS THERE ANYTHING AT ALL?
CAME A,CMST2 ; ..
AOS (P) ;YES. SKIP RETURN
POPJ P, ;NO. NON-SKIP.
;COMMAND RECOGNIZER
;+
;^THE ROUTINE "<CMREC" COMPARES A WORD FOUND BY THE ROUTINE
;"<CMGWD" AGAINST A LIST OF CANDIDATES AND FINDS THE ONE
;WHICH MATCHES, ALLOWING FOR ABBREVIATIONS. ^THE LIST OF
;CANDIDATES IS PASSED AS AN <AOBJN POINTER IN ACCUMULATOR
;^S1 (I.E., IN THE FORM -LENGTH,,LOCATION) WHERE THE RIGHT HALF
;OF EACH WORD IN THE TABLE IS THE ADDRESS OF AN <ASCIZ STRING
;OF THE WORDS IN UPPER CASE. ^THIS ROUTINE WILL TAKE THE NON-SKIP
;RETURN IF THE WORD IS NOT RECOGNIZED. ^IF THE WORD IS
;RECOGNIZED, IT WILL SKIP RETURN WITH ACCUMULATOR ^D POINTING
;TO THE SUCCESSFUL ENTRY. ^THUS, THE TYPICAL CALLING PATTERN
;IS: ^^
;.LEFT MAR 5.TAB STOP 5,13,29
;. ;MOVE S1,[-LENGTH,,TABLE]
;. ;PUSHJ P,CMREC ;RECOGNIZE WORD
;. ;##JRST ERROR ;HERE IF NOT RECOGNIZABLE
;. ;HLRZ A,(D) ;GET VALUE
;.LEFT MAR 0
;\\
;-
CMREC: SETO N1, ;START COUNTER OF MATCHES AT -1
MOVE B,CMST2
MOVEM B,TT2
CMREC1: MOVE A,CMSTP ;COPY OVER THE POINTER TO TEST WORD
MOVEM A,TT1 ;INTO TT1/TT2
HRRZ S2,(S1) ;MAKE POINTER TO A TABLE ENTRY
HRLI S2,(POINT 7,) ; ..
MOVEI PA,TT1 ;FOR GCI ROUTINE
CMRECL: PUSHJ P,GCI ;GET CHAR FROM USERS WORD
JRST CMRECA ;END OF HIS STRING
ILDB X,S2 ;ONE FROM TABLE
CAMN X,CH ;DO THEY MATCH?
JRST CMRECL ;YES. LOOK ONWARD.
CMREC2: AOBJN S1,CMREC1 ;TRY ANOTHER COMMAND
JUMPN N1,CPOPJ ;IF 0 OR .GE. 2 MATCHES, QUIT.
JRST CPOPJ1 ;ONE MATCHING ABBREVIATION. SKIP RETURN.
;HERE IF MATCHED TO END OF USER INPUT
CMRECA: MOVE D,S1 ;COPY CURRENT POINTER IN CASE UNIQUE
ILDB X,S2 ;GET NEXT COMMAND LIST CHARACTER
JUMPE X,CPOPJ1 ;IF NULL, MATCH IS EXACT. QUIT.
AOJA N1,CMREC2 ;NOT EXACT. COUNT ABBREV'S,
;READ SIGNED DECIMAL NUMBER FOR COMMAND DECODER
;RCNR--UPDATE N IF RELATIVE OR ABSOLUTE AND NON-SKIP IF NULL
;RCNO--NON-SKIP IF NULL NUMBER (NO DIGIT)
;RCN--NON-SKIP AT EOL
;RETURN N=NUMBER, N1=+-1 IF SIGNED, 0 IF NOT
;+
;^THE ROUTINES "<RCN", "<RCNO", AND "<RCNR" ALL
;READ DIFFERENT FLAVORS OF THE NEXT DECIMAL NUMBER. "<RCN"
;READS THE NUMBER WITH A POSSIBLE SIGN. ^IF NO NUMBER
;IS PRESENT, IT TAKES THE NON-SKIP RETURN. ^OTHERWISE,
;IT SKIPS LEADING SPACES AND TABS, READS THE NUMBER, AND SKIP
;RETURNS WITH THE VALUE IN ACCUMULATOR ^N AND WITH ACCUMULATOR
;^N1 SET TO -1, 0, OR +1 IF THE NUMBER WAS PRECEEDED BY A MINUS,
;NO SIGN, OR A PLUS RESPECTIVELY. ^IF THIS ROUTINE IS CALLED
;SEVERAL TIMES IN SUCCESSION, IT WILL ALLOW THE NUMBERS
;TO BE SEPARATED BY EITHER SPACES AND TABS OR BY ONE COMMA WHICH
;MAY BE SURROUNDED BY ANY NUMBER OF SPACES AND TABS.
;^THE ROUTINE "<RCNO" DOES THE SAME EXCEPT THAT IT WILL
;ALSO TAKE THE NON-SKIP RETURN IF THE VALUE WAS NULL (I.E., NO
;DIGIT WAS TYPED); WHEREAS "<RCN" NON-SKIPS ONLY AT END OF
;COMMAND. ^THE ROUTINE "<RCNR" ACCEPTS A RELATIVE
;OR ABSOLUTE VALUE AND GIVES THE NON-SKIP RETURN ANYTIME THE
;VALUE IS ABSENT. ^IT IS CALLED WITH THE STANDARD OR CURRENT
;VALUE IN ACCUMULATOR ^N AND RETURNS WITH THIS UPDATED IF
;RELATIVE OR REPLACED IF ABSOLUTE. ^RELATIVE NUMBERS ARE
;INDICATED BY BEING SIGNED, WHILE ABSOLUTE NUMBERS HAVE NO
;SIGN. ^IF THE NON-SKIP RETURN IS TAKEN, ACCUMULATOR ^N
;WILL BE LEFT UNALTERED.
;-
RCNR: PUSH P,N ;SAVE CURRENT VALUE
PUSHJ P,RCN ;READ NUMBER
JFCL ;IGNORE EOL
SKIPN N1 ;SEE IF RELATIVE (+-)
TRNN F,R.NNUL ;OR NULL
ADD N,(P) ;YES--ADD CURRENT VALUE
POP P,(P) ;DISCARD INPUT
SKIPN N1 ;SEE IF SIGN
TRNE F,R.NNUL ;OR DIGIT
JRST CPOPJ1 ;YES--SKIP RETURN
POPJ P, ;NO--NON-SKIP
RCNO: PUSHJ P,RCN ;GET NUMBER
POPJ P, ;IF EOL, NULL
TRNN F,R.NNUL ;SEE IF NULL
POPJ P, ;YES--RETURN AS SUCH
JRST CPOPJ1 ;NO--RETURN VALUE
CONT.
RCN: SETZB N,N1 ;CLEAR ANSWER AC
TRZ F,R.NNUL ;SET FOR NULL VALUE
PUSHJ P,RSKIPS ;SKIP LEADING SPACES AND TABS
POPJ P, ;RETURN IF EOL
TRNE F,R.MULN ;SEE IF MULTIPLE VALUES
CAIE CH,C.CMA ; AND COMMA
JRST RCNS ;NO--GO CHECK SIGN
SETOM GCSCH ;DON'T RE-EAT
PUSHJ P,RSKIPS ;YES--SKIP COMMA AND SPACES AND TABS
JRST RCNX ;EXIT IF EOL
;HERE TO CHECK FOR SIGN
RCNS: CAIN CH,C.PLUS ;SEE IF +
MOVEI N1,1 ;YES--SET FLAG
CAIN CH,C.MINS ;SEE IF -
SETOM N1 ;YES--SET FLAG
SKIPE N1 ;SEE IF SIGNED,
SETOM GCSCH ;YES--DON'T RE-EAT SIGN
RCNL: PUSHJ P,CCIN ;READ ANOTHER CHARACTER
CAIG CH,"9" ;THIS CHAR A DIGIT?
CAIGE CH,"0" ; ..
JRST RCNX ;NO. STOP HERE.
IMULI N,12
ADDI N,-"0"(CH) ;YES. ADD IN THIS DIGIT
TRO F,R.NNUL ;FLAG SOMETHING THERE
JRST RCNL ;AND LOOP FOR MORE.
;+
;^THE ROUTINE <RCANO IS JUST LIKE <RCNO WITHOUT SIGNS
;EXCEPT THAT ITS INPUT IS ALPHABETICS, RADIX 26.
;-
RCANO: PUSHJ P,RCAN ;GET NUMBER
POPJ P, ;IF EOL, NULL
TRNN F,R.NNUL ;SEE IF NULL
POPJ P, ;YES--RETURN AS SUCH
JRST CPOPJ1 ;NO--RETURN VALUE
RCAN: SETZB N,N1 ;CLEAR ANSWER AC
TRZ F,R.NNUL ;SET FOR NULL VALUE
PUSHJ P,RSKIPS ;SKIP LEADING SPACES AND TABS
POPJ P, ;RETURN IF EOL
TRNE F,R.MULN ;SEE IF MULTIPLE VALUES
CAIE C,C.CMA ; AND COMMA
JRST RCANL ;NO--GO INPUT NUMBER
SETOM GCSCH ;DON'T RE-EAT
PUSHJ P,RSKIPS ;YES--SKIP COMMA AND SPACES AND TABS
JRST RCNX ;EXIT IF EOL
CONT.
RCANL: PUSHJ P,CMCIN ;GET CHARACTER IN UPPER CASE
CAIG CH,"Z" ;SEE IF LETTER
CAIGE CH,"A" ; ..
JRST RCNX ;NO--STOP HERE.
IMULI N,^D26 ;ADVANCE RAD 26
ADDI N,1-"A"(CH) ;ADD IN THIS DIGIT
TRO F,R.NNUL ;FLAG SOMETHING THERE
JRST RCANL ;LOOP FOR MORE
;HERE TO EXIT FROM NUMERIC INPUT ROUTINES
RCNX: SKIPGE N1 ;IS SIGN NEGATIVE?
MOVNS N ;NEGATE NUMBER
MOVEM CH,GCSCH ;STORE BREAK CHARACTER
TRO F,R.MULN ;SET MULTIPLE NUMBERS FLAG
JRST CPOPJ1 ;AND RETURN FROM RCNO
;+
;^THE ROUTINE "<RSIXN" WILL READ THE NEXT WORD IN <SIXBIT
;AND RETURN THE FIRST SIX LETTERS IN ^N. ^ONLY ALPHABETICS
;ARE ALLOWED.
;-
RSIXN: MOVE D,[POINT 6,N] ;SETUP POINTER TO ANSWER
MOVEI N,0 ;CLEAR ACCUMULATOR
PUSHJ P,RSKIPS ;SKIP TO NEXT WORD
JFCL ;IGNORE EOL
RSIXL: PUSHJ P,CMCIN ;GET CHARACTER IN UPPER CASE
CAIG CH,"Z" ;SEE IF LETTER
CAIGE CH,"A" ; ..
JRST [MOVEM CH,GCSCH ;NO--PREPARE TO REEAT LATER
POPJ P,] ;RETURN
SUBI CH,40 ;YES--CONVERT TO SIXBIT
TLNE D,(77B5) ;SEE IF OVERFLOW
IDPB CH,D ;NO--STORE AWAY
JRST RSIXL ;AND LOOP
;ROUTINE TO SKIP SPACES AND TABS
;NON-SKIP RETURN IF EOL
;+
;^THE ROUTINE "<RSKIPS" WILL SKIP CONSECUTIVE SPACES
;AND TABS UNTIL IT FINDS A CHARACTER WHICH IS NEITHER. ^IF
;IT REACHES THE END OF THE COMMAND, IT WILL TAKE THE NON-SKIP
;RETURN, OTHERWISE IT TAKES THE SKIP RETURN WITH THE
;CHARACTER IN ACCUMULATOR <CH AND IN LOCATION <GCSCH.
;-
RSKIPS: PUSHJ P,CCIN ;GET NEXT CHAR
PUSHJ P,CMSOME ;SEE IF SOMETHING ELSE
JRST RSKIPL ;NO--GIVE EOL RETURN
CAIE CH,C.SPC ;SEE IF SPACE
CAIN CH,.CHTAB ; OR TAB
JRST RSKIPS ;YES--SKIP ONWARD
AOS (P) ;NO--GIVE SKIP RETURN
RSKIPL: MOVEM CH,GCSCH ;STORE CODE
POPJ P, ;RETURN
;+
;^THE ROUTINE "<CMSOME" WILL CHECK THE
;CURRENT CHARACTER TO SEE IF IT IS THE END OF A COMMAND. ^IF
;SO, THE NON-SKIP RETURN WILL BE TAKEN. ^OTHERWISE,
;THE SKIP RETURN WILL BE TAKEN. ^THE ROUTINE <CMSOMP IS THE
;SAME EXCEPT IT IS USED BY COMMANDS WHICH TAKE TEXT ARGUMENTS.
;-
CMSOME: CAIE CH,C.COMT ;SEE IF COMMENT INDICATOR
CAMN CH,CC.CON ;OR PERIOD (NEXT COMMAND)
POPJ P, ;YES--END OF COMMAND
CMSOMP: CAIE CH,C.SEMI ;SEE IF SEMICOLON (MULT. COMMANDS)
CAIN CH,.CHLFD ;OR END OF LINE
POPJ P, ;YES--END OF COMMAND
JRST CPOPJ1 ;NO--MORE COMMING
;+
;.CHAPTER DOT COMMAND PROCESSORS
;
;^COMMAND DISPATCH ADDRESSES ARE NAMED AS FOLLOWS:
;. ;^IF IT IS A ONE WORD COMMAND, THE NAME IS $ FOLLOWED
;BY THE FIRST FIVE CHARACTERS OF THE KEYWORD (E.G.,
;$<FIGUR FOR THE COMMAND .<FIGURE.
;. ;^IF IT IS A TWO WORD COMMAND, THE FIRST WORD DISPATCH
;IS $$ FOLLOWED BY THE FIRST FOUR CHARACTERS OF THE KEYWORD
;(E.G., $$<RIGH FOR THE COMMANDS .<RIGHT
;AND .<RIGHT <MARGIN). ^IF THERE ARE
;BOTH SINGLE AND DOUBLE WORD COMMANDS WITH THE SAME FIRST
;WORD THEN THE SINGLE COMMAND WILL RE-DISPATCH TO THE
;LOCATION $ FOLLOWED BY THE FIRST FIVE LETTERS OF THE NAME
;(E.G., $<RIGHT IN THE PREVIOUS EXAMPLE).
;. ;^FOR TWO WORD COMMANDS, THE SECOND WORD DISPATCH IS
;$ FOLLOWED BY THE FIRST TWO LETTERS OF THE FIRST WORD FOLLOWED
;BY . FOLLOWED BY THE FIRST TWO LETTERS OF THE SECOND WORD
;(E.G., ^^$RI.MA\\ IN THE PREVIOUS EXAMPLE).
;. ;^COMMANDS WHICH ARE STRICT SYNONYMS USE THE MAIN VERSION'S
;NAME TO DETERMINE THE DISPATCH LOCATION.
;-
DEFINE CM (A,B) < XWD A,[ASCIZ \B\] >
CONT.
CMTAB: ;TABLE OF FIRST WORD OF COMMANDS
CM $AUTOP,<AP>
CM $APPEN,<APPENDIX>; AX
CM $AUTOT,<AT>
CM $AUTOP,<AUTOPARAGRAPH>; AP
CM $AUTOT,<AUTOTABLE>; AT
CM $APPEN,<AX>
CM $BLANK,<B>
CM $BE.BA,<BB>
CM $$BEGI,<BEGIN>; BB
CM $BLANK,<BLANK>; B
CM $BREAK,<BR>
CM $BREAK,<BREAK>; BR
CM $CENTE,<C>
CM $CO.CH,<CC>
CM $CENTE,<CENTER>; C
CM $CENTE,<CENTRE>; C
CM $CHAPT,<CH>
CM $CHAPT,<CHAPTER>; CH
CM $COMME,<COMMENT>
CM $$CONT,<CONTROL>; CC
CM $DI.BA,<DBB>
CM $$DISA,<DISABLE>; DBB
CM $$DO,<DO>; DX
CM $DO.IN,<DX>
CM $$END,<E>
CM $EN.BA,<EB>
CM $AN.BA,<EBB>
CM $$ENAB,<ENABLE>; EBB
CM $ENDIF,<EI>
CM $EN.LI,<EL>
CM $END,<ELS>
CM $ELSE,<ELSE>; ***NO ABBR***
CM $$END,<EN>
CMEND: CM $$END,<END>; EL,ELS,EN,ES,ESL
CM $ENDIF,<ENDIF>; EI
CM $EN.SU,<ES>
CM $EN.SE,<ESL>
CONT.
CM $FILL,<F>
CM $FIGURE,<FG>
CM $FIGUR,<FIGURE>; FG
CM $FILL,<FILL>; F
CM $$FIRS,<FIRST>; FT
CM $FLAGS,<FL>
CM $FLAGS,<FLAGS>; FL
CM $FOOTN,<FN>
CM $FOOTN,<FOOTNOTE>; FN
CM $FI.TI,<FT>
CM $HEADE,<HD>
CM $$HEAD,<HEADERS>; HD,HL
CM $HE.LE,<HL>
CM $INDEN,<I>
CM $IF,<IF>; IF
CM $IFNOT,<IFNOT>; IN
CM $IFNOT,<IN>
CM $INDEN,<INDENT>; I
CM $INDEX,<INDEX>; X
CM $JUSTI,<J>
CM $JUSTI,<JUSTIFY>; J
CM $$LEFT,<L>
CM $LO.CA,<LC>
CM $LI.EL,<LE>
CM $$LEFT,<LEFT>; L,LM
CM $$LIST,<LIST>; LE,LS
CM $LITER,<LITERAL>; LT
CM $LE.MA,<LM>
CM $$LOWE,<LOWER>; LC
CM $LIST,<LS>
CM $LITER,<LT>
CONT.
CM $$NO,<N>
CM $NOAUT,<NAP>
CM $NOAUT,<NAT>
CM $NO.CH,<NCC>
CM $NOFIL,<NF>
CM $NOFLA,<NFL>
CM $NOHEA,<NHD>
CM $NOJUS,<NJ>
CM $NUMBE,<NM>
CM $NONUM,<NNM>
CM $$NO,<NO>; N
CM $NOAUT,<NOAUTOPARAGRAPH>; NAP
CM $NOAUT,<NOAUTOTABLE>; NAT
CM $$NOCO,<NOCONTROL>; NCC
CM $NOFIL,<NOF>
CM $NOFIL,<NOFILL>; NF
CM $NOFLA,<NOFLAGS>; NFL
CM $NOHEA,<NOHEADERS>; NHD
CM $NOJUS,<NOJUSTIFY>; NJ
CM $NONUM,<NONUMBER>; NNM
CM $NOPAG,<NOPAGING>; NPA
CM $NOPER,<NOPERIOD>; NPR
CM $NOSEL,<NOSELECTION>; NSL
CM $NOSPA,<NOSPACE>; NSP
CM $NOSUB,<NOSUBTITLE>; NST
CM $NOTE,<NOTE>; NT
CM $NOPAG,<NPA>
CM $NOPER,<NPR>
CM $NOSEL,<NSL>
CM $NOSPA,<NSP>
CM $NOSUB,<NST>
CM $NOTE,<NT>
CM $NUMBE,<NUMBER>; NM
CONT.
CM $PARAG,<P>
CM $PAGIN,<PA>
CM $$PAGE,<PAG>
CM $$PAGE,<PAGE>; PG,PS
CM $PAGIN,<PAGING>; PA
CM $$PAPE,<PAPER>; PS
CM $PARAG,<PARAGRAPH>; P
CM $PERIO,<PERIOD>; PR
CM $PAGE,<PG>
CM $PERIO,<PR>
CM $$PRIN,<PRINT>; PX
CM $PA.SI,<PS>
CM $PR.IN,<PX>
CM $$RIGH,<R>
CM $$RIGH,<RIGHT>; R,RM
CM $RI.MA,<RM>
CM $SKIP,<S>
CM $STAND,<SD>
CM $SELEC,<SELECTION>; SL
CM $SKIP,<SKIP>; S
CM $SELEC,<SL>
CM $SPACI,<SP>
CM $SPACI,<SPACING>; SP
CM $SUBPA,<SPG>
CM $SUBTI,<ST>
CM $STAND,<STANDARD>; SD
CM $SUBIN,<SUBINDEX>; X
CM $SUBPA,<SUBPAGE>; SPG
CM $SUBTI,<SUBT>
CM $SUBTI,<SUBTITLE>; ST
CM $SUBTI,<SUBTTL>; ST
CONT.
CM $TITLE,<T>
CM $$TAB,<TAB>; TS
CM $$TEST,<TEST>; TP
CM $TITLE,<TITLE>; T
CM $TE.PA,<TP>
CM $TA.ST,<TS>
CM $TYPES,<TY>
CM $TYPES,<TYPESET>; TY
CM $UP.CA,<UC>
CM $$UPPE,<UPPER>; UC
CM $VARIA,<VARIABLE>; VR
CM $VARIA,<VR>
CM $SUBIN,<X>
CMTL1==.-CMTAB
;+
;.HL1 _.NO COMMAND
;^THIS COMMAND TAKES A SECOND WORD TO DETERMINE
;THE COMMAND. ^IT THEN DISPATCHES ON THAT WORD. ^EACH .<NO
;COMMAND APPEARS IN THE COMMAND TABLE TWICE, ONCE AS A
;SINGLE KEYWORD COMMAND OF THE FORM .^^NO\\XXX AND ONCE AS A
;TWO WORD COMMAND OF THE FORM .<NO XXX.
;-
$$NO: MOVE S1,[-CMNTL1,,CMNTAB] ;POINT TO NO TABLE
PUSHJ P,CMGNWD ;GET NEXT WORD
JRST ILCM ;ILLEGAL IF MISSING
JRST CMNREP ;GO SCAN/DISPATCH
CMNTAB: ;NO COMMAND TABLE
CM $NOAUT,<AP>
CM $NOAUT,<AT>
CM $NOAUT,<AUTOPARAGRAPH>; AP
CM $NOAUT,<AUTOTABLE>; AT
CM $NO.CH,<CC>
CM $$NOCO,<CONTROL>; CC
CM $NOFIL,<F>
CM $NOFIL,<FILL>; F
CM $NOFLA,<FL>
CM $NOFLA,<FLAGS>; FL
CM $NOHEA,<HD>
CM $NOHEA,<HEADERS>; HD
CM $NOJUS,<J>
CM $NOJUS,<JUSTIFY>; J
CM $NONUM,<NM>
CM $NONUM,<NUMBER>; NM
CM $NOPAG,<PA>
CM $NOPAG,<PAGING>; PA
CM $NOPER,<PERIOD>; PR
CM $NOPER,<PR>
CM $NOSEL,<SELECTION>; SL
CM $NOSEL,<SL>
CM $NOSUB,<ST>
CM $NOSUB,<SUBTITLE>; ST
CMNTL1==.-CMNTAB
;+
;.HL1 _.END COMMAND
;^THIS COMMAND TAKES A SECOND KEYWORD TO DEFINE THE COMMAND.
;^IT THEN REDISPATCHES BASED ON THIS SECOND WORD.
;-
$$END: MOVE S1,[-ECMTL1,,ECMTAB]
PUSHJ P,CMGNWD ;GET NEXT WORD
JRST $END ;.END IF NONE
JRST CMNREP ;GO SCAN/DISPATCH
ECMTAB: CM $EN.BA,<BAR>
CM $EN.FO,<FOOTNOTE>
CM $END,<LIST>
CM $EN.LI,<LITERAL>
CM $END,<NOTE>
CM $EN.SE,<SELECTION>
CM $EN.SU,<SUBPAGE>
ECMTL1==.-ECMTAB
;+
;.HL1 TWO WORD COMMANDS
;^EACH OF THESE COMMANDS TAKES EXACTLY ONE WORD AS THE SECOND
;KEYWORD. ^THESE CAN EVEN HAVE THAT WORD ABBREVIATED TO NOTHING!
;^PROCESSING GETS THE NEXT WORD (IF NULL THEN OK), THEN CHECKS
;THAT WHATEVER WAS TYPED WAS SPELLED CORRECTLY. ^THEN IT
;DISPATCHES TO THE PROCESSOR.
;^THE COMMANDS ARE:^^
;. ;_.BEGIN BAR
;. ;_.CONTROL CHARACTERS
;. ;_.DISABLE BAR
;. ;_.DO INDEX
;. ;_.ENABLE BAR
;. ;_.FIRST TITLE
;. ;_.LOWER CASE
;. ;_.NOCONTROL CHARACTERS
;. ;_.PAPER SIZE
;. ;_.PRINT INDEX
;. ;_.TAB STOPS
;. ;_.TEST PAGE
;. ;_.UPPER CASE
;- \\
DEFINE MC2 ($FIRST,$SECON,$ONE)<
XLIST
$FIRST: PUSHJ P,CMGNWD ;;GET NEXT WORD IF ANY
JRST $ONE ;;NO. ASSUME IT'S ABBREVIATED OUT.
HRROI S1,[EXP [ASCIZ /$SECON/]] ;;ONLY ONE WORD IN "TABLE"
PUSHJ P,CMREC ;;SEE IF THAT'S IT.
JRST ILCM ;;NO. SECOND WORD WRONG.
LIST
JRST $ONE ;;OK. GO TO ROUTINE.
>
CONT.
MC2 $$BEGI,<BAR>,$BE.BA
MC2 $$CONT,<CHARACTERS>,$CO.CH
MC2 $$DISA,<BAR>,$DI.BA
MC2 $$DO,<INDEX>,$DO.IN
MC2 $$ENAB,<BAR>,$AN.BA
MC2 $$FIRS,<TITLE>,$FI.TI
MC2 $$LOWE,<CASE>,$LO.CA
MC2 $$NOCO,<CHARACTERS>,$NO.CH
MC2 $$PAPE,<SIZE>,$PA.SI
MC2 $$PRIN,<INDEX>,$PR.IN
MC2 $$TAB,<STOPS>,$TA.ST
MC2 $$TEST,<PAGE>,$TE.PA
MC2 $$UPPE,<CASE>,$UP.CA
;+
;.HL1 ONE/TWO WORD COMMANDS
;^THESE COMMANDS HAVE BOTH ONE WORD AND TWO WORD MEANINGS
;THAT ARE DIFFERENT. ^THE PROCEDURE IS THE SAME AS ABOVE
;EXCEPT THAT THE TWO DISPATCH ADDRESSES ARE DIFFERENT.
;^THESE COMMANDS ARE: ^^
;. ;_.LEFT (MARGIN)
;. ;_.LIST (ELEMENT)
;. ;_.PAGE (SIZE)
;. ;_.RIGHT (MARGIN)
;- \\
DEFINE MC3 ($FIRST,$SECON,$ONE,$TWO)<
XLIST
$FIRST: PUSHJ P,CMGNWD ;;GET NEXT WORD IF ANY
LIST
JRST $ONE ;;NO. GO TO ONE WORD ROUTINE
XLIST
HRROI S1,[EXP [ASCIZ /$SECON/]] ;;ONLY ONE WORD IN "TABLE"
PUSHJ P,CMREC ;;SEE IF THAT'S IT.
JRST ILCM ;;NO. SECOND WORD WRONG.
LIST
JRST $TWO ;;OK. GO TO TWO WORD ROUTINE.
>
MC3 $$LEFT,MARGIN,$INDEN,$LE.MA
MC3 $$LIST,ELEMENT,$LIST,$LI.EL
MC3 $$PAGE,SIZE,$PAGE,$PA.SI
MC3 $$RIGH,MARGIN,$RIGHT,$RI.MA
SUBTTL DOT COMMANDS
$INDEN: PUSHJ P,OUTNJ ;OUTPUT REST OF CURRENT LINE
PUSHJ P,RCNO ;READ SIGNED DECIMAL NUMBER
PARAG1: MOVE N,PARIND ;NONE. USE CURRENT VALUE
MOVE A,N ;GET COPY
ADD A,LMARG ;COMPUTE RESULTANT
SKIPL A ;VERIFY NOT TOO SMALL [201]
CAMLE A,RMARG ;LEGITIMATE VALUE?
JRST ILCM ;NO. COMPLAIN
MOVEM N,INDCT ;YES. STORE ARGUMENT
JRST ENDBCM ;END OF BREAK COMMAND
$BREAK: PUSHJ P,OUTNJ ;THE SIMPLE BREAK COMMAND.
JRST ENDBCM ;RETURN AS ALL BREAK COMMANDS DO
$UP.CA: TDZA A,A ;SET CASE OFFSET TO ZERO
$LO.CA: MOVEI A,ULCAS ;SET FOR LOWER CASE OFFSET
MOVEM A,FILCAS ;STORE INITIAL FILE CASE
MOVEM A,CAS ;STORE CURRENT FILE CASE
JRST ENDCM ;END OF COMMAND (NOT BREAK)
;PAGE COMMAND
$EN.SU: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETZM SUBPGE ;END SUBPAGE
JRST $PAGE ;CLEAR SUBPAGE FLAG
$SUBPA: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SKIPN SUBPGE ;SUBPAGE--SET FLAG
AOS SUBPGE ;UNLESS ALREADY SET
$PAGE: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;PAGE--END LINE
SETZM INDCT ;CLEAR INDENT
PUSHJ P,BPAGE ;BREAK PAGE
JRST ENDBCM ;END BREAK COMMAND
;TEST PAGE COMMAND
$TE.PA: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;BREAK LINE FIRST
PUSHJ P,RCNO ;GET ARGUMENT OF TEST
JRST ILCM ;MUST BE ONE
JUMPLE N,ILCM ;ERROR IF NEG OR ZERO
PUSHJ P,TSTPAG ;TEST SHOWS NEAR END, BREAK PAGE
JFCL ;DOESN'T MATTER IF BROKE
JRST ENDBCM ;RETURN FROM TEST PAGE
;SET RIGHT MARGIN COMMAND
$RI.MA: PUSHJ P,OUTNJ ;BREAK-CLASS COMMAND
MOVE N,RMARG ;GET CURRENT RIGHT MARGIN
PUSHJ P,RCNR ;ADD ARGUMENT
MOVE N,PRMRG ;IF NONE, INITIALIZE
CAMG N,LMARG ;MUST ALSO BE RIGHT OF LEFT MARGIN
JRST ILCM ;ISNT. ERROR
CAMLE N,PRMRG ;SEE IF WITHIN PAPER SIZE
MOVEM N,PRMRG ;NO--UPDATE PAGE WIDTH
MOVEM N,RMARG ;STORE RIGHT MARGIN
SETZM INDCT ;CLEAR INDENT
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
JRST ENDBCM ;END OF COMMAND
;SET LEFT MARGIN COMMAND
$LE.MA: PUSHJ P,OUTNJ ;BREAK COMMAND
MOVE N,LMARG ;GET CURRENT LEFT MARGIN
PUSHJ P,RCNR ;ADD ARGUMENT
MOVEI N,ILMRG ;IF NONE,INITIALIZE
JUMPL N,ILCM ;ERROR IF NEG OR ZERO
CAML N,RMARG ;AND LESS THAN RIGHT MARGIN?
JRST ILCM ;NO. ERROR.
MOVEM N,LMARG ;OK SAVE AS LEFT MARGIN
MOVN A,N ;GET NEGATIVE [201]
CAMLE A,PARIND ;SEE IF PARAG INDENT TOO LEFT [201]
MOVEM A,PARIND ;YES--DECREASE PARAG INDENT TO FIT [201]
SETZM INDCT ;CLEAR INDENT
PUSHJ P,NEGINC ;ISSUE NIC MESSAGE IF NEEDED
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
JRST ENDBCM ;AND END BREAK-CLASS COMMAND
;PAGE SIZE COMMAND
$PA.SI: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
MOVE N,PNLPG ;GET CURRENT SIZE
PUSHJ P,RCNR ;ADD ARGUMENT
JFCL ;IGNORE NULL
CAIG N,12 ;LONG ENOUGH TO BE REASONABLE FOR HEADING
JRST ILCM ;NO. ERROR
EXCH N,PNLPG ;SAVE AS LENGTH
SUB N,PNLPG ;SEE HOW MUCH SHORTER
MOVNS N ;CHANGE TO HOW MUCH LONGER
ADDM N,NLPG ;CHANGE LINES LEFT THIS PAGE
SETZM FLNOPG ;CLEAR .NOPAGING
PUSHJ P,OUTNJ ;BREAK COMMAND
MOVE N,PRMRG ;GET CURRENT WIDTH
PUSHJ P,RCNR ;SEE IF SECOND ARGUMENT
JFCL ;IGNORE ABSENCE
CAMG N,LMARG
JRST ILCM
MOVEM N,PRMRG ;STORE PAGE WIDTH
MOVEM N,RMARG
SETZM INDCT ;CLEAR INDENT
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
JRST ENDBCM ;END OF COMMAND
;PAGING/NO PAGING COMMANDS
$NOPAG: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
HRLOI A,INFIN ;SET LENGTH OF THIS
MOVEM A,NLPG ; PAGE TO INFIN.
SETOM FLNOPG ;SET NOPAGING
JRST ENDCM ;END COMMAND
$PAGIN: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETZM FLNOPG ;CLEAR NOPAGING
MOVE A,PNLPG ;GET PAGE SIZE [205]
CAMGE A,NLPG ;IF SMALLER, [205]
MOVEM A,NLPG ;SET INTO LINES THIS PAGE [205]
JRST ENDCM ;END COMMAND
;.STANDARD COMMAND
$STAND: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;BREAK LINE
MOVE N,PRMRG ;GET PREVIOUS PAGE WIDTH
PUSHJ P,RCNR ;GET RELATIVE NEW WIDTH
JFCL ;IGNORE NULL
JUMPLE N,ILCM ;ERROR IF NEGATIVE
MOVSI A,-LNSDTB ;GET LENGHT OF STANDARD TABLE
SDLP: HRRZ B,SDTB(A) ;GET ENTRY
CAME B,N ;SEE IF MATCH
AOBJN A,SDLP ;NO--LOOP
JUMPGE A,SDX ;UNKNOWN--LEAVE LENGTH ALONE
HLRZ A,SDTB(A) ;GET LENGTH
SKIPN A ;UNLESS 0
JRST SDX ; (0)
EXCH A,PNLPG ;ALSO SET PERMANENT LENGTH
SUB A,PNLPG ;FIND OUT HOW BIG A CHANGE
MOVNS A ;POSITIVE INCREMENT
ADDM A,NLPG ;UPDATE LENGTH THIS PAGE
;HERE TO RESET MANY VARIABLE PARAMETERS
SDX: STORE A,PARIND,,SPARIN ;SET PARAG. INDENT
SDXY: SETZM FLNOPG ;SET .PAGING
MOVEM N,PRMRG ;SET PAGE WIDTH
MOVEM N,RMARG ;SET RIGHT MARGIN
STORE A,LMARG,,ILMRG ;INITILIZE .LEFT MARGIN
SETZM INDCT ;CLEAR INDENT
PUSHJ P,NEGINC ;ISSUE NIC MESSAGE IF NEEDED
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
SKIPG A,SCNSPG ;RESET
MOVEI A,AD.SPC ; INITIAL
MOVEM A,NSPNG ; SPACING
MOVE A,FILCAS ;GET FILE CASE
MOVEM A,CAS ;RESET CURRENT CASE
TLO F,L.PJUS!L.JUST!L.FILL ;.FILL;.JUSTIFY
PUSHJ P,JUSTYP ;ISSUE JUSTIFICATION TO TYPESET
JRST ENDBCM ;END BREAK COMMAND
RADIX 10
SDTB: ;LENGTH,,WIDTH
AD.LPP,,AD.WID
IFN AD.WID-60,< 58,,60 >
PD.LPP,,PD.WID
IFN PD.WID-70,< 64,,70 >
LNSDTB==.-SDTB
RADIX 8
;PARAGRAPH COMMAND
$PARAG: PUSHJ P,OUTNJ ;FINISH CURRENT LINE
PUSHJ P,RCNO ;GET VALUE
MOVE N,PARIND ;NULL--GET OLD VALUE
MOVEM N,PARIND ;STORE PARA INDENT VALUE
PUSHJ P,RCNO ;GET VALUE OF VERT SPACING
MOVE N,PARSPC ;NULL--GET OLD VALUE
CAML N,[-1] ;SEE IF TOO SMALL
CAILE N,MX.SPC ; OR TOO LARGE
JRST ILCM ;YES--ERROR
MOVEM N,PARSPC ;OK--STORE VERTICAL SPACING
MOVE N,PARTPG ;GET OLD TEST PAGE
PUSHJ P,RCNR ;GET RELATIVE VALUE
JFCL ;IGNORE NULL
JUMPL N,ILCM ;ERROR IF NEG
MOVEM N,PARTPG ;STORE UPDATED VALUE
PUSHJ P,PARAG0 ;DO THE PARAGRAPH OPERATION
JRST PARAG1 ;CHECK ARG AND RETURN
PARAGF: PUSHJ P,OUTNJ ;OUTPUT PARTIAL LINE
SETOM FRCPAR ;FORCE PARAGRAPH
MOVE N,PARIND ;SET FOR INDENT
MOVEM N,INDCT ; ..
PJRST LINSET ;AS IF BREAK COMMAND
PARAG0: SETZM FRCPAR ;CLEAR ANY FORCED PARAGRAPHS
SKIPG SCNTYP ;UNLESS TYPESETTING,
SKIPE FLSOPG ; SEE IF BEYOND HEADING
SKIPN SMINSC ;SEE IF SOMETHING THIS SECTION AND
POPJ P, ;NO. RETURN
MOVE A,NSPNG ;GET NORMAL LINE-SPACING
ADDI A,1 ;COMPUTE SIZE OF PARAGRAPH BREAK
ASH A,-1 ; ..
MOVE B,PARSPC ;GET PARAGRAPH SPACING
IMUL B,NSPNG ;TIMES CURRENT SPACING
SKIPL B ;SEE IF -1
MOVE A,B ;NO--USE THAT INSTEAD
MOVE N,PARTPG ;GET DEFAULT TEST PAGE
IMUL N,NSPNG ;MULT BY SPACING
ADD N,A ;CHECK FOR END OF PAGE
ADD N,NSPNG ; ..
PUSHJ P,TSTPAG ;SEE IF END
POPJ P, ;YES--DON'T SPACE AFTER BREAK
PJRST SKIPN ;NO--SKIP N LINES
;AUTOPARAGRAPH/NO AUTOPARAGRAPH COMMANDS
$AUTOP: TRZ F,R.AUTB ;CLEAR AUTOTABLE
TROA F,R.SPPR ;SET AUTOPARAGRAPH
$NOAUT: TRZ F,R.SPPR!R.AUTB ;CLEAR AUTOPARAGRAPH AND AUTOTABLE
JRST ENDCM ;END COMMAND
;AUTOTABLE/NO AUTOTABLE COMMANDS
$AUTOT: TRZ F,R.SPPR ;CLEAR AUTOPARAGRAPH
TRO F,R.AUTB ;SET AUTOTABLE
JRST ENDCM ;END COMMAND
;NUMBER COMMAND [PAGE/SUBPAGE/INDEX/CHAPTER/APPENDIX] [N]
$NUMBE: PUSHJ P,CMGNWD ;GET NEXT WORD, IF ANY
JRST [MOVEI S1,PAGENO ;NONE, ASSUME PRIMARY PAGE
JRST NUMBEN] ; AND GO HANDLE
MOVE S1,[-7,,[ 1,,[ASCIZ /APPENDIX/]
SECNUM,,[ASCIZ /CHAPTER/]
0,,[ASCIZ /INDEX/]
3,,[ASCIZ /LEVEL/]
4,,[ASCIZ /LIST/]
PAGENO,,[ASCIZ /PAGE/]
2,,[ASCIZ /SUBPAGE/] ]]
PUSHJ P,CMREC ;RECOGNIZE WORD
JRST ILCM ;ERROR IF UNKNOWN
HLRZ S1,(D) ;GET ADDRESS OR CODE
CAILE S1,77 ;SEE IF CODE
JRST NUMBEN ;NO--JUST USE ADDRESS
JUMPE S1,NUMBEI ;JUMP IF INDEX
CAIN S1,1 ;SEE IF APPENDIX
JRST NUMBEA ;YES--GO HANDLE
CAIN S1,3 ;SEE IF LEVEL
JRST NUMBEV ;YES--GO HANDLE
CAIN S1,4 ;SEE IF LIST
JRST NUMBEL ;YES--GO HANDLE
;HERE ON .NUMBER SUBPAGE
MOVE N,SUBPGE ;NO--MUST BE SUBPAGE
SOS N ;GET ACTUAL SUBPAGE
PUSHJ P,RCNR ;GET RELATIVE NUMBER
JRST [PUSHJ P,CMCIN ;NOT NUMBER--TRY LETTER
CAIL CH,"A" ;CHECK
CAILE CH,"Z" ; ALPHABETIC
JRST ILCM ;ERROR IF NOT
MOVEI N,1-"A"(CH) ;CONVERT TO OFFSET NUMBER
JRST .+1] ;AND PROCEED
JUMPLE N,ILCM ;ERROR IF NEGATIVE
CAIL N,^D26 ;ERROR IF TOO LARGE
JRST ILCM ;(USER CAUSED OVERFLOW)
MOVEM N,SUBPGE ;STORE AS SUBPAGE
JRST NUMBEX ;GO EXIT
CONT.
;HERE ON .NUMBER LEVEL
NUMBEV: MOVEI D,1 ;COUNT THE DEPTH
NUMBV1: CAIL D,LN$SEC ;DON'T OVERFLOW
JRST ILCM ;ERROR IF HE DOES
MOVE N,SECNUM(D) ;GET OLD VALUE
PUSHJ P,RCNR ;GET RELATIVE NUMBER
JRST NUMBV2 ;NULL--LEAVE ALONE
JUMPLE N,ILCM ;ERROR IF NEGATIVE
MOVEM N,SECNUM(D) ;STORE NEW VALUE
NUMBV2: CAIN CH,C.CMA ;SEE IF SEPARATOR
AOJA D,NUMBV1 ;YES--LOOP FOR ANOTHER
SOS SECNUM(D) ;BACKUP LAST ONE
SOS SECNUM(D) ;ALSO ALLOW FOR ZERSEC
MOVE A,D ;POSITION DEPTH FOR ZERSEC
PUSHJ P,ZERSEC ;UPDATE LASHL AND CLEAR COUNTERS
JRST NUMBEX ;EXIT FROM NUMBER COMMAND
;HERE ON .NUMBER LIST COMMAND
;ARGUMENTS ARE DEPTH, COUNT
NUMBEL: MOVE N,LASLS ;GET LAST LIST DEPTH
PUSHJ P,RCNR ;GET RELATIVE DEPTH
JFCL ;NULL IS OK
JUMPL N,ILCM ;ERROR IF BAD DEPTH
CAILE N,LN$MJP ;OR IF TOO BIG
JRST ILCM ; GIVE ERROR
MOVE D,N ;SAVE DEPTH FOR LATER
MOVE N,LSTCNT(D) ;GET CURRENT COUNT
AOS N ;ADVANCE TO NEXT ITEM
PUSHJ P,RCNR ;INPUT RELATIVE NUMBER
JFCL ;NULL IS OK, BUT SILLY
JUMPLE N,ILCM ;ERROR IF NEGATIVE
SOS N ;BACK UP FOR .LE COMMAND
MOVEM N,LSTCNT(D) ;STORE
MOVEM D,LASLS ;STORE NEW DEPTH
JRST NUMBEX ;EXIT FROM NUMBER COMMAND
CONT.
;HERE ON .NUMBER INDEX
NUMBEI: HRROS SECNUM ;INDEX--SET FLAG
JRST NUMBEX ;AND GO EXIT
;HERE ON .NUMBER APPENDIX
NUMBEA: MOVEI S1,SECNUM ;POINT TO CHAPTER NUMBER
HRRZ N,SECNUM ;GET CURRENT CHAPTER NUMBER
TXZN N,APPXFL ;SEE IF APPENDIX FLAG SET
MOVEI N,0 ;NO--SET APPENDIX 0
AOS N ;ALLOW FOR FUTURE SOS N [213]
PUSHJ P,RCNR ;GET RELATIVE NUMBER
JRST [PUSHJ P,RCANO ;NULL--TRY ALPHA INPUT
JFCL ;NULL AGAIN--OK
JRST .+1] ;PROCEED
JUMPLE N,ILCM ;ERROR IF LE 0
CAIL N,APPXFL ;SEE IF TOO BIG
JRST ILCM ;NO--ERROR
TXO N,APPXFL ;FORCE INTO APPENDIX RANGE
JRST NUMBEO ;AND FINISH CHAPTER STUFF
;HERE ON .NUMBER PAGE OR CHAPTER
NUMBEN: HRRZ N,(S1) ;GET OLD VALUE
AOS N ;ALLOW FOR FUTURE SOS N [213]
PUSHJ P,RCNR ;ADD RELATIVE NUMBER
JFCL ;IGNORE NULL
;HERE TO FINISH NUMBER COMMAND
NUMBEO: CAIE S1,PAGENO ;UNLESS SETTING PAGE, [172]
JUMPE N,ILCM ; ZERO IS ILLEGAL [172]
JUMPL N,ILCM ;ERROR IF NEG [172]
CAIN S1,PAGENO ;UNLESS SETTING PAGE NUMBER [226]
SKIPE LINEC ; AT THE TOP OF A PAGE, [226]
SOS N ; BACKUP FOR LATER USE
;HERE TO EXIT FROM NUMBER COMMAND
MOVEM N,(S1) ;STORE NEW NUMBER
NUMBEX: SETZM FLNUMB ;TURN ON FLAG TO CAUSE NUMBERING
JRST ENDCM ;END COMMAND
;NONUMBER COMMAND
$NONUM: SETOM FLNUMB ;TURN OFF NUMBERING.
JRST ENDCM ;END OF NON-BREAK COMMAND
;HEADER COMMAND TAKES THREE WORD VALUES
$$HEAD: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,CMGNWD ;GET NEXT WORD
JRST HEADER ;TURN ON HEADERS IF NO ARG
MOVE S1,[-4,,[HEADUPPER,,[ASCIZ /UPPER/]
HEADMIXED,,[ASCIZ /MIXED/]
HEADLOWER,,[ASCIZ /LOWER/]
-1,,[ASCIZ /LEVEL/] ]]
PUSHJ P,CMREC ;LOOKUP WORD
JRST ILCM ;ERROR IF NOT FOUND
HLRZ A,(D) ;GET VALUE
CAIN A,-1 ;SEE IF SPECIAL VALUE
JRST $HE.LE ;YES--GO DO .HL COMMAND
MOVEM A,FILHDR ;STORE FOR PAGE ROUTINE (MOVED AS [246])
$HEADE: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
HEADER: SETZM FLNHDR ;RESUME HEADERS
JRST ENDCM ;END COMMAND
$NOHEA: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETOM FLNHDR ;SUPPRESS HEADERS
JRST ENDCM ;END COMMAND
;TITLE COMMAND
$TITLE: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,CLRTTL ;CLEAR OLD TITLE
MOVEI D,5*LN$TTL-1 ;SET BUFFER LIMIT
PUSHJ P,GCIN ;READ CHARACTER AFTER COMMAND
CAIN CH,C.SPC ;SPACE? SKIP JUST ONE.
SETTL1: PUSHJ P,GCIN ;READ A CHARACTER
CAIN CH,.CHLFD ;END OF COMMAND LINE?
JRST ENDCMX ;YES. QUIT
MOVEI PA,TTLP1 ;NO. PUT CHAR IN STRING BUFFER
PUSHJ P,WCI ; ..
TXNE CH,LCHPVT ;SEE IF QUOTED
SOS D ;YES--ALLOW FOR ITS SPACE
SOJG D,SETTL1 ;LOOP TILL END
PUSHJ P,E$$IBO ;ERROR IF OVERFLOW
JRST $COMME ;IGNORE REST AS COMMENT
CONT.
;SUBTITLE COMMAND
$SUBTI: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,CLRSTT ;CLEAR SUBTITLE
SETOM DOSTTL ;INDICATE TO PRINT SUBTITLES
MOVEI D,5*LN$TTL-1 ;COUNT OF BUFFER SIZE
PUSHJ P,GCIN ;GET CHARACTER FROM INPUT LINE
CAIN CH,C.SPC ;SKIP ONE LEADING SPACE
SETST1: PUSHJ P,GCIN ;GET CHARACTER FROM INPUT LINE
CAIN CH,.CHLFD ;END OF LINE ON INPUT?
JRST ENDCMX ;YES. END OF SUBTITLE COMMAND
MOVEI PA,STTLP1 ;NO. WRITE INTO BUFFER
PUSHJ P,WCI ; ..
TXNE CH,LCHPVT ;SEE IF QUOTED
SOS D ;YES--ALLOW FOR ITS SPACE
SOJG D,SETST1 ;LOOP TILL END OF LINE
PUSHJ P,E$$IBO ;ERROR IF OVERFLOW
JRST $COMME ;TREAT REST AS COMMENT
;NO SUBTITLE COMMAND
$NOSUB: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETZM DOSTTL ;INDICATE NO SUBTITLE
JRST ENDCM ;END COMMAND
;FIRST TITLE COMMAND
$FI.TI: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETOM FLTITL ;SET TITLE FLAG
JRST ENDCM ;END COMMAND
;SPACING COMMAND
$SPACI: PUSHJ P,OUTNJ ;BREAK LINE FIRST
PUSHJ P,RCNO ;GET ARGUMENT OF SPACING COMMAND
JRST ILCM ;MUST BE ONE
CAIG N,MX.SPC ;MUST BE IN RANGE 1 TO 5
CAIG N,0 ; ..
JRST ILCM ;NOT. ERROR.
MOVEM N,NSPNG ;OK. STORE AS NORMAL SPACING
JRST ENDBCM ;END OF SPACING COMMAND
;SELECT/NO SELECT COMMANDS
$SELEC: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
MOVSI C,-4 ;NEED FOUR ARGS
SELLOP: PUSHJ P,GCIN ;GET NEXT ARG
PUSHJ P,CMSOME ;SEE IF END OF COMMAND
JRST SELDON ;YES--THAT'S ALL
CAIE CH,.CHTAB ;SEE IF TAB
CAIN CH,C.SPC ; OR SPACE
JRST SELLOP ;YES--SKIP IT
CAIG CH,C.FLGS ;SEE IF INTERNAL FLAG
JRST ILCM ;YES--INDICATE ERROR
ANDI CH,CHRMSK ;MASK TO REAL CHARACTER
MOVEM CH,SELPFX(C) ;NO--STORE CHARACTER
AOBJN C,SELLOP ;LOOP UNTIL DONE
SETOM CH ;SUPPRESS CHAR
SELDON: CAIN CH,.CHLFD ;IF AT END OF LINE,
TRO F,R.SLLK ; PRESET SEARCHING MODE.
MOVEM CH,GCSCH ;RE-EAT
TROA F,R.SLCT ;SET SELECT MODE
$NOSEL: TRZ F,R.SLCT ;CLEAR SELECT MODE
TRZ F,R.SLRG ;CLEAR SELECT RANGE (+-)
SETZM ESLCTF ;CLEAR .END SELECT MODE
JRST ENDCM ;END OF COMMAND
;.END SELECT
$EN.SE: TRNN F,R.SLCT ;IF NOT IN .SELECT,
JRST ILCM ; THIS IS AN ERROR
SETOM ESLCTF ;OTHERWISE, SET FLAG
JRST ENDCM ;AND END COMMAND
;PERIOD/NO PERIOD COMMANDS
$PERIO: TRZA F,R.NPER ;CLEAR .NOPERIOD
$NOPER: TRO F,R.NPER ;SET .NOPERIOD
JRST ENDCM ;END COMMAND
;.CONTROL/.NO CONTROL CHARACTERS
$CO.CH: TROA F,R.ALCC ;SET FLAG TO ALLOW CONTROLS
$NO.CH: TRZ F,R.ALCC ;CLEAR FLAG ON CONTROLS
TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
JRST ENDCM ;END COMMAND
;.NOSPACE (SUPPRESSES THE FREE SPACE AT END OF PREVIOUS LINE
$NOSPA: TLO F,L.NFSP ;SET TO SUPPRESS FREE SPACE
JRST ENDCM ;END COMMAND (NO BREAK)
;NOFLAG/FLAG COMMANDS
$NOFLA: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,CMGNWD ;GET WORD
JRST NOFLAA ;NONE--THEREFORE ALL
MOVE S1,[-LENFLA,,FLATAB]
PUSHJ P,CMREC ;LOOKUP WORD
JRST ILCM ;ERROR IF UNKNOWN
HLRZ D,(D) ;GET ADDRESS
JUMPE D,NOFLAA ;ALL IF NOT SPECIFIC
HRROS (D) ;SUPPRESS MATCHES
JRST ENDCM ;RETURN
$FLAGS: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,CMGNWD ;GET WORD
JRST FLAGAA ;NONE--THEREFORE ALL
MOVE S1,[-LENFLA,,FLATAB]
PUSHJ P,CMREC ;LOOKUP WORD
JRST ILCM ;ERROR IF UNKNOWN
HLRZ D,(D) ;GET ADDRESS
JUMPE D,FLAGAA ;ALL IF NOT SPECIFIC
FLAGSL: PUSHJ P,GCIN ;GET NEXT CHARACTER
PUSHJ P,CMSOME ;SEE IF END OF COMMAND
JRST [MOVEM CH,GCSCH ;YES--SET TO RE-EAT
HRRZ CH,(D) ;GET OLD VALUE
JRST FLAGSF] ; PROCEED
CAIE CH,.CHTAB ;SEE IF SPACE
CAIN CH,C.SPC ;AND TAB
JRST FLAGSL ;YES--LOOP
FLAGSF: ANDI CH,CHRMSK ;MASK TO REAL CHARACTER
MOVEM CH,(D) ;STORE IN CONTROLLING WORD
JRST ENDCM ;END COMMAND
FLAGAA: TRZA F,R.NFLA ;.FLAG ALL--CLEAR FLAG SUPPRESSION
NOFLAA: TRO F,R.NFLA ;.NOFLAG ALL--SUPPRESS FLAGS
JRST ENDCM ;END OF EITHER COMMAND
CONT.
FLATAB: CM 0,<ALL>
CM CC.CAP,<CAPITALIZE>
CM CC.CON,<CONTROL>
CM CC.END,<ENDFOOTNOTE>
CM CC.IND,<INDEX>
CM CC.LOW,<LOWERCASE>
CM CC.QUO,<QUOTE>
CM CC.SPA,<SPACE>
CM CC.SUB,<SUBINDEX>
CM CC.UND,<UNDERLINE>
CM CC.UPP,<UPPERCASE>
LENFLA==.-FLATAB
FLASTD: ;PARALLELS CCTABL
-1,,C.CAP
C.CNT
C.EFNT
-1,,C.IND
C.DN
C.QNC
C.QS
C.SIF
C.ULI
C.UP
IFN .-FLASTD+CCTABL-CCTEND-1,<PRINTX ?CCTABL AND FLASTD DISAGREE>
$JUSTI: PUSHJ P,OUTNJ ;BREAK COMMAND
TLO F,L.PJUS+L.JUST ;TURN ON JUSTIFYING
JRST ENDJFC ;AND RETURN FROM COMMAND
$NOJUS: PUSHJ P,OUTNJ ;BREAK CURRENT LINE
TLZ F,L.PJUS+L.JUST ;TURN OFF JUSTIFY BITS
JRST ENDJFC ;AND FINISH COMMAND
$FILL: PUSHJ P,OUTNJ ;BREAK COMMAND
TLO F,L.FILL+L.JUST ;TURN ON FILLING, COPY L.PJUS TO L.JUST
TLNN F,L.PJUS ;COPY PERMANENT FLAG
TLZ F,L.JUST ;TO CURRENT ONE.
JRST ENDJFC ;END OF COMMAND
$NOFIL: PUSHJ P,OUTNJ ;BREAK CURRENT LINE
TLZ F,L.FILL+L.JUST ;TURN OFF FILLING AND JUSTIFYING
ENDJFC: PUSHJ P,JUSTYP ;TELL TYPESET OF JUSTIFICATION RULES
JRST ENDBCM ;END OF COMMAND
$TA.ST: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
SETZB D,NTABS ;CLEAR NUMBER OF TABS
SETT1: PUSHJ P,RCN ;GET ANOTHER STOP IF ANY
JRST [PUSHJ P,STSTYP ;SET TAB STOPS FOR TYPESETTING
JRST ENDCM] ;THEN RETURN
AOS X,NTABS ;ADVANCE COUNTER
CAILE X,LN$TAB ;SEE IF OVERFLOW
JRST ILCM ;YES--GIVE ERROR
TRNN F,R.NNUL ;SEE IF NUL
MOVE N,TABTAB-1(X) ;YES--GET PREVIOUS VALUE
CAMG N,D ;SEE IF MONOTONIC
JRST ILCM ;NO--ERROR
MOVE D,N ;YES--UPDATE TEST
MOVEM N,TABTAB-1(X) ;STORE RESULT
JRST SETT1 ;LOOP
;ROUTINE TO FIND NEXT TABSTOP FOR OUTLIN ROUTINE. CALL
;WITH CURRENT POSITION IN A.
;RETURNS NUMBER OF SPACES TO ISSUE IN A.
TAB: MOVEI X,0 ;START AT FIRST TABSTOP
JRST TAB1 ;PRE-ENDCHECK, IN CASE NONE.
TAB2: MOVE C,TABTAB-1(X) ;GET CURRENT TAB STOP
CAMGE A,C ;THIS STOP BEYOND CURRENT POS?
JRST TAB3 ;YES. GET DIFFERENCE
TAB1: CAMGE X,NTABS ;LOOKED AT ALL TAB STOPS?
AOJA X,TAB2 ;NO. LOOK AT ANOTHER
MOVE C,RMARG ;YES. ASSUME A TABSTOP AT RIGHT END
TAB3: SUB C,A ;GET DISTANCE TO TABSTOP
MOVE A,C ;ANSWER IN A
POPJ P, ;RETURN
;LINE SKIPPING COMMANDS
$SKIP: SKIPA S2,NSPNG ;SKIP COMMAND. N CURRENT LINES
$BLANK: MOVEI S2,1 ;BLANK COMMAND. N REAL LINES
SAVE$ S2 ;SAVE S2 FOR SAFETY
PUSHJ P,OUTNJ ;OUTPUT CURRENT LINE
RSTR$ S2 ;RESTORE S2
PUSHJ P,RCNO ;GET OPTIONAL ARGUMENT
MOVEI N,1 ;IF NONE, ASSUME 1
JUMPE N,ILCM ;ERROR IF ZERO
IMUL N,S2 ;MULTIPLY BY 1 OR NSPNG
JUMPG N,LINSK1 ;IF POSITIVE, THEN FROM HERE
LINSK0: MOVE N1,N ;COPY ARGUMENT
ADD N,NLPG ;COMPUTE DISTANCE FROM END
SUB N,LINEC ; ..
JUMPG N,LINSK2 ;SOME ROOM, PROCEED
SKIPN FLSOPG ;IF AT TOP
JRST ILCM ;AND NO ROOM, ERROR
PUSHJ P,BPAGE ;OK--NEW PAGE
MOVE N,N1 ;RECOVER ARGUMENT
JRST LINSK0 ;LOOP TO WIN
LINSK1: SKIPN FLSOPG ;AT TOP OF PAGE?
SKIPLE SCNTYP ; AND NOT TYPESETTING
SKIPA ;NO--ISSUE
JRST ENDBCM ;YES. IGNORE BLANK COMMAND.
LINSK2: MOVE A,N ;CHECK IF ROOM ON PAGE
ADD N,NSPNG ;PLUS SPACING TO NEXT LINE
PUSHJ P,TSTPAG ;SEE IF END
SKIPA ;YES--DON'T SPACE AFTER BREAK
PUSHJ P,SKIPNC ;NO--SPACE OUT C(A) LINES
JRST ENDBCM ;END OF COMMAND
CONT.
$FIGUR: PUSHJ P,OUTNJ ;BREAK COMMAND
MOVEI D,0 ;SET FLAG
PUSHJ P,CMGNWD ;SEE IF KEY WORD
JRST FIGUR1 ;NO--IMMEDIATE
HRROI S1,[EXP [ASCIZ /DEFERRED/]]
PUSHJ P,CMREC ;YES--SEE IF DEFERRED
JRST ILCM ;NO--ERROR
MOVEI D,1 ;OK--SET FLAG
FIGUR1: PUSHJ P,RCNO ;GET ARGUMENT
MOVEI N,1 ;IF NONE,ASSUME ONE LINE
CAMG N,NLPG ;CHECK FOR RATIONAL ARGUMENT
CAIG N,0 ; ..
JRST ILCM ;BAD. ERROR.
PUSH P,N ;SAVE DESIRED SPACE
ADD N,LINEC ;SEE IF NEED NEW PAGE FOR FIGURE
CAMGE N,NLPG ;WOULD THIS OVERFLOW PAGE
JRST FIGUR3 ;NO--DO IT NOW
JUMPE D,FIGUR2 ;YES--IF IMMEDIATE, GO FORCE PAGE
POP P,N ;IF DEFERRED, RECOVER ARG
ADDM N,DEFFIG ;SAVE DEFERRED FIGURE
JRST ENDBCM ;AND FINISH BREAK COMMAND
FIGUR2: SKIPG SCNTYP ;YES. SEE IF NOT TYPESETTING
PUSHJ P,BPAGE ;YES. BREAK PAGE
FIGUR3: SKIPG LINEC ;SEE IF NEW PAGE
PUSHJ P,HEADIN ;YES--ISSUE HEADING
POP P,A ;GET BACK DESIRED SIZE
PUSHJ P,SKIPN ;SPACE THAT OUT
JRST ENDBCM ;END OF BREAK COMMAND
;LITERAL N COMMAND--READ NEXT N LINES OF FILE AS LITERAL TEXT
;MUST BE FOLLOWED BY END LITERAL COMMAND
$LITER: PUSHJ P,OUTNJ ;BREAK PREVIOUS TEXT
SKIPG LINEC ;SEE IF TOP OF PAGE
PUSHJ P,HEADIN ;YES--OUTPUT HEADER
PUSHJ P,RCNO ;GET NUMBER
SKIPA N,[-1] ;FLAG NO COUNT
JUMPLE N,ILCM ;ERROR IF NEG OR ZERO
MOVEM N,LITCNT ;STORE COUNT FOR LOOP
PUSHJ P,FRCEND ;SKIP REST OF COMMAND LINE
;HERE ON EACH CHARACTER IN LITERAL TEXT LINE
LITER1: PUSHJ P,RTECMC ;GET DELAYED TEXT IF ANY
PUSHJ P,CCIN ;GET CHARACTER
IFEOF$ LITER3 ;EXIT LOOP IF EOF
SKIPN CPOS ;SEE IF AT START
JRST [PUSHJ P,LINUPC ;UPDATE THISXX LINE COUNTS
PUSH P,CH ;SAVE CH
SKIPG LINEC ;SEE IF AT TOP OF PAGE
PUSHJ P,HEADIN ;YES--ISSUE HEADING
PUSHJ P,FILSEQ ;OUTPUT FILE SEQUENCE
MOVE A,LMARG ;GET LEFT MARGIN
SKIPG SCNTYP ;UNLESS TYPESETTING,
PUSHJ P,NSPAC ;SPACE IN TO IT
POP P,CH ;RESTORE CH
JRST .+1] ;PROCEED
CAIN CH,.CHLFD ;SEE IF END OF LINE
JRST LITER3 ;YES--GO HANDLE IT
SKIPE NTABS ;SEE IF .TAB STOPS SET
CAIE CH,.CHTAB ;YES--SEE IF TAB
JRST LITER2 ;NO--HANDLE AS IS
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST LITER2 ;YES--NO SPECIAL TAB EXPANSION
MOVE A,CPOS ;GET CURRENT POSITION
PUSHJ P,TAB ;GET NEXT TAB SETTING
SKIPG A ;SEE IF POSITIVE
MOVEI A,1 ;NO--AT LEAST ONE SPACE
PUSHJ P,NSPAC ;OUTPUT THAT MANY SPACES
JRST LITER1 ;AND LOOP
LITER2: PUSHJ P,CCCOUT ;NO--OUTPUT CHAR
JRST LITER1 ;LOOP
CONT.
;HERE AT END OF EACH LINE IN LITERAL TEXT
LITER3: PUSH P,CH ;SAVE CHARACTER
MOVEI S1,[ASCIZ \/L
\]
SKIPLE SCNTYP ;SEE IF TYPESETTING
PUSHJ P,FMES ;YES--BREAK NO JUSTIFY
PUSHJ P,OUTLE ;OUTPUT END OF LINE AND SPACING
POP P,CH ;RESTORE CHARACTER
LITER4: IFEOF$ LITERX ;EXIT LOOP IF EOF
PUSHJ P,CCIN ;GET FIRST CHARACTER
IFEOF$ LITERX ;EXIT LOOP IF EOF
TLNE F,L.FOOT ;SEE IF FOOTNOTE
CAME CH,CC.END ;YES--SEE IF END OF FOOTNOTE
SKIPA ;NO--CONTINUE
JRST LITERX ;YES--EXIT LOOP AT END OF FOOTNOTE
MOVEM CH,GCSCH ;SAVE CHARACTER
SOSLE N,LITCNT ;COUNT DOWN LINES SEEN
JRST LITER1 ;LOOP UNTIL DONE N LINES
JUMPE N,LITER5 ;COUNT HAS RUN OUT
;HERE AT START OF LINE WHEN NOT COUNTING
MOVEI A,CCIN ;INDICATE READ ROUTINE
MOVEI B,$EN.LI ;INDICATE END HANDLER
PUSHJ P,TSTECM ;GO LOOK AT LINE
JRST LITER1 ;NOT END, SO RESUME HANDLING
JRST ENDBCM ;EXIT IF END LITERAL
CONT.
;HERE AT END OF LITERAL BY COUNT--DOUBLE CHECK FOR END LITERAL
LITER5: CAIN CH,.CHLFD ;SEE IF LINE FEED
JRST [AOS LITCNT ;YES--RESET COUNT AND
JRST LITER4] ; SKIP BLANK LINE
PUSHJ P,STRCMN ;START COMMAND ERROR BUFFER
CAME CH,CC.CON ;SEE IF COMMAND
JRST LITERX ;NO--ERROR
SETOM GCSCH ;CLEAR SAVED CHARACTER
PUSHJ P,CMGWD ;YES--GET FIRST WORD
JRST LITERX ;ERROR
MOVE S1,[-CMTL1,,CMTAB]
PUSHJ P,CMREC ;LOOK UP
JRST LITERX ;ERROR
HLRZ D,(D) ;GET DISPATCH ADDRESS
CAIN D,$EN.LI ;SEE IF END LITERAL
JRST ENDBCM ;YES--ALL DONE
CAIE D,$$END ;VERIFY .END
JRST LITERX ;NO--ERROR
LITER6: PUSHJ P,CMGNWD ;GET SECOND WORD
JRST LITERX ;ERROR
MOVE S1,[-ECMTL1,,ECMTAB]
PUSHJ P,CMREC ;GO RECOGNIZE IT
JRST LITERX ;NO--ERROR
HLRZ A,(D) ;GET DISPATCH ADDRESS
CAIN A,$EN.LI ;SEE IF END LITERAL
JRST ENDBCM ;YES--END OF LITERAL PROCESSING
;HERE ON ERRORS AT END OF LITERAL
LITERX: PUSHJ P,ENDCMT ;SKIP REST OF COMMAND
ILCM$ LDE,Literal doesn't end with ".END LITERAL"
;.END LITERAL COMMAND
$EN.LI: PUSHJ P,ENDCMT ;SKIP REST OF COMMAND
ILCM$ ELD,END LITERAL doesn't follow LITERAL
;.NOTE COMMAND (SAVE CURRENT STATE)
;PERIOD AND EXCLAMATION ARE VALID TEXT.
$NOTE: PUSHJ P,OUTNJ ;BREAK PREVIOUS LINE
SKIPG LINEC ;IF START OF PAGE,
PUSHJ P,HEADIN ; ISSUE PAGE HEADING
MOVEI N,NFSPAC ;SET FOR FINAL SPACING
PUSHJ P,PSHMJS ;SAVE MARGINS, ETC.
MOVEI A,NPMARG ;SET NOTE
SKIPE LMARG ; PRIMARY UNLESS NOT
MOVEI A,NSMARG ; AT LEFT BORDER
ADDM A,LMARG ; LEFT MARGIN
MOVNS A ;MOVE RIGHT MARGIN
ADDM A,RMARG ; IN THE SAME DISTANCE
MOVEI A,NSPACG ;SET NOTE
MOVEM A,NSPNG ; SPACING
SETZM INDCT ;CLEAR INDENT
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
TLO F,L.JUST!L.FILL ;.FILL
TLNN F,L.PJUS ;COPY .JUSTIFY
TLZ F,L.JUST ; FLAG
PUSHJ P,JUSTYP ;ISSUE JUSTIFICATION TO TYPESET
MOVEI A,NHSPAC ;SET INITIAL SPACING
IMUL A,NSPNG ; TIMES CURRENT SPACING
MOVE N,PARTPG ;GET PARAGRAPH TEST PAGE
ADDI N,1+NASPAC ;ALLOW FOR NOTE HEADING
IMUL N,NSPNG ;TIMES SPACING
ADDI N,(A) ;INCLUDE SPACES
PUSHJ P,TSTPAG ;SEE IF ROOM
SKIPA ;NO--GONE TO NEW PAGE
PUSHJ P,SKIPN ;YES--DO THE SKIP
MOVE N,RMARG ;R MARGIN
ADD N,LMARG ;SUM OF MARGINS
HRLI N,NASPAC ;SET FOR SPACE AFTER HEADER
MOVEM N,CENPOS ;SET FOR CENTER COMMAND
SETOM CENTTL ;DON'T CHANGE TITLE
MOVEI S1,[ASCIZ \[*NT]\]
SKIPLE SCNTYP ;IF TYPESETTING
PUSHJ P,FMES ; ISSUE INDICATION
PUSHJ P,RSKIPS ;SKIP SPACES AND TABS
JRST NOTEN ;IF NO MORE, THAT'S ALL
SKIPG SCNTYP ;UNLESS TYPESETTING,
PUSHJ P,CENT ; GO CENTER LINE
SKIPLE SCNTYP ;IF TYPESETTING,
PUSHJ P,INPTYP ; SEND REST OF LINE TO THEM
PUSHJ P,ATTYP ;ISSUE END OF MACRO FOR TYPESETTING
JRST ENDBCM ;FINISH COMMAND PROCESSING
CONT.
;HERE IF NO STRING ON .NOTE COMMAND
NOTEN: PUSHJ P,FILSEQ ;ISSUE SEQUENCE NUMBERS
HRRZ A,CENPOS ;CENTER
SUBI A,4 ;ALLOW FOR "NOTE"
LSH A,-1 ;CENTER IS 1/2
SKIPG SCNTYP ;UNLESS TYPESETTING,
PUSHJ P,NSPAC ; SPACE OVER
MOVEI S1,[ASCIZ /NOTE/]
PUSHJ P,MCOUT ;OUTPUT "NOTE"
PUSHJ P,ATTYP ;ISSUE END OF MACRO FOR TYPESETTING
SKIPLE SCNTYP ;IF TYPESETTING,
JRST ENDBCM ; ALL DONE
PUSHJ P,SKIPS ;END LINE
PUSHJ P,CENTX ;FINISH CENTERED LINE
JRST ENDBCM ;AND COMMAND
;.LIST COMMANDS (SAVE CURRENT STATE)
$LIST: PUSHJ P,OUTNJ ;BREAK PREVIOUS LINE
MOVNI N,LFSPAC ;SET FOR NO SPECIAL SPACING
PUSHJ P,PSHMJS ;SAVE MARGINS, ETC.
PUSHJ P,RCNO ;GET ARGUMENT
MOVE N,NSPNG ;NULL--GET CURRENT SPACING
JUMPLE N,ILCM ;ERROR IF NEGATIVE
CAILE N,MX.SPC ;SEE IF TOO BIG
JRST ILCM ;YES--ERROR
MOVEM N,NSPNG ;SET NEW .SPACING
MOVEI N,L0LMAR ;GET LIST MARGIN 9
SKIPE LMARG ;IS LEFT MARGIN 0
MOVEI N,LSLMAR ;NO, GET 4
ADDM N,LMARG ;INCR LEFT MARGIN
SETZM INDCT ;CLEAR INDENT
PUSHJ P,LRMTYP ;ISSUE MARGINS FOR TYPESETTING
AOS N,LASLS ;INCREMENT LIST DEPTH
CAILE N,LN$MJP ;SEE IF OVERFLOW
SOS N,LASLS ;YES--BACK OFF
SETZM LSTCNT(N) ;CLEAR COUNTER
MOVEI S1,[ASCIZ \[*LS]\]
SKIPLE SCNTYP ;IF TYPESET,
PUSHJ P,FMES ; TELL TYPESET
JRST ENDBCM ;END BREAK COMMAND
CONT.
;.END (NOTE) (RESTORES STATE)
$END: PUSHJ P,OUTNJ ;BREAK PREVIOUS LINE
PUSHJ P,POPMJS ;RESTORE STATE
SETZM INDCT ;CLEAR INDENT
SKIPGE N ;SEE IF ENDING A LIST
SOS LASLS ;YES--DECREMENT DEPTH
SKIPGE LASLS ;SEE IF UNDERFLOW
SETZM LASLS ;YES--PROTECT OURSELF
MOVEI S1,[ASCIZ \[*EN]\]
SKIPGE N ;IF END LIST,
MOVEI S1,[ASCIZ \[*ELS]\]
SKIPLE SCNTYP ;IF TYPESET,
PUSHJ P,FMES ; TELL TTYPESET
MOVMS N ;GET ABSOLUTE VALUE
IMUL N,NSPNG ;MULT POST SPACING BY
MOVE A,N ; CURRENT SPACING
PUSHJ P,SKIPNC ; AND ISSUE IT
JRST ENDBCM ;END BREAK COMMAND
;.LIST ELEMENT
$LI.EL: PUSHJ P,OUTNJ ;BREAK PREVIOUS LINE
PUSHJ P,PARAG0 ;SETUP PARAGRAPH
MOVEI S1,[ASCIZ \[*LE]\]
SKIPLE SCNTYP ;IF TYPESETTING,
PUSHJ P,FMES ; TELL TYPESET
MOVE N,LASLS ;GET LIST DEPTH
AOS N,LSTCNT(N) ;COUNT THIS ENTRY
PUSHJ P,COUNTD ;SEE HOW MANY DIGITS
ADDI A,LESPAC+1 ;ALLOW ALSO FOR ".##"
CAMLE A,LMARG ;BUT AVOID UNDERFLOW
MOVE A,LMARG ; ..
MOVNM A,INDCT ;SPECIFY AS NEGATIVE INDENT
PUSHJ P,LINSET ;SETUP NEW LINE
MOVE N,LASLS ;GET DEPTH
MOVE N,LSTCNT(N) ;GET COUNT
PUSHJ P,DECINP ;STORE IN LINE
MOVEI CH,C.PD ;GET PERIOD
PUSHJ P,WLNINC ;STORE THAT
MOVEI D,LESPAC ;GET COUNT OF SPACES
MOVEI CH,C.NXS ;GET NON-EXPANDABLE SPACE ITSELF
PUSHJ P,WLNINC ;STORE IT
SOJG D,.-1 ;LOOP UNTIL DONE
TLO F,L.NFSP ;INDICATE NO FREE SPACE
JRST ENDCM ;FINISH WITHOUT BREAK
;.RIGHT COMMAND
$RIGHT: PUSHJ P,RCNO ;GET NUMBER
JFCL ;IGNORE ERROR
SUB N,RMARG ;COMPUTE -<R.MARG.-ARG>
JUMPG N,ILCM ;ERROR IF N GT R.MARG.
MOVE A,N ;MAKE A COPY
ADD A,PRMRG ;COMPARE WITH PAGE WIDTH
JUMPL A,ILCM ;ERROR IF TO RIGHT OF PAGE WIDTH
JRST CENT0 ;AND GO INTO .CENTER CODE
;CENTER COMMAND
;PERIOD AND EXCLAMATION ARE VALID TEXT.
$CENTE: MOVE N,PRMRG ;GET RIGHT SIDE OF PAPER
PUSHJ P,RCNR ;SEE IF ANY ARGUMENT
JFCL ;IGNORE NULL
JUMPLE N,ILCM ;ERROR IF NEG OR ZERO
MOVE A,N ;COMPARE
LSH A,-1 ; TO
CAML A,PRMRG ; RIGHT MARGIN
JRST ILCM ;ERROR IF BEYOND
CENT0: HRRZM N,CENPOS ;SAVE POSITION
SETOM CENTTL ;DON'T CHANGE TITLE
PUSHJ P,OUTNJ ;OUTPUT CURRENT LINE
PUSHJ P,FRCEND ;SKIP TO END OF COMMAND
PUSHJ P,CENT ;GO DO THE CENTERING
JRST ENDBCM ;AND FINISH PROCESSING
;ROUTINE TO ACTUALLY DO THE CENTERING. IT MUST
;BE INITIALIZED WITH CENPOS AS FOLLOWS:
;RH(CENPOS) = +N IF CENTER ON COL.N/2
; -N IF RIGHT ADJUST ON COL.N
;LH(CENPOS) = +N IF SKIP N AFTER LINE
; -N DITTO, BUT COMMAND CAN END WITH ; ETC.
CENT: SETZM INDCT ;CLEAR INDENT
SKIPG LINEC ;SEE IF TOP OF PAPER
PUSHJ P,HEADIN ;YES--OUTPUT HEADING
PUSHJ P,LINSET ;INITIALIZE LINE COUNTER
MOVEI C,0 ;COUNT OF TRAILING SPACES AND TABS
CENTL: PUSHJ P,GCIN ;READ LINE TO BE CENTERED
SKIPGE CENPOS ;SEE IF NEW STYLE COMMAND
JRST [PUSHJ P,CMSOMP ;YES--SEE IF END OF COMMAND [165]
JRST CENT2 ;YES--THAT'S ALL
JRST .+1] ;NO--CONTINUE
CAIN CH,.CHLFD ;THROUGH LINE FEED
JRST CENT2 ; LINE FEED--DONE.
CAIN CH,.CHTAB ;SEE IF TAB
MOVEI CH,C.SPC ;YES--CHANGE TO SPACE
CAIE CH,C.SPC ;SEE IF SPACE
TDZA C,C ;NO--CLEAR COUNT
SOS C ;YES--COUNT IT
CAIN CH,LCHPVT!C.SPC ;[236] IS THIS A FORCED SPACE?
AOS NSPCH ;[236] YES--COUNT IT AS NON-SPACE
PUSHJ P,WLNIN1 ;PUT IN LINE INPUT BUFFER
SOSGE CENTTL ;SEE IF TITLE CHANGING
JRST CENTL ;NO OR FULL
MOVEI PA,TTLP1 ;YES--POINT TO IT
PUSHJ P,WCI ;STORE
TXNE CH,LCHPVT ;SEE IF QUOTED
SOS CENTTL ;YES--EXTRA COUNT
JRST CENTL ;LOOP FOR MORE
CONT.
CENT2: MOVEM CH,GCSCH ;END--SAVE CHARACTER
ADDB C,LNIN2 ;CHOP TRAILING SPACES/TABS
HRRE A,CENPOS ;RESTORE ARGUMENT
CAMG C,LNIN1 ;SEE IF BLANK LINE
JRST CENTBL ;YES--GO HANDLE
SKIPLE SCNTYP ;IF TYPESETTING,
JRST CENTYP ; GO HANDLE SPECIALLY
JUMPLE A,[MOVN B,A ;IF NEG, WAS .RIGHT
HRLOI A,INFIN
JRST CENT3]
ADD A,LNIN1 ;AS HALF RIGHT MARGIN
SUB A,LNIN2 ;MINUS HALF OF LINE SIZE
ADD A,NSPCH ; INCLUDING UNDERLINES, ETC.
ASH A,-1 ;TAKE HALF
MOVE B,PRMRG ;GET RIGHT MARGIN
CENT3: ADD B,LNIN1 ;SUBTRACT
SUB B,LNIN2 ;WIDTH
ADD B,NSPCH ;HANDLE NON-SPACING CONTENT
CAMLE A,B ;SEE IF TOO FAR RIGHT
MOVE A,B ;YES--SHIFT LEFT
SUB A,LMARG ;COUNTERACT MARGINS
MOVEM A,INDCT ;SET AS FUNNY INDENT
PUSHJ P,OUTNJ ;OUTPUT THE LINE
JRST CENTX ;FINISH CENTER COMMAND
CONT.
;HERE TO OUTPUT FOR TYPESETTING
CENTYP: JUMPLE A,RGHTYP ;IF RIGHT ADJUSTING, GO HANDLE
MOVE N,A ;GET IN USEFUL PLACE
SUB A,LMARG ;SEE IF
CAMN A,RMARG ; CENTERED IN MARGINS
JRST [PUSHJ P,LINTYP ;YES--OUTPUT LINE BUFFER
MOVEI S1,[ASCIZ \/C/L
\]
PUSHJ P,FMES ;CENTER AND END LINE
JRST CENTX] ;AND GO FINISH UP
MOVEI S1,[ASCIZ \[T%][TS\]
PUSHJ P,FMES ;ELSE, CLEAR TABS
IMUL N,TYPMUL ;CONVERT COLUMN TO
IMULI N,^D12 ; HORIZONTAL
MOVE A,TYPDIV ; SPACING
LSH A,1 ; (ALLOW FOR N/2)
IDIV N,A ; INTO POINTS
CAML N1,TYPDIV ; AND ROUND
AOS N ; OFF
PUSHJ P,TYPHSP ;OUTPUT HORIZONTAL SPACING
MOVEI CH,"]" ;END COMMAND
PUSHJ P,FOUT ; FOR TYPESETTING
PUSHJ P,LINTYP ;OUTPUT LINE BUFFER
MOVEI S1,[ASCIZ \/A/L
\]
PUSHJ P,FMES ;CENTER ON TAB
PUSHJ P,STSTYP ;SET TAB STOPS
JRST CENTX ;AND GO FINISH UP
;HERE FOR TYPESETTING RIGHT ADJUSTED
RGHTYP: MOVE N,RMARG ;GET RIGHT MARGIN
ADD N,A ;GET OFFSET BACK INDENT
JUMPE N,RGHTY1 ;IF FULL RIGHT, NO HANG
MOVEI S1,[ASCIZ \/?[HR\]
PUSHJ P,FMES ;CLEAR LINE AND HANG RIGHT
PUSHJ P,TYPDSP ;ISSUE AMOUNT OF HANG
MOVEI S1,[ASCIZ \,0,1]\]
PUSHJ P,FMES ;FOR ONE LINE, NO DELAY
RGHTY1: PUSHJ P,LINTYP ;OUTPUT LINE BUFFER
MOVEI S1,[ASCIZ \/R
\]
PUSHJ P,FMES ;RIGHT ADJUST
JRST CENTX ;AND GO FINISH UP
CENTBL: PUSHJ P,OUTLEX ;SKIP BLANK LINE IF BLANK
CENTX: HLRE A,CENPOS ;GET SPACING
MOVMS A ;GET ABS. VALUE
IMUL A,NSPNG ;SET SPACING
PJRST SKIPN ;OUTPUT SPACING AND RETURN
;BAR COMMANDS:
;ENABLE BAR
$AN.BA: SKIPN SCNBAR ;SEE IF /BAR:0
JRST ENDCM ;YES--IGNORE BAR ACTIVITY
MOVEI S1,[ASCIZ \[*EBB]\]
SKIPLE SCNTYP ;IF TYPESET,
JRST TYPBAR ; GO HANDLE
SETOM BARSW ;INDICATE ENABLED
JRST ENDCM ;END COMMAND
;BEGIN BAR
$BE.BA: MOVEI S1,[ASCIZ \[*BB]\]
SKIPLE SCNTYP ;IF TYPESET,
JRST TYPBAR ; GO HANDLE
SKIPN BARSW ;IF BARS DISABLED,
JRST ENDCM ; JUST IGNORE BAR
SETOM BARON ;INDICATE BARS
SETOM BARNPY ;SET BAR MODE FOR START ALSO
JRST ENDCM ;END COMMAND
;DISABLE BAR
;END BAR
$DI.BA: MOVEI S1,[ASCIZ \[*DB]\]
SKIPLE SCNTYP ;IF TYPESET,
JRST TYPBAR ; GO HANDLE
SETZM BARSW ;DISABLE BARS
SETZM BARNPY ;CLEAR HANGING BAR
$EN.BA: MOVEI S1,[ASCIZ \[*EB]\]
SKIPLE SCNTYP ;IF TYPESET,
JRST TYPBAR ; GO HANDLE
SETZM BARON ;STOP BARS
MOVE B,LNIN1 ;IF INPUT BUFFER
CAMN B,LNIN2 ; EMPTY, AND
SKIPE CPOS ;IF AT START OF LINE,
SKIPA ;NO
SETZM BARNPY ;YES--CLEAR BAR THIS LINE FLAG
JRST ENDCM ;END COMMAND
;HERE IF /TYPESET ON A BAR COMMAND
TYPBAR: SKIPE SCNBAR ;UNLESS /NOBAR,
PUSHJ P,FMES ;ISSUE MACRO TO TYPESET
JRST ENDCM ;AND END COMMAND
;.TYPESET COMMAND
; TAKES LIST OF ARGUMENTS SEPARATED BY SPACE OR COMMA
; EACH ITEM IS ONE OF:
; SPACE SPACE OUTPUT (DEFAULT=NO SPACES)
; BOLD )
; ITALICS )-- SELECT SPECIAL CASE
; REGULAR ) (RESTORES TO REGULAR
; SMALLCAPS) UNLESS AT END)
;
; "STRING" STRING HAS " AS ""
; [STRING] INCLUDES []
; <STRING> INCLUDES <>
; +CHAR INCLUDES +
; /CHAR INCLUDES /
$TYPES: SKIPG SCNTYP ;SEE IF /TYPESET
JRST $COMME ;NO--TREAT AS COMMENT
SETOM FLTYPC ;INDICATE .TYPESET
SETZM FLTYPR ;DON'T RESTORE REGULAR FONT
PUSHJ P,OUTLIN ;OUTPUT WHAT WE HAVE SO FAR
SETZM FLTYPC ;CLEAR .TYPESET MODE
TYPESL: PUSHJ P,CMGNWD ;GET NEXT COMMAND WORD
JRST TYPESC ;NULL--GO SEE IF SPECIAL
MOVE S1,[-LENTYP,,TYPTAB]
PUSHJ P,CMREC ;GO LOOK IN TABLE
JRST ILCM ;ERROR IF NOT FOUND
HLRZ S1,(D) ;GET VALUE
SKIPN S1 ;IF 0, "SPACE"
JRST [MOVEI CH," " ;ISSUE SPACE
PUSHJ P,FOUT ; TO OUTPUT
JRST TYPESL] ;LOOP FOR MORE
SETOM FLTYPR ;INDICATE FONT SETTING
PUSHJ P,FMES ;ISSUE FONT CHANGE
JRST TYPESL ;LOOP FOR MORE
TYPESC: PUSHJ P,CMSOME ;SEE IF END OF COMMAND
JRST TYPESX ;YES--EXIT
PUSHJ P,CCIN ;GET SEPARATOR
CAIN CH,"," ;IF COMMA,
JRST TYPESL ; JUST LOOP FOR MORE WORK
MOVMS FLTYPR ;INDICATE TEXT FOLLOWING FONT
CAIE CH,"+" ;IF PI-CASE
CAIN CH,"/" ;OR ESCAPE,
JRST [PUSHJ P,FOUT ; ISSUE THIS CHARACTER
PUSHJ P,CCIN ; GET NEXT CHAR
PUSHJ P,FOUT ; ISSUE THAT
CAIN CH,.CHLFD ;DEFEND AGAINST LINE FEED
JRST TYPESX ; YES--EXIT
JRST TYPESL] ; NO--LOOP FOR MORE WORK
CONT.
;HERE WHEN LOOKING FOR A QUOTED STRING IN .TYPESET COMMAND
MOVEI C2,0 ;CLEAR MATCH
CAIN CH,"[" ;SEE IF BRACKET MODE
MOVEI C2,"]" ;YES--SET END CODE
CAIN CH,"<" ;SEE IF COMMENT
MOVEI C2,">" ;YES--SET END CODE
CAIN CH,"""" ;SEE IF QUOTED STRING
HRROI C2,"""" ;YES--SET QUOTED END CODE
JUMPE C2,ILCM ;IF NOT RECOGNIZED, ERROR
SKIPL C2 ;UNLESS QUOTE,
TYPESS: PUSHJ P,FOUT ; ISSUE THIS CHARACTER
PUSHJ P,CCIN ;GET NEXT CHARACTER
CAIN CH,.CHLFD ;SEE IF END OF LINE
JRST TYPESX ;YES--END COMMAND
CAIE CH,(C2) ;SEE IF MATCHES END
JRST TYPESS ;NO--LOOP OUTPUTTING
SKIPL C2 ;YES--SEE IF QUOTE
JRST [PUSHJ P,FOUT ;NO--ISSUE END
JRST TYPESL] ; AND LOOP FOR MORE WORK
PUSHJ P,CCIN ;YES--GET NEXT CHARACTER
CAIN CH,(C2) ;SEE IF DOUBLED QUOTE
JRST TYPESS ;YES--REPRESENTS ONE QUOTE
MOVEM CH,GCSCH ;NO--TRUE END, PREPARE TO REEAT
JRST TYPESL ;LOOP FOR MORE WORK
TYPESX: MOVEI S1,[ASCIZ \[FR]\]
SKIPLE FLTYPR ;IF FONT THEN TEXT,
PUSHJ P,FMES ; RESTORE REGULAR FONT
SETZM FLTYPR ;CLEAR FLAG
SETOM FLTYPS ;SET TO SUPPRESS NEXT FREE SPACE
TLO F,L.NFSP ;SET FOR NO ENDING SPACE
MOVEI S1,CRLFM ;GIVE EXTRA CRLF
PUSHJ P,FMES ; TO HANDLE TYPESET LINE LIMIT
JRST ENDBCM ;GO RE-INITIALIZE BUFFER
TYPTAB: ;TABLE OF [FONT SET],,COMMAND
CM <[ASCIZ \[FB]\]>,<BOLD>
CM <[ASCIZ \[FI]\]>,<ITALICS>
CM <[ASCIZ \[FR]\]>,<REGULAR>
CM <[ASCIZ \[FM]\]>,<SLANT>
CM <[ASCIZ \[FS]\]>,<SMALLCAPS>
CM < 0>,<SPACE>
LENTYP==.-TYPTAB
SUBTTL CHAPTER AND SECTION OPERATIONS
;+
;.CHAPTER CHAPTER AND SECTION OPERATIONS
;-
;.CHAPTER COMMAND
; DOES .BREAK.PAGE.BLANK12.CENTER;^^CHAPTER N
; ALSO SETS NEW TITLE
; .BLANK1.CENTER;TITLE(REST OF COMMAND)
; .BLANK3;RESETS CASE, MARGINS, SPACING, JUST/FILL
;PERIOD AND EXCLAMATION ARE VALID TEXT
$CHAPT: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;FINISH CURRENT LINE
PUSHJ P,BPAGE ;BREAK PAGE
JRST CHAPT ;GO DO THE WORK
;.APPENDIX COMMAND
;SAME AS .CHAPTER EXCEPT PAGE NUMBERS A-1, ETC.
$APPEN: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;FINISH CURRENT LINE
PUSHJ P,BPAGE ;BREAK PAGE
MOVX A,APPXFL ;SET APPENDIX
TDNN A,SECNUM ; FLAG UNLESS
MOVEM A,SECNUM ; ALREADY SET
CONT.
;^THE CHAPTER AND APPENDIX COMMANDS MERGE TOGETHER HERE
;TO ACTUALLY OUTPUT THE HEADING.
CHAPT: MOVEI A,ILPGNO ;RESET
MOVEM A,PAGENO ; PAGE COUNTER
SETZM SUBPGE ;CLEAR SUBPAGING
SKIPLE B,PNLPG ;GET PAGE LENGTH [205]
CAIG B,^D1000 ;UNLESS ABSURD, THEN [205]
MOVEI B,^D64 ;USE "STANDARD" [205]
MOVEI A,CHAPTB ;WANT TWELVE BLANK LINES
IMUL A,B ;TIMES PAGE LENGTH
IDIVI A,^D64 ;DIVIDED BY NOMINAL LENGTH
PUSHJ P,SKIPN ;GET THEM
SETOM FLTITL ;INDICATE TO START TITLES
MOVEI A,0 ;LEVELS TO ZERO COUNTER
PUSHJ P,ZERSEC ;ZERO LOWER LEVELS
PUSHJ P,FILSEQ ;OUTPUT FILE SEQUENCE
MOVE A,SECNUM ;GET CHAPTER NUMBER
PUSHJ P,COUNTC ;COUNT DIGITS
MOVE B,A ;SAVE
MOVE A,PRMRG ;GET PAPER WIDTH
SUBI A,^D8(B) ;ALLOW FOR "CHAPTER N"
MOVE C,SECNUM ;GET CHAPTER NUMBER
TXNE C,APPXFL ;SEE IF APPENDIX
SOS A ;YES--ALLOW FOR WIDER WORD
LSH A,-1 ;COMPUTE CENTER
SKIPG SCNTYP ;UNLESS TYPESETTING
PUSHJ P,NSPAC ;SPACE IN
MOVEI S1,[ASCIZ/CHAPTER /] ;INSERT WORD "CHAPTER"
TXNE C,APPXFL ;CHECK FOR APPENDIX
MOVEI S1,[ASCIZ/APPENDIX /] ;YES--USE "APPENDIX" INSTEAD
SKIPG SCNTYP ;UNLESS TYPESETTING
PUSHJ P,MCOUT ; OUTPUT IT
MOVEI S1,[ASCIZ \[*CH]\]
TXNE C,APPXFL ;CHECK FOR APPENDIX
MOVEI S1,[ASCIZ \[*AX]\]
SKIPLE SCNTYP ;IF TYPESETTING
PUSHJ P,FMES ; OUTPUT MACRO CALL
MOVE N,SECNUM ;WHAT CHAPTER?
PUSHJ P,CHPPRT ;OUTPUT NUMBER
PUSHJ P,ATTYP ;END TYPESETTING MACRO ARG
MOVEI A,CHAPTC+1 ;WANT A BLANK LINE
SKIPG SCNTYP ;UNLESS TYPESETTING
PUSHJ P,SKIPN ; OUTPUT IT
PUSHJ P,CLRTTL ;RESET AND CLEAR TITLE BUFFER
MOVEI A,5*LN$TTL-1 ;SET COUNT
MOVEM A,CENTTL ;FOR CENTER ROUTINE
PUSHJ P,CLRSTT ;CLEAR SUBTITLE
CONT.
PUSHJ P,RSKIPS ;SKIP TO TITLE
JRST CHAPX ;MISSING--JUST FINISH
PUSHJ P,LINDFL ;FORCE LINE UPPER CASE
SKIPLE SCNTYP ;IF TYPESETTING
JRST [PUSHJ P,INPTYP ; OUTPUT REST OF COMMAND
JRST CHAPX] ; AND PROCEED
MOVE N,PRMRG ;GET PAPER WIDTH
HRLI N,-CHAPTD ;SET FOR 3 BLANKS AFTER
MOVEM N,CENPOS ;SET INFO FOR CENT PROCESSING
PUSHJ P,CENT ;GO CENTER LINE
CHAPX: PUSHJ P,ATTYP ;END TYPESETTING MACRO ARG
MOVE N,PRMRG ;END OF CHAP COMMAND
SETZM SMINSC ;INDICATE NOTHING IN THIS SECTION
JRST SDXY ;RESET PARAMETERS
;.HEADER LEVEL COMMAND
;TAKES NUMBER THEN TEXT AS ARGUMENT. NUMBER IS THE
;SECTION DEPTH (1-4); THE TEXT IS THE SECTION TITLE.
; DOES A .BREAK.TP<PARAG+7>.BLANK3
; THEN TYPES A.B.C.D (DECIMAL COUNTS)##^^(IF HL1)TEXT
; THEN IF .HL1-2 .BLANK1
; ELSE CONTINUES #-#
;CAPITALIZES FIRST LETTER OF EACH WORD (ALL LETTERS IF .HL1).
;FINALLY, RESETS CASE, JUST/FILL
;PERIOD AND EXCLAMATION ARE VALID TEXT.
$HE.LE: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;OUTPUT PREVIOUS LINE
MOVE N,PARTPG ;GET PARAGRAPH .TP
IMUL N,NSPNG ;TIMES SPACING
ADDI N,HEADLT+HEADLB ;ALLOW FOR .HL SPACING
PUSHJ P,TSTPAG ;SEE IF ROOM ON PAGE
JRST HL1 ;NO--CONTINUE
MOVEI A,HEADLB ;ROOM--ISSUE LEADING BLANK
SKIPE SMINSC ;UNLESS BLANK SECTION,
PUSHJ P,SKIPNC ; LINES
CONT.
HL1: SKIPN N,LASHL ;GET LAST DEPTH INDICATOR
MOVEI N,1 ;(START AT 1)
PUSHJ P,RCNR ;GET RELATIVE HEADING LEVEL
JFCL ;NULL IS SAME AS LAST ONE
CAIG N,LN$SEC ;SEE IF 6 OR LESS
CAIG N,0 ;SEE IS NOT ZERO
JRST ILCM ;ERROR
TLO F,L.PJUS!L.JUST!L.FILL ;SET .FILL.JUST
PUSHJ P,JUSTYP ;ISSUE JUSTIFICATION TO TYPESET
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST [MOVEI S1,[ASCIZ \[*HL\]
PUSHJ P,FMES ;YES--INDICATE IT
SAVE$ N ;PRESERVE LEVEL
PUSHJ P,DECPRT ;INDICATE LEVEL
RSTR$ N ;RESTORE LEVEL
MOVEI CH,"]" ;END MACRO CALL
PUSHJ P,FOUT ; ..
JRST .+1] ;AND CONTINUE
MOVE A,N ;PUT LEVEL IN A
PUSHJ P,ZERSEC ;ZERO APPROPRIATELY
PUSHJ P,LINDFO ;FORCE EACH WORD CAPITALIZED
CAIN N,1 ;IS IT FIRST LEVEL?
PUSHJ P,LINDFL ;YES--FORCE LINE UPPER CASE
PUSHJ P,OUTSEC ;GO PUT OUT HEADING
;NOTE--A SET TO 0 IF NO HEADING
SAVE$ A ;PRESERVE VALUE
MOVEI CH,C.TAT ;SET END OF TYPESETTING MACRO
PUSHJ P,WLNIN1 ; INTO INPUT BUFFER
RSTR$ A ;RESTORE FLAG
AOS LINNSC ;COUNT AS NON-SPACING
MOVE B,FILCAS ;GET INITIAL CASE MODE
MOVEM B,CAS ;MAKE IT CURRENT MODE
MOVE N,LASHL ;GET HEADING LEVEL
CAIL N,3 ;IF .HL1 OR .HL2
JRST HD3OUT ;NO--GO HANDLE
PUSHJ P,OUTNJ ;YES--OUTPUT LEFT JUSTIFIED
MOVEI A,HEADLC ;ISSUE FINAL
PUSHJ P,SKIPN ; BLANK
SETZM SMINSC ;INDICATE NOTHING IN THIS SECTION YET
JRST ENDBCM ;AND END THIS BREAK COMMAND
;HERE IF .HL3 OR GREATER
HD3OUT: JUMPE A,HD3OUN ;IF NO NAME, SKIP SEPARATOR
MOVEI CH,C.NXS ;GET NON-EXPANDABLE SPACE
PUSHJ P,WLNINC ;STORE
MOVEI CH,C.HYPH ;GET HYPHEN
PUSHJ P,WLNINC ;STORE
MOVEI CH,C.NXS ;GET NON-EXPANDABLE SPACE
PUSHJ P,WLNINC ;STORE
HD3OUN: TLO F,L.NFSP ;INDICATE NO FREE SPACE
SETZM SMINSC ;INDICATE NOTHING IN THIS SECTION YET
JRST ENDCM ;END LINE WITHOUT CLEARING BUFFER
;ROUTINE TO ZERO COUNTERS BEYOND A SPECIFIED LEVEL
;AND COUNT AT THIS LEVEL
;CALL WITH LEVEL IN A (0=CHAPTER)
ZERSEC: MOVEM A,LASHL ;SAVE AS CURRENT/LAST HL
AOS SECNUM(A) ;COUNT THIS ONE
ZRSCLP: ADDI A,1 ;GO TO NEXT LOWER LEVEL
CAIL A,LN$SEC ;SEE IF DONE
POPJ P, ;YES--RETURN
SETZM SECNUM(A) ;NO--ZERO THIS LEVEL
JRST ZRSCLP ;LOOP
;ROUTINE TO OUTPUT CURRENT SECTION'S NUMBER
;CALLED WITH N=CURRENT SECTION LEVEL (1 FOR .HL1)
;RETURNS A=0 IF NO HEADING SPECIFIED
OUTSEC: MOVN D,N ;GET NEG LEVEL
HRLZI D,-1(D) ;SET FOR AOBJN INCL. CHAPTER
SKIPN SECNUM ;SEE IF.CHAP
AOBJN D,.+1 ;NO--SKIP CHAPTER LEVEL
TLC D,-1 ;SEE IF .HL1 WITHOUT CHAPTER
TLCN D,-1 ; ..
SUB D,[1,,0] ;YES--MIN OF TWO LEVELS
OUTSEL: MOVE N,SECNUM(D) ;GET THIS SECTION'S NUMBER
TRNN D,-1 ;SEE IF CHAPTER LEVEL
PUSHJ P,CHPINP ;YES--ISSUE IN CHAPTER FORMAT
TRNE D,-1 ;ELSE,
PUSHJ P,DECINP ; CONVERT TO DECIMAL IN INPUT BUFFER
AOBJP D,SECSPC ;COUNT--EXIT IF DONE
MOVEI CH,C.PD ;NO--GET PERIOD
PUSHJ P,WLNINC ;ENTER AS SEPARATOR
JRST OUTSEL ;LOOP
CONT.
;HERE AT END OF ISSUEING SECTION ID
SECSPC: MOVEI CH,C.NXS ;GET NON-EXPANDABLE SPACE
PUSHJ P,WLNINC ;ENTER IN INPUT
PUSHJ P,WLNINC ;AND A SECOND TIME
PUSHJ P,RSKIPS ;SKIP TO TEXT IN COMMAND
JRST [SETZM A ;IF NO TEXT
POPJ P,] ; RETURN WITH A=0
SETOM C ;INDICATE NO SUBTITLE
MOVE A,LASHL ;GET HL LEVEL
CAIE A,1 ;SEE IF HL1
JRST HLLP ;NO--DON'T CHANGE SUBTITLE
PUSHJ P,CLRSTT ;CLEAR SUBTITLE
MOVEI C,5*LN$TTL-1 ;GET LENGTH
HLLP: PUSHJ P,GCIN ;GET NEXT LINE OF TEXT
CAIE CH,.CHTAB ;SEE IF TAB
CAIN CH,C.SPC ; OR SPACE
JRST HLSP ;YES--GO HANDLE
PUSHJ P,CMSOMP ;SEE IF DONE [165]
JRST HLXT ;YES--RETURN
HLST: CAIG CH,C.FLGS ;[234] INTERNAL FLAG?
JRST HLSU ;[234] YES--SPECIAL PROCESSING
PUSHJ P,WLNINC ;NO--STORE
SOJL C,HLLP ;COUNT DOWN SPACE IN SUBTITLE
MOVEI PA,STTLP1 ;IF ROOM (AND HL1)
PUSHJ P,WCI ;STORE
TXNE CH,LCHPVT ;SEE IF QUOTED
SOS C ;YES--COUNT SPACE
JRST HLLP ;AND LOOP FOR MORE
HLSU: PUSHJ P,WLNIN1 ;[234] STORE IN LINE BUFFER
AOS LINNSC ;[234] COUNT IT UP
JRST HLLP ;[234] BACK FOR MORE
HLSP: PUSHJ P,RSKIPS ;IGNORE MULT. SPACES AND TABS
JFCL ;IGNORE EOL INDICATION
MOVEI CH,C.NXS ;ELSE USE ONE NON-EPANDABLE ONE
JRST HLST ;IN BUFFER
HLXT: MOVEM CH,GCSCH ;SET TO RESCAN THIS CHAR
SETOM A ;INDICATE SOME HEADER
POPJ P, ;THEN RETURN
;ROUTINE TO CLEAR THE CURRENT SUBTITLE BUFFER
CLRSTT: MOVEI PA,STTLBF ;POINT TO SUBTITLE
PUSHJ P,CSP ;COMPUTE POINTERS TO BUFFER
MOVEM A,STTLP1 ;STORE
MOVEM B,STTLP2 ; EMPTY
POPJ P, ;RETURN
;ROUTINE TO CLEAR THE CURRENT TITLE BUFFER
CLRTTL: MOVEI PA,TTLBUF ;POINT TO TITLE
PUSHJ P,CSP ;COMPUTE POINTERS TO BUFFER
MOVEM A,TTLP1 ;STORE
MOVEM B,TTLP2 ; EMPTY
POPJ P, ;RETURN
SUBTTL VARIABLE AND IF OPERATIONS
;+.CHAPTER VARIABLE AND IF OPERATIONS
;-
;.VARIABLE COMMAND
$VARIA: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
MOVE S1,FILNVR ;GET COUNT
AOS S1 ;INCREMENT COUNT
CAILE S1,LN$VAR ;SEE IF TOO MANY
JRST [MOVEM S1,FILNVR ;YES--UPDATE COUNT TO GET MESSAGE ONLY ONCE
ILCM$ (EVL,Exceeding VARIABLE list)]
SETOM FILVVR-1(S1) ;SET VALUE TO FALSE
PUSHJ P,RSIXN ;GET VARIABLE NAME IN SIXBIT
JUMPE N,ILCM ;ERROR IF BLANK
MOVEM N,FILVAR-1(S1) ;STORE IN TABLE
PUSHJ P,VALVAR ;LOOK IN TABLE
SKIPA ;OK IF MISSING
JRST E$$DVN ;ERROR IF DUPLICATE
PUSHJ P,RSKIPS ;SKIP SPACES
JRST ILCM ;ERROR IF DONE
CAIN CH,C.CMA ;SEE IF COMMA
SETOM GCSCH ;YES--SKIP IT
PUSHJ P,RSKIPS ;SKIP SPACES
JRST ILCM ;ERROR IF DONE
PUSHJ P,CCIN ;GET TRUE FLAG FOR DRAFTS
TXZ CH,LCHPVT ;CLEAR QUOTE
HRLZM CH,FILFVR-1(S1) ;STORE
PUSHJ P,RSKIPS ;SKIP SPACES
JRST ILCM ;ERROR IF DONE
CAIN CH,C.CMA ;SEE IF COMMA
SETOM GCSCH ;YES--SKIP IT
PUSHJ P,RSKIPS ;SKIP SPACES
JRST ILCM ;ERROR IF DONE
PUSHJ P,CCIN ;GET FALSE FLAG FOR DRAFTS
TXZ CH,LCHPVT ;CLEAR QUOTE
HRRM CH,FILFVR-1(S1) ;STORE
MOVE N,FILVAR-1(S1) ;GET BACK NAME
MOVN A,SCNNVR ;SEE HOW MANY FROM USER
HRLZS A ;POSITION FOR AOBJN
CAME N,SCNVAR(A) ;SEE IF MATCH
AOBJN A,.-1 ;NO--TRY NEXT [220]
SKIPGE A ;SEE IF DEFINED AS VARIANT [220]
SETZM FILVVR-1(S1) ;YES--FLAG TRUE
MOVEM S1,FILNVR ;ALL OK--UPDATE REAL COUNT
JRST ENDCM ;FINISH COMMAND
ILCM$ DVN,Duplicate VARIABLE name
;.IF/.IFNOT/.ELSE/.ENDIF COMMANDS
$IF: PUSHJ P,RSIXN ;GET VARIABLE NAME
PUSHJ P,VALVAR ;GET VALUE
JRST E$$UKV ;ERROR IF UNKNOWN
PUSHJ P,PUSHIF ;[244] STACK IF'S
MOVEM A,VRSKIP ;SAVE INDEX FOR END TESTS
MOVEM N,IFSKIP ;SET VALUE
JRST ENDVCM ;END VARIABLE COMMAND
$IFNOT: PUSHJ P,RSIXN ;GET VARIABLE NAME
PUSHJ P,VALVAR ;GET VALUE
JRST E$$UKV ;ERROR IF UNKNOWN
PUSHJ P,PUSHIF ;[244] STACK IF'S
MOVEM A,VRSKIP ;SAVE INDEX FOR END TESTS
SETCAM N,IFSKIP ;SET VALUE
JRST ENDVCM ;END VARIABLE COMMAND
$ELSE: PUSHJ P,RSIXN ;GET VARIABLE NAME
PUSHJ P,VALVAR ;GET VALUE
JRST E$$UKV ;ERROR IF UNKNOWN
CAME A,VRSKIP ;SEE IF SAME VARIABLE
JRST E$$BEE ;BAD .ELSE
SETCMM IFSKIP ;YES--COMPLEMENT VALUE
JRST ENDVCM ;END VARIABLE COMMAND
$ENDIF: PUSHJ P,RSIXN ;GET VARIABLE NAME
PUSHJ P,VALVAR ;GET VALUE
JRST E$$UKV ;ERROR IF UNKNOWN
CAME A,VRSKIP ;SEE IF SAME VARIABLE
JRST E$$BEE ;[244] BAD END
MOVE B,IFSTKP ;[244] GET STACK POINTER
POP B,FLSKIP ;[244] RESTORE STATUS
POP B,IFSKIP ;[244] ..
POP B,VRSKIP ;[244,247] ..
MOVEM B,IFSTKP ;[244] STORE POINTER BACK
JRST ENDCM ;END COMMAND
;SUBROUTINE TO FIND VALUE OF VARIABLE IN N
;SKIP RETURNS WITH VALUE IN N; NON-SKIP IF UNDEFINED
; RETURNS A/ POINTER TO VARIABLE
VALVAR: MOVN A,FILNVR ;GET COUNT
JUMPE A,CPOPJ ;NOT FOUND IF NO VARIABLES YET
CAMGE A,[-LN$VAR] ;SEE IF OVERFLOWED
MOVNI A,LN$VAR ;YES--SET MAX
HRLZS A ;POSITION FOR AOBJN
CAME N,FILVAR(A) ;SEE IF MATCH
AOBJN A,.-1 ;NO--LOOP
JUMPGE A,CPOPJ ;IF NO MATCH, GIVE ERROR
MOVE N,FILVVR(A) ;GET VALUE
JRST CPOPJ1 ;GIVE GOOD RETURN
ILCM$ UKV,Unknown VARIABLE
ILCM$ BEE,BAD .ENDIF OR .ELSE (NAMES DO NOT MATCH)
;HERE TO END ONE OF THE IF COMMANDS TO SEE IF FLAGS NEED TO
;BE PRINTED AND WHETHER TO SKIP INPUT
;CALLED WITH A/ INDEX TO CONTROL VARIABLE
ENDVCM: SKIPG SCNDRF ;SEE IF /DRAFT
JRST ENDVCN ;NO, OR /NODRAFT
MOVE B,FILFVR(A) ;GET VARIABLE FLAGS
SKIPE IFSKIP ;SEE IF SKIPPING
MOVSS B ;NO--SWITCH TO REGULAR FLAG
TLZ B,-1 ;CLEAR UNNEEDED FLAG
LSH B,^D36-^D14 ;POSITION AT START OF WORD
TLO B,(ASCIZ / /) ;INCLUDE A BLANK
MOVEM B,FLSKIP ;STORE AS PRINTOUT FLAG
JRST ENDCM ;SINCE /DRAFT, INCLUDE ALL VERSIONS
;HERE TO SEE IF SKIPPING INPUT
ENDVCN: SKIPN IFSKIP ;SEE IF SKIPPING
JRST ENDCM ;NO--JUST END COMMAND
SAVE$ <F,CAS> ;YES--SAVE CASE AND UNDERLINE LOCKS
PUSHJ P,FRCEND ;FORCE TO END OF LINE
;LOOP HERE OVER EACH LINE OF INPUT LOOKING FOR .ENDIF/.ELSE/.IF[NOT]
ENDVCL: TRZ F,R.CCOM ;CLEAR COMMAND INDICATOR
PUSHJ P,CCIN ;GET NEXT INPUT
IFEOF$ ENDVCY ;IF EOF, BREAK OUT
CAMN CH,CC.END ;SEE IF END OF FOOTNOTE
TLNN F,L.FOOT ;YES--SEE IF IN FOOTNOTE
SKIPA ;NO--PROCEED
JRST ENDVCX ;YES--TERMINATE
CAME CH,CC.CON ;SEE IF CONTROL LINE
JRST ENDVCT ;NO--SKIP TO END OF LINE
PUSHJ P,STRCMN ;YES--START COMMAND LINE
PUSHJ P,CMGWD ;GET COMMAND WORD
JRST ENDVCT ;ERROR--SKIP TO END OF LINE
MOVE S1,[XWD -CMTL1,CMTAB] ;LOOK IN MAIN COMMAND TABLE
PUSHJ P,CMREC ;GO RECOGNIZE
JRST ENDVCT ;ERROR--SKIP TO END OF LINE
HLRZ S1,(D) ;FOUND--GET DISPATCH ADDRESS
CAIE S1,$IF ;SEE IF .IF
CAIN S1,$IFNOT ; OR IF .IFNOT
JRST ENDVCI ;YES--GO HANDLE
CAIE S1,$ELSE ;SEE IF .ELSE
CAIN S1,$ENDIF ; OR IF .ENDIF
SKIPA ;YES--GO DO IT
JRST ENDVCT ;NO--SKIP REST OF LINE
CONT.
;HERE WHEN .IF[NOT]/.ELSE/.ENDIF FOUND
ENDVCI: JSP A,ENDVCR ;OK--RESTORE FLAGS, ETC.
JRST (S1) ;GO TO ROUTINE
;HERE TO SKIP REST OF THIS LINE
ENDVCS: PUSHJ P,CCIN ;GET NEXT CHARACTER
ENDVCT: IFEOF$ ENDVCY ;IF EOF, BREAK OUT
CAIE CH,.CHLFD ;IF NOT END OF LINE,
JRST ENDVCS ; LOOP ONWARDS
JRST ENDVCL ;NEW LINE--GO EXAMINE INPUT
;HERE WHEN TIME TO BREAK OUT OF SKIPPING
ENDVCX: MOVEM CH,GCSCH ;STORE FOR RESCAN
ENDVCY: JSP A,ENDVCR ;RESTORE FLAGS, ETC.
JRST LGO ;AND GO TO NEXT LINE PROCESSING
;LOCAL SUBROUTINE TO RESTORE FLAGS SAVED AT START OF ENDVCN
ENDVCR: RSTR$ <CAS,B> ;RESTORE CASE LOCK
TLZ F,L.ULMS ;CLEAR UNDERLINE LOCK
TLNE B,L.ULMS ;SEE IF UNDERLINE LOCK SET
TLO F,L.ULMS ;YES--RESTORE IT
JRST (A) ;RETURN TO CALLER
;ROUTINE TO STACK IF'S
PUSHIF: MOVE B,IFSTKP ;[244] GET STACK POINTER
PUSH B,VRSKIP ;[244] SAVE STATE
PUSH B,IFSKIP ;[244] ..
PUSH B,FLSKIP ;[244] ..
MOVEM B,IFSTKP ;[244] STORE POINTER BACK
POPJ P,0 ;[244] RETURN
SUBTTL INDEX OPERATIONS
;+.CHAPTER INDEXING
;-
;LINKED LIST FORMAT IS:
; !=======================================================!
; ! CHAIN TO PAGES ! POINTER TO TEXT !
; !-------------------------------------------------------!
; ! CHAPTER ! PAGE !SUBPAGE!
; !-------------------------------------------------------!
; ! PREVIOUS ENTRY ! NEXT ENTRY !
; !=======================================================!
;
;FOR OTHER REFERENCES TO THIS ITEM:
;
; !=======================================================!
; ! CHAIN PAGES THIS ENTRY ! 0 !
; !-------------------------------------------------------!
; ! CHAPTER ! PAGE !SUBPAGE!
; !=======================================================!
L.L==0 ;LH=POINTER TO LIST OF PAGES THIS ENTRY
R.T==0 ;RH=POINTER TO TEXT (MAIN ENTRY ONLY)
W.P==1 ;PAGE NUMBER IN FORMAT OF BYTE
; (36.-PGWID-SPWID) CHAPTER (PGWID) PAGE (SPWID) SUBPAGE
L.B==2 ;LH=BACKWARD ENTRY LIST POINTER
R.F==2 ;RH=FORWARD ENTRY LIST POINTER
;ROUTINE TO ADD ITEM TO INDEX DATA AT TOP OF CORE
;PERIOD AND EXCLAMATION ARE VALID TEXT.
$SUBIN: TRNN F,R.NFLA ;SEE IF .NOFLAGS ALL
TDZA A,A ;NO--SUBINDEX, NOT INDEX.
$INDEX: SETOM A ;NOT SUBINDEX
SETCAM A,SUBIDX ;SET FLAG FOR LATER
SETZM ICBUF ;FIRST, PUT ITEM IN COMPARISON BUFFER
MOVE A,[XWD ICBUF,ICBUF+1]
BLT A,ICBFE ;CLEAR COMPARISON BUFFER
MOVE S1,[POINT 7,ICBUF]
SAVE$ CC.IND ;SAVE .FLAG INDEX
HRROS CC.IND ;TURN OFF .FLAG INDEX
CONT.
HRRZ D,CAS ;SAVE CASE
MOVEI A,ULCAS ;FORCE .LOWER CASE
MOVEM A,CAS ; FOR .INDEX
TLZE F,L.ULMS ;CLEAR UNDERLINE LOCK
TLO D,L.ULMS ; SAVING IT
MOVEI N,<ICBFE-ICBUF>*5-1 ;END TEST ON BUFFER
INDX0: PUSHJ P,GCIN ;GET CHARACTER OF INDEX DATA
CAIE CH,C.SPC ;SKIP LEADING SPACES OR TABS
CAIN CH,.CHTAB ; ..
JRST INDX0 ; ..
CAIL CH,"A"+ULCAS ;SEE IF LOWER
CAILE CH,"Z"+ULCAS ; CASE
JRST INDX1 ;NO--PROCEED
TRNN F,R.FRCC ;YES--DID USER FORCE IT
SUBI CH,ULCAS ;NO--MAKE UPPER CASE
INDX1: SKIPE SUBIDX ;IF SUBINDEX, ALLOW MULT COMMANDS
JRST [PUSHJ P,CMSOMP ;SEE IF MORE COMMAND [165]
JRST INDX2 ;NO--ALL DONE
JRST .+1] ;YES--CONTINUE
CAIN CH,.CHLFD ;COPY THROUGH END OF LINE
JRST INDX2 ;END.
SKIPE SUBIDX ;INDEX OR SUBINDEX?
CAME CH,CC.SUB ;SUBINDEX. FLAG CHARACTER?
SKIPA ;NO.
MOVEI CH,C.SIFI ;YES. TRANSLATE TO INTERNAL.
TXNE CH,LCHPVT ;SEE IF QUOTED
JRST [MOVEI A,C.QUTI ;YES--GET INTERNAL QUOTE
IDPB A,S1 ;STORE IT
SOS N ;COUNT IT
JRST .+1] ;PROCEED
IDPB CH,S1 ;STORE CHARACTER OF INDEX DATA
PUSHJ P,GCIN ;GET NEXT CHARACTER
SOJG N,INDX1 ;LOOP IF ROOM
INDX2: MOVEM CH,GCSCH ;SAVE FINAL FOR END EATER
HRRZM D,CAS ;RESTORE TEXT CASING
RSTR$ CC.IND ;RESTORE .FLAG INDEX
TLZ F,L.ULMS ;CLEAR UNDERLINE LOCK
TLZE D,L.ULMS ;RESTORE
TLO F,L.ULMS ; ORIGINAL
PUSHJ P,DOINDX ;GO SET INTO INDEX
JRST ENDCM ;END OF COMMAND
;ROUTINE TO ENTER BUFFER INTO INDEX
DOINDX: SAVE$ <A,B,C,D,CH,C2,PA> ;SAVE ENOUGH AC'S
IBP S1 ;FIND PLACE FOR ITEM IN INDEX
MOVEI S1,1(S1) ;SIZE OF BLOCK TO BE ADDED
SUBI S1,ICBUF ; ..
HRRZ A,XFIRST ;GET ADDRESS OF FIRST ITEM SO FAR
JUMPE A,INDXV ;IF NONE, LIST IS EMPTY. START IT.
;LOOP OVER OLD ENTRIES TO LOCATE THIS ONE
INDXL2: TLZ F,L.IDXC!L.IDXD ;CLEAR CASE-DIFFERENCE CATCHER
HRRZ B,R.T(A) ;ADDRESS OF ASCIZ OF OLD ITEM
HRLI B,(POINT 7,) ;POINTER TO IT.
MOVE C,[POINT 7,ICBUF] ;POINTER TO NEW ITEM
;LOOP OVER CHARACTERS IN THE STRINGS
INDXL1: ILDB CH,B ;GET CHAR OF OLD
CAIN CH,C.QUTI ;SEE IF QUOTE
ILDB CH,B ;[242] YES-- GET NEXT CHAR
ILDB C2,C ;AND ONE OF NEW
CAIN C2,C.QUTI ;SEE IF QUOTE
ILDB C2,C ;[242]YES--GET NEXT CHAR
CAMN CH,C2 ;SAME BEFORE CASE MERGE?
JRST INDXL5 ;YES--PROCEED
CAIE CH,C.ULS ;SEE IF UNDERLINE
CAIN C2,C.ULS ; ..
JRST INDXL3 ;YES--GO HANDLE
CONT.
TLOE F,L.IDXC ;SEE IF FIRST ONE DIFFERING
JRST INDXL5 ;NO--CONTINUE
CAMG CH,C2 ;YES--COMPARE
TLO F,L.IDXD ;SET FLAG
INDXL3: MOVE D,CH ;SAVE ORIGINAL
CAIN CH,C.ULS ;SEE IF UNDERLINE
ILDB CH,B ;YES--GET SUCCESSOR
CAIN C2,C.ULS ;SEE IF UNDERLINE
ILDB C2,C ;YES--GET SUCCESSOR
TLOE F,L.IDXC ;SEE IF FIRST TIME
JRST INDXL5 ;NO--PROCEED
CAIN D,C.ULS ;SEE IF OLD WAS IT
TLO F,L.IDXD ;YES--IT WINS
INDXL5: CAIL CH,"A"+ULCAS ;CONVERT LC TO UC
CAILE CH,"Z"+ULCAS
SKIPA
TRZ CH,ULCAS ; ..
CAIL C2,"A"+ULCAS ; ..
CAILE C2,"Z"+ULCAS
SKIPA
TRZ C2,ULCAS ; ..
CAMN CH,C2 ;SAME?
JUMPN CH,INDXL1 ;YES. LOOP UNLESS END OF STRINGS
CAMLE CH,C2 ;WHICH IS FIRST?
JRST INDX3 ;NEW ONE IS FIRST, AND DIFFERENT
CAMN CH,C2 ;ARE THEY IDENTICAL?
JRST INDX4 ;YES. NO NEED FOR NEW COPY. ADJUST POINTERS
;HERE WHEN NEW ONE IS AFTER THIS ONE
IDX4A: HRRZ B,R.F(A) ;NO. OLD ONE IS FIRST. LOOK FURTHER
JUMPE B,INDX5 ;END OF LIST. NEW IS LAST
MOVEI A,(B) ;MOVE LINK TO A
JRST INDXL2 ;LOOK FURTHER
CONT.
;HERE WHEN NEW ONE IS BEFORE ENTRY
INDX3: PUSHJ P,INDXAD ;ADD ITEM WITH PAGE NO TO STORAGE (UNLINKED)
HLRZ B,L.B(A) ;WHO PRECEDED OLD?
SKIPN B ;ANYONE?
HRRZM PA,XFIRST ;NO. NEW IS FIRST OF ALL.
HRLM PA,L.B(A) ;NEW IS PREDECESSOR OF OLD
HRRM A,R.F(PA) ;OLD IS SUCCESSOR OF NEW, NO PREDECESSOR
SKIPE B ;IF ANYONE PRECEDED OLD,
HRRM PA,R.F(B) ;MAKE NEW ONE BE HIS SUCCESSOR
HRLM B,L.B(PA) ;AND OLD'S PRED IS NOW NEW'S PRED
JRST INDXX ;RETURN FROM INDEX COMMAND
;HERE WHEN NEW ONE MATCHES THIS ENTRY
INDX4: TLNE F,L.IDXC ;SEEM THE SAME. WERE CASES DIFFERENT?
JRST [TLNE F,L.IDXD ;YES--SEE IF FLAG SET
JRST IDX4A ;YES--NEW COMES AFTER
JRST INDX3] ;NO--NEW COMES FIRST
;HERE WHEN REPEATED INDEX ITEM
HLRZ B,L.L(A) ;GET PAGE LIST POINTER
JUMPN B,[MOVE A,B ;ALREADY A POINTER, ADVANCE IT
JRST .-1] ;LOOP TO END OF PAGE CHAIN
PUSHJ P,INDXFP ;COMPUTE COMPRESSED PAGE
CAMN B,W.P(A) ;SEE IF MATCHES
JRST INDXX ;YES--SKIP IT AND SAVE SPACE
HRRZ PA,XTOP ;POINT TO FREE SPACE
ADDI PA,2 ;MAKE ROOM FOR PAGE ENTRY
CAML PA,FOOTBF ;SEE IF OVERFLOWING
PUSHJ P,EXPAND ;YES--MAKE ROOM
HRRZ PA,XTOP ;POINT TO FREE SPACE
MOVEI C,2(PA) ;NEW FREE POINT
MOVEM C,XTOP ;STORE FOR LATER
MOVEM B,W.P(PA) ;STORE PAGE
SETZM L.L!R.T(PA) ;CLEAR POINTERS IN NEW ENTRY
HRLM PA,L.L(A) ;ADD TO CHAIN
JRST INDXX ;THEN RETURN
;HERE WHEN NEW IS FOR END OF LIST
INDX5: PUSHJ P,INDXAD ;CREATE TEXT AND POINTER BLOCK WITH PAGENO
HRRM PA,R.F(A) ;MAKE NEW FOLLOW OLD
HRLZM A,L.B!R.F(PA) ;AND OLD PRECEDE NEW.
JRST INDXX ;RETURN FROM INDEX COMMAND
INDXV: PUSHJ P,INDXAD ;CREATE TEXT AND POINTER BLOCK, PAGE NO
HRRZM PA,XFIRST ;THIS IS FIRST ITEM (AND ONLY)
INDXX: RSTR$ <PA,C2,CH,D,C,B,A> ;RESTORE SAVED AC'S
POPJ P, ;END OF INDEX COMMAND
;ROUTINE TO ADD INDEX ENTRY TO LINKED LIST
INDXAD: HRRZ PA,XTOP ;GET TOP OF INDEX STORAGE
ADDI PA,3(S1) ;NEED 3 WORDS PLUS TEXT
CAML PA,FOOTBF ;LESS THAN BASE OF FOOTNOTES?
PUSHJ P,EXPAND ;NO. TRY TO EXPAND
HRRZ PA,XTOP ;GET TOP OF INDEX
SAVE$ PA ;SAVE BASE OF NEW ITEM
MOVE B,PA ;COMPUTE NEW TOP OF INDEX
ADDI B,3(S1) ; ..
HRRZM B,XTOP ;STORE IN TOP OF INDEX POINTER
HRLZI B,ICBUF ;TRANSFER TEXT INTO BUFFER
HRRI B,3(PA) ;INTO TEXT AREA
HRRZM B,L.L!R.T(PA) ;STORE TEXT ADDRESS
ADDI PA,3-1(S1) ;FINAL "TO" ADDRESS
BLT B,(PA) ;TRANSFER INDEX ITEM
RSTR$ PA ;RESTORE BASE OF INDEX
SETZM L.B!R.F(PA) ;NO POINTERS YET.
PUSHJ P,INDXFP ;COMPUTE COMPRESSED PAGE NUMBER
MOVEM B,W.P(PA) ;STORE COMPRESSED PAGE NUMBER
POPJ P, ;AND RETURN.
;SUBROUTINE TO COMPUTE COMPRESSED PAGE NUMBER
INDXFP: SKIPGE B,SECNUM ;GET CHAPTER NUMBER
SETOM B ;-1 FOR INDEX
LSH B,SPWID+PGWID ;POSITION IT
MOVE C,PAGENO ;GET PAGE NUMBER
ANDX C,PGMASK ;PREVENT OVERFLOW
LSH C,SPWID ;POSITION IT
IOR B,C ;INCLUDE IN RESULT
SKIPE C,SUBPGE ;GET SUBPAGE NUMBER
SOS C ;BACK OFF OFFSET
CAILE C,"Z"-"A"+1 ;SEE IF IN RANGE
SETOM C ;NO--INDICATE OVERFLOW
ANDI C,SPMASK ;MASK TO PREVENT OVERFLOW
IOR B,C ;INCLUDE IN RESULT
POPJ P, ;RETURN
;PRINT INDEX ONTO FILE
$DO.IN: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;BREAK OUTPUT
;[241] SKIPN A,SECNUM ;SEE IF CHAPTER DOCUMENT
;[241] JRST $PR.IN ;NO--JUST DO PRINT INDEX
;[241] JUMPL A,DOIN1 ;IF ALREADY IN INDEX, SKIP NEW PAGE
SKIPGE SECNUM ;[241] ALREADY IN INDEX?
JRST DOIN1 ;[241] YES--SKIP TO NEW PAGE
PUSHJ P,BPAGE ;YES--BREAK PAGE
HRROS SECNUM ;FLAG INDEX
MOVEI A,ILPGNO ;RESET
MOVEM A,PAGENO ; PAGE COUNTER
SETZM SUBPGE ;CLEAR SUBPAGING
PUSHJ P,CLRTTL ;CLEAR OUT PREVIOUS TITLE
MOVEI A,5*LN$TTL-1 ;SET LIMIT
MOVEM A,CENTTL ;SET INDICATOR FOR CENT TO STORE TITLE
PUSHJ P,CLRSTT ;CLEAR SUBTITLE
PUSHJ P,HEADIN ;OUTPUT HEADING
DOIN1: SKIPLE SCNTYP ;IF TYPESETTING
JRST [MOVEI S1,[ASCIZ \[*DX]\]
PUSHJ P,FMES ; ISSUE MACRO CALL
JRST DOIN2] ; AND CONTINUE
MOVE N,RMARG ;GET R MARGIN
ADD N,LMARG ; AND LEFT
HRLI N,-INDEXD ;SPACING AFTER
MOVEM N,CENPOS ;SET FOR CENTER COMMAND
DOIN2: PUSHJ P,RSKIPS ;SKIP SPACES AND TABS
JRST INDEXN ;IF NO MORE, THAT'S ALL
SKIPLE SCNTYP ;IF TYPESETTING
JRST [PUSHJ P,INPTYP ; ISSUE REST OF COMMAND
JRST INDEXX] ; AND CONTINUE
PUSHJ P,LINDFL ;FORCE FULL UPPER CASE
PUSHJ P,CENT ;GO CENTER LINE
JRST INDEXX ;THEN PRINT INDEX
;HERE WHEN NO STRING ON .DO INDEX COMMAND
INDEXN: PUSHJ P,FILSEQ ;ISSUE SEQUENCE NUMBERS
HRRZ A,CENPOS ;GET CENTER
SUBI A,5 ;ALLOW FOR "INDEX"
LSH A,-1 ;CENTER IS 1/2
PUSHJ P,NSPAC ;SPACE OVER
MOVEI S1,[ASCIZ /INDEX/]
PUSHJ P,MCOUT ;OUTPUT "INDEX"
SKIPLE SCNTYP ;IF TYPESETTING,
JRST INDEXX ; THAT'S IT
PUSHJ P,SKIPS ;END LINE
PUSHJ P,CENTX ;FINISH CENTERED LINE
INDEXX: PUSHJ P,ATTYP ;END TYPESETTING MACRO ARGUMENT
CONT.
$PR.IN: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST ILIFNT ; ILLEGAL
PUSHJ P,OUTNJ ;BREAK COMMAND. OUTPUT LINE.
SETZM INDCT ;CLEAR INDENT
HRRZ A,XFIRST ;GET FIRST ITEM IN INDEX
JUMPE A,PINDXX ;QUIT IF NONE.
HRRZM A,OIXC ;SAVE CURRENT POINTER
SETZM OIXL ;CLEAR CURRENT LETTER
PINDL1: SKIPG LINEC ;SEE IF TOP OF PAGE
PUSHJ P,HEADIN ;YES--OUTPUT HEADING
HRRZ B,OIXC ;GET POINTER TO TEXT OF THIS ITEM
HRRZ B,R.T(B) ; ..
HRLI B,(POINT 7,) ;ASCIZ POINTER
ILDB CH,B ;GET FIRST LETTER
CAIN CH,C.ULS ;SEE IF UNDERLINE
ILDB CH,B ;YES--GET NEXT
CAIL CH,"A"+ULCAS ;LOWER CASE?
CAILE CH,"Z"+ULCAS
SKIPA
TRZ CH,ULCAS ;YES. MAKE UPPER.
CAMN CH,OIXL ;SAME AS INITIAL LETTER OF PREVIOUS ONE?
JRST PINDX1 ;YES. SKIP THIS
MOVEM CH,OIXL ;SAVE THIS CHARACTER
PUSHJ P,SKIPSC
PINDX1: PUSHJ P,BLKSEQ ;BLANKS FOR SEQUENCE
MOVE A,LMARG ;SPACE IN TO LEFT MARGIN
PUSHJ P,NSPAC ; ..
HRRZ S1,OIXC ;GET POINTER TO ASCII
PUSHJ P,PINDXP ;OUTPUT STRING OF ASCIZ, CONVERTING SIF
TRZ F,R.PGSQ ;CLEAR PAGE SEQUENCE FLAG
MOVE A,RMARG ;NOW GO TO MIDDLE OF LINE
ADD A,LMARG ;IF NOT THERE YET
ASH A,-1 ; ..
PIND1: MOVEI CH,C.SPC ;GET A SPACE
PIND1A: PUSHJ P,CCOUT ;MAY JRST TO HERE FROM INDEXED JRST BELOW
;OUTPUT SPACE OR PERIOD TO FILE
CAMG A,CPOS ;AT OR PAST MIDDLE OF PAGE?
JRST PIND2 ;YES. GO OUTPUT NUMBERS FROM INDEX DATA.
MOVEI CH,C.PD ;GET A DOT FOR OUTPUT
MOVE B,CPOS ;GET CURRENT POSITION ON LINE
ANDI B,1 ;ONLY LOW ORDER BIT (EVEN OR ODD COLUMN)
JRST PIND1(B) ;TO PIND1 FOR SPACE OR PIND1A FOR DOT
PIND2: MOVEI CH,C.SPC ;OUTPUT ONE SPACE BEFORE PAGE NO'S
PUSHJ P,CCOUT ;OUTPUT, COUNTING POSITION
HLRZ B,OIXC ;GET PAGE NUMBER OF THIS ENTRY
SKIPN B ;IF NOT REPEATED,
HRRZ B,OIXC ; GET THIS ONE
MOVE N,W.P(B) ; ..
PUSHJ P,PINDPG ;PRINT PAGE AND SUBPAGE
CONT.
PINDX2: HLRZ C,L.L(B) ;GET REPEATED PAGES POINTER
HRLM C,OIXC ;STORE FOR LATER
JUMPE C,PINDX3 ;JUMP IF DONE
MOVE N,W.P(C) ;SAME. GET PAGE NUMBERS OF BOTH
MOVE N1,N ;COPY PAGE NUMBER
SOS N1 ;DECREMENT SUBPAGE
CAMN N1,W.P(B) ;SEE IF =LAST+1
JRST PINDX5 ;YES--CONCATENATE
MOVE C,W.P(B) ;NO--TRY MAIN PAGE
LSH C,-SPWID
AOS C
MOVE A,N
LSH A,-SPWID
CAMN A,C
JRST PINDX5 ;YES--CONCATENATE
MOVE N,W.P(B) ;NO--GET OLD NUMBER
TRZE F,R.PGSQ ;CLEAR SEQUENCING
PUSHJ P,PINDPG ;PRINT IF WAS ON
MOVEI CH,"," ;PUT COMMA BETWEEN PAGE NUMBERS
PUSHJ P,CCOUT
CONT.
MOVEI B,2 ;START COUNTING CHARACTERS INCLUDE SPACE,COMMA
HLRZ A,OIXC ;GET BLOCK AGAIN
MOVE N,W.P(A) ;GET PAGE NUMBER AGAIN
TRNE N,SPMASK ;SEE IF SUBPAGE
ADDI B,1 ;YES--ADD ONE
LSH N,-SPWID ;SET TO PRIME NUMBER
MOVE C,N ;SAVE COPY OF CHAPTER
ANDX N,PGMASK ;CUT PAGE OUT
PUSHJ P,COUNTD ;COUNT ITS DIGITS
ADD B,A ;ADD TO COUNT
LSH C,-PGWID ;POSITION CHAPTER NUMBER
MOVE N,C ;RESTORE TO N
SKIPE N ;IF CHAPTER,
ADDI B,1 ; COUNT -
CAIN N,CHMASK ;SEE IF INDEX
SETOM N ;YES--CHANGE TO -1
PUSHJ P,COUNTC ;COUNT CHAPTER'S DIGITS
ADD B,A ;ADD TO RESULT
ADDI B,1 ;ALLOW FOR POSSIBLE -
SKIPE SECNUM ;SEE IF CHAPTERS
ADDI B,3 ;YES--ALLOW FOR #TO# INSTEAD
ADD B,CPOS ;WHERE WILL WE BE AFTER NEXT NO.?
CAMG B,RMARG ;AFTER RIGHT MARGIN?
JRST PIND2 ;NO. GO OUTPUT THE NUMBER
PUSHJ P,SKIPS ;SKIP N LINES
PUSHJ P,BLKSEQ ;BLANKS FOR SEQUENCE
MOVE A,RMARG ;NOW FIND MIDDLE OF PAGE
ADD A,LMARG ;AS LEFT PLUS RIGHT OVER TWO
ASH A,-1 ; ..
PUSHJ P,NSPAC ;SPACE OVER TO THERE
JRST PIND2 ;AND THEN OUTPUT NUMBER
CONT.
PINDX5: MOVEI S1,[ASCIZ /-/] ;CONCATENATE
SKIPE SECNUM ;SEE IF CHAPTER DOCUMENT
MOVEI S1,[ASCIZ / to /] ;YES--DIFFERENT MARKER
TRON F,R.PGSQ ;SET FLAG
PUSHJ P,MCOUT ;OUTPUT HYPHEN ONCE
HLRZ B,OIXC ;MOVE TO NEXT ENTRY IN LIST
JRST PINDX2 ;CONTINUE
;HERE AT END OF LIST OF PAGES THIS ENTRY
PINDX3: TRZE F,R.PGSQ ;SEE IF CONCATENATING
PUSHJ P,PINDPG ;YES--BIND OFF ENTRY
PUSHJ P,SKIPS ;OUTPUT SPACING FOR END OF LINE
HRRZ C,OIXC ;GET THIS MAIN ENTRY
HRRZ C,R.F(C) ;GET NEXT MAIN ENTRY
MOVEM C,OIXC ;STORE AS CURRENT ENTRY
JUMPN C,PINDL1 ;GO ON TO NEXT ITEM IN LIST
PINDXX: TRZE F,R.PGSQ ;SEE IF CONCATENATING
PUSHJ P,PINDPG ;YES--BIND OFF ENTRY
PUSHJ P,SKIPSC ;BLANK LINE AT END
HRRZ A,XBOT ;CLEAR INDEX POINTERS
MOVEM A,XTOP ; ..
SETZM XFIRST ; ..
HRRZS SECNUM ;CLEAR INDEX FLAG
MOVE B,INIFBF ;ORIGINAL BASE OF FOOTNOTE AREA
CAMN B,FOOTBF ;DID WE EVER MOVE BUFFER?
JRST ENDBCM ;NO--LEAVE ALONE
EXCH A,FOOTBF ;SET BOTTOM OF FOOTNOTE [204]
HRLZ B,A ;BUILD [204]
SUB A,FOOTBF ; BLT [204]
HRR B,FOOTBF ; POINTER [204]
IF TOPS-10,<
HRRZ C,.JBREL ;END OF FOOTNOTE [204]
> ;END TOPS-10
IF TOPS-20,<
MOVEI C,RUNOFF-11 ;END OF LOWSEG
> ;END TOPS-20
SUB C,A ;NEW END [204]
BLT B,(C) ;COPY FOOTNOTES DOWN [204]
IF TOPS-10,<
CORE C, ;RESET CORE DOWN [204]
JFCL ;IGNORE ERRORS [204]
> ;END TOPS-10
IMUL A,[-5] ;CONVERT TO BYTE COUNT [204]
ADDM A,FOOTP1 ;BACK [204]
ADDM A,FOOTP2 ; DOWN [204]
ADDM A,FOOTP3 ; FOOTNOTE [204]
ADDM A,FOOTP4 ; POINTERS [204]
HRRZS SECNUM ;CLEAR INDEX FLAG
JRST ENDBCM ;RETURN FROM PINDX COMMAND
;ROUTINE TO PRINT PAGE AND SUBPAGE FOR INDEX
PINDPG: MOVE C,N ;SAVE SUBPAGE
LSH N,-SPWID-PGWID ;POSITION CHAPTER
SKIPE N ;SEE IF CHAPTER
JRST [CAIN N,CHMASK ;YES--SEE IF INDEX
SETOM N ;YES--CHANGE TO -1
PUSHJ P,CHPPRT ;PRINT CHAPTER
MOVEI CH,"-" ;PRINT
PUSHJ P,CCOUT ; HYPHEN SEPARATOR
JRST .+1] ;PROCEED
MOVE N,C ;RECOVER PAGE
LSH N,-SPWID ;POSITION PAGE
ANDX N,PGMASK ;REMOVE JUNK
PUSHJ P,DECPRT ;OUTPUT PAGE NUMBER
MOVE CH,C ;RESTORE SUBPAGE
ANDI CH,SPMASK ;MASK DOWN
JUMPE CH,CPOPJ ;RETURN IF NONE
ADDI CH,"A"-1 ;CONVERT TO ASCII
CAILE CH,"Z" ;SEE IF ALPHA
MOVEI CH,"?" ;NO--INDICATE OVERFLOW
PJRST CCOUT ;AND OUTPUT IT
;ROUTINE TO PRINT INDEX LINE'S STRING, HANDLING SUB-INDEX FLAGGING
PINDXP: HRRZ A,R.T(S1) ;MAKE POINTER TO STRING
HRLI A,(POINT 7,) ; ...
PUSH P,A ;STASH ON STACK
MOVEI D,0 ;INITIALIZE SIFI COUNTER
HLRZ B,L.B(S1) ;GET BACK POINTER
JUMPE B,PXPLD ;NONE--NEED TO PRINT INDEX HEADER
HRRZ B,R.T(B) ;GET ITS STRING
HRLI B,(POINT 7,) ;MAKE POINTER
PXPL: ILDB CH,A ;GET A CHARACTER
CAIN CH,C.QUTI ;SEE IF QUOTE
JRST [ILDB CH,A ;YES--GET NEXT
TXO CH,LCHPVT ;FLAG IT
JRST .+1]
ILDB C,B ;GET CORRESPONDING CHAR OF PREVIOUS
CAIN C,C.QUTI ;SEE IF QUOTE
JRST [ILDB C,B ;YES--GET NEXT
TXO C,LCHPVT ;FLAG IT
JRST .+1]
CAIN CH,C.SIFI ;SEE IF > MATCH END [225]
JUMPE C,[MOVEM A,(P) ;YES--STORE POINTER SO FAR [225]
AOJA D,PXPLD] ; AND COUNT SIF AND END [225]
CAME C,CH ;SEE IF SAME
JRST PXPLD ;NO--THEN MUST ISSUE PREFIX
JUMPE CH,PXPLD ;QUIT AT END OF STRING
CAIE CH,C.SIFI ;INTERNAL FLAG?
JRST PXPL ;NO. CHECK FOR SIF MATCH
MOVEM A,(P) ;YES. STORE POINTER SO FAR
AOJA D,PXPL ;COUNT SIF AND LOOP
;HERE WHEN STRINGS ARE DIFERENT
PXPLD: MOVE A,D ;GET SIF COUNT
IMULI A,SINDIN ;INDENT SINDIN SPACES EACH
PUSHJ P,NSPAC ; ..
MOVE A,(P) ;RECOVER START OF LAST SIF STRING
PXPPL: ILDB CH,A ;GET NEXT CHAR
CAIN CH,C.QUTI ;SEE IF QUOTE
JRST [ILDB CH,A ;YES--GET NEXT
TXO CH,LCHPVT ;FLAG IT
JRST .+1]
JUMPE CH,PXPPX ;EXIT IF DONE
CAIN CH,C.SIFI ;SEE IF ANOTHER SIF
JRST PXPPS ;YES--GO HANDLE
PUSHJ P,CCOUT ;NO--OUTPUT TO FILE
JRST PXPPL ;AND LOOP
PXPPS: MOVEM A,(P) ;UPDATE MEMORY OF STRING
PUSHJ P,SKIPS ;OUTPUT END OF LINE
PUSHJ P,BLKSEQ ;OUTPUT BLANK FOR SEQUENCE
MOVE A,LMARG ;GET LEFT MARGIN
PUSHJ P,NSPAC ;SPACE IN TO IT
AOJA D,PXPLD ;LOOP, COUNTING SIF
PXPPX: POP P,A ;ALL DONE--DISCARD POINTER
POPJ P, ;RETURN
SUBTTL FOOTNOTE OPERATIONS
;+.CHAPTER FOOTNOTES
;-
;FOOTNOTE N COMMAND
$FOOTN: TLNE F,L.FOOT ;ARE WE INSIDE A FOOTNOTE?
JRST ILLFNT ;YES. THAT DOESNT WORK
PUSHJ P,RCNO ;HOW MANY LINES TO RESERVE?
JRST ILCM ;MUST HAVE SPEC
JUMPLE N,ILCM ;ERROR IF NEG OR ZERO
IMUL N,NSPNG ;RESERVE N TIMES SPACING
ADDM N,FOOTC ;ADD TO RESERVED FOOTNOTE LINES
PUSHJ P,FRCEND ;SKIP TO END OF THIS LINE
MOVE CH,CC.UPP ;INITIALIZE FOR ^^
SKIPE CAS ;CHECK CASE LOCK
MOVE CH,CC.LOW ;LOWER--CHANGE TO \\
JUMPLE CH,FOOTN0 ;IF TURNED OFF, IGNORE
PUSHJ P,WCIFTN ;STORE ONE
PUSHJ P,WCIFTN ; AND A SECOND
FOOTN0: MOVEI CH,.CHLFD ;AND START NEW LINE
PUSHJ P,WCIFTN ;IN CASE COMMAND NEXT
SKIPN BARSW ;SEE IF BAR ENABLED
JRST FOOTN3 ;NO--GO INTO FOOTNOTE DATA
MOVE CH,CC.CON ;YES--GET COMMAND MARKER
PUSHJ P,WCIFTN ;STORE IN BUFFER
MOVEI CH,"B" ;GET "BB"
SKIPN BARON ;IF BAR OFF,
MOVEI CH,"E" ; GET "EB"
PUSHJ P,WCIFTN ;STORE B OR E
MOVEI CH,"B" ;GET "B"
PUSHJ P,WCIFTN ; AND SECOND B
MOVEI CH,.CHLFD ;GET END OF LINE
PUSHJ P,WCIFTN ;STORE IT
JRST FOOTN3 ;AND GO HANDLE FOOTNOTE TEXT
CONT.
FOOTN1: PUSHJ P,RTECMC ;GET ANY HANGING TEXT
PUSHJ P,CCIN ;READ A CHARACTER
PUSHJ P,WCIFTN ;WRITE CHARACTER IN BUFFER
CAIE CH,.CHLFD ;END OF LINE?
JRST FOOTN1 ;NO.
FOOTN3: PUSHJ P,CCIN ;YES. SEE WHAT CHAR AFTER LF IS
IFEOF$ FOOTEF ;END OF FILE?
CAMN CH,CC.END ;END FLAG (EXCL) ?
JRST FOOTEF ;YES--GO TO END PROCESSING
MOVEM CH,GCSCH ;ELSE STORE CHAR
MOVEI A,CCIN ;SET READER
MOVEI B,$EN.FO ;INDICATE END FOOTNOTE
PUSHJ P,TSTECM ;SEE IF .END FOOTNOTE NEXT
JRST FOOTN1 ;NO. STORE ANOTHER LINE
FOOTEF: MOVE CH,CC.END ;SET END OF FOOTNOTE CHAR.
PUSHJ P,WCIFTN ;YES. STORE THIS CHARACTER
PUSHJ P,STRCMN ;CLEAR COMMAND ERROR BUFFER
JRST ENDCM ;AND RETURN TO COMMAND ROUTINE
ILLFNT: PUSHJ P,ENDCMT ;SKIP REST OF COMMAND
ILCM$ FIF,Footnote inside footnote
ILIFNT: PUSHJ P,ENDCMT ;SKIP REST OF COMMAND
ILCM$ IFT,Illegal inside footnote
;HERE ON .END FOOTNOTE COMMAND
$EN.FO: PUSHJ P,ENDCMT ;SKIP REST OF LINE
ILCM$ EFD,END FOOTNOTE doesn't follow FOOTNOTE
;START PROCESSING FOOTNOTE BUFFER. CALLED FROM BPAGE WHEN FOOTP3 POINTER
;NOT EMPTY
FOOTGO: HRLOI A,INFIN ;SET HUGE PAGE SIZE TO PREVENT EXTRA FORMS
EXCH A,NLPG ;AND GET CURRENT LENGTH
SUB A,LINEC ;DISTANCE TO END
PUSHJ P,SKIPN ; SKIP TO END OF PAGE BEFORE FOOTNOTES
PUSH P,RMARG ;SAVE THESE ITEMS OVER FOOTNOTE PROCESSING
MOVE A,PRMRG ;GET PAGE SIZE
MOVEM A,RMARG ;SET AS RIGHT MARGIN
PUSH P,LMARG
STORE A,LMARG,,ILMRG
PUSH P,CAS ;SAVE CASE
MOVE A,FILCAS ;GET INITIAL CASE
MOVEM A,CAS ;SET TO START FOOTNOTE CONSISTENTLY
PUSH P,BARSW ;SAVE BAR ENABLE, DON'T CHANGE
PUSH P,BARON ;SAVE BAR INDICATOR
PUSH P,BARNPY ; ..
SETZM BARON ;AND CLEAR
SETZM BARNPY ; THEM
PUSH P,LASLS ;SAVE LIST DEPTH
AOS A,LASLS ;ADVANCE TO NEXT
CAILE A,LN$MJP ;MAKE SURE NOT TOO FAR
SOS A,LASLS ;YES--BACK UP
SETZM LSTCNT(A) ;CLEAR THIS ENTRY
PUSH P,PARIND ;SAVE PARA INDENTING
PUSH P,PARSPC ;SAVE VERTICAL PARA SPACING
PUSH P,PARTPG ;SAVE PARAGRAPH TEST PAGE
PUSH P,INDCT ;SAVE ANY INDENTING ABOUT TO BE DONE
SETZM INDCT ;AND CLEAR IT FOR FOOTNOTE
PUSH P,F ;SAVE CURRENT FLAGS
TLO F,L.PJUS+L.JUST+L.FILL ;AND START WITH THESE DURING FTN
PUSHJ P,JUSTYP ;ISSUE JUSTIFICATION TO TYPESET
PUSH P,NSPNG
SKIPGE A,SCNSPG ;SEE IF /SPACING
MOVEI A,AD.SPC ;NO--SET TO DEFAULT
MOVEM A,NSPNG ;SET IT
PUSH P,GCSCH
TLO F,L.FOOT ;FLAG IN FOOTNOTE PROCESSING
SETOM GCSCH ;CLOBBER ANY SAVED CHARACTERS
MOVEI PA,FOOTWB ;PREPARE END-OF-LINE-HOLDING-BUFFER
PUSHJ P,CSP ; ..
MOVEM A,FOOTS1 ; ..
MOVEM B,FOOTS2 ; BUFFER IS EMPTY
TLZN F,L.GCIN ;NO SAVED INFO. WAS THERE ANY?
JRST FOOTS3 ;NO. LEAVE.
CONT.
FOOTSB: PUSHJ P,GGCINP ;GET A CHARACTER FROM SAVED BUFFER
JRST FOOTS3 ;NO MORE
MOVEI PA,FOOTS1 ;SAVE BUFFER
PUSHJ P,WCI
JRST FOOTSB ;LOOP UNTIL SAVED BUFFER ALL MOVED
FOOTS3: PUSHJ P,LINSET ;INITIALIZE LINE FOR START OF FOOTNOTE
JRST LGO ;AND GO PROCESS SAVED FOOTNOTE COMMANDS
;HERE WHEN LINE ROUTINE DISCOVERS INITIAL EXCLAMATION
FOOTND: TLNN F,L.FOOT ;PROCESSING FOOTNOTES?
JRST LGO1 ;NO. EXTRANEOUS CUE.
PUSHJ P,OUTNJ ;YES. FINISH UP LINE
MOVE A,FOOTP3 ;ANY MORE FOOTNOTES COMING?
CAME A,FOOTP4 ; ..
JRST LGO ;YES. GO READ SOME MORE
CAML A,FOOTP2 ;ANY UNPROCESSED FOOTNOTES TO ADD?
JRST FOOTN6 ;NO.
MOVEM A,TT5 ;YES. ADD THEM TO LIST.
MOVE B,FOOTP2 ;SAVE POINTER TO REMAINING COMMANDS
MOVEM B,TT6 ; ..
MOVE A,FOOTP1 ;CLEAR OUT BUFFERS
MOVEM A,FOOTP2 ; ..
MOVEM A,FOOTP3 ; ..
MOVEM A,FOOTP4 ; ..
FOOTN4: MOVEI PA,TT5 ;COPY TT5 STRING TO FOOTP1
PUSHJ P,GCI ;GET A CHARACTER
JRST FOOTN5 ;NO MORE.
PUSHJ P,WCIFTN ;WRITE IN FOOTNOTE POINTER 1
JRST FOOTN4 ;LOOP TILL DONE
FOOTN6: MOVE A,FOOTP1 ;CLEAR FOOTNOTE BUFFERS
MOVEM A,FOOTP2 ; ..
MOVEM A,FOOTP3 ; ..
MOVEM A,FOOTP4 ; ..
CONT.
FOOTN5: TLZ F,L.ESOL+L.FOOT ;INITIALIZE LEFT/RIGHT FLAG
; AND MARK NOT IN FOOTNOTE MODE NOW
POP P,GCSCH ;RESTORE SAVED PARAMETERS
POP P,NSPNG
POP P,A ;GET BACK OLD FLAGS
AND A,[L.PJUS!L.JUST!L.FILL,,R.SPPR!R.AUTB] ;ONLY THOSE TO RESTORE
ANDCM F,[L.PJUS!L.JUST!L.FILL,,R.SPPR!R.AUTB]
IOR F,A ;AND RESTORE THE ONES FROM BEFORE FOOTNOTE
PUSHJ P,JUSTYP ;ISSUE JUSTIFICATION TO TYPESET
POP P,INDCT
POP P,PARTPG ;RESTORE PARAGRAPH
POP P,PARSPC
POP P,PARIND
POP P,LASLS ;RESTORE LIST DEPTH
POP P,BARNPY ;RESTORE FLAGS
POP P,BARON ; ..
POP P,BARSW ;RESTORE BAR ENABLE
POP P,CAS ;RESTORE CASE
POP P,LMARG
POP P,RMARG
MOVE A,PNLPG ;RESET LENGTH OF PAGE
SKIPE FLNOPG ;SEE IF NO PAGING
HRLOI A,INFIN ;YES--SET TO INFIN.
MOVEM A,NLPG ; ..
MOVE A,FOOTS1 ;WAS PARTIAL LINE SAVED?
CAMN A,FOOTS2 ; ..
JRST FOOTS4 ;NO.
MOVE B,FOOTS2 ;YES. PUT POINTER IN GCINP
MOVEM A,GCINP ; ..
MOVEM B,GCINP+1 ; ..
TLO F,L.GCIN ;AND FLAG TO LOOK AT THAT BUFFER
FOOTS4: POPJ P, ;RETURN TO LINE PROCESSOR
CONT.
WCIFTN: MOVE A,FOOTP2 ;WRITE IN FOOTNOTE BUFFER, CHECKING SIZE
IDIVI A,5 ; ..
ADDI A,2 ;IS THIS ADDRESS HITTING TOP OF CORE?
IF TOPS-10,<
HRRZ B,.JBREL ; ..
> ;END TOPS-10
IF TOPS-20,<
MOVEI B,RUNOFF-11 ;WHERE HISEG STARTS
> ;END TOPS-20
CAMGE A,B ; ..
JRST WCIFT1 ;OK. NO PROBLEM.
IF TOPS-10,<
MOVEI B,1(B) ;NEED ANOTHER K
CORE B, ;ASK FOR IT
> ;TOPS-10
JRST E$$NEC ;CAN'T HAVE IT. GIVE UP.
IF TOPS-10,<
SKIPGE TTISOT ;SEE IF TTY OUTPUT
JRST WCIFT1 ;YES--SUPPRESS INFO MESSAGE
SAVE$ <C,D>
MSG$ KCF,INF,,
HRRZ A,.JBREL ;CURRENT SIZE
ADDI A,1 ;TELL NEXT UNIT (ALLOW FOR 0)
PUSHJ P,.TCORW##
MOVEI A,[ASCIZ / core - footnote]
/]
PUSHJ P,.TSTRG
RSTR$ <D,C>
> ;END TOPS-10
WCIFT1: MOVEI PA,FOOTP1 ;NOW WRITE CHARACTER
PJRST WCI ; ..
SUBTTL OUTPUT SECTION
;+.CHAPTER OUTPUT PROCESSING
;-
;LINE OUTPUT ROUTINE. THREE ENTRY POINTS
OUTNSP: SUB A,B ;LENGTH OF LINE
SUB A,LSTNSP ;LESS NON-SPACING CHARS
ADD A,LMARG ;ADD LENGTH TO LMARG
CAMLE A,RMARG ;CHECK FOR VALID LENGTH
JRST E$$CJL ;TOO LONG
JRST OUTNJ1 ;OUTPUT NON-JUSTIFIED
OUTNJ: MOVE A,LNIN2 ;HERE TO OUTPUT CURRENT LINE, NOT JUSTIFIED
TLNN F,L.FILL ;SEE IF FILLING [177]
JRST [SKIPL SPCNT ;NO--IF SPACES, [177]
AOS SPCNT ; ADVANCE SPACE COUNT [177]
PUSHJ P,OUTLIN ;OUTPUT LINE [177]
JRST OUTNJ0] ;AND PROCEED [177]
PUSHJ P,OUTNJ2 ;CLEAR L.TJUS, CALL BODY OF ROUTINE
OUTNJ0: TLZ F,L.ESOL ;CLEAR LEFT/RIGHT SPACING FLAG
SKIPLE SCNTYP ;IF /TYPESET,
TLNE F,L.FOOT ; AND NOT IN FOOTNOTE,
POPJ P, ;NO--ALL DONE
SKIPN FOOTC ;YES--SEE IF SOME FOOTNOTES
POPJ P, ;NO--RETURN
MOVE A,FOOTP2 ;YES--UPDATE
MOVEM A,FOOTP4 ; POINTER
SETZM FOOTC ;CLEAR FOOTNOTE COUNTS
MOVEI S1,[ASCIZ \
/L----------/L/L[P8,10]
\]
PUSHJ P,FMES ;SEPARATE FOOTNOTES
PUSHJ P,FOOTGO ;ISSUE FOOTNOTES
MOVEI S1,[ASCIZ \
/L/L----------/L/L[P10,12]
\]
PJRST FMES ;SEPARATE FOOTNOTES AND RETURN
CONT.
OUTLJ: MOVE A,LSTSP ;END OF LINE IS LAST SPACE, IF ANY
CAMG A,LNIN1 ;..
OUTLIN: MOVE A,LNIN2 ;ELSE END OF INPUT LINE
TLO F,L.TJUS ;COPY L.JUST TO L.TJUS
TLNN F,L.JUST
OUTNJ2: TLZ F,L.TJUS ; ..
MOVEM A,LOUT2 ;SAVE END OF LINE TO CONSIDER
MOVE B,LNIN1 ;AND BEGINNING.
MOVEM B,LOUT1 ; ..
CAMG A,LOUT1 ;LINE EMPTY?
JRST [SETZM FRCPAR ;CLEAR FORCED PARAGRAPH
PJRST LINSET] ;RETURN, INITIALIZING INPUT BUFFER
TLNN F,L.TJUS ;JUSTIFYING THIS LINE?
JRST OUTNJ1 ;NO.
SKIPG SPCNT ;YES. ANY SPACES IN LINE?
JRST OUTNSP ;NO.SEE WHAT TO DO
MOVE A,RMARG ;YES. COMPUTE WHERE TO EXPAND THEM
SUB A,LMARG ;SIZE OF LINE
SUB A,INDCT ; ..
ADD A,LOUT1 ;SUBTRACT SIZE OF DATA
SUB A,LOUT2 ;..
ADD A,LSTNSP ;COMPENSATE FOR NON-SPACING CHARACTERS
IDIV A,SPCNT ;NOW FIND HOW MANY MULT SPACES EACH SPACE IS
MOVEM A,EXSP1 ;MULTIPLIER FOR ALL SPACES
TLNE F,L.ESOL ;EXTRAS TO LEFT OR RIGHT?
JRST OUTJC1 ;LEFT. STORE NUMBER OF EXTRA SPACES
MOVNS B ;RIGHT. GET SPACES BEFORE EXTRAS
ADD B,SPCNT ;..
OUTJC1: MOVEM B,EXSP2 ;STORE FOR LATER
CONT.
OUTNJ1: SKIPE FRCPAR ;SEE IF FORCING PARAGRAPH
PUSHJ P,PARAG0 ;YES--GO DO IT
SKIPG LINEC ;IF START OF PAGE,
PUSHJ P,HEADIN ; OUTPUT HEADING
PUSHJ P,FILSEQ ;OUTPUT FILE SEQUENCE
MOVE A,INDCT ;GET INDENTING IN CASE OF PARAGRAPH
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST OUTLTY ;YES--USE SPECIAL OUTPUT LOGIC
ADD A,LMARG ;PLUS LEFT MARGIN
SKIPGE A ;IS IT POSITIVE?
PUSHJ P,NEGIND ;NO. GIVE ADVISORY WARNING.
PUSHJ P,NSPAC ;OUTPUT THAT MANY SPACES
OUTL1: PUSHJ P,GLOUT ;READ A CHARACTER FROM OUTPUT BUFFER
JRST OUTLE ;END OF OUTPUT BUFFER
CAIN CH,C.SPC ;REAL SPACE?
JRST OUTSP ;YES. GO SEND N OF THEM
PUSHJ P,CCOUT ;OUTPUT THE CHARACTER
JRST OUTL1 ;LOOP BACK FOR MORE.
MSG$ CJL,ERR,,Can't justify line
PUSHJ P,ONPAG ;TELL HIM WHERE HE LOST
MOVE A,LOUT1 ;COPY POINTER TO LINE
MOVE B,LOUT2 ; ..
MOVEM A,TT1 ; ..
MOVEM B,TT2 ; ..
JUSER1: MOVEI PA,TT1 ;GET CHAR FROM LINE
PUSHJ P,GCI ; ..
JRST JUSER2 ;END OF LINE
MOVE A,CH
CAIE A,C.NXS ;SEE IF NON-EXPANDABLE SPACE
CAIN A,C.QTS ; OR QUOTED SPACE
MOVEI A,C.SPC ;YES--TYPE AS SPACE
ANDI A,CHRMSK ;REMOVE QUOTE
CAIL A,C.GRPH ;IGNORE NON-GRAPHICS
PUSHJ P,.TCHAR ;TYPE IT.
JRST JUSER1 ;LOOP FOR WHOLE LINE
JUSER2: PUSHJ P,.TCRLF ;TYPE OUT CRLF
TLZ F,L.TJUS ;SAY NOT JUSTIFYING
JRST OUTNJ1 ;AND OUTPUT LINE WITHOUT JUSTIFYING
;ROUTINE TO ISSUE ERROR MESSAGE ON NEGATIVE INDENT, I.E.,
;WHEN INDENT TRIES TO GO LEFT OF 0.
;WILL BE ISSUED AS WARNING ONCE PER <LM, <SD, <CHAP COMMAND.
;IF MORE THAN ONCE, REST WILL BE COUNTED AND ISSUED.
NEGIND: AOS A,NIACNT ;COUNT ERROR
CAIE A,1 ;SEE IF FIRST ONE
JRST NEGINX ;NO--SKIP MESSAGE
MSG$ NIA,WRN,,Negative indent attempted
PUSHJ P,ONPAG
NEGINX: MOVEI A,0 ;INDICATE NO SPACING IN
POPJ P,
NEGINC: MOVE A,NIACNT ;GET NIA COUNT
SETZM NIACNT ;CLEAR COUNT
SOSG A ;SEE IF GT 1
POPJ P, ;NO--NO MESSAGE NEEDED
SAVE$ <A> ;SAVE COUNT
MSG$ NIC,WRN,,<An additional >
RSTR$ <D> ;RESTORE COUNT
TXNN A,JWW.FL ;SEE IF /MESSAGE:FIRST
PJRST .TCRLF## ;NO--THAT'S ALL
MOVE A,D ;RESTORE COUNT
PUSHJ P,.TDECW## ;ISSUE COUNT
MOVEI A,[ASCIZ \ negative indent\]
PUSHJ P,.TSTRG## ;ISSUE STRING
MOVEI A,"s" ;GET PLURAL
CAIE D,1 ;UNLESS ONLY ONE MORE,
PUSHJ P,.TCHAR## ; ISSUE IT
MOVEI A,[ASCIZ \ counted
\]
PJRST .TSTRG## ;ISSUE END OF MESSAGE
;HERE TO OUTPUT LINE FOR TYPESETTING SYSTEM
;IF FILL AND JUSTIFY, JUST ISSUE WITH SPACE AT CRLF
;IF NOFILL AND JUSTIFY, ISSUE WITH /J AT END
;IF NOJUSTIFY, ISSUE WITH /L AT END
; (FILL, NOJUSTIFY WILL PROBABLY BE WRONG)
;CALL: A/INDENT
; JRST OUTLTY
OUTLTY: MOVE N,A ;SAVE INDENT
PUSH P,FOUTCH ;SAVE OUTPUT ROUTINE
MOVEI A,OUTTYQ ;USE SPECIAL ONE
MOVEM A,FOUTCH ; WHICH SENDS SPACE AS SPACE
MOVEI CH,C.SPC ;START WITH
AOSE FLTYPS ; SPACE UNLESS
PUSHJ P,FOUT ; FIRST AFTER .TYPESET
JUMPE N,OUTLTL ;IF NO INDENT, PROCEED
MOVEI S1,[ASCIZ \/?[HL\]
PUSHJ P,FMES ;INDICATE HANGING INDENT
PUSHJ P,TYPDSP ;ISSUE AMOUNT OF INDENT
MOVEI S1,[ASCIZ \,0,1]\]
PUSHJ P,FMES ;FOR ONE LINE WITH NO DELAY
OUTLTL: PUSHJ P,LOUTYP ;GO TYPE LINE
SKIPGE FLTYPC ;SEE IF SPECIAL OUTPUT FOR .TYPESET
JRST OUTLTX ;YES--SKIP CRLF
MOVEI S1,0 ;PRESET NO END CODE
TLNN F,L.FILL ;SEE IF .FILL
MOVEI S1,[ASCIZ \/J\] ;NO--SET TO JUSTIFY
TLNN F,L.TJUS ;SEE IF JUSTIFY
MOVEI S1,[ASCIZ \/L\] ;NO--SET TO NOT JUSTIFY
SKIPE S1 ;IF CODE,
PUSHJ P,FMES ; ISSUE FOR TYPESETTING
MOVEI S1,CRLFM ;GET END OF LINE
PUSHJ P,FMES ;ISSUE IT
AOS LINEC ;COUNT LINE
PUSHJ P,SETRNG ;UPDATE L.SUPO DEPENDING ON /RANGE
OUTLTX: POP P,FOUTCH ;RESTORE OUTPUTTER
JRST OUTLE ;GO FINISH LINE
;LINTYP TYPES CONTENTS OF LINBF TO OUTPUT FILE
;LOUTYP TYPES CONTENTS OF OUTPUT BUFFER TO OUTPUT FILE
;CALL: PUSHJ P,LINTYP/LOUTYP
;USES ALL AC'S
LINTYP: MOVE A,LNIN1 ;GET INPUT BUFFER
MOVEM A,LOUT1 ; POINTER INTO
EXCH A,LNIN2 ; OUTPUT BUFFER
MOVEM A,LOUT2 ; POINTERS
PUSHJ P,LOUTYP ;ISSUE OUTPUT BUFFER
PJRST LINSET ;RETURN WITH CLEAN LINE
LOUTYP: PUSHJ P,GLOUT ;GET ANOTHER CHARACTER
JRST [SETOM FLSOPG ;INDICATE SOMETHING ON PAGE
SETOM SMINSC ;INDICATE SOMETHING IN SECTION
POPJ P,] ;AND RETURN
PUSHJ P,CCOUT ;ISSUE CHARACTER
JRST LOUTYP ;LOOP
;HERE TO OUTPUT AN EXPANDABLE SPACE.
OUTSP: MOVEI CH,C.SPC ;OUTPUT A TRUE SPACE
PUSHJ P,CCOUT ; ..
TLNN F,L.TJUS ;ARE WE JUSTIFYING?
JRST OUTL1 ;NO, JUST LOOP
SKIPLE A,EXSP1 ;YES. HOW MANY MULTIPLE SPACES?
PUSHJ P,NSPAC ;IF ANY, SEND THEM.
SOSL EXSP2 ;TO EXTRA BLANKS YET?
JRST OUTS1 ;NO.
TLNN F,L.ESOL ;YES. SPACES LEFT OR RIGHT?
JRST OUTS2 ;RIGHT. OUTPUT A SPACE
JRST OUTL1 ;LEFT. NO MORE EXTRAS, JUST LOOP
OUTS1: TLNN F,L.ESOL ;LEFT OF BREAK. WANT LEFT SPACES?
JRST OUTL1 ;NO. HOLD FOR LATER
OUTS2: MOVEI CH,C.SPC ;YES. OUTPUT A SPACE
PUSHJ P,CCOUT ; ..
JRST OUTL1 ;AND LOOP FOR REST OF LINE
;END OF LINE, AND FOOTNOTE PROCESSING
OUTLE: SETZM INDCT ;CLEAR INDENT [200]
TLC F,L.ESOL ;COMPLEMENT L-R FLAG FOR EACH LINE
MOVE A,LNIN1 ;CLEAR INPUT LINE BUFFER
EXCH A,LNIN2 ; BY BACKING UP POINTER
CAMG A,LOUT2 ;ANY LEFT TO OUTPUT?
JRST OUTLE4 ;NO.
MOVEM A,GCIN2 ;YES. SAVE POINTER
MOVE A,LOUT2 ; ..
MOVEM A,GCINP ;FOR GET-CHARACTER ROUTINE
PUSHJ P,GGCINP ;GET CHARACTER [176]
JRST OUTLE4 ;NONE--OK [176]
CAIE CH,C.SPC ;UNLESS SPACE, [176]
SOS GCINP ; SET TO RE-EAT IT [176]
TLO F,L.GCIN ;NEED TO INPUT FROM BUFFER FIRST
OUTLE4: SETOM FLSOPG ;INDICATE SOMETHING ON PAGE
SKIPG SCNTYP ;UNLESS TYPESETTING,
OUTLEX: PUSHJ P,SKIPS ; OUTPUT CRLFS FOR THIS LINE
PUSHJ P,LINSET ;SET UP FOR NEW LINE
SETOM SMINSC ;INDICATE SOMETHING IN SECTION
SKIPE FOOTC ;ANY FOOTNOTE LINE COMMANDS DECLARED?
OUTFT: TLNE F,L.FOOT ;YES. DOING THEM ALREADY?
POPJ P, ;YES--RETURN
MOVE A,NLPG ;SEE IF ROOM FOR FOOTNOTES
SUB A,FOOTC ; ..
CAMGE A,LINEC ; ..
SKIPE FLSOPG ;NO--SEE IF START OF PAGE
SKIPLE SCNTYP ;YES--FORCE FOOTNOTES UNLESS TYPESETTING
POPJ P, ;NO. HOLD TILL NEXT PAGE
MOVEM A,NLPG ;REDUCE EFFECTIVE PAGE SIZE
MOVE B,FOOTP2 ;ADD LATEST FOOTNOTES TO POINTER
MOVEM B,FOOTP4 ; ..
SETZM FOOTC ;CLEAR COUNT OF SAVED FOOTNOTE LINES
SUB A,NSPNG ;MINUS NORMAL SPACING
CAMG A,LINEC ;GREATER THAN LINE COUNT?
PUSHJ P,BPAGE ;YES. BREAK PAGE HERE.
POPJ P, ; AND RETURN
;TSTPAG WILL BREAK THE PAGE IF NECESSARY
;CALL: N/LINES NEEDED TO FIT THIS PAGE OK
; PUSHJ P,TSTPAG
; RETURN +1 IF HAD TO BREAK TO NEW PAGE
; RETURN +2 IF ROOM ON PAGE (NO CHANGES TO OUTPUT)
TSTPAG: TLNE F,L.FOOT ;IF IN FOOTNOTE,
JRST CPOPJ1 ; DO NOTHING
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST [PUSH P,S1 ;SAVE S1
MOVEI S1,[ASCIZ \[*TP]\]
PUSHJ P,FMES ;OUTPUT MACRO
POP P,S1 ;RESTORE S1
PUSHJ P,DECPRT ;OUTPUT LENGTH OF TEST
MOVEI CH,"@" ;OUTPUT
PUSHJ P,FOUT ; END OF ARGUMENT
JRST CPOPJ1] ;AND GIVE OK RETURN
ADD N,LINEC ;ADD CURRENT LINE POSITION
CAMG N,NLPG ;NO--SEE IF ROOM THIS PAGE [214]
JRST CPOPJ1 ;YES--GIVE OK RETURN
;BPAGE WILL ALWAYS BREAK TO A NEW PAGE
;IF TYPESETTING, IT WILL ISSUE A FORCED PAGE CALL FOR TYPESETTING
BPAGE: TLNE F,L.FOOT ;INSIDE A FOOTNOTE? OR
POPJ P, ;YES. DON'T DO IT AGAIN.
MOVE A,FOOTP3 ;SEE IF ANY DATA IN FOOTNOTE BUFFER
CAME A,FOOTP4 ; ..
JRST [PUSHJ P,FOOTGO ;YES--PROCESS DELAYED FOOTNOTES
JRST FOOTX] ;THEN FINISH PAGE
SKIPN FLSOPG ;ARE WE IN HEADING AREA?
POPJ P, ;YES. DON'T REALLY BREAK THE PAGE, THEN.
FOOTX: PUSHJ P,FORM ;OUTPUT FORMFEED OR LINEFEEDS
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST [PUSH P,S1 ;YES--SAVE STRING POINTER
MOVEI S1,[ASCIZ \[*PG]\]
PUSHJ P,FMES ;ISSUE MACRO FOR TYPESETTING
POP P,S1 ;RESTORE STRING POINTER
JRST .+1] ;PROCEED
SETZB A,LINEC ;CURRENT LINE NOW ZERO
SETZM FLSOPG ;INDICATE PAGE EMPTY
SKIPN SUBPGE ;UNLESS IN A SUBPAGE SEQUENCE,
AOSA PAGENO ;COUNT PAGE NUMBER
AOS A,SUBPGE ;COUNT SUB-PAGE
CAIE A,"Z"-"A"+2 ;SEE IF GT 26 SUBPAGES
JRST FOOTX1 ;NO--OK
MSG$ SPO,WRN,,Subpage overflow
PUSH P,SUBPGE ;CLEAR SUBPAGES FOR ERROR MESS
SETZM SUBPGE ; ..
PUSHJ P,ONPAG ;SAY WHERE
POP P,SUBPGE ;RESET SUBPAGES
FOOTX1: PJRST SETRNG ;UPDATE L.SUPO DEPENDING ON /RANGE
;ROUTINE TO SPACE TO TOP OF FORM
FORM: SKIPG SCNTYP ;NO FORM FEEDS IF TYPESETTING
SKIPG N,LINEC ;GET CURRENT LINE POSITION
POPJ P, ;ALREADY AT TOP. RETURN.
SKIPLE SCNSIM ;SPACING WITH FF OR LFS
JRST BPG2 ;LINEFEEDS
FRCFRM: MOVEI CH,.CHFFD ;OUTPUT FORMFEED TO FILE
PUSHJ P,FOUT ; ..
JRST BPG3 ;ADJUST COUNTS
BPG2: IDIVI N,HWPLN ;IN CASE CURRENT PAGE OVER ONE REAL PAGE
SUBI N1,HWPLN ;GET - NUMBER OF LINES T/ TOP OF PAGE
BPG2A: MOVEI CH,.CHCRT ;INDICATE CARRIAGE RETURN [227]
SKIPLE SCNCRT ;SEE IF /CRETURN [227]
PUSHJ P,FOUT ;YES--OUTPUT IT [227]
MOVEI CH,.CHLFD ;OUTPUT LINEFEEDS
PUSHJ P,FOUT ; ..
AOJL N1,BPG2A ; ..
BPG3: SKIPE DIDSOM ;IS DID SOME OUTPUT,
SKIPG SCNPAU ;WAIT FOR NEW PAPER?
JRST BPGX ;NO. RETURN
SETZM DIDSOM ;CLEAR OUTPUT INDICATOR
IF TOPS-10,<
OUT F.FOUT, ;FORCE ALL OF LINEFEEDS OUT
JRST .+2
JRST E$$ODE
BPGXY: CLRBFI ;CLEAR TYPEIN [202]
OUTSTR [BYTE (7).CHBEL,.CHDEL,.CHDEL,.CHBEL] ;WAKE UP THE OPERATOR
INCHRW A ;YES. READ AND DISCARD COMMAND CHAR
CLRBFI ;AND CLEAR INPUT BUFFER IN CASE MORE.
> ;END TOPS-10
IF TOPS-20,<
BPGXY: MOVX A,.PRIIN ;CLEAR INPUT BUFFER
CFIBF
HRROI A,[BYTE (7).CHBEL,.CHDEL,.CHDEL,.CHBEL]
PSOUT
PBIN
MOVX A,.PRIIN ;CLEAR INPUT BUFFER AGAIN
CFIBF
> ;END TOPS-20
BPGX: POPJ P, ;RETURN FROM FORM ROUTINE
;ROUTINE TO OUTPUT PAGE HEADING
HEADIN: PUSH P,BARON ;SAVE BAR INDICATOR
SETZM BARON ;CLEAR IT
SETZM BARNPY ;ALSO CLEAR START BAR
SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST HEADIY ;YES--SUPPRESS HEADING
MOVE A,SCNDWN ;DOWN SPACING
PUSHJ P,SKIPN ;SKIP ONE LINE
MOVEI A,0 ;PRESET NO SPACES
SKIPE FLNHDR ;SEE IF .NO HEADERS
JRST HEADIX ;RIGHT--FINISH UP
SKIPN FLTITL ;SEE IF NO TITLE
JRST BPGN ;RIGHT--SKIP ITS CONTENTS
PUSHJ P,BLKSEQ ;BLANK FOR SEQUENCE
MOVEI PA,TTLP1 ;OUTPUT TITLE TO FILE
PUSHJ P,PSTRPA ;PRINT STRING FROM PA
SKIPE FLNUMB ;WANT PAGE NUMBER?
JRST BPGN ;NO.
MOVE N,SECNUM ;GET CHAPTER NUMBER
PUSHJ P,COUNTC ;COUNT ITS LENGTH
MOVE B,A ;SAVE FOR LATER
MOVE N,PAGENO ;GET PAGE NUMBER
PUSHJ P,COUNTD ;COUNT ITS LENGTH
MOVE C,A ;SAVE FOR LATER
MOVE A,PRMRG ;FIND POSITION WHERE THIS LEFT US
ADD A,ULPOS ; ..
SUBI A,ULPBF ;ADD IN ANY UNDERLINES
SUB A,TTLP2 ;AND TITLE CHARACTERS
ADD A,TTLP1 ; ..
SKIPE SUBPGE ;SUBPAGE?
SUBI A,1 ;YES. COUNT ITS LETTER
SUBI A,5(C) ;MINUS 8 FOR "PAGE NNN"
SKIPE SECNUM ;SEE IF CHAPTER
SUBI A,1(B) ;MINUS 3 FOR "NN-"
PUSHJ P,NSPAC ;SPACE OVER TO THERE
CONT.
MOVE S1,FILHDR ;FIND TYPE OF PAGE CASE
MOVE S1,[[ASCIZ /PAGE /]
[ASCIZ /Page /]
[ASCIZ /page /] ]-1(S1)
PUSHJ P,MCOUT ;OUTPUT TO FILE
SKIPN N,SECNUM ;SEE IF CHAPTER DOCUMENT
JRST BPGNCH ;NO--SKIP ON
PUSHJ P,CHPPRT ;YES--OUTPUT CHAPTER NUMBER
MOVEI CH,"-" ;OUTPUT
PUSHJ P,CCOUT ;SEPARATOR
BPGNCH: MOVE N,PAGENO ;OUTPUT PAGE NUMBER
PUSHJ P,DECPRT ;DECIMAL PRINT
SKIPN CH,SUBPGE ;IN SUBPAGE SEQUENCE?
JRST BPGN ;NO
ADDI CH,"A"-2 ;WHICH IS STORED IN BINARY
CAILE CH,"Z" ;SEE IF ALPHA
MOVEI CH,"?" ;NO--INDICATE OVERFLOW
PUSHJ P,CCOUT ;AND OUTPUT IT TO FINAL COPY FILE
BPGN: SKIPN DOSTTL ;SEE IF SUBTITLE WANTED
JRST HEADIW ;NO--SKIP IT
MOVEI A,1 ;OUTPUT THE LINE WITH TITLE
PUSHJ P,SKIPN ; ..
SKIPN FLTITL ;SEE IF NOTITLE
JRST HEADIW ;RIGHT--SKIP SUBTITLE CONTENTS
PUSHJ P,BLKSEQ ;BLANK FOR SEQUENCE
MOVEI PA,STTLP1 ;OUTPUT THE SUBTITLE, IF ANY
PUSHJ P,PSTRPA ; ..
HEADIW: MOVEI A,1+RHDSPA ;AND OUTPUT THIS LINE,
HEADIX: ADD A,DEFFIG ;INCLUDE DEFERRED FIGURES
PUSHJ P,SKIPN ;SKIP DEFFERED FIGURE ETC.
HEADIY: SKIPN DEFFIG ;SEE IF DEFERRED FIGURE
SETZM FLSOPG ;YES--INDICATE SOMETHING ON PAGE
SETZM DEFFIG ;CLEAR DEFERRED FIGURES
SETOM FLTITL ;CLEAR SUPPRESSION OF FIRST TITLE
POP P,BARON ;RESTORE BAR FLAG
MOVE A,BARON ;GET BAR INDICATOR
MOVEM A,BARNPY ;SET FOR START OF LINE
POPJ P, ;RETURN
;SUBROUTINE FOR CHAPTER PAGE NUMBER TO OUTPUT
CHPPRT: JUMPL N,[PUSHJ P,SETIND ;GET [ASCIZ /INDEX/]
PJRST MCOUT] ;IF NEGATIVE, IT IS INDEX
TXZN N,APPXFL ;SEE IF APPENDIX
PJRST DECPRT ;NO--ISSUE IN DECIMAL
SUBI N,1 ;OFFSET (A IS REALLY "0")
CHPPR1: IDIVI N,^D26 ;USE BASE 26 RADIX
HRLM N1,(P) ; PRINTER
SKIPE N ;DONE?
PUSHJ P,CHPPR1 ;NO--HIT IT AGAIN
HLRZ CH,(P) ;YES--GET DIGIT
ADDI CH,"A" ;MAKE ASCII UPPER CASEE
PJRST CCOUT ;AND SEND TO OUTPUT
;SUBROUTINE TO TYPE CHAPTER PAGE NUMBER
TYPCHP: JUMPL A,[MOVE A,S1 ;SAVE S1
PUSHJ P,SETIND ;GET [ASCIZ /INDEX/]
EXCH A,S1 ;RESTORE S1
PJRST .TSTRG##] ;IF NEGATIVE, IT IS INDEX
TXZN A,APPXFL ;SEE IF APPENDIX
PJRST .TDECW## ;NO--ISSUE IN DECIMAL
SUBI A,1 ;OFFSET (A IS REALLY "0")
TYPCH1: IDIVI A,^D26 ;USE BASE 26 RADIX
HRLM B,(P) ; PRINTER
SKIPE A ;DONE?
PUSHJ P,TYPCH1 ;NO--HIT IT AGAIN
HLRZ A,(P) ;YES--GET DIGIT
ADDI A,"A" ;MAKE ASCII UPPER CASEE
PJRST .TCHAR## ;AND SEND TO OUTPUT
;SUBROUTINE TO PUT A CHAPTER NUMBER INTO INPUT BUFFER
CHPINP: JUMPL N,[PUSHJ P,SETIND ;GET [ASCIZ /INDEX/]
PJRST MSGINP] ;ISSUE MESSAGE
TXZN N,APPXFL ;SEE IF APPENDIX
PJRST DECINP ;NO--ISSUE IN DECIMAL
SUBI N,1 ;OFFSET (A IS REALLY "0")
CHPIN1: IDIVI N,^D26 ;USE BASE 26 RADIX
HRLM N1,(P) ; PRINTER
SKIPE N ;DONE?
PUSHJ P,CHPIN1 ;NO--HIT IT AGAIN
HLRZ CH,(P) ;YES--GET DIGIT
ADDI CH,"A" ;MAKE ASCII UPPER CASEE
PJRST WLNINC ;GO PUT IN INPUT BUFFER
;SUBROUTINE TO COUNT THE DIGITS IN THE CHAPTER NUMBER
COUNTC: MOVEI A,0 ;CLEAR COUNTER
JUMPL N,[MOVEI A,5 ;"INDEX"
POPJ P,] ;RETURN
TXZN N,APPXFL ;SEE IF APPENDIX
PJRST COUNTD ;NO--COUNT IN DECIMAL
SUBI N,1 ;ALLOW THAT A IS "0"
COUNTK: JUMPE N,CPOPJ ;EXIT WHEN 0 (EVEN IF RESULT IS 0)
IDIVI N,^D26 ;DIVIDE ARGUMENT
AOJA A,COUNTK ;COUNT RESULTING DIGIT
;SUBROUTINE TO PUT STRING INTO INPUT BUFFER
MSGINP: HRLI S1,(POINT 7,) ;MAKE BYTE POINTER
MSGINL: ILDB CH,S1 ;GET NEXT BYTE
JUMPE CH,CPOPJ ;RETURN ON NULL
PUSHJ P,WLNINC ;GO PUT IN INPUT BUFFER
JRST MSGINL ;LOOP
;ROUTINE TO RETURN ADDRESS OF ASCIZ /INDEX/ IN RIGHT CASE
SETIND: MOVE S1,FILHDR ;FIND TYPE OF PAGE CASE
MOVE S1,[[ASCIZ /INDEX/]
[ASCIZ /Index/]
[ASCIZ /index/] ]-1(S1)
POPJ P, ;RETURN
;SUBROUTINE FOR PAGE NUMBER OUTPUT
PPGNO: MOVEI CH,C.NXS ;LEADING SPACES IF NEEDED
CAIG N,^D99 ;3 DIGITS?
PUSHJ P,CCOUT ;NO. SPACE.
CAIG N,^D9 ;2 DIGITS?
PUSHJ P,CCOUT ;NO. SPACE AGAIN.
DECPRT: MOVEI CH,"-" ;IN CASE NEGATIVE
SKIPGE N ;SEE IF NEGATIVE
PUSHJ P,CCOUT ;YES--ISSUE SIGN
DECPR1: IDIVI N,12 ;STANDARD DECIMAL PRINT ROUTINE
MOVMS N1 ;POSITIVE DIGIT
HRLM N1,(P) ; ..
SKIPE N ;DONE?
PUSHJ P,DECPR1 ;NO
HLRZ CH,(P) ;GET A DIGIT
ADDI CH,"0" ;MAKE ASCII DIGIT
PJRST CCOUT ;OUTPUT TO FILE, COUNTING CPOS
;SUBROUTINE TO PUT A DECIMAL NUMBER INTO INPUT BUFFER
DECINP: MOVEI CH,"-" ;IN CASE NEGATIVE
SKIPGE N ;SEE IF NEGATIVE
PUSHJ P,WLNINC ;YES--ISSUE SIGN
DECIN1: IDIVI N,12 ;STANDARD DECIMAL ROUTINE TO LINE BUFFER
MOVMS N1 ;POSITIVE DIGIT
HRLM N1,(P) ;..
SKIPE N ;DONE?
PUSHJ P,DECIN1 ;NO
HLRZ CH,(P) ;GET A DIGIT
ADDI CH,"0" ;MAKE ASCII
PJRST WLNINC ;GO PUT IN INPUT BUFFER
;SUBROUTINE TO COUNT THE DIGITS IN A DECIMAL NUMBER
COUNTD: MOVEI A,0 ;CLEAR COUNTER
SKIPGE N ;SEE IF NEGATIVE
AOS A ;YES--ALLOW EXTRA SPACE
COUNTL: JUMPE N,CPOPJ ;EXIT WHEN 0 (EVEN IF RESULT IS 0)
IDIVI N,^D10 ;DIVIDE ARGUMENT
AOJA A,COUNTL ;COUNT RESULTING DIGIT
;SUBROUTINE TO SKIP N LINES ON OUTPUT FILE
SKIPNC: SKIPE FLSOPG ;N LINES UNLESS AT TOP OF PAGE
JRST SKIPN ;NOT AT TOP--PROCEED
SKIPSC: SKIPN FLSOPG ;STANDARD SKIP UNLESS AT TOP OF PAGE
POPJ P, ;AT TOP--IGNORE REQUEST
SKIPS: MOVE A,NSPNG ;STANDARD SKIP
SKIPN: JUMPLE A,CPOPJ ;RETURN IF NONE TO DO
TLNN F,L.UMOD ;NEED TO CONSIDER SAVED UNDERLINES?
PUSHJ P,CCOUT3 ;YES. GO DO SO.
ADDM A,LINEC ;COUNT LINES
PUSHJ P,SETRNG ;UPDATE L.SUPO DEPENDING ON /RANGE
SETOM FLSOPG ;INDICATE SOMETHING ON PAGE
SETZM NSPCH ;CLEAR PER-LINE COUNTS
SKIPN CPOS ;IF AT LEFT EDGE,
JRST CCOUL1 ; HANDLE AS A SECOND BLANK LINE
SETZM CPOS ; ..
JRST CCOUL2 ;GO OUTPUT IT
;LOOP HERE OVER BLANK LINES
CCOUL1: SAVE$ A ;SAVE AC
SKIPE BARON ;SEE IF BAR NEEDED
PUSHJ P,BLKSEQ ;YES--OUTPUT BAR
RSTR$ A ;RESTORE AC
MOVEI S1,[BYTE (7).CHLFD,0] ;JUST <LF> FROM HERE [175]
SKIPG SCNCRT ;SEE IF /CRETURN, OR [227]
SKIPE BARON ;SEE IF WE DID BAR
CCOUL2: MOVEI S1,CRLFM ;YES--NEED REAL CRLF
SKIPLE SCNTYP ;IF TYPESETTING,
MOVEI S1,[ASCIZ \/L\] ; FORCE, BLANK LINE
PUSHJ P,FMES ;OUTPUT CRLF TO LINE
SOJG A,CCOUL1 ;OUTPUT AS MANY AS REQUESTED
MOVE A,BARON ;COPY BAR FLAG
MOVEM A,BARNPY ; TO START OF LINE
SKIPLE SCNTYP ;IF TYPESETTING,
POPJ P, ; ALL DONE
MOVE A,LINEC ;CHECK FOR END OF PAGE
ADD A,NSPNG ;POSITION OF NEXT LINE IF ALLOWED
CAMLE A,NLPG ;UP TO A FULL PAGE?
PUSHJ P,BPAGE ;YES. HANDLE HEADING
POPJ P, ;RETURN FROM SKIPN
CRLFM: ASCIZ /
/
;ROUTINE TO OUTPUT N SPACES TO OUTPUT FILE, N .GE. 0, N IN A.
NSPAC: JUMPLE A,CPOPJ ;RETURN IF NONE TO OUTPUT
MOVEI CH,C.NXS ;GET A NON-EXPANDABLESPACE
PUSHJ P,CCOUT ;OUTPUT TO FILE
SOJG A,.-2 ;LOOP FOR N SPACES
POPJ P, ;AND RETURN.
;ROUTINES TO OUTPUT A STRING TO THE OUTPUT FILE
PSTRPA: MOVE A,(PA) ;GET POINTER FROM PA
MOVE B,1(PA) ; ..
MOVEM A,PSTRP ;STORE IN TEMP
MOVEM B,PSTRP+1 ; ..
PSTRL: MOVEI PA,PSTRP ;GET A CHARACTER FROM THE TEMP POINTER
PUSHJ P,GCI ; ..
POPJ P, ;NONE LEFT
PUSHJ P,CCOUT ;OUTPUT CHAR TO FILE
JRST PSTRL ;LOOP FOR WHOLE STRING
;OUTPUT STRING TO FILE, COUNTING POSITION
MCOUT: HRLI S1,(POINT 7) ;MAKE STRING POINTER
MCOUT1: ILDB CH,S1 ;GET NEXT CHARACTER
JUMPE CH,CPOPJ ;RETURN WHEN NULL
PUSHJ P,CCOUT ;ELSE, OUTPUT IT
JRST MCOUT1 ;AND LOOP
;SUBROUTINE TO OUTPUT CHARACTER TO FILE,AFTER SOME TESTS
CCOUT: CAIE CH,C.ULS ;UNDERLINE CHARACTER?
JRST CCCOUT ;NO.
TLNN F,L.UMOD ;YES. BY LINE?
JRST CCOUT2 ;YES.
SKIPLE SCNTYP ;IF TYPESETTING,
JRST UNLTYP ; ISSUE SPECIAL CODE FOR TYPESETTING
MOVE CH,ULCHO ;CONVERT TO OUTPUT UNDERLINE
TLNN F,L.UBSP ;NO. BY BACKSPACING?
PJRST FOUT ;NO. ASSUME NON-SPACING
PUSHJ P,FOUT ;YES. SEND UNDERLINE
MOVEI CH,.CHCNH ;AND FOLLOW WITH BACKSPACE
;SUBROUTINE TO OUTPUT CHARACTER LITERALLY TO FILE
CCCOUT: CAIN CH,C.TAT ;SEE IF TYPESET AT
JRST [SKIPG SCNTYP ;YES--SEE IF TYPESETTING
POPJ P, ;NO--IGNORE IT
PJRST ATTYP] ;YES--ISSUE IT AND RETURN
PUSHJ P,@FOUTCH ;SEND TO OUTPUT FILE
ANDI CH,CHRMSK ;MASK TO ASCII
CAIE CH,.CHTAB ;SEE IF TAB, OR
CAIL CH,C.GRPH ;SEE IF GRAPHIC
AOS CPOS ;COUNT POSITION OF CARRIAGE
POPJ P, ;AND RETURN.
CCOUT2: MOVE B,CPOS ;YES. STORE POSITION IN BUFFER FOR LATER
MOVEM B,@ULPOS ;INTO UNDERLINE BUFFER
AOS B,ULPOS ;STEP BUFFER POINTER. (SHOULD CHECK IT)
CAIL B,ULPBF+LN$UND ;SEE IF UNDERLINE BUFFER OVERFLOW
SOS ULPOS ;YES--IGONRE IT
POPJ P, ;RETURN WITHOUT TYPING THE UNDERLINE.
;CONTINUATION OF OUTPUT N LINES
CCOUT3: MOVEI B,ULPBF ;START CONSIDERING UNDERLINE BUFFER
CAMN B,ULPOS ;ANY UNDERLINES IN THE BUFFER?
JRST CCOUT5 ;NO. GO SEND LINE
SAVE$ A ;SAVE NUMBER OF LINES TO BE OUTPUT
TLNE F,L.USUP ;UNDERLINES SUPPRESSED?
JRST CCOUT4 ;YES. SKIP OUTPUT SECTION
MOVEM B,ULPT1 ;STORE START OF BUFFER
MOVEI CH,.CHCRT ;OUTPUT CARRIAGE RETURN TO LINE
PUSHJ P,FOUT ;SEND TO FILE (NO LF YET)
TLNE F,L.ULIN ;SEE IF /UNDERLINE:SEPARATE
JRST [MOVEI CH,.CHLFD ;YES--ISSUE LINE FEED
PUSHJ P,FOUT ; ..
AOS LINEC ;COUNT LINE
PUSHJ P,SETRNG ;UPDATE L.SUPO DEPENDING ON /RANGE
JRST .+1] ;AND PROCEED
PUSHJ P,BLKSEQ ;SKIP SEQUENCE FIELD
SETZM CPOS ;START AT BEGINNING OF LINE
CCOUT6: MOVE A,@ULPT1 ;GET POSITION WHERE UNDERLINE GOES
SUB A,CPOS ;HOW FAR TO IT?
PUSHJ P,NSPAC ;SPACE TO THE UNDERLINE
MOVE CH,ULCHO ;GET LINE-PRINTER UNDERSCORE CHARACTER
PUSHJ P,FOUT ;SEND TO FILE
AOS CPOS ;COUNT POSITION
AOS A,ULPT1 ;COUNT UNDERLINE BUFFER POINTER
CAME A,ULPOS ;UP THRU LAST UNDERLINE?
JRST CCOUT6 ;NO. GO OUTPUT ANOTHER ONE
CCOUT4: MOVEI A,ULPBF ;YES. RESET TO START OF BUFFER
MOVEM A,ULPOS ; ..
RSTR$ A ;RESTORE NUMBER OF LINES
CCOUT5: POPJ P, ;AND GO OUTPUT THEM
;HERE IF TYPESETTING, TO INDICATE UNDERLINE NEXT
UNLTYP: SAVE$ S1 ;SAVE STRING POINTER
MOVEI S1,[ASCIZ \[FI]\]
SKIPN AFTRNC ;IF ALREADY SET, DON'T REPEAT
PUSHJ P,FMES ;SWITCH TO ITALICS
MOVSI S1,[ASCIZ \[FR]\]
MOVEM S1,AFTRNC ;DEFERRED SWITCH BACK
RSTR$ S1 ;RESTORE STRING POINTER
POPJ P, ;RETURN
SUBTTL TYPESET TRANSLATION LOGIC
;+.CHAPTER TYPESET TRANSLATION LOGIC
;-
;+.UC.TS16
;RUNOFF starts the translation by inserting a comment which
;identifies the version of RUNOFF, the date it was run, the
;name of the file being processed and its creation date and
;time. Text is processed by copying each character to the
;output. Case control commands are processed, so the output
;file is in upper and lower case as appropriate to the
;requested format. Horizontal spacing commands (explicit and
;implicit) are converted into the comparable TYPESET
;commands. In particular, RUNOFF breaks the input into lines
;just as if it were doing the final copy itself. Underlining
;is converted to italics. The double space after a period,
;etc., is dropped unless the final output is /TYPESET:LPT.
;When the various commands and internal flags are
;encountered, if RUNOFF can not complete processing itself,
;it generates the appropriate TYPESET-10 command. If there
;is no perfect command, then RUNOFF generates a macro to
;TYPESET-10. If the macro corresponds to a RUNOFF command,
;then the macro name is the same as the standard RUNOFF
;command abbreviation (e.g., [*TP] for any test page whether
;a user command or an implicit one).
;
;Commands which relate to horizontal spacing are treated as
;follows. The comparable commands are issued to TYPESET-10
;but the spacing is modified in order to achieve a
;typesetting width of 36 unless /TYPESET:LPT is selected (in
;which case, the RUNOFF spacing is kept). The conversion to
;width 36 is achieved by multiplying the input number by
;36/page width as set in the last PAPER SIZE or STANDARD
;command. The result is issued as picas and points.
;
;Commands relating to pagination are converted to TYPESET-10
;macros and are ignored. Similarly, the output does not
;include sequence numbers, change bars, or variable flagging.
;Since the paging will be chosen by the final editor,
;footnotes are dumped as soon as possible. In particular,
;they are output at the next break surrounded by horizontal
;lines to help break them up.
;RUNOFF produces the following macros when translating to
;TYPESET-10. They are generally issued right in line without
;any free line feeds.
;.LM16.P-16,,6.AUTOTABLE
;[*ACUTE] output acute accent
;
;[*AX] center appendix heading; first arg is
; letter, second is title
;
;[*BB] begin change bar
;
;[*BKSLSH] output backslash character
;
;[*CAT] used at start of file when /TYPESET:CAT
;
;[*CH] center chapter heading; first arg is number,
; second is title
;
;[*CONTRL] represents control character in input; arg
; is one character in upper case for the
; control with "?" representing delete
;
;[*CRCFLX] output circumflex accent
;
;[*DB] disable change bars
;
;[*DX] center index heading; arg is header
;
;[*EB] end change bar
;
;[*EBB] enable change bars
;
;[*ELS] end list
;
;[*EN] end note
CONT.
;
;[*HLn] header level n (1-5); arg is numbered title
;
;[*LE] list element (no argument; followed by
;
;the element number, then "./N/N".
;
;[*LFTANG] output left angle bracket
;
;[*LFTBRC] output left brace
;
;[*LS] start list
;
;[*LPTR] used at start of file when /TYPESET:LPT
;
;[*NT] note heading; argument is heading to be
; centered
;
;[*PG] force a new page
;
;[*RHTANG] output right angle bracket
;
;[*RHTBRC] output right brace
;
;[*TILDE] output tilde
;
;[*TP] test page; arg is number of lines
;
;[*TXT6] used at start of file when /TYPESET:TXT
;
;[*UNDRLN] output underline (do not overprint)
;
;[*VRTBAR] output vertical bar
;.PG.P0.LM0.AUTOPARAGRAPH
;RUNOFF uses the following TYPESET commands when converting
;the input to TYPESET-10. In general, they are issued in
;line without a free line feed. /L is usually followed by a
;line feed except when it is a SKIP or BLANK command.
;.LM16.P-16.AUTOTABLE
;/A center on a tab stop (used for .CENTER with
; arg)
;
;/C center on page (used for .CENTER without arg)
;
;/J ends a line under .JUSTIFY.NOFILL
;
;/L force a new line (used on break and for blank
; lines)
;
;/N fixed space ("#")
;
;/R right adjust
;
;/U tabulate (for input tabs)
;
;/? break if something on line
;
;++ output "+"
;
;+A output "@"
;
;+[ output "["
;
;+] output "]"
;
;+/ output "/"
CONT.
;
;[Cn] set column width (right margin)
;
;[FB] bold face (.TYPESET BOLD)
;
;[FI] italics face (underline and .TYPESET ITALICS)
;
;[FM] slant face (.TYPESET SLANT)
;
;[FR] regular face
;
;[FS] smallcaps face (.TYPESET SMALLCAPS)
;
;[HLn,0,1] indent next line
;
;[HRn,0,1] adjust next line to right margin
;
;[ILn] set left margin
;
;[P8,10] size of footnotes
;
;[P10,12] size of normal text
;
;[RR] ragged right (.NOJUSTIFY)
;
;[R%] justify
;
;[TSi,j,...] set tab stops
;
;[T%] clear tab stops
;-.P0.LM0.AUTOPARAGRAPH.LC.TS8,,,,,,,,,,,,,,,
SUBTTL HANDY-DANDY SUBROUTINES
;+.CHAPTER HANDY SUBROUTINES
;-
;+
;^THE ROUTINE "<TSTECM" LOOKS AT THE LINE ABOUT TO BE
;INPUT AND CHECKS IT TO SEE IF IT IS EXACTLY ONE END COMMAND,
;NAMELY, THE ONE WHICH TERMINATES THE CURRENT TEXT
;BRACKET. ^IT IS USED WHEN A COMMAND TAKES SEVERAL LINES
;OF TEXT AS AN ARGUMENT AND IS TERMINATED BY A COMMAND OF THE
;FORM .END XXX.
;
;^THIS ROUTINE IS CALLED AT THE BEGINNING OF EACH LINE OF
;TEXT:
; 1/ ADDRESS OF CHARACTER INPUT ROUTINE TO USE
; 2/ ADDRESS OF ROUTINE WHICH HANDLES THE .END
; COMMAND OF THE TYPE DESIRED
; PUSHJ P,TSTECM
; RETURNS +1 IF NOT END YET
; RETURNS +2 IF MATCH
;
;^SEE WRITEUP OF "<RTECMC" FOR NORMAL CHARACTER READ.
;-
TSTECM: MOVEM A,RINCHR ;SAVE ADDRESS OF INPUT ROUTINE
MOVEM B,ADRECM ;SAVE ADDRESS OF MATCH
MOVEI PA,TECBFP ;POINT TO END TEST BUFFER
PUSHJ P,RCI ;CLEAR BUFFER
MOVEI N,5*LN$TEC-2 ;SET COUNT
PUSHJ P,TECGCN ;READ FIRST CHARACTER IGNORING GCSCH AS SPECIAL
CAME CH,CC.CON ;SEE IF CONTROL INDICATOR
JRST TECECX ;NO--JUST CLEAN UP
PUSHJ P,STRCMN ;INDICATE COMMAND
PUSHJ P,TECGWD ;GET WORD
JRST TECECX ;BUFFER FULL--NOT A MATCH
;HERE WHEN FIRST WORD HAS BEEN READ
MOVE S1,[-CMTL1,,CMTAB] ;POINT TO COMMAND TABLE
PUSHJ P,CMREC ;TRY TO RECOGNIZE IT
JRST TECECX ;NOT A MATCH
HLRZ A,(D) ;GET DISPATCH ADDRESS
CAMN A,ADRECM ;SEE IF OURS
JRST TECFND ;YES--INDICATE FOUND
CAIE A,$$END ;NO--SEE IF .END
JRST TECECX ;NO--NOT A MATCH
CONT.
;HERE WHEN FIRST WORD IS ".END"
TECSKP: PUSHJ P,TECGCH ;SKIP SPACES
PUSHJ P,CMSOME ;SEE IF END OF COMMAND
JRST TECECX ;YES--NO MATCH
CAIE CH,C.SPC ;SEE IF SPACE
CAIN CH,.CHTAB ; OR TAB
JUMPG N,TECSKP ;YES--LOOP IF ROOM
MOVEM CH,GCSCH ;SET TO RESCAN
PUSHJ P,TECGWD ;GET WORD
JRST TECECX ;BUFFER FULL--NOT A MATCH
;HERE WHEN SECOND WORD HAS BEEN READ
MOVE S1,[-ECMTL1,,ECMTAB] ;POINT TO END COMMAND TABLE
PUSHJ P,CMREC ;TRY TO RECOGNIZE IT
JRST TECECX ;NOT A MATCH
HLRZ A,(D) ;GET DISPATCH ADDRESS
CAMN A,ADRECM ;SEE IF OURS
JRST TECFND ;YES--INDICATE FOUND
JRST TECECX ;NO--NO MATCH
;HERE WHEN REJECT
TECECX: TRZ F,R.CCOM ;CLEAR COMMAND
SETOM GCSCH ;CLEAR ANY HANGING RE-EAT SINCE IN BUFFER
POPJ P, ;RETURN FAILURE
;HERE WHEN ACCEPT COMMAND
TECFND: MOVEI PA,TECBFP ;POINT TO SPECIAL BUFFER
PUSHJ P,RCI ;CLEAR IT
JRST CPOPJ1 ;GIVE WIN RETURN
;ROUTINE TO READ A WORD FOR TSTECM
TECGWD: MOVEI PA,CMBF ;POINT TO COMMAND BUFFER
PUSHJ P,CSP ;COMPUTE POINTERS
MOVEM A,CMSTP ;STORE THEM
MOVEM B,CMST2 ; ..
MOVEI N1,<ECMBF-CMBF>*5 ;FOR END TEST
TECGW1: JUMPLE N,CPOPJ ;ERROR IF OVERFLOW TEMP STRING
SOJLE N1,CPOPJ ;ERROR IF OVERFLOW COMMAND STRING
PUSHJ P,TECGCH ;READ CHARACTER
PUSHJ P,CMCFUC ;FORCE UPPER CASE
CAIG CH,"Z" ;SEE IF
CAIGE CH,"A" ; ALPHABETIC
JRST CMGWD1 ;NO--ALL DONE
MOVEI PA,CMSTP ;POINT TO COMMAND BUFFER
PUSHJ P,WCI ;STORE IT
JRST TECGW1 ;LOOP FOR MORE
;ROUTINE TO READ AND SAVE A CHARACTER FOR TSTECM
TECGCH: SKIPL CH,GCSCH ;SEE IF SOMETHING SAVED
JRST [SETOM GCSCH ;YES--CLEAR IT
POPJ P,] ;AND RETURN IT WITHOUT STORE
TECGCN: PUSHJ P,@RINCHR ;NO--READ ANOTHER CHAR
;FALL INTO STORING IT
;ROUTINE TO HANDLE STORE IN TEMP STRING BUFFER
TECWCI: SOS N ;COUNT DOWN SPACE
TXNE CH,LCHPVT ;SEE IF QUOTED
SOS N ;YES--COUNT THAT TOO
MOVEI PA,TECBFP ;POINT TO BUFFER AREA
PJRST SCI ;DO PROTECTED STORE
;+
;^THE ROUTINE "<RTECMC" IS TO BE CALLED FOR EACH CHARACTER
;IN THE TEXT BRACKET. ^IT READS OUT THE TEMPORARY STRING TEXT
;BUFFER IF ANY, OR ELSE IT TAKES THE NON-SKIP RETURN.
;CALL:
; PUSHJ P,RTECMC
; RETURN +1 IF NOTHING IN BUFFER
; RETURN +2 WITH NEXT CHARACTER
;-
RTECMC: SKIPN TECBFP ;SEE IF FAST EXIT
POPJ P, ;YES
MOVEI PA,TECBFP ;POINT TO TEMP BUFFER
PUSHJ P,GCI ;GET NEXT CHAR
JRST [SETZB CH,TECBFP ;DONE--INDICATE FAST EXIT
POPJ P,] ;GIVE NULL RETURN
JRST CPOPJ1 ;GIVE WIN RETURN
;ROUTINES TO HANDLE FOUR-WORD CHARACTER INDEX BLOCKS
; FORMAT: INCREMENT AND READ INDEX
; INCREMENT AND STORE INDEX
; FIRST-1 CHARACTER ADDRESS
; LAST CHARACTER ADDRESS
; ALL CALLS WITH PA=ADDRESS OF INDEX BLOCK
;INITIALIZE BLOCK--CALL WITH WORD ADDRESS IN A, WORD LENGTH IN B
ICI: IMULI A,5 ;CONVERT TO CHARACTER ADDRESS
SOS A ;BACK OFF TO START WITH INCREMENT
MOVEM A,2(PA) ;INITIALIZEFIRST-1
IMULI B,5 ;CONVERT TO CHARACTER LENGTH
ADD A,B ;COMPUTE LAST
MOVEM A,3(PA) ;INITIALIZE LAST
;RESET BLOCK--SETS READ/STORE TO FIRST-1
RCI: MOVE A,2(PA) ;GET FIRST-1
MOVEM A,(PA) ;INITIALIZE READ
MOVEM A,1(PA) ;INITIALIZE STORE
POPJ P, ;RETURN
;PROTECTED STORE--STORE CH; USES A,B
SCI: AOS A,1(PA) ;INCREMENT POINTER
MOVE B,A ;COPY VALUE
TXNE CH,LCHPVT ;SEE IF QUOTED
AOS B ;YES--UP ONCE MORE
CAMG B,3(PA) ;COMPARE TO LAST
JRST WCI1 ;OK--GO DO THE STORE
SOS 1(PA) ;NO--REVERSE POINTER
POPJ P, ;AND RETURN
;REST USE A TWO WORD BLOCK
;ROUTINE TO COMPUTE EMPTY STRING POINTER
CSP: MOVE A,PA ;GET ARGUMENT
IMULI A,5 ;CONVERT TO CHARACTERS
SOS B,A ;BACK UP ONE, COPY TO B
POPJ P, ;RETURN
;ROUTINES TO GET CHARACTER AND INCREMENT STRING POINTER
GGCINP: SKIPA PA,[EXP GCINP]
GLOUT: MOVEI PA,LOUT1 ;PARTICULAR ARGUMENTS
GCI: MOVE A,(PA) ;GET FIRST POINTER
CAML A,1(PA) ;ANYTHING IN STRING?
POPJ P, ;NO. NON-SKIP RETURN.
AOS A,(PA) ;YES. COUNT AND GET FIRST POINTER
IDIVI A,5 ;CONVERT TO WORD AND BYTE
LDB CH,CBYTAB(B) ;GET THE CHARACTER
CAIN CH,C.QUTI ;SEE IF QUOTED
JRST [PUSHJ P,GCI ;YES--GET NEXT CHAR
TDZA CH,CH
TXO CH,LCHPVT ;FLAG IT
JRST .+1]
CPOPJ1: AOS (P) ;SKIP RETURN
CPOPJ: POPJ P, ;RETURN.
;ROUTINES TO WRITE CHARACTER AND INCREMENT POINTERS
WLNINC: SOS LINBK ;COUNT DOWN SPACE IN BUFFER
WLNIN1: MOVEI PA,LNIN1 ;STANDARD ARG
MOVE A,(PA) ;GET START
CAMN A,1(PA) ;SEE IF EMPTY
PUSHJ P,LINUPC ;YES--UPDATE THISXX COUNTERS
TXNE CH,LCHPVT ;SEE IF QUOTED
JRST [SOSN LNINCT ;YES--COUNT DOWN
JRST E$$IBO ;ERROR IF OVERFLOW
JRST .+1] ;OK
SOSLE A,LNINCT ;CHECK LINE COUNT
JRST WCI ;OK--GO AHEAD
JUMPL A,CPOPJ ;OVER--DISCARD CHARACTER
MSG$ IBO,ERR,,Input buffer overflow
PJRST ONPAG ;SAY WHERE AND RETURN
WCI: AOS A,1(PA) ;COUNT POINTER AND GET IT.
WCI1: TXNE CH,LCHPVT ;SEE IF QUOTED
JRST [PUSH P,CH ;YES--SAVE AWAY
MOVEI CH,C.QUTI ;GET INTERNAL QUOTE
PUSHJ P,.+1 ;STORE THAT
POP P,CH ;RESTORE ARGUMENT
AOS A,1(PA) ;COUNT UP
JRST .+1] ;PROCEED
IDIVI A,5 ;CONVERT TO WORD AND BYTE
DPB CH,CBYTAB(B) ;STORE CHARACTER
POPJ P, ;RETURN
CBYTAB: POINT 7,0(A),6
POINT 7,0(A),13
POINT 7,0(A),20
POINT 7,0(A),27
POINT 7,0(A),34
;ROUTINE TO STACK MARGINS, JUSTIFICATION, SPACING
PSHMJS: AOSG A,MJSPDL ;INCREMENT STACK
JRST [SETZM MJSPDL ;HAD UNDERFLOWED--FIX UP
JRST PSHMJS] ;TRY AGAIN
CAILE A,LN$MJP ;SEE IF OVERFLOW
JRST E..TNN ;YES--GO GIVE ERROR
IMULI A,LN$MJS ;MULT BY LENGTH OF FRAME
ADD A,[-LN$MJS-1,,MJSPDB-LN$MJS-1]
PUSH A,RMARG ;SAVE RIGHT MARGIN
PUSH A,LMARG ;SAVE LEFT MARGIN
PUSH A,NSPNG ;SAVE SPACING
PUSH A,F ;SAVE JUSTIFY AND FILL FLAGS
HRRM N,(A) ;GET POST-RESTORE SPACE
POPJ P, ;RETURN
E..TNN: CAIE A,LN$MJP+1 ;SEE IF JUST OVER
POPJ P, ;NO--ALREADY GAVE MESSAGE
MSG$ TNN,WRN,,Too many nested notes
PJRST ONPAG ;TELL WHERE AND RETURN
;ROUTINE TO RESTORE FROM STACK
POPMJS: MOVEI N,0 ;IN CASE ERROR EXIT, RETURN 0
SOSGE A,MJSPDL ;BACK UP POINTER
JRST E..UME ;ERROR IF TOO FAR
CAIL A,LN$MJP ;SEE IF HAD OVERFLOWED
POPJ P, ;YES--DON'T RESTORE YET
IMULI A,LN$MJS ;ALLOW FOR FRAME SIZE
ADD A,[LN$MJS,,MJSPDB+LN$MJS-1]
POP A,B ;RESTORE FLAGS
HRRE N,B ;RESTORE POST-RESTORE SPACE
TLZ F,L.FILL!L.PJUS!L.JUST
AND B,[L.FILL!L.PJUS!L.JUST,,0]
IOR F,B ; FOR JUSTIFY AND FILL
PUSHJ P,JUSTYP ;SEND JUSTIFICATION TO TYPESET
POP A,NSPNG ;RESTORE SPACING
POP A,LMARG ;RESTORE LEFT MARGIN
POP A,RMARG ;RESTORE RIGHT MARGIN
PJRST LRMTYP ;RETURN, ISSUING MARGINS FOR TYPESETTING
E..UME: AOJN A,CPOPJ ;SEE IF FIRST UNDERFLOW
MSG$ UME,WRN,,Unmatched end command
PJRST ONPAG ;TELL WHERE AND RETURN
;ROUTINE TO OUTPUT HEADING SEQUENCE NUMBER OF INPUT FILE
FILSEQ: SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST FILSEY ;YES--NO SEQUENCE
MOVEI CH,.CHTAB ;TAB OVER TO TEXT
SKIPE A,FILOVT ;IF ZERO DO NOTHING
PUSHJ P,FOUT ;OUTPUT TAB
SOJG A,.-1 ;REDO IF NECESSARY
TRNN F,R.SEQU ;SEE IF /SEQUENCE
JRST FILSEX ;NO--
TLNE F,L.FOOT ;SEE IF IN FOOTNOTE
JRST BLKSQ1 ;YES--OMIT SEQUENCE NUMBERS
MOVE B,THISEQ ;GET THIS INPUT LINE'S SEQUENCE
JUMPE B,FILSQ1 ;NOT SEQUENCED--GO USE COUNT
MOVEI C,0 ;ADD ASCIZ TERMINATOR
MOVEI S1,B ;POINT TO SEQUENCE
PUSHJ P,FMES ;OUTPUT TO FILE
JRST FILSQ2 ;PROCEED WITH PAGE NUMBER
;HERE IF INPUT FILE NOT SEQUENCED
FILSQ1: MOVE N,THISLN ;GET LINE COUNT THIS INPUT PAGE
AOS N ;ADD ONE
MOVEI CH,C.NXS ;PRESET SPACE
CAIG N,^D9999 ;SEE IF FIVE DIGITS
PUSHJ P,CCOUT ;NO--SPACE OVER [216]
CAIG N,^D999 ;SEE IF FOUR DIGITS
PUSHJ P,CCOUT ;NO--SPACE OVER [216]
PUSHJ P,PPGNO ;ISSUE AS AT LEAST THREE CHARS
;HERE AFTER LINE NUMBER (.GE. 5 CHARS)
FILSQ2: MOVEI CH,"/" ;SEPARATOR FOR PAGE
PUSHJ P,FOUT ;OUTPUT IT
MOVE N,THISPG ;GET INPUT PAGE COUNT
AOS N ;COUNT UP FOR THIS PAGE
PUSHJ P,PPGNO ;OUTPUT AT LEAST THREE CHARS
JRST FILSEW ;PUT IN BLANK SPACES
CONT.
;ROUTINE TO OUTPUT BLANK HEADING SEQUENCE FIELD
BLKSEQ: SKIPLE SCNTYP ;SEE IF TYPESETTING
JRST FILSEY ;YES--NO SEQUENCE
MOVEI CH,.CHTAB ;TAB OVER
SKIPE A,FILOVT ;DO NOTHING IF ZERO
PUSHJ P,FOUT ;OUTPUT
SOJG A,.-1 ;REDO IF NECESSARY
BLKSQ1: TRNN F,R.SEQU ;SEE IF /SEQUENCE
JRST FILSEX ;NO--PUT IN BLANK SPACES
MOVEI CH,.CHTAB ;TAB OVER THE SEQUENCE
PUSHJ P,FOUT ; NUMBERS
MOVEI CH," " ;GET A SPACE
PUSHJ P,FOUT ;OUTPUT IT (SEQ IS 9 CHARS LONG)
FILSEW: MOVEI S1,FLSKIP ;GET HEADER LINE PREFIX (/DRAFT)
PUSHJ P,FMES ;ISSUE TO OUTPUT
MOVEI CH,.CHTAB ;TAB OVER TO
PUSHJ P,FOUT ; ACTUAL START
FILSEX: MOVE A,FILOVR ;GET NO. OF BLANK SPACES
PUSHJ P,NSPAC ;OUTPUT BLANK SPACES
FILSEY: SKIPE BARSW ;SEE IF BARS ENABLED
PUSHJ P,OUTBAR ;YES--DO SPECIAL OUTPUT
SETZM CPOS ;CLEAR HORIZONTAL POSITION
POPJ P, ;AND RETURN
;ROUTINE TO OUTPUT BAR OR EQUIVALENT SPACES
OUTBAR: MOVEI A,BARWID ;PRESET FOR 2 BLANKS
SKIPN BARON ;SEE IF ENDED WITH BAR
SKIPE BARNPY ; OR HAD ONE IN LINE
SKIPA ;YES--WILL NEED BAR
PJRST NSPAC ;NO--ISSUE SPACES INSTEAD
SKIPG CH,SCNBAR ;GET BAR CHARACTER
MOVEI CH,AD.BAR ;NONE--USE DEFAULT
PUSHJ P,FOUT ;OUTPUT IT
MOVEI A,BARWID-1 ;AND ONE SPACE
PJRST NSPAC ; TO OFFSET IT
;ROUTINE TO UPDATE THIS OUTPUT LINE'S INITIAL INPUT LINE COUNTS
LINUPC: SKIPN A,INSEQN ;GET CURRENT INPUT SEQUENCE
MOVE A,INSEQL ;OR PREVIOUS
MOVEM A,THISEQ ;STORE
MOVE A,INLINE ;GET CURRENT INPUT LINE COUNT
MOVEM A,THISLN ;STORE
MOVE A,INPAGE ;GET CURRENT INPUT PAGE COUNT
MOVEM A,THISPG ;STORE
POPJ P, ;RETURN
;TYPESETTING OUTPUT ROUTINES
;OUTTYP OUTPUTS CHARACTER FOR TYPESETTING PACKAGE TRANSLATING
;ASCII TO JH CHARACTER SET
;OUTTYQ DITTO EXCEPT SPACE PASSES THROUGH UNTOUCHED
;CALL: CH/ASCII CHARACTER
; PUSHJ P,OUTTYP/OUTTYQ
; RETURNS +1 WITH ALL AC'S INTACT
;
;LEAVES ALL CHARACTERS INTACT EXCEPT:
; (TYPET)-(TYPETX-1) PRECEEDED BY +
; (TYPETX) CHANGED TO +A
; (TYPETX+1)-(LTYPET) CHANGED TO MACROS
; UNEXPANDABLE SPACE CHANGED TO /N
; (OUTTYP ONLY) SPACE CHANGED TO /N
; TAB CHANGED TO /U
OUTTYP: SAVE$ CH ;SAVE CHARACTER
ANDI CH,CHRMSK ;REMOVE POSSIBLE QUOTE
CAIE CH,C.SPC ;SEE IF SPACE
SKIPA CH,(P) ;NO--RESTORE ORIGINAL CHARACTER
MOVEI CH,C.NXS ;YES--CHANGE TO NON-EXPANDABLE ONE
JRST OUTTY1 ;ENTER REGULAR ROUTINE
CONT.
OUTTYQ: SAVE$ CH ;SAVE CHARACTER
OUTTY1: SAVE$ S1 ;SAVE S1
HRRZ S1,AFTRNC ;GET DEFERRED STRING
JUMPN S1,[SAVE$ CH ;SET--SAVE CH
SETZM AFTRNC ;CLEAR MEMORY
PUSHJ P,FMES ;ISSUE IT
RSTR$ CH ;RESTORE CH
JRST .+1] ;PROCEED
CAIE CH,C.QTS ;SEE IF QUOTED SPACE
CAIN CH,C.NXS ;SEE IF NON-EXPANDABLE SPACE
JRST [MOVEI S1,[ASCIZ \/N\] ;YES--SPECIAL OUTPUT
PUSHJ P,FMES ;ISSUE FOR TYPESETTING
JRST OUTTYY] ;AND FINISH UP
ANDI CH,CHRMSK ;REMOVE POSSIBLE QUOTE
CAIGE CH,C.GRPH ;SEE IF GRAPHIC
CAIN CH,.CHTAB ; OR TAB
CAIN CH,.CHDEL ; BUT NOT DELETE
JRST [SAVE$ CH ;NO--SAVE CHARACTER
MOVEI S1,[ASCIZ \[*CONTRL]\]
PUSHJ P,FMES ;INDICATE CONTROL CHARACTER
RSTR$ CH ;RECOVER CHARACTER
TRC CH,CCUCAS ;CONVERT TO UPPER CASE (DELETE TO ?)
PUSHJ P,OUTTYQ ;ISSUE IT THAT WAY
MOVEI CH,"@" ;INDICATE END OF ARGUMENT
JRST OUTTY9] ;AND FINISH UP
MOVSI S1,-LTYPET ;LOOK IN TABLE OF SPECIALS
CAME CH,TYPET(S1) ;SEE IF MATCH
AOBJN S1,.-1 ;NO--LOOP ON
JUMPGE S1,OUTTY9 ;OK IF NOT FOUND
MOVE S1,TYPETM(S1) ;MACRO--GET TEXT
PUSHJ P,FMES ;ISSUE MACRO CALL
JRST OUTTYX ;GO FINISH UP
OUTTY9: PUSHJ P,FOUT ;ISSUE CHARACTER
CAIE CH,C.SPC ;UNLESS SPACE,
OUTTYX: HLRZS AFTRNC ;PROMOTE DEFERRED TEXT
OUTTYY: RSTR$ S1 ;RESTORE S1
RSTR$ CH ;RESTORE ORIGINAL CHARACTER
POPJ P, ;RETURN
CONT.
;TABLE OF SPECIAL ASCII CHARACTERS WHICH DO NOT REPRESENT THEMSELVES
TYPET: "[" ;THESE ARE PI CASE THEMSELVES
"]"
"/"
"+"
"@" ;PI CASE A
.CHTAB ;TABULATE
"\" ;THESE NEED MACROS
"<"
">"
"^"
"_"
"@"+ULCAS
"["+ULCAS
"]"+ULCAS
"\"+ULCAS
"^"+ULCAS
LTYPET==.-TYPET
;TABLE OF MACROS TO MATCH
TYPETM: [ASCIZ \+[\]
[ASCIZ \+]\]
[ASCIZ \+/\]
[ASCIZ \++\]
[ASCIZ \+A\]
[ASCIZ \/U\] ;TABULATE
[ASCIZ \[*BKSLSH]\]
[ASCIZ \[*LFTANG]\]
[ASCIZ \[*RHTANG]\]
[ASCIZ \[*CRCFLX]\]
[ASCIZ \[*UNDRLN]\]
[ASCIZ \[*ACUTE]\]
[ASCIZ \[*LFTBRC]\]
[ASCIZ \[*RHTBRC]\]
[ASCIZ \[*VRTBAR]\]
[ASCIZ \[*TILDE]\]
;ROUTINE TO TELL TYPESET OF THE CURRENT JUSTIFICATION RULES
JUSTYP: SKIPG SCNTYP ;SEE IF TYPESET
POPJ P, ;NO--DO NOTHING
MOVEI S1,[ASCIZ \[R%]\]
TLNN F,L.JUST ;IF NOT JUSTIFYING,
MOVEI S1,[ASCIZ \[RR]\]
PJRST FMES ;ISSUE STRING AND RETURN
;INPTYP SENDS REST OF INPUT COMMAND FOR TYPESETTING AS IS
;PERIOD AND EXCLAMATION ARE VALID TEXT.
;CALL: PUSHJ P,INPTYP
;USES ALL AC'S
INPTYP: PUSHJ P,GCIN ;GET NEXT CHARACTER
PUSHJ P,CMSOMP ;SEE IF END [165]
JRST [MOVEM CH,GCSCH ;YES--SAVE FOR RESCAN
MOVEI S1,CRLFM ;ISSUE NEW LINE FOR
PJRST FMES] ; NEATNESS, AND RETURN
CAIN CH,.CHTAB ;SEE IF TAB
MOVEI CH,C.SPC ;YES--CHANGE TO SPACE
PUSHJ P,CCOUT ;ISSUE TO OUTPUT
JRST INPTYP ;LOOP ONWARDS
;ATTYP ISSUES A TYPESETTING MACRO ARGUMENT BREAK
;CALL: PUSHJ P,ATTYP
;PRESERVES ALL AC'S
ATTYP: SKIPG SCNTYP ;SEE IF TYPESETTING
POPJ P, ;NO--RETURN
SAVE$ CH ;SAVE ACCUMULATOR
MOVEI CH,"@" ;GET SEPARATOR
PUSHJ P,FOUT ;ISSUE IT
RSTR$ CH ;RESTORE ACCUMULATOR
POPJ P, ;RETURN
;STSTYP ISSUES CURRENT TAB STOP SETTINGS FOR TYPESETTING
;CALL: PUSHJ P,STSTYP
;SAVES ALL AC'S
STSTYP: SKIPG SCNTYP ;SEE IF TYPESETTING
POPJ P, ;NO--RETURN
SAVE$ <CH,S1,N,N1,D> ;SAVE ACCUMULATORS
MOVEI S1,[ASCIZ \[T%]\]
PUSHJ P,FMES ;CLEAR OLD SETTINGS
MOVN D,NTABS ;GET -NUMBER OF TAB STOPS
JUMPGE D,STSTYX ;EXIT IF NONE
HRLZS D ;MAKE INTO COUNTER
MOVEI S1,[ASCIZ \[TS\]
PUSHJ P,FMES ;PREPARE TO SET NEW SETTINGS
STSTYL: MOVEI CH,"," ;GET SEPARATOR
TRNE D,-1 ;SEE IF FIRST
PUSHJ P,FOUT ;NO--ISSUE
MOVE N,TABTAB(D) ;GET THIS STOP
PUSHJ P,TYPDSP ;ISSUE IN CORRECT UNITS
AOBJN D,STSTYL ;LOOP UNTIL DONE
MOVEI S1,[ASCIZ \]
\]
PUSHJ P,FMES ; COMMAND
STSTYX: RSTR$ <D,N1,N,S1,CH> ;RESTORE ACCUMULATORS
POPJ P, ;RETURN
;LRMTYP ROUTINE TO ISSUE MARGINS FOR TYPESETTING
;CALL: PUSHJ P,LRMTYP
; RETURNS +1 WITH AC'S PRESERVED
;IF TYPESETTING, ISSUES LEFT AND RIGHT MARGINS
LRMTYP: SKIPG SCNTYP ;SEE IF TYPESETTING
POPJ P, ;NO--JUST RETURN
SAVE$ <S1,CH,N,N1> ;SAVE SOME AC'S
MOVEI S1,[ASCIZ \[IL\]
PUSHJ P,FMES ;ISSUE LEFT
MOVE N,LMARG ; MARGIN
PUSHJ P,TYPDSP ; IN PICAS
MOVEI S1,[ASCIZ \][C\]
PUSHJ P,FMES ;ISSUE RIGHT
MOVE N,RMARG ; MARGIN
PUSHJ P,TYPDSP ; IN PICAS
MOVEI CH,"]" ;CLOSE CALLS
PUSHJ P,FOUT ; FOR TYPESETTING
MOVE N,PRMRG ;GET PERMANENT RIGHT EDGE
MOVE N1,TYPMUL ;GET MULTIPLIER
CAIE N1,1 ;UNLESS 1:1,
MOVEM N,TYPDIV ; STORE RM AS SPACING DIVISOR
RSTR$ <N1,N,CH,S1> ;RESTORE AC'S
POPJ P, ;RETURN
;TYPDSP ISSUES A NUMBER CONVERTED FOR TYPESETTING HORIZONTAL SPACING
;CALL: N/WIDTH IN PRINTER SPACES
; PUSHJ P,TYPDSP
;
;TYPHSP ISSUES TYPESETTING HORIZONTAL SPACING
;CALL: N/WIDTH IN POINTS
; PUSHJ P,TYPHSP
;
; BOTH RETURN +1 AFTER TYPING A.B
;USES N, N1, CH
TYPDSP: IMUL N,TYPMUL ;MULTIPLY BY CONVERSION NUMERATOR
IMULI N,^D12 ;CONVERT TO POINTS FROM PICAS
IDIV N,TYPDIV ;DIVIDE BY CONVERSION DIVISOR
SKIPE N1 ;SEE IF EXCESS
AOS N ;YES--ROUND UP (N/POINTS)
TYPHSP: IDIVI N,^D12 ;CONVERT TO PICAS WITH REMAINDER
SKIPN N1 ;SEE IF REMAINDER
PJRST DECPRT ;NO--ISSUE DECIMAL PICAS
SAVE$ N1 ;YES--SAVE REMAINDER POINTS
PUSHJ P,DECPRT ;ISSUE DECIMAL PICAS
MOVEI CH,"." ;ISSUE SEPARATOR
PUSHJ P,CCOUT ;ISSUE
RSTR$ N ;RESTORE REMAINDER POINTS
MOVMS N ;GET ABSOLUTE VALUE
PJRST DECPRT ;ISSUE IN DECIMAL
;I/O SUBRS
FMES: SKIPN AFTRNC ;SEE IF DEFERRED OUTPUT
JRST FMES1 ;NO--CONTINUE
SAVE$ S1 ;YES--SAVE STRING
MOVE S1,AFTRNC ;GET DEFFERED STUFF
SETZM AFTRNC ;CLEAR MEMORY
TRNN S1,-1 ;SEE IF SET UP
MOVSS S1 ;NO--SWITCH
PUSHJ P,FMES1 ;ISSUE IT
RSTR$ S1 ;RESTORE STRING
FMES1: HRLI S1,(POINT 7,) ;MAKE BYTE POINTER
FMESL: ILDB CH,S1
JUMPE CH,CPOPJ ;RETURN ON NULL
PUSHJ P,FOUT ;OUTPUT CHARACTER
JRST FMESL ;LOOP
;FOUTTT IS ROUTINE TO OUTPUT CHARACTER FROM A (T1)
;CALL: A/CHARACTER
; PUSHJ P,FOUTTT
; RETURN +1 WITH ALL AC'S PRESERVED
FOUTTT: EXCH CH,A ;MOVE TO RUNOFF AC
PUSHJ P,FOUT ;ISSUE TO FILE
EXCH CH,A ;RESTORE TO ORIGINAL
POPJ P, ;RETURN
;FOUT IS ROUTINE TO OUTPUT CHARACTER FROM CH
;CALL: CH/CHARACTER
; PUSHJ P,FOUT
; RETURN +1 WITH ALL AC'S PRESERVED
FOUTCS: CAIE CH,C.QTS ;SEE IF QUOTED SPACE
CAIN CH,C.NXS ; OR NON-EXPANDABLE SPACE
MOVEI CH,C.SPC ;YES--CHANGE TO REAL SPACE
FOUT: TLNE F,L.SUPO ;SEE IF SUPPRESSING OUTPUT
POPJ P, ; YES--DON'T OUTPUT
IF TOPS-10,<
SOSLE H.FOUT+.BFCTR ;ROOM IN BUFFER?
JRST FOUTOK ;YES.
OUT F.FOUT, ;NO. SEND BUFFER
JRST .+2
JRST E$$ODE ;YES.
FOUTOK: IDPB CH,H.FOUT+.BFPTR ;PUT CHAR IN BUFFER
> ;END TOPS-10
IF TOPS-20,<
SKIPN PMAPF ;ANYTHING PMAPED
JRST DOBOUT ;NO--JUST DO A BOUT
SOSG WINCNT ;ROOM IN WINDOW?
PUSHJ P,MAPWIN ;NO--PMAP NEXT HUNK
AOS BYTECT ;YES--COUNT BYTE
IDPB CH,BYTEPT ;STORE BYTE
JRST NOBOUT ;SKIP BOUT
DOBOUT: SAVE$ <A,B> ;SAVE A AND B
HRRZ A,OPNOUT ;GET OUTPUT JFN
HRRZ B,CH ;GET BYTE
BOUT ;WRITE IT
ERJMP E$$ODE ;ERROR
RSTR$ <B,A> ;RESTORE A AND B
NOBOUT:
> ;END TOPS-20
PUSH P,CH ;SAVE CH
CAIN CH,.CHLFD ;LINEFEED?
JRST FOUT1 ;YES. GO COUNT IT
CAIN CH,.CHFFD ;FORMFEED?
JRST FOUT2 ;YES. GO COUNT IT.
POP P,CH ;RESTORE CH
POPJ P, ;AND RETURN
FOUT1: AOS CH,LINECT ;COUNT THE LINES
CAIGE CH,LPTLEN ;FILL THE LPT?
JRST FOUTXX ;NO
FOUT2: SETZM LINECT ;TOP OF PAGE. NO LINES.
AOS PAGECT ;COUNT PAGES.
FOUTXX: POP P,CH ;RETRIEVE CHARACTER
AOS DIDSOM ;INDICATE SOMETHING OUTPUT
POPJ P,
MSG$ ODE,ERR,,Output error
PUSHJ P,.TSPAC##
IF TOPS-10,<
GETSTS F.FOUT,A ;GET BAD STATUS
PUSHJ P,.TOCTW## ;TYPE IN OCTAL
> ;END TOPS-10
JRST SETER2 ;GO RELEASE CHANNELS AND START OVER
IF TOPS-20,<
MAPWIN: SAVE$ <A,B,C,D> ;SAVE JSYS AC'S
MOVE A,PMAPF ;GET SIZE OF WINDOW
IMULI A,^D5*^D512 ;BYTE COUNT
MOVEM A,WINCNT ;STORE
MOVE A,PMAPPG ;GET PAGE NUMBER
LSH A,9 ;CONVERT TO ADDRESS
HRLI A,(POINT 7,0) ;MAKE INTO BYTE POINTER
MOVEM A,BYTEPT ;SAVE POINTER
HRLZ A,OPNOUT ;GET OUTPUT JFN
HRR A,FILEPG ;FILE PAGE
HRLI B,.FHSLF ;THIS PROCESS
HRR B,PMAPPG ;PAGE NUMBER
MOVE C,PMAPF ;NUMBER OF PAGES
TXO C,PM%CNT!PM%WT ;WRITE ACCESS
PMAP ;MAP THE FILE
MOVE A,PMAPF ;UPDATE FILE PAGE NUMBER
ADDM A,FILEPG ; FOR NEXT HUNK
RSTR$ <D,C,B,A>
POPJ P,0 ;RETURN
> ;END TOPS-20
;+
;<SETRNG IS A ROUTINE TO SET OR UPDATE <L.SUPO, THE FLAG
;WHICH SUPPRESSES OUTPUT BECAUSE OF THE </IRANGE AND </ORANGE
;SWITCHES. ^IT SHOULD BE CALLED EVERY TIME THE OUTPUT
;LINE COUNTER OR PAGE COUNTER IS UPDATED.
;^IF BOTH </IRANGE AND </ORANGE ARE SET, BOTH MUST BE
;SATISFIED TO ALLOW OUTPUT.
;^THIS ROUTINE PRESERVES ALL ACCUMULATORS.
;-
SETRNG: SKIPN SCNNOR ;SEE IF /ORANGE
SKIPE SCNNIR ; OR /IRANGE
SKIPA ;YES--DO ALGORITHM
POPJ P, ;NO--RETURN QUICKLY
SAVE$ <A,B,C> ;SAVE SOME AC'S
SKIPN A,SCNNOR ;SEE IF /ORANGE
JRST SETIRG ;NO--GO CHECK /IRANGE
IMULI A,3 ;TRIPLE
SUBI A,3 ;OFFSET (0,3,...)
SETORL: HRRZ B,SCNORG(A) ;GET START PAGE
CAMG B,PAGENO ;COMPARE TO OUTPUT PAGE
JRST [HLRZ B,SCNORG+2(A) ;OK--GET START CHAPTER
CAMLE B,SECNUM ;COMPARE TO OUTPUT CHAPTER
JRST .+1 ;FAIL--TRY NEXT SET
HLRZ B,SCNORG(A) ;OK--GET START LINE
CAMLE B,LINEC ;COMPARE TO OUTPUT LINE
JRST .+1 ;FAIL--TRY NEXT SET
HRRZ B,SCNORG+1(A) ;OK--GET END PAGE
CAMGE B,PAGENO ;COMPARE TO OUTPUT PAGE
JRST .+1 ;FAIL--TRY NEXT SET
HRRZ B,SCNORG+2(A) ;OK--GET END CHAPTER
CAMGE B,SECNUM ;COMPARE TO OUTPUT CHAPTER
JRST .+1 ;FAIL--TRY NEXT SET
HLRZ B,SCNORG+1(A) ;OK--GET END LINE
CAMGE B,LINEC ;COMPARE TO OUTPUT LINE
JRST .+1 ;FAIL--TRY NEXT SET
JRST SETIRG] ;MATCH--PASS TO /IRANGE TESTS
SUBI A,2 ;FAILED--BACK DOWN INDEX
SOJGE A,SETORL ;LOOP UNTIL ALL /ORANGES TRIED
JRST SETRGN ;NONE IN RANGE, SO SUPPRESS OUTPUT
CONT.
;HERE TO CHECK /IRANGE
SETIRG: SKIPN SCNNIR ;SEE IF /IRANGE
JRST SETRGK ;NO--OK TO OUTPUT
MOVEI C,0 ;PRESET INPUT LINE NUMBER
SKIPN B,INSEQN ;GET SEQUENCE CODE
MOVE B,INSEQL ; USE OLD ONE IF BLANK
SETIRC: MOVEI A,0 ;CLEAR AC
LSHC A,7 ;GET NEXT CHARACTER
SUBI A,"0" ;REMOVE OFFSET
SKIPL A ;IF NEGATIVE,
CAILE A,^D9 ; OR TOO BIG,
TDZA A,A ; MUST BE JUNK
IMULI C,^D10 ;ADVANCE RESULT
ADDI C,(A) ;INCLUDE NEW VALUE
JUMPN B,SETIRC ;LOOP UNTIL ALL DONE
MOVE A,INLINE ;GET PHYSICAL COUNT-1
SKIPN C ;UNLESS SOMETHING HERE,
MOVEI C,1(A) ; GET PHYSICAL COUNT
MOVE A,SCNNIR ;GET COUNT OF /IRANGES
IMULI A,3 ;TRIPLE
SUBI A,3 ;OFFSET (0,3,...)
SETIRL: HRRZ B,SCNIRG(A) ;GET START PAGE
SOS B ;(INPAGE IS ONE LOW)
CAMG B,INPAGE ;COMPARE TO INPUT PAGE
JRST [HLRZ B,SCNIRG(A) ;OK--GET START LINE
CAMLE B,C ;COMPARE TO INPUT LINE
JRST .+1 ;FAIL--TRY NEXT SET
HRRZ B,SCNIRG+1(A) ;OK--GET END PAGE
SOS B ;(INPAGE IS ONE LOW)
CAMGE B,INPAGE ;COMPARE TO INPUT PAGE
JRST .+1 ;FAIL--TRY NEXT SET
HLRZ B,SCNIRG+1(A) ;OK--GET END LINE
CAMGE B,C ;COMPARE TO INPUT LINE
JRST .+1 ;FAIL--TRY NEXT SET
JRST SETRGK] ;MATCH--OK TO OUTPUT
SUBI A,2 ;FAILED--BACK DOWN INDEX
SOJGE A,SETIRL ;LOOP UNTIL ALL /IRANGES TRIED
SETRGN: TLOA F,L.SUPO ;NO MATCHES--SUPPRESS OUTPUT
SETRGK: TLZ F,L.SUPO ;OK--ALLOW OUTPUT
RSTR$ <C,B,A> ;RESTORE AC'S
POPJ P, ;RETURN
;ROUTINE TO GRAB ANOTHER K OF CORE.
EXPAND:
IF TOPS-10,<
SAVE$ <A,B> ;SAVE AN AC
HRRO B,.JBREL ;GET CURRENT CORE
MOVEI A,1(B) ;ANOTHER K
CORE A,
JRST E$$NEC ;CAN'T GET IT.
HRRZ A,.JBREL ;GET NEW CORE SIZE
SUBI A,(B) ;GET GROWTH DISTANCE
ADDM A,FOOTBF ;ADVANCE STARTING ADDRESS
IMULI A,5 ;ADD TO THESE CHARACTER POINTERS
ADDM A,FOOTP1
ADDM A,FOOTP2
ADDM A,FOOTP3
ADDM A,FOOTP4
HRRZ A,.JBREL ;GET NEW END OF REGION
EXPL: POP B,(A) ;REVERSE
CAML A,FOOTBF ; BLT
SOJA A,EXPL ; ENTIRE BUFFER
SKIPGE TTISOT ;SEE IF TTY OUTPUT
JRST EXPNDX ;YES--SUPPRESS INFO MESSAGE
SAVE$ <C,D>
MSG$ KCI,INF,,
HRRZ A,.JBREL ;HOW BIG NOW?
ADDI A,1 ;ROUND UP (ALLOW FOR 0 COUNT)
PUSHJ P,.TCORW## ;TYPE NUMBER OF K
MOVEI A,[ASCIZ / core-index]
/]
PUSHJ P,.TSTRG ;AND TEXT
RSTR$ <D,C>
EXPNDX: RSTR$ <B,A> ; ..
POPJ P, ;AND RETURN
MSG$ NEC,ERR,,Not enough core
PUSHJ P,.TSPAC##
HRRZ A,.JBREL
ADDI A,1 ;ROUND UP (ALLOW FOR 0 COUNT)
PUSHJ P,.TCORW## ;ISSUE IN K OR PAGES
JRST SETER2
> ;END TOPS-10
IF TOPS-20,<
MSG$ NEC,ERR,,ADDRESS SPACE FULL
>
SUBTTL INPUT CHARACTER PROCESSORS
;+.CHAPTER INPUT CHARACTER PROCESSING
;-
;GET INPUT CHARACTER FROM SOURCE FILE HANDLING ESCAPE CHARACTERS
;RETURNS CH=1B17+CHAR (GE 40) IF QUOTED
; TAB, LF, OR CHAR .GE. 40
; 37 IF #, 32 IF UNDERLINE FOLLOWED BY CHAR (EXC. 37,40)
; LF THEN -1 IF EOF
;USES A, CH
GCIN: TRZ F,R.FRCC ;CLEAR CASE FORCING INDICATOR
TLNE F,L.GCIN ;STILL READING FROM BUFFER?
JRST GCIN1 ;YES. GO RE-READ CHARACTER
GCIN3: SKIPL GCSCH ;NO. SAVED A CHARACTER?
JRST GCIN5 ;YES. GO GET IT.
SKIPL ULMCH ;SAVING CHARACTER DUE TO UNDERLINE?
JRST ULMC1 ;YES. GO GET IT.
GCIN5: PUSHJ P,CCIN ;NO. GET CHARACTER FROM FILE.
TRNE F,R.NFLA ;SEE IF .NOFLAGS
JRST GCINL ;YES--SKIP SPECIAL TESTS
CAMN CH,CC.QUO ;QUOTING A CHARACTER?
JRST CWR1 ;YES. GO GET REAL CHARACTER
CAMN CH,CC.UPP ;UPSHIFT CHARACTER?
JRST SHUP1 ;YES. SEE IF SHIFT-LOCK
CAMN CH,CC.LOW ;DOWNSHIFT CHARACTER?
JRST SHDN1 ;YES. SEE IF SHIFT-UNLOCK
CAMN CH,CC.UND ;UNDERLINE REQUEST?
JRST ULCH ;YES. GO PROCESS
CAMN CH,CC.SPA ;QUOTED SPACE?
JRST QTSP1 ;YES.
GCINL: CAIG CH,"Z" ;UPPER CASE LETTER?
CAIGE CH,"A" ;..
JRST GCINR ;NO.
ADD CH,CAS ;YES. ADD ON CURRENT CASE
GCINR: CAIL CH,LCHPVT ;SEE IF CONTROL
CAIL CH,LCHPVT!C.GRPH ; CHARACTER AS TEXT
SKIPA ;NO--MUST BE GRAPHIC
AOS NSPCH ;YES--COUNT IT AS NON-SPACING
PUSHJ P,LINDCP ;GO HANDLE INDEXING AND CAPS
JRST GCIN ;FLAG CHARACTER--START OVER
TLNE F,L.ULMS ;UNDERLINE SHIFT-LOCK ON?
JRST ULMC2 ;YES. GO HANDLE
POPJ P, ;NO. HAVE CHARACTER NOW.
CONT.
;SPECIAL CASES OF INPUT CHARACTER.
QTSP1: MOVEI CH,C.QTS ;QUOTED SPACE (NO UNDERLINING)
JRST GCINR ;RETURN WITHOUT UNDERLINE
ULCH: AOS NSPCH ;COUNT NON-SPACING INPUT
MOVEI CH,C.ULS ;CONVERT TO STORAGE UNDERLINE
POPJ P, ;AND RETURN
GCIN1: PUSHJ P,GGCINP ;GET CHARFROM INPUT BUFFER
TLZA F,L.GCIN ;NONE LEFT.
POPJ P, ;RETURN IT.
JRST GCIN3 ;GO READ FROM FILE, ETC.
;MORE SPECIAL CASES OF GET-CHARACTER ROUTINE
CWR1: TRO F,R.QNIC ;QUOTE NEXT INPUT
PUSHJ P,CCIN ;READ CHARACTER, NO TRANSLATION
TRZ F,R.QNIC ;CLEAR QUOTING
IFEOF$ GCINR ;IF EOF, ALL DONE
CAIN CH,.CHLFD ;SEE IF LINE FEED
JRST GCINR ;YES--RETURN
TXO CH,LCHPVT ;FLAG TO NOT RECOGNIZE
JRST GCINR ;AND RETURN IT, MAYBE UNDERLINED
CONT.
SHUP1: PUSHJ P,CCIN ;READ A CHARACTER
CAMN CH,CC.UND ;UNDERLINE? LOCK ON UNDERLINE?
JRST ULMON ;YES.
CAMN CH,CC.QUO ;SEE IF QUOTE
JRST CWR1 ;YES--GO DO IT
CAMN CH,CC.LOW ;SEE IF LOWER CASE
JRST SHDN1 ;YES--GO DO THAT
CAMN CH,CC.SPA ;SEE IF FIXED SPACE
JRST QTSP1 ;YES--DON'T CAPITALIZE IT
TRO F,R.FRCC ;INDICATE FORCED CASE
CAMN CH,CC.UPP ;DOUBLE UPSHIFT?
JRST SHUP2 ;YES--GO SET LOCK
CAIG CH,"Z"+ULCAS ;SEE IF LOWER CASE
CAIGE CH,"A"+ULCAS ; CHARACTER
SKIPA ;NO--IGNORE REQUEST
SUBI CH,ULCAS ;YES--FORCE TO UPPER CASE
JRST GCINR ;RETURN WITH RESULT
SHUP2: SETZM CAS ;DOUBLE UPSHIFT. CLEAR CASE OFFSET
JRST GCIN3 ;AND GO READ ANOTHER CHARACTER.
SHDN1: PUSHJ P,CCIN ;GET ANOTHER CHARACTER
CAMN CH,CC.UND ;UNLOCK UNDERLINE?
JRST ULMOF ;YES. GO DO SO.
CAMN CH,CC.QUO ;SEE IF QUOTE
JRST CWR1 ;YES--GO DO IT
CAMN CH,CC.UPP ;SEE IF UPPER CASE
JRST SHUP1 ;YES--GO DO THAT
CAMN CH,CC.SPA ;SEE IF FIXED SPACE
JRST QTSP1 ;YES--DON'T LOWER CASE IT
TRO F,R.FRCC ;INDICATE FORCED CASE
CAMN CH,CC.LOW ;SECOND DOWNSHIFT?
JRST SHDN2 ;YES.
CAIG CH,"Z" ;IN RANGE FOR LOWERING?
CAIGE CH,"A" ; ..
SKIPA ;NO.
ADDI CH,ULCAS ;YES. MAKE IT LOWER CASE
JRST GCINR ;RETURN THIS, UNDERLINED IF NEEDED.
SHDN2: MOVEI A,ULCAS ;SET CASE OFFSET TO LC FOR LETTERS
MOVEM A,CAS ; ..
JRST GCIN3 ;AND GO READ ANOTHER CHARACTER
CONT.
ULMON: TLOA F,L.ULMS ;UNDERLINE LOCKED ON
ULMOF: TLZ F,L.ULMS ;UNDERLINE LOCKED OFF
JRST GCIN3 ;GO READ ANOTHER CHARACTER
ULMC2: ;HERE WHEN RETURNING A CHAR, BUT UNDERLINE LOCKED ON.
IFEOF$ CPOPJ ;IF EOF, RETURN
CAIG CH,C.GRPH ;SEE IF FLAG OR SPACE
POPJ P, ;YES--RETURN
CAIL CH,LCHPVT ;SEE IF QUOTED
CAIL CH,LCHPVT!C.GRPH ; CONTROL CHARACTER AND NOT SPACE [174]
SKIPA ;NO--NEED TO UNDERLINE
POPJ P, ;YES--DON'T UNDERLINE IT
MOVEM CH,ULMCH ;THIS MAY BE UNDERLINED. SAVE IT FOR LATER
JRST ULCH ;AND PUT OUT UNDERLINE (BUFFER OR FILE)
ULMC1: MOVE CH,ULMCH ;RESTORE SAVED CHARACTER
SETOM ULMCH ;NEGATIVE TO INDICATE NOT THERE.
POPJ P, ;RETURN WITH THIS SAVED CHARACTER
;ROUTINE TO HANDLE INDEXING AND CAPITALIZING OF TEXT WORDS
;+
;^THE ROUTINE "<LINDCP" SCANS THE INCOMING TEXT FOR WORDS
;PRECEEDED BY THE CAPITALIZE AND INDEX FLAG CHARACTERS. ^IF
;IT FINDS SUCH A FLAG, IT SETS A FLAG IN ^F AND THEN
;CAPITALIZES AND/OR INDEXES THE FOLLOWING WORD AS THE
;USER REQUESTED. ^FOR THIS PURPOSE, A WORD IS DEFINED AS
;A STRING OF CONSECUTIVE CHARACTERS EXCLUDING ANY
;SPACES OR END OF LINE.
;-
LINDCL: SETOM AUTIDX ;INDICATE AUTO INDEX
STORE A,ICBUF,ICBFE,0 ;START OF WORD--CLEAR INDEX
MOVNI A,LN$IDX*5-1 ;PRESET COUNT
MOVEM A,ICBUFC ; ..
MOVE A,[POINT 7,ICBUF]
MOVEM A,ICBUFP ;PRESET POINTER
POPJ P, ;RETURN TO GET A REAL CHARACTER
LINDCP: CAIN CH,.CHLFD ;SEE IF NEW LINE
PUSHJ P,LINDFN ;YES--FORCE NORMAL CASE RULES
TRNE F,R.NFLA ;SEE IF .NO FLAGS
PJRST @LINDCX ;RIGHT--NO SPECIALS
CAMN CH,CC.IND ;SEE IF INDEX FLAG
JRST [TLCE F,L.INDX ;YES--SET FLAG
POPJ P, ; IF ALREADY ON, RETURN
JRST LINDCL] ;AND GO INITIALIZE INDEX
CAMN CH,CC.CAP ;SEE IF CAPS FLAG
JRST [TLC F,L.CAPS ;YES--SET FLAG
POPJ P,] ;AND RETURN
TLNN F,L.INDX!L.CAPS ;SEE IF ANY FLAGS SET
SKIPE AUTIDX ; OR WAS INDEXING
SKIPA ;YES--PROCEED
PJRST @LINDCX ;NO--RETURN TO CALLER
PUSHJ P,LINDCS ;SEE IF SPACE OR END OF WORD
JRST LINDCW ;NO--GO HANDLE CONTENTS OF WORD
LINDCE:
TLZ F,L.CAPS!L.INDX ;END OF WORD--CLEAR FLAGS
SKIPN AUTIDX ;SEE IF AUTO INDEX
PJRST @LINDCX ;NO--JUST RETURN
SETZM AUTIDX ;YES--CLEAR FLAG
SKIPN ICBUF ;SEE IF SOMETHING ACCUMULATED
PJRST @LINDCX ;NO--RETURN
CONT.
;HERE AT END OF WORD IF IT WAS INDEXED
SAVE$ S1 ;SAVE STRING POINTER
MOVE S1,ICBUFP ;GET POINTER
PUSHJ P,DOINDX ;GO DO THE INDEXING
RSTR$ S1 ;RESTORE POINTER
PJRST @LINDCX ;RETURN
;HERE WITH CHARACTER IN A WORD
LINDCW: PUSHJ P,@LINDCX ;GO HANDLE FORCED CASE IF ANY
JFCL ;IGNORE NON-SKIP
TLNE F,L.CAPS ;SEE IF CAPITALIZING
TRNE F,R.FRCC ; AND USER HAS NOT FORCED IT
JRST LINDCI ;WRONG--PROCEED
CAIL CH,"A"+ULCAS ;YES--SEE IF
CAILE CH,"Z"+ULCAS ; LOWER CASE
SKIPA ;NO--PROCEED
SUBI CH,ULCAS ;YES--FORCE UPPER
LINDCI: TLNN F,L.INDX ;SEE IF INDEXING
JRST CPOPJ1 ;RETURN IF NOT
MOVE A,CH ;COPY CHARACTER
TLNN F,L.CAPS ;SEE IF CAPITALIZING
TRNE F,R.FRCC ;OR SEE IF USER FORCED THE CASE
JRST LINDCC ;YES--DON'T DEFAULT IT
SKIPN ICBUF ;SEE IF FIRST
JRST [CAIL A,"A"+ULCAS ;SEE IF
CAILE A,"Z"+ULCAS ; LOWER CASE
JRST LINDCC ;NO--PROCEED
SUBI A,ULCAS ;YES--FORCE UPPER
JRST LINDCC]
CAIL A,"A" ;LATER WORD
CAILE A,"Z" ; --SEE IF UPPER CASE
SKIPA ;NO--LEAVE ALONE
ADDI A,ULCAS ;YES--FORCE LOWER
LINDCC: AOSL ICBUFC ;COUNT DOWN BUFFER
JRST CPOPJ1 ;RETURN IF OVERFLOW
IDPB A,ICBUFP ;STORE TEXT
JRST CPOPJ1 ;RETURN
;+
;^THE ROUTINES <LINDFL, <LINDFO, AND <LINDFN PRESET
;<LINDCW TO FORCE CAPITALIZATION FOR ALL LETTERS IN THE LINE,
;FOR ONE LETTER PER WORD ON THIS LINE, OR NONE. ^EACH
;STORES EITHER <CPOPJ1, <LINDCT OR <LINDCU IN THE LOCATION
;<LINDCX. <LINDFO ALSO SETS THE SIGN BIT TO FLAG
;THE NEED TO CHANGE BETWEEN <LINDCT AND <LINDCU AROUND THE
;FIRST CHARACTER OF EACH WORD. ^THESE CONDITIONS ARE AUTOMATICALLY
;CLEARED AT THE END OF EACH LINE OF INPUT.
;-
LINDFN: MOVEI A,CPOPJ1 ;SET AS NO-OP
MOVEM A,LINDCX
POPJ P,
LINDFL: MOVEI A,LINDCU ;SET TO FORCE UPPER
MOVEM A,LINDCX
POPJ P,
LINDFO: MOVEI A,LINDCU ;SET TO FORCE UPPER ONCE/WORD
TLO A,(1B0) ;INDICATE ONCE/WORD
MOVEM A,LINDCX
POPJ P,
;+
;<LINDCU WILL FORCE A LOWER CASE INPUT CHARACTER TO
;UPPER CASE UNLESS THE USER CONTROLLED THE CASE ON THIS
;CHARACTER EXPLICITLY.
;-
LINDCU: TRNE F,R.FRCC ;SEE IF USER FORCED CASE
JRST LINDCV ;YES--GO EXIT
CAIL CH,"A"+ULCAS ;NO--SEE IF LOWER CASE
CAILE CH,"Z"+ULCAS ; ..
SKIPA ;NOT LOWER--LEAVE ALONE
SUBI CH,ULCAS ;LOWER--FORCE TO UPPER
LINDCV: MOVEI A,LINDCT ;PREPARE TO IGNORE REST OF WORD
SKIPGE LINDCX ;SEE IF ONCE/WORD MODE
HRRM A,LINDCX ;YES--IGNORE REST OF WORD
LINDCT: PUSHJ P,LINDCS ;SEE IF SPACE OR END OF WORD
JRST CPOPJ1 ;NO--JUST RETURN
MOVEI A,LINDCU ;PREPARE TO RESTORE FORCED UPPER
SKIPGE LINDCX ;SEE IF CAPITALIZE ONCE/WORD MODE
HRRM A,LINDCX ;YES--FORCE NEXT UPPER
JRST CPOPJ1 ;SKIP RETURN
;+
;<LINDCS CHECKS TO SEE IF THE CURRENT CHARACTER IS THE END OF
;A WORD. ^IT TESTS AGAINST END OF LINE, AND VARIOUS
;FORMS OF SPACE AND TAB.
;-
LINDCS: CAIE CH,C.QTS ;SEE IF QUOTED SPACE
CAIN CH,C.SPC ;SEE IF SPACE
JRST CPOPJ1 ;YES--END OF WORD
CAIE CH,.CHTAB ;SEE IF TAB
CAIN CH,C.QS ;SEE IF QUOTED SPACE
JRST CPOPJ1 ;YES--END OF WORD
CAIE CH,C.NXS ;SEE IF NON-EXPANDING SPACE
CAIN CH,.CHLFD ;SEE IF END OF LINE
JRST CPOPJ1 ;YES--END OF WORD
IFEOF$ CPOPJ1 ;AT EOF, END OF WORD
POPJ P, ;NOT END OF WORD
;ROUTINE TO READ INPUT FROM FILE OR FOOTNOTE AS APPROPRIATE
;RETURNS CH=TAB, LF, OR CHAR .GE. 40
; LF THEN -1 IF EOF
;USES A, CH
CCIN: SKIPL CH,GCSCH ;ANY CHARACTER SAVED FROM EARLIER PASS?
JRST [SETOM GCSCH ;FLAG NO MORE SAVED CHAR
POPJ P,] ;STORE IN BUFFER AND RETURN
TLNN F,L.FOOT ;CHARACTERS COMING FROM FOOTNOTE?
PJRST CCINF ;NO. READ FROM FILE
MOVEI PA,FOOTP3 ;GET CHARACTER FROM FOOTNOTE STRING
PUSHJ P,GCI ;GET THE CHARACTER
SKIPA ;NONE THERE. THIS IS AN ERROR.
PJRST SAVCMN ;STORE IN BUFFER AND RETURN
MOVEI CH,.CHLFD ;STASH AN END OF LINE
MOVEM CH,GCSCH ;IN THE NEXT CHAR SAVE
MOVE CH,CC.END ;AND RETURN AN END OF FOOTNOTE
PJRST SAVCMN ;STORE IN BUFFER AND RETURN
;HERE TO READ FROM FILE--SKIPING ANY UN-SELECTED CHARS.
CCINF: TRNN F,R.SLCT ;SEE IF .SELECT MODE
PJRST FIN ;NO--STRAIGHT FILE READING
SKIPE ESLCTF ;YES--MAKE SURE NOT IN .END SELECT [230]
JRST CCINE ;NO--GO HANDLE .END SELECT [230]
TRZN F,R.SLLK ;SEE IF LOOKING FOR SELECTION
JRST CCING ;NO--CONTINUE WITH THIS LINE
;LOOP HERE WHEN SKIPING CHARACTERS
CCINLK: PUSHJ P,FIN ;YES--GET CHAR
IFEOF$ CPOPJ ;DONE IF EOF
CCINLL: CAME CH,SELPFX ;SEE IF .SELECT PREFIX
JRST CCINLK ;NO--LOOP ONWARDS
PUSHJ P,FIN ;YES--GET NEXT CHAR
IFEOF$ CPOPJ ;DONE IF EOF
CAMN CH,SELSNG ;SEE IF SINGLE LINE PREFIX
JRST CCING ;YES--GO GET THAT LINE
TRNE F,R.SLRG ;NO--ARE WE IN +- RANGE
JRST CCINRG ;YES--GO HANDLE THAT
CAME CH,SELSTR ;NO--SEE IF START OF +- RANGE
JRST CCINLL ;NO--LOOP AGAIN FOR SELECT PREFIX
TRO F,R.SLRG ;YES--SET RANGE
JRST CCING ; AND GO GIVE THIS LINE
;HERE WHEN IN +- SELECT RANGE AND SELECTION PREFIX SEEN
CCINRG: CAME CH,SELSTP ;SEE IF STOP FLAG
JRST CCINGX ;NO--RETURN THIS LINE
TRZ F,R.SLRG ;YES--CLEAR FLAG AND RETURN THIS LINE
JRST CCING ;GET NEXT CHARACTER
CONT.
;HERE WHEN AT START OF LINE UNDER .END SELECT
CCINE: SAVE$ PA ;MAKE A POINTER AC
CCINE1: MOVEI PA,SLIN ;POINT TO TEMP BUFFER
PUSHJ P,GCI ;GET NEXT CHARACTER
JRST CCINE2 ;NONE IN STRING, SO LOOK AT FILE
RSTR$ PA ;SOMETHING SAVED, RETURN IT
POPJ P, ; TO CALLER
CCINE2: PUSHJ P,RCI ;REWIND TEMP STRING
CCINE3: PUSHJ P,CCFIN ;READ, STORING COPY IN BUFFER
JRST CCINE1 ;DONE--GIVE TO CALLER
CCINE4: CAME CH,SELPFX ;IF NOT SELECT PREFIX,
JRST CCINE3 ; LOOP ACROSS LINE
PUSHJ P,CCFIN ;PREFIX--GET NEXT CHARACTER
JRST CCINE1 ;DONE--GIVE TO CALLER
CAME CH,SELSNG ;IF NOT SELECT SINGLE FLAG,
JRST CCINE4 ; LOOP ACCROSS LINE
SETZM ESLCTF ;MATCH--CLEAR .END SELECT
TRZ F,R.SLLK ;INDICATE SELECT MATCH FOUND
RSTR$ PA ;RESTORE CALLER'S AC
JRST CCING ;AND RETURN NEXT CHARACTER
;HERE WHEN RETURNING SELECTED LINE
CCING: PUSHJ P,FIN ;GET NEXT CHAR
CCINGX: CAIN CH,.CHLFD ;SEE IF END OF LINE
TRO F,R.SLLK ;YES--NOTE NEED TO SEARCH FOR PREFIX
POPJ P, ;RETURN TO CALLER
;ROUTINE TO READ FROM FILE AND STORE IN STRING BUFFER
;NON-SKIP ON END OF LINE OR BUFFER FULL
CCFIN: MOVE A,SLIN+1 ;GET NEXT STORE
AOS A ;ALLOW FOR QUOTING
CAML A,SLIN+3 ;SEE IF ROOM FOR ONE
POPJ P, ;NO ROOM--FAIL
PUSHJ P,FIN ;ROOM--GET NEXT CHARACTER
PUSHJ P,SCI ;STORE AWAY
CAIN CH,.CHLFD ;SEE IF END OF LINE
POPJ P, ;YES--FAIL
JRST CPOPJ1 ;NO--GIVE OK RETURN
;ROUTINE TO READ FROM INPUT FILE
;RETURNS CH=LF, TAB, OR CHAR .GE. 40; LF THEN -1 ON EOF
;IF /CONTROL, OR QUOTING, ALLOWS CONTROL CHARACTERS
;IF BOTH, LET NULL, CR, VTAB, HTAB, FFEED, ^Z, RUBOUT ALSO
;NEVER QUOTES LINE FEED
;USES A, CH
FINSEQ: TRON F,R.FSEQ ;REMEMBER TO DISCARD CHAR AFTER SEQ NO
SKIPA CH,[POINT 7,INSEQN]
MOVE CH,INSEQP ;GET POINTER TO SEQUENCE NUMBER
TLNE CH,(76B5) ;SEE IF NOT OVERFLOWED
IDPB A,CH ;OK--STORE
MOVEM CH,INSEQP ;RESTORE UPDATED POINTER
FINL: TRZ F,R.LCWV ;INDICATE NOT VERT MOTION LAST
FIN: PUSHJ P,.NXDTW## ;GET NEXT BYTE FROM FILE
JRST FINEOF ;ALL DONE
MOVE CH,@B.DC##+1 ;CHECK FOR SEQ NO.
TRNE CH,1 ; ..
JRST FINSEQ ;YES. DISCARD.
MOVE CH,A ;GET BYTE
TRZE F,R.FSEQ ;IS THIS TAB AFTER SEQ NO?
JRST FIN ;YES--DISCARD IT
TRC F,R.QNIC!R.ALCC ;SEE IF BOTH /CON AND QUOTE
TRCN F,R.QNIC!R.ALCC ; ..
JRST FIN0 ;YES--SUPPRESS SPECIAL TESTS
CAIN CH,.CHDEL ;OR RUBOUTS
JRST FIN ;GET ANOTHER
JUMPE CH,FIN ;JUNK NULLS
CAIL CH,C.GRPH ;FILTER ILLEGAL CONTROLS
JRST SAVCMN ;RETURN CHARACTER
CAIE CH,.CHCRT ;CARRIAGE RETURN
CAIN CH,.CHCNZ ; OR ^Z
JRST FINL ;YES--IGNORE THEM
FIN0: MOVE A,CH ;MAKE COPY OF VALUE
CAIE CH,.CHFFD ;SEE IF NEW PAGE
JRST FIN1 ;NO--PROCEED
SETOM INLINE ;YES--CLEAR LINE COUNTER
AOS INPAGE ;INCREMENT PAGE COUNTER
FIN1: CAIE CH,.CHVTB ;VERT TAB
CAIN CH,.CHFFD ; OR FORM FEED
MOVEI CH,.CHLFD ;YES--CHANGE TO LINE FEED
CAIE CH,.CHLFD ;SEE IF NEW LINE
JRST FIN2 ;NO--PROCEED
AOS INLINE ;YES--COUNT LINE
MOVE A,INSEQN ;COPY LAST LINES'S SEQUENCE
MOVEM A,INSEQL ; FOR ERROR MESSAGES
SETZM INSEQN ;CLEAR SEQUENCE NUMBER
TROE F,R.LCWV ;SET VERT MOTION
JRST FIN ;IF SECOND ONE, DISCARD IT
CONT.
FIN2: TRC F,R.QNIC!R.ALCC ;SEE IF BOTH /CON AND QUOTE
TRCN F,R.QNIC!R.ALCC ; ..
SKIPA CH,A ;YES--RESTORE REAL VALUE
CAIE CH,.CHTAB ;TAB
CAIN CH,.CHLFD ; LINE FEED?
JRST SAVCMN
CAIN CH,C.SPC ;IF SPACE,
JRST SAVCMN ; DON'T QUOTE IT
TRNN F,R.QNIC!R.ALCC ;SEE IF /CONT OR QUOTING
JRST E$$IIF ;NO--ERROR
TXO CH,LCHPVT ;YES--QUOTE IT
JRST SAVCMN ;GO FINISH UP
MSG$ IIF,WRN,,<">
MOVE A,CH ;GET THE BADDIE BACK
PUSHJ P,.TFCHR##
MOVEI A,[ASCIZ \" ignored in input file\]
PUSHJ P,.TSTRG
PUSHJ P,ONPAG ;TELL WHERE WE ARE
JRST FINL ;GET ANOTHER CHARACTER
FINEF1: MOVE CH,EOFPTR ;INITIAL EOF POINTER
MOVEM CH,INEOFP
FINEOF: ILDB CH,INEOFP ;GET LITERAL CHARACTER
JUMPE CH,FINEF1 ;IF NONE, RESTART LITERAL
SAVCMN: CAIE CH,.CHLFD ;SEE IF VERT MOTION
TRZ F,R.LCWV ;NO--CLEAR INDICATOR
TRNN F,R.CCOM ;SEE IF COMMAND
POPJ P, ;NO--JUST RETURN
SAVE$ <PA,B> ;PRESERVE POINTER [170]
MOVEI PA,CMEBFP ;POINT TO COMMAND ERROR BUFFER
PUSHJ P,SCI ;DO SAFE STORE
RSTR$ <B,PA> ;RESTORE POINTER [170]
POPJ P, ;RETURN CHARACTER
EOFPTR: POINT 36,EOFDAT
EOFDAT: EXP .CHLFD,.CHLFD,.CHLFD,-1,-1,0
SUBTTL ERROR MESSAGE HANDLING
;+.CHAPTER ERROR MESSAGE HANDLING
;.HL1 ERROR MESSAGE ROUTINES
;-
;+
;^ROUTINE <ERRMSG (AND <WRNMSG AND <INFMES) ARE RESPONSIBLE
;FOR ISSUING ERROR (AND WARNING AND INFORMATIVE)
;MESSAGES COMPLETE WITH THE <RUNOFF MESSAGE PREFIX.
;^THEY ARE INVOKED BY THE <MSG$ MACRO AND
;CLOBBER ACCUMULATORS ^A-^D.
;^THEY ISSUE A ? (OR % OR [), THEN <RNF FOLLOWED
;BY THE THREE LETTER CODE IN LH(^A). ^THEN THEY SPACE OVER
;AND ISSUE THE MESSAGE TEXT POINTED TO FROM THE RH(^A).
;^IF NECESSARY, THE FILE WILL BE IDENTIFIED AND IF
;OUTPUT IS TO THE <TTY:, ITS BUFFER WILL BE FLUSHED.
;-
ERRMSG: MOVSI B,"?" ;GET PREFIX
JRST XXXMSG ;GO TO COMMON HANDLER
WRNMSG: MOVSI B,"%" ;GET PREFIX
JRST XXXMSG ;GO TO COMMON HANDLER
INFMES: MOVSI B,"[" ;GET PREFIX
XXXMSG:
IF TOPS-10,<
SKIPE TTISOT ;SEE IF TTY IS OUTPUT
JRST [OUTPUT F.FOUT, ;YES--FORCE OUT
JRST XXXMSC]
> ;END TOPS-10
SKIPE ISDFLN ;NO--SEE IF ISSUED FILE NAME
JRST XXXMSC ;YES--PROCEED
PUSHJ P,ISUFLN ;NO--DO SO
PUSHJ P,.TCRLF## ;END LINE
SETOM ISDFLN ;AND INDICATE THAT WE DID
XXXMSC: HRR B,A ;COPY THE TEXT TO B
HLRZS A ;POSITION THE 3-LETTER CODE
HRLI A,'RNF' ;ADD RUNOFF PREFIX
HRRZ C,(P) ;GET LOCATION
PJRST .ERMSA## ;ISSUE MESSAGE PREFIX, ETC.
;ROUTINE TO FORCE TO START OF TTY LINE
.TNEWL::SKIPE TTISOT ;SEE IF TTY IS OUTPUT
PUSHJ P,.TCRLF ;YES--ISSUE <CRLF>
POPJ P, ;RETURN
;+
;<ISUFLN IS A ROUTINE TO ISSUE THE NAME OF THE INPUT
;FILE. ^THIS IS CALLED ON EACH ERROR MESSAGE AND AT THE
;END OF FILE. ^IT PREFIXES THE MESSAGE WITH
;THE WORD "<RUNOFF:" IF IN <CCL MODE.
;-
ISUFLN: PUSHJ P,.PSH4T## ;SAVE TEMPS
MOVEI A,[ASCIZ /RUNOFF: /]
SKIPE CCLF1 ;SEE IF CCL CALL
PUSHJ P,.TSTRG## ;YES--NAME PROGRAM
IF TOPS-10,<
MOVE A,LKPBLK+.RBNAM ;GET INPUT FILE NAME
PUSHJ P,.TSIXN## ;TYPE IT
> ;END TOPS-10
IF TOPS-20,<
HRRZ B,OPNBLK ;GET INPUT JFN
JUMPE B,ISUFLX ;PUNT IF NO JFN HANDY
HRROI A,.STEMP## ;TEMP BUFFER
MOVSI C,(1B8) ;JUST FILE NAME
JFNS
MOVEI A,.STEMP## ;POINT TO ANSWER
PUSHJ P,.TSTRG## ;PRINT IT OUT
>
ISUFLX: PUSHJ P,.POP4T## ;RESTORE TEMPS
POPJ P, ;RETURN
IF TOPS-20,<
;BLOCK FOR GTJFN
GTJFNB: EXP 1B2+1B11+1B13
XWD 377777,377777
EXP 0
EXP 0
EXP 0
XWD -1,DFIEXT
EXP 0
EXP 0
EXP 0
> ;END TOPS-20
;+
;.HL1 ERROR MESSAGES AND DESCRIPTIONS
;
;.AUTOTABLE.LM5.P-5,1,7.TS.UPPER CASE.NOFLAGS
COMMENT \
;.NOSELECT
.P; ?RNFCJL CAN'T JUSTIFY LINE
.SK1; The string of input between spaces (and end of line)
is greater than the separation between left and
right margins and therefore does not fit in the
output even before any attempt to expand spaces.
.P; ?RNFDVN DUPLICATE VARIABLE NAME: ".command"
.SK1; This variable command is attempting to declare a
variable which has already been declared. This
declaration will be ignored.
.P; ?RNFEFD END FOOTNOTE DOESN'T FOLLOW FOOTNOTE: ".command"
.SK1; This end footnote command appears at a place in the
file which is not immediately following a footnote
command and the corresponding footnote data.
.P; ?RNFELD END LITERAL DOESN'T FOLLOW LITERAL: ".command"
.SK1; This end literal command appears at a place in the
file which is not immediately following a literal
command and the corresponding literal text. It
probably reflects that the count on the literal
command is incorrect.
.P; ?RNFEVL EXCEEDING VARIABLE LIST: ".command"
.SK1; Only a maximum of 20 variables can be declared.
This command is attempting to declare the 21-st
variable. This and all further variable
declarations will be ignored, although the message
will not be repeated.
.P; ?RNFFIF FOOTNOTE INSIDE FOOTNOTE: ".command"
.SK1; This command is attempting to start a footnote
definition only it occurs within a footnote
definition, which is illegal. It probably indicates
that the previous footnote definition was never
terminated.
.P; ?RNFIBO INPUT BUFFER OVERFLOW
.SK1; A string of characters has been input which is so
long between spaces (or the right margin is so
large) that it has overflowed the internal line
buffer storage area.
.P; ?RNFIFT ILLEGAL IN FOOTNOTE: ".command"
.SK1; This command is illegal within a footnote.
.P; %RNFIIF ^x IGNORED IN INPUT FILE
.SK1; Control characters are not normally allowed in the
input file. This character was input and is being
ignored. If it should be input, then declare
".CONTROL CHARACTERS" in order to make it legal.
.P; ?RNFILC ILLEGAL COMMAND: ".command"
.SK1; This command is illegal for some reason. Most
reasons are that a key word was not recognized or
that an argument was out of range.
.P; %RNFJEC JUNK AT END OF COMMAND: ".command"
.SK1; The command, after all its arguments, still has some
other characters which are not blanks or comments.
.P; [RNFKCF nK CORE - FOOTNOTE]
.SK1; Core was expanded because of growth in the footnote
storage area. If this repeats indefinitely it
probably indicates that the footnote was improperly
terminated.
.P; [RNFKCI nK CORE - INDEX]
.SK1; Core was expanded because of growth in the index
storage area. In a well indexed document this
message should be output occasionally as processing
progresses.
.P; ?RNFLDE LITERAL DOESN'T END WITH .END LITERAL: ".command"
.SK1; After a counted literal, the next line is not an end
literal command. This probably indicates that the
count is wrong.
.P; ?RNFNEC NOT ENOUGH CORE nK
.SK1; Core has been expanded to the limit of what the
monitor is allowed to assign to this job. The
processing is aborted at this point.
.P; ?RNFNFS NO FILE SPECIFIED
.SK1; The user has specified some switches or an output
file, but has not specified an input file.
.P; %RNFNIA NEGATIVE INDENT ATTEMPTED
.SK1; The sum of the indent and the left margin is less
than zero, meaning that the line should start to the
left of the left edge of the paper. Either the left
margin has been misset or the indent is wrong. The
indent might be implicit in a paragraph or table
request. This message is output only once until the
next left margin or SD command.
.P; %RNFNIC ANOTHER n NEGATIVE INDENTS COUNTED
.SK1; This message indicates how many additional negative
indents were discovered since the last NIA message.
.P; ?RNFNID NO INPUT DEVICE
.SK1; The user has failed to specify either an input
device or file.
.P; ?RNFODE OUTPUT ERROR xxxxxx
.SK1; The output file has an I/O error whose octal code is
included in the message.
.P; %RNFSPO SUBPAGE OVERFLOW
.SK1; While incrementing the subpage counter, it got
larger than 26. This probably indicates that the
end subpage command is missing.
.P; %RNFTFE TOO FEW END COMMANDS
.SK1; When the end of the input was reached there were not
the same number of end (or end list or end note)
commands as there had been list and note commands.
This probably indicates that an end command is
missing.
.P; ?RNFTMI INSUFFICIENT CORE FOR COMMAND
.SK1; The user has specified so many input file
specifications that RUNOFF could not fit them into
core. The command should be split into several
commands.
.P; ?RNFTMR TOO MANY RANGES
.SK1; The user has specified too many IRANGE or ORANGE
pairs to fit in the storage space assigned (20 pairs
each). Fewer ranges should be specified.
.P; ?RNFTMV TOO MANY /VARIANTS
.SK1; The user has specified too many VARIANTS in the
command. Only 20 variants can be specified in one
command.
.P; %RNFTNN TOO MANY NESTED NOTES
.SK1; More than 6 nested notes and lists has occured.
This probably indicates that one or more end
commands is missing.
.P; ?RNFUKV UNKNOWN VARIABLE: ".command"
.SK1; On an if, ifnot, else, or endif command a variable
was referenced which was not declared in a variable
command. This usually indicates a spelling error or
a missing variable command.
.P; %RNFUME UNMATCHED END COMMAND
.SK1; More end commands have occured than list or note
commands.
.P; ?RNFVVZ /VARIANT VALUE ZERO
.SK1; In a VARIANT switch, the value was null or zero.
Variants always have names.
.SELECT
\ ;END OF COMMENT
;+
;.DO INDEX
;-
END RUNOFF ;&.SKIP 2;[End of RUNOFF.PLM]