Google
 

Trailing-Edge - PDP-10 Archives - bb-d868b-bm_tops20_v3a_2020_dist - 3a-sources/quench.mac
There are 7 other files named quench.mac in the archive. Click here to see a list.
TITLE	QUENCH  --  Queue Entry and Change Program - Version 3
SUBTTL	P.CONKLIN/DAL/PFC/LSS	13 Nov 77 (+JBS 13-MAY-77)



	SEARCH	MACTEN,SCNMAC
		%%MACT==%%MACT
		%%SCNM==%%SCNM

	SEARCH	QSRMAC
	SEARCH	UUOSYM
	IFN FTJSYS,<SEARCH MONSYM>

	.REQUE	REL:SCAN		;SYSTEM COMMAND SCANNER
		%%%SCN==:7
	.REQUE	REL:WILD		;COMMON FILE-SYSTEM MANIPULATOR
		%%%WLD==:7
	.REQUE	REL:HELPER		;SYSTEM HELP TEXT TYPER

;ASSEMBLY AND LOADING INSTRUCTIONS
;		.COMP QUENCH
;		.LOAD QUENCH
;		.SSAVE QUENCH


;VERSION INFORMATION
	QUHVER==3			;MAJOR VERSION
	QUHMIN==0			;MINOR VERSION
	QUHEDT==102			;EDIT NUMBER
	QUHWHO==0			;WHO LAST PATCHED

	%%QUH==<BYTE (3) QUHWHO (9) QUHVER (6) QUHMIN (18) QUHEDT>

	LOC	137
	EXP	%%QUH




;COPYRIGHT (C) 1974, 1975, 1976, 1977, 1978 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.




	SALL				;SUPPRESS MACRO EXPANSIONS
SUBTTL	PARAMETERS AND DEFAULTS


;ASSEMBLY PARAMETERS

ND LN$PDL,60		;LENGTH OF PUSH-DOWN LIST
ND LN$ENT,11		;LENGTH OF A LOOKUP/ENTER BLOCK
ND PURESW,1		;1=REENTRANT VERSION

ND PUNCDP,0		;-1=NO PUNCH COMMAND
			;0=PUNCH COMMAND TO PTP
			;1=PUNCH COMMAND TO CDP



;NOW GET TO THE CORRECT SEGMENT
	IFE	PURESW,<RELOC>
	IFN	PURESW,<TWOSEG
			RELOC 400000>
;DEFAULTS


	RADIX	^D10
DM AFT,  10080,   0,  10	;AFTER CURRENT TIME IN MINUTES
DM CDP, 100000, 000,2000	;CARD PUNCH LIMIT IN CARDS
DM COP,     63,   1,   0	;NUMBER OF COPIES OF OUTPUT
DM COR,^O777777,25600,40960	;CORE LIMIT FOR JOB
DM DED,  10080,   0,  60	;DEADLINE FROM CURRENT TIME IN MINUTES
DM DPN,  65535,   0,   0	;INITIAL DEPENDENCY COUNT
DM LIM, 100000,  00,   0	;OUTPUT LIMIT
DM LPT, 100000,  00,2000	;LINE PRINT LIMIT IN PAGES
DM NHD,      1,   1,   1	;FILE HEADERS ON OUTPUT
DM PLT, 100000,  00,  60	;PLOT LIMIT IN MINUTES		[1201]
DM PRI,     62,  10,  20	;EXTERNAL PRIORITY
DM PTP, 100000, 000, 100	;PT PUNCH LIMIT IN FEET
DM RST,      1,   0,   1	;RESTART PARAMETER
DM SEQ, 100000,   0,   0	;JOB'S SEQUENCE NUMBER
DM STR, 100000,   1,   1	;STARTING POINT IN FILE
DM TIM,  .INFIN, 300,3600	;TIME LIMIT FOR JOB IN SECONDS
DM UNI,      2,   1,   2	;DEGREE OF FILE NAME UNIQUENESS


ND AD.LFD,DISPPRESERVE	;LOG FILE DISPOSITION
ND AD.OPN,.QORCR	;STANDARD OPERATION IS /CREATE
	RADIX	8
;THE QUEUES MACRO DEFINES ALL PARAMETERS WHICH NEED TO BE
;	EXPANDED INTO TABLES FOR THE VARIOUS QUEUES.
;
;EACH LINE IN THE QUEUES MACRO IS OF THE FORM:
;
;	QQ	A,B,C,D,E,F,G,H
;
;WHERE:
;	A	IS THE QUEUE NAME
;	B	IS THE DEFAULT INPUT EXTENSION
;;	C	INDEQ TO LIMITS FOR KJOB QUEUEING (-1 FOR NONE)
;	D	/PAPER KEYWORD LIST NAME
;	E	NAME OF ROUTINE TO PRINT LIMIT OF QUEUE
;	F	QUEUE LIMIT TEQT (SINGULAR)
;	G	QUEUE LIMIT TEQT (PLURAL)
;	H	MONITOR COMMAND FOR THE QUEUE

DEFINE QUEUES,<
	QQ	INP,CTL,-1,,LTIME,<Runtime>,<Runtime>,<SUBMIT>
	QQ	LPT,LPT,0,PRIN,LDEC,<Page>,<Pages>,<PRINT>
	QQ	CDP,CDP,1,PUNC,LDEC,<Card>,<Cards>,<CPUNCH>
	QQ	IBM,JOB,-1,PUNC,LDEC,<Card image>,<Card images>,<>
	QQ	JOB,JOB,-1,PUNC,LDEC,<Line>,<Lines>,<>
	QQ	PTP,PTP,2,TAPE,LDEC,<Foot>,<Feet>,<TPUNCH>
	QQ	PLT,PLT,3,PLOT,LTIMEM,<Minute>,<Minutes>,<PLOT>
>  ;END DEFINE QUEUES


;NOW INSURE THAT INP QUEUE IS FIRST AND DEFINE QUEUE TYPE SYMBOLS
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	IFDIF	<A>,<INP>,<PRINTX  ?FIRST QUEUE MUST BE INP>
	..TMP==0
	QTP'A==..TMP
	DEFINE	QQ(Z,Y,X,W,V,U,T,S),<
		..TMP==..TMP+1
		QTP'Z==..TMP
	>  ;END REDEFINITION OF QQ
>  ;END DEFINE QQ


IF1,<	QUEUES
>
SUBTTL	Revision History

;1	MAKE THIS QUENCH VERSION 1 FROM QUEUE VERSION 6
;2	PUT IN TOPS20 CODE
;3	CODE CLEANUP
;4	PUT IN NEW /OUTPUT STUFF
;5	ALWAYS FORCE JACCT OFF ON TOPS10

;50	MAKE THIS QUENCH VERSION 2
;	CALL QMANGR WIL QUEUE FORMAT VERSION 2 (Q.OPR<QO.VER>)
;51	ALLOW /TAG TO BE FULL 6 CHARACTERS LONG
;52	REMOVE SOME UNUSED ROUTINES
;53	CHANGE ALL CHECKS ON F.STRT AND I.STRT TO NOT USE SKIPL
;	AND SKIPGE SINCE WITH 6 CHARACTER NAMES THE WRONG THING HAPPENS.
;54	DO NOT DEFAULT THE /PRIO FIELD.
;55	REMOVE /PAPER SWITCH, ADD /PRESERVE AS SYNONYM FOR /DI:PRES
;	REMOVE /DI:RENAME, AND CHANGE LISTING FORMAT ON -20 TO PUT
;	USER NAME LAST.
;56	ON -20 IF LOOKUP ON THE FILE SUCCEEDS, SET BIT 15 IN Q.FMOD
;	AND PASS THE FILESPEC BLOCK AS A STRING TO QMANGR.
;57	ADD /USER SWITCH ON -20, PASS Q.PPN AS 0,,ADR WHERE ADR HAS A STRING.
;60	CONDITIONAL OUT LOTS OF CODE ON -20.  REARRANGE QUEUE LISTING FORMAT
;	ON THE -10.
;61	IN QUEUE LISTING, ONLY PRINT THE "CORE" COLUMN IF INPCOR IS NOT 0.
;62	TO GET TIME OF DAY DO APPROPRIATE UUO OR JSYS RATHER THAN CALLING
;	.GTNOW.
;63	CHANGE TEXT FOR INP QUEUE TOTALS TO JUST "RUNTIME".  FIX -20
;	STRUCTURE CHECKING CODE IN LIST ROUTINE.
;64	MORE OF EDIT 63 AND RANDOM CLEANUP.
;65	REMOVE SEARCH JOBDAT.

;;FIRST FIELD-TEST RELEASE OF GALAXY RELEASE 2, JAN. 1977

;66	MAKE CHECK FOR OFF-LINE STRUCTURE (-10) IN THE LISTER THE
;	SAME AS THE ONE IN QUASAR.
;67	MAKE DEFAULT INPUT DEVICE ON -20 ALWAYS "DSK".  MAKE THE
;	LOOKUP OF THE BATCH LOG FILE ALWAYS SPECIFY THE USER'S PATH.
;70	A FEW MORE LOG FILE FIXES.
;71	FIX ERROR MACROS AND CHANGE "ONE" OF THE "QUHPSI" ERRORS TO
;	"QUHPII".  FIX A PROBLEM IN EDIT 70.  MAKE /TIME SWITCH ALLOW
;	ONLY THREE FIELDS AND GIVE AN ERROR IF MORE A SPECIFIED.
;72	FIX A NUMBER OF MINOR PROBLEMS (QARS 32 AND 33).


;RELEASE GALAXY VERSION 2

;74	ON THE -20 MAKE /NEW WORK FOR OUTPUT FILES AND MAKE BATCH
;	LOG FILES WORK WHEN THE FILE TYPE IS SPECIFIED. 20-10697


;100	MAKE THIS VERSION 3.  INSERT CODE FOR DN64, IE. IBM AND JOB QUEUE.
;101	INSERT MAINTAINANCE EDIT 74.
;102	PUT /TAPE SWITCH BACK IN ON THE -20.
SUBTTL	STANDARD MNEMONICS--REGISTERS, BITS, UUOS

;AC NAMES

F=0		;FLAGS (LH=PERMANENT, RH=TEMPORARY)
T1=1		;TEMPORARIES
T2=2
T3=3
T4=4

P1=5		;PRESERVED BY ONE AND ALL
P2=6		; ..

N=7		;NUMBER/NAME ...  USED BY SCAN
C=10		;CHARACTER FROM COMMAND STRING (READ ONLY AC)

I=11		;POINTS TO INPUT FILE SPEC
J=12		;POINTS TO CURRENT FILE IN QUEUE REQUEST
Q=13		;POINTS TO THE QUEUE REQUEST AREA

M=14		;LISTING MESSAGE POINTER
P=17		;PUSH-DOWN POINTER

;I/O CHANNELS

DC==1		;LOOKUP/RENAME DATA FILES
LC==2		;LISTINGS


..==0		;FLAG FOR FIELDS TO BE FILLED IN LATER
;PERMANENT FLAGS (LH)

L.LOGI==(1B17)	;THIS JOB IS LOGGED IN
L.NSBJ==(1B8)	;NOT LOGGED IN TOP LEVEL			[1177]

;TEMPORARY FLAGS (RH)

R.LTAB==1B35	;TAB NEEDED NEXT ON LISTING FILE
R.OUTL==1B30	;LISTING DEVICE NEEDS OUTPUT EACH LINE
R.NSEC==1B28	;SUPPRESS SECONDS LISTING
R.ANUL==1B27	;ALLOW DEVICE NUL:
;X.MOD LAYOUT DEFINITIONS

X.REMV==1B0	;/REMOVE
X.LOG==1B1	;THIS FILE IS THE JOB LOG FILE
X.NEW==1B2	;/NEW
X.NOHD==1B5	;/HEADER
X.STG==1B15	;STRING		;LOCAL USE ONLY
X.UNP==1B16	;/UNPRESERVED		;LOCAL USE ONLY
X.OKBN==1B17	;/OKBINARY		;LOCAL USE ONLY

X.SPAC==7B20	;/SPACING
X.PAPR==7B23	;/PAPER
X.FILE==7B26	;/FILE
X.DISP==7B29	;/DISPOSE
X.COP==77B35	;/COPIES


;QUEUE OPERATIONS
	.QORCR==1		;CREATE
	.QORDF==2		;/CREATE/DEFER (GALAXY ONLY)
	.QORZD==3		;/KILL/DEFER (GALAXY ONLY)
	.QORLS==4		;LIST
	.QORMD==5		;MODIFY
	.QORKL==6		;KILL
;MACROS

;SWSEG		SWITCHES SEGMENTS IF PURESW ON (ALSO FLUSHES LITS)

DEFINE	SWSEG<
IFN PURESW,<
		XLIST
		LIT
		LIST
		RELOC>>


;DEFINE RELOCATABLE 0 FOR HIGH AND LOW SEGS

..STRH==.
	SWSEG
..STRL==.
	SWSEG


;GCORE N	GET N MORE WORDS AT .JBFF

DEFINE	GCORE (A),<
	MOVEI	T1,A
	XLIST
	PUSHJ	P,GCORE.
	LIST
>
SUBTTL	Message Macros

DEFINE N$FATE(A,B,C,%A),<
	SKIPA
	XLIST
	JRST	%A
	PJSP	T1,NFMSG'B
	SIXBIT	\   A\
	ASCIZ	\C\
%A:
	IF1,<IFDEF N$$'A,<PRINTX  ?MULITPLE USE OF ERROR CODE A>>
	N$$'A==0
	LIST
	SALL
>  ;END DEFINE N$FATE

DEFINE	N$WARN(A,B,C,%A),<
	SKIPA
	XLIST
	JRST	%A
	PUSHJ	P,FWARN'B
	<SIXBIT \A\>+[ASCIZ \C\]
%A:
	IF1,<IFDEF N$$'A,<PRINTX  ?MULITPLE USE OF ERROR CODE A>>
	N$$'A==0
	LIST
	SALL
>  ;END DEFINE N$WARN

DEFINE	N$INFO(A,B,C,%A),<
	SKIPA
	XLIST
	JRST	%A
	PUSHJ	P,FINFO'B
	<SIXBIT \A\>+[ASCIZ \C\]
%A:
	IF1,<IFDEF N$$'A,<PRINTX  ?MULITPLE USE OF ERROR CODE A>>
	N$$'A==0
	LIST
	SALL
>  ;END DEFINE N$INFO
SUBTTL	Initialization

QUENCH:	TDZA	T1,T1		;ALLOW FOR CCL ENTRY POINT
	MOVEI	T1,1		;YES--FLAG CCL ENTRY
	MOVEM	T1,STRTOF	;SAVE FOR ISCAN
	SETZB	F,TYPER		;CLEAR TYPEOUT ROUTINE FLAG
	RESET			;RESET ANY EXTERNAL I/O
	SETZM	ZCOR		;CLEAR CORE
	MOVE	T1,[ZCOR,,ZCOR+1]
	BLT	T1,EZCOR
	MOVE	P,[IOWD LN$PDL,PDLST]  ;ESTABLISH PUSH-DOWN LIST

IFN FTUUOS,<
	PUSHJ	P,GTTABS	;DO ALL NECESSARY GETTABS
	MOVE	T1,G$PROG	;GET PROGRAM NAME
	SETNAM	T1,		;AND SET IT
	PJOB	T1,		;GET THIS JOB'S NUMBER
	MOVNS	T1		;GET JOB ARG FOR JOBSTS UUO
	JOBSTS	T1,		;GET THIS JOB'S STATUS
	  JRST	.+2		;FAILED--ASSUME LOGGED IN
	TXNE	T1,JB.ULI	;SEE IF LOGGED IN
	TLO	F,L.LOGI	;YES--SET FLAG
	TLNE	F,L.LOGI	;SEE IF LOGGED IN	[1172]
	JRST	QUEST2		;YES--PROCEED			[1172]
	TLO	F,L.NSBJ	;INDICATE NOT LOGGED IN		[1177]
	SETOM	T1		;START AT OUR JOB		[1172]
QUESTL:	CTLJOB	T1,		;GET CONTROLLING NUMBER		[1172]
	  JRST	QUEST2		;NONE--ASSUME OK ANYWAY		[1172]
	JUMPL	T1,QUEST2	;IF NONE, ASSUME OK		[1172]
	MOVN	T2,T1		;GET -JOB			[1172]
	JOBSTS	T2,		;GET ITS STATUS			[1172]
	  SETOM	T2		;ASSUME LOGGED IN		[1172]
	TXNN	T2,JB.ULI	;SEE IF LOGGED IN		[1172]
	JRST	QUESTL		;NO--LOOP ON UP CHAIN		[1172]
	HRLZ	T2,T1		;GET THIS JOB'S NUMBER		[1172]
	HRRI	T2,.GTPPN	;POINT TO PPN TABLE		[1172]
	GETTAB	T2,		;GET PPN FROM MONITOR		[1172]
	  JRST	QUEST2		;NONE!--GIVE UP			[1172]
	MOVEM	T2,.MYPPN##	;OK--USE THAT INSTEAD		[1172]
	TLZ	F,L.NSBJ	;OK AFTER ALL (PROBABLY OPSER CALL)	[1177]
	JRST	QUEST2		;CONTINUE
>  ;END IFN FTUUOS

IFN FTJSYS,<
	TLO	F,L.LOGI	;WE ARE LOGGED IN
	JRST	QUEST2		;CONTINUE
>  ;END IFN FTJSYS
QUEST2:	MOVE	T1,.JBREL	;SAVE CURRENT CORE
	HRL	T1,.JBFF	;  AND START OF FREE CORE	[1202]
	MOVEM	T1,SAVCOR	;  FOR LATER TO RESTORE

	MOVE	T1,[IOWD QCMLEN,QCOMS]  ;NO--RESCAN FOR POSSIBLE COMMANDS
	MOVEM	T1,ISARG	;SET AS FIRST ARG
	MOVE	T1,[STRTOF,,'QUE']  ;SET START ADDRESS AND TMP FILE
	MOVEM	T1,ISARG+1	;STORE AS SECOND ARG
	SETZB	T1,ISARG+3	;CLEAR INDIRECT BLOCK
	MOVEM	T1,MONRTR	;STORE AS FIFTH ARG

	MOVE	T1,[5,ISARG]
	PUSHJ	P,.ISCAN##
	MOVEM	T1,COMIDX	;SAVE COMMAND INDEX
	SKIPGE	T1		;SEE IF COMMAND
	TDZA	T1,T1		;NO--CLEAR DEFAULT TYPE
	MOVE	T1,QDEVS(T1)	;YES--GET QUEUE NAME
	MOVEM	T1,DQTYPE	;STORE AS DEFAULT TYPE
SUBTTL	Main Processing Loop

;HERE WHENEVER * TYPED (IE, MAJOR RESTART)

QUELOP:	PUSHJ	P,GETNOW	;GET NEW TIME OF DAY
	MOVE	T1,[10,,[IOWD SWTCHL,SWTCHN
			SWTCHD,,SWTCHM
			0,,SWTCHP
			'QUEUE '
			CLRANS,,CLRFIL
			INFIL,,OUTFIL
			FILSTK,,APLSTK
			CLRSTK,,0]  ]
	PUSHJ	P,.TSCAN##
	MOVE	T1,COMIDX	;GET COMMAND INDEX
	MOVEI	T1,QCOMS(T1)	;GET ADDRESS IN COMMAND TABLE
	CAIL	T1,MDACOM	;IS IT A MOUNTABLE DEVICE COMMAND?
	N$FATE	<MDC>,,<Mountable Device Commands not implemented>
	SKIPE	O.MODM		;SEE IF OUTPUT SPEC
	JRST	SOMCMD		;YES--NORMAL HANDLING
	MOVE	T1,I.NXZR	;SEE IF ANY COMMANDS
	MOVE	T2,I.INZR	;GET FIRST INPUT SPEC
	SUB	T1,T2		;GET NUMBER OF SPECS*I.LZER
	JUMPE	T1,NOCMD	;NONE--NULL COMMAND
	CAIN	T1,I.LZER	;SEE IF JUST ONE
	SKIPE	.FXNAM(T2)	;  WITH NULL FILE NAME
	JRST	SOMCMD		;NO--SOMETHING THERE
	HLLZ	T1,.FXEXT(T2)	;GET THE EXTENSION
	JUMPN	T1,SOMCMD	;JUMP IF THERE IS ONE

;HERE ON A NULL MONITOR COMMAND

NOCMD:	PUSHJ	P,DEFAU1	;GO FILL IN MODIFIED DEFAULTS
	JRST	DOCMD		;THEN GO BELOW TO DO THE WORK

;HERE WHEN A NON-NULL COMMAND IS FOUND

SOMCMD:	PUSHJ	P,DEFAUL	;GO FILL IN DEFAULTS

;HERE AFTER DEFAULTS ARE DONE

DOCMD:	PUSHJ	P,COMAND	;DO THE COMMAND
	JRST	QUELOP		;LOOP BACK FOR MORE WORK
;COMMANDS WHICH RUN QUEUE
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	SIXBIT	/H/
>

	SIXBIT	/QUEUE/		;SWITCH.INI LINE ON .RUN ETC
QCOMS:	SIXBIT	/QUEUE/
IFGE PUNCDP,<	SIXBIT	/PUNCH/>
	QUEUES
MDACOM:	SIXBIT	/ALLOCA/
	SIXBIT	/FREE/
	SIXBIT	/MOUNT/
	SIXBIT	/DISMOU/
QCMLEN==.-QCOMS

;DEVICES USED BY THOSE COMMANDS
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	SIXBIT	/A/
>

QDEVS:	SIXBIT	/LP/		;QUEUE COMMAND (MUST BE LP NOT LPT) 
IFG	PUNCDP,<SIXBIT /CDP/>
IFE	PUNCDP,<SIXBIT /PTP/>
IFL	PUNCDP,<>
	QUEUES
	SUBTTL	ROUTINES TO HANDLE CALLS FROM TSCAN

;HERE TO CLEAR OUT A SINGLE FILE SPEC

CLRFIL:	SETZM	F.ZER
	MOVE	T1,[F.ZER,,F.ZER+1]
	BLT	T1,F.EZER
	SETOM	F.MIN
	MOVE	T1,[F.MIN,,F.MIN+1]
	BLT	T1,F.EMIN
	POPJ	P,

;HERE WHEN A SPECIFICATION FOR OUTPUT SIDE IS FOUND

OUTFIL:	SKIPN	F.MOD		;ANY MOD SWITCHES?
	SKIPE	F.MODM		; "   "      "
	JRST	OUTFL1		;YES, GIVE ERROR
	SKIPGE	F.STRT		;/START?
	SKIPL	F.RPT		;OR /REPORT?
