Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/decbts.mid
There are 2 other files named decbts.mid in the archive. Click here to see a list.
;	UUOSYM defines the dec UUO symbols

.auxil		; Don't cref this file's symbols

SUBTTL	NAMING CONVENTIONS

;PATTERN	USAGE

; .GGSSS	NUMBER OF GENERAL CATEGORY GG, SPECIFIC USE SSS
; GG.SSS	BYTE OF GENERAL CATEGORY GG, SPECIFIC USE SSS
; UUUUU.	UUO OR FUNCTION OR MACRO

; %GGSSS	GETTAB INDEX (WORD,,TABLE)
; GG%SSS	BYTE IN A SPECIFIC GETTAB
; GGEEE%	ERROR CODE OF CATEGORY GG, SPECIFIC ERROR EEE


;SPECIAL CASES--

; F%AAAA	RH=BYTE OF FEATURE TEST NAMED FTAAAA
;			IN LH=FEATURE DEFINED
;			IN RH=FEATURE TURNED ON
;		LH=LH OF GETTAB IN .GTFET CONTAINING INFO


;RESERVED FOR OTHER THAN C.MAC, C.UNV--

;ALL SYMBOLS CONTAING $ ARE RESERVED TO THE USER
;	(CUSTOMER, HIS USER, OR SPECIFIC PROGRAMS)

; ?.????	RESERVED TO OTHER PARAMETER FILES

;ALL SYMBOLS OF THE FORMS:  QABCDE, .QABCD, %QABCD
;	(I.E, WITH FIRST ALPHABETIC "Q") ARE RESERVED TO
;	QPRM.MAC, QPRM.UNV FOR THE QMANGR PARAMETER AREA, ETC.

;ALL SYMBOLS OF THE FORMS: %NNNNN, U..NNN, E..AAA
;	ARE RESERVED TO E.MAC, E.UNV FOR THE ERROR HANDLER

;ALL SYMBOLS OF THE FORMS: FS.M??, FX.???, TS.???, AND .FX???
;	ARE RESERVED TO SCNMAC.MAC, SCNMAC.UNV FOR SCAN AND WILD
SUBTTL	UPDATE AND CHECKOUT INSTRUCTIONS

;1.  COMPARE CREFS OF F% IN C VS. FT IN DATMAN
;2.  VERIFY NO $ IN CREF IN C AND THAT ONLY LEGAL PATTERNS EXIST
;3.  UPDATE CALLI TABLE FROM UUOCON
;4.  UPDATE GETTAB LIST OF TABLES (.GTABC) FROM UUOCON. DEFINE	
;	ENTRIES/BYTES IN NEW TABLES
;5.  FIND NEW ENTRIES IN OLD TABLES (ESP. .GTCNF, .GTLVD, .GTSYS,
;	.GTC0C, .GTC0V)
;6.  FIND NEW BYTES IN OLD WORDS (ESP. .GTPRV, %CNDBG, .GTWCH,
;	%CNST2)
;7.  FIND NEW ERRORS AND FUNCTIONS FOR UUOS (ESP. DEVTYP, OPEN/CLOSE,
;	PATH., LOOKUP)
;8.  FIND NEW DAEMON FUNCTIONS, ERRORS, FORMATS.
;9.  VERIFY NO DUPLICATES BY SCANNING CREF FOR ONLY SINGLE REFERENCES
;10. VERIFY THAT ALL USER JOBDAT SYMBOLS APPEAR
;11. VERIFY THAT SYMBOLS RESERVED TO OTHER FILES DO NOT APPEAR:
;	?.????
;	Q?????, %Q????, .Q????
;	%NNNNN, U..NNN, E..???
;	FS.M??, FX.???, TS.???, .FX???
IFNDEF DEFSYM,[	;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
		;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
DEFINE DEFSYM X/
IRPS Z,,[X]
IFNDEF Z,.QUOTE/.QUOTE/X
.ELSE [
   $$TEM1==Z
   .QUOTE/.QUOTE/X
   IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
]
.ISTOP
TERMIN TERMIN

IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
.MLLIT==1
$$TEMP==1
]
.ELSE $$TEMP==0
SUBTTL	GETTAB CONSTITUENTS

DEFSYM	.GTSTS==:0	;JOB STATUS
DEFSYM	.GTADR==:1	;JOB RELOCATION AND PROTECTION
DEFSYM	.GTPPN==:2	;PROJ-PROG NUMBER
DEFSYM	.GTPRG==:3	;PROGRAM NAME
DEFSYM	.GTTIM==:4	;TOTAL RUN TIME IN TICKS
DEFSYM	.GTKCT==:5	;KILO-CORE TICKS
DEFSYM	.GTPRV==:6	;PRIV WORD
	DEFSYM	JP.IPC==:1_35.	;IPCF PRIVILEGED FUNCTIONS
	DEFSYM	JP.DPR==:3_33.	;HIGHEST DISK PRIORITY
	DEFSYM	JP.MET==:1_32.	;METER UUO
	DEFSYM	JP.POK==:1_31.	;POKE MONITOR
	DEFSYM	JP.CCC==:1_30.	;CHANGE CPU SPECIFICATION
	DEFSYM	JP.HPQ==:17_26.	;HI PRIORITY QUEUE
	DEFSYM	JP.NSP==:1_25.	;UNSPOOL DEVICES
	DEFSYM	JP.ENQ==:1_24.	;ENQ./DEQ. PRIVS
	DEFSYM	JP.RTT==:1_22.	;RTTRP UUO
	DEFSYM	JP.LCK==:1_21.	;LOCK UUO
	DEFSYM	JP.TRP==:1_20.	;TRAPSET UUO
	DEFSYM	JP.SPA==:1_19.	;SPY ON ALL CORE
	DEFSYM	JP.SPM==:1_18.	;SPY ON MONITOR
DEFSYM	.GTSWP==:7	;SWAPPING POINTERS
DEFSYM	.GTTTY==:10	;TTY TABLE
DEFSYM	.GTCNF==:11	;CONFIGURATION
	DEFSYM	%CNFG0==:0,,11	;NAME OF SYSTEM
	DEFSYM	%CNFG1==:1,,11	; ..
	DEFSYM	%CNFG2==:2,,11	; ..
	DEFSYM	%CNFG3==:3,,11	; ..
	DEFSYM	%CNFG4==:4,,11	; ..
	DEFSYM	%CNDT0==:5,,11	;DATE OF SYSTEM
	DEFSYM	%CNDT1==:6,,11	; ..
	DEFSYM	%CNTAP==:7,,11	;NAME OF SYSTEM DEVICE
	DEFSYM	%CNTIM==:10,,11	;TIME OF DAY
	DEFSYM	%CNDAT==:11,,11	;DATE IN BINARY
	DEFSYM	%CNSIZ==:12,,11	;SYSTEM MEMORY SIZE
	DEFSYM	%CNOPR==:13,,11	;NAME OF OPR TTY
	DEFSYM	%CNDEV==:14,,11	;LH = DDB CHAIN
	DEFSYM	%CNSJN==:15,,11	;LH=-SEGN, RH=JOBN NUMBERS
	DEFSYM	%CNTWR==:16,,11	;NON-ZERO IS DUAL SEGMENTS
	DEFSYM	%CNSTS==:17,,11	;SYSTEM STATES
		DEFSYM	ST%DSK==:1_35.	;DISK SYSTEM
		DEFSYM	ST%SWP==:1_34.	;SWAPPING SYSTEM
		DEFSYM	ST%LOG==:1_33.	;LOGIN
		DEFSYM	ST%FTT==:1_32.	;FULL DUPLEX TTY SOFTWARE
		DEFSYM	ST%PRV==:1_31.	;PRIVILEGES
		DEFSYM	ST%TWR==:1_30.	;DUAL SEGMENT SOFTWARE
		DEFSYM	ST%CYC==:1_29.	;50 HERTZ CLOCK
		DEFSYM	ST%TDS==:7_26.	;TYPE OF DISK SYSTEM
		DEFSYM	ST%IND==:1_25.	;IND. PPNS ON DISK
		DEFSYM	ST%IMG==:1_24.	;IMAGE MODE TTYS
		DEFSYM	ST%DUL==:1_23.	;DUAL PROCESSOR SYSTEM
		DEFSYM	ST%MRB==:1_22.	;MULTIPLE RIBS SUPPORTED
		DEFSYM	ST%HPT==:1_21.	;HIGH PRECISION TIME ACCOUNTING
		DEFSYM	ST%EMO==:1_20.	;EXCLUDE OVERHEAD FROM TIME ACCOUNTING
		DEFSYM	ST%RTC==:1_19.	;REAL TIME CLOCK
		DEFSYM	ST%MBF==:1_18.	;MADE FOR FOROTS
		DEFSYM	ST%NOP==:1_8.	;NO OPERATOR IN ATTENDANCE
		DEFSYM	ST%NSP==:1_7.	;UNSPOOL DEVICES
		DEFSYM	ST%ASS==:1_6.	;ASSIGN/INIT DEVICES
		DEFSYM	ST%NRT==:1_3.	;NO REMOTE TTY'S
		DEFSYM	ST%BON==:1_2.	;BATCH ONLY
		DEFSYM	ST%NRL==:1_1.	;NO REMOTE LOGINS
		DEFSYM	ST%NLG==:1_0.	;NO LOGINS EXCEPT CTY/OPR
	DEFSYM	%CNSER==:20,,11	;APR SERIAL NUMBER
	DEFSYM	%CNNSM==:21,,11	;NANO-SECS PER MEMORY CYCLE
	DEFSYM	%CNPTY==:22,,11	;LH=NUMBER FIRST INV. TTY, RH=NUMBER PTYS
	DEFSYM	%CNFRE==:23,,11	;POINTER FOR BIT MAP OF CORE BLOCKS
	DEFSYM	%CNLOC==:24,,11	;LOCATION OF LOW CORE CORE BLOCKS
	DEFSYM	%CNSTB==:25,,11	;POINTER TO STATION BLOCK CHAIN
	DEFSYM	%CNOPL==:26,,11	;OPR LDB ADDRESS
	DEFSYM	%CNTTF==:27,,11	;POINTER TO TTY FREE CHUNKS
	DEFSYM	%CNTTC==:30,,11	;LH=NUMBER OF TTY CHUNKS, RH=ADDR OF FIRST
	DEFSYM	%CNTTN==:31,,11	;NUMBER OF FREE CHUNKS
	DEFSYM	%CNLNS==:32,,11	;POINTER TO CURRENT COMMAND TTY
	DEFSYM	%CNLNP==:33,,11	;POINTER TO TTY LINE TABLE
	DEFSYM	%CNVER==:34,,11	;MONITOR VERSION
	DEFSYM	%CNDSC==:35,,11	;POINTER TO DATA SET CONTROL TABLE
	DEFSYM	%CNDLS==:36,,11	;LAST RECIEVE INT. FROM DC10 (PRE 5.07)
	DEFSYM	%CNCCI==:37,,11	;LAST RECIEVE INT. FROM 680I (PRE 5.07)
	DEFSYM	%CNSGT==:40,,11	;LAST DORM. SEG THROWN AWAY
	DEFSYM	%CNPOK==:41,,11	;ADDRESS OF LAST POKED LOCATION
	DEFSYM	%CNPUC==:42,,11	;LH=JOB, RH=COUNT OF POKES
	DEFSYM	%CNWHY==:43,,11	;REASON FOR LAST RELOAD
	DEFSYM	%CNTIC==:44,,11	;NUMBER OF TICKS PER SECOND
	DEFSYM	%CNPDB==:45,,11	;POINTER TO PDB POINTER TABLES
	DEFSYM	%CNRTC==:46,,11	;RESOLUTION OF RUNTIME CLOCK (UNITS/SEC)
	DEFSYM	%CNCHN==:47,,11	;LH=PTR TO CHANNEL D.B. LIST,RH=UNUSED
	DEFSYM	%CNLMX==:50,,11	;LOGMAX (MAX JOBS TO BE LOGGED IN)
	DEFSYM	%CNBMX==:51,,11	;BATMAX (MAX BATCH JOBS)
	DEFSYM	%CNBMN==:52,,11	;BATMIN (MIN JOBS RESERVED FOR BATCH)
	DEFSYM	%CNDTM==:53,,11	;INTERNAL FORMAT DATE,,TIME
	DEFSYM	%CNLNM==:54,,11	;NUMBER OF JOBS LOGGED IN
	DEFSYM	%CNBNM==:55,,11	;NUMBER OF BATCH JOBS LOGGED IN
	DEFSYM	%CNYER==:56,,11	;LOCAL YEAR
	DEFSYM	%CNMON==:57,,11	;LOCAL MONTH
	DEFSYM	%CNDAY==:60,,11	;LOCAL DAY OF MONTH
	DEFSYM	%CNHOR==:61,,11	;LOCAL HOUR
	DEFSYM	%CNMIN==:62,,11	;LOCAL MINUTES
	DEFSYM	%CNSEC==:63,,11	;LOCAL SECONDS
	DEFSYM	%CNGMT==:64,,11	;TIME FROM GMT IN INTERNAL FORMAT
	DEFSYM	%CNDBG==:65,,11	;DEBUGGING STATUS WORD
		DEFSYM	ST%DBG==:1_35.	;SYSTEM DEBUGGING
		DEFSYM	ST%RDC==:1_34.	;RELOAD ON DEBUF STOPCD
		DEFSYM	ST%RJE==:1_33.	;RELOAD ON JOB STOPCD
		DEFSYM	ST%NAR==:1_32.	;NO AUTO RELOADS
		DEFSYM	ST%CP1==:1_31.	;IF SECOND CPU STOPS, STOP CPU0
	DEFSYM	%CNFRU==:66,,11	;MONITOR FREE CORE USED
	DEFSYM	%CNTCM==:67,,11	;MAX TTY CHUNKS
	DEFSYM	%CNCVN==:70,,11	;CUSTOMER VERSION (136)
	DEFSYM	%CNDVN==:71,,11	;DEC VERSION (137)
	DEFSYM	%CNDFC==:72,,11	;NUMBER OF DF10 DATA CHANS
	DEFSYM	%CNRTD==:73,,11	;NUMBER OF RT DEVICES
	DEFSYM	%CNHPQ==:74,,11	;NUMBER OF HPQ'S
	DEFSYM	%CNLDB==:75,,11	;TTY DDB WORD POINTING TO LDB
	DEFSYM	%CNMVO==:76,,11	;MAX VECTOR OFFSET FOR PISYS.
	DEFSYM	%CNMIP==:77,,11	;MAX PRIORITY FOR PISYS.
	DEFSYM	%CNMER==:100,,11	;ADDR OF MTA0,,OFFSET OF MTA ERR RPT WORD
	DEFSYM	%CNET1==:101,,11	;USER ADDRESS OF EXEC'S AC T1
	DEFSYM	%CNLSD==:102,,11	;LENGTH OF SHORT DDB
	DEFSYM	%CNLLD==:103,,11	;LENGTH OF LONG DDB
	DEFSYM	%CNLDD==:104,,11	;LENGTH OF DISK DDB
	DEFSYM	%CNEXM==:105,,11	;ADDRESS IN JOBDAT OF LAST E/D COMMAND
	DEFSYM	%CNST2==:106,,11	;MORE CONFIGURATION FEATURE INDICATORS
		DEFSYM	ST%NDN==:1_17.	;NETWORK DEVICE NAMES (GGGNNU)
		DEFSYM	ST%XPI==:1_16.	;EXCLUDE PI TIE FROM RUNTIME
		DEFSYM	ST%ERT==:1_15.	;EBOX/MBOX RUNTIME (KL10 ONLY)
		DEFSYM	ST%EXE==:1_14.	;SAVE AND SSAVE WRITE .EXE FILES
		DEFSYM	ST%NJN==:1_13.	;SYSTEM USES 9 BIT JOB NUMBERS
		DEFSYM	ST%EER==:1_12.	;EXTENDED ERROR REPORTING
		DEFSYM	ST%TAP==:1_11.	;TAPSER INCLUDED
		DEFSYM	ST%MBE==:1_10.	;MASS BUS ERROR REPORTS
		DEFSYM	ST%GAL==:1_9.	;GALAXY-10 SUPPORT INCLUDED
		DEFSYM	ST%ENQ==:1_8.	;ENQ./DEQ. IS INCLUDED
		DEFSYM	ST%SHC==:1_7.	;SCHEDULER HAS CLASSES
		DEFSYM	ST%NSE==:1_6.	;NON-SUPERSEDING ENTER
		DEFSYM	ST%MSG==:1_5.	;MSGSER INCLUDED
		DEFSYM	ST%PSI==:1_4.	;PSISER INCLUDED
		DEFSYM	ST%IPC==:1_3.	;IPCF INCLUDED
		DEFSYM	ST%VMS==:1_2.	;VMSER INCLUDED
		DEFSYM	ST%MER==:1_1.	;MTA ERROR REPORTING
		DEFSYM	ST%SSP==:1_0.	;SWAP SPACE IN PAGES
	DEFSYM	%CNPIM==:107,,11	;MINIMUM CONDITION IN PISYS
	DEFSYM	%CNPIL==:110,,11	;LENGTH OF INTERNAL PIT'S
	DEFSYM	%CNPIA==:111,,11	;ADDRESS OF JBTPIA
	DEFSYM	%CNMNT==:112,,11	;MONITOR TYPE
		DEFSYM	CN%MNX==:1_35.	;STRANGE MONITOR
		DEFSYM	CN%MNT==:77_12.	;DEC-KNOWN TYPE
				;1=TOPS 2=ITS 3=TENEX
		DEFSYM	CN%MNS==:77_6.	;DEC SUB TYPE
		DEFSYM	CN%MNC==:77	;CUSTOMER SUBSUB TYPE
	DEFSYM	%CNOCR==:113,,11	;FIRST CDR DDB,,OFFSET TO CARD COUNT
	DEFSYM	%CNOCP==:114,,11	;DITTO FOR CDP
	DEFSYM	%CNPGS==:115,,11	;UNIT OF CORE ALLOCATION
	DEFSYM	%CNMMX==:116,,11	;MINIMUM LEGAL CORMAX
	DEFSYM	%CNNSC==:117,,11	;NUMBER OF SCHEDULER CLASSES
	DEFSYM	%CNUTF==:120,,11	;EXPONENTIAL USER TIME FACTOR
	DEFSYM	%CNHSO==:121,,11	;START OF MONITORS HISEG
	DEFSYM	%CNHSL==:122,,11	;LENGTH OF MONITORS HISEG
	DEFSYM	%CNNWC==:123,,11	;NUMBER OF WORDS OF CORE

DEFSYM	.GTNSW==:12	;NON-SWAPPING DATA TABLE
	DEFSYM	%NSCMX==:10,,12	;SYSTEM CORMAX (LARGEST USER JOB+1)
IF1,IFDEF %NSCLS,IFN <%NSCLS-<11,,12>>,EXPUNGE %NSCLS
	DEFSYM	%NSCLS==:11,,12	;BYTE POINTER TO LAST FREE CORE AREA
	DEFSYM	%NSCTL==:12,,12	;VIRTUAL CORE TALLY
	DEFSYM	%NSSHW==:13,,12	;JOB NUMBER STOPPED BY SHUFFLER
	DEFSYM	%NSHLF==:14,,12	;ADDRESS OF LOWEST HOLE IN SYSTEM
	DEFSYM	%NSUPT==:15,,12	;UPTIME (TICKS)
	DEFSYM	%NSSHF==:16,,12	;WORDS SHUFFLED BY SYSTEM
	DEFSYM	%NSSTU==:17,,12	;SYSTEM TAPE USER
	DEFSYM	%NSHJB==:20,,12	;HIGHEST JOB NUMBER IN USE
IF1,IFDEF %NSCLW,IFN <%NSCLW-<21,,12>>,EXPUNGE %NSCLW
	DEFSYM	%NSCLW==:21,,12	;WORDS CLEARED BY SYSTEM
	DEFSYM	%NSLST==:22,,12	;LOST TIME
	DEFSYM	%NSMMS==:23,,12	;MEMORY SIZE
	DEFSYM	%NSTPE==:24,,12	;TOTAL MEMEORY PARITY ERRORS
	DEFSYM	%NSSPE==:25,,12	;SPURIOUS MEMORY PARITY ERRORS
	DEFSYM	%NSMPC==:26,,12	;MULTIPLE MEMORY PARITY ERRORS
	DEFSYM	%NSMPA==:27,,12	;LAST MEMORY PARITY ADDRESS
	DEFSYM	%NSMPW==:30,,12	;LAST MEMORY PARITY WORD
	DEFSYM	%NSMPP==:31,,12	;LAST MEMORY PARITY PC
	DEFSYM	%NSEPO==:32,,12	;NUMBER OF EXEC PDL OVERFLOWS NOT RECOVERED
	DEFSYM	%NSEPR==:33,,12	;NUMBER OF EXEC PDL OVERFLOWS RECOVERED
	DEFSYM	%NSMXM==:34,,12	;MAX VALUE OF CORMAX
	DEFSYM	%NSKTM==:35,,12	;KSYS TIMER
	DEFSYM	%NSCMN==:36,,12	;CORMIN
	DEFSYM	%NSABC==:37,,12	;COUNT OF ADDRESS BREAKS
	DEFSYM	%NSABA==:40,,12	;ADDRESS OF ADDRESS BREAKS
	DEFSYM	%NSLJR==:41,,12	;LAST JOB RUN
	DEFSYM	%NSACR==:42,,12	;ACCUMULATED CPU RESPONSE
	DEFSYM	%NSNCR==:43,,12	;NUMBER OF CPU RESPONSES
	DEFSYM	%NSSCR==:44,,12	;ACCUMULATED SQUARE OF CPU RESPONSE
		;*** NO MORE GROWTH--SEE .GTC0V
DEFSYM	.GTSDT==:13	;SWAPPING DATA TABLE
	DEFSYM	%SWBGH==:0,,13	;BIG HOLE
	DEFSYM	%SWFIN==:1,,13	;FINISH
	DEFSYM	%SWFRC==:2,,13	;FORCE
	DEFSYM	%SWFIT==:3,,13	;FIT
	DEFSYM	%SWVRT==:4,,13	;VIRTAL
	DEFSYM	%SWERC==:5,,13	;SWAP ERROR COUNT
	DEFSYM	%SWPIN==:6,,13	;-1 IF SWAP IN AND FTPDBS=1
DEFSYM	.GTSGN==:14	;SEGMENT NUMBERS
	DEFSYM	SN%SHR==:1_34.	;SHARABLE SEGMENT
	DEFSYM	SN%LOK==:1_30.	;HIGH SEGMENT IS LOCKED
DEFSYM	.GTODP==:15	;ONCE ONLY DISK PARAMETERS
	DEFSYM	%ODSWP==:0,,15	;HIGHEST SWAPPING IN 4-SERIES
	DEFSYM	%ODK4S==:1,,15	;K FOR SWAPPING
	DEFSYM	%ODPRT==:2,,15	;IN CORE PROTECT TIME MULTIPLIER
	DEFSYM	%ODPRA==:3,,15	;IN CORE PROTECT TIME OFFSET
