Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64a-sb - 10,7/who/whoscn.mac
There are 4 other files named whoscn.mac in the archive. Click here to see a list.
	TITLE	WHOSCN - SCAN interface for WHO

	SEARCH	WHOMAC

	$SETUP	(WHOSCN)
	IFN FTTUFTS,<SEARCH TCSSYM>

Comment |

This module contains most of the routines needed to interface with
SCAN, such as switch tables, switch processing routines, and file
specification allocation routines.

|
;               TABLE OF CONTENTS FOR WHOSCN
;
;
;                        SECTION                                   PAGE
;    1. SCAN switches
;         1.1   Definition of switches............................   3
;         1.2   Keyword values....................................   4
;         1.3   Expansion of switches.............................   5
;    2. SCAN switch expansions
;         2.1   'ABR mode.........................................   5
;    3. SCAN switches
;         3.1   Global switch storage and defaults................   6
;         3.2   File specific switch storage and defaults..........   7
;    4. SCAN Blocks...............................................   8
;    5. Switch scanning routines
;         5.1   $MONITOR - Reset /CRASH...........................   9
;         5.2   $CRASH - Read a crash filespec....................  10
;         5.3   $NAMEW - Read a wildcarded SIXBIT word............  12
;         5.4   $PPN - Read a wildcarded PPN......................  12
;         5.5   $CORE - Read a core specification.................  12
;         5.6   $NODE - Read a wildcarded node name...............  13
;         5.7   $PHONE - Read a phone number string...............  14
;         5.8   $SORT - Read a sort specification.................  15
;         5.9   $SUMMARY - Read a summary keyword.................  15
;         5.10  $REP - Read a repeat time and count...............  16
;         5.11  $TTY, $PTY, $DET - Read terminal specifications...  17
;         5.12  $DISK - Read disk priority........................  18
;         5.13  $FORCE - Read a forced command....................  19
;         5.14  $MODE - Read /MODE specifier......................  20
;         5.15  .DECPW - Read positive decimal number.............  21
;    6. Defaulting
;         6.1   Scan specifications...............................  23
;         6.2   Switch defaults...................................  24
;         6.3   Format switch.....................................  25
;         6.4   Output specification defaults.....................  26
;    7. SCAN support
;         7.1   CLRANS - Clear answers and reset things...........  27
;         7.2   AOUT - Allocate an output spec....................  28
;         7.3   AIN - Allocate an input spec......................  29
;    8. Tables
;         8.1   Format defaults...................................  30
;         8.2   Monitor command interface.........................  31
;         8.3   SUMMARY and SORT keywords.........................  31
;         8.4   STATE keywords....................................  32
;    9. Other routines
;         9.1   SETSPC - Set start and end of concatinated set....  33
;         9.2   FIXTTY - Convert TTY/PTY/CTY to standard format...  34
;         9.3   FIXNNN - Form octal terminal number...............  34
;         9.4   TTYNNN - Form SIXBIT terminal number..............  34
;         9.5   CHKJOB - Range check job number...................  34
;         9.6   FIXNOD - Fix up node specification................  35
;         9.7   MSKUC/MSKLC - Convert ASCII strings to masks......  36
;   10. Storage...................................................  37
	SUBTTL	SCAN switches -- Definition of switches

	DEFINE	SWTCHS,<
IFN FTTUFTS,<
SWT(JOB)	SS	ACADEMIC,S.CLASS,CL$ACAD,
>
SWT(JOB)	SP	ACCOUNT,<POINT ^D65-10,S.ACCOUNT>,.ASCQW##,,FS.VRQ
SWT(JOB)	SN	ACTIVE,S.ACTIVE,
IFN FTTUFTS,<
SWT(JOB)	SS	ADMINISTRATION,S.CLASS,CL$ADM,
>
SWT(ALL)	SN	APPEND,S.APPEND,FS.NFS
SWT(<JOB,LIN>)	SS	AUTODIALER,S.APC,.TOADL
SWT(LIN)	SN	ASSIGN,S.ASSIGN
IFN FTIPC,<
SWT(JOB)	SP	BADGE,S.BADGE,.SWDEC##,,FS.VRQ
>;END IFN FTIPC
SWT(JOB)	SN	BATCH,S.BATCH,
SWT(JOB)	SN	BBATCH,S.BBATCH,
SWT(ALL)	SS	BLANK,S.DFORMAT,FORBLANK
SWT(JOB)	SL	CAPABILITY,<-1,,SLCAP>,PR,,FS.VRQ!FS.OBV
SWT(LIN)	SN	CARRIER,S.CARRIER
SWT(ALL)	SP	CACHE,,$CACHE,,FS.VRQ!FS.NFS!FS.NCM
IFN FTIPC,<
SWT(JOB)	SP	CATEGORY,S.CATEGORY,.SWOCT##,CAT,FS.VRQ
>;END IFN FTIPC
SWT(NOD)	SN	CDP,S.CDP,
SWT(NOD)	SN	CDR,S.CDR,
SWT(JOB)	SP	CHARGE,<POINT ^D65-2,S.CHARGE>,$NAMEW,,FS.VRQ!FS.HEL
IFN FTIPC,<
SWT(JOB)	SP	CID,<POINT ^D65-2,S.CID>,$NAMEW,,FS.VRQ!FS.HEL
>;END IFN FTIPC
SWT(JOB)	SP	CLASS,S.CLASS,.SWDEC##,CLS,FS.VRQ
SWT(ALL)	SP	COLUMN,S.COLUMN,.SWDEC##,COL
SWT(JOB)	SP	CORE,<POINT ^D65-2,S.CORE>,$CORE,,FS.VRQ!FS.HEL
SWT(ALL)	SP	CRASH,S.CRASH,$CRASH,CRS,FS.NFS!FS.NCM
SWT(<JOB,LIN>)	SS	CTERM,S.APC,.TOCTM
SWT(JOB)	SP	CTLJOB,S.CTLJOB,.SWDEC##,CTL,
SWT(JOB)	SP	CTLPRG,<POINT ^D65-2,S.CTLPRG>,$NAMEW,,FS.VRQ!FS.HEL
SWT(<JOB,LIN>)	SS	CTY,S.TTY,'CTY'
SWT(JOB)	SP	DDB,S.DDB,.SWFIL##,DDB,FS.VRQ
SWT(JOB)	SL	*DDBS,S.DDBS,%,PD.DDB,
SWT(NOD)	SN	DDP,S.DDP
SWT(JOB)	SN	DDT,S.DDT,
SWT(ALL)	SS	DEFAULT,S.DFORMAT,FORDEFAULT,FS.NFS
SWT(JOB)	SP	DETACH,S.TTY,$DET,DET,FS.LRG!FS.HEL
SWT(JOB)	SP	DEVICE,S.DEVICE,.SWSIX##,,FS.VRQ
SWT(<JOB,LIN>)	SS	DIALUP,S.APC,.TODSD
SWT(ALL)	SP	DPY,<POINT ^D65-2,S.DPY>,$REP,REP,FS.NFS!FS.HEL
SWT(JOB)	SP	DSKPRI,S.DSKP,$DISK,DPR,FS.HEL
SWT(NOD)	SN	DTA,S.DTA
SWT(ALL)	SS	*FAST,S.FORMAT,%FAST,
SWT(JOB)	SP	FILE,S.DDB,.SWFIL##,DDB,FS.VRQ
SWT(JOB)	SL	FILES,S.DDBS,%,PD.DDB,
SWT(ALL)	SP	FINAL,S.FINAL,FINSWT##,,FS.NFS!FS.VRQ
SWT(ALL)	SS	FIX,S.DFORMAT,FORFIX,FS.NFS
SWT(ALL)	SS	FLOAT,S.DFORMAT,FORFLOAT,FS.NFS
SWT(ALL)	SP	FORMAT,S.FORMAT,FORSWT##,,FS.VRQ
SWT(ALL)	SP	FOOTING,S.FOOT,FOOSWT##,,FS.VRQ
SWT(<JOB,LIN>)	SP	FORCE,S.FORCE,$FORCE,,FS.NFS!FS.VRQ!FS.HEL
SWT(<JOB,LIN>)	SS	GANDALF,S.APC,.TOGAN
SWT(JOB)	SL	GLXOPR,S.GLXOPR,GOP,PD.GOP,
SWT(LIN)	SN	HANGUP,S.HANGUP
SWT(<JOB,LIN>)	SS	HARDWIRED,S.APC,.TOHWD
SWT(ALL)	SP	HEADING,S.HEAD,HEASWT##,,FS.VRQ
SWT(NOD)	SN	HOST,S.MCR,		;;Same as /MCR
SWT(JOB)	SP	HPQ,S.HPQ,.SWDEC##,HPQ,
SWT(ALL)	SN	I,S.INCREMENTAL,FS.NFS
SWT(ALL)	SL	*INCLUDE,S.INCLUDE,INC,,FS.NFS!FS.OBV
SWT(ALL)	SN	INCREMENTAL,S.INCREMENTAL,FS.NFS
SWT(ALL)	SL	INFORMATION,<-1,,SLIFM>,IFM,,FS.VRQ!FS.OBV
SWT(LIN)	SN	INITED,S.INTED		;;S.INIT IS FOR /INITIAL
SWT(ALL)	SP	INITIAL,S.INIT,INISWT##,,FS.NFS!FS.VRQ
SWT(<JOB,LIN>)	SP	INPUT,<POINT ^D65-LN$SND,S.INPUT>,.ASCQW##,,FS.NFS!FS.VRQ
SWT(<JOB,LIN>)	SP	JOB,S.JOB,.SWDEC##,JOB,
SWT(JOB)	SL	JSTATUS,S.JSTATUS,ST,,FS.VRQ!FS.OBV
SWT(NOD)	SN	KNOWN,S.KNOWN
SWT(<JOB,LIN>)	SS	LAT,S.APC,.TOLAT
SWT(<JOB,LIN>)	SN	LOCAL,S.LCAL
SWT(JOB)	SP	LOCATE,S.LOCATE,.SWOCT##,LOC,
SWT(LIN)	SP	LOCATE,<POINT ^D65-4,S.LOCATE>,.ASCQW##,,FS.VRQ
IFN FTLGNQ,<
SWT(LIN)	SN	LOGINQ,S.LOGINQ,
> ;END IFN FTLGNQ
IFN FTIPC,<
SWT(JOB)	SP	LPPN,<POINT ^D65-2,S.LPPN>,$PPN,,FS.VRQ!FS.HEL
>;END IFN FTIPC
SWT(NOD)	SN	LPT,S.LPT
SWT(ALL)	SN	MAP,S.MAP,
SWT(NOD)	SN	MCR,S.MCR
SWT(LIN)	SN	MIC,S.MIC,
SWT(<JOB,LIN>)	SS	MICOM,S.APC,.TOMCM
SWT(ALL)	SP	MODE,,$MODE,,FS.VRQ!FS.NFS!FS.NCM
SWT(ALL)	SP	MONITOR,S.MONITOR,$MONITOR,,FS.NFS!FS.NCM
SWT(JOB)	SP	MOUNT,S.MOUNT,.SWSIX##,,FS.VRQ
SWT(ALL)	SN	MPERFORMANCE,S.MPERFORMANCE,FS.NFS
SWT(NOD)	SN	MTA,S.MTA
SWT(JOB)	SP	NAME,<POINT ^D65-2,S.NAME>,.SIXQW##,,FS.VRQ
SWT(LIN)	SL	NETWORK,S.NETWORK,NET,,FS.NFS!FS.VRQ
SWT(<JOB,LIN>)	SS	NOAUTODIALER,S.APC,<-.TOADL&777777>
SWT(<JOB,LIN>)	SS	NOCTY,S.TTY,'CTY'+1000000,FS.LRG
SWT(<JOB>)	SS	NODDBS,S.DDBS,0,
SWT(<JOB>)	SP	NODE,<POINT ^D65-3,S.NODE>,$NODE,,FS.VRQ!FS.HEL
SWT(<LIN>)	SP	*NODE,<POINT ^D65-3,S.NODE>,$NODE,,FS.VRQ!FS.HEL
SWT(<NOD>)	SP	NODE,<POINT ^D65-2,S.NODE>,$NAMEW,,FS.VRQ!FS.HEL
SWT(<JOB,LIN>)	SS	NODETACH,S.TTY,'DET'+1000000,FS.LRG
SWT(<JOB,LIN>)	SS	NODIALUP,S.APC,<-.TODSD&777777>
SS(<JOB>)	SS	NOFILES,S.DDBS,0
SWT(<JOB,LIN>)	SS	NOGANDALF,S.APC,<-.TOGAN&777777>
SWT(<JOB,LIN>)	SS	NOHARDWIRED,S.APC,<-.TOHWD&777777>
SWT(<JOB,LIN>)	SS	NOMICOM,S.APC,<-.TOMCM&777777>
SWT(<JOB,LIN>)	SS	NONRTSER,S.APC,<-.TONRT&777777>
SWT(JOB)	SS	*NOOPERATOR,S.OPER,OPRNO
SWT(<JOB,LIN>)	SS	NOPTY,S.TTY,'PTY'+1000000,FS.LRG
SWT(ALL)	SS	NORMAL,S.FORMAT,%NORMAL,
SWT(<JOB,LIN>)	SS	NOTSN,S.APC,<-.TOTSN&777777>
SWT(<JOB,LIN>)	SS	NOTTY,S.TTY,'TTY'+1000000,FS.LRG
SWT(<JOB,LIN>)	SS	NRTSER,S.APC,.TONRT
SWT(JOB)	SL	OPERATOR,S.OPER,OPR,OPRYES
SWT(<JOB,LIN>)	SP	OUTPUT,<POINT ^D65-LN$SND,S.OUTPUT>,.ASCQW##,,FS.NFS!FS.VRQ
SWT(JOB)	SN	ORIGIN,S.ORIGIN,
SWT(<JOB,LIN,UNI>) SN	PERFORMANCE,S.PERF,FS.NFS
SWT(JOB)	SN	PFH,S.PFH
SWT(LIN)	SP	PHONE,<POINT ^D65-4,S.LOCATE>,$PHONE,,FS.VRQ!FS.HEL
IFN FTIPC,<
SWT(JOB)	SN	PIVOTED,S.PIVOT,FS.NFS
>;END IFN FTIPC
SWT(NOD)	SN	PLT,S.PLT,
IFN FTPOWER,<
SWT(LIN)	SN	POWER,S.POWER
>
SWT(JOB)	SP	PPN,<POINT ^D65-2,S.PPN>,$PPN,,FS.VRQ!FS.HEL
SWT(ALL)	SN	PRINT,S.PRINT,FS.NFS
SWT(JOB)	SL	PRIVILEGE,<-1,,SLPRV>,PR,,FS.VRQ!FS.OBV
SWT(JOB)	SP	PRGRUN,<POINT ^D65-2,S.PRGRUN>,$NAMEW,,FS.VRQ!FS.HEL
SWT(JOB)	SP	*PROGRAM,<POINT ^D65-2,S.PROG>,$NAMEW,,FS.VRQ!FS.HEL
SWT(NOD)	SN	PTP,S.PTP,
SWT(NOD)	SN	PTR,S.PTR,
SWT(<JOB,LIN>)	SP	PTY,S.TTY,$PTY,PTY,FS.LRG
SWT(JOB)	SP	RBEFORE,S.RBEFORE,.DATIP##,,FS.VRQ
SWT(LIN)	SL	RCVSPEED,S.RCVSPEED,SPD,,FS.VRQ
SWT(NOD)	SN	RDA,S.RDA,
SWT(NOD)	SN	REACHABLE,S.REACHABLE
SWT(<JOB,LIN>)	SN	REMOTE,S.REMOTE,
SWT(ALL)	SP	REPEAT,<POINT ^D65-2,S.REPEAT>,$REP,REP,FS.NFS!FS.HEL
SWT(JOB)	SP	RSINCE,S.RSINCE,.DATIP##,,FS.VRQ
SWT(JOB)	SP	SEGMENT,<POINT ^D65-2,S.SEGM>,$NAMEW,,FS.VRQ!FS.HEL
SWT(JOB)	SN	SELF,S.SELF,
SWT(<JOB,LIN>)	SP	SEND,<POINT ^D65-LN$SND,S.SEND>,.ASCQW##,,FS.NFS!FS.VRQ
IFN FTSERV,<
SWT(ALL)	SP	SERVER,<POINT ^D65-.SVMAX,S.SERV>,$SERVER,,FS.NFS!FS.VRQ!FS.HEL
> ;END IFN FTSERV
IFN FTMDC,<
SWT(JOB)	SN	SETP,S.SETP,
>;END IFN FTMDC
SWT(<JOB,LIN>)	SP	SETUUO,,$SETUUO,,FS.NFS!FS.VRQ!FS.HEL
SWT(LIN)	SN	SLAVE,S.SLAVE,
IFN FTIPC,<
SWT(JOB)	SP	SLOT,S.SLOT,.SWOCT##,SLT,FS.VRQ
>;END IFN FTIPC
SWT(ALL)	SS	*SLOW,S.FORMAT,%SLOW,
SWT(ALL)	SP	SORT,<POINT ^D65-3,S.SORT>,$SORT,,FS.NFS!FS.VRQ!FS.HEL
SWT(LIN)	SL	SPEED,S.SPEED,SPD,,FS.VRQ
SWT(ALL)	SN	STAMP,S.STAMP,FS.NFS
SWT(JOB)	SL	STATE,S.STATE,STAT,,FS.VRQ!FS.OBV
SWT(JOB)	SP	STREAM,S.STREAM,.SWDEC##,,FS.VRQ
SWT(ALL)	SP	SUMMARY,S.SUMMARY,$SUMMARY,SUM,FS.NFS!FS.HEL
SWT(STR)	SP	STRUCTURE,<POINT ^D65-2,S.STRU>,$NAMEW,,FS.VRQ!FS.HEL
SWT(JOB)	SL	SWAP,S.SWAP,SWAP,,FS.NFS!FS.VRQ
IFN FTTUFTS,<
SWT(JOB)	SS	SYSTEM,S.CLASS,CL$SYS,
>
SWT(ALL)	SN	TITLES,S.TITLES,FS.NFS
SWT(ALL)	SN	TOTALS,S.TOTALS,FS.NFS
SWT(NOD)	SN	TSK,S.TSK,
SWT(<JOB,LIN>)	SS	TSN,S.APC,.TOTSN
SWT(<JOB,LIN>)	SP	TTY,S.TTY,$TTY,TTY,FS.LRG!FS.HEL
SWT(NOD)	SN	TTY,S.TTY,
SWT(<LIN,NOD>)	SP	TYPE,<POINT ^D65-2,S.TYPE>,$NAMEW,,FS.VRQ!FS.HEL
SWT(UNI)	SP	UNIT,<POINT ^D65-2,S.UNIT>,$NAMEW,,FS.VRQ!FS.HEL
SWT(LIN)	SN	USER,S.USER
SWT(JOB)	SP	VCORE,<POINT ^D65-2,S.VCORE>,$CORE,,FS.VRQ!FS.HEL
SWT(ALL)	SS	*VFAST,S.FORMAT,%VFAST,
SWT(JOB)	SN	VM,S.VM
IFN FTIPC,<
SWT(JOB)	SN	WHEELED,S.WHEEL,FS.NFS
>;END IFN FTIPC
SWT(JOB)	SP	WSCODE,<POINT ^D65-2,S.WSCODE>,.SIXQW##,,FS.VRQ
SWT(JOB)	SL	WTO,S.WTO,WTO,PD.WTO,
SWT(LIN)	SL	XMTSPEED,S.XMTSPEED,SPD,,FS.VRQ
>
	SUBTTL	SCAN switches -- Keyword values

	KEYS	(DDB,<FAST,NORMAL,SLOW,VFAST>)
	GKEYS	(FOR,<FIX,FLOAT,BLANK,DEFAULT>)
	KEYS	(GOP,<NONE,SYSTEM,HOST,REMOTE>)
	GOKEYS	(IFM,<ACCOUNT,TMPCOR,CHANNEL,PATH,ORIGIN,DDBS,SPOOL,IPCF,JSL,LOGICAL,TTY,SIZE,BATCH,PRIVILEGES,MTA,DEFAULTS,CAPABILITIES,TIME,CORE,WSCODE,STATE,WATCH,NAME>)
	GOKEYS	(INC,<FUNNY,PTY>)
	GKEYS	(NET,<DISCONNECT,CONNECT>)
	KEYS	(OPR,<NO,YES,LOCAL,REMOTE>)
	KEYS	(SRV,<IPCF,ANF10,DECNET>)
