.TITLE	RNORSX
	.IDENT /M03X/

; RUNOFF I/O DATA BASE
;
; AUTHOR: E. POLLACK U. OF W. 19-DEC-73
;
; MODIFIED BY
;
;	D. N. CUTLER 27-JUL-75
;
;	C. H. SPALDING, UNIMATION, APR. '82
;
; MODIFICATIONS
;
;	SIG01 - INCREASE FSR
;	SIG02 - INCORPORATE RSTS CHANGES
;	CHS03 - MAKE CHAPTER-HEADER SPACING AVAILABLE AS SWITCH
;	CHS04 - ADD ALTERNATING-HEADER SWITCH
;	CHS39 - ADD "LAYOUT" COMMAND
;	CHS40 - EXPAND "HEADER" COMMAND
;	CHS45 - ADD OPTIONAL-TEXT COMMAND-LINE SWITCHES
;	CHS49 - ALLOW MULTIPLE INPUT FILES & APPENDING TO OUTPUT
;	CHS59 - ADD SWITCH TO LIMIT CHAPTERS OUTPUT
;
; MACRO LIBRARY CALLS
 
	.MCALL	GCMLB$,FDBDF$,FDAT$A,FDOP$A,FDRC$A,NMBLK$,FSRSZ$
	.MCALL	CSI$SW,CSI$ND,CSI$SV
 
; LOGICAL UNIT ASSIGNMENTS
;
;	LUN	FOR
;
;	1	COMMAND INPUT
;	2	??
;	3	TERMINAL I/O (ERROR MESSAGES, WAIT REQUEST)
;	4	DATA INPUT
;	5	DATA OUTPUT
;

	FSRSZ$	4,<512.*4+80.>						;SIG01-2
TTBLK::	FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDOP$A	3,,TTFIL	;LUN=3
	FDRC$A	,TTBUF,TTLIN
TTFIL:	NMBLK$	CMO,CMD
TTIBLK::GCMLB$	2,RNO,TTIBUF	;LUN=1
TTLDMY::FDBDF$
	FDAT$A	R.VAR
	FDOP$A	4,,TTLFIL	;LUN=4
TTLFIL:	NMBLK$	RUNOFF,RNO,,SY,0
LSTBLK::FDBDF$
	.IF	DF	RSTS						;SIG02
	FDAT$A	R.STRM							;SIG02
	.IFF								;SIG02
	FDAT$A	R.VAR							;SIG02
	.ENDC								;SIG02
	FDOP$A	5,,LSTFIL	;LUN=5					;SIG02
LSTFIL:	NMBLK$	RUNOFF,DOC,,SY,0
 
	.PSECT	SWTCH,GBL
SWTBL::	CSI$SW	SP,SPLSW,$SWTCH,SET,NEG	;SPOOLING SWITCH
	CSI$SW	UC,UPCSW,$SWTCH,SET,NEG	;FORCE UPPER CASE
	CSI$SW	HY,HYPSW,$SWTCH,SET,NEG	;HYPHENATION SWITCH
	CSI$SW	UL,,,,,ULCVAL		;UNDERLINE CONTROL
	CSI$SW	FF,FFDSW,$SWTCH,SET,NEG,FFVAL ;KICK PAGES WITH FORMFEEDS
	CSI$SW	WA,PAUSW,$SWTCH,SET,NEG	;WAIT BETWEEN PAGES
	CSI$SW	PA,,,,,PAGVAL		;LOWER/UPPER LIMIT TO PAGES
   .IF NZ SAVPS								;CHS49B
	CSI$SW	PS,PSZSW,$SWTCH,SET,,PSVAL ;PAGE SIZE			;CHS49B
   .IFF									;CHS49B
	CSI$SW	PS,,,,,PSVAL		;PAGE SIZE
   .ENDC ; -NZ SAVPS							;CHS49B
   .IIF NZ ALTHDR, CSI$SW AL,ALHSW,$SWTCH,SET,NEG ;"ALTERNATE" ENABLE	;CHS04
   .IIF NZ BLSW, CSI$SW BL,,,,,CHDVAL	;CHAPTER HEADER BLANK LINES	;CHS03
   .IF NZ LAYSW								;CHS39A
	CSI$SW	DO,DWNSW,$SWTCH,SET,,DOVAL ;TOP MARGIN			;CHS39A
	CSI$SW	LO,LNGSW,$SWTCH,SET,,LOVAL ;PAGE LENGTH			;CHS39A
	CSI$SW	LE,LFTSW,$SWTCH,SET,,LEVAL ;BASE LEFT MARGIN		;CHS39A
	CSI$SW	WI,WIDSW,$SWTCH,SET,,WIVAL ;PERMANENT RIGHT MARGIN	;CHS39A
   .ENDC ; NZ LAYSW							;CHS39A
   .IIF NZ XHDRSW, CSI$SW HL,HLNSW,$SWTCH,SET,,HLVAL ;HEADER LENGTH	;CHS40A
   .IF NZ OPTXSW							;CHS45
	CSI$SW	IN,OPTSW,$SWTCH,SET,,INVAL ;"INCLUDE" SELECTIONS	;CHS45
	CSI$SW	EX,OPTSW,$SWTCH,SET,,EXVAL ;"EXCLUDE" SELECTIONS	;CHS45
   .ENDC ; NZ OPTXSW							;CHS45
   .IIF NZ APNDSW, CSI$SW AP,APNSW,$SWTCH,SET,NEG ;APPEND TO OUTPUT	;CHS49A
   .IIF NZ CHSW, CSI$SW CH,,,,,CHPVAL ;LOWER/UPPER LIMIT TO CHAPTERS	;CHS59
	CSI$ND