OUTFL1:	JRST	E.FMO##		;YES, GIVE ERROR
	MOVEI	T1,O.ZER	;POINT TO OUTPUT AREA
	MOVEI	T2,O.LZER	;INDICATE LENGTH
	POPJ	P,		;RETURN

;HERE WHEN A SPECIFICATION FOR INPUT SIDE FOUND

INFIL:	PUSHJ	P,GTCLIN	;GET AND CLEAR INPUT AREA
	MOVEI	T3,I.MOD(T1)	;POINT TO OUR PART
	HRLI	T3,F.ZER	;POINT TO OUR F AREA
	BLT	T3,I.LZER(T1)	;COPY OUR PART
	POPJ	P,		;RETURN
;HERE TO CLEAR STICKY DEFAULTS

CLRSTK:	SETZM	P.ZER		;ZERO OUT DEFAULTS
	MOVE	T1,[P.ZER,,P.ZER+1]
	BLT	T1,P.EZER
	SETOM	P.MIN
	MOVE	T1,[P.MIN,,P.MIN+1]
	BLT	T1,P.EMIN
	POPJ	P,

;CLRANS -- CLEAR SCANNING ANSWER AREA
;CALL:	PUSHJ	P,CLRANS
;USES T1

CLRANS:	HLLZS	F		;CLEAR TEMPORARY FLAGS
	SETZM	S.ZER		;ZERO OUT COMMAND ACCUMULATORS
	MOVE	T1,[S.ZER,,S.ZER+1]
	BLT	T1,S.EZER
	SETOM	S.MIN		;PRESET SWITCH PARAMETERS
	MOVE	T1,[S.MIN,,S.MIN+1]
	BLT	T1,S.EMIN
	MOVE	T1,SAVCOR	;GET INITIAL START OF FREE CORE	[1202]
	HLRZM	T1,.JBFF	;SET START OF FREE CORE		[1202]
	HLRZM	T1,I.INZR	;ESTABLISH PARAMETER AREA HERE	[1202]
	HLRZM	T1,I.NXZR	;AND OF ZERO LENGTH		[1202]
	TLZ	T1,-1		;CLEAR JUNK			[1202]
	CORE	T1,		;RESTORE REAL CORE ALSO		[1202]
	  JFCL			;OK IF CAN'T			[1202]
	POPJ	P,		;RETURN
;FILSTK -- MEMORIZE STICKY DEFAULTS
;CALL:	PUSHJ	P,FILSTK
;	RETURNS AFTER NON-ZERO F.XXX COPIED TO P.XXX
;USES T1, T2

FILSTK:	MOVE	T1,F.MOD	;COPY SWITCHES
	MOVE	T2,F.MODM
	ANDCAM	T2,P.MOD
	IORM	T1,P.MOD
	IORM	T2,P.MODM
	MOVE	T1,F.STRT	;GET THE STARTING POINT
	CAME	T1,[-1]		;WAS IT SPECIFIED?
	MOVEM	T1,P.STRT	; ..
	SETCM	T1,F.RPT	;MEMORIZE /REPORT
	JUMPE	T1,.POPJ##	;RETURN
	DMOVE	T1,F.RPT	;GET /REPORT
	DMOVEM	T1,P.RPT	;AND SAVE IT
	POPJ	P,

;HERE AT END OF SPECIFICATION TO APPLY USER SUPPLIED DEFAULTS

APLSTK:	MOVE	T1,P.MOD	;APPLY ALL FILE SWITCHES
	ANDCM	T1,F.MODM	;MASK HERE USED TO INDICATE WHICH WERE TYPED
	IORM	T1,F.MOD	; ..
	MOVE	T1,P.MODM	; ..
	IORM	T1,F.MODM	; ..
	MOVE	T1,F.STRT	;GET THE STARTING POINT
	CAMN	T1,[-1]		;WAS IT SPECIFIED?
	MOVE	T1,P.STRT	;NO, USE THE GLOBAL DEFAULT
	MOVEM	T1,F.STRT	;NO--SUPPLY DEFAULT
	SETCM	T1,P.RPT	;GET THE REPORT CODE
	JUMPE	T1,.POPJ##	;DONE IF NOT DEFAULT
	SETCM	T1,F.RPT	;SKIP IF NO REPORT GIVEN
	JUMPN	T1,.POPJ##	;RETURN
	DMOVE	T1,P.RPT	;GET /REPORT
	DMOVEM	T1,F.RPT	;SAVE IT
	POPJ	P,		;RETURN
SUBTTL	FILL IN DEFAULTS AFTER COMMAND SCANNING

;DEFAUL -- SUBROUTINE TO FILL IN DEFAULTS AND DETECT
;	INCONSISTENCIES AFTER COMMAND SCANNING
;DEFAU1 -- DITTO EXCEPT DEFAULT OPERATION IS /LIST
;USES EVERYTHING

DEFAUL:	MOVEI	T1,AD.OPN	;FIRST DECIDE WHAT TYPE OF REQUEST
	SKIPL	S.LIST		;SEE IF /LIST SHOWED UP
DEFAU1:	MOVEI	T1,.QORLS	;YES--FORCE /LIST AS DEFAULT
	SKIPGE	S.OPN
	MOVEM	T1,S.OPN
	SKIPL	S.DFR		;WAS /DEFER SPECIFIED?
	POPJ	P,		;YES, RETURN NOW
	MOVE	T1,S.OPN	;FETCH ACTUAL OPERATION		[1171]
	MOVE	T2,O.MODM	;GET INDICATOR OF OUTPUT	[1171]
	CAIE	T1,.QORMD	;SEE IF /MODIFY			[1171]
	CAIN	T1,.QORKL	;OR IF /KILL			[1171]
	SKIPA			;YES, SKIP
	JRST	DEFA1A		;NO, GO ON
	JUMPE	T2,E.SJN	;TYPE "JOB OR SEQ" ON LEFT...
	MOVX	T1,FX.NDV	;GET NULL DEVICE BIT
	TDNN	T1,O.MOD	;WAS IT SET?
	JRST	DEFA1A		;NO, HE SPECIFIED ONE, CONTINUE
	MOVS	T2,DQTYPE	;NO, GET DEFAULT QUEUE TYPE
	SKIPE	DQTYPE		;IS IT IS NULL,
	CAIN	T2,'LP '	; OR JUST  "LP"
	N$FATE	<NQS>,,<No queue specified in /KILL or /MODIFY>

DEFA1A:	PUSHJ	P,QUETYP	;IDENTIFY WHAT TYPE OF QUEUE
	MOVE	J,T1		;SAVE AWAY FOR EASY TESTS LATER
	MOVE	P1,I.INZR	;RESET TO START OF INPUT AREA
	ADDI	P1,I.LZER	;FORCE AT LEAST ONE REQUEST
	SKIPN	J		;SEE IF INPUT QUEUE
	ADDI	P1,I.LZER	;YES--THEREFORE, TWO ENTRIES USED
DEFAU2:	CAMG	P1,I.NXZR	;SEE IF NEED MORE THAN GOT
	JRST	DEFAU3		;NO--OK TO PROCEED
	PUSHJ	P,.CLRFL##	;CLEAR FXXX AREAS
	PUSHJ	P,APLSTK	;APPLY STICKY DEFAULTS
	PUSHJ	P,INFIL		;ALLOCATE SPACE
	PUSHJ	P,.GTSPC##	;COPY SPEC
	JRST	DEFAU2		;LOOP BACK TO SEE IF ENOUGH

DEFAU3:	MOVE	I,I.INZR	;START AT BEGINNING OF REQUESTS
	JUMPN	J,DEFAU4	;IF NOT INPUT QUEUE, WE ARE DONE
	CAMN	P1,I.NXZR	;IF INPUT, AND NOT /LIST, SEE IF GT 2 ENTRIES
	JRST	DEFAU4		;NO--OK TO PROCEED
	N$WARN	<OTE>,,<Input queue request uses only two entries>
	MOVEM	P1,I.NXZR	;CHANGE LIMIT TO AGREE
DEFAU4:	PUSHJ	P,CLRFIL	;CLEAR THE F AREA
	PUSHJ	P,CLRSTK	;CLEAR THE P AREAA
	MOVE	T1,[5,,[IOWD SWTCHL,SWTCHN
			SWTCHD,,SWTCHM
			0,,SWTCHP
			0
			2,,OSCNML]  ]
	MOVX	T2,'QUEUE '	;WHAT TO READ
	MOVEM	T2,OSCNML	;STORE IT
	MOVE	T2,COMIDX	;GET THE COMMAND INDEX
	MOVE	T2,QCOMS(T2)	;GET THE COMMAND
	MOVEM	T2,OSCNML+1	;AND SAVE FOR CALL
	MOVE	I,S.OPN		;GET OPERATION WORD
	CLEARM	CREFLG		;ASSUME IT'S CREATE
	CAIE	I,.QORMD	;IS IT MODIFY?
	CAIN	I,.QORKL	;OR KILL?
	  SOSA	CREFLG		;IT'S NOT CREATE!!
	PUSHJ	P,.OSCAN##	;LOOK AT OPTION FILE


IFN FTUUOS,<
	SETOM	PTHFCN		;SET TO READ DEFAULT
	MOVE	T1,[.PTMAX,,PTHFCN]
	PATH.	T1,		;  READ IT
	  SETZM	PTHPPN		;CAN'T--ASSUME DEFAULT
	SKIPN	PTHPPN		;SEE IF SET
	SETZM	PTHPPN+1	;NO--CLEAR SFDS
	MOVE	T1,.MYPPN##	;GET SELF
	SKIPN	PTHPPN		;SEE IF DEFAULT KNOWN
	MOVEM	T1,PTHPPN	;NO--THEN USE SELF
>  ;END IFN FTUUOS

IFN FTJSYS,<
	MOVE	T1,.MYPPN##	;GET MY PPN
	MOVEM	T1,PTHPPN	;SAVE IN PATH
	SETZM	PTHPPN+1	;CLEAR SFDS
>  ;END IFN FTJSYS

	MOVEI	T1,O.ZER	;SETUP ARGS FOR OSDFS
	MOVEI	T2,O.LZER	; "
	SKIPN	CREFLG		;IS IT CREATE?
	PUSHJ	P,.OSDFS##	;YES, DO SWITCH INI DEFAULTING

	CAIE	I,.QORLS	;SEE IF LISTING DEVICE
	JRST	OUDEF1		;NO--NOT A REAL DEVICE
	MOVSI	T1,'TTY'	;SET DEFAULT DEVICE
	SKIPN	P1,O.DEV	;YES--CHECK DEVICE CHARACTERISTICS
	MOVE	P1,T1		;NO DEVICE--USE DEFAULT
	MOVEM	P1,O.DEV	;SAVE FOR LATER
	MOVE	T1,O.MOD	;GET MOD WORD
	TXNE	T1,FX.PHY	;SEE IF PHYS I/O NEEDED
	DEVCHR	P1,UU.PHY	;YES--TRY IT
	TXNN	T1,FX.PHY	;SEE IF NOT
	DEVCHR	P1,		;NO--USE LOGICAL FROM THE MONITOR
	TXNN	P1,DV.OUT	;SEE IF CAPABLE OF OUTPUT
	JRST	E.NOD		;NO--TELL USER HE BLEW IT
	JRST	OUDEF2		;YES--PROCEED(WARNING--P1 USED BELOW)
OUDEF1:	SETZM	DQTYPE		;ONLY ONE TIME FOR PRINT TYPE COMMANDS
	MOVX	T1,FX.NDV	;CLEAR OUT
	ANDCAM	T1,O.MOD	; NULL DEVICE FLAG
	SKIPE	O.EXT		;SKIP IF EXTENSION IS ZERO
	N$FATE	<OEI>,,<Output Extension is Illegal>

OUDEF2:	CAIN	I,.QORLS	;SEE IF LISTING
	JRST	OUDF2A		;YES--SKIP ONWARD
	MOVE	T1,O.MOD	;GET OUTPUT FLAGS
	TXNE	T1,FX.DIR	;WAS A DIRECTORY SPECIFIED?
	JRST	OUDF2B		;YES, CONTINUE ON
	SETOM	O.DIRM		;NO, SET DIRECTORY MASK
	JRST	OUDF2A		;AND CONTINUE ON
OUDF2B:	MOVE	T1,.MYPPN##	;GET SELF
	MOVSI	T2,-1		;MASK LEFT HALF
	TDNN	T2,O.DIR	;SEE IF SET
	HRROS	O.DIRM		;NO--PUT ON MASK
	TDNN	T2,O.DIR	; ..
	HLLM	T1,O.DIR	;SET IN SELF PROJECT
	MOVEI	T2,-1		;MASK RIGHT HALF
	TDNN	T2,O.DIR	;SEE IF SET
	HLLOS	O.DIRM		;NO--PUT ON MASK
	TDNN	T2,O.DIR	; ..
	HRRM	T1,O.DIR	;SET IN SELF PROGRAMMER
	SKIPE	O.DIR+2		;CHECK FOR SFDS
	JRST	E.QSFD		;ILLEGAL IN QUEUE USER
	JRST	OUDEF4		;SKIP ON
OUDF2A:	SKIPN	O.NAM
	TXNN	P1,DV.DIR	;YES--SEE IF FILE NAME NEEDED(WARNING--P1 FROM ABOVE)
	JRST	OUDEF4		;NO--GO ON
	MSTIME	T1,		;YES--MANUFACTURE NAME HHMMSS
	IDIVI	T1,^D1000	;GET SECONDS
	MOVE	T4,[POINT 6,O.NAM]  ;SETUP BYTE POINTER
	MOVSI	T3,-6		;INITIALIZE LOOP COUNTER
OUDEF3:	IDIV	T1,[^D36000
		    ^D3600
		    ^D600
		    ^D60
		    ^D10
		    ^D1](T3)	;GET NEXT DIGIT
	ADDI	T1,'0'		;CONVERT TO SIXBIT DIGIT
	IDPB	T1,T4		;STORE INTO NAME
	MOVE	T1,T2		;RESTORE REMAINDER
	AOBJN	T3,OUDEF3	;LOOP
	N$INFO	<QLF>,<N>,<Queue listing on file>
	MOVE	T1,O.NAM	;GET NAME
	PUSHJ	P,.TSIXN
	MOVEI	T1,"."		;OUTPUT SEPARATOR		[1174]
	PUSHJ	P,.TCHAR##	; ..				[1174]
	HRLOI	T1,'LSQ'	;GET DEFAULT EXTENSION
	SKIPN	O.EXT		;ONE SPECIFIED?
	MOVEM	T1,O.EXT	;NO, USE THE DEFAULT
	HLLZ	T1,O.EXT	;GET EXTENSION			[1174]
	PUSHJ	P,.TSIXN##	;OUTPUT IT			[1174]
	PUSHJ	P,FINFO2	;CLOSE OFF THE MESSAGE
	SETOM	O.NAMM		;CLEAR MASK TO NO WILD-CARDS

OUDEF4:	SKIPE	CREFLG		;SEE IF MODIFY
	JRST	OUDEF5		;YES--WILD CARDS ARE LEGAL
	MOVE	T1,[O.LZER,,O.ZER] ;SETUP TO CALL .STOPN
	MOVEI	T2,L.OPEN	;OPEN BLOCK
	MOVE	T3,[LN$ENT,,L.LOOK]
	PUSHJ	P,.STOPN##	;CALL .STOPN
	  N$FATE <OWI>,,<Output Wildcards are Illegal>
	JRST	INDEF		;AND CONTINUE
OUDEF5:	SKIPGE	S.SEQ		;SEE IF /SEQ			[1173]
	SKIPE	O.NAM		;NO--SEE IF NAME		[1173]
	SKIPA			;YES--OK			[1173]
	N$FATE	<NSR>,,<Jobname or /SEQUENCE required>
;HERE TO SUPPLY INPUT SIDE DEFAULTS

INDEF:	MOVE	J,QTYPE		;GET QTYPE IN J
	MOVE	I,I.INZR	;INITIALIZE LOOP

;LOOP HERE TO DEFAULT NEXT INPUT FILE

INDEF1:	SKIPE	CREFLG		;SEE IF /MODIFY
	JRST	INDEFY		;YES--SKIP TO NAME TESTS
	MOVEI	T1,0(I)		;START SETTING UP TO CALL OSDFS
	MOVEI	T2,.FXLEN	;ADR AND LEN
	PUSHJ	P,.OSDFS##	;CALL IT
	MOVE	T1,F.MOD	;GET MOD WORD
	ANDCM	T1,I.MODM(I)	;TEST
	IORM	T1,I.MOD(I)	;AND SET
	MOVE	T1,F.MODM	;GET GET MOD WORD MASK
	IORM	T1,I.MODM(I)	;AND OR IT IN
	MOVE	T1,I.STRT(I)	;GET START PARAMETER
	CAMN	T1,[-1]		;SET?
	MOVE	T1,F.STRT	;NO, GET DEFAULT
	MOVEM	T1,I.STRT(I)	;STORE IT
	MOVE	T1,I.RPT(I)	;GET /REPORT
	MOVE	T2,I.RPT+1(I)	;AND SECOND HALF
	CAMN	T1,[-1]		;WAS IT SET?
	MOVE	T2,F.RPT+1	;NO, GET DEFAULT
	CAMN	T1,[-1]		;TEST AGAIN
	MOVE	T1,F.RPT	;AND GET FIRST HALF
	MOVEM	T1,I.RPT(I)	;STORE FIRST HALF
	MOVEM	T2,I.RPT+1(I)	;STORE SECOND HALF

	MOVSI	T1,'DSK'	;DEFAULT DEVICE
IFN FTUUOS,<
	CAME	I,I.INZR	;IS THIS THE FIRST SPEC?
	MOVE	T1,.FXDEV-I.LZER(I) ;NO, USE DEVICE FROM LAST SPEC
>  ;END IFN FTUUOS
	JUMPGE	J,INDF1A	;JUMP IF NOT /LIST
	MOVE	T1,DQTYPE	;GET DEFAULT QUEUE
	TLNN	T1,(77B17)	;IS IT FROM QUEUE COMMAND?
	SETZ	T1,		;YES--DEFAULT IS ALL:
INDF1A:	MOVX	T2,FX.NDV	;SEE IF
	TDNN	T2,.FXMOD(I)	;  NULL DEVICE
	SKIPN	.FXDEV(I)
	MOVEM	T1,.FXDEV(I)
	JUMPN	J,INDEFF	;IF NOT INPUT QUEUE, PROCEED
	SETOM	T1		;INPUT NOT /LIST, SO NO WILDCARDS
	CAME	T1,.FXNMM(I)	;TEST NAME WILD
	SKIPN	.FXNAM(I)	;YES--SEE IF NAME THERE
	JRST	.+2		;NO--THEN OK
	JRST	E.WCI		;YES--ILLEGAL
	MOVEI	T1,0		;CLEAR DEFAULT
	CAME	I,I.INZR	;IF NOT FIRST FILE,
	MOVE	T1,.FXNAM-I.LZER(I)  ;  DEFAULT TO PREVIOUS FILE
	SKIPN	T2,O.NAM	;GET JOB NAME
	MOVE	T2,T1		;IF NO JOB NAME, DEFAULT IS CTL FILE
	SKIPN	T1,.FXNAM(I)	;SEE IF NAME SUPPLIED
	MOVE	T1,T2		;NO--GET DEFAULT NAME
	JUMPE	T1,E.NNI	;ERROR IF NONE
	MOVEM	T1,.FXNAM(I)	;AND STORE RESULT
	SETOM	.FXNMM(I)	;REMOVE WILDCARD FROM NAME

INDEFF:	SKIPE	.FXNAM(I)	;DEFAULT FILE NAME
	JRST	INDEFX		;NO DEFAULT NEEDED
	CAME	I,I.INZR	;SEE IF FIRST FILE
	SKIPA	T1,.FXNAM-I.LZER(I)  ;NO--USE PREVIOUS FILE NAME
	MOVSI	T1,'*  '	;YES--SUPPLY WILD DEFAULT
	MOVEM	T1,.FXNAM(I)
	CAME	I,I.INZR	;SEE IF FIRST
	SKIPA	T1,.FXNMM-I.LZER(I)  ;NO--USE PREVIOUS MASK
	MOVEI	T1,0		;YES--USE WILD MASK
	MOVEM	T1,.FXNMM(I)	; ..
INDEFX:	SKIPE	.FXEXT(I)	;DEFAULT EXTENSION
	JRST	INDEFY		;NOT NEEDED
	MOVSI	T1,'*  '	;SET DEFAULT FOR /MODIFY
	SKIPE	CREFLG		;SEE IF /MODIFY
	JRST	INDEF2		;YES--GO STORE DEFAULT
	JUMPL	J,INDEFY
	MOVE	T1,INDFXT(J)	;GET EXTENSION
	CAMN	I,I.INZR	;SEE IF FIRST FILE
	JRST	INDFLG		;YES--PROCEED BELOW
	JUMPN	J,INDFLG	;IF SUBSEQUENT AND INPUT QUEUE,
	MOVSI	T1,'LOG'	;  CHANGE TO LOG
	MOVX	T2,X.NEW!X.LOG	;SET /NEW/LOG
	IORM	T2,I.MOD(I)	;  INTO REQUEST
INDFLG:	TRO	T1,-1		;SET MASK TO BELIEVE WHOLE EXT
INDEF2:	MOVEM	T1,.FXEXT(I)	;STORE IT
INDEFY:	SKIPE	CREFLG		;SEE IF /MODIFY
	JRST	INDEF3		;YES--SKIP TO DIRECTORY TESTS
	JUMPN	J,INDEF3	;IF NOT INPUT QUEUE, PROCEED
	SETCM	T1,.FXEXT(I)	;INPUT AND NOT /LIST--SEE IF
	TRNE	T1,-1		;  EXTENSION HAS WILDCARD
	JRST	E.WXI		;YES--ILLEGAL

INDEF3:	MOVX	T1,FX.DIR	;GET DIRECTORY BIT
	JUMPGE	J,INDFNL	;JUMP IF NOT /LIST
	SKIPE	.FXDIR+2(I)	;SEE IF LISTING SFDS
	JRST	E.LSFD		;YES--THAT'S WRONG
	SKIPN	T2,O.DIR	;GET OUTPUT DIRECTORY
	MOVE	T2,.MYPPN##	;OR LOGGED IN NUMBER
	TDNE	T1,.FXMOM(I)	;SEE IF DIRECTORY PRESENT
	JRST	INDFTU		;YES--GO SET USER'S DEFAULTS
	SETOM	.FXDIR(I)	;NO--SET FOR ALL USERS
	JRST	INDFNM		;AND INDICATE DIRECTORY SET
INDFNL:	SKIPE	T2,O.DIR	;ACTION REQUEST--SEE IF
	CAMN	T2,.MYPPN##	;  FOR SPECIFIC USER
	JRST	INDEFD		;NO--PROCEED