IFN FTIPC,<
    IFE FTMDC,<
	GOKEYS	(PR,<IPCF,DISK,METER,POKE,CPU,HPQ,UNSPOOL,ENQ,RTTRP,LOCK,TRPSET,SPYALL,SPYMON,NETEXAM,CHGPPN>)
    >
>
IFN FTMDC,<
	GOKEYS	(PR,<IPCF,DISK,METER,POKE,CPU,HPQ,UNSPOOL,ENQ,RTTRP,LOCK,TRPSET,SPYALL,SPYMON,NETEXAM,CHGPPN,SETP,PRGRUN>)
>
IFN FTTUFTS,<
	GOKEYS	(PR,<IPCF,DISK,METER,POKE,CPU,HPQ,UNSPOOL,ENQ,RTTRP,LOCK,TRPSET,SPYALL,SPYMON,NAME,PPASS,SPASS,MAIL,SFD,COMBO,MAGTAPE>)
>
IFE FTIPC!FTTUFTS!FTMDC,<
	GOKEYS	(PR,<IPCF,DISK,METER,POKE,CPU,HPQ,UNSPOOL,ENQ,RTTRP,LOCK,TRPSET,SPYALL,SPYMON>)
>
	KEYS	(SPD,<50,75,110,134,150,200,300,600,1200,1800,2400,4800,9600,EXTA,EXTB>)
	GKEYS	(ST,<RUN,CMDWAIT,MONERR,LOCK,SWAP,JACCT,DCORE,OPRWAIT,XONLY,DSKFUL>)
	OKEYS	(STA,<ACTIVE,SWAP,LOCK,STOP,RUN,EVENTWAIT,IOWAIT,SLEEP>)
	GKEYS	(SWAP,<FORCE,FIT,IN,OUT>)
	KEYS	(WTO,<ALL,WTO,NONE>)
	PD.GOP==:777
	PD.WTO==:777
	PD.DDB==:777

	DM	COL,^D132,0,2
	DM	CRS,.FXLEN,.FXLEN,.FXLEN
	DM	DDB,.FXDIM+1,.FXDIM+1,.FXDIM+1
	DM	JOB,777,1,1
	DM	REP,^D3600,0,^D10
	DM	SUM,77777,0,77777
	DM	DPY,^D3600,0,^D10
	DM	TTY,.INFIN,0,'TTY'
	DM	DET,.INFIN,0,'DET'
	DM	PTY,.INFIN,0,'PTY'
	DM	HPQ,17,0,777777
	DM	DPR,3,0,777777
	DM	LOC,177,0,777
	INTERN	PD.HPQ,PD.DPR,PD.LOC,PD.SUM
	DM	CLS,^D32,0,0
IFN FTIPC,<
	DM	CAT,777,0,0
	DM	SLT,777,0,0
>;END IFN FTIPC
	DM	CTL,^D512,0,0
	DM	SRV,0,SRVANF10,0
	SUBTTL	SCAN switches -- Expansion of switches

;The following set of macros will define a separate switch table of the
;form Sxxx. where xxx is the three letter mode abbreviation defined for
;each mode in the MODES macro in WHOMAC.MAC. The SWTCHS macro is the
;master list of all the switches, in a format suitable for SCANs
;DOSCAN macro. However, only the switches specified for each mode will
;be assembled in each independent switch table. This is done by 
;defining the SWTS macro to be either <null> to include this switch in
;this expansion of the table, or <;> to not include this switch.
;If an argument in the SWTS macro matchs the current mode we are
;building switch tables for, that switch is included.

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<
	DEFINE SWT(ARG),<
		..FLAG==0
		IRP	ARG,<
			IFIDN <ARG><ABR>,<..FLAG==1>
			IFIDN <ARG><ALL>,<..FLAG==1>
		>;END IRP
		IFE ..FLAG,<;>>;END DEFINE SWT
	PAGE
	SUBTTL	SCAN switch expansions -- 'ABR mode
	DOSCAN	(S'ABR'.)