DEFSYM	.GTLVD==:16	;LEVEL-D PARAMETERS
	DEFSYM	%LDMFD==:0,,16	;MFD PPN [1,1]
	DEFSYM	%LDSYS==:1,,16	;SYS PPN [1,4]
	DEFSYM	%LDFFA==:2,,16	;FULL FILE ACCESS PPN [1,2]
	DEFSYM	%LDHLP==:3,,16	;UNLOGGED IN PPN [2,5]
	DEFSYM	%LDQUE==:4,,16	;QUE AREA PPN [3,3]
	DEFSYM	%LDSPB==:5,,16	;FIRST PPB,,NEXT PPB TO SCAN
	DEFSYM	%LDSTR==:6,,16	;FIRST STR DATA BLOCK,,OFFSET TO NEXT
	DEFSYM	%LDUNI==:7,,16	;FIRST UNIT DATA BLOCK,,OFFSET TO NEXT
	DEFSYM	%LDSWP==:10,,16	;FIRST SWAP UNIT,,OFFSET TO NEXT
	DEFSYM	%LDCRN==:11,,16	;NUMBER OF CORE BLOCKS
	DEFSYM	%LDSTP==:12,,16	;STANDARD FILE PROTECTION
	DEFSYM	%LDUFP==:13,,16	;STANDARD UFD PROTECTION
	DEFSYM	%LDMBN==:14,,16	;NUMBER OF MONITOR BUFFERS
	DEFSYM	%LDQUS==:15,,16	;QUE STRUCTURE NAME
	DEFSYM	%LDCRP==:16,,16	;CRASH PPN [10,1]
	DEFSYM	%LDSFD==:17,,16	;MAX DEPTH OF SFDS TO WRITE
	DEFSYM	%LDSPP==:20,,16	;SPOOLED FILE PROTECTION
	DEFSYM	%LDSYP==:21,,16	;STANDARD SYS: PROTECTION
	DEFSYM	%LDSSP==:22,,16	;STANDARD SYS:.SYS PROTECTION
	DEFSYM	%LDMNU==:23,,16	;MAX. NEGATIVE USETI WHICH READS EXTENDED RIBS
	DEFSYM	%LDMXT==:24,,16	;MAX. BLOCKS TO TRANSFER
	DEFSYM	%LDNEW==:25,,16	;EXPERIMENTAL SYS PPN [1,5]
	DEFSYM	%LDOLD==:26,,16	;OLD SYS PPN [1,3]
	DEFSYM	%LDUMD==:27,,16	;USER MODE DIAGNOSTICS PPN [6,6]
	DEFSYM	%LDNDB==:30,,16	;DEFAULT DISK BUFFERS IN RING
	DEFSYM	%LDMSL==:31,,16	;MAX UNITS IN A.S.L.
	DEFSYM	%LDALG==:32,,16	;ALGOL LIBRARY PPN [5,4]
	DEFSYM	%LDBLI==:33,,16	;BLISS LIBRARY PPN [5,5]
	DEFSYM	%LDFOR==:34,,16	;FORTRAN LIBRARY PPN [5,6]
	DEFSYM	%LDMAC==:35,,16	;MACRO LIBRARY PPN (SOURCE NOT UNIVERSALS) [5,7]
	DEFSYM	%LDUNV==:36,,16	;UNIVERSAL LIBRARY PPN [5,17]
	DEFSYM	%LDPUB==:37,,16	;PUBLIC USER SOFTWARE LIBRARY PPN [1,6]
		;CONTINUE .GTLVD
	DEFSYM	%LDTED==:40,,16	;TEXT EDITOR LIBRARY PPN [5,10]
	DEFSYM	%LDREL==:41,,16	;REL FILE LIBRARY PPN [5,11]
	DEFSYM	%LDRNO==:42,,16	;RUNOFF LIBRARY PPN [5,12]
	DEFSYM	%LDSNO==:43,,16	;SNOBOL LIBRARY PPN [5,13]
	DEFSYM	%LDDOC==:44,,16	;DOC FILE LIBRARY PPN [5,14]
	DEFSYM	%LDFAI==:45,,16	;FAIL LIBRARY PPN [5,15]
	DEFSYM	%LDMUS==:46,,16	;MUSIC LIBRARY PPN [5,16]
	DEFSYM	%LDDEC==:47,,16	;STANDARD DEC SOFTWARE [10,7]
	DEFSYM	%LDSLP==:50,,16	;POINTER TO ACTIVE SWAP LIST
	DEFSYM	%LDBAS==:51,,16	;BASIC LIB PPN [5,1]
	DEFSYM	%LDCOB==:52,,16	;COBOL LIB PPN [5,2]
	DEFSYM	%LDMXI==:53,,16	;PDP-11 LIB PPN [5,3]
	DEFSYM	%LDNEL==:54,,16	;NELIAC LIB PPN [5,20]
	DEFSYM	%LDDMP==:55,,16	;DUMP PPN [5,21]
	DEFSYM	%LDPOP==:56,,16	;POP2 LIB PPN [5,22]
	DEFSYM	%LDTST==:57,,16	;TEST LIB PPN [5,23]
	DEFSYM	%LDLSO==:60,,16	;LOG SOFT OVERRUNS (CALL DAEMON) IF OVERRUN
			; IS RECOVERED ON 1 RETRY AND %LDLSO .NE. 0
	DEFSYM	%LDMBR==:61,,16	;MASS-BUSS REG. LH=OFFSET INTO KDB OF # OF
			; REGISTER. RH=OFFSET INTO UDB OF REGS.
	DEFSYM	%LDBBP==:62,,16	;LH=POINTER TO BYTE POINTER TO # LEFT IN BAT
			;RH=OFFSET (IN UDB) OF CHAN TERM FAIL CNT
DEFSYM	.GTRCT==:17	;DISK BLOCKS READ
DEFSYM	.GTWCT==:20	;DISK BLOCKS WRITTEN
DEFSYM	.GTDBS==:21	;DISK BLOCK SECONDS
DEFSYM	.GTTDB==:22	;TIME OF LAST ALLOCATE AND SIZE
DEFSYM	.GTSLF==:23	;GETTAB IMMEDIATE (SELF)
DEFSYM	.GTDEV==:24	;DEVICE OR STRUCTURE (SEGMENTS ONLY)
DEFSYM	.GTWSN==:25	;NAMES OF WAIT STATES
DEFSYM	.GTLOC==:26	;REMOTE STATION NUMBER
DEFSYM	.GTCOR==:27	;CORE TABLE
DEFSYM	.GTCOM==:30	;MONITOR COMMAND NAMES
DEFSYM	.GTNM1==:31	;USER NAME
DEFSYM	.GTNM2==:32	; ..
DEFSYM	.GTCNO==:33	;CHARGE NUMBER
DEFSYM	.GTTMP==:34	;TMPCOR POINTERS
DEFSYM	.GTWCH==:35	;WATCH BITS
	DEFSYM	JW.WDY==:1_34.	;DAYTIME AT START
	DEFSYM	JW.WRN==:1_33.	;RUN TIME
	DEFSYM	JW.WWT==:1_32.	;WAIT TIME
	DEFSYM	JW.WDR==:1_31.	;DISK READS
	DEFSYM	JW.WDW==:1_30.	;DISK WRITES
	DEFSYM	JW.WVR==:1_29.	;VERSIONS
	DEFSYM	JW.WMT==:1_28.	;MTA STATISTICS
	DEFSYM	JW.WAL==:376_27.	;WATCH ALL
	DEFSYM	JW.WMS==:7_24.	;/MESSAGE LEVEL
		DEFSYM	.JWWPR==:1	;PREFIX
		DEFSYM	.JWWOL==:2	;ONE LINE
		DEFSYM	.JWWPO==:3	;PRIFIX,FIRST
		DEFSYM	.JWWLG==:6	;LONG, NO PREFIX
		DEFSYM	.JWWPL==:7	;PREFIX AND LONG
	DEFSYM	JW.WCN==:1_26.	;/MESSAGE:CONTINUATION
	DEFSYM	JW.WFL==:1_25.	;/MESSAGE:FIRST
	DEFSYM	JW.WPR==:1_24.	;/MESSAGE:PREFIX
DEFSYM	.GTSPL==:36	;SPOOLING CONTROL
	DEFSYM	JS.PRI==:7_9.	;DISK PRIORITY
	DEFSYM	JS.DFR==:1_8.	;DEFERED SPOOLING (MPB-I STYLE)
	DEFSYM	JS.PCR==:1_4.	;SPOOL CDR
	DEFSYM	JS.PCP==:1_3.	;SPOOL CDP
	DEFSYM	JS.PPT==:1_2.	;SPOOL PTP
	DEFSYM	JS.PPL==:1_1.	;SPOOL PLT
	DEFSYM	JS.PLP==:1_0.	;SPOOL LPT
	DEFSYM	JS.PAL==:37	;SPOOL ALL
DEFSYM	.GTRTD==:37	;REAL TIME STATUS
DEFSYM	.GTLIM==:40	;TIME AND BATCH STATUS
	DEFSYM	JB.LCR==:777_26.	;CORE LIMIT
	DEFSYM	JB.LBT==:1_25.	;BATCH JOB
	DEFSYM	JB.LSY==:1_24.	;GOTTEN FROM SYS:
	DEFSYM	JB.LTM==:77777777  ;TIME LIMIT TO GO IN JIFFIES
DEFSYM	.GTQQQ==:41	;SCHEDULING QUEUE HEADERS
DEFSYM	.GTQJB==:42	;JOB QUEUE LINK
DEFSYM	.GTCM2==:43	;MONITOR SET COMMAND NAMES
DEFSYM	.GTCRS==:44	;HARDWARE STATUS FROM CRASH
	DEFSYM	CR.SAP==:0,,44	;APR CONI
	DEFSYM	CR.SPI==:1,,44	;PI CONI
	DEFSYM	CR.SSW==:2,,44	;APR DATAI (SWITCHES)
