Google
 

Trailing-Edge - PDP-10 Archives - BB-PBDEB-BB_1990 - 10,7/uuosym/uuosym.mac
There are 74 other files named uuosym.mac in the archive. Click here to see a list.
	SUBTTL	UUO PARAMETERS /DAL/BAH		17-APR-90  V17(1146)

	.XCREF
IFDEF %..C,<IFE %..C,<	.CREF
			TAPE	>>

IFNDEF %..C,<
	UNIVERSAL UUOSYM -- UUO SYMBOLS FOR USER PROGRAMS
	SEARCH	MACTEN
%%MACT==:%%MACT		;SHOW VERSION
>

;VERSION INFORMATION
	UUOWHO==0		;LAST MODIFIER
	UUOVER==17		;MAJOR VERSION
	UUOMIN==0		;MINOR VERSION
	UUOEDT==1146		;EDIT LEVEL


;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; 1971,1979,1980,1981,1982,1984,1986,1988,1990.
;ALL RIGHTS RESERVED.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.


;THIS IS THE DEFINITION FILE OF ALL PUBLISHED  MONITOR
;UUO PARAMETERS WHICH DO NOT REQUIRE THE JACCT PRIVILEGE. IT
;EXCLUDES VARIOUS PARAMETERS WHICH CAN BE "SPYED" IF THE USER
;HAS SPY PRIVILEGE SINCE THOSE LOCATIONS CHANGE WITH MONITOR
;DEVELOPMENT. THESE SYMBOLS ARE ALL DEFINED IN THE
;MONITOR CALLS MANUAL.

;THIS DERIVES FROM THE OLD C.MAC FILE. IT IS ONLY A UNIVERSAL


	.CREF
	SALL

DEFINE .BCOPY,<
	XLIST
	.ORG 0
	LIST
>
DEFINE COPYRIGHT,<ASCIZ \
COPYRIGHT >
DEFINE .ECOPY,<
	XLIST
	.....X=.
	.ORG
	.ORG 0
	REPEAT .....X,<EXP 0>
	PURGE .....X
	.ORG
	LIST
>

.BCOPY
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1971,1990.
ALL RIGHTS RESERVED.
\
.ECOPY
;
;
;               TABLE OF CONTENTS FOR UUOSYM
;
;
;                        SECTION                                   PAGE
;    1. TABLE OF CONTENTS.........................................   2
;    2. REVISION HISTORY..........................................   3
;    3. NAMING CONVENTIONS........................................   6
;    4. UPDATE AND CHECKOUT INSTRUCTIONS..........................   7
;    5. ALL JOBDAT SYMBOLS........................................   8
;    6. GTMSG. MACRO..............................................   9
;    7. OPDEFS
;         7.1   BASIC UUOS........................................  10
;         7.2   MTAPE FUNCTIONS...................................  11
;         7.3   TTCALL FUNCTIONS..................................  11
;         7.4   CALLI FUNCTIONS...................................  12
;    8. GETTAB CONSTITUENTS.......................................  16
;    9. MISC. NON-I/O
;         9.1   TMPCOR............................................  45
;         9.2   LOCK..............................................  45
;         9.3   RTTRP.............................................  45
;         9.4   JOBSTS............................................  46
;         9.5   HIBER.............................................  46
;         9.6   APRENB............................................  47
;         9.7   UTRP..............................................  47
;   10. MISC. NON I/O
;        10.1   GETSEG/MERGE./RUN/SAVE. UUOS......................  48
;        10.2   SAVE. UUO.........................................  48
;        10.3   ENTVC. UUO........................................  48
;        10.4   .EXE FILE FORMAT..................................  48
;   11. MISC. NON-I/O
;        11.1   SAVE/GET LOCATIONS (OBSOLETE).....................  49
;        11.2   ALLOC.(OBSOLETE)..................................  50
;        11.3   ERRPT.(OBSOLETE)..................................  50
;        11.4   SEBLK.............................................  50
;        11.5   POKE..............................................  50
;        11.6   SETUUO............................................  51
;        11.7   QUEUE.............................................  53
;        11.8   SCHED.............................................  59
;        11.9   ATTACH............................................  65
;        11.10  ACCT..............................................  65
;        11.11  ACCLG.............................................  65
;        11.12  JOBPEK............................................  66
;        11.13  RECON.............................................  67
;        11.14  RUNTIM............................................  68
;        11.15  CMAND.............................................  68
;        11.16  SCS UUO...........................................  69
;        11.17  CONTEXT UUO.......................................  70
;   12. CTXUUO - CONTEXT UUO......................................  70
;   13. - LLMOP. UUO..............................................  72
;   14. LATOP. - LAT Host management..............................  73
;        14.18  KNIBT.............................................  74
;        14.19  CHTRN.............................................  75
;        14.20  ETHNT.............................................  76
;   15. NETOP. UUO................................................  84
;   16. UNIVERSAL DEVICE INDEX....................................  85
;   17. .JBINT INTERCEPT BLOCK....................................  85
;   18. PSI SOFTWARE INTERRUPT SYSTEM.............................  86
;   19. IPCF INTERPROCESS COMMUNICATION FACILITY..................  90
;   20. IPCF
;        20.1   IPCFM. UUO........................................  91
;   21. PAGE AND VM VIRTUAL MEMORY FACILITY.......................  95
;   22. DAEMON CALLS..............................................  98
;   23. PERFORMANCE ANALYSIS
;        23.1   METER MONITOR CALL................................ 103
;        23.2   PERF. MONITOR CALL................................ 105
;        23.3   SNOOP. MONITOR CALL............................... 107
;   24. ENQUEUE AND DEQUEUE SYMBOLS
;        24.1   GENERAL FORMAT OF ARG BLOCK....................... 108
;        24.2   FUNCTION CODES.................................... 109
;        24.3   FORMAT OF STATUS BLOCKS........................... 110
;        24.4   FORMAT OF DUMP.................................... 111
;        24.5   ERROR CODES....................................... 113
;   25. FILE DAEMON............................................... 114
;   26. MISC. I/O
;        26.1   DEVCHR............................................ 115
;        26.2   DEVTYP............................................ 116
;        26.3   MTCHR............................................. 117
;        26.4   TAPOP............................................. 118
;        26.5   WHERE............................................. 124
;        26.6   DVPHY............................................. 124
;        26.7   CAL11............................................. 125
;        26.8   DTE............................................... 127
;        26.9   DEVOP............................................. 129
;        26.10  GETLCH............................................ 132
;        26.11  TRMOP............................................. 133
;        26.12  GETSTS AND SETSTS................................. 138
;        26.13  OPEN AND CLOSE.................................... 139
;        26.14  FILOP............................................. 140
;        26.15  BUFFER HEADER AND BUFFER'S CONTROL BLOCK FORMATS.. 142
;        26.16  MVHDR............................................. 142
;        26.17  CNECT.,SENSE., CLRST.............................. 143
;        26.18  DEVLNM............................................ 144
;        26.19  DEVSIZ............................................ 144
;        26.20  MTAID............................................. 144
;        26.21  SPPRM............................................. 145
;        26.22  NODE.............................................. 146
;        26.23  TSK............................................... 147
;        26.24  KDP............................................... 149
;        26.25  GTNTN.,GTXTN...................................... 150
;        26.26  DIAG.............................................. 150
;   27. DECNET UUOS
;        27.1   NSP............................................... 151
;        27.2   DECnet Architectural Object types................. 154
;        27.3   Error codes for NSP............................... 155
;        27.4   NTMAN. UUO........................................ 156
;        27.5   DNET.............................................. 158
;   28. DISK UUOS
;        28.1   DSKCHR............................................ 160
;        28.2   CHKACC............................................ 163
;        28.3   DISK.............................................. 164
;        28.4   JOBSTR............................................ 166
;        28.5   GOBSTR............................................ 166
;        28.6   SUSET............................................. 166
;        28.7   PATH.............................................. 167
;        28.8   STRUUO............................................ 169
;   29. LOOKUP/ENTER/RENAME....................................... 172
;   30. EXTENDED I/O ERRORS....................................... 178
;   31. EXEC DATA VECTOR.......................................... 179
;   32. EXTENDED SYMBOL TABLE FORMAT.............................. 180
	SUBTTL	REVISION HISTORY

;%3(67) MAY, 1972

;70	CORRECT MOVX TO INCLUDE <>
;71	ADD MACRO STORE TO GENERATE BLT
;72	MAKE USEABLE AS A UNIVERSAL FILE
;73	CORRECT MOVX, TXYY TO HANDLE RELOCATABLE MASKS
;74	HAVE MOVX GENERATE HRLOI, HRROI
;75	HAVE TXY GENERATE ORCMI, ANDI, EQVI
;76	ADD CAXYY, ADDX, ETC.
;77	ADD PJRSTF
;100	UPDATE TO 50434 (505) BY ADDING ADDITIONAL
;	SYMBOLS; CHANGE %LDSXS TO %LDNEW, F%ABLB TO F%APLB
;101	ENHANCE ADDX, ETC., TO NOTICE SMALL NEGATIVES
;102	ADD PATH AREA
;103	ADD METER. BITS AND PIECES
;104	ADD ALL OLD CALLI MNEMONICS FOR DDT.SAV
;105	ADD SUBTITLES AND INDEX
;106	UPDATE RESPONSE SUBTABLE
;107	CORRECT BUGS IN UNIVERSAL SETUP
;110	ADD OPDEF FOR PORTAL
;%4(110) JULY, 1972

;111	CHANGE GL.NEC TO GL.LCP (SPR 10-7553)
;112	CHANGE SY.ERR AND SY.CCO TO %SYERR AND %SYCCO.
;113	CORRECT BUG IN STORE MACRO TO ALLOW MORE GENERAL USE
;114	ADD 5.06 DEFINITIONS
;115	COMPLETE .RBSTS BITS.
;%5(115) NOV 72

;116	SUPPORT DATE75 BY CHANGING RB.ACD AND ADDING RB.CRX
;117	CLEAN UP PAGE 1 LISTING
;120	ADD .STDFL
;121	ADD LKNEM%
;122	(10-9627) ALLOW FLAG=0 IN TX?? MACROS
;123	(10-9725) CHANGE CAXNE TO CAXN
;124	ADD OPEN BLOCK
;125	ADD MACROS MASK. RGHBT. LFTBT. FILIN. ALIGN. TXND. TXNI. JUMPI. JUMPN.
;126	ADD MACRO BTSWP.
;127	ADD INFO-REDEF.
;130	ADD SN%LOK, CORRECT .BFSTS
;131	(10-11609) FIX STORE MACRO FOR RELOC. 0
;%6(131) DEC 73
;132	UPDATE TO 50644 (6.01/5.07) MCO 4072
;133	CORRECT BUG IN %FT??? DEFINITIONS
;134	IF UNIVERSAL, MAKE .JB41, ETC., BE EXTERNAL
;135	ADD ALL 6.01 JOBDAT SYMBOLS
;136	ADD .SGDDT
;137	ADD GTMSG.
;140	UPDATE TO 50645
;141	UPDATE TO 50646
;142	UPDATE TO 50650
;143	CORRECT MISSING .CREF IN TX? MACROS
;144	UPDATE TO 50657
;145	RESERVE Q SYMBOLS TO QPRM.UNV; %DIGITS AND U..??? TO E.UNV
;146	UPDATE TO 50660
;147	ADD LOCK UUO BITS, DEVLNM+DEVSIZ+DISK. ERRORS
;150	UPDATE TO 50662
;151	RESERVE SYMBOLS OF THE FORM ?.???? TO OTHER FILES
;152	RESERVE FS.M??, FX.???, TS.???, AND .FX??? TO SCNMAC.UNV
;153	ADD ST.W??, AND "ALL" BITS SETS: JW.WAL, ST.WAL, JS.PAL, RB.ERR
;154	ADD .SG41
;155	ADD BOXES FOR FUNNY FORMATS; RE-ORDER CL.??? FOR CONSISTENCY
;156	CORRECT DEFINITIONS OF .BFSTS, .BFHDR, AND .BFCNT
;157	OBSOLETE IO.FCS. ADD IO.LEM
;160	ADD .INFIN AND .MINFI
;161	UPDATE TO 50664
;162	UPDATE TO 50666
;163	DEFINE INSVL.
;%7(163) MAY 74

;201	SPLIT INTO MACTEN.MAC AND UUOSYM.MAC
;202	ADD REMAINING 5.07/6.01 SYMBOLS
;203	ADD WORDS IN .FSDEF PRIVILEGED FUNCTION OF STRUUO
;204	UPDATE TO 5.07A/6.01A
;205	CHANGE WAY UUOS ARE DEFINED
;206	CORRECT BUG IN REFERENCE TO VRSN.
;%10(206) MARCH 1975

;207	FIX UP SUBTTL STATEMENTS SO TOC OUTPUT CAN BE USED FOR
;	 TABLE OF CONTENTS.
;210	DELETE SYMBOLS FOR CHANNEL DATA BLOCK SINCE CDB IS ONLY
;	AVAIL. VIA SPY UUO
;211-225 ADD 6.02 SYMBOLS TO MCO 5478
;300	BECOME VERSION 12.
;301	UPDATE SYMBOLS TO 6.03 LOAD 241.
;302	UPDATE SYMBOLS WHEN DAEMON WAS UUOSYMIZED.
;303-306 UPDATE SYMBOLS TO 6.03 LOAD 255
;307	ADD DTE. MONITOR CALL SYMBOLS
;310-313 UPDATE SYMBOLS TO 6.03 LOAD 264
;314	ADD DEVOP. SYMBOLS
;315-340 UPDATE SYMBOLS TO 6.03 LOAD 277
;%12(340) MARCH 77 6.03

;%13(367) FEBRUARY 78  6.03 SCHEDULER LIR
;341-367 UPDATE SYMBOLS TO 6.03 LOAD 352 FOR SCHEDULER LIR RELEASE

;%13A(406)  SEPTEMBER 78 603A
;370-406 UPDATE SYMBOLS TO 6.03 LOAD 3AZ FOR 603A RELEASE

;407-440  UPDATE SYMBOLS TO 7.00 LOAD 345 FOR 7.00 RELEASE
;441-444  UPDATE SYMBOLS TO LOAD 60353 FOR 7.00 FIELD TEST #3
;445-447  UPDATE SYMBOLS TO LOAD 60360 FOR 7.00 FIELD TEST #4
;450-454  UPDATE SYMBOLS TO LOAD 60366 FOR 7.00 FIELD TEST #5
;455-457  UPDATE SYMBOLS TO LOAD 60367 FOR 7.00 FIELD TEST AND RELEASE
;%14(457)  AUGUST 79 7.00

;460-477 UPDATE SYMBOLS TO LOAD 70033 FOR 7.01 FIELD TEST #1.
;500-507 UPDATE SYMBOLS TO LOAD 70043 FOR 7.01 FIELD TEST #2.
;510-512 UPDATE SYMBOLS TO LOAD 70047 FOR 1091 MOS LIR
;513-515 UPDATE SYMBOLS TO LOAD 70053  FOR 7.01 FIELD TEST #3.
;516-520 UPDATE SYMBOLS TO LOAD 70063 FOR 7.01 FIELD TEST AND RELEASE
;%15(521) JULY 80 7.01

;522-542 UPDATE SYMBOLS FOR GALAXY 4.1 FIELD TEST AND RELEASE.
;543	UPDATE SYMBOLS FOR GALAXY 4.1 FIELD TEST #6.
;544	SPR 10-31389/MCO 9855  CORRECT MTCHR. AND TAPOP. TAPE STATISTICS
;	COMMENTS. (TAPE #7.)
;545	FSISN% is not defined.
;546	Define RB.NLB for BACKUP edit 423.
;
;%15A(547) May 1982 GALAXY 4.1 (Was never field image; was merged with 7.01A)
;
;547-551 Update symbols for GALAXY 4.1 field test _#10 and 7.01A _#1.
;552	Update symbols for GALAXY 4.1 field test _#11 and 7.01A _#2.
;
;%15B(552) July 1982 GALAXY 4.1 and 7.01A
;
;743	Update symbols for 7.02 field test _#1.
;744-753 Update symbols for 7.02 field test _#2.
;754-772 Update symbols for 7.02 field test #3.  Also update table
;	of contents and do pagination.
;%16(773) November 1983 7.02
;774-1021 Update symbols for 7.03 alpha test #1.
;1022-1033 Update symbols for 7.03 alpha test #2.
;1034-1035 Update symbols for 7.03 alpha test #3.
;1036-1047 Update symbols for 7.03 field test #1.
;1050-1056 Update symbols for 7.03 field test #2.
;1057-1060 Update symbols for 7.03 clock tape.
;%17(1060) January 1986 7.03
	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--

;CALL FOR FEATURE TEST TESTING IS
;	MOVE T1,[%FTSSS]	;%FTSSS==INDEX,,TABLE
;	GETTAB T1,
;GETTAB RETURNS IN
;	LH=RELATIVE BIT F%AAAA IS ON IF FEATURE DEFINED
;	RH=BIT F%AAAA IS ON IF FEATURE TURNED ON


;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???
	SUBTTL	ALL JOBDAT SYMBOLS

	EXTERN	.JBAPR,.JBBLT,.JBCHN,.JBCNI,.JBCOR
	EXTERN	.JBDA,.JBDDT,.JBERR,.JBFF,.JBH41,.JBHCR,.JBHDA,.JBHGA
	EXTERN	.JBHGH,.JBHNM,.JBHRL,.JBHRN,.JBHSA,.JBHSM,.JBHVR,.JBINT,.JBOPC
	EXTERN	.JBOVL,.JBPFH,.JBPFI,.JBREL,.JBSA,.JBSYM,.JBTPC,.JBUSY,.JBUUO
	EXTERN	.JB41,.JBCST,.JBOPS,.JBREN,.JBVER,.JBEDV,.JBBPT
	SUBTTL	GTMSG. MACRO

;MACRO TO GET ERROR MESSAGE CODE AND CLEAN IT UP

;CALL:	GTMSG.	AC
;	WHERE AC WILL END UP WITH IT IN BYTE JW.WMS
;	DEFAULT IS /MESSAGE:(PREFIX,FIRST)
;	IF /MESSAGE:CONTINUATION, THEN /MESSAGE:FIRST
;	  IS ASSUMED

DEFINE	GTMSG.	(AC),<
	.XCREF			;;SUPPRESS REDUNDANT CREF
	HRROI	AC,.GTWCH	;;IT'S IN THE WATCH TABLE
	.CREF
	GETTAB	AC,		;;GET FROM MONITOR
	.XCREF
	  MOVEI	AC,0		;;DEFAULT TO 0
	TXNN	AC,JW.WMS	;;IF 0,
	TXO	AC,.JWWPO_<ALIGN. (JW.WMS)>  ;; DEFAULT TO PREFIX,FIRST
	TXNE	AC,JW.WCN	;;IF /MESSAGE:CONTINUATION
	TXO	AC,JW.WFL	;; DEFAULT TO /MESSAGE:FIRST
	.CREF
>
	SUBTTL	OPDEFS -- BASIC UUOS

;OPDEF THE UUOS SO THEY APPEAR IN THE OPCODE LISTING

	OPDEF	HALT	[JRST 4,]
			;40B8 IS OBSOLETE (CALL)
	OPDEF	INIT	[41B8]
			;42-46B8 ARE RESERVED TO CUSTOMERS
	OPDEF	CALLI	[47B8]	;(PURGED LATER)
	OPDEF	OPEN	[50B8]
	OPDEF	TTCALL	[51B8]	;(PURGED LATER)
			;52-54B8 ARE RESERVED TO DEC
	OPDEF	RENAME	[55B8]
	OPDEF	IN	[56B8]
	OPDEF	OUT	[57B8]
	OPDEF	SETSTS	[60B8]
	OPDEF	STATO	[61B8]
	OPDEF	GETSTS	[62B8]
	OPDEF	STATZ	[63B8]
	OPDEF	INBUF	[64B8]
	OPDEF	OUTBUF	[65B8]
	OPDEF	INPUT	[66B8]
	OPDEF	OUTPUT	[67B8]
	OPDEF	CLOSE	[70B8]
	OPDEF	RELEAS	[71B8]
	OPDEF	MTAPE	[72B8]	;(PURGED LATER)
	OPDEF	UGETF	[73B8]
	OPDEF	USETI	[74B8]
	OPDEF	USETO	[75B8]
	OPDEF	LOOKUP	[76B8]
	OPDEF	ENTER	[77B8]
	OPDEF	UJEN	[100B8]
	SUBTTL	OPDEFS -- MTAPE FUNCTIONS

	OPDEF	MTWAT.	[MTAPE 0]	;WAIT FOR POSITIONING
	OPDEF	MTREW.	[MTAPE 1]	;REWIND
	OPDEF	MTEOF.	[MTAPE 3]	;WRITE END OF FILE
	OPDEF	MTSKR.	[MTAPE 6]	;SKIP RECORD
	OPDEF	MTBSR.	[MTAPE 7]	;BACKSPACE RECORD
	OPDEF	MTEOT.	[MTAPE 10]	;SKIP TO END OF TAPE
	OPDEF	MTUNL.	[MTAPE 11]	;REWIND AND UNLOAD
	OPDEF	MTBLK.	[MTAPE 13]	;BLANK TAPE
	OPDEF	MTSKF.	[MTAPE 16]	;SKIP FILE
	OPDEF	MTBSF.	[MTAPE 17]	;BACKSPACE FILE
	OPDEF	MTDEC.	[MTAPE 100]	;DEC 9-CHANNEL
	OPDEF	MTIND.	[MTAPE 101]	;INDUSTRY STANDARD 9-CHANNEL
	OPDEF	MTLTH.	[MTAPE 200]	;LOW THRESHOLD


	SUBTTL	OPDEFS -- TTCALL FUNCTIONS

	OPDEF	INCHRW	[TTCALL 0,]	;INPUT CHAR AND WAIT
	OPDEF	OUTCHR	[TTCALL 1,]	;OUTPUT CHAR
	OPDEF	INCHRS	[TTCALL 2,]	;INPUT CHAR AND SKIP
	OPDEF	OUTSTR	[TTCALL 3,]	;OUTPUT STRING
	OPDEF	INCHWL	[TTCALL 4,]	;INPUT CHAR WAIT, LINE
	OPDEF	INCHSL	[TTCALL 5,]	;INPUT CHAR SKIP, LINE
	OPDEF	GETLCH	[TTCALL 6,]	;GET LINE CHARS
	OPDEF	SETLCH	[TTCALL 7,]	;SET LINE CHARS
	OPDEF	RESCAN	[TTCALL 10,]	;RESET INPUT LINE
	OPDEF	CLRBFI	[TTCALL 11,]	;CLEAR INPUT BUFFER
	OPDEF	CLRBFO	[TTCALL 12,]	;CLEAR OUTPUT BUFFER
	OPDEF	SKPINC	[TTCALL 13,]	;SKIP IF CHAR IN INPUT
	OPDEF	SKPINL	[TTCALL 14,]	;SKIP IF LINE IN INPUT
	OPDEF	IONEOU	[TTCALL 15,]	;OUTPUT IMAGE CHAR
	SUBTTL	OPDEFS -- CALLI FUNCTIONS

	OPDEF	LIGHTS	[CALLI -1]	;DISPLAY IN LIGHTS
	OPDEF	RESET	[CALLI 0]	;RESET PROGRAM
	OPDEF	DDTIN	[CALLI 1]	;DDT MODE CONSOLE INPUT
	OPDEF	SETDDT	[CALLI 2]	;SET .JBDDT
	OPDEF	DDTOUT	[CALLI 3]	;DDT MODE CONSOLE OUTPUT
	OPDEF	DEVCHR	[CALLI 4]	;GET DEVICE CHARACTERISTICS
	OPDEF	DDTGT	[CALLI 5]	;(HISTORICAL)
	OPDEF	GETCHR	[CALLI 6]	;SAME AS 4
	OPDEF	DDTRL	[CALLI 7]	;(HISTORICAL)
	OPDEF	WAIT	[CALLI 10]	;WAIT FOR DEVICE INACTIVE
	OPDEF	CORE	[CALLI 11]	;ALLOCATE CORE
	OPDEF	EXIT	[CALLI 12]	;STOP JOB
	OPDEF	MONRT.	[CALLI 1,12]	;MONITOR RETURN
	OPDEF	UTPCLR	[CALLI 13]	;CLEAR DECTAPE DIRECTORY
	OPDEF	DATE	[CALLI 14]	;GET DATE
	OPDEF	LOGIN	[CALLI 15]	;LOGIN
	OPDEF	APRENB	[CALLI 16]	;ENABLE TRAPS
	OPDEF	LOGOUT	[CALLI 17]	;LOGOUT OR EXIT
	OPDEF	SWITCH	[CALLI 20]	;READ CONSOLE SWITCHES
	OPDEF	REASSI	[CALLI 21]	;REASSIGN DEVICES
	OPDEF	TIMER	[CALLI 22]	;READ TIME OF DAY IN TICKS
	OPDEF	MSTIME	[CALLI 23]	;READ TIME OF DAY IN MSEC.
	OPDEF	GETPPN	[CALLI 24]	;RETURN PPN OF THIS JOB
	OPDEF	TRPSET	[CALLI 25]	;ENABLE I/O MODE
	OPDEF	TRPJEN	[CALLI 26]	;(ILLEGAL)
	OPDEF	RUNTIM	[CALLI 27]	;RETURN MSEC TIME THIS JOB
	OPDEF	PJOB	[CALLI 30]	;RETURN JOB NUMBER
	OPDEF	SLEEP	[CALLI 31]	;SLEEP
	OPDEF	SETPOV	[CALLI 32]	;(HISTORICAL)
	OPDEF	PEEK	[CALLI 33]	;READ ABSOL. CORE ADDRESS
	OPDEF	GETLIN	[CALLI 34]	;GET NAME OF TERMINAL
	OPDEF	RUN	[CALLI 35]	;RUN PROGRAM
	OPDEF	SETUWP	[CALLI 36]	;DIDDLE USER WRITE PROTECT
	OPDEF	REMAP	[CALLI 37]	;REMAP LOW TO HIGH SEG
	OPDEF	GETSEG	[CALLI 40]	;GET NEW HIGH SEG
	OPDEF	GETTAB	[CALLI 41]	;READ MONITOR TABLE
	OPDEF	SPY	[CALLI 42]	;SPY ON MONITOR
	OPDEF	SETNAM	[CALLI 43]	;CHANGE NAME OF PROGRAM
	OPDEF	TMPCOR	[CALLI 44]	;ACCESS TMPCOR
	OPDEF	DSKCHR	[CALLI 45]	;RETURN DISK CHARACTERISTICS
	OPDEF	SYSSTR	[CALLI 46]	;RETURN ALL S/L
	OPDEF	JOBSTR	[CALLI 47]	;RETURN JOB S/L
	OPDEF	STRUUO	[CALLI 50]	;DIDDLE STRS
	OPDEF	SYSPHY	[CALLI 51]	;RETURN ALL DISK UNITS
	OPDEF	FRECHN	[CALLI 52]	;(FUTURE)
	OPDEF	DEVTYP	[CALLI 53]	;RETURN DEVICE PROPERTIES
	OPDEF	DEVSTS	[CALLI 54]	;RETURN LAST CONI
	OPDEF	DEVPPN	[CALLI 55]	;RETURN PPN OF ERSATZ DEVICE
;OPDEFS -- CALLI FUNCTIONS (CONTINUED)

	OPDEF	SEEK	[CALLI 56]	;SEEK DISK (OBSOLETE)
	OPDEF	RTTRP	[CALLI 57]	;CONNECT RT DEVICE
	OPDEF	LOCK	[CALLI 60]	;LOCK IN CORE
	OPDEF	JOBSTS	[CALLI 61]	;RETURN JOB STATUS
	OPDEF	LOCATE	[CALLI 62]	;CHANGE LOGICAL STATION
	OPDEF	WHERE	[CALLI 63]	;RETURN PHYSICAL STATION
	OPDEF	DEVNAM	[CALLI 64]	;RETURN PHYSICAL NAME
	OPDEF	CTLJOB	[CALLI 65]	;RETURN CONTROLLING JOB
	OPDEF	GOBSTR	[CALLI 66]	;RETURN NEXT JOB S/L
	OPDEF	ACTIVAT	[CALLI 67]	;(FUTURE)
	OPDEF	DEACTI	[CALLI 70]	;(FUTURE)
	OPDEF	HPQ	[CALLI 71]	;SET HPQ RUN
	OPDEF	HIBER	[CALLI 72]	;SLEEP ON EVENT
	OPDEF	WAKE	[CALLI 73]	;WAKE SOME JOB
	OPDEF	CHGPPN	[CALLI 74]	;CHANGE PPN
	OPDEF	SETUUO	[CALLI 75]	;GENERAL SET SYS PARAMS
	OPDEF	DEVGEN	[CALLI 76]	;(FUTURE)
	OPDEF	OTHUSR	[CALLI 77]	;CHECK FOR ANOTHER USER
	OPDEF	CHKACC	[CALLI 100]	;VALIDATE FILE ACCESS
	OPDEF	DEVSIZ	[CALLI 101]	;GET BUFFER SIZES
	OPDEF	DAEMON	[CALLI 102]	;REQUEST DAEMON FUNCTION
	OPDEF	JOBPEK	[CALLI 103]	;READ/WRITE ANOTHER JOB
	OPDEF	ATTACH	[CALLI 104]	;ATTACH TTY/JOB
	OPDEF	DAEFIN	[CALLI 105]	;DAEMON INDICATES DONE
	OPDEF	FRCUUO	[CALLI 106]	;FORCE COMMAND ON JOB
	OPDEF	DEVLNM	[CALLI 107]	;SET LOGICAL NAME
	OPDEF	PATH.	[CALLI 110]	;DEAL WITH DIRECTORY PATHS
	OPDEF	METER.	[CALLI 111]	;PERFORMANCE METERING
	OPDEF	MTCHR.	[CALLI 112]	;GET MAG TAPE CHARACTERISTICS
	OPDEF	JBSET.	[CALLI 113]	;SETUUO FOR ARBITRARY JOB
	OPDEF	POKE.	[CALLI 114]	;CHANGE MONITOR
	OPDEF	TRMNO.	[CALLI 115]	;JOB'S TERMINAL NUMBER
	OPDEF	TRMOP.	[CALLI 116]	;TERMINAL OPERATION
	OPDEF	RESDV.	[CALLI 117]	;RESET CHANNEL
	OPDEF	UNLOK.	[CALLI 120]	;UNLOCK A LOCKED JOB
	OPDEF	DISK.	[CALLI 121]	;MISC. DISK FUNCTIONS
	OPDEF	DVRST.	[CALLI 122]	;RESTRICT DEVICE TO OPER
	OPDEF	DVURS.	[CALLI 123]	;UNRESTRICT DEVICE
	OPDEF	XTTSK.	[CALLI 124]	;DA28C FUNCTIONS
	OPDEF	CAL11.	[CALLI 125]	;DL10 MULTI-FUNCTION
	OPDEF	MTAID.	[CALLI 126]	;SET MAG TAPE ID
	OPDEF	IONDX.	[CALLI 127]	;RETURN UNIVERSAL DEVICE INDEX
	OPDEF	CNECT.	[CALLI 130]	;CONNECT TO MPX
	OPDEF	MVHDR.	[CALLI 131]	;MOVE BUFFER HEADER
	OPDEF	ERLST.	[CALLI 132]	;ERROR LIST
	OPDEF	SENSE.	[CALLI 133]	;SENSE
	OPDEF	CLRST.	[CALLI 134]	;CLEAR STATUS
;OPDEFS -- CALLI FUNCTIONS (CONTINUED)

	OPDEF	PIINI.	[CALLI 135]	;INITIALIZE SOFT. PI SYS
	OPDEF	PISYS.	[CALLI 136]	;MANIPULATE SOFT. PI SYS
	OPDEF	DEBRK.	[CALLI 137]	;DISMISS SOFT. PI INTER.
	OPDEF	PISAV.	[CALLI 140]	;SAVE SOFT. PI SYS
	OPDEF	PIRST.	[CALLI 141]	;RESTORE SOFT. PI SYS
	OPDEF	IPCFR.	[CALLI 142]	;IPCF READ
	OPDEF	IPCFS.	[CALLI 143]	;IPCF SEND
	OPDEF	IPCFQ.	[CALLI 144]	;IPCF QUERY
	OPDEF	PAGE.	[CALLI 145]	;PAGING UUO
	OPDEF	SUSET.	[CALLI 146]	;SUPER USETI/O
	OPDEF	COMPT.	[CALLI 147]	;CALL COMPATABILITY PACKAGE
	OPDEF	SCHED.	[CALLI 150]	;SCHEDULING UUO
	OPDEF	ENQ.	[CALLI 151]	;ENQUEUE
	OPDEF	DEQ.	[CALLI 152]	;DEQUEUE
	OPDEF	ENQC.	[CALLI 153]	;ENQ/DEQ CONTROL
	OPDEF	TAPOP.	[CALLI 154]	;MAG TAPE OPERATIONS
	OPDEF	FILOP.	[CALLI 155]	;FILE OPERATION
	OPDEF	CAL78.	[CALLI 156]	;DAS-78 FUNCTIONS (OBSOLETE)
	OPDEF	NODE.	[CALLI 157]	;NODE FUNCTIONS
	OPDEF	ERRPT.	[CALLI 160]	;FOR DAEMON ERROR REPORTING (OBSOLETE)
	OPDEF	ALLOC.	[CALLI 161]	;ALLOCATE A DEVICE (OBSOLETE)
	OPDEF	PERF.	[CALLI 162]	;KL10 PERFORMANCE ANALYSIS
	OPDEF	DIAG.	[CALLI 163]	;DIAGNOSTIC UUO
	OPDEF	DVPHY.	[CALLI 164]	;RETURN PHYSICAL DEVICE NAME
	OPDEF	GTNTN.	[CALLI 165]	;GET NETWORK TTY NUMBER
	OPDEF	GTXTN.	[CALLI 166]	;GET -10 TTY NAME
	OPDEF	ACCT.	[CALLI 167]	;READ/SET ACCOUNT STRING
	OPDEF	DTE.	[CALLI 170]	;DTE. FUNCTIONS FOR FRONT END
	OPDEF	DEVOP.	[CALLI 171]	;MISC. DEVICE OPERATIONS
	OPDEF	SPPRM.	[CALLI 172]	;SPOOL PARAMETERS
	OPDEF	MERGE.	[CALLI 173]	;MERGE AN EXE FILE WITH CURRENT CORE IMAGE
	OPDEF	UTRP.	[CALLI 174]	;IMMEDIATE CONTROL ON TRAPS
	OPDEF	PIJBI.	[CALLI 175]	;CAUSE CROSS JOB INTERRUPT
	OPDEF	SNOOP.	[CALLI 176]	;INSERT/DELETE BREAKPOINTS IN RUNNING MONITOR
	OPDEF	TSK.	[CALLI 177]	;MANIPULATE TASK-TO-TASK LINKS
	OPDEF	KDP.	[CALLI 200]	;LOAD/DUMP/START KMC-11
	OPDEF	QUEUE.	[CALLI 201]	;INTERFACE TO GALAXY
	OPDEF	RECON.	[CALLI 202]	;SYSTEM RECONFIGURATION
	OPDEF	PITMR.	[CALLI 203]	;PSI TIMER INTERRUPT
	OPDEF	ACCLG.	[CALLI 204]	;UUO TO DO ACCESS CHECKING FOR LOGIN
	OPDEF	NSP.	[CALLI 205]	;UUO TO ACCESS DECNET NSP
	OPDEF	NTMAN.	[CALLI 206]	;UUO TO DO DECNET NETWORK MANAGEMENT
	OPDEF	DNET.	[CALLI 207]	;DECNET INFORMATION UUO
	OPDEF	SAVE.	[CALLI 210]	;SAVE. UUO
	OPDEF	CMAND.	[CALLI 211]	;USER-DEFINED COMMANDS MANIPULATION
	OPDEF	PIBLK.	[CALLI 212]	;DETERMINE ADDRESS OF PI VECTOR BLOCK
	OPDEF	SCS.	[CALLI 213]	;SYSTEMS COMMUNICATION SERVICE UUO
	OPDEF	SEBLK.	[CALLI 214]	;RETRIEVE SYSTEM ERROR BLOCK DATA
;OPDEFS -- CALLI FUNCTIONS (CONTINUED)

	OPDEF	CTX.	[CALLI 215]	;UUO TO MANIPULATE JOB CONTEXTS
	OPDEF	PIFLG.	[CALLI 216]	;READ/WRITE USER'S INTERRUPT PC FLAGS
	OPDEF	IPCFM.	[CALLI 217]	;MISCELLANEOUS IPCF FUNCTIONS
	OPDEF	LLMOP.	[CALLI 220]	;ETHERNET MOP INTERFACE
	OPDEF	LATOP.	[CALLI 221]	;MANAGE ETHERNET LAT HOST
	OPDEF	KNIBT.	[CALLI 222]	;KLNI BOOT/DUMP SUPPORT (OBSOLETE)
	OPDEF	CHTRN.	[CALLI 223]	;CHARACTER TRANSLATION (8-BIT SUPPORT)
	OPDEF	ETHNT.	[CALLI 224]	;ETHERNET PROTOCOL SUPPORT
	OPDEF	ENTVC.	[CALLI 225]	;READ/SET ENTRY VECTOR
	OPDEF	NETOP.	[CALLI 226]	;GET TTY'S NODE AND PORT NAME
	OPDEF	DDP.	[CALLI 227]	;CONTROL ANF-10/DDCMP DEVICE (RESERVED)
	OPDEF	SEGOP.	[CALLI 230]	;MANIPULATE HIGH SEGMENTS
	SUBTTL	GETTAB CONSTITUENTS

.GTSTS==0	;JOB STATUS
	JS.XO==1B25	;EXECUTE ONLY CORE IMAGE
.GTADR==1	;JOB RELOCATION AND PROTECTION
.GTPPN==2	;PROJ-PROG NUMBER
.GTPRG==3	;PROGRAM NAME
.GTTIM==4	;TOTAL RUN TIME IN TICKS
.GTKCT==5	;KILO-CORE TICKS
.GTPRV==6	;PRIV WORD
	JP.IPC==1B0	;IPCF PRIVILEGED FUNCTIONS
	JP.DPR==3B2	;HIGHEST DISK PRIORITY
	JP.MET==1B3	;METER UUO
	JP.POK==1B4	;POKE MONITOR
	JP.CCC==1B5	;CHANGE CPU SPECIFICATION
	JP.HPQ==17B9	;HI PRIORITY QUEUE
	JP.NSP==1B10	;UNSPOOL DEVICES
	JP.ENQ==1B11	;ENQ./DEQ. PRIVS
	JP.ADM==1B12	;ADMINISTRATOR PRIVS
	JP.RTT==1B13	;RTTRP UUO
	JP.LCK==1B14	;LOCK UUO
	JP.TRP==1B15	;TRAPSET UUO
	JP.SPA==1B16	;SPY ON ALL CORE
	JP.SPM==1B17	;SPY ON MONITOR
.GTSWP==7	;SWAPPING POINTERS
.GTTTY==10	;TTY TABLE
.GTCNF==11	;CONFIGURATION
	%CNFG0==0,,11	;NAME OF SYSTEM
	%CNFG1==1,,11	; ..
	%CNFG2==2,,11	; ..
	%CNFG3==3,,11	; ..
	%CNFG4==4,,11	; ..
	%CNDT0==5,,11	;DATE OF SYSTEM
	%CNDT1==6,,11	; ..
	%CNTAP==7,,11	;NAME OF SYSTEM DEVICE
	%CNTIM==10,,11	;TIME OF DAY
	%CNDAT==11,,11	;DATE IN BINARY
	%CNSIZ==12,,11	;SYSTEM MEMORY SIZE
	%CNOPR==13,,11	;NAME OF OPR TTY
	%CNDEV==14,,11	;LH = DDB CHAIN
	%CNSJN==15,,11	;LH=-SEGN, RH=JOBN NUMBERS
	%CNTWR==16,,11	;NON-ZERO IS DUAL SEGMENTS
	%CNSTS==17,,11	;SYSTEM STATES
		ST%DSK==1B0	;DISK SYSTEM
		ST%SWP==1B1	;SWAPPING SYSTEM
		ST%LOG==1B2	;LOGIN
		ST%FTT==1B3	;FULL DUPLEX TTY SOFTWARE
		ST%PRV==1B4	;PRIVILEGES
		ST%TWR==1B5	;DUAL SEGMENT SOFTWARE
		ST%CYC==1B6	;50 HERTZ CLOCK
		ST%TDS==7B9	;TYPE OF DISK SYSTEM
		ST%IND==1B10	;IND. PPNS ON DISK
		ST%IMG==1B11	;IMAGE MODE TTYS
		ST%DUL==1B12	;DUAL PROCESSOR SYSTEM
		ST%MRB==1B13	;MULTIPLE RIBS SUPPORTED
		ST%HPT==1B14	;HIGH PRECISION TIME ACCOUNTING
		ST%EMO==1B15	;EXCLUDE OVERHEAD FROM TIME ACCOUNTING
		ST%RTC==1B16	;REAL TIME CLOCK
		ST%MBF==1B17	;MADE FOR FOROTS
		ST%NDL==1B26	;NO DOWN-LINE-LOAD OF DC7X REMOTE STATION
		ST%NOP==1B27	;NO OPERATOR IN ATTENDANCE
		ST%NSP==1B28	;UNSPOOL DEVICES
		ST%ASS==1B29	;ASSIGN/INIT DEVICES
		ST%NRT==1B32	;NO REMOTE TTY'S
		ST%BON==1B33	;BATCH ONLY
		ST%NRL==1B34	;NO REMOTE LOGINS
		ST%NLG==1B35	;NO LOGINS EXCEPT CTY/OPR
	%CNSER==20,,11	;APR SERIAL NUMBER
	%CNNSM==21,,11	;NANO-SECS PER MEMORY CYCLE
	%CNPTY==22,,11	;LH=NUMBER FIRST INV. TTY, RH=NUMBER PTYS
	%CNFRE==23,,11	;POINTER FOR BIT MAP OF CORE BLOCKS
	%CNLOC==24,,11	;LOCATION OF LOW CORE CORE BLOCKS
	%CNSTB==25,,11	;POINTER TO STATION BLOCK CHAIN
	%CNOPL==26,,11	;OPR LDB ADDRESS
	%CNTTF==27,,11	;POINTER TO TTY FREE CHUNKS
	%CNTTC==30,,11	;LH=NUMBER OF TTY CHUNKS, RH=ADDR OF FIRST
	%CNTTN==31,,11	;NUMBER OF FREE CHUNKS
	%CNLNS==32,,11	;POINTER TO CURRENT COMMAND TTY
	%CNLNP==33,,11	;POINTER TO TTY LINE TABLE
	%CNVER==34,,11	;MONITOR VERSION
	%CNDSC==35,,11	;POINTER TO DATA SET CONTROL TABLE
	%CNDLS==36,,11	;LAST RECEIVE INT. FROM DC10 (PRE 5.07)
	%CNCCI==37,,11	;LAST RECEIVE INT. FROM 680I (PRE 5.07)
	%CNSGT==40,,11	;LAST DORM. SEG THROWN AWAY
	%CNPOK==41,,11	;ADDRESS OF LAST POKED LOCATION
	%CNPUC==42,,11	;LH=JOB, RH=COUNT OF POKES
	%CNWHY==43,,11	;REASON FOR LAST RELOAD
	%CNTIC==44,,11	;NUMBER OF TICKS PER SECOND
	%CNPDB==45,,11	;POINTER TO PDB POINTER TABLES
	%CNRTC==46,,11	;RESOLUTION OF RUNTIME CLOCK (UNITS/SEC)
	%CNCHN==47,,11	;LH=PTR TO CHANNEL D.B. LIST,RH=UNUSED
	%CNLMX==50,,11	;LOGMAX (MAX JOBS TO BE LOGGED IN)
	%CNBMX==51,,11	;BATMAX (MAX BATCH JOBS)
	%CNBMN==52,,11	;BATMIN (MIN JOBS RESERVED FOR BATCH)
	%CNDTM==53,,11	;INTERNAL FORMAT DATE,,TIME
	%CNLNM==54,,11	;NUMBER OF JOBS LOGGED IN
	%CNBNM==55,,11	;NUMBER OF BATCH JOBS LOGGED IN
	%CNYER==56,,11	;LOCAL YEAR
	%CNMON==57,,11	;LOCAL MONTH
	%CNDAY==60,,11	;LOCAL DAY OF MONTH
	%CNHOR==61,,11	;LOCAL HOUR
	%CNMIN==62,,11	;LOCAL MINUTES
	%CNSEC==63,,11	;LOCAL SECONDS
	%CNGMT==64,,11	;TIME FROM GMT IN INTERNAL FORMAT
	%CNDBG==65,,11	;DEBUGGING STATUS WORD
		ST%DBG==1B0	;SYSTEM DEBUGGING
		ST%RDC==1B1	;RELOAD ON DEBUF STOPCD
		ST%RJE==1B2	;RELOAD ON JOB STOPCD
		ST%NAR==1B3	;NO AUTO RELOADS
		ST%CP1==1B4	;RELOAD ON CPU STOPCD
		ST%DDC==1B5	;DON'T DUMP ON DEBUG STOPCD
		ST%DJE==1B6	;DON'T DUMP ON JOB STOPCD
		ST%DCP==1B7	;DON'T DUMP ON CPU STOPCD
		ST%RLD==1B15	;LAST STOPCD CAUSED A RELOAD
		ST%BP0==1B18	;CPU0 CAN ENTER EDDT USING XCT .C0DDT
		ST%BP1==1B19	;CPU1 CAN ENTER EDDT USING XCT .C1DDT
		ST%BP2==1B20	;CPU2 CAN ENTER EDDT USING XCT .C2DDT
		ST%BP3==1B21	;CPU3 CAN ENTER EDDT USING XCT .C3DDT
		ST%BP4==1B22	;CPU4 CAN ENTER EDDT USING XCT .C4DDT
		ST%BP5==1B23	;CPU5 CAN ENTER EDDT USING XCT .C5DDT
		ST%BPT==77B23	;MASK OF CPU BREAKPOINT BITS
	%CNFRU==66,,11	;MONITOR FREE CORE USED
	%CNTCM==67,,11	;HIGHEST ADDRESS USED FOR TTY CHUNKS
	%CNCVN==70,,11	;CUSTOMER VERSION (JOBDAT loc. 136)
	%CNDVN==71,,11	;DEC VERSION (JOBDAT loc. 137)
	%CNDFC==72,,11	;NUMBER OF DF10 DATA CHANS
	%CNRTD==73,,11	;NUMBER OF RT DEVICES
	%CNHPQ==74,,11	;NUMBER OF HPQS
	%CNLDB==75,,11	;TTY DDB WORD POINTING TO LDB
	%CNMVO==76,,11	;MAX VECTOR OFFSET FOR PISYS.
	%CNMIP==77,,11	;MAX PRIORITY FOR PISYS.
	%CNMER==100,,11	;OFFSET OF MTA ERR RPT WORD,,ADDR OF MTA
	%CNET1==101,,11	;USER ADDRESS OF EXEC'S AC T1
	%CNLSD==102,,11	;LENGTH OF SHORT DDB
	%CNLLD==103,,11	;LENGTH OF LONG DDB
	%CNLDD==104,,11	;LENGTH OF DISK DDB
	%CNEXM==105,,11	;ADDRESS IN JOBDAT OF LAST E/D COMMAND
	%CNST2==106,,11	;MORE CONFIGURATION FEATURE INDICATORS
		ST%NSE==1B5	;DISABLE KS10 SOFT MEMORY ERROR MESSAGES
		ST%END==1B6	;DECNET RUNNING AS AN ETHERNET ENDNODE
		ST%NPP==1B7	;DISABLED STARTING PRIMARY PROTOCOL ON DTE'S
		ST%RCM==1B8	;RESTRICTED COMMANDS MONITOR
		ST%EXA==1B9	;EXTENDED ADDRESSING SUPPORT
		ST%D36==1B10	;MONITOR HAS DECNET SUPPORT
		ST%KLP==1B11	;MONITOR USES KL STYLE PAGING
		ST%MDA==1B12	;DEVICE ALLOCATION IS BEING DONE
		ST%LSC==1B13	;LOW SEGMENT OF MONITOR IS CACHED
		ST%ACV==1B14	;SYSTEM DOES ACCOUNT VALIDATION
		ST%NER==1B15	;MONITOR SUPPORTS 6.03 ERROR REPORTING
		ST%NCS==1B16	;SCHEDULER IS NOT A CLASS SYSTEM SCHEDULER
		ST%ITA==1B17	;INTERVAL TIMER AVAILABLE
		ST%NDN==1B18	;NETWORK DEVICE NAMES (GGGNNU)
		ST%XPI==1B19	;EXCLUDE PI TIME FROM RUNTIME
		ST%ERT==1B20	;EBOX/MBOX RUNTIME (KL10 ONLY)
		ST%EXE==1B21	;SAVE AND SSAVE WRITE .EXE FILES
		ST%NJN==1B22	;SYSTEM USES 9 BIT JOB NUMBERS
		ST%EER==1B23	;EXTENDED ERROR REPORTING
		ST%TAP==1B24	;TAPSER INCLUDED
		ST%MBE==1B25	;MASSBUS ERROR REPORTS
		ST%GAL==1B26	;GALAXY-10 SUPPORT INCLUDED
		ST%ENQ==1B27	;ENQ./DEQ. IS INCLUDED
		ST%SHC==1B28	;SCHEDULER HAS CLASSES
		ST%NSE==1B29	;NON-SUPERSEDING ENTER
		ST%MSG==1B30	;MSGSER INCLUDED
		ST%PSI==1B31	;PSISER INCLUDED
		ST%IPC==1B32	;IPCF INCLUDED
		ST%VMS==1B33	;VMSER INCLUDED
		ST%MER==1B34	;MTA ERROR REPORTING
		ST%SSP==1B35	;SWAP SPACE IN PAGES
	%CNPIM==107,,11	;MINIMUM CONDITION IN PISYS
	%CNPIL==110,,11	;LENGTH OF INTERNAL PITS
	%CNPIA==111,,11	;ADDRESS OF JBTPIA
	%CNMNT==112,,11	;MONITOR TYPE
		CN%MNX==1B0	;STRANGE MONITOR
		CN%MNT==77B23	;DEC-KNOWN TYPE
			.CNT10==1	;TOPS-10
			.CNITS==2	;ITS
			.CNTNX==3	;TENEX
			.CNT20==4	;TOPS-20
			.CNTCX==5	;TYMCOM-X
		CN%MNS==77B29	;DEC SUB TYPE
		CN%MNC==77	;CUSTOMER SUBSUB TYPE
	%CNOCR==113,,11	;FIRST CDR DDB,,OFFSET TO CARD COUNT
	%CNOCP==114,,11	;DITTO FOR CDP
	%CNPGS==115,,11	;UNIT OF CORE ALLOCATION
	%CNMMX==116,,11	;MINIMUM LEGAL CORMAX
	%CNNSC==117,,11	;NUMBER OF SCHEDULER CLASSES
	%CNUTF==120,,11	;EXPONENTIAL USER TIME FACTOR
	%CNHSO==121,,11	;START OF MONITOR'S HISEG
	%CNHSL==122,,11	;LENGTH OF MONITOR'S HISEG
	%CNNWC==123,,11	;NUMBER OF WORDS OF CORE
	%CNNXM==124,,11	;AOBJN POINTER TO NXMTAB USED TO SCAN FOR ZEROES
	%CNNDB==125,,11	;POINTER TO FIRST NODE BLOCK
	%CNTKB==126,,11	;POINTER FROM KDB TO CDB FOR MAGTAPES
	%CNDDC==127,,11	;OBSOLETE
	%CNHDL==130,,11	;POTENTIALLY HUNG DEVICE LIST (OBSOLETE)
	%CNBTX==131,,11	;ADDRESS OF RELOAD CCL TEXT FOR BOOT
	%CNTDB==132,,11	;OFFSET OF DDB PTRS IN TUB
	%CNMTK==133,,11	;FIRST MAGTAPE CONTROLLER DATA BLOCK IN SYSTEM (OBSOLETE)
	%CNCPU==134,,11	;NUMBER OF CPUS MONITOR WAS BUILT FOR
	%CNDJB==135,,11	;BYTE POINTER TO JOB # IN DDB (A LA "PJOBN")
	%CNSUP==136,,11	;SYSTEM UPTIME
	%CNBCP==137,,11	;BOOTSTRAP CPU NUMBER
	%CNBCL==140,,11	;BOOTSTRAP CTY LINE NUMBER
	%CNNCR==141,,11	;NUMBER OF CPUS ALLOWED TO RUN
	%CNMBS==142,,11	;MONITOR BOOTSTRAP FILE STRUCTURE (FROM BOOT)
	%CNMBF==143,,11	;MONITOR BOOTSTRAP FILE NAME
	%CNMBX==144,,11	;MONITOR BOOTSTRAP EXTENSION
	%CNMBD==145,,11	;MONITOR BOOTSTRAP DIRECTORY
	%CNBPM==146,,11	;MAXIMUM NUMBER OF SNOOP. BREAKPOINTS THAT CAN BE DEFINED
	%CNMXF==147,,11	;FIRST FREE VIRTUAL ADDRESS ABOVE THE MONITOR
	%CNLVO==150,,11	;VIRTUAL ORIGIN OF LDBS
	%CNHXC==151,,11	;MAXIMUM NUMBER OF FILOP. EXTENDED CHANNELS
	%CNVSH==152,,11	;MONITOR VIRTUAL START ADDRESS OF HIGH SEGMENT
	%CNRST==153,,11	;UNIVERSAL DATE/TIME OF LAST ROLE
			;SWITCH ON MULTIPLE CPU SYSTEMS
	%CNDCH==154,,11	;OFFSET INTO LDB OF LDBDCH
	%CNSF1==155,,11	;MONITOR BOOTSTRAP 1ST SFD
	%CNSF2==156,,11	;2ND
	%CNSF3==157,,11	;3RD
	%CNSF4==160,,11	;4TH
	%CNSF5==161,,11	;5TH
	%CNFLN==162,,11	;TTY LINE NUMBER OF FRCLIN
	%CNPNP==163,,11	;POINTER TO PTY TABLE
	%CNCAT==164,,11	;NEGATIVE LENGTH OF LAT,,LINK ADDRESS TABLE ADDRESS
	%CNLPD==165,,11 ;LENGTH OF A PDB
	%CNJPK==166,,11	;XWD FLAG, SIZE OF LARGEST JOBPEK TRANSFER
			; WHERE FLAG=0 IF A SWAP SPACE JOBPEK MAY NOT
			; CROSS A PAGE BOUNDARY, FLAG=1 IF IT MAY
	%CNDAE==167,,11	;XWD SIXBIT PREVIOUS MONITOR VERSION,
			;    BINARY CURRENT MONITOR VERSION, E.G.,
			;  XWD '701',702
	%CNHSH==170,,11	;AOBJN POINTER TO ENQ. HSHTAB
	%CNACS==171,,11	;OFFSET IN PDB FOR ACCOUNT STRING
	%CNTOP==172,,11	;XWD LENGTH,ADDRESS OF TOPTB1 TRMOP TABLE IN SCNSER
	%CNSFD==173,,11	;POINTER TO JBTSFD
	%CNCIP==174,,11	;POINTER TO CIPWT
	%CNPRV==175,,11	;PRIV WORD TO BE USED BY PRIVED JOBS (FRCLIN, INITIA)
	%CNCV1==176,,11	;FIRST WORD OF CTERM VERSION STRING (8-BIT)
	%CNCV2==177,,11	;SECOND WORD OF CTERM VERSION STRING (8-BIT)
	%CNLHN==200,,11	;POINTER TO LAT HOST NODE DATA BASE
	%CNIVM==201,,11	;'AND' MASK FOR .GTIMI/.GTIMO/.GTVIR PAGE COUNTS
	%CNACB==202,,11	;ADDRESS OF FIRST SYSTEM-WIDE ALLOCATION CONTROL BLOCK
	%CNAHB==203,,11	;ADDRESS OF FIRST SYSTEM-WIDE ALLOCATION HEADER BLOCK
	%CNIDB==204,,11	;OFFSET OF IPA20 DRAM DUMP BUFFER IN IPA20 KDB
	%CNDTT==205,,11	;SYSTEM DEFAULT TERMINAL TYPE
	%CNSUM==206,,11	;SYSTEM UPTIME IN MILLISECONDS
	%CNREM==207,,11	;OFFSET OF LDBREM IN LDB'S
	%CNK4S==210,,11	;OFFSET OF UNIK4S IN UDB'S
	%CNOPT==211,,11	;SIXBIT STARTUP OPTION
	%CNDJN==212,,11	;DAEMON JOB NUMBER
.GTNSW==12	;NON-SWAPPING DATA TABLE
	%NSCMX==10,,12	;SYSTEM CORMAX (LARGEST USER JOB+1)
	%NSCLS==11,,12	;BYTE POINTER TO LAST FREE CORE AREA
	%NSCTL==12,,12	;VIRTUAL CORE TALLY
	%NSSHW==13,,12	;JOB NUMBER STOPPED BY SHUFFLER
	%NSHLF==14,,12	;ADDRESS OF LOWEST HOLE IN SYSTEM
	%NSUPT==15,,12	;CPU0 UPTIME -- FOR SYSTEM UPTIME SEE %CNSUP GETTAB
	%NSSHF==16,,12	;WORDS SHUFFLED BY SYSTEM
	%NSSTU==17,,12	;SYSTEM TAPE USER
	%NSHJB==20,,12	;HIGHEST JOB NUMBER IN USE
	%NSCLW==21,,12	;WORDS CLEARED BY SYSTEM
	%NSLST==22,,12	;LOST TIME
	%NSMMS==23,,12	;MEMORY SIZE
	%NSTPE==24,,12	;TOTAL MEMEORY PARITY ERRORS
	%NSSPE==25,,12	;SPURIOUS MEMORY PARITY ERRORS
	%NSMPC==26,,12	;MULTIPLE MEMORY PARITY ERRORS
	%NSMPA==27,,12	;LAST MEMORY PARITY ADDRESS
	%NSMPW==30,,12	;LAST MEMORY PARITY WORD
	%NSMPP==31,,12	;LAST MEMORY PARITY PC
	%NSEPO==32,,12	;NUMBER OF EXEC PDL OVERFLOWS NOT RECOVERED
	%NSEPR==33,,12	;NUMBER OF EXEC PDL OVERFLOWS RECOVERED
	%NSMXM==34,,12	;MAX VALUE OF CORMAX
	%NSKTM==35,,12	;KSYS TIMER
	%NSCMN==36,,12	;CORMIN
	%NSABC==37,,12	;COUNT OF ADDRESS BREAKS
	%NSABA==40,,12	;ADDRESS OF ADDRESS BREAKS
	%NSLJR==41,,12	;LAST JOB RUN
	%NSACR==42,,12	;ACCUMULATED CPU RESPONSE
	%NSNCR==43,,12	;NUMBER OF CPU RESPONSES
	%NSSCR==44,,12	;ACCUMULATED SQUARE OF CPU RESPONSE
		;*** NO MORE GROWTH--SEE .GTC0V
.GTSDT==13	;SWAPPING DATA TABLE
	%SWBGH==0,,13	;BIG HOLE
	%SWFIN==1,,13	;FINISH
	%SWFRC==2,,13	;FORCE
	%SWFIT==3,,13	;FIT
	%SWVRT==4,,13	;VIRTAL
	%SWERC==5,,13	;SWAP ERROR COUNT
	%SWPIN==6,,13	;-1 IF SWAP IN AND FTPDBS=1
	%SWEUJ==7,,13	;SEGMENT,,UDB ADDRESS
.GTSGN==14	;SEGMENT NUMBERS
	SN%SPY==1B0	;IF 0 THEN REGULAR HIGH SEGMENT
			;	RH = HIGH SEG INDEX NO.
			;IF 1 THEN JOB IS SPYING
			;	RH = MAX PHYSICAL ADR SPYING
	SN%SHR==1B1	;HIGH SEGMENT IS SHARABLE
	SN%UWP==1B2	;HIGH SEGMENT IS WRITE-ENABLED
	SN%MDL==1B3	;HIGH SEGMENT HAS BEEN MEDDLED
	SN%LOK==1B5	;HIGH SEGMENT IS LOCKED IN MEMORY
	SN%NCS==1B6	;HIGH SEGMENT IS NOT CACHED
	SN%GTS==1B10	;HIGH SEGMENT OBTAINED VIA GETSEG
.GTODP==15	;ONCE ONLY DISK PARAMETERS
	%ODSWP==0,,15	;HIGHEST SWAPPING IN 4-SERIES
	%ODK4S==1,,15	;K FOR SWAPPING
	%ODPRT==2,,15	;IN CORE PROTECT TIME MULTIPLIER
	%ODPRA==3,,15	;IN CORE PROTECT TIME OFFSET
	%ODPMN==4,,15	;MINIMUM ICPT AFTER REQUEUE TO BACK OF PQ2
	%ODPMX==5,,15	;MAXIMUM VALUE OF ICPT
.GTLVD==16	;LEVEL-D PARAMETERS
	%LDMFD==0,,16	;MFD PPN [1,1]
	%LDSYS==1,,16	;SYS PPN [1,4]
	%LDFFA==2,,16	;FULL FILE ACCESS PPN [1,2]
	%LDHLP==3,,16	;UNLOGGED IN PPN [2,5]
	%LDQUE==4,,16	;QUE AREA PPN [3,3]
	%LDSPB==5,,16	;FIRST PPB,,NEXT PPB TO SCAN
	%LDSTR==6,,16	;FIRST STR DATA BLOCK,,OFFSET TO NEXT
	%LDUNI==7,,16	;FIRST UNIT DATA BLOCK,,OFFSET TO NEXT
	%LDSWP==10,,16	;FIRST SWAP UNIT,,OFFSET TO NEXT
	%LDCRN==11,,16	;NUMBER OF CORE BLOCKS
	%LDSTP==12,,16	;STANDARD FILE PROTECTION
	%LDUFP==13,,16	;STANDARD UFD PROTECTION
	%LDMBN==14,,16	;NUMBER OF MONITOR BUFFERS(OBSOLETE)
	%LDQUS==15,,16	;QUE STRUCTURE NAME
	%LDCRP==16,,16	;CRASH PPN [10,1]
	%LDSFD==17,,16	;MAX DEPTH OF SFDS TO WRITE
	%LDSPP==20,,16	;SPOOLED FILE PROTECTION
	%LDSYP==21,,16	;STANDARD SYS: PROTECTION
	%LDSSP==22,,16	;STANDARD SYS:.SYS PROTECTION
	%LDMNU==23,,16	;MAX. NEGATIVE USETI WHICH READS EXTENDED RIBS
	%LDMXT==24,,16	;MAX. BLOCKS TO TRANSFER
	%LDNEW==25,,16	;EXPERIMENTAL SYS PPN [1,5]
	%LDOLD==26,,16	;OLD SYS PPN [1,3]
	%LDUMD==27,,16	;USER MODE DIAGNOSTICS PPN [6,10]
	%LDNDB==30,,16	;DEFAULT DISK BUFFERS IN RING
	%LDMSL==31,,16	;MAX UNITS IN A.S.L.
	%LDALG==32,,16	;ALGOL LIBRARY PPN [5,4]
	%LDBLI==33,,16	;BLISS LIBRARY PPN [5,5]
	%LDFOR==34,,16	;FORTRAN LIBRARY PPN [5,6]
	%LDMAC==35,,16	;MACRO LIBRARY PPN (SOURCE NOT UNIVERSALS) [5,7]
	%LDUNV==36,,16	;UNIVERSAL LIBRARY PPN [5,17]
	%LDPUB==37,,16	;PUBLIC USER SOFTWARE LIBRARY PPN [1,6]
	%LDTED==40,,16	;TEXT EDITOR LIBRARY PPN [5,10]
	%LDREL==41,,16	;REL FILE LIBRARY PPN [5,11]
	%LDRNO==42,,16	;RUNOFF LIBRARY PPN [5,12]
	%LDSNO==43,,16	;SNOBOL LIBRARY PPN [5,13]
	%LDDOC==44,,16	;DOC FILE LIBRARY PPN [5,14]
	%LDFAI==45,,16	;FAIL LIBRARY PPN [5,15]
	%LDMUS==46,,16	;MUSIC LIBRARY PPN [5,16]
	%LDDEC==47,,16	;STANDARD DEC SOFTWARE [10,7]
	%LDSLP==50,,16	;POINTER TO ACTIVE SWAP LIST
	%LDBAS==51,,16	;BASIC LIB PPN [5,1]
	%LDCOB==52,,16	;COBOL LIB PPN [5,2]
	%LDMXI==53,,16	;PDP-11 LIB PPN [5,3]
	%LDNEL==54,,16	;NELIAC LIB PPN [5,20]
	%LDDMP==55,,16	;DUMP PPN [5,21]
	%LDPOP==56,,16	;POP2 LIB PPN [5,22]
	%LDTST==57,,16	;TEST LIB PPN [5,23]
;.GTLVD LEVEL-D PARAMETERS (CONTINUED)

	%LDLSO==60,,16	;LOG SOFT OVERRUNS (CALL DAEMON) IF OVERRUN
			; IS RECOVERED ON 1 RETRY AND %LDLSO .NE. 0
	%LDMBR==61,,16	;MASS-BUSS REG. LH=OFFSET INTO KDB OF # OF
			; REGISTER. RH=OFFSET INTO UDB OF REGS.
	%LDBBP==62,,16	;LH=POINTER TO BYTE POINTER TO # LEFT IN BAT
			;RH=OFFSET (IN UDB) OF CHAN TERM FAIL CNT
	%LDDBS==63,,16	;DBMS LIB PPN [5,24]
	%LDEXP==64,,16	;OFFSET OF EXPECTED CHANNEL TERM. WORD IN
			; CHANNEL DATA BLOCK
	%LDMIC==65,,16	;MIC MACRO LIB PPN [5,25]
	%LDTPS==66,,16	;TEXT PROCESSING SYSTEM LIB PPN [5,26]
	%LDCTL==67,,16	;CTL FILE LIB PPN [5,27]
	%LDGAM==70,,16	;GAMES LIB PPN [5,30]
	%LDACT==71,,16	;SYSTEM ACCOUNTING PPN [1,7]
	%LDAPL==72,,16	;APL LIB PPN [5,31]
	%LDECT==73,,16	;RIB ERROR THRESHOLD
	%LDTOT==74,,16	;TOTAL RIB ERRORS
	%LDDOR==75,,16	;DORMANT ACCESS-TABLE POINTER
	%LDCOR==76,,16	;FREE CORE (FILSER) POINTER
	%LDINT==77,,16	;DISK INTERFERENCE - COUNT
	%LDD60==100,,16	;D60 LIB PPN [5,32]
	%LDERT==101,,16	;STARTING LOCATION OF QUEUE TABLE FOR DAEMON ERROR
			; REPORTING (OBSOLETE)
	%LDPT1==102,,16	;POINTER TO EXTRACT ENTRIES FOR DAEMON QUEUE TABLE
			; (OBSOLETE)
	%LDPT2==103,,16	;POINTER TO INSERT ENTRIES FOR DAEMON QUEUE TABLE
			; (OBSOLETE)
	%LDLTH==104,,16	;LENGTH OF DAEMON QUEUE TABLE (OBSOLETE)
	%LDCDA==105,,16	;OFFSET OF UNICDA IN UDB
	%LDDES==106,,16	;OFFSET OF UNIDES IN UDB
	%LDPTR==107,,16	;POINTER TO IN-CORE COPIES OF RETRIEVAL POINTERS
	%LDMSS==110,,16	;MAXIMUM STRUCTURES IN SYSTEM SEARCH LIST,,MAX
			; STRUCTURES IN JOB SEARCH LIST
	%LDSLB==111,,16	;OFFSET OF UNISLB IN UDB
	%LDUTP==112,,16	;UETP PPN [5,33]
	%LDINI==113,,16	;INI PPN [5,34]
	%LDESZ==114,,16	;SIZE OF 1 ENTRY IN ERPTBK (OBSOLETE)
	%LDKON==115,,16	;FIRST KONTROLLER DATA BLOCK,,OFFSET TO NEXT
	%LDLBF==116,,16	;DEFAULT NUMBER OF LARGE DISK BUFFERS
	%LDDVU==117,,16	;OFFSET OF DEVUNI, USED BY SYSTAT
	%LDCSZ==120,,16	;SIZE IN BLOCKS OF CACHE
	%LDRDC==121,,16	;MONITOR CACHE BLOCK READ CALLS
	%LDRDH==122,,16	;MONITOR CACHE BLOCK READ HITS
	%LDWRC==123,,16	;MONITOR CACHE WRITE CALLS
	%LDWRH==124,,16	;MONITOR CACHE WRITE HITS
	%LDHSF==125,,16	;CSHFND CALLS
	%LDHSC==126,,16	;CSHFND COLLISIONS IN HASH TABLE
	%LDHSL==127,,16	;LENGTH OF CACHE HASH TABLE
	%LDHST==130,,16	;ADDRESS OF CACHE HASH TABLE
	%LDCHD==131,,16	;ADDRES OF CACHE LIST HEADER
;.GTLVD LEVEL-D PARAMETERS (CONTINUED)

	%LDSPN==132,,16 ;DDB OFFSET FOR SPOOLED FILENAME
	%LDSPM==133,,16 ;DDB OFFSET FOR SPOOLED PARAMETER BLOCK POINTER
	%LDBLK==134,,16 ;DDB OFFSET FOR I/O BLOCK NUMBER
	%LDRSU==135,,16 ;DDB OFFSET TO RETRIEVAL /ACC BLOCKS
	%LDNMB==136,,16 ;DDB OFFSET FOR NMB OF FATHER SFD
	%LDUPS==137,,16	;PPN FOR USE BY ALL MAILERS (UPS:)
	%LDSEB==140,,16	;ADDRESS OF POINTER TO FIRST SYSTEM ERROR BLOCK
	%LDROD==141,,16	;NUMBER OF TIMES WE RAN OUT OF DRBS
	%LDFNT==142,,16	;LIBRARY PPN FOR PRINTER FONTS (FNT:)
	%LDSET==143,,16	;BIT MAP OF DISK SETS MOUNTED BY THIS SYSTEM
	%LDDET==144,,16	;FIRST DETACHED UNIT DATA BLOCK,,OFFSET TO NEXT
	%LDOCS==145,,16	;ORIGINAL (CONFIGURED) SIZE OF DISK CACHE (SEE %LDCSZ)
	%LDSRT==146,,16	;SWAP READ ERROR THRESHOLD
	%LDSRC==147,,16	;SWAP READ ERROR COUNT
	%LDADL==150,,16	;HEADER OF DOUBLY-LINKED LIST OF ACTIVE DRBS
.GTRCT==17	;DISK BLOCKS READ
	RC.INC==7777B11	;INCREMENTAL DISK READS
	RC.TTL==77777777 ;TOTAL DISK READS
.GTWCT==20	;DISK BLOCKS WRITTEN
	WC.INC==7777B11	;INCREMENTAL DISK WRITES
	WC.TTL==77777777 ;TOTAL DISK WRITES
.GTDBS==21	;OBSOLETE
.GTTDB==22	;OBSOLETE
.GTSLF==23	;GETTAB IMMEDIATE THE GETTAB TABLE (SELF)
	SL.MAX==777B8	;MAXIMUM ITEM NUMBER IN TABLE
	SL.TYP==7B11	;TYPE OF TABLE IDENTIFIER
		.SLNIC==0	;NOT INCLUDED IN THIS CONFIGURATION
		.SLIXI==1	;INDEX BY ITEM NUMBER
		.SLIXJ==2	;INDEX BY JOB NUMBER
		.SLIXS==3	;INDEX BY JOB NUMBER OR SEGMENT NUMBER
		.SLIXP==4	;INDEX BY JOB NUMBER (DATA IN PDB)
		.SLIXR==5	;INDEX BY NEGATIVE AND POSITIVE OFFSETS
				;BITS 12,13 RESERVED FOR DEC
	SL.MAC==17B17	;A MONITOR AC NUMBER
	SL.ADR==0,,-1	;EXECUTIVE MODE ADDRESS OF TABLE, IF SL.TYP=1,2,3
			;OFFSET TO PDB IF SL.TYP=4
.GTDEV==24	;DEVICE OR STRUCTURE (SEGMENTS ONLY)
.GTWSN==25	;NAMES OF WAIT STATES
.GTLOC==26	;REMOTE STATION NUMBER
.GTCOR==27	;CORE TABLE (OBSOLETE IN 7.01)
.GTCOM==30	;MONITOR COMMAND NAMES
.GTNM1==31	;USER NAME
.GTNM2==32	; ..
.GTCNO==33	;CHARGE NUMBER
.GTTMP==34	;TMPCOR POINTERS (OBSOLETE IN 7.01)
.GTWCH==35	;WATCH BITS
	JW.WCX==1B0	;CONTEXT CHANGES
	JW.WDY==1B1	;DAYTIME AT START
	JW.WRN==1B2	;RUN TIME
	JW.WWT==1B3	;WAIT TIME
	JW.WDR==1B4	;DISK READS
	JW.WDW==1B5	;DISK WRITES
	JW.WVR==1B6	;VERSIONS
	JW.WMT==1B7	;MTA STATISTICS
	JW.WFI==1B8	;WATCH FILE
	JW.WAL==777B8	;WATCH ALL
	JW.WMS==7B11	;/MESSAGE LEVEL
		.JWWPR==1	;PREFIX
		.JWWOL==2	;ONE LINE
		.JWWPO==3	;PREFIX,FIRST
		.JWWLG==6	;LONG, NO PREFIX
		.JWWPL==7	;PREFIX AND LONG
	JW.WCN==1B9	;/MESSAGE:CONTINUATION
	JW.WFL==1B10	;/MESSAGE:FIRST
	JW.WPR==1B11	;/MESSAGE:PREFIX
.GTSPL==36	;SPOOLING CONTROL
	JS.PRI==7B26	;DISK PRIORITY
	JS.DFR==1B27	;DEFERRED SPOOLING (MPB-I STYLE)
	JS.PCR==1B31	;SPOOL CDR
	JS.PCP==1B32	;SPOOL CDP
	JS.PPT==1B33	;SPOOL PTP
	JS.PPL==1B34	;SPOOL PLT
	JS.PLP==1B35	;SPOOL LPT
	JS.PAL==37B35	;SPOOL ALL
.GTRTD==37	;REAL TIME STATUS
.GTLIM==40	;TIME AND BATCH STATUS
	JB.LTL==1B0	;TIME LIMIT SET FROM FORCED DETACH COMMAND
	JB.LCR==777B9	;CORE LIMIT
	JB.LBT==1B10	;BATCH JOB
	JB.LSY==1B11	;GOTTEN FROM SYS:
	JB.LTM==77777777  ;TIME LIMIT TO GO IN JIFFIES
.GTQQQ==41	;OBSOLETE
.GTQJB==42	;OBSOLETE
.GTCM2==43	;MONITOR SET COMMAND NAMES
.GTCRS==44	;HARDWARE STATUS FROM CRASH
	CR.SAP==0,,44	;APR CONI
	CR.SPI==1,,44	;PI CONI
	CR.SSW==2,,44	;APR DATAI (SWITCHES)
.GTISC==45	;SWAP IN SCAN TABLES
.GTOSC==46	;SWAP OUT SCAN
.GTSSC==47	;SCHEDULER SCAN
.GTRSP==50	;RESPONSE COUNTER TABLE
.GTSYS==51	;SYSTEM-WIDE DATA
	%SYERR==0,,51	;SYSTEM WIDE HARDWARE ERROR COUNT
	%SYCCO==1,,51	;NUMBER OF TIMES COMCNT WAS OFF
	%SYDEL==2,,51	;DISABLED HARDWARE ERROR COUNT
	%SYSPC==3,,51	;FULLWORD PC+1 OF LAST STOPCODE
	%SYNDS==4,,51	;NUMBER OF DEBUG STOPCDS
	%SYNJS==5,,51	;NUMBER OF JOB STOPCDS (INCLUDING DEBUG
			; STOPCD'S IF A JOB IS STOPPED)
	%SYNCP==6,,51	;NUMBER OF COMMANDS PROCESSED
	%SYSJN==7,,51	;LAST STOPCD--JOB NUMBER
	%SYSTN==10,,51	;LAST STOPCD--TTY NAME
	%SYSPN==11,,51	;LAST STOPCD--PROGRAM NAME
	%SYSUU==12,,51	;LAST STOPCD--UUO
	%SYSUP==13,,51	;LAST STOPCD--USER PC
	%SYSPP==14,,51	;LAST STOPCD--USER PPN
	%SYSCD==15,,51	;LAST STOPCD--STOPCODE NAME
	%SYNCS==16,,51	;TOTAL NUMBER OF CPU STOPCDS
	%SYNIS==17,,51	;NUMBER OF NODUMP STOPCDS (BUGINFS)
	%SYSTY==20,,51	;TYPE OF LAST STOPCODE
	%SYSUD==21,,51	;UDT OF LAST STOPCODE
	%SYSCP==22,,51	;CPU NUMBER OF LAST STOPCODE
.GTWHY==52	;OPERATOR WHY COMMENTS IN ASCIZ
.GTTRQ==53	;TOTAL TIME IN RUN QUEUES WHETHER OR NOT RUNNING
.GTSPS==54	;SECOND PROCESSOR STATUS
	SP.SC0==1B29	;SET CPU COMMAND (OK TO USE)
	SP.CR0==1B35	;SET CPU UUO (OK TO USE)
		;OTHERS BY SHIFTING LEFT 1 BIT/PROCESSOR
;CPU DATA BLOCKS CONSTANTS AND VARIABLES

.GTC0C==55	;CPU0 CDB CONSTANTS
.GTC0V==56	;CPU0 CDB VARIABLES
.GTC1C==57	;CPU1 CDB CONSTANTS
.GTC1V==60	;CPU1 CDB VARIABLES
.GTC2C==61	;CPU2 CDB CONSTANTS
.GTC2V==62	;CPU2 CDB VARIABLES
.GTC3C==63	;CPU3 CDB CONSTANTS
.GTC3V==64	;CPU3 CDB VARIABLES
.GTC4C==65	;CPU4 CDB CONSTANTS
.GTC4V==66	;CPU4 CDB VARIABLES
.GTC5C==67	;CPU5 CDB CONSTANTS
.GTC5V==70	;CPU5 CDB VARIABLES
;ENTRIES IN CDB CONSTANTS TABLE

	%CCPTR==0,,55	;LH=POINTER TO NEXT CDB
	%CCSER==1,,55	;APR SERIAL NUMBER
	%CCOKP==2,,55	;CPU OK IF LE 0, JIFFIES DEAD IF GT 0
	%CCTOS==3,,55	;ADDRESS OF EPT (KI/KL/KS) 
			;(TRAP OFFSET FOR KA INTERRUPT LOCATIONS)	
%CCLOG==4,,55	;LOGICAL NAME (CPUN)
	%CCPHY==5,,55	;PHYSICAL NAME (CPXN)
	%CCTYP==6,,55	;TYPE OF PROCESSOR (LH-DEC, RH-CUST)
		.CC166==1	;PDP-6 (OBSOLETE IN 7.01)
		.CCKAX==2	;KA-10 (OBSOLETE IN 7.01)
		.CCKIX==3	;KI-10
		.CCKLX==4	;KL-10
		.CCKSX==5	;KS-10
	%CCMPT==7,,55	;REL. GETTAB POINTER TO BAD ADDRESS TABLE
		CC%BLN==777B8	;LENGTH-1 OF BAD ADDRESS SUBTABLE
		CC%BRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCRTC==10,,55	;REAL TIME CLOCK (DK10) DDB
	%CCRTD==11,,55	;REAL TIME CLOCK DDB IF HI PREC. TIME ACCT.
	%CCPAR==12,,55	;REL. GETTAB POINTER TO PARITY SUMMARY
		CC%PLN==777B8	;LENGTH-1 OF PARITY SUBTABLE
		CC%PRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCRSP==13,,55	;REL. GETTAB POINTER TO RESPONSE SUMMARY
		CC%RLN==777B8	;LENGTH-1 OF RESPONSE SUBTABLE
		CC%RRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCDKX==14,,55	;NUMBER OF DK10S ON THIS CPU
	%CCEBS==15,,55	;NUMBER OF EBOX TICKS PER SECOND ON KL10
	%CCMBS==16,,55	;NUMBER OF MBOX TICKS PER SECOND ON KL10
	%CCNXT==17,,55	;POINTER TO NXM SUBTABLE IN VARIABLES AREA
		CC%NLN==777B8	;LENGTH-1 OF NXM SUBTABLE
		CC%NRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCCSB==20,,55	;POINTER TO CPU STATUS BLOCK SUBTABLE IN VARIABLES AREA
		CC%CLN==777B8	;LENGTH-1 OF CPU STATUS BLOCK
		CC%CRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCDSB==21,,55	;POINTER TO DEVICE STATUS BLOCK IN VARIABLES AREA
		CC%DLN==777B8	;LENGTH-1 OF DEVICE STATUS BLOCK
		CC%DRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE
	%CCSDP==22,,55	;POINTER TO SBDIAG SUBTABLE IN VARIABLES AREA
		CC%SLN==777B8	;LENGTH-1 OF SBDIAG SUBTABLE
		CC%SRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN THE SUBTABLE
	%CCBPA==23,,55	;POINTER TO PERF. COUNTS IN VARIABLE SUBTABLE
	%CCCIP==24,,55  ;ADDRESS OF CI PORT CONTROL BLOCK
	%CCNIP==25,,55  ;ADDRESS OF NI PORT CONTROL BLOCK
	%CCMSS==26,,55	;POINTER TO KS10 SOFT MEMORY ERROR SUBTABLE
		CC%MLN==777B8	;LENGTH-1 OF SOFT MEMORY ERROR SUBTABLE
		CC%MRA==777777B35 ;RELATIVE ADDRESS OF FIRST WORD IN SUBTABLE

;ENTRIES IN CDB VARIABLES TABLE

	%CVUPT==5,,56	;UPTIME
	%CVLST==12,,56	;LOST TIME
	%CVTPE==14,,56	;TOTAL MEMORY PARITY ERRORS
	%CVSPE==15,,56	;SPURIOUS MEMORY PARITY ERRORS
	%CVMPC==16,,56	;MULTIPLE MEMORY PARITY ERRORS
	%CVMPA==17,,56	;MEMORY PARITY ADDRESS
	%CVMPW==20,,56	;MEMORY PARITY WORD
	%CVMPP==21,,56	;MEMORY PARITY PC
		;HOLES ABOVE HERE BECAUSE OF .GTNSW COMPATABILITY
	%CVABC==27,,56	;ADDRESS BREAK COUNT
	%CVABA==30,,56	;ADDRESS BREAK ADDRESS
	%CVLJR==31,,56	;LAST JOB RUN (OBSOLETE)
	%CVSTS==35,,56	;STOP TIME-SHARING THIS CPU
	%CVRUN==36,,56	;OPERATOR CONTROLLED SCHEDULING
		CV%RUN==1B0	;DON'T RUN JOBS
		CV%RMV==1B1	;REMOVED
		CV%DET==1B2	;DETACHED
		CV%SPD==1B3	;SUSPENDED
        %CVNUL==37,,56	;NULL TIME
	%CVEDI==40,,56	;LH=PC,RH=COUNT OF EXEC DON'T CARE INTERRUPTS.
	%CVJOB==41,,56	;CURRENT JOB
	%CVOHT==42,,56	;OVERHEAD TIME IN JIFFIES (EXEC. UUOS)
	%CVEVM==43,,56	;MAX EVM FOR LOCK UUO MAPPING
	%CVEVU==44,,56	;USED EVM FOR LOCK UUO MAPPING
	%CVLLC==45,,56	;LOCK LOOP COUNT
	%CVTUC==46,,56	;TOTAL UUO COUNT
	%CVTJC==47,,56	;TOTAL JOB CONTEXT SWITCH COUNT
	%CVTNE==50,,56	;TOTAL NXM ERRORS
	%CVSNE==51,,56	;TOTAL NONREPRODUCIBLE NXM ERRORS
	%CVNJA==52,,56	;NUMBER OF JOBS AFFECTED BY THIS NXM
	%CVMNA==53,,56	;FIRST MEMORY ADDRESS WITH NXM
	%CVETJ==54,,56	;EBOX TICKS PER JIFFY (COMPUTED)
	%CVNTJ==55,,56	;MBOX TICKS PER JIFFY (COMPUTED BY ONCE)
	%CVBPA==56,,56	;PHYS ADR OF WORD WITH BAD PARITY ON LAST AR/ARX TRAP (KL)
	%CVTBD==57,,56	;BAD DATA ON LAST AR/ARX TRAP
	%CVTGD==60,,56	;GOOD DATA AFTER RECOV FROM AR/ARX TRAP
	%CVNPT==61,,56	;NUMBER OF AR/ARX TRAPS SINCE RELOAD
	%CVAER==62,,56	;RDERA RESULTS AFTER UNUSUAL APR INTERRUPT
	%CVPCN==63,,56	;CONI APR AFTER PARITY INTERRUPT
	%CVSB0==64,,56	;SBUS DIAG FUNCTION 0 - WORD 0
	%CVS0A==65,,56	;SBUS DIAG FUNCTION 0 - WORD 1
	%CVSB1==66,,56	;SBUS DIAG FUNCTION 1 - WORD 0
	%CVS1A==67,,56	;SBUS DIAG FUNCTION 1 - WORD 1
	%CVPPC==70,,56	;PC ON AR/ARX TRAP
	%CVPFW==71,,56	;PAGE-FAULT WORD ON LAST AR/ARX TRAP
	%CVHPT==72,,56	;NUMBER OF HARD AR/ARX TRAPS
	%CVSPT==73,,56	;NUMBER OF SOFT AR/ARX TRAPS
	%CVPTP==74,,56	;NUMBER OF PAGE TABLE PARITY ERRORS
;ENTRIES IN CDB VARIABLES TABLE (CONTINUED)

	%CVCSN==75,,56	;NUMBER OF CACHE SWEEPS SINCE RELOAD
	%CVCLN==76,,56	;NUMBER OF TIMES A JOB COULDNT RUN DUE TO CACHE STATE
	%CVCLT==77,,56	;LOST TIME ACCRUED DUE TO (%CVCLN ABOVE)
	%CVCSD==100,,56	;INCR'ED IF SWAPPER WAITS FOR ANOTHER CPU TO SWEEP CACHE
	%CVCRN==101,,56	;CACHE SWEEP REQUEST COUNT (SEE COMMON.MAC)
	%CVCEC==102,,56	;COUNT NONRECOVERABLE AR/ARX PARITY ERRORS WHICH INVOLVED CACHE
	%CVPTR==103,,56	;RETRY WORD FOR AR/ARX PARITY ERROR TRAP ROUTINE
	%CVTSD==104,,56	;AR/ARX TRAP ROUTINE HAS SAVED APR ERA.SBDIAGS
			;  FOR ERROR REPORTING
	%CVREP==105,,56	;USED BY NXM/PARITY RECOVERY ROUTINES TO
			 ; DETERMINE TYPES OF ERRORS LISTED
	%CVNDB==106,,56	;NUMBER OF TIMES THIS CPU'S DOORBELL WAS RUNG
	%CVSBR==107,,56	;STATUS BLOCKS READ ON THIS CPU
	%CVBPF==110,,56	;.LE. 0 IF PERFORMANCE COUNTS BEING KEPT (%CCBPA)
	%CVFBI==111,,56	;NUMBER OF DISK FILE BLOCKS INPUT (READ)
	%CVFBO==112,,56 ;NUMBER OF DISK FILE BLOCKS OUTPUT (WRITTEN)
	%CVSBI==113,,56	;NUMBER OF SWAPPING BLOCKS INPUT (READ)
	%CVSBO==114,,56	;NUMBER OF SWAPPING BLOCKS OUTPUT (WRITTEN)
	%CVSNC==115,,56	;NUMBER OF CPU STOPCDS ON THIS CPU
	%CVSND==116,,56	;NUMBER OF DEBUG STOPCDS ON THIS CPU
	%CVSNJ==117,,56	;NUMBER OF JOB STOPCDS ON THIS CPU
	%CVSJN==120,,56	;LAST STOPCD ON THIS CPU -- JOB NUMBER
	%CVSNM==121,,56	;LH=NAME OF LAST STOPCD ON THIS CPU
			;RH=ADDRESS+1 OF LAST STOPCD ON THIS CPU
	%CVSPN==122,,56	;LAST STOPCD ON THIS -- PROGRAM NAME
	%CVSPP==123,,56	;LAST STOPCD ON THIS CPU -- USER PPN
	%CVSTN==124,,56	;LAST STOPCD ON THIS CPU --TTY NAME
	%CVSUP==125,,56	;LAST STOPCD ON THIS CPU -- USER PC
	%CVSUU==126,,56	;LAST STOPCD ON THIS CPU -- UUO
	%CVEJN==127,,56	;LAST PARITY/NXM ERROR ON THIS CPU -- JOB NUMBER
	%CVEPN==130,,56	;LAST PARITY/NXM ERROR ON THIS CPU -- JOB NAME
	%CVPPI==131,,56	;CONI PI, AT LAST PARITY/NXM INTERRUPT
	%CVTPI==132,,56	;CONI PI, AT LAST ERROR TRAP
	%CVRQS==133,,56	;REQUESTS FOR SCHEDULER INTERLOCK
	%CVTFI==134,,56	;NUMBER OF MAGTAPE "FRAMES" INPUT (READ)
	%CVTFO==135,,56 ;NUMBER OF MAGTAPE "FRAMES" OUTPUT (WRITTEN)
	%CVSNI==136,,56	;NUMBER OF NODUMP STOPCDS (BUGINFS)
	%CVSTY==137,,56	;TYPE OF LAST STOPCODE ON THIS CPU
	%CVSUD==140,,56	;UDT OF LAST STOPCODE ON THIS CPU
	%CVITP==141,,56	;INTERVAL TIMER PATCH INSTRUCTION
	%CVITJ==142,,56	;JOB WHICH PATCHED INTERVAL TIMER
;CDB VARIABLES SUBTABLES

;RESPONSE SUBTABLE

	%CVRSO==0	;(REL.) SUM TTY OUT UUO RESPONSE
	%CVRNO==1	;(REL.) NUMBER TTY OUT UUO RESPONSE
	%CVRHO==2	;(REL.) HI-SUM SQ TTY OUT UUO RESPONSE
	%CVRLO==3	;(REL.) LO-SUM SQ TTY OUT UUO RESPONSE
	%CVRSI==4	;(REL.) SUM TTY INP UUO RESPONSE
	%CVRNI==5	;(REL.) NUMBER TTY INP UUO RESPONSE
	%CVRHI==6	;(REL.) HI-SUM SQ TTY INP UUO RESPONSE
	%CVRLI==7	;(REL.) LO-SUM SQ TTY INP UUO RESPONSE
	%CVRSR==10	;(REL.) SUM QUANTUM REQ RESPONSE
	%CVRNR==11	;(REL.) NUMBER QUANTUM REQ RESPONSE
	%CVRHR==12	;(REL.) HI-SUM SQ QUANTUM REQ RESPONSE
	%CVRLR==13	;(REL.) LO-SUM SQ QUANTUM REQ RESPONSE
	%CVRSX==14	;(REL.) SUM ONE OF ABOVE RESPONSE
	%CVRNX==15	;(REL.) NUMBER ONE OF ABOVE RESPONSE
	%CVRHX==16	;(REL.) HI-SUM SQ ONE OF ABOVE RESPONSE
	%CVRLX==17	;(REL.) LO-SUM SQ ONE OF ABOVE RESPONSE
	%CVRSC==20	;(REL.) SUM CPU RESPONSE
	%CVRNC==21	;(REL.) NUMBER CPU RESPONSE
	%CVRHC==22	;(REL.) HI-SUM SQ CPU RESPONSE
	%CVRLC==23	;(REL.) LO-SUM SQ CPU RESPONSE
	;ENTRIES 24-31 (KA10 LONG FLOATING POINT INSTRUCTIONS) ARE OBSOLETE IN 7.02
	%CVFAD==24	;FADL'S SIMULATED
	%CVFSB==25	;FSBL'S SIMULATED
	%CVFMP==26	;FMPL'S SIMULATED
	%CVFDV==27	;FDVL'S SIMULATED
	%CVUFA==30	;UFA'S SIMULATED
	%CVDFN==31	;DFN'S SIMULATED
	%CVNRI==32	;NUMBER OF CHARS (EXCLUDES MIC) RECEIVED
	%CVNXI==33	;NUMBER OF CHARS (INCLUDES FILL) XMITTED
	%CVNEI==34	;NUMBER OF CHARS ECHOED

;PARITY SUBTABLE

	%CVPLA==0	;(REL.) HIGHEST ADDRESS OF PARITY ERROR
	%CVPMR==1	;(REL.) ADDRESS IN SEGMENT OF PARITY ERROR
	%CVPTS==2	;(REL.) NUMBER OF PARITIES THIS SWEEP
	%CVPSC==3	;(REL.) NUMBER OF PARITY SWEEPS
	%CVPUE==4	;(REL.) NUMBER OF USER ENABLED PARITY ERRORS
	%CVPAA==5	;(REL.) AND OF BAD ADDRESS THIS SWEEP
	%CVPAC==6	;(REL.) AND OF BAD CONTENTS THIS SWEEP
	%CVPOA==7	;(REL.) IOR OF BAD ADDRESS THIS SWEEP
	%CVPOC==10	;(REL.) IOR OF BAD CONTENTS THIS SWEEP
	%CVPCS==11	;(REL.) NUMBER OF SPURIOUS CHANNEL ERRORS
	%CVMET==12	;(REL.) NUMBER OF MOS ERRORS THIS MINUTE
	%CVMEC==13	;(REL.) NUMBER OF MOS ERRORS ALLOWED TO GO TO TGHA
	%CVTME==14	;(REL.) NUMBER OF MOS ERROR SINCE SYSTEM UP
;CDB VARIABLES SUBTABLES (CONTINUED)

;NXM SUBTABLE

	%CVNLA==0	;(REL.) LAST NXM ADDRESS
	%CVNMR==1	;(REL.) LAST NXM RELATIVE ADDRESS
	%CVNTS==2	;(REL.) NUMBER OF NXM'S FOUND THIS SWEEP
	%CVNSC==3	;(REL.) NUMBER OF NXM SWEEPS DONE
	%CVNUE==4	;(REL.) NUMBER OF USER ENABLED NXM'S
	%CVNAA==5	;(REL.) LOGICAL AND OF BAD ADDRESSES
	%CVNOA==6	;(REL.) INCLUSIVE OR OF BAD ADDRESSES
	%CVNCS==7	;(REL.) NUMBER OF SPURIOUS CHANNEL NXM'S

;CPU STATUS SUBTABLE

	%CVSAI==0	;APR ID
	%CVSAP==1	;CONI APR,
	%CVSPI==2	;CONI PI,
	%CVSPD==3	;DATAI PAG,
	%CVSPC==4	;CONI PAG,
	;END OF LOCATIONS COLLECTED ON KI10
	%CVSER==11	;RDERA
	%CVSRD==12	;CONI RH20, FOR ALL 8 RH'S
	%CVSDT==22	;CONI DTEN,
	%CVSE0==26	;EPT LOCS 0-37
	%CVSE1==66	;EPT LOCS 140-177
	%CVSU1==126	;UPT LOCS 500-503
	%CVSA6==132	;AC BLOCK 6, REGS 0-3 AND 12
	%CVSA7==137	;AC BLOCK 7, REGS 0-2
	%CVSSB==142	;START OF SBDIAG DATA (MAXIMUM LENGTH = 50 WORDS)

;KL10 BACKGROUND PERFORMANCE ANALYSIS FIGURES SUBTABLE

	%CVCH0==0	;RH20 #0 USAGE
	%CVCH1==4	;RH20 #1 USAGE
	%CVCH2==10	;RH20 #2 USAGE
	%CVCH3==14	;RH20 #3 USAGE
	%CVCH4==20	;RH20 #4 USAGE
	%CVCH5==24	;RH20 #5 USAGE
	%CVCH6==30	;RH20 #6 USAGE
	%CVCH7==34	;RH20 #7 USAGE
	%CVPI0==40	;PI LEVEL 0 (DTE) USAGE
	%CVPI1==44	;PI LEVEL 1 USAGE
	%CVPI2==50	;PI LEVEL 2 USAGE
	%CVPI3==54	;PI LEVEL 3 USAGE
	%CVPI4==60	;PI LEVEL 4 USAGE
	%CVPI5==64	;PI LEVEL 5 USAGE
	%CVPI6==70	;PI LEVEL 6 USAGE
	%CVPI7==74	;PI LEVEL 7 USAGE

;KS MEMORY ERRORS SUBTABLE

	%CVKSE==0	;(REL.) NUMBER OF SOFT MEMORY ERRORS
	%CVKSS==1	;(REL.) MEMORY STATUS REGISTER AT LAST SOFT ERROR
	%CVKHE==2	;(REL.) NUMBER OF HARD MEMORY ERRORS
	%CVKHS==3	;(REL.) MEMORY STATUS REGISTER AT LAST HARD ERROR
.GTFET==71	;FEATURE TEST SETTINGS
	%FTUUO==0,,71	;UUOS
		F%MDA==00,,1B19	;MOUNTABLE DEVICE ALLOCATOR
		F%MLOG==0,,1B20	;MIC LOG FILE SUPPORT
		F%MIC==00,,1B21	;MACRO COMMAND PROCESSOR
		F%EQDQ==0,,1B22	;ENQ./DEQ.
		F%GALA==0,,1B23	;GALAXY-10 FEATURES (ALWAYS ON SINCE 7.00)
		F%PI==000,,1B24	;SOFT. PI SYS
		F%IPCF==0,,1B25	;IPCF
		F%CCIN==0,,1B26	;CONTROL-C INTERCEPT
		F%PTYU==0,,1B27	;JOBSTS AND CNTLJOB UUOS (ALWAYS ON SINCE 7.01)
		F%PEEK==0,,1B28	;PEEK UUO
		F%POKE==0,,1B29	;POKE. UUO
		F%JCON==0,,1B30	;JOB CONTINUE (ALWAYS ON SINCE 7.02)
		F%SPL==00,,1B31	;SPOOLING
		F%PRV==00,,1B32	;JOB PRIVS (ALWAYS ON SINCE 7.01)
		F%DAEM==0,,1B33	;DAEMON FUNCTIONS, ETC.
		F%GETT==0,,1B34	;GETTAB UUO (ALWAYS ON SINCE 7.01)
		F%2REL==0,,1B35	;2-REGISTER RELOCATION (OBSOLETE IN 7.00)
	%FTRTS==1,,71	;REAL TIME AND SCHEDULER
		F%CMSR==1,,1B23	;COMMUNICATION MEASUREMENT CODE
		F%PSCD==1,,1B24	;SCHEDULER PERFORMANCE GATHERING
		F%NSCH==1,,1B25	;NEW SCHEDULER
		F%VM==001,,1B26	;VIRTUAL MEMORY (ALWAYS ON SINCE 7.00)
		F%SWAP==1,,1B27	;SWAPPER (DEFINED IN S) (ALWAYS ON SINCE 7.00)
		F%SHFL==1,,1B28	;SHUFFLER (OBSOLETE IN 7.00)
		F%RTC==01,,1B29	;DK10 SERVICE
		F%LOCK==1,,1B30	;LOCK UUO
		F%TRPS==1,,1B31	;TRPSET UUO
		F%RTTR==1,,1B32	;RTTRAP UUO
		F%SLEE==1,,1B33	;SLEEP UUO (ALWAYS ON SINCE 7.01)
		F%HIBW==1,,1B34	;HIBER/WAKE UUOS (ALWAYS ON SINCE 7.01)
		F%HPQ==01,,1B35	;HIGH PRIORITY RUN QUEUES
	%FTCOM==2,,71	;COMMANDS
		F%PJOB==2,,1B19	;EXTENDED PJOB COMMAND (ALWAYS ON SINCE 7.02)
		F%EXE==02,,1B20	;.EXE FORMAT FILES SUPPORTED
		F%MOFF==2,,1B21	;SET MEMORY OFF LINE
		F%MONL==2,,1B22	;SET MEMORY ON LINE
		F%CCL==02,,1B23	;COMPIL COMMANDS (DEFINED IN S) (ALWAYS ON SINCE 7.00)
		F%CCLX==2,,1B24	;COMPIL-CLASS (ALWAYS ON SINCE 7.01)
		F%QCOM==2,,1B25	;QUEUE AND FRIENDS (ALWAYS ON SINCE 7.01)
		F%SET==02,,1B26	;SET UUO/COMMAND (ALWAYS ON SINCE 7.01)
		F%VERS==2,,1B27	;VERSION
		F%BCOM==2,,1B28	;BATCH CONTROL FILE (ALWAYS ON SINCE 7.01)
		F%SEDA==2,,1B29	;SET DAYTIME AND SET DATE (ALWAYS ON SINCE 7.01)
		F%WATC==2,,1B30	;WATCH
		F%FINI==2,,1B31	;FINISH AND CLOSE (ALWAYS ON SINCE 7.01)
		F%REAS==2,,1B32	;REASSIGN UUO/COMMAND (ALWAYS ON SINCE 7.01)
		F%EXAM==2,,1B33	;E AND D (ALWAYS ON SINCE 7.01)
		F%TALK==2,,1B34	;SEND (ALWAYS ON SINCE 7.01)
		F%ATTA==2,,1B35	;ATTACH COMMAND/UUO (ALWAYS ON SINCE 7.02)
	%FTACC==3,,71	;ACCOUNTING INFO
		F%ACCT==3,,1B28	;ACCOUNTING SUPPORT (ALWAYS ON SINCE 7.02)
		F%EMRT==3,,1B29	;KL10 EBOX/MBOX USER RUNTIME CAPABILITY
		F%FDAE==3,,1B30 ;FILE DAEMON SUPPORT
		F%TLIM==3,,1B31	;TIME/CORE LIMITS, ETC. (ALWAYS ON SINCE 7.02)
		F%CNO==03,,1B32	;CHARGE NUMBER (ALWAYS ON SINCE 7.02)
		F%UNAM==3,,1B33	;USER NAME (ALWAYS ON SINCE 7.01)
		F%KCT==03,,1B34	;KILO-CORE-TICKS (ALWAYS ON SINCE 7.02)
		F%TIME==3,,1B35	;RUN TIME (ALWAYS ON SINCE 7.02)
	%FTERR==4,,71	;ERROR CONTROL AND OPTIONS
		F%SCA==04,,1B19	;SYSTEMS COMMUNICATIONS ARCHITECTURE SUPPORT
		F%KLP==4,,1B20	;KL10 PAGING
		F%KS10==4,,1B21	;THIS IS A KS10
		F%MNXM==4,,1B22	;NXM ERROR RECOVERY CODE (ALWAYS ON SINCE 7.00)
		F%KL10==4,,1B23	;THIS IS A KL10
		F%KA10==4,,1B24	;THIS IS A KA10 (OBSOLETE IN 7.00)
		F%22BI==4,,1B25	;22 BIT CHANNEL (DF10C) (ALWAYS ON SINCE 7.02)
		F%PDBS==4,,1B26	;SWAPPING PDB (OBSOLETE IN 7.00)
		F%KI10==4,,1B27	;THIS IS A KI10
		F%METR==4,,1B28	;METER. UUO
		F%EXON==4,,1B29	;EXECUTE ONLY FILES (ALWAYS 1 SINCE 5.06)
		F%KII==04,,1B30	;KI-10 INSTR CHECK ON KA10 (ALWAYS ON SINCE 7.01)
		F%BOOT==4,,1B31	;BOOT BOOTSTRAP (ALWAYS ON SINCE 7.01)
		F%2SWP==4,,1B32	;MULT. SWAPPING DEVICES (ALWAYS ON SINCE 7.02)
		F%EL==004,,1B33	;DAEMON ERROR LOGGING
		F%MS==004,,1B34	;MULTI-PROCESSORS
		F%MEMP==4,,1B35	;MEMORY PARITY RECOVERY CODE (ALWAYS ON SINCE 7.00)
	%FTDEB==5,,71	;DEBUGGING FEATURES
		F%2SEG==5,,1B27	;2 SEGMENT MONITOR (ALWAYS ON SINCE 7.00)
		F%RSP==05,,1B28	;RESPONSE TIME
		F%WHY==05,,1B29	;WHY RELOAD (ALWAYS ON SINCE 7.02)
		F%PATT==5,,1B30	;PATCH SPACE IN TABLES
		F%TRAC==5,,1B31	;BACK TRACKING FEATURES (OBSOLETE SINCE 7.02)
		F%HALT==5,,1B32	;HALTS IN MONITOR (ALWAYS ON SINCE 7.01)
		F%RCHK==5,,1B33	;INTERNAL REDUNDANCY CHECKS (ALWAYS ON SINCE 7.01)
		F%MONP==5,,1B34	;MONITOR WRITE PROTECTED (OBSOLETE SINCE 7.00)
		F%CHEC==5,,1B35	;MONITOR CHECKSUMMED (OBSOLETE SINCE 7.00)
	%FTSTR==6,,71	;FILE STRUCTURE PARAMS
		F%DHIA==6,,1B19	;HIGH AVAIL. FEATURES
		F%DSIM==6,,1B20	;MULTI. ACCESS UPDATE
		F%NUL==06,,1B21	;NUL
		F%LIB==06,,1B22	;LIB/SYS/OLD/NEW ETC. (ALWAYS ON SINCE 7.02)
		F%DPRI==6,,1B23	;DISK PRIORITY TRANSFERS
		F%APLB==6,,1B24	;APPEND TO LAST BLOCK
		F%AIR==06,,1B25	;APPEND IMPLIES READ (ALWAYS ON SINCE 7.02)
		F%GSRC==6,,1B26	;GENERIC DEVICE SEARCH
		F%DRDR==6,,1B27	;RENAME ACROSS DIRECTORIES
		F%DSEK==6,,1B28	;SEEK UUO (ALWAYS OFF SINCE 7.02)
		F%DSUP==6,,1B29	;SUPER USETI/O
		F%DQTA==6,,1B30	;DISK QUOTAS
		F%STR==06,,1B31	;MULTIPLE STRUCTURES (ALWAYS ON SINCE 7.02)
		F%5UUO==6,,1B32	;MISC. 5-SERIES UUOS (ALWAYS ON SINCE 7.01)
		F%PHYO==6,,1B33	;PHYSICAL ONLY (ALWAYS ON SINCE 7.01)
		F%SFD==06,,1B34	;SUB FILE DIRECTORIES (ALWAYS ON SINCE 7.02)
		F%MOUN==6,,1B35	;STRUUO FUNCTIONS (ALWAYS ON SINCE 7.01)
	%FTDSK==7,,71	;INTERNAL DISK PARAMS
		F%SLCK==7,,1B19	;DEBUG SEARCH LIST CODE
		F%2ATB==7,,1B20	;2 PART ACCESS BLOCKS (OBSOLETE IN 7.01)
		F%CBDB==7,,1B21	;DEBUG CB INTERLOCK
		F%LOGI==7,,1B22	;LOGIN (DEFINED IN S) (ALWAYS ON SINCE 7.00)
		F%DISK==7,,1B23	;DISK SYSTEM (DEFINED IN S) (ALWAYS ON SINCE 7.00)
		F%FFRE==7,,1B24	;PREVENT RACES IN FILFND (OBSOLETE IN 7.01)
		F%SWPE==7,,1B25	;SWAP READ ERROR RECOVERY (ALWAYS ON SINCE 7.02)
		F%DBBK==7,,1B26	;BAD BLOCK MARKING
		F%DUFC==7,,1B27	;UFD COMPRESSOR
		F%DETS==7,,1B28	;DISK ERROR SIMULATOR (OBSOLETE SINCE 7.02)
		F%DMRB==7,,1B29	;MULTI RIBS
		F%DSMC==7,,1B30	;SMALLER ALLOC. OF DISK CORE BLOCKS (ALWAYS ON SINCE 7.01)
		F%DALC==7,,1B31	;ALLOCATION OPTIMIZATIONS
		F%DSTT==7,,1B32	;DISK USAGE STATISTICS
		F%DHNG==7,,1B33	;HUNG DISK RECOVERY (ALWAYS ON SINCE 7.02)
		F%DBAD==7,,1B34	;DISK OFF-LINE RECOVERY
		F%DOPT==7,,1B35	;LATENCY OPTIMIZATION (ALWAYS ON SINCE 7.02)
	%FTSCN==10,,71	;SCANNER OPTIONS
		F%RP04==10,,1B20 ;INCLUDE RP04 SUPPORT (ALWAYS ON SINCE 7.01)
		F%RDX==010,,1B21 ;REMOTE DATA ENTRY SERVICE
		F%DCXH==10,,1B22;DC10-H (2741 ON DC10) (OBSOLETE IN 7.04)
		F%TVP==010,,1B23;FANCY VERTICAL POSITIONING
		F%TYPE==10,,1B24;TYPESET-10 FEATURES IN DC76 (OBSOLETE IN 7.00)
		F%2741==10,,1B25;SUPPORT 2741-LIKE TERMINALS (OBSOLETE IN 7.03)
		F%CAFE==10,,1B26;DC76 (ALWAYS ON SINCE 7.02)
		F%TBLK==10,,1B27;TTY BLANK COMMAND
		F%TPAG==10,,1B28;PAGE AND DISPLAY KNOWLEDGE
		F%DIAL==10,,1B29;AUTO DIALER
		F%SCLC==10,,1B30;SPECIAL LINE CONTROL (ALWAYS ON SINCE 7.02)
		F%SCNR==10,,1B31;HARDWARE SCANER (ALWAYS ON SINCE 7.02)
		F%MODM==10,,1B32;MODEM CONTROL
		F%630H==10,,1B33;SINGLE SCANNER 630
		F%GPO2==10,,1B34;U.K. MODEM SUPPORT (OBSOLETE IN 7.03)
		F%HDPX==10,,1B35;TRULY HALF DUPLEX TERMINALS (OBSOLETE IN 7.03)
	%FTPER==11,,71	;I/O PARAMS
		F%RDBA==11,,1B19;READ BACKWARDS ON TU70 (ALWAYS ON SINCE 7.01)
		F%TAPO==11,,1B20;TAPOP. UUO (ALWAYS ON SINCE 7.01)
		F%TLAB==11,,1B21;TAPE LABEL SUPPORT
		F%TASK==11,,1B22;TASK TO TASK NETWORK SUPPORT
		F%DAS7==11,,1B23;DAS78 (REMOTE 360/370/2780) SUPPORT
		F%XTC==011,,1B24;DA28-C NETWORK SUPPORT
		F%MSGS==11,,1B25;MSGSER (MPX DEVICE)
		F%HSLN==11,,1B26;HIGH-SPEED LOGICAL DEVICE SEARCH (ALWAYS ON SINCE 7.01)
		F%CPTR==11,,1B27;CDP TROUBLE INTERCEPT (ALWAYS ON SINCE 7.02)
		F%CRTR==11,,1B28;CDR TROUBLE INTERCEPT (ALWAYS ON SINCE 7.02)
		F%CTY1==11,,1B29;SUPPORT CTY1 (ALWAYS ON SINCE 7.00)
		F%NET==011,,1B30;NETWORK SOFTWARE
		F%REM==011,,1B30;REMOTE STATION SOFTWARE
		F%LPTR==11,,1B31;LPT DEVICE ERROR RECOVERY (ALWAYS ON SINCE 7.02)
		F%OPRE==11,,1B32;DEVICE ERRS TO OPER (ALWAYS ON SINCE 7.00)
		F%CDRS==11,,1B33;CDR SUPER IMAGE MODE (ALWAYS ON SINCE 7.02)
		F%MTSE==11,,1B34;MTA DENSITY/BLOCK COMMANDS (ALWAYS ON SINCE 7.02)
		F%TMP==011,,1B35;TMPCOR AREA (ALWAYS ON SINCE 7.00)
	%FTPE2==12,,71	;I/O PARAMS (SECOND WORD)
		F%DX10==12,,1B35 ;DX10 DEVICE - CHAINING (MAGTAPES)
	%FTDS2==13,,71	;INTERNAL DISK PARAMS
		F%DUAL==13,,1B35 ;DUAL-PORTED DISKS (RP04,RP06)
	%FTST2==14,,71	;FILE STRUCTURE PARAMS
		F%SETS==14,,1B34 ;DISK SETS
		F%PSTR==14,,1B35 ;PRIVATE FILE STRUCTURE
	%FTUU2==15,,71	;UUOS
		F%MPB==15,,1B35	 ;OLD BATCH CODE
.GTEDN==72	;ERSATZ DEVICE NAMES
.GTSCN==73	;SCANNER DATA
	%SCNRI==0,,73	;NUMBER OF CHARACTERS RECEIVED
	%SCNXI==1,,73	;NUMBER OF CHARACTERS TRANSMITTED (INCLUDES FILL AND ECHO)
	%SCNEI==2,,73	;NUMBER OF CHARACTERS ECHOED
	%SCNMB==3,,73	;MAX BUFFER SIZE
	%SCNAL==4,,73	;NUMBER OF ACTIVE LINES
	%SCNPS==5,,73	;SIZE OF BUFFER FOR PIM MODE
	%SCNRA==6,,73	;ADDRESS OF RECINT
	%SCNXA==7,,73	;ADDRESS OF XMTINT
	%SCNTA==10,,73	;(OBSOLETE)
	%SCTFT==11,,73	;ADDRESS OF FIRST TTY CHUNK ON FREE LIST
	%SCTFP==12,,73	;ADDRESS OF LAST TTY CHUNK ON FREE LIST
	%SCRCQ==13,,73	;NUMBER OF CHARACTERS WHICH HAD TO BE QUEUED/DEFERED
	%SCRQF==14,,73	;NUMBER OF QUEUE OVERFLOWS/CHARACTERS LOST
	%SCNTW==15,,73	;NUMBER OF TIMES LDBTIC WAS WRONG
.GTSNA==74	;LAST SEND ALL IN 9-BIT
	%SCNAE==0,,74	;BYTE POINTER TO END BYTE IN MESSAGE
	%SCNAS==1,,74	;BYTE POINTER TO FIRST-1 BYTE IN MESSAGE
	%SCNAM==2,,74	;FIRST WORD OF DATA IN MESSAGE
.GTCMT==75	;SET TTY COMMAND NAMES
.GTPID==76	;PROCESS COMMUNICATION ID (IPCF)
.GTIPC==77	;IPCF MISC. DATA
	%IPCML==0,,77	;MAX. PACKET LENGTH
	%IPCSI==1,,77	;PID OF SYSTEM-WIDE [SYSTEM]INFO
	%IPCDQ==2,,77	;DEFAULT QUOTA
	%IPCTS==3,,77	;TOTAL PACKETS SENT
	%IPCTO==4,,77	;TOTAL PACKETS OUTSTANDING
	%IPCCP==5,,77	;PID OF [SYSTEM]IPCC
	%IPCPM==6,,77	;PID MASK
	%IPCMP==7,,77	;LENGTH OF PID TABLE
	%IPCNP==10,,77	;NUMBER OF PIDS NOW DEFINED
	%IPCTP==11,,77	;TOTAL PIDS DEFINED SINCE RELOAD
	%IPCIC==12,,77	;NUMBER OF IPCF PAGES CURRENTLY IN CORE
	%IPCSP==13,,77	;PID OF [SYSTEM]GOPHER
	%IPTWT==14,,77	;TOTAL WORDS TRANSFERED (WORD-MODE PACKETS)
	%IPTPT==15,,77	;TOTAL PAGES TRANSFERED (PAGE-MODE PACKETS)
	%IPOPP==16,,77	;OVERHEAD PER PACKET
	%IPDPQ==17,,77	;DEFAULT PID QUOTA
.GTUPM==100	;USER PAGE MAP PAGE
.GTCMW==101	;SET WATCH COMMAND NAMES
.GTCVL==102	;CURRENT VIRT LIMIT,,CURRENT PHY LIMIT
.GTMVL==103	;MAXIMUM VIRT LIMIT,,MAXIMUM PHY LIMIT
.GTIPA==104	;IPCF STATISTICS PER JOB
	IP.CQD==-1,,0	;COUNT OF SENDS SINCE LOGIN
	IP.CQC==0,,-1	;COUNT OF RECEIVES SINCE LOGIN
.GTIPP==105	;IPCF POINTERS AND COUNTS
	IP.CQP==777B26	;OUTSTANDING SENDS
	IP.CQO==777	;OUTSTANDING RECEIVES
.GTIPI==106	;PID FOR THIS JOB'S [SYSTEM]INFO
.GTIPQ==107	;IPCF FLAGS AND QUOTAS PER JOB
	IP.CQX==1B0	;DISABLED
	IP.CQQ==1B1	;QUOTA SET
	IP.CQS==777B26	;SEND QUOTA
	IP.CQR==777B35	;RECEIVE QUOTA
.GTDVL==110	;POINTER TO THIS JOB'S LOGICAL NAME TABLE
.GTABS==111	;ADDRESS BREAK WORD (DATAO PTR,)
.GTCMP==112	;OBSOLETE
	%CMPMT==0,,112	;OBSOLETE
	%CMPCV==1,,112	;OBSOLETE
	%CMPDV==2,,112	;OBSOLETE
.GTVM==113	;GENERAL VIRTUAL MEMORY DATA
	%VMSWP==0,,113	;SWAP COUNT
	%VMSCN==1,,113	;SCAN COUNT
	%VMSIP==2,,113	;SWAPS IN PROGRESS
	%VMSLE==3,,113	;SWAP LIST ENTRIES
	%VMTTL==4,,113	;TOTAL VM IN USE
	%VMCMX==5,,113	;MAX VALUE OF %VMTTL ALLOWED
	%VMRMX==6,,113	;PAGING RATE MAX FOR SYSTEM (OBSOLETE)
	%VMCON==7,,113	;CONSTANT USED IN SWAP RATE COMPUTATION
	%VMQJB==10,,113	;JOB TO REQUE TO PQV (-1 IF ALL) (OBSOLETE)
	%VMRMJ==11,,113	;PAGING RATE MAX PER JOB (OBSOLETE)
	%VMTLF==12,,113	;TIME OF LAST FAULT
	%VMSPF==13,,113	;SYSTEM PAGE FAULT COUNTS: NOT IN WS,,IN WS (OBSOLETE)
	%VMSW1==14,,113	;ADDRESS OF SWPLST
	%VMSW2==15,,113	;ADDRESS OF SW2LST
	%VMSW3==16,,113	;ADDRESS OF SW3LST
	%VMEXP==17,,113	;TIME CONSTANT EXPONENT
	%VMDIF==20,,113	;%VMEXP - %VMCON
	%VMMXI==21,,113	;MAX. INTERVAL FOR FAULT-RATE CALCULATION
	%VMIPC==22,,113	;COUNT OF IPCF PAGES BEING SWAPPED OUT
	%VMUPJ==23,,113	;OFFSET OF JOB NUMBER IN UPMP
	%VMUPR==24,,113	;OFFSET OF END OF LOW SEG IN UPMP
	%VMLST==25,,113	;OFFSET OF POINTER TO SWAPPABLE DDBS IN UPMP
	%VMUPM==26,,113	;VIRTUAL ADDRESS OF UPMP
	%VMLNM==27,,113	;OFFSET OF POINTER TO LOGICAL NAMES IN UPMP
	%VMIC1==30,,113	;NUMBER OF SWAP INPUT REQUESTS IN SWPLST
	%VMHUA==31,,113	;HIGHEST "UNMAPPED" EXEC ADDRESS
	%VMPPB==32,,113	;"PER PROCESS" BEGINING (EXEC VIRTUAL) ADDRESS
	%VMPPE==33,,113	;"PER PROCESS" END (+1) (EXEC VIRTUAL) ADDRESS
	%VMPPJ==34,,113	;"PER PROCESS" ADDRESS OF USER JOBDAT (PAGE 0)
	%VMFCC==35,,113	;OFFSET IN UPMP FOR TMPCOR POINTERS
	%VMCTA==36,,113	;OFFSET IN UPMP FOR EXTENDED CHANNEL TABLE POINTER
	%VMJDA==37,,113	; EXEC VIRTUAL ADDRESS OF USRJDA
	%VMRMC==40,,113	;REAL MAXIMUM CORMAX (MAXMAX ADJ. FOR FUNNY SPACE)
	%VMMPC==41,,113	;SYSTEM COUNT OF MODIFIED PAGES (WRITE LOCKED FAULTS)
	%VMIWS==42,,113	;SYSTEM COUNT OF "IN WORKING SET" FAULTS
	%VMNIW==43,,113	;SYSTEM COUNT OF "NOT IN WORKING SET" FAULTS
	%VMPTB==44,,113	;ADDRESS OF PAGTAB
	%VMPT2==45,,113	;ADDRESS OF PT2TAB
	%VMMTB==46,,113	;ADDRESS OF MEMTAB
	%VMEVM==47,,113	;AOBJN POINTER TO EVM BITMAP
	%VMPTR==50,,113	;POINTER TO FREE PAGES (PAGPTR)
	%VMINQ==51,,113	;HEADER OF THE "IN" QUEUE
	%VMINC==52,,113	;COUNT OF PAGES IN THE "IN" QUEUE
	%VMSNQ==53,,113	;HEADER OF THE SLOW IN QUEUE
	%VMSNC==54,,113	;COUNT OF PAGES IN THE SLOW "IN" QUEUE
	%VMIPQ==55,,113	;HEADER OF THE IN-PROGRESS PAGING QUEUE
	%VMIPC==56,,113	;COUNT OF PAGES IN THE IN-PROGRESS QUEUE
	%VMOUQ==57,,113	;HEADER OF THE "OUT" PAGING QUEUE
	%VMOUC==60,,113	;COUNT OF PAGES IN THE "OUT" QUEUE
	%VMLPT==61,,113	;HEADER OF THE QUEUE OF LOCKING PAGES
	%VMLPC==62,,113	;NUMBER OF PAGES IN THE LOCK QUEUE
	%VMLCT==63,,113	;NUMBER OF AVAILABLE PAGES ACCOUNTING FOR %VMLPC
.GTVRT==114	;PER JOB PAGING RATE
.GTSST==115	;SCHEDULER STATISTICS
	%SSOSO==0,,115	;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
		; THEM TO GIVE UP RESOURCE FOR SWAP OUT.
	%SSORJ==1,,115	;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
		; THEM TO GIVE UP RESOURCE REQUIRED TO RUN A JOB
	%SSNUL==2,,115	;SWAPPER NULL TIME
	%SSLOS==3,,115	;SWAPPER LOST TIME
	%SSRQC==4,,115	;TOTAL NUMBER OF REQUEUES
	%SSICM==5,,115	;OBSOLETE
	%SSMSI==6,,115	;MEDIUM TERM SCHEDULING INTERVAL
	%SSAJS==7,,115	;AVERAGE JOB SIZE
	%SSTQT==10,,115	;TOTAL QUOTA TIME
	%SSEAF==11,,115	;OBSOLETE
	%SSEAT==12,,115	;OBSOLETE
	%SSRSS==13,,115	;TOTAL USER RUNTIME SINCE SCHED. UUO
			; SET CLASS PARAMETERS
	%SSCLS==14,,115	;DEFAULT CLASS FOR NEW JOBS
	%SSJIL==15,,115	;% OF TIME SCHED SCANS SWAPPED IN QUEUE BEFORE SUBQUEUES
	%SSSWP==16,,115	;MINIMUM # OF TICKS SWAPPER SCANS THE SAME PRIMARY SUBQUEUE
	%SSBBQ==17,,115	;BACKGROUND BATCH SUBQUEUE
	%SSBBS==20,,115	;# OF TICKS BETWEEN BACKGROUND BATCH SWAPS
	%SSIOF==21,,115	;% OF TIME SWAPPER SCANS PQ2 INCORE CHAIN BEFORE OUTCORE CHAIN
	%SSSET==22,,115	;=0 IF ROUND ROBIN SCHEDULING, =DATE/TIME
			; WHEN CLASS RUNTIME TABLE INITIALIZED IF CLASS SCHEDULING
	%SSFLG==23,,115	;=0 IF ROUND ROBIN SCHEDULING
			;=COUNT OF CPU CLASSES WITH NON-ZERO QUOTA IF SCHEDULING
	%SSCOR==24,,115	;SECONDS TO WAIT AFTER SWAPPING OUT A RUNNABLE JOB
			; BEFORE IGNORING INCORE PROTECT TIME
.GTDCF==116	;OBSOLETE
.GTST2==117	;SECOND JOB STATUS WORD
.GTJTC==120	;JOB TYPE AND SCHEDULER CLASS
.GTCQP==121	;CLASS QUOTA IN PERCENT (INDEX BY CLASS)
.GTCQJ==122	;OBSOLETE
.GTSQP==122	;SECONDARY QUOTA PERCENTAGE 
.GTCRT==123	;CLASS RUNTIME SINCE QUOTAS SET (INDEX BY CLASS)
.GTSQH==124	;OBSOLETE
.GTSQ==125	;OBSOLETE
.GTSID==126	;SPECIAL PID TABLE
	%SIIPC==0,,126	;[SYSTEM]IPCC
	%SIINF==1,,126	;[SYSTEM]INFO
	%SIQSR==2,,126	;[SYSTEM]QUASAR
	%SIMDA==3,,126	;MOUNTABLE DEVICE ALLOCATOR
	%SITLP==4,,126	;MAGTAPE LABELING PROCESS
	%SIFDA==5,,126	;FILE DAEMON
	%SIMDC==6,,126	;MOUNTABLE DEVICE COORDINATOR (HISTORICAL)
	%SITOL==6,,126	;TAPE AVR PROCESS
	%SIACT==7,,126	;[SYSTEM]ACCOUNTING
	%SIOPR==10,,126	;OPERATOR INTERFACE
	%SISEL==11,,126	;SYSTEM ERROR LOGGER
	%SIDOL==12,,126	;DISK AVR PROCESS
	%SITGH==13,,126	;[SYSTEM]TGHA
	%SINML==14,,126	;DECNET NETWORK MANAGMENT LAYER LISTENER
	%SIGFR==15,,126	;PID OF [SYSTEM]GOPHER
	%SICAT==16,,126 ;PID OF [SYSTEM]CATALOG
	%SIMAI==17,,126 ;PID OF [SYSTEM]MAILER
.GTENQ==127		;ENQ./DEQ. STATISTICS
	%EQMSS==0,,127	;MAXIMUM STRING SIZE
	%EQNAQ==1,,127	;NUMBER OF ACTIVE QUEUES
	%EQESR==2,,127	;TOTAL ENQ. SINCE RELOAD
	%EQDSR==3,,127	;TOTAL DEQ. SINCE RELOAD
	%EQAPR==4,,127	;ACTIVE POOLED RESOURCES
	%EQDEQ==5,,127	;DEFAULT ENQ. QUOTA
	%EQMMS==6,,127	;MAXIMUM PIE-SLICE LOCK MASK BLOCK SIZE
	%EQMTS==7,,127	;MAXIMUM LOCK-ASSOCIATED TABLE SIZE
	%EQLTL==10,,127	;MINUTES UNUSED LONG TERM LOCKS STAY AROUND
	%EQNDD==11,,127	;NUMBER OF DEADLOCKS DETECTED
	%EQNTO==12,,127	;NUMBER OF TIMEOUTS
	%EQMAQ==13,,127	;MAXIMUM NUMBER OF ACTIVE QUEUES
.GTJLT==130		;JOB LOGIN TIME IN UNIVERSAL FORMAT
.GTEBT==131		;JIFFIES OF KL10 EBOX TIME
.GTEBR==132		;JIFFY REMAINDER MOD RTUPS OF 131
.GTMBT==133		;JIFFIES OF KL10 MBOX TIME
.GTMBR==134		;JIFFY REMAINDER MOD RTUPS OF 133
.GTRDV==135		;DEVICE PROGRAM IS RUN FROM
.GTRDI==136		;DIRECTORY PROGRAM IS RUN FROM
.GTRFN==137		;FILE PROGRAM IS RUN FROM
.GTDFL==140		;USER'S DEFAULTS
	JD.PRT==777B8	;DEFAULT PROTECTION
	JD.SDP==1B9	;SET IF USER SET DEFAULT PROTECTION
	JD.DAD==1B12	;SET IF LOGIN SHOULDN'T ASK ABOUT DETACHED JOBS
	JD.BUF==777B35	;NUMBER OF DEFAULT DISK BUFFERS
	JD.MSK==200777B26 ;RESERVED FOR DEC
.GTNTP==141		;NETWORK PERFORMANCE ANALYSIS DATA
	%NTCOR==0,,141	;NUMBER OF WORDS OF FREE SPACE NOW IN USE
	%NTMAX==1,,141	;MAXIMUM VALUE %NTCOR HAS REACHED
	%NTAVG==2,,141	;EXPONENTIAL AVERAGE OF %NTCOR (*10^4)
	%NTBAD==3,,141	;NUMBER OF BAD MESSAGES RECEIVED AND IGNORED

			;THE FOLLOWING SUBTABLE POINTERS ARE OF THE FORM:
			;     <MAX_ENTRY>B8 + <OFFSET_IN_.GTNTP>
	%NTRTP==4,,141	;RECEIVED NCL MESSAGE TYPES
	%NTRMT==5,,141	;RECEIVED NCL NUMBERED MESSAGE TYPES
	%NTRDL==6,,141	;RECEIVED NCL DATA MESSAGE LENGTHS BY POWERS OF 2
			;0 = 0 BYTES AND MESSAGES TOO LONG
			;1 = 1 BYTE
			;2 = 2-3 BYTES
			;3 = 4-7 BYTES ...
	%NTXTP==7,,141	;XMITTED NCL MESSAGE TYPES
	%NTXMT==10,,141	;XMITTED NCL NUMBERED MESSAGE TYPES
	%NTXDL==11,,141	;XMITTED NCL DATA MESSAGE LENGTHS BY POWERS OF 2
	%NTBLC==12,,141	;RH - PDB ADDRESS OF LAST BAD MESSAGE
			;LH - PC OF DETECTION
	%NTBYI==13,,141	;NUMBER OF INPUT BYTES PROCESSED
	%NTBYO==14,,141	;NUMBER OF OUTPUT BYTES PROCESSED
	%NTNIP==15,,141	;ANF/ETHERNET PROTOCOL NUMBER (0 IF NOT ENABLED)
	%NTNIA==16,,141	;ANF/ETHERNET MULTICAST ADDRESS (HIGH FOUR BYTES)
	%NTNIM==17,,141	;ANF/ETHERNET MULTICAST ADDRESS (LOW TWO BYTES OR ZERO)
	%NTNII==20,,141	;ANF/ETHERNET BROADCAST INTERVAL MAXIMUM
	%NTNIJ==21,,141	;ANF/ETHERNET FEK KEEP-ALIVE TIMER VALUE
.GTSPA==142		;SCHEDULER PERFORMANCE ANALYSIS DATA
	%SPDGS==0,,142	;DTA GENERATED SLEEPS
	%SPMGS==1,,142	;MTA GENERATED SLEEPS
	%SPEWS==2,,142	;EVENT WAIT SATISFIED
	%SPTIS==3,,142	;TTY INPUT SATISFIED
	%SPTOS==4,,142	;TTY OUTPUT SATISFIED
	%SPPIS==5,,142	;PTY INPUT SATISFIED
	%SPPOS==6,,142	;PTY OUTPUT SATISFIED
	%SPRS1==7,,142	;REQUEUES FROM SS INTO PQ1
	%SPRW1==10,,142	;REQUEUES FROM WAKE INTO PQ1
	%SPRD1==11,,142	;REQUEUES FROM DAEMON SATISFIED INTO PQ1
	%SPRO1==12,,142	;OTHER REQUEUES INTO PQ1
	%SPQR1==13,,142	;PQ1 JOBS WHICH EXPIRED QUANTUM RUNTIME
	%SPQR2==14,,142	;PQ2 JOBS WHICH EXPIRED QUANTUM RUNTIME
	%SPQRH==15,,142	;HPQ JOBS WHICH EXPIRED QUANTUM RUNTIME
	%SPIP1==16,,142	;PQ1 JOBS WHICH EXPIRED INCORE PROTECT TIME
	%SPIP2==17,,142	;PQ2 JOBS WHICH EXPIRED INCORE PROTECT TIME
	%SPIPH==20,,142	;HPQ JOBS WHICH EXPIRED INCORE PROTECT TIME
	%SPKS1==21,,142	;K SWAPPED IN FOR PQ1 JOBS
	%SPKS2==22,,142	;K SWAPPED IN FOR PQ2 JOBS
	%SPKSH==23,,142	;K SWAPPED IN FOR HPQ JOBS
	%SPNJ1==24,,142	;NUMBER OF PQ1 JOBS SWAPPED IN
	%SPNJ2==25,,142	;NUMBER OF PQ2 JOBS SWAPPED IN
	%SPNJH==26,,142	;NUMBER OF HPQ JOBS SWAPPED IN
	%SPTC1==27,,142	;TICS CHARGED TO PQ1
	%SPTC2==30,,142	;TICS CHARGED TO PQ2
	%SPTCH==31,,142	;TICS CHARGED TO HPQ
	%SPNRS==32,,142	;NUMBER OF RESPONSES FOR PQ1/CMQ SWAP IN
	%SPNTS==33,,142	;TOTAL TICS OF RESPONSE FOR PQ1/CMQ SWAP IN
	%SPSSS==34,,142	;SUM SQUARES OF PQ1/PQ2 SWAP IN (2 WORD INTEGER)
	%SPMWC==36,,142	;NUMBER OF MEASUREMENTS OF WASTED CORE
	%SPSWC==37,,142	;SUM OF WASTED CORE IN PAGES
	%SPSSC==40,,142	;SUM SQUARES OF WASTED CORE (2 WORD INTEGER)
.GTVKS==143		;VIRTUAL KILO-CORE TICKS
.GTUUC==144		;COUNT OF UUOS DONE PER JOB
.GTRS0==145		;FIRST SFD IN PATH PROGRAM WAS RUN FROM
.GTRS1==146		;SECOND SFD IN PATH PROGRAM WAS RUN FROM
.GTRS2==147		;THIRD SFD IN PATH PROGRAM WAS RUN FROM
.GTRS3==150		;FOURTH SFD IN PATH PROGRAM WAS RUN FROM
.GTRS4==151		;FIFTH SFD IN PATH PROGRAM WAS RUN FROM
.GTPC==152		;I/O WAIT DDB,,USER PC
.GTCAP==153		;JOB'S CAPABILITY WORD (MAXIMUM PRIVILEGES)
.GTIDX==154		;MINIMUM AND MAXIMUM RANGE OF SPECIFIED GETTAB TABLE
	ID.MIN==777777B17	;MINIMUM PROGRAMS SHOULD DO A HLRE IN CASE NEGATIVE
	ID.MAX==777777B35	;MAXIMUM PROGRAMS SHOULD DO A HRRE IN CASE NEGATIVE
.GTGTB==155		;GETTAB IMMEDIATE THE GETTAB TABLE USING THE RANGE TABLE
			; SEE .GTSLF
.GTTNM==156		;SIXBIT NAMES OF TERMINALS SUPPORTED IN TRMOP.,.TOTRM(1041)
.GTOBI==157		;OPERATOR/BATCH INFO
	OB.WTO==3B1	;WRITE TO OPERATOR CAPABILITIES
		.OBALL==0	;WTO AND WTOR ALLOWED
		.OBNWR==1	;NO WTOR ALLOWED (WTO ONLY)
		.OBNOM==2	;NO MESSAGES TO OPERATOR ALLOWED
	OB.OPR==7B4	;OPERATOR PRIVS
		.OBNOP==0	;NO OPERATOR PRIVILEGES
		.OBSOP==1	;SYSTEM OPERATOR PRIVILEGES
		.OBHOP==2	;HOST OPERATOR PRIVILEGES
		.OBROP==3	;REMOTE OPERATOR PRIVILEGES
	OB.BSS==1B10	;BATCH STREAM NUMBER SET
	OB.BSN==177B17	;BATCH STREAM NUMBER
.GTDCD==160	;CONI/DATAI CORRESPONDING TO DEVICE STATUS BLOCK (SEE %CCDSB)
.GTNDB==161	;BYTE POINTERS INTO NODE DATA BLOCK
		;(**NOTE** AC FIELDS NON-ZERO)
	%NDLEN==0,,161	;LENGTH OF NDB (NOT A BYTE POINTER)
	%NDNXT==1,,161	;ADDRESS OF NEXT NDB
	%NDNNM==2,,161	;NODE NUMBER
	%NDSNM==3,,161	;ADDRESS OF SIXBIT STATION NAME
	%NDTIM==4,,161	;TIMER
	%NDNGH==5,,161	;FIRST NEIGHBOR ENTRY
	%NDNGL==6,,161	;LAST NEIGHBOR ENTRY
	%NDNGN==7,,161	;NODE NUMBER FROM %NDNGH (ADDRESS FIELD=0)
	%NDOPR==10,,161	;ADDRESS OF OPR LDB
	%NDCTJ==11,,161	;STATION CONTROL JOB NUMBER
	%NDLAR==12,,161	;LAST ACK RECEIVED
	%NDLAP==13,,161	;LAST OUTPUT MESSAGE ACK'ED
	%NDLMS==14,,161	;LAST MESSAGE SENT
	%NDLMA==15,,161	;LAST MESSAGE NUMBER ASSIGNED
	%NDLAS==16,,161	;LAST ACK SENT
	%NDLMR==17,,161	;LAST MESSAGE RECEIVED
	%NDLMP==20,,161	;LAST MESSAGE PROCESSED
	%NDSDT==21,,161	;SYSTEM BUILD DATE ADDRESS
	%NDSID==22,,161	;SYSTEM ID ADDRESS
	%NDMOM==23,,161	;MAXIMUM OUTSTANDING MESSAGE COUNT
	%NDDEV==24,,161	;FIRST DEVICE
	%NDNVR==25,,161	;NCL VERSION NUMBER
.GTPDB==162	;JOB PDB WORD (INDEX BY JOB NUMBER)
		; LH=NUMBER OF MONITOR "PER PROCESS" PAGES
		; RH=ADDRESS (MONITOR) OF JOB'S PDB
.GTEQJ==163	;ENQ./DEQ. QUEUE HEADER
.GTDCN==164	;SET DEFAULT COMMAND ARGUMENTS
.GTLBS==165	;LARGE BUFFER SIZE
	LB.PGM==777777B17	;SET BY PROGRAM
	LB.CMD==777777B35	;SET BY COMMAND
.GTPTR==166	;PROGRAM TO RUN
.GTSTM==167	;TIME OF LAST RESET
.GTDNT==170	;DECNET QUEUE HEADERS
	%DNRCH==0,,170	;ROUTER CIRCUIT BLOCK QUEUE HEADER
	%DNNPH==1,,170	;NSP PORT BLOCK QUEUE HEADER
	%DNETH==2,,170	;DTESER ETD BLOCK TABLE
	%DNNSJ==3,,170	;NRTSER SJB POINTER
	%DNNCH==4,,170	;NRTSER SLB (CHANNEL) TABLE POINTER
	%DNNDQ==5,,170	;NMX'S NODE QUEUE BLOCK HEADER
	%DNLOC==6,,170	;OBSOLETE IN 7.03
	%DNPTR==7,,170	;OBSOLETE IN 7.03
	%DNCHB==10,,170	;POINTER TO DECNET CH BLOCKS.
	%DNKON==11,,170	;POINTER TO KONTROLLER NAME TABLE
	%DNNRV==12,,170	;POINTER TO ADDRESS OF ROUTER VECTOR INDEXED BY NODE #
	%DNOFS==13,,170	;POINTER TO ADDRESS OF OFFSET TO SECONDARY ROUTING VEC.
	%DNRMX==14,,170	;POINTER TO ADDRESS OF ROUTER MAXIMUM NODE NUMBER
	%DNCST==15,,170	;ADDRESS OF BYTE POINTER TO COST
	%DNHOP==16,,170	;ADDRESS OF BYTE POINTER TO HOPS
	%DNLCL==17,,170	;ADDRESS OF BYTE POINTER TO LOCAL BIT
	%DNACT==20,,170	;ADDRESS OF BYTE POINTER TO ACTIVE BIT
	%DNNDT==21,,170	;OBSOLETE IN 7.03
	%DNSMX==22,,170	;OBSOLETE IN 7.03
	%DNACB==23,,170	;ADDRESS OF DECNET ALLOCATION CONTROL BLOCK
.GTSJB==171	;PTR TO DECNET SESSION CONTROL JOB BLOCK FOR JOB
.GTNSP==172	;DECNET SESSION CONTROL QUOTA, ETC. WORD FOR JOB
	NS.GOL==7777B11	;GOAL
	NS.DQT==7777B23	;DEFAULT QUOTA
	NS.IPR==7777B35	;PERCENTAGE OF QUOTA TO BE USED FOR INPUT
.GTNDA==173	;NDB ADDRESS TABLE INDEXED BY NODE NUMBER
.GTAOT==174	;ANF-10 OBJECT TRANSLATION TABLE INDEXED BY NCL OBJECT TYPE
	AO.XXX==7777B11	;RESERVED FOR DEC
	AO.TYP==77B17	;DEVICE TYPE (AS RETURNED BY DEVTYP UUO)
	AO.NAM==777777B35 ;SIXBIT DEVICE NAME
.GTCTX==175	;CONTEXT TABLE
	%CTJCQ==00,,175	;DEFAULT JOB CONTEXT QUOTA
	%CTJPQ==01,,175	;DEFAULT JOB SAVED PAGES QUOTA
	%CTSCQ==02,,175	;SYSTEM-WIDE CONTEXT QUOTA
	%CTSPQ==03,,175	;SYSTEM-WIDE SAVED PAGES QUOTA
	%CTSCU==04,,175	;SYSTEM-WIDE COUNT OF CONTEXTS IN USE
	%CTSPU==05,,175	;SYSTEM-WIDE COUNT OF CURRENTLY SAVED PAGES
	%CTTCS==06,,175	;TOTAL CONTEXT SAVES DONE
	%CTACE==07,,175	;NUMBER OF TIMES AUTO-PUSH EXCEEDED CONTEXT QUOTA
	%CTAPE==10,,175	;NUMBER OF TIMES AUTO-PUSH EXCEEDED SAVED PAGE QUOTA
	%CTPCE==11,,175	;NUMBER OF TIMES PRIV'ED PROGRAM EXCEEDED CONTEXT QUOTA
	%CTPPE==12,,175	;NUMBER OF TIMES PRIV'ED PROGRAM EXCEEDED PAGE QUOTA
	%CTBDM==13,,175	;BYTE POINTER TO RETURNED CONTEXT DIRECTORY MAP
.GTIMI==176	;PROGRAM PHYSICAL ("IMGIN") SIZE
.GTIMO==177	;PROGRAM PHYSICAL ("IMGOUT") SIZE
.GTDDB==200	;I/O WAIT DDB
.GTVIR==201	;PROGRAM VIRTUAL SIZE
.GTETH==202	;ETHERNET INFORMATION
	%EINEC==00,,202	;NUMBER OF ETHERNET CHANNELS ON SYSTEM
	%EICHN==01,,202	;ADDRESS OF FIRST ETHERNET CHANNEL BLOCK
	%EINEK==02,,202	;NUMBER OF ETHERNET KONTROLLERS ON SYSTEM
	%EIKON==03,,202	;ADDRESS OF FIRST ETHERNET KONTROLLER BLOCK
	%EISYS==04,,202	;OFFSETS OF .ECSYS,,.EKSYS
	%EISTS==05,,202	;OFFSETS OF .ECSTS,,.EKSTS
	%EIBYR==06,,202	;TOTAL BYTES RECEIVED
	%EIBYX==07,,202	;TOTAL BYTES TRANSMITTED
	%EIDGR==10,,202	;TOTAL DATAGRAMS RECEIVED
	%EIDGX==11,,202	;TOTAL DATAGRAMS TRANSMITTED
.GTSG2==203	;PROGRAM'S HIGH SEGMENT SECTION NUMBER
	SG%SCN==37B4	;SECTION NUMBER MASK
.GTCCM==204	;SITE SPECIFIC COMMANDS
.GTNXM==205	;NONEXISTENT MEMORY BIT TABLE (NXMTAB)
.GTBTX==206	;BOOT AUTO-RELOAD STRING (BOOTXT)
.GTCHN==207	;CHANNEL DATA BLOCK OFFSETS
	%CHSYS==00,,207	;LINK TO NEXT CHANNEL DATA BLOCK IN SYSTEM
	%CHLUE==01,,207	;LAST UDB WITH SOFT OR HARD ERROR
	%CHICW==02,,207	;INITIAL CONTROL WORD ON LAST ERROR
	%CHICL==03,,207	;NUMBER OF WORDS POINTED TO BY %CHICW
	%CHMPE==04,,207	;NUMBER OF MEMORY PARITY ERRORS
	%CHDPE==05,,207	;NUMBER OF DATA PARITY ERRORS (FROM DEVICE)
	%CHNXM==06,,207	;NUMBER OF NXMS OR DATA LATES (OVERRUN)
	%CHTCW==07,,207	;EXPECTED TERMINATION CONTROL WORD
.GTKDB==210	;KONTROLLER DATA BLOCK CHAIN HEADER (INDEX BY DEVICE TYPE)
.GTDDH==211	;DEVICE DATA BLOCK CHAIN HEADERS (INDEX BY DEVICE TYPE)
.GTTCN==212	;TERMINAL CLASS NAMES
.GTLPN==213	;LOGGED-IN PPN
	SUBTTL	MISC. NON-I/O -- TMPCOR

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



	SUBTTL	MISC. NON-I/O -- LOCK

LK.HHP==1B13	;HI-SEG LOCK ALLOWED IN HIGH PAGES (PHYSICAL LOCK)
LK.HLC==1B14	;HI-SEG LOCK WITH CACHE BIT ON(KL10)
LK.HNP==1B15	;HI-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
LK.HNE==1B16	;HI-SEG DON'T MAP IN EXEC VM
LK.HLS==1B17	;HI-SEG LOCK SEGMENT
LK.LHP==1B31	;LO-SEG LOCK ALLOWED IN HIGH PAGES
LK.LLC==1B32	;LO-SEG LOCK WITH CACHE BIT SET
LK.LNP==1B33	;LO-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
LK.LNE==1B34	;LO-SEG DON'T MAP IN EXEC VM
LK.LLS==1B35	;LO-SEG LOCK SEGMENT

.LKPPN==0	;PHYSICAL PAGE NUMBER
.LKSGL==1	;LOCK SEGMENT LIST
	LK.2PC==1B1	;LOCK THIS SEGMENT PHYSICALLY CONTIGUOUS
	LK.2EV==1B2	;LOCK IN EVM
	LK.2PP==3777B17	;PHYSICAL PAGE # TO LOCK AT (L2.2PC MUST BE SET)
	LK.2SN==777B35	;SEGMENT NUMBER TO LOCK; 0 MEANS LOW SEG

;LOCK UUO ERRORS

LKNIS%==0	;NOT IMPLEMENTED IN THIS SYSTEM
LKNLP%==1	;NO LOCKING PRIVS
LKNCA%==2	;NOT ENOUGH CORE TO CONTINUE CURRENT JOBS
LKNCM%==3	;NOT ENOUGH CORE TO GUARANTEE CORMIN
LKNEM%==4	;NOT ENOUGH MEMORY AVAILABLE (EVM OR PHYSICAL)
LKNIA%==5	;ILLEGAL SUB-FUNCTION ARGUMENT
LKNPU%==6	;PAGE UNAVAILABLE
LKNAL%==7	;ATTEMPT TO MOVE LOCKED SEGMENT



	SUBTTL	MISC. NON-I/O -- UNLOK.

;EXTENDED FORMAT UNLOCK:

;FUNCTION CODES:

.ULSGL==0	;UNLOCK SEGMENT LIST.  SAME FORMAT AS .LKSGL FOR LOCK.,
		;EXCEPT FLAG BITS DO NOT APPLY

	UL.2SN==777B35	;SEGMENT NUMBER TO UNLOCK; 0 MEANS LOW SEG

;ERROR CODES:

ULNSH%==0	;CAN'T UNLOCK ONLY LOW SEG IF NON-SHARABLE HIGH SEG ALSO
		;NOT UNLOCKED.
	SUBTTL	MISC. NON-I/O -- RTTRP

;FLAGS IN SECOND WORD OF RTTRP ARGUMENT BLOCK:

RT.NEW==1B0	;NEW-STYLE ARGUMENT LIST (CPU # SPEC'D IN BITS 6-8)
RT.MRD==1B1	;MULTIPLY-REFERENCED DEVICE (ON MORE THAN 1 PI CHANNEL)
RT.CPU==7B8	;CPU NUMBER ON WHICH TO EXECUTE
RT.EPT==1B15	;EPT-MODE INTERRUPTS
RT.VEC==1B16	;VECTOR-MODE INTERRUPTS
RT.NSA==1B17	;MONITOR DOESN'T SAVE ACS BEFORE BRANCHING TO USER ROUTINE

;RTTRP UUO ERROR CODES

RTNEC%==1B23	;NON-EXISTENT CPU
RTJNP%==1B24	;JOB DOESN'T HAVE PRIVS
RTNC0%==1B25	;NOT RUNNABLE ON CPU0
RTDIU%==1B26	;DEVICE IN USE BY ANOTHER JOB
RTIAU%==1B27	;ILLEGAL AC USED DURING RTTRP AT INTERRUPT
RTJNL%==1B28	;JOB NOT LOCKED (OR NOT PRIVILEGED)
RTSLE%==1B29	;SYSTEM LIMIT EXCEEDED FOR RT DEVICES
RTILF%==1B30	;ILLEGAL FORMAT OF I/O INSTRUCTION
RTPWI%==1B31	;POINTER WORD ILLEGAL
RTEAB%==1B32	;ERROR ADDRESS OUT OF BOUNDS
RTTAB%==1B33	;TRAP ADDRESS BAD
RTPNB%==1B34	;PI CHANNEL NOT CURRENTLY AVAILABLE FOR BLKI/O
RTPNA%==1B35	;PI CHANNEL NOT AVAILABLE
	SUBTTL	MISC. NON-I/O -- JOBSTS

JB.UJA==1B0	;JOB NUMBER ASSIGNED
JB.ULI==1B1	;JOB IS LOGGED IN
JB.UML==1B2	;TTY IS AT MONITOR LEVEL
JB.UOA==1B3	;OUTPUT IS AVAILABLE
JB.UDI==1B4	;TTY IS DEMANDING INPUT
JB.UJC==1B5	;JACCT IS SET
JB.URN==1B6	;JOB IS RUNNING
JB.UFC==1B7	;TTY IN FULL CHARACTER SET MODE
JB.UBK==1B8	;TTY IN [BREAK ON ALL] CHARACTER MODE
;JB.UII==1B9	;TTY IS IN IMAGE INPUT STATE
;JB.UIO==1B10	;TTY IS IN IMAGE OUTPUT STATE
JB.UNE==1B11	;TTY IS NO ECHO
JB.UTO==1B12	;TTY IS IN "TO" STATE
JB.UCC==1B13	;TTY CHARACTERISTICS CHANGED SINCE LAST JOBSTS
JB.UNT==1B14	;TTY IS NETWORK TERMINAL (.SET HOST) TO REMOTE HOST
JB.UHI==1B15	;TTY IS HIBERING FOR INPUT
JB.UJN==777	;JOB NUMBER



	SUBTTL	MISC. NON-I/O -- HIBER

HB.SWP==1B0	;ALLOW IMMEDIATE SWAP OUT
HB.SEC==1B1	;TIME IS IN SECONDS
HB.DIN==1B9	;HB.RTL OR HB.RTC MEANS DEMANDING INPUT (SEE JB.UHI IN JOBSTS)
HB.IPC==1B10	;IPCF
HB.RIO==1B11	;I/O
HB.RPT==1B12	;PTY ACTIVITY
HB.RTL==1B13	;TTY LINE ACTIVITY
HB.RTC==1B14	;TTY CHARACTER ACTIVITY
HB.RWJ==1B15	;THIS JOB
HB.RWP==1B16	;THIS PROGRAMMER
HB.RWT==1B17	;THIS PROJECT
	SUBTTL	MISC. NON-I/O -- APRENB

AP.REN==1B18	;REPETITIVE ENABLE
AP.POV==1B19	;PUSH DOWN OVERFLOW
AP.ABK==1B21	;(FUTURE)ADDRESS BREAK
AP.ILM==1B22	;ILLEGAL MEMORY
AP.NXM==1B23	;NON-EXISTENT MEMORY
AP.PAR==1B24	;PARITY ERROR FLAG
AP.CLK==1B26	;CLOCK
AP.FOV==1B29	;FLOATING OVERFLOW
AP.AOV==1B32	;ARITHMETIC OVERFLOW



	SUBTTL	MISC. NON-I/O -- UTRP.

;READ/SET FUNCTIONS

.UTRED==0	;READ CONTENTS OF TRAP LOCATIONS
.UTSET==1	;SET CONTENTS OF TRAP LOCATIONS

;TRAP OFFSETS

.UTLUU==0	;LOCAL ("USER") UUO TRAP
.UTAOF==1	;ARITHMETIC OVERFLOW TRAP
.UTPOV==2	;PUSHDOWN LIST OVERFLOW TRAP

;UTRP. ERRORS

UTIAD%==1	;ILLEGAL ADDRESS
UTUKF%==2	;UNKNOWN FUNCTION
UTITN%==3	;ILLEGAL TRAP NUMBER
UTIUT%==4	;ILLEGAL USER TRAP INSTRUCTION
	SUBTTL	MISC. NON I/O -- GETSEG/MERGE./RUN/SAVE./SEGOP. UUOS

.RNDEV==0	;DEVICE NAME
.RNNAM==1	;FILE NAME
.RNEXT==2	;FILE EXTENSION
.RNPPN==4	;PPN OR ADDRESS OF PATH BLOCK
.RNMEM==5	;MEMORY ARGUMENT
		; FOR RUN, AMOUNT OF MEMORY TO ALLOCATE FOR JOB
		; FOR MERGE., ???



	SUBTTL	MISC. NON I/O -- SEGOP. UUO

.SGFNC==0	;LENGTH,,FUNCTION
	SG.LEN==777777B17	;LENGTH OF ARGUMENT BLOCK
	SG.FNC==777777B35	;FUNCTION CODE
	.SGINF==0	;OBTAIN INFORMATION ABOUT A SEGMENT
	.SGGET==1	;GET A NEW SEGMENT WITHOUT DISCARDING EXISTING ONES
	.SGREL==2	;RELEASE A SEGMENT OR A LIST OF SEGMENTS
	.SGRMP==3	;REMAP A NEW SEGMENT WITHOUT DISCARDING EXISTING ONES
	.SGSWP==4	;SETUWP TO FLAGS ARGUMENT FOR SPECIFIED SEGMENT
	.SGCOR==5	;CHANGE LENGTH OF EXISTING SEGMENT
	.SGDMP==6	;DUMP SEGMENT LIST FOR A GIVEN JOB/CONTEXT
;ARGUMENTS LISTS (LIST OF SEGMENTS) FOR .SGDMP AND .SGREL BEGIN AT .SGSGN
.SGFLG==1	;FLAGS
	SG.CTX==777B26	;CONTEXT SEGMENT BELONGS TO
	SG.JOB==777B35	;JOB SEGMENT BELONGS TO
	SG.STP==1B0	;STEP TO THE NEXT SEGMENT
	SG.SEC==37B17	;OFFSET SECTION BY THIS AMOUNT IF SG.USN SET
	SG.NSR==777777B17 ;NUMBER OF SEGMENTS THAT WOULD HAVE BEEN RETURNED
			; BY .SGDMP IF THERE HAD BEEN ROOM
	SG.USN==1B1	;IF NON-ZERO, USES SG.SEC AS OFFSET FOR GET
	SG.FFS==1B2	;IF NON-ZERO PUT THIS SEGMENT IN FIRST FREE SECTION
	SG.UWP==1B35	;SETUWP FLAG (0 CLEARS UWP, 1 SETS IT) - PREVIOUS
			; SETTING ALWAYS RETURNED
.SGSGN==2	;SEGMENT NUMBER
.SGSNM==3	;SEGMENT NAME
.SGORG==4	;SEGMENT ORIGIN,,LOCAL SEGMENT ORIGIN
	SG.HSO==777777B17	;SEGMENT ORIGIN
	SG.LSO==777777B35	;LOCAL SEGMENT ORIGIN
.SGSIZ==5	;SEGMENT SIZE
.SGFSP==6	;FILESPEC POINTER
	.SGFDV==0	;DEVICE NAME
	.SGFNM==1	;FILE NAME
	.SGFEX==2	;EXTENSION
	.SGFPP==3	;PPN
	.SGFS1==4	;FIRST SFD
	.SGFS2==5	;SECOND SFD
	.SGSF3==6	; ..
	.SGSF4==7	; ..
	.SGSF5==10	;FIFTH SFD
	.SGFLN==11	;LENGTH OF FILE SPEC BLOCK


	SUBTTL	MISC. NON I/O -- SAVE. UUO

SS%SSH==1B0	;SAVE AS SHAREABLE HISEG IF ON; NON-SHAREABLE IF OFF



	SUBTTL	MISC. NON I/O -- ENTVC. UUO

;ENTVC. - READ/SET ENTRY VECTOR

;ENTVC. - ARGUMENT BLOCK LOCATIONS

.ENFUN==0	;FLAGS,,FUNCTION
.ENLEN==1	;LENGTH OF ENTRY VECTOR
.ENADR==2	;30-BIT ADDRESS OF ENTRY VECTOR OR START ADDRESS

;ENTVC. - FUNCTION CODES

.ENVRS==0	;READ/SET ENTRY VECTOR
	EN.SET==1B0	;SET VECTOR OR START ADDRESS

;.ENTVC. - ERROR CODES

EVIAL%==1	;ILLEGAL ARGUMENT LIST
EVIFC%==2	;ILLEGAL FUNCTION CODE
EVADR%==3	;ADDRESS CHECK



	SUBTTL	MISC. NON I/O -- .EXE FILE FORMAT

;BLOCK TYPES IN .EXE FILE DIRECTORY

.SVEND==1777	;END OF DIRECTORY
.SVDIR==1776	;DIRECTORY BLOCK
.SVSTA==1775	;ENTRY VECTOR BLOCK

;.EXE FILE DIRECTORY ENTRIES

.SVFPF==0	;FILE PAGE AND FLAGS
	SV%HIS==1B0	;PAGE IS PART OF HISEG
	SV%SHR==1B1	;PAGE IS SHARABLE
	SV%WRT==1B2	;PAGE IS WRITABLE
	SV%CON==1B3	;PAGE IS CONCEALED
	SV%SYM==1B4	;PAGE IS PART OF SYMBOL TABLE
	SV%FPN==17777	;FILE PAGE NUMBER
.SVPPC==1	;PROCESS PAGE AND REPEAT COUNT
	SV%REP==777B8	;REPEAT COUNT
	SV%PPN==17777	;PROCESS PAGE NUMBER
	SUBTTL	MISC. NON-I/O -- SAVE/GET LOCATIONS (OBSOLETE)

DEFINE	.SGNAM<
PRINTX % .SGNAM will be obsolete; please use GETTAB .GTRFN instead.
DEFINE	.SGNAM<0>
;>

DEFINE	.SGPPN<
PRINTX % .SGPPN will be obsolete; please use GETTAB .GTRDI instead.
DEFINE .SGPPN <7>
;>

DEFINE	.SGDEV<
PRINTX % .SGDEV will be obsolete; please use GETTAB .GTRDV instead.
DEFINE	.SGDEV<11>
;>

DEFINE	.SGLOW<
PRINTX % .SGLOW will be obsolete.
DEFINE	.SGLOW<17>
;>

DEFINE	.SG41<
PRINTX % .SG41 will be obsolete.
DEFINE	.SG41<122>
;>

DEFINE	.SGDDT<
PRINTX % .SGDDT will be obsolete.
DEFINE	.SGDDT<114>
;>


;.SGNAM==0	;FILE NAME FROM RUN UUO
;.SGPPN==7	;DIRECTORY FROM RUN UUO
;.SGDEV==11	;DEVICE FROM RUN UUO
;.SGLOW==17	;EXTENSION OF LOW SEG FROM RUN UUO
;.SGDDT==114	;LOCATION IN SAVE FILE CONTAINING COPY OF .JBDDT
;.SG41==122	;LOCATION IN SAVE FILE CONTAINING COPY OF .JB41
	SUBTTL	MISC. NON-I/O -- ALLOC.(OBSOLETE)

.ALLAD==1		;(OBSOLETE) ALLOCATE THE DEVICE TO THE JOB
.ALLFD==2		;(OBSOLETE) FREES THE DEVICE

;ALLOC. ERRORS

ALLIS%==1		;(OBSOLETE) NOT PRIVILEGED
ALLIF%==2		;(OBSOLETE) ILLEGAL FUNCTION CODE
ALLID%==3		;(OBSOLETE) ILLEGAL DEVICE
ALLIJ%==4		;(OBSOLETE) ILLEGAL JOB NUMBER
ALLIA%==5		;(OBSOLETE) ILLEGAL ARG LIST LENGTH



	SUBTTL	MISC. NON-I/O -- ERRPT. (OBSOLETE)

.ERPT0==0		;ADDRESS, JOB NUMBER, ERROR CODE
	ER.PAD==777777B17 ;ADDRESS USED BY DAEMON
	ER.PJN==777B26	;JOB NUMBER
	ER.PCD==777B35	;ERROR CODE
.ERPT1==1		;DDB, UDB ADDRESSES
	ER.PDA==777777B17 ;DDB ADDRESS
	ER.PUA==777777B35 ;UDB ADDRESS
.ERPT2==2		;ALL FIELDS BUT ER.CPU ARE RESERVED
	ER.CPU==7B17	;CPU NUMBER ON WHICH ERROR WAS DETECTED
.ERPT3==3		;RESERVED



	SUBTTL	MISC. NON-I/O -- SEBLK.

SBNPV%==0		;NOT PRIVILEGED
SBNEQ%==1		;NO ERROR BLOCKS IN QUEUE



	SUBTTL	MISC. NON-I/O -- POKE

PKNPV%==0		;NOT PRIVILEGED
PKDIF%==1		;NEW VALUE DOESN'T MATCH EXISTING MONITOR WORD
PKBAD%==2		;NOT A LEGAL MONITOR ADDRESS
	SUBTTL	MISC. NON-I/O -- SETUUO

.STCMX==0	;CORE MAX
.STCMN==1	;CORE MIN
.STDAY==2	;DAYTIME (SUPERSEDED BY .STTIM)
.STSCH==3	;SCHED WORD (SAME AS %CNSTS)
.STCDR==4	;CDR SPOOL NAME
.STSPL==5	;SPOOLING BITS (SAME AS .GTSPL)
.STWTC==6	;WATCH BITS
	ST.WCN==1B9	;/MESSAGE:CONTINUATION
	ST.WFL==1B10	;/MESSAGE:FIRST
	ST.WPR==1B11	;/MESSAGE:PREFIX
	ST.WMS==7B11	;/MESSAGE:ALL
	ST.WCX==1B18	;WATCH CONTEXTS
	ST.WDY==1B19	;WATCH DAYTIME AT START
	ST.WRN==1B20	;WATCH RUN TIME
	ST.WWT==1B21	;WATCH WAIT TIME
	ST.WDR==1B22	;WATCH DISK READS
	ST.WDW==1B23	;WATCH DISK WRITES
	ST.WVR==1B24	;WATCH VERSIONS
	ST.WMT==1B25	;WATCH MTA STATISTICS
	ST.WFI==1B26	;WATCH FILE
	ST.WAL==777B26	;WATCH ALL
.STDAT==7	;DATE
.STOPR==10	;OPR DEVICE
.STKSY==11	;KSYS TIMER
.STCLM==12	;CORE LIMIT
.STTLM==13	;TIME LIMIT
.STCPU==14	;CPU SPECIFICATION
.STCRN==15	;CPU RUNABILITY
	SP.CR5==1B30	;CPU5
	SP.CR4==1B31	;CPU4
	SP.CR3==1B32	;CPU3
	SP.CR2==1B33	;CPU2
	SP.CR1==1B34	;CPU1
	;SP.CR0==1B35	;CPU0  (SAME BIT DEFINED EARLIER)
.STLMX==16	;LOGMAX
.STBMX==17	;BATMAX
.STBMN==20	;BATMIN
.STDFL==21	;DSKFUL
	.DFPSE==0	;PAUSE
	.DFERR==1	;ERROR
.STMVM==22	;MAX VM
.STMVR==23	;(OBSOLETE)
.STUVM==24	;USER VM MAXIMA (VIRT,,PHY)
.STCVM==25	;USER CURRENT VM MAXIMA (VIRT,,PHY)
	ST.VSG==1B18	;SET IF PHYS LIMIT IS GUIDELINE
.STTVM==26	;USER VIRT TIME INTERRUPTS
;SETUUO (CONTINUED)

.STABK==27	;ADDRESS BREAK (HDWR FORMAT; 1B3 BREAKS UUO REFERENCES)
	ST.AEX==1B0	;BREAK CONDITION INSTRUCTION FETCH
	ST.ARD==1B1	;BREAK CONDITION DATA FETCH
	ST.AWR==1B2	;BREAK CONDITION
	ST.AUU==1B3	;BREAK CONDITION MUUO (SOFTWARE BIT)
	ST.ASN==37B8	;ADDRESS BREAK SECTION NUMBER
	ST.ACT==777B17	;# OF TIMES ADDRESS BREAK MUST OCCUR BEFORE PSI INTERRUPT
	ST.ADR==777777	;ADDRESS BREAK ADDRESS
.STPGM==30	;SET PROGRAM TO RUN
.STDFR==31	;SET DEFERED SPOOLING
.STHST==32	;SET HOST SYSTEM
.STDEF==33	;SET DEFAULT VALUES
	.STDPC==0	;SET DEFAULT PROTECTION CODE
	.STDNB==1	;SET DEFAULT NUMBER OF DISK BUFFERS
	.STDAD==2	;SET DEFAULT DON'T ASK ABOUT DETACHED JOBS
	.STDSB==3	;SET DEFAULT [SIZE OF] DISK "BIGBUF"FERS
.STPRV==34	;SET PRIVILEGE WORDS
	.STCPW==0	;SET WHOLE PRIVILEGE
	.STCPS==1	;SET SPECIFIED BITS OF PRIVILEGE WORD
	.STCPC==2	;CLEAR SPECIFIED BITS
	.STCCW==3	;SET WHOLE CAPABILITY WORD (MAX PRIVS ALLOWED)
	.STCCS==4	;SET SPECIFIED BITS OF CAPABILITY WORD
	.STCCC==5	;CLEAR SPECIFIED BITS
.STBSN==35	;SET BATCH STREAM NUMBER (SET ONLY ONCE)
.STWTO==36	;SET WRITE TO OPERATOR VALUES
		;  FOR VALUES SEE .GTOBI (OB.WTO)
.STCDN==37	;SET CPU UP/DOWN STATUS
	ST.URE==1B18	;REMOVE A CPU
	ST.USU==1B19	;SUSPEND A CPU
.STCSB==40	;SET/CLEAR CACHE BITS
.STFPS==41	;SET/CLEAR FLOATING POINT SIMULATION
.STOPP==42	;SET OPERATOR PRIVILEGES
.STQST==43	;SET QUEUE STRUCTURE
.STCSZ==44	;SET DISK CACHE SIZE
.STEBP==45	;SET EDDT BREAKPOINT ON/OFF
.STBPT==46	;SET DDT BREAKPOINT ON/OFF
.STTMS==47	;SET TIME OF DAY (ARGUMENT IN SECONDS PAST MIDNIGHT)
.STCXP==50	;SET CORMAX IN PAGES
.STCNP==51	;SET CORMIN IN PAGES
.STPCP==52	;SET POLICY CPU
.STDAE==53	;SET DAEMON JOB NUMBER
.STITP==54	;SET INTERVAL TIMER PATCH

;SETUUO ERRORS

;.STCPU, .STPCP, AND .STCRN ERRORS
STNAR%==0	;CPU(S) SPECIFIED ARE NOT RUNNING
STDHP%==1	;NO PRIVILEGES
STISN%==2	;ILLEGAL STRUCTURE NAME
STITM%==3	;ILLEGAL TIME OF DAY (GREATER THAN 23:59:59)
	SUBTTL	MISC. NON-I/O -- QUEUE.

;;QUEUE. UUO takes LENGTH,,ADDR in AC where ADDR contains:

;;    !=======================================================!
;;    !R !                        !         Function          !
;;    !-------------------------------------------------------!
;;    !                        Node-id                        !
;;    !-------------------------------------------------------!
;;    !   Response Block Length   !  Response Block Address   !
;;    !-------------------------------------------------------!
;;    !                      Argument 1                       !
;;    !-------------------------------------------------------!
;;    !                      Argument 2                       !
;;    !-------------------------------------------------------!
;;    \                                                       \
;;    \                                                       \
;;    \                                                       \
;;    !-------------------------------------------------------!
;;    !                Argument ((Length-3)/2)                !
;;    !=======================================================!


;;Where each argument is two words which contain:


;;    !=======================================================!
;;    !I !           !   Length    !   !        "TYPE"        !
;;    !-------------------------------------------------------!
;;    !                   Value or Address                    !
;;    !=======================================================!



;;If I is not set, then the second word of the argument = an address.
;;This address contains:

;;    !=======================================================!
;;    !             First Word of "TYPE" Argument             !
;;    !-------------------------------------------------------!
;;    !            Second Word of "TYPE" Argument             !
;;    !-------------------------------------------------------!
;;    \                                                       \
;;    \                                                       \
;;    \                                                       \
;;    !-------------------------------------------------------!
;;    !    Last Word of "TYPE" Argument (Argument.length)     !
;;    !=======================================================!
;QUEUE. argument block

.QUFNC==0	;FLAGS,,FUNCTION
	QF.FLG==7777B11		;FLAGS
		QF.RSP==1B0	;USER WANTS ACK TEXT RETURNED (SEE .QURSP)
		QF.PIP==1B1	;PRIVILEGED INVOLKING PRIVILEGES
		QF.NBR==1B2	;NON-BLOCKING
	QF.HLN==77B17		;TOTAL LENGTH OF OVERHEAD BLOCK
	QF.FNC==777777B35	;FUNCTION
		.QUPRT==1	;PRINT A FILE
		.QUCDP==2	;PUNCH A FILE ON CARDS
		.QUPTP==3	;PUNCH A FILE ON PAPER TAPE
		.QUPLT==4	;PLOT A FILE
		.QUBAT==5	;PROCESS THE FILE UNDER BATCH
		.QUALC==6	;ALLOCATE A VOLUME SET
		.QUDAL==7	;DEALLOCATE A VOLUME SET
		.QUMNT==10	;MOUNT A VOLUME SET
		.QUDIS==11	;DISMOUNT A VOLUME SET
		.QUWTO==12	;WRITE TO OPERATOR
		.QUWTR==13	;WRITE TO OPERATOR WITH REPLY
		.QUVAL==14	;VALIDATE AN ACCOUNT
		.QUMAE==15	;SEND A MESSAGE TO THE ACCOUNT DAEMON
				; (SEE ACTSYM.MAC FOR ACCOUNTING FUNCTIONS)
		.QUCAT==16	;MAKE A CATLOG VALIDATION REQUEST
		.QUMAI==17	;DELIVER A MAIL MESSAGE
		.QUEVT==20	;CREATE AN EVENT QUEUE ENTRY
.QUNOD==1	;NETWORK NODE
		; -1  = JOB'S LOCATED NODE
		; 0 = CENTRAL SITE
.QURSP==2	;RESPONSE
	QR.LEN==777B17	;RESPONSE BLOCK LENGTH
	QR.BLK==777777B35	;RESPONSE BLOCK ADDRESS
.QUTIM==3	;MAXIMUM WAIT TIME IN SECONDS (ZERO MEANS NO MAXIMUM)
	QT.TIM==7777B35		;MAXIMUM WAIT TIME FIELD
.QUPID==4	;ALTERNATE RECIPIENT PID FOR DEBUGGING

.QUARG==3	;DEFAULT BEGINNING OF ARGUMENTS - FIRST WORD (WHEN QF.HLN=0)
.QUARH==0	;HEADER OFFSET OF (TWO-WORD) ARGUMENT BLOCK
	QA.IMM==1B0		;IF 0, THEN .QUARV IS AN ADDRESS
				;IF 1, THEN .QUARV IS THE VALUE
	QA.LEN==777B17		;LENGTH OF ARGUMENT BLOCK
	QA.TYP==777777B35	;ARGUMENT TYPE (BITS 18-23 RESERVED FOR GALAXY
				; INTERNALS IN GALAXY MESSAGES)
				;ARGUMENT TYPES 4000-7777 RESERVED FOR CUSTOMERS
.QUARV==4	;ARGUMENT VALUE IF QA.IMM=1
		;ADDRESS OF ARGUMENT TYPE BLOCK IF QA.IMM=0
.QUARD==1	;DATA OFFSET OF (TWO-WORD) ARGUMENT BLOCK



;;Argument TYPEs with its block format when .QUARV is an address.

.QBFIL==10	;FILE SPEC BLOCK
	.QBFSR==0	;SIXBIT STRUCTURE NAME
	.QBFFL==1	;SIXBIT FILE NAME
	.QBFEX==2	;SIXBIT EXTENSION,,0
	.QBFPP==3	;DIRECTORY NUMBER (PPN)
	.QBFS1==4	;FIRST WORD OF PATH BLOCK
	.QBFS2==5	;SECOND WORD OF PATH BLOCK
	.QBFS3==6	;THIRD WORD OF PATH BLOCK
	.QBFS4==7	;FOURTH WORD OF PATH BLOCK
	.QBFS5==10	;FIFTH WORD OF PATH BLOCK
.QBCOP==11	;NUMBER OF COPIES BLOCK
	.QBCNO==0	;NUMBER OF COPIES OF THE FILE TO BE OUTPUT
.QBFRM==12	;FORMS TYPE BLOCK
	.QBFTY==0	;FORMS TYPE IN SIXBIT
.QBPTP==13	;FILE FORMAT BLOCK
	.QBPCD==0	;FILE FORMAT CODE
		.QBPAS==1	;ASCII
		.QBPFR==2	;FORTRAN
		.QBPCB==3	;COBOL
		.QBPAI==4	;AUGEMENTED IMAGE
		.QBPSA==5	;STREAM ASCII
		.QBP11==6	;ELEVEN
		.QBPIM==7	;IMAGE
		.QBP8B==10	;8-BIT ASCII
.QBODP==14	;/DISP: OUTPUT DISPOSITION BLOCK
	.QBODB==0	;OUTPUT FILE DISPOSITION
		.QBODK==0	;PRESERVE - DON'T DELETE FILE AFTER PROCESSING
		.QBODD==1	;DELETE FILE AFTER PROCESSING
		.QBODR==2	;RENAME FILE INTO SYSTEM QUEUE AREA
.QBUNT==15	;UNIT TYPE (/UNIT:, /LOWER,/UPPER, /GENERIC)
	.QBUDA==0	;DEVICE ATTRIBUTES,,UNIT # (UNIT APPLIES ONLY TO .QBUPH)
		.QBULC==1	;LOWER CASE PRINTER
		.QBUUC==2	;UPPER CASE PRINTER
		.QBUPH==3	;PHYSICAL DEVICE (SPECIFY UNIT # IN RH)
		.QBUGN==4	;GENERIC DEVICE
.QBAFT==16	;/AFTER BLOCK
	.QBADT==0	;/AFTER TIME IN UNIVERSAL DATE/TIME FORMAT
.QBLIM==17	;LIMIT BLOCK (/TIME:, /PAGES:, ETC.)
	.QBLNO==0	;NUMBER OF PAGES, ETC. OR TIME IN SECS
.QBUNI==20	;/UNIQUE BLOCK
	.QBNVL==0	;/UNIQUE VALUE
		.QBNNO==1	;/UNIQUE:NO
		.QBNYE==2	;/UNIQUE:YES
.QBRES==21	;/RESTART BLOCK
	.QBRVL==0	;/RESTART VALUE
		.QBRNO==1	;/RESTART:NO
		.QBRYE==2	;/RESTART:YES
.QBLOG==22	;/OUTPUT: (LOG,NOLOG,ERROR)
	.QBLVL==0	;/OUTPUT: VALUE
		.QBLNL==1	;NO LOG FILE
		.QBLLG==2	;LOG FILE ALWAYS
		.QBLLE==3	;LOG FILE ONLY ON ERROR
.QBACT==23	;/ACCOUNT: ACCOUNT STRING BLOCK
	.QBAC1==0	;FIRST WORD OF ASCIZ ACCOUNT
	.QBAC2==1	;SECOND WORD OF ASCIZ ACCOUNT
	.QBAC3==2	;THIRD WORD OF ASCIZ ACCOUNT
	.QBAC4==3	;FOURTH WORD OF ASCIZ ACCOUNT
	.QBAC5==4	;FIFTH WORD OF ASCIZ ACCOUNT
	.QBAC6==5	;SIXTH WORD OF ASCIZ ACCOUNT
	.QBAC7==6	;SEVENTH WORD OF ASCIZ ACCOUNT
	.QBAC8==7	;EIGHTH WORD OF ASCIZ ACCOUNT
.QBFNC==24	;RESERVED FOR DEC
.QBNOD==25	;/NODE: DESTINATION NODE BLOCK
	.QBNND==0	;DESTINATION NODE NUMBER OR SIXBIT NODE NAME
.QBNAM==26	;USER'S NAME BLOCK
	.QBNM1==0	;FIRST WORD OF SIXBIT USER'S NAME
	.QBNM2==1	;SECOND WORD OF SIXBIT USER'S NAME
.QBOID==27	;OWNER'S PPN BLOCK
	.QBOPP==0	;OWNER'S PPN
.QBNOT==30	;/NOTIFY BLOCK
	.QBNTL==0	;/NOTIFY VALUE
		.QBNTY==1	;NOTIFY TERMINAL WHEN JOB IS COMPLETE
		.QBNML==2	;RESERVED FOR DEC
		.QBNJB==3	;RESERVED FOR DEC
.QBBLT==31	;/BATLOG: BLOCK
	.QBBVL==0	;/BATLOG VALUE
		.QBBND==1	;APPEND OUTPUT LOG FILE
		.QBBDE==2	;SUPERSEDE OUTPUT LOG FILE
		.QBBSP==3	;SPOOL OUTPUT LOG FILE
.QBJBN==32	;JOB NAME
	.QBJNM==0	;SIXBIT JOB NAME
.QBCDI==33	;CONNECTED DIRECTORY BLOCK
	.QBCPP==0	;PPN
	.QBCS1==1	;FIRST WORD OF PATH BLOCK
	.QBCS2==2	;SECOND WORD OF PATH BLOCK
	.QBCS3==3	;THIRD WORD OF PATH BLOCK
	.QBCS4==4	;FOURTH WORD OF PATH BLOCK
	.QBCS5==5	;FIFTH WORD OF PATH BLOCK
.QBNTE==34	;/NOTE: BLOCK
	.QBNN1==0	;1 TO 6 SIXBIT CHARACTERS
	.QBNN2==1	;1 TO 6 SIXBIT CHARACTERS (MAXIMUM OF 12 CHARACTERS)
.QBBGN==35	;/BEGIN: BLOCK
	.QBBPN==0	;BEGINNING PAGE NUMBER FOR STARTING OUTPUT
.QBPRI==36	;/PRIORITY: BLOCK
	.QBPVL==0	;PRIORITY VALUE (1 TO 20 OR 1 TO 63)
.QBVSN==37	;ASCIZ VOLUME SET NAME
	.QBVAS==0	;BEGINNING OF ASCIZ VOLUME SET NAME
.QBMSG==40	;WTO/WTOR MESSAGE BLOCK
	.QBMAS==0	;BEGINNING OF ASCIZ MESSAGE FOR THE OPERATOR
.QBTYP==41	;PRIVILEGED WTO/WTOR MESSAGE BLOCK
	.QBTAS==0	;BEGINNING OF ASCIZ MESSAGE FOR THE OPERATOR


;BLOCK DEFINITIONS FOR MDA (MOUNT/DISMOUNT/ALLOCATE/DEALLOCATE)

;	UUO BLOCKS MUST BE ORDERED AS FOLLOWS:
;
;		.QBVSN  ;VOLUME SET NAME BLOCK FOR FIRST VOLUME SET
;		.QBxxx	; ....
;		.QBxxx	; .... ANY OF THE FOLLOWING PARAMETER
;		.QBxxx	; .... BLOCKS IN ANY ORDER
;		.QBxxx	; ....
;		.QBVSN	;VOLUME SET NAME BLOCK FOR NEXT VOLUME SET
;		.QBxxx	; ....
;		.QBxxx	; .... ANY OF THE FOLLOWING PARAMETER
;		.QBxxx	; .... BLOCKS IN ANY ORDER
;		.QBxxx	; ....
;		  .
;		  .
;		  .
;
;	FOR DISMOUNT/DEALLOCATE ONLY THE .QBVSN & .QBMFG BLOCKS ARE
;	VALID AND MDA WILL ONLY PROCESS 1 VOLUME SET AT A TIME.
;	FOR A NOTIFY BLOCK, USE .QBNOT.

.QBDEN==42	;TAPE DENSITY BLOCK
	.QBTDN==0	;TAPE DENSITY CODE (.TFDxx)
.QBTRK==43	;TAPE TRACK BLOCK
	.QBDRV==0	;TAPE TRACK REQUEST CODE
		.QBDR9==1	;WANT 9 TRACK DRIVE
		.QBDR7==2	;WANT 7 TRACK DRIVE
.QBLTP==44	;LABEL TYPE BLOCK
	.QBLAB==0	;LABEL TYPE CODE (See .TFxxx)
.QBRMK==45	;REMARK BLOCK
	.QBREM==0	;START OF ASCIZ REMARK TO BE SENT TO OPERATOR
.QBVOL==46	;TAPE VOLUME LIST BLOCK
	.QBVLS==0	;START OF LIST OF SIXBIT TAPE VOLUME IDS (MAX 63)
.QBLNM==47	;VOLUME SET LOGICAL NAME BLOCK
	.QBLGN==0	;SIXBIT LOGICAL NAME FOR THIS VOLUME SET
.QBMFG==50	;MOUNT/DISMOUNT FLAG BLOCK
	.QBMDF==0	;MOUNT/DISMOUNT FLAG BITS
		QB.PAS==1B0	;ADD STR TO PASSIVE SEARCH LIST (ACTIVE IS DEFAULT)
		QB.EXC==1B1	;WANT EXCLUSIVE/SINGLE ACCESS (SHARE IS DEAFULT)
		QB.NOC==1B2	;WANT /NOCREATE (CREATE IS DEFAULT)
		QB.DSK==1B3	;THIS IS A STRUCTURE REQUEST (UNKNOWN IS DEFAULT)
		QB.TAP==1B4	;THIS IS A TAPE REQUEST (UNKNOWN IS DEFAULT)
		QB.WLK==1B5	;WANT VOLUME SET WRITE LOCKED
		QB.WEN==1B6	;WANT VOLUME SET WRITE ENABLED
		QB.REM==1B7	;ASK OPR TO REMOVE STR ON DISMOUNT
		QB.SCR==1B8	;THIS IS A SCRATCH TAPE
		QB.ARD==1B9	;ALWAYS RECOMPUTE DISK USAGE
		QB.DTA==1B10	;THIS IS A DECTAPE REQUEST (UNKNOWN IS DEFAULT)

.QBAFN==51	;ACCOUNT DAEMON SUBFUNCTION. (SEE ACTSYM)
.QBAET==52	;TYPE OF USAGE ENTRY.  MUST ALWAYS FOLLOW .QBAFN
		; IF .QBAFN = UGENT$ (SEE ACTSYM)

.QBTTY==53	;TTY NAME BLOCK. SENT BY MONITOR TO ORION
		;WHEN USER ISSUES 'SEND OPR' COMMAND.
	.QBTTN==0	;SIXBIT TTY NAME OF SENDER
	.QBTNL==1	;XWD NODE NUMBER,LINE NUMBER  OF SENDER

.QBFNT==54	;FONT NAME OF FONT TO PRINT FILE IN
	.QBFN0==0	;ADDRESS OF ASCIZ NAME
	.QBFN1==1	;  (6 WORDS MAXIMUM, DEFINE THEM)
	.QBFN2==2
	.QBFN3==3
	.QBFN4==4
	.QBFN5==5


.QBEVT==55	;EVENT TYPE (SEE QSRMAC)
	.QBEV0==0	;EVENT TYPE CODE

.QBREP==56	;REPEAT FLAGS FOR EVENTS
	.QBRP0==0	;REPEAT FLAG WORD
		QB.NOW==1B0	;NOW
		QB.DLY==1B1	;DAILY
		QB.WKY==1B2	;WEEKLY
		QB.TIM==1B3	;USE SPECIFIED TIME
		QB.DAY==0,,-1	;DAY OF THE WEEK
				;WEDNESDAY = 0, THURSDAY = 1, ETC.

.QBESW==57	;EVENT DEPENDENT AND INDEPENDENT SWITCHES
	.QBESD==0	;EVENT DEPENDENT SWITCHES
	.QBESI==1	;EVENT INDEPENDENT SWITCHES
		QB.FSF==1B0	;/FAILSOFT
		QB.NFS==1B1	;/NOFAILSOFT

.QBAST==60	;OPERATOR INTERVENTION
	.QBINY==1	;OPR INTERVENTION - YES
	.QBINN==2	;OPR INTERVENTION - NO

.QBPRC==61	;IBM PROCESSING NODE

.QBOPT==62	;SIXBIT BATCH OPTION NAME
	.QBOP0==0	;OFFSET TO OPTION NAME

.QBDIS==63	;/DISTRIBUTION:"TEXT"
	.QBDI0==0	;OFFSET TO THE FIRST WORD OF DATA

.QBUSR==64	;/USERNAME:"TEXT"
	.QBUS0==0	;OFFSET TO THE FIRST WORD OF DATA

.QBUTY==65	;SIXBIT UNIT TYPE (E.G. "LN01")


;QUEUE. ERROR CODES

QUIAL%==1	;ILLEGAL ARGUMENT LIST
QUILF%==2	;ILLEGAL FUNCTION
QUNFS%==3	;NO MONITOR FREE CORE
QUADC%==4	;ADDRESS CHECK
QUCNR%==5	;COMPONENT NOT RUNNING -- NO SYSTEM PID
QUFER%==6	;FATAL ERROR RETURNED FROM ORION
QUSOC%==7	;INVALID MESSAGE FROM ORION
QUNPV%==10	;NOT PRIVILEGED
QUTMO%==11	;REQUEST TIMED-OUT

;IF A RESPONSE BLOCK IS GIVEN, THE FOLLOWING ARE RETURNED IN THE AC

		QU.RBT==1B18	;RESPONSE BLOCK TRUNCATED
		QU.RBR==1B19	;RESPONSE BLOCK RETURNED
		QU.RBL==777B35	;RESPONSE BLOCK LENGTH
	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:
.SCRSI==000000	;READ SCHEDULING INTERVAL
.SCSSI==400000	;SET   SCHEDULING INTERVAL
	;BLOCK CONTAINS:
	.SCBSI==0	;SCHEDULING INTERVAL

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

.SCRCQ==000002	;READ CLASS QUOTAS AND FLAGS
.SCSCQ==400002	;SET  CLASS QUOTAS AND FLAGS
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !            SIZE OF BLOCK            !
	;;  !-------------------------------------!
	;;  !    BITS+CLASS    !      QUOTA       !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !    BITS+CLASS    !      QUOTA       !
	;;  !=====================================!
	.SCBCT==0	;WORD COUNT
	.SCBCQ==1	;CLASS QUOTA
		SC.FCQ==1B0	;QUOTA IS FIXED
		SC.CLN==377777B17 ;CLASS NUMBER
		SC.CLQ==777777B35 ;CLASS QUOTA

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

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

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

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

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

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

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

.SCRDC==000012	;READ THE DEFAULT CLASS FOR NEW JOBS
.SCSDC==400012	;SET THE DEFAULT CLASS FOR NEW JOBS
	;BLOCK CONTAINS:
	.SCBDC==0	;DEFAULT CLASS

.SCRRC==000013	;READ THE MCU REQUEUE CONSTANT
.SCSRC==400013	;SET THE MCU REQUEUE CONSTANT
	;BLOCK CONTAINS:
	.SCBRC==0	;VALUE OF MCU REQUEUE CONSTANT (MICROSECONDS)

.SCRPM==000014	;READ VALUE OF MCU MAXIMUM
.SCSPM==400014	;SET VALUE OF MCU MAXIMUM
	;BLOCK CONTAINS:
	.SCBPM==0	;VALUE OF MCU MAXIMUM (MICROSECONDS)
.SCRML==000015	;READ QUANTUM MULTIPLIERS FOR PQ1, PQ2 AND SCALE FACTOR
.SCSML==400015	;SET QUANTUM MULTIPLIERS FOR PQ1, PQ2 AND SCALE FACTOR
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !     QUEUE #      !  QUANTUM MULT.   !
	;;  !-------------------------------------!
	;;  !     QUEUE #      !  QUANTUM MULT.   !
	;;  !-------------------------------------!
	;;  !        3         !   SCALE FACTOR   !
	;;  !=====================================!
	;.SCBCT==0	;WORD COUNT
	.SCBMP==1	;QUEUE #,,QUANTUM MULTIPLIER (IN MILLISECONDS)
	.SCBMQ==2	;QUEUE #,,QUANTUM MULTIPLIER (IN MILLISECONDS)
	.SCBMR==3	;3,,SCALE FACTOR
		SC.BMR==3,,0	;LH MUST BE 3

.SCRMX==000016	;READ MAXIMUM QUANTUM RUN FOR PQ1 AND/OR PQ2
.SCSMX==400016	;SET MAXIMUM QUANTUM RUN FOR PQ1 AND/OR PQ2
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !     QUEUE #      ! MAX. TIME SLICE  !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !     QUEUE #      ! MAX. TIME SLICE  !
	;;  !=====================================!
	;.SCBCT==0	;WORD COUNT
	.SCBMX==1	;QUEUE NUMBER,,MAXIMUM TIME SLICE (IN MILLISECONDS)

.SCRSQ==000017	;READ SECONDARY CLASS QUOTAS
.SCSSQ==400017	;SET SECONDARY QUOTAS FOR CLASS
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !      CLASS       !      QUOTA       !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !      CLASS       !      QUOTA       !
	;;  !=====================================!
	;.SCBCT==0	;WORD COUNT
	.SCBSQ==1	;CLASS,,QUOTA
.SCRIQ==000020	;READ TIME PERCENTAGE TO SCAN JUST SWAPPED IN QUEUE BEFORE SUBQUEUES
.SCSIQ==400020	;SET TIME PERCENTAGE TO SCAN JUST SWAPPED IN QUEUE BEFORE SUBQUEUES
	;BLOCK CONTAINS:
	.SCBIQ==0	;PERCENTAGE TO SCAN JUST SWAPPED IN QUEUE

.SCRSS==000021	;READ SWAP SCAN TIME
.SCSSS==400021	;SET SWAP SCAN TIME
	;BLOCK CONTAINS:
	.SCBSS==0	;VALUE OF SCAN SWAP TIME (TICKS)

.SCRBB==000022	;READ NUMBER FOR BACKGROUND BATCH SUBQUEUE
.SCSBB==400022	;SET NUMBER FOR BACKGROUND BATCH SUBQUEUE
	;BLOCK CONTAINS:
	.SCBBB==0	;SUBQUEUE FOR BACKGROUND BATCH

.SCRBS==000023	;READ BACKGROUND BATCH SWAP TIME INTERVAL
.SCSBS==400023	;SET BACKGROUND BATCH SWAP  TIME INTERVAL
	;BLOCK CONTAINS:
	.SCBBS==0	;NUMBER OF TICKS BETWEEN BACKGROUND BATCH SWAP INS.

.SCRSF==000024	;READ SCHEDULER FAIRNESS FACTOR
.SCSSF==400024	;SET SCHEDULER FAIRNESS FACTOR
	;BLOCK CONTAINS:
	.SCBSF==0	;VALUE OF SCHEDULER FAIRNESS FACTOR

.SCRSW==000025	;READ SWAPPER FAIRNESS FACTOR
.SCSSW==400025	;SET SWAPPER FAIRNESS FACTOR
	;BLOCK CONTAINS:
	.SCBSW==0	;VALUE OF SWAPPER FAIRNESS FACTOR

.SCRIO==000026	;READ IN-CORE FAIRNESS
.SCSIO==400026	;SET IN-CORE FAIRNESS
	;BLOCK CONTAINS:
	.SCBIO==0	;PERCENTAGE TO SCAN IN-CORE QUEUES FIRST

.SCRSC==000027	;READ SCDCOR
.SCSSC==400027	;SET SCDCOR
	;BLOCK CONTAINS:
	.SCBSC==0	;VALUE OF SCDCOR
.SCRSO==000030	;READ SCAN ORDER
.SCSSO==400030	;SET SCAN ORDER
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !             WORD COUNT              !
	;;  !-------------------------------------!
	;;  !      CPU#       !      SUB FCN      !
	;;  !-------------------------------------!
	;;  /                                     /
	;;  /                                     /
	;;  /                                     /
	;;  !-------------------------------------!
	;;  !      CPU#       !      SUB FCN      !
	;;  !=====================================!
	;.SCBCT==0	;WORD COUNT
	.SCBSO==1
		.SCBS0==0	;HPQ,PQ1,PQ2
		.SCBS1==1	;HPQ,PQ2,PQ1

.SCRRT==000031	;READ SEGMENT RETENTION TIME
.SCSRT==400031	;SET SEGMENT RETENTION TIME
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  ! DORM. SEG. RETENTION TIME (JIFFIES) !
	;;  !=====================================!
	.SCBRT==0	;RETENTION TIME

.SCRFG==000032	;READ FREE CORE GOAL
.SCSFG==400032	;SET FREE CORE GOAL
	;;BLOCK CONTAINS:
	;;  !=====================================!
	;;  !	MINIMUM FREE CORE SIZE (GOAL)	  !
	;;  !-------------------------------------!
	;;  !   MAXIMUM FREE CORE SIZE		  !
	;;  !=====================================!
	;;NOTE THAT BOTH SIZES ARE PERCENTAGES OF USER CORE AS DETERMINED
	;;WHEN THE SYSTEM WAS BOOTED.
	.SCBFG==0		;GOAL
	.SCBFL==1		;LIMIT
;SCHED. UUO ERROR CODES

SCHAC%==1	;ADDRESS CHECK
SCHUF%==2	;UNKNOWN FUNCTION
SCHUJ%==3	;UNKNOWN JOB
SCHNP%==4	;NOT PRIVILEGED
SCHUC%==5	;UNKNOWN CLASS
SCHUQ%==6	;UNKNOWN QUEUE
SCHNC%==7	;NON-EXISTANT CHANNEL
SCHEB%==10	;EXPONENTIAL FACTOR BAD
SCHMI%==11	;ATTEMPT TO SET PROT WHEN MCUINT NON-ZERO
;SCHNS%==12	;OBSOLETE
SCHNH%==13	;NOT 100%
SCHFN%==14	;FAIRNESS NOT POSITIVE
SCHIC%==15	;ILLEGAL CPU
SCHUO%==16	;UNKNOWN SCAN ORDER
	SUBTTL	MISC. NON-I/O -- ATTACH

AT.UMM==1B0	;PLACE IN MONITOR MODE
AT.UUM==1B1	;PLACE IN USER MODE



	SUBTTL	MISC. NON-I/O -- ACCT.

;ACCT. FUNCTIONS

.ACTCH==0	;CHANGE THE ACCOUNT STRING
.ACTRD==1	;READ THE ACCOUNT STRING

;ACCT. ERROR CODES

ACTTL%==1	;ACCOUNT STRING TOO LONG
ACTAC%==2	;ADDRESS CHECK ERROR
ACTIL%==3	;ILLEGAL ARGUMENT SPECIFIED
ACTNJ%==4	;NON-EXISTANT JOB SPECIFIED
ACTPS%==5	;PRIVILEGED ACCOUNT STRING



	SUBTTL	MISC. NON-I/O -- ACCLG.

AC.MAX==1B0	;CHECK LOGMAX
AC.BMX==1B1	;CHECK BATMAX
AC.DCR==1B2	;DECREMENT LOGNUM COUNT

;ERROR CODES

ACLMX%==1		;LOGMAX CHECK FAILED
ACLBM%==2		;BATMAX CHECK FAILED
ACLIL%==3		;ACCLG. ARGUMENT ERROR
ACLJL%==4		;ACCLG. GOT BAD DECREMENT WITH JLOG SET
ACLDC%==5		;ACCLG. ERROR, DECR TRIED WITHOUT INCR DONE
	SUBTTL	MISC. NON-I/O -- JOBPEK

JK.WRT==1B0	;1=WRITE OTHER JOB'S CORE, 0=READ
JK.UPM==1B1	;READ OTHER JOB'S UPMP (JK.WRT MUST BE 0)
JK.EVA==1B2	;SOURCE ADDRESS IS BETWEEN 340000 AND 377777. TREAT
		;AS IF IT WERE AN EXEC VIRTUAL ADDRESS MAPPED THROUGH
		;THE SPECIFIED JOB'S UPMP. (JK.WRT AND JK.UPM MUST BE 0)
JK.AIO==1B3	;DO NOT BLOCK IF DATA IS INACCESSIBLE
		; (ONLY IF JK.UPM OR JK.EVA)
JK.JOB==777B17	;JOB NUMBER (FORMAT 1)
JK.WCT==777777B35;WORD COUNT (FORMAT 1)
JK.JCH==777777B35 ;JCH (FORMAT 2)
JK.EWC==1777B17	;EXTENDED FORMAT WORD COUNT (FORMAT 2)


;JOBPEK ERROR CODES

JKNPV%==1	;JOB NOT PRIVILEGED
JKIJN%==2	;ILLEGAL JOB NUMBER
JKSWP%==3	;JOB SWAPPED OUT OR IN TRANSIT
JKIAD%==4	;ILLEGAL ADDRESS (SOURCE OR DESTINATION)
JKDNA%==5	;DATA NOT ADDRESSABLE (ONLY IF JK.AIO SET)
JKPNC%==6	;PAGE NOT IN CORE
JKIOE%==7	;I/O ERROR
JKABZ%==10	;ALLOCATED BUT ZERO PAGE
	SUBTTL	MISC. NON-I/O -- RECON.

;RECON. FUNCTIONS

.RCROM==0	;RUN ONLY SPECIFIED JOB
.RCSPN==1	;TAKE A SNAPSHOT AND SUSPEND SYSTEM
.RCCI7==2	;TAKE A CONTINUABLE STOPCD DUMP AND CONTINUE
.RCNAR==3	;ENABLE/DISABLE AUTO-RELOADS
.RCBTX==4	;SPECIFY A NEW BOOTXT COMMAND STRING
.RCRLD==5	;RELOAD THE SYSTEM
.RCRAC==6	;CAUSE AUTCON TO CONFIGURE DEVICES
.RCDET==7	;DETACH CPU OR DEVICE (OBSOLETE)
.RCATT==10	;ATTACH CPU OR DEVICE (OBSOLETE)
.RCMON==11	;SET MEMORY ON-LINE
.RCMOF==12	;SET MEMORY OFF-LINE
.RCCPU==13	;RETURN CPU ACCESSIBILITY MASK FOR DEVICE
.RCIOW==14	;WAIT FOR ACTIVE I/O ON SYSTEM TO STOP (OBSOLETE)
.RCSDF==15	;SET DUMP/RELOAD FLAGS
.RCCDF==16	;CLEAR DUMP/RELOAD FLAGS
.RCRBM==17	;READ BOOTSTRAP MICROCODE INFORMATION
.RCSBM==20	;SUPPLY NEW BOOTSTRAP MICROCODE

;RECON. ERROR CODES

RCIAL%==1	;ILLEGAL ARGUMENT LIST
RCNPU%==2	;NOT PRIVILEGED
RCNTS%==3	;TIME-SHARING HAS ALREADY STOPPED ON SOME CPU
RCNIJ%==4	;ILLEGAL JOB NUMBER
RCNCD%==5	;SYSTEM CANNOT BE SNAPSHOTTED
RCNAC%==6	;ADDRESS CHECK
RCNIS%==7	;ILLEGAL STRING
RCICN%==10	;ILLEGAL CPU NUMBER
RCNCR%==11	;CPU STILL RUNNING
RCNCA%==12	;CAN'T ATTACH DISK
RCNDS%==13	;DEVICE IS SPOOLED
RCNAA%==14	;DEVICE IS ALREADY ATTACHED
RCNID%==15	;ILLEGAL DEVICE
RCNDU%==16	;DEVICE IN USE
RCNND%==17	;CAN NOT DETACH DISK
RCNNL%==20	;LOKCON NOT LOADED (CAN'T SET MEMORY OFF-LINE)
RCNMM%==21	;REMOVING MONITOR MEMORY
RCNTB%==22	;JOB(S) TOO BIG
RCNLJ%==23	;MOVING LOCKED JOB(S)
RCNBN%==24	;BOOTSTRAP NOT AVAILABLE
RCNEM%==25	;NON-EXISTANT MICROCODE
RCMLD%==26	;MICROCODE LENGTHS DIFFER
	SUBTTL	MISC. NON-I/O -- RUNTIM

RN.PCN==1B0	;RETURN PRECISION RUNTIME IN TEN-MICROSECOND UNITS



	SUBTTL	MISC. NON-I/O -- CMAND.

;FUNCTIONS
.CMINT==0	;INITIALIZE (CLEAR) AND ADD A SET OF COMMANDS
DEFINE	.CMINI<
PRINTX % .CMINI will be obsolete; please use .CMINT instead.
DEFINE	.CMINI<0>
;>
.CMADD==1	;ADD A SET OF COMMANDS
.CMDEL==2	;DELETE A SET OF COMMANDS
.CMLST==3	;RETURN A LIST OF COMMAND NAMES
.CMRET==4	;RETURN INFORMATION ABOUT A COMMAND
.CMDMP==5	;DUMP THE COMMAND DATA BASE

;OFFSETS FOR GENERIC COMMAND BLOCK (USED BY FUNCTIONS .CMDEF AND .CMADD,
;AND RETURNED BY FUNCTIONS .CMRET AND .CMDMP

.CMFLA==0	;FLAGS AND LENGTH WORD
DEFINE	.CMFLG<
PRINTX % .CMFLG will be obsolete; please use .CMFLA instead.
DEFINE	.CMFLG<0>
;>
   CM.UN1==10B17 ;UNIQUE TO 1 CHARACTER
   CM.UN2==4B17	; UNIQUE TO 2 CHARACTERS
   CM.UN3==2B17	;   ""   "" 3     ""
   CM.UN4==1B17	;   ""   "" 4     ""
   CM.UNQ==17B17 ;UNIQNESS BITS.
;  CM.XXX==1B13	;RESERVED
   CM.AUT==1B12	;AUTO-PUSH COMMAND (PRESERVE CORE IMAGE)
   CM.CNT==777777B35 ;NUMBER OF WORDS IN THIS SUB-BLOCK
.CMNAM==1	;COMMAND NAME
.CMDVC==2	;DEVICE NAME
DEFINE	.CMDEV<
PRINTX % .CMDEV will be obsolete; please use .CMDVC instead.
DEFINE	.CMDEV<2>
;>
.CMFLE==3	;FILENAME
DEFINE	.CMFIL<
PRINTX % .CMFIL will be obsolete; please use .CMFLE instead.
DEFINE	.CMFIL<3>
;>
.CMEXT==4	;EXTENSION,,0
.CMPPN==5	;PPN
.CMSFD==6	;FIRST SFD
.CMMAX==.CMSFD+<.PTMAX-.PTSFD-1> ;MAX LENGTH

;FORMAT RETURNED BY .CMLST FUNCTION
;FORMAT READ     BY .CMDEL FUNCTION
.CMCOU==0	;NUMBER OF NAMES TO FOLLOW
DEFINE	.CMCNT<
PRINTX % .CMCNT will be obsolete; please use .CMCOU instead.
DEFINE	.CMCNT<0>
;>
;....		;AS MANY NAMES AS REQUIRED.

;FORMAT READ BY .CMRET FUNCTION (OUTPUT IS RETURNED IN GENERIC BLOCK FORMAT)
.CMSIZ==0	;SIZE OF ARGUMENT BLOCK THAT FOLLOWS
.CMCMN==1	;COMMAND NAME REQUESTED.

;ERROR RETURNS
CMIAL%==1	;ILLEGAL ARGUMENT LIST (SOME FIELD TOO LONG OR TOO SHORT)
CMADC%==2	;ADDRESS CHECK
CMNER%==3	;NOT ENOUGH ROOM IN FUNNY SPACE.
CMDNF%==4	;DID NOT FINISH (NOT ENOUGH ROOM IN USER BUFFER)
CMNSN%==5	;NO SUCH COMMAND NAME (ON .CMRET)
	SUBTTL	MISC. NON-I/O -- SCS UUO


; SYSTEM COMMUNICATION SERVICES UUO
; CALL:	MOVEI	AC,ADR
;	SCS.	AC,
;	  <NON-SKIP>
;	<SKIP>

; ARGUMENT BLOCK

.SQFNC==0		;FUNCTION CODE WORD
   SS.CPU==7B8		   ;CPU NUMBER (ONLY USED IN CERTAIN FUNCTIONS)
   SS.LEN==777B17	   ;LENGTH OF BLOCK (INCLUDING THIS WORD)
   SS.FNC==777777B35	   ;FUNCTION CODE
	.SSCON==0		;REQUEST A CONNECTION
	.SSLIS==1		;LISTEN FOR A CONNECTION
	.SSREJ==2		;REJECT A CONNECTION REQUEST
	.SSDIS==3		;DISCONNECT AND CLOSE A CONNECTION
	.SSSDG==4		;SEND A DATAGRAM
	.SSQRD==5		;QUEUE BUFFER(S) TO RECEIVE DATAGRAM
	.SSSMG==6		;SEND A MESSAGE
	.SSQRM==7		;QUEUE BUFFER(S) TO RECEIVE MESSAGE
	.SSCSP==10		;RETURN INFORMATION ABOUT STATUS OF
				; A CONNECTION
	.SSRCD==11		;RETURN CONFIGURATION DATA FOR A
				; REMOTE SYSTEM
	.SSSTS==12		;RETURN INFORMATION ABOUT STATUS OF
				; A CONNECTION (.SSCSP IN BRIEF)
	.SSRMG==13		;RECEIVE A MESSAGE
	.SSMAP==14		;MAP A BUFFER FOR DMA TRANSFER
	.SSUMP==15		;UNMAP A BUFFER FOR DMA TRANSFER
	.SSSND==16		;SEND DATA TO REMOTE HOST
	.SSREQ==17		;REQUEST DELIVERY OF DATA
;	.SSAIC==20		;ADD INTERRUPT CHANNEL
	.SSRDG==22		;RECEIVE A DATAGRAM
	.SSACC==23		;ACCEPT A CONNECTION REQUEST
	.SSGDE==24		;RETURN ENTRY FROM DATA REQUEST
				; COMPLETE QUEUE
	.SSEVT==25		;RETURN ENTRY FROM EVENT QUEUE
	.SSCRD==26		;CANCEL DATAGRAM RECEIVE
	.SSCRM==27		;CANCEL MESSAGE RECEIVE
	.SSGLN==30		;GET LOCAL NODE NUMBER
	.SSRBS==35		;RETURN MINIMUM BUFFER SIZES
	.SSRPS==36		;RETURN PATH STATUS

;ARGUMENTS FOR FUNCTION .SSCON

.SQSPN==1		;BYTE POINTER TO SOURCE PROCESS NAME
.SQDPN==2		;BYTE POINTER TO DESTINATION PROCESS NAME
.SQSYS==3		;NODE NUMBER,,CONNECT ID BITS
.SQCDT==4		;ADDRESS OF INITIAL CONNECTION DATA
.SQAMC==5		;ADDRESS OF MESSAGE BUFFER CHAIN
.SQADC==6		;ADDRESS OF DATAGRAM BUFFER CHAIN
.SQRCI==7		;RETURNED CONNECT ID

;ARGUMENTS FOR FUNCTION .SSLIS

.SQSPN==1		;BYTE POINTER TO SOURCE PROCESS NAME
.SQDPN==2		;BYTE POINTER TO DESTINATION PROCESS NAME
.SQSYS==3		;NODE NUMBER,,CONNECT ID BITS
.SQLCI==4		;RETURNED CONNECT ID

;ARGUMENTS FOR FUNCTION .SSREJ

.SQCID==1		;CONNECT ID
.SQREJ==2		;REJECTION REASON CODE

;ARGUMENTS FOR FUNCTION .SSDIS

.SQCID==1		;CONNECT ID
.SQDIS==2		;DISCONNECT REASON CODE

;ARGUMENTS FOR FUNCTIONS .SSSDG/.SSSMG

.SQCID==1		;CONNECT ID
.SQAPT==2		;ADDRESS OF DATAGRAM/MESSAGE TEXT
.SQLPT==3		;LENGTH OF DATAGRAM/MESSAGE TEXT
.SQFLG==4		;FLAGS AND OPTIONAL PATH SPEC
   SC%FLG==7777777777B29   ;RESERVED FOR FLAGS
   SC%MOD==1B1		   ;MODE FLAG (HIGH DENSITY IF SET, INDUS. COMPAT. IF NOT)
   SC%OPS==77B35	   ;OPTIONAL PATH SPEC MASK
	.SSAPS==0		;AUTO PATH SELECT
	.SSPTA==1		;USE PATH A
	.SSPTB==2		;USE PATH B

;ARGUMENTS FOR FUNCTION .SSQRD/.SSQRM

.SQCID==1		;CONNECT ID
.SQAFB==2		;ADDRESS OF FIRST BUFFER IN CHAIN - FIRST WORD OF EACH
			; BUFFER IS POINTER TO NEXT OR ZERO

;ARGUMENTS FOR FUNCTION .SSCSP

.SQCID==1		;CONNECT ID
.SQCST==2		;CONNECTION STATE
.SQDCI==3		;DESTINATION CONNECT ID
.SQBDN==4		;BYTE POINTER TO DESTINATION PROCESS NAME
.SQNOD==5		;NODE NUMBER
.SQREA==6		;SOURCE,,DESTINATION  DISCONNECT CODES

;ARGUMENTS FOR FUNCTION .SSRCD

.SQCID==1		;CONNECT ID (OR ZERO TO USE NODE NUMBER)
.SQOND==2		;NODE NUMBER (USED IF .SQCID IS ZERO)
.SQVCS==3		;VIRTUAL CIRCUIT STATE,,DESTINATION NODE NUMBER
.SQSAD==4		;SYSTEM ADDRESS (2 WORDS)
.SQMDD==6		;MAXIMUM DATAGRAM SIZE AT DESTINATION
.SQMDM==7		;MAXIMUM MESSAGE SIZE AT DESTINATION
.SQDST==10		;SOFTWARE TYPE CODE AT DESTINATION
.SQDSV==11		;SOFTWARE VERSION AT DESTINATION
.SQDSE==12		;SOFTWARE EDIT LEVEL AT DESTINATION (2 WORDS)
.SQDHT==14		;HARDWARE TYPE CODE AT DESTINATION
.SQDHV==15		;HARDWARE VERSION AT DESTINATION (3 WORDS)
.SQNNM==20		;DESTINATION NODE NAME (2 WORDS)
.SQPCW==22		;PORT CHARACTERISTICS
.SQLPN==23		;LOCAL CHANNEL NUMBER

;ARGUMENTS FOR FUNCTION .SSSTS

.SQCID==1		;CONNECT ID
.SQFST==2		;STATUS FLAGS,,CONNECTION STATE
   SC%MSA==1B0		   ;MESSAGE AVAILABLE
   SC%DGA==1B1		   ;DATAGRAM AVAILABLE
   SC%DTA==1B2		   ;DMA TRANSFER COMPLETE
   SC%EVA==1B3		   ;EVENT PENDING
.SQSBR==3		;DESTINATION NODE NUMBER

;ARGUMENTS FOR FUNCTIONS .SSRMG/.SSRDG

.SQCID==1		;CONNECT ID
.SQARB==2		;ADDRESS OF RETURNED BUFFER
.SQDFL==3		;FLAGS AND NODE NUMBER OF REMOTE SYSTEM
			; (SEE .SSSDG FOR DEFINITION OF FLAG BITS)
.SQLRP==4		;LENGTH OF RETURNED MESSAGE/DATAGRAM
			; (WORDS IF HIGH DENSITY, BYTES IF INDUSTRY COMPATIBLE)

;ARGUMENTS FOR FUNCTION .SSMAP

.SQXFL==1		;FLAGS
   SQ%DMD==3B35		   ;MASK FOR MODE FIELD
	SQ%DIC==0B35		;INDUSTRY COMPATIBLE
	SQ%DCD==1B35		;CORE DUMP MODE
	SQ%DHD==2B35		;HIGH DENSITY MODE
   SQ%CVD==1B32		   ;DO NOT CLEAR THE VALID BIT IF SET
   SQ%WRT==1B33		   ;IF SET, HOST MEMORY IS WRITABLE
.SQBNA==2		;RETURNED BUFFER NAME

;BUFFER LENGTH AND ADDRESS PARTS:

.SQBLN==0		;LENGTH OF BUFFER SEGMENT
.SQBAD==1		;ADDRESS OF BUFFER SEGMENT

;ARGUMENTS FOR FUNCTION .SSUMP

.SQNAM==1		;BUFFER NAME

;ARGUMENTS FOR FUNCTIONS .SSSND/.SSREQ

.SQCID==1		;CONNECT ID
.SQSNM==2		;SEND BUFFER NAME
.SQRNM==3		;RECEIVE BUFFER NAME
.SQOFS==4		;TRANSMIT,,RECEIVE  BUFFER OFFSETS

;ARGUMENTS FOR FUNCTION .SSACC

.SQCID==1		;CONNECT ID
.SQCDA==2		;POINTER TO CONNECTION DATA

;ARGUMENTS FOR FUNCTION .SSGDE

.SQCID==1		;CONNECT ID
.SQBID==2		;BUFFER ID OFFSET

;ARGUMENTS FOR FUNCTION .SSEVT

.SQCID==1		;CONNECT ID
.SQESB==2		;NODE NUMBER OF REMOTE SYSTEM
.SQEVT==3		;EVENT CODE
	.SEVCC==1		;VC BROKEN
				; .SQDTA CONTAINS THE NODE NUMBER
	.SECTL==2		;CONNECT TO LISTEN
				; .SQDTA CONTAINS FIRST FOUR WORDS OF CONNECTION
				; DATA FROM REMOTE NODE
	.SECRA==3		;CONNECTION WAS ACCEPTED
				; .SQDTA CONTAINS THE REMOTE'S CONNECTION DATA
	.SECRR==4		;CONNECTION WAS REJECTED
   				;.SQDTA CONTAINS THE REASON CODE
	.SEMSC==5		;MESSAGE/DATAGRAM SEND COMPLETE
				; .SQDTA CONTAINS ADDRESS OF BUFFER
	.SELCL==6		;LITTLE CREDIT LEFT
				; .SQDTA CONTAINS NUMBER OF CREDITS TO GET YOU
				; BACK OVER THRESHOLD
	.SENWO==7		;NODE WENT OFFLINE
				; .SQDTA CONTAINS NODE NUMBER OF SYSTEM WHICH
				; WENT OFFLINE
	.SENCO==10		;NODE CAME ONLINE
				; .SQDTA CONTAINS NODE NUMBER OF SYSTEM WHICH
				; CAME ONLINE
	.SEOSD==11		;OK TO SEND DATA
	.SERID==12		;REMOTE INITIATED DISCONNECT
	.SEPBC==13		;PORT BROKE CONNECTION
	.SECIA==14		;CREDIT IS AVAILABLE
	.SEMDC==15		;MAINTENANCE DATA TRANSFER COMPLETE
				; .SQDTA CONTAINS BUFFER NAME
.SQDTA==4		;OFFSET TO EVENT DATA (ZERO TO FOUR WORDS)

;ARGUMENTS FOR FUNCTIONS .SSCRD/.SSCRM

.SQCID==1		;CONNECT ID
.SQADB==2		;ADDRESS OF BUFFER TO DEQUEUE

;ARGUMENTS FOR FUNCTION .SSGLN

.SQLNN==1		;(RETURNED) LOCAL NODE NUMBER

;ARGUMENTS FOR FUNCTION .SSRBS

.SQLMG==1		;LENGTH OF MESSAGE BUFFER
.SQLDG==2		;LENGTH OF DATAGRAM BUFFER

;ARGUMENTS FOR FUNCTION .SSRPS

.SQRPN==1		;NODE NUMBER
.SQRPS==2		;PATH STATUS (A,,B)

;SCS. UUO ERROR CODES

SSNPV%==0		;NOT PRIVILEGED
SSIFC%==1		;ILLEGAL FUNCTION CODE
SSARG%==2		;BAD ARGUMENT LIST LENGTH
SSACR%==3		;ADDRESS CHECK READING ARGUMENTS
SSACS%==4		;ADDRESS CHECK STORING DATA
SSCPN%==5		;CPU NUMBER OUT OF RANGE
SSNPC%==6		;NO CI PORT ON SPECIFIED CPU
SSNNK%==7		;CPU'S CI NODE NUMBER NOT KNOWN
SSINN%==10		;INVALID CI NODE NUMBER
SSNFC%==11		;NO FREE CORE
SSVNO%==12		;VIRTUAL CIRCUIT NOT OPEN
SSICI%==13		;INVALID CONNECT ID
SSRQE%==14		;RECEIVE QUEUE EMPTY
SSNBQ%==15		;NO BUFFER QUEUED FOR PACKET RECEPTION
SSRCF%==16		;REJECT CONNECTION FAILED
SSDCF%==17		;DISCONNECT CONNECTION FAILED
SSNFB%==20		;NO FREE BUFFERS TO SEND PACKET
SSQBF%==21		;QUEUE BUFFERS FAILED
SSCBF%==22		;CANCEL BUFFERS FAILED
SSPSF%==23		;PACKET SEND FAILED
SSDQE%==24		;DATA ENTRY QUEUE EMPTY
SSEQE%==25		;EVENT QUEUE EMPTY
SSCRB%==26		;CAN'T REMOVE BUFFER FROM DATABASE
SSCUB%==27		;CAN'T UNMAP BUFFER
SSNSB%==30		;NO SUCH BUFFER NAME
SSTMS%==31		;TOO MANY BUFFER SEGMENT DESCRIPTORS
SSIDM%==32		;ILLEGAL DATA MODE
SSSCP%==33		;SEGMENT CROSSES PAGE BOUNDARY
SSSTL%==34		;SEGMENT TOO LONG (GREATER THAN 1 PAGE)
	SUBTTL	MISC. NON-I/O -- CONTEXT UUO

SUBTTL	CTXUUO - CONTEXT UUO


; UUO TO MANIPULATE CONTEXTS
; CALL:	MOVEI	AC,ADR
;	CTX.	AC,
;	  <NON-SKIP>
;	<SKIP>

; ARGUMENT BLOCK
.CTFNC==0			;FUNCTION CODE WORD
   CT.PHY==1B0			   ;PHYSICAL ONLY RUN UUO
   CT.LEN==777B17		   ;LENGTH OF BLOCK INCLUDING THIS WORD
   CT.FNC==777777B35		   ;FUNCTION CODE
      .CTSVH==0			      ;SAVE CURRENT CONTEXT, HALT JOB
      .CTSVR==1			      ;SAVE CURRENT CONTEXT, RUN PROGRAM
      .CTSVT==2			      ;SAVE CURRENT CONTEXT, CREATE A TOP LEVEL
      .CTSVS==3			      ;SAVE CURRENT CONTEXT, SWITCH TO ANOTHER
      .CTSVD==4			      ;SAVE CURRENT CONTEXT, RUN PROGRAM
      .CTRDB==5			      ;READ DATA BUFFER
      .CTWDB==6			      ;WRITE DATA BUFFER
      .CTRQT==7			      ;READ QUOTAS INTO DATA BUFFER
      .CTSQT==10		      ;SET QUOTAS IN DATA BUFFER
      .CTDIR==11		      ;RETURN A DIRECTORY MAP OF ALL CONTEXTS
      .CTINF==12		      ;RETURN INFORMATION ABOUT A CONTEXT
.CTDBL==1			;DATA BUFFER LENGTH
.CTDBA==2			;DATA BUFFER ADDRESS
.CTNAM==3			;SIXBIT CONTEXT NAME
.CTRNO==4			;RUN UUO OFFSET (LH RESERVED)
.CTRNB==5			;RUN UUO BLOCK ADDRESS
.CTTMN==6			;TMPCOR LENGTH,,SIXBIT NAME
.CTTMB==7			;TMPCOR BUFFER ADDRESS
.CTMAX==10			;LENGTH OF ARGUMENT BLOCK

; DATA BUFFER OFFSETS FOR FUNCTIONS .CTRQT AND .CTSQT
.CTJOB==0			;JOB NUMBER
.CTCTQ==1			;CONTEXT QUOTA
.CTPGQ==2			;SAVED PAGES QUOTA

; DATA BUFFER OFFSETS FOR FUNCTION .CTDIR
;.CTJOB==0			;JOB NUMBER
.CTWCT==1			;RETURNED WORD COUNT OF BYTE-STREAM DATA
.CTFDW==2			;FIRST DATA WORD OF DIRECTORY BYTE-STREAM

; DATA BUFFER OFFSETS FOR FUNCTION .CTINF
;.CTJOB==0			;JOB NUMBER
.CTCNO==1			;THIS CONTEXT'S NUMBER
.CTCNM==2			;THIS CONTEXT'S NAME
.CTSNO==3			;SUPERIOR'S CONTEXT NUMBER
.CTSNM==4			;SUPERIOR'S CONTEXT NAME
.CTPGM==5			;PROGRAM NAME
.CTITM==6			;IDLE TIME IN TICKS

; ON ANY RETURN, THE AC WILL CONTAIN THE FOLLOWING
   CT.DAT==1B0			;DATA WORDS RETURNED
   CT.DBT==1B1			;DATA BUFFER TRUNCATED
   CT.ETX==1B2			;UUO ERROR TEXT IN DATA BUFFER
   CT.RUN==1B3			;RUN UUO ERROR
   CT.RDL==777B27		;WORDS IN DATA BUFFER
   CT.ERR==777B35		;ERROR CODE
; CTX. UUO ERROR CODES

CXIFC%==00			;ILLEGAL FUNCTION CODE
CXACR%==01			;ADDRESS CHECK READING ARGUMENTS
CXACS%==02			;ADDRESS CHECK STORING ANSWERS
CXNEA%==03			;NOT ENOUGH ARGUMENTS
CXNLI%==04			;NOT LOGGED IN
CXLOK%==05			;LOCKED IN CORE
CXDET%==06			;DETACHED
CXSCE%==07			;SYSTEM CONTEXT QUOTA EXCEEDED
CXSPE%==10			;SYSTEM PAGE QUOTA EXCEEDED
CXJCE%==11			;JOB CONTEXT QUOTA EXCEEDED
CXJPE%==12			;JOB PAGE QUOTA EXCEEDED
CXNCS%==13			;NOT ENOUGH CORE TO SAVE CONTEXT
CXNCD%==14			;NOT ENOUGH CORE TO RETURN DATA BLOCK
CXICN%==15			;ILLEGAL CONTEXT NUMBER
CXNSC%==16			;NO SUPERIOR CONTEXT
CXNPV%==17			;NO PRIVILEGES TO SET QUOTAS
CXIJN%==20			;ILLEGAL JOB NUMBER
CXCSI%==21			;CANNOT SWITCH TO AN INTERMEDIATE CONTEXT
CXCDI%==22			;CANNOT DELETE AN INTERMEDIATE CONTEXT
CXCDC%==23			;CANNOT DELETE THE CURRENT CONTEXT
CXCNP%==24			;CONTEXT NOT PRIVILEGED
CXNDA%==25			;NO DATA BLOCK AVAILABLE
CXCCC%==26			;CANNOT CREATE CONTEXT FROM CAPTIVE PROGRAM
SUBTTL - LLMOP. UUO

;LLMOP. Function Code Definitions

.ELDIR==0			;Ethernet Loop Direct
.ELAST==1			;Ethernet Loop Assisted
.ELRPY==2			;Ethernet Loop Read Reply
.ELAIC==3			;Ethernet Loop Assign Interrupt Channel
.ELABT==4			;Ethernet Loop Abort
.ELSTS==5			;Ethernet Loop Request Status
.RCRID==6			;Remote Console Read Identity
.RCRCT==7			;Remote Console Read Counters
.RCIDS==10			;Remote Console Identify Self
.RCRBT==11 			;Remote Console Remote Boot
.RCRPY==12			;Remote Console Read Reply
.RCRSV==13			;Reserve Remote Console
.RCREL==14			;Release Remote Console
.RCSND==15			;Send Console Command
.RCPOL==16			;Console Response Poll
.RCAIC==17			;Remote Console Assign Interrupt Channel
.RCABT==20			;Remote Console Abort Request
.RCSTS==21			;Remote Console Request Status
.RCADR==22			;Obtain Channel Addresses

;LLMOP. Argument Block Definitions

;Common prefix for all functions

	.LMCID==0		;Channel Id and Flags
		LM.MRF==1B0	;More Replies Flag

			;For .RCSND only
		LM.CBF==1B16	;Command Break Flag
		LM.MNO==1B17	;Message Number
		LM.CCF==LM.MNO!LM.CBF	;Console Command Control Flags

			;For .RCPOL only
		LM.RDL==1B7	;Receive Data Lost Flag
		LM.RDO==1B15	;Response Data Lost Flag
		LM.CDL==1B16	;Command Data Lost Flag
		LM.RCF==LM.MNO!LM.RDO!LM.CDL ;Console Response Control Flags

		LM.CID==3B35	;Channel-id

;Suffix for .RCRID,.RCRCT,.RCIDS,.RCRBT,
;	    .RCRSV,.RCREL,.RCSND,.RCPOL,
;	    .RCRPY,.ELDIR,.ELAST,.ELRPY

	.LMDST==1		;Destination Address
	.LMSRC==.LMDST		;Source Address for .ELRPY and .RCRPY only
		LM.MCA==1B7	;Multicast Address Bit
		LM.AB0==377B7	;Address Byte 0
		LM.AB1==377B15	;Address Byte 1
		LM.AB2==377B23	;Address Byte 2
		LM.AB3==377B31	;Address Byte 3
		LM.AB4==LM.AB0	;Address Byte 4
		LM.AB5==LM.AB1	;Address Byte 5

;Suffix for .ELSTS,.RCSTS

	.LMSTF==1		;Request Status and Flags
		LM.RTC==777777B35	;Status Return Code
			.LMPND==0 ;Request Pending, Not Complete
			.LMSUC==1 ;Success, Complete
			.LMABT==2 ;Aborted
			.LMTXF==3 ;Transmit Failed
			.LMCCE==4 ;Channel Communication Error
	.LMCST==2		;KLNI Channel Status

;Suffix for .RCAIC,.ELAIC

	.LMICF==1		;Interrupt channel and flags
		LM.AIC==1B0	;Assign Interrupt Channel
		LM.ENU==1B1	;Enable Unsolicited Receipt
		LM.ICH==77B17	;Interrupt Channel Number

;Suffix for .RCADR

	.LMHWA==1		;Local KLNI channel hardware address
	.LMPYA==3		;Local KLNI channel current physical address

;Suffix for .RCRID,.RCRCT,.RCSND,.ELDIR,.ELAST,.ELRPY,.RCRPY,.RCPOL
;	    .ELSTS,.RCSTS,.ELABT,.RCABT

	.LMREQ==3		;Request Number
	.LMPID==.LMREQ		;Remote Console Port Id
		LM.PID==777777B17	;Port Id
		LM.REQ==777777B35	;Request Id

;Suffix for .RCRBT Remote Boot and .RCRSV Reserve Console

	.LMPWD==3		;Password Verification Code
	.LMCIF==5		;Control Information
		LM.BSV==1B27	;Boot Server
			.LMSDF==0 ;System Default
			.LMRSS==1 ;Requesting System
		LM.BDV==1B26	;Boot Device
			.LMSDF==0 ;System Default
			.LMRSD==1 ;Specified Device
		LM.PRO==377B35	;Processor to Boot
			.LMSSP==0 ;System Processor
			.LMCMP==1 ;Communications Processor
	.LMDID==6		;Device Id
	.LMSID==7		;Software Id

;Suffix for .ELRPY,.RCRPY,.RCPOL,.RCSND,.ELDIR,.ELAST

	.LMRBL==4		;LLMOP Response Buffer Length
		LM.RML==777777B17	;Returned Message Length
		LM.MBL==777777B35	;Maximum Buffer Length
	.LMRBP==5		;LLMOP Response Buffer Pointer

	.LMLBL==.LMRBL		;Loop Buffer Length
	.LMLBP==.LMRBP		;Loop Buffer Pointer

	.LMLDL==.LMRBL		;Loopback Data Length
	.LMLDP==.LMRBP		;Loopback Data Pointer

;Suffix for .ELAST

	.LMAST==6		;Assistant Address
	.LMHLP==10		;Assistant Level
		.LMXMT==1	;Transmit
		.LMRCV==2	;Receive
		.LMFUL==3	;Full


;.LLMOP UUO ERROR CODES

LMPRV%==1		;INSUFFICIENT PRIVILEGES
LMILF%==2		;ILLEGAL FUNCTION
LMICN%==3		;ILLEGAL CHANNEL NUMBER
LMOFF%==4		;LLMOP IS OFF
LMADC%==5		;ADDRESS CHECK
	SUBTTL	LATOP. - LAT Host management
;
; CALL:	MOVEI	AC,ADR
;	LATOP.	AC,
;	  <NON-SKIP>
;	<SKIP>

;LATOP. Function Code Definitions

	.LASET==0	 ;Set
	.LACLR==1	 ;Clear
	.LASCH==2	 ;Show characteristics of host
	.LASTC==3	 ;Show terminal connects
	.LASAS==4	 ;Show adjacent servers
	.LASCO==5	 ;Show counters
	.LAZCO==6	 ;Zero counters
	.LARHC==7	 ;Request host-initiated connect
	.LATHC==10	 ;Terminate host-initiated connect
	.LASHC==11	 ;Show host-initiated connects

;Argument list offsets

	.LAACT==0	;Argument block count
	.LAFCN==1	;LATOP% function code
	.LAPRM==2	;SET/CLEAR parameter number
		LA.WAI==1B0	;Wait for the connection
		LA.QUE==1B1	;Queue the request at the remote server
		LA.SYS==1B2	;Show all host-initiated connects
		LA.JOB==1B3	;Show all host-initiated connects for the job
		LA.CID==777777	;Connect id
	.LAVAL==3	;SET/CLEAR new parameter value

	.LABCT==2	;Buffer count
		LA.ECB==1B0	;Use the Extended Connect Block
		LA.BCT==777777	;Buffer count in words
	.LABFA==3	;Buffer Address
	.LAQUA==4	;Qualifier
	.LADSC==5	;(ASCIZ string pointer)

	.LASVR==4	;Server name
	.LASVC==5	;Service name
	.LAPRT==6	;Port name

	LA%RAT==1B0
	LA%DSC==1B1

;Parameter numbers for SET/CLEAR

	.LPMAC==1	;Maximum number of active circuits
	.LPMCO==2	;Maximum number of simultaneous connects
	.LPNUM==3	;Host number
	.LPLAS==4	;LAT access state
	.LPRLI==5	;Circuit retransmit limit
	.LPTIM==6	;Circuit timer initial value
	.LPMTI==7	;Multicast timer initial value
	.LPCOD==10	;Access codes
	.LPNNM==11	;Host node name
	.LPNID==12	;Host node identification string
	.LPSRV==13	;Service rating or description (depends on .LAQUA)
;Port type codes

	.LATTY==1	;Standard LAT terminal connection
	.LADLP==2	;Dial-up LAT terminal connection
	.LAAPP==3	;LAT application terminal

;Status and rejection codes

	.LASOL==377777	;Soliciting
	.LAQUE==377776	;Queued
	.LACAN==377775	;Cancelled
	.LATMO==377774	;Timed out

	.LAUNK==00	;Unknown error
	.LAURD==01	;User requested disconnect
	.LASSP==02	;System shutdown in progress
	.LAISR==03	;Invalid slot received
	.LAISC==04	;Invalid service class
	.LAIRS==05	;Insufficient resources
	.LASIU==06	;Service is in use
	.LANSS==07	;No such service
	.LASDI==10	;Service is disabled
	.LASNP==11	;Service is not offered by requested port
	.LANSP==12	;No such port name
	.LAIPW==13	;Invalid password
	.LAENQ==14	;Entry is not in queue
	.LAIAR==15	;Immediate access rejected
	.LAACD==16	;Access denied
	.LACSR==17	;Corrupted solicit request
	.LACTI==20	;Command type code is illegal
	.LASCS==21	;Start slot can't be sent
	.LAQED==22	;Queue entry deleted by local node
	.LAIRP==23	;Inconsistent or illegal request parameters

;Error codes

LABTS%==00		;Buffer size too small for available data
LAVOR%==01		;LAT parameter value out of range
LALNO%==02		;LAT is not operational
LASVR%==03		;Invalid or unknown LAT server name
LAIPN%==04		;Invalid LAT parameter
LAIPV%==05		;Invalid LAT parameter value
LASVC%==06		;Invalid or unknown LAT service name
LAILR%==07		;Insufficient LAT Resources
LAHAS%==10		;LAT Host name already set
LAIVF%==11		;Function code out of range
LAABS%==12		;Argument list too small
LAADC%==13		;Address check for argument list
LAPRV%==14		;No privilege for attempted operation
LAPRT%==15		;Invalid or unknown LAT port name
LACID%==16		;Invalid or unknown LAT connect id
LAABL%==17		;Argument list too large
SUBTTL	MISC. NON-I/O -- KNIBT.

;KNIBT. - UUO FOR BOOT/DUMP OF KLNI - (OBSOLETE)
;CALL:
;	XMOVEI	AC,ADDR
;	KNIBT.	AC,
;	  ERROR RETURN, CODE IN AC
;	SUCCESS RETURN
;
;ADDR:	FUNCTION CODE,,LENGTH
;	ARGUMENTS

;KNIBT. FUNCTION CODES

.KBFCN==0		;FUNCTION CODE,,LENGTH
	KB.FCN==777777,,000000	;KNIBT. FUNCTION CODE
		.KBSTS==1		;GET KLNI STATUS
		.KBSRJ==2		;SET KLNI RELOAD JOB
		.KBSTP==3		;STOP KLNI
		.KBSTA==4		;START KLNI
		.KBRED==5		;READ KLNI CRAM
		.KBWRT==6		;WRITE KLNI CRAM
	KB.ALN==000000,,777777	;ARGUMENT LIST LENGTH
.KBKID==1		;KLNI IDENTIFICATION WORD
	KB.CPU==777777,,000000	;CPU NUMBER OF KLNI
	KB.RH2==000000,,777777	;RH20 CHANNEL NUMBER OF KLNI

;FOR FUNCTIONS .KBSTA, .KBRED, .KBWRT

.KBCRA==2		;CRAM ADDRESS

;FOR FUNCTIONS .KBRED, .KBWRT

.KBCCH==3		;CRAM CONTENTS (HIGH ORDER BITS)
.KBCCL==4		;CRAM CONTENTS (LOW ORDER BITS)


;KNIBT. FUNCTION .KBSTS STATUS BITS (RETURNED IN AC)

KS.RUN==400000,,000000		;KLNI IS RUNNING
KS.MAI==200000,,000000		;KLNI IS IN MAINTENANCE MODE
KS.RLD==100000,,000000		;KLNI NEEDS RELOADING
KS.ARD==040000,,000000		;KLNI AUTO-RELOAD IS DISABLED
KS.RRQ==020000,,000000		;KLNI RELOAD REQUESTED BY SYSTEM
KS.DRQ==010000,,000000		;KLNI DUMP REQUESTED BY SYSTEM
KS.RJB==000000,,777777		;JOB NUMBER OF KNILDR


;KNIBT. ERROR CODES

KBPRV%==1			;INSUFFICIENT PRIVILEGES
KBADC%==2			;ADDRESS CHECK
KBIAL%==3			;INVALID ARGUMENT LIST
KBILF%==4			;ILLEGAL FUNCTION
KBICS%==5			;ILLEGAL CPU SPECIFICATION
KBCNA%==6			;CPU NOT AVAILABLE
KBKDE%==7			;KLNI DOESN'T EXIST
KBKMM%==10			;KLNI IS IN MAINTENANCE MODE
KBDNS%==11			;KLNI DID NOT START
KBDNI%==12			;KLNI DID NOT INITIALIZE
KBICA%==13			;INVALID CRAM ADDRESS
KBCRE%==14			;CRAM READ ERROR
KBCWE%==15			;CRAM WRITE ERROR
KBNRJ%==16			;NOT THE RELOAD JOB
SUBTTL	MISC. NON-I/O -- CHTRN.

;CHTRN. - UUO TO TRANSLATE BETWEEN 8-BIT AND 7-BIT ASCII
;CALL:
;	XMOVEI	AC,ADDR
;	CHTRN.	AC,
;	  ERROR RETURN, CODE IN AC
;	SUCCESS RETURN
;
;ADDR:	XWD	FLAGS,SOURCE-COUNT
;	EXP	SOURCE BYTE POINTER (WORD 1)
;	EXP	SOURCE BYTE POINTER (WORD 2)
;	XWD	RESERVED,DESTINATION-COUNT
;	EXP	DESTINATION BYTE POINTER (WORD 1)
;	EXP	DESTINATION BYTE POINTER (WORD 2)

.CHFLG==0	;WORD FOR FLAGS
	CH.FBR==1B0	;FALLBACK REPRESENTATION (TRANSLATE 8-BIT TO 7-BIT)
	CH.OVR==1B1	;INCLUDE OVERPRINTING IN FALLBACK REPRESENTATION
	CH.RAI==1B2	;RAISE CASE (FOLD LOWER CASE TO UPPER)
	CH.6BT==1B3	;CONVERT ASCII TO SIXBIT
	CH.IGN==1B4	;IGNORE EXTRA BITS (DO NOT RANGE-CHECK CHARACTERS)
	CH.ESC==1B5	;MAP 7-BIT ESCAPE SEQUENCES TO 8-BIT WHEN POSSIBLE
	CH.X6B==1B6	;EXPAND 6-BIT SOURCE TO ASCII DESTINATION
	CH.ISO==1B7	;USE ISO/LATIN-1 RATHER THAN DEC/MCS
.CHSCT==0	;WORD FOR SOURCE COUNT
	CH.SCT==777777	;FIELD FOR SOURCE COUNT
.CHSB1==1	;FIRST WORD OF SOURCE BYTE POINTER
.CHSB2==2	;SECOND WORD OF SOURCE BYTE POINTER
.CHDCT==3	;WORD FOR DESTINATION COUNT
	CH.DCT==777777	;FIELD FOR DESTINATION COUNT
.CHDB1==4	;FIRST WORD OF DESTINATION BYTE POINTER
.CHDB2==5	;SECOND WORD OF DESTINATION BYTE POINTER


;ERROR RETURNS FOR CHTRN.

CHADC%==1	;ADDRESS CHECK READING OR WRITING ARGUMENTS
CHBYP%==2	;ILLEGAL BYTE POINTER
CHINV%==3	;UNKNOWN OR RESERVED FLAG BIT SPECIFIED
CHILC%==4	;ILLEGAL CHARACTER ENCOUNTERED DURING TRANSLATION
CHDCE%==5	;DESTINATION COUNT EXHAUSTED PREMATURELY
CHIBC%==6	;INVALID BIT COMBINATION SPECIFIED
SUBTTL	MISC. NON-I/O -- ETHNT.

; ETHNT. - UUO FOR USER MODE ETHERNET ACCESS
;CALL:
;	XMOVEI	AC,ADDR
;	ETHNT.	AC,
;	  ERROR RETURN, CODE IN AC
;	SUCCESS RETURN
;
;ADDR:	XWD	FLAGS+FUNCTION CODE,ARGUMENT BLOCK LENGTH
;	FUNCTION SPECIFIC ARGUMENTS


;ETHNT. UUO FUNCTION CODES

.ETOPN==1			;OPEN USER PORTAL
.ETCLS==2			;CLOSE USER PORTAL
.ETQRB==3			;QUEUE RECEIVE DATAGRAM BUFFER
.ETRRQ==4			;READ RECEIVE QUEUE
.ETQXB==5			;QUEUE TRANSMIT DATAGRAM BUFFER
.ETRXQ==6			;READ TRANSMIT QUEUE
.ETEMA==7			;ENABLE MULTI-CAST ADDRESS
.ETDMA==10			;DISABLE MULTI-CAST ADDRESS

.ETRCL==11			;READ CHANNEL LIST
.ETRCI==12			;READ CHANNEL INFORMATION
.ETRCC==13			;READ CHANNEL COUNTERS
.ETSCA==14			;SET CHANNEL ADDRESS

.ETRPL==15			;READ PORTAL LIST
.ETRPI==16			;READ PORTAL INFORMATION
.ETRPC==17			;READ PORTAL COUNTERS

.ETRKL==20			;READ KONTROLLER LIST
.ETRKI==21			;READ KONTROLLER INFORMATION
.ETRKC==22			;READ KONTROLLER COUNTERS
;ETHNT. UUO ERROR CODES

ETPRV%==1			;INSUFFICIENT PRIVILEGES
ETADC%==2			;ARGUMENT BLOCK ADDRESS CHECK
ETIAL%==3			;INVALID ARGUMENT LIST LENGTH
ETILF%==4			;INVALID FUNCTION CODE
ETUEE%==5			;UNEXPECTED ETHERNET ERROR
ETRES%==6			;INSUFFICIENT RESOURCES
ETIPI%==7			;INVALID PORTAL ID
ETICI%==10			;INVALID CHANNEL ID
ETIPT%==11			;INVALID PROTOCOL TYPE
ETPIU%==12			;PROTOCOL TYPE IN USE
ETPRA%==13			;PROMISCUOUS RECEIVER ACTIVE
ETBAC%==14			;BUFFER ADDRESS CHECK
ETIBS%==15			;INVALID BUFFER SIZE
ETIBP%==16			;INVALID BYTE POINTER
ETIEA%==17			;INVALID ETHERNET ADDRESS
ETPQE%==20			;PORTAL QUOTA EXCEEDED
ETBQE%==21			;BUFFER QUOTA EXCEEDED
ETPWS%==22			;PROTOCOL IN WRONG STATE
ETIKI%==23			;INVALID KONTROLLER ID
;ETHNT. UUO ARGUMENT BLOCK

.ETFCN==0			;FUNCTION CODE WORD
	ET.FFL==777000,,000000		;FUNCTION SPECIFIC FLAGS
		ET.FZC==200000,,000000		;ZERO COUNTERS
	ET.FFN==000777,,000000		;FUNCTION CODE
	ET.FLN==000000,,777777		;ARGUMENT BLOCK LENGTH

.ETPSW==1			;PORTAL STATUS WORD
				; (.ETOPN, .ETCLS, .ETQRB, .ETRRQ, .ETQXB,
				;  .ETRXQ, .ETEMA, .ETDMA, .ETRPI, .ETRPC)
	ET.PST==777000,,000000		;PORTAL STATUS
		ET.PON==400000,,000000		;PORTAL IS ONLINE
		ET.PXB==200000,,000000		;TRANSMIT BUFFERS AVAILABLE
		ET.PRB==100000,,000000		;RECEIVE BUFFERS AVAILABLE
	ET.PID==000777,,777777		;PORTAL ID

.ETCSW==1			;CHANNEL STATUS WORD
				; (.ETRCI, .ETRCC, .ETSCA, .ETRPL)
	ET.CST==777000,,000000		;CHANNEL STATUS
		ET.CON==400000,,000000		;CHANNEL IS ONLINE
	ET.CID==000777,,777777		;CHANNEL ID

.ETKSW==1			;KONTROLLER STATUS WORD
				; (.ETRKI, .ETRKC)
	ET.KST==777000,,000000		;KONTROLLER STATUS
		ET.KON==400000,,000000		;KONTROLLER IS ONLINE
	ET.KID==000777,,777777		;KONTROLLER ID

.ETAR1==2			;FUNCTION SPECIFIC ARGUMENT 1
.ETAR2==3			;FUNCTION SPECIFIC ARGUMENT 2
;FOR FUNCTION .ETOPN

.ETCIW==.ETAR1			;CHANNEL IDENTIFICATION WORD
.ETPIW==.ETAR2			;PROTOCOL IDENTIFICATION WORD
	ET.PAD==400000,,000000		;PADDING FLAG
	ET.PTY==000000,,777777		;PROTOCOL TYPE CODE


;FOR FUNCTIONS .ETQRB, .ETRRQ, .ETQXB, .ETRXQ

.ETUBL==.ETAR1			;ADDRESS OF USER BUFFER DESCRIPTOR LIST


;FOR FUNCTIONS .ETEMA, .ETDMA

.ETMCA==.ETAR1			;MULTI-CAST ADDRESS (2 WORDS)


;FOR FUNCTION .ETSCA

.ETEAD==.ETAR1			;ETHERNET ADDRESS (2 WORDS)


;FOR FUNCTIONS .ETRCL, .ETRCI, .ETRCC, .ETRPL, .ETRPI, .ETRCC

.ETBFL==.ETAR1			;BUFFER LENGTH IN WORDS
.ETBFA==.ETAR2			;BUFFER ADDRESS
;ETHNT. UUO BUFFER FOR FUNCTION .ETRCI (READ CHANNEL INFORMATION)

.EICNM==0			;ETHERNET CHANNEL NUMBER
.EICEA==1			;CURRENT ETHERNET ADDRESS (2 WORDS)


;ETHNT. UUO BUFFER FOR FUNCTION .ETRCC (READ CHANNEL COUNTERS)

.ECCSZ==0			;SECONDS SINCE COUNTERS LAST ZEROED
.ECCBR==1			;BYTES RECEIVED
.ECCBX==2			;BYTES TRANSMITTED
.ECCDR==3			;DATAGRAMS RECEIVED
.ECCDX==4			;DATAGRAMS TRANSMITTED
.ECCMB==5			;MULTI-CAST BYTES RECEIVED
.ECCMD==6			;MULTI-CAST DATAGRAMS RECEIVED
.ECCXD==7			;DATAGRAMS TRANSMITTED, INITIALLY DEFERRED
.ECCX1==10			;DATAGRAMS TRANSMITTED, SINGLE COLLISION
.ECCXM==11			;DATAGRAMS TRANSMITTED, MULTIPLE COLLISIONS
.ECCXF==12			;TRANSMIT FAILURES
.ECCXX==13			;TRANSMIT FAILURE BIT MASK
	EC.XCL==200			;CARRIER LOST
	EC.XBP==100			;TRANSMIT BUFFER PARITY ERROR
	EC.XFD==040			;REMOTE FAILURE TO DEFER
	EC.XFL==020			;FRAME TOO LONG
	EC.XOC==010			;OPEN CIRCUIT
	EC.XSC==004			;SHORT CIRCUIT
	EC.XCC==002			;CARRIER CHECK FAILED
	EC.XEC==001			;EXCESSIVE COLLISIONS
.ECCRF==14			;RECEIVE FAILURES
.ECCRX==15			;RECEIVE FAILURE BIT MASK
	EC.RFP==020			;FREE LIST PARITY ERROR
	EC.RNB==010			;NO FREE BUFFERS
	EC.RFL==004			;FRAME TOO LONG
	EC.RFE==002			;FRAMING ERROR
	EC.RBC==001			;BLOCK CHECK ERROR
.ECCUD==16			;UNRECOGNIZED FRAME DESTINATION
.ECCDO==17			;DATA OVERRUN
.ECCSU==20			;SYSTEM BUFFER UNAVAILABLE
.ECCUU==21			;USER DATAGRAM BUFFER UNAVAILABLE
;ETHNT. UUO BUFFER FOR FUNCTION .ETRPI (READ PORTAL INFORMATION)

.EIPJC==0			;JCH OF PORTAL OWNER
.EIPPI==1			;PROTOCOL IDENTIFICATION WORD
.EIPCS==2			;CHANNEL STATUS WORD
.EIPKS==3			;KONTROLLER STATUS WORD


;ETHNT. UUO BUFFER FOR FUNCTION .ETRPC (READ PORTAL COUNTERS)

.ECPSZ==0			;SECONDS SINCE COUNTERS LAST ZEROED
.ECPBR==1			;BYTES RECEIVED
.ECPDR==2			;DATAGRAMS RECEIVED
.ECPBX==3			;BYTES TRANSMITTED
.ECPDX==4			;DATAGRAMS TRANSMITTED
.ECPUU==5			;USER DATAGRAM BUFFER UNAVAILABLE
;ETHNT. UUO BUFFER FOR FUNCTION .ETRKI (READ KONTROLLER INFORMATION)

.EIKCS==0			;CHANNEL STATUS WORD
.EIKCP==1			;CPU NUMBER OF KONTROLLER
.EIKTY==2			;KONTROLLER TYPE
	EI.KNI==1			;NI
.EIKNO==3			;KONTROLLER NUMBER
.EIKHA==4			;HARDWARE ETHERNET ADDRESS (2 WORDS)


;ETHNT. UUO BUFFER FOR FUNCTION .ETRKC (READ KONTROLLER COUNTERS)

.ECKSZ==0			;SECONDS SINCE COUNTERS LAST ZEROED
.ECKBR==1			;BYTES RECEIVED
.ECKBX==2			;BYTES TRANSMITTED
.ECKDR==3			;DATAGRAMS RECEIVED
.ECKDX==4			;DATAGRAMS TRANSMITTED
.ECKMB==5			;MULTI-CAST BYTES RECEIVED
.ECKMD==6			;MULTI-CAST DATAGRAMS RECEIVED
.ECKXD==7			;DATAGRAMS TRANSMITTED, INITIALLY DEFERRED
.ECKX1==10			;DATAGRAMS TRANSMITTED, SINGLE COLLISION
.ECKXM==11			;DATAGRAMS TRANSMITTED, MULTIPLE COLLISIONS
.ECKXF==12			;TRANSMIT FAILURES
.ECKXX==13			;TRANSMIT FAILURE BIT MASK
				; (SAME FORMAT AS .ECCXX)
.ECKRF==14			;RECEIVE FAILURES
.ECKRX==15			;RECEIVE FAILURE BIT MASK
				; (SAME FORMAT AS .ECCRX)
.ECKUD==16			;UNRECOGNIZED FRAME DESTINATION
.ECKDO==17			;DATA OVERRUN
.ECKSU==20			;SYSTEM BUFFER UNAVAILABLE
.ECKUU==21			;USER DATAGRAM BUFFER UNAVAILABLE
;ETHNT. UUO BUFFER DESCRIPTOR BLOCK

.UBNXT==0			;ADDRESS OF NEXT USER BUFFER DESCRIPTOR
.UBBID==1			;USER BUFFER ID
.UBSTS==2			;USER BUFFER STATUS
	UB.ERR==400000,,000000		;BUFFER HAS ERROR
	UB.ECD==000000,,777777		;ERROR CODE
.UBBSZ==3			;LENGTH OF DATAGRAM IN BYTES
.UBBFA==4			;BYTE POINTER TO DATAGRAM (2 WORDS)
.UBPTY==6			;PROTOCOL TYPE
.UBDEA==7			;DESTINATION ETHERNET ADDRESS (2 WORDS)
.UBSEA==11			;SOURCE ETHERNET ADDRESS (2 WORDS)
.UBLEN==13			;LENGTH OF USER BUFFER DESCRIPTOR BLOCK
	SUBTTL	NETOP. UUO

;CALL:	XMOVEI	AC,ARGLIS
;	NETOP.	AC,
;	  ERROR CODE IN AC
;	SUCCESS, AC UNCHANGED
;
;
;FUNCTION CODE 1 - .NOGDI - Get Device Info (TTYs only)
; User must fill in words 0 and 2 of argument list.
;On return, node name string block is filled in with the 8 bit ASCII
; node name string where the TTY is connected.  The port name string
; block is filled in with the 8 bit ASCII node-local port name if
; it is available.  Format of port name for ANF terminals is "TTYnnn"
; where "nnn" is the node-local line number of the TTY.
;
;ARGLIS:

.NOFCN==0	;LENGTH,,FUNCTION
	.NOGDI==1	;Get Device Info
.NOFLG==1	;Flags indicating how device is connected
	NO.ANF==1B0	;TTY on ANF node
	NO.DCN==1B1	;TTY hosted in through DECnet (NRT or CTERM)
	NO.LAT==1B2	;TTY on a LAT terminal server
			;All above bits clear indicates local TTY
.NODEV==2	;SIXBIT DEVICE NAME, UDX, OR OPEN CHANNEL NUMBER
.NODCH==3	;Output, same results as DEVCHR UUO
.NODTY==4	;Output, same results as DEVTYP UUO
.NONOD==5	;ADDRESS OF STRING BLOCK FOR NODE NAME STRING
.NOPNM==6	;ADDRESS OF STRING BLOCK FOR PORT NAME STRING
;
;
;NETOP. error codes

	NOADC%==1	;ADDRESS CHECK
	NOILF%==2	;ILLEGAL FUNCTION
	NOLTS%==3	;ARG LIST TOO SHORT
	NONSD%==4	;NO SUCH DEVICE
	NODNC%==5	;DEVICE NOT CONNECTED
	NONTY%==6	;DEVICE IS NOT A TTY
	SUBTTL	UNIVERSAL DEVICE INDEX

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



	SUBTTL	.JBINT INTERCEPT BLOCK

;;  !=======================================================!
;;  !       BLOCK LENGTH        !          NEW PC           !
;;  !-------------------------------------------------------!
;;  !M!                                       !E!T!Q!F!O!C!D!
;;  !-------------------------------------------------------!
;;  !                   OLD PC AND FLAGS                    !
;;  !-------------------------------------------------------!
;;  !      CLASS OF INTERRUPT       !    CHANNEL NUMBER     !
;;  !=======================================================!

.ERNPC==0	;LH=LENGTH, RH=NEW PC FOR INTERRUPT
.ERCLS==1	;CLASSES OF ERROR INTERCEPTING
	ER.MSG==1B0	;SUPPRESS ERROR MESSAGE
	ER.EIJ==1B29	;ERROR IN JOB
	ER.TLX==1B30	;TIME LIMIT EXCEEDED
	ER.QEX==1B31	;QUOTA EXHAUSTED
	ER.FUL==1B32	;FILE STRUCTURE FULL
	ER.OFL==1B33	;DISK UNIT OFF-LINE
	ER.ICC==1B34	;CONTROL-C INTERCEPT
	ER.IDV==1B35	;"PROBLEM ON DEVICE" ERRORS
.EROPC==2	;OLD PC
.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                    !
;;  !=======================================================!

.PSVNP==0	;NEW PC AND FLAGS
.PSVOP==1	;OLD PC AND FLAGS
.PSVFL==2	;FLAGS
	PS.VPO==1B1	;TURN PERMANENTLY OFF, NO RESTORE
	PS.VTO==1B2	;TURN OFF, RESTORE ON DEBRK.
	PS.VAI==1B3	;ALLOW ADDITIONAL INTERRUPT
	PS.VDS==1B4	;DISCARD SUCCESSIVE INTERRUPTS WHILE INTERRUPTED
	PS.VPM==1B5	;PRINT STANDARD MESSAGE
	PS.VIP==1B6	;INTERRUPTS IN PROGRESS FOR THIS BLOCK
			;  (USED BY PSISER)

	PS.RID==1B19	;REASON--INPUT DONE
	PS.ROD==1B20	;REASON--OUTPUT DONE
	PS.REF==1B21	;REASON--END FILE
	PS.RIE==1B22	;REASON--INPUT ERROR
	PS.ROE==1B23	;REASON--OUTPUT ERROR
	PS.RDO==1B24	;REASON--DEVICE OFF-LINE
	PS.RDF==1B25	;REASON--DEVICE FULL
	PS.RQE==1B26	;REASON--QUOTA EXCEEDED
	PS.RWT==1B27	;REASON--IO WAIT
	PS.ROL==1B28	;REASON--DEVICE ON-LINE
	PS.RRC==1B29	;REASON--RIB HAS CHANGED
	PS.RDH==1B30	;REASON--DEVICE HUNG
	PS.RSW==1B31	;REASON--REEL SWITCH
	PS.RIA==1B32	;REASON--INPUT AVAILABLE
.PSVIS==3	;INTERRUPT STATUS (AUX. WORD)
		;  I/O DEVICES RETURN   UDX,,GETSTS
;NON-DEVICE CONDITIONS

.PCTLE==-1	;TIME LIMIT EXCEEDED (NON-BATCH ONLY)
.PCTMR==-2	;TIMER INTERRUPTS
.PCSTP==-3	;STOP (^C); RETURNS 1B0=1 IF TI WAIT
.PCUUO==-4	;ANY MUUO; RETURNS UUO
.PCIUU==-5	;ILLEGAL UUO; RETURNS UUO
.PCIMR==-6	;ILLEGAL MEMORY REFERENCE; RETURNS EFFECTIVE ADDRESS
.PCACK==-7	;ADDRESS CHECK; RETURNS DEVICE NAME
.PCARI==-10	;ARITHMETIC EXCEPTION
.PCPDL==-11	;PDL OVERFLOW
.PCNSP==-12	;DECNET NSP TRAPS
.PCNXM==-13	;NON-EXISTENT MEMORY
.PCAPC==-14	;APR CLOCK; RETURNS UNIVERSAL DATE/TIME
.PCUEJ==-15	;USER INDUCED ERROR IN JOB
.PCXEJ==-16	;EXTERNAL ERROR IN JOB
.PCKSY==-17	;KSYS WARNING; RETURNS MINS TO KSYS
.PCDSC==-20	;DATA-SET CHANGE; RETURNS NEW STATUS
.PCDAT==-21	;DETACH/ATTACH; RETURNS -1 OR TTY UDX
.PCWAK==-22	;WAKE UUO; RETURNS JOB NUMBER OF WAKER
.PCABK==-23	;ADDRESS BREAK
.PCIPC==-24	;IPCF RECEIVE; RETURNS LENGTH,,FLAGS
.PCDVT==-25	;DECNET EVENT; RETURNS FLAGS DR.XXX
.PCQUE==-26	;ENQ/DEQ RESOURCE AVAILABLE; RETURNS OR'ED REQUEST IDS
.PCNET==-27	;NETWORK TOPOLOGY CHANGED
.PCJBI==-30	;CROSS JOB INTERRUPTS
.PCDTC==-31	;DATE/TIME CHANGED; RETURNS UDT OFFSET TO ADD
.PCOOB==-32	;OUT-OF-BAND CHARACTER RECEIVED
.PCRC1==-33	;RESERVED TO CUSTOMER
.PCRC2==-34	;RESERVED TO CUSTOMER
.PCSCS==-35	;SCS EVENT; RETURNS FLAGS XX.XXX
.PCETH==-36	;ETHERNET EVENT; RETURNS FLAGS XX.XXX
.PCLLM==-37	;LLMOP EVENT
.PCLVT==-40	;LAT EVENT
;INTERRUPT ENABLE REQUEST BLOCK
; SETS OF 3-WORD BLOCKS

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

;PISYS. FUNCTION BITS

PS.FOF==1B1	;TURN OFF
PS.FON==1B2	;TURN ON
PS.FCP==1B3	;CLEAR ALL PENDING INTERRUPTS
PS.FCS==1B4	;CLEAR SELECTED INTERRUPT
PS.FRC==1B5	;REMOVE CONDITION OR DEVICE
PS.FAC==1B6	;ADD CONDITION OR DEVICE

;PISAV./PIRST. FLAGS

.PSSFC==0	;FLAGS,,COUNT
	PS.SON==1B0	;SYSTEM IS ON
	;PS.S??==1B1	;RESERVED
	PS.SEA==1B2	;SYSTEM USING EXTENDED ADDRESSING
.PSSIV==1	;ADDRESS OF INTERRUPT VECTOR
.PSSBL==2	;START OF 3-WORD BLOCKS

;PIINI. FLAGS

PS.UCS==1B0	;USE CURRENT (PC) SECTION FOR VECTOR SECTION
PS.IEA==1B1	;USE THE NEW EXTENDED ADDRESSING FORMAT

;PIJBI. FLAGS

PS.CTX==777B8		;CONTEXT NUMBER
PS.JOB==777B17		;JOB NUMBER
PS.STS==777777B35	;STATUS

;PIFLG. UUO FUNCTION CODES

.PSFRD==0	;READ FLAGS
.PSFWT==1	;WRITE FLAGS

;PIINI. ERRORS

PIIBC%==1	;ILLEGAL BIT OR SECTION NUMBER GIVEN
PIADC%==2	;ADDRESS CHECK
PINFS%==3	;INSUFFICIENT MONITOR FREE CORE

;PISYS. ERRORS

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

PSBTS%==0	;BLOCK TOO SMALL
PSBSZ%==1	;BUFFER SIZE IS ZERO WORDS

;PIRST. ERRORS

PSNRS%==0	;NOT RESTORING WHAT WAS SAVED
PSNME%==1	;NOT ENOUGH MONITOR CORE

;PIJBI. ERRORS

PSJNE%==0	;JOB NOT ENABLED (OR ILLEGAL)
PSJOP%==1	;JOB HAS ONE PENDING

;PITMR. FUNCTION BITS

PS.TMS==1B0	;ON IF TIME IS IN MILLISECONDS
		; OFF IF TIME IS IN SECONDS

;PITMR. ERRORS

PSTNE%==0	;TIMER NOT ENABLED
PSUFB%==1	;UNKNOWN FUNCTION BIT

;PIBLK. ERRORS

PSNIN%==0	;PSI SYSTEM NOT INITIALIZED
PSNIP%==1	;NO INTERRUPT IN PROGRESS

;PIFLG. ERRORS

PSFNI%==0	;PSI SYSTEM NOT INITIALIZED
PSFNP%==1	;NO INTERRUPT IN PROGRESS
PSFEA%==2	;NOT USING EXTENDED ADDRESSING FORMAT FOR PI SYSTEM
PSFIF%==3	;ILLEGAL FUNCTION CODE
	SUBTTL	IPCF INTERPROCESS COMMUNICATION FACILITY

;PACKET FORMAT
;;  !=========================================================================!
;;  !B!S!R!O!T!L!W!                      !P!V!Z!A!   !   ERROR   !SENDR!TURNED!
;;  !-------------------------------------------------------------------------!
;;  !                              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!F!                        ! SENDERS CTX NO. !SENDERS JOB NUMBER!
;;  !=========================================================================!

.IPCFL==0	;FLAGS
	IP.CFB==1B0	;DON'T BLOCK READ
	IP.CFS==1B1	;INDIRECT SENDER'S PID
	IP.CFR==1B2	;INDIRECT RECEIVER'S PID
	IP.CFO==1B3	;OVERDRAW SEND
	IP.CFT==1B4	;TRUNCATE READ
	IP.CFL==1B5	;PACKET LONGER THAN SYSTEM MAX (PRIV'D)
	IP.CRP==1B6	;RECEIVE FOR A PARTICULAR PID
	IP.CFP==1B18	;SENDER IS PRIVILEGED AND IS INVOKING THEM
	IP.CFV==1B19	;VM PAGE TRANSFER MODE
	IP.CFZ==1B20	;PACKET WITH NO DATA JUST
			; DESCRIPTOR BLOCK
	IP.CFA==1B21	;ACKNOWLEDGEMENT REQUESTED
	IP.CFE==77B29	;ERROR FIELD (NOT PRIV.)
	IP.CFC==7B32	;SYSTEM SENDER CODE (PRIV.)
		.IPCCC==1	;SENT BY [SYSTEM]IPCC
		.IPCCF==2	;SENT BY SYSTEM-WIDE [SYSTEM]INFO
		.IPCCP==3	;SENT BY RECEIVER'S [SYSTEM]INFO
		.IPCCG==4	;SENT BY [SYSTEM] GOPHER
	IP.CFM==7B35	;SPECIAL MESSAGE RETURN FIELD (PRIV.)
		.IPCFN==1	;MESSAGE WAS NOT DELIVERED
.IPCFS==1	;SENDER'S PID
.IPCFR==2	;RECEIVER'S PID
.IPCFP==3	;LENGTH,,START OF DATA IN PACKET
.IPCFU==4	;SENDER'S PPN (SUPPLIED BY MONITOR)
.IPCFC==5	;SENDER'S CAPABILITIES WORD. (SUPPLIED BY MONITOR)
	IP.JAC==1B0	;SENDER HAS JACCT SET
	IP.JLG==1B1	;SENDER IS  LOGGED-IN
	IP.SXO==1B2	;SENDER IS  EXECUTE ONLY
	IP.POK==1B3	;SENDER HAS JS.POK PRIV
	IP.IPC==1B4	;SENDER HAS IPCF PRIVS
	IP.SCN==777B26	;SENDER'S CONTEXT NUMBER
	IP.SJN==777B35	;SENDER'S JOB NUMBER
	IP.SJC==777777	;SENDER'S JOB-CONTEXT HANDLE
	SUBTTL	IPCF -- IPCFM. UUO

;ARGUMENT BLOCK FORMAT
;;  !=========================================================================!
;;  !P!I!        RESERVED         ! DEST !    RESERVED     !      LENGTH      !
;;  !-------------------------------------------------------------------------!
;;  !                          MESSAGE BLOCK POINTER                          !
;;  !-------------------------------------------------------------------------!
;;  !                         (OPT.) IN-BEHALF-OF PID                         !
;;  !=========================================================================!

.IPCMF==0	;FLAGS AND LENGTH
	IP.CMP==1B0	;PRIVILEGED INVOKING PRIVILEGES
	IP.CMI==1B1	;INDIRECT WORD .IPCMI
;	IP.XXX==17777B14;RESERVED TO DEC (MUST BE ZERO)
	IP.CMD==7B17	;DESTINATION PROCESS.  SEE IP.CFC ABOVE
;	IP.XXX==777B26	;RESERVED TO DEC (MUST BE ZERO)
	IP.CML==777B35	;LENGTH OF THIS BLOCK.  MUST BE 2 OR 3
.IPCMP==1	;POINTER TO MESSAGE BLOCK
.IPCMI==2	;OPTIONAL IN-YOUR-BEHALF WORD
;MESSAGES TO AND FROM [SYSTEM]INFO

.IPCI0==0	;LH=CALLER'S IDENTIFIER FOR IPCFR. & IPCFS.
		;LH=TOTAL BLOCK LENGTH FOR IPCFM.
		;RH=FUNCTION (IN ANY CASE)
	.IPCIW==1	;WHAT IS PID, ASCIZ IN (2+)
	.IPCIG==2	;GET NAME OF (2)=PID
	.IPCII==3	;ASSIGN NAME UNTIL RESET (FORMAT=.IPCIW)
	.IPCIJ==4	;ASSIGN NAME UNTIL LOGOUT (FORMAT=.IPCIW)
	.IPCID==5	;DROP SPECIFIC PID (2)
	.IPCIR==6	;DROP NAMES SET BY .IPCII, (2)=JOB NUMBER
	.IPCIL==7	;DROP NAMES SET BY .IPCIJ, (2)=JOB NUMBER
	.IPCIN==10	;NOTIFY ME WHEN PID IN (2) GOES AWAY
	.IPCIS==15	;RESET JOB RH(1) IF LH(1)=0, OR LOGOUT IF LH=-1
.IPCI1==1	;FIRST ARGUMENT (ALWAYS 0 OR PID TO GET DUPLICATE OF ANSWER)
.IPCI2==2	;SECOND ARGUMENT
;MESSAGES TO AND FROM [SYSTEM]IPCC

.IPCS0==0	;LH=CALLER'S IDENTIFIER FOR IPCFR. & IPCFS.
		;LH=TOTAL BLOCK LENGTH FOR IPCFM.
		;RH=FUNCTION (IN ANY CASE)
		;NEGATIVE FUNCTIONS RESERVED FOR CUSTOMERS
	.IPCSE==1	;ENABLE (ME OR (1)=PID)
	.IPCSD==2	;DISABLE (ME OR (1)=PID)
	.IPCSI==3	;TELL PID OF [SYSTEM]INFO FOR (ME OR (1)=PID); (2) GETS PID
	.IPCSF==4	;MAKE [SYSTEM]INFO OF (1) (2)=FOR WHOM (0=SYSTEM)
	.IPCSZ==5	;ZAP PID IN (1)
	.IPCSC==6	;CREATE PID FOR JOB IN (1); (2) GETS PID
	.IPCSQ==7	;SET QUOTA (2) FOR (1)=PID
	.IPCSO==10	;CHANGE OWNER OF (1)=PID, (2)=NEW JOB NUMBER
	.IPCSJ==11	;GIVE JOB OF PID IN (1); (2) GETS JOB NO
	.IPCSP==12	;GIVE PID LIST FOR JOB (1) STARTING AT (2)
	.IPCSR==13	;READ QUOTA OF JOB (1); INTO (2)
	.IPCSW==14	;WAKE JOB (1) SLEEPING FROM .IPCSS
	.IPCSS==15	;(ANSWER ONLY) IF LH(1)=0, JOB RH(1) IS RESETTING
			;	      IF LH(1)=-1, JOB RH(1) IS LOGGING OUT
	.IPCQS==16	;SET PID QUOTA OF JOB IN (1) FROM (2)
	.IPCQR==17	;READ PID QUOTA OF JOB IN (1); RETURNED IN (2)
	.IPCLP==23	;LOCATE PID IN (1) IN SYSTEM PID TABLE; INDEX IN (2)
	.IPCWP==24	;WRITE SYSTEM PID TABLE
	.IPCRP==25	;READ SYSTEM PID TABLE
	.IPCSU==26	;SPOOLED FILE CLOSED (SENT TO [SYSTEM]QUASAR)
	.IPCSL==27	;LOGOUT MESSAGE SEND TO [SYSTEM]QUASAR AND ACCOUNTING DAEMON
	.IPCTL==30	;TAPE LABELLING MESSAGE
	.IPCUO==31	;MOUNTABLE UNIT ON-LINE
	.IPCON==32	;LOGON MESSAGE SENT TO QUASAR
	.IPCAC==33	;ACCOUNTING MESSAGES
	.IPCDE==34	;MDA CONTROLLED DEVICE DEASSIGNED
	.IPCME==35	;MOS MEMORY ERROR
	.IPCCS==36	;RESERVED FOR DEC
	.IPCRS==37	;RESET WITH LOCKED STR TO MDA
	.IPCQU==40	;QUEUE UUO TO MDA
	.IPCLC==41	;SEARCH LIST CHANGE TO MDA
	.IPCAT==42	;PRIMARY DISK PORT ATTACH (TO MDA)
	.IPCDT==43	;PRIMARY DISK PORT DETACH (TO MDA)
	.IPCXC==44	;DISK UNIT EXCHANGE (TO MDA)
	.IPCRM==45	;STRUCTURE REMOVAL (TO MDA)
	.IPCMT==46	;MAGTAPE UNIT ACCESSIBLE (TO MDA)
	.IPCST==47	;STRUCTURE MOUNT (TO MDA)
	.IPCIM==50	;IPCFM. UUO REQUEST (TO INFO)
	.IPCSM==51	;SCHEDULE BITS CHANGE (TO QUASAR)
.IPCS1==1	;FIRST ARGUMENT
.IPCS2==2	;SECOND ARGUMENT
.IPCS3==3	;THIRD ARGUMENT
;SPECIAL SYSTEM PID TYPES (READ/WRITE .GTSID VIA .IPCRP AND .IPCWP)

.IPCPS==0	;[SYSTEM]IPCC
.IPCPI==1	;[SYSTEM]INFO
.IPCPQ==2	;[SYSTEM]QUASAR
.IPCPM==3	;MOUNTABLE DEVICE ALLOCATOR
.IPCPT==4	;TAPE LABEL PROCESS
.IPCPF==5	;FILE DAEMON
.IPCPC==6	;TAPE AVR PROCESS
.IPCPA==7	;[SYSTEM]ACCOUNTING
.IPCPO==10	;OPERATOR INTERFACE
.IPCPL==11	;SYSTEM ERROR LOGGER
.IPCPD==12	;DISK AVR PROCESS
.IPCPE==13	;[SYSTEM]TGHA
.IPCNM==14	;NETWORK MANAGEMENT (NCP)
.IPCPG==15	;[SYSTEM]GOPHER
.IPCPV==16	;[SYSTEM]CATALOG
.IPCPX==17	;[SYSTEM]MAILER


;IPCC AND INFO ERROR CODES

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

;PAGE. UUO FUNCTIONS

.PAGIO==0	;PAGE IN/OUT (OUT IF PA.GAF IN LIST)
	PA.GAF==1B0	;ALTERNATE FUNCTION (GOOD FOR MOST FUNCTIONS)
	PA.GSL==1B1	;PAGE TO SLOW SWAPPING SPACE
	PA.GDC==1B2	;DON'T CARE IF PAGE ALREADY EXISTS
.PAGCD==1	;PAGE CREATE/DESTROY (DESTROY IF PA.GAF)
	PA.GCD==1B1	;CREATE PAGE ON DISK
.PAGEM==2	;PAGE EXCHANGE/MOVE (EXCH IF PA.GAF)
.PAGAA==3	;CLEAR/SET ACCESS ALLOWED (CLEAR IF PA.GAF)
	PA.GSA==1B1	;AUTOMATALLY SET AA ON AA PAGE FAULT
.PAGWS==4	;GET WORKING SET
.PAGGA==5	;GET ACCESS ALLOWED
.PAGCA==6	;CHECK ACCESS LEGAL
	PA.GNE==1B0	;DOES NOT EXIST
	PA.GWR==1B1	;WRITABLE
	PA.GRD==1B2	;READABLE
	PA.GAA==1B3	;ACCESS ALLOWED
	PA.GAZ==1B4	;ALLOCATED BUT ZERO
	PA.GCP==1B5	;CAN'T BE PAGED OUT
	PA.GPO==1B6	;IS PAGED OUT
	PA.GHI==1B7	;PAGE IS IN HIGH SEGMENT
	PA.GSH==1B8	;PAGE IS SHARABLE
	PA.GSP==1B9	;PAGE IS SPYING (MAPPED ONTO RUNNING MONITOR)
	PA.GLK==1B10	;PAGE IS LOCKED IN MEMORY
	PA.GNC==1B11	;PAGE IS NOT CACHED (KL'S ONLY)
	PA.GSN==1B12	;SECTION DOES NOT EXIST
	PA.GVR==1B13	;VIRTUAL PAGE (SPY PAGES)
	PA.GIN==1B14	;SECTION IS DEPENDENT
	PA.GSC==37B20	;SECTION # OF INDEPENDENT SECTION IF PA.GIN LIT
	PA.GPN==37777B35	;PAGE # SPY PAGE IS SPYING ON (IF PA.GSP)
	PA.GSG==1777B35	;SEGMENT # PAGE IS IN IF PA.GHI LIT
.PAGCH==7	;CREATE A HISEG (GENERAL REMAP)
.PAGCB==10	;CACHE BIT (SET IF PA.GAF)
.PAGSP==11	;ADD/DELETE PHYSICAL OR VIRTUAL PAGES FROM MONITOR ADDRESS
		; TO/FROM PROGRAM'S ADDRESS SPACE (DELETE IF PA.GAF)
.PAGSC==12	;CHANGE SECTION MAPPING
		;(DELETE SECTION IF PA.GAF)
	PA.GSF==1B0	;ALTERNATE NAME FOR PA.GAF
	PA.GMS==1B1	;MAP SECTIONS TOGETHER
	PA.GSS==37777B17	;SOURCE SECTION #
	PA.GDS==37777B35	;DESTINATION SECTION #

.PAGBM==13	;ACCESSIBILITY BIT MAP (SAME BITS AS .PAGCA)
.PAGAL==14	;ACCESSIBILITY FOR LIST (SAME BITS AS .PAGCA)
.PAGLP==15	;LOCK/UNLOCK SPECIFIED PAGES INTO CORE
	PA.GEV==1B1		;MODIFIER BIT (REQUEST EVM)
	PA.GPP==37777B35	;PHYSICAL PAGE #
	PA.GVP==37777B17	;VIRTUAL PAGE #
.PAGWL==16	;WRITE LOCK/ENABLE SPECIFIED PAGES
;PAGE. UUO ERRORS

PAGUF%==0	;UNIMPLEMENTED FUNCTION
PAGIA%==1	;ILLEGAL ARGUMENT
PAGIP%==2	;ILLEGAL PAGE NUMBER
PAGCE%==3	;PAGE CAN'T EXIST BUT DOES
PAGME%==4	;PAGE MUST EXIST BUT DOESN'T
PAGMI%==5	;PAGE MUST BE IN CORE BUT ISN'T
PAGCI%==6	;PAGE CAN'T BE IN CORE BUT IS
PAGSH%==7	;PAGE IS IN A SHARABLE HI-SEG
PAGIO%==10	;PAGING I/O ERROR
PAGNS%==11	;NO SWAPPING SPACE AVAILABLE
PAGLE%==12	;CORE LIMIT EXCEEDED
PAGIL%==13	;ILLEGAL IF LOCKED
PAGNX%==14	;CAN NOT CREATE ALLOCTED BUT ZERO PAGE
		; WITH VIRTUAL LIMIT EQUAL TO ZERO.
PAGNP%==15	;NOT PRIVILEGED
PAGSC%==16	;SECTION CAN'T EXIST BUT DOES
PAGSM%==17	;SECTION MUST EXIST BUT DOESN'T
PAGIS%==20	;ILLEGAL SECTION
PAGAL%==21			;PAGE ALREADY LOCKED
PAGAU%==22			;PAGE ALREADY UNLOCKED (MUST BE CONTIGUOUS
				;WITH PALERR)
PAGNA%==23			;PAGE NOT AVAILABLE (E.G. PHYS PAGE REQ'D
				;TO BE LOCKED IS IN A LOCKED JOB, ETC.)
PAGNR%==24			;NO ROOM TO LOCK
PAGNE%==25			;INSUFFICIENT EVM AVAILABLE FOR LOCKING
PAGNN%==26			;NO FREE SEGMENT #S
PAGNC%==27			;NO FREE CORE
PAGWL%==30			;ALREAD WRITE-LOCKED
PAGWE%==31			;ALREADY WRITE-ENABLED
;.JBPFH REGION

.PFHJS==0	;JRST INSTRUCTION TO FIRST INSTRUCTION IN PFH.
.PFHOP==1	;OLD PC AND FLAGS
.PFHFC==2	;FAULT WORD
	PF.HCB==1B0	;WORKING SET CHANGED BEHIND BACK
	PF.HBS==1B1	;WORKING SET HAS BEEN SCRAMBLED
	PF.HPN==777B17	;PAGE NUMBER
	PF.HFC==0,,-1	;FAULT CODE
		.PFHNA==1	;PAGE NOT ACCESSABLE
		.PFHNI==2	;PAGE NOT IN CORE
		.PFHUU==3	;PAGE FAULT IN UUO ARGS
		.PFHTI==4	;VIRTUAL TIMER
		.PFHZI==5	;ALLOCATED BUT ZERO FROM USER
		.PFHZU==6	;ALLOCATED BUT ZERO DURING UUO
.PFHVT==3	;VIRTUAL TIME
.PFHPR==4	;PAGING RATE
.PFHPV==5	;HIGHEST PSI VECTOR IN USE,,ADDRESS OF PSI VECTOR
.PFHVR==6	;VERSION NUMBER
	;7-11 RESERVED (CURRENTLY USED FOR RUNTIME STATISTICS)
.PFHST==12	;FIRST WORD ALLOWED TO THE PFH ITSELF.
	SUBTTL	DAEMON CALLS

;DAEMON UUO FUNCTIONS

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

;DAEMON UUO ERRORS

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

;DCORE DUMP CATEGORIES

.CAJOB==1	;JOB TABLES (SEE BELOW)
.CACNF==2	;CONFIGURATION TABLES (.GTCNV)
.CADDB==3	;JOB'S DDBS
.CACOR==4	;USER'S CORE IMAGE (COMPRESSED)
.CAFET==5	;FET GETTAB
.CAMAX==5	;HIGHEST LEGAL CATEGORY NUMBER
;CODES IN ERROR.SYS

.ESWHY==1	;WHY RELOAD WITH COMMENTS, IF ANY
.ESMSE==2	;CONTINUABLE STOPCD
.ESMPE==3	;KI MEM PAR ERROR
.ESNXM==4	;KI NON-EX MEM
.ESCIN==5	;INFORMATION EXTRACTED FROM A CRASH
.ESCPE==6	;CHANNEL-DETECTED MEM PAR ERROR OR NXM
.ESDRE==7	;DAEMON RESTARTED
.ESHDE==10	;HARDWARE-DETECTED DEVICE ERROR
.ESMDE==11	;MASSBUS DEVICE ERROR
.ESDXE==12	;DX20 DEVICE ERROR
.ESSWE==14	;SOFTWARE EVENT OF INTEREST
	.SWEPK==1	;EVENT WAS A POKE
	.SWESN==2	;EVENT WAS A SNOOP.
	.SWETP==3	;EVENT WAS A TRPSET
	.SWERT==4	;EVENT WAS A RTTRAP
	.SWMS1==5	;MISC EVENT 1 (FOR DEBUGGING)
	.SWMS2==6	;MISC EVENT 2 (FOR DEBUGGING)
.ESCSC==15	;CONFIGUATION STATUS CHANGE
	.CSCAT==0	;ATTACH
	.CSCDT==1	;DETACH
	.CSCXC==2	;EXCHANGE
	.CSCTC==3	;DATE/TIME CHANGE
	.CSCCF==4	;DETACH CPU
	.CSCCO==5	;ATTACH CPU
	.CSCNF==6	;NODE OFF-LINE
	.CSCNO==7	;NODE ON-LINE
	.CSCMO==10	;SET MEMORY ON-LINE
	.CSCMF==11	;SET MEMORY OFF-LINE
.ESSLM==16	;SYSTEM LOG MESSAGE
.ESDEB==17	;SOFTWARE REQUESTED DATA
.ESTAP==21	;MAGTAPE ERROR (TAPSER)
.ESDTA==25	;DECTAPE ERROR
.ESKLE==30	;KL10 PROCESSOR ERROR DATA FROM RSX20 FRONT END
.ESFER==31	;FRONT END RELOAD
.ESHSB==33	;KS10 HALT STATUS BLOCK
.ESTPS==42	;MAGTAPE PERFORMANCE STATISTICS CODE(TAPSER)
.ESCFG==43	;MAX CONFIGURATION IN AVAIL.SYS
.ESMRV==44	;MONITOR RUN VALUES IN AVAIL.SYS
.ESDSC==45	;DISK STATISTICS (USUALLY FROM A CRASH)
.ESBAV==46	;BEGINNING OF AVAIL.SYS TIMESTAMP
.ESEAV==47	;END OF AVAIL.SYS TIMESTAMP
.ESDLE==50	;DL10 HARWARE ERROR
.ESKIP==51	;KI PARITY/NXM INTERRUPT (7.01)
.ESKLP==52	;KL PARITY/NXM INTERRUPT (7.01)
.ESKSM==53	;KS MEMORY ERROR
.ESKSN==54	;KS NXM TRAP (7.01)
.ESKPT==55	;KL/KS PARITY TRAP (7.01)
.ESSNX==56	;NXM MEMORY SCAN (7.01)
.ESSPR==57	;PARITY MEMORY SCAN (7.01)
.ESKDT==61	;KL10 DATA PARITY TRAP
.ESMOT==62	;KL DATA PARITY INTERRUPT
.ESCSB==63	;CPU STATUS BLOCK
.ESDSB==64	;DEVICE STATUS BLOCK
.ESKAE==67	;KL ADDRESSING FAILURE
.ESLPT==71	;LPT ERROR
.ESHCC==72	;HARD COPY CONTROLLER ENTRY
.ESULD==73	;MICROCODE LOAD
.ESCIE==74	;CI DISK ERROR
.ESDVD==75	;DEVICE DUMP
.ESDTC==100	;DATE/TIME CHANGE (OBSOLETE)
.ESNUS==201	;NETWORK UTILITY STARTED
.ESNDL==202	;NETWORK DOWN LINE LOAD
.ESNUD==203	;NETWORK UP LINE DUMP
.ESNHE==210	;NETWORK HARDWARE ERROR
.ESNSE==211	;NETWORK SOFTWARE ERROR
.ESNOE==220	;NETWORK OPERATOR ENTRY
.ESNTC==221	;NETWORK TOPOLOGY CHANGE
.ESNLC==230	;NETWORK LINE COUNTERS
.ESNNS==231	;NETWORK NODE STATISTICS ENTRY
.ESHIA==377	;HIATUS IN ERROR.SYS
.ESOFF==775	;MARKER FOR FIRST WORD OF BLOCK AS POINTER TO START OF FIRST ENTRY
.ESEOF==777	;END OF FILE FLAG
;DCORE JOB TABLE ENTRIES

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

;METER. FUNCTIONS

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

;METER. ERRORS

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

;STANDARD CHANNEL ARGUMENT BLOCK LOCATIONS

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

;DISPLAY CHANNEL ARGS

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

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

;ARGUMENT BLOCK FOR METER. POINT FUNCTIONS

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

;ARGUMENT OFFSETS PER POINT IN POINT LIST

.MPNAM==0	;POINT NAME
.MPPID==1	;USER POINT ID
.MPPAR==2	;POINT PARAMETER
.MPJOB==3	;JOB NUMBER
.MPSTS==4	;POINT STATUS
	MP.STS==17777B12 ;POINT STATUS MASK
	MP.ENB==1B0	;POINT IS ENABLED
	MP.USA==1B1	;USER SEGMENT ADDRESSED
.MPPRT==5	;POINT ROUTINE TYPE
		.MPRN==00	;NULL ROUTINE
		.MPRV==01	;INTRINSIC VALUE
		.MPRT==02	;TIME INTERVAL
		.MPRVI==3	;INTRINSIC VALUE+POINT ID
		.MPRTI==4	;TIME+POINT ID
.MPPRP==6	;POINT ROUTINE PARAMETER
.MPCID==7	;USER CHANNEL ID
	SUBTTL	PERFORMANCE ANALYSIS -- PERF. MONITOR CALL

;PERF. FUNCTION CODES

.PRSET==1	;SET UP PERFORMANCE METER
.PRSTR==2	;START PERFORMANCE METER
.PRRED==3	;READ PERFORMANCE METER
.PRSTP==4	;STOP PERFORMANCE METER
.PRRES==5	;RELEASE PERFORMANCE METER
.PRBPF==6	;BACKGROUND PERF ANALYSIS OFF
.PRBPN==7	;BACKGROUND PERF ANALYSIS ON

;ARGUMENT OFFSETS -- .PRSET

.PMLEN==0	;LENGTH OF ARGUMENT BLOCK
.PMCPU==1	;CPU TYPE
	PM.PD6==1B0	;PDP-6
	PM.KA==1B1	;KA10
	PM.KI==1B2	;KI10
	PM.KL==1B3	;KL10
	PM.KS==1B4	;KS10
.PMMOD==2	;PROCESSOR NUMBER AND MODE
	PM.CPN==777777B17	;CPU NUMBER
	PM.MOD==1B18		;INTERVAL MODE
	PM.CLR==1B19		;CLEAR PERFORMANCE METER COUNTS
.PMCSH==3	;CACHE ENABLES
	PM.CCR==1B0	;COUNT REFERENCES
	PM.CCF==1B1	;COUNT FILLS
	PM.EWB==1B2	;COUNT EBOX WRITEBACKS
	PM.SWB==1B3	;COUNT SWEEP WRITEBACKS
	PM.SYN==1B4	;SYNCHRONIZE PERFORMANCE AND ACCOUNTING METERS
.PMPIE==4	;PRIORITY INTERRUPT ENABLES
	PM.PI0==1B0	;ENABLE FOR CHANNEL 0
	PM.PI1==1B1	;ENABLE FOR CHANNEL 1
	PM.PI2==1B2	;ENABLE FOR CHANNEL 2
	PM.PI3==1B3	;ENABLE FOR CHANNEL 3
	PM.PI4==1B4	;ENABLE FOR CHANNEL 4
	PM.PI5==1B5	;ENABLE FOR CHANNEL 5
	PM.PI6==1B6	;ENABLE FOR CHANNEL 6
	PM.PI7==1B7	;ENABLE FOR CHANNEL 7
	PM.NPI==1B8	;ENABLE FOR NO PI IN PROGRESS
.PMPCE==5	;PC ENABLES
	PM.UPC==1B0	;USER MODE ENABLE
	PM.XPC==1B1	;EXEC MODE ENABLE
.PMMPE==6	;MICROCODE PROBE ENABLES
	PM.MPE==1B0	;MICROCODE PROBE ENABLED
.PMHPE==7	;HARDWARE PROBE ENABLES
	PM.P0L==1B0	;PROBE ZERO LOW
	PM.P0H==1B1	;PROBE ZERO HIGH
.PMJOB==10	;JOB ENABLES
	.PMSLF==-1	;ENABLE FOR CALLING JOB
	.PMNUL==-2	;ENABLE FOR NULL JOB
.PMCHN==11	;CHANNEL ENABLES
	PM.EC0==1B0	;ENABLE FOR CHANNEL 0
	PM.EC1==1B1	;ENABLE FOR CHANNEL 1
	PM.EC2==1B2	;ENABLE FOR CHANNEL 2
	PM.EC3==1B3	;ENABLE FOR CHANNEL 3
	PM.EC4==1B4	;ENABLE FOR CHANNEL 4
	PM.EC5==1B5	;ENABLE FOR CHANNEL 5
	PM.EC6==1B6	;ENABLE FOR CHANNEL 6
	PM.EC7==1B7	;ENABLE FOR CHANNEL 7

;ARGUMENT OFFSETS -- .PRSTR

.PMCPN==1	;CPU NUMBER
.PMHTB==2	;HIGH ORDER PART OF TIME BASE
.PMLTB==3	;LOW ORDER PART OF TIME BASE
.PMHPM==4	;HIGH ORDER PART OF PERFORMANCE COUNTER
.PMLPM==5	;LOW ORDER PART OF PERFORMANCE COUNTER
.PMHMC==6	;HIGH ORDER MBOX REFERENCE COUNT
.PMLMC==7	;LOW ORDER MBOX REFERENCE COUNT

;ARGUMENT OFFSETS -- .PRRED
; SAME AS FOR .PRSTR

;ARGUMENT OFFSETS -- .PRSTP
; SAME AS FOR .PRSTR

;ARGUMENT OFFSETS -- .PRRES
; SAME AS FOR .PRSTR

;ARGUMENT OFFSETS -- .PRBPF

;.PMLEN==0	;LENGTH OF ARG BLOCK
;.PMCPU==1	;CPU TYPE (SAME AS .PRSET)
;.PMMOD==2	;CPU AND FLAGS (SAME AS .PRSET)
.PMBPI==3	;SAMPLE INTERVAL IN TICKS

;ARGUMENT OFFSETS -- .PRBPN
; SAME AS .PRBPF

;PERF. ERRORS

PRCPU%==1	;INCORRECT CPU SPECIFICATION
PRNXC%==2	;NON-EXISTENT CPU
PRMOD%==3	;IMPROPER MODE
PRSET%==4	;METER NOT SET UP
PRUSE%==5	;METER IN USE
PRRUN%==6	;METER IS RUNNING
PRJOB%==7	;BAD JOB NUMBER
PRNRN%==10	;METER NOT RUNNING
PRNIM%==11	;FUNCTION NOT IMPLEMENTED
PRFUN%==12	;INCORRECT FUNCTION CODE
PRPRV%==13	;REQUIRES PRIVILEGES
	SUBTTL	PERFORMANCE ANALYSIS -- SNOOP. MONITOR CALL

;SNOOP. FUNCTION CODES
.SODBP==0	;DEFINE BREAKPOINTS (ILLEGAL IF BREAKPOINTS HAVE BEEN INSERTED)
	.SOLEN==0	;LENGTH OF THE DEFINE BREAKPOINT BLOCK
	.SOMSC==1	;MONITOR SYMBOL TABLE CHECKSUM
.SOIBP==1	;INSERT BREAKPOINTS WHICH HAVE BEEN DEFINED (.SODBP)
		; (ILLEGAL IF PROGRAM IS NOT LOCKED CONTIGUOUSLY IN EVM)
.SORBP==2	;REMOVE BREAKPOINTS WHICH HAVE BEEN INSERTED
.SOUBP==3	;UNDEFINED BREAKPOINTS (ILLEGAL IF BREAKPOINTS HAVE NOT BEEN REMOVED)
.SONUL==4	;NULL FUNCTION

;FORMAT OF BREAKPOINT BLOCK FOR .SODBP (REPEATED <(.SOLEN)-1>/2 TIMES)
.SOMVA==0	;MONITOR VIRTUAL ADDRESS WHERE BREAKPOINT IS TO BE INSERTED
.SOBPI==1	;BREAKPOINT INSTRUCTION TO BE INSERTED AT CONTENTS OF .SOMVA

;ERROR CODES
SOIAL%==1	;ILLEGAL ARGUMENT LIST
SONPV%==2	;NOT PRIVILEGED
SOSAS%==3	;SOMEONE IS ALREADY SNOOP.'ING
SOMBX%==4	;MAXIMUM NUMBER OF BREAKPOINTS ALLOWED EXCEEDED
SOIBI%==5	;FUNCTION ILLEGAL BECAUSE BREAKPOINTS ARE INSERTED
SONFS%==6	;NO MONITOR FREE CORE
SOADC%==7	;ADDRESS CHECK
SOINL%==10	;FUNCTION ILLEGAL IF NOT LOCKED CONTIGUOUSLY IN EVM
SOWMS%==11	;MONITOR SYMBOL TABLE CHECKSUMS DO NOT MATCH
	SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS -- GENERAL FORMAT OF ARG BLOCK

;;GENERAL FORMAT FOR ENQ./DEQ./ENQC.
;;!=======================================================!
;;!LEN!    # OF LOCKS         !   LENGTH OF THIS BLOCK    !
;;!-------------------------------------------------------!
;;!         RESERVED          !        REQUEST ID         !
;;!-------------------------------------------------------!
;;!   MAXIMUM LENGTH OF TIME TO WAIT FOR EACH RESOURCE    !
;;!=======================================================!
;;!    FLAGS    !   LEVEL #   !      CHAN #/-1/-2/-3      !
;;!-------------------------------------------------------!
;;!POINTER TO STRING OR 5B2+USER CODE OR 36-BIT USER CODE !
;;!-------------------------------------------------------!
;;!     # OF RES. IN POOL     !    # WANTED OR GROUP #    !
;;!-------------------------------------------------------!
;;!   LENGTH OF MASK BLOCK    !   ADDRESS OF MASK BLOCK   !
;;!-------------------------------------------------------!
;;!   LENGTH OF TABLE BLOCK   !   ADDRESS OF TABLE BLOCK  !
;;!-------------------------------------------------------!
;;/                                                       /
;;/              2 TO 5 WORDS FOR EACH LOCK               /
;;/                                                       /
;;!=======================================================!

.ENQLL==0	;NUMBER OF LOCKS AND LENGTH
	EQ.BHS==77B5		;BLOCK HEADER SIZE (1 TO 3)
	EQ.LNL==7777B17		;NUMBER OF LOCKS
	EQ.LLB==777777B35	;LENGTH OF ARGUMENT BLOCK
.ENQRI==1	;REQUEST I.D. (NORMALLY ONE BIT)
.ENQTL==2	;TIME LIMIT IN SECONDS

;FOR EACH LOCK:
.ENQFL==0	;FLAGS, LEVEL, CHAN
	EQ.FSR==1B0	;SHARED REQUEST
	EQ.FBL==1B1	;BYPASS LEVEL CHECKING
	EQ.FLT==1B2	;LONG TERM LOCK
	EQ.FEL==1B3	;ETERNAL LOCK, NOT DEQ'D ON RESET
	EQ.FAB==1B4	;ABORTED LOCK
	EQ.FDD==1B5	;DETECT DEADLOCKS
	EQ.FCW==1B6	;USER CODE WORD INSTEAD OF STRING POINTER
	EQ.FLV==777B17	;LEVEL #
	EQ.FCC==777777	;CHAN. NUMBER OR CODE
	    .EQFJB==777777  ;CODE FOR THIS JOB ONLY
	    .EQFGL==777776  ;GLOBAL LOCK
	    .EQFPL==777775  ;PRIV. GLOBAL LOCK
.ENQBP==1	;BYTE POINTER OR USER CODE
	EQ.BUC==5B2	;SET IF 33 BIT USER CODE IS USED
.ENQPS==2	;POOL SIZE
	EQ.PPS==777777B17	;TOTAL SIZE OF POOL
	EQ.PPR==777777B35	;NUMBER REQUESTED FROM POOL
.ENQMS==3			;MASK FOR MULTIPLE RESOURCE LOCK
	EQ.MBL==777777B17	;MASK BLOCK LENGTH
	EQ.MSK==777777B35	;ADDRESS OF BLOCK
.ENQTB==4			;LOCK ASSOCIATED TABLE BLOCK
	EQ.TLN==777777B17	;LENGTH OF TABLE BLOCK
	EQ.TBL==777777B35	;ADDRESS OF TABLE BLOCK
	SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS -- FUNCTION CODES

;ENQ. FUNCTION CODES
.ENQBL==0	;ENQ. BLOCK TILL AVAILABLE
.ENQAA==1	;ENQ. ALLOCATE ONLY IF AVAILABLE
.ENQSI==2	;ENQ. SOFTWARE INTERRUPT WHEN AVAIL.
.ENQMA==3	;ENQ. MODIFY ACCESS

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

;ENQC. FUNCTION CODES
.ENQCS==0	;RETURN STATUS
.ENQCG==1	;GET USER'S QUOTA
.ENQCC==2	;CHANGE USERS QUOTA
.ENQCD==3	;DUMP THE DATA BASE
	SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS -- FORMAT OF STATUS BLOCKS

;;FORMAT OF ENQC. STATUS BLOCKS (FUNCTION 1)
;;!=========================================================================!
;;!I !O !Q!X!         !     LEVEL #     !     CONTEXT #    !     JOB #      !
;;!-------------------------------------------------------------------------!
;;!                           TIME-STAMP OF LOCK                            !
;;!-------------------------------------------------------------------------!
;;!          NUMBER OF SHARERS          !    REQUEST ID OF CALLER/OWNER     !
;;!-------------------------------------------------------------------------!
;;/                                                                         /
;;/                TWO WORDS FOR EACH LOCK IN ENQC. REQUEST                 /
;;/                                                                         /

.ENQCF==0	;FLAG WORD
	EQ.CFI==1B0	;LOCK IS INVALID
	EQ.CFO==1B1	;THIS USER IS THE OWNER
	EQ.CFQ==1B2	;THIS USER IS IN THE QUEUE
	EQ.CFX==1B3	;THE OWNER HAS EXCLUSIVE ACCESS
	EQ.CFL==777B17	;LEVEL NUMBER
	EQ.CFC==777B26	;CONTEXT # OF OWNER
	EQ.CFJ==777B35	;JOB # OF OWNER (OR ERROR CODE)
.ENQCT==1	;TIME-STAMP (TIME LOCK WAS GRANTED TO OWNER
		;	IN UNIVERSAL FORMAT)
.ENQCI==2	;NUMBER OF SHARERS,,REQUEST ID OF OWNER/CALLER
	EQ.CIQ==777777B17 ;NUMBER OF SHARERS OF RESOURCE
	EQ.CID==777777	;REQUEST ID OF OWNER/CALLER
	SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS -- FORMAT OF DUMP

;;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!N!A!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!0!0!I!D!                !     CONTEXT #    !      JOB #      !
;;!-------------------------------------------------------------------------!
;;!       GROUP # OR # REQUESTED       !            REQUEST I.D.            !
;;!=========================================================================!

;FLAGS IN FIRST WORD OF EACH BLOCK TYPE:
EQ.DLB==1B0	;THIS IS A LOCK BLOCK
EQ.DLO==1B1	;THIS IS THE LOCK OWNER (QUEUE-BLOCK ONLY)
EQ.DLT==1B2	;THIS LOCK HAS TEXT (LOCK-BLOCK ONLY)
EQ.DXA==1B3	;EXCLUSIVE ACCESS (QUEUE-BLOCK ONLY)
EQ.DJW==1B4	;THIS JOB IS BLOCKED WAITING FOR LOCK (QUEUE-BLOCK ONLY)
EQ.DLN==1B5	;THIS LOCK-BLOCK WILL NOT BE DEQUEUED ON RESET
EQ.DLA==1B6	;THIS LOCK-BLOCK IS ABORTED (NO NEW REQUESTS GRANTED)
EQ.DQI==1B7	;THIS QUEUE-BLOCK IS INVISIBLE
EQ.DQD==1B8	;THIS QUEUE-BLOCK WILL BE CHECKED FOR DEADLOCK

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

;FORMAT OF A QUEUE-BLOCK
.EQDFJ==0	;FLAGS AND JOB #
	EQ.DCN==777B26	;CONTEXT NUMBER
	EQ.DJN==777B35	;JOB NUMBER
.EQDGI==1	;GROUP # AND REQUEST I.D.
	EQ.DGR==777777B17 ;GROUP OR # REQUESTED
	EQ.DRI==777777B35 ;REQUEST I.D.
	SUBTTL	ENQUEUE AND DEQUEUE SYMBOLS -- ERROR CODES

;ENQ./DEQ./ENQC. ERROR CODES

ENQRU%==1	;SOME RESOURCE(S) REQUESTED WERE UNAVAILABLE
ENQBP%==2	;ILLEGAL # OF RESOURCES REQUESTED (POOLED RESOURCES)
ENQBJ%==3	;BAD JOB NUMBER
ENQBB%==4	;BAD BYTE SIZE IN TEXT STRING
ENQST%==5	;STRING TOO LONG
ENQBF%==6	;BAD FUNCTION CODE
ENQBL%==7	;ILLEGAL ARGUMENT BLOCK LENGTH
ENQIC%==10	;ILLEGAL NUMBER OF LOCKS SPECIFIED
ENQBC%==11	;BAD CHANNEL NUMBER
ENQPI%==12	;OPERATOR/JACCT PRIVILEGE REQUIRED
ENQNC%==13	;NO CORE AVAILABLE
ENQFN%==14	;FILE NOT OPEN ON SPECIFIED CHANNEL, OR DEVICE NOT A DISK
ENQIN%==15	;INDIRECT OR INDEXED BYTE POINTER NOT ALLOWED
ENQNO%==16	;NO RESOURCES WERE OWNED
ENQLS%==17	;LEVEL SEQUENCING ERROR (LEVEL # TOO LOW)
ENQCC%==20	;CAN'T CHANGE ACCESS TO EXCLUSIVE ACCESS
ENQQE%==21	;QUOTA EXCEEDED
ENQPD%==22	;# OF RESOURCES IN POOL NOT SAME AS IN LOCK
ENQDR%==23	;DUPLICATE REQUEST FOR RESOURCE (LOCK ALREADY REQUESTED)
ENQNE%==24	;NOT ENQ'ED ON THIS LOCK
ENQLD%==25	;LEVEL # IN REQUEST DOES NOT MATCH LOCK
ENQED%==26	;ENQ/DEQ PRIVILEGES REQUIRED
ENQME%==27	;PIE SLICE MASK TOO LONG, OR LENGTHS DON'T MATCH
ENQTE%==30	;LOCK ASSOCIATED TABLE TOO LONG
ENQAB%==31	;REQUESTED RESOURCE HAS BEEN ABORTED
ENQGF%==32	;ATTEMPT TO ENQ. WITH EQ.FEL OPTION ON A 'GHOST FILE'
ENQDD%==33	;DEADLOCK DETECTED
ENQTL%==34	;TIME LIMIT EXCEEDED
	SUBTTL	FILE DAEMON
;FILE DAEMON

.FLDCA==1	;ACCESS
.FLDIC==2	;INPUT CLOSE
.FLDOC==3	;OUTPUT CLOSE
.FLDXT==4	;EXIT
.FLDPG==5	;RUN
.FLDDA==6	;DIRECTORY
.FLDPS==7	;PUSH/SUSPEND
.FLDPR==10	;POP/RESUME

FL.DAA==1B0	;CALL THE FILE DAEMON ON EVERY ACCESS TO THE FILE
FL.DCL==1B1	;CALL THE FILE DAEMON ON CLOSE
FL.DXT==1B2	;CALL THE FILE DAEMON ON PROGRAM EXECUTION TERMINATED
FL.DSP==1B3	;FILE DAEMON IS SPECIFING THE PROTECTION CODE
FL.DPT==777B17	;PROTECTION CODE SUPPLIED BY THE FILE DAEMON
FL.DHA==777777B35 ;HIGHEST ACCESS ALLOWED
	SUBTTL	MISC. I/O -- DEVCHR

DV.DRI==1B0	;DTA WITH DIRECTORY IN CORE
DV.DSK==1B1	;DEVICE IS A FILE STRUCTURE
DV.CDR==1B2	;IF DVOUT=1 DEVICE IS A CDP
		; IF DVIN=1 DEVICE IS A CDR
DV.LPT==1B3	;DEVICE IS A LINE PRINTER
DV.TTA==1B4	;DEVICE IS A TTY CONTROLING A JOB
DV.TTU==1B5	;TTY DDB IS IN USE
DV.2IO==1B6	;DEVICE CAN DO INPUT & OUTPUT AT SAME TIME
DV.DIS==1B7	;DEVICE IS A DISPLAY
DV.LNG==1B8	;DEVICE HAS A LONG DISPATCH TABLE
DV.PTP==1B9	;DEVICE IS A PAPER TAPE PUNCH
DV.PTR==1B10	;DEVICE IS A PAPER TAPE READER
DV.DTA==1B11	;DEVICE IS A DEC TAPE
DV.AVL==1B12	;DEVICE IS AVAILABLE TO THIS JOB
DV.MTA==1B13	;DEVICE IS A MAG TAPE
DV.TTY==1B14	;DEVICE IS A TTY
DV.DIR==1B15	;DEVICE HAS A DIRECTORY
DV.IN==1B16	;DEVICE CAN DO INPUT
DV.OUT==1B17	;DEVICE CAN DO OUTPUT
DV.ASC==1B18	;DEVICE ASSIGNED BY ASSIGN COMMAND
DV.ASP==1B19	;DEVICE ASSIGNED BY INIT OR OPEN UUO
DV.M17==1B20	;DEVICE CAN DO MODE 17
DV.M16==1B21	;DEVICE CAN DO MODE 16
DV.M15==1B22	;DEVICE CAN DO MODE 15
DV.M14==1B23	;DEVICE CAN DO MODE 14
DV.M13==1B24	;DEVICE CAN DO MODE 13
DV.M12==1B25	;DEVICE CAN DO MODE 12
DV.M11==1B26	;DEVICE CAN DO MODE 11
DV.M10==1B27	;DEVICE CAN DO MODE 10
DV.M7==1B28	;DEVICE CAN DO MODE 7
DV.M6==1B29	;DEVICE CAN DO MODE 6
DV.M5==1B30	;DEVICE CAN DO MODE 5
DV.M4==1B31	;DEVICE CAN DO MODE 4
DV.M3==1B32	;DEVICE CAN DO MODE 3
DV.M2==1B33	;DEVICE CAN DO MODE 2
DV.M1==1B34	;DEVICE CAN DO MODE 1
DV.M0==1B35	;DEVICE CAN DO MODE 0
	SUBTTL	MISC. I/O -- DEVTYP

TY.MAN==1B0	;LOOKUP/ENTER IS REQUIRED
TY.GEN==1B8	;SIXBIT DEVICE IS GENERIC
TY.MDA==1B9	;DEVICE IS CONTROLLED BY MOUNTABLE DEVICE
		; ALLOCATOR
TY.EHF==1B10	;EXTENDED HARDWARE FEATURES:
		;IF LPT THEN HAS LOWER CASE
TY.MPX==1B11	;DEVICE CAN BE USED VIA MPX:
TY.AVL==1B12	;DEVICE IS FREE
TY.SPL==1B13	;DEVICE IS SPOOLED
TY.INT==1B14	;DEVICE IS INTERACTIVE
TY.VAR==1B15	;DEVICE HAS VARIABLE BUFFER SIZE
TY.IN==1B16	;DEVICE CAN DO INPUT
TY.OUT==1B17	;DEVICE CAN DO OUTPUT
TY.JOB==777B26	;JOB NUMBER OWNING DEVICE
TY.RAS==1B29	;RESTRICTED DEVICE
TY.DEV==77B35	;DEVICE TYPE
	.TYDSK==0	;DEVICE IS A DISK
	.TYDTA==1	;DEVICE IS A DEC TAPE
	.TYMTA==2	;DEVICE IS A MAG TAPE
	.TYTTY==3	;DEVICE IS A TTY
	.TYPTR==4	;DEVICE IS A PTR
	.TYPTP==5	;DEVICE IS A PTP
	.TYDIS==6	;DEVICE IS A DISPLAY
	.TYLPT==7	;DEVICE IS A LINE PRINTER
	.TYCDR==10	;DEVICE IS A CARD READER
	.TYCDP==11	;DEVICE IS A CARD PUNCH
	.TYPTY==12	;DEVICE IS A PTY
	.TYPLT==13	;DEVICE IS A PLOTTER
	.TYEXT==14	;EXTERNAL TASK (DA28C)
	.TYMPX==15	;MULTIPLEXOR
	.TYPAR==16	;PA611R ON DC44
	.TYPCR==17	;PC11(R) ON DC44
	.TYPAP==20	;PA611P ON DC44
	.TYLPC==21	;LPC-11 ON DC44
	.TYPCP==22	;PC-11(P) ON DC44
	.TYWTY==23	;WTY DEVICE ON DC44
	.TYTSK==24	;NETWORK TASK
	.TYD78==25	;DAS78 DEVICE
	.TYRDA==26	;REMOTE DATA ENTRY DEVICE
	.TYMCR==27	;MONITOR COMMAND ROUTINE
	.TYDRA==30	;DTR01/DR01 DEVICE
	.TYKDP==31	;KMC/DUP
	.TYDTE==32	;DTE
	.TYDDP==33	;ANF10 DDCMP DEVICE
	.TYDMR==34	;DMR11 AS A NETWORK DEVICE
	.TYRX2==35	;RX20 FLOPPY DISK CONTROLLER
	.TYKLP==36	;CI20 (KLIPA)
	.TYKNI==37	;NIA20 (KLNI)
	.TYSAX==40	;SA10 (IBM CHANNEL ADAPTER)
	SUBTTL	MISC. I/O -- MTCHR.

;FLAGS RETURNED IN THE AC

MT.AWC==777777B17	;ACTUAL WORD COUNT
MT.CRC==777B26	;CRC LAST READ
MT.NCR==7B29	;NUMBER CHARACTERS READ IN LAST WORD
MT.7TR==1B31	;7 TRACK
MT.WLK==1B32	;WRITE LOCKED
MT.DEN==7B35	;DENSITY
	.MTDN2==1	;200
	.MTDN5==2	;556
	.MTDN8==3	;800
	.MTD16==4	;1600
	.MTD62==5	;6250


;WORDS RETURNED IN THE ARGUMENT BLOCK

.MTCHN==0	;CHANNEL NUMBER SET IN CALL
.MTRID==1	;REEL ID
.MTWRD==2	;NUMBER OF FILES SINCE BOT (FILE #)
.MTREC==3	;NUMBER OF RECORDS SINCE EOF (RECORD #)
.MTCRD==4	;NUMBER CHARACTERS READ SINCE LAST TAPE UNLOAD
.MTCWR==5	;NUMBER CHARACTERS WRITTEN SINCE LAST TAPE UNLOAD
.MTSRE==6	;NUMBER SOFT-READ ERRORS SINCE LAST TAPE UNLOAD
.MTHRE==7	;NUMBER HARD-READ ERRORS SINCE LAST TAPE UNLOAD
.MTSWE==10	;NUMBER SOFT-WRITE ERRORS SINCE LAST TAPE UNLOAD
.MTHWE==11	;NUMBER HARD-WRITE ERRORS SINCE LAST TAPE UNLOAD
.MTTME==12	;NUMBER TOTAL MEDIA ERRORS SINCE LAST TAPE UNLOAD
.MTTDE==13	;NUMBER DEVICE ERRORS SINCE LAST SYSTEM RELOAD
.MTTUN==14	;NUMBER OF UNLOADS SINCE LAST SYSTEM RELOAD
.MTRTY==15	;NUMBER OF RETRIES TO RESOLVE LAST ERROR
.MTCCR==16	;CHARACTER COUNT OF LAST RECORD READ OR WRITTEN
.MTPBE==17	;POSITION BEFORE LAST ERROR OF FILE,,RECORD NUMBER
.MTFES==20	;FINAL ERROR STATE (SEE SYSERR SPECIFICATION)
	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:

.TFWAT==1	;WAIT FOR I/O TO STOP
.TFREW==2	;REWIND TO LOAD POINT
.TFUNL==3	;REWIND AND UNLOAD
.TFFSB==4	;SKIP FORWARD 1 BLOCK
.TFFSF==5	;SKIP FORWARD 1 FILE
.TFSLE==6	;SKIP TO LOGICAL END OF TAPE
.TFBSB==7	;SKIP BACKWARD 1 BLOCK
.TFBSF==10	;SKIP BACKWARD 1 FILE
.TFWTM==11	;WRITE TAPE MARK
.TFWLG==12	;WRITE 3" OF BLANK TAPE
.TFDSE==13	;DATA SECURITY ERASE (BLANK WHOLE TAPE) TU70
.TFWLE==14	;WRITE LOGICAL END OF TAPE (WTM, WTM, BSB)
.TFLBG==15	;LABEL GET (FOR TAPE LABEL MGR.)
.TFLRL==16	;LABEL RELEASE (FOR TAPE LABEL MGR.)
.TFLSU==17	;SWAP UNITS (FOR TAPE LABEL MGR.)
.TFLDD==20	;DESTROY LABEL DDB (FOR TAPE LABEL MGR.)
.TFFEV==21	;FORCE END OF VOLUME PROCESSING
.TFURQ==22	;USER REQUEST FOR LABEL PROCESSING
	.TFCLE==1	;CLEAR THE TAPE LABELING ERROR
.TFSMM==23	;SET MAINTENANCE MODE
.TFCMM==24	;CLEAR MAINTENANCE MODE
.TFCEC==25	;CLEAR ERROR COUNTERS (FOR TAPE LABEL MGR.)
;TAPOP. READ/SET PARAMETERS. RESULT TO AC.

.TFSET==1000	;OFFSET FROM READ TO SET

.TFTRY==1000	;RETRIES ON LAST ERROR
.TFDEN==1001	;DENSITY
	.TFD00==0	;UNIT DEFAULT
	.TFD20==1	;200 BPI
	.TFD55==2	;556 BPI
	.TFD80==3	;800 BPI
	.TFD16==4	;1600 BPI
	.TFD62==5	;6250 BPI
.TFKTP==1002	;CONTROLLER TYPE
	.TFKTA==0	;TM10A
	.TFKTB==1	;TM10B
	.TFKTC==2	;TC10C
	.TFKTX==3	;DX10/TX01/TX02
	.TFKTM==4	;TM02/TM03
	.TFKRH==5	;TM02/TMO3
	.TFKD2==6	;DX20/TX02
	.TFK78==7	;TM78
	.TFKSX==17	;SA10 IBM CHANNEL MAGTAPES
.TFRDB==1003	;READ BACKWARDS (TU70 ONLY)
.TFLTH==1004	;LOW THRESHOLD READ (TM10 ONLY)
.TFPAR==1005	;EVEN PARITY (7TRK ONLY)
.TFBSZ==1006	;BLOCK SIZE
.TFMOD==1007	;MODE
	.TFMDD==0	;DEC COMPAT. CORE DUMP
	.TFMID==1	;INDUSTRY COMPAT. CORE DUMP
	.TFM8B==2	;8-BIT MODE (4 BYTES/WORD)
	.TFM6B==3	;6-BIT MODE (9-TRACK TU70 ONLY)
	.TFM7B==4	;7-BIT MODE (TU70 ONLY)
	.TFM7T==5	;7-TRACK CORE DUMP (SIXBIT)
.TFTRK==1010	;7-TRACK BIT
.TFWLK==1011	;WRITE LOCK (1=YES, 0=NO)
.TFCNT==1012	;CHAR. COUNT OF LAST RECORD
.TFRID==1013	;REELID
.TFCRC==1014	;LAST CRC (9-TRACK NRZI ONLY)
.TFSTS==1015	;UNIT STATUS
	TF.UNS==1B18	;UNIT IS NOT TO BE SCHEDULED
	TF.BOT==1B19	;BOT
	TF.WLK==1B20	;WRITE LOCK
	TF.REW==1B21	;UNIT IS REWINDING
	TF.STA==1B33	;UNIT IS STARTED
	TF.SEL==1B34	;UNIT IS SELECTED
	TF.OFL==1B35	;UNIT IS OFF-LINE
;TAPOP. READ/SET PARAMETERS (CONTINUED)

.TFSTA==1016	;UNIT STATISTICS TO ARGS 0 TO 12
	.TSFUN==0	;FUNCTION CODE
	.TSDEV==1	;DEVICE, CHAN, OR UDX
	.TSRID==2	;SIXBIT REEL IDENTIFIER
	.TSFIL==3	;NUMER OF FILES SINCE BOT (FILE #)
	.TSREC==4	;NUMBER OF RECORDS SINCE EOF (RECORD #)
	.TSCRD==5	;TOTAL CHARS. READ SINCE LAST TAPE UNLOAD
	.TSCWR==6	;TOTAL CHARS. WRITTEN SINCE LAST TAPE UNLOAD
	.TSSRE==7	;SOFT READ ERRORS SINCE LAST TAPE UNLOAD
	.TSHRE==10	;HARD READ ERRORS SINCE LAST TAPE UNLOAD
	.TSSWE==11	;SOFT WRITE ERRORS SINCE LAST TAPE UNLOAD
	.TSHWE==12	;HARD WRITE ERRORS SINCE LAST TAPE UNLOAD
	.TSTME==13	;TOTAL ERRORS SINCE UNLOAD (MOUNT)
	.TSTDE==14	;TOTAL DEVICE ERRORS SINCE SYSTEM STARTUP
	.TSTUN==15	;TOTAL UNLOADS SINCE SYSTEM RELOAD
	.TSRTY==16	;NUMBER OF RETRIES TO RESOLVE LAST ERROR
	.TSCCR==17	;CHARACTER COUNT OF LAST RECORD READ OR WRITTEN
	.TSPBE==20	;POSITION BEFORE LAST ERROR OF FILE,,RECORD NUMBER
	.TSFES==21	;FINAL ERROR STATE (SEE SYSERR SPECIFICATION)
.TFIEP==1017	;INITIAL ERROR POINTER
.TFFEP==1020	;FINAL ERROR POINTER
.TFIER==1021	;INITIAL ERROR STATUS
.TFFER==1022	;FINAL ERROR STATUS
.TFFED==1023	;NUMBER OF RETRIES
.TFLBL==1024	;TYPE OF LABEL PROCESSING
	.TFLBP==0	;BYPASS LABEL PROCESSING
	.TFLAL==1	;ANSI LABELS
	.TFLAU==2	;ANSI LABELS WITH USER LABELS
	.TFLIL==3	;IBM LABELS
	.TFLIU==4	;IBM LABELS WITH USER LABELS
	.TFLTM==5	;LEADING TAPE MARK
	.TFLNS==6	;NON-STANDARD LABELS
	.TFLNL==7	;NO LABELS
	.TFCBA==10	;DEC COBOL ASCII LABELS
	.TFCBS==11	;DEC COBOL SIXBIT LABELS
	.TFLNV==12	;NO LABELS, USER EOV
.TFPLT==1025	;SAME AS 1024 (.TFLBL)
;TAPOP. READ/SET PARAMETERS (CONTINUED)

.TFLTC==1026	;LABEL TERMINATION CODE (ALSO SEE EXTENDED I/O ERROR)
	.TFTCP==1	;CONTINUE PROCESSING
	.TFTRE==2	;RETURN EOF
	.TFTLT==3	;LABEL TYPE ERROR
	.TFTHL==4	;HEADER LABEL ERROR
	.TFTTL==5	;TRAILER LABEL ERROR
	.TFTVL==6	;VOLUME LABEL ERROR
	.TFTDV==7	;DEVICE ERROR
	.TFTDE==10	;DATA ERROR
	.TFTWL==11	;WRITE LOCK ERROR
	.TFPSE==12	;POSITIONING ERROR
	.TFBOT==13	;BOT
	.TFIOP==14	;ILLEGAL OPERATION
	.TFFNF==15	;FILE NOT FOUND
	.TFCAN==16	;OPR CANCELLED REQUEST
	.TFTMV==17	;TOO MANY VOLUMES REQUESTED
.TFDMS==1027	;DIAGNOSTIC MODE SET IF 1 (TU70 ON DX10 ONLY)
.TFFSO==1030	;FORCE SENSE OPERATIONS IF 1 (TU70 ONLY)
.TFMFC==1031	;READ/SET MAXIMUM FRAME COUNT
.TFPDN==1032	;POSSIBLE DENSITY
	TF.DN1==1B35	;200 BPI
	TF.DN2==1B34	;550 BPI
	TF.DN3==1B33	;800 BPI
	TF.DN4==1B32	;1600 BPI
	TF.DN5==1B31	;6250 BPI
;TAPOP. READ/SET PARAMETERS (CONTINUED)

.TFLPR==1033	;READ/SET LABEL PARAMETERS
		;.TFLPR (label parameters) function block
	.TPFUN==0	;FUNCTION CODE
	.TPDEV==1	;DEVICE, CHANNEL, OR UDX
	.TPREC==2	;RECORD FORMAT AND FORM CONTROL
		TR.FCT==777777B17	;FORMS CONTROL BYTE
			.TFCNO==1	;RECORDS ON TAPE DO NOT CONTAIN
					; FORM CONTROL CHARACTERS
			.TFCAS==2	;1ST CHARACTER OF EACH RECORD IS
					; FORM CONTROL CHARACTER
			.TFCAM==3	;RECORDS ON TAPE CONTAIN ALL REQUIRED
					; FORM CONTROL CHARACTERS
		TR.RFM==777777B35	;RECORD FROMAT BYTE
			.TRFDF==0	;DEFAULT (FIXED)
			.TRFFX==1	;FIXED (F)
			.TRFVR==2	;VARIABLE (D)
			.TRFSP==3	;SPANNED (S)
			.TRFUN==4	;UNDEFINED (U)
	.TPRSZ==3	;RECORD SIZE IN CHARACTERS
	.TPBSZ==4	;BLOCK SIZE IN CHARACTERS
	.TPEXP==5	;EXPIRATION DATE IN 15-BIT FORM
		TP.ECR==777777B17	;CREATION DATE
		TP.EEX==777777B35	;EXPIRATION DATE
	.TPPRO==6	;PROTECTION CODE
	.TPSEQ==7	;FILE SEQUENCE NUMBER
	.TPFNM==10	;FILENAME (17 CHARACTERS ASCII)
	.TPGEN==.TPFNM+<^D17+4>/5	;GENERATION AND VERSION NUMBERS
		TP.GEN==777777B17	;GENERATION NUMBER
		TP.VER==777777B35	;GENERATION VERSION NUMBER
	.TPLEN==.TPGEN+1	;LENGTH OF BLOCK
;TAPOP. ERROR CODES

TPACS%==-1	;ADDRESS CHECK STORING ANSWER
TPIFC%==0	;ILLEGAL FUNCTION CODE
TPPRV%==1	;NOT ENOUGH PRIVS.
TPNMT%==2	;NOT A MAGTAPE
TPVOR%==3	;VALUE OUT OF RANGE
TPACR%==4	;ADDRESS CHECK READING ARGUMENTS
TPCBS%==5	;PARAMETER CAN NOT BE SET
TPNIA%==6	;TAPE NOT INITED OR ASSIGNED
TPNLP%==7	;THERE IS NO LABEL PROCESS
TPETC%==10	;TERMINATION CODE ERROR
TPIJN%==11	;WRONG JOB NUMBER
TPLRF%==12	;DIDN'T DO LABEL RELEASE FUNCTION
TPLSI%==13	;LABEL PARAMETER SET ILLEGAL AFTER FIRST OUTPUT
TPLOE%==14	;LABEL DDB OWNED BY SOMEONE ELSE ON LABEL GET
TPDNC%==15	;DRIVE NOT CAPABLE OF SPECIFIED DENSITY
TPWWL%==16	;WRITE ATTEMPTED TO WRITE-LOCKED TAPE
	SUBTTL	MISC. I/O -- WHERE

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



	SUBTTL	MISC. I/O -- DVPHY.

DVPIA%==1	;ILLEGAL ARG LENGTH
DVPIT%==2	;ILLEGAL DEVICE TYPE
DVPNP%==3	;NONEXISTENT PHYSICAL DEVICE
DVPNT%==4	;NONEXISTENT DEVICE TYPE
	SUBTTL	MISC. I/O -- CAL11.

.C11FC==0	;FUNCTION WORD
	C1.1NO==777B17  ;(OLD FORMAT) WHICH -11
	C1.1NT==77B14	;(OLD FORMAT) TYPE
	C1.1NN==7B17	;(OLD FORMAT) NUMBER

	C1.1NF==1B0	;NEW FORMAT ARGUMENTS
	C1.1XX==377B8	;RESERVED FOR DEC
	C1.1TY==7B11	;TYPE
		.C11DL==0	;DL-10
		.C11DT==1	;DTE-20
		.C11KD==2	;KMC/DUP
		.C11DR==3	;DMR
	C1.1CN==7B14	;CPU NUMBER
	C1.1PN==7B17	;PORT NUMBER
	C1.1FC==777777	;WHICH FUNCTION
		.C11DP==0	;DEPOSIT FUNCTION
		.C11EX==1	;EXAMINE FUNCTION
		.C11QU==2	;QUEUE A REQUEST
		.C11NM==3	;RETURN NAME OF FRONT END PROG
		.C11UP==4	;RETURN 0 IF DOWN, 1 IF UP
		.C11SM==5	;SEND MESSAGE
		.C11RM==6	;RECEIVE MESSAGE
		.C11TY==7	;RETURN TYPE/NODE NUMBER
			.C1D76==1	;DC76
			.C1D75==2	;DC75/DN87
			.C1D60==3	;DN60
			.C1D8S==4	;DN87S
			.C1CFE==5	;CONSOLE FRONT END
			.C1MCB==6	;DECNET MCB
.C11AD==1	;ADDRESS OF EXAMINE/DEPOSIT
.C11CN==2	;CONTENTS TO DEPOSIT
.C11EN==1	;START OF QUEUE ENTRY
;CAL11.	ERROR CODES

C11NP%==1	;NOT PRIVILEGED
C11UF%==2	;UNKNOWN FUNCTION
C11ND%==3	;NOT DC76
C11IU%==4	;EXAM/DEP IN USE
C11NA%==5	;NO ANSWER TO EXAM/DEP
C11TS%==6	;QUEUE ENTRY TOO SHORT
C11NE%==7	;NOT ENOUGH ARGS
C11IA%==10	;INVALID EXAMINE/DEPOSIT ADDRESS
C11IQ%==11	;INVALID QUEUE FUNCTION ARGUMENT
C11IC%==12	;INSUFFICIENT CORE
C11RP%==13	;DTE RELOAD BIT SET OR PRIMARY PROTOCOL NOT RUNNING
C11IE%==14	;INSUFFICIENT EVM
C11IL%==15	;ILLEGAL PACKET LENGTH
C11NC%==16	;CPU NOT RUNNING
C11IT%==17	;ILLEGAL TYPE CODE
C11IP%==20	;ILLEGAL PORT NUMBER
C11DL%==21	;NO DL10 SUPPORT IN THIS MONITOR
C11DT%==22	;NO DTE SUPPORT IN THIS MONITOR
C11KD%==23	;NO KDP SUPPORT IN THIS MONITOR
C11DM%==24	;NO DMR SUPPORT IN THIS MONITOR
SUBTTL	MISC. I/O -- DDP.

;THE DDP. UUO ALLOWS UUO-LEVEL CONTROL OF DDP DEVICES/KONTROLLERS.
;CALL IS:
;
;	XMOVEI	AC,ADDRESS
;	DDP.	AC,
;	  ERROR RETURN
;	NORMAL RETURN
;
;ADR:	LENGTH,,FUNCTION
;	DDP DEVICE ID
;	ARGUMENT (AS NEEDED)

.DPFNC==0		;LENGTH,,FUNCTION CODE
;  DP.???==777B8	   ;RESERVED
   DP.LEN==777B17	   ;LENGTH
   DP.FNC==777777B35	   ;FUNCTION
      .DPFAS==00	      ;ASSIGN (CREATING IF NEEDED) DDP DEVICE
      .DPFZP==01	      ;ZAP ("RELEASE") DDP DEVICE/KONTROLLER
      .DPFDV==02	      ;SET DDP TO "DEVICE" MODE (IN/OUT/ETC. UUOS)
      .DPFKN==03	      ;SET DDP TO "KONTROLLER" MODE
      .DPFUS==04	      ;SET DDP "KONTROLLER" USER TYPE
;     .DP???==05	      ;RESERVED/ILLEGAL
;     .DP???==06	      ;RESERVED/ILLEGAL
;     .DP???==07	      ;RESERVED/ILLEGAL
      .DPFHL==10	      ;HALT THE DDP KONTROLLER
      .DPFIN==11	      ;INITIALIZE DDP KONTROLLER
      .DPFMA==12	      ;SET TO MAINTENANCE MODE (FOR BOOTSTRAPING)
.DPDEV==1		;SIXBIT DEVICE, CHANNEL, OR I/O INDEX (UDX)
.DPARG==2		;OPTIONAL FUNCTION DEPENDENT ARGUMENT
.DPMAX==3		;MAXIMUM LENGTH OF ARGUMENT BLOCK

;DDP. ERROR CODES
DPIFC%==01		;ILLEGAL DDP. FUNCTION CODE
DPLTS%==02		;ARGUMENT LIST TOO SHORT
DPIDV%==03		;ILLEGAL DDP. DEVICE (NOT DDP, ETC.)
DPNPR%==04		;USER NOT PRIVILEGED
DPIOM%==05		;ILLEGAL OPERATION MODE (DDP NOT IN KONTROLLER MODE)
DPIUN%==06		;ILLEGAL USER NAME
DPIOJ%==07		;DDP IS IN USE BY OTHER USER/JOB
DPADC%==10		;ADDRESS CHECK
	SUBTTL	MISC. I/O -- DTE.

;DTE. UUO FUNCTION CODES, BITS

.DTECL==0		;CLEAR AN 11 ON A DTE
.DTEST==1		;START PRIMARY PROTOCOL ON AN 11
.DTETB==2		;SET TO-10 BYTE POINTER FOR A DTE
.DTEEB==3		;SET TO-11 BYTE POINTER FOR A DTE
.DTERW==4		;GET ROM RELOAD WORD
	DT.RP4==200		;IF SET, 11 GOT CODE FROM THE RP04
.DTEMN==5		;GET MASTER DTE NUMBER
.DTEPR==6		;PRESS RELOAD BUTTON ON A DTE
.DTEGS==7		;GET DTE STATUS
	DT.DTX==1B6		;DTE EXISTS
	DT.DTM==1B7		;DTE IS THE MASTER
	DT.PPC==1B8		;DTE IS RUNNING PRIMARY PROTOCOL
	DT.SPC==1B9		;DTE IS RUNNING SECONDARY PROTOCOL
	DT.RLD==1B10		;DTE NEEDS TO BE RELOADED
.DTERJ==10		;SET RELOAD JOB NUMBER
.DTEGF==11		;GET FRONT END DEVICE
.DTEIF==12		;INPUT FROM FRONT END DEVICE
.DTEOF==13		;OUTPUT TO FRONT END DEVICE
.DTEFG==14		;GET FRONT END DEVICE STATUS
	DT.FER==1B28		;FATAL ERROR
	DT.EOF==1B30		;END OF FILE
	DT.IOP==1B31		;I/O IN PROGRESS
	DT.SER==1B32		;SOFT ERROR
	DT.HER==1B33		;HARD ERROR
	DT.OFL==1B34		;OFF LINE
	DT.NXD==1B35		;NON-EXISTANT DEVICE
.DTEFS==15		;SET FRONT END DEVICE STATUS
			;(BITS SAME AS IN GET FRONT END DEVICE STATUS)
.DTEFR==16		;RELEASE FRONT END DEVICE
.DTERC==17		;RELEASE KL ERROR CORE
.DTERT==20		;RESET TIMER FOR KL ERROR CORE SO
			; DAEMON IS SURE THAT THE CORE IS THERE.
.DTEDT==21		;DTE TO TTY LINE CONVERSION
.DTESU==22		;SET LINE'S USER
.DTERU==23		;READ LINE'S USER
.DTELS==24		;LOAD SECONDARY BOOTSTRAP
.DTEDM==25		;GET DUMP PACKET FROM SECONDARY DUMPER
.DTKPS==26		;KLINIK PARAMETERS SET
.DTKPR==27		;KLINIK PARAMETERS READ
;DTE. UUO ERROR CODES

DTENP%==1		;NOT PRIVILEGED
DTEUF%==2		;UNKNOWN FUNCTION CODE
DTEDC%==3		;UNKNOWN CPU NUMBER OR DTE NUMBER
DTEAP%==4		;ALREADY RUNNING PRIMARY PROTOCOL
DTEPT%==5		;POWER FAIL TIMEOUT ERROR
DTEDE%==6		;DEAD 11 - ROM DID NOT CLEAR TO-11 DOORBELL
			; DURING BOOTSTRAP SEQUENCE.
DTTTE%==7		;TO-10 ERROR AFTER BOOT SEQUENCE
DTEDD%==10		;NO RESPONSE FROM 11 AFTER BOOT SEQUENCE
DTEIJ%==11		;ILLEGAL JOB NUMBER SPECIFIED.
DTEIB%==12		;ILLEGAL BYTE COUNT TO FRONT END DEVICE
DTENI%==13		;FAILURE TO DO INITIALIZE FUNCTION ON FRONT END
			; DEVICE BEFORE USING IT
DTEFB%==14		;FRONT END DEVICE BUSY FOR ANOTHER JOB
DTENF%==15		;NON-EXISTANT FRONT END DEVICE
DTEFE%==16		;FATAL ERROR ON FRONT END DEVICE
DTESE%==17		;ERROR AFTER TRYING TO START PRIMARY PROTOCOL
DTENC%==20		;NO FREE CORE FOR FRONT END DEVICE BUFFERS
DTETE%==21		;TIMER EXPIRED FOR KL ERROR DATA CORE
DTECM%==22		;DTE TO-11 QUEUE ROUTINE COULD NOT SEND
			; A MESSAGE FOR FRONT END DEVICE
DTEIU%==23		;TRIED TO SET LINE TO ILLEGAL USER VALUE
DTEWU%==24		;WRONG LINE USER FOR FUNCTION
DTEEV%==25		;NO EVM TO PERFORM FUNCTION
DTEIP%==26		;ILLEGAL BYTE POINTER
	SUBTTL	MISC. I/O -- DEVOP.

;DEVOP. FUNCTION CODES

.DFLLV==1		;LOAD STANDARD VFU
.DFENV==2		;ENABLE FOR LOADING NON-STANDARD VFU
.DFDVL==3		;DISABLE VFU LOAD
.DFLR2==11		;LOAD TRANSLATION RAM INTO LP20
.DFLV2==12		;LOAD VFU THROUGH LP20
.DFMDC==13		;CLEAR MDA CONTROL BIT
.DFMDS==14		;SET MDA CONTROL BIT

;DEVOP. READ/SET PARAMETERS

.DFSET==1000		;OFFSET FROM READ TO SET FUNCTIONS (E.G.,
			;TO SET PAGE COUNTER USE .DFPCT+.DFSET)
.DFPCT==1000		;PAGE COUNTER
.DFHCW==1002		;Hardware Characteristics Word

;LINEPRINTER CHARACTERISTICS
	DF.LCP==1B0	;LOWER CASE
	DF.PGC==1B1	;PAGE COUNTER
	DF.VFT==7B5	;VFU TYPE
		.DFVTO==0	;PAPER TAPE
		.DFVTD==1	;DAVFU
		.DFVTN==2	;NO VFU
	DF.TYP==7B8	;CHARACTER SET
		.DFC64==0	;64 CHARACTERS
		.DFC95==1	;95 CHARACTERS
		.DFC28==2	;128 CHARACTERS
		.DFVAR==3	;VARIABLE CHARACTER SET
	DF.CLS==7B11	;LPT CLASS
		.DFSUK==0	;UNKNOWN
		.DFSBX==1	;BA10
		.DFSLC==2	;LP100
		.DFS20==3	;LP20
		.DFSA1==4	;LP11 (ANF DN8X)
		.DFSA2==5	;LP20 (ANF DN8X)
	DF.CLU==7B14	;LPT CLASS ("UNIT" TYPE)
		.DFUUK==0	;UNKNOWN
		.DFUFG==1	;LP05/ETC
		.DFULN==2	;LN01/ETC
	DF.CSN==777777	;SIXBIT CHARACTER SET NAME

;CARD READER CHARACTERISTICS
;	DF.CLS==7B11	;DEVICE CLASS
;		.DFSUK==0	;UNKNOWN
;		.DFSBX==1	;BA10
;		.DFS20==3	;CD20
;DEVOP. READ/SET PARAMETERS (CONTINUED)

.DFRES==1003		;READ ERROR STATUS (SEE EXTENDED I/O ERRORS)
.DFRDS==1004		;READ DEVICE STATUS

;DEVICE STATUS BITS TO DEVICE INDEPENDENT (BITS 0-17)
	DF.OFL==1B0	;OFFLINE

;DEVICE DEPENDENT LINEPRINTER (BITS 18-35)
	DF.LLE==1B34	;VFU LOAD ENABLED
	DF.LVE==1B35	;VFU ERROR

.DFFRM==1005		;READ/SET FORMS TYPE NAME (SIXBIT)
.DFDTI==1006		;READ/SET DECTAPE REELID/WRITE COUNT INFO
;DEVOP. ERROR CODES

DFACS%==-1	;AN ADDRESS CHECK OCCURRED
DFIFC%==0	;AN ILLEGAL FUNCTION CODE WAS SPECIFIED
DFPRV%==1	;THE FUNCTION CODE SPECIFIED REQUIRES SPECIAL PRIVILEGES
DFIFD%==2	;FUNCTION IS INVALID FOR SPECIFIED DEVICE
DFNLR%==3	;THE VALUE SPECIFIED IS NOT IN THE LEGAL RANGE
DFNXD%==4	;A NON-EXISTANT DEVICE WAS SPECIFIED
DFNDV%==5	;THERE IS NO DAVFU (LPT ONLY)
DFNIA%==6	;THE SPECIFIED DEVICE HAS NOT BEEN INITIALIZED
DFDOL%==7	;THE SPECIFIED DEVICE IS OFF-LINE
DFCNS%==10	;AN ATTEMPT WAS MADE TO READ A PAGE COUNTER THAT
		; WAS NEVER SET (LPT ONLY)
DFNPC%==11	;THE SPECIFIED DEVICE DOES NOT HAVE A PAGE COUNTER (LPT ONLY)
DFENI%==12	;EXTENDED ERROR RECOVERY HAS NOT BEEN IMPLEMENTED
DFNVC%==13	;A NON-VARIABLE CHARACTER SET WAS SPECIFIED
	SUBTTL	MISC. I/O -- GETLCH

;GETLCH BITS

GL.ITY==1B0	;INVISIBLE TTY (PTY)
GL.CTY==1B1	;SYSTEM CTY
GL.DSP==1B2	;DISPLAY CONSOLE
GL.DSL==1B3	;DATASET DATA LINE
GL.CNE==1B4	;ECHO DISABLED BY COMMAND
GL.HDP==1B5	;HALF-DUPLEX
GL.REM==1B6	;REMOTE TTY
GL.RBS==1B7	;REMOTE BATCH TTY
GL.8BM==1B10	;8-BIT I/O MODE BY PROGRAM
GL.LIN==1B11	;LINE HAS BEEN TYPED
GL.SLV==1B12	;LINE IS SLAVED
GL.LCM==1B13	;LOWER CASE MODE
GL.TAB==1B14	;TABS
GL.LCP==1B15	;LOCAL COPY
GL.PTM==1B16	;PAPER TAPE MODE
GL.NEC==1B17	;NO ECHO BY PROGRAM
	SUBTTL	MISC. I/O -- TRMOP.

;TRMOP. ARGUMENT BLOCK

.TOFNC==0	;FUNCTION CODE
.TOUDX==1	;UNIVERSAL DEVICE INDEX
.TOAR2==2	;THIRD ARGUMENT
.TOAR3==3	;FOURTH ARGUMENT
.TOAR4==4	;FIFTH ARGUMENT
.TOAR5==5	;SIXTH ARGUMENT
.TOAR6==6	;SEVENTH ARGUMENT

;TRMOP. FUNCTIONS

.TOSIP==1	;SKIP IF INPUT PRESENT
.TOSOP==2	;SKIP IF OUTPUT PRESENT
.TOCIB==3	;CLEAR INPUT BUFFER
.TOCOB==4	;CLEAR OUTPUT BUFFER
.TOOUC==5	;OUTPUT CHARACTER
.TOOIC==6	;OUTPUT IMAGE CHARACTER
.TOOUS==7	;OUTPUT STRING
.TOINC==10	;INPUT CHARACTER
.TOIIC==11	;INPUT IMAGE CHARACTER
.TODSE==12	;DATA SET ENABLE
.TODSC==13	;DATA SET CALL
.TODSF==14	;DATA SET OFF
.TORSC==15	;RESCAN
.TOELE==16	;SET ELEMENT (OBSOLETE)
.TOEAB==17	;ENABLE AUTO BAUD DETECT
.TOISC==20	;INPUT CHARACTER, WAIT IN CHARACTER MODE
;TRMOP. FUNCTIONS (CONTINUED)

.TOTYP==21	;TYPE INTO TTY INPUT BUFFER
.TOGMS==22	;GET TTY'S MIC STATUS BITS
	TO.CHK==1B0	;SOME BIT 1-14 IS SET
	TO.CCT==1B1	;CONTROL-C TYPED
	TO.OCS==1B2	;OPERATOR CHARACTER SEEN
	TO.ECS==1B3	;ERROR CHARACTER SEEN
	TO.CPT==1B4	;CONTROL-P TYPED
	TO.CBT==1B5	;CONTROL-B TYPED
	TO.STL==1B6	;SILENCE THIS LINE
	TO.LMM==1B7	;LINE IN MONITOR MODE
	TO.LUM==1B8	;LINE IN USER MODE
	TO.C1O==1B9	;LINE IS IN COLUMN 1 ON OUTPUT
	TO.CAT==1B10	;CONTROL-A TYPED
	TO.RSP==1B11	;ERROR RESPONSE
	TO.RSY==1B12	;RESPONSE CODE SYNC
	TO.LOG==1B13	;MIC IS LOGGING
	TO.LUI==1B14	;LINE'S USER IS INTERESTING FOR A JOBSTS
	TO.AOC==177B21	;ASCII OPERATOR CHARACTER
	TO.AEC==177B28	;ASCII ERROR CHARACTER
	TO.MMJ==177B35	;MIC MASTER JOB NUMBER
.TOSMS==23	;SET TTY'S MIC STATUS BITS
.TOCLR==24	;CLEAR STATUS
.TODSP==25	;DISPLAY ON TTY
.TOGMR==26	;MIC RESPONSE
.TOLOG==27	;MIC LOG
.TODSS==30	;CARRIER PRESENT
.TOSBS==31	;SET BREAK SET - .TOAR2 FIELD WIDTH, .TOAB3-.TOARG BREAK MASK
.TORBS==32	;READ BREAK SET - .TOAR2 FIELD WIDTH, .TOAR3-.TOAR6 BREAK MASK
.TOISO==33	;IMAGE STRING OUTPUT
.TOFLM==34	;FORCE CARRIAGE TO LEFT MARGIN (CRLF ONLY IF NEEDED)
.TOGCS==35	;GET SPECIAL CHARACTER STATUS
.TOSCS==36	;SET SPECIAL CHARACTER STATUS
	TC.MOD==37777B13	;THE MASK OF WHICH FIELDS TO CHANGE (.TOSCS)
	TC.VAL==37777B27	;THE CONDITIONS READ OR SET
	TC.CHR==377B35		;THE CHARACTER TO WHICH THIS APPLIES
	;BITS WHICH CAN BE SELECTED FOR THE CHARACTER:
	TC.CLR==1B31		;CLEAR INPUT BUFFER ON INTERRUPT (CONTROL CHARS ONLY)
	TC.DFR==1B32		;DEFERRED INTERRUPT
	TC.OOB==1B33		;OUT-OF-BAND (PSI ENABLE)
	TC.NSA==1B34		;DISABLE SPECIAL MONITOR ACTION
	TC.BRK==1B35		;LINE BREAK
	;OFFSETS FOR POSITIONING BITS (VIA LSH)
	TC.MDO==^D22		;LSH VALUE FOR TC.MOD
	TC.VLO==^D8		;LSH VALUE FOR TC.VAL
.TOUNR==37	;UNREAD FUNCTION (TAKE PARTIAL BUFFER)
.TOASO==40	;ASCII OUTSTR (JUST LIKE .TOISO EXCEPT NOT IMAGE)
.TODNT==41	;DISCONNECT NETWORK TERMINAL (WILL NOT HANG UP DATASET)
;TRMOP. READ/SET PARAMETERS

.TOSET==1000	;OFFSET FROM GET TO SET

.TOOIP==1000	;OUTPUT IN PROGRESS (READ ONLY)
.TOCOM==1001	;AT COMMAND LEVEL (READ ONLY)
.TOXON==1002	;PAPER TAPE MODE
.TOLCT==1003	;LOWER CASE TRANSLATE TO UPPER
.TOSLV==1004	;SLAVE
.TOTAB==1005	;ACCEPTS TABS
.TOFRM==1006	;ACCEPTS FF AND LF
.TOLCP==1007	;LOCAL COPY (NO ECHO)
.TONFC==1010	;NO FREE CARRIAGE RETURN
.TOHPS==1011	;HORIZONTAL POSITION
.TOWID==1012	;WIDTH
.TOSND==1013	;SEND ALLOWED (NO GAG)
.TOHLF==1014	;HALF DUPLEX (OBSOLETE)
.TORMT==1015	;REMOTE NON-DATA SET (REQUIRES [1,2]/JACCT/POKE PRIVS TO SET)
.TODIS==1016	;DISPLAY CONSOLE
.TOFLC==1017	;FILLER CLASS
.TOTAP==1020	;PAPER TAPE ENABLED
.TOPAG==1021	;PAGE COMMAND GIVEN (OBSOLETE)
.TOXNF==1021	;PROCESS XON/XOFF
.TOSTP==1022	;OUTPUT STOPPED (XOFF OR PAGE LIMIT)
.TOPSZ==1023	;PAGE SIZE (HEIGHT IN LINES)
.TOPCT==1024	;LINE COUNT IN PAGE
.TOBLK==1025	;SUPPRESS BLANK LINES
.TOALT==1026	;CONVERT ALTMODE (175,176) TO ESCAPE
.TOAPL==1027	;APL MODE
.TORSP==1030	;RECEIVE SPEED
.TOTSP==1031	;TRANSMIT SPEED
	.TO005==1	;50 BAUD
	.TO007==2	;75 BAUD
	.TO011==3	;110 BAUD
	.TO013==4	;134.5 BAUD
	.TO015==5	;150 BUAD
	.TO020==6	;200 BAUD
	.TO030==7	;300 BAUD
	.TO060==10	;600 BAUD
	.TO120==11	;1200 BAUD
	.TO180==12	;1800 BAUD
	.TO240==13	;2400 BAUD
	.TO480==14	;4800 BAUD
	.TO960==15	;9600 BAUD
	.TOEXA==16	;EXTERNAL A
	.TOEXB==17	;EXTERNAL B
.TODBK==1032	;HAS DEBREAK (OBSOLETE)
.TO274==1033	;2741 (OBSOLETE)
.TOTDY==1034	;TIDY MODE (OBSOLETE)
.TOACR==1035	;AUTO CRLF
.TORTC==1036	;^R ^T COMPATIBLE MODE (DISABLED)
.TOPBS==1037	;PIM MODE BREAK SET (4 9-BIT BYTES)
;TRMOP. READ/SET PARAMETERS (CONTINUED)

.TODEM==1040	;DEFERRED ECHO MODE
.TOTRM==1041	;TERMINAL TYPE
.TOBCT==1042	;MONITOR COMMANDS PROCESSED,,BREAK CHARACTERS RECEIVED
		;(READ ONLY)
.TOICT==1043	;INPUT CHARACTERS RECEIVED (READ ONLY)
.TOOCT==1044	;OUTPUT (INCLUDES FILL AND ECHO) CHARACTERS TRANSMITTED
		;(READ ONLY)
.TOOSU==1045	;OUTPUT SUPPRESSION (^O)
.TOFCS==1046	;FULL CHARACTER SET
.TOBKA==1047	;[BREAK ON ALL] CHARACTER MODE
;.TOIMI==1050	;TERMINAL IS IN IMAGE INPUT (RESERVED FOR FUTURE)
;.TOIMO==1051	;TERMINAL IS IN IMAGE OUTPUT (RESERVED FOR FUTURE)
.TOTIC==1052	;NUMBER OF CHARACTERS IN MONITOR'S INPUT BUFFER (READ ONLY)
;.TOMIC==1053	;NUMBER OF "MIC" INPUT CHARACTERS (RESERVED FOR FUTURE)
.TOBKC==1054	;NUMBER OF BREAK CHARACTERS IN MONITOR'S INPUT BUFFER
		;(READ ONLY)
.TOECC==1055	;NUMBER OF UNPROCESSED (UNECHOED) CHARS IN MONITOR'S INPUT
		;BUFFER (READ ONLY)
.TOTTC==1056	;TOTAL NUMBER OF CHARS (.TOTIC + .TOECC) IN MONITOR'S INPUT
		;BUFFER (READ ONLY)
.TOTOC==1057	;TOTAL NUMBER OF CHARACTERS IN MONITOR'S OUTPUT BUFFER
		;(READ ONLY)
.TOLNB==1060	;LENGTH OF TERMINAL FORM/PAGE
.TOLNC==1061	;LENGTH COUNTER (NUMBER OF LINES REMAINING)
.TOSSZ==1062	;STOP SIZE (THE "N" OF STOP EVERY N LINES)
.TOSTC==1063	;STOP COUNTER (NUMBER OF LINES REMAINING)
;.TOFFH==1064	;TTY FFHOME (HOME AND ERASE ON <FF>)
;.TOFFF==1065	;TTY FFSIMULATE (<LF>'S TO END OF LENGTH)
;.TOFFS==1066	;TTY FFSTOP (STOP OUTPUT ON <FF>)
.TOSTO==1067	;STOP AFTER N (.TOSTB) LINES OF OUTPUT
.TOSST==1070	;DO NOT RESET STOP COUNTER ON ^S/^Q
.TOSBL==1071	;AUDIBLE BELL/BUZZ/CLICKS/ETC ON AUTO STOP
.TOFSP==1072	;FULL SCNSER PTY BIT (READ ONLY)
.TOOFL==1073	;OFFLINE BIT. IF THIS IS OFF, TTY EXISTS. (READ ONLY)
.TOECH==1074	;ECHO STATUS (0=OFF,1=ON)
.TOAPC==1075	;ASYNCHRONOUS PORT CHARACTERISTIC (READ ONLY)
	.TOUNK==0	;UNKNOWN
	.TOHWD==1	;HARDWIRED
	.TODSD==2	;DATASET LINE
	.TOTSN==3	;RESERVED
	.TOGAN==4	;RESERVED
	.TOADL==5	;AUTODIALER
	.TOMCM==6	;RESERVED
	.TONRT==7	;NRTSER LINE
	.TOLAT==10	;LAT (LOCAL-AREA-TRANSPORT) LINE
	.TOCTM==11	;CTERM LINE
.TOUNP==1076	;UNPAUSE CHARACTER (ACTS LIKE CONTROL-Q)
.TOESC==1077	;ESCAPE CHARACTER (ACTS LIKE ESCAPE ON TYPEIN)
.TOSWI==1100	;TWO-CHARACTER SWITCH SEQUENCE
.TO8BT==1101	;EIGHT-BIT TERMINAL
.TO8BI==1102	;TERMINAL IN 8-BIT I/O MODE
.TOQOT==1103	;TTY QUOTE ENABLED
.TOMXT==1104	;MAXIMUM IDLE TIME BEFORE AUTO-DISCONNECT
.TOADT==1105	;REMAINING TIME BEFORE AUTO-DISCONNECT
.TOCLE==1106	;COMMAND-LEVEL ECHOING ENABLED
.TOEDT==1107	;ENABLE EDIT BUFFER (RESERVED FOR DIGITAL)
.TOTTN==1110	;TERMINAL TYPE NAME (MODEL NAME)
.TOTCN==1111	;TERMINAL CLASS NAME (READ ONLY)
.TOATR==1112	;TERMINAL ATTRIBUTES (BITS)
	TA.8BT==1B0	;8-BIT TERMINAL
	TA.DIS==1B1	;DISPLAY TERMINAL
	TA.OVR==1B2	;OVERPRINTING WORKS ON THIS TERMINAL
	TA.8BA==1B3	;8-BIT ARCHITECTURE (CAN SOMETIMES BE 8-BIT)
	TA.NRC==1B4	;NATIONAL REPLACEMENT CHARACTER SETS SUPPORTED
	TA.ISO==1B5	;8-BIT MEANS ISO/LATIN-1, NOT DEC/MCS
	TA.LID==1B6	;LINE INSERTION & DELETION
	TA.CID==1B7	;CHARACTER INSERTION & DELETION
	TA.SRM==1B8	;SCROLLING REGIONS (DECSTBM) SUPPORTED
	TA.GAT==1B9	;GUARDED AREA TRANSFER SUPPORTED
	TA.SEM==1B10	;SELECTIVE ERASE (DECSEL/DECSED) SUPPORTED
	TA.AVO==1B11	;VT100'S ADVANCED VIDEO OPTION SUPPORTED OR EMULATED
	TA.PPO==1B12	;PRINTER PORT OPTION SUPPORTED
	TA.GPO==1B13	;REGIS SUPPORTED (MAYBE VIA GRAPHICS PROCESSOR OPTION)
	TA.SXL==1B14	;SIXEL GRAPHICS SUPPORTED
	TA.TEK==1B15	;TEKTRONIX 4010/4014 EMULATION
	TA.RCS==1B16	;DYNAMICALLY REDEFINABLE CHARACTER SETS
	TA.UDK==1B17	;USER-DEFINE KEYS
	TA.VFW==1B18	;VARIABLE FORMS WIDTH
	TA.VFL==1B19	;VARIABLE FORMS LENGTH
	TA.V52==1B20	;VT52 EMULATION AVAILABLE
	TA.ESL==1B21	;EXTRA STATUS LINE EXISTS
	TA.JTK==1B22	;KATAKANA CHARACTER SET IS AVAILABLE
	TA.TCS==1B23	;DEC TECHNICAL CHARACTER SET IS AVAILABLE
	TA.TSI==1B24	;TERMINAL STATE INTERROGATION
	TA.BMT==1B25	;BLOCK-MODE TRANSFER
	TA.BTA==1B26	;BLOCK TRANSFER IS ANSI
	TA.HSR==1B27	;HORIZONTAL SCROLLING
	TA.UWN==1B28	;USER WINDOWS
	TA.SSU==1B29	;MULTIPLE SESSIONS
	TA.CLR==1B30	;COLORED TERMINAL SCREEN
	TA.NKB==1B31	;NO KEYBOARD (ASYNCHRONOUS PRINTER SUCH AS LN03)
.TOAT2==1113	;TERMINAL ATTRIBUTES (BYTES)
	T2.LDT==7B2	;LOCATOR DEVICE TYPE
		.T2UNK==0	;UNKNOWN
		.T2MOU==1	;MOUSE
		.T2TAB==2	;TABLET
	T2.ACL==17B6	;ANSI CONFORMANCE LEVEL (ACTUALLY PURE-ANSI LEVEL OF
			; SUPPORT FOR DEC'S VSRM)
	T2.DCL==17B10	;DEC CONFORMANCE LEVEL (VSRM/DEC-STD-070)
.TOAT3==1114	;TERMINAL ATTRIBUTES (CUSTOMER WORD)
	;T3.??? RESERVED TO CUSTOMER DEFINITION FOR THIS FUNCTION
;TRMOP. ERRORS

TOILF%==0	;ILLEGAL (UNIMPLEMENTED) FUNCTION
TOPRC%==1	;PROTECTION CHECK
TORGB%==2	;RANGE BAD
TOADB%==3	;ADDRESS BAD
TOIMP%==4	;LINE NOT A DATA SET LINE
TODIL%==5	;ERROR IN DIALLER
TOTNA%==6	;TERMINAL NOT AVAILABLE
TONBM%==7	;TERMINAL NOT IN BREAK SET MODE
TONIB%==10	;ILLEGAL BYTE SIZE
TONET%==11	;NOT A NETWORK-BASED TERMINAL (ANF, LAT, ETC.)
	SUBTTL	MISC. I/O -- GETSTS AND SETSTS

IO.IMP==1B18	;IMPROPER MODE -- SOFTWARE DETECTECTED ERROR
IO.DER==1B19	;DEVICE ERROR
IO.DTE==1B20	;DATA ERROR
IO.BKT==1B21	;BLOCK TOO LARGE
IO.ERR==17B21	;I/O ERROR BITS
IO.EOF==1B22	;END OF FILE
IO.ACT==1B23	;DEVICE IS ACTIVE
IO.D29==1B29	;DEC029 MODE (CDP ONLY)
IO.SIM==1B29	;SUPER-IMAGE MODE (CDR ONLY)
IO.WHD==1B29	;WRITE DISK PACK HEADERS (DSK ONLY)
IO.SSD==1B28	;SEMI-STANDARD MODE (DTA ONLY)
IO.NSD==1B29	;NON-STANDARD MODE (DTA ONLY)
IO.SVF==1B25	;SUPPRESS VFU/ET AL, E.G., LN01 GRAPHICS (LPT ONLY)
IO.SFF==1B29	;SUPPRESS FORM FEEDS (LPT ONLY)
IO.BOT==1B24	;BEGINNING OF TAPE (MAG TAPE ONLY)
IO.EOT==1B25	;END OF TAPE (MAG TAPE ONLY)
IO.PAR==1B26	;PARITY 1=EVEN 0=ODD (MAG TAPE ONLY)
IO.DEN==3B28	;DENSITY 0-STD 1-200 2-556 3-800 (MAG TAPE ONLY)
IO.NRC==1B29	;READ WITH NO REREAD CHECK (MAG TAPE ONLY)
IO.PTI==1B24	;SUBJOB IN TTY INPUT WAIT (PTY ONLY)
IO.PTO==1B25	;SUBJOB HAS TTY OUTPUT AVAILABLE (PTY ONLY)
IO.PTM==1B26	;SUBJOB IS IN MONITOR MODE (PTY ONLY)
IO.ABS==1B25	;ENABLE USING BREAK MASK (TTY ONLY)
IO.BKA==1B26	;BREAK ON ALL CHARACTERS (TTY ONLY)
IO.TEC==1B27	;TRUTH IN ECHOING MODE (TTY ONLY)
IO.MAI==1B27	;MAINTENANCE MODE (KDP AND DTE DEVICE ONLY)
IO.SUP==1B28	;SUPPRESS ECHOING (TTY ONLY)
IO.FCS==1B29	;FULL CHARACTER SET (TTY ONLY) -- OBSOLETE SYMBOL
IO.LEM==1B29	;LINE EDITOR MODE (TTY ONLY)
IO.SYN==1B30	;SYNCRONOUS MODE I/O
IO.UWC==1B31	;USE USER'S WORD COUNT
IO.MOD==17B35	;DATA MODE

;I/O MODES

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

;CLOSE BITS

CL.DAT==1B29	;DELETE ACCESS TABLE FROM DISK DATA BASE
CL.RST==1B30	;INHIBIT CREATING A NEW FILE (OR SUPERSEDING
		; AN OLD ONE) ON OUTPUT CLOSE
CL.NMB==1B31	;INHIBIT DELETING NAME BLOCK ON A
		; CLOSE WITH ONLY A LOOKUP DONE
CL.ACS==1B32	;INHIBIT UPDATING ACCESS DATE
CL.DLL==1B33	;INHIBIT DEALLOCATION OF ALLOCATED
		; BUT UNWRITTEN BLOCKS
CL.IN==1B34	;INHIBIT CLOSING INPUT
CL.OUT==1B35	;INHIBIT CLOSING OUTPUT

;OPEN BLOCK

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

;OPEN AND PHYSICAL BITS

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

UU.PHS==1B0	;SIGN BIT IN OPEN BLOCK IMPLIES PHYSICAL
		; DEVICE SEARCH
UU.DEL==1B1	;DISABLE ERROR LOGGING
UU.FSP==UU.DEL	;FULL SCNSER CONTROL FOR PTY
UU.DER==1B2	;DISABLE ERROR RETRY
UU.BJP==UU.DER	;BATCH JOB PTYS
UU.DMR==UU.DER	;DISABLE MESSAGE RE-ASSEMBLY
UU.AIO==1B3	;ASYNCHRONOUS I/O
UU.IBC==1B4	;ENABLE INHIBITING OF BUFFER CLEAR
UU.SOE==1B5	;STOP OUTPUT ON ERROR. DISALLOW OUTPUT WITH ANY ERROR BITS SET.
UU.RRC==1B6	;AUTOMATIC REWRITE OF RIB ON CHANGE
UU.LBF==1B7	;USE LARGE BUFFERS (DISK ONLY)
UU.DEC==177B14	;RESERVED FOR DEC
UU.CUS==7B17	;RESERVED FOR CUSTOMER
	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 RENAME BLOCK         !        PTR TO LOOKUP BLOCK         !
;;  !-------------------------------------------------------------------------!
;;  !        LENGTH OF PATH BLOCK        !         PTR TO PATH BLOCK          !
;;  !-------------------------------------------------------------------------!
;;  !           PROJECT NUMBER           !        PROGRAMMER NUMBER           !
;;  !-------------------------------------------------------------------------!
;;  !      LENGTH OF FILESPEC BLOCK      !       PTR TO FILESPEC BLOCK        !
;;  !-------------------------------------------------------------------------!
;;  !   OUTPUT BUFFER STARTING ADDRESS   !   INPUT BUFFER STARTING ADDRESS    !
;;  !-------------------------------------------------------------------------!
;;  !        OUTPUT BUFFER SIZE          !         INPUT BUFFER SIZE          !
;;  !=========================================================================!

;OFFSETS IN ARGUMENT BLOCK
.FOFNC==0	;FUNCTION (AND FLAGS)
	FO.PRV==1B0	;JOB IS JACCT OR [1,2] AND WANT TO USE PRIVS
	FO.ASC==1B1	;ASSIGN AN EXTENDED CHANNEL
	FO.UOC==1B2	;USE ALREADY-OPEN CHANNEL
	FO.CFW==1B3	;FUNCTION CODE IS ACTUALLY ADDRESS OF
			; ADDRESS OF CHANNEL,,FUNCTION CODE
	FO.CHN==777B17	;CHANNEL NUMBER
	FO.FNC==777777B35 ;FUNCTION CODE OR ADDRESS (AS ABOVE)
.FOIOS==1	;I/O STATUS (OPEN MODE)
.FODEV==2	;DEVICE
.FOBRH==3	;BUFFER RING HEADER POINTERS
.FONBF==4	;NUMBER OF BUFFER TO BUILD
.FOLEB==5	;PTR TO RENAME,,LOOKUP/ENTER BLOCK (SEE .RB??? SYMBOLS)
.FOPAT==6	;PTR TO PATH BLOCK (SEE .PT??? SYMBOLS)
.FOPPN==7	;(PRIVILEGED) IN-YOUR-BEHALF PPN
.FOFSP==10	;PTR TO FILESPEC BLOCK (SEE .FOF?? SYMBOLS)
.FOBSA==11	;BUFFER STARTING ADDRESSES
	FO.OSA==777777B17 ;STARTING ADDRESS OF OUTPUT BUFFER RING
	FO.ISA==777777B35 ;STARTING ADDRESS OF INPUT BUFFER RING
.FOBSZ==12	;BUFFER SIZES
	FO.OSZ==777777B17 ;SIZE OF OUTPUT BUFFERS
	FO.ISZ==777777B35 ;SIZE OF INPUT BUFFERS

.FOMAX==13	;LENGTH OF FILOP. BLOCK


; OFFSETS IN FILESPEC BLOCK RETURNED FROM FILOP. UUO
; THE BLOCK WILL ALWAYS BE TERMINATED BY A ZERO WORD AND MUST
; BE ACCOUNTED FOR IN THE WORD COUNT SUPPLIED BY THE USER.
.FOFND==0	;NODE NAME (RESERVED)
.FOFDV==1	;DEVICE
.FOFFN==2	;FILE NAME
.FOFEX==3	;EXTENSION
.FOFPP==4	;PPN
.FOFSF==5	;FIRST SFD
.FOFMX==.FOFSF+<.PTMAX-.PTSFD-1> ;MAXIMUM LENGTH
;FUNCTION CODES
.FORED==1	;READ ONLY
.FOCRE==2	;CREATE (NEW FILE ONLY)
.FOWRT==3	;WRITE (CREATE OR SUPERSEDE)
.FOSAU==4	;SINGLE ACCESS UPDATE
.FOMAU==5	;MULTI-ACCESS UPDATE
.FOAPP==6	;APPEND
.FOCLS==7	;CLOSE (OPTIONAL FLAGS IN .FOIOS, SEE CL.???)
.FOURB==10	;UPDATE RIB
.FOUSI==11	;USETI
.FOUSO==12	;USETO
.FORNM==13	;RENAME
.FODLT==14	;DELETE
.FOPRE==15	;PREALLOCATE
.FOSIO==16	;OPEN FOR SUPER I/O
.FOINP==17	;INPUT
.FOOUT==20	;OUTPUT
.FOSET==21	;SETSTS
.FOGET==22	;GETSTS
.FOREL==23	;RELEASE
.FOWAT==24	;WAIT FOR I/O TO STOP
.FOSEK==25	;SEEK
.FORRC==26	;REWRITE RIB IF CHANGED
.FOGTF==27	;UGETF
.FOMTP==30	;MTAPE
.FOUTP==31	;UTPCLR
.FORAW==32	;RENAME WITH ALLOCATION IN WORDS
.FOFIL==33	;RETURN FILESPEC ASSOCIATED WITH AN OPEN CHANNEL
.FOFXI==34	;INPUT (EXTENDED DUMP-MODE 'BI-WORD' FORMAT)
.FOFXO==35	;OUTPUT (EXTENDED DUMP-MODE 'BI-WORD' FORMAT)
	SUBTTL	MISC. I/O -- BUFFER HEADER AND BUFFER'S CONTROL BLOCK FORMATS

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

.BFADR==0	;ADDRESS OF BUFFER RING
	BF.VBR==1B0	;VIRGIN BUFFER RING
	BF.IBC==1B1	;INHIBIT BUFFER CLEAR
.BFPTR==1	;BYTE POINTER TO DATA
.BFCTR==2	;ITEM BYTE COUNT
.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                          !
;;  /                                                       /
;;  /                                                       /
;;  !=======================================================!

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

	SUBTTL	MISC. I/O -- MVHDR.

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

;CNECT. FUNCTIONS

.CNCCN==1	;CONNECT DEVICE
.CNCDC==2	;CLOSE AND DISCONNECT
.CNCDR==3	;RESET AND DISCONNECT
.CNOFE==4	;RETURN OUTPUT FEASIBILITY
		;LH=0 OR ADR OF CURRENT OUTPUT BUFFER
		;RH=-1 IF LOCAL DEVICE, OR DATA REQUEST COUNT IF NETWORK DEVICE

;CNECT. ERRORS

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

;SENSE. SUB-BLOCK

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

;SENSE. ERRORS

SNSBD%==1	;BAD DEVICE

;ERLST. ERRORS

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

;CLRST. BLOCK

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

;CLRST. ERRORS

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

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



	SUBTTL	MISC. I/O -- DEVSIZ

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



	SUBTTL	MISC. I/O -- MTAID.

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

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

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


.SPPFN==0	;FUNCTION WORD
	.SPSFP==1	;SET SPOOLED FILE PARAMETERS
	.SPSPR==2	;SPOOLED PARAMETER RENAME

.SPPDN==1	;DEVICE NAME OR CHANNEL NUMBER
;
;ADDITIONAL ARGS FOR FUNCTION 1 AND 2
;
.SPPCP==2	;NUMBER OF COPIES
.SPPFM==3	;FORMS NAME
.SPPLM==4	;LIMIT
.SPPSF==5	;SPOOLING FLAGS
	SP.DFR==3B2	;DEFERED/IMMEDIATE FLAG
		.SPDFD==1	;DEFERED
		.SPDFI==2	;IMMEDIATE
	SP.TYP==77	;TYPE OF DEVICE (FUNCTION 2)
			; DEVTYP FLAGS
.SPPDA==6	;DEVICE ATTRIBUTES
	SP.UPC==1B0	;UPPER CASE (LPT)
	SP.LWC==1B1	;LOWER CASE (LPT)
	SP.PHY==1B18	;PHYSICAL UNIT GIVEN IN SP.UNI
	SP.UNI==77B35	;PHYSICAL UNIT NUMBER IF SP.PHY SET
.SPPND==7	;NODE
.SPPAF==10	;AFTER PARAMETER
.SPNM1==11	;SIXBIT USER NAME (WORD 1)
.SPNM2==12	;SIXBIT USER NAME (WORD 2)
.SPMAX==13	;MAXIMUM LENGTH OF BLOCK



; ERROR CODES
SPPAC%==-1	;ADDRESS CHECK
SPPIA%==0	;ILLEGAL LEN FOR ARG LIST
SPPID%==1	;ILLEGAL DEVICE
SPPNA%==2	;DEVICE NOT ASSIGNABLE
SPPNS%==3	;DEVICE NOT SPOOLED
SPPNC%==4	;NO FREE CORE FOR SPB
SPPIF%==5	;ILLEGAL FUNCTION CODE
	SUBTTL	MISC. I/O -- NODE.

;FUNCTION CODES
.NDALN==1	;ASSIGN LOGICAL NAME
.NDRNN==2	;RETURN NODE NUMBER
.NDSSM==3	;SPECIAL STATION CONTROL MESSAGES
.NDRBM==4	;REQUEST BOOTSTRAP MESSAGES
.NDRCI==5	;RETURN CONFIGURATION INFORMATION
.NDOUT==6	; *OBS* DO OUTPUT WITH END OF RECORD CONTROL
.NDIN==7	; *OBS* DO INPUT WITH END OF RECORD NOTIFICATION
.NDTCN==10	;CONNECT TERMINAL TO SYSTEM
.NDTDS==11	;DISCONNECT TERMINAL FROM SYSTEM
.NDLND==12	;LIST KNOWN NODES
.NDNDB==13	;RETURN NDB FIELDS
	ND.NNM==1	;NODE NUMBER
	ND.SNM==2	;NODE NAME
	ND.SID==3	;SOFTWARE ID IN "ASCIZ"
	ND.DAT==4	;SOFTWARE DATE IN "ASCIZ"
	ND.LMA==5	;LAST NCL MESSAGE ASSIGNED
	ND.LMS==6	;LAST NCL MESSAGE SENT
	ND.LAR==7	;LAST NCL ACK RECEIVED
	ND.LAP==10	;LAST NCL ACK PROCESSED
	ND.LMR==11	;LAST NCL MESSAGE RECEIVED
	ND.LMP==12	;LAST NCL MESSAGE PROCESSED
	ND.LAS==13	;LAST NCL ACK SENT
	ND.MOM==14	;MAXIMUM OUTSTANDING MESSAGE COUNTER
	ND.TOP==15	;TOPOLOGY TABLE
	ND.CNF==16	;CONFIGURATION TABLE
	ND.CTJ==17	;STATION CONTROL JOB NUMBER
	ND.OPR==20	;OPR TTY NUMBER
	ND.NVR==21	;NCL VERSION NUMBER
.NDGNF==14	;GREET NODE FUNCTION

;ERROR CODES

NDIAL%==1	;ILLEGAL ARGUMENT LIST
NDINN%==2	;ILLEGAL NODE NAME/NUMBER
NDPRV%==3	;CALLER NOT PRIVILEGED
NDNNA%==4	;NODE NOT AVAILABLE
NDNLC%==5	;JOB NOT LOCKED IN CORE
NDTOE%==6	;TIME OUT ERROR
NDRNZ%==7	;RESERVED WORD NON-ZERO
NDNND%==10	;IO CHANNEL NOT OPEN TO OR NOT NETWORK DEVICE
NDIOE%==11	;IO ERROR OCCURRED, LH IS GETSTS INFO
NDNFC%==12	;NO FREE CORE
NDIAJ%==13	;IN USE BY ANOTHER JOB
NDNMA%==14	;NO MESSAGE AVAILABLE
NDTNA%==15	;TERMINAL NOT AVAILABLE
NDNLT%==16	;NOT A LEGAL TERMINAL
NDISF%==17	;ILLEGAL SUB FUNCTION
NDRBS%==20	;RECEIVE BUFFER TOO SMALL
NDNUG%==21	;NO UNGREETED NODES
NDILN%==22	;ILLEGAL LINE NUMBER IN STATION-CONTROL MESSAGE
NDADC%==23	;ADDRESS CHECK READING/WRITING ARGUMENTS
	SUBTTL	MISC. I/O -- TSK.

;CALL IS
;	MOVE	AC,[XWD LENGTH,ADDR]
;	TSK.	AC,
;	  ERROR
;	SUCCESS
;
;ADDR:	EXP FUNCTION
;	EXP CHANNEL-NUMBER
;	ARG #1
;	.
;	.
;	ARG #N

;ARGUMENT BLOCK OFFSETS

.TKAFN==0	;FUNCTION CODE
.TKACH==1	;CHANNEL NUMBER
.TKAA1==2	;FIRST ARGUMENT
.TKAA2==3	;SECOND ARGUMENT
.TKAA3==4	;THIRD ARGUMENT

;FUNCTION CODES

.TKFRS==1	;RETURN LINK STATUS IN ARG #1.
.TKFEP==2	;ENTER PASSIVE STATE.  ARG #1 HAS LOCAL NPD, #2 THE REMOTE NPD.
.TKFEA==3	;ENTER ACTIVE STATE.  ARG #1 HAS LOCAL NPD, #2 THE REMOTE NPD.
.TKFEI==4	;ENTER IDLE STATE.
.TKFWT==5	;WAIT FOR CONNECT CONFIRM/REJECT
.TKFOT==6	;OUTPUT. ARG #1 = DAP MESSAGE TYPE
.TKFIN==7	;INPUT. ARG #1 = DAP MESSAGE TYPE
.TKFRX==10	;RETURN LINK STATUS, AND RECORD/MESSAGE LENGTH
;DAP MESSAGE TYPES

.TKTDT==1	;DATA MESSAGE (WITHOUT END OF RECORD)
.TKTDR==2	;DATA MESSAGE (WITH END OF RECORD)

;TSK. STATES (RETURNED BY .TKFRS)

.TKSID==0	;IDLE.
.TKSCI==1	;WAITING FOR A CONNECT INITIATE
.TKSCC==2	;WAITING FOR A CONNECT CONFIRM
.TKSOK==3	;LINK IS CONNECTED
.TKSDC==4	;WAITING FOR A DISCONNECT CONFIRM

;DISCONNECT CODES

.TKDOK==0	;NORMAL DISCONNECT
.TKDOT==1	;OBJECT TYPE IS NOT AVAILABLE
.TKDXN==2	;TOO MANY CONNECTS TO NODE
.TKDXP==3	;TOO MANY CONNECTS TO PROCESS
.TKDNP==4	;ATTEMPT TO CONNECT TO A NON-EXISTANT PROCESS
.TKDRC==10	;RE-CONNECT TO ANOTHER NODE (USED BY SET HOST)

;TSK NPD (NETWORK PROCESS DESCRIPTOR) OFFSETS

.TKNND==0	;NODE NUMBER (-1 IMPLIES ANY NODE)
.TKNLN==1	;LENGTH OF ASCII PROCESS NAME THAT FOLLOWS
  .TKMNL==^D100	;MAXIMUM LENGTH OF THE NAME STRING
.TKNPN==2	;FIRST WORD OF THE ASCII PROCESS NAME

;TSK. ERROR CODES

TKTNL%==1	;TSKSER NOT LOADED (TASK TO TASK NOT SUPPORTED)
TKATS%==2	;ARGUMENT LIST WAS TOO SHORT
TKUNP%==3	;USER IS NOT PRIVILEGED TO PERFORM THIS FUNCTION
TKILF%==4	;ILLEGAL FUNCTION
TKILC%==5	;ILLEGAL CHANNEL (NOT A TSK DEVICE, OR NOT OPEN)
TKILN%==6	;ILLEGAL NPD
TKNTS%==7	;NPD TOO SHORT
TKILS%==10	;FUNCTION IS ILLEGAL IN THIS STATE
TKNFC%==11	;NOT ENOUGH MONITOR FREE-CORE TO PERFORM THIS FUNCTION
TKNFL%==12	;NO FREE LINKS.  (NETLAT IS FULL)
TKNXN%==13	;ATTEMPT TO CONNECT TO A NON-EXISTANT NODE
TKUDW%==14	;IN OR OUT UUO (.TKFOT OR .TKFIN) DIDN'T SKIP
	SUBTTL	MISC. I/O -- KDP.

;CALL IS
;	MOVE	AC,[XWD LENGTH,ADDR]
;	KDP.	AC,
;	  ERROR
;	SUCCESS
;
;ADDR:	EXP	FCN
;	ARG #1
;	.
;	.
;	ARG #N

;FUNCTION CODES
.KDPKN==1	;RETURN IN ARG #1 THE COUNT OF KMC-11S ON THE SYSTEM.
.KDPDN==2	;RETURN IN ARG #2 THE COUNT OF DUP-11S ON KMC IN ARG #1
.KDPSS==3	;RETURN IN ARG #2 THE STATUS OF KMC SPECIFIED BY ARG #1
.KDPHA==4	;HALT THE KMC-11 SPECIFIED BY ARG #1
.KDPMC==5	;MASTER CLEAR THE KMC SPECIFIED BY ARG #1
.KDPST==6	;START THE KMC SPECIFIED BY ARG #1
.KDPRE==7	;READ CRAM LOC. ARG #1 = KMC, #2 = ADDR, #3 GETS VALUE
.KDPWR==10	;WRITE CRAM LOC. ARG #1 = KMC, #2 = ADDR, #3 HAS VALUE

.KDLRS==101	;READ LINE STATUS. ARG #1 = KMC, #2 = DUP, #3 - N GET STATUS
.KDLHA==102	;STOP DDCMP ON A LINE.  ARG #1 = KMC, #2 = DUP
.KDLST==103	;START DDCMP ON A LINE.  ARG #1 = KMC, #2 = DUP
.KDLSU==104	;SET A LINE'S USER. ARG #1 = KMC, #2 = DUP, #3 = SIXBIT /USER/
.KDLRU==105	;READ A LINE'S USER. ARG #1 = KMC, #2 = DUP, #3 - RETURNED

;ERROR CODES
KDILF%==1	;ILLEGAL FUNCTION CODE
KDILK%==2	;ILLEGAL KMC-11 NUMBER
KDALS%==3	;ARGUMENT LIST TOO SHORT
KDIWR%==4	;FUNCTION IS ILLEGAL WHEN KMC-11 IS RUNNING
KDICA%==5	;ILLEGAL CRAM ADDRESS (.KDPRE OR .KDPWR)
KDILL%==6	;ILLEGAL LINE (DUP-11) NUMBER.
KDKNR%==7	;FUNCTION IS ILLEGAL WHEN KMC-11 IS NOT RUNNING
KDLNS%==10	;DDCMP WAS NOT STARTED ON THE LINE
KDLAS%==11	;DDCMP WAS ALREADY STARTED ON THE LINE
KDUNP%==13	;USER NOT PRIVILEGED TO PERFORM THIS FUNCTION
	SUBTTL	MISC. I/O -- GTNTN.,GTXTN.

;GTNTN. ERRORS

NTNSD%==0	;NO SUCH DEVICE
NTNAT%==1	;NOT A TTY
NTTNC%==2	;TTY NOT CONNECTED

;GTXTN. ERRORS

XTUNT%==0	;UNKNOWN NETWORK TTY
XTNLT%==1	;NOT LOCAL TTY



	SUBTTL	MISC. I/O -- DIAG.

;FUNCTION CODES

.DIASU==1	;ASSIGN SINGLE UNIT ON CHANNEL/CONTROLLER
.DIAAU==2	;ASSIGN ALL UNITS ON CHANNEL/CONTROLLER
.DIRAU==3	;RELEASE ALL UNITS ON CHANNEL/CONTROLLER
.DISCP==4	;SPECIFY CHANNEL PROGRAM
.DIRCP==5	;RELEASE CHANNEL PROGRAM
.DIGCS==6	;GET CHANNEL STATUS
.DIAKU==7	;RETURN CONTROLLER AND UNIT FOR DEVICE
.DIACS==10	;FORCE CPU STATUS BLOCK READ
.DIADS==11	;FORCE DEVICE STATUS BLOCK READ
.DISCR==12	;SPECIFY CHANNEL PROGRAM FOR READ REVERSE (RH20 ONLY)
.DIANL==13	;ENABLE/DISABLE AUTO RELOAD OF DX20 MICROCODE (OBSOLETE)
.DIGUI==14	;GET USER I/O
.DIASM==15	;SEIZE MAGTAPE CONTROLLER(S) (OBSOLETE)
.DIARM==16	;RELEASE MAGTAPE CONTROLLER(S) (OBSOLETE)
.DIELD==17	;ENABLE MICROCODE LOADING
.DIDLD==20	;DISABLE MICROCODE LOADING
.DILOD==21	;LOAD MICROCODE
.DIISM==22	;SET IPA CHANNEL MAINTENANCE MODE
.DIICM==23	;CLEAR IPA CHANNEL MAINTENANCE MODE
.DISBD==24	;EXECUTE S-BUS DIAGNOSTIC FUNCTION
.DIDSN==25	;READ DEVICE SERIAL NUMBER
.DIRUR==26	;READ KS10 UNIBUS REGISTER
.DIADB==27	;ALLOCATE BUFFER FOR DUMPING IPA20 DRAM
.DIOKI==30	;OBTAIN KONTROLLER INFORMATION
	;START OF FIRST WORD RETURNED
	DI.DTY==77B35	;DEVICE TYPE
	DI.KTY==77B29	;KONTROLLER TYPE
	DI.KUX==77B23	;MAXIMUM UNITS ON THIS KONTROLLER
	DI.CKX==77B17	;MAXIMUM KONTROLLERS ON THIS CPU (RESERVED)
	DI.CAM==77B11	;CPU ACCESSABILITY MASK
	DI.MUK==1B0	;MULTI-UNIT KONTROLLER (NOT UNIQUE ON CHANNEL)
	DI.CLM==1B1	;CAN LOAD MICROCODE
	;B2-B5		;RESERVED
	;START OF SECOND WORD RETURNED
	DI.DVC==777B35	;I/O DEVICE CODE (KL) OR INTERRUPT VECTOR (KS)
	DI.IVI==777B35	;ANOTHER NAME FOR ABOVE
	DI.CUN==7B26	;CHANNEL UNIT NUMBER (IF DI.MUK IS ON)
	;START OF THIRD WORD RETURNED
	DI.UBA==7,,-1	;UNIBUS ADDRESS (KS ONLY)
.DIOUI==31	;OBTAIN UNIT INFORMATION
.DILKU==32	;LIST KONTROLLER'S UNITS
.DISDS==33	;SET DEVICE STATUS
	.DISSI==0	;SET IGNORE
	.DISCI==1	;CLEAR IGNORE
	.DISSD==2	;SET DETACHED
	.DISSA==3	;SET ATTACHED
.DIDVR==34	;READ DEVICE REGISTERS
.DIGTM==100	;GET MOS MEMORY
.DIGVM==101	;GIVE MOS MEMORY
.DIRRS==105	;RESET REMOTE CI NODE
.DISRS==106	;START REMOTE CI NODE
.DIACC==107	;MANIPULATE CI PORT COUNTERS
	.DICGT==0	;GET COUNTERS
	.DICRL==1	;RELEASE COUNTERS
	.DICPT==2	;POINT COUNTERS
	.DICRD==3	;READ COUNTERS
.DIWCM==112	;WRITE CI MAINTENANCE DATA
.DIRCM==113	;READ CI MAINTENANCE DATA

;ERROR CODES

DIANP%==1	;NOT PRIVILEGED
DIAIA%==2	;ILLEGAL NUMBER OF ARGS
DIAIC%==3	;ILLEGAL CONTROLLER
DIAIU%==4	;ILLEGAL UNIT
DIAAA%==5	;SOME UNITS ALREADY ASSIGNED
DIADM%==6	;UNIT NOT IN DIAG MODE
DIAAJ%==7	;UNIT ASSIGNED TO ANOTHER JOB
DIAFC%==10	;NO FREE CORE
DIAAU%==11	;NO ASSIGNED UNITS
DIACP%==12	;IOWD CROSSES PAGE
DIAIF%==13	;ILLEGAL FUNCTION
DIAVC%==14	;JOB CANNOT BE VIRTUAL
DIANC%==15	;NO SUCH CPU
DIANR%==16	;CPU NOT RUNNING
DIABA%==17	;BAD ARGUMENT LIST
DIACI%==20	;NO CI PORT ON SPECIFIED CPU
DIATO%==21	;READ PORT COUNTERS FUNCTION TIMED OUT
DIANK%==22	;NO NI PORT ON SPECIFIED CPU
DIARF%==23	;MICROCODE RELOAD FAILED
DIANM%==24	;NO MICROCODE AVAILABLE
DIAPN%==25	;CI/NI PORT NOT RUNNING
DIANU%==26	;NON-EXISTANT UNIBUS ADDRESS
DIAAF%==27	;ATTACH FAILED
DIADF%==30	;DETACH FAILED
	SUBTTL	DECNET UUOS -- NSP.

;Argument block offsets

.NSAFN==0		;function code
	NS.AFL==777000,,0 ;flags in left half
	NS.AFN==000777,,0 ;function code in left half
	NS.ALN==0,,-1	;block length in right half
.NSACH==1		;channel id
	NS.AST==-1,,0	;channel status returned in left half
	NS.ACH==0,,-1	;channel number in right half
.NSAA1==2		;first argument
.NSAA2==3		;second
.NSAA3==4		;third

.NSAMX==4		;max offset in .NSAxx block

;DECnet-10 Functions.

.NSFEA==1		;Enter active state
.NSFEP==2		;Enter passive state
.NSFRI==3		;Read connect information
.NSFAC==4		;Accept the connect
.NSFRJ==5		;Reject the connect
.NSFRC==6		;Read connect confirm information
.NSFSD==7		;Synchronous disconnect
.NSFAB==10		;Abort
.NSFRD==11		;Read disconnect data
.NSFRL==12		;Release the channel
.NSFRS==13		;Read the channel status
.NSFIS==14		;Send interrupt data
.NSFIR==15		;Receive interrupt data
.NSFDS==16		;Send normal data
.NSFDR==17		;Receive normal data
.NSFSQ==20		;Set quotas
.NSFRQ==21		;Read quotas
.NSFJS==22		;Set job quotas
.NSFJR==23		;Read job quotas
.NSFPI==24		;Set PSI reasons

.NSFMX==24		;Maximum
;String block offsets

.NSASL==0		;String block length (byte count)
	NS.ASC==-1,,0	;current byte count in left half
	NS.ASL==0,,-1	;block length (words) in right half
.NSAST==1		;Start of the string

;Process descriptor blocks

.NSDFL==0		;block length (in right half)
.NSDFM==1		;Format type (either 0, 1, or 2)
.NSDOB==2		;Object type
.NSDPP==3		;XWD project,programmer
.NSDPN==4		;S-block pointer to task name
.NSDSZ==5		;Size of a PD-block

.NSDMX==5		;max offset in .NSDxx block

;Connect blocks

.NSCNL==0		;block length in right half
.NSCND==1		;S-pointer to node name
.NSCSD==2		;PD-pointer to source process
.NSCDD==3		;PD-pointer to destination
.NSCUS==4		;PD-pointer to user id
.NSCPW==5		;S-pointer to password
.NSCAC==6		;S-pointer to account
.NSCUD==7		;S-pointer to user data
.NSCSZ==10		;Size of a C-block

.NSCMX==10		;max offset in .NSCxx block
;DECnet-10 State variable fields.

NS.WAI==1B0		;Wait for completion of request
NS.EOM==1B1		;User just read the end of a message

NS.IDA==1B0		;Interrupt data available.
NS.IDR==1B1		;Interrupt data may be sent.
NS.NDA==1B2		;Normal data available.
NS.NDR==1B3		;Normal data may be sent.
NS.STA==77B17		;The connection state.
	.NSSCW==1		;Connect Wait
	.NSSCR==2		;Connect Received
	.NSSCS==3		;Connect Sent
	.NSSRJ==4		;Remote node rejected Connect Init
	.NSSRN==5		;Link is Up and Running
	.NSSDR==6		;Disconnect Received
	.NSSDS==7		;Disconnect Sent
	.NSSDC==10		;Disconnect Confirmed
	.NSSCF==11		;No Confidence
	.NSSLK==12		;No Link
	.NSSCM==13		;No Communication
	.NSSNR==14		;No Resources

	.NSSMX==14		;Maximum
	SUBTTL	DECNET UUOS -- DECnet Architectural Object types

; These are the symbols for the Session Control object types known to DECnet.
; They are used in the .NSDOB field of the Process descriptor block.
; They are compatible with all other DECnet implementations and should be
; changed and supplemented along with all other DECnet's.

	RADIX	^D10

.OBGEN==0		;General task, user process
.OBFL1==1		;File access (DAP Version 1)
.OBURD==2		;Unit Record Service (URDs)
.OBATS==3		;Application Terminal Services (ATS)
.OBCTS==4		;Command Terminal Service (CTS)
.OBMC1==5		;RSX-11M Task Control-version 1
.OBOSI==6		;Operator Services Interface
.OBNRM==7		;Node Resource Manager
.OBI3B==8		;IBM 3270-BSC Gateway
.OBI2B==9		;IBM 2780-BSC Gateway
.OBI3S==10		;IBM 3790-SDLC Gateway
.OBTPS==11		;TPS Application
.OBRTD==12		;RT-11 DIBOL Application
.OBRTH==13		;Tops-10/TOPS-20 Terminal Handler
.OBTRS==14		;Tops-10/TOPS-20 Remote Spooler
.OBMC2==15		;RSX-11M Task Control-Version 2
.OBTLK==16		;TLK Utility
.OBFAL==17		;File Access (DAP Version 4 and later)
.OBRTL==18		;RSX-11S Remote Task Loader
.OBNIC==19		;NICE Process
.OBEMT==20		;RSTS/E Media Transfer Program (NETCPY)
.OBEHT==21		;RSTS/E Homogeneous Network Command Terminal Handler
.OBMLS==22		;Mail Listener (DECnet-based electronic mail system)
.OBHTH==23		;Host Terminal Handler
.OBCTH==24		;Concentrator Terminal Handler
.OBLBM==25		;Loopback Mirror
.OBEVR==26		;Event Receiver
.OBPMU==27		;VAX/VMS Personal Message Utility
.OBFTS==28		;FTS
.OBBEL==29		;PHONE Utility
.OBDDM==30		;Distributed Data Management Facility (DDMF)
.OB25S==31		;X.25 Gateway Server
.OBUTP==32		;UETP
.OBVMU==33		;VAX/VMS MAIL Utility
.OBX29==34		;X.29 Terminal Server
.OBCAL==35		;Calendar system
.OB25A==36		;X.25 Gateway access
.OBSNA==37		;SNA Gateway access
.OBRJE==38		;SNA RJE Utility
.OBCTM==42		;CTERM Host Service
.OBDQS==66		;Distributed Queuing Service
.OBPST==123		;PSTHRU
.OBMSS==201		;MS server

	RADIX	8
	SUBTTL	DECNET UUOS -- Error codes for NSP.

NSABE%==1		;ARGUMENT BLOCK FORMAT ERROR
NSALF%==2		;ALLOCATION FAILURE
NSBCN%==3		;BAD CHANNEL NUMBER
NSBFT%==4		;BAD FORMAT TYPE IN PROCESS BLOCK
NSCFE%==5		;CONNECT BLOCK FORMAT ERROR
NSIDL%==6		;INTERRUPT DATA TOO LONG
NSIFM%==7		;ILLEGAL FLOW CONTROL MODE
NSILF%==10		;ILLEGAL FUNCTION
NSJQX%==11		;JOB QUOTA EXHAUSTED
NSLQX%==12		;LINK QUOTA EXHAUSTED
NSNCD%==13		;NO CONNECT DATA TO READ
NSPIO%==14		;PERCENTAGE INPUT OUT OF BOUNDS
NSPRV%==15		;NO PRIVILEGES TO PERFORM FUNCTION
NSSTB%==16		;SEGMENT SIZE TOO BIG
NSUKN%==17		;UNKNOWN NODE NAME
NSUXS%==20		;UNEXPECTED STATE: UNSPECIFIED
NSWNA%==21		;WRONG NUMBER OF ARGUMENTS
NSWRS%==22		;FUNCTION CALLED IN WRONG STATE

NSCBL%==23		;CONNECT BLOCK LENGTH ERROR
NSPBL%==24		;PROCESS BLOCK LENGTH ERROR
NSSBL%==25		;STRING BLOCK LENGTH ERROR
NSUDS%==26		;UNEXPECTED STATE: DISCONNECT SENT
NSUDC%==27		;UNEXPECTED STATE: DISCONNECT CONFIRMED
NSUCF%==30		;UNEXPECTED STATE: NO CONFIDENCE
NSULK%==31		;UNEXPECTED STATE: NO LINK
NSUCM%==32		;UNEXPECTED STATE: NO COMMUNICATION
NSUNR%==33		;UNEXPECTED STATE: NO RESOURCES

;Error codes which correspond to DECnet disconnect codes.
;We do not intend any mapping other than table-lookup between
;the error code numbers and our error codes.

NSRBO%==34		;REJECTED BY OBJECT
NSDBO%==35		;DISCONNECTED BY OBJECT (WHEN RUNNING)
NSRES%==36		;NO RESOURCES
NSUNN%==37		;UNRECOGNIZED NODE NAME
NSRNS%==40		;REMOTE NODE SHUT DOWN
NSURO%==41		;UNRECOGNIZED OBJECT
NSIOF%==42		;INVALID OBJECT NAME FORMAT
NSOTB%==43		;OBJECT TOO BUSY
NSABM%==44		;ABORT BY MANAGEMENT
NSABO%==45		;ABORT BY OBJECT
NSINF%==46		;INVALID NODE NAME FORMAT
NSLNS%==47		;LOCAL NODE SHUT DOWN
NSACR%==50		;ACCESS CONTROL REJECTION
NSNRO%==51		;NO RESPONSE FROM OBJECT
NSNUR%==52		;NODE UNREACHABLE
NSNLK%==53		;NO LINK
NSDSC%==54		;DISCONNECT COMPLETE
NSIMG%==55		;IMAGE FIELD TOO LONG
NSREJ%==56		;UNSPECIFIED REJECT REASON

NSBCF%==57		;BAD COMBO OF NS.EOM & NS.WAI FLAGS
NSADE%==60		;ADDRESS ERROR

;DECNET EVENT PSI REASON CODES

DR.EVT==1B35		;A DECNET EVENT IS WAITING FOR NETWORK MGMT
	SUBTTL	DECNET UUOS -- NTMAN. UUO

;NTMAN. UUO arguments.

;Arg block

.NTCNT==0		;COUNT WORDS IN THIS ARGUMENT BLOCK
.NTENT==1		;TYPE OF ENTITY TO PERFORM FUNCTION ON
 	.NTNOD==0	;NODE
 	.NTLIN==1	;LINE
 	.NTLOG==2	;RESERVED.
 	.NTCKT==3	;CIRCUIT
.NTEID==2		;BYTE POINTER TO ENTITY ID
.NTFNC==3		;FUNCTION TO BE PERFORMED
 	.NTMAP==-2	;MAP NODE NUMBER/NODE NAME
 	.NTREX==-1	;RETURN THE LOCAL NODE ID
 	.NTSET==0	;SET A PARAMETER
 	.NTCLR==1	;CLEAR A PARAMETER
 	.NTZRO==2	;ZERO ALL COUNTERS
 	.NTSHO==3	;SHOW SELECTED ITEMS
 	.NTSZC==4	;SHOW AND ZERO ALL COUNTERS
 	.NTRET==5	;RETURN LIST OF ITEMS
 	.NTEVQ==6	;REMOVE AN ITEM FROM THE EVENT QUEUE
.NTSEL==4		;SELECTION CRITERIA FOR FUNCTION
 	.NTLOP==-3	;LOOP
 	.NTACT==-2	;ACTIVE ITEMS
 	.NTKNO==-1	;KNOWN ITEMS		;(FOR .NTRET)
 	.NTSUM==0	;SUMMARY		;(FOR .NTSHO)
 	.NTSTA==1	;STATUS
 	.NTCHA==2	;CHARACTERISTICS
 	.NTCOU==3	;COUNTERS
 	.NTEVT==4	;EVENTS (NOT USED)
.NTQUA==5		;QUALIFIER (NOT USED)
.NTBPT==6		;BYTE POINTER TO DATA STRING
.NTBYT==7		;BYTE COUNT FOR DATA STRING
.NTERR==10		;RETURN CODE, OR ERROR CODE
.NTMAX==<.NTLST==11>	;QUANTITY TO PUT IN .NTCNT
;The error code is returned in the argument block +.NTERR, as well
;  as being returned in the AC. Exceptions: NEADC% (address check)
;  is only returned in the AC, and NESUC% (Good return) is returned
;  only in block +.NTERR

;**** NOTE WELL **** In RADIX 10 because the DECnet architecture group
;does not believe in octal numbers. (Just as well - We might have gotten
;hex numbers instead).

	RADIX 10

NESUC%==1		;SUCCESS
NEUFO%==-1		;UNRECOGNIZED FUNCTION OR OPTION
NEIMF%==-2		;INVALID MESSAGE FORMAT
NEPRV%==-3		;PRIVILEGE VIOLATION.
NEMPE%==-5		;MANAGEMENT PROGRAM ERROR
NEUPT%==-6		;UNRECOGNIZED PARAMETER TYPE
NEURC%==-8		;UNRECOGNIZED COMPONENT
NEINI%==-9		;INVALID IDENTIFICATION
NELCE%==-10		;LINE COMMUNICATION ERROR
NECWS%==-11		;COMPONENT IN WRONG STATE
NERES%==-15		;RESOURCE ERROR
NEIPV%==-16		;INVALID PARAMETER VALUE
NENRM%==-20		;NO ROOM (OR SLOT ALREADY TAKEN)
NEPNA%==-22		;PARAMETER NOT APPLICABLE
NEPVL%==-23		;PARAMETER VALUE TOO LONG
NEOPF%==-25		;OPERATION FAILURE
NEFNS%==-26		;FUNCTION NOT SUPPORTED
NEIPG%==-27		;INVALID PARAMETER GROUPING
NEPAM%==-29		;PARAMETER MISSING
NEADC%==-47		;ADDRESS CHECK

	RADIX 8
;**** END NOTE WELL ****
	SUBTTL	DECNET UUOS -- DNET.

;WORD 0 OF ALL DNET. FUNCTIONS IS IDENTICAL. IT CONTAINS THE FUNCTION CODE,
;FLAGS AND LENGTH OF THE ARGUMENT BLOCK. SINCE IT IS COMMON TO ALL FUNCTIONS,
;WE DESCRIBE THIS WORD FIRST:

.DNFFL==0		;FLAGS FUNCTION AND LENGTH
	DN.FLA==77B5		;FLAGS (LIST BELOW IS BITS)
		DN.FLS==1B0	; FLAG - STEP
		DN.FLK==1B1	; FLAG - KNOWN.
		DN.FLR==1B2	; FLAG - ACTIVE (REACHABLE).
		DN.FLE==1B3	; FLAG - EXECUTOR.
	DN.XXX==77B11		;RESERVED
	DN.FNC==77B17		;FUNCTION CODE (LIST BELOW IS VALUES)
	DN.ARG==777777B35	;LENGTH OF ARGUMENT BLOCK

;EACH FUNCTION HAS A DIFFERENT ARGUMENT LIST AND DIFFERENT SET OF FLAGS
;WHICH MAY BE USED WITH IT. THE VALID FLAGS ARE LISTED BETWEEN BRACKETS []
;ON THE COMMENT FOR THE FIRST WORD OF THE ARGUMENT BLOCK.

.DNLNN==1			;LIST NODES
;	.DNFFL==0		;FLAGS, FUNCTION, LENGTH. [K,R,E]
	.DNCNT==1		;COUNT OF NODES
	.DNNMS==2		;START OF NAMES RETURNED
				;MAX 256 SIXBIT NODE NAMES RETURNED
				;(MAY EXPAND WITH FUTURE RELEASE OF DECNET)
	.DNLLN==^D258		;MAXIMUM LENGTH FOR ARGUMENT BLOCK

.DNNDI==2			;RETURN NODE INFO
;	.DNFFL==0		;FLAGS, FUNCTION, LENGTH [S,K,R,E]
	.DNNAM==1		;NODE NAME (SIXBIT)
	.DNRTR==2		;ROUTER INFO
		DN.RCH==1B0	;NODE IS REACHABLE (ON IF WORD IS VALID)
		DN.HOP==777B17	;HOPS AWAY
		DN.CST==777777B35  ;COST TO NODE
	.DNLLI==3		;LLINKS INFO
		DN.VLD==1B0	;ON IF THIS WORD HAS VALID INFO.
		DN.LNK==377777B17  ;ACTIVE LINKS TO NODE
		DN.DLY==777777B35  ;MS. DELAY TO NODE
	.DNADR==4		;NODE ADDRESS
	.DNCKT==5		;CIRCUIT NAME (OUTGOING TO NODE)
	 			;MAX 4 WORDS - 16 CHARACTERS ASCIZ STRING
	.DNNLN==11		;MAXIMUM LENGTH FOR ARGUMENT BLOCK
;DNET. UUO (CONTINUED)

.DNSLS==3			;SHOW LINK STATUS
;	.DNFFL==0		;FLAGS, FUNCTION, LENGTH [S,J]
	.DNJCN==1		;JOB/CHANNEL LINK IDENTIFIER
		DN.JOB==777777B17  ;JOB NUMBER
		DN.CHN==777777B35  ;CHANNEL NUMBER
	.DNNOD==2		;REMOTE NODE NAME (SIXBIT)
	.DNOBJ==3		;OBJECT TYPES
		DN.DOB==777777B17  ;DESTINATION OBJECT TYPE
		DN.SOB==777777B35  ;SOURCE OBJECT TYPE
	.DNSTA==4		;STATUS WORD
		DN.LSW==777777B17  ;LINK STATUS FIELD, BINARY BITS (SEE NSP.)
		DN.STA==777777B35  ;SIXBIT REPRESENTATION OF STATUS
	.DNQUO==5		;QUOTA WORD
		DN.IQT==777777B17  ;INPUT QUOTA
		DN.OQT==777777B35  ;OUTPUT QUOTA
	.DNSEG==6		;SEGMENT SIZE
	.DNFLO==7		;FLOW CONTROL OPTION
		DN.XMF==777777B17  ;TRANSMIT FLOW CONTROL OPTION
		DN.RCF==777777B35  ;RECEIVE FLOW CONTROL OPTION
	.DNMSG==10		;MESSAGE COUNT WORD
		DN.MRC==777777B17  ;MESSAGES RECEIVED
		DN.MXM==777777B35  ;MESSAGES TRANSMITTED
	.DNMPR==11		;MONITOR PROCESS WORD, NEG JOB ONLY
				; (USUALLY NRTSER TTY NUMBER FOR CHANNEL)
	.DNSLN==12		;MAX BLOCK LENGTH FOR FUNCTION


;DNET. ERROR CODES
	DNADE%==1		;ADDRESS ERROR
	DNWNA%==2		;WRONG NUMBER OF ARGUMENTS
	DNIDN%==3		;ILLEGAL JOB NUMBER
	DNFNE%==4		;ILLEGAL FUNCTION NUMBER
	DNILF%==5		;ILLEGAL FLAG SET
	DNNSN%==6		;NO SUCH NODE NAME
	DNNSC%==7		;NO SUCH CHANNEL
	DNNDA%==10		;NODE IS IN DIFFERENT AREA
	SUBTTL	DISK UUOS -- DSKCHR

;DSKCHR STATUS BITS

DC.RHB==1B0	;READ HOME BLOCK
DC.OFL==1B1	;UNIT IS OFF-LINE
DC.HWP==1B2	;HARDWARE WRITE PROTECT
DC.SWP==1B3	;SOFTWARE WRITE PROTECT
DC.SAF==1B4	;SINGLE ACCESS FILE STRUCTURE
DC.ZMT==1B5	;ZERO MOUNT COUNT
DC.PRV==1B6	;UNIT IN PRIVATE FILE STRUCTURE
DC.STS==3B8	;UNIT STATUS
	.DCSTP==0	;PACK IS MOUNTED
	.DCSTN==2	;NO PACK IS MOUNTED
	.DCSTD==3	;UNIT IS DOWN
DC.MSB==1B9	;MULTIPLE SAT BLOCKS
DC.NNA==1B10	;NO NEW ACCESSES
DC.AWL==1B11	;WRITE LOCKED FOR ALL JOBS
DC.CPU==3B13	;CPU OWNING UNIT
DC.ALT==1B14	;DUAL PORTS
DC.TYP==7B17	;TYPE OF ARGUMENT
	.DCTDS==0	;GENERIC DSK
	.DCTAB==1	;SUBSET DUE TO ABBREVIATIONS
	.DCTFS==2	;FILE STRUCTURE NAME
	.DCTUF==3	;UNIT WITHIN F/S
	.DCTCN==4	;CONTROLLER CLASS NAME
	.DCTCC==5	;CONTROLLER CLASS
	.DCTPU==6	;PHYSICAL UNIT
DC.DCN==7B20	;DATA CHANNEL NUMBER
DC.CNT==77B26	;CONTROLLER TYPE
	.DCCFH==1	;RC10
	.DCCDP==2	;RP10
	.DCCFS==4	;RH10 FOR FH DISK (RS04)
	.DCCRP==5	;RH10/RH20/RH11 FOR MH DISK (RP04, ETC.)
	.DCCRN==6	;RH20 FOR MH NON-REMOVABLE DISK (RP20)
	.DCCRA==7	;HSC50 FOR CI DISKS
	.DCCSX==17	;SA10 FOR IBM DISKS (3330, ETC.)
DC.CNN==7B29	;CONTROLLER NUMBER
DC.UNT==7B32	;UNIT TYPE
	.DCUFD==0	;RD10	(DC.CNT=1)
	.DCUS4==0	;RS04	(DC.CNT=4)
	.DCUR4==0	;RP04	(DC.CNT=5)
	.DCUFM==1	;RM10-B	(DC.CNT=1)
	.DCUD2==1	;RP02	(DC.CNT=2)
	.DCUD3==2	;RP03	(DC.CNT=2)
	.DCUR6==1	;RP06	(DC.CNT=5)
	.DCUR3==2	;RM03	(DC.CNT=5)
	.DCUR7==3	;RP07	(DC.CNT=5)
	.DCUR5==4	;RM05	(DC.UNT=5)
	.DCUN0==0	;RP20	(DC.CNT=6)
	.DCU80==0	;RA80	(DC.CNT=7)
	.DCU81==1	;RA81	(DC.CNT=7)
	.DCU60==2	;RA60	(DC.CNT=7)
	.DCUS0==0	;3330	(DC.CNT=17)
	.DCUS1==1	;3331	(DC.CNT=17)
DC.UNN==7B35	;PHYSICAL UNIT NUMBER
;DSKCHR LOCATIONS

.DCNAM==0	;ARGUMENT NAME
.DCUFT==1	;LOGGED IN BLOCKS REMAINING
	DC.NPA==1B0	;NO PREVIOUS ACCESS
.DCFCT==2	;PHYSICAL FCFS BLOCKS REMAINING
.DCUNT==3	;PHYSICAL UNIT BLOCKS REMAINING
.DCSNM==4	;STRUCTURE NAME
.DCUCH==5	;CHARACTERISTIC SIZES
	DC.UCC==777B8	;BLOCKS/CLUSTER
	DC.UCT==777B17	;BLOCKS/TRACK
	DC.UCY==777777	;BLOCKS/CYLINDER
.DCUSZ==6	;UNIT SIZE IN BLOCKS
.DCSMT==7	;STRUCTURE MOUNT COUNT
.DCWPS==10	;WORDS/SAT
.DCSPU==11	;SATS/UNIT
.DCK4S==12	;K FOR SWAPPING
.DCSAJ==13	;SINGLE ACCESS JOB
.DCULN==14	;UNIT LOGICAL NAME
.DCUPN==15	;UNIT PHYSICAL NAME
.DCUID==16	;UNIT ID
.DCUFS==17	;UNIT FIRST BLOCK FOR SWAPPING
.DCBUM==20	;BLOCKS PER UNIT INCL. MAINT CYLS.
.DCCYL==21	;CURRENT CYLINDER
.DCBUC==22	;BLOCKS PER UNIT IN PDP-11 COMPAT. MODE
.DCLPQ==23	;LENGTH OF POSITION WAIT QUEUE
.DCLTQ==24	;LENGTH OF TRANSFER WAIT QUEUE
.DCALT==25	;UNIT NAME FOR ALTERNATE PORT
.DCOWN==26	;OWNER PPN OF STRUCTURE
.DCPAS==27	;POSITION IN ACTIVE SWAPPING LIST IF ARGUMENT IS A
		;PHYSICAL UNIT, -1 IF NOT IN LIST.
.DCPSD==30	;POSITION IN SYSTEM DUMP LIST IF ARGUMENT IS A
		;STRUCTURE, -1 IF NOT IN LIST.
.DCBSC==31	;BLOCKS PER SUPER CLUSTER
.DCXCH==32	;EXTENDED UNIT CHARACTERISTICS
	DC.XCC==777B8	;DATA CHANNEL NUMBER
	DC.XCK==777B17	;CONTROLLER NUMBER
	DC.XCU==777B26	;PHYSICAL UNIT NUMBER
	DC.XCA==77B35	;BIT MASK OF ACCESSIBLE CPUS (1B35=CPU0, 1B34=CPU1, ETC.)
.DCDET==33	;NAME OF ALTERNATE PORT (EVEN IF DETACHED)
.DCNUS==34	;NAME OF NEXT UNIT WITH FILE STRUCTURE
.DCBRC==35	;COUNT OF BLOCKS READ BY BUFFERED I/O
.DCBWC==36	;COUNT OF BLOCKS WRITTEN BY BUFFERED I/O
.DCDRC==37	;COUNT OF BLOCKS READ BY DUMP I/O
.DCDWC==40	;COUNT OF BLOCKS WRITTEN BY DUMP I/O
.DCMRC==41	;COUNT OF BLOCKS READ BY MONITOR I/O
.DCMWC==42	;COUNT OF BLOCKS WRITTEN BY MONITOR I/O
.DCSRC==43	;COUNT OF BLOCKS READ BY SWAP I/O
.DCSWC==44	;COUNT OF BLOCKS WRITTEN BY SWAP I/O
.DCPRC==45	;COUNT OF BLOCKS READ BY PAGING I/O
.DCPWC==46	;COUNT OF BLOCKS WRITTEN BY PAGING I/O
.DCFKS==47	;AMOUNT OF FREE SWAP SPACE REMAINING
;DSKCHR LOCATIONS (CONTINUED)

.DCCBK==50	;COUNT OF DISK CACHE BLOCKS IN USE
.DCCRC==51	;COUNT OF DISK CACHE READ CALLS
.DCCRH==52	;COUNT OF DISK CACHE READ HITS
.DCCWC==53	;COUNT OF DISK CACHE WRITE CALLS
.DCCWH==54	;COUNT OF DISK CACHE WRITE HITS
.DCSDV==55	;COUNT OF SOFT DEVICE/SEARCH ERRORS
.DCSDT==56	;COUNT OF SOFT DATA ERRORS
.DCHDV==57	;COUNT OF HARD DEVICE/SEARCH ERRORS
.DCHDT==60	;COUNT OF HARD DATA ERRORS
.DCECT==61	;COUNT OF RETRIES ON LAST ERROR
.DCSER==62	;COUNT OF "SAT" ERRORS
.DCRER==63	;COUNT OF "RIB" ERRORS
.DCCER==64	;COUNT OF SOFTWARE CHECKSUM/CONSISTENCY ERRORS
.DCHBN==65	;LOGICAL BLOCK NUMBER (WITHIN UNIT) OF LAST ERROR
.DCERR==66	;LAST ERROR STATUS
.DCSOF==67	;LAST ERROR STATUS
.DCHDI==70	;LAST ERROR STATUS
.DCSDI==71	;LAST ERROR STATUS
.DCNHG==72	;COUNT OF TRANSFER-HUNG ERRORS (NON-RECOVERABLE)
.DCTHG==73	;COUNT OF TRANSFER-HUNG ERRORS
.DCPHG==74	;COUNT OF POSITION-HUNG ERRORS
.DCSHG==75	;COUNT OF SOFTWARE-HUNG ERRORS
.DCXSF==76	;EXTRA STATUS FLAGS
	DC.FES==3B1	;FRONT-END PORT STATUS
				;0 = DON'T KNOW
		.DCFEN==1	;NOT ACCESSIBLE VIA FRONT-END
		.DCFEA==2	;ACCESSIBLE VIA FRONT-END
		.DCFEB==3	;FRONT-END BOOT DEVICE

.DCMAX==77	;LENGTH OF DSKCHR BLOCK
	SUBTTL	DISK UUOS -- CHKACC

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

.DUPRI==0	;SET PRIORITY
.DUSEM==1	;SET PDP-11 (22-SECTOR) MODE ON RP04
.DUSTM==2	;SET PDP-10 (20-SECTOR) MODE ON RP04
.DUUNL==3	;UNLOAD RP04
.DUOLS==4	;CHAN./CONTROLLER WILL BE OFF LINE SOON
.DUOLN==5	;CHAN./CONTROLLER IS OFF LINE NOW
.DUONL==6	;CHAN./CONTROLLER IS BACK ON LINE
.DUUFD==7	;CALL UFD COMPRESSOR
.DUSWP==10	;REMOVE A SWAPPING UNIT
.DUASW==11	;ADD A SWAPPING UNIT
.DUASD==12	;ADD A STR TO THE SYSTEM DUMP LIST
.DURSD==13	;REMOVE A STR FROM THE SYSTEM DUMP LIST
.DULEN==14	;RETURN LENGTH OF A FILE
.DUCLM==15	;CLEAR MDA WAIT FOR SPECIFIED UNIT
.DUFRE==16	;RETURN FREE BLOCKS IN UFD FOR A STR:[P,PN]
		;NOTE:  THIS FUNCTION TAKES TWO WORDS
		; FROM ADRS PASSED IN AC

;.DUPRI FUNCTION - ERROR CODES
DUPIP%==1	;PRIORITY HIGHER THAN PRIVILEGES ALLOWED
DUPNO%==2	;CHANNEL NOT OPEN
DUPIA%==3	;ILLEGAL ARGUMENT

;.DUSEM AND .DUSTM FUNCTION - ERROR CODES
DUSID%==1	;ILLEGAL DEVICE
DUSCM%==2	;DEVICE DOES NOT HAVE COMPATIBILITY MODE

;.DUUNL FUNCTION - ERROR CODES
DUUIU%==1	;ILLEGAL UNIT NAME
DUUNI%==2	;NOT IDLE OR NOT A FILE STRUCTURE
DUUNU%==3	;DEVICE NOT UNLOADABLE

;.DUOLS, .DUOLN, .DUONL, .DUSWP FUNCTION - ERROR CODES
DUOIP%==1	;CHAN./CONTROLLER OFF-LINE ALREADY IN PROGRESS
DUOSK%==2	;NO SUCH CONTROLLER
DUOSS%==3	;NOT ENOUGH SWAPPING SPACE IF CONTROLLER OFF-LINE
DUOIS%==4	;UNIT IN A FILE STRUCTURE CANNOT BE PUT OFF-LINE
DUOES%==5	;NOT ENOUGH SPACE FOR IOWDS
DUOPI%==6	;CANNOT REMOVE UNIT BECAUSE IT CONTAINS IPCF PAGES
;.DUASW FUNCTION - ERROR CODES
DUANU%==1	;NO SUCH UNIT
DUAAI%==2	;UNIT ALREADY IN ASL
DUASF%==3	;SWPTAB IS FULL
DUAN4%==4	;(OBSOLETE)
DUANS%==5	;NO SWAPPING SPACE (SWAP.SYS) ON PACK

;.DUASD FUNCTION - ERROR CODES
DUDND%==1	;NO SUCH STRUCTURE
DUDNC%==2	;NO CRASH SPACE ON STRUCTURE
DUDAD%==3	;STRUCTURE ALREADY IN THE SYSTEM DUMP LIST
DUDDF%==4	;SYSTEM DUMP LIST FULL

;.DURSD FUNCTION - ERROR CODES
DUDNS%==1	;STRUCTURE NOT IN SYSTEM DUMP LIST

;.DUFRE FUNCTION - ERROR CODES
DUFND%==1	;NO SUCH STRUCTURE

;GENERAL DISK. UUO ERRORS
DUILF%==-1	;ILLEGAL FUNCTION
DUINP%==-2	;NOT PRIVILEGED
	SUBTTL	DISK UUOS -- JOBSTR

.DFJNM==0	;STR NAME
.DFJDR==1	;DIRECTORY
.DFJST==2	;STATUS
	DF.SWL==1B0	;WRITE LOCKED
	DF.SNC==1B1	;NO CREATE
.DFJBL==3	;LENGTH OF THIS BLOCK (FOR USE WITH FUNCTION WHICH
		;TAKES MULTIPLE BLOCKS - SEE STRUUO)



	SUBTTL	DISK UUOS -- GOBSTR

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

;GOBSTR ERRORS

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



	SUBTTL	DISK UUOS -- SUSET.

SU.SOT==1B1	;OUTPUT
SU.SMN==1B2	;MAINTENANCE CYLINDER
SU.SCH==777B12	;CHANNEL
SU.SBL==37,,777777  ;BLOCK NUMBER

;SUSET. ERRORS

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

.PTFCN==0	;JOB #,,FUNCTION OR ARGUMENT CHANNEL OR DEVICE
	PT.JBN==777777B17 ;JOB NUMBER
	PT.FCN==777777B35 ;FUNCTION
		.PTFRD==-1	;READ DEFAULT
		.PTFSD==-2	;SET DEFAULT PATH
		.PTFSL==-3	;SET LIB, NEW, SYS
		.PTFRL==-4	;READ LIB, NEW, SYS
		.PTFSN==-5	;SET LOGICAL NAME
		.PTFRN==-6	;READ LOGICAL NAME
.PTSTR==0	;ANSWER HAS STR NAME
.PTSWT==1	;SWITCHES AND FLAGS
	PT.EDA==1B25	;LOGICAL NAME ARG WAS ALSO AN ERSATZ DEVICE
	PT.DLN==1B26	;DEVICE OR CHANNEL ARGUMENT WAS LOGICAL NAME
	PT.SLT==7B29	;TYPE OF SEARCH LIST
		.PTSLN==0	;NO SEARCH LIST
		.PTSLJ==1	;JOB
		.PTSLA==2	;ALL
		.PTSLS==3	;SYS
	PT.IPP==1B30	;IMPLIED PPN (FORCED)
	PT.DTL==1B30	;DON'T ALTER THE STATUS OF /LIB ON .PTFSL
	PT.LIB==1B31	;/LIB
	PT.NEW==1B32	;/NEW
	PT.SYS==1B33	;/SYS
	PT.SCN==3B35	;SCAN SWITCH
		.PTSCN==1	;NO (OFF)
		.PTSCY==2	;YES (ON)
	PT.SNW==1B34	;/NEW ON .PTFSL/.PTFRL
	PT.SSY==1B35	;/SYS ON .PTFSL/.PTFRL
.PTPPN==2	;PPN (UFD) OF PATH
.PTSFD==3	;START OF LIST OF SFD'S
.PTMAX==11	;LAST POSSIBLE 0 AFTER LAST SFD +1 (IE, LENGTH OF PATH BLOCK)
;THE LOGICAL NAME PATH. BLOCKS (.PTFSN/.PTFRN) HAVE A DIFFERENT
; FORMAT AS FOLLOWS:

;.PTFCN==.PTFCN	;FUNCTION WORD STAYS THE SAME
.PTLNF==1	;LOGICAL NAME FLAGS
	PT.SEA==1B0	;/SEARCH
	PT.UDF==1B1	;"UNDEFINE" THIS LOGICAL NAME
	PT.RCN==1B2	;RETURN INFO ABOUT CURRENT NAME ON .PTFRN
	PT.OVR==1B4	;OVERRIDE ALL PARTS OF THE LOOKUP/ENTER BLOCK
			;  WITH THE DEFINITIONS FROM THIS LOGICAL NAME
.PTLNM==2	;SIXBIT LOGICAL NAME TO DEFINE OR READ
.PTLSB==3	;THE REST OF THE BLOCK CONSISTS OF ONE OR MORE
		; GROUPS OF THE FOLLOWING FORMAT.  NOTE THAT THE
		; FOLLOWING SYMBOLS ARE RELATIVE TO THE START OF
		; THE GROUP, AND THAT THIS SYMBOL GIVES THE OFFSET
		; TO THE START OF THE FIRST GROUP

.PTNOD==0	;RESERVED TO DEC FOR FUTURE EXPANSION
.PTLSL==1	;SIXBIT DEVICE NAME FOR THIS COMPONENT
.PTFIL==2	;RESERVED TO DEC FOR FUTURE EXPANSION
.PTEXT==3	;RESERVED TO DEC FOR FUTURE EXPANSION
.PTLPP==4	;PPN
.PTLSF==5	;START OF SFD LIST
.PTLEL==12	;LAST POSSIBLE ZERO WORD TO TERMINATE SFD LIST
.PTLZT==13	;LAST POSSIBLE WORD IN WHICH THE TWO WORD ZERO
		;TERMINATOR FOR THE ENTIRE PATH BLOCK MAY BEGIN
		;(RELATIVE TO THIS GROUP)

.PTLNN==77	;MAXIMUM NUMBER OF LOGICAL NAMES THAT MAY BE DEFINED
		; AT ONE TIME
.PTLLB==144	;MAXIMUM NUMBER OF WORDS IN A LOGICAL NAME PATH. BLOCK

;PATH. ERRORS FOR FUNCTIONS .PTFSN AND .PTFRN

PTNSS%==-1	;NO SUCH SFD IN JOB SEARCH LIST (.PTFSD)
PTNDD%==0	;NON-DISK DEVICE OR UNOPENED CHANNEL
PTTME%==1	;TOO MANY ENTRIES IN PATH. BLOCK
PTTMN%==2	;TOO MANY LOGICAL NAMES DEFINED
PTNSN%==3	;ATTEMPT TO "UNDEFINE" A NON-EXISTENT NAME
PTNFS%==4	;NO PER-PROCESS MONITOR-FREE-CORE
PTANE%==5	;ASSIGNED NAME ALREADY EXISTS
PTNEN%==6	;NON-EXISTENT NAME (.PTFRN AND .PTFSN)
PTNSJ%==7	;NO SUCH JOB
PTNAI%==11	;NUMBER OF ARGS ILLEGAL (1 OR 2 ARGS INSUFFICIENT)
	SUBTTL	DISK UUOS -- STRUUO

.FSFCN==0	;STRUUO FUNCTION WORD - ALWAYS FIRST WORD OF FOLLOWING FUNCTIONS
.FSSRC==0	;UPDATE THIS SEARCH LIST (SEE .DFJXX)
	.FSCSO==1	;OFFSET TO FIRST BLOCK OF STR NAM,DIR,STS (SEE .DFJXX)
.FSDSL==1	;UPDATE SYSTEM/JOB SEARCH LIST (OFFSETS SHOULD MATCH .FSRSL)
	.FSDJN==1	;JOB# (0=SYS)
	.FSDPP==2	;PPN
	.FSDFL==3	;FLAGS
		DF.SRM==1B35	;REMOVE FROM S/L COMPLETELY
	.FSDSO==4	;OFFSET TO FIRST BLOCK OF STR NAM,DIR,STS (SEE .DFJXX)
.FSDEF==2	;DEFINE NEW F/S
	.FSNST==1	;POINTER TO STR PARAMS
	.FSNUN==2	;FIRST POINTER TO UNIT PARAMS
    ;STR PARAM BLOCK
	.FSSNM==0	;NAME OF STRUCTURE
	.FSSNU==1	;NUMBER OF UNITS
	.FSSHL==2	;HIGHEST LOGICAL BLOCK
	.FSSSZ==3	;SIZE OF STR
	.FSSRQ==4	;RESERVED QUOTA
	.FSSRF==5	;RESERVED FREE
	.FSSTL==6	;TALLY OF FCFS FREE
	.FSSOD==7	;BLOCKS FOR OVERDRAW
	.FSSMP==10	;MFD FIRST RETRIEVAL POINTER
	.FSSML==11	;-1 IF .FSSMP IS ONLY POINTER
	.FSSUN==12	;MFD UNIT
	.FSSTR==13	;NUMBER OF RETRIES ON ERROR
	.FSSBU==14	;LARGEST BLOCK ON UNIT
	.FSSBC==15	;BLOCKS PER SUPER-CLUSTER
	.FSSSU==16	;SUPER-CLUSTERS PER UNIT
	.FSSIG==17	;(IGNORED)
	.FSSCC==20	;BYTE POINTER TO CLUSTER COUNT
	.FSSCK==21	;BYTE POINTER TO CHECKSUM
	.FSSCA==22	;BYTE POINTER TO CLUSTER ADDRESS
	.FSPVT==23	;-1 IF PRIVATE FILE STR
	.FSPPN==24	;PPN OF OWNER (EACH HALF -1 IF WILD)
	.FSSCR==25	;BLOCK IN STR CONTAINING RIB FOR CRASH.EXE
	.FSK4C==26	;K FOR CRASH
	.FSSET==27	;SET NUMBER
    ;UNIT DATA BLOCK
	.FSUNM==0	;UNIT NAME
	.FSUID==1	;PACK ID
	.FSULN==2	;LOGICAL NAME
	.FSULU==3	;NUMBER WITHIN STR
	.FSUDS==4	;STATUS BITS
		FS.UWL==1B0	;SOFTWARE WRITE-LOCK
		FS.USA==1B1	;SINGLE ACCESS
		FS.UNC==1B2	;DON'T CACHE MONITOR I/O FOR UNIT
	.FSUGP==5	;NUMBER BLOCKS TO ALLOCATE
	.FSUTL==6	;FREE BLOCK TALLY
	.FSUBC==7	;BLOCKS PER CLUSTER
	.FSUCS==10	;CLUSTERS PER SAT
	.FSUWS==11	;WORDS PER SAT
	.FSUSC==12	;SATS IN CORE
	.FSUSU==13	;SATS PER UNIT
	.FSUSP==14	;POINTER TO SPT TABLE
	.FSUSB==15	;FIRST BLOCK FOR SWAPPING
	.FSUKS==16	;SIZE OF SWAP SPACE
.FSRDF==3	;CHANGE F/S STATUS
	.FSRJN==1	;JOB NUMBER
	.FSRPP==2	;JOB P,PN
	.FSRNM==3	;STR NAME
	.FSRST==4	;NEW STATUS
		FS.RWL==1B0	;WRITE LOCK ALL USERS
		FS.RSA==1B1	;SINGLE ACCESS
.FSLOK==4	;LOCK F/S
	.FSLNM==1	;STR NAME
.FSREM==5	;REMOVE F/S
	.FSMNM==1	;STR NAME
.FSULK==6	;TEST/SET UFD INTERLOCK
	.FSINM==1	;STR NAME
	.FSIPP==2	;PPN
.FSUCL==7	;CLEAR UFD INTERLOCK
	.FSGNM==1	;STR NAME
	.FSGPP==2	;PPN
.FSETS==10	;SIMULATE ERROR
	.FSEUN==1	;UNIT
	.FSEGT==2	;NUMBER OF TRANSFERS BEFORE ERROR
	.FSEDB==3	;NUMBER OF DATAI'S TO RUIN
	.FSEDO==4	;OR TO DATAI
	.FSEDA==5	;ANDCAM TO DATAI
	.FSECB==6	;NUMBER OF CONI'S TO RUIN
	.FSECO==7	;OR TO CONI
	.FSECA==10	;ANDCAM TO CONI
.FSMNW==11	;MODIFY NOCREATE AND WRITE LOCK
	.FSMFS==1	;FILE STRUCTURE
	.FSMFL==2	;FLAGS
		FS.MWL==1B0	;WRITE LOCK
		FS.MNC==1B1	;NO CREATE
.FSCLR==12	;UNLOCK A FILE STRUCTURE
	.FSCFS==1	;FILE STRUCTURE NAME
.FSRSL==13	;READ SEARCH LIST (OFFSETS SHOULD MATCH .FSDSL)
	.FSDJN==1	;JOB# (0=SYS)
	.FSDPP==2	;PPN
	.FSDNS==3	;NUMBER OF STRUCTURES IN S/L
	.FSDSO==4	;OFFSET TO FIRST BLOCK OF STR NAM,DIR,STS (SEE .DFJXX)
;STRUUO ERRORS

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

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

.RBCNT==0	;COUNT OF ARGS FOLLOWING
	RB.NSE==1B18	;(ENTER ONLY) NON-SUPERSEDING ENTER
	RB.DSL==1B19	;DON'T SEARCH LIB ON LOOKUP
	RB.AUL==1B20	;ALLOW UPDATE (OR RENAME) IF FILE FOUND IN LIB
	RB.NLB==1B21	;DON'T LOAD-BALANCE ACROSS UNITS
.RBPPN==1	;DIRECTORY NAME OR POINTER
.RBNAM==2	;FILENAME
.RBEXT==3	;EXTENSION, ACCESS DATE, ERROR CODE
	RB.CRX==7B20	;EXTENSION OF RB.CRD
	RB.ACD==77777	;ACCESS DATE
.RBPRV==4	;PRIVILEGE, MODE, CREATION TIME AND DATE
	RB.PRV==777B8	;PRIVILEGE
	RB.MOD==17B12	;MODE
	RB.CRT==3777B23	;CREATION TIME
	RB.CRD==7777B35	;CREATION DATE
.RBSIZ==5	;LENGTH
.RBVER==6	;VERSION
.RBSPL==7	;SPOOLED FILE NAME
.RBEST==10	;ESTIMATED LENGTH
.RBALC==11	;ALLOCATION
.RBPOS==12	;POSITION TO ALLOCATE
.RBFT1==13	;OBSOLETE
.RBUFW==13	;UNITS FILE WAS WRITTEN ON
	RB.UNI==377B17	;UNIT
	RB.CON==7B20	;CONTROLLER
	RB.APR==77777B35;APR SERIAL NUMBER
.RBNCA==14	;NON-PRIV. CUSTOMER ARG
.RBMTA==15	;TAPE LABEL
.RBDEV==16	;LOGICAL UNIT NAME
.RBSTS==17	;FILE STATUS BITS
	RP.LOG==1B0	;LOGGED IN
	RP.CHG==1B5	;SOME FILE HAS CHANGED IN THIS UFD SINCE THE LAST BACKUP
	RP.UCE==1B9	;CHECKSUM ERROR
	RP.UWE==1B10	;WRITE ERROR
	RP.URE==1B11	;READ ERROR
	RP.UER==7B11	;ALL UFD ERRORS
	RP.DIR==1B18	;DIRECTORY
	RP.NDL==1B19	;NO DELETES
	RP.DMP==1B20	;UNPROCESSED DUMP ON THIS FILE
	RP.NFS==1B21	;DON'T FAILSAFE
	RP.ABC==1B22	;ALWAYS BAD CHECKSUM
	RP.CBS==1B23	;RP.CMP SET ON ENTRY TO UFD COMPRESSOR
	RP.ABU==1B24	;ALWAYS BACK UP
	RP.NQC==1B25	;NON-QUOTA CHECKED FILE
	RP.CMP==1B26	;UFD COMPRESSING
	RP.FCE==1B27	;CHECKSUM ERROR
	RP.FWE==1B28	;WRITE ERROR
	RP.FRE==1B29	;READ ERROR
	RP.RMS==1B30	;RMS FILE
	RP.PAL==1B31	;THIS IS A PREALLOCATED FILE
	RP.BFA==1B32	;BAD BY FAILSA RESTORE
	RP.CRH==1B33	;CLOSED AFTER CRASH
	RP.BDA==1B35	;BAD BY DAMAGE ASSESSMENT
	RP.ERR==715	;ALL FILE ERRORS
.RBELB==20	;ERROR LOGICAL BLOCK
	RB.EVR==7B2	;ERROR (BAD BLOCK) FORMAT VERSION
	RB.ETO==1B3	;ERROR TYPE: OTHER (NOT DATA OR SEARCH ERROR)
	RB.ETD==1B4	;ERROR TYPE: DATA (PARITY OR HARD ECC)
	RB.ETS==1B5	;ERROR TYPE: SEARCH OR HEADER COMPARE
	RB.ETM==77B8	;MASK OF ALL ERROR TYPE BITS
	RB.EBN==777777777 ;NUMBER (WITHIN UNIT) OF FIRST BAD BLOCK
.RBEUN==21	;ERROR UNIT AND LENGTH
	RB.ENB==777B8	;NUMBER OF CONTIGUOUS BAD BLOCKS
	RB.EUN==377B17	;UNIT NUMBER WITHIN CONTROLLER
			; (BIT 10=UNIT 7, BIT 17=UNIT 0)
	RB.EKN==7B20	;CONTROLLER NUMBER
	RB.ECN==77777	;CPU NUMBER
.RBQTF==22	;FCFS LOGGED-IN QUOTA (UFD'S ONLY)
.RBTYP==.RBQTF	;FILE TYPE AND FLAGS WORD (NON-DIRECTORY FILES ONLY)
	RB.DEC==1B0	;DEC FORMATTED FILE (THESE FOUR WORDS VALID)
	RB.RMS==1B1	;RMS-10 FORMATTED FILE
	RB.MCY==1B2	;MACY11 FORMATTED FILE
	RB.CTG==1B3	;FILE IS CONTIGUOUS ALLOCATION
	RB.NSB==1B4	;RECORDS DO NOT SPAN PHYSICAL BLOCKS
			;B5-B14 RESERVED FOR FUTURE
	RB.CRY==7B17	;FILE IS ENCRYPTED (VALUE IS ALGORITHM 'TYPE')
	RB.DTY==77B23	;FILE DATA TYPE
		.RBDUN==0	;UNDEFINED DATA TYPE (I.E., NONE SPECIFIED)
		.RBDAS==1	;ASCII CHARACTER DATA
		.RBDBI==2	;BINARY (OR "IMAGE") DATA
				;60-77 RESERVED FOR CUSTOMERS
	RB.DTO==77B29	;DATA "OTS" TYPE
		.RBOUN==0	;UNDEFINED (NO) LANGUAGE-SPECIFIC FORMATTING
		.RBOCO==1	;COBOL
		.RBOFO==2	;FORTRAN
		.RBOMS==3	;MAIL ("MS")
				;60-77 RESERVED FOR CUSTOMERS
	RB.DCC==77B35	;DATA "CARRIAGE CONTROL" FORMATTING
		.RBCUN==0	;UNDEFINED CARRIAGE CONTROL
		.RBCFO==1	;FORTRAN CARRIAGE CONTROL
		.RBCAS==2	;ANSI "SPACE" CARRIAGE CONTROL
				;60-77 RESERVED FOR CUSTOMERS
.RBQTO==23	;LOGGED-OUT QUOTA (UFD'S ONLY)
.RBBSZ==.RBQTO	;BYTE/ETC. SIZES (NON-DIRECTORY FILES ONLY)
	RB.BSZ==377B7	;LOGICAL DATA BYTE SIZE
	RB.FSZ==377B15	;PHYSICAL DATA FRAME SIZE
	RB.HSZ==377B23	;FIXED-HEADER SIZE (FOR VARIABLE-LENGTH RECORDS)
	RB.RFM==77B29	;RECORD FORMAT
		.RBRUN==0	;UNDEFINED RECORD FORMAT (NO RECORD STRUCTURE)
		.RBRFX==1	;FIXED LENGTH RECORDS
		.RBRVR==2	;VARIABLE LENGTH RECORDS
		.RBRVF==3	;VARIABLE LENGTH RECORDS WITH FIXED HEADER
		.RBRSP==4	;SPANNED (ANSI LABELED TAPES) RECORDS
				;60-77 RESERVED FOR CUSTOMERS
	RB.RFO==77B35	;RECORD ORGANIZATION
		.RBRSQ==0	;SEQUENTIAL RECORD STRUCTURE
		.RBRRL==1	;RELATIVE RECORD STRUCTURE
		.RBRID==2	;INDEXED RECORD STRUCTURE
		.RBRHS==3	;HASHED RECORD STRUCTURE
				;60-77 RESERVED FOR CUSTOMERS
.RBQTR==24	;RESERVED QUOTA (UFD'S ONLY)
.RBRSZ==.RBQTR	;RECORD AND BLOCK SIZES (NON-DIRECTORY FILES ONLY)
	RB.RSZ==777777B17	;RECORD SIZE (BYTES)
	RB.BLS==777777B35	;BLOCK SIZE (BYTES)
.RBUSD==25	;NUMBER OF BLOCKS ALLOCATED TO FILES IN THIS UFD (UFD'S ONLY)
.RBFFB==.RBUSD	;FFB, CRY FIELDS (NON-DIRECTORY FILES ONLY)
	RB.FFB==777777B17	;FIRST FREE BYTE WITHIN LAST BLOCK
	RB.ACW==777777B35	;APPLICATION-SPECIFIC FIELD
.RBAUT==26	;AUTHOR
.RBNXT==27	;FUTURE DEC ARGUMENT
.RBPRD==30	;OBSOLETE
.RBIDT==30	;BACKUP'S INCREMENTAL DATE/TIME IN UFD
.RBPCA==31	;PRIV. CUSTOMER ARG
.RBUFD==32	;POINTER BACK TO UFD
.RBFLR==33	;RELATIVE BLOCK IN FILE COVERED BY THIS RIB
.RBXRA==34	;POINTER TO NEXT RIB IN CHAIN
.RBTIM==35	;CREATION DATE,,TIME IN INTERNAL SYSTEM FORMAT
.RBLAD==36	;LAST ACCOUNTING DATE (UFD)
.RBDED==37	;DIRECTORY EXPIRATION DATE (UFD)/FILE EXPIRATION DATE (LABELED TAPES)
.RBACT==40	;ACCOUNT STRING WORD 1
.RBAC2==41	;ACCOUNT STRING WORD 2
.RBAC3==42	;ACCOUNT STRING WORD 3
.RBAC4==43	;ACCOUNT STRING WORD 4
.RBAC5==44	;ACCOUNT STRING WORD 5
.RBAC6==45	;ACCOUNT STRING WORD 6
.RBAC7==46	;ACCOUNT STRING WORD 7
.RBAC8==47	;ACCOUNT STRING WORD 8
.RBMAX==50	;LENGTH OF LOOKUP/ENTER/RENAME BLOCK
;LOOKUP/ENTER/RENAME/GETSEG/RUN ERROR CODES

ERFNF%==0	;FILE NOT FOUND
ERIPP%==1	;INCORRECT PPN
ERPRT%==2	;PROTECTION FAILURE
ERFBM%==3	;FILE BEING MODIFIED
ERAEF%==4	;ALREADY EXISTING FILE NAME
ERISU%==5	;ILLEGAL SEQUENCE OF UUOS
ERTRN%==6	;TRANSMISSION ERROR
ERNSF%==7	;NOT A SAVE FILE
ERNEC%==10	;NOT ENOUGH CORE
ERDNA%==11	;DEVICE NOT AVAILABLE
ERNSD%==12	;NO SUCH DEVICE
ERILU%==13	;ILLEGAL MONITOR CALL FOR GETSEG OR FILOP, OR SAVE.
ERNRM%==14	;NO ROOM
ERWLK%==15	;WRITE-LOCKED
ERNET%==16	;NOT ENOUGH TABLE SPACE
ERPOA%==17	;PATIAL ALLOCATION
ERBNF%==20	;BLOCK NOT FREE
ERCSD%==21	;CAN'T SUPERSEDE A DIRECTORY
ERDNE%==22	;CAN'T DELETE NON-EMPTY DIRECTORY
ERSNF%==23	;SFD NOT FOUND
ERSLE%==24	;SEARCH LIST EMPTY
ERLVL%==25	;SFD NEST LEVEL TOO DEEP
ERNCE%==26	;NO-CREATE FOR ALL S/L
ERSNS%==27	;SEGMENT NOT ON SWAP SPACE OR JOB LOCKED
ERFCU%==30	;CAN'T UPDATE FILE
ERLOH%==31	;LOW SEG OVERLAPS HI SEG (GETSEG)
ERNLI%==32	;NOT LOGGED IN (RUN, SAVE)
ERENQ%==33	;FILE STILL HAS OUTSTANDING LOCKS SET
ERBED%==34	;BAD .EXE FILE DIRECTORY (GETSEG,RUN)
ERBEE%==35	;BAD EXTENSION FOR .EXE FILE(GETSEG,RUN)
ERDTB%==36	;.EXE DIRECTORY TOO BIG(GETSEG,RUN,SAVE.)
ERENC%==37	;TSK - EXCEEDED NETWORK CAPACITY
ERTNA%==40	;TSK - TASK NOT AVAILABLE
ERUNN%==41	;TSK - UNDEFINED NETWORK NODE
ERSIU%==42	;RENAME - SFD IS IN USE
ERNDR%==43	;DELETE - FILE HAS AN NDR LOCK
ERJCH%==44	;JOB COUNT HIGH (A.T. READ COUNT OVERFLOW)
ERSSL%==45	;CANNOT RENAME SFD TO A LOWER LEVEL
ERCNO%==46	;CHANNEL NOT OPENED (FILOP.)
ERDDU%==47	;DEVICE "DOWN" AND UNUSEABLE
ERDRS%==50	;DEVICE IS RESTRICTED
ERDCM%==51	;DEVICE CONTROLLED BY MDA
ERDAJ%==52	;DEVICE ALLOCATED TO ANOTHER JOB
ERIDM%==53	;ILLEGAL I/O DATA MODE
ERUOB%==54	;UNKNOWN/UNDEFINED OPEN BITS SET
ERDUM%==55	;DEVICE IN USE ON AN MPX CHANNEL
ERNPC%==56	;NO PER-PROCESS SPACE FOR EXTENDED I/O CHANNEL TABLE
ERNFC%==57	;NO FREE CHANNELS AVAILABLE
ERUFF%==60	;UNKNOWN FILOP. FUNCTION
ERCTB%==61	;CHANNEL TOO BIG
ERCIF%==62	;CHANNEL ILLEGAL FOR SPECIFIED FUNCTION
ERACR%==63	;ADDRESS CHECK READING ARGUMENTS
ERACS%==64	;ADDRESS CHECK STORING ANSWER
ERNZA%==65	;NEGATIVE OR ZERO ARGUMENT COUNT
ERATS%==66	;ARGUMENT BLOCK TOO SHORT
ERLBL%==67	;MAGTAPE LABELING ERROR
ERDPS%==70	;DUPLICATE SEGMENT IN ADDRESS SPACE
ERNFS%==71	;NO FREE SECTION (SEGOP.)
ERSII%==72	;SEGMENT INFORMATION INCONSISTANT (SEGMENT # AND NAME DON'T MATCH)
;FILE PROTECTION CODES

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

;DIRECTORY PROTECTION CODES

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



	SUBTTL	EXTENDED I/O ERRORS

;CODES RETURNED BY DEVOP. FUNCTION 3

IOPLE%==1		;PAGE LIMIT EXCEEDED (LPT)
IONOP%==1		;MONITOR CONTINUED OPERATION (MTA)
IOVFE%==2		;VFU FORMAT ERROR (LPT)
IOEOF%==2		;TAPE AT EOF (MTA)
IOLTE%==3		;LABEL TYPE ERROR (MTA)
IOHLE%==4		;HEADER LABEL ERROR (MTA)
IOTLE%==5		;TRAILER LABEL ERROR (MTA)
IOVLE%==6		;VOLUME LABEL ERROR (MTA)
IODER%==7		;HARD DEVICE ERROR
IOPAR%==10		;PARITY ERROR
IOWLE%==11		;WRITE LOCK ERROR
IOIPO%==12		;ILLEGAL POSITIONING OPERATION (MTA)
IOBOT%==13		;BEGINNING OF TAPE (MTA)
IOIOP%==14		;ILLEGAL OPERATION (MTA)
IOFNF%==15		;FILE NOT FOUND (MTA)
IOCAN%==16		;OPR CANCELLED VOLUME SWITCH REQUEST (MTA)
IOTMV%==17		;TOO MANY VOLUMES IN VOLUME SET (MTA)
IONND%==20		;NETWORK NODE DOWN
IOUNC%==21		;UNDEFINED CHARACTER INTERRUPT (LP20)
IORPE%==22		;RAM PARITY ERROR (LP20)
IOLRA%==23		;LABELER REQUEST ABORTED BY RESET UUO (MTA)
IOVPF%==24		;VOLUME PROTECTION FAILURE (MTA)
IOFPF%==25		;FILE PROTECTION FAILURE (MTA)
IOUEF%==26		;UNEXPIRED FILE (MTA)
IONDD%==27		;NETWORK DEVICE DISCONNECTED
	SUBTTL	EXEC DATA VECTOR

;BLOCK POINTED TO BY .JBEDV
;IN UUOSYM FOR LIBRARY REL FILES LOADED WITH THE MONITOR

.EDCNT==0	;'EDV',,COUNT (INCLUDES THIS WORD)
.EDHSB==1	;POINTER TO HIDDEN SYMBOL MAP SWITCHING BLOCK
.EDSYM==2	;.JBSYM IN SYMBOL SPACE
.EDUSY==3	;.JBUSY IN SYMBOL SPACE
.EDHSF==4	;POINTER TO SYMBOLS HIDDEN FLAG WORD
.EDDAT==5	;CPU/PAGING/HARDWARE DATA
   ED.KLP==1B0	   ;KL PAGING
   ED.XKL==1B1	   ;EXTENDED KL10
   ED.CPU==0,,-1   ;CPU TYPE CODE (KI10=3, KL10=4, KS10=5, ETC.)
.EDEPT==6	;PHYSICAL ADDRESS OF THE BOOT CPU'S EPT
.EDSPT==7	;PHYSICAL ADDRESS OF THE BOOT CPU'S SPT
.EDCST==10	;PHYSICAL ADDRESS OF THE BOOT CPU'S CST
.EDCPN==11	;PHYSICAL ADDRESS OF CPNDDT
.EDCPU==12	;AOBJN POINTER TO LIST OF CPU SERIAL NUMBERS
.EDCAC==13	;PHYSICAL ADDRESS OF VIRTUAL ADDRESS OF CRASH ACS
.EDLNK==14	;VIRTUAL RING POINTER TO EDV FOR NEXT CPU
.EDLEN==15	;LENGTH OF THE EXEC DATA VECTOR
	SUBTTL	EXTENDED SYMBOL TABLE FORMAT

;BLOCK POINTED TO BY POSITIVE CONTENTS OF .JBSYM

.SYCNT==0	;COUNT (INCLUDES THIS WORD)
.SYSTB==1	;OFFSET TO FIRST SUB-TABLE

;THE COUNT WORD IS FOLLOWED BY A NUMBER OF SUB-TABLES, EACH
;OF LENGTH .SYSTL.  EACH SUB-TABLE IN THE SYMBOL VECTOR HAS
;THE FOLLOWING FORM:

.SYTYP==0	;TYPE AND LENGTH
   SY.TYP==77B5	   ;TYPE
	.SYR5D==1	;RADIX-50 DEFINED
	.SYR5U==2	;RADIX-50 UNDEFINED
   SY.LEN==^-SY.TYP ;LENGTH OF TABLE
.SYADR==1	;ADDRESS OF TABLE
.SYSTL==3	;SUB-TABLE LENGTH

;CURRENTLY THERE ARE 2 BLOCKS (DEFINED AND UNDEFINED SYMBOLS)
;IN THE EXTENDED SYMBOL VECTOR (TOTAL LENGTH OF 7 WORDS).
	.XCREF

%%UUOS==<VRSN. (UUO)>
	PURGE	UUOWHO,UUOVER,UUOMIN,UUOEDT,%%MACT,CALLI,MTAPE,TTCALL

IFDEF %..C,<	%%C==%%UUOS	>


	IF1,<	ASUPPRESS>
	IFNDEF %..C,<PURGE VRSN.
		     END>	;END UNIVERSAL OF UUOSYM

	IFDEF %.C,<IFLE %.C+2,<
			IF2,<PURGE %.C,%..C>
			END>>	;BIND OFF TO GET CLEAN LISTING
	.CREF
	LIST