.TITLE	RNORSX
	.IDENT /M02/
	.IDENT	/M02.1/

;
; 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 M02
;
; AUTHOR: E. POLLACK U. OF W. 19-DEC-73
;
; MODIFIED BY:
;
;	D. N. CUTLER 27-JUL-75
;
; SIG MODIFICATIONS			; **NEW**
;	SIG01		INCREASE FSR; **NEW**
;	SIG02		INCORPORATE RSTS CHANGES		; **NEW**
;		; **NEW**
;
; CARTS LUG MODIFICATIONS
;
;	CAR 1 --> ADD RIGHT SWITCH
;
; 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



;	LUN	FOR
;
;	1	COMMAND INPUT
;	2	TERMINAL I/O (ERROR MESSAGES, WAIT REQUEST)
;	3	DATA OUTPUT
;	4	DATA INPUT
;	5	DATA INPUT
;	6	DATA INPUT
;	7	DATA INPUT
;	8	DATA INPUT
;

	FSRSZ$	7,<512.*7+80.>
TTBLK::	FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDOP$A	2,,TTFIL		; LUN=2
	FDRC$A	,TTBUF,TTLIN
TTFIL:	NMBLK$	CMO,CMD
TTIBLK::GCMLB$	1,RNO,TTBUF		; LUN=1
LUN4::	FDBDF$
	FDAT$A	R.VAR
	FDOP$A	4,,10$			; LUN=4
10$:	NMBLK$	RUNOFF,RNO,,SY,0
LUN5::	FDBDF$
	FDAT$A	R.VAR
	FDOP$A	5,,10$			; LUN=5
10$:	NMBLK$	RUNOFF,RNO,,SY,0
LUN6::	FDBDF$
	FDAT$A	R.VAR
	FDOP$A	6,,10$			; LUN=6
10$:	NMBLK$	RUNOFF,RNO,,SY,0
LUN7::	FDBDF$
	FDAT$A	R.VAR
	FDOP$A	7,,10$			; LUN=7
10$:	NMBLK$	RUNOFF,RNO,,SY,0
LUN8::	FDBDF$
	FDAT$A	R.VAR
	FDOP$A	8.,,10$			; LUN=8
10$:	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	3,,LSTFIL		; LUN=3		
LSTFIL:	NMBLK$	RUNOFF,DOC,,SY,0

	.PSECT	SWTCH,GBL,RO,D,CON
SWTBL::	CSI$SW	SP,SPLSW,$SWTCH,SET,NEG	; 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,FFVAL ; KICK PAGES WITH FORMFEEDS
	CSI$SW	WA,PAUSW,$SWTCH,SET	; WAIT BETWEEN PAGES
	CSI$SW	CR,CRSW,$SWTCH,SET,NEG	; CR switch (output CR,LF)
	CSI$SW	PA,,,,,PAGUAL		; LOWER/UPPER LIMIT TO PAGES
	CSI$SW	CH,,,,,CHPUAL		; LOWER/UPPER LIMIT TO CHAPTERS
	CSI$SW	AP,,,,,APNUAL		; LOWER/UPPER LIMIT TO APPENDICES
	CSI$SW	PS,,,,,PSVAL		; PAGE SIZE
	CSI$SW	RI,,,,,RIGVAL		; RIGHT SHIFT SWITCH
	CSI$ND

PAGUAL:	CSI$SV	DECIMAL,LOWPAG,2
	CSI$SV	DECIMAL,HGHPAG,2
	CSI$ND
CHPUAL: CSI$SV	DECIMAL,LOWCHP,2
	CSI$SV	DECIMAL,HGHCHP,2
	CSI$ND
APNUAL:	CSI$SV	DECIMAL,LOWAPN,2
	CSI$SV	DECIMAL,HGHAPN,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
RIGVAL:	CSI$SV	NUMERIC,RIGSHI,2
	CSI$ND
	
	.PSECT	$VARS,LCL,D,RW,CON
ULSWT::.BLKB	2			; BUFFER FOR UNDERLINE SWITCH	
RIGSHI:: .BLKW	1			; BUFFER FOR SHIFT VALUE		
SPSAV::	.BLKW	1
$SWTCH::.BLKW	1			; SWITCH WORD
	.END