DEFSYM	.GTISC==:45	;SWAP IN SCAN TABLES
DEFSYM	.GTOSC==:46	;SWAP OUT SCAN
DEFSYM	.GTSSC==:47	;SCHEDULER SCAN
DEFSYM	.GTRSP==:50	;RESPONSE COUNTER TABLE
DEFSYM	.GTSYS==:51	;SYSTEM WIDE DATA
	DEFSYM	%SYERR==:0,,51	;SYSTEM WIDE HARDWARE ERROR COUNT
	DEFSYM	%SYCCO==:1,,51	;NUMBER OF TIMES COMCNT WAS OFF
	DEFSYM	%SYDEL==:2,,51	;DISABLED HARDWARE ERROR COUNT
	DEFSYM	%SYSPC==:3,,51	;LH=3 LETTER CODE OF LAST STOPCD,RH=ADDRESS+1 OF LAST STOPCD
	DEFSYM	%SYNDS==:4,,51	;NUMBER OF DEBUG STOPCDS
	DEFSYM	%SYNJS==:5,,51	;NUMBER OF JOB STOPCDS (INCLUDING DEBUG
			; STOPCD'S IF A JOB IS STOPPED)
	DEFSYM	%SYNCP==:6,,51	;NUMBER OF COMMANDS PROCESSED
	DEFSYM	%SYSJN==:7,,51	;LAST STOPCD--JOB NUMBER
	DEFSYM	%SYSTN==:10,,51	;LAST STOPCD--TTY NAME
	DEFSYM	%SYSPN==:11,,51	;LAST STOPCD--PROGRAM NAME
	DEFSYM	%SYSUU==:12,,51	;LAST STOPCD--UUO
	DEFSYM	%SYSUP==:13,,51	;LAST STOPCD--USER PC
	DEFSYM	%SYSPP==:14,,51	;LAST STOPCD--USER PPN
DEFSYM	.GTWHY==:52	;OPERATOR WHY COMMENTS IN ASCIZ
DEFSYM	.GTTRQ==:53	;TOTAL TIME IN RUN QUEUES WHETHER OR NOT RUNNING
DEFSYM	.GTSPS==:54	;SECOND PROCESSOR STATUS
	DEFSYM	SP.SC0==:1_6.	;SET CPU COMMAND (OK TO USE)
	DEFSYM	SP.CR0==:1_0.	;SET CPU UUO (OK TO USE)
		;OTHERS BY SHIFTING LEFT 1 BIT/PROCESSOR
DEFSYM	.GTC0C==:55	;CPU0 CDB CONSTANTS
DEFSYM	.GTC0V==:56	;CPU0 CDB VARIABLES
DEFSYM	.GTC1C==:57	;CPU1 CDB CONSTANTS
DEFSYM	.GTC1V==:60	;CPU1 CDB VARIABLES
DEFSYM	.GTC2C==:61	;CPU2 CDB CONSTANTS
DEFSYM	.GTC2V==:62	;CPU2 CDB VARIABLES
DEFSYM	.GTC3C==:63	;CPU3 CDB CONSTANTS
DEFSYM	.GTC3V==:64	;CPU3 CDB VARIABLES
DEFSYM	.GTC4C==:65	;CPU4 CDB CONSTANTS
DEFSYM	.GTC4V==:66	;CPU4 CDB VARIABLES
DEFSYM	.GTC5C==:67	;CPU5 CDB CONSTANTS
DEFSYM	.GTC5V==:70	;CPU5 CDB VARIABLES
	DEFSYM	%CCPTR==:0,,55	;LH=POINTER TO NEXT CDB
	DEFSYM	%CCSER==:1,,55	;APR SERIAL NUMBER
	DEFSYM	%CCOKP==:2,,55	;CPU OK IF LE 0, JIFFIES DEAD IF GT 0
	DEFSYM	%CCTOS==:3,,55	;TRAP OFFSET FOR KA10 INTERRUPT LOCATIONS
	DEFSYM	%CCLOG==:4,,55	;LOGICAL NAME (CPUN)
	DEFSYM	%CCPHY==:5,,55	;PHYSICAL NAME (CPXN)
	DEFSYM	%CCTYP==:6,,55	;TYPE OF PROCESSOR (LH-DEC, RH-CUST)
		DEFSYM	.CC166==:1	;PDP-6
		DEFSYM	.CCKAX==:2	;KA-10
		DEFSYM	.CCKIX==:3	;KI-10
		DEFSYM	.CCKLX==:4	;KL-10
	DEFSYM	%CCMPT==:7,,55	;REL. GETTAB POINTER TO BAD ADDRESS TABLE
	DEFSYM	%CCRTC==:10,,55	;REAL TIME CLOCK (DK10) DDB
	DEFSYM	%CCRTD==:11,,55	;REAL TIME CLOCK DDB IF HI PREC. TIME ACCT.
	DEFSYM	%CCPAR==:12,,55	;REL. GETTAB POINTER TO PARITY SUMMARY
	DEFSYM	%CCRSP==:13,,55	;REL. GETTAB POINTER TO RESPONSE SUMMARY
	DEFSYM	%CCDKX==:14,,55	;NUMBER OF DK10'S ON THIS CPU
	DEFSYM	%CCEBS==:15,,55	;NUMBER OF EBOX TICKS PER SECOND ON KL10
	DEFSYM	%CCMBS==:16,,55	;NUMBER OF MBOX TICKS PER SECOND ON KL10
	DEFSYM	%CVUPT==:5,,56	;UPTIME
	DEFSYM	%CVLST==:12,,56	;LOST TIME
	DEFSYM	%CVTPE==:14,,56	;TOTAL MEMORY PARITY ERRORS
	DEFSYM	%CVSPE==:15,,56	;SPURIOUS MEMORY PARITY ERRORS
	DEFSYM	%CVMPC==:16,,56	;MULTIPLE MEMORY PARITY ERRORS
	DEFSYM	%CVMPA==:17,,56	;MEMORY PARITY ADDRESS
	DEFSYM	%CVMPW==:20,,56	;MEMORY PARITY WORD
	DEFSYM	%CVMPP==:21,,56	;MEMORY PARITY PC
		;HOLES ABOVE HERE BECAUSE OF .GTNSW COMPATABILITY
	DEFSYM	%CVABC==:27,,56	;ADDRESS BREAK COUNT
	DEFSYM	%CVABA==:30,,56	;ADDRESS BREAK ADDRESS
	DEFSYM	%CVLJR==:31,,56	;LAST JOB RUN
			;(OBSOLETE)
	DEFSYM	%CVSTS==:35,,56	;STOP TIME-SHARING THIS CPU
	DEFSYM	%CVRUN==:36,,56	;OPERATOR CONTROLLED SCHEDULING
		DEFSYM	CV%RUN==:1_35.	;DON'T RUN JOBS
	DEFSYM	%CVNUL==:37,,56	;NULL TIME
	DEFSYM	%CVEDI==:40,,56	;LH=PC,RH=COUNT OF EXEC DON'T CARE INTERRUPTS.
	DEFSYM	%CVJOB==:41,,56	;CURRENT JOB
	DEFSYM	%CVOHT==:42,,56	;OVERHEAD TIME IN JIFFIES (EXC. UUOS)
	DEFSYM	%CVEVM==:43,,56	;MAX EVM FOR LOCK UUO MAPPING
	DEFSYM	%CVEVU==:44,,56	;USED EVM FOR LOCK UUO MAPPING
	DEFSYM	%CVLLC==:45,,56	;LOCK LOOP COUNT
	DEFSYM	%CVTUC==:46,,56	;TOTAL UUO COUNT
	DEFSYM	%CVTJC==:47,,56	;TOTAL JOB CONTEXT SWITCH COUNT
	DEFSYM	%CVTNE==:50,,56	;TOTAL NXM ERRORS
	DEFSYM	%CVSNE==:51,,56	;TOTAL NON-REPRODUCIBLE NXM ERRORS
	DEFSYM	%CVNJA==:52,,56	;NUMBER OF JOBS AFFECTED BY THIS NXM
	DEFSYM	%CVMNA==:53,,56	;FIRST MEMORY ADDRESS WITH NXM
	DEFSYM	%CVETJ==:54,,56	;EBOX TICKS PER JIFFY (COMPUTED)
	DEFSYM	%CVNTJ==:54,,56	;MBOX TICKS PER JIFFY (COMPUTED BY ONCE)
	DEFSYM	%CVRSO==:0	;(REL.) SUM TTY OUT UUO RESPONSE
	DEFSYM	%CVRNO==:1	;(REL.) NUMBER TTY OUT UUO RESPONSE
	DEFSYM	%CVRHO==:2	;(REL.) HI-SUM SQ TTY OUT UUO RESPONSE
	DEFSYM	%CVRLO==:3	;(REL.) LO-SUM SQ TTY OUT UUO RESPONSE
	DEFSYM	%CVRSI==:4	;(REL.) SUM TTY INP UUO RESPONSE
	DEFSYM	%CVRNI==:5	;(REL.) NUMBER TTY INP UUO RESPONSE
	DEFSYM	%CVRHI==:6	;(REL.) HI-SUM SQ TTY INP UUO RESPONSE
	DEFSYM	%CVRLI==:7	;(REL.) LO-SUM SQ TTY INP UUO RESPONSE
	DEFSYM	%CVRSR==:10	;(REL.) SUM QUANTUM REQ RESPONSE
	DEFSYM	%CVRNR==:11	;(REL.) NUMBER QUANTUM REQ RESPONSE
	DEFSYM	%CVRHR==:12	;(REL.) HI-SUM SQ QUANTUM REQ RESPONSE
	DEFSYM	%CVRLR==:13	;(REL.) LO-SUM SQ QUANTUM REQ RESPONSE
	DEFSYM	%CVRSX==:14	;(REL.) SUM ONE OF ABOVE RESPONSE
	DEFSYM	%CVRNX==:15	;(REL.) NUMBER ONE OF ABOVE RESPONSE
	DEFSYM	%CVRHX==:16	;(REL.) HI-SUM SQ ONE OF ABOVE RESPONSE
	DEFSYM	%CVRLX==:17	;(REL.) LO-SUM SQ ONE OF ABOVE RESPONSE
	DEFSYM	%CVRSC==:20	;(REL.) SUM CPU RESPONSE
	DEFSYM	%CVRNC==:21	;(REL.) NUMBER CPU RESPONSE
	DEFSYM	%CVRHC==:22	;(REL.) HI-SUM SQ CPU RESPONSE
	DEFSYM	%CVRLC==:23	;(REL.) LO-SUM SQ CPU RESPONSE
	DEFSYM	%CVPLA==:0	;(REL.) HIGHEST ADDRESS OF PARITY ERROR
	DEFSYM	%CVPMR==:1	;(REL.) ADDRESS IN SEGMENT OF PARITY ERROR
	DEFSYM	%CVPTS==:2	;(REL.) NUMBER OF PARITIES THIS SWEEP
	DEFSYM	%CVPSC==:3	;(REL.) NUMBER OF PARITY SWEEPS
	DEFSYM	%CVPUE==:4	;(REL.) NUMBER OF USER ENABLED PARITY ERRORS
	DEFSYM	%CVPAA==:5	;(REL.) AND OF BAD ADDRESS THIS SWEEP
	DEFSYM	%CVPAC==:6	;(REL.) AND OF BAD CONTENTS THIS SWEEP
	DEFSYM	%CVPOA==:7	;(REL.) IOR OF BAD ADDRESS THIS SWEEP
	DEFSYM	%CVPOC==:10	;(REL.) IOR OF BAD CONTENTS THIS SWEEP
	DEFSYM	%CVPCS==:11	;(REL.) NUMBER OF SPURIOUS CHANNEL ERRORS
DEFSYM	.GTFET==:71	;FEATURE TEST SETTINGS
	DEFSYM	%FTUUO==:0,,71	;UUOS
		DEFSYM	F%EQDQ==:0,,1_13.	;ENQ./DEQ.
		DEFSYM	F%GALA==:0,,1_12.	;GALAXY-10 FEATURES
		DEFSYM	F%PI==:000,,1_11.	;SOFT. PI SYS
		DEFSYM	F%IPCF==:0,,1_10.	;IPCF
		DEFSYM	F%CCIN==:0,,1_9.	;CONTROL-C INTERCEPT
		DEFSYM	F%PTYU==:0,,1_8.	;JOBSTS AND CNTLJOB UUOS
		DEFSYM	F%PEEK==:0,,1_7.	;PEEK UUO
		DEFSYM	F%POKE==:0,,1_6.	;POKE. UUO
		DEFSYM	F%JCON==:0,,1_5.	;JOB CONTINUE
		DEFSYM	F%SPL==:00,,1_4.	;SPOOLING
		DEFSYM	F%PRV==:00,,1_3.	;JOB PRIVS
		DEFSYM	F%DAEM==:0,,1_2.	;DAEMON FUNCTIONS, ETC.
		DEFSYM	F%GETT==:0,,1_1.	;GETTAB UUO
		DEFSYM	F%2REL==:0,,1_0.	;2-REGISTER RELOCATION
	DEFSYM	%FTRTS==:1,,71	;REAL TIME AND SCHEDULER
		DEFSYM	F%NSCH==:1,,1_10.	;NEW SCHEDULER
		DEFSYM	F%VM==:001,,1_9.	;VIRTUAL MEMORY
		DEFSYM	F%SWAP==:1,,1_8.	;SWAPPER (DEFINED IN S)
		DEFSYM	F%SHFL==:1,,1_7.	;SHUFFLER
		DEFSYM	F%RTC==:01,,1_6.	;DK10 SERVICE
		DEFSYM	F%LOCK==:1,,1_5.	;LOCK UUO
		DEFSYM	F%TRPS==:1,,1_4.	;TRPSET UUO
		DEFSYM	F%RTTR==:1,,1_3.	;RTTRAP UUO
		DEFSYM	F%SLEE==:1,,1_2.	;SLEEP UUO
		DEFSYM	F%HIBW==:1,,1_1.	;HIBER/WAKE UUOS
		DEFSYM	F%HPQ==:01,,1_0.	;HIGH PRIORITY RUN QUEUES
	DEFSYM	%FTCOM==:2,,71	;COMMANDS
		DEFSYM	F%EXE==:02,,1_15.	;.EXE FORMAT FILES SUPPORTED
		DEFSYM	F%MOFF==:2,,1_14.	;SET MEMORY OFF LINE
		DEFSYM	F%MONL==:2,,1_13.	;SET MEMORY ON LINE
		DEFSYM	F%CCL==:02,,1_12.	;COMPIL COMMANDS (DEFINED IN S)
		DEFSYM	F%CCLX==:2,,1_11.	;COMPIL-CLASS
		DEFSYM	F%QCOM==:2,,1_10.	;QUEUE AND FRIENDS
		DEFSYM	F%SET==:02,,1_9.	;SET UUO/COMMAND
		DEFSYM	F%VERS==:2,,1_8.	;VERSION
		DEFSYM	F%BCOM==:2,,1_7.	;BATCH CONTROL FILE
		DEFSYM	F%SEDA==:2,,1_6.	;SET DAYTIME AND SET DATE
		DEFSYM	F%WATC==:2,,1_5.	;WATCH
		DEFSYM	F%FINI==:2,,1_4.	;FINISH AND CLOSE
		DEFSYM	F%REAS==:2,,1_3.	;REASSIGN UUO/COMMAND
		DEFSYM	F%EXAM==:2,,1_2.	;E AND D
		DEFSYM	F%TALK==:2,,1_1.	;SEND
		DEFSYM	F%ATTA==:2,,1_0.	;ATTACH COMMAND/UUO
	DEFSYM	%FTACC==:3,,71	;ACCOUNTING INFO
		DEFSYM	F%TLIM==:3,,1_4.	;TIME/CORE LIMITS, ETC.
		DEFSYM	F%CNO==:03,,1_3.	;CHARGE NUMBER
		DEFSYM	F%UNAM==:3,,1_2.	;USER NAME
		DEFSYM	F%KCT==:03,,1_1.	;KILO-CORE-TICKS
		DEFSYM	F%TIME==:3,,1_0.	;RUN TIME
	DEFSYM	%FTERR==:4,,71	;ERROR CONTROL AND OPTIONS
		DEFSYM	F%MNXM==:4,,1_13.	;NXM ERROR RECOVERY CODE
		DEFSYM	F%KL10==:4,,1_12.	;THIS IS A KL10
		DEFSYM	F%KA10==:4,,1_11.	;THIS IS A KA10
		DEFSYM	F%22BI==:4,,1_10.	;22 BIT CHANNEL (DF10C)
		DEFSYM	F%PDBS==:4,,1_9.	;SWAPPING PDB
		DEFSYM	F%KI10==:4,,1_8.	;THIS IS A KI10
		DEFSYM	F%METR==:4,,1_7.	;METER. UUO
		DEFSYM	F%EXON==:4,,1_6.	;EXECUTE ONLY FILES (ALWAYS 1 SINCE 5.06)
		DEFSYM	F%KII==:04,,1_5.	;KI-10 INSTR CHECK ON KA10
		DEFSYM	F%BOOT==:4,,1_4.	;BOOTS BOOTSTRAP
		DEFSYM	F%2SWP==:4,,1_3.	;MULT. SWAPPING DEVICES
		DEFSYM	F%EL==:004,,1_2.	;DAEMON ERROR LOGGING
		DEFSYM	F%MS==:004,,1_1.	;MULTI-PROCESSORS
		DEFSYM	F%MEMP==:4,,1_0.	;MEMORY PARITY RECOVERY CODE
	DEFSYM	%FTDEB==:5,,71	;DEBUGGING FEATURES
		DEFSYM	F%2SEG==:5,,1_8.	;2 SEGMENT MONITOR
		DEFSYM	F%RSP==:05,,1_7.	;RESPONSE TIME
		DEFSYM	F%WHY==:05,,1_6.	;WHY RELOAD
		DEFSYM	F%PATT==:5,,1_5.	;PATCH SPACE IN TABLES
		DEFSYM	F%TRAC==:5,,1_4.	;BACK TRACKING FEATURES
		DEFSYM	F%HALT==:5,,1_3.	;HALTS IN MONITOR
		DEFSYM	F%RCHK==:5,,1_2.	;INTERNAL REDUNDANCY CHECKS
		DEFSYM	F%MONP==:5,,1_1.	;MONITOR WRITE PROTECTED
		DEFSYM	F%CHEC==:5,,1_0.	;MONITOR CHECKSUMMED
	DEFSYM	%FTSTR==:6,,71	;FILE STRUCTURE PARAMS
		DEFSYM	F%DHIA==:6,,1_16.	;HIGH AVAIL. FEATURES
		DEFSYM	F%DSIM==:6,,1_15.	;MULTI. ACCESS UPDATE
		DEFSYM	F%NUL==:06,,1_14.	;NUL
		DEFSYM	F%LIB==:06,,1_13.	;LIB/SYS/OLD/NEW ETC.
		DEFSYM	F%DPRI==:6,,1_12.	;DISK PRIORITY TRANSFERS
		DEFSYM	F%APLB==:6,,1_11.	;APPEND TO LAST BLOCK
		DEFSYM	F%AIR==:06,,1_10.	;APPEND IMPLIES READ
		DEFSYM	F%GSRC==:6,,1_9.	;GENERIC DEVICE SEARCH
		DEFSYM	F%DRDR==:6,,1_8.	;RENAME ACROSS DIRECTORIES
		DEFSYM	F%DSEK==:6,,1_7.	;SEEK UUO
		DEFSYM	F%DSUP==:6,,1_6.	;SUPER USETI/O
		DEFSYM	F%DQTA==:6,,1_5.	;DISK QUOTAS
		DEFSYM	F%STR==:06,,1_4.	;MULTIPLE STRUCTURES
		DEFSYM	F%5UUO==:6,,1_3.	;MISC. 5-SERIES UUOS
		DEFSYM	F%PHYO==:6,,1_2.	;PHYSICAL ONLY
		DEFSYM	F%SFD==:06,,1_1.	;SUB FILE DIRECTORIES
		DEFSYM	F%MOUN==:6,,1_0.	;STRUUO FUNCTIONS
	DEFSYM	%FTDSK==:7,,71	;INTERNAL DISK PARAMS
		DEFSYM	F%RP04==:7,,1_17.	;INCLUDE RP04 SUPPORT
		DEFSYM	F%SLCK==:7,,1_16.	;DEBUG SEARCH LIST CODE
		DEFSYM	F%2ATB==:7,,1_15.	;2 PART ACCESS BLOCKS
		DEFSYM	F%CBDB==:7,,1_14.	;DEBUG CB INTERLOCK
		DEFSYM	F%LOGI==:7,,1_13.	;LOGIN (DEFINED IN S)
		DEFSYM	F%DISK==:7,,1_12.	;DISK SYSTEM (DEFINED IN S)
		DEFSYM	F%FFRE==:7,,1_11.	;PREVENT RACES IN FILFND
		DEFSYM	F%SWPE==:7,,1_10.	;SWAP READ ERROR RECOVERY
		DEFSYM	F%DBBK==:7,,1_9.	;BAD BLOCK MARKING
		DEFSYM	F%DUFC==:7,,1_8.	;UFD COMPRESSOR
		DEFSYM	F%DETS==:7,,1_7.	;DISK ERROR SIMULATOR
		DEFSYM	F%DMRB==:7,,1_6.	;MULTI RIBS
		DEFSYM	F%DSMC==:7,,1_5.	;SMALLER ALLOC. OF DISK CORE BLOCKS
		DEFSYM	F%DALC==:7,,1_4.	;ALLOCATION OPTIMISATIONS
		DEFSYM	F%DSTT==:7,,1_3.	;DISK USAGE STATISTICS
		DEFSYM	F%DHNG==:7,,1_2.	;HUNG DISK RECOVERY
		DEFSYM	F%DBAD==:7,,1_1.	;DISK OFF-LINE RECOVERY
		DEFSYM	F%DOPT==:7,,1_0.	;LATENCY OPTIMIZATION
	DEFSYM	%FTSCN==:10,,71	;SCANNER OPTIONS
		DEFSYM	F%DCXH==:10,,1_13.;DC10-H (2741 ON DC10) SUPPORTED
		DEFSYM	F%TVP==:010,,1_12.;FANCY VERTICAL POSITIONING
		DEFSYM	F%TYPE==:10,,1_11.;TYPESET-10 FEATURES IN DC76
		DEFSYM	F%2741==:10,,1_10.;SUPPORT 2741-LIKE TERMINALS
		DEFSYM	F%CAFE==:10,,1_9.;DC76
		DEFSYM	F%TBLK==:10,,1_8.;TTY BLANK COMMAND
		DEFSYM	F%TPAG==:10,,1_7.;PAGE AND DISPLAY KNOWLEDGE
		DEFSYM	F%DIAL==:10,,1_6.;AUTO DIALER
		DEFSYM	F%SCLC==:10,,1_5.;SPECIAL LINE CONTROL
		DEFSYM	F%SCNR==:10,,1_4.;HARDWARE SCANER
		DEFSYM	F%MODM==:10,,1_3.;MODEM CONTROL
		DEFSYM	F%630H==:10,,1_2.;SINGLE SCANNER 630
		DEFSYM	F%GPO2==:10,,1_1.;U.K. MODEM SUPPORT
		DEFSYM	F%HDPX==:10,,1_0.;TRULY HALF DUPLEX TERMINALS
	DEFSYM	%FTPER==:11,,71	;I/O PARAMS
		DEFSYM	F%RDBA==:11,,1_16.;READ BACKWARDS ON TU70
		DEFSYM	F%TLAB==:11,,1_15.;TAPE LABEL SUPPORT
		DEFSYM	F%TAPO==:11,,1_14.;TAPOP. UUO
		DEFSYM	F%TASK==:11,,1_13.;TASK TO TASK NETWORK SUPPORT
		DEFSYM	F%DAS7==:11,,1_12.;DAS78 (REMOTE 360/370/2780) SUPPORT
		DEFSYM	F%XTC==:011,,1_11.;DA28-C NETWORK SUPPORT
		DEFSYM	F%MSGS==:11,,1_10.;MSGSER (MPX DEVICE)
		DEFSYM	F%HSLN==:11,,1_9.;HIGH-SPEED LOGICAL DEVICE SEARCH
		DEFSYM	F%CPTR==:11,,1_8.;CDP TROUBLE INTERCEPT
		DEFSYM	F%CRTR==:11,,1_7.;CDR TROUBLE INTERCEPT
		DEFSYM	F%CTY1==:11,,1_6.;SUPPORT CTY1
		DEFSYM	F%REM==:011,,1_5.;REMOTE STATION SOFTWARE
		DEFSYM	F%LPTR==:11,,1_4.;LPT DEVICE ERROR RECOVERY
		DEFSYM	F%OPRE==:11,,1_3.;DEVICE ERRS TO OPER
		DEFSYM	F%CDRS==:11,,1_2.;CDR SUPER IMAGE MODE
		DEFSYM	F%MTSE==:11,,1_1.;MTA DENSITY/BLOCK COMMANDS
		DEFSYM	F%TMP==:011,,1_0.;TMPCOR AREA
DEFSYM	.GTEDN==:72	;ERSATZ DEVICE NAMES
DEFSYM	.GTSCN==:73	;SCANNER DATA
	DEFSYM	%SCNRI==:0,,73	;NUMBER OF RCV INTERRUPTS
	DEFSYM	%SCNXI==:1,,73	;NUMBER OF XMT INTERRUPTS
	DEFSYM	%SCNEI==:2,,73	;NUMBER OF ECHO INTERRUPTS (IN XI)
	DEFSYM	%SCNMB==:3,,73	;MAX BUFFER SIZE
	DEFSYM	%SCNAL==:4,,73	;NUMBER OF ACTIVE LINES
	DEFSYM	%SCNPS==:5,,73	;SIZE OF BUFFER FOR PIM MODE
	DEFSYM	%SCNRA==:6,,73	;ADDRESS OF RECINT
	DEFSYM	%SCNXA==:7,,73	;ADDRESS OF XMTINT
	DEFSYM	%SCNTA==:10,,73	;ADDRESS OF TYPE
DEFSYM	.GTSNA==:74	;LAST SEND ALL IN 9-BIT
	DEFSYM	%SCNAE==:0,,74	;BYTE POINTER TO END BYTE IN MESSAGE
	DEFSYM	%SCNAS==:1,,74	;BYTE POINTER TO FIRST-1 BYTE IN MESSAGE
	DEFSYM	%SCNAM==:2,,74	;FIRST WORD OF DATA IN MESSAGE
DEFSYM	.GTCMT==:75	;SET TTY COMMAND NAMES
DEFSYM	.GTPID==:76	;PROCESS COMMUNICATION ID (IPCF)
DEFSYM	.GTIPC==:77	;IPCF MISC. DATA
	DEFSYM	%IPCML==:0,,77	;MAX. PACKET LENGTH
	DEFSYM	%IPCSI==:1,,77	;PID OF SYSTEM-WIDE [SYSTEM]INFO
	DEFSYM	%IPCDQ==:2,,77	;DEFAULT QUOTA
	DEFSYM	%IPCTS==:3,,77	;TOTAL PACKETS SENT
	DEFSYM	%IPCTO==:4,,77	;TOTAL PACKETS OUTSTANDING
	DEFSYM	%IPCCP==:5,,77	;PID OF [SYSTEM]IPCC
	DEFSYM	%IPCPM==:6,,77	;PID MASK
	DEFSYM	%IPCMP==:7,,77	;LENGTH OF PID TABLE
	DEFSYM	%IPCNP==:10,,77	;NUMBER OF PID'S NOW DEFINED
	DEFSYM	%IPCTP==:11,,77	;TOTAL PID'S DEFINED SINCE RELOAD
DEFSYM	.GTUPM==:100	;USER PAGE MAP PAGE
DEFSYM	.GTCMW==:101	;SET WATCH COMMAND NAMES
DEFSYM	.GTCVL==:102	;CURRENT VIRT LIMIT,,CURRENT PHY LIMIT
DEFSYM	.GTMVL==:103	;MAXIMUM VIRT LIMIT,,MAXIMUM PHY LIMIT
DEFSYM	.GTIPA==:104	;IPCF STATISTICS PER JOB
	DEFSYM	IP.CQD==:-1,,0	;COUNT OF SENDS SINCE LOGIN
	DEFSYM	IP.CQC==:0,,-1	;COUNT OF RECEIVES SINCE LOGIN
DEFSYM	.GTIPP==:105	;IPCF POINTERS AND COUNTS
	DEFSYM	IP.CQP==:777_9.	;OUTSTANDING SENDS
	DEFSYM	IP.CQO==:777	;OUTSTANDING RECEIVES
DEFSYM	.GTIPI==:106	;PID FOR THIS JOB'S [SYSTEM]INFO
DEFSYM	.GTIPQ==:107	;IPCF FLAGS AND QUOTAS PER JOB
	DEFSYM	IP.CQX==:1_35.	;DISABLED
	DEFSYM	IP.CQQ==:1_34.	;QUOTA SET
	DEFSYM	IP.CQS==:777_9.	;SEND QUOTA
	DEFSYM	IP.CQR==:777	;RECEIVE QUOTA
DEFSYM	.GTDVL==:110	;POINTER TO THIS JOB'S LOGICAL NAME TABLE
DEFSYM	.GTABS==:111	;ADDRESS BREAK WORD (DATAO PTR,)
DEFSYM	.GTCMP==:112	;RESERVED FOR COMPATABILITY PACKAGES
	DEFSYM	%CMPMT==:0,,112	;SIMULATED MONITOR TYPE (%CNMNT)
	DEFSYM	%CMPCV==:1,,112	;CUSTOMER VERSION OF COMPAT. (136)
	DEFSYM	%CMPDV==:2,,112	;DEC VERSION OF COMPAT. (137)
DEFSYM	.GTVM==:113	;GENERAL VIRTUAL MEMORY DATA
	DEFSYM	%VMSWP==:0,,113	;SWAP COUNT
	DEFSYM	%VMSCN==:1,,113	;SCAN COUNT
	DEFSYM	%VMSIP==:2,,113	;SWAPS IN PROGRESS
	DEFSYM	%VMSLE==:3,,113	;SWAP LIST ENTRIES
	DEFSYM	%VMTTL==:4,,113	;TOTAL VM IN USE
	DEFSYM	%VMCMX==:5,,113	;MAX VALUE OF %VMTTL ALLOWED
	DEFSYM	%VMRMX==:6,,113	;PAGING RATE MAX FOR SYSTEM
	DEFSYM	%VMCON==:7,,113	;CONSTANT USED IN SWAP RATE COMPUTATION
	DEFSYM	%VMQJB==:10,,113	;JOB TO REQUE TO PQV (-1 IF ALL)
	DEFSYM	%VMRMJ==:11,,113	;PAGING RATE MAX PER JOB
	DEFSYM	%VMTLF==:12,,113	;TIME OF LAST FAULT
	DEFSYM	%VMSPF==:13,,113	;SYSTEM PAGE FAULT COUNTS: NOT IN WS,,IN WS
	DEFSYM	%VMSW1==:14,,113	;ADDRESS OF SWPLST
	DEFSYM	%VMSW2==:15,,113	;ADDRESS OF SW2LST
	DEFSYM	%VMSW3==:16,,113	;ADDRESS OF SW3LST
DEFSYM	.GTVRT==:114	;PER JOB PAGING RATE
DEFSYM	.GTSST==:115	;SCHEDULER STATISTICS
	DEFSYM	%SSOSO==:0,,115	;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
		; THEM TO GIVE UP RESOURCE FOR SWAP OUT.
	DEFSYM	%SSORJ==:1,,115	;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
		; THEM TO GIVE UP RESOURCE REQUIRED TO RUN A JOB
	DEFSYM	%SSNUL==:2,,115	;SWAPPER NULL TIME
	DEFSYM	%SSLOS==:3,,115	;SWAPPER LOST TIME
	DEFSYM	%SSRQC==:4,,115	;TOTAL NUMBER OF REQUEUES 
	DEFSYM	%SSICM==:5,,115	;INTERVAL TO COMPUTE MCU
	DEFSYM	%SSMSI==:6,,115	;MEDIUM TERM SCHEDULING INTERVAL
	DEFSYM	%SSAJS==:7,,115	;AVERAGE JOB SIZE
	DEFSYM	%SSTQT==:10,,115	;TOTAL QUOTA TIME
	DEFSYM	%SSEAF==:11,,115	;EXPONENTIAL AVERAGING FACTOR
	DEFSYM	%SSEAT==:12,,115	;EXPONENTIALY AVERAGED USER TIME
	DEFSYM	%SSRSS==:13,,115	;TOTAL USER RUNTIME SINCE SCHED. UUO
			; SET CLASS PARAMETERS
DEFSYM	.GTDCF==:116	;DESIRED CHAN. USE FRACTION (INDEX BY CHAN)
DEFSYM	.GTST2==:117	;SECOND JOB STATUS WORD
DEFSYM	.GTJTC==:120	;JOB TYPE AND SCHEDULER CLASS
DEFSYM	.GTCQP==:121	;CLASS QUOTA IN PERCENT (INDEX BY CLASS)
DEFSYM	.GTCQJ==:122	;CLASS QUOTA IN JIFFIES (INDEX BY CLASS)
DEFSYM	.GTCRT==:123	;CLASS RUNTIME SINCE QUOTAS SET (INDEX BY CLASS)
DEFSYM	.GTSQH==:124	;SUB QUEUE HEADERS
DEFSYM	.GTSQ==:125	;SUB QUEUE WORD FOR EACH JOB
DEFSYM	.GTSID==:126	;SPECIAL PID TABLE
	DEFSYM	%SIIPC==:0,,126	;[SYSTEM]IPCC
	DEFSYM	%SIINF==:1,,126	;[SYSTEM]INFO
	DEFSYM	%SIQSR==:2,,126	;[SYSTEM]QUASAR
	DEFSYM	%SIMDA==:3,,126	;MOUNTABLE DEVICE ALLOCATOR
	DEFSYM	%SITLP==:4,,126	;MAGTAPE LABELING PROCESS
DEFSYM	.GTENQ==:127		;ENQ./DEQ. STATISTICS
	DEFSYM	%EQMSS==:0,,127	;MAXIMUM STRING SIZE
	DEFSYM	%EQNAQ==:1,,127	;NUMBER OF ACTIVE QUEUES
	DEFSYM	%EQESR==:2,,127	;TOTAL ENQ. SINCE RELOAD
	DEFSYM	%EQDSR==:3,,127	;TOTAL DEQ. SINCE RELOAD
	DEFSYM	%EQAPR==:4,,127	;ACTIVE POOLED RESOURCES
	DEFSYM	%EQDEQ==:5,,127	;DEFAULT ENQ. QUOTA
DEFSYM	.GTJLT==:130		;JOB LOGIN TIME IN UNIVERSAL FORMAT
DEFSYM	.GTEBT==:131		;JIFFIES OF KL10 EBOX TIME
DEFSYM	.GTEBR==:132		;JIFFY REMAINDER MOD RTUPS OF 131
DEFSYM	.GTMBT==:133		;JIFFIES OF KL10 MBOX TIME
DEFSYM	.GTMBR==:134		;JIFFY REMAINDER MOD RTUPS OF 133
SUBTTL	MISC. NON-I/O -- TMPCOR

DEFSYM	.TCRFS==:0	;COUNT OF FREE SPACE
DEFSYM	.TCRRF==:1	;READ FILE
DEFSYM	.TCRDF==:2	;DELETE FILE
DEFSYM	.TCRWF==:3	;WRITE FILE
DEFSYM	.TCRRD==:4	;READ DIRECTORY
DEFSYM	.TCRDD==:5	;DELETE DIRECTORY

SUBTTL	MISC. NON-I/O -- LOCK

DEFSYM	LK.HNP==:1_20.	;HI-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
DEFSYM	LK.HNE==:1_19.	;HI-SEG DON'T MAP IN EXEC VM
DEFSYM	LK.HLS==:1_18.	;HI-SEG LOCK SEGMENT
DEFSYM	LK.LNP==:1_2.	;LO-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
DEFSYM	LK.LNE==:1_1.	;LO-SEG DON'T MAP IN EXEC VM
DEFSYM	LK.LLS==:1_0.	;LO-SEG LOCK SEGMENT

DEFSYM	.LKPPN==:0	;PHYSICAL PAGE NUMBER

;LOCK UUO ERRORS

DEFSYM	LKNIS%==:0	;NOT IMPLEMENTED IN THIS SYSTEM
DEFSYM	LKNLP%==:1	;NO LOCKING PRIVS
DEFSYM	LKNCA%==:2	;NOT ENOUGH CORE TO CONTINUE CURRENT JOBS
DEFSYM	LKNCM%==:3	;NOT ENOUGH CORE TO GUARANTEE CORMIN
DEFSYM	LKNEM%==:4	;NOT ENOUGH EXEC VIRT MEM
DEFSYM	LKNIA%==:5	;ILLEGAL SUB-FUNCTION ARGUMENT
DEFSYM	LKNPU%==:6	;PAGE UNAVAILABLE

SUBTTL	MISC. NON-I/O -- RTTRP
;RTTRP UUO ERROR CODES

DEFSYM	RTJNP%==:1_11.	;JOB DOESN'T HAVE PRIVS
DEFSYM	RTNC0%==:1_10.	;NOT RUNNABLE ON CPU0
DEFSYM	RTDIU%==:1_9.	;DEVICE IN USE BY ANOTHER JOB
DEFSYM	RTIAU%==:1_8.	;ILLEGAL AC USED DURING RTTRP AT INTERRUPT
DEFSYM	RTJNL%==:1_7.	;JOB NOT LOCKED (OR NOT PRIVILEGED)
DEFSYM	RTSLE%==:1_6.	;SYSTEM LIMIT EXCEEDED FOR RT DEVICES
DEFSYM	RTILF%==:1_5.	;ILLEGAL FORMAT OF I/O INSTRUCTION
DEFSYM	RTPWI%==:1_4.	;POINTER WORD ILLEGAL
DEFSYM	RTEAB%==:1_3.	;ERROR ADDRESS OUT OF BOUNDS
DEFSYM	RTTAB%==:1_2.	;TRAP ADDRESS BAD
DEFSYM	RTPNB%==:1_1.	;PI CHANNEL NOT CURRENTLY AVAILABLE FOR BLKI/O
DEFSYM	RTPNA%==:1_0.	;PI CHANNEL NOT AVAILABLE
SUBTTL	MISC. NON-I/O -- JOBSTS

DEFSYM	JB.UJA==:1_35.	;JOB NUMBER ASSIGNED
DEFSYM	JB.ULI==:1_34.	;JOB IS LOGGED IN
DEFSYM	JB.UML==:1_33.	;TTY IS AT MONITOR LEVEL
DEFSYM	JB.UOA==:1_32.	;OUTPUT IS AVAILABLE
DEFSYM	JB.UDI==:1_31.	;TTY IS DEMANDING INPUT
DEFSYM	JB.UJC==:1_30.	;JACCT IS SET
DEFSYM	JB.UJN==:777777	;JOB NUMBER

SUBTTL	MISC. NON-I/O -- HIBER

DEFSYM	HB.SWP==:1_35.	;FORCE IMMEDIATE SWAP OUT
DEFSYM	HB.IPC==:1_25.	;IPCF
DEFSYM	HB.RIO==:1_24.	;I/O
DEFSYM	HB.RPT==:1_23.	;PTY ACTIVITY
DEFSYM	HB.RTL==:1_22.	;TTY LINE ACTIVITY
DEFSYM	HB.RTC==:1_21.	;TTY CHARACTER ACTIVITY
DEFSYM	HB.RWJ==:1_20.	;THIS JOB
DEFSYM	HB.RWP==:1_19.	;THIS PROGRAMMER
DEFSYM	HB.RWT==:1_18.	;THIS PROJECT


SUBTTL	MISC. NON-I/O -- APRENB

DEFSYM	AP.REN==:1_17.	;REPETITIVE ENABLE
DEFSYM	AP.POV==:1_16.	;PUSH DOWN OVERFLOW
DEFSYM	AP.ABK==:1_14.	;(FUTURE)ADDRESS BREAK
DEFSYM	AP.ILM==:1_13.	;ILLEGAL MEMORY
DEFSYM	AP.NXM==:1_12.	;NON-EXISTENT MEMORY
DEFSYM	AP.PAR==:1_11.	;PARITY ERROR FLAG
DEFSYM	AP.CLK==:1_9.	;CLOCK
DEFSYM	AP.FOV==:1_6.	;FLOATING OVERFLOW
DEFSYM	AP.AOV==:1_3.	;ARITHMETIC OVERFLOW
SUBTTL	MISC. NON-I/O -- SAVE/GET LOCATIONS

DEFSYM	.SGNAM==:0	;FILE NAME FROM RUN UUO
DEFSYM	.SGPPN==:7	;DIRECTORY FROM RUN UUO
DEFSYM	.SGDEV==:11	;DEVICE FROM RUN UUO
DEFSYM	.SGLOW==:17	;EXTENSION OF LOW SEG FROM RUN UUO
DEFSYM	.SG41==:122	;LOCATION IN SAVE FILE CONTAINING COPY OF .J_31.1
DEFSYM	.SGDDT==:114	;LOCATION IN SAVE FILE CONTAINING COPY OF .JBDDT

;BLOCK TYPES IN .EXE FILE DIRECTORY
DEFSYM	.SVEND==:1777	;END OF DIRECTORY
DEFSYM	.SVDIR==:1776	;DIRECTORY BLOCK

;.EXE FILE DIRECTORY ENTRIES
DEFSYM	.SVFPF==:0	;FILE PAGE AND FLAGS
	DEFSYM	SV%HIS==:1_35.	;PAGE IS PART OF HISEG
	DEFSYM	SV%SHR==:1_34.	;PAGE IS SHARABLE
	DEFSYM	SV%WRT==:1_33.	;PAGE IS WRITABLE
	DEFSYM	SV%CON==:1_32.	;PAGE IS CONCEALED
	DEFSYM	SV%SYM==:1_31.	;PAGE IS PART OF SYMBOL TABLE
	DEFSYM	SV%FPN==:1777	;FILE PAGE NUMBER
DEFSYM	.SVPPC==:1	;PROCESS PAGE AND REPEAT COUNT
	DEFSYM	SV%REP==:777_27.	;REPEAT COUNT
	DEFSYM	SV%PPN==:777	;PROCESS PAGE NUMBER
SUBTTL	MISC. NON-I/O -- SETUUO

DEFSYM	.STCMX==:0	;CORE MAX
DEFSYM	.STCMN==:1	;CORE MIN
DEFSYM	.STDAY==:2	;DAYTIME
DEFSYM	.STSCH==:3	;SCHED WORD (SAME AS %CNSTS)
DEFSYM	.STCDR==:4	;CDR SPOOL NAME
DEFSYM	.STSPL==:5	;SPOOLING BITS (SAME AS .GTSPL)
DEFSYM	.STWTC==:6	;WATCH BITS
	DEFSYM	ST.WDY==:1_16.	;WATCH DAYTIME AT START
	DEFSYM	ST.WRN==:1_15.	;WATCH RUN TIME
	DEFSYM	ST.WWT==:1_14.	;WATCH WAIT TIME
	DEFSYM	ST.WDR==:1_13.	;WATCH DISK READS
	DEFSYM	ST.WDW==:1_12.	;WATCH DISK WRITES
	DEFSYM	ST.WVR==:1_11.	;WATCH VERSIONS
	DEFSYM	ST.WMT==:1_10.	;WATCH MTA STATISTICS
	DEFSYM	ST.WAL==:376_9.	;WATCH ALL
DEFSYM	.STDAT==:7	;DATE
DEFSYM	.STOPR==:10	;OPR DEVICE
DEFSYM	.STKSY==:11	;KSYS TIMER
DEFSYM	.STCLM==:12	;CORE LIMIT
DEFSYM	.STTLM==:13	;TIME LIMIT
DEFSYM	.STCPU==:14	;CPU SPECIFICATION
DEFSYM	.STCRN==:15	;CPU RUNABILITY
	DEFSYM	SP.CR5==:1_5.	;CPU5
	DEFSYM	SP.CR4==:1_4.	;CPU4
	DEFSYM	SP.CR3==:1_3.	;CPU3
	DEFSYM	SP.CR2==:1_2.	;CPU2
	DEFSYM	SP.CR1==:1_1.	;CPU1
	;DEFSYM	SP.CR0==:1_0.	;CPU0  (SAME BIT DEFINED EARLIER)
DEFSYM	.STLMX==:16	;LOGMAX
DEFSYM	.STBMX==:17	;BATMAX
DEFSYM	.STBMN==:20	;BATMIN
DEFSYM	.STDFL==:21	;DSKFUL
	DEFSYM	.DFPSE==:0	;PAUSE
	DEFSYM	.DFERR==:1	;ERROR
DEFSYM	.STMVM==:22	;MAX VM
DEFSYM	.STMVR==:23	;MAX VM RATE
DEFSYM	.STUVM==:24	;USER VM MAXIMA (VIRT,,PHY)
DEFSYM	.STCVM==:25	;USER CURRENT VM MAXIMA (VIRT,,PHY)
	DEFSYM	ST.VSG==:1_17.	;SET IF PHYS LIMIT IS GUIDELINE
DEFSYM	.STTVM==:26	;USER VIRT TIME INTERRUPTS
DEFSYM	.STABK==:27	;ADDRESS BREAK (HDWR FORMAT; 1_32. BREAKS UUO REFERENCES)
DEFSYM	.STPGM==:30	;SET PROGRAM TO RUN
DEFSYM	.STDFR==:31	;SET DEFERED SPOOLING
SUBTTL	MISC. NON-I/O -- SCHED. 

;;AC CONTAINS N,,ADDR WHERE ADDR CONTAINS:
;;  !=======================================================!
;;  !        FUNCTION 1         !          BLOCK 1          !
;;  !-------------------------------------------------------!
;;  !        FUNCTION 2         !          BLOCK 2          !
;;  !-------------------------------------------------------!
;;  /                                                       /
;;  /                                                       /
;;  /                                                       /
;;  !-------------------------------------------------------!
;;  !        FUNCTION N         !          BLOCK N          !
;;  !=======================================================!

;FUNCTION CODES:
DEFSYM	.SCRSI==:000000	;READ SCHEDULING INTERVAL
DEFSYM	.SCSSI==:400000	;SET   SCHEDULING INTERVAL
	;BLOCK CONTAINS:
	DEFSYM	.SCBSI==:0	;SCHEDULING INTERVAL

DEFSYM	.SCRMI==:000001	;READ MCU INTERVAL
DEFSYM	.SCSMI==:400001	;SET  MCU INTERVAL
	;BLOCK CONTAINS:
	DEFSYM	.SCBMI==:0	;MCU INTERVAL

DEFSYM	.SCRCQ==:000002	;READ CLASS QUOTAS AND FLAGS
DEFSYM	.SCSCQ==:400002	;SET  CLASS QUOTAS AND FLAGS
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !            SIZE OF BLOCK            !
	;;  !-------------------------------------!
	;;  !    BITS+CLASS    !      QUOTA       !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !    BITS+CLASS    !      QUOTA       !
	;;  !=====================================!
	DEFSYM	.SCBCT==:0	;WORD COUNT
	DEFSYM	.SCBCQ==:1	;CLASS QUOTA
		;******DEFINE FLAGS HERE******

;CONTINUED ON NEXT PAGE
DEFSYM	.SCRTS==:000003	;READ TIME SLICE
DEFSYM	.SCSTS==:400003	;SET  TIME SLICE
	;;BLOCK CONTAINS:
	;DEFSYM	.SCBCT==:0	;WORD COUNT
	DEFSYM	.SCBP1==:1	;TIME SLICE FOR PQ1
	DEFSYM	.SCBP2==:2	;TIME SLICE FOR PQ2

DEFSYM	.SCRUF==:000004	;READ DESIRED CHAN USE FRACTION
DEFSYM	.SCSUF==:400004	;SET  DESIRED CHAN USE FRACTION
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !      CHAN #      !       DCUF       !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !      CHAN #      !       DCUF       !
	;;  !=====================================!
	;DEFSYM	.SCBCT==:0	;WORD COUNT
	DEFSYM	.SCBUF==:1	;CHAN,,USE FRACTION IN %

DEFSYM	.SCRJC==:000005	;READ JOB'S CLASS
DEFSYM	.SCSJC==:400005	;SET  JOB'S CLASS
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !      JOB #       !      CLASS       !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !      JOB #       !      CLASS       !
	;;  !=====================================!
	;DEFSYM	.SCBCT==:0	;WORD COUNT
	DEFSYM	.SCBJC==:1	;JOB,,CLASS

;CONTINUED ON NEXT PAGE
DEFSYM	.SCRMC==:000006	;READ MCU CONSTANT
DEFSYM	.SCSMC==:400006	;SET  MCU CONSTANT
	;BLOCK CONTAINS
	DEFSYM	.SCBMC==:0	;MCU CONSTANT

DEFSYM	.SCRCU==:000007	;READ CLASS USAGE
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !           CLASS 0 RUNTIME           !
	;;  !-------------------------------------!
	;;  !           CLASS 1 RUNTIME           !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !           CLASS N RUNTIME           !
	;;  !=====================================!
	;DEFSYM	SCBCT==:0	;WORD COUNT
	DEFSYM	.SCBCU==:1	;CLASS 0 USED

DEFSYM	.SCREF==:000010	;READ EXPONENTIAL FACTOR
DEFSYM	.SCSEF==:400010	;SET  EXPONENTIAL FACTOR
	;BLOCK CONTAINS:
	DEFSYM	.SCBEF==:0	;EXPONENTAIL FACTOR

DEFSYM	.SCRMM==:000011	;READ MCU MULTIPLIER
DEFSYM	.SCSMM==:400011	;SET  MCU MULTIPLIER
	;BLOCK CONTAINS:
	DEFSYM	.SCBMM==:0	;MCU MULTIPLIER

;SCHED. UUO ERROR CODES
DEFSYM	SCHAC%==:1	;ADDRESS CHECK
DEFSYM	SCHUF%==:2	;UNKNOWN FUNCTION
DEFSYM	SCHUJ%==:3	;UNKNOWN JOB
DEFSYM	SCHNP%==:4	;NOT PRIVILEGED
DEFSYM	SCHUC%==:5	;UNKNOWN CLASS
DEFSYM	SCHUQ%==:6	;UNKNOWN QUEUE
DEFSYM	SCHNC%==:7	;NON-EXISTANT CHANNEL
DEFSYM	SCHEB%==:10	;EXPONENTIAL FACTOR BAD
DEFSYM	SCHMI%==:11	;ATTEMPT TO SET PROT WHEN MCUINT NON-ZERO
SUBTTL	MISC. NON-I/O -- ATTACH

DEFSYM	AT.UMM==:1_35.	;PLACE IN MONITOR MODE
DEFSYM	AT.UUM==:1_34.	;PLACE IN USER MODE
SUBTTL	UNIVERSAL DEVICE INDEX

DEFSYM	.UXCHN==:0	;I/O CHANNEL NUMBER
		;001000-077777 ARE PHYSICAL DEVICES
	DEFSYM	UX.TYP==:77_9.	;DEVICE TYPE (SAME AS DEVTYP)
	DEFSYM	UX.UNT==:777	;UNIT WITHIN TYPE
DEFSYM	.UXTRM==:200000	;TERMINALS
DEFSYM	.UXPRC==:300000	;PROCESS
SUBTTL	.JBINT INTERCEPT BLOCK

;;  !=======================================================!
;;  !       BLOCK LENGTH        !          NEW PC           !
;;  !-------------------------------------------------------!
;;  !                   OLD PC AND FLAGS                    !
;;  !-------------------------------------------------------!
;;  !      CLASS OF INTERRUPT       !    CHANNEL NUMBER     !
;;  !=======================================================!

DEFSYM	.ERNPC==:0	;LH=LENGTH, RH=NEW PC FOR INTERRUPT
DEFSYM	.ERCLS==:1	;CLASSES OF ERROR INTERCEPTING
	DEFSYM	ER.MSG==:1_35.	;SUPPRESS ERROR MESSAGE
	DEFSYM	ER.EIJ==:1_6.	;ERROR IN JOB
	DEFSYM	ER.TLX==:1_5.	;TIME LIMIT EXCEEDED
	DEFSYM	ER.QEX==:1_4.	;QUOTA EXHAUSTED
	DEFSYM	ER.FUL==:1_3.	;FILE STRUCTURE FULL
	DEFSYM	ER.OFL==:1_2.	;DISK UNIT OFF-LINE
	DEFSYM	ER.ICC==:1_1.	;CONTROL-C INTERCEPT
	DEFSYM	ER.IDV==:1_0.	;"PROBLEM ON DEVICE" ERRORS
DEFSYM	.EROPC==:2	;OLD PC
DEFSYM	.ERCCL==:3	;RH=CHANNEL, LH=CLASS OF INTERRUPT
SUBTTL	PSI SOFTWARE INTERRUPT SYSTEM

;INTERRUPT VECTOR
; SETS OF 4-WORD BLOCKS
;;  !=======================================================!
;;  !                   NEW PC AND FLAGS                    !
;;  !-------------------------------------------------------!
;;  !                   OLD PC AND FLAGS                    !
;;  !-------------------------------------------------------!
;;  ! !O!R!A!D!M!I!             !         I/O REASON        !
;;  !-------------------------------------------------------!
;;  !                   INTERRUPT STATUS                    !
;;  !=======================================================!

DEFSYM	.PSVNP==:0	;NEW PC AND FLAGS
DEFSYM	.PSVOP==:1	;OLD PC AND FLAGS
DEFSYM	.PSVFL==:2	;FLAGS
	DEFSYM	PS.VPO==:1_34.	;TURN PERMANENTLY OFF, NO RESTORE
	DEFSYM	PS.VTO==:1_33.	;TURN OFF, RESTORE ON DEBRK.
	DEFSYM	PS.VAI==:1_32.	;ALLOW ADDITIONAL INTERRUPT
	DEFSYM	PS.VDS==:1_31.	;DISCARD SUCCESSIVE INTERRUPTS WHILE INTERRUPTED
	DEFSYM	PS.VPM==:1_30.	;PRINT STANDARD MESSAGE
	DEFSYM	PS.VIP==:1_29.	;INTERRUPTS IN PROGRESS FOR THIS BLOCK
			;  (USED BY PSISER)

	DEFSYM	PS.RID==:1_16.	;REASON--INPUT DONE
	DEFSYM	PS.ROD==:1_15.	;REASON--OUTPUT DONE
	DEFSYM	PS.REF==:1_14.	;REASON--END FILE
	DEFSYM	PS.RIE==:1_13.	;REASON--INPUT ERROR
	DEFSYM	PS.ROE==:1_12.	;REASON--OUTPUT ERROR
	DEFSYM	PS.RDO==:1_11.	;REASON--DEVICE OFF-LINE
	DEFSYM	PS.RDF==:1_10.	;REASON--DEVICE FULL
	DEFSYM	PS.RQE==:1_9.	;REASON--QUOTA EXCEEDED
	DEFSYM	PS.RWT==:1_8.	;REASON--IO WAIT
DEFSYM	.PSVIS==:3	;INTERRUPT STATUS (AUX. WORD)
		;  I/O DEVICES RETURN   UDX,,GETSTS
;NON-DEVICE CONDITIONS

DEFSYM	.PCTLE==:-1	;TIME LIMIT EXCEEDED (NON-BATCH ONLY)
DEFSYM	.PCABT==:-2	;ABORT (^A); RETURNS 1_35.=1 IF TI WAIT; (FUTURE)
DEFSYM	.PCSTP==:-3	;STOP (^C); RETURNS 1_35.=1 IF TI WAIT
DEFSYM	.PCUUO==:-4	;ANY MUUO; RETURNS UUO
DEFSYM	.PCIUU==:-5	;ILLEGAL UUO; RETURNS UUO
DEFSYM	.PCIMR==:-6	;ILLEGAL MEMORY REFERENCE
DEFSYM	.PCACK==:-7	;ADDRESS CHECK; RETURNS DEVICE NAME
DEFSYM	.PCARI==:-10	;ARITHMETIC EXCEPTION
DEFSYM	.PCPDL==:-11	;PDL OVERFLOW
DEFSYM	.PCTT3==:-12	;TRAP TYPE 3 (FUTURE)
DEFSYM	.PCNXM==:-13	;NON-EXISTENT MEMORY
DEFSYM	.PCAPC==:-14	;APR CLOCK; RETURNS MSTIME
DEFSYM	.PCUEJ==:-15	;USER INDUCED ERROR IN JOB
DEFSYM	.PCXEJ==:-16	;EXTERNAL ERROR IN JOB
DEFSYM	.PCKSY==:-17	;KSYS WARNING; RETURNS MINS TO KSYS
DEFSYM	.PCDSC==:-20	;DATA-SET CHANGE; RETURNS NEW STATUS
DEFSYM	.PCDAT==:-21	;DETACH/ATTACH; RETURNS -1 OR TTY UDX
DEFSYM	.PCWAK==:-22	;WAKE UUO; RETURNS JOB NUMBER OF WAKER
DEFSYM	.PCABK==:-23	;ADDRESS BREAK
DEFSYM	.PCIPC==:-24	;IPCF RECEIVE; RETURNS LENGTH,,FLAGS
DEFSYM	.PCRMC==:-25	;REMOTE COMPUTER CONDITION
DEFSYM	.PCQUE==:-26	;ENQ/DEQ RESOURCE AVAILABLE
;INTERRUPT ENABLE REQUEST BLOCK
; SETS OF 3-WORD BLOCKS

DEFSYM	.PSECN==:0	;CONDITION OR DEVICE
DEFSYM	.PSEOR==:1	;OFFSET,,REASON BITS
DEFSYM	.PSEPR==:2	;PRIORITY,,RESERVED

;PISYS. FUNCTION BITS

DEFSYM	PS.FOF==:1_34.	;TURN OFF
DEFSYM	PS.FON==:1_33.	;TURN ON
DEFSYM	PS.FCP==:1_32.	;CLEAR ALL PENDING INTERRUPTS
DEFSYM	PS.FCS==:1_31.	;CLEAR SELECTED INTERRUPT
DEFSYM	PS.FRC==:1_30.	;REMOVE CONDITION OR DEVICE
DEFSYM	PS.FAC==:1_29.	;ADD CONDITION OR DEVICE

;PISAV./PIRST. FLAGS

DEFSYM	.PSSFC==:0	;FLAGS,,COUNT
	DEFSYM	PS.SON==:1_35.	;SYSTEM IS ON
DEFSYM	.PSSIV==:1	;ADDRESS OF INTERRUPT VECTOR
DEFSYM	.PSSBL==:2	;START OF 3-WORD BLOCKS

;PISYS. ERRORS

DEFSYM	PSTMA%==:0	;TOO MANY ARGUMENTS
DEFSYM	PSNFS%==:1	;NO FUNCTION SUPPLIED
DEFSYM	PSUKF%==:2	;UNKNOWN FUNCTION REQUESTED
DEFSYM	PSOOF%==:3	;ON AND OFF IN SAME FUNCTION
DEFSYM	PSUKC%==:4	;UNKNOWN CONDITION REQUESTED
DEFSYM	PSDNO%==:5	;DEVICE NOT OPEN
DEFSYM	PSPRV%==:6	;PRIVILEGE FAILURE
DEFSYM	PSIVO%==:7	;INVALID VECTOR OFFSET
DEFSYM	PSUKR%==:10	;UNKNOWN REASON ENABLED
DEFSYM	PSPTL%==:11	;PRIORITY TOO LARGE
DEFSYM	PSNRW%==:12	;NON-ZERO RESERVED WORD
DEFSYM	PSPND%==:13	;PIINI. NOT DONE
DEFSYM	PSARF%==:14	;ADD AND REMOVE IN SAME FUNCTION

;PISAV. ERRORS

DEFSYM	PSBTS%==:0	;BLOCK TOO SMALL

;PIRST. ERRORS

DEFSYM	PSNRS%==:0	;NOT RESTORING WHAT WAS SAVED
SUBTTL	IPCF INTERPROCESS COMMUNICATION FACILITY

;PACKET FORMAT
;;  !=========================================================================!
;;  !BB!IS!R!O!T!                         !P!V!       !   ERROR   !SENDR!RETRN!
;;  !-------------------------------------------------------------------------!
;;  !                              SENDER'S PID                               !
;;  !-------------------------------------------------------------------------!
;;  !                             RECEIVER'S PID                              !
;;  !-------------------------------------------------------------------------!
;;  !        WORD LENGTH OF DATA         !     START OF DATA (WORD/PAGE)      !
;;  !-------------------------------------------------------------------------!
;;  !                   SENDER'S PPN (SUPPLIED BY MONITOR)                    !
;;  !-------------------------------------------------------------------------!
;;  !J !L !X!P!I!                                                             !
;;  !=========================================================================!

DEFSYM	.IPCFL==:0	;FLAGS
	DEFSYM	IP.CFB==:1_35.	;DON'T BLOCK READ
	DEFSYM	IP.CFS==:1_34.	;INDIRECT SENDER'S PID
	DEFSYM	IP.CFR==:1_33.	;INDIRECT RECEIVER'S PID
	DEFSYM	IP.CFO==:1_32.	;OVERDRAW SEND
	DEFSYM	IP.CFT==:1_31.	;TRUNCATE READ
	DEFSYM	IP.CFP==:1_17.	;SENDER IS PRIVILEGED AND IS INVOKING THEM
	DEFSYM	IP.CFV==:1_16.	;VM PAGE TRANSFER MODE
	DEFSYM	IP.CFE==:77_6.	;ERROR FIELD (NOT PRIV.)
	DEFSYM	IP.CFC==:7_3.	;SYSTEM SENDER CODE (PRIV.)
		DEFSYM	.IPCCC==:1	;SENT BY [SYSTEM]IPCC
		DEFSYM	.IPCCF==:2	;SENT BY SYSTEM-WIDE [SYSTEM]INFO
		DEFSYM	.IPCCP==:3	;SENT BY RECEIVER'S [SYSTEM]INFO
	DEFSYM	IP.CFM==:7	;SPECIAL MESSAGE RETURN FIELD (PRIV.)
		DEFSYM	.IPCFN==:1	;MESSAGE WAS NOT DELIVERED
DEFSYM	.IPCFS==:1	;SENDER'S PID
DEFSYM	.IPCFR==:2	;RECEIVER'S PID
DEFSYM	.IPCFP==:3	;LENGTH,,START OF DATA IN PACKET
DEFSYM	.IPCFU==:4	;SENDER'S PPN (SUPPLIED BY MONITOR)
DEFSYM	.IPCFC==:5	;SENDER'S CAPABILITIES WORD. (SUPPLIED BY MONITOR)
	DEFSYM	IP.JAC==:1_35.	;SENDER HAS JACCT SET
	DEFSYM	IP.JLG==:1_34.	;SENDER IS  LOGGED-IN
	DEFSYM	IP.SXO==:1_33.	;SENDER IS  EXECUTE ONLY
	DEFSYM	IP.POK==:1_32.	;SENDER HAS JS.POK PRIV
	DEFSYM	IP.IPC==:1_31.	;SENDER HAS IPCF PRIVS
;IPCC AND INFO ERROR CODES

DEFSYM	IPCAC%==:1	;ADDRESS CHECK
DEFSYM	IPCNL%==:2	;NOT LONG ENOUGH
DEFSYM	IPCNP%==:3	;NO PACKET IN RECEIVE QUEUE
DEFSYM	IPCIU%==:4	;(UNUSED)
DEFSYM	IPCTL%==:5	;DATA TOO LONG FOR USER'S BUFFER
DEFSYM	IPCDU%==:6	;DESTINATION UNKNOWN (RECEIVER'S PID)
DEFSYM	IPCDD%==:7	;DESTINATION DISABLED
DEFSYM	IPCRS%==:10	;NO ROOM IN SENDER'S QUOTA
DEFSYM	IPCRR%==:11	;NO ROOM IN RECEIVER'S QUOTA
DEFSYM	IPCRY%==:12	;NO ROOM IN SYSTEM STORAGE
DEFSYM	IPCUP%==:13	;UNKNOWN PAGE ON SEND; DUPLICATE PAGE ON RECEIVE (VM)
DEFSYM	IPCIS%==:14	;INVALID SEND PID
DEFSYM	IPCPI%==:15	;PRIV INSUFFICIENT
DEFSYM	IPCUF%==:16	;UNKNOWN FUNCTION
DEFSYM	IPCBJ%==:17	;BAD JOB NUMBER
DEFSYM	IPCPF%==:20	;PID TABLE FULL
DEFSYM	IPCPR%==:21	;PAGE REQUESTED, NORMAL NEXT
DEFSYM	IPCIE%==:22	;PAGING I/O ERROR
DEFSYM	IPCBI%==:23	;BAD INDEX SPECIFIED FOR SYSTEM PID TABLE
DEFSYM	IPCUI%==:24	;UNDEFINED ID IN SYSTEM PID TABLE
DEFSYM	IPCFU%==:70	;[SYSTEM]INFO HAS AN UNKNOWN, INTERNAL ERROR
DEFSYM	IPCCF%==:71	;[SYSTEM]IPCC REQUEST FROM [SYSTEM]INFO FAILED
DEFSYM	IPCFF%==:72	;[SYSTEM]INFO FAILED TO COMPLETE AN ASSIGN
DEFSYM	IPCQP%==:73	;PID QUOTA EXCEEDED
DEFSYM	IPCBP%==:74	;BAD (UNKNOWN) PID
DEFSYM	IPCDN%==:75	;DUPLICATE NAME
DEFSYM	IPCNN%==:76	;NO SUCH NAME
DEFSYM	IPCBN%==:77	;NAME HAS ILLEGAL CHARACTERS
;MESSAGES TO AND FROM [SYSTEM]IPCC

DEFSYM	.IPCS0==:0	;LH=CALLER'S IDENTIFIER, RH=FUNCTION
	DEFSYM	.IPCSE==:1	;ENABLE (ME OR (1)=PID)
	DEFSYM	.IPCSD==:2	;DISABLE (ME OR (1)=PID)
	DEFSYM	.IPCSI==:3	;TELL PID OF [SYSTEM]INFO FOR (ME OR (1)=PID); (2) GETS PID
	DEFSYM	.IPCSF==:4	;MAKE [SYSTEM]INFO OF (1) (2)=FOR WHOM (0=SYSTEM)
	DEFSYM	.IPCSZ==:5	;ZAP PID IN (1)
	DEFSYM	.IPCSC==:6	;CREATE PID FOR JOB IN (1); (2) GETS PID
	DEFSYM	.IPCSQ==:7	;SET QUOTA (2) FOR (1)=PID
	DEFSYM	.IPCSO==:10	;CHANGE OWNER OF (1)=PID, (2)=NEW JOB NUMBER
	DEFSYM	.IPCSJ==:11	;GIVE JOB OF PID IN (1); (2) GETS JOB NO
	DEFSYM	.IPCSP==:12	;GIVE PID LIST FOR JOB (1) STARTING AT (2)
	DEFSYM	.IPCSR==:13	;READ QUOTA OF JOB (1); INTO (2)
	DEFSYM	.IPCSW==:14	;WAKE JOB (1) SLEEPING FROM .IPCSS
	DEFSYM	.IPCSS==:15	;(ANSWER ONLY) IF LH(1)=0, JOB RH(1) IS RESETTING
			;	      IF LH(1)=-1, JOB RH(1) IS LOGGING OUT
	DEFSYM	.IPCWP==:24	;WRITE SYSTEM PID TABLE
	DEFSYM	.IPCRP==:25	;READ SYSTEM PID TABLE
	DEFSYM	.IPCSU==:26	;SPOOLED FILE CLOSED (SENT TO [SYSTEM]QUASAR)
	DEFSYM	.IPCSL==:27	;LOGOUT MESSAGE SEND TO [SYSTEM]QUASAR
DEFSYM	.IPCS1==:1	;FIRST ARGUMENT
DEFSYM	.IPCS2==:2	;SECOND ARGUMENT
DEFSYM	.IPCS3==:3	;THIRD ARGUMENT

;SPECIAL SYSTEM PID TYPES (READ/WRITE .GTSID VIA .IPCRP AND .IPCWP)
DEFSYM	.IPCPS==:0	;[SYSTEM]IPCC 
DEFSYM	.IPCPI==:1	;[SYSTEM]INFO
DEFSYM	.IPCPQ==:2	;[SYSTEM]QUASAR
DEFSYM	.IPCPM==:3	;MOUNTABLE DEVICE ALLOCATOR
DEFSYM	.IPCPT==:4	;TAPE LABEL PROCESS

;MESSAGES TO AND FROM [SYSTEM]INFO

DEFSYM	.IPCI0==:0	;LH=CALLER'S IDENTIFIER, RH=FUNCTION
	DEFSYM	.IPCIW==:1	;WHAT IS PID, ASCIZ IN (2+)
	DEFSYM	.IPCIG==:2	;GET NAME OF (2)=PID
	DEFSYM	.IPCII==:3	;ASSIGN NAME UNTIL RESET (FORMAT=.IPCIW)
	DEFSYM	.IPCIJ==:4	;ASSIGN NAME UNTIL LOGOUT (FORMAT=.IPCIW)
	DEFSYM	.IPCID==:5	;DROP SPECIFIC PID (2)
	DEFSYM	.IPCIR==:6	;DROP NAMES SET BY .IPCII, (2)=JOB NUMBER
	DEFSYM	.IPCIL==:7	;DROP NAMES SET BY .IPCIJ, (2)=JOB NUMBER
	DEFSYM	.IPCIS==:15	;RESET JOB RH(1) IF LH(1)=0, OR LOGOUT IF LH=-1
DEFSYM	.IPCI1==:1	;FIRST ARGUMENT (ALWAYS 0 OR PID TO GET DUPLICATE OF ANSWER)
DEFSYM	.IPCI2==:2	;SECOND ARGUMENT
SUBTTL	PAGE AND VM  VIRTUAL MEMORY FACILITY

;PAGE. UUO FUNCTIONS

DEFSYM	.PAGIO==:0	;PAGE IN/OUT (OUT IF 1_35.=1 IN LIST)
	DEFSYM	PA.GSL==:1_34.	;PAGE TO SLOW SWAPPING SPACE
DEFSYM	.PAGCD==:1	;PAGE CREATE/DESTROY
	DEFSYM	PA.GCD==:1_34.	;CREATE PAGE ON DISK
DEFSYM	.PAGEM==:2	;PAGE EXCHANGE/MOVE
DEFSYM	.PAGAA==:3	;CLEAR/SET ACCESS ALLOWED
DEFSYM	.PAGWS==:4	;GET WORKING SET
DEFSYM	.PAGGA==:5	;GET ACCESS ALLOWED
DEFSYM	.PAGCA==:6	;CHECK ACCESS LEGAL
	DEFSYM	PA.GNE==:1_35.	;DOES NOT EXIST
	DEFSYM	PA.GWR==:1_34.	;WRITABLE
	DEFSYM	PA.GRD==:1_33.	;READABLE
	DEFSYM	PA.GAA==:1_32.	;ACCESS ALLOWED
	DEFSYM	PA.GAZ==:1_31.	;ALLOCATED BUT ZERO
	DEFSYM	PA.GCP==:1_30.	;CAN'T BE PAGED OUT
	DEFSYM	PA.GPO==:1_29.	;IS PAGED OUT
DEFSYM	.PAGCH==:7	;CREATE A HISEG (GENERAL REMAP)

;PAGE. UUO ERRORS

DEFSYM	PAGUF%==:0	;UNIMPLEMENTED FUNCTION
DEFSYM	PAGIA%==:1	;ILLEGAL ARGUMENT
DEFSYM	PAGIP%==:2	;ILLEGAL PAGE NUMBER
DEFSYM	PAGCE%==:3	;PAGE CAN'T EXIST BUT DOES
DEFSYM	PAGME%==:4	;PAGE MUST EXIST BUT DOESN'T
DEFSYM	PAGMI%==:5	;PAGE MUST BE IN CORE BUT ISN'T
DEFSYM	PAGCI%==:6	;PAGE CAN'T BE IN CORE BUT IS
DEFSYM	PAGSH%==:7	;PAGE IS IN A SHARABLE HI-SEG
DEFSYM	PAGIO%==:10	;PAGING I/O ERROR
DEFSYM	PAGNS%==:11	;NO SWAPPING SPACE AVAILABLE
DEFSYM	PAGLE%==:12	;CORE LIMIT EXCEEDED
DEFSYM	PAGIL%==:13	;ILLEGAL IF LOCKED
DEFSYM	PAGNX%==:14	;CAN NOT CREATE ALLOCTED BUT ZERO PAGE
		; WITH VIRTUAL LIMIT EQUAL TO ZERO.
;.JBPFH REGION

DEFSYM	.PFHNP==:0	;NEW PC AND FLAGS
DEFSYM	.PFHOP==:1	;OLD PC AND FLAGS
DEFSYM	.PFHFC==:2	;FAULT WORD
	DEFSYM	PF.HCB==:1_35.	;WORKING SET CHANGED BEHIND BACK
	DEFSYM	PF.HPN==:777_18.	;PAGE NUMBER
	DEFSYM	PF.HFC==:0,,-1	;FAULT CODE
		DEFSYM	.PFHNA==:1	;PAGE NOT ACCESSABLE
		DEFSYM	.PFHNI==:2	;PAGE NOT IN CORE
		DEFSYM	.PFHUU==:3	;PAGE FAULT IN UUO ARGS
		DEFSYM	.PFHTI==:4	;VIRTUAL TIMER
		DEFSYM	.PFHZI==:5	;ALLOCATED BUT ZERO FROM USER
		DEFSYM	.PFHZU==:6	;ALLOCATED BUT ZERO DURING UUO
DEFSYM	.PFHVT==:3	;VIRTUAL TIME
DEFSYM	.PFHPR==:4	;PAGING RATE
	;5-10 RESERVED
SUBTTL	DAEMON CALLS

;DAEMON UUO FUNCTIONS

DEFSYM	.DCORE==:1	;DUMP CORE
DEFSYM	.CLOCK==:2	;ENTER A CLOCK REQUEST
DEFSYM	.FACT==:3	;MAKE A FACT FILE ENTRY
DEFSYM	.DMQUE==:4	;(UNIMPLEMENTED)
DEFSYM	.DMERR==:5	;ERROR LOGGING
DEFSYM	.DMCTL==:6	;(UNIMPLEMENTED)

;DAEMON UUO ERRORS

DEFSYM	DMILF%==:1	;ILLEGAL FUNCTION
DEFSYM	DMACK%==:2	;ADDRESS CHECK
DEFSYM	DMWNA%==:3	;WRONG NUMBER OF ARGUMENTS
DEFSYM	DMSNH%==:4	;IMPOSSIBLE UUO FAILURE (SHOULD NEVER HAPPEN)
DEFSYM	DMCWF%==:5	;CAN'T WRITE FILE
DEFSYM	DMNPV%==:6	;NO PRIVILEGES
DEFSYM	DMFFB%==:7	;FACT FORMAT BAD
DEFSYM	DMPTH%==:10	;INVALID PATH SPECIFICATION

;DCORE DUMP CATEGORIES

DEFSYM	.CAJOB==:1	;JOB TABLES (SEE BELOW)
DEFSYM	.CACNF==:2	;CONFIGURATION TABLES (.GTCNV)
DEFSYM	.CADDB==:3	;JOB'S DDBS
DEFSYM	.CACOR==:4	;USER'S CORE IMAGE (COMPRESSED)
DEFSYM	.CAFET==:5	;FET GETTAB
DEFSYM	.CAMAX==:5	;HIGHEST LEGAL CATEGORY NUMBER
;DCORE JOB TABLE ENTRIES

DEFSYM	.DJVER==:0	;DAEMON VERSION (137)
DEFSYM	.DJDAT==:1	;DATE (FROM DATE UUO)
DEFSYM	.DJMST==:2	;TIME IN MILLISEC. (FROM MSTIME UUO)
DEFSYM	.DJJSN==:3	;JOB,,SEGMENT NUMBERS
DEFSYM	.DJLIN==:4	;???,,LINE NUMBER (TTY)
DEFSYM	.DJSTS==:5	;.GTSTS(JOB)
DEFSYM	.DJHTS==:6	;.GTSTS(HISEG)
DEFSYM	.DJPPN==:7	;.GTPPN(JOB)
DEFSYM	.DJHPN==:10	;.GTPPN(HISEG)
DEFSYM	.DJPRG==:11	;.GTPRG(JOB)
DEFSYM	.DJHRG==:12	;.GTPRG(HISEG)
DEFSYM	.DJTIM==:13	;.GTTIM(JOB)
DEFSYM	.DJKCT==:14	;.GTKCT(JOB)
DEFSYM	.DJPRV==:15	;.GTPRV(JOB)
DEFSYM	.DJSWP==:16	;.GTSWP(JOB)
DEFSYM	.DJHWP==:17	;.GTSWP(HISEG)
DEFSYM	.DJRCT==:20	;.GTRCT(JOB)
DEFSYM	.DJWCT==:21	;.GTWCT(JOB)
DEFSYM	.DJTDB==:22	;.GTTDB(JOB)
DEFSYM	.DJDEV==:23	;.GTDEV(HISEG)
DEFSYM	.DJNM1==:24	;.GTNM1(JOB)
DEFSYM	.DJNM2==:25	;.GTNM2(JOB)
DEFSYM	.DJCNO==:26	;.GTCNO(JOB)
DEFSYM	.DJTMP==:27	;.GTTMP(JOB)
DEFSYM	.DJWCH==:30	;.GTWCH(JOB)
DEFSYM	.DJSPL==:31	;.GTSPL(JOB)
DEFSYM	.DJRTD==:32	;.GTRTD(JOB)
DEFSYM	.DJLIM==:33	;.GTLIM(JOB)
DEFSYM	.DJSPS==:34	;.GTSPS(JOB)
DEFSYM	.DJRSP==:35	;.GTRSP(JOB)
DEFSYM	.DJTRQ==:36	;.GTTRQ(JOB)
DEFSYM	.DJUPM==:37	;.GTUPM(JOB)
DEFSYM	.DJHPM==:40	;.GTUPM(HISEG)
DEFSYM	.DJCVL==:41	;.GTCVL(JOB)
DEFSYM	.DJMVL==:42	;.GTMVL(JOB)
DEFSYM	.DJIPA==:43	;.GTIPA(JOB)
DEFSYM	.DJIPC==:44	;.GTIPC(JOB)
DEFSYM	.DJIPI==:45	;.GTIPI(JOB)
DEFSYM	.DJIPQ==:46	;.GTIPQ(JOB)
DEFSYM	.DJDVL==:47	;.GTDVL(JOB)
DEFSYM	.DJABS==:50	;.GTABS(JOB)
DEFSYM	.DJVRT==:51	;.GTVRT(JOB)
DEFSYM	.DJHRT==:52	;.GTVRT(HISEG)
DEFSYM	.DJMAX==:52	;HIGHEST LEGAL JOB TABLE
SUBTTL	METER UUO

;METER. FUNCTIONS

DEFSYM	.MEFCI==:0	;INITIALIZE METER CHANNEL
DEFSYM	.MEFCS==:1	;READ METER CHANNEL STATUS
DEFSYM	.MEFCR==:2	;RELEASE METER CHANNEL
DEFSYM	.MEFPI==:3	;INITIALIZE METER POINT
DEFSYM	.MEFPS==:4	;READ METER POINT STATUS
DEFSYM	.MEFPR==:5	;RELEASE METER POINT

;METER. ERRORS

DEFSYM	MEILF%==:1	;ILLEGAL FUNCTION
DEFSYM	MENPV%==:2	;NOT PRIVILEGED USER
DEFSYM	MEIMA%==:3	;ILLEGAL MEMORY ADDRESS
DEFSYM	MEPDL%==:4	;PDL OVERFLOW
DEFSYM	MEIAL%==:5	;ILLEGAL ARG LIST
DEFSYM	MEIAV%==:6	;ILLEGAL ARG VALUE
DEFSYM	MENFC%==:7	;NOT ENOUGH FREE CORE
DEFSYM	MEICT%==:10	;ILLEGAL CHANNEL TYPE
DEFSYM	MEIPT%==:11	;ILLEGAL POINT ROUTINE TYPE
DEFSYM	MENXP%==:12	;NON-EXISTENT POINT NAME
DEFSYM	MENXC%==:13	;NON-EXISTENT CHANNEL
DEFSYM	MEPNA%==:14	;POINT NOT AVAILABLE

;STANDARD CHANNEL ARGUMENT BLOCK LOCATIONS

DEFSYM	.MCFUN==:0	;UUO FUNCTION CODE
DEFSYM	.MCCID==:1	;USER CHANNEL ID
DEFSYM	.MCTYP==:2	;CHANNEL TYPE
		DEFSYM	.MCTYN==:0	;NULL CHANNEL
		DEFSYM	.MCTYD==:1	;DISPLAY CHANNEL
		DEFSYM	.MCTYT==:2	;TRACE CHANNEL
DEFSYM	.MCSTS==:3	;CHANNEL STATUS
	DEFSYM	MC.STS==:17777_23. ;STATUS MASK
	DEFSYM	MC.USA==:1_34.	;USER SEGMENT ADDRESSED
DEFSYM	.MCJOB==:4	;CHANNEL JOB NUMBER

;DISPLAY CHANNEL ARGS

DEFSYM	.MCTCN==:5	;AVERAGING TIME CONSTANT
DEFSYM	.MCPTR==:6	;DEPOSIT BYTE POINTER
;TRACE CHANNEL ARGS

DEFSYM	.MCFLG==:5	;USER ADDRESS OF FLAG AND STATUS WORD
	DEFSYM	MC.WAK==:1_35.	;ENABLED FOR WAKEUP
DEFSYM	.MCBUF==:6	;USER ADDRESS OF TRACE BUFFER
DEFSYM	.MCIOX==:7	;USER ADDRESS OF BUFFER INDEX
DEFSYM	.MCCNT==:10	;USER ADDRESS OF WAKEUP COUNTER
DEFSYM	.MCBFL==:11	;BUFFER LENGTH

;ARGUMENT BLOCK FOR METER. POINT FUNCTIONS

DEFSYM	.MPFUN==:0	;UUO FUNCTION CODE
DEFSYM	.MPAPP==:1	;NUM ARGS PER POINT IN LIST
DEFSYM	.MPNUM==:2	;NUMBER OF POINTS IN LIST
DEFSYM	.MPADR==:3	;ADDRESS OF POINT LIST
DEFSYM	.MPERR==:4	;ADDRESS OF ERROR POINT

;ARG DISPLACEMENTS PER POINT IN POINT LIST

DEFSYM	.MPNAM==:0	;POINT NAME
DEFSYM	.MPPID==:1	;USER POINT ID
DEFSYM	.MPPAR==:2	;POINT PARAMETER
DEFSYM	.MPJOB==:3	;JOB NUMBER
DEFSYM	.MPSTS==:4	;POINT STATUS
	DEFSYM	MP.STS==:17777_23. ;POINT STATUS MASK
	DEFSYM	MP.ENB==:1_35.	;POINT IS ENABLED
	DEFSYM	MP.USA==:1_34.	;USER SEGMENT ADDRESSED
DEFSYM	.MPPRT==:5	;POINT ROUTINE TYPE
		DEFSYM	.MPRN==:00	;NULL ROUTINE
		DEFSYM	.MPRV==:01	;INTRINSIC VALUE
		DEFSYM	.MPRT==:02	;TIME INTERVAL
		DEFSYM	.MPRVI==:3	;INTRINSIC VALUE+POINT ID
		DEFSYM	.MPRTI==:4	;TIME+POINT ID
DEFSYM	.MPPRP==:6	;POINT ROUTINE PARAMETER
DEFSYM	.MPCID==:7	;USER CHANNEL ID
SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS

;;GENERAL FORMAT FOR ENQ./DEQ./ENQC.
;;!=======================================================!
;;!        # OF LOCKS         !   LENGTH OF THIS BLOCK    !
;;!-------------------------------------------------------!
;;!         RESERVED          !        REQUEST ID         !
;;!=======================================================!
;;!S!B! RESERVED !   LEVEL #   !     CHAN #/-1/-2/-3      !
;;!-------------------------------------------------------!
;;!          BYTE POINTER TO STRING OR USER CODE          !
;;!-------------------------------------------------------!
;;!     # OF RES. IN POOL     !    # WANTED OR GROUP #    !
;;!-------------------------------------------------------!
;;/                                                       /
;;/                 3 WORDS FOR EACH LOCK                 /
;;/                                                       /
;;!-------------------------------------------------------!
;;!S!B! RESERVED !   LEVEL #   !     CHAN #/-1/-2/-3      !
;;!-------------------------------------------------------!
;;!          POINTER TO STRING OR 5_33.+USER CODE           !
;;!-------------------------------------------------------!
;;!     # OF RES IN POOL      !    # WANTED OR GROUP #    !
;;!=======================================================!

DEFSYM	.ENQLL==:0	;NUMBER OF LOCKS AND LENGTH
	DEFSYM	EQ.LNL==:777777_18.	;NUMBER OF LOCKS
	DEFSYM	EQ.LLB==:777777_0.	;LENGTH OF BLOCK
DEFSYM	.ENQRI==:1	;REQUEST I.D.

;FOR EACH LOCK:
DEFSYM	.ENQFL==:0	;FLAGS, LEVEL, CHAN
	DEFSYM	EQ.FSR==:1_35.	;SHARED REQUEST
	DEFSYM	EQ.FBL==:1_34.	;BYPASS LEVEL CHECKING
	DEFSYM	EQ.FLV==:777_18.	;LEVEL #
	DEFSYM	EQ.FCC==:777777	;CHAN. NUMBER OR CODE
	    DEFSYM	.EQFJB==:777777  ;CODE FOR THIS JOB ONLY
	    DEFSYM	.EQFGL==:777776  ;GLOBAL LOCK
	    DEFSYM	.EQFPL==:777775  ;PRIV. GLOBAL LOCK
DEFSYM	.ENQBP==:1	;BYTE POINTER OR USER CODE
	DEFSYM	EQ.BUC==:5_33.	;SET IF 33 BIT USER CODE IS USED
DEFSYM	.ENQPS==:2	;POOL SIZE
	DEFSYM	EQ.PPS==:777777_18.	;TOTAL SIZE OF POOL
	DEFSYM	EQ.PPR==:777777_0.	;NUMBER REQUESTED FROM POOL
;ENQ. FUNCTION CODES
DEFSYM	.ENQBL==:0	;ENQ. BLOCK TILL AVAILABLE
DEFSYM	.ENQAA==:1	;ENQ. ALLOCATE ONLY IF AVAILABLE
DEFSYM	.ENQSI==:2	;ENQ. SOFTWARE INTERRUPT WHEN AVAIL.
DEFSYM	.ENQMA==:3	;ENQ. MODIFY ACCESS

;DEQ. FUNCTION CODES
DEFSYM	.DEQDR==:0	;DEQ. RESOURCE
DEFSYM	.DEQDA==:1	;DEQ. ALL
DEFSYM	.DEQID==:2	;DEQ. BY REQUEST I.D.

;ENQC. FUNCTION CODES
DEFSYM	.ENQCS==:0	;RETURN STATUS
DEFSYM	.ENQCG==:1	;GET USER'S QUOTA
DEFSYM	.ENQCC==:2	;CHANGE USERS QUOTA
DEFSYM	.ENQCD==:3	;DUMP THE DATA BASE
;;FORMAT OF ENQC. STATUS BLOCKS (FUNCTION 1)
;;!=========================================================================!
;;!I !O !Q!X!         !     LEVEL #     !     JOB # OF OWNER OR ERROR #     !
;;!-------------------------------------------------------------------------!
;;!                           TIME-STAMP OF LOCK                            !
;;!-------------------------------------------------------------------------!
;;!          RESERVED TO DEC           !     REQUEST ID OF CALLER/OWNER     !
;;!-------------------------------------------------------------------------!
;;/                                                                         /
;;/                TWO WORDS FOR EACH LOCK IN ENQC. REQUEST                 /
;;/                                                                         /

DEFSYM	.ENQCF==:0	;FLAG WORD
	DEFSYM	EQ.CFI==:1_35.	;LOCK IS INVALID
	DEFSYM	EQ.CFO==:1_34.	;THIS USER IS THE OWNER
	DEFSYM	EQ.CFQ==:1_33.	;THIS USER IS IN THE QUEUE
	DEFSYM	EQ.CFX==:1_32.	;THE OWNER HAS EXCLUSIVE ACCESS
	DEFSYM	EQ.CFL==:777_18.	;LEVEL NUMBER
	DEFSYM	EQ.CFJ==:777777	;JOB # OF OWNER (OR ERROR CODE)
DEFSYM	.ENQCT==:1	;TIME-STAMP (TIME LOCK WAS GRANTED TO OWNER
		;	IN UNIVERSAL FORMAT)
DEFSYM	.ENQCI==:2	;REQUEST ID OF OWNER/CALLER
;;FORMAT FOR ENQC. DUMP
;;!=======================================================!
;;!             NUMBER OF WORDS IN THIS BLOCK             !
;;!=======================================================!
;;!                                                       !
;;!                                                       !
;;!                LOCK-BLOCK FOR LOCK # 1                !
;;!                                                       !
;;!-------------------------------------------------------!
;;!         QUEUE BLOCK FOR FIRST ENTRY OF LOCK 1         !
;;!                                                       !
;;!-------------------------------------------------------!
;;!                                                       !
;;!        QUEUE BLOCK FOR SECOND ENTRY OF LOCK 1         !
;;!-------------------------------------------------------!
;;/                                                       /
;;/    TWO WORD QUEUE-BLOCK FOR EACH WAITER FOR LOCK 1    /
;;/                                                       /
;;!=======================================================!
;;!                                                       !
;;!                                                       !
;;!                LOCK BLOCK FOR LOCK #2                 !
;;!                                                       !
;;!-------------------------------------------------------!
;;!       QUEUE-BLOCK FOR FIRST WAITER FOR LOCK #2        !
;;!                                                       !
;;!-------------------------------------------------------!
;;!                                                       !
;;!       QUEUE-BLOCK FOR SECOND WAITER FOR LOCK #2       !
;;!-------------------------------------------------------!
;;/                                                       /
;;/                                                       /
;;/      LOCK-BLOCKS AND QUEUE BLOCKS FOR THE ENTIRE      /
;;/                  ENQ./DEQ. DATA BASE                  /
;;/                                                       /
;;/                                                       /
;;FORMAT OF EACH LOCK-BLOCK
;;!=========================================================================!
;;! 1! 0!T!0!0!       !     LEVEL #     !             LOCK I.D.             !
;;!-------------------------------------------------------------------------!
;;!           # IN POOL OR 0           !          # REMAINING OR 0          !
;;!-------------------------------------------------------------------------!
;;!                               TIME-STAMP                                !
;;!-------------------------------------------------------------------------!
;;!            ASCIZ STRING (MAY BE SEVERAL WORDS) OR USER CODE             !
;;!=========================================================================!

;;FORMAT OF EACH QUEUE-BLOCK
;;!=========================================================================!
;;! 0!LO!0!X!B!                         !               JOB #               !
;;!-------------------------------------------------------------------------!
;;!       GROUP # OR # REQUESTED       !            REQUEST I.D.            !
;;!=========================================================================!

;FLAGS IN FIRST WORD OF EACH BLOCK TYPE:
DEFSYM	EQ.DLB==:1_35.	;THIS IS A LOCK BLOCK
DEFSYM	EQ.DLO==:1_34.	;THIS IS THE LOCK OWNER (QUEUE-BLOCK ONLY)
DEFSYM	EQ.DLT==:1_33.	;THIS LOCK HAS TEXT (LOCK-BLOCK ONLY)
DEFSYM	EQ.DXA==:1_32.	;EXCLUSIVE ACCESS (QUEUE-BLOCK ONLY)
DEFSYM	EQ.DJW==:1_31.	;THIS JOB IS BLOCKED WAITING FOR LOCK (QUEUE-BLOCK ONLY)

;FORMAT OF LOCK-BLOCK
DEFSYM	.EQDFL==:0	;FLAGS AND LEVEL
	DEFSYM	EQ.DFL==:777_18.	;LEVEL #
	DEFSYM	EQ.DFI==:777777	;LOCK I.D.
DEFSYM	.EQDPR==:1	;POOLED REQUEST COUNTS
	DEFSYM	EQ.DPS==:777777_18. ;SIZE OF POOL
	DEFSYM	EQ.DPL==:777777_0. ;NUMBER LEFT
DEFSYM	.EQDTS==:2	;TIME-STAMP
DEFSYM	.EQDSU==:3	;STRING OR USER CODE

;FORMAT OF A QUEUE-BLOCK
DEFSYM	.EQDFJ==:0	;FLAGS AND JOB #
	DEFSYM	EQ.DJN==:777_0.	;JOB NUMBER
DEFSYM	.EQDGI==:1	;GROUP # AND REQUEST I.D.
	DEFSYM	EQ.DGR==:777777_18. ;GROUP OR # REQUESTED
	DEFSYM	EQ.DRI==:777777_0. ;REQUEST I.D.
;ENQ./DEQ./ENQC. ERROR CODES

DEFSYM	ENQRU%==:1	;SOME RESOURCE(S) REQUEST WERE  UNAVAILABLE
DEFSYM	ENQBP%==:2	;ILLEGAL # OF RESOURCES REQUESTED (POOLED RESOURCES)
DEFSYM	ENQBJ%==:3	;BAD JOB NUMBER
DEFSYM	ENQBB%==:4	;BAD BYTE SIZE IN TEXT STRING
DEFSYM	ENQST%==:5	;STRING TOO LONG
DEFSYM	ENQBF%==:6	;BAD FUNCTION CODE
DEFSYM	ENQBL%==:7	;ILLEGAL ARGUMENT BLOCK LENGTH
DEFSYM	ENQIC%==:10	;ILLEGAL NUMBER OF LOCKS SPECIFIED
DEFSYM	ENQBC%==:11	;BAD CHANNEL NUMBER
DEFSYM	ENQPI%==:12	;OPERATOR/JACCT PRIVILEGE REQUIRED
DEFSYM	ENQNC%==:13	;NO CORE AVAILABLE
DEFSYM	ENQFN%==:14	;FILE NOT OPEN ON SPECIFIED CHANNEL, OR DEVICE NOT A DISK
DEFSYM	ENQIN%==:15	;INDIRECT OR INDEXED BYTE POINTER NOT ALLOWED
DEFSYM	ENQNO%==:16	;NO RESOURCES WERE OWNED
DEFSYM	ENQLS%==:17	;LEVEL SEQUENCING ERROR (LEVEL # TOO LOW)
DEFSYM	ENQCC%==:20	;CAN'T CHANGE ACCESS
DEFSYM	ENQQE%==:21	;QUOTA EXCEEDED
DEFSYM	ENQPD%==:22	;# OF RESOURCES IN POOL NOT SAME AS IN LOCK
DEFSYM	ENQDR%==:23	;DUPLICATE REQUEST FOR RESOURCE (LOCK ALREADY REQUESTED)
DEFSYM	ENQNE%==:24	;NOT ENQ'ED ON THIS LOCK
DEFSYM	ENQLD%==:25	;LEVEL # IN REQUEST DOES NOT MATCH LOCK
DEFSYM	ENQED%==:26	;ENQ/DEQ PRIVILEGES REQUIRED
SUBTTL	MISC. I/O -- DEVCHR

DEFSYM	DV.DRI==:1_35.	;DTA WITH DIRECTORY IN CORE
DEFSYM	DV.DSK==:1_34.	;DEVICE IS A FILE STRUCTURE
DEFSYM	DV.CDR==:1_33.	;IF DVOUT=1 DEVICE IS A CDP
		; IF DVIN=1 DEVICE IS A CDR
DEFSYM	DV.LPT==:1_32.	;DEVICE IS A LINE PRINTER
DEFSYM	DV.TTA==:1_31.	;DEVICE IS A TTY CONTROLING A JOB
DEFSYM	DV.TTU==:1_30.	;TTY DDB IS IN USE
DEFSYM	DV.TTB==:1_29.	;FREE BIT LEFT FROM SCNSRF
DEFSYM	DV.DIS==:1_28.	;DEVICE IS A DISPLAY
DEFSYM	DV.LNG==:1_27.	;DEVICE HAS A LONG DISPATCH TABLE
DEFSYM	DV.PTP==:1_26.	;DEVICE IS A PAPER TAPE PUNCH
DEFSYM	DV.PTR==:1_25.	;DEVICE IS A PAPER TAPE READER
DEFSYM	DV.DTA==:1_24.	;DEVICE IS A DEC TAPE
DEFSYM	DV.AVL==:1_23.	;DEVICE IS AVAILABLE TO THIS JOB
DEFSYM	DV.MTA==:1_22.	;DEVICE IS A MAG TAPE
DEFSYM	DV.TTY==:1_21.	;DEVICE IS A TTY
DEFSYM	DV.DIR==:1_20.	;DEVICE HAS A DIRECTORY
DEFSYM	DV.IN==:1_19.	;DEVICE CAN DO INPUT
DEFSYM	DV.OUT==:1_18.	;DEVICE CAN DO OUTPUT
DEFSYM	DV.ASC==:1_17.	;DEVICE ASSIGNED BY ASSIGN COMMAND
DEFSYM	DV.ASP==:1_16.	;DEVICE ASSIGNED BY INIT OR OPEN UUO
DEFSYM	DV.M17==:1_15.	;DEVICE CAN DO MODE 17
DEFSYM	DV.M16==:1_14.	;DEVICE CAN DO MODE 16
DEFSYM	DV.M15==:1_13.	;DEVICE CAN DO MODE 15
DEFSYM	DV.M14==:1_12.	;DEVICE CAN DO MODE 14
DEFSYM	DV.M13==:1_11.	;DEVICE CAN DO MODE 13
DEFSYM	DV.M12==:1_10.	;DEVICE CAN DO MODE 12
DEFSYM	DV.M11==:1_9.	;DEVICE CAN DO MODE 11
DEFSYM	DV.M10==:1_8.	;DEVICE CAN DO MODE 10
DEFSYM	DV.M7==:1_7.	;DEVICE CAN DO MODE 7
DEFSYM	DV.M6==:1_6.	;DEVICE CAN DO MODE 6
DEFSYM	DV.M5==:1_5.	;DEVICE CAN DO MODE 5
DEFSYM	DV.M4==:1_4.	;DEVICE CAN DO MODE 4
DEFSYM	DV.M3==:1_3.	;DEVICE CAN DO MODE 3
DEFSYM	DV.M2==:1_2.	;DEVICE CAN DO MODE 2
DEFSYM	DV.M1==:1_1.	;DEVICE CAN DO MODE 1
DEFSYM	DV.M0==:1_0.	;DEVICE CAN DO MODE 0
SUBTTL	MISC. I/O -- DEVTYP

;FIRST THE TYPE CODES
DEFSYM	.TYDSK==:0	;DEVICE IS A DISK
DEFSYM	.TYDTA==:1	;DEVICE IS A DEC TAPE
DEFSYM	.TYMTA==:2	;DEVICE IS A MAG TAPE
DEFSYM	.TYTTY==:3	;DEVICE IS A TTY
DEFSYM	.TYPTR==:4	;DEVICE IS A PTR
DEFSYM	.TYPTP==:5	;DEVICE IS A PTP
DEFSYM	.TYDIS==:6	;DEVICE IS A DISPLAY
DEFSYM	.TYLPT==:7	;DEVICE IS A LINE PRINTER
DEFSYM	.TYCDR==:10	;DEVICE IS A CARD READER
DEFSYM	.TYCDP==:11	;DEVICE IS A CARD PUNCH
DEFSYM	.TYPTY==:12	;DEVICE IS A PTY
DEFSYM	.TYPLT==:13	;DEVICE IS A PLOTTER
DEFSYM	.TYEXT==:14	;EXTERNAL TASK (DA28C)
DEFSYM	.TYMPX==:15	;MULTIPLEXOR
DEFSYM	.TYPAR==:16	;PA611R ON DC44
DEFSYM	.TYPCR==:17	;PC11(R) ON DC44
DEFSYM	.TYPAP==:20	;PA611P ON DC44
DEFSYM	.TYLPC==:21	;LPC-11 ON DC44
DEFSYM	.TYPCP==:22	;PC-11(P) ON DC44

;NOW THE CHARACTERISTICS
DEFSYM	TY.MAN==:1_35.	;LOOKUP/ENTER IS REQUIRED
DEFSYM	TY.MDA==:1_26.	;DEVICE IS CONTROLLED BY MOUNTABLE DEVICE
		; ALLOCATOR
DEFSYM	TY.EHF==:1_25.	;EXTENDED HARDWARE FEATURES:
		;IF LPT THEN HAS LOWER CASE
DEFSYM	TY.MPX==:1_24.	;DEVICE CAN BE USED VIA MPX:
DEFSYM	TY.AVL==:1_23.	;DEVICE IS FREE
DEFSYM	TY.SPL==:1_22.	;DEVICE IS SPOOLED
DEFSYM	TY.INT==:1_21.	;DEVICE IS INTERACTIVE
DEFSYM	TY.VAR==:1_20.	;DEVICE HAS VARIABLE BUFFER SIZE
DEFSYM	TY.IN==:1_19.	;DEVICE CAN DO INPUT
DEFSYM	TY.OUT==:1_18.	;DEVICE CAN DO OUTPUT
DEFSYM	TY.JOB==:777_9.	;JOB NUMBER OWNING DEVICE
DEFSYM	TY.RAS==:1_6.	;RESTRICTED DEVICE
DEFSYM	TY.DEV==:77_0.	;DEVICE TYPE
SUBTTL	MISC. I/O -- MTCHR.

DEFSYM	MT.AWC==:777777_18.	;ACTUAL WORD COUNT
DEFSYM	MT.CRC==:777_9.	;CRC LAST READ
DEFSYM	MT.NCR==:7_6.	;NUMBER CHARACTERS READ IN LAST WORD
DEFSYM	MT.7TR==:1_4.	;7 TRACK
DEFSYM	MT.WLK==:1_3.	;WRITE LOCKED
DEFSYM	MT.DEN==:7_0.	;DENSITY
	DEFSYM	.MTDN2==:1	;200
	DEFSYM	.MTDN5==:2	;556
	DEFSYM	.MTDN8==:3	;800
	DEFSYM	.MTD16==:4	;1600

DEFSYM	.MTRID==:1	;REEL ID
DEFSYM	.MTWRD==:2	;WORDS READ (CHARS IN 6.02)
DEFSYM	.MTWWT==:3	;WORDS WRITTEN (CHARS IN 6.02)
DEFSYM	.MTSRE==:4	;SOFT READ ERRORS
DEFSYM	.MTHRE==:5	;HARD READ ERRORS
DEFSYM	.MTSWE==:6	;SOFT WRITE ERRORS
DEFSYM	.MTHWE==:7	;HARD WRITE ERRORS
DEFSYM	.MTTME==:10	;TOTAL MEDIA ERRORS
DEFSYM	.MTTDE==:11	;TOTAL DEVICE ERRORS
DEFSYM	.MTTUN==:12	;TOTAL UNLOADS
DEFSYM	.MTNFB==:13	;NUMBER OF FILES FROM BOT
DEFSYM	.MTNRF==:14	;NUMBER OF RECORDS FROM EOF
DEFSYM	.MTICC==:15	;INITIAL ERROR CONI MTC
DEFSYM	.MTICS==:16	;INITIAL ERROR CONI MTS
DEFSYM	.MTFCC==:17	;FINAL ERROR CONI MTC
DEFSYM	.MTFCS==:20	;FINAL ERROR CONI MTS
DEFSYM	.MTTRY==:21	;RETRIES TO RESOLVE LAST ERROR
SUBTTL	MISC. I/O -- TAPOP.

;;TAPOP. UUO TAKES N,,BLOCK IN AC WHERE BLOCK CONTAINS:
;;  !=======================================================!
;;  !                     FUNCTION CODE                     !
;;  !-------------------------------------------------------!
;;  !               DEVICE NAME, CHAN. OR UDX               !
;;  !-------------------------------------------------------!
;;  !                      ARGUMENT 0                       !
;;  !-------------------------------------------------------!
;;  !                      ARGUMENT 1                       !
;;  !-------------------------------------------------------!
;;  /                                                       /
;;  /                                                       /
;;  /                                                       /
;;  !-------------------------------------------------------!
;;  !                     ARGUMENT N-2                      !
;;  !=======================================================!

;TAPOP. FUNCTIONS:
DEFSYM	.TFWAT==:1	;WAIT FOR I/O TO STOP
DEFSYM	.TFREW==:2	;REWIND TO LOAD POINT
DEFSYM	.TFUNL==:3	;REWIND AND UNLOAD
DEFSYM	.TFFSB==:4	;SKIP FORWARD 1 BLOCK
DEFSYM	.TFFSF==:5	;SKIP FORWARD 1 FILE
DEFSYM	.TFSLE==:6	;SKIP TO LOGICAL END OF TAPE
DEFSYM	.TFBSB==:7	;SKIP BACKWARD 1 BLOCK
DEFSYM	.TFBSF==:10	;SKIP BACKWARB 1 FILE
DEFSYM	.TFWTM==:11	;WRITE TAPE MARK
DEFSYM	.TFWLG==:12	;WRITE 3" OF BLANK TAPE
DEFSYM	.TFDSE==:13	;DATA SECURITY ERASE (BLANK WHOLE TAPE) TU70
DEFSYM	.TFWLE==:14	;WRITE LOGICAL END OF TAPE (WTM, WTM, BSB)
DEFSYM	.TFLBG==:15	;LABEL GET (FOR TAPE LABEL MGR.)
DEFSYM	.TFLRL==:16	;LABEL RELEASE (FOR TAPE LABEL MGR.)
DEFSYM	.TFLSU==:17	;SWAP UNITS (FOR TAPE LABEL MGR.)
DEFSYM	.TFLDD==:20	;DESTROY LABEL DDB (FOR TAPE LABEL MGR.)
DEFSYM	.TFFEV==:21	;FORCE END OF VOLUME PROCESSING
DEFSYM	.TFURQ==:22	;USER REQUEST
;READ PARAMETERS. RESULT TO AC.
DEFSYM	.TFTRY==:1000	;RETRIES ON LAST ERROR
DEFSYM	.TFDEN==:1001	;DENSITY
	DEFSYM	.TFD00==:0	;UNIT DEFAULT
	DEFSYM	.TFD20==:1	;200 BPI
	DEFSYM	.TFD55==:2	;556 BPI
	DEFSYM	.TFD80==:3	;800 BPI
	DEFSYM	.TFD16==:4	;1600 BPI
	DEFSYM	.TFD62==:5	;6250 BPI
DEFSYM	.TFKTP==:1002	;CONTROLLER TYPE
	DEFSYM	.TFKTA==:0	;TM10A
	DEFSYM	.TFKTB==:1	;TM10B
	DEFSYM	.TFKTC==:2	;TC10C
	DEFSYM	.TFKTX==:3	;TX01
DEFSYM	.TFRDB==:1003	;READ BACKWARDS (TU70 ONLY)
DEFSYM	.TFLTH==:1004	;LOW THRESHOLD READ (TM10 ONLY)
DEFSYM	.TFPAR==:1005	;EVEN PARITY (7TRK ONLY)
DEFSYM	.TFBSZ==:1006	;BLOCK SIZE
DEFSYM	.TFMOD==:1007	;MODE
	DEFSYM	.TFMDD==:0	;DEC COMPAT. CORE DUMP
	DEFSYM	.TFMID==:1	;INDUSTRY COMPAT. CORE DUMP
	DEFSYM	.TFM8B==:2	;8-BIT MODE (4 BYTES/WORD)
	DEFSYM	.TFM6B==:3	;6-BIT MODE (9-TRACK TU70 ONLY)
	DEFSYM	.TFM7B==:4	;7-BIT MODE (TU70 ONLY)
	DEFSYM	.TFM7T==:5	;7-TRACK CORE DUMP (SIXBIT)
DEFSYM	.TFTRK==:1010	;7-TRACK BIT
DEFSYM	.TFWLK==:1011	;WRITE LOCK (1=YES, 0=NO)
DEFSYM	.TFCNT==:1012	;CHAR. COUNT OF LAST RECORD
DEFSYM	.TFRID==:1013	;REELID
DEFSYM	.TFCRC==:1014	;LAST CRC (9-TRACK NRZI ONLY)
DEFSYM	.TFSTS==:1015	;UNIT STATUS
	DEFSYM	TF.UNS==:1_17.	;UNIT IS NOT TO BE SCHEDULED
	DEFSYM	TF.BOT==:1_16.	;BOT
	DEFSYM	TF.WLK==:1_15.	;WRITE LOCK
	DEFSYM	TF.REW==:1_14.	;UNIT IS REWINDING
	DEFSYM	TF.STA==:1_2.	;UNIT IS STARTED
	DEFSYM	TF.SEL==:1_1.	;UNIT IS SELECTED
	DEFSYM	TF.OFL==:1_0.	;UNIT IS OFF-LINE
DEFSYM	.TFSTA==:1016	;UNIT STATISTICS TO ARGS 0 TO 12
	DEFSYM	.TSFIL==:0	;NUMER OF FILES SINCE BOT (FILE #)
	DEFSYM	.TSREC==:1	;NUMBER OF RECORDS SINCE EOF (RECORD #)
	DEFSYM	.TSTCR==:2	;TOTAL CHARS. READ
	DEFSYM	.TSTCW==:3	;TOTAL CHARS. WRITTEN
	DEFSYM	.TSSRE==:4	;SOFT READ ERRORS
	DEFSYM	.TSHRE==:5	;HARD READ ERRORS
	DEFSYM	.TSSWE==:6	;SOFT WROTE ERRORS
	DEFSYM	.TSHWE==:7	;HARD WRITE ERRORS
	DEFSYM	.TSESU==:10	;TOTAL ERRORS SINCE UNLOAD (MOUNT)
	DEFSYM	.TSTDE==:11	;TOTAL DEVICE ERRORS SINCE SYSTEM STARTUP
	DEFSYM	.TSUNL==:12	;TOTAL UNLOADS
DEFSYM	.TFIEP==:1017	;INITIAL ERROR POINTER
DEFSYM	.TFFEP==:1020	;FINAL ERROR POINTER
DEFSYM	.TFIER==:1021	;INITIAL ERROR STATUS
DEFSYM	.TFFER==:1022	;FINAL ERROR STATUS
DEFSYM	.TFFED==:1023	;NUMBER OF RETRIES
DEFSYM	.TFLBL==:1024	;TYPE OF LABEL PROCESSING
	DEFSYM	.TFLBP==:0	;BYPASS LABEL PROCESSING
	DEFSYM	.TFLAL==:1	;ANSI LABELS
	DEFSYM	.TFLAU==:2	;ANSI LABELS WITH USER LABELS
	DEFSYM	.TFLIL==:3	;IBM LABELS
	DEFSYM	.TFLIU==:4	;IBM LABELS WITH USER LABELS
	DEFSYM	.TFLTM==:5	;LEADING TAPE MARK
	DEFSYM	.TFLNS==:6	;NON-STANDARD LABELS
	DEFSYM	.TFLNL==:7	;NO LABELS
DEFSYM	.TFPLT==:1025	;SAME AS .TFLBL EXCEPT PRIV SET. USED TO
		; SET .TFLBP AND .TFLNL.
DEFSYM	.TFLTC==:1026	;LABEL TERMINATION CODE
	DEFSYM	.TFTCP==:1	;CONTINUE PROCESSING
	DEFSYM	.TFTRE==:2	;RETURN EOF
	DEFSYM	.TFTLT==:3	;LABEL TYPE ERROR
	DEFSYM	.TFTHL==:4	;HEADER LABEL ERROR
	DEFSYM	.TFTTL==:5	;TRAILER LABEL ERROR
	DEFSYM	.TFTVL==:6	;VOLUME LABEL ERROR
	DEFSYM	.TFTDV==:7	;DEVICE ERROR
	DEFSYM	.TFTDE==:10	;DATA ERROR
	DEFSYM	.TFTWL==:11	;WRITE LOCK ERROR
DEFSYM	.TFDMS==:1027	;DIAGNOSTIC MODE SET IF 1 (TU70 ONLY)
DEFSYM	.TFFSO==:1030	;FORCE SENSE OPERATIONS IF 1 (TU70 ONLY)



DEFSYM	.TFSET==:1000	;OFFSET FROM READ TO SET
;TAPOP. ERROR CODES
DEFSYM	TPACS%==:-1	;ADDRESS CHECK STORING ANSWER
DEFSYM	TPIFC%==:0	;ILLEGAL FUNCTION CODE
DEFSYM	TPPRV%==:1	;NOT ENOUGH PRIVS.
DEFSYM	TPNMT%==:2	;NOT A MAGTAPE
DEFSYM	TPVOR%==:3	;VALUE OUT OF RANGE
DEFSYM	TPACR%==:4	;ADDRESS CHECK READING ARGUMENTS
DEFSYM	TPCBS%==:5	;PARAMETER CAN NOT BE SET
DEFSYM	TPNIA%==:6	;TAPE NOT INITED OR ASSIGNED
SUBTTL	MISC. I/O -- WHERE

DEFSYM	RM.SUP==:17_18.	;STATION UP STATUS
	DEFSYM	.RMSUN==:1	;NOT IN CONTACT
	DEFSYM	.RMSUD==:2	;DOWN
	DEFSYM	.RMSUG==:4	;LOADING
	DEFSYM	.RMSUL==:10	;LOADED
DEFSYM	RM.SDU==:1_22.	;DIAL-UP

SUBTTL	MISC. I/O -- CAL11.

DEFSYM	.C11FC==:0	;FUNCTION WORD
	DEFSYM	C1.1NO==:777777_18.  ;WHICH -11
	DEFSYM	C1.1FC==:777777	;WHICH FUNCTION
		DEFSYM	.C11DP==:0	;DEPOSIT FUNCTION
		DEFSYM	.C11EX==:1	;EXAMINE FUNCTION
		DEFSYM	.C11QU==:2	;QUEUE A REQUEST
		DEFSYM	.C11NM==:3	;RETURN NAME OF FRONT END PROG
		DEFSYM	.C11UP==:4	;RETURN 0 IF DOWN, 1 IF UP
DEFSYM	.C11AD==:1	;ADDRESS OF EXAMINE/DEPOSIT
DEFSYM	.C11CN==:2	;CONTENTS TO DEPOSIT
DEFSYM	.C11EN==:1	;START OF QUEUE ENTRY

DEFSYM	C11NP%==:1	;NOT PRIVILEGED
DEFSYM	C11UF%==:2	;UNKNOWN FUNCTION
DEFSYM	C11ND%==:3	;NOT DC76
DEFSYM	C11IU%==:4	;EXAM/DEP IN USE
DEFSYM	C11NA%==:5	;NO ANSWER TO EXAM/DEP
DEFSYM	C11TS%==:6	;QUEUE ENTRY TOO SHORT
DEFSYM	C11NE%==:7	;NOT ENOUGH ARGS
SUBTTL	MISC. I/O -- GETLCH AND TRMOP.

;GETLCH BITS

DEFSYM	GL.ITY==:1_35.	;INVISIBLE TTY (PTY)
DEFSYM	GL.CTY==:1_34.	;SYSTEM CTY
DEFSYM	GL.DSP==:1_33.	;DISPLAY CONSOLE
DEFSYM	GL.DSL==:1_32.	;DATASET DATA LINE
DEFSYM	GL.HDP==:1_30.	;HALF-DUPLEX
DEFSYM	GL.REM==:1_29.	;REMOTE TTY
DEFSYM	GL.RBS==:1_28.	;REMOTE BATCH TTY
DEFSYM	GL.LIN==:1_24.	;LINE HAS BEEN TYPED
DEFSYM	GL.LCM==:1_22.	;LOWER CASE MODE
DEFSYM	GL.TAB==:1_21.	;TABS
DEFSYM	GL.LCP==:1_20.	;LOCAL COPY
DEFSYM	GL.PTM==:1_19.	;PAPER TAPE MODE

;TRMOP. ERRORS

DEFSYM	TOPRC%==:1	;PROTECTION CHECK
DEFSYM	TORGB%==:2	;RANGE BAD
DEFSYM	TOADB%==:3	;ADDRESS BAD
DEFSYM	TOIMP%==:4	;IMPOSSIBLE
DEFSYM	TODIL%==:5	;ERROR IN DIALLER
;TRMOP. FUNCTIONS

DEFSYM	.TOSIP==:1	;SKIP IF INPUT PRESENT
DEFSYM	.TOSOP==:2	;SKIP IF OUTPUT PRESENT
DEFSYM	.TOCIB==:3	;CLEAR INPUT BUFFER
DEFSYM	.TOCOB==:4	;CLEAR OUTPUT BUFFER
DEFSYM	.TOOUC==:5	;OUTPUT CHARACTER
DEFSYM	.TOOIC==:6	;OUTPUT IMAGE CHARACTER
DEFSYM	.TOOUS==:7	;OUTPUT STRING
DEFSYM	.TOINC==:10	;INPUT CHARACTER
DEFSYM	.TOIIC==:11	;INPUT IMAGE CHARACTER
DEFSYM	.TODSE==:12	;DATA SET ENABLE
DEFSYM	.TODSC==:13	;DATA SET CALL
DEFSYM	.TODSF==:14	;DATA SET OFF
DEFSYM	.TORSC==:15	;RESCAN
DEFSYM	.TOELE==:16	;SET ELEMENT
DEFSYM	.TOEAB==:17	;ENABLE AUTO BAUD DETECT

DEFSYM	.TOOIP==:1000	;OUTPUT IN PROGRESS
DEFSYM	.TOCOM==:1001	;AT COMMAND LEVEL
DEFSYM	.TOXON==:1002	;PAPER TAPE MODE
DEFSYM	.TOLCT==:1003	;LOWER CASE TRANSLATE TO UPPER
DEFSYM	.TOSLV==:1004	;SLAVE
DEFSYM	.TOTAB==:1005	;ACCEPTS TABS
DEFSYM	.TOFRM==:1006	;ACCEPTS FF AND LF
DEFSYM	.TOLCP==:1007	;LOCAL COPY (NO ECHO)
DEFSYM	.TONFC==:1010	;NO FREE CARRIAGE RETURN
DEFSYM	.TOHPS==:1011	;HORIZONTAL POSITION
DEFSYM	.TOWID==:1012	;WIDTH
DEFSYM	.TOSND==:1013	;SEND ALLOWED (NO GAG)
DEFSYM	.TOHLF==:1014	;HALF DUPLEX
DEFSYM	.TORMT==:1015	;REMOTE NON-DATA SET
DEFSYM	.TODIS==:1016	;DISPLAY CONSOLE
DEFSYM	.TOFLC==:1017	;FILLER CLASS
DEFSYM	.TOTAP==:1020	;PAPER TAPE ENABLED
DEFSYM	.TOPAG==:1021	;PAGE COMMAND GIVEN
DEFSYM	.TOSTP==:1022	;OUTPUT STOPPED (XOFF OR PAGE LIMIT)
DEFSYM	.TOPSZ==:1023	;PAGE SIZE (HEIGHT IN LINES)
DEFSYM	.TOPCT==:1024	;LINE COUNT IN PAGE
DEFSYM	.TOBLK==:1025	;SUPPRESS BLANK LINES
DEFSYM	.TOALT==:1026	;CONVERT ALTMODE (175,176) TO ESCAPE
DEFSYM	.TOAPL==:1027	;APL MODE
DEFSYM	.TORSP==:1030	;RECIEVE SPEED
DEFSYM	.TOTSP==:1031	;TRANSMIT SPEED
DEFSYM	.TODBK==:1032	;HAS DEBREAK
DEFSYM	.TO274==:1033	;2741
DEFSYM	.TOTDY==:1034	;TIDY MODE
DEFSYM	.TOACR==:1035	;AUTO CRLF
DEFSYM	.TORTC==:1036	;^R ^T COMPATIBLE MODE (DISABLED)
DEFSYM	.TOPBS==:1037	;PIM MODE BREAK SET (4 9-BIT BYTES)
DEFSYM	.TOSET==:1000	;OFFSET FROM GET TO SET
SUBTTL	MISC. I/O -- GETSTS AND SETSTS

DEFSYM	IO.IMP==:1_17.	;IMPROPER MODE -- SOFTWARE DETECTECTED ERROR
DEFSYM	IO.DER==:1_16.	;DEVICE ERROR
DEFSYM	IO.DTE==:1_15.	;DATA ERROR
DEFSYM	IO.BKT==:1_14.	;BLOCK TOO LARGE
DEFSYM	IO.ERR==:17_14.	;I/O ERROR BITS
DEFSYM	IO.EOF==:1_13.	;END OF FILE
DEFSYM	IO.ACT==:1_12.	;DEVICE IS ACTIVE
DEFSYM	IO.D29==:1_6.	;DEC029 MODE (CDP ONLY)
DEFSYM	IO.SIM==:1_6.	;SUPER-IMAGE MODE (CDR ONLY)
DEFSYM	IO.WHD==:1_6.	;WRITE DISK PACK HEADERS (DSK ONLY)
DEFSYM	IO.SSD==:1_7.	;SEMI-STANDARD MODE (DTA ONLY)
DEFSYM	IO.NSD==:1_6.	;NON-STANDARD MODE (DTA ONLY)
DEFSYM	IO.SFF==:1_6.	;SUPPRESS FORM FEEDS (LPT ONLY)
DEFSYM	IO.BOT==:1_11.	;BEGINNING OF TAPE (MAG TAPE ONLY)
DEFSYM	IO.EOT==:1_10.	;END OF TAPE (MAG TAPE ONLY)
DEFSYM	IO.PAR==:1_9.	;PARITY 1=EVEN 0=ODD (MAG TAPE ONLY)
DEFSYM	IO.DEN==:3_7.	;DENSITY 0-STD 1-200 2-556 3-800 (MAG TAPE ONLY)
DEFSYM	IO.NRC==:1_6.	;READ WITH NO REREAD CHECK (MAG TAPE ONLY)
DEFSYM	IO.PTI==:1_11.	;SUBJOB IN TTY INPUT WAIT (PTY ONLY)
DEFSYM	IO.PTO==:1_10.	;SUBJOB HAS TTY OUTPUT AVAILABLE (PTY ONLY)
DEFSYM	IO.PTM==:1_9.	;SUBJOB IS IN MONITOR MODE (PTY ONLY)
DEFSYM	IO.TEC==:1_8.	;TRUTH IN ECHOING MODE (TTY ONLY)
DEFSYM	IO.SUP==:1_7.	;SUPPRESS ECHOING (TTY ONLY)
DEFSYM	IO.FCS==:1_6.	;FULL CHARACTER SET (TTY ONLY) -- OBSOLETE SYMBOL
DEFSYM	IO.LEM==:1_6.	;LINE EDITOR MODE (TTY ONLY)
DEFSYM	IO.SYN==:1_5.	;SYNCRONOUS MODE I/O
DEFSYM	IO.UWC==:1_4.	;USE USER'S WORD COUNT
DEFSYM	IO.MOD==:17_0.	;DATA MODE

;I/O MODES

DEFSYM	.IOASC==:0	;ASCII
DEFSYM	.IOASL==:1	;ASCII LINE
DEFSYM	.IOPIM==:2	;PACKED IMAGE MODE
DEFSYM	.IOIMG==:10	;IMAGE
DEFSYM	.IOIBN==:13	;IMAGE BINARY
DEFSYM	.IOBIN==:14	;BINARY
DEFSYM	.IOIDP==:15	;IMAGE DUMP
DEFSYM	.IODPR==:16	;DUMP RECORDS
DEFSYM	.IODMP==:17	;DUMP
SUBTTL	MISC. I/O -- OPEN AND CLOSE

;CLOSE BITS

DEFSYM	CL.DAT==:1_6.	;DELETE ACCESS TABLE FROM DISK DATA BASE
DEFSYM	CL.RST==:1_5.	;INHIBIT CREATING A NEW FILE (OR SUPERSEDING
		; AN OLD ONE) ON OUTPUT CLOSE
DEFSYM	CL.NMB==:1_4.	;INHIBIT DELETING NAME BLOCK ON A
		; CLOSE WITH ONLY A LOOKUP DONE
DEFSYM	CL.ACS==:1_3.	;INHIBIT UPDATING ACCESS DATE
DEFSYM	CL.DLL==:1_2.	;INHIBIT DEALLOCATION OF ALLOCATED
		; BUT UNWRITTEN BLOCKS
DEFSYM	CL.IN==:1_1.	;INHIBIT CLOSING INPUT
DEFSYM	CL.OUT==:1_0.	;INHIBIT CLOSING OUTPUT

;OPEN BLOCK

DEFSYM	.OPMOD==:0	;MODE, ETC.
DEFSYM	.OPDEV==:1	;DEVICE NAME
DEFSYM	.OPBUF==:2	;BUFFER HEADER ADDRESSES

;OPEN AND PHYSICAL BITS

DEFSYM	UU.PHY==:1_16.	;BIT 19 .NE. BIT 18 OF CALLI IMPLIES
		; PHYSICAL DEVICE SEARCH

DEFSYM	UU.PHS==:1_35.	;SIGN BIT IN OPEN BLOCK IMPLIES PHYSICAL
		; DEVICE SEARCH
DEFSYM	UU.DEL==:1_34.	;DISABLE ERROR LOGGING
DEFSYM	UU.DER==:1_33.	;DISABLE ERROR RETRY
DEFSYM	UU.AIO==:1_32.	;ASYNCHRONOUS I/O
DEFSYM	UU.IBC==:1_31.	;ENABLE INHIBITING OF BUFFER CLEAR
DEFSYM	UU.SOE==:1_30.	;STOP OUTPUT ON ERROR. DISALLOW OUTPUT WITH ANY
		; ERROR BITS SET.
SUBTTL	MISC. I/O -- FILOP.

;ARGUMENT BLOCK FOR FILOP.
;;  !=========================================================================!
;;  !UP!                                  !           FUNCTION CODE           !
;;  !-------------------------------------------------------------------------!
;;  !                                I/O MODE                                 !
;;  !-------------------------------------------------------------------------!
;;  !                           DEVICE NAME OR UDX                            !
;;  !-------------------------------------------------------------------------!
;;  !        OUTPUT BUFFER HEADER        !        INPUT BUFFER HEADER         !
;;  !-------------------------------------------------------------------------!
;;  !      NUMBER OF OUTPUT BUFFERS      !      NUMBER OF INPUT BUFFERS       !
;;  !-------------------------------------------------------------------------!
;;  !                                    !        PTR TO LOOKUP BLOCK         !
;;  !-------------------------------------------------------------------------!
;;  !        LENGTH OF PATH BLOCK        !         PTR TO PATH BLOCK          !
;;  !=========================================================================!

;OFFSETS IN ARGUMENT BLOCK
DEFSYM	.FOFNC==:0	;FUNCTION (AND FLAGS)
DEFSYM	.FOIOS==:1	;I/O STATUS (OPEN MODE)
DEFSYM	.FODEV==:2	;DEVICE
DEFSYM	.FOBRH==:3	;BUFFER RING HEADER POINTERS
DEFSYM	.FONBF==:4	;NUMBER OF BUFFER TO BUILD
DEFSYM	.FOLEB==:5	;PTR TO LOOKUP/ENTER BLOCK (SEE .RB??? SYMBOLS)
DEFSYM	.FOPAT==:6	;PTR TO PATH BLOCK (SEE .PT??? SYMBOLS)

;FLAGS IN .FOFNC
DEFSYM	FO.PRV==:1_35.	;JOB IS JACCT OR [1,2] AND WANT TO USE PRIVS

;FUNCTION CODES
DEFSYM	.FORED==:1	;READ ONLY
DEFSYM	.FOCRE==:2	;CREATE (NEW FILE ONLY)
DEFSYM	.FOWRT==:3	;WRITE (CREATE OR SUPERCEDE)
DEFSYM	.FOSAU==:4	;SINGLE ACCESS UPDATE
DEFSYM	.FOMAU==:5	;MULTI-ACCESS UPDATE
DEFSYM	.FOAPP==:6	;APPEND
DEFSYM	.FOCLS==:7	;CLOSE (OPTIONAL FLAGS IN .FOIOS, SEE CL.???)
DEFSYM	.FOURB==:10	;UPDATE RIB
SUBTTL	MISC. I/O -- BUFFER HEADER FORMATS

;BUFFER HEADER FORMATS
;BUFFER RING HEADER
;;  !=======================================================!
;;  !VR!I!                       !ADDRESS OF CURRENT BUFFER !
;;  !-------------------------------------------------------!
;;  !                 BYTE POINTER TO DATA                  !
;;  !-------------------------------------------------------!
;;  !                     BYTE COUNTER                      !
;;  !=======================================================!
;;  !      (MPX: ONLY) UNIVERSAL INDEX OF THIS DEVICE       !
;;  !=======================================================!

DEFSYM	.BFADR==:0	;ADDRESS OF BUFFER RING
	DEFSYM	BF.VBR==:1_35.	;VIRGIN BUFFER RING
	DEFSYM	BF.IBC==:1_34.	;INHIBIT BUFFER CLEAR
DEFSYM	.BFPTR==:1	;BYTE POINTER TO DATA
DEFSYM	.BFCTR==:2	;ITEM BYTE COUNT
DEFSYM	.BFUDX==:3	;UNIVERSAL DEVICE INDEX (MPX: ONLY)

;INDIVIDUAL BUFFER HEADER
;;  !=======================================================!
;;  !                           !        FILE STATUS        !
;;  !-------------------------------------------------------!
;;  !US!        DATA SIZE       !    NEXT BUFFER ADDRESS    !
;;  !-------------------------------------------------------!
;;  !  (MPX:) UNIV.DEV. INDEX   !        WORD COUNT         !
;;  !=======================================================!
;;  /                                                       /
;;  /                                                       /
;;  !                         DATA                          !
;;  /                                                       /
;;  /                                                       /
;;  !=======================================================!

DEFSYM	.BFSTS==:0	;FILE STATUS WORD
	DEFSYM	BF.STS==:0,,-1	;FILE STATUS THIS BUFFER
DEFSYM	.BFHDR==:1	;BUFFER CONTROL THIS BUFFER
	DEFSYM	BF.IOU==:1_35.	;BUFFER IN USE
	DEFSYM	BF.SIZ==:377777_18.  ;SIZE OF BUFFER
	DEFSYM	BF.NBA==:777777	;NEXT BUFFER ADDRESS
DEFSYM	.BFCNT==:2	;WORD COUNT OF DATA (SOMEWHAT DEVICE DEPENDENT)

SUBTTL	MISC. I/O -- MVHDR.

DEFSYM	MVHDR%==:1	;CHANNEL NOT OPEN
SUBTTL	MISC. I/O -- CNECT.,SENSE., CLRST.

;CNECT. FUNCTIONS

DEFSYM	.CNCCN==:1	;CONNECT DEVICE
DEFSYM	.CNCDC==:2	;CLOSE AND DISCONNECT
DEFSYM	.CNCDR==:3	;RESET AND DISCONNECT

;CNECT. ERRORS

DEFSYM	CNCNM%==:1	;NOT MPX: CHANNEL
DEFSYM	CNCUD%==:2	;UNKNOWN DEVICE
DEFSYM	CNCCM%==:3	;CAN'T MULTIPLEX THIS DEVICE
DEFSYM	CNCNF%==:4	;NO FREE STORAGE
DEFSYM	CNCNC%==:5	;NOT CONNECTED
DEFSYM	CNCNO%==:6	;CHANNEL NOT OPEN
DEFSYM	CNCII%==:7	;INVALID UNIVERSAL DEVICE INDEX
DEFSYM	CNCUF%==:10	;UNKNOWN FUNCTION
DEFSYM	CNCDU%==:11	;DEVICE UNAVAILABLE
DEFSYM	CNCSD%==:12	;SPOOLED DEVICE

;SENSE. SUB-BLOCK

DEFSYM	.SNSDV==:0	;DEVICE NAME IN SIXBIT
DEFSYM	.SNSST==:1	;GETSTS
DEFSYM	.SNSDS==:2	;DEVSTS

;SENSE. ERRORS

DEFSYM	SNSBD%==:1	;BAD DEVICE

;ERLST. ERRORS

DEFSYM	ERLBC%==:1	;BAD CHANNEL
DEFSYM	ERLNM%==:2	;NOT MPX: CHANNEL

;CLRST. BLOCK

DEFSYM	.CLRSX==:0	;UDX
DEFSYM	.CLRST==:1	;SETSTS

;CLRST. ERRORS

DEFSYM	CLRID%==:1	;ILLEGAL DEVICE
DEFSYM	CLRNO%==:2	;NOT OWN DEVICE
SUBTTL	MISC. I/O -- DEVLNM

DEFSYM	DVLNX%==:-1	;NON-EXISTENT DEVICE
DEFSYM	DVLIU%==:-2	;LOGICAL NAME IN USE
DEFSYM	DVLNA%==:-3	;DEVICE NOT ASSIGNED OR OPEN

SUBTTL	MISC. I/O -- DEVSIZ

DEFSYM	DVSDM%==:0	;DUMP MODE
DEFSYM	DVSNX%==:-1	;NON-EXISTENT DEVICE
DEFSYM	DVSIM%==:-2	;ILLEGAL MODE

SUBTTL	MISC. I/O -- MTAID.

DEFSYM	MTINX%==:-1	;DEVICE DOES NOT EXIST OR NOT A MAG TAPE
DEFSYM	MTINA%==:-2	;DEVICE IS NOT AVAILABLE TO THIS JOB

;REMOVED (NEED TO SPY TO GET THIS INFO)
;HARDWARE CHANNEL DATA BLOCK WORDS

;DEFSYM	.CNBSY==:0	;BUSY IF POSITIVE
;DEFSYM	.CNSYS==:1	;LH=ADDRESS OF NEXT BLOCK
;DEFSYM	.CNLUE==:1	;RH=ADDRESS OF UNIT WITH LAST ERROR
;DEFSYM	.CNICW==:2	;INITIAL C.W. ON LAST ERROR
;DEFSYM	.CNFCW==:3	;FINAL C.W. ON LAST ERROR
;DEFSYM	.CNCW2==:4	;COMMAND WORD-2 OF ERROR
;DEFSYM	.CNCW1==:5	;-1
;DEFSYM	.CNCW0==:6	;-0
;DEFSYM	.CNDW2==:7	;DATA WORD-2
;DEFSYM	.CNDW1==:10	;DATA WORD-1
;DEFSYM	.CNDW0==:11	;DATA WORD-0
;DEFSYM	.CNMPE==:12	;NO. CHANNEL MEMORY PARITY ERRORS
;DEFSYM	.CNDPE==:13	;NO. DATA PARITY ERRORS
;DEFSYM	.CNNXM==:14	;NO. CHANNEL NXM
;DEFSYM	.CNCSR==:15	;LH=BITS TO REQUEST CPU SWEEP OF CORE
;DEFSYM	.CNLDE==:15	;RH=LAST DDB ADDR
;DEFSYM	.CNCBL==:16	;LENGTH OF DATA BLOCK
SUBTTL	DISK UUOS -- DSKCHR

;DSKCHR STATUS BITS
;;  !=======================================================================!
;;  !R!O!H!S!A!Z! !STS!M!N!L!     ! TYP ! DCN !  CNT-TYP  ! CNN ! UNT ! UNN !
;;  !=======================================================================!

DEFSYM	DC.RHB==:1_35.	;READ HOME BLOCK
DEFSYM	DC.OFL==:1_34.	;UNIT IS OFF-LINE
DEFSYM	DC.HWP==:1_33.	;HARDWARE WRITE PROTECT
DEFSYM	DC.SWP==:1_32.	;SOFTWARE WRITE PROTECT
DEFSYM	DC.SAF==:1_31.	;SINGLE ACCESS FILE STRUCTURE
DEFSYM	DC.ZMT==:1_30.	;ZERO MOUNT COUNT
DEFSYM	DC.STS==:3_27.	;UNIT STATUS
	DEFSYM	.DCSTP==:0	;PACK IS MOUNTED
	DEFSYM	.DCSTN==:2	;NO PACK IS MOUNTED
	DEFSYM	.DCSTD==:3	;UNIT IS DOWN
DEFSYM	DC.MSB==:1_26.	;MULTIPLE SAT BLOCKS
DEFSYM	DC.NNA==:1_25.	;NO NEW ACCESSES
DEFSYM	DC.AWL==:1_24.	;WRITE LOCKED FOR ALL JOBS
DEFSYM	DC.TYP==:7_18.	;TYPE OF ARGUMENT
	DEFSYM	.DCTDS==:0	;GENERIC DSK
	DEFSYM	.DCTAB==:1	;SUBSET DUE TO ABBREVIATIONS
	DEFSYM	.DCTFS==:2	;FILE STRUCTURE NAME
	DEFSYM	.DCTUF==:3	;UNIT WITHIN F/S
	DEFSYM	.DCTCN==:4	;CONTROLLER CLASS NAME
	DEFSYM	.DCTCC==:5	;CONTROLLER CLASS
	DEFSYM	.DCTPU==:6	;PHYSICAL UNIT
DEFSYM	DC.DCN==:7_15.	;DATA CHANNEL NUMBER
DEFSYM	DC.CNT==:77_9.	;CONTROLLER TYPE
	DEFSYM	.DCCFH==:1	;RC-10
	DEFSYM	.DCCDP==:2	;RP-10
DEFSYM	DC.CNN==:7_6.	;CONTROLLER NUMBER
DEFSYM	DC.UNT==:7_3.	;UNIT TYPE
	DEFSYM	.DCUFD==:0	;RD-10
	DEFSYM	.DCUFM==:1	;RM-10B
	DEFSYM	.DCUD2==:1	;RP02
	DEFSYM	.DCUD3==:2	;RP03
DEFSYM	DC.UNN==:7_0.	;PHYSICAL UNIT NUMBER
;DSKCHR LOCATIONS

DEFSYM	.DCNAM==:0	;ARGUMENT NAME
DEFSYM	.DCUFT==:1	;LOGGED IN BLOCKS REMAINING
	DEFSYM	DC.NPA==:1_35.	;NO PREVIOUS ACCESS
DEFSYM	.DCFCT==:2	;PHYSICAL FCFS BLOCKS REMAINING
DEFSYM	.DCUNT==:3	;PHYSICAL UNIT BLOCKS REMAINING
DEFSYM	.DCSNM==:4	;STRUCTURE NAME
DEFSYM	.DCUCH==:5	;CHARACTERISTIC SIZES
	DEFSYM	DC.UCC==:777_27.	;BLOCKS/CLUSTER
	DEFSYM	DC.UCT==:777_18.	;BLOCKS/TRACK
	DEFSYM	DC.UCY==:777777	;BLOCKS/CYLINDER
DEFSYM	.DCUSZ==:6	;UNIT SIZE IN BLOCKS
DEFSYM	.DCSMT==:7	;STRUCTURE MOUNT COUNT
DEFSYM	.DCWPS==:10	;WORDS/SAT
DEFSYM	.DCSPU==:11	;SATS/UNIT
DEFSYM	.DCK4S==:12	;K FOR SWAPPING
DEFSYM	.DCSAJ==:13	;SINGLE ACCESS JOB
DEFSYM	.DCULN==:14	;UNIT LOGICAL NAME
DEFSYM	.DCUPN==:15	;UNIT PHYSICAL NAME
DEFSYM	.DCUID==:16	;UNIT ID
DEFSYM	.DCUFS==:17	;UNIT FIRST BLOCK FOR SWAPPING
DEFSYM	.DCBUM==:20	;BLOCKS PER UNIT INCL. MAINT CYLS.
DEFSYM	.DCCYL==:21	;CURRENT CYLINER
DEFSYM	.DCBUC==:22	;BLOCKS PER UNIT IN PDP-11 COMPAT. MODE
DEFSYM	.DCLPQ==:23	;LENGTH OF POSITION WAIT QUEUE
DEFSYM	.DCLTQ==:24	;LENGTH OF TRANSFER WAIT QUEUE


SUBTTL	DISK UUOS -- CHKACC

DEFSYM	.ACCPR==:0	;CHANGE PROTECTION
DEFSYM	.ACREN==:1	;RENAME
DEFSYM	.ACWRI==:2	;WRITE
DEFSYM	.ACUPD==:3	;UPDATE
DEFSYM	.ACAPP==:4	;APPEND
DEFSYM	.ACRED==:5	;READ
DEFSYM	.ACEXO==:6	;EXECUTE
DEFSYM	.ACCRE==:7	;CREATE
DEFSYM	.ACSRC==:10	;SEARCH DIRECTORY
SUBTTL	DISK UUOS -- DISK.

DEFSYM	.DUPRI==:0	;SET PRIORITY
DEFSYM	.DUSEM==:1	;SET PDP-11 (22-SECTOR) MODE ON RP04
DEFSYM	.DUSTM==:2	;SET PDP-10 (20-SECTOR) MODE ON RP04
DEFSYM	.DUUNL==:3	;UNLOAD RP04
DEFSYM	.DUOLS==:4	;CHAN./CONTROLLER WILL BE OFF LINE SOON
DEFSYM	.DUOLN==:5	;CHAN./CONTROLLER IS OFF LINE NOW
DEFSYM	.DUONL==:6	;CHAN./CONTROLLER IS BACK ON LINE

;DISK. ERRORS

DEFSYM	DUILF%==:-1	;ILLEGAL FUNCTION
DEFSYM	DUILP%==:-2	;ILLEGAL PRIORITY
;****NEED MORE ERROR CODES*******
SUBTTL	DISK UUOS -- JOBSTR

DEFSYM	.DFJNM==:0	;STR NAME
DEFSYM	.DFJDR==:1	;DIRECTORY
DEFSYM	.DFJST==:2	;STATUS
	DEFSYM	DF.SWL==:1_35.	;WRITE LOCKED
	DEFSYM	DF.SNC==:1_34.	;NO CREATE

SUBTTL	DISK UUOS -- GOBSTR

DEFSYM	.DFGJN==:0	;JOB NUMBER
DEFSYM	.DFGPP==:1	;JOB P,PN
DEFSYM	.DFGNM==:2	;STR NAME
DEFSYM	.DFGDR==:3	;DIRECTORY
DEFSYM	.DFGST==:4	;STATUS (SAME AS .DFJST)

;GOBSTR ERRORS

DEFSYM	DFGIF%==:3	;ILLEGAL STR
DEFSYM	DFGPP%==:6	;INCORRECT PPN
DEFSYM	DFGNP%==:10	;NOT PRIV.
DEFSYM	DFGLN%==:12	;INCORRECT LENGTH

SUBTTL	DISK UUOS -- SUSET.

DEFSYM	SU.SOT==:1_34.	;OUTPUT
DEFSYM	SU.SMN==:1_33.	;MAINTENANCE CYLINDER
DEFSYM	SU.SCH==:17_23.	;CHANNEL
DEFSYM	SU.SBL==:37,,777777  ;BLOCK NUMBER

;SUSET. ERRORS

DEFSYM	SUSNP%==:-1	;NOT PRIVILEGED
SUBTTL	DISK UUOS -- PATH.

DEFSYM	.PTFCN==:0	;JOB #,,FUNCTION OR ARGUMENT CHANNEL OR DEVICE
		DEFSYM	.PTFRD==:-1	;READ DEFAULT
		DEFSYM	.PTFSD==:-2	;SET DEFAULT PATH
		DEFSYM	.PTFSL==:-3	;SET LIB, NEW, SYS
		DEFSYM	.PTFRL==:-4	;READ LIB, NEW, SYS
DEFSYM	.PTSTR==:0	;ANSWER HAS STR NAME
DEFSYM	.PTSWT==:1	;SWITCHES AND FLAGS
	DEFSYM	PT.SLT==:7_6.	;TYPE OF SEARCH LIST
		DEFSYM	.PTSLJ==:1	;JOB
		DEFSYM	.PTSLA==:2	;ALL
		DEFSYM	.PTSLS==:3	;SYS
	DEFSYM	PT.IPP==:1_5.	;IMPLIED PPN (FORCED)
	DEFSYM	PT.LIB==:1_4.	;/LIB
	DEFSYM	PT.SYS==:1_3.	;/SYS
	DEFSYM	PT.NEW==:1_2.	;/NEW
	DEFSYM	PT.SCN==:3_0.	;SCAN SWITCH
		DEFSYM	.PTSCN==:1	;NO (OFF)
		DEFSYM	.PTSCY==:2	;YES (ON)
	DEFSYM	PT.SNW==:1_1.	;/NEW ON .PTFSL/.PTFRL
	DEFSYM	PT.SSY==:1_0.	;/SYS ON .PTFSL/.PTFRL
DEFSYM	.PTPPN==:2	;PPN (UFD) OF PATH
DEFSYM	.PTMAX==:11	;LAST POSSIBLE 0 AFTER LAST SFD +1
		;(IE, LENGTH OF PATH BLOCK)
SUBTTL	DISK UUOS -- STRUUO

DEFSYM	.FSSRC==:0	;UPDATE THIS SEARCH LIST (SEE .DFJXX)
DEFSYM	.FSDSL==:1	;UPDATE SYSTEM/JOB SEARCH LIST
	DEFSYM	.FSDJN==:1	;JOB# (0=SYS)
	DEFSYM	.FSDPP==:2	;PPN
	DEFSYM	.FSDFL==:3	;FLAGS
		DEFSYM	DF.SRM==:1_0.	;REMOVE FROM S/L COMPLETELY
DEFSYM	.FSDEF==:2	;DEFINE NEW F/S
	DEFSYM	.FSNST==:1	;POINTER TO STR PARAMS
	DEFSYM	.FSNUN==:2	;FIRST POINTER TO UNIT PARAMS
    ;STR PARAM BLOCK
	DEFSYM	.FSSNM==:0	;NAME OF STRUCTURE
	DEFSYM	.FSSNU==:1	;NUMBER OF UNITS
	DEFSYM	.FSSHL==:2	;HIGHEST LOGICAL BLOCK
	DEFSYM	.FSSSZ==:3	;SIZE OF STR
	DEFSYM	.FSSRQ==:4	;RESERVED QUOTA
	DEFSYM	.FSSRF==:5	;RESERVED FREE
	DEFSYM	.FSSTL==:6	;TALLY OF FCFS FREE
	DEFSYM	.FSSOD==:7	;BLOCKS FOR OVERDRAW
	DEFSYM	.FSSMP==:10	;MFD FIRST RETRIEVAL POINTER
	DEFSYM	.FSSML==:11	;-1 IF .FSSMP IS ONLY POINTER
	DEFSYM	.FSSUN==:12	;MFD UNIT
	DEFSYM	.FSSTR==:13	;NUMBER OF RETRIES ON ERROR
	DEFSYM	.FSSBU==:14	;LARGEST BLOCK ON UNIT
	DEFSYM	.FSSBC==:15	;BLOCKS PER SUPER-CLUSTER
	DEFSYM	.FSSSU==:16	;SUPER-CLUSTERS PER UNIT
	DEFSYM	.FSSIG==:17	;(IGNORED)
	DEFSYM	.FSSCC==:20	;BYTE POINTER TO CLUSTER COUNT
	DEFSYM	.FSSCK==:21	;BYTE POINTER TO CHECKSUM
	DEFSYM	.FSSCA==:22	;BYTE POINTER TO CLUSTER ADDRESS
    ;UNIT DATA BLOCK
	DEFSYM	.FSUNM==:0	;UNIT NAME
	DEFSYM	.FSUID==:1	;PACK ID
	DEFSYM	.FSULN==:2	;LOGICAL NAME
	DEFSYM	.FSULU==:3	;NUMBER WITHIN STR
	DEFSYM	.FSUDS==:4	;STATUS BITS
		DEFSYM	FS.UWL==:1_35.	;SOFTWARE WRITE-LOCK
		DEFSYM	FS.USA==:1_34.	;SINGLE ACCESS
	DEFSYM	.FSUGP==:5	;NUMBER BLOCKS TO ALLOCATE
	DEFSYM	.FSUTL==:6	;FREE BLOCK TALLY
	DEFSYM	.FSUBC==:7	;BLOCKS PER CLUSTER
	DEFSYM	.FSUCS==:10	;CLUSTERS PER SAT
	DEFSYM	.FSUWS==:11	;WORDS PER SAT
	DEFSYM	.FSUSC==:12	;SATS IN CORE
	DEFSYM	.FSUSU==:13	;SATS PER UNIT
	DEFSYM	.FSUSP==:14	;POINTER TO SPT TABLE
;(CONT.) OF STRUUO FUNCTIONS

DEFSYM	.FSRDF==:3	;CHANGE F/S STATUS
	DEFSYM	.FSRJN==:1	;JOB NUMBER
	DEFSYM	.FSRPP==:2	;JOB P,PN
	DEFSYM	.FSRNM==:3	;STR NAME
	DEFSYM	.FSRST==:4	;NEW STATUS
		DEFSYM	FS.RWL==:1_35.	;WRITE LOCK ALL USERS
		DEFSYM	FS.RSA==:1_34.	;SINGLE ACCESS
DEFSYM	.FSLOK==:4	;LOCK F/S
DEFSYM	.FSREM==:5	;REMOVE F/S
DEFSYM	.FSULK==:6	;TEST/SET UFD INTERLOCK
DEFSYM	.FSUCL==:7	;CLEAR UFD INTERLOCK
DEFSYM	.FSETS==:10	;SIMULATE ERROR
	DEFSYM	.FSEUN==:1	;UNIT
	DEFSYM	.FSEGT==:2	;NUMBER OF TRANSFERS BEFORE ERROR
	DEFSYM	.FSEDB==:3	;NUMBER OF DATAI'S TO RUIN
	DEFSYM	.FSEDO==:4	;OR TO DATAI
	DEFSYM	.FSEDA==:5	;ANDCAM TO DATAI
	DEFSYM	.FSECB==:6	;NUMBER OF CONI'S TO RUIN
	DEFSYM	.FSECO==:7	;OR TO CONI
	DEFSYM	.FSECA==:10	;ANDCAM TO CONI
DEFSYM	.FSMNW==:11	;MODIFY NOCREATE AND WRITE LOCK
	DEFSYM	.FSMFS==:1	;FILE STRUCTURE
	DEFSYM	.FSMFL==:2	;FLAGS
		DEFSYM	FS.MWL==:1_35.	;WRITE LOCK
		DEFSYM	FS.MNC==:1_34.	;NO CREATE

;STRUUO ERRORS

DEFSYM	FSILF%==:0	;ILLEGAL FUNCTION CODE
DEFSYM	FSSNF%==:1	;STR NOT FOUND
DEFSYM	FSSSA%==:2	;STR IS SINGLE ACCESS
DEFSYM	FSILE%==:3	;ILLEGAL ENTRY IN LIST
DEFSYM	FSTME%==:4	;TOO MANY ENTRIES IN S/L
DEFSYM	FSUNA%==:5	;UNIT NOT AVAILABLE
DEFSYM	FSPPN%==:6	;PPN DOES NOT MATCH
DEFSYM	FSMCN%==:7	;MOUNT COUNT GREATER THAN ONE
DEFSYM	FSNPV%==:10	;NOT PRIVILEGED USER
DEFSYM	FSFSA%==:11	;STRUCTURE ALREADY EXISTS
DEFSYM	FSILL%==:12	;ILLEGAL ARGUMENT LIST LENGTH
DEFSYM	FSUNC%==:13	;UNABLE TO COMPLETE UUO
DEFSYM	FSNFS%==:14	;SYSTEM FULL OF STRS
DEFSYM	FSNCS%==:15	;INSUFFICIENT FREE CORE FOR DATA BLOCKS
DEFSYM	FSUNF%==:16	;ILLEGAL UNIT
DEFSYM	FSRSL%==:17	;STR REPEATED IN S/L
SUBTTL	LOOKUP/ENTER/RENAME

;DEFINE RIB LOCATIONS (IE, INDEX IN EXTENDED LOOKUP/ENTER BLOCK)

DEFSYM	.RBCNT==:0	;COUNT OF ARGS FOLLOWING
	DEFSYM	RB.NSE==:1_17.	;(ENTER ONLY) NON-SUPERSEDING ENTER
DEFSYM	.RBPPN==:1	;DIRECTORY NAME OR POINTER
DEFSYM	.RBNAM==:2	;FILENAME
DEFSYM	.RBEXT==:3	;EXTENSION, ACCESS DATE, ERROR CODE
	DEFSYM	RB.CRX==:7_15.	;EXTENSION OF RB.CRD
	DEFSYM	RB.ACD==:77777	;ACCESS DATE
DEFSYM	.RBPRV==:4	;PRIVILEGE, MODE, CREATION TIME AND DATE
	DEFSYM	RB.PRV==:777_27.	;PRIVILEGE
	DEFSYM	RB.MOD==:17_23.	;MODE
	DEFSYM	RB.CRT==:3777_12.	;CREATION TIME
	DEFSYM	RB.CRD==:7777_0.	;CREATION DATE
DEFSYM	.RBSIZ==:5	;LENGTH
DEFSYM	.RBVER==:6	;VERSION
DEFSYM	.RBSPL==:7	;SPOOLED FILE NAME
DEFSYM	.RBEST==:10	;ESTIMATED LENGTH
DEFSYM	.RBALC==:11	;ALLOCATION
DEFSYM	.RBPOS==:12	;POSITION TO ALLOCATE
DEFSYM	.RBFT1==:13	;DEC NON-PRIV. FUTURE ARG
DEFSYM	.RBNCA==:14	;NON-PRIV. CUSTOMER ARG
DEFSYM	.RBMTA==:15	;TAPE LABEL
DEFSYM	.RBDEV==:16	;LOGICAL UNIT NAME
DEFSYM	.RBSTS==:17	;FILE STATUS BITS
	DEFSYM	RP.LOG==:1_35.	;LOGGED IN
	DEFSYM	RP.UCE==:1_26.	;CHECKSUM ERROR
	DEFSYM	RP.UWE==:1_25.	;WRITE ERROR
	DEFSYM	RP.URE==:1_24.	;READ ERROR
	DEFSYM	RP.UER==:7_24.	;ALL UFD ERRORS
	DEFSYM	RP.DIR==:1_17.	;DIRECTORY
	DEFSYM	RP.NDL==:1_16.	;NO DELETES
	DEFSYM	RP.NFS==:1_14.	;DON'T FAILSAFE
	DEFSYM	RP.ABC==:1_13.	;ALWAYS BAD CHECKSUM
	DEFSYM	RP.ABU==:1_11.	;ALWAYS BACK UP
	DEFSYM	RP.NQC==:1_10.	;NON-QUOTA CHECKED FILE
	DEFSYM	RP.CMP==:1_9.	;UFD COMPRESSING
	DEFSYM	RP.FCE==:1_8.	;CHECKSUM ERROR
	DEFSYM	RP.FWE==:1_7.	;WRITE ERROR
	DEFSYM	RP.FRE==:1_6.	;READ ERROR
	DEFSYM	RP.BFA==:1_3.	;BAD BY FAILSA RESTORE
	DEFSYM	RP.CRH==:1_2.	;CLOSED AFTER CRASH
	DEFSYM	RP.BDA==:1_0.	;BAD BY DAMAGE ASSESSMENT
	DEFSYM	RP.ERR==:715	;ALL FILE ERRORS
DEFSYM	.RBELB==:20	;ERROR LOGICAL BLOCK
DEFSYM	.RBEUN==:21	;ERROR UNIT AND LENGTH
DEFSYM	.RBQTF==:22	;FCFS LOGGED-IN QUOTA
DEFSYM	.RBQTO==:23	;LOGGED-OUT QUOTA
DEFSYM	.RBQTR==:24	;RESERVED QUOTA
DEFSYM	.RBUSD==:25	;BLOCK IN USE
DEFSYM	.RBAUT==:26	;AUTHOR
DEFSYM	.RBNXT==:27	;CONTINUED STR
DEFSYM	.RBPRD==:30	;PREDECESSOR STR
DEFSYM	.RBPCA==:31	;PRIV. CUSTOMER ARG
DEFSYM	.RBUFD==:32	;POINTER BACK TO UFD
DEFSYM	.RBFLR==:33	;RELATIVE BLOCK IN FILE COVERED BY THIS RIB
DEFSYM	.RBXRA==:34	;POINTER TO NEXT RIB IN CHAIN
DEFSYM	.RBTIM==:35	;CREATION DATE,,TIME IN INTERNAL SYSTEM FORMAT
;LOOKUP/ENTER/RENAME/GETSEG/RUN ERROR CODES

DEFSYM	ERFNF%==:0	;FILE NOT FOUND
DEFSYM	ERIPP%==:1	;INCORRECT PPN
DEFSYM	ERPRT%==:2	;PROTECTION FAILURE
DEFSYM	ERFBM%==:3	;FILE BEING MODIFIED
DEFSYM	ERAEF%==:4	;ALREADY EXISTING FILE NAME
DEFSYM	ERISU%==:5	;ILLEGAL SEQUENCE OF UUOS
DEFSYM	ERTRN%==:6	;TRANSMISSION ERROR
DEFSYM	ERNSF%==:7	;NOT A SAVE FILE
DEFSYM	ERNEC%==:10	;NOT ENOUGH CORE
DEFSYM	ERDNA%==:11	;DEVICE NOT AVAILABLE
DEFSYM	ERNSD%==:12	;NO SUCH DEVICE
DEFSYM	ERILU%==:13	;ILLEGAL UUO
DEFSYM	ERNRM%==:14	;NO ROOM
DEFSYM	ERWLK%==:15	;WRITE-LOCKED
DEFSYM	ERNET%==:16	;NOT ENOUGH TABLE SPACE
DEFSYM	ERPOA%==:17	;PATIAL ALLOCATION
DEFSYM	ERBNF%==:20	;BLOCK NOT FREE
DEFSYM	ERCSD%==:21	;CAN'T SUPERSEDE A DIRECTORY
DEFSYM	ERDNE%==:22	;CAN'T DELETE NON-EMPTY DIRECTORY
DEFSYM	ERSNF%==:23	;SFD NOT FOUND
DEFSYM	ERSLE%==:24	;SEARCH LIST EMPTY
DEFSYM	ERLVL%==:25	;SFD NEST LEVEL TOO DEEP
DEFSYM	ERNCE%==:26	;NO-CREATE FOR ALL S/L
DEFSYM	ERSNS%==:27	;SEGMENT NOT ON SWAP SPACE
DEFSYM	ERFCU%==:30	;CAN'T UPDATE FILE
DEFSYM	ERLOH%==:31	;LOW SEG OVERLAPS HI SEG (GETSEG)
DEFSYM	ERNLI%==:32	;NOT LOGGED IN (RUN)

;FILE PROTECTION CODES

DEFSYM	.PTCPR==:0	;CHANGE PROTECTION
DEFSYM	.PTREN==:1	;RENAME
DEFSYM	.PTWRI==:2	;WRITE
DEFSYM	.PTUPD==:3	;UPDATE
DEFSYM	.PTAPP==:4	;APPEND
DEFSYM	.PTRED==:5	;READ
DEFSYM	.PTEXO==:6	;EXECUTE
DEFSYM	.PTNON==:7	;NO-ACCESS

;DIRECTORY PROTECTION CODES

DEFSYM	PT.LOK==:4	;ALLOW LOOKUPS
DEFSYM	PT.CRE==:2	;ALLOW CREATES
DEFSYM	PT.SRC==:1	;SEARCH DIRECTORY

IFN $$TEMP, EXPUNGE DEFSYM