>;END DEFINE XX

	MODES
	SUBTTL	SCAN switches -- Global switch storage and defaults

	DEFINE	GSWTCH,<
;;
;;	Switch name	Number 	Default	Initial
;;			of 	value	value
;;			words
;;
GS	APPEND		,	,NO	,
GS	CRASH		,MX.CRS	,	,0
GS	COLUMN		,	,1	,
GS	DFORMAT		,	,FORDEFAULT,
GS	DPY		,2	,	,
GS	FINAL		,	,	,0
GS	FORCE		,	,	,
GS	INCLUDE		,	,	,0
GS	INCREMENTAL	,	,NO	,
GS	INITIAL		,	,	,0
GS	INPUT		,LN$SND	,	,0
GS	KNOWN		,	,NO	,
GS	MONITOR		,	,	,
GS	MPERFORMANCE	,	,NO	,
GS	NETWORK		,	,	,
GS	OUTPUT		,LN$SND	,	,0
GS	PRINT		,	,YES	,
GS	REACHABLE	,	,YES	,
GS	REPEAT		,2	,	,
GS	SEND		,LN$SND	,	,0
IFN FTSERV,<
GS	SERVER		,.SVMAX	,	,
> ;END IFN FTSERV
GS	SORT		,3	,	,
GS	STAMP		,	,NO	,
GS	SUMMARY		,	,	,
GS	TITLES		,	,YES	,
GS	TOTALS		,	,NO	,
>

	DOGSWT
	SUBTTL	SCAN switches -- File specific switch storage and defaults

	DEFINE	FSWTCH,<
IFN FTLGNQ,<
FS	LOGINQ	,LQP		,	,
> ;END IFN FTLGNQ
FS	STREAM	,BSN		,	,
FS	DDT	,DDT		,	,
FS	PFH	,PFH		,	,
FS	PERFORMANCE,PRF		,NO	,
FS	MAP	,MAP		,NO	,
FS	FORMAT	,FMT		,%NORMAL,
FS	$$$$$$	,PFM		,	,
FS	INFORM	,<INM,INF>	,	,0
FS	GLXOPR	,GOP		,	,
FS	WTO	,WTO		,	,
FS	SLAVE	,SLV		,	,
FS	MIC	,MCL		,	,
FS	VM	,VM		,	,
FS	LCAL	,LCL		,	,
FS	CORE	,<CRL,CRH>	,	,
FS	VCORE	,<VCL,VCH>	,	,
FS	ASSIGN	,TAC		,	,
FS	INTED	,TAP		,	,
FS	HANGUP	,HNG		,	,
FS	CARRIER	,DSC		,	,
IFN FTPOWER,<
FS	POWER	,POW		,	,
>
FS	TYPE	,<TYP,TYM>	,	,
FS	XMTSPEED,TSP		,	,
FS	RCVSPEED,RSP		,	,
FS	RSINCE	,RSN		,	,
FS	RBEFORE	,RBF		,	,
FS	PRGRUN	,<PTR,PTM>	,	,
FS	SPEED	,SPD		,	,
FS	NODE	,<NNM,NOM,NLN>	,	,
FS	TTY	,<TTY,TTM>	,	,
FS	%%%%%%	,<TTA>		,	,
FS	PROGRAM	,<PRG,PRM>	,	,
FS	SEGMENT	,<HSN,SEM>	,	,
FS	PPN	,<PPN,PPM>	,	,
FS	JOB	,JOB		,	,
FS	HPQ	,HPQ		,	,
FS	ACTIVE	,ACT		,	,
FS	CLASS	,CLS		,	,
FS	DSKPRI	,DPR		,	,
FS	DEVICE	,DEV		,	,
FS	MOUNT	,MOU		,	,
FS	WSCODE	,<WSC,QQQ>	,	,
FS	STATE	,STA		,	,0
FS	CTLPRG	,<CPN,CPM>	,	,
FS	CTLJOB	,CJN		,	,
FS	BATCH	,BJB		,	,
FS	BBATCH	,BBB		,	,
FS	SELF	,SLF		,	,
FS	NAME	,<NAM,NA1,NMM,NM1>,	,
FS	USER	,TCJ		,	,
FS	DDB	,<DDB,DD1,DD2,DD3,DD4,DD5,DD6,DD7>,	,0
FS	OPERATOR,OPR		,	,
FS	LOCATE	,<LOC,LO1,LO2,LO3,LMC,LM1,LM2,LM3>,	,
FS	ACCOUNT	,<ACC,AC1,AC2,AC3,AC4,AC5,AC6,AC7,ATM,AM1,AM2,AM3,AM4,AM5,AM6,AM7>,	,
FS	APC	,APC		,	,
FS	ORIGIN	,ORI		,NO	,
FS	DDBS	,DBS		,	,
FS	REMOTE	,RMT		,	,
FS	PRIVILEGE,<PRV,PVM>	,	,0
FS	CAPABILITY,<CAP,CAM>	,	,0
FS	JSTATUS	,JST		,	,0
FS	SWAP	,SWP		,	,
FS	HEADING	,HEA		,	,0
FS	FOOTING	,FOO		,	,0
FS	CHARGE	,<CNO,CHM>	,	,
IFN FTIPC,<
FS	CATEGORY,CAT		,	,
FS	SLOT	,SLT		,	,
FS	PIVOT	,PVT		,	,
FS	WHEEL	,WHL		,	,
FS	LPPN	,<LPN,LPM>	,	,
FS	CID	,<CID,CIM>	,	,
FS	BADGE	,BDG		,	,
>
IFN FTMDC,<
FS	SETP	,STP		,	,
>;END IFN FTMDC
FS	CDP	,CDP		,	,
FS	CDR	,CDR		,	,
FS	DDP	,DDP		,	,
FS	DTA	,DTA		,	,
FS	LPT	,LPT		,	,
FS	MCR	,MCR		,	,
FS	MTA	,MTA		,	,
FS	PLT	,PLT		,	,
FS	PTP	,PTP		,	,
FS	PTR	,PTR		,	,
FS	RDA	,RDA		,	,
FS	TSK	,TSK		,	,
FS	PASSWORD,<PSW,PSM>	,	,
FS	STRUCTURE,<STN,STM>	,	,
FS	UNIT	,<UNN,UNM>	,	,
>

	DOFSWT

.FZSNC==:.FXSNC
.FZBFR==:.FXBFR
	SUBTTL	SCAN Blocks

ISBLK::	IOWD	MON.L,MON.T		;POINT TO MONITOR COMMANDS
	XWD	OFFSET##,'WHO'		;STARTING OFFSET,,MY PREFIX
	XWD	CHRINP##,.TOCHR##	;TYPE-IN AND TYPE-OUT ROUTINES
	0				;..
	XWD	PROMPT,MONRET		;PROMPT AND EXIT ROUTINES
	FS.IFL!FS.INC!FS.STK		;NO CORE UUO,SUPPRESS STICKY DEFAULTING
					;INDIRECT ILLEGAL IF NOT LOGGEN
LN$IBLK==:.-ISBLK

	INTERN	MON.L,MON.T

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<
	T'ABR:	IOWD	S'ABR'.L,S'ABR'.N
		XWD	S'ABR'.D,S'ABR'.M
		EXP	S'ABR'.P
		EXP	-1
		XWD	CLRANS,CLRFIL
		XWD	AIN,AOUT
	0;;	XWD	MEMSTK,APPSTK
		XWD	CLRSTK,FS.MIO

	LT'ABR==.-T'ABR
	O'ABR:	IOWD	S'ABR'.L,S'ABR'.N
		XWD	S'ABR'.D,S'ABR'.M
		EXP	S'ABR'.P
		EXP	-1
	IFIDN <ABR><JOB>,<
		XWD	2,[EXP SIXBIT/WHO/,SIXBIT/JOB/]
	>;END IFIDN
	IFDIF <ABR><JOB>,<
		EXP	SIXBIT/MOD/
	>;END IFDIF
	LO'ABR==.-O'ABR
>;END DEFINE XX

	MODES

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<XWD LT'ABR,T'ABR>

TBLKX::	MODES

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<XWD LO'ABR,O'ABR>

OBLKX::	MODES
	SUBTTL	Prompt and exit routines


PROMPT:	TLNE	F,(FL.WHOSRV)		;ARE WE A SERVER?
	POPJ	P,			;YES--NEVER PROMPT
	SKIPGE	T1			;SEE IF CONTINUATION
	MOVEI	T1,"#"			;YES--SET CODE
	OUTCHR	T1			;TYPE PROMPT
	POPJ	P,			;AND RETURN


MONRET:	TLNE	F,(FL.WHOSRV)		;ARE WE A SERVER?
	PJRST	SRVXIT##		;YES--SPECIAL HANDLING
	PUSHJ	P,.CCLRB##		;CONDITIONALLY CLEAR TYPE-AHEAD
	PUSHJ	P,.KLIND##		;CLEAR INDIRECT STUFF
	PJRST	.MNRET##		;LET SCAN FINISH UP
	SUBTTL	Switch scanning routines -- $MONITOR - Reset /CRASH


	[ASCIZ/Reset CRASH switch/]
$MONITOR:
	CAIN	C,":"			;A MODIFIER?
	 $FATAL (NMA,<No modifier allowed on switch MONITOR>)
	PUSHJ	P,MAPMON##		;SETUP FOR MONITOR MAPPING
	JRST	.SWDON##		;RETURN W/O STORE
	SUBTTL	Switch scanning routines -- $CRASH - Read a crash filespec


; This routine will read in a crash filespec and apply defaults if
; necessary. The default filespec is DSK:CRASH.EXE for compatibility
; with SYSTAT


	[ASCIZ/Monitor crash filespec/]
$CRASH:	PUSHJ	P,.SWFIL##		;GET A FILESPEC
	  JFCL				;CAN'T GET HERE (I DON'T THINK)
	MOVEI	T1,S.CRASH		;POINT TO SCAN BLOCK
	MOVE	T2,.FXMOD(T1)		;GET FLAGS
	DMOVE	T3,[EXP <'CRASH '>,-1]	;GET DEFAULT FILE NAME AND MASK
	SKIPN	.FXNAM(T1)		;HAVE ONE?
	 DMOVEM	T3,.FXNAM(T1)		;NOW WE DO
	HRLOI	T3,'EXE'		;GET DEFAULT EXTENSION AND MASK
	SKIPN	.FXEXT(T1)		;HAVE AN EXTENSION
	 MOVEM	T3,.FXEXT(T1)		;YES--SET DEFAULTS

	MOVEI	T2,CRSOPN		;OPEN BLOCK
	MOVEI	T3,CRSLOK		;LOOPUP BLOCK
	PUSHJ	P,.STOPN##		;CONVERT SCAN BLOCK
	 $FATAL	(NWC,<No wildcarding crash specification>)
	MOVE	T1,[POINT 7,CRSFIL]	;BYTE POINTER TO STORE TEXT
	MOVEM	T1,CRSPTR		;SAVE IT
	MOVEI	T1,CRSCHR		;GET OUR CHARACTER TYPER
	PUSHJ	P,.TYOCH##		;TELL SCAN
	PUSH	P,T1			;SAVE IT
	MOVEI	T1,CRSOPN		;OPEN BLOCK
	MOVEI	T2,CRSLOK		;LOOKUP BLOCK
	PUSHJ	P,.TOLEB##		;TYPE OPEN/LOOKUP BLOCK
	MOVEI	T1,0			;TERMINATE
	PUSHJ	P,CRSCHR		;..
	POP	P,T1			;GET OLD CHAR TYPER
	PUSHJ	P,.TYOCH##		;RESTORE IT
	PUSHJ	P,MAPCRS##		;SETUP FOR CRASH FILE MAPPING
	JRST	.SWDON##		;RETURN W/O STORE


