Trailing-Edge
-
PDP-10 Archives
-
BB-KL11L-BM_1990
-
t20src/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