INDFTU:	MOVSI	T3,-1		;YES--USE HIM FOR DEFAULT
	TDNN	T3,.FXDIR(I)	;CHECK FOR PROJECT
	HRROS	.FXDIM(I)	;BLANK--SET IT
	TDNN	T3,.FXDIR(I)	; ..
	HLLM	T2,.FXDIR(I)	; TO QUEUED USER
	MOVEI	T3,-1		;CHECK FOR
	TDNN	T3,.FXDIR(I)	; PROGRAMMER NUMBER
	HLLOS	.FXDIM(I)	;BLANK--SET IT
	TDNN	T3,.FXDIR(I)	; ..
	HRRM	T2,.FXDIR(I)	; TO QUEUED USER
INDFNM:	IORM	T1,.FXMOD(I)	;INDICATE DIRECTORY
	IORM	T1,.FXMOM(I)	; SPECIFIED
INDEFD:	SKIPE	CREFLG		;SEE IF /MODIFY
	JRST	INDNOK		;YES--SKIP TO SWITCH TESTS
	JUMPN	J,INDEF4	;IF NOT INPUT QUEUE, PROCEED
	MOVE	T1,.FXDIR(I)	;GET DIRECTORY
	SETCM	T2,.FXDIM(I)	;AND COMPLEMENT OF MASK
	TLNN	T1,-1		;SEE IF PROJECT DEFAULT
	TLZ	T2,-1		;YES--CLEAR WILD-CARDS
	TRNN	T1,-1		;SEE IF PROGRAMMER DEFAULT
	TRZ	T2,-1		;YES--CLEAR WILD-CARDS
	JUMPN	T2,E.WDI	;ERROR IF WILD UFD
	SETOM	T1		;INPUT--CHECK FOR WILD DIRECTORY
	MOVEI	T2,2(I)		;SET POINTER TO SPEC
	HRLI	T2,1-.FXLND	;COUNT SFD DEPTH
INDFNN:	SKIPN	.FXDIR(T2)	;SEE IF SPECIFIED
	JRST	INDEF4		;NO--ALL DONE
	CAME	T1,.FXDIM(T2)	;SEE IF NOT WILD
	JRST	E.WDI		;ERROR IF SO
	ADDI	T2,1		;ADVANCE COUNT
	AOBJN	T2,INDFNN	;LOOP OVER SFD DEPTH
INDEF4:	MOVE	T1,INDADS	;ABSENT DEFAULTS FOR SWITCHES
	JUMPN	J,INDEFO	;JUMP IF NOT INPUT QUEUE
	CAME	I,I.INZR	;IF INPUT AND LOG FILE,
	MOVE	T1,INDADI	; USE SPECIAL SET
INDEFO:	ANDCM	T1,I.MODM(I)	;MASK TO ONLY THE NEEDED ONES
	IORB	T1,I.MOD(I)	;AND INCLUDE
	TXNN	T1,X.NEW	;SEE IF /NEW
	JRST	INDNOK		;NO--NULL EXT HACK OK
	MOVX	T2,FX.NUL	;YES--CLEAR NULL EXT
	ANDCAM	T2,.FXMOD(I)	; FLAG IN REQUEST

INDNOK:	LDB	T1,[POINTR (I.MOD(I),X.REMV)]	;GET /REMOVE SWITCH
	SKIPE	T1				;WAS IT SET?
	SKIPE	CREFLG				;YES, IS THIS /MOD?
	  SKIPA					;ALL IS OK
	N$FATE	<ROM>,,</REMOVE is legal on MODIFY requests only>
	LDB	T1,[POINTR (I.MOD(I),X.PAPR)]  ;GET /PAPER: SWITCH
	CAIN	J,QTPCDP	;IS IT THE CARD-PUNCH QUEUE?
	CAIE	T1,PUNCBCD	;YES, DID HE SAY /PUNCH:BCD
	  SKIPA			;NOT CDP OR NOT /PUN:BCD
	MOVEI	T1,PUNC026	;YES, BCD=026
	DPB	T1,[POINTR (I.MOD(I),X.PAPR)] ;AND STORE IT

	MOVEI	T1,AD.STR	;GET DEFAULT STARTING POINT
	SKIPE	CREFLG		;SEE IF /MODIFY
	MOVEI	T1,0		;YES--CLEAR DEFAULT
	MOVE	T2,I.STRT(I)	;GET SPECIFIED VALUE
	CAMN	T2,[-1]		;WAS IT SPECFIED?
	MOVEM	T1,I.STRT(I)	;NO--USE DEFAULT
	JUMPGE	J,INDEF7	;JUMP IF NOT /LIST

	SKIPE	N,.FXDEV(I)	;/LIST--GET QUE NAME
	PUSHJ	P,XPNQUE	;EXPAND ABBREVIATION
	MOVEM	N,.FXDEV(I)	;AND STORE RESULT

INDEF7:	ADDI	I,I.LZER	;ADVANCE POINTER
	CAMGE	I,I.NXZR	;SEE IF DONE YET
	JRST	INDEF1		;NO--LOOP BACK
;HERE TO SUPPLY DEFAULTS FOR GLOBAL SWITCHES

	SKIPE	CREFLG		;SEE IF /MODIFY
	JRST	SWDEF2		;YES--SKIP DEFAULT SWITCHES
	MOVSI	T1,-S.EMIN+S.MIN-1  ;INITIALIZE LOOP
SWDEF1:	MOVE	T2,SWDEFT(T1)	;GET DEFAULT
	MOVE	T3,S.MIN(T1)	;GET VALUE ENTERRED
	CAMN	T3,[-1]		;SEE IF ANYTHING TYPED
	MOVEM	T2,S.MIN(T1)	;YES--STUFF DEFAULT
	AOBJN	T1,SWDEF1	;LOOP BACK FOR MORE

	JUMPLE	J,SWDEF2	;JUMP IF /LIST OR INP:
	MOVE	T2,@SWLDT(J)	;GET ALTERNATE LIMIT VALUE
	SKIPG	S.LIM		;WAS /LIM SET?
	MOVEM	T2,S.LIM	;NO, SAVE ALTERNATE VALUE

SWDEF2:	SKIPGE	S.SEQ		;SEE IF SEQUENCE STILL NOT SET
	SETZM	S.SEQ		; RIGHT--SET IT FOR /MOD/KILL
	MOVE	T1,S.COR	;LOOK AT CORE SIZE
	JUMPLE	T1,SWDEF3	;IF DEFAULT, LEAVE ALONE
	CAIGE	T1,^D256	;SEE IF ALREADY IN WORDS
	LSH	T1,^D10		;NO--ADD K FACTOR
	MOVEM	T1,S.COR	;STORE RESULT

	SKIPN	DEFFIL+.FXDEV	;SEE IF /PATH
	JRST	SWDEF3		;NO--PROCEED
	SKIPN	DEFFIL+.FXNAM	;SEE IF /PATH:NAME
	SKIPL	DEFFIL+.FXMOD	; OR /PATH:DEV:
	....==FX.NDV
	JRST	E.PTHN		;ERROR IF SO
	SKIPE	DEFFIL+.FXEXT	; OR /PATH:.EXT
	JRST	E.PTHN		;ERROR IF SO
SWDEF3:	SKIPE	CREFLG		;SEE IF /MODIFY
	POPJ	P,		;YES--RETURN
	JUMPL	J,.POPJ		;GO PROCESS IF /LIST
	JUMPN	J,SWDEF4	;PROCEED IF NOT INPUT
	MOVX	T1,FX.DIR	;GET [] BIT
	TDNE	T1,DEFFIL+.FXMOM  ;SEE IF /PATH:[]
	JRST	SWDPTD		;YES--JUST CHECK NOT WILD
	MOVE	T2,.MYPPN##	;NO--GET SELF
	SKIPN	O.DIR+2		;SEE IF NOT OUTPUT SFD
	CAME	T2,O.DIR	;SEE IF MATCHES OUTPUT P,PN
	TDNN	T1,O.MODM	;OR NO OUTPUT P,PN
	JRST	SWDPTS		;RIGHT--USE DEFAULT DIRECTORY
	MOVE	T1,[O.DIR,,DEFDIR] ;NO--COPY
	BLT	T1,DEFDIR+2*.FXLND-1  ;OUTPUT DIRECTORY
	JRST	SWDPTD		;THEN CHECK FOR NO WILD-CARDS
SWDPTS:	MOVSI	T2,-.FXLND	;GET LOOP COUNT
	MOVEI	T3,0		;AND STORE INDEX
SWDPTL:	SKIPN	T1,PTHPPN(T2)	;GET DEFAULT PATH
	SOS	T2		;DEFEAT ADVANCE IF DONE
	MOVEM	T1,DEFDIR(T3)	;STORE IN /PATH
	SETOM	DEFDIR+1(T3)	;CLEAR WILDCARDS
	ADDI	T3,2		;ADVANCE STORE
	AOBJN	T2,SWDPTL	;LOOP UNTIL DONE
SWDPTD:	MOVE	T1,DEFDIR	;GET UFD
	SKIPN	T2,O.DIR	;GET OUTPUT DIRECTORY
	MOVE	T2,.MYPPN##	;DEFAULT TO LOGGED IN DIRECTORY
	TLNN	T1,-1		;SEE IF PROGRAMMER
	HLL	T1,T2		;NO--DEFAULT
	TRNN	T1,-1		;SEE IF PROGRAMMER
	HRR	T1,T2		;NO--DEFAULT
	MOVEM	T1,DEFDIR	;STORE AWAY
	MOVSI	T2,-.FXLND	;SET LOOP COUNT
SWDPTM:	SKIPN	DEFDIR(T2)	;SEE IF NEXT LEVEL SPECIFIED
	JRST	SWDEF4		;NO--ALL OK
	SETCM	T1,DEFDIR+1(T2)	;GET COMPLEMENT OF WILD MASK
	JUMPN	T1,E.PTHW	;ERROR IF WASN'T -1
	ADDI	T2,1		;ADVANCE BY 2
	AOBJN	T2,SWDPTM	;LOOP OVER FULL DEPTH

SWDEF4:	MOVE	I,I.INZR	;DEFAULT JOB NAME IS FIRST FILE NAME
	CAIN	J,0		;UNLESS INPUT QUEUE
	ADDI	I,I.LZER	;FOR WHICH IT IS LOG FILE
	SETCM	T1,.FXNMM(I)	;SEE IF WILDCARD IN FILE
	JUMPN	T1,.POPJ	;YES--JUST PROCESS
	MOVE	T1,.FXNAM(I)	;NO--GET FILE NAME IN CASE
	SKIPN	O.NAM		;SEE IF OUTPUT NAME YET
	MOVEM	T1,O.NAM	;NO--SET THIS ONE
	POPJ	P,		;RETURN
INDADS:	BYTE (6)AD.NHD(12)0(3)SPACSI,0,0,0(6) AD.COP ;DEF. FILE SWITCHES
INDADI:	BYTE (3)1 (3)AD.NHD (12)0 (3) SPACSI,0,FILEAS,AD.LFD (6)AD.COP  ;INPUT QUEUE LOG FILE

;DEFINITION OF SWITCH ACCUMULATION AREA AND DEFAULT VALUES
;
;EACH ENTRY IN QSM MACRO IS:
;	SMX	SWITCH-LOCATION,DEFAULT

DEFINE QSM,<
	SMX	S.AFT,0
	SMX	S.ALLF,0
	SMX	S.CNO,0
	SMX	S.COR,0
	SMX	S.DED,0
	SMX	S.DFR,0
	SMX	S.DPN,0
	SMX	S.FRM,0
	SMX	S.LCDP,0
	SMX	S.LIBM,0
	SMX	S.LJOB,0
	SMX	S.LIM,0
	SMX	S.LIST,-1
	SMX	S.LLPT,0
	SMX	S.LPLT,0
	SMX	S.LPTP,0
	SMX	S.LTIM,0
	SMX	S.NOT1,0
	SMX	S.NOT2,0
	SMX	S.NULL,0
	SMX	S.OPN,0
	SMX	S.OUT,0
	SMX	S.PRI,0
	SMX	S.RSTR,AD.RST
	SMX	S.SEQ,0
	SMX	S.UNIQ,AD.UNI
	SMX	S.USER,-1
>  ;END DEFINE QSM

	S.LINP==0		;DUMMY

	S.NOT==S.NOT1
;FIRST DEFINE THE TABLE OF DEFAULTS

DEFINE SMX(A,B),<
	XLIST
	EXP	B
	LIST
	SALL
>

SWDEFT:	QSM


;NOW DEFINE THE ACCUMULATION TABLE

DEFINE SMX(A,B,C),<
	XLIST
A:	BLOCK	1
	LIST
	SALL
>

	SWSEG				;SWITCH TO LOWSEG
S.MIN:!
	QSM
	S.EMIN==.-1
	SWSEG				;SWITCH BACK TO HISEG
	XALL

;DEFAULT EXTENSIONS FOR QUEUES
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	SIXBIT	/B/
>
INDFXT:	QUEUES

;LOCATIONS OF INDIVIDUAL QUEUE LIMITS
DEFINE QQ(A,B,C,D,E,F,G,H),<
	EXP	S.L'A
>
SWLDT:	QUEUES

	SALL
;FILE SCANNING ERRORS

E.NOD:	MOVE	N,O.DEV
	N$FATE	<CDO>,<N>,<Can not do output to device>
E.NDD:	MOVE	N,.FXDEV(I)
	N$FATE	<DND>,<N>,<Input device not a disk>
E.WCI:	MOVE	N,.FXNAM(I)
	N$FATE	<WIQ>,<N>,<Wildcard illegal in input queue file name>
E.WDI:	N$FATE	<WDI>,,<Wildcard illegal in input queue file directory>
E.WXI:	HLLZ	N,.FXEXT(I)
	N$FATE	<WIE>,<N>,<Wildcard illegal in input queue file extension>
E.NNI:	N$FATE	<FRI>,,<Filename required for input queue>
E.QSFD:	N$FATE	<UCI>,,<Queue user cannot include SFDs>
E.LSFD:	N$FATE	<LQU>,,<Listed queue user cannot include SFDs>
E.PTHN:	N$FATE	<FNI>,,<File name illegal in default path>
E.PTHW:	N$FATE	<WID>,,<Wildcard illegal in default path>

E.SJN:	N$FATE	<SJN>,,<Specify jobname left of equal sign>

E.NSD:	MOVE	N,.FXDEV(I)
	N$FATE	<NSD>,<N>,<Input device does not exist>


E.WIN:	N$FATE	<WIN>,,<Wildcards illegal with /NEW>
SUBTTL	COMMAND PROCESSING

;COMAND -- SUBROUTINE TO PROCESS COMMAND
;USES EVERYTHING

;HERE AFTER COMMAND HAS BEEN DECODED AND ALL DEFAULTS SUPPLIED
;DISPATCH TO APPROPRIATE COMMAND PROCESSOR

COMAND:	SKIPLE	I,S.OPN		;FETCH OPERATION CODE, CHECK FOR LEGAL
	CAILE	I,LCDT		;CHECK FOR VALIDITY
	JRST	E.ICMD		;NO--BOMB THE USER
	MOVE	T1,DQTYPE	;GET COMMAND-DEVICE
	MOVEM	T1,COMDEV	;AND SAVE FOR LATER
	SETZM	T.ZER		;ZERO OUT TEMPORARIES
	MOVE	T1,[T.ZER,,T.ZER+1]  ; ..
	BLT	T1,T.EZER	; ..
	MOVE	Q,.JBFF		;SETUP POINTER TO QUEUE AREA
	GCORE	Q.ILEN		;GRAB MINIMAL AREA AT FIRST
	SETZM	(Q)		;ZERO OUT QUEUE COMMAND AREA
	HRLZI	T1,(Q)		; ..
	HRRI	T1,1(Q)		; ..
	BLT	T1,Q.ILEN-1(Q)	; ..
	MOVE	T1,CDTAB-1(I)	;GET ADDRESS AND CONTROL BITS
	SKIPLE	S.DFR		;WAS /DEFER SPECIFIED?
	HRRI	T1,DEFER	;YES, DISPATCH TO DEFER ROUTINE
	TLNE	T1,(NNLGSB)	;SEE IF ERROR AS SUBJOB		[1177]
	TLNN	F,L.NSBJ	;NO--SEE IF TOP IS LOGGED IN	[1177]
	SKIPA			;YES--LEAVE ALONE		[1177]
	TLO	T1,(NNLGI)	;NO--INDICATE ERROR		[1177]
	TLNN	F,L.LOGI	  ;SEE IF LOGGED IN
	TLNN	T1,(NNLGI)	;NO--SEE IF LEGAL IF NOT
	JRST	(T1)		;YES--GO DO IT
	MOVE	N,CMDTAB-1(I)	;ILLEGAL--ABORT
	N$FATE	<LFS>,<N>,<LOGIN please to use switch>


;TABLE OF DISPATCH ADDRESSES FOR VARIOUS COMMANDS
NNLGI==1B1		;NOT LEGAL UNLESS LOGGED IN
NNLGSB==1B2		;NOT LEGAL UNLESS LOGGED IN AT TOP LEVEL	[1177]

CDTAB:
	EXP	CREATE+NNLGI		;1=CREATE ENTRY
	EXP	0			;2 WAS /DEFER
	EXP	0			;3 WAS /ZDEFER
	EXP	LIST			;4=LIST QUEUE
	EXP	MODIFY+NNLGSB		;5=MODIFY EXISTING ENTRY	[1177]
	EXP	KILL+NNLGSB		;6=KILL EXISTING ENTRY	[1177]
LCDT==.-CDTAB
;HERE ON IMPROPER DISPATCH CODE

E.ICMD:	HRRZ	N,I
	N$FATE	<ICC>,<D>,<Improper command code>


CMDTAB:	SIXBIT	/CREATE/
	EXP	0,0
	SIXBIT	/LIST/
	SIXBIT	/MODIFY/
	SIXBIT	/KILL/
SUBTTL	Command Processing  --  DEFER

;/DEFER IS A GALAXY-10 FEATURE WHICH ALLOWS A USER TO MANIPULATE 
;	DEFER'ED SPOOLING REQUESTS.  TWO FUNCTIONS CURRENTLY EXIST:
;		/CREATE/DEFER  --  RELEASES REQUESTS TO THE 
;					PROPER QUEUES
;		/KILL/DEFER    --  KILLS REQUESTS

DEFER:	MOVE	T2,S.OPN		;GET THE OPERATION SPECIFIED
	SETZ	T1,			;CLEAR T1
	CAIN	T2,.QORCR		;/CREATE?
	MOVEI	T1,.QORDF		;YES, PASS DEFER FUNCTION
	CAIN	T2,.QORKL		;/KILL?
	MOVEI	T1,.QORZD		;PASS /ZDEFER
	SKIPN	T1			;MUST BE ONE OR THE OTHER
	N$FATE	<DMI>,,</DEFER request must include /CREATE or /KILL>
	MOVEM	T1,Q.OPR(Q)		;AND STORE IN Q.OPR
	SKIPE	N,O.DEV			;DID HE TYPE A DEVICE?
	PUSHJ	P,XPNQUE		;YES, EXPAND IT
	MOVEM	N,O.DEV			;AND STORE IT BACK
	MOVS	T1,COMDEV		;GET COMMAND-DEVICE
	CAIN	T1,'LP '		;DID HE SAY .QUEUE?
	SETZM	COMDEV			;YES, NO SPECIAL DEVICE
	SKIPN	T1,O.DEV		;GET SPECIFIED DEVICE
	MOVE	T1,COMDEV		;NONE THERE, USE COMMAND-DEVICE
	MOVEM	T1,Q.DEV(Q)		;SAVE DEVICE IN Q.DEV
	MOVEI	T1,0(Q)			;GET ADDRESS FOR QMANGR
	HRLI	T1,Q.ILEN		;AND LENGTH
	PJRST	.QUEER##		;AND DO IT
SUBTTL	COMMAND PROCESSING -- LIST

;HERE TO LIST SOME CROSS-SECTION OF THE QUEUES

LIST:	MOVE	I,I.INZR	;START WITH FIRST REQUEST
	MOVSI	T1,B.LC		;POINT TO BUFFER HEADERS
	MOVEM	T1,L.OPEN+2	;STORE IN OPEN BLOCK
	MOVEI	T1,LN$ENT-1	;SET LENGTH OF BLOCK
	IORM	T1,L.LOOK	;  INTO LOOKUP BLOCK
	MOVS	T1,L.OPEN+1	;GET OUTPUT DEVICE
	CAIE	T1,'TTY'	;IF TTY:
	TLNE	F,L.LOGI	; OR LOGGED IN,
	JRST	LIST1		;THEN OK TO LIST
	TLNE	F,L.NSBJ	;ARE WE LOGGED IN AT TOP LEVEL?
	N$FATE	<LTL>,<N>,<LOGIN to list on device>

LIST1:	MOVE	N,O.DEV		;GET DEVNAME IN CASE THIS FAILS
	OPEN	LC,L.OPEN	;INIT THE DEVICE
	  N$FATE <LOF>,<N>,<Listing OPEN failure on device>
	SKIPN	T1,O.NAM	;GET FILE NAME FOR ENTER
	JRST	LISTST		;GO TO WORK IF NO ENTER NEEDED

	ENTER	LC,L.LOOK	;ENTER FILE
	  JRST	E.OEFE		;ERROR

LISTST:	MOVE	T1,O.DEV	;GET OUTPUT DEVICE
	MOVE	T2,[DEVCHR T1,]  ;GET UUO
	MOVX	T3,FX.PHY	;GET /PHYS BIT
	TDNE	T3,O.MOD	;OR ASKED FOR
	TXO	T2,UU.PHY	;YES--SET BIT
	XCT	T2		;DO THE UUO
	TXNE	T1,DV.TTY	;SEE IF LINE MODE OUTPUT DEVICE
	TRO	F,R.OUTL	;YES--SET FLAG TO FORCE OUT EACH LINE
	OUTBUF	LC,0		;ALLOCATE BUFFERS BEFORE QMANGR MANGLES FREE CORE
	SETZM	LSTZER		;CLEAR OUT THE TEMPS
	MOVE	T1,[LSTZER,,LSTZER+1] ; USED BY THE LISTING ROUTINE
	BLT	T1,LSTEZR-1	; ..
	HLLZ	T1,.FXDEV(I)	;GET GENERIC QUEUE
	MOVEM	T1,ONEQUE	;SAVE FOR TOTALS TEST
;HERE TO PROCESS ONE INPUT REQUEST