CRSCHR:	IDPB	T1,CRSPTR		;STORE CHARACTER
	POPJ	P,			;AND RETURN
	SUBTTL	Switch scanning routines -- $NAMEW - Read a wildcarded SIXBIT word
	[ASCIZ/Wildcarded SIXBIT word/]
$NAMEW:	PUSHJ	P,.NAMEW##		;READ  WILD NAME
NAME.1:	PUSHJ	P,.LEFTX##		;POSITION
	JUMPE	N,E.SVR##		;CANT BE NULL
	MOVEM	N,.NMUL##		;STORE NAME
	MOVEM	T1,.NMUL##+1		;STORE MASK
	POPJ	P,			;AND RETURN


	SUBTTL	Switch scanning routines -- $PPN - Read a wildcarded PPN

	[ASCIZ/Wildcarded PPN word/]
$PPN:	PUSHJ	P,.TIAUC##		;GET A CHAR
	CAIE	C,"["			;MUST BE [
	  $FATAL (IPF,<Illegal PPN format>)
	PUSHJ	P,.SAVE2##		;SAVE P1,P2
	PUSHJ	P,.NOCTW##		;READ OCTAL NUMBER
	PUSHJ	P,.LEFTX##		;MOVE TO LEFT HALF
	TRNE	N,-1			;SEE IF TOO BIG
	  JRST	E$$IPF			;YES
	HLLZ	P1,N			;SAVE NUMBER
	HLLZ	P2,T1			;AND MASK
	CAIE	C,","			;SEE IF COMMA
	  JRST	E$$IPF			;NO
	JUMPN	P1,PPN.1		;SEE IF GIVEN
	HLLZ	P1,.MYPPN##		;NO--DEFAULT MY PROJECT
	HRLZI	P2,-1			;AND MASK
PPN.1:	PUSHJ	P,.NOCTW##		;READ OCTAL NUMBER
	PUSHJ	P,.LEFTX##		;MOVE TO LEFT HALF
	TRNE	N,-1			;SEE IF TOO BIG
	  JRST	E$$IPF			;YES
	JUMPN	N,PPN.2			;SEE IF PROGRAMMER
	HRLZ	N,.MYPPN##		;NO--DEFAULT MY PROGRAMMER
	HRLI	T1,-1			;AND MASK
PPN.2:	HLR	P1,N			;SAVE NUMBER
	HLR	P2,T1			;AND MASK
	CAIN	C,"]"			;TERMINATE OK?
	  PUSHJ	P,.TIAUC##		;YES--GET NEXT CHAR
	MOVEM	P1,.NMUL##		;SAVE NUMBER
	MOVEM	P2,.NMUL##+1		;AND MASK
	POPJ	P,

	SUBTTL	Switch scanning routines -- $CORE - Read a core specification

	[ASCIZ/Min:Max Core words/]
$CORE:	MOVX	T1,.INFIN		;GET INFINITY
	MOVEM	T1,.NMUL##+1		;SAVE AS MAX
	PUSHJ	P,.COREW##		;READ CORE VALUE
	PUSH	P,N			;SAVE IT
	CAIE	C,":"			;MORE COMING?
	  JRST	CORE.1			;NO
	PUSHJ	P,.COREW##		;READ NEXT CORE VALUE
	MOVEM	N,.NMUL##+1		;STORE
CORE.1:	POP	P,N			;RESTORE FIRST ARG
	MOVEM	N,.NMUL##		;STORE
	POPJ	P,			;AND RETURN

	SUBTTL	Switch scanning routines -- $NODE - Read a wildcarded node name

	[ASCIZ"Wildcarded node name/number_line"]
$NODE:	PUSHJ	P,$NAMEW		;READ WILDCARDED SIXBIT NODE
	SETOM	.NMUL##+2		;CLEAR /LINE
	CAIE	C,":"			;MORE COMING?
	 CAIN	C,"_"			;..
	  CAIA				;YES
	   POPJ	P,			;NO--RETURN
	PUSH	P,.NMUL##		;.OCTNW ZAPS IT
	PUSHJ	P,.OCTNW##		;READ LINE
	MOVEM	N,.NMUL##+2		;STORE
	POP	P,.NMUL##		;GET IT BACK
	POPJ	P,			;AND RETURN
	SUBTTL	Switch scanning routines -- $PHONE - Read a phone number string

	[ASCIZ/"Phone number string"/]
$PHONE:	MOVEI	T1,.TODSD
	MOVEM	T1,S.APC			;FORCE /DIAL
	PJRST	.ASCQW##			;AND READ ASCII STRING
	SUBTTL	Switch scnanning routines -- $SERVER - Read /SERVER arguments


IFN FTSERV,<

	[ASCIZ/node:[connect-type]:[timeout]/]
$SERVER:PUSHJ	P,$NAMEW		;GET NODE NUMBER OR NAME
	AOSE	.NMUL##+1		;CHECK FOR WILDCARDS
	$FATAL	(SCW,</SERVER node argument cannot be wild>)
	PUSH	P,.NMUL##		;SAVE IT
	PUSH	P,[EXP -1]		;DEFAULT CONNECT TYPE
	PUSH	P,[EXP -1]		;DEFAULT TIMEOUT
	CAIE	C,":"			;CONNECT TYPE ON THE WAY?
	JRST	SERV.2			;NO--MUST DEFAULT IT
	PUSHJ	P,.SIXSW##		;GET KEYWORD
	JUMPE	N,SERV.1		;HAVE A KEYWORD?
	MOVE	T1,[IOWD SRV.L,SRV.T]	;POINT TO TABLES
	PUSHJ	P,LKNAM##		;LOOKUP
	MOVEM	T1,-1(P)		;SAVE TABLE INDEX

SERV.1:	CAIE	C,":"			;TIMEOUT ARGUMENT?
	JRST	SERV.2			;NO
	PUSHJ	P,.DECNW##		;GET TIMEOUT IN SECONDS
	CAIG	N,.TSTMX		;CAN'T BE GREATER THAN MAXIMUM
	CAIGE	N,0			; BUT NOT NEGATIVE
	$FATAL	(STO,<Server timeout value out of range >,E.STO)
	MOVEM	N,0(P)			;SAVE ARG

SERV.2:	POP	P,.NMUL##+.SVTIM	;RESTORE TIMEOUT
	POP	P,.NMUL##+.SVTYP	;RESTORE CONNECT TYPE
	POP	P,.NMUL##+.SVNOD	;RESTORE NODE NAME/NUMBER
	SETZM	.NMUL##+.SVFLG		;INDICATE SOMETHING TYPED
	JRST	.SWDPB##		;RETURN AND STORE


E.STO:	MOVEI	T1,.TSTMN		;GET MINIMUM TIMEOUT VALUE
	PUSHJ	P,.TDECW##		;TYPE IT
	PUSHJ	P,.TDASH##		;SEPARATOR
	MOVEI	T1,.TSTMX		;GET MAXIMUM
	PJRST	.TDECW##		;TYPE IT AND RETURN

> ;END FTSERV
	SUBTTL	Switch scanning routines -- $SORT - Read a sort specification

	[ASCIZ/KEY:[A|D]:[number]/]
$SORT:	PUSHJ	P,.SIXSW##		;GET THE KEYWORD
	MOVE	T1,ISRTX(M)		;POINT TO TABLE
	PUSHJ	P,LKNAM##		;LOOKUP 
	ADD	T1,ASRTX(M)		;FIXUP OFFSET
	PUSH	P,T1			;SAVE INDEX
	SETZM	.NMUL##+1		;DEFAULT ASCEDNING
	MOVX	T1,.INFIN		;GET INFINITY
	MOVEM	T1,.NMUL##+2		;DEFAULT INFINIATE COUNTER
	CAIE	C,":"			;MORE COMING?
	 JRST	SORT.1			;NO
	PUSHJ	P,.TIAUC##		;PRIME THE PUMP
	CAIL	C,"0"			;DIGIT?
	 CAILE	C,"9"			;..
	  JRST	SORT.2			;NO--CHECK FOR KEYWORD
	PUSHJ	P,.DECNC##		;READ THE NUMBER
	MOVEM	N,.NMUL##+2		;STORE COUNT
	JRST	SORT.1			;AND EXIT

SORT.2:	PUSHJ	P,.SIXSC##		;READ KEYWORD
	MOVE	T1,[IOWD 2,[SIXBIT/ASCEND/]
			   [SIXBIT/DESEND/] ]
	PUSHJ	P,LKNAM			;LOOKUP NAME
	MOVEM	T1,.NMUL##+1		;SAVE MODE
	CAIE	C,":"			;COUNT COMING?
	 JRST	SORT.1			;NO--EXIT
	PUSHJ	P,.DECPW		;YES--READ COUNT
	MOVEM	N,.NMUL##+2		;STORE

SORT.1:	POP	P,T1			;RESTORE KEYWORD INDEX
	MOVEM	T1,.NMUL##		;SAVE
	JRST	.SWDPB##		;RETURN AND STORE


	SUBTTL	Switch scanning routines -- $SUMMARY - Read a summary keyword

	[ASCIZ/keyword/]
$SUMMARY:PUSHJ	P,.SIXSW##		;GET THE KEYWORD
	MOVE	T1,ISUMX(M)		;POINT TO TABLE
	PUSHJ	P,LKNAM##		;LOOKUP
	ADD	T1,ASUMX(M)		;FIXUP OFFSET
	MOVEI	N,(T1)			;COPY FOR SCAN
	JRST	.SWDPB##		;AND RETURN
	SUBTTL	Switch scanning routines -- $REP - Read a repeat time and count

	[ASCIZ/sleep-time:repeat-count/]
$REP:	PUSHJ	P,.DECPW			;GET A NUMBER
	PUSH	P,N				;SAVE A MOMENT
	MOVX	N,.INFIN			;A BIG REPEAT TIME
	CAIN	C,":"				;MORE COMING?
	 PUSHJ	P,.DECPW			;YES
	MOVEM	N,.NMUL##+1			;STORE REPEAT TIME
	POP	P,.NMUL##			;AND SLEEP TIME
	JRST	.SWDPB##			;AND GO STORE
	SUBTTL	Switch scanning routines -- $TTY, $PTY, $DET - Read terminal specifications

	[ASCIZ/Terminal specification/]
$DET:	MOVEI	T1,2
	JRST	TTY.1

	[ASCIZ/Terminal specification/]
$PTY:	MOVEI	T1,1
	JRST	TTY.1

	[ASCIZ/Terminal specification/]
$TTY:	MOVEI	T1,0
TTY.1:	PUSHJ	P,.SAVE1##		;SAVE P1
	MOVEI	P1,(T1)			;SAEV INDEX
	PUSHJ	P,.TIAUC##		;GET ACHAR
	CAIL	C,"0"			;SEE IF IF DIGIT
	CAILE	C,"7"			;..
	  PJRST	.SIXSC##		;NO--READ SIXBIT AND RETURN
	PUSHJ	P,.OCTNC##		;YES--READ AS OCTAL
	MOVEI	T1,(N)			;COPY TO T1
	PUSHJ	P,TTYNNN		;MAKE NNN IN SIXBIT
	HLL	T1,[SIXBIT/TTY/
		    SIXBIT/PTY/
		    SIXBIT/DET/](P1)	;FORM FULL DIRE
	MOVE	N,T1			;RETURN IN "N"
	POPJ	P,			;AND RETURN
	SUBTTL	Switch scanning routines -- $DISK - Read disk priority

	[ASCIZ/Decimal number (max=3)/]
$DISK:	PUSHJ	P,.DECNW##		;GET A NUMBER
	MOVM	T1,N			;ABSOLUTE VALUE
	CAIL	T1,<1_<WID(JS.PRI)-1>>	;RANGE TEST
	 JRST	E.SVTL##		;NO--TOO LARGE
	ADDI	N,<1_WID(JS.PRI)>	;MAKE NON-NEGATIVE
	JRST	.SWDPB##		;AND STORE
	SUBTTL	Switch scanning routines -- $FORCE - Read a forced command

	[ASCIZ/Forced command name/]
$FORCE:	MOVEI	N,0			;CLEAR WORD
	MOVE	T1,[POINT 6,N]		;SETUP POINTER TO IT
FORC.1:	PUSHJ	P,.TIAUC##		;GET A CHAR
	PUSHJ	P,.TICAN##		;SEE IF ALPHA-NUMERIC
	 CAIN	C,"."			;OR DOT
	  CAIA				;LOOKS GOOD
	   JRST .SWDPB##		;NO--ALL DONE
	SUBI	C," "-' '		;CONVERT TO SIXBIT
	TLNE	T1,770000		;POINTER FULL?
	 IDPB	C,T1			;NO--STORE
	JRST	FORC.1			;AND LOOP
	SUBTTL	Switch scanning routines -- $MODE - Read /MODE specifier

$MODE:	PUSHJ	P,.SIXSW##		;GET THE KEYWORD
	MOVE	T1,[IOWD MON.L,MON.T]	;POINT TO TABLES
	PUSHJ	P,LKNAM##		;LOOKUP
	PUSHJ	P,SETMOD##		;SET UP AC 'M'
	JRST	.SWDON##		;AND RETURN
	SUBTTL	Switch scanning routines -- CACHE - Read blocks to cache

$CACHE:	PUSHJ	P,.DECNW##		;READ NUMBER
	MOVEM	N,S.CACHE		;SAVE IT
	JRST	.SWDON##		;RETURN W/O STORE
	SUBTTL	Switch scanning routines -- .DECPW - Read positive decimal number

.DECPW::PUSHJ	P,.DECNW##		;READ SIGNED NUMBER
	JUMPL	N,E.SVNG##		;ERROR IF NEGATIVE
	POPJ	P,			;ELSE RETURN
SLIFM:	MOVEI	T1,S.INFORM
	PJRST	SLKEY
SLCAP:	SKIPA	T1,[S.CAPABILITY]
SLPRV:	 MOVEI	T1,S.PRIVILEGE

SLKEY:	CAMN	N,[-1,,0]		;SEE IF "NONE"
	 JRST	SLNONE			;YES
	CAMN	N,[0,,-1]		;SEE IF "ALL"
	 JRST	SLALL			;YES
	SUBI	N,1			;ADJUST TO 0..X
	MOVEI	T2,1			;GET A BIT
	LSH	T2,(N)			;DIAL A BIT
	TDNE	T2,(T1)			;SEE IF SPECIFIED
	 $FATAL	(DKS,<Duplicate keyword specified>)
	IORM	T2,(T1)			;NO--SET FOR NEXT TIME
	CAIL	N,0			;SEE IF NOxxx
	 IORM	T2,1(T1)		;NO--SET
	CAIGE	N,0			;SEE IF NOxxx
	 ANDCAM	T2,1(T1)		;YES--CLEAR
	JRST	.SWDON##		;AND RETURN

SLNONE:	SETZM	(T1)			;CLEAR ALL BITS
	SETZM	1(T1)			;..
	JRST	.SWDON##		;AND RETURN

SLALL:	SETOM	(T1)			;SET ALL BITS
	SETOM	1(T1)			;..
	JRST	.SWDON##		;AND RETURN

	GLOB	E$$DSI
	$FATAL	(DSI,<Double switch illegal >,.TSIXN##)
	SUBTTL	Defaulting -- Scan specifications

WHOSCN::SETZM	I.PREV			;NO PREVIOUS SPEC YET
	PUSHJ	P,S$FIRST##		;POSITION TO FIRST SCAN SPEC

SCNLOP:	MOVEI	T1,(I)			;POINT TO SCAN SPEC
	MOVEI	T2,.FZLEN		;GET LENGTH OF SPEC
	PUSHJ	P,.OSDFS##		;APPLY SWITCH.INI DEFAULTS
	MOVEI	T1,(I)			;POINT TO SCAN SPEC
	PUSHJ	P,APOFIL		;APPLY SWITCH.INI FILE SWITCHES
	PUSHJ	P,@SCNXXX##(M)		;DO MODE SPECIFIC DEFAULTS
	SKIPN	T1,I.PREV		;GET PREVIOUS SCAN BLOCK
	 JRST	SCNNXT			;FIRST TIME THROUGH
	MOVE	T2,.FZFMT(T1)		;GET PREVIOUS SPECS /FORMAT
	SKIPGE	.FZFMT(I)		;THIS SPEC HAVE /FORMAT?
	 MOVEM	T2,.FZFMT(I)		;NO--DEFAULT FROM PREVIOUS
	MOVE	T2,.FZPRF(T1)		;GET PREVIOUS SPECS /PERFORMANCE
	SKIPGE	.FZPRF(I)		;THIS SPEC HAVE /PERFORMANCE?
	 MOVEM	T2,.FZPRF(I)		;NO--DEFAULT FROM PREVIOUS
	MOVE	T2,.FZDBS(T1)		;GET PREVIOUS SPECS /DDBS
	SKIPGE	.FZDBS(I)		;THIS SPEC HAVE /DDBS?
	 MOVEM	T2,.FZDBS(I)		;NO--DEFAULT FROM PREVIOUS
	MOVE	T2,.FZMAP(T1)		;GET PREVIOUS SPECS /MAP
	SKIPGE	.FZMAP(I)		;THIS SPEC HAVE /MAP?
	 MOVEM	T2,.FZMAP(I)		;NO--DEFAULT FROM PREVIOUS
	SKIPE	.FZINM(I)		;THIS SPEC HAVE /INFORMATION?
	 JRST	SCNNXT			;YES--LEAVE ALONE
	MOVE	T2,.FZINM(T1)		;NO--DEFAULT FROM PREVIOUS SPEC
	MOVEM	T2,.FZINM(I)		;..
	MOVE	T2,.FZINF(T1)		;..
	MOVEM	T2,.FZINF(I)		;..
SCNNXT:	MOVEM	I,I.PREV		;SAVE PREVIOUS SCAN SPEC
	MOVEI	T1,(I)			;POINT TO SCAN SPEC
	PUSHJ	P,APPFIL		;APPLY FILE DEFAULTS
	PUSHJ	P,S$NEXT##		;GET NEXT SCAN SPEC
	 POPJ	P,			;ALL DONE
	JRST	SCNLOP			;AND LOOP
	SUBTTL	Defaulting -- Switch defaults

SWTDEF::MOVEI	T1,NO			;GET /NOPRINT
	SKIPGE	S.PRINT			;SEE IF PRINT GIVEN
	 SKIPGE	S.SUMMARY		;NO--SEE IF /SUMMARY
	  CAIA			
	   MOVEM T1,S.PRINT		;YES-STORE /NOPRINT
	SKIPL	T1,S.DPY		;SEE IF /DPY
	 MOVEM	T1,S.REPEAT		;STORE AS /REPEAT
	SKIPL	T1,S.DPY+1		;..
	 MOVEM	T1,S.REPEAT+1		;..
	MOVE	T1,S.COLUMN		;GET /COLUMN
	CAIGE	T1,1			;INSURE AT LEAST 1
	 MOVEI	T1,1			;NOPE
	MOVEM	T1,S.COLUMN		;AND STORE
	SKPYES	S.STAMP			;SEE IF /STAMP
	 JRST	SWTD.1			;NO
	SKIPE	S.INITAL		;SEE IF /INITIAL
	 $FATAL	(SII,</STAMP illegal with /INITIAL>)
	MOVE	T1,[LSTAMNORMAL##,,FSTAMNORMAL##] ;GET /STAMP FORMAT
	MOVEM	T1,S.INITAL		;SAVE AS /INITIAL
SWTD.1:	PUSHJ	P,S$FIRST##		;POSITION TO FIRST SCAN SPEC
SWTD.2:	PUSHJ	P,SETFC			;SET FORMAT SWITCH FOR COMMAND
	PUSHJ	P,S$NEXT##		;GET NEXT SCAN SPEC
	 PJRST	APPGLB			;DONE--DEFAULT GLOBALS AND RETURN
	JRST	SWTD.2			;AND LOOP
	SUBTTL	Defaulting -- Format switch

SETFC::	SKIPGE	T1,.FZFMT(I)		;GET FORMAT SWITCH
	 JRST	SETFM			;NONE SPECIFIED
	TLNE	T1,-1			;SEE IF COUNT IN LH
	 JRST	SETFM1			;YES--USE USERS FORMAT
SETFM::	SKIPLE	T1,.FZFMT(I)		;GET FORMAT SWITCH
	 TLNE	T1,-1			;SEE IF USER COUNT
	  MOVEI	T1,%NORMAL		;FORCE NORMAL
	MOVE	T1,@FORTAB(M)		;LOAD DEFAULT FORMAT FOR MODE
SETFM1:	MOVEM	T1,.FZPFM(I)		;SAVE PRINT FORMAT
	POPJ	P,			;AND RETURN
	SUBTTL	Defaulting -- Output specification defaults

OUTDEF::
IFN FTSERV,<
	TLNE	F,(FL.WHOSRV)		;ARE WE A SERVER?
	PJRST	SRVDEF##		;YES--FIX UP OUTPUT FILESPEC ELSEWHERE
> ;END IFN FTSERV

	MOVEI	T1,O.SPEC		;POINT TO OUTPUT SPEC
	MOVEI	T2,.FZLEN		;INDICATE LENGTH
	PUSHJ	P,.OSDFS##		;APPLY SWITCH.INI DEFAULTS
	MOVSI	T1,'TTY'		;DEFAULT TTY:
	SKIPN	O.SPEC+.FXDEV		;SEE IF DEVICE
	  MOVEM	T1,O.SPEC+.FXDEV	;NO--STORE DEFAULT
	SKIPN	O.SPEC+.FXNAM		;SEE IF NAME
	  SETOM	O.SPEC+.FXNMM		;NO--MARK NOT WILD
	MOVE	T1,[SIXBIT/WHO/]	;GET DEFAULT NAME
	SKIPN	O.SPEC+.FXNAM		;SEE IF GIVEN
	  MOVEM	T1,O.SPEC+.FXNAM	;NO--STORE DEFAULT
	HRLOI	T1,'LST'		;GET DEFAULT EXTENSION
	SKIPN	O.SPEC+.FXEXT		;SEE IF GIVEN
	  MOVEM	T1,O.SPEC+.FXEXT	;NO--STORE DEFAULT
	MOVE	T1,.JBVER		;GET OUR VERSION
	SKIPGE	O.SPEC+.FXVER		;SEE IF /VERSION
	 MOVEM	T1,O.SPEC+.FXVER	;NO--DEFAULT OURS
	MOVE	T1,[.FZLEN,,O.SPEC]	;POINT TO OUTPUT SPEC
	MOVEI	T2,O.OPEN##		;POINT TO OPEN BLOCK
	MOVE	T3,[LN$LEN,,O.ENTER##]	;POINT TO ENTER BLOCK
	MOVEI	T4,O.PATH##		;POINT TO OUTPUT PATH. BLOCK
	PUSHJ	P,.STOPB##		;CONVERT SCAN BLOCKS
  	  $FATAL (NWO,<No wildcarding output specification>)
	MOVSI	T1,'WHO'		;GET PROGRAM NAME
	MOVEM	T1,O.ENTER##+.RBSPL	;STORE AS SPOOLED NAME
	POPJ	P,			;AND RETURN
	SUBTTL	SCAN support -- CLRANS - Clear answers and reset things

CLRANS:	TRZ	F,-1-FR.OPEN		;CLEAR MOST LOCAL FLAGS
	MOVEI	T1,.TOCHR##		;SET FOR BUFFERED OUTSTR
	TLNN	F,(FL.WHOSRV)		;IF NOT WHOSRVER
	 MOVEM	T1,.TOUTZ##		;STORE
	PUSHJ	P,S$DEALLOC##		;DEALLOCATE SCAN SPECS
	PUSHJ	P,C$DEALLOC##		;AND PER COMMAND MEMORY STUFF
	MOVE	T1,[O.SPEC,,O.SPEC+1]	;SET UP BLT
	SETZM	O.SPEC			;CLEAR FIRST WORD
	BLT	T1,O.SPEC+.FZLEN-1	;CLEAR OUTPUT SCAN BLOCK
	MOVEI	T1,SETBLK		;POINT TO SETUUO ARGS BLOCK
	MOVEM	T1,SETPTR		;STORE
	SETZM	SETCNT			;NO SET UUO ARGS YET
	PJRST	CLRGLB			;CLEAR GLOBALS AND RETURN

	SUBTTL	SCAN support -- AOUT - Allocate an output spec

AOUT:	MOVEI	T1,O.SPEC		;POINT TO OUTPUT SPEC
	MOVEI	T2,.FZLEN		;INDICATE LENGTH
	PJRST	MEMFIL			;COPY FILE SWITCHES AND RETURN
	SUBTTL	SCAN support -- AIN - Allocate an input spec

AIN::	PUSHJ	P,S$ALLOC##		;ALLOCATE A SCAN SPEC
	MOVEI	T1,(I)			;POINT TO IT
	MOVEI	T2,.FZLEN		;INDICATE LENGTH
	PJRST	MEMFIL			;COPY FILE SWITCHES AND RETURN
SUBTTL	SCAN support -- CLRSTK - Clear file and sticky switches


CLRSTK::PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-FSWT.L		;GET LENGTH OF FILE SWITCHES
	JUMPE	T1,CLRS.E		;RETURN IF NONE
CLRS.1:	MOVE	T2,FSWT.I(T1)		;GET INITIAL VALUE
	MOVEM	T2,FSWT.S(T1)		;STORE IN SWITCH AREA
	MOVEM	T2,FSWT.P(T1)		;AND IN STICKY SWITCH AREA
	AOBJN	T1,CLRS.1		;AND LOOP FOR ALL
CLRS.E:	POPJ	P,			;RETURN
SUBTTL	SCAN support -- CLRFIL - Clear file switches


CLRFIL:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-FSWT.L		;GET LENGTH OF FILE SWITCHES
	JUMPE	T1,CLRF.E		;RETURN IF NONE
CLRF.1:	MOVE	T2,FSWT.I(T1)		;GET DEFAULT
	MOVEM	T2,FSWT.S(T1)		;STORE IN FSWT.S## AREA
	AOBJN	T1,CLRF.1		;LOOP FOR ALL
CLRF.E:	POPJ	P,			;RETURN
SUBTTL	SCAN support -- MEMSTK - Memorize sticky file switches


MEMSTK:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-FSWT.L		;GET LENGTH OF FILE SWITCHES
	JUMPE	T1,MEMS.E		;RETURN IF NONE
MEMS.1:	MOVE	T2,FSWT.S(T1)		;GET VALUE
	CAME	T2,FSWT.I(T1)		;SEE IF SET
	  MOVEM	T2,FSWT.P(T1)		;NO--STORE AS STICKY IN FSWT.P##
	AOBJN	T1,MEMS.1		;AND LOOP
MEMS.E:	POPJ	P,			;RETURN
SUBTTL	SCAN support -- MEMFIL - Memorize file switches


MEMFIL:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T3,-FSWT.L		;GET LENGTH FILE SWITCHES
	JUMPE	T3,MEMF.E		;RETURN IF NONE
MEMF.1:	MOVE	T4,FSWT.S(T3)		;GET INITIAL VALUE
	MOVEM	T4,.FXLEN(T1)		;STORE IT
	ADDI	T1,1			;ADVANCE TO NEXT SCAN SPEC
	AOBJN	T3,MEMF.1		;LOOP FOR ALL SWITCHES
MEMF.E:	POPJ	P,			;AND RETURN
SUBTTL	SCAN support -- APPSTK - Apply sticky file switches


APPSTK:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-FSWT.L		;GET LENGTH OF FILE SWITCHES
	JUMPE	T1,APPS.E		;RETURN IF NONE
APPS.1:	MOVE	T2,FSWT.S(T1)		;GET VALUE FROM FSWT.S AREA
	CAMN	T2,FSWT.I(T1)		;SEE IF USER GAVE
	  MOVE	T2,FSWT.P(T1)		;NO--USE STICKY VALUE
	MOVEM	T2,FSWT.S(T1)		;YES--STORE
	AOBJN	T1,APPS.1		;LOOP FOR ALL
APPS.E:	POPJ	P,			;RETURN
SUBTTL	SCAN support -- APPFIL - Default file switches


;CALL:
;	MOVEI	T1,SCAN SPEC BLOCK
;	PUSHJ	P,APPFIL		;DEFAULT FILE SWITCHES
;USES T1-T4


APPFIL:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T2,-FSWT.L		;GET LENGTH FILE SWITCHES
	JUMPE	T2,APPF.E		;RETURN IF NONE
APPF.1:	MOVE	T3,.FXLEN(T1)		;GET SWITCH VALUE
	MOVE	T4,FSWT.D(T2)		;GET DEFAULT
	CAMN	T3,FSWT.I(T2)		;SWITCH GIVEN?
	 CAMN	T4,[-1]			;NO--NO DEFAULT PROVIDED?
	  SKIPA				;YES
	MOVEM	T4,.FXLEN(T1)		;NO--STORE DEFAULT
	ADDI	T1,1			;ADVANCE TO NEXT SWITCH
	AOBJN	T2,APPF.1		;LOOP FOR ALL
APPF.E:	POPJ	P,			;AND RETURN
SUBTTL	SCAN support -- APOFIL - Default SWITCH.INI file switches


APOFIL:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T2,-FSWT.L		;GET LENGTH FILE SWITCHES
	JUMPE	T2,APOF.E		;RETURN IF NONE
APOF.1:	MOVE	T3,.FXLEN(T1)		;GET USER SWITCH VALUE
	CAMN	T3,FSWT.I(T2)		;SEE IF SWITCH GIVEN
	 MOVE	T3,FSWT.S(T2)		;NO--GET SWITCH.INI VALUE
					;(MAY NOT BE SET--APPFIL WILL HANDLE)
	MOVEM	T3,.FXLEN(T1)		;STORE
	ADDI	T1,1			;ADVANCE TO NEXT SWITCH
	AOBJN	T2,APOF.1		;LOOP FOR ALL
APOF.E:	POPJ	P,			;AND RETURN
SUBTTL	SCAN support -- CLRGLB - Clear global switches


CLRGLB:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-GSWT.L		;GET LENGTH GLOBAL SWITCHES
	JUMPE	T1,CLRG.E		;RETURN IF NONE
CLRG.1:	MOVE	T2,GSWT.I(T1)		;GET INITIAL VALUE
	MOVEM	T2,GSWT.S(T1)		;STORE
	AOBJN	T1,CLRG.1		;LOOP FOR ALL
CLRG.E:	POPJ	P,			;AND RETURN
SUBTTL	SCAN support -- APPGLB - Default global switches


APPGLB:	PUSHJ	P,.SAVT4##		;SAVE T1-T4
	MOVSI	T1,-GSWT.L		;GET LENGTH GLOBAL SWITCHES
	JUMPE	T1,APPG.E		;RETURN IF NONE
APPG.1:	MOVE	T2,GSWT.S(T1)		;GET SWITCH VALUE
	MOVE	T3,GSWT.D(T1)		;GET DEFAULT
	CAMN	T2,GSWT.I(T1)		;SWITCH GIVEN?
	 CAMN	T3,[-1]			;NO--NO DEFAULT PROVIDED?
	  SKIPA				;YES
	MOVEM	T3,GSWT.S(T1)		;NO--STORE DEFAULT
	AOBJN	T1,APPG.1		;LOOP FOR ALL
APPG.E:	POPJ	P,			;AND RETURN
	SUBTTL	Tables -- Format defaults

DEFINE FORM(LIST),<
	IRP LIST,<
		..TEMP==..TEMP+1
		%'LIST==:..TEMP
		EXP	SIXBIT	/LIST/
	>
>

;Generate list of form typeout modes
DEFINE	FORMS,<FORM<VFAST,FAST,NORMAL,SLOW>>

..TEMP==0

;Generate SCAN keyword table and keyword symbol values
%.T:	FORMS
%.L==.-%.T

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<
	DEFINE FORM(LIST),<
		IRP LIST,<XWD L'ABR''LIST##, F'ABR''LIST##>
	>
	ABR'DAT::EXP	0		;;Illegal
		  FORMS
>

;Generate format dispatch tables
	MODES
	XX	DDB,DDB,DDBs,<No files>	;Until DDB is a mode

DEFINE XX(MOD,ABR,MAP,TXT,ERR),<ABR'DAT(T1)>

FORTAB:	MODES
	SUBTTL	Tables -- Monitor command interface

	..TEMP==-1
DEFINE	XX(MOD,ABR,MAP,TXT,ERR),<
	EXP SIXBIT/MOD/
	M%'MOD==:<..TEMP==..TEMP+1>
>

MON.T:	MODES
	XX	WHO		;Same as JOB mode
	XX	NETWORK		;Same as NODE mode
MON.L==.-MON.T

	SUBTTL	Tables -- SUMMARY and SORT keywords

DEFINE X(KEY,TXT,LOD,PRT,WID,RND<1>),<EXP SIXBIT /KEY/>

DEFINE START(X),<
	X'SMT==.
>

DEFINE LEN(X),<
	X'SML==.-X'SMT
>

SRT.T:!
SUM.T::	SUMMARY
	SUMGENERAL==.-SUM.T+1

DEFINE	XX(MOD,ABR,MAP,TXT,ERR),<IOWD ABR'SML,ABR'SMT>

ISRTX:!
ISUMX:	MODES

DEFINE	XX(MOD,ABR,MAP,TXT,ERR),<EXP ABR'SMT-SUM.T>

ASRTX:!
ASUMX:	MODES
	SUBTTL	Tables -- STATE keywords

STAT.L==0

DEFINE X(A),<
	EXP	SIXBIT	/A/
	STAT'A==:1_STAT.L
	STAT.L==STAT.L+1
>

STAT.T:	STATES
	SUBTTL	Other routines -- SETSPC - Set start and end of concatinated set

;CALL:
;	PUSHJ	P,SETSPC
;Returns with S.FRST and S.LAST updated
;Uses T1,I

SETSPC::MOVEM	I,S.FRST		;SAVE FIRST SPEC ADDRESS
SETS.1:	MOVEM	I,S.LAST		;SAVE LAST SPEC ADDRESS
	LOAD	T1,.FXMOD(I),FX.TRM	;GET TERMINATOR
	JUMPE	T1,.POPJ##		;RETURN IF END
	PUSHJ	P,S$NEXT##		;GET NEXT SCAN SPEC
	 POPJ	P,			;ALL DONE
	JRST	SETS.1			;AND LOOP
	SUBTTL	Other routines -- FIXTTY - Convert TTY/PTY/CTY to standard format

;CALL:
;	PUSHJ	P,FIXTTY
;RETURNS NEW VALUES IN .FZTTY/.FZTTM

FIXTTY::MOVE	T3,.FZTTY(I)		;GET /TTY:
	TLNN	T3,-1			;SEE IF 0,,STUFF
	 MOVSS	T3			;YES--POSITION TO LH
	HLRZ	T4,.FZTTY(I)		;GET LH
	CAIN	T4,1			;SEE IF SPECIAL NOxxx FORM
	 POPJ	P,			;YES--LEAVE ALONE
	PUSHJ	P,TTYCHK		;CONVERT TO STANDARD FORMAT
	MOVEM	T3,.FZTTY(I)		;SAVE
	PUSHJ	P,.MKMSK##		;MAKE MASK
	TRNE	T1,-1
	  TRO	T1,-1
	MOVEM	T1,.FZTTM(I)		;AND STORE
	POPJ	P,			;RETURN

TTYCHK:	CAMN	T3,[-1]			;SEE IF SPECIFIED
	 POPJ	P,			;NO--RETURN
	PUSHJ	P,FIXNNN		;EXTRACT NNN IN OCTAL
	HLRZ	T2,T3			;GET GENERIC PART
	CAIN	T2,'CTY'		;SEE IF CTY
	 JRST	FIXTC			;YES--CHECK THAT
	CAIN	T2,'PTY'		;SEE IF PTY
	 JRST	FIXTP			;YES--CHECK THAT
	CAIN	T2,'DET'		;SEE IF DET
	 JRST	FIXTD			;YES--CHECK THAT
	CAIE	T2,'TTY'		;SEE IF TTY
	 $FATAL	(ITF,<Illegal TTY format>);NO--ERROR
	CAMN	T1,CTYLIN##		;SEE IF CTY
	 JRST	FIXTCC			;YES--RETURN CTY
	CAMGE	T1,SYSPTY##		;SEE IF IN PTY RANGE
	 POPJ	P,			;NO--RETURN OK
	SUB	T1,SYSPTY##		;YES--CONVERT TO PTY RANGE
	CAML	T1,PTYN##		;SEE IF IN RANGE
	 $FATAL	(TOR,<TTY number out of range>);NO--ERROR
	PUSHJ	P,TTYNNN		; INTO SIXBIT
	HRLI	T1,'PTY'		; AND INCLUDE GENERIC
	MOVE	T3,T1			;RETURN IN T3
	POPJ	P,			;AND EXIT

FIXTCC:	MOVSI	T3,'CTY'		;RETURN CTY
	POPJ	P,			;AND EXIT

FIXTP:	CAML	T1,PTYN##		;SEE IF IN RANGE
	 JRST	E$$TOR			;NO--ERROR
	POPJ	P,			;YES--RETURN

FIXTC:	TRNE	T3,-1			;CTY HAS NO DIGITS
	 JRST	E$$ITF			;SO THATS BAD IF SPECIFIED
	POPJ	P,			;ELSE RETURN

FIXTD:	MOVE	T2,SYSPTY##		;GET FIRST PTY
	ADD	T2,PTYN##		;PLUS NUMBER OF PTYS
	CAML	T1,T2			;SEE IF IN RANGE
	 JRST	E$$TOR			;NO--EROR
	POPJ	P,			;YES--OK


	SUBTTL	Other routines -- FIXNNN - Form octal terminal number

FIXNNN:	MOVEI	T1,0			;CLEAR RESULT
	MOVE	T2,[POINT 6,T3,17]	;SETUP POINTER TO DIGITS
FIXN.1:	ILDB	T4,T2			;GET A DIGIT
	JUMPE	T4,.POPJ##		;RETURN IF BLANK
	CAIL	T4,'0'			;SEE IF OCTAL SIXBIT
	 CAILE	T4,'7'			;..
	  $FATAL (NNT,<Non-numeric TTY specification>)
	IMULI	T1,10			;ADVANCE DIGITS
	ADDI	T1,-'0'(T4)		;ADD NEXT DIGIT IN
	TLNN	T2,770000		;SEE IF ALL DONE
	 POPJ	P,			;YES--RETURN
	JRST	FIXN.1			;NO--LOOP


	SUBTTL	Other routines -- TTYNNN - Form SIXBIT terminal number

TTYNNN::CAILE	T1,777			;GENERAL RANGE CHECK TTY NUMBER
	 JRST	E$$TOR			;NO--OUT OF RANGE
	MOVE	T3,[POINT 6,T1,17]	;SETUP POINTER
TTYNN1:	IDIVI	T1,10			;BREAK OFF DIGITS
	PUSH	P,T2			;SAVE DIGIT
	CAIE	T1,0			;ALL DONE?
	  PUSHJ	P,TTYNN1		;NO--RECURSE
	POP	P,T2
	ADDI	T2,'0'			;MAKE SIXBIT
	IDPB	T2,T3			;STORE DIGIT
	POPJ	P,			;AND RETURN

	SUBTTL	Other routines -- CHKJOB - Range check job number

CHKJOB::PUSH	P,T1			;SAVE JOB NUMBER
	PUSHJ	P,XB$JMX##		;GET JOBMAX
	CAMGE	T1,(P)			;WITHIN RANGE?
	 $FATAL	(JOR,<Job number out of range>)
	POP	P,T1			;RESTORE T1
	POPJ	P,			;AND RETURN

	SUBTTL	Other routines -- CHKDOT - See if dot (".") valid

CHKDOT::TLNE	F,(FL.CRASH)		;CRASH FILE READING?
	 $FATAL	(DSC,<Dot (".") specification illegal when reading crash files>)
	TLNE	F,(FL.WHOSRV)		;ARE WE A SERVER?
	 $FATAL (DSS,<Dot (".") specification illegal for server requests>)
	POPJ	P,			;AND RETURN
	SUBTTL	Other routines -- FIXNOD - Fix up node specification

;This routine insures that .FZNNM has a sixbit node name, and .FZNMM
;has its wildcarded mask. It handles the case of .FZNNM initialing 
;having either sixbit alpha, sixbit numeric, or octal node name/number.

FIXNOD::MOVE	T1,.FZNNM(I)		;GET NODE
	CAMN	T1,[-1]			;SWITCH GIVEN?
	 POPJ	P,			;NO--LEAVE ALONE
	TLNN	T1,-1			;SIXBIT OR OCTAL?
	 JRST	NOD.1			;OCTAL
	MOVEI	T1,0			;SIXBIT--CLEAR ANSWER
	MOVE	T2,[POINT 6,.FZNNM(I)]	;POINT TO SIXBIT NUMERIC
NOD.2:	ILDB	T3,T2			;GET A CHAR
	JUMPE	T3,NOD.1		;DONE IF BLANK
	CAIL	T3,'0'			;SEE IF OCTAL DIGIT
	 CAILE	T3,'7'			;..
	  JRST	NOD.E			;NO--POSSIBLY ERROR
	IMULI	T1,10			;SHIFT
	ADDI	T1,-'0'(T3)		;ADD DIGIT IN
	TLNE	T2,770000		;DONE?
	 JRST	NOD.2			;NO--LOOP
NOD.1:	PUSHJ	P,NODINF##		;CONVERT TO NAME
	 MOVEI	T1,-1			;INVALID
	MOVEM	T1,.FZNNM(I)		;STORE NAME
	SETOM	.FZNMM(I)		;INDICATE NOT WILD
	POPJ	P,			;AND RETURN

NOD.E:	JUMPE	T1,.POPJ##		;OK IF NO DIGITS YET
	$FATAL	(NNN,<Non-numeric NODE specification>);ERROR IF NOT
	SUBTTL	Other routines -- MSKUC/MSKLC - Convert ASCII strings to masks

MSKUC::	SKIPA	T4,[137]		;MASK FOR UC CHARACTER
MSKLC::	 MOVEI	T4,177			;MASK FOR ALL CHARACTERS
	PUSHJ	P,.SAVE1##		;SAVE P1
	HRLI	T1,(POINT 7,)		;MAKE BYTE POINTERS
	HRLI	T2,(POINT 7,)		;..
	MOVEI	P1,(T3)			;SAVE COUNT
MSK.7:	ILDB	T3,T1			;GET A CHAR
	CAIN	T3,"*"			;ALL WILD?
	 JRST	MSK.S			;YES!
	CAIN	T3,"?"			;SEE IF WILDCARD
	 TDZA	T3,T3			;YES--FLAG
	  MOVEI	T3,(T4)			;NO--CLEAR
	IDPB	T3,T2			;STORE
	SOJG	P1,MSK.7		;LOOP
	POPJ	P,			;AND RETURN

MSK.S:	MOVEI	T3,0			;CLEAR MASK
	IDPB	T3,T2			;STORE FOR THIS POSITION
	SOJG	P1,MSK.S		;AND LOOP
	POPJ	P,			;AND RETURN
	SUBTTL	SETSCN - SCAN interface for SETUUOs


Comment	|


This module is designed to scan and setup the function table
to perform all the various SETUUOs that are scanned from the
SETUUO switch. It is called only from the internal switch dispatch
inside SCAN.

|
	SUBTTL	SETUUO -- $SETUUO - switch scanning

	[ASCIZ/SETUUO keyword:value/]
$SETUUO:MOVE	T1,[IOWD SETLEN,SETTAB]	;POINT TO TABLE
	PUSHJ	P,KEYWRD		;PROCESS THE KEYWORD
	AOS	SETCNT			;COUNT NUMBER OF SETUUO CMDS
	PUSHJ	P,.SAVE1##		;SAVE P1
	MOVE	P1,SETPTR		;GET OLD POINTER
	PUSH	P,P1			;SAVE POINTER TO ARG COUNT
	ADDI	P1,1			;BUMP TO JOB NUMBER
	SETZM	(P1)			;LEAVE ZERO FOR NOW
	ADDI	P1,1			;BUMP TO FNC,,ARG
	MOVE	T1,SETFNC(N)		;GET FUNCTION
	MOVEM	T1,(P1)			;STORE FNC CODE
	PUSHJ	P,@SETDSP(N)		;DISPATCH FOR SCANNING
	ADDI	P1,1			;BUMP PAST END
	CAIL	P1,SETBLK+LN$SET	;SEE IF TOO MANY ARGS
	 $FATAL	(TMS,<Too many SETUUO arguments>)
	MOVEM	P1,SETPTR		;STORE NEW POINTER
	POP	P,T1			;RESTORE ARG
	SUBI	P1,(T1)			;COMPUTE DIFFERENCE
	MOVEM	P1,(T1)			;STORE COUNT
	MOVE	T2,2(T1)		;CHECK ARG
	TRNN	T2,-1			;SEE IF ROUTINE SET
	 HRRM	N,2(T1)			;NO--STORE RETURNED ARG
	PJRST	.SWDON##		;AND RETURN W/O STORE

	SUBTTL	SETUUO -- Switch keyword tables and dispatches

DEFINE FUNCTIONS,<
	X	WATCH,	.STWTC
	X	MESSAGE,.STWTC
	X	LIMIT,	.STTLM
	X	TIME,	.STTLM
	X	CPU,	.STCPU
	X	DSKFUL,	.STDFL
	X	VIRTUAL,.STCVM
	X	PHYSICAL,.STCVM
	X	DEFER,	.STDFR
	X	DEFAULT,.STDEF
	X	VTIME,	.STTVM
>

DEFINE X(NAM,FNC),<EXP SIXBIT/NAM/>

SETTAB:	FUNCTIONS
SETLEN==.-SETTAB

DEFINE X(NAM,FNC),<XWD FNC,0>

SETFNC:	FUNCTIONS

DEFINE X(NAM,FNC),<EXP $'NAM>

SETDSP:	FUNCTIONS

	SUBTTL	SETUUO scanning -- $DSKFUL - Scan DSKFUL arguments

$DSKFUL:MOVEI	N,0			;DEFAULT PAUSE
	CAIE	C,":"			;MORING COMMING?
	 POPJ	P,			;NO--USE DEFAULT
	MOVE	T1,[IOWD DSKLEN,DSKTAB]	;YES--POINT TO TABLE
	PJRST	KEYWRD			;AND PROCESS

DSKTAB:	SIXBIT	/PAUSE/
	SIXBIT	/ERROR/
DSKLEN==.-DSKTAB

	SUBTTL	SETUUO scanning -- $DEFAULT - Scan DEFAULT arguments

$DEFAULT:CAIE	C,":"			;MORING COMING?
	  JRST	E$$SKR			;KEYWORD REQUIRED
	MOVE	T1,[IOWD DFRLEN,DFRTAB]	;POINT TO TABLE
	PUSHJ	P,KEYWRD		;PROCESS KEYWORD
	CAIE	C,":"			;STILL MORE?
	 JRST	E$$SKR			;NO--ERROR
	MOVEI	T1,1(P1)		;GET ADDR BLOCK
	HRRM	T1,(P1)			;STORE
	ADDI	P1,1			;BUMP
	MOVE	T1,DFRFNC(N)		;GET FUNCTION
	MOVEM	T1,(P1)			;STORE
	ADDI	P1,1			;BUMP
	PUSHJ	P,@DFRDSP(N)		;DISPATCH ON REST
	MOVEM	N,(P1)			;STORE ARG
	POPJ	P,			;RETURN

DEFINE DEFAULTS,<
IFN FTTUFTS,<
	X	EDITOR,	ST.EDI
	X	DESTINA,ST.DES
>;END IFN FTTUFTS
	X	PROTECT,.STDPC
	X	BUFFERS,.STDNB
>

DEFINE X(NAM,BIT),<EXP SIXBIT/NAM/>

DFRTAB:	DEFAULTS
DFRLEN==.-DFRTAB

DEFINE X(NAM,BIT),<EXP BIT>

DFRFNC:	DEFAULTS

DEFINE X(NAM,BIT),<EXP $'NAM>

DFRDSP:	DEFAULTS

$PROTECT:PUSHJ	P,.OCTNW##		;READ THE PROTECTION
	CAIL	N,0			;RANGE CHECK
	 CAIL	N,1_WID(RB.PRV)		;..
	  $FATAL (POR,<Protection out of range>)
	POPJ	P,			;AND RETURN

$BUFFER:PUSHJ	P,.DECNW##		;READ THE NUMBER
	TDNE	N,[-1,,777000]		;RANGE CHECK
	 $FATAL	(BOR,<Buffer argument out of range>)
	POPJ	P,			;AND RETURN

IFN FTTUFTS,<
$DESTIN:PJRST	.DECNW##		;READ THE DECIMAL ARG AND RETURN

$EDITOR:MOVE	T1,[IOWD EDILEN,EDITAB]	;POINT TO TABLE
	PUSHJ	P,KEYWRD		;PROCESS THE KEYWORD
	ANDI	N,1			;JUST THE LAST BIT
	POPJ	P,			;AND RETURN

EDITAB:	SIXBIT	/DEC/
	SIXBIT	/EXPERI/
	SIXBIT	/OFF/
	SIXBIT	/ON/
EDILEN==.-EDITAB
>;END IFN FTTUFTS

	SUBTTL	SETUUO scanning -- $DEFER - Scan DEFER argument

$DEFER:	MOVEI	N,1			;DEFAULT DEFER
	CAIE	C,":"			;MORE COMING?
	 POPJ	P,			;NO--USE DEFAULT
	MOVE	T1,[IOWD DEFLEN,DEFTAB]	;YES--POINT TO TABLE
	PJRST	KEYWRD			;AND PROCESS

DEFTAB:	SIXBIT	/NO/
	SIXBIT	/YES/
DEFLEN==.-DEFTAB

	SUBTTL	SETUUO scanning -- $VIRTUAL - Scan VIRTUAL arguments

$VIRTUAL:CAIE	C,":"			;ARG COMING?
	  JRST	E$$SKR			;KEYWORD REQUIRED
	PUSHJ	P,COREW			;READ CORE WORD
	MOVSI	N,(N)			;POSITION TO LH
VP.1:	MOVEI	T1,1(P1)		;GET ADDR
	HRRM	T1,(P1)			;STORE
	MOVEM	N,1(P1)			;STORE WORD
	AOJA	P1,.POPJ##		;BUMP AND RETURN

	SUBTTL	SETUUO scanning -- $PHYSICAL - Scan PHYSICAL argument

$PHYSICAL:CAIE	C,":"			;ARG COMING?
	 JRST	E$$SKR			;NO--ERROR
	PUSHJ	P,.TIAUC##		;GET A CHAR
	CAIL	C,"0"			;DIGIT?
	 CAILE	C,"9"			;..
	  JRST	PHYS.1			;NO
	PUSHJ	P,COREC			;READ CORE WORD
	JRST	VP.1			;AND STORE

PHYS.1:	MOVE	T1,[IOWD PHYLEN,PHYTAB]	;POINT TO TABLR
	PUSHJ	P,KEYWRC		;PROCESS KEYWORD
	CAIE	C,":"			;MORE COMING?
	 JRST	E$$SKR			;NO--ERROR
	PUSH	P,N			;SAVE INDEX
	PUSHJ	P,COREW			;READ CORE WORD
	POP	P,T1			;RESTORE INDEX
	CAIN	T1,0			;SEE IF LIMIT
	 TXO	N,400000		;YES--SET BIT
	JRST	VP.1			;AND STORE

PHYTAB:	SIXBIT	/LIMIT/
	SIXBIT	/GUIDEL/
PHYLEN==.-PHYTAB

COREW:	PUSHJ	P,.TIAUC##		;PRIME THE PUMP
COREC:	PUSHJ	P,.COREC##		;READ THE CORE WORD
	CAIG	N,^D512			;JUST A NUMBER?
	 LSH	N,^D10			;YES--CONVERT TO WORD
	LSH	N,-^D9			;ALWAYS CONVERT TO PAGES
	POPJ	P,			;AND RETURN


	SUBTTL	SETUUO scanning -- $VTIMER - Scan VTIMER arg

$VTIMER:MOVEI	N,^D500			;DEFAULT 500 MILLISECONDS
	CAIN	C,":"			;ARG COMING?
	 PUSHJ	P,.DECNW##		;YES--GET IT
	POPJ	P,			;AND RETURN

	SUBTTL	SETUUO scanning -- $TIME, $LIMIT - Scan a TIME argument

$TIME:!
$LIMIT:	PUSHJ	P,.SAVE2##		;SAVE P1/P2
	MOVEI	P1,0			;START CLEAR
	MOVEI	P2,3			;PRESET MAX SUPER DIGITS
LIMI.1:	CAIE	C,":"			;MORE COMING?
	 JRST	LIMI.2			;NO--RETURN
	PUSHJ	P,.DECNW##		;YES--READ NUMBER
	CAIL	N,^D0			;RANGE CHECK
	 CAILE	N,^D60			;..
	  $FATAL (LOR,<Limit out of range>)
	IMULI	P1,^D60			;SHIFT OVER
	ADDI	P1,(N)			;ACCUMULATE DIGITS
	SOJGE	P2,LIMI.1		;LOOP FOR MAX
	$FATAL	(IFL,<Illegally formated limit switch>)
LIMI.2:	MOVE	N,P1			;COPY ARG FOR RETURN
	POPJ	P,			;AND EXIT

	SUBTTL	SETUUO scanning -- $WATCH - Scan WATCH arguments

$WATCH:	PUSHJ	P,.SAVE1##		;SAVE P1
	CAIE	C,":"			;SEE IF MORE COMING
	 JRST	E$$SKR
	MOVEI	P1,0			;CLEAR WORD
WATC.1:	MOVE	T1,[IOWD WATLEN,WATTAB]	;SCAN A KEYWORD
	PUSHJ	P,KEYWRD		;..
	IOR	P1,WATBIT(N)		;INCLUDE THE BIT FOR THAT ONE
	CAIN	C,","			;MORE COMING?
	 JRST	WATC.1			;YES--LOOP
	MOVE	N,P1			;COPY ARG FOR RETURN
	POPJ	P,			;AND RETURN

DEFINE WATCHS,<
	X	DAY,	ST.WDY
	X	RUN,	ST.WRN
	X	WAIT,	ST.WWT
	X	READS,	ST.WDR
	X	WRITES,	ST.WDW
	X	VERSION,ST.WVR
	X	MTA,	ST.WMT
	X	FILE,	ST.WFI
	X	ALL,	ST.WAL
>

DEFINE X(NAM,BIT),<EXP SIXBIT/NAM/>

WATTAB:	WATCHS
WATLEN==.-WATTAB

DEFINE X(NAM,BIT),<EXP BIT>

WATBIT:	WATCHS

	SUBTTL	SETUUO scanning -- $MESSAGE - Scan MESSAGE arguments

$MESSAGE:PUSHJ	P,.SAVE1##		;SAVE P1
	CAIE	C,":"			;SEE IF MORE COMING
	 JRST	E$$SKR
	MOVEI	P1,0			;CLEAR WORD
MESC.1:	MOVE	T1,[IOWD MESLEN,MESTAB]	;SCAN A KEYWORD
	PUSHJ	P,KEYWRD		;..
	IOR	P1,MESBIT(N)		;INCLUDE THE BIT FOR THAT ONE
	CAIN	C,","			;MORE COMING?
	 JRST	MESC.1			;YES--LOOP
	MOVE	N,P1			;COPY ARG FOR RETURN
	POPJ	P,			;AND RETURN

DEFINE MESSAGES,<
	X	CONTINUATION,	ST.WCN
	X	FIRST,		ST.WFL
	X	PREFIX,		ST.WPR
	X	ALL,		ST.WMS
>

DEFINE X(NAM,BIT),<EXP SIXBIT/NAM/>

MESTAB:	MESSAGES
MESLEN==.-MESTAB

DEFINE X(NAM,BIT),<EXP BIT>

MESBIT:	MESSAGES

	SUBTTL	SETUUO scanning -- $CPU - Scan CPU argument

$CPU:	PUSHJ	P,.SAVE1##		;SAVE P1
	CAIE	C,":"			;SEE IF MORE COMING
	 JRST	E$$SKR
	MOVEI	P1,0			;CLEAR WORD
CPUC.1:	MOVE	T1,[IOWD CPULEN,CPUTAB]	;SCAN A KEYWORD
	PUSHJ	P,KEYWRD		;..
	IOR	P1,CPUBIT(N)		;INCLUDE THE BIT FOR THAT ONE
	CAIN	C,","			;MORE COMING?
	 JRST	CPUC.1			;YES--LOOP
	MOVE	N,P1			;COPY ARG FOR RETURN
	POPJ	P,			;AND RETURN

DEFINE CPUS,<
X	CPU0,	SP.CR0
X	CPU1,	SP.CR1
X	0,	SP.CR0
X	1,	SP.CR1
>

DEFINE X(NAM,BIT),<EXP SIXBIT/NAM/>

CPUTAB:	CPUS
CPULEN==.-CPUTAB

DEFINE X(NAM,BIT),<EXP BIT>

CPUBIT:	CPUS

	SUBTTL	Support routines -- KEYWRD- Read keyword and search table

KEYWRC:	PUSH	P,T1			;SAVE USERS ARG
	PUSHJ	P,.SIXSC##		;READ SIXBIT (CHAR IN C)
	JRST	KEYW.1			;JOIN PROCESSING
KEYWRD:	PUSH	P,T1			;SAVE USERS ARG
	PUSHJ	P,.SIXSW##		;READ THE KEYWORD
KEYW.1:	JUMPE	N,E$$NKS		;ERROR IF NULL
	MOVE	T1,(P)			;GET USERS ARG
	PUSHJ	P,.NAME##		;LOOKUP IN TABLE
	 JRST	KEYW.2			;ERROR
	POP	P,T2			;GET USERS ARG BACK
	MOVEI	T1,-1(T1)		;FIX UP T1
	TLZ	T2,-1			;AND T2
	SUBI	T1,(T2)			;COMPUTE OFFSET
	MOVEI	N,(T1)			;COPY
	POPJ	P,			;AND RETURN

KEYW.2:	JUMPG	T1,E$$AKW		;CHECK UNKNOWN
	$FATAL	(UKW,<Unknown keyword >,E.KEY)
	$FATAL	(AKW,<Ambiguous keyword >,E.KEY)
	$FATAL	(NKS,<No keyword specified>)
	$FATAL	(SKR,<Switch keyword required>)
E.KEY:	MOVE	T1,N			;COPY ARG
	PJRST	.TSIXN##		;TYPE AND RETURN
	SUBTTL	Storage

	$LOW

CRSOPN:	BLOCK	3			;CRASH FILE OPEN BLOCK
CRSLOK:	BLOCK	.RBVER+1		;CRASH FILE LOOKUP BLOCK
CRSFIL::BLOCK	^D15			;ASCIZ CRASH FILE SPEC
CRSPTR:	BLOCK	1			;CRASH FILE BYTE POINTER
S.CACHE::BLOCK	1			;/CACHE: switch
S.FRST::BLOCK	1
S.LAST::BLOCK	1
I.PREV::BLOCK	1
O.SPEC::BLOCK	.FZLEN

SETBLK::BLOCK	LN$SET
SETPTR:	BLOCK	1
SETCNT::BLOCK	1

	END