.TITLE	RNORSX
	.IDENT /M01/

;
; COPYRIGHT (C) 1976
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A
; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-
; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY
; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE
; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM
; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND
; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
;
; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT
; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL
; EQUIPMENT CORPORATION.
;
; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
;
; VERSION M01
;
; AUTHOR: E. POLLACK U. OF W. 19-DEC-73
;
; MODIFIED BY:
;
;	D. N. CUTLER 27-JUL-75
;
; RUNOFF I/O DATA BASE
;
; MACRO LIBRARY CALLS
;
 
	.MCALL	GCMLB$,FDBDF$,FDAT$A,FDOP$A,FDRC$A,NMBLK$,FSRSZ$
	.MCALL	CSI$SW,CSI$ND,CSI$SV

 
	.IF DF	RSTS
 
	FSRSZ$	4,<512.*2+80.>
 
	.IFF
 
	FSRSZ$	4,<512.*4+80.>
 
	.ENDC
 

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	2
	FDOP$A	4,,TTLFIL	;LUN=4
TTLFIL:	NMBLK$	RUNOFF,RNO,,SY,0
LSTBLK::FDBDF$
	FDAT$A	R.VAR
	FDOP$A	5,,LSTFIL
 
 
	.IF DF	RSTS
 
	FDRC$A	FD.RWM		;
 
	.ENDC
 
 
LSTFIL:	NMBLK$	RUNOFF,DOC,,SY,0
 
	.PSECT	SWTCH,GBL
SWTBL::	CSI$SW	SP,SPLSW,$SWTCH,SET,NEG,SPTAB	;SPOOLING SWITCH
	CSI$SW	UC,UPCSW,$SWTCH,SET	;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	;KICK PAGES WITH FORMFEEDS
	CSI$SW	WA,PAUSW,$SWTCH,SET	;WAIT BETWEEN PAGES
	CSI$SW	PA,,,,,PAGUAL		;LOWER/UPPER LIMIT TO PAGES
	CSI$SW	CH,,,,,CHAUAL		;LOWER/UPPER LIMIT TO CHAPTERS
	CSI$SW	LS,1,WIDCHR		;ENABLE CENTRONICS WIDE CHAR OUTPUT
	CSI$SW	CO,,,,,COPYAL		;NUMBER OF COPIES TO SPOOL
	CSI$SW	FO,,,,,FORMAL		;FORMS TYPE TO SPOOL
	CSI$ND

PAGUAL:	CSI$SV	DECIMAL,LOWPAG,2
	CSI$SV	DECIMAL,HGHPAG,2
	CSI$ND
CHAUAL:	CSI$SV	DECIMAL,LOWCHA,2
	CSI$SV	DECIMAL,HGHCHA,2
	CSI$ND
ULCVAL:	CSI$SV	ASCII,ULSWT,2
	CSI$ND
SPTAB:	CSI$SV	ASCII,SPDEV,6		;SPEC DEVICE TO SPOOL TO
	CSI$ND
COPYAL:	CSI$SV	DECIMAL,COPYCT,2	;SPEC # OF COPIES
	CSI$ND
FORMAL:	CSI$SV	NUMERIC,FORMTP,2	;SPEC FORMS TYPE
	CSI$ND

ULSWT::.BLKB	2	;BUFFER FOR UNDERLINE SWITCH
	.PSECT

SPSAV::	.BLKW	1
$SWTCH::.BLKW	1	;SWITCH WORD
 
WIDCHR:: .WORD	0			;FLAGS FOR WID CHARACTER OUTPUT
SPDEV::	.BLKW	3			;SPOOLING DEVICE
COPYCT:: .WORD	1			;COPY COUNT
FORMTP:: .WORD	0			;FORMS TYPE
	.END