LISTL:	CAML	I,I.NXZR	;SEE IF WE ARE DONE YET
	JRST	LISTE		;YES--CLOSE LISTING FILE
	MOVE	T1,[LISTR,,.QORLS]	;SET QUEUE REQUEST TO LIST
	MOVEM	T1,Q.OPR(Q)	; ..
	MOVE	T2,S.LIST	;GET LISTING TYPE
	CAIE	T2,LISTCHECK	;DOES HE WANT A LIST OF HIS JOBS?
	JRST	LISTL1		;NO, CONTINUE

IFN FTUUOS,<
	GETPPN	T1,		;GET PPN INTO T1
	  JFCL			;IGNORE THIS
	SETOM	.FXDIM(I)	;SET THE MASK
>  ;END IFN FTUUOS
IFN FTJSYS,<
	GJINF			;GET JOB INFO
	MOVEI	T2,-1		;GET A MASK
	MOVEM	T2,.FXDIM(I)	;AND SET IT
>  ;END IFN FTJSYS
	MOVEM	T1,.FXDIR(I)	;SAVE IT
LISTL1:	HLLZ	T1,.FXDEV(I)	;SETUP REQUESTED QUEUE
	CAMN	T1,QUENMA	;SEE IF ALLXXX:
	MOVEI	T1,0		;YES--SET TO NULL FOR QMANGR
	MOVEM	T1,Q.DEV(Q)	; ..
	CAME	T1,ONEQUE	;OR DIFFERENT FROM LAST ONE
	SETZM	ONEQUE		;YES--INDICATE MULT QUEUES
	MOVE	T1,.FXDEV(I)	;GET DEVICE
	HRRZM	T1,LSTA		;SAVE FOR LISTER
	HRLZI	T1,Q.ILEN	;SETUP POINTER
	HRRI	T1,(Q)		; FOR QMANGR
	MOVEM	F,SAVEF		;SAVE FLAGS FOR LISTR
	MOVEM	I,SAVEI		;SAVE INDEX FOR LISTR
	MOVEM	Q,SAVEQ		;SAVE QUEUE POINTER FOR LISTR
	PUSHJ	P,.QUEER##	;GO OFF TO QMANGR
	ADDI	I,I.LZER	;ADVANCE TO NEXT REQUEST
	JRST	LISTL		;LOOP BACK TO PROCESS
;HERE AT END OF QUEUE LISTING

