.TITLE	RNORSX
	.IDENT /M02/
	.IDENT	/M02.1/
	.IDENT	/M02.2/
	.GLOBL	LSTFIL

;
; 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
;
; CAMBRIDGE COMPUTER ASSTS. MODS:
;
;	ADD /SC FOR SPINWRITER
;	ADD /BT (OR /BT:N OR /BT:R) FOR BOOK TITLING
;
; 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	??
;	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							;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	;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	PA,,,,,PAGUAL		;LOWER/UPPER LIMIT TO PAGES
	CSI$SW	PS,,,,,PSVAL		;PAGE SIZE
	CSI$SW	RI,,,,,RIGVAL		;RIGHT SHIFT SWITCH			;CAR  1
	CSI$SW	LM,,,,,LMVAL		; STANDARD LEFT MARGIN			;CAR  1
	CSI$SW	SC,DIABSW,$SWTC2,SET,NEG ; DIABLO / NEC SPINWRITER
	CSI$SW	BT,BKTNSW!BKTISW,$SWTC2,SET,NEG,BTVAL ; BOOK STYLE TITLING
	CSI$ND

PAGUAL:	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
BTVAL:	CSI$SV	ASCII,BKTITP,2		; BOOK STYLE TITLING TYPE ('N' OR 'R')
	CSI$ND
RIGVAL:	CSI$SV	DECIMAL,RIGSHI,2						;CAR  1
	CSI$ND									;CAR  1
LMVAL:	CSI$SV	DECIMAL,DLMVAL,2						;CAR  1
	CSI$ND									;CAR  1
DLMVAL::.WORD	-1								;CAR  1
										;CAR  1
ULSWT::.BLKB	2	;BUFFER FOR UNDERLINE SWITCH				;CAR  1
RIGSHI:: .BLKW	1	;BUFFER FOR SHIFT VALUE					;CAR  1
OUTPRM:: .BLKW	8.	; OUTPUT LUN INFO					;CAR  1
	.PSECT									;**-2

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

	.END