PAGVAL:	CSI$SV	DECIMAL,LOWPAG,2
	CSI$SV	DECIMAL,HGHPAG,2
	CSI$ND
ULCVAL:	CSI$SV	ASCII,ULSWT,2
	CSI$ND
FFVAL:	CSI$SV	DECIMAL,LPPG,2		;HARDWARE FORM SIZE
	CSI$ND
PSVAL:	CSI$SV	DECIMAL,PNLPG,2		;PAGE SIZE
	CSI$SV	DECIMAL,PRMRG,2		;RIGHT MARGIN
	CSI$ND
   .IF NZ BLSW				;PERMIT SWITCH FOR		;CHS03
CHDVAL:	CSI$SV	DECIMAL,CHPSKP,2	;CHAPTER HEADER BLANK LINES	;CHS03
	CSI$ND								;CHS03
   .ENDC ; NZ BLSW							;CHS03
   .IF NZ CHSW								;CHS59
CHPVAL:	CSI$SV	DECIMAL,LOCHAP,2					;CHS59
	CSI$SV	DECIMAL,HICHAP,2					;CHS59
	CSI$ND								;CHS59
   .ENDC ; NZ CHSW							;CHS59

   .IF NZ LAYSW								;CHS39A
DOVAL:	CSI$SV	DECIMAL,TOPMRG,2	;TOP MARGIN			;CHS39A
	CSI$ND								;CHS39A
LOVAL:	CSI$SV	DECIMAL,PNLPG,2		;PAGE LENGTH			;CHS39A
	CSI$ND								;CHS39A
LEVAL:	CSI$SV	DECIMAL,BASMRG,2	;BASE LEFT MARGIN		;CHS39A
	CSI$ND								;CHS39A
WIVAL:	CSI$SV	DECIMAL,PRMRG,2		;PERMANENT RIGHT MARGIN		;CHS39A
	CSI$ND								;CHS39A
   .ENDC ; NZ LAYSW							;CHS39A
   .IF NZ XHDRSW							;CHS40A
HLVAL:	CSI$SV	DECIMAL,HDRLEN,2	;LENGTH OF HEADERS		;CHS40A
	CSI$ND								;CHS40A
   .ENDC ; NZ XHDRSW							;CHS40A
   .IF NZ OPTXSW							;CHS45
INVAL:	CSI$SV	DECIMAL,INCL1,2		;"INCLUDE" SELECTIONS		;CHS45
	CSI$SV	DECIMAL,INCL2,2						;CHS45
	CSI$SV	DECIMAL,INCL3,2						;CHS45
	CSI$SV	DECIMAL,INCL4,2						;CHS45
	CSI$SV	DECIMAL,INCL5,2						;CHS45
	CSI$ND								;CHS45
EXVAL:	CSI$SV	DECIMAL,EXCL1,2		;"EXCLUDE" SELECTIONS		;CHS45
	CSI$SV	DECIMAL,EXCL2,2						;CHS45
	CSI$SV	DECIMAL,EXCL3,2						;CHS45
	CSI$SV	DECIMAL,EXCL4,2						;CHS45
	CSI$SV	DECIMAL,EXCL5,2						;CHS45
	CSI$ND								;CHS45
   .ENDC ; NZ OPTXSW							;CHS45

ULSWT::	.BLKB	2	;BUFFER FOR UNDERLINE SWITCH
   .IF NZ OPTXSW							;CHS45
INCL1::	.BLKW	1			;BUFFERS FOR COMMAND-LINE	;CHS45
INCL2::	.BLKW	1			; "INCLUDE" SELECTIONS		;CHS45
INCL3::	.BLKW	1							;CHS45
INCL4::	.BLKW	1							;CHS45
INCL5::	.BLKW	1							;CHS45
	.WORD	0			;END MARK			;CHS45
EXCL1::	.BLKW	1			;BUFFERS FOR COMMAND-LINE	;CHS45
EXCL2::	.BLKW	1			; "EXCLUDE" SELECTIONS		;CHS45
EXCL3::	.BLKW	1							;CHS45
EXCL4::	.BLKW	1							;CHS45
EXCL5::	.BLKW	1							;CHS45
	.WORD	0			;END MARK			;CHS45
NOPVAL	==<.-INCL1>/2			;NUMBER OF WORDS HERE		;CHS45
   .ENDC ; NZ OPTXSW							;CHS45
	.PSECT

SPSAV::	.BLKW	1
$SWTCH::.BLKW	1	;SWITCH WORD
 
	.END