LISTE:	PUSHJ	P,LCRLF		;TYPE A CRLF
	SKIPN	LISPDF		;NO * TYPED?
	JRST	LISTE0		;YES--DO NOT INCLUDE FOOTNOTE
	MOVEI	M,[ASCIZ /* Job being output now
/]
	PUSHJ	P,LSTR		;LIST THAT MESSAGE
LISTE0:	SKIPN	LISWFS		;NO # TYPED?
	JRST	LISTE1		;YES--DO NOT INCLUDE FOOTNOTE
	MOVEI	M,[ASCIZ /# Job waiting for file-str to be mounted
/]
	PUSHJ	P,LSTR		;AND TYPE IT
LISTE1:	MOVEI	M,[ASCIZ /The queues are empty
/]
	SKIPE	ONEQUE		;SEE IF ALL:
	MOVEI	M,[ASCIZ /The queue is empty
/]
	SKIPN	LSTANY		;ANYTHING IN THE QUEUES?
	JRST	[PUSHJ P,LSTR	;NO--LIST THE LINE
		 JRST  LISTEX]	; AND CLOSE THE FILE.
	MOVE	T2,S.LIST	;GET LIST MODE
	CAIN	T2,LISTFAST	;FAST MODE?
	JRST	LISTEX		;YES--ALL DONE.
	MOVEI	M,[ASCIZ /
TOTALS:/]
	SKIPE	ONEQUE		;SEE IF ALL:
	MOVEI	M,[ASCIZ /
TOTAL:/]
	SKIPN	LSTTJL		;ANY JOBS AT ALL LISTED?
	MOVEI	M,[ASCIZ /
No jobs match specification
/]
	PUSHJ	P,LSTR		;LIST THAT STUFF
	MOVSI	J,-NUMQS	;MAKE A AOBJN POINTER

;LOOP TO LIST TOTALS

LISTE2:	MOVE	T1,LSJOBN(J)	;GET THE NUMBER OF JOBS
	JUMPLE	T1,LISTE3	;JUMP IF QUEUE EMPTY
	MOVEI	C,.CHTAB	;LOAD A TAB
	PUSHJ	P,LCHR		;AND LIST IT
	MOVE	T2,QUENMT(J)	;GET THE NAME OF THE QUEUE
	PUSHJ	P,LSIXN		;LIST THE NAME
	MOVEI	C,":"		;GET A BREAK
	PUSHJ	P,LCHR		;AND LIST THAT
	PUSHJ	P,LSPC		;LIST A SPACE
	MOVE	T1,LSJOBN(J)	;GET THE NUMBER OF JOBS IN THE QUEUE
	PUSHJ	P,LDEC3		; AND TELL THE USER HOW MANY EXIST.
	MOVEI	M,[ASCIZ / job/] ;TELL THE USER THE UNITS
	PUSHJ	P,LSTR		;OF THE LAST NUMBER
	MOVEI	C,"s"		;LOAD AN S
	SOSE	LSJOBN(J)	;ONLY 1 JOB?
	PUSHJ	P,LCHR		;NO--ADD THE S
	MOVEI	M,[ASCIZ /;  /]	;SEPERATE THE TWO PARTS
	PUSHJ	P,LSTR		; ..
	MOVE	T1,LSTOTL(J)	;GET THE TOTAL UNITS
	XCT	LSTXCT(J)	;LIST IN CORRECT FORMAT
	PUSHJ	P,LSPC		;PUT IN A SPACE
	MOVE	M,LSTLIM(J)	;GET THE UNITS
	SOSN	LSTOTL(J)	;SEE IF JUST ONE
	MOVE	M,LSTLIS(J)	;YES--USE SINGLE WORD
	PUSHJ	P,LSTR		;TYPE THEM OUT
	PUSHJ	P,LCRLF		;LIST A CRLF
LISTE3:	AOBJN	J,LISTE2	;LOOP FOR ALL THAT EXIST

LISTEX:	CLOSE	LC,		;CLOSE OUTPUT
	STATZ	LC,IO.ERR	;CHECK FOR ERRORS
	PUSHJ	P,LCHRWR	;YES--GO ISSUE MESSAGE
	RELEASE	LC,		;RELEASE DEVICE
	POPJ	P,		;AND RETURN
;HERE FROM QMANGR TO LIST EACH ENTRY IN QUEUE
;MUST PRESERVE ALL ACS EXCEPT T1-4
;ENTRY IS IN Q.XXX AREA

			;SWITCH TO LOW SEGMENT
	SWSEG

LISTR:	PUSH	P,M		;% ..
	PUSH	P,C		;% ..
	PUSH	P,I		;% ..
	PUSH	P,J		;% ..
	PUSH	P,Q		;% ..
	PUSH	P,F		;% ..
	PUSH	P,P1		;% ..
	MOVE	I,SAVEI		;%RESTORE INDEX TO INPUT REQUEST
	MOVE	Q,SAVEQ		;%RESTORE POINTER TO QUEUE AREA
	MOVE	F,SAVEF		;%RESTORE FLAGS
	MOVE	P1,S.LIST	;%GET LISTING TYPE

	PUSHJ	P,LISTRC	;%GO SEE IF LISTABLE AND LIST IT

	POP	P,P1		;%RESTORE ACS
	POP	P,F		;% ..
	POP	P,Q		;% ..
	POP	P,J		;% ..
	POP	P,I		;% ..
	POP	P,C		;% ..
	POP	P,M		;% ..
	POPJ	P,		;%RETURN TO QMANGR FOR NEXT ENTRY
;HERE FROM ABOVE WHAN ACS ARE SETUP AND PRESERVED

LISTRC:	SKIPE	T1,LSTA		;%SEE IF SPECIAL QUEUE
	HRRZ	T1,Q.DEV(Q)	;%YES--GET QUEUE
	CAME	T1,LSTA		;% AND COMPARE FOR MATCH
	POPJ	P,		;%REJECT UNSUITABLE ONES
	SETOM	LSTANY		;%FLAG THE QUEUE IS NOT EMPTY
	LDB	T1,[POINT 12,Q.DEV(Q),11] ;%GET FIRST 2 CHARS OF DEVICE
	CAIE	T1,'LL'		;%IS LL
	CAIN	T1,'LU'		;% OR LU?
	MOVEI	T1,'LP'		;%YES, USE LP
	MOVSI	J,-NUMQS	;%MAKE AN AOBJN POINTER
	CAME	T1,LSTNMS(J)	;%IS THIS THE DESIRED QUEUE?
	AOBJN	J,.-1		;%NO--KEEP LOOKING
	JUMPGE	J,LPOPJ		;%GIVE UP IF ILLEGAL QUEUE
	HRRZ	J,J		;%GET RID OF -VE LEFT HALF
	MOVE	T1,.FXNAM(I)	;%CHECK TO SEE IF WE WANT TO LIST THIS
	XOR	T1,Q.JOB(Q)	;% JOB
	MOVE	T2,.FXDIR(I)	;% ..
	XOR	T2,Q.PPN(Q)	;% ..
	TDNN	T1,.FXNMM(I)	;% ..
	TDNE	T2,.FXDIM(I)	;% ..
	POPJ	P,		;%NOT A MATCH--RETURN
	SKIPLE	T1,S.SEQ	;%SEE IF /SEQUENCE
	CAMN	T1,Q.SEQ(Q)	;%YES--TEST THIS ENTRY
	SKIPA			;%OK
	POPJ	P,		;%FAIL--GIVE UP
	HRRZ	T1,Q.ILIM(Q)	;%ASSUME INP:
	SKIPE	J		;%ARE WE RIGHT?
	HLRZ	T1,Q.OSIZ(Q)	;%NO--GET OUTPUT LIMIT
	ADDM	T1,LSTOTL(J)	;%ADD IN TO TOTAL
	AOS	LSJOBN(J)	;%COUNT AS A JOB
	AOS	LSTTJL		;%ONE MORE LISTED
	CAIN	P1,LISTSUM	;%/LIST:SUMMARY?
	POPJ	P,		;%YES, JUST RETURN
	SETOM	LSTSTR		;%ASSUME THERE IS A STRUCTURE
IFN FTUUOS,<
	MOVE	T1,Q.MEM(Q)	;%GET THE STRUCTURE
	MOVEM	T1,LDEV.A	;%STORE IN DSKCHR BLOCK
	MOVE	T1,[5,,LDEV.A]	;%POINT TO ARG BLOCK
	DSKCHR	T1,UU.PHY	;%DO THE DSKCHR
	  SETZM	LSTSTR		;%FAILED, OFF-LINE
	LDB	T2,[POINTR(T1,DC.TYP)]	;%GET TYPE OF ARGUMENT
	CAIN	T2,.DCTDS	;%WAS IT A FILE-STRUCTURE?
	SETZM	LSTSTR		;%NO, SO ITS NOT ON-LINE
	TXNE	T1,DC.OFL!DC.SAF!DC.NNA
				;%CHECK FOR "NOT"
				; OFFLINE - SINGLE ACCESS - NO NEW ACCESS
	SETZM	LSTSTR		;%NOT THERE!!
>  ;END IFN FTUUOS

IFN FTJSYS,<
	MOVE	T1,[POINT 6,Q.MEM(Q)]
	MOVE	T2,[POINT 7,LDEV.B]
	SETZM	LDEV.B		;%CLEAR FIRST WORD OF STR NAME
	SETZM	LDEV.B+1	;%AND SECOND WORD
LISTR1:	ILDB	T3,T1		;%GET A CHARACTER
	JUMPE	T3,LISTR2	;%NULL MEANS DONE
	ADDI	T3,"A"-'A'	;%CONVERT TO ASCII
	IDPB	T3,T2		;%STORE IT
	TLNE	T1,770000	;%DONE 6 YET?
	JRST	LISTR1		;%NO, LOOP
LISTR2:	HRROI	T1,LDEV.B	;%POINT TO STRUCTURE NAME
	MOVEM	T1,LDEV.A	;%STORE IT
	MOVE	T1,[5,,.MSGSS]	;%GET LEN,,FUNC
	MOVEI	T2,LDEV.A	;%POINT TO BLOCK
	MSTR			;%GET STRUCTURE STATUS
	ERJMP	.+3		;%SET FLAG IF FAILED
	MOVE	T1,LDEV.A+1	;%GET THE STATUS
	TXNE	T1,MS%DIS	;%IS IT BEING DISMOUNTED?
	SETZM	LSTSTR		;%FLAG NO STRUCTURE
>  ;END IFN FTJSYS
	JUMPN	J,LISOUT	;%JUMP IF OUTPUT QUEUE
	JRST	LISTIN		;%GO DO THE INPUT QUEUE

LDEV.A:	BLOCK	5		;%BLOCK FOR DSKCHR AND MSTR
LDEV.B:	BLOCK	2		;%BLOCK FOR ASCII STR NAME
;HERE TO LIST AN INPUT QUEUE ENTRY

LISTIN:	CAIN	P1,LISTFAST	;%FAST MODE?
	JRST	LISNIT		;%YES--THEN NO TITLE
	MOVEI	M,INPTTL	;%YES, USE OTHER TITLE LINE
	SKIPN	LSITTF		;%TITLE PRINTED?
	PUSHJ	P,LSTR		;%NO--GO PRINT
	SETOM	LSITTF		;%IT IS NOW
LISNIT:	SETZ	T2,		;%START WITH BLANK
	MOVEI	T3,3		;%3 CHARS
	SKIPE	Q.PDEV(Q)	;%ANY PROCESSING DEVICE?
	MOVSI	T2,'RUN'	;%YES, IT'S RUNNING
	SKIPE	Q.AFTR(Q)	;%AN AFTER PARAMETER?
	MOVSI	T2,'AFT'	;%GIVE AFTER STATUS
	SKIPN	LSTSTR		;%DOES STRUCTURE EXIST?
	MOVSI	T2,'STR'	;%NO, FLAG AS WAITING
	HRRZ	T1,Q.IDEP(Q)	;%GET DEP PARAMETER
	SKIPE	T1		;%ANY DEPEND?
	MOVSI	T2,'DEP'	;%YES, MARK IT
	CAIN	P1,LISTFAST	;%SKIP IF NOT FAST MODE
	JRST	[MOVEI T3,7	;%SIX CHARACTERS AND A SPACE
		 HLRZS  T2	;%GET 0,,STATUS
		 HRLI  T2,'IN ' ;%ADD THE "IN "
		 JRST  .+1]	;%AND CONTINUE
	PUSHJ	P,LSIXC		;%GO LIST			[1205]
	PUSHJ	P,LISTSD	;%LIST THE COMMON PART
	HRRZ	T1,Q.ILIM(Q)	;%GET THE RUN TIME
	PUSHJ	P,LTIME		;%LIST AS HH:MM:SS
	PUSHJ	P,LSPC		;%FOLLOWED BY 1 SPACE
IFN INPCOR,<
	HLRZ	T1,Q.ILIM(Q)	;%GET THE CORE
	ADDI	T1,1777		;%ROUND UP
	LSH	T1,-12		;%CONVERT FROM WORDS TO K
	PUSHJ	P,LDEC3		;%LIST THE CORE
	PUSHJ	P,LSPC		;%GIVE A SPACE
>  ;END IFN INPCOR
	PUSHJ	P,LSPC		;%GIVE ANOTHER ONE
	PUSHJ	P,LSTUSR	;%LIST THE USER NAME
	CAIN	P1,LISTFAST	;%SKIP IF NOT FAST MODE
	PJRST	LCRLF		;%ELSE GIVE A CRLF AND RETURN

	SETO	T4,		;%CRLF FLAG
	HRRE	T1,Q.IDEP(Q)	;%GET DEPENDENCY
	JUMPE	T1,LISSTR	;%DONE IF ZERO
	AOSN	T4		;%NEED A CRLF?
	PUSHJ	P,LCRLF		;%GIVE A CRLF
	MOVEI	M,[ASCIZ /	Dep=/]
	PUSHJ	P,LSTR		;%LIST THE HEADER
	PUSHJ	P,LDEC		;%LIST THE DECIMAL SWITCH
	JRST	LISSTR		;%AND LIST STRUCTURE IF NECESSARY
;HERE TO LIST AN OUTPUT QUEUE

LISOUT:	CAIN	P1,LISTFAST	;%SKIP IF NO FAST LIST
	JRST	LISNOT		;%SLOW LIST GIVE OUTPUT TITLES
	MOVEI	M,OUTTTL	;%POINT TO TITLE
	SKIPN	LSOTTF		;%SKIP IF TITLE GIVEN
	PUSHJ	P,LSTR		;%NO--GIVE THE TITLE
	SETOM	LSOTTF		;%FLAG AS GIVEN
LISNOT:	SKIPN	T2,Q.PDEV(Q)	;%SKIP IF "ON DEVICE"
	JRST	LRMTDV		;%NO--LIST THE QUEUE NAME
	MOVEI	T3,6		;%YES--WE WANT ALL 6 CHARS
	PUSHJ	P,LSIXC		;%LIST THEM			[1205]
	MOVEI	C,"*"		;%GIVE A FOOTNOTE
	PUSHJ	P,LCHR		;% ..
	SETOM	LISPDF		;%FLAG FOOTNOTE NEEDED
LISTOS:	PUSHJ	P,LISTSD	;%LIST THE STANDARD STUFF
	HLRZ	T1,Q.OSIZ(Q)	;%GET THE LIMIT
	PUSHJ	P,LDEC5		;%LIST IT OUT
	PUSHJ	P,LSPC2		;%ADD A SPACE
	PUSHJ	P,LSTUSR	;%LIST THE USER NAME
	CAIN	P1,LISTFAST	;%FAST MODE?
	PJRST	LCRLF		;%YES--NO SECOND LINE EVER
	SETO	T4,		;%SET CRLF FLAG
	SKIPN	T2,Q.OFRM(Q)	;%ANY FORMS SWITCH
	JRST	LISTNT		;%NO--LOOK FOR NOTE
	AOSN	T4		;%YES, NEED A CRLF?
	PUSHJ	P,LCRLF		;%YES, TYPE IT
	MOVEI	M,[ASCIZ /	FORMS=/]
	PUSHJ	P,LSTR		;%LIST HEADER
	PUSHJ	P,LSIXN		;%LIST FORMS
LISTNT:	SKIPN	T2,Q.ONOT(Q)	;%ANY NOTE SWITCH?
	JRST	LISSTR		;%NO--DONE, CHECK FOR STR
	AOSN	T4		;%YES NEED A CRLF
	PUSHJ	P,LCRLF		;%YES TYPE ONE
	MOVEI	M,[ASCIZ /	NOTE=/]
	PUSHJ	P,LSTR		;%YES--GIVE TITLE
	MOVEI	T3,6		;%FORCE 6 CHARS
	PUSHJ	P,LSIXC		;%AND LIST FIRST WORD
	MOVE	T2,Q.ONOT+1(Q)	;%GET SECOND WORD AND LIST THAT
	PUSHJ	P,LSIXN		;% ..

LISSTR:	CAIE	P1,LISTALL	;%/LIST:ALL?
	PJRST	LCRLF		;%NO, RETURN
	AOSN	T4		;%NEED A CRLF?
	PUSHJ	P,LCRLF		;%YES, TYPE ONE
	MOVEI	M,[ASCIZ /	STR=/]
	PUSHJ	P,LSTR		;%TYPE IT
	MOVE	T2,Q.MEM(Q)	;%GET THE STRUCTURE
	PUSHJ	P,LSIX		;%TYPE IT
	PJRST	LCRLF		;%A CRLF AND RETURN
;SUBROUTINE TO LIST AFTER SWITCH

LISTAP:	SKIPN	T1,Q.AFTR(Q)	;%ANYTHING?
LPOPJ:	POPJ	P,		;%NO--RETURN
	SUB	T1,NOW		;%SEE IF IT HAPPENED YET
	JUMPLE	T1,LPOPJ	;%YES--RETURN WITH NOTHING DONE
	PUSHJ	P,LSPC2		;%PRINT 2 SPACES
	MOVEI	M,[ASCIZ /After:/]
	CAIE	P1,LISTFAST	;%DONT PRINT EXTRA STUFF IF /FAST
	PUSHJ	P,LSTR		;%PRINT A STRING
	MOVEI	C,"+"		;%LIST A PLUS SIGN
	HLRZ	T2,T1		;%GET NUM DAYS
	CAIGE	T2,^D100	;%COMPRESS IF 3 DIGITS
	PUSHJ	P,LCHR		;% SO IT LOOKS LIKE TIME FROM NOW
	TRO	F,R.NSEC	;%SUPPRESS SECONDS
	PJRST	LQTIME		;%AND LIST THE TIME IS QUEUE FORMAT

;ROUTINE TO LIST A DEVICE NAME

LRMTDV:	MOVE	T2,Q.DEV(Q)	;%GET THE DEVICE NAME
	MOVEI	T3,6		;%AND THE NUMBER OF CHARACTERS
	PUSHJ	P,LSIXC		;%AND TYPE THEM
	MOVEI	C," "		;%LOAD A SPACE
	SKIPN	LSTSTR		;%DOES STRUCTURE EXIST?
	MOVEI	C,"#"		;%NO, FLAG IT
	CAIN	C,"#"		;%CHECK AGAIN
	SETOM	LISWFS		;%SET FOOTNOTE FLAG

LRMSPC:	PUSHJ	P,LCHR		;%TYPE THE CHARACTER
	JRST	LISTOS		;%AND FINISH OFF THE LINE
;SUBROUTINE TO LIST THE STANDARD PART

LISTSD:	PUSHJ	P,LSPC		;%PUT OUT A SPACE
	MOVE	T2,Q.JOB(Q)	;%GET JOB NAME
	MOVEI	T3,6		;%PRINT SIX CHARS
	PUSHJ	P,LSIXC		;%LIST A SIX SIXBIT LETTERS
	PUSHJ	P,LSPC		;%GIVE A SPACE
	MOVE	T1,Q.SEQ(Q)	;%GET THE SEQ. #
	PUSHJ	P,LDEC5		;%LIST IN 5 CHARS
	PUSHJ	P,LSPC2		;%GIVE 2 SPACES
	MOVE	T1,Q.PRI(Q)	;%GET PRIO WORD
	ANDI	T1,77B35	;%MASK OUT JUNK
	CAIE	P1,LISTFAST	;%DONT PRINT PRIO ON /FAST
	PUSHJ	P,LDEC2		;%LIST AS 2 DIGITS
	PJRST	LSPC2		;%AND TWO MORE SPACES

IFN FTUUOS,<
LSTUSR:	CAIN	P1,LISTFAST	;%/FAST?
	JRST	LSTU.1		;%YES, JUST PPN, NO NAME
	MOVEI	T3,6		;%PRINT ALL 6 CHARS OF
	MOVE	T2,Q.USER(Q)	;% FIRST NAME
	PUSHJ	P,LSIXC		;% ..
	MOVE	T2,Q.USER+1(Q)	;% ..
	PUSHJ	P,LSIX		;%AND AS MUCH AS NECESSARY ON 2ND NAME
	PUSHJ	P,LSPC		;%PUT OUT A SPACE
LSTU.1:	MOVEI	C,"["		;%GET OPEN BRACKET
	PUSHJ	P,LCHR		;%PRINT IT
	HLRZ	T1,Q.PPN(Q)	;%GET THE PROJECT NUMBER
	PUSHJ	P,LOCT		;%PRINT IT
	MOVEI	C,","		;%LOAD A COMMA
	PUSHJ	P,LCHR		;%PRINT IT
	HRRZ	T1,Q.PPN(Q)	;GET PROG NUMBER
	PUSHJ	P,LOCT		;PRINT IT
	MOVEI	C,"]"		;GET A CLOSE BRACKET
	PUSHJ	P,LCHR		;PRINT IT
	PJRST	LISTAP		;GIVE AN AFTER PARAMETER
>  ;END IFN FTUUOS

IFN FTJSYS,<
LSTUSR:	SETZM	JSYBLK		;%CLEAR FIRST WORD
	MOVE	T2,Q.PPN(Q)	;%GET USER NUMBER
	HRROI	T1,JSYBLK	;%AND POINT TO BLOCK
	DIRST			;%GET STRING
	ERJMP	LUSR.1		;%JUST GIVE ALL BLANKS
	MOVE	T1,[POINT 7,JSYBLK]
	SETZ	T2,		;%GET BP AND START WITH 0 COUNT

LUSR.1:	ILDB	C,T1		;%GET A CHARACTER
	JUMPE	C,LISTAP	;%RETURN ON NULL (PRINT AFTER PARM)
	PUSHJ	P,LCHR		;%ELSE LIST IT
	AOJA	T2,LUSR.1	;%AND LOOP

JSYBLK:	BLOCK	10		;JSYS BLOCK
>  ;END IFN FTJSYS
;TITLE LINES


OUTTTL:	ASCIZ	/
OUTPUT QUEUES:
 DEV     JOB    SEQ  PRIO LIMIT    USER
------  ------ ----- ---- -----  ---------------
/


IFN INPCOR,<
INPTTL:	ASCIZ	/INPUT QUEUE:
STS  JOB    SEQ  PRIO   TIME   CORE    USER
--- ------ ----- ---- -------- ----  ---------------
/
>  ;END IFN INPCOR

IFE INPCOR,<
INPTTL:	ASCIZ	/INPUT QUEUE:
STS  JOB    SEQ  PRIO   TIME      USER
--- ------ ----- ---- --------  ---------------
/
>  ;END IFE INPCOR
;TABLE OF 2 CHAR QUEUE NAMES RIGHT ADJUSTED

DEFINE QQ(A,B,C,D,E,F,G,H),<
	NUMQS=NUMQS+1
	<SIXBIT /A/>_<-^D24>
>
	NUMQS==0
LSTNMS:	QUEUES



;TEMPS USED BY LISTER

LSTZER:!
LSJOBN:	BLOCK	NUMQS		;NUMBER OF JOBS IN EACH QUEUE
LSTOTL:	BLOCK	NUMQS		;TOTAL LIMIT FOR EACH QUEUE
LSOTTF:	BLOCK	1		;-1 IF OUTPUT TITFE PRINTED ELSE 0
LSITTF:	BLOCK	1		;-1 IF INPUT TITLE PRINTED ELSE 0
LISPDF:	BLOCK	1		;-1 IF A REQUEST WAS FOUND INTERLOCKED
				; IN AN OUTPUT QUEUE
LISWFS:	BLOCK	1		;-1 IF A REQ WAS FOUND WAITING
				; FOR A STR IN AN OUTPUT QUEUE
LSTANY:	BLOCK	1		;-1 IF SOMETHING TYPED ELSE 0
LSTTJL:	BLOCK	1		;TOTAL JOBS LISTED
LSTSTR:	BLOCK	1		;0=JOBS STR NOT MOUNTED
LSTEZR:!
			;SWITCH TO HIGH SEG
	SWSEG


;ERRORS

E.OEFE:	CLOSE	LC,CL.RST!CL.ACS!CL.DLL   ;RESET ENTER
	RELEAS	LC,		;CLEAR CHANNEL
	MOVEI	T1,L.LOOK	;POINT TO LOOKUP BLOCK
	MOVEI	T2,LN$ENT-1	;GIVE LENGTH
	MOVEI	T3,O.ZER	;POINT TO SCAN BLOCK
	PUSHJ	P,E.LKEN##	;ISSUE ERROR MESSAGE
	PJRST	NFMSX1		;GO ABORT JOB

;ROUTINES TO OUTPUT LIMIT
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	PUSHJ	P,E
>
LSTXCT:	QUEUES
;PLURAL UNITS OF LIMIT
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	[ASCIZ	/G/]
>
LSTLIM:	QUEUES

;SINGLE UNITS OF LIMIT
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	[ASCIZ	/F/]
>
LSTLIS:	QUEUES
			;SWITCH TO LOW SEG
	SWSEG
SUBTTL	COMMAND PROCESSING -- CREATE

	SWSEG		;TO HISEG

;HERE TO CREATE A QUEUE ENTRY
MODIFY:				;MODIFY EXISTING OR FUTURE ENTRY
KILL:	SETOM	CREFLG		;KILL OFF EXISTING ENTRY
CREATE:	IORI	I,2B23		;PUT FORMAT VERSION IN
	MOVEM	I,Q.OPR(Q)	;STORE REQUEST CODE
	MOVNI	T1,I.LZER	;COMPUTE START
	ADD	T1,I.NXZR	; OF LAST SPEC
	MOVEM	T1,I.LSZR	; FOR WILD
	MOVE	T1,O.DEV	;DESTINATION DEVICE IS OUTPUT PARAMETER
	MOVEM	T1,Q.DEV(Q)	;STORE IT

IFN FTUUOS,<
	MOVE	T3,O.DIR	;GET SPECIFIED PPN
	MOVEM	T3,Q.PPN(Q)	;STORE INTO REQUEST
>  ;END IFN FTUUOS

IFN FTJSYS,<
	MOVEI	T1,UBLOCK	;LOAD ADDRESS OF /USER BLOCK
	MOVEM	T1,Q.PPN(Q)	;SAVE IT
>  ;END IFN FTJSYS
	SKIPE	T1,O.NAM	;GET PROPOSED JOB NAME
	MOVEM	T1,Q.JOB(Q)	;STORE IT
	MOVE	T1,S.SEQ	;GET SEQUENCE NUMBER
	MOVEM	T1,Q.SEQ(Q)	;PLACE INTO REQUEST
	LDB	T1,[POINTR (O.MOD,FX.PRO)]  ;GET USER SPECIFIED PROTECTION
	CAIE	T1,777		;DID HE SAY /PROT:777?
	JRST	CREA1A		;NO, DON'T CHANGE IT
	N$WARN	<PII>,,</PROTECT:777 is illegal, changed to 677>
	MOVEI	T1,677		;AND DO IT
CREA1A:	SKIPE	T1		;NOT SPECIFIED?
	JRST	CREA2A		;YES IT WAS, USE HIS
	SKIPN	CREFLG		;NOTHING SPECIFIED. IS THIS CREATE?
	JRST	CREA2A		;YES, SEND A 0 AND LET QUASAR DO THE WORK
	MOVEI	T1,777		;ON /MOD USE 777 TO SHOW NO CHANGE
CREA2A:	LSH	T1,^D9		;POSITION
	MOVE	T2,S.PRI	;GET EXTERNAL PRIORITY
	ANDI	T2,77		;MASK TO FIT
	IOR	T1,T2		;COMBINE RESULTS
	MOVEM	T1,Q.PRI(Q)	;STORE
	SKIPN	CREFLG		;SEE IF /CREATE
	JRST	CREAT2		;YES--SKIP WILD CARDS
	MOVE	T1,O.DIRM	;GET DIRECTORY WILDCARD
	MOVEM	T1,Q.TIME(Q)	;STORE FOR QMANGR
	MOVE	T1,O.NAMM	;GET JOB NAME WILDCARD
	MOVEM	T1,Q.CREA(Q)	;STORE
CREAT2:	MOVE	T1,S.AFT	;GET AFTER SWITCH
	MOVEM	T1,Q.AFTR(Q)	;STORE IN REQUEST
	MOVE	T1,S.DED	;GET DEADLINE SWITCH
	MOVEM	T1,Q.DEAD(Q)	;STORE IN REQUEST

IFN FTUUOS,<
	MOVE	T1,Q.PPN(Q)	;SEE IF REQEST IS FOR ME
	CAME	T1,.MYPPN##	; ..
	JUMPN	T1,CREUSR	;NO, LEAVE USER NAME BLANK UNLESS DEFAULT
	DMOVE	T1,G$NAM1	;GET USER NAME
	DMOVEM	T1,Q.USER(Q)	; ..
>  ;END IFN FTUUOS

CREUSR:	MOVE	T1,QTYPE	;SEE WHICH QUEUE WAS REQUESTED
	CAIN	T1,QTPINP	;WAS IT INPUT?
	JRST	CREI		;YES--GO PROCESS IT

	MOVE	T1,S.FRM	;GET SPECIAL FORMS REQUEST
	MOVEM	T1,Q.OFRM(Q)	;STORE INTO OUTPUT HEADER
	SETZB	T1,LOGCNT	;SET LOG FILE COUNTER SO NEVER FOUND
	HRROM	T1,Q.OSIZ(Q)	;CLEAR SIZE OF REQUEST, NO LIMIT YET
	DMOVE	T1,S.NOT	;GET ANNOTATION
	DMOVEM	T1,Q.ONOT(Q)	;AND SAVE IT
	MOVEI	J,Q.FF(Q)	;J=START OF OUTPUT QUEUE REQUEST AREA
	MOVSI	T1,(BYTE (9)Q.FF-Q.ZER-1,Q.FLEN(18)0)
	JRST	CREOLP		;GO LOOP OVER REQUEST
;HERE TO SETUP INP REQUEST

CREI:	HRRZ	T1,S.DPN	;GET DEPENDENCY REQUEST
	SKIPN	CREFLG		;SEE IF /MOD OR /KILL
	TRZ	T1,3B19		;NO--CLEAR +- FLAGS
	SKIPN	S.RSTR		;SEE IF /REST:1
	TLO	T1,(1B0)	;YES--SET /REST:1
	SKIPE	CREFLG		;SEE IF /MOD
	SKIPGE	S.RSTR		;YES--SEE IF /REST
	JRST	.+2		;NO--PROCEED
	TLO	T1,(1B3)	;YES--SET CHANGE FLAG
	MOVE	T2,S.UNIQ	;GET UNIQUENESS
	ADDI	T2,1		;SET TO INTERNAL VALUE
	DPB	T2,[POINT 2,T1,2]  ;STORE IN REQUEST
	MOVE	T2,S.OUT	;GET OUTPUT QUEUEING
	DPB	T2,[POINT 3,T1,8]  ;STORE
	MOVEM	T1,Q.IDEP(Q)	;STORE INTO QUEUE REQUEST
	MOVSI	T3,-.FXLND	;SET FOR FULL LOOP COUNT
	HRRI	T3,(Q)		;POINT TO REQUEST
	MOVEI	T2,0		;INITIALIZE FETCH POINTER
CREIDD:	SKIPE	T1,DEFDIR(T2)	;GET /PATH:
	ADDI	T2,2		;ADVANCE FETCH UNLESS AT END
	MOVEM	T1,Q.IDDI(T3)	;STORE IN REQUEST
	AOBJN	T3,CREIDD	;LOOP UNTIL DONE
	HRLZ	T1,S.COR	;FETCH CORE LIMIT
	HRR	T1,S.LTIM	;FETCH CPU TIME LIMIT
	HLRZ	T2,S.LTIM	;GET LEFT HALF OF THE LIMIT
	CAIE	T2,-1		;IF -1
	JUMPN	T2,[HRRI T1,-2	;OR 0, IGNORE IT, ELSE LOAD "INFIN"
		    JRST .+1]	;AND CONTINUE
	MOVEM	T1,Q.ILIM(Q)	;STORE

IFN FTUUOS,<
	HLRZ	T1,T1		;GET /CORE VALUE
	MOVE	T2,G$CMAX	;GET SYSTEM CORMAX
	JUMPE	T2,CREI1	;FORGET IT IF ZERO
	JUMPE	T1,CREI2	;IF 0, IGNORE IT
	CAIN	T1,-1		;OR IF UNCHANGED,
	JRST	CREI1		;IGNORE IT
	CAMG	T1,T2		;SEE IF /CORE IS .GT.
	JRST	CREI1		;NO--PROCEED
	PUSH	P,T2		;SAVE CORMAX
	N$WARN	<CLG>,<N>,<Core limit of>
	HLRZ	T1,Q.ILIM(Q)	;GET LIMIT BACK
	PUSHJ	P,.TCORW##	;TYPE IT
	MOVEI	T1,[ASCIZ / is greater than cormax of /]
	PUSHJ	P,.TSTRG	;MORE MESSAGE
	POP	P,T1		;RESTORE CORMAX
	PUSHJ	P,.TCORW##	;TYPE IT
	PUSHJ	P,.TCRLF##	;TYPE A CRLF
	JRST	CREI2		;SKIP MINMAX CHECK, HE'S OBVIOUSLY GREATER
CREI1:	MOVE	T2,G$MNMX	;GET MINMAX
	JUMPE	T2,CREI2	;IGNORE IF ZERO
	CAIN	T1,-1		;IF UNCHANGED,
	JRST	CREI2		;IGNORE IT
	CAML	T1,T2		;IS /CORE LT MINMAX?
	JRST	CREI2		;NO, OK
	PUSH	P,T2		;SAVE MINMAX
	N$WARN	<CLR>,<N>,<Core limit of>
	HLRZ	T1,Q.ILIM(Q)	;GET /CORE BACK
	PUSHJ	P,.TCORW##	;AND TYPE IT
	MOVEI	T1,[ASCIZ / raised to minimum of /]
	PUSHJ	P,.TSTRG##	;TYPE IT
	POP	P,T1		;RESTORE CORMIN
	PUSHJ	P,.TCORW##	;TYPE IT
	PUSHJ	P,.TCRLF##	;AND A CRLF
>  ;END IFN FTUUOS FROM PREVIOUS PAGE

CREI2:	HRLZ	T1,S.LLPT	;FETCH PAGE LIMIT
	HRR	T1,S.LCDP	;FETCH CARD PUNCH LIMIT
	MOVEM	T1,Q.ILIM+1(Q)	;STORE
	HRLZ	T1,S.LPTP	;FETCH PAPER TAPE LIMIT
	HRR	T1,S.LPLT	;FETCH PLOT LIMIT
	MOVEM	T1,Q.ILIM+2(Q)	;STORE
	MOVEI	T1,2		;SET LOG FILE COUNTER
	MOVEM	T1,LOGCNT	; TO MATCH ON SECOND REQUEST
	MOVEI	J,Q.II(Q)	;J=START OF INPUT FILE AREA
	MOVSI	T1,(BYTE (9)Q.II-Q.ZER-1,Q.FLEN(18)0)
;HERE TO LOOP OVER EACH FILE TO BE QUEUEED AND PREPARE IT

CREOLP:	MOVEI	T2,Q.FLNM	;GET MODIFY PER FILE LENGTH
	SKIPE	CREFLG		;SEE IF CREATE
	DPB	T2,[POINT 9,T1,17]  ;NO--CHANGE LENGTH
	MOVEM	T1,Q.LEN(Q)	;SET PREFIX OF LENGTHS
	MOVEM	J,.JBFF		;RESET .JBFF TO START OF FILE AREA
	SUBI	J,Q.FLEN	;BACK UP TO START RIGHT
	SKIPE	CREFLG		;SEE IF /CREATE
	SUBI	J,Q.FLNM-Q.FLEN ;NO--BACK UP POINTER SOME MORE
	MOVEI	I,0		;I=START OF NEXT REQUEST AREA
CREOFL:	MOVEI	T1,Q.FLEN	;GET CREATE PER FILE LENGTH
	SKIPE	CREFLG		;SEE IF CREATE
	MOVEI	T1,Q.FLNM	;NO--GET MODIFY PER FILE LENGTH
	ADD	J,T1		;ADVANCE POINTER
	PUSHJ	P,GCORE.	;GET ENOUGH CORE
	SOS	LOGCNT		;ADVANCE LOG FILE COUNTER
	SETZM	(J)		;CLEAR NEW AREA
	HRLZI	T1,(J)		; ..
	HRRI	T1,1(J)		; ..
	BLT	T1,Q.FLEN(J)	; ..
	SKIPE	CREFLG		;SEE IF /CREATE
	JRST	CREOMD		;NO--GO BELOW FOR REST OF /MODIFY
	SKIPN	LOGCNT		;IS THIS THE LOG FILE?
	TXO	F,R.ANUL	;YES, ALLOW NUL:
	PUSHJ	P,LOOKFL	;LOOK FOR NEXT FILE
	  JRST	CREODN		;IF NO MORE FILES
	JRST	CREONS		;ELSE CONTINUE

;HERE ON /MODIFY SWITCH

CREOMD:	BLT	T1,Q.FLNM(J)	;CLEAR REST OF AREA
	PUSHJ	P,GETMOD	;GET MODIFY REQUEST PARAMETERS
	  JRST	CREODN		;ALL DONE
	JRST	CREONT

CREONS:	RELEAS	DC,		;RELEASE THE CHANNEL
	CLOSE	DC,CL.NMB	;KEEP ACCESS TABLE IN CORE
CREONT:	AOS	Q.LEN(Q)	;COUNT OUTPUT FILE
	JRST	CREOFL		;LOOP BACK FOR NEXT FILE
CREODN:	MOVE	I,QTYPE		;SAVE FOR EASE OF TESTS
	JUMPE	I,CREOGI	;IF INPUT, SKIP SIZE STORE
	SKIPLE	T1,S.LIM	;IS IT A REASONABLE LIMIT
	JRST	CRELIM		;YES, CONTINUE ON
	SETZ	T1,		;NO, INSURE ZERO
	SKIPN	CREFLG		;IS THIS CREATE?
	JRST	CRELIM		;YES, ALL IS WELL
	HRROS	Q.OSIZ(Q)	;ELSE SET MODIFY MASK TO NO CHANGE
	JRST	CRESIZ		;AND CONTINUE ON
CRELIM:	CAILE	T1,777776	;CHECK TO LARGE
	MOVEI	T1,777776	;FORCE OK
	HRLOM	T1,Q.OSIZ(Q)	;SAVE FOR SCHEDULING
CRESIZ:	SKIPE	CREFLG		;SEE IF /CREATE
	JRST	CREOGG		;NO--GO ON
	MOVE	T2,NOBLKS	;GET COUNT OF BLOCKS QUEUED
	CAILE	T2,777777	;HANDLE OVERFLOW
	MOVEI	T2,777777	;YES--MAKE MAXIMUM
	HRRM	T2,Q.OSIZ(Q)	;REMEMBER FOR SCHEDULING
	JRST	CREOGG		;GO CONTINUE OUTPUT

CREOGI:	SKIPE	CREFLG		;SEE IF /CREATE
	JRST	CREOGG		;NO--PROCEED
	HRROI	T2,Q.FSTR-Q.FLEN	;NO--USE A DIFFERENT DISTANCE
	ADDI	T2,(J)		;FIX T2 TO POINT TO STR OF LOG
	SKIPE	T1,(T2)		;SEE IF LOG FILE EXISTS YET
	CAMN	T1,[SIXBIT /DSK/]  ;  IE, IS STRUCTURE KNOWN
IFN FTJSYS,<
	MOVE	T1,CTLSTR	  ;NO--USE CTL FILE STRUCTURE
>  ;END IFN FTJSYS
IFN FTUUOS,<
	MOVE	T1,Q.FSTR+Q.II(Q) ;NO--USE CTL FILE STRUCTURE
>  ;END IFN FTUUOS
	MOVEM	T1,(T2)		;STORE CONCLUSION

CREOGG:	HRRZ	T4,Q.LEN(Q)	;GET NUMBER OF FILES
	SKIPE	CREFLG		;SEE IF /CREATE
	JRST	CREOGH		;NO--JUST GO OUTPUT REQUEST
	JUMPE	T4,E.NFLS	;YES--ERROR IF NO FILES
	CAIE	T4,2		;SEE IF EXACTLY TWO FILES
	SKIPE	QTYPE		;SEE IF IT'S INP:
	SKIPA			;ALL IS WELL
	N$FATE <INF>,,<Incorrect number of files in input queue request>
	LDB	T1,[POINT 9,Q.LEN(Q),8]  ;GET HEADER LENGTH
	ADDI	T1,(Q)		;GET ADDRESS OF FIRST FILE
	MOVE	T1,Q.FNAM+1(T1)	;GET FIRST FILE NAME
	SKIPN	Q.JOB(Q)	;SEE IF JOB HAS A NAME YET
	MOVEM	T1,Q.JOB(Q)	;NO--GIVE IT THE FIRST FILE NAME

CREOGH:	SKIPE	S.ALLF		;DOES HE WANT ALL HIS FILES?
	SKIPN	NAFFLG		;YES, DOES HE HAVE THEM ALL?
	  SKIPA			;YES, ALL IS FINE
	N$FATE	<NAF>,,<Not All Requested Files Exist>
	HRRZ	T1,J		;SET POINTER FOR QMANGR
	SUBI	T1,(Q)		; ..
	HRLZI	T1,1(T1)	; ..
	HRRI	T1,(Q)		; ..
	PJRST	.QUEER##	;GO CREATE REQUEST AND RETURN
;ERRORS

E.NFLS:	SKIPLE	S.NULL		;NO FILES--SEE IF MESSAGE SUPPRESSED
	POPJ	P,		;YES--JUST RETURN
	N$FATE	<NFI>,,<No files in request>
SUBTTL	Command Processing Subroutines


;LOOKFL -- ROUTINE TO DO A WILD-CARD LOOKUP
;ENTERRED WITH Q.FXXX ZEROED, INTIALLY WITH NOFILF, ETC. ZEROED.
;CALL:(	MOVEI	I,0	INITIALLY)
;	MOVEI	J,ADDR. OF NEXT RESULT BLOCK
;	PUSHJ	P,LOOKFL
;	  ERROR RETURN IF NO MORE (MESSAGE ISSUED IF APPROPRIATE)
;	SKIP RETURN IF FILE FOUND--4-WORD LOOKUP DONE TO T1-4
;	I WILL BE UPDATED IF NECESSARY TO POINT TO THE NEXT BLOCK
;	MFD, UFD FILES WILL BE POSITIONED FOR NEXT TIME IN.
;	THE Q. FILE LIST AREA WILL BE UPDATED
;USES T1,T2,T3,T4

LOOKFL:!
LOOKFR:	MOVE	T1,[4,,[I.INZR,,I.LSZR
			OPNBLK,,LKBLK
			I.LZER,,LKBLKL
			400000+DC,,I]  ]
	PUSHJ	P,.LKWLD##	;GET NEXT WILD NAME
	  POPJ	P,		;ALL DONE
	JUMPE	T1,[MOVE T1,I.MOD(I)
		    TXNN T1,X.NEW     ;IF NON-EX-DEV, SEE IF /NEW
		    JRST E.NSD	      ;NO SUCH DEVICE
		    MOVSI T1,.FXLEN   ;BLOCK LENGTH
		    HRRI  T1,(I)      ;BLOCK ADDRESS
		    MOVEI T2,OPNBLK   ;OPEN BLOCK
		    MOVE  T3,[LKBLKL,,LKBLK]
		    PUSHJ P,.STOPN##  ;ANY WILD CARDS?
		      JRST   E.WIN
		    MOVE  T1,OPNBLK+1  ;GET ARGUMENT DEVICE
		    MOVEM T1,Q.FSTR(J) ;STORE IT
		    MOVEM T1,RIBDEV    ;AND HERE ALSO
		    MOVE  T1,RIBNAM    ;GET FILENAME
		    MOVEM T1,Q.FNAM(J) ;STORE IN REQUEST
		    MOVE  T1,RIBEXT    ;GET EXTENSION
		    HLLZM T1,Q.FEXT(J) ;STORE IN REQUEST
		    JRST  LOOKND]      ;AND MAKE BELIEVE THE LOOKUP FAILED
	TXNN	T1,DV.DSK	;DOES IT THINK IT'S A DISK?
	JRST	E.NDD		;NO, NOT EVEN CLOSE
	TXNE	T1,DV.TTY	;YES, IF IT THINKS ITS A TTY TOO, IT'S NUL:
	TRZE	F,R.ANUL	;YES, IT'S NUL:, DO WE ALLOW IT?
	JRST	LOOKLK		;YUP, HE'S GOLDEN
	JRST	E.NDD		;NO, LOSE BIG
;HERE WHEN LOOKUP BLOCK PREPARED FOR NEXT FILE
; AND IT IS TIME TO OPEN AND LOOK IT UP

LOOKLK:	MOVE	T1,OPNBLK+1	;GET ARGUMENT DEVICE
	MOVEM	T1,Q.FSTR(J)	;STORE AS STRUCTURE
	MOVE	T1,RIBNAM	;GET FILE NAME
	MOVEM	T1,Q.FNAM(J)	;STORE IN REQUEST
	MOVE	T1,RIBEXT	;GET FILE EXTENSION
	HLLZM	T1,Q.FEXT(J)	;STORE IN REQUEST
	OPEN	DC,OPNBLK	;OPEN CHANNEL
	  JRST	[PUSHJ P,E.DFO##
		 JRST  LOOKFR]

LOOKIE:	MOVEI	T4,PTHFCN	;POINT TO USER PATH
	MOVX	T2,X.NEW	;GET NEW FILE BIT
	TDNE	T2,I.MOD(I)	;TEST THE FILE (IS IT NEW?)
	SKIPE	RIBPPN		;YES, IS THERE A PPN SPECIFIED?
	MOVE	T4,RIBPPN	;YES, USE IT
	MOVEM	T4,RIBPPN	;USE THE CORRECT ONE
	LOOKUP	DC,LKBLK	;EXTENDED LOOKUP
	  JRST	LOOKER		;IF FAILURE

IFN FTUUOS,<
	MOVEI	T1,DC		;GET CHANNEL NUMBER
	MOVEM	T1,PTFFCN	;SET IN PATH BLOCK
	MOVE	T1,[.PTMAX,,PTFFCN]
	PATH.	T1,		;GET LOCATION FROM MONITOR
	  SETZM	PTFPPN+1	;CLEAR RESULT
	MOVEI	T1,PTFFCN	;POINT TO BLOCK
	SKIPE	PTFPPN+1	;SEE IF SFDS
	MOVEM	T1,RIBPPN	;YES--POINT FROM LOOKUP
	MOVSI	T4,(7B2)	;GET LEVEL D UNPROTECTED MASK
	MOVX	T3,X.UNP	;PREPARE TO TEST /UNPRESERVED
	TDNE	T3,I.MOD(I)	;TEST
	TDNN	T4,RIBPRV	;YES TO SWITCH--CHECK FILE
	JRST	.+2		;NOT UNPRES. OR DON'T CARE
	JRST	LOOKFR		;PRESERVED--LOOP BACK
>  ;END IFN FTUUOS

	PUSHJ	P,.CHKTM##	;CHECK /BEFORE/SINCE
	  JRST	LOOKFR		;BAD--RECYCLE

	PUSHJ	P,ISBIN		;SEE IF BINARY AND IMPROPER
	  JRST	LOOKBN		;YES--GIVE ERROR
	SKIPE	T4,RIBDEV	;GET UNIT NUMBER
	MOVEM	T4,Q.FSTR(J)	;STORE INTO REQUEST
	MOVE	T4,RIBSIZ	;GET LENGTH IN WORDS
	ADDI	T4,177		;ROUND UP
	ASH	T4,-7		;CONVERT TO BLOCKS
	LDB	T3,[POINTR (I.MOD(I),X.COP)]  ;GET REPEAT COUNT
	SKIPN	T3		;FORCE NON-ZERO
	MOVEI	T3,1		;YES
	IMUL	T3,T4		;COMPUTE COMBINED TOTAL
	ADDM	T3,NOBLKS	;ADD TO ACCUMULATED TOTAL
	MOVX	T3,X.NEW	;GET THE /NEW BIT
	ANDCAM	T3,I.MOD(I)	;AND TURN IT OFF

LOOKND:	SETZM	Q.FDIR(J)	;CLEAR OUT DIRECTORY
	HRLI	T1,Q.FDIR(J)	; ..
	HRRI	T1,Q.FDIR+1(J)	; ..
	BLT	T1,Q.FDIR+.FXLND-1(J) ; ..

IFN FTUUOS,<
	SKIPN	T1,RIBPPN	;GET LOOKUP DIRECTORY
	MOVEI	T1,PTHFCN	;UNKNOWN--GET DEFAULT
	TLNE	T1,-1		;SEE IF SFD
	SKIPA	T2,T1		;NO--GET UFD
	MOVE	T2,.PTPPN(T1)	;YES--GET UFD
	MOVEM	T2,Q.FDIR(J)	;SAVE IN QUEUE REQUEST
	TLNE	T1,-1		;SEE IF SFDS
	JRST	LOOKDD		;NO--DONE WITH DIRECTORY
	MOVEI	T2,Q.FDIR+1(J)	;YES--POINT TO SFDS IN QUEUE REQUEST
	HRLI	T2,1-.FXLND	;COUNT NUMBER OF SFDS
LOOKDL:	SKIPN	T3,.PTPPN+1(T1)	;GET NEXT SFD
	JRST	LOOKDD		;ALL DONE
	MOVEM	T3,(T2)		;STORE IN REQUEST
	AOS	T1		;ADVANCE FETCH
	AOBJN	T2,LOOKDL	;LOOP OVER STORE
>  ;END IFN FTUUOS

IFN FTJSYS,<
	MOVE	T1,RIBPPN	;GET FILE'S PPN
	TLNN	T1,-1		;IS IT A PATH POINTER?
	MOVE	T1,.PTPPN(T1)	;YES, GET THE PPN
	MOVEM	T1,Q.FDIR(J)	;SAVE IT
	SETZM	Q.FDIR+1(J)	;AND CLEAR SFDS
>  ;END IFN FTJSYS
LOOKDD:	MOVE	T3,I.MOD(I)	;GET SWITCHES


IFN FTJSYS,<
	TXNE	T3,X.NEW	;IS /NEW SET?
	JRST	LOOKD1		;YES, DONT DO THIS
	MOVE	T1,QTYPE	;LOAD QUEUE TYPE
	MOVE	T2,LOGCNT	;AND LOG FILE COUNTER
	MOVE	T3,Q.FSTR(J)	;AND THE STRUCTURE
	CAIN	T1,QTPINP	;IS IT THE INPUT QUEUE
	CAIE	T2,1		;AND IS THIS THE CONTROL FILE
	SKIPA			;NO, SKIP
	MOVEM	T3,CTLSTR	;YES, SAVE THE STRUCTURE
	MOVE	T1,[3,,T2]	;ARG POINTER
	MOVE	T2,[DC,,5]	;CHANNEL,,FUNCTION
	MOVE	T3,[POINT 7,Q.FSTR(J)]
	MOVE	T4,[111110,,1]	;JFNS BITS
	COMPT.	T1,		;MAKE A STRING
	  JRST	LOOKBD		;??
	MOVE	T3,I.MOD(I)	;GET SWITCHES BACK
	TXO	T3,X.STG	;SET FLAG FOR QMANGR
>  ;END IFN FTJSYS


LOOKD1:	TXZ	T3,X.UNP!X.OKBN	;CLEAR VARIOUS FLAGS
	MOVEI	T1,FILEASCII	;GET DEFAULT /FILE
	HLRZ	T2,Q.FEXT(J)	;GET THE EXTENSION
	CAIN	T2,'DAT'	;.DAT?
	MOVEI	T1,FILEFORTRAN	;YES, USE /FILE:FORT
	TXNN	T3,X.FILE	;WAS IT ALREADY FILLED IN?
	DPB	T1,[POINTR(T3,X.FILE)] ;NO, FILL IT IN
	MOVEI	T1,DISPPRES	;GET DEFAULT DISPOSITION
	CAIN	T2,'LST'	;IS IT A .LST FILE?
	MOVEI	T1,DISPDELE	;YES, LOAD DEFAULT
	TXNN	T3,X.DISP	;WAS /DISP: ALREADY SET?
	DPB	T1,[POINTR(T3,X.DISP)] ;NO, FILL IT IN
	MOVEM	T3,Q.FMOD(J)	;PUT INTO REQUEST
	MOVE	T3,I.STRT(I)	;GET STARTING POINT
	MOVEM	T3,Q.FBIT(J)	;SAVE IN REQUEST
	SETCM	T3,I.RPT(I)	;SEE IF /REPORT
	JUMPE	T3,.POPJ1	;NO--RETURN
	DMOVE	T3,I.RPT(I)	;GET /REPORT
	DMOVEM	T3,Q.FRPT(J)	;AND SAVE IT
	JRST	.POPJ1		;IF SUCCESS RETURN
;HERE WHEN LOOKUP FAILS--SEE IF .NULL NEEDED OR /NEW SWITCH

LOOKER:	MOVEM	T4,RIBPPN	;RESTORE DIRECTORY
	HRRZ	T2,RIBEXT	;GET LOOKUP ERROR CODE
	JUMPN	T2,LOOKBD	;GO ISSUE ERROR
	HLLZ	T1,RIBEXT	;NOT FOUND--SEE IF NULL APPROPRIATE
	JUMPE	T1,LOOKNF	;IF ALREADY NULL, TRY BELOW
	MOVX	T1,FX.NUL	;NOT NULL--SEE IF NULL NEEDED
	TDNN	T1,.FXMOD(I)	; ..
	JRST	LOOKNF		;NOT NEEDED--HANDLE ERROR
	SETZM	RIBEXT		;CHANGE LOOKUP BLOCK
	SETZM	Q.FEXT(J)	; AND REQUEST
	JRST	LOOKIE		;AND TRY AGAIN

LOOKNF:	MOVE	T3,I.MOD(I)	;GET SWITCHES
	TXNN	T3,X.NEW	;SEE IF /NEW
	JRST	LOOKBD		;NO--ERROR
	SETZM	RIBPRV		;CLEAR PROTECTION, ETC.
	JRST	LOOKND		;AND RETURN RESULTS

LOOKBD:	PUSHJ	P,E.DFL##	;ISSUE ERROR MESSAGE
	SETOM	NAFFLG		;SET A FLAG SAYING A FILE ISN'T THERE
	JRST	LOOKFR		;LOOP BACK TO GET NEXT REQUEST

LOOKBN:	N$WARN	<CPB>,<N>,<Can't print binary>
	PUSHJ	P,.TFILE##
	JRST	LOOKFR		;LOOP FOR NEXT FILE
;ISBIN -- SUBROUTINE TO SEE IF IMPROPERLY TRYING TO PRINT BINARY
;CALL:	PUSHJ	P,ISBIN
;ERROR RETURN IF WRONG
;SKIP RETURN IF OK
;USES T1, T2, T3, T4

ISBIN:	MOVX	T1,X.OKBN	;SEE IF /OKBINARY SWITCH
	TDNE	T1,I.MOD(I)	; ..
	JRST	.POPJ1		;YES--GIVE OK RETURN
	LDB	T1,[POINTR (I.MOD(I),X.PAPR)]  ;GET MODE
	LDB	T2,[POINTR (RIBPRV,RB.MOD)]  ;GET FILE MODE
	CAILE	T2,.IOASL	;IF FILE MODE IS ASCII OR ASCII LINE,
	CAILE	T1,PRINASCII	;OR IF OUTPUT MODE IS NOT ASCII OR ARROW,
	JRST	.POPJ1		;THEN IT IS OK ANYWAY
	MOVE	T1,QTYPE	;GET TYPE OF QUEUE
	CAIE	T1,QTPLPT	;IF NOT LPT,
	JRST	.POPJ1		; THEN IT IS OK

;HERE WHEN NO SPECIAL CASES, JUST LPT OF RANDOM FILE

	HLRZ	T1,RIBEXT	;GET EXTENSION FOR EASE OF TESTING
	MOVSI	T3,-LENBEX	;GET LENGTH OF BINARY EXTENSION TABLE
ISBIN1:	MOVE	T2,BINEXT(T3)	;GET NEXT PAIR
	CAIN	T1,(T2)		;SEE IF IT MATCHES
	POPJ	P,		;YES--ERROR RETURN
	HLRZS	T2		;TRY OTHER ONE
	CAIN	T1,(T2)		;..
	POPJ	P,		;ERROR RETURN
	AOBJN	T3,ISBIN1	;LOOP UNTIL DONE
	JRST	.POPJ1		;NOT BINARY EXTENSION--MUST BE OK

BINEXT:	'BACBIN'	;BASIC OUTPUT,,BINARY
	'BUGCHN'	;PROGRAM SAVED WITH BUG,,CHAIN FILE
	'DAEDCR'	;DAEMON FILE,,DCORE FILE
	'DMPHGH'	;PDP-6 SAVE,,NON-SHAREABLE HIGH SEG SAVE
	'LOWMSB'	;LOW SEGMENT,,MUSIC PROGRAM OUTPUT
	'OVRQUC'	;COBOL OVERLAY,,QUEUE CHANGE
	'QUDQUE'	;QUEUE DATA,,QUEUE REQUEST
	'QUFREL'	;QUEUED REQUEST,,RELOCATABLE BINARY
	'RIMRMT'	;TWO KINDS OF READ IN MODE FILES
	'RTBSAV'	;ANOTHER RIM,,SAVE FILE
	'SFDSHR'	;SUB-FILE DIRECTORY,,SHAREABLE HIGH SEGMENT SAVE
	'SVESYS'	;10/30 SAVE,,SYSTEM BINARY FILE
	'TMPUFD'	;TEMPORARY FILE,,USER'S FILE DIRECTORY
	'XPNVMX'	;EXPANDED SAVE FILE,,VM SPECIAL CORE IMAGE
	'EXEEXE'	;NEW SAVE FILE FORMAT,,**SPARE**

;ADD MORE HERE--FILL WITH A DUPLICATE--NEVER FILL WITH 0
LENBEX==.-BINEXT
;GETMOD -- ROUTINE TO GET NEXT MODIFY FILE SPECIFICATION
;THE RESULT IS PLACED IN THE QUEUE REQUEST
;THIS SERVES THE SAME FUNCTION AS LOOKFL
;CALL:	MOVEI	I,0	INITIALLY
;	MOVEI	J,ADDR. OF NEXT RESULT BLOCK
;	PUSHJ	P,GETMOD
;	  ERROR RETURN IF END OF REQUESTS
;	SKIP RETURN IF FILE COPIED
;USES T1, T2, T3

GETMOD:	SKIPN	I		;SEE IF FIRST CALL
	SKIPA	I,I.INZR	;YES--GET START OF REQUESTS
	ADDI	I,I.LZER	;NO--ADVANCE TO NEXT REQUEST
	CAML	I,I.NXZR	;SEE IF DONE YET
	POPJ	P,		;YES--RETURN

	SKIPN	T1,.FXDEV(I)	;GET USER SUPPLIED NAME
	JRST	GETMDS		;NONE--SKIP BELOW
	MOVX	T2,FX.PHY	;GET /PHYSICAL BIT
	TDNN	T2,.FXMOD(I)	;SEE IF PHYSICAL REQUESTED
	DEVNAM	T1,		;NO--CONVERT LOGICAL TO PHYSICAL DEVICE
	  JFCL			;NICE TRY
GETMDS:	MOVEM	T1,Q.FSTR(J)	;STORE PHYSICAL NAME AWAY
	MOVE	T1,.MYPPN##	;GET LOGGED IN PPN
	MOVSI	T2,-1		;MASK FOR PROJECT
	TDNN	T2,.FXDIR(I)	;SEE IF PROJECT
	HRROS	.FXDIM(I)	;NO--GIVE SELF
	TDNN	T2,.FXDIR(I)	; ..
	HLLM	T1,.FXDIR(I)	; ..
	MOVEI	T2,-1		;MASK FOR PROGRAMMER
	TDNN	T2,.FXDIR(I)	;SEE IF PROGRAMMER
	HLLOS	.FXDIM(I)	;NO--GIVE SELF
	TDNN	T2,.FXDIR(I)	; ..
	HRRM	T1,.FXDIR(I)	; ..
	MOVEI	T2,.FXDIR(I)	;POINT TO INPUT DIRECTORY
	MOVEI	T3,Q.FDIR(J)	;POINT TO QUEUE REQUEST
	HRLI	T3,-.FXLND	;SET COUNT
GETMDL:	SKIPE	T1,(T2)		;GET REQUEST DIRECTORY
	ADDI	T2,2		;ADVANCE FETCH
	MOVEM	T1,(T3)		;STORE RESULT
	AOBJN	T3,GETMDL	;LOOP FOR FULL DEPTH
	MOVE	T1,.FXNAM(I)	;GET FILE NAME
	MOVEM	T1,Q.FNAM(J)	;STORE
	HLLZ	T1,.FXEXT(I)	;GET EXTENSION NAME
	MOVEM	T1,Q.FEXT(J)	;STORE
	MOVE	T1,I.STRT(I)	;GET STARTING POINT
	MOVEM	T1,Q.FBIT(J)	;STORE
	MOVE	T1,I.MOD(I)	;GET SWITCHES
	MOVEM	T1,Q.FMOD(J)	;STORE
	MOVEI	T2,.FXDIM(I)	;POINT TO USER'S DIRECTORY MASKS
	MOVEI	T3,Q.FDRM(J)	;POINT TO QUEUE REQUEST
	HRLI	T3,-.FXLND	;SET COUNT
GETMDM:	MOVE	T1,(T2)		;FETCH MASK
	MOVEM	T1,(T3)		;STORE
	SKIPE	-1(T2)		;SEE IF AT END
	ADDI	T2,2		;NO--ADVANCE POINTER
	AOBJN	T3,GETMDM	;LOOP UNTIL DONE
	MOVE	T1,.FXNMM(I)	;GET NAME MASK
	MOVEM	T1,Q.FNMM(J)	;STORE
	HRLZ	T1,.FXEXT(I)	;GET EXT. MASK
	MOVEM	T1,Q.FEXM(J)	;STORE
	MOVE	T1,I.MODM(I)	;GET SWITCH MASK
	MOVEM	T1,Q.FMDM(J)	;STORE
	DMOVE	T1,I.RPT(I)	;GET /REPORT SWITCH
	DMOVEM	T1,Q.FRPT(I)	;AND SAVE IT
	JRST	.POPJ1		;RETURN
SUBTTL	General Subroutines

IFN FTUUOS,<

;GTTABS IS DRIVEN BY THREE TABLES GENERATED BY THE "TABS" MACRO.
;	THE FIRST TABLE CONTAINS THE ARGUMENT TO GETTAB, THE SECOND,
;	CONTAINS DEFAULTS TO USE ON FAILURE, AND THE THIRD CONTAINS
;	AN INSTRUCTION WHICH IS EXECUTED TO STORE THE RESULTS.

GTTABS:	MOVSI	T2,-.NMTAB		;MAKE AN AOBJN POINTER
GTTAB1:	MOVE	T1,GTAB1(T2)		;GET AN ARGUMENT
	GETTAB	T1,			;DO THE GETTAB
	  MOVE	T1,GTAB2(T2)		;GET THE DEFAULT
	XCT	GTAB3(T2)		;STORE THE RESULT
	AOBJN	T2,GTTAB1		;AND LOOP
	POPJ	P,			;RETURN WHEN DONE

;THE ARGUMENTS TO THE TABS MACRO ARE:
;	1) ARGUMENT TO GETTAB
;	2) DEFAULT VALUE
;	3) INSTRUCTION TO STORE RESULT
;		(NOTE: MACRO EXPANSION GENERATES THE CORRECT AC FIELD
;			THEREFORE IT SHOULD BE BLANK IN THE ARGUMENT)


DEFINE TABS,<
	T	<%NSCMX>,<0>,<MOVEM G$CMAX>
	T	<%CNMMX>,<0>,<MOVEM G$MNMX>
	T	<-1,,.GTNM1>,<0>,<MOVEM G$NAM1>
	T	<-1,,.GTPRG>,<'QUENCH'>,<MOVEM G$PROG>
	T	<-1,,.GTNM2>,<0>,<MOVEM G$NAM2>
>  ;END DEFINE TABS
;NOW GENERATE THE TABLES

DEFINE T(A,B,C),<
	EXP	<A>
>

GTAB1:	TABS
	.NMTAB==.-GTAB1

DEFINE T(A,B,C),<
	EXP	<B>
>

GTAB2:	TABS

DEFINE T(A,B,C),<
	EXP	<C> + <T1>B12
>

GTAB3:	TABS

>  ;END IFN FTUUOS FROM PREVIOUS PAGE
;ROUTINE TO GET TIME OF DAY

GETNOW:

IFN FTUUOS,<
	MOVX	T1,%CNDTM		;GETTAB FOR DATE-TIME
	GETTAB	T1,			;GET IT
	  JFCL
	MOVEM	T1,NOW			;SAVE ANSWER
	POPJ	P,			;AND RETURN
>  ;END IFN FTUUOS

IFN FTJSYS,<
	GTAD				;GET TIME AND DATE
	MOVEM	T1,NOW			;SAVE IT
	POPJ	P,			;AND RETURN
>  ;END IFN FTJSYS
	SUBTTL	COMMAND SCANNING SUBROUTINES

;GTCLIK -- GET AND CLEAR INPUT PARAM AREA--PRESET TO /OKNONE/UNPRES

;CALL:	PUSHJ	P,GTCLIK
;RETURNS WITH I=START OF AREA, T1=END OF AREA
;USES T2, T3

GTCLIK:	PUSHJ	P,GTCLIN	;GET AND CLEAR AREA
	MOVE	I,T1		;POINT TO REQUEST
	ADDI	T1,-1(T2)	;POINT AT END
	MOVX	T2,X.UNP  	;GET /UNPRES
	MOVEM	T2,I.MOD(I)	;SET FLAG ON
	MOVEM	T2,I.MODM(I)	;INDICATE FLAG PRESENT
	MOVX	T2,FX.NOM	;GET /OKNONE
	IORM	T2,.FXMOD(I)	;SET FLAG ON
	IORM	T2,.FXMOM(I)	;INDICATE FLAG PRESENT
	SETOM	.FXSNC(I)	;CLEAR /SINCE
	SETOM	.FXBFR(I)	;CLEAR /BEFORE
	MOVSI	T2,'*  '	;SET WILD-CARD
	MOVEM	T2,.FXNAM(I)	;IN REQUEST
	POPJ	P,		;RETURN
;GTCLIN -- GET AND CLEAR ONE INPUT FILE PARAMETER STORAGE AREA
;CALL:	PUSHJ	P,GTCLIN
;RETURNS WITH T1=START OF AREA, T2=LENGTH OF AREA
;USES T3

GTCLIN:	MOVE	T2,.JBFF	;START AT .JBFF
	GCORE	I.LZER		;GET ONE AREA
	MOVEI	T1,1(T1)	;ADVANCE ONE AND
	MOVEM	T1,I.NXZR	;SAVE NEW END
	SETZM	(T2)		;CLEAR AREA
	HRLZI	T3,(T2)		; ..
	HRRI	T3,1(T2)		; ..
	BLT	T3,-1(T1)	; ..
	SETOM	.FXBFR(T2)	;CLEAR FIRST SWITCH (-1 MEANS NONE SPYC)
	HRLZI	T3,.FXBFR(T2)	;GET ADR,,0
	HRRI	T3,.FXBFR+1(T2)	;GET ADR,,ADR+1
	BLT	T3,.FXLEN(T2)	;AND RESET ALL SWITCHES
	MOVE	T1,T2		;POSITION RESULT
	MOVEI	T2,I.LZER	;GET LENGTH
	POPJ	P,		;RETURN




;GCORE. -- GET CORE STARTING AT .JBFF
;CALL:	GCORE	N
;RETURN WITH T1=END OF AREA

GCORE.:	ADDB	T1,.JBFF	;ADVANCE .JBFF THE SPACE
GCORE1:	MOVE	T1,.JBFF	;GET NEW CORE SIZE
	CAMG	T1,.JBREL	;SEE IF STILL IN CORE
	SOJA	T1,.POPJ	;RETURN POINTING TO LAST
	CORE	T1,		;NO--ASK MONITOR FOR MORE
	  JRST	.+2		;IF FAIL
	JRST	GCORE1		;IF WON, LOOP BACK TO EXIT
	MOVEI	T1,[ASCIZ /
? Insufficient core in QUEUE
/]
	PUSHJ	P,.TSTRG##
	CLRBFI			;CLEAR TYPEAHEAD
	PUSHJ	P,.MONRT##	;RETURN TO MONITOR
	JRST	GCORE1		;AND LOOP BACK
;HERE TO READ IN SIGNED DECIMAL NUMBER (/DEPENDENCY)

DEPSW:	PUSHJ	P,.TIAUC##	;GET SIGN IF PRESENT
	MOVEI	T2,0		;CLEAR FLAGS
	CAIN	C,"+"		;SEE IF INCREMENT
	TRO	T2,1B19		;YES--SET FLAG
	CAIN	C,"-"		;SEE IF DECREMENT
	TRO	T2,1B18		;YES--SET FLAG
	TRNE	T2,3B19		;SEE IF EITHER SET
	PUSHJ	P,.TIAUC##	;YES--GET ONE MORE CHARACTER
	PUSHJ	P,.DECNC##	;GET NUMBER
	JUMPL	N,E.SVTL	;ERROR IF NEGATIVE
	CAIL	N,3B19		;MAKE SURE IT'S SMALL ENOUGH
	JRST	E.SVTL		;NO--GIVE ERROR
	IOR	N,T2		;COMBINE FLAGS
	PJRST	.SWDPB##	;GO STORE RESULT

E.SVTL:	N$FATE	<SVT>,<D>,<Switch value too large>


;HERE WHEN SWITCH VALUE IS A RADIX-60 SPECIFICATION (/TIME)
TIMESW:	PUSHJ	P,RDX60W	;GET RADIX 60 NUMBER
	PJRST	.SWMAX##	;AND STORE ANSWER


;HERE ON /METERS
METESW:	PUSHJ	P,.SWDEC##	;GET DECIMAL ARGUMENT
	PUSH	P,N+1		;SAVE THE AC FOR THE DIVIDE
	IMULI	N,^D3937	;CONVERT TO CENTI-INCHES
	IDIVI	N,^D1200	;CONVERT TO FEET
	POP	P,N+1		;RESTORE N+1
	PJRST	.SWMAX##	;AND STORE THE ANSWER


IFN FTJSYS,<
;HERE /USER:NAME SWITCH
SWUSER:	PUSHJ	P,.SWASQ##	;GET THE STRING
	MOVE	T1,[.NMUL##,,UBLOCK]
	BLT	T1,UBLOCK+7	;BLT THE STRING
	PJRST	.SWDPB##	;STORE 0 AND RETURN
>  ;END IFN FTJSYS
DEFINE	SWTCHS,<

	XLIST
	SP AFTER,S.AFT,.SWDTF##,AFT,FS.VRQ!FS.NFS
	SN ALLFILES,S.ALLF
	SP BEGIN,F.STRT,.SWDEC##,STR,FS.VRQ
	SS *CHECK,S.LIST,LISTCHECK
	SP COPIES,<POINTR(F.MOD,X.COP)>,.SWDEC##,COP,FS.VRQ
	SS CREATE,S.OPN,.QORCR
	SP DEADLINE,S.DED,.SWDTF##,DED,FS.VRQ
	SN DEFER,S.DFR
	SS DELETE,<POINTR (F.MOD,X.DISP)>,DISPDELETE
	SP DEPENDENCY,S.DPN,DEPSW,DPN,FS.VRQ
	SL DISPOSE,<POINTR(F.MOD,X.DISP)>,DISP,DISPPRESERVE
	SS ERBINARY,<POINTR(F.MOD,X.OKBN)>,0
	SS *FAST,S.LIST,LISTFAST
	SL FILE,<POINTR(F.MOD,X.FILE)>,FILE,FILEASCII
	SP FORMS,S.FRM,.SWSIX##,,FS.VRQ
	SN HEADER,<POINTR(F.MOD,X.NOHD)>
	SS KILL,S.OPN,.QORKL
	SP LIMIT,S.LIM,.SWDEC##,LIM
	SL *LIST,S.LIST,LIST,LISTJOBS
	SP MET,S.LPTP,METESW,PTP
	SP METERS,S.LPTP,METESW,PTP
	SP METRES,S.LPTP,METESW,PTP
	SS MODIFY,S.OPN,.QORMD
	SN NEW,<POINTR(F.MOD,X.NEW)>
	SP NOTES,<POINT 63,S.NOT>,.SWSXQ##,,FS.VRQ
	SN NULL,S.NULL
	SS OKBINARY,<POINTR(F.MOD,X.OKBN)>,1
	SL OUTPUT,S.OUT,OUTP,OUTPLOG
	SP PAGES,S.LLPT,.SWDEC##,LPT
	SS PRESERVE,<POINTR (F.MOD,X.DISP)>,DISPPRESERVE
	SL PRINT,<POINTR(F.MOD,X.PAPR)>,PRIN,PRINARROW
	SP PRIORITY,S.PRI,.SWDEC##,PRI
	SN REMOVE,<POINTR(F.MOD,X.REMV)>
	SP REPORT,<POINT 63,F.RPT>,.SWSXQ##,,FS.VRQ
	SN RESTARTABLE,S.RSTR
	SP SEQUENCE,S.SEQ,.SWDEC##,SEQ
	SL *SPACES,<POINTR(F.MOD,X.SPAC)>,SPAC,SPACSINGLE
	SL *SPACING,<POINTR(F.MOD,X.SPAC)>,SPAC,SPACSINGLE
	SP TAG,F.STRT,.SWSIX##,,FS.VRQ
	SL TAPE,<POINTR(F.MOD,X.PAPR)>,TAPE,TAPEASCII
	SP TIME,S.LTIM,TIMESW,TIM,FS.LRG
	SP UNIQUE,S.UNIQ,.SWDEC##,UNI
IFN FTUUOS,<
	SP CARDS,S.LCDP,.SWDEC##,CDP,FS.VRQ!FS.NFS
	SP FEET,S.LPTP,.SWDEC##,PTP
	SP PATH,DEFFIL,.SWFIL##,PTH,FS.VRQ
	SL PLOT,<POINTR(F.MOD,X.PAPR)>,PLOT,PLOTIMAGE
	SL PUNCH,<POINTR(F.MOD,X.PAPR)>,PUNC,PUNCASCII
	SP TPLOT,S.LPLT,.SWDEC##,PLT
	SN UNPRESERVED,<POINTR(F.MOD,X.UNP)>
>  ;END IFN FTUUOS

IFN FTJSYS,<
	SP USER,S.USER,SWUSER,,FS.VRQ
>  ;END IFN FTJSYS

IFN INPCOR,<
	SP CORE,S.COR,.SWCOR##,COR,FS.LRG!FS.VRQ
>  ;END IFN INPCOR

	LIST
>
;NOW BUILD THE TABLES FROM THE SWTCHS MACRO

	DOSCAN(SWTCH)


;KEY WORD VALUES

KEYS	DISP,<PRESERVE,%%,DELETE>

KEYS	FILE,<ASCII,FORTRAN,COBOL,$$,%%,ELEVEN>

KEYS	LIST,<FAST,JOBS,SUMMARY,ALL,CHECK>

KEYS	OUTP,<NOLOG,LOG,ERROR>

KEYS	PLOT,<IMAGE,ASCII,BINARY>

KEYS	PRIN,<ARROW,ASCII,OCTAL,SUPPRESS>

KEYS	PUNC,<ASCII,026,BINARY,BCD,IMAGE,MNEMONIC>

KEYS	SPAC,<SINGLE,DOUBLE,TRIPLE>

KEYS	TAPE,<ASCII,IMAGE,IBINARY,BINARY>
;QUETYP -- IDENTIFY WHAT TYPE OF QUEUE HAS BEEN SPECIFIED
;
;CALL:	PUSHJ	P,QUETYP
;	RETURNS T1=-1 IF /LIST REQUEST
;		    0 IF INP:
;		    1+IF OUTPUT QUEUES IN ORDER OF QUEUES MACRO
;
;	ALSO RETURNS O.DEV AND QTYPE UPDATED
;USES T2, T3, T4
;
;WARNING:  THIS ROUTINE IS CALLED BEFORE AND AFTER THE DEFAULTER, SO
;	IT MAY BE LOOKING AT UNDEFAULTED DATA.

QUETYP:	MOVEI	T1,.QORLS	;MAY NEED TO SET /LIST
	SKIPL	S.LIST		;SEE IF /LIST:VALUE
	SKIPLE	S.OPN		;YES--SEE IF SOME OTHER OPERATION
	JRST	.+2		;YES--DO OTHER ONE
	MOVEM	T1,S.OPN	;NO--SET /LIST
	SETOM	T1		;SET ANSWER IF /LIST
	MOVE	T2,S.OPN	;GET OPERATION CODE
	CAIN	T2,.QORLS	;SEE IF /LIST
	JRST	QUETY1		;YES, RETURN THE ANSWER

	PUSH	P,N		;SAVE N
	SKIPGE	O.MOD		;SEE IF NULL DEVICE
	SETZM	O.DEV		;YES--CLEAR IT OUT
	....==FX.NDV
	SKIPN	N,O.DEV		;NO--GET OUTPUT DEVICE
	SKIPE	N,DQTYPE	;USE DEFAULT FROM COMMAND
	SKIPA			;OK
	MOVSI	N,'LPT'		;DEFAULT DEVICE
	PUSHJ	P,XPNQUE	;EXPAND AND MATCH QUEUE NAME
	MOVEM	N,O.DEV		;AND STORE IT
	POP	P,N		;RESTORE NAME
	MOVEI	T1,(T1)		;CHANGE TO INDEX
	SUBI	T1,QUENMT	; ..
QUETY1:	MOVEM	T1,QTYPE	;STORE AWAY THE ANSWER
	POPJ	P,		;AND RETURN
DEFINE	QQ(A,B,C,D,E,F,G,H),<
	SIXBIT	/A/
>

			;SWITCH TO LOW SEG
	SWSEG
QUENMA:	SIXBIT	/ALL/		;FOR LISTING ONLY
QUENMT:	QUEUES
	QUENML==.-QUENMT
			;SWITCH TO HIGH SEG
	SWSEG
;XPNQUE -- EXPAND QUEUE NAME ABBREVIATION IF ANY
;CALL:	MOVE	N,NAME IN SIXBIT AS TYPED IN
;	PUSHJ	P,XPNQUE
;RETURN WITH UPDATED N
;	AND WITH T1 = ADDRESS OF ENTRY
;USES M, T2, T3, T4

XPNQUE:	MOVS	T1,N		;COPY OVER THE ARGUMENT
	ANDI	T1,777700	;AND TO FIRST TWO CHARS
	CAIE	T1,'LL '	;IS IT LL
	CAIN	T1,'LU '	;OR LU?
	JRST	XPNQU2		;YES, JUMP
	TRNE	N,-1		;IS RIGHT-HALF NULL?
	JRST	XPNQU1		;NO, A BIG NAME
	MOVE	T1,[IOWD QUENML+1,QUENMA]
	PUSHJ	P,.NAME##	;GET LOOK FOR A MATCH
	  JRST	E.IQN		;ILLEGAL QUEUE NAME
	MOVE	N,0(T1)		;GET REAL NAME
	POPJ	P,		;AND RETURN

XPNQU1:	PUSH	P,N		;SAVE THE ARGUMENT
	TRZ	N,-1		;ZAP RH
	MOVE	T1,[IOWD QUENML+1,QUENMA]
	PUSHJ	P,.NAME##	;FIND IT
	  JRST	E.IQN		;ILLEGAL QUEUE NAME
	POP	P,N		;OK, RESTORE REAL NAME
	POPJ	P,		;AND RETURN

XPNQU2:	MOVEI	T1,QTPLPT+QUENMT ;LU AND LL ARE LPTS
	POPJ	P,		;RETURN


E.IQN:	N$FATE	<IQN>,<N>,<Illegal queue name>
;RDX60W -- INPUT A RADIX 60 NUMBER FROM COMMAND STRING
;RDX60  -- DITTO (CHARACTER ALREADY IN C)
;FORMATS ARE XXYYZZ OR XX:YY:ZZ
;CALL:	PUSHJ	P,RDX60/RDX60W
;	RETURN WITH WORD IN N
;USES T1, T2, T3	UPDATES C (SEPARATOR)

RDX60W:	PUSHJ	P,.TIAUC##	;PRIME THE PUMP

RDX60:	MOVEI	T2,0		;PRESET TEMPORARY RESULT
RDX601:	IMULI	T2,^D100	;ADVANCE TO NEXT RESULT
	PUSHJ	P,.DECNC##	;GET NEXT SUPER-DIGIT
	JUMPL	N,E.TCTL	;ERROR IF NEGATIVE
	ADD	T2,N		;ADD TO ACCUMULATOR
	CAIE	C,":"		;SEE IF MORE TO COME
	JRST	RDX605		;NO--GO CONVERT RESULT
	TLNE	T2,(777B8)	;DON'T ALLOW OVERFLOW
	JRST	E.TTL		;ERROR IF TIME TOO LARGE
	CAILE	N,^D60		;DON'T ALLOW GARBAGE IN
	JRST	E.TCTL		;ERROR IF DIGIT TOO LARGE
	PUSHJ	P,.TIAUC##	;SKIP SEPARATOR
	JRST	RDX601		;LOOP BACK FOR MORE

RDX605:	MOVEI	N,0		;CLEAR RESULT
	MOVEI	T1,3		;INITIALIZE TO ALLOW THREE FIELDS
RDX606:	IDIVI	T2,^D100	;SEPARATE TYPEIN
	HRLM	T3,(P)		;STORE LEAST DIGIT AWAY
	JUMPE	T2,RDX607	;JUMP IF ALL DONE
	SOJLE	T1,E.IFT	;GIVE AN ERROR IF TOO MANY FIELDS
	PUSHJ	P,RDX606	;IF NOT, DO SOME MORE

RDX607:	HLRZ	T1,(P)		;GET BACK HIGHEST DIGIT
	IMULI	N,^D60		;MAKE ROOM IN RESULT
	ADD	N,T1		;INCLUDE RESULT
	CAILE	T1,^D60		;SEE IF ERROR
	JRST	E.TCTL		;COMPLAIN IF COMPONENT TOO BIG
	POPJ	P,		;RETURN

E.TTL:	MOVE	N,T2		;GET ERROR
	N$FATE	<TTL>,<D>,<Time too large>
E.TCTL:	N$FATE	<TCT>,<D>,<Time component too large>

E.IFT:	N$FATE	<IFT>,,<Illegal format in time specification>
	SUBTTL	SUBROUTINES FOR LISTING OUTPUT


			;SWITCH TO LOW SEG
	SWSEG


;LTIMEM/LQTIME/LTIME -- OUTPUT TIME IN FORM HH:MM:SS
;CALL:	MOVE	T1,TIME-IN-MINUTES
;	PUSHJ	P,LTIMEM
;	-OR-
;	MOVE	T1,TIME-IN-QUEUE-FORMAT
;	PUSHJ	P,LQTIME
;		IF GE 1 DAY, NDHH:MM:SS
;	-OR-
;	MOVE	T1,TIME-IN-SECONDS
;	PUSHJ	P,LTIME

;THIS PICTURES THE QUEUE TIME AS A NUMBER OF DAYS WITH THE BINARY
; POINT AT BIT 17. THE OUTPUT IS SECONDS WITH THE BINARY POINT AT BIT
; 35.
LQTIME:	MOVE	T4,T1		;SAVE TIME
	HLRZ	T1,T1		;GET DAYS
	JUMPE	T1,LQTIM1	;OK IF SOON
	PUSHJ	P,LDEC		;LIST DAYS
	MOVEI	C,"d"		;GET DAYS INDICATOR
	PUSHJ	P,LCHR		;LIST IT
	HLRZ	T1,T4		;GET NUM DAYS
	CAIGE	T1,^D1000	;IF OVER 1000, NO SPACE
	PUSHJ	P,LSPC		;SEPARATE FOR READABILITY
LQTIM1:	HRRZ	T1,T4		;RESTORE TIME
	MULI	T1,^D60*^D60*^D24 ;MAKE MUCH LARGER
	LSHC	T1,^D18		;SET TO BE FULL WORD
	JRST	LTIME		;GO LIST AS SECONDS
LTIMEM:	TRO	F,R.NSEC	;SUPPRESS SECONDS
	IMULI	T1,^D60		;CONVERT MINUTES TO SECONDS
LTIME:	TRNE	F,R.NSEC	;SEE IF SECONDS
	ADDI	T1,^D30		;NO--ROUND OFF
	IDIVI	T1,^D3600	;GET HOURS
	IDIVI	T2,^D60		;GET MIN. AND SECS.
	PUSH	P,T3		;SAVE SECONDS
	PUSH	P,T2		;SAVE MIN.
	PUSHJ	P,LDEC2Z	;LIST HOURS
	MOVEI	C,":"		;LIST A COLON
	PUSHJ	P,LCHR		; ..
	POP	P,T1		;LIST MIN.
	PUSHJ	P,LDEC2Z	; ..
	POP	P,T1		;GET SECONDS AND FALL INTO DEC2Z
	TRZE	F,R.NSEC	;SEE IF NO SECONDS
	POPJ	P,		;RIGHT--RETURN
	MOVEI	C,":"		; ADD A COLON
	PUSHJ	P,LCHR		; ..
				;FALL HERE FROM ABOVE
;LDEC2Z -- LIST DECIMAL AT LEAST 2 DIGITS WITH LEADING ZERO
;CALL:	MOVEI	T1,NUMBER
;	PUSHJ	P,LDEC2Z
;USES T1, T2, T3, C

LDEC2Z:	MOVEI	C,"0"		;SETUP TO PRINT 0 IN CASE NEEDED
	CAIGE	T1,^D10		;TEST TO SEE IF NEEDED
	PUSHJ	P,LCHR		;YES--SEND IT
	PJRST	LDEC		;GO FINISH WORK

;LDEC5 -- LIST DECIMAL AT LEAST FIVE DIGITS
;LDEC4 -- LIST DECIMAL AT LEAST FOUR DIGITS
;LDEC3 -- LIST DECIMAL AT LEAST THREE DIGITS
;LDEC2 -- LIST DECIMAL AT LEAST TWO DIGITS
;CALL:	MOVEI	T1,NUMBER
;	PUSHJ	P,LDEC2
;USES T1, T2, T3, C

LDEC5:	CAIGE	T1,^D10000
	PUSHJ	P,LSPC
LDEC4:	CAIGE	T1,^D1000	;SEE IF NEEDED
	PUSHJ	P,LSPC
LDEC3:	CAIGE	T1,^D100
	PUSHJ	P,LSPC
LDEC2:	CAIGE	T1,^D10
	PUSHJ	P,LSPC		;YES
				;FALL INTO LDEC

;LDEC -- LIST DECIMAL NUMBER
;LOCT -- LIST OCTAL NUMBER
;LRDX -- LIST VIA PRESET RADIX
;CALL:	MOVEI	T1,NUMBER
;      (MOVEI	T3,RADIX    LRDX ONLY)
;	PUSHJ	P,LDEC/LOCT/LRDX
;USES T1, T2, T3, C

LDEC:	SKIPA	T3,[^D10]	;INITIALIZE FOR DECIMAL RADIX
LOCT:	MOVEI	T3,10		;INITIALIZE FOR OCTAL RADIX
LRDX:	JUMPGE	T1,LRDX1	;PROCEED IF POSITIVE
	MOVEI	C,"-"		;ELSE, GET NEGATIVE SIGN
	PUSHJ	P,LCHR		;LIST IT

LRDX1:	IDIV	T1,T3		;DIVIDE BY RADIX
	MOVMS	T2		;MAKE POSITIVE
	HRLM	T2,(P)		;SAVE REMAINDER
	SKIPE	T1		;SEE IF ANYTHING LEFT
	PUSHJ	P,LRDX1		;YES--LOOP BACK WITH PD LIST
	HLRZ	C,(P)		;GET BACK A DIGIT
	ADDI	C,"0"		;CONVERT TO ASCII
	PJRST	LCHR		;GO LIST IT
;LCRLF - LIST END OF LINE
;CALL:	PUSHJ	P,LCRLF
;USES M, C

LCRLF:	TRZ	F,R.LTAB	;CLEAR TAB MEMORY
	MOVEI	M,[ASCIZ /
/]
				;FALL INTO LSTR

;LSTR - LIST ASCII STRING
;CALL:	MOVEI	M,STRING (END WITH 0 BYTE)
;	PUSHJ	P,LSTR
;USES M, C

LSTR:	TLOA	M,(POINT 7,)	;CONVERT TO BYTE POINTER
LSTR1:	PUSHJ	P,LCHR		;OUTPUT CHARACTER
	ILDB	C,M		;GET NEXT CHARACTER
	JUMPN	C,LSTR1		;LOOP UNLESS NULL
	POPJ	P,		;RETURN
;LSIX  -- LIST SIXBIT WORD (AT LEAST ONE SPACE)
;LSIXN -- SAME EXCEPT 0 GIVES NO SPACES
;CALL:	MOVE	T2,WORD
;	PUSHJ	P,LSIX/LSIXN
;USES T1, T2, C

LSIX:	MOVEI	T1,0		;CLEAR NEXT CHARACTER
	LSHC	T1,6		;FETCH NEXT CHAR
	PUSHJ	P,LCHRS		;LIST IT IN SIXBIT

LSIXN:	JUMPN	T2,LSIX		;LOOP UNTIL ONLY BLANKS LEFT
	POPJ	P,		;RETURN


;LSIXC -- LIST SIXBIT WORD FIXED NUMBER OF CHARACTERS
;CALL:	MOVE	T2,WORD
;	MOVEI	T3,NUM CHARS TO PRINT
;	PUSHJ	P,LSIXC
;USES T1, T2, T3, C

LSIXC:	MOVEI	T1,0		;CLEAR NEXT CHAR
	LSHC	T1,6		;GET NEXT CHAR
	PUSHJ	P,LCHRS		;LIST IT IN SIXBIT
	SOJG	T3,LSIXC	;LOOP UNTIL DONE
	POPJ	P,		;RETURN


;LSPC2 -- LIST TWO SPACES
;CALL:	PUSHJ	P,LSPC2
;USES C

LSPC2:	PUSHJ	P,LSPC		;DO ONE
	PJRST	LSPC		;DO ANOTHER AND RETURN
	POPJ	P,		;FOR THE COUNTDOWN
;LTAB -- LIST TAB
;LSPC -- LIST SPACE
;LCHR -- LIST CHARACTER
;LCHRS-- LIST SIXBIT CHARACTER
;CALL:	(MOVEI	C,CHARACTER    IF LCHR)
;	(MOVEI	T1,CHARACTER IF LCHRS)
;	PUSHJ	P,LTAB/LSPC/LCHR
;USES C EXCEPT LCHR USES NO AC'S

LCHRS:	MOVEI	C," "-' '(T1)	;CONVERT TO ASCII AND MOVE TO C
LCHR:	CAIE	C,.CHTAB	;SEE IF A TAB
	JRST	LCHR1		;NO--GO SEND IT

LTAB:	TRON	F,R.LTAB	;SET/TEST TAB
	POPJ	P,		;RETURN IF NOT TWO IN A ROW

LTAB1:	SKIPA	C,[.CHTAB]	;GET THE TAB
LSPC:	MOVEI	C," "		;GET THE SPACE

LCHR1:	TRZE	F,R.LTAB	;CLEAR TAB MEMORY
	JRST	LCHR2		;IF SET, GO ISSUE ONE
	SOSG	B.LC+2		;SEE IF ROOM IN THE BUFFER
	PUSHJ	P,LCHRW		;NO--GO WRITE THIS BUFFER
	IDPB	C,B.LC+1	;YES--SEND CHARACTER
	CAIG	C,.CHFFD	;SEE IF END OF LINE
	PUSHJ	P,LCHRWL	;YES--OUTPUT IT IF DESIRED
	POPJ	P,		;RETURN

LCHR2:	PUSH	P,C		;SAVE REQUESTED CHARACTER
	PUSHJ	P,LTAB1		;SEND A TAB
	POP	P,C		;RESTORE CHARACTER
	JRST	LCHR1		;PROCEED
;LCHRWL -- ROUTINE TO OUTPUT BUFFER AT END OF LINE IF NEEDED
;LCHRW  -- ROUTINE TO OUTPUT BUFFER ALWAYS
;LCHRWR -- ROUTINE TO REPORT ON TRANSFER ERRORS
;CALL:	PUSHJ	P,XXX
;RETURNS WHEN DONE
;USES NO AC

LCHRWL:	TRNE	F,R.OUTL	;SEE IF LINE MODE OUTPUT
LCHRW:	OUT	LC,		;OUTPUT BUFFER
	  POPJ	P,		;OK--RETURN

LCHRWR:	PUSH	P,T1		;ERROR--SAVE SOME ACS
	PUSH	P,T2		; ..
	PUSH	P,T3		; ..
	GETSTS	LC,T1		;GET ERROR STATUS
	MOVE	T2,T1		;PREPARE TO CLEAR
	ANDI	T2,37777	;  BY PRESERVING JUST
	SETSTS	LC,(T2)		;  THE CONTROL BITS
	OUTSTR	[ASCIZ /
%QUELDE  Listing device output error, status /]
		N$$LDE==0
	MOVE	T3,[POINT 3,T1,17]  ;SETUP FOR OCTAL TYPEOUT
LCHRWE:	ILDB	T2,T3		;GET DIGIT
	ADDI	T2,"0"		;CONVERT TO ASCII
	OUTCHR	T2		;TYPE IT
	TLNE	T3,(77B5)	;SEE IF DONE YET
	JRST	LCHRWE		;NO--LOOP
	OUTSTR	[ASCIZ /
/]				;NOTE--ALL THIS DONE HERE IN CASE
				;  WRONG SEGMENT IN CORE

	POP	P,T3		;RESTORE ACS
	POP	P,T2		; ..
	POP	P,T1		; ..
	POPJ	P,		;AND RETURN
SUBTTL	Fatal Error Message Routines

	SWSEG			;SWITCH TO HISEG

;NFMSG  --  ISSUE FATAL MESSAGE AND RESTART JOB
;	CALLED BY N$FATE MACRO
;
NFMSG:	MOVEI	T2,.POPJ##		;NULL ROUTINE
	JRST	NFMSXE			;GO DO THE REST

;NFMSGN  --  ISSUE FATAL MESSAGE, TYPE N IN SIXBIT, AND RESTART JOB
;	CALLED BY N$FATE MACRO
;
NFMSGN:	MOVEI	T2,.TSIXN##		;THE ROUTINE TO CALL
	JRST	NFMSXE			;GO DO THE REST

;NFMSGD  --  ISSUE FATAL MESSAGE, TYPE N IN DECIMAL, AND RESTART JOB
;	CALLED BY N$FATE MACRO
;
NFMSGD:	MOVEI	T2,.TDECW##		;THE ROUTINE TO CALL
	JRST	NFMSXE			;AND GO FINISH UP

;NFMSGO  --  ISSUE FATAL MESSAGE, TYPE N IN OCTAL, AND RESTART JOB
;	CALLED BY N$FATE MACRO
;
NFMSGO:	MOVEI	T2,.TOCTW##		;THE OCTAL ROUTINE
					;AND FALL INTO NFMSXE

;HERE TO PRINT THE MESSAGE AND CALL THE ROUTINE SETUP ABOVE
;
NFMSXE:	PUSH	P,T2			;SAVE T2 FOR LATER
	MOVE	T2,(T1)			;GET CODE IN T2
	MOVEI	T1,1(T1)		;GET PC+1 INTO T1
	EXCH	T1,T2			;SWAP THEM
	HRLI	T1,'QUE'		;GET A PREFIX
	HRLI	T2,"?"			;GET A QUESTION MARK
	PUSHJ	P,.ERMSG##		;TYPE THE ERROR MESSAGE
	PUSHJ	P,.TSPAC##		;TYPE A SPACE
	POP	P,T2			;GET THE ROUTINE BACK
	MOVE	T1,N			;GET THE ARGUMENT
	PUSHJ	P,(T2)			;CALL IT
NFMSX1:	PUSHJ	P,.CLRBF##		;CLEAR OUT TYPE AHEAD
	PUSHJ	P,.TCRLF##		;TYPE A CRLF
	PUSHJ	P,.TCRLF##		;AND ANOTHER ONE
	MOVE	P,[IOWD LN$PDL,PDLST]	;RESET PDL
	JRST	QUELOP			;AND START OVER
SUBTTL	Non-fatal Error Message Routines


;;;WARNING MESSAGES
FWARNN:	PUSH	P,N			;SAVE N
	HRLI	N,.TSPAC##		;ROUTINE TO CALL
	JRST	FWARN1			;AND CONTINUE

FWARN:	PUSH	P,N			;SAVE N
	HRLI	N,.TCRLF##		;ROUTINE TO CALL
					;AND FALL INTO COMMON CODE


FWARN1:	HRR	N,-1(P)			;GET ADDRESS OF ARGS
	PUSHJ	P,.PSH4T##		;SAVE SOME ACS
	HLRZ	T1,0(N)			;GET CODE
	HRLI	T1,'QUE'		;FILL IN CONSTANT PART
	HRRZ	T2,0(N)			;GET ADR OF MESSAGE
	HRLI	T2,"%"			;GET PREFIX
	PUSHJ	P,.ERMSG##		;TYPE THE MESSAGE
	MOVSS	N			;GET ADR OF ROUTINE IN RH
	PUSHJ	P,(N)			;CALL IT
	PUSHJ	P,.POP4T##		;RESTORE SOME ACS
	POP	P,N			;RESTORE N
	PJRST	.POPJ1##		;AND SKIP BACK OVER ARGS


;;;INFORMATION
FINFON:	PUSH	P,N			;SAVE N
	HRLI	N,.TSPAC##		;GET ADDRESS OF ROUTINE
	JRST	FINFO1			;AND CONTINUE

FINFO:	PUSH	P,N			;SAVE N
	HRLI	N,FINFO2		;ADDRESS OF ROUTINE
					;AND FALL THRU


FINFO1:	HRR	N,-1(P)			;GET ADDRESS OF ARGS
	PUSHJ	P,.PSH4T##		;SAVE SOME ACS
	HLRZ	T1,0(N)			;GET CODE
	HRLI	T1,'QUE'		;FILL IN CONSTANT PART
	HRRZ	T2,0(N)			;GET ADR OF MESSAGE
	HRLI	T2,"["			;GET PREFIX
	PUSHJ	P,.ERMSG##		;TYPE THE MESSAGE
	MOVSS	N			;GET ADR OF ROUTINE IN RH
	PUSHJ	P,(N)			;CALL IT
	PUSHJ	P,.POP4T##		;RESTORE SOME ACS
	POP	P,N			;RESTORE N
	PJRST	.POPJ1##		;AND SKIP BACK OVER ARGS


FINFO2:	MOVEI	T1,"]"			;A CLOSE
	PUSHJ	P,.TCHAR##		;TYPE IT
	PJRST	.TCRLF##		;TYPE A CRLF AND RETURN
SUBTTL	STORAGE

	XLIST		;LITERALS
	LIT
	LIST

			;SWITCH TO LOW SEG
	SWSEG

LOWFWA:!		;START OF LOW DATA AREA
SAVCOR:	BLOCK	1	;INITIAL VALUE OF LOW SEG CORE SIZE
NOW:	BLOCK	1	;CURRENT SYSTEM DATE/TIME
STRTOF:	BLOCK	1	;STARTING ADDRESS OFFSET



ISARG:	BLOCK	2	;FUDGE TO SET UP TYPEOUT ADDRESS   ;;;;;;KEEP
TYPER:	BLOCK	2	;ADDRESS OF TYPE CHARACTER ROUTINE ;;;;;;IN
MONRTR:	BLOCK	1	;ADDRESS OF MONRET ROUTINE	   ;;;;;;ORDER
ZCOR:!			;START OF AREA TO ZERO ON INITIAL LOAD

PDLST:	BLOCK	LN$PDL+1  ;PUSH-DOWN LIST
OPNBLK:	BLOCK	3	;OPEN BLOCK

LKBLK:	BLOCK	1	;EXTENDED LOOKUP BLOCK
RIBPPN:	BLOCK	1	;DIRECTORY
RIBNAM:	BLOCK	1	;FILE NAME
RIBEXT:	BLOCK	1	;FILE EXTENSION
RIBPRV:	BLOCK	1	;PROTECTION WORD
RIBSIZ:	BLOCK	1	;FILE SIZE
	BLOCK	1	;JUNK
RIBSPL:	BLOCK	1	;SPOOLING NAME
	BLOCK	6	;JUNK
RIBDEV:	BLOCK	1	;LOCATION OF FILE (LOGICAL UNIT)
LKBLKL==.-LKBLK


P.ZER:!			;START OF AREA FOR FILE DEFAULTS
P.MOD:	BLOCK	1	;LAST STICKY FILE SWITCHES TYPED BY USER
P.MODM:	BLOCK	1	;LAST STICKY FILE SWITCHES MASK TYPED BY USER
P.EZER==.-1
P.MIN:!
P.STRT:	BLOCK	1	;LAST STICKY FILE STARTING POINT
P.RPT:	BLOCK	2	;REPORT NAME
P.EMIN==.-1

F.ZER:!			;START OF AREA FOR FILE TYPE-INS
F.MOD:	BLOCK	1	;FILE SWITCHES
F.MODM:	BLOCK	1	;FILE SWITCH MASK (ON IF TYPED)
F.EZER==.-1
F.MIN:!
F.STRT:	BLOCK	1	;FILE STARTING POINT
F.RPT:	BLOCK	2	;/REPOR KEY
F.EMIN==.-1


;GETTAB INFO
G$NAM1:	BLOCK	1			;FIRST HALF OF USER'S NAME
G$NAM2:	BLOCK	1			;SECOND HALF OF USER'S NAME
G$CMAX:	BLOCK	1			;SYSTEM CORMAX
G$MNMX:	BLOCK	1			;MINMAX
G$PROG:	BLOCK	1			;PROGRAM NAME
S.ZER:!
COMDEV:	BLOCK	1	;COMMAND-DEVICE FOR CURRENT REQUEST
QTYPE:	BLOCK	1	;QUEUE TYPE FOR CURRENT REQUEST
OSCNML:	BLOCK	2	;COMMANDS FOR .OSCAN

DEFFIL:	BLOCK	.FXLEN		;/PATH:[DIRECTORY]
DEFDIR=DEFFIL+.FXDIR
MX.PTH==.FXLEN
PD.PTH==0
O.ZER:!			;START OF OUTPUT SPEC STORAGE
O.DEV:	BLOCK	1	;DEVICE
O.NAM:	BLOCK	1	;NAME
O.NAMM:	BLOCK	1	;NAME MASK
O.EXT:	BLOCK	1	;EXT,,MASK
O.MOD:	BLOCK	1	;SCAN SWITCHES
O.MODM:	BLOCK	1	;SCAN SWITCH MASK
O.DIR:	BLOCK	1	;DIRECTORY
O.DIRM:	BLOCK	2*.FXLND-1	;DIRECTORY MASK
	BLOCK	O.ZER+.FXLEN-1-.;SPACE FOR SWITCH PARAMETERS
O.LZER==.-O.ZER

IFN FTJSYS,<
UBLOCK:	BLOCK	10		;USER NAME BLOCK
>  ;END IFN FTJSYS

L.OPEN:	BLOCK	3	;OPEN BLOCK
L.LOOK:	BLOCK	LN$ENT	;LOOKUP BLOCK
PTHFCN:	BLOCK	.PTMAX	;PATH. ARGS
PTHPPN=PTHFCN+.PTPPN

PTFFCN:	BLOCK	.PTMAX		;FILE PATH BLOCK
PTFPPN=PTFFCN+.PTPPN


I.INZR:	BLOCK	1	;INITIAL INPUT SPEC STORAGE
I.NXZR:	BLOCK	1	;POINTER TO NEXT INPUT SPEC STORAGE
I.LSZR:	BLOCK	1	;POINTER TO LAST INPUT SPEC STORAGE
S.EZER==.-1





	RELOC	QUENCH			;SAVE SPACE

	PHASE	0
	BLOCK	.FXLEN	;SCAN'S AREA
I.MOD:!	BLOCK	1	;SWITCHES
I.MODM:!BLOCK	1	;SWITCH MASK (ON IF USER SUPPLIED)
I.STRT:!BLOCK	1	;FILE STARTING POINT
I.RPT:!	BLOCK	2	;/REPORT SWITCH
I.LZER:!
	PHASE	0	;DEFINE QUEUE AREA (RELOCATABLE)
Q.ZER:!			;START OF QUEUE PARAMETER AREA
Q.MEM:!	BLOCK	1	;USED FOR CHARACTER TYPER
Q.OPR:!	BLOCK	1	;OPERATION CODE
Q.LEN:!	BLOCK	1	;LENGTHS IN AREA
Q.DEV:!	BLOCK	1	;DESTINATION DEVICE
Q.PPN:!	BLOCK	1	;PPN ORIGINATING REQUEST
Q.JOB:!	BLOCK	1	;JOB NAME
Q.SEQ:!	BLOCK	1	;JOB SEQUENCE NUMBER
Q.PRI:!	BLOCK	1	;EXTERNAL PRIORITY
Q.PDEV:!BLOCK	1	;PROCESSING DEVICE
Q.TIME:!BLOCK	1	;PROCESSING TIME OF DAY  (PPN MASK ON MODIFY)
Q.CREA:!BLOCK	1	;CREATION TIME  (JOB NAME MASK ON MODIFY)
Q.AFTR:!BLOCK	1	;AFTER PARAMETER
Q.DEAD:!BLOCK	1	;DEADLINE TIME
Q.CNO:!	BLOCK	1	;CHARGE NUMBER
Q.USER:!BLOCK	2	;USER'S NAME

Q.I:!			;START OF INPUT QUEUE AREA
Q.IDEP:!BLOCK	1	;DEPENDENCY WORD
			;    0: /RESTARTABLE
			;  1-2: 1+/UNIQUE
			;    3: 1 IF /MODIFY/RESTARTABLE
			;  4-5: (FUTURE)
			;  6-8: /OUTPUT
			; 9-17: (FUTURE)
			;18-19: TYPE OF /DEPENDENCY
			;	0  ABSOLUTE
			;	1  +
			;	2  -
			;	3  NO CHANGE
			;20-35: /DEPENDENCY VALUE
Q.ILIM:!BLOCK	3	;JOB LIMITS
Q.IDDI:!BLOCK	.FXLND	;JOB'S DIRECTORY
Q.II:!			;START OF FILE AREA
Q.ILEN==.-Q.ZER

	PHASE	Q.I
Q.O:!			;START OF OUTPUT QUEUE AREA
Q.OFRM:!BLOCK	1	;FORMS REQUEST
Q.OSIZ:!BLOCK	1	;LIMIT WORD
Q.ONOT:!BLOCK	2	;ANNOTATION
Q.FF:!
	PHASE	0
Q.F:!			;DUPLICATED AREA FOR EACH REQUESTED FILE
Q.FSTR:!BLOCK	1	;FILE STRUCTURE
Q.FDIR:!BLOCK	.FXLND	;ORIGINAL DIRECTORY
Q.FNAM:!BLOCK	1	;ORIGINAL NAME
Q.FEXT:!BLOCK	1	;ORIGINAL EXTENSION
Q.FRNM:!BLOCK	1	;RENAMED FILE NAME (0 IF NOT)
Q.FBIT:!BLOCK	1	;BIT 0=PRESERVED BY QUEUE, REST=STARTING BIT
Q.FMOD:!BLOCK	1	;FILE SWITCHES
Q.FRPT:!BLOCK	2	;/REPORT KEY

	Q.FLEN==.-Q.F

Q.FDRM:!BLOCK	.FXLND	;DIRECTORY MASK
Q.FNMM:!BLOCK	1	;FILE NAME MASK
Q.FEXM:!BLOCK	1	;FILE EXT MASK
Q.FMDM:!BLOCK	1	;MODIFIER MASK
Q.FLNM==.-Q.F
	DEPHASE
	RELOC	S.EZER+1
T.ZER:!			;START OF TEMPORARY DATA AREA
NOBLKS:	BLOCK	1	;ACCUMULATED NUMBER OF BLOCKS TO BE PROCESSED
CREFLG:	BLOCK	1	;FLAG 0 IF CREATE, -1 IF NOT
DQTYPE:	BLOCK	1	;WORD TO STORE OUTPUT QUEUE TYPE
			; FOR SUBMIT,PUNCH ...
COMIDX:	BLOCK	1	;INDEX INTO QCOMS RETURNED BY ISCAN
LOGCNT:	BLOCK	1	;COUNT DOWN TO LOG FILE
CTLSTR:	BLOCK	1	;CONTROL FILE STRUCTURE ON -20
NAFFLG:	BLOCK	1	;SET IF SOME FILE DOESN'T EXIST
T.EZER:!


;BUFFER POINTERS
B.LC:	BLOCK	3	;LISTING FILE

SAVEF:	BLOCK	1	;F SAVED HERE DURING LISTING PASSES
SAVEI:	BLOCK	1	;I SAVED HERE DURING LISTING PASSES
SAVEQ:	BLOCK	1	;Q SAVED HERE DURING LISTING PASSES
LSTA:	BLOCK	1	;STATION TO MATCH IN LISTING
ONEQUE:	BLOCK	1	;NAME OF DEVICE IN QUEUE


EZCOR==.-1		;END OF AREA TO ZERO

	END	QUENCH