1688.com,阿里巴巴打造的全球最大的采购批发平台
1688/淘宝会员（仅限会员名）请在此登录
cbulogin.center.eu13Server is OKPDP-10 Archive: 3-sources/c.mac from bb-d868a-bm
Enter your search terms
Submit search form
pdp-10.trailing-edge.com
3-sources/c.mac
There are 18 other files named c.mac in the archive.
to see a list. SUBTTL GENERAL CUSP MACROS
%10(164) 12-OCT-74
IFNDEF %.C,&XLIST&
;***COPYRIGHT ,
DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
;THIS IS A HEADER FILE TO PRODUCE C.MAC GIVEN MACTEN.MAC
;AND UUOSYM.MAC. THE THREE OF THEM CONCATENATED ARE AN EXACT
;REPLACEMENT FOR THE OLD C.MAC.
REFERENCES TO C.MAC SHOULD
;GO AWAY IN FAVOR OF "SEARCH MACTEN,UUOSYM".
;DEFINE %.C TO LIST FILE
;DEFINE %.C==-1 TO ASSEMBLE C IN BOTH PASSES
;DEFINE %.C==-2 TO ALSO INCLUDE END STATEMENT
;DEFINE %.C==-3 TO MAKE C A UNIVERSAL FILE
;DETERMINE IF SPECIAL ASSEMBLY NEEDED
IF1,&%..C==1 ;ALWAYS ASSEMBLE PASS1
IFDEF %.C,& IFE %.C+2,&TITLE C -- LISTING OF C.MAC (CUSP PARAMETER FILE)&
IFE %.C+3,&UNIVERSAL C -- CUSP PARAMETER UNIVERSAL SYMBOL TABLE
.DIRECTIVE .NOBIN&
IF2,&IFNDEF %.C,&%..C==0& ;SUPPLY VALUE IF USER DIDN'T
IFDEF %.C,&%..C==%.C ;USE USER'S VALUE FOR PASS2&
;DEFINE JOBDAT LOCATIONS WHICH CAN BE LOC-ED TO
IFN %..C+3,&
GLOB &.JB41,.JBCST,.JBOPS,.JBREN,.JBVER&
;CLEAN EXPANSION LISTINGS
IFE %..C,&PURGE %.C,%..C
TAPE& ;SKIP REST IF NO ASSEMBLY NEEDED
SUBTTL DEC-10 UNIVERSAL PARAMETERS %1(24) 4-JAN-75
IFDEF %..C,&IFE %..C,& .CREF
IFNDEF %..C,&UNIVER MACTEN DECsystem-10 Common Parameter File
.DIRECTIVE .NOBIN&
;***Copyright (C) 73, Digital Equipment Corp., Maynard, Mass.***
;THIS PARAMETER FILE CONTAINS MACRO DEFINITIONS, SYMBOL DEFINITIONS
; AND OPDEFS WHICH ARE OPERATING SYSTEM INDEPENDENT.
; FILE WAS ORIGINALLY PART OF C.MAC THE TOPS-10 CUSP UUO
; PARAMETER FILE.
;LAST PATCHER
;MAJOR VERSION
;MINOR VERSION
MACEDT==24
;EDIT LEVEL
SUBTTL TABLE OF CONTENTS
1. REVISION HISTORY......................................
2. INTERESTING SYMBOLS...................................
3. MACRO DEFINITIONS -- ND, XP, EXT, GLOB................
4. MACRO DEFINITIONS -- LISTING CONTROL..................
5. MACRO DEFINITIONS -- BYTE MANIPULATION................
6. MACRO DEFINITIONS -- INFO/REDEF.......................
7. MACRO DEFINITIONS -- STACK CONTROL....................
8. SIMPLE STRUCTURE AND LOAD/STORE.......................
9. FLAG DEFINITIONS......................................
10. MACRO DEFINITIONS -- GENERATE OP CODES ABCX...........
11. MACRO DEFINITIONS -- JUMPPT...........................
12. USEFUL OPDEFS.........................................
13. SYMBOLS FOR THE CONTROL CHARACTERS....................
14. HARDWARE BITS OF INTEREST TO USERS....................
SUBTTL REVISION HISTORY
;BASED UPON C.MAC %7(163) RELEASED MAY, 1974
;VERSIONS RESET WHEN CREATED
;1 CREATION
;2 CLEAN UP AND CORRECT BUGS INTRODUCED IN ORIGINAL SPLIT
;3 (10-14,209) REMOVE PDP-6 TEST IF SAME AS KA IN JUMPPT
;4 MASK DOWN VALUE IN INSVL.
;5 (10-14,209) ADD .SUA?? SYMBOLS
;6 ADD LSTOF., LSTON.
;7 ADD VRSN. AND VR.???
;10 ADD SHOW.
;11 ADD CONT.
;12 ADD DEFST., LOAD., STOR.
;13 ADD FLAG., LFLAG., SFLAG. AND CHANGE TX??
;14 ADD .LHALF, .RHALF, .FWORD
;15 ADD .ZERO5
;16 ADD FRAME.
;17 ADD TY??.
;20 ADD ZERO.
;21 ADD NDS.
;22 SIMPLIFY INSVL.
;23 ADD KL-10 IN JUMPPT
;24 WITHDRAW 13 UNTIL UNDERSTOOD
SUBTTL INTERESTING SYMBOLS
;VERSION FORMAT COMPONENTS
VR.WHO==7B2 ;WHO EDITTED (0=DEC DEVELOPMENT, 1=OTHER DEC,
2-4=CUSTOMER, 5-7=END USER)
VR.VER==777B11 ;MAJOR DEC VERSION
VR.MIN==77B17 ;MINOR DEC VERSION (1=A, ETC.)
VR.EDT==777777 ;EDIT LEVEL
;MACRO TO FORMAT THIS MODULE'S VERSION
; VRSN. PREFIX
;ASSUMES SYMBOLS OF FORM PREFIX'CUS, ..VER, ETC.
DEFINE VRSN.(PFX),&BYTE (3)PFX'WHO (9)PFX'VER (6)PFX'MIN (18)PFX'EDT&
;MISC. CONSTANTS
.INFIN==7777 ;PLUS INFINITY
.MINFI==1B0
;MINUS INFINITY
LH.ALF== ;LEFT HALF WORD
RH.ALF==777777
;RIGHT HALF WORD
FW.ORD==-1
;FULL WORD
;MNEMONIC THAT NO @ OR INDEX POSSIBLE
SUBTTL MACRO DEFINITIONS -- ND, XP, EXT, GLOB
;MACRO TO DEFINE A SYMBOL IF NOT ALREADY DEFINED
SYMBOL,VALUE
DEFINE ND(SYMBOL,VALUE),&
IFNDEF SYMBOL,&SYMBOL==VALUE&
;MACRO TO SHOW THE VALUE OF AN ABSOLUTE SYMBOL
; SHOW SYMBOL
;WARNING-- DO NOT USE AS LAST LOCATION IN A SEGMENT
DEFINE SHOW.(ARG$),& .XCREF
EXP &ARG$&
;MACRO TO DEFINE A SYMBOL IF NOT ALREADY DEFINED AND SHOW ITS VALUE
;WARNING-- DO NOT USE AS LAST LOCATION IN A SEGMENT
DEFINE NDS.(SYMBOL,VALUE),&
IFNDEF SYMBOL,&SYMBOL==VALUE&
SHOW. (SYMBOL)
;MACRO TO DEFINE A SYMBOL AND FORCE IT INTERN
SYMBOL,VALUE,PRINT
WHERE PRINT IS NON-BLANK TO PRINT OUT FROM DDT
DEFINE XP(SYMBOL,VALUE,PRINT),&
INTERN SYMBOL
&PRINT&,&SYMBOL==VALUE&
IFNB &PRINT&,&SYMBOL=VALUE&
;MACRO TO EXTERN A SYMBOL IF NOT DEFINED IN THIS ROUTINE
; EXT SYMBOL
DEFINE EXT(SYMBOL),&
IRP SYMBOL,&
IF2,& IFNDEF SYMBOL,&EXTERN SYMBOL& &&&
;MACRO TO EXTERN OR INTERN A SYMBOL
; GLOB SYMBOL
DEFINE GLOB(SYMBOL),&
IRP SYMBOL,&
IF2,& IFDEF SYMBOL,&INTERN SYMBOL&
IFNDEF SYMBOL,&EXTERN SYMBOL&
SUPPRE SYMBOL&&&
SUBTTL MACRO DEFINITIONS -- LISTING CONTROL
;THIS MACRO IS USED TO FORCE A PAGE OVERFLOW WITH COMMENT
;TO HAVE LISTINGS MATCH THE PROPOSED CODING STANDARD.
;IT IS INVOKED WHENEVER A PAGE OVERFLOW WOULD HAVE HAPPENED.
;ACCORDING TO THE PROPOSED STANDARD, ALL SOURCE FOR A ROUTINE
;MUST OCCUR ON ONE PAGE. HOWEVER, IT IS IMPORTANT FOR THE
;USER TO FIND "SENTENCE" BREAKS TO FORM THE OVERFLOW (EJECT)
;POINTS. WHENEVER OVERFLOW OCCURS, A COMMENT
;TO THAT EFFECT SHOULD APPEAR IN THE LISTING. ALL THIS IS
;ACCOMPLISHED BY THE USER INCLUDING THE MACRO "CONT." IN HIS
;SOURCE AT THE POINT OF THE OVERFLOW. NO BLANKS SHOULD PRECEED
;OR FOLLOW THE MACRO.
DEFINE CONT.&LALL
PAGE ;(CONTINUED ON NEXT PAGE)
SALL ;(CONTINUED FROM PREVIOUS PAGE)
;MACROS TO TURN ON AND OFF LISTINGS WHEN NESTING
TURNS OFF LISTING AND CREF
; LSTOF. X TURNS OFF LISTING
RESTORES LISTING AND CREF IF TOP LEVEL
;IF LSTIN. IS DEFINED AS .MINFI, THEN ALL LISTINGS ON
DEFINE LSTOF.(CREF$),&
IFNDEF LSTIN., LSTIN.==0
IFE LSTIN.,&
IFB &CREF$&, .XCREF
LSTIN.==LSTIN.+1
DEFINE LSTON.,&
IFG LSTIN., LSTIN.==LSTIN.-1
IFLE LSTIN.,& .CREF
SUBTTL MACRO DEFINITIONS -- BYTE MANIPULATION
;MACRO TO COMPUTE THE WIDTH OF A MASK
; "WID" RETURNS THE LENGTH OF THE LEFTMOST STRING OF
; CONSECUTIVE ONES IN THE WORD.
DEFINE WID(MASK),&&^L&-&&MASK&_&^L&MASK&&&-1&&&
;MACRO TO COMPUTE THE POSITION OF A MASK
DEFINE POS(MASK),&&^L&MASK&+^L&-&&MASK&_&^L&MASK&&&-1&-1&&
;MACRO TO BUILD A POINTER TO A MASKED QUANTITY
; POINTR LOCATION,MASK
DEFINE POINTR(LOC,MASK),&&POINT WID(MASK),LOC,POS(MASK)&&
;MACRO TO BUILD A MASK "WID" BITS WIDE, WITH ITS RIGHTMOST BIT
; IN THE BIT POSITION "POS".
(I.E. A MASK FOR THE BYTE
; POINTED TO BY THE BYTE POINTER "POINT
WID,LOC,POS")
DEFINE MASK.(WID,POS),&&&&1_&WID&&-1&B&POS&&&
;MACRO TO DEFINE A SYMBOL WITH ONLY ONE BIT ON, IN THE SAME POSITION AS
; THE RIGHTMOST BIT IN "MASK" (OR 0, IF "MASK" = 0)
DEFINE RGHBT.(MASK),&&&MASK&&-&MASK&&&
;MACRO TO DEFINE A SYMBOL WITH ONLY ONE BIT ON, IN THE SAME POSITION AS
; THE LEFTMOST BIT IN "MASK" (OR 0, IF "MASK" = 0)
DEFINE LFTBT.(MASK),&&1B&^L&MASK&&&&
; "FILIN." RETURNS A WORD WITH A CONSECUTIVE STRING OF ONES FROM THE
; BIT POSITION OF THE LEFTMOST ONE IN "MASK" THROUGH THE BIT POSITION
; OF THE RIGHTMOST ONE IN "MASK" INCLUSIVE.
DEFINE FILIN.(MASK),&&&MASK&!&&LFTBT.(MASK)&-&RGHBT.(MASK)&&&&
; "ALIGN." RETURNS THE NUMBER OF TRAILING ZEROS IN "MASK"
; (I.E. A VALUE WHICH IS THE RIGHT COUNTERPART OF THE VALUE
; RETURNED BY THE MACRO-10 OPERATOR "^L")
DEFINE ALIGN.(MASK),&&^D35-&^L&RGHBT.(MASK)&&+&^D37*&&^L&RGHBT.(MASK)&&/^D36&&&&
; BTSWP.(AC,BIT-1,BIT-2) SWAPS BITS 1 AND 2 IN AC.
BIT-1 AND BIT-2 ARE DECIMALS 0-35
DEFINE BTSWP.(AC,BIT1,BIT2),&
REPEAT 3,&
TXCE AC,1B&BIT1&!1B&BIT2&
; "INSVL." POSITIONS VALUE IN MASK
DEFINE INSVL.(VALUE,MASK),&&&&VALUE&B&POS(&MASK&)&&&&MASK&&&
SUBTTL MACRO DEFINITIONS -- INFO/REDEF
;THE FOLLOWING MACROS FACILITATE THE ACCUMULATION OF TEXT BY PERMITTING
;THE USER TO APPEND A LINE OF TEXT TO THE BODY OF TEXT ALREADY
;ACCUMULATED.
THE MACROS ARE USED IN THE FOLLOWING WAY:
TO CLEAR THE MECHANISM:
TO APPEND THE LINE "SAMPLE LINE" (FOLLOWED BY CR-LF) TO THE
;END OF THE TEXT ACCUMULATED SO FAR:
; INFO. REDEF.,"SAMPLE LINE"
TO DEFINE A MACRO "NAME" SO THAT ITS EXPANSION WILL BE THE TEXT
;ACCUMULATED SO FAR, (NOTE-IT ADDS A NULL LINE TO THE END):
; INFO. DEFINE "NAME"
DEFINE CINFO. &
DEFINE INFO.(OPCODE,NEWARG)&
OPCODE NEWARG&&
DEFINE REDEF.(OLDARG)&
DEFINE INFO.(OPCODE,NEWARG)&
OPCODE &OLDARG
SUBTTL MACRO DEFINITIONS -- STACK CONTROL
;MACRO TO DEFINE A BUNCH OF WORDS ON THE STACK.
;EACH ARGUMENT TO THE FRAME. MACRO ALLOCATES 1 WORD ON THE
STACK AND DEFINES A MACRO WITH THE SAME NAME AS -N(P).
;WARNING: THIS MACRO DEFINES THINGS IN TERMS OF (P) AND THEREFOR
; NOTHING ELSE MAY BE PUSHED ON THE STACK!!!
DEFINE FRAME. (LIST,%A),&
OLD%%%==10 ;;SAVE CURRENT RADIX
;;ARGUMENT COUNT
IRP LIST,&
FR%%AM (LIST,\&N%%%+1&) ;;DEFINE SYMBOL MACRO
N%%%==N%%%+1
;;COUNT ARGS
ADD P,[N%%%,,N%%%] ;;ALLOCATE SPACE
PUSHJ P,%A
;;DO THE SUBROUTINE
AOS -N%%%(P) ;;PASS ON SKIP RETURN
SUB P,[N%%%,,N%%%] ;;DEALLOCATE SPACE
RADIX OLD%%%
PURGE N%%%,OLD%%%
DEFINE FR%%AM (A,B),&
DEFINE A,&-^O'B(P)&
SUBTTL SIMPLE STRUCTURE AND LOAD/STORE
;MACROS TO DEFINE AND LOAD/STORE A BYTE LOCATION
;MACRO DEFST. (BYTE NAME, WORD LOCATION, MASK)
; DEFINES THE LOCATION AND SIZE OF THE BYTE
DEFINE DEFST.(NAM$,LOC$,MASK$),&
IFE &MASK$&+1,..TYP==0
IFE &MASK$&-^O777777,..TYP==1
IFE &MASK$&-^O,..TYP==2
..POS==POS(&MASK$&)
..WID==WID(&MASK$&)
DF%%ST (\..TYP,NAM$,&LOC$&,\..POS,\..WID)
PURGE ..OLD,..TYP,..POS,..WID&
; THIS IS A HELPER MACRO FOR INTERNAL USE
DEFINE DF%%ST (TYP$,NAM$,LOC$,POS$,WID$),&
RADIX ..OLD
DEFINE NAM$ (OPS,AC,E),&
IFE TYP$-..C,&
IFN 3-..C, OPS &AC&,LOC$''E
IFE 3-..C, OPS &AC&,[POINT WID$,LOC$''E,POS$]
..C==..C+1&
PURGE ..C&
;MACRO LOAD. (AC, BYTE NAME, OPTIONAL LOC)
; WILL LOAD AC WITH THE CONTENTS OF THE BYTE. IF AND ONLY
; NO LOCATION WAS GIVEN IN DEFST., GIVE IT IN LOAD.
;MACRO STOR. IS IDENTICAL EXCEPT THE AC IS STORED INTO THE BYTE.
;MACRO ZERO. IS IDENTICAL (FIRST ARG IGNORED) EXCEPT ZERO IS STORED
DEFINE LOAD. (AC$,STR$,E$),& STR$ (&MOVE,HRRZ,HLRZ,LDB&,&AC$&,&E$&)&
DEFINE STOR. (AC$,STR$,E$),& STR$ (&MOVEM,HRRM,HRLM,DPB&,&AC$&,&E$&)&
DEFINE ZERO. (AC$,STR$,E$),& STR$ (&SETZM,HLLZS,HRRZS,&PRINTX ?CAN'T ZERO BYTE&&,&AC$&,&E$&)&
SUBTTL FLAG DEFINITIONS
;MACRO FLAG. DEFINES A LIST OF FLAGS AS BEING IN
;A PARTICULAR REGISTER IN SUCH A FASHION THAT
;THE BITS ARE ASSIGNED AT ASSEMBLY TIME AND THE REGISTER AND
;BITS ARE "REMEMBERED" FOR FUTURE USE IN THE TX?? MACROS.
;;THIS WILL BE DEFINED AT SOME FUTURE TIME AND VERSION.
SUBTTL MACRO DEFINITIONS -- GENERATE OP CODES ABCX
;MACRO TO GENERATE MOVEI, MOVSI, OR MOVE [] AS APPROPRIATE
; ALSO HRLOI, HRROI
DEFINE MOVX (AC,FLAG),&
IFE &&FLAG&_-^D18&,&
MOVEI AC,&FLAG&
IFN &FLAG&,&
IFE &&FLAG&_^D18&,&
MOVSI AC,(FLAG)
IFE &&&FLAG&_-^D18&-^O777777&,&
HRROI AC,&FLAG&
IFE TEST%%,&
IFE &&&FLAG&_^D18&-^O&,&
HRLOI AC,(&FLAG&-^O777777)
IFE TEST%%,&
MOVE AC,[FLAG]
PURGE TEST%%
;STORE (AC,FIRST,LAST,CONSTANT) PUTS CONSTANT IN FIRST THRU LAST.
DEFINE STORE(AC,FIRST,LAST,CONS),&
IFE &CONS&,& SETZM FIRST& ;;IF CONS=0, CLEAR FIRST
IFE &CONS&+1,& SETOM FIRST& ;;IF CONS=-1, SET FIRST TO -1
IFN &CONS&*&&CONS&+1&,&MOVX AC,&CONS& ;;ELSE DO IT
MOVEM AC,FIRST& ;; THE HARD WAY
IFNB &LAST&,&
;;IF MORE THAN ONE LOCATION
MOVE AC,[FIRST,,FIRST+1]
BLT AC,LAST
;;DISTRIBUTE THE CONSTANT
;GENERATE CAI OR CAM AS APPROPRIATE
DEFINE CAX (AC,VAL),&OP%%CA (AC,VAL,)&
DEFINE CAXL (AC,VAL),&OP%%CA (AC,VAL,L)&
DEFINE CAXLE (AC,VAL),&OP%%CA (AC,VAL,LE)&
DEFINE CAXE (AC,VAL),&OP%%CA (AC,VAL,E)&
DEFINE CAXG (AC,VAL),&OP%%CA (AC,VAL,G)&
DEFINE CAXGE (AC,VAL),&OP%%CA (AC,VAL,GE)&
DEFINE CAXN (AC,VAL),&OP%%CA (AC,VAL,N)&
DEFINE CAXA (AC,VAL),&OP%%CA (AC,VAL,A)&
DEFINE OP%%CA (AC,VALUE,CODE),&
IFE &&VALUE&_-^D18&,&
CAI'CODE AC,&VALUE&
IFN &&VALUE&_-^D18&,&
CAM'CODE AC,[VALUE]
;GENERATE IMMEDIATE OR MEMORY CONSTANTS
DEFINE ADDX (AC,VAL),&OP%%IA (AC,VAL,ADD,SUB)&
DEFINE SUBX (AC,VAL),&OP%%IA (AC,VAL,SUB,ADD)&
DEFINE MULX (AC,VAL),&OP%%IN (AC,VAL,MUL)&
DEFINE IMULX (AC,VAL),&OP%%IN (AC,VAL,IMUL)&
DEFINE DIVX (AC,VAL),&OP%%IN (AC,VAL,DIV)&
DEFINE IDIVX (AC,VAL),&OP%%IN (AC,VAL,IDIV)&
DEFINE OP%%IA (AC,VALUE,CODE,ALT),&
IFE &&&VALUE&_-^D18&-^O777777&,&
ALT'I AC,-&VALUE&
IFN &&&VALUE&_-^D18&-^O777777&,&
OP%%IN AC,&VALUE&,CODE
DEFINE OP%%IN (AC,VALUE,CODE),&
IFE &&VALUE&_-^D18&,&
CODE'I AC,&VALUE&
IFN &&VALUE&_-^D18&,&
CODE AC,[VALUE]
;GENERATE IMMEDIATE OR MEMORY FOR FLOATING POINT
DEFINE FADRX (AC,VAL),&OP%%FA (AC,VAL,FADR,FSBR)&
DEFINE FSBRX (AC,VAL),&OP%%FA (AC,VAL,FSBR,FADR)&
DEFINE FMPRX (AC,VAL),&OP%%FP (AC,VAL,FMPR)&
DEFINE FDVRX (AC,VAL),&OP%%FP (AC,VAL,FDVR)&
DEFINE OP%%FA (AC,VALUE,CODE,ALT),&
IFE &&&VALUE&_^D18&-^O&,&
ALT'I AC,(-&VALUE&)
IFN &&&VALUE&_^D18&-^O&,&
OP%%FP AC,&VALUE&,CODE
DEFINE OP%%FP (AC,VALUE,CODE),&
IFE &&VALUE&_^D18&,&
CODE'I AC,(VALUE)
IFN &&VALUE&_^D18&,&
CODE AC,[VALUE]
;MACRO TO GENERATE MACROS OF THE FORM TXYY.
THESE MACRO REPLACE
; A TLYY OR A TRYY DEPENDING UPON THEIR ARGUMENT. SEE EXAMPLES:
; TXNE F,1B20
TRNE F,1B20
; TXON F,1B0
TLON F,(1B0)
; TXZ F,1B1!1B31
TDZ F,[1B1!1B31]
;IF CALLED WITH ONLY ONE ARG, IT IS ASSUMED TO BE DEFINED BY A FLAG. MACRO
DEFINE TX0%% (M,S),&
DEFINE TX'M'S (AC,FLAG),&
&FLAG&, OP%%TX &^O&AC&,1B&AC_-^D30&,TL'M'S,TR'M'S,TD'M'S
IFNB &FLAG&, OP%%TX AC,&FLAG&,TL'M'S,TR'M'S,TD'M'S
TX0%% &N,Z,O,C&,&E,N,A&
PURGE TX0%%
DEFINE TXN (AC,FLAG),&
IFB &FLAG&, JFCL 0
IFNB &FLAG&, TRN AC,&,,&FLAG&&
DEFINE TXZ (AC,FLAG),&
IFB &FLAG&, TXZ (&^O&AC&,1B&AC_-^D30&)
IFNB &FLAG&,&
IFN &&AC&&^O&, PRINTX ? AC IS NOT AN ACCUMULATOR
IFE &&&FLAG&_-^D18&-^O777777&,&
ANDI AC,&,,-1-&FLAG&&
IFN &&&FLAG&_-^D18&-^O777777&,&
OP%%TX AC,&FLAG&,TLZ,TRZ,TDZ
DEFINE TXO (AC,FLAG),&
IFB &FLAG&, TXO (&^O&AC&,1B&AC_-^D30&)
IFNB &FLAG&,&
IFN &&AC&&^O&, PRINTX ? AC IS NOT AN ACCUMULATOR
IFE &&&FLAG&_-^D18&-^O777777&,&
ORCMI AC,&,,-1-&FLAG&&
IFN &&&FLAG&_-^D18&-^O777777&,&
OP%%TX AC,&FLAG&,TLO,TRO,TDO
DEFINE TXC (AC,FLAG),&
IFB &FLAG&, TXC (&^O&AC&,1B&AC_-^D30&)
IFNB &FLAG&,&
IFN &&AC&&^O&, PRINTX ? AC IS NOT AN ACCUMULATOR
IFE &&&FLAG&_-^D18&-^O777777&,&
EQVI AC,&,,-1-&FLAG&&
IFN &&&FLAG&_-^D18&-^O777777&,&
OP%%TX AC,&FLAG&,TLC,TRC,TDC
DEFINE OP%%TX (AC,FLAG,L,R,D)&
IFN &&AC&&^O&, PRINTX ? AC IS NOT AN ACCUMULATOR
IFE &&FLAG&_^D18&,&
IFN &FLAG&,&
L AC,(FLAG)
IFE &&FLAG&_-^D18&,&
R AC,&FLAG&
IFE TEMP%%,&
D AC,[FLAG]
PURGE TEMP%%
;DEFINE MNEMONIC CODES FOR SOME OF ABOVE
DEFINE IORX (AC,FLAG),&TXO AC,&FLAG&&
DEFINE ANDX (AC,FLAG),&TXZ AC,-1-&FLAG&&
DEFINE XORX (AC,FLAG),&TXC AC,&FLAG&&
;MACROS TO TEST AND SET/CLEAR/COMPLEMENT FLAGS WHICH ARE NOT
;IN ACCUMULATORS. BE VERY CAREFUL THAT THESE GENERATE TWO
;INSTRUCTIONS, SO CAN NOT BE SKIPPED OVER.
;THEY EACH HAVE TWO ARGUMENTS, THE FIRST IS A SCRATCH AC
; AND THE SECOND IS THE FLAG WHICH WAS DEFINED IN A FLAG. MACRO.
DEFINE TYNE. (AC,FLAG),&
MOVX AC,1B&FLAG_-^D30&
&TDNE AC,&!&&FLAG&
DEFINE TYNN. (AC,FLAG),&
MOVX AC,1B&FLAG_-^D30&
&TDNN AC,&!&&FLAG&
DEFINE TYO. (AC,FLAG),&
MOVX AC,1B&FLAG_-^D30&
&IORM AC,&!&&FLAG&
DEFINE TYZ. (AC,FLAG),&
MOVX AC,1B&FLAG_-^D30&
&ANDCAM AC,&!&&FLAG&
DEFINE TYC. (AC,FLAG),&
MOVX AC,1B&FLAG_-^D30&
&XORM AC,&!&&FLAG&
;NOTE - "TXNI.", "TXND.", "JUMPI." & "JUMPD." MAY ASSEMBLE AS ONE OR MORE
; INSTRUCTIONS, DEPENDING ON THE ACTUAL VALUES OF THEIR ARGUMENTS.
; IN ALL CASES WHERE THE MACRO EXPANSION IS MORE THAN ONE INSTRUCTION
; IT WILL BE TRUE THAT IF CONTROL ARRIVES AT THE SECOND INSTRUCTION
; OF THE MACRO EXPANSION, CONTROL WILL UNCONDITIONALLY BE PASSED TO
; THE INSTRUCTION IMMEDIATELY FOLLOWING THE LAST INSTRUCTION OF THE
; MACRO EXPANSION (WITHOUT HAVING ALTERED ANY PART OF THE MACHINE
; STATE OTHER THAN THE PC). THUS A SKIP TYPE INSTRUCTION IMMEDIATELY
; PRECEEDING A "TXNI.", "TXND.", "JUMPI.", OR "JUMPD." MACRO WILL HAVE
; THE EFFECT OF SKIPPING OVER THE ENTIRE MACRO EXPANSION.
;TEST (BUT DON'T MODIFY) THE FIELD
; (IN "AC") SPECIFIED BY "MASK" AND SKIP IF IT IS IDENTICAL TO "PATERN"
DEFINE TXNI.(AC,MASK,PATERN),&
IFE &&MASK&_&1+^L&MASK&&&,&
IFE &&MASK&&&PATERN&&,&
TXNE AC,&MASK&
IFN &&MASK&&&PATERN&&,&
TXNN AC,&MASK&
IFN &&MASK&_&1+^L&MASK&&&,&
TXCA AC,&&PATERN&&&MASK&&
TXCE AC,&&PATERN&&&MASK&&
TXNE AC,&&-&PATERN&-1&&&MASK&&
;TEST (BUT DON'T MODIFY) THE FIELD
; (IN "AC") SPECIFIED BY "MASK" AND SKIP IF IT IS DIFFERENT THAN "PATERN"
DEFINE TXND.(AC,MASK,PATERN),&
IFE &&MASK&_&1+^L&MASK&&&,&
IFE &&MASK&&&PATERN&&,&
TXNN AC,&MASK&
IFN &&MASK&&&PATERN&&,&
TXNE AC,&MASK&
IFN &&MASK&_&1+^L&MASK&&&,&
TXCA AC,&&PATERN&&&MASK&&
TXCE AC,&&PATERN&&&MASK&&
TXNN AC,&&-&PATERN&-1&&&MASK&&
;JUMP TO "LOCATN" IF THE FIELD
; (IN "AC") SPECIFIED BY "MASK" IS IDENTICAL TO "PATERN"
DEFINE JUMPI.(AC,MASK,PATERN,LOCATN),&
IFE &&MASK&_1&,&
IFE &MASK&,&
JUMPA AC,LOCATN
IFN &MASK&,&
IFE &&PATERN&&&MASK&&,&
JUMPGE AC,LOCATN
IFN &&PATERN&&&MASK&&,&
JUMPL AC,LOCATN
IFN &&MASK&_1&,&
TXCA AC,&&PATERN&&&MASK&&
TXCE AC,&&PATERN&&&MASK&&
TXNN AC,&&-&PATERN&-1&&&MASK&&
JRST LOCATN
;JUMP TO "LOCATN" IF THE FIELD
; (IN "AC") SPECIFIED BY "MASK" IS DIFFERENT THAN "PATERN"
DEFINE JUMPD.(AC,MASK,PATERN,LOCATN)
&IFE &&MASK&_1&,&
IFE &MASK&,&
JUMP AC,LOCATN
IFN &MASK&,&
IFE &&PATERN&&&MASK&&,&
JUMPL AC,LOCATN
IFN &&PATERN&&&MASK&&,&
JUMPGE AC,LOCATN
IFN &&MASK&_1&,&
TXCA AC,&&PATERN&&&MASK&&
TXCE AC,&&PATERN&&&MASK&&
JRST LOCATN
TXNE AC,&&-&PATERN&-1&&&MASK&&
JRST LOCATN
SUBTTL MACRO DEFINITIONS -- JUMPPT
;MACRO TO JUMP DEPENDING UPON PROCESSOR TYPE
;CALL: JUMPPT TEMPAC,PDP-6 ADDR,KA-10 ADDR,KI-10 ADDR,KL-10 ADDR
; WHERE TEMPAC IS AN AC TO USE AS A TEMP
; BLANK PROCESSORS FALL THROUGH TO NEXT INSTRUCTION
DEFINE JUMPPT (AC,CP166,KA10,KI10,KL10,KX,KY,KZ,%1),&
IFDIF &CP166&&KA10&,&
JFCL 1,.+1
;;CLEAR PC-CHANGE FLAG
;;SET PC-CHANGE
IFNB &CP166&,& JFCL 1,CP166
IFNB &KA10&,&IFIDN &KA10&&KI10&,&IFIDN &KI10&&KL10&,& JRST KA10&&&&
IFB &CP166&,& JFCL 1,%1
IFIDN &KA10&&KI10&,&IFIDN &KI10&&KL10&,& JRST KA10&&&
&;;END IFDIF &CP166&&KA10&
IFDIF &KA10&&KI10&,&
HRLOI AC,-2
;;SET FOR KA/KI TEST
IFNB &KA10&,& AOBJP AC,KA10
IFNB &KI10&,&IFIDN &KI10&&KL10&,&JRST KI10&&&
IFB &KA10&,&IFDIF &KI10&&KL10&,&AOBJP AC,%1&
IFIDN &KI10&&KL10&,&AOBJN AC,KI10&&
&;;END IFDIF &KA10&&KI10&
IFDIF &KI10&&KL10&,&
IF2,&IFE AC,&PRINTX ? AC MUST BE NON-ZERO IN JUMPPT&&
MOVEI AC,0
;;SET FOR KI/KL TEST
IFNB &KI10&,& JUMPE AC,KI10
IFNB &KL10&,& JRST KL10&&
IFB &KI10&,& JUMPN AC,KL10&
&;;END IFDIF &KI10&&KL10&
;DEFINE UNITS OF STORAGE ALLOCATION
.SUAP6==^D1024 ;PDP-6
.SUAKA==^D1024 ;KA-10
.SUAKI==^D512 ;KI-10
.SUAKL==^D512 ;KL-10
SUBTTL USEFUL OPDEFS
OPDEF PJRST [JRST]
;PUSHJ/POPJ
OPDEF PJRSTF [JRSTF]
;PUSHJ/POPJ
OPDEF PJSP [JSP]
;MOVEI .+1/PUSHJ/POPJ
OPDEF PJUMPL [JUMPL]
OPDEF PJMPLE [JUMPLE]
OPDEF PJUMPE [JUMPE]
OPDEF PJUMPN [JUMPN]
OPDEF PJUMPG [JUMPG]
OPDEF PJMPGE [JUMPGE]
;OPDEF THE KI-10 CONCEALED PAGE GATE-KEEPER
OPDEF PORTAL [JRST 1,]
SUBTTL SYMBOLS FOR THE CONTROL CHARACTERS
.CHNUL==000 ;NULL
.CHCNA==001
.CHCNB==002
.CHCNC==003
.CHCND==004
.CHCNE==005
.CHCNF==006
.CHBEL==007 ;BELL
.CHCNH==010
.CHTAB==011 ;TAB
.CHLFD==012 ;LINE-FEED
.CHVTB==013 ;VERTICAL TAB
.CHFFD==014 ;FORM FEED
.CHCRT==015 ;CARRIAGE RETURN
.CHCNN==016
.CHCNO==017
.CHCNP==020
.CHCNQ==021
.CHCNR==022
.CHCNS==023
.CHCNT==024
.CHCNU==025
.CHCNV==026
.CHCNW==027
.CHCNX==030
.CHCNY==031
.CHCNZ==032
.CHESC==033 ;ESCAPE
.CHCBS==034 ;CONTROL BACK SLASH
.CHCRB==035 ;CONTROL RIGHT BRACKET
.CHCCF==036 ;CONTROL CIRCONFLEX
.CHCUN==037 ;CONTROL UNDERLINE
.CHALT==175 ;OLD ALTMODE
.CHAL2==176 ;ALTERNATE OLD ALTMODE
.CHDEL==177 ;DELETE
SUBTTL HARDWARE BITS OF INTEREST TO USERS
PC.OVF==1B0 ;OVERFLOW
PC.CY0==1B1 ;CARRY 0
PC.CY1==1B2 ;CARRY 1
PC.FOV==1B3 ;FLOATING OVERFLOW
PC.BIS==1B4 ;BYTE INCREMENT SUPPRESSION
PC.USR==1B5 ;USER MODE
PC.UIO==1B6 ;USER IOT MODE
PC.LIP==1B7 ;LAST INSTRUCTION PUBLIC
PC.AFI==1B8 ;ADDRESS FAILURE INHIBIT
PC.ATN==3B10 ;APR TRAP NUMBER
PC.FUF==1B11 ;FLOATING UNDERFLOW
PC.NDV==1B12 ;NO DIVIDE
%%MACT==&VRSN. (MAC)&
PURGE MACWHO,MACVER,MACMIN,MACEDT
IF1,& ASUPPRESS&
IFNDEF %..C,&END& ;END UNIVERSAL OF MACTEN
SUBTTL UUO PARAMETERS /DAL
IFDEF %..C,&IFE %..C,& .CREF
IFNDEF %..C,&
UNIVERSAL UUOSYM -- UUO SYMBOLS FOR USER PROGRAMS
%%MACT==:%%MACT
;SHOW VERSION
;***Copyright (C) 73,76,1977 Digital Equipment Corp., Maynard, Mass.***
;THIS IS THE DEFINITION FILE OF ALL PUBLISHED
;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
;VERSION INFORMATION
;LAST MODIFIER
UUOVER==12
;MAJOR VERSION
;MINOR VERSION
UUOEDT==336
;EDIT LEVEL
SUBTTL TABLE OF CONTENTS
TABLE OF CONTENTS FOR UUOSYM
1. TABLE OF CONTENTS.........................................
2. REVISION HISTORY..........................................
3. NAMING CONVENTIONS........................................
4. UPDATE AND CHECKOUT INSTRUCTIONS..........................
5. ALL JOBDAT SYMBOLS........................................
6. GTMSG. MACRO..............................................
BASIC UUOS........................................
MTAPE FUNCTIONS...................................
TTCALL FUNCTIONS..................................
CALLI FUNCTIONS...................................
8. GETTAB CONSTITUENTS.......................................
9. MISC. NON-I/O
TMPCOR............................................
LOCK..............................................
RTTRP.............................................
JOBSTS............................................
HIBER.............................................
APRENB............................................
SAVE/GET LOCATIONS................................
SETUUO............................................
SCHED.............................................
ATTACH............................................
ACCT..............................................
10. UNIVERSAL DEVICE INDEX....................................
11. .JBINT INTERCEPT BLOCK....................................
12. PSI SOFTWARE INTERRUPT SYSTEM.............................
13. IPCF INTERPROCESS COMMUNICATION FACILITY..................
14. PAGE AND VM
VIRTUAL MEMORY FACILITY......................
15. DAEMON CALLS..............................................
16. PERFORMANCE ANALYSIS
METER MONITOR CALL................................
PERF. MONITOR CALL................................
17. ENQUEUE AND DEQUEUE SYMBOLS
GENERAL FORMAT OF ARG BLOCK.......................
FUNCTION CODES....................................
FORMAT OF STATUS BLOCKS...........................
FORMAT OF DUMP....................................
ERROR CODES.......................................
18. FILE DAEMON...............................................
19. MISC. I/O
DEVCHR............................................
DEVTYP............................................
MTCHR.............................................
TAPOP.............................................
WHERE.............................................
CAL11.............................................
DTE...............................................
DEVOP.............................................
GETLCH AND TRMOP..................................
GETSTS AND SETSTS.................................
OPEN AND CLOSE....................................
FILOP.............................................
BUFFER HEADER AND BUFFER'S CONTROL BLOCK FORMATS..
MVHDR.............................................
CNECT.,SENSE., CLRST..............................
DEVLNM............................................
DEVSIZ............................................
MTAID.............................................
NODE..............................................
GTNTN.,GTXTN......................................
20. DISK UUOS
DSKCHR............................................
CHKACC............................................
DISK..............................................
JOBSTR............................................
GOBSTR............................................
SUSET.............................................
PATH..............................................
STRUUO............................................
21. LOOKUP/ENTER/RENAME.......................................
22. EXTENDED I/O ERRORS.......................................
23. ..........................................................
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 5) 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 5/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-336 UPDATE SYMBOLS TO 6.03 LOAD 277
;%12(336) MARCH 77 6.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
COMPARE CREFS OF F% IN C VS. FT IN DATMAN
VERIFY NO $ IN CREF IN C AND THAT ONLY LEGAL PATTERNS EXIST
UPDATE CALLI TABLE FROM UUOCON
UPDATE GETTAB LIST OF TABLES (.GTABC) FROM UUOCON. DEFINE
; ENTRIES/BYTES IN NEW TABLES
FIND NEW ENTRIES IN OLD TABLES (ESP. .GTCNF, .GTLVD, .GTSYS,
; .GTC0C, .GTC0V)
FIND NEW BYTES IN OLD WORDS (ESP. .GTPRV, %CNDBG, .GTWCH,
FIND NEW ERRORS AND FUNCTIONS FOR UUOS (ESP. DEVTYP, OPEN/CLOSE,
; PATH., LOOKUP)
FIND NEW DAEMON FUNCTIONS, ERRORS, FORMATS.
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
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),&
;;SUPPRESS REDUNDANT CREF
HRROI AC,.GTWCH ;;IT'S IN THE WATCH TABLE
GETTAB AC,
;;GET FROM MONITOR
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
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 THRESHOULD
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] ;SAVE 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
OPDEF SEEK [CALLI 56] ;SEEK DISK
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
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
OPDEF NODE. [CALLI 157] ;NODE FUNCTIONS
OPDEF ERRPT. [CALLI 160] ;FOR DAEMON ERROR REPORTING
OPDEF ALLOC. [CALLI 161] ;ALLOCATE A DEVICE
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
SUBTTL GETTAB CONSTITUENTS
.GTSTS==0 ;JOB STATUS
.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.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%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 RECIEVE INT. FROM DC10 (PRE 5.07)
%CNCCI==37,,11 ;LAST RECIEVE 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 ;IF SECOND CPU STOPS, STOP CPU0
%CNFRU==66,,11 ;MONITOR FREE CORE USED
%CNTCM==67,,11 ;MAX TTY CHUNKS
%CNCVN==70,,11 ;CUSTOMER VERSION (136)
%CNDVN==71,,11 ;DEC VERSION (137)
%CNDFC==72,,11 ;NUMBER OF DF10 DATA CHANS
%CNRTD==73,,11 ;NUMBER OF RT DEVICES
%CNHPQ==74,,11 ;NUMBER OF HPQ'S
%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%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 TIE 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 ;MASS BUS 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 PIT'S
%CNPIA==111,,11 ;ADDRESS OF JBTPIA
%CNMNT==112,,11 ;MONITOR TYPE
CN%MNX==1B0 ;STRANGE MONITOR
CN%MNT==77B23 ;DEC-KNOWN TYPE
;1=TOPS 2=ITS 3=TENEX
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 MONITORS HISEG
%CNHSL==122,,11 ;LENGTH OF MONITORS 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 ;OFFSET INTO TTY DDB'S WHERE CHARACTER COUNTS ARE STORED
%CNHDL==130,,11 ;POTENTIALLY HUNG DEVICE LIST
%CNBTX==131,,11 ;ADDRESS OF RELOAD CCL TEXT FOR BOOTS
%CNTDB==132,,11 ;OFFSET OF DDB PTRS IN TUB
.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 ;UPTIME (TICKS)
%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
.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
.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
%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,6]
%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]
;CONTINUE .GTLVD
%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]
%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
%LDPT1==102,,16 ;PNTR TO EXTRACT ENTRIES FOR DAEMON QUEUE TABLE
%LDPT2==103,,16 ;PNTR TO INSERT ENTRIES FOR DAEMON QUEUE TABLE
%LDLTH==104,,16 ;LENGTH OF DAEMON QUEUE TABLE
%LDCDA==105,,16 ;OFFSET OF UNICDA IN UDB
%LDDES==106,,16 ;OFFSET OF UNIDES IN UDB
.GTRCT==17 ;DISK BLOCKS READ
.GTWCT==20 ;DISK BLOCKS WRITTEN
.GTDBS==21 ;DISK BLOCK SECONDS
.GTTDB==22 ;TIME OF LAST ALLOCATE AND SIZE
.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)
;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
.GTCOM==30 ;MONITOR COMMAND NAMES
.GTNM1==31 ;USER NAME
.GTNM2==32 ; ..
.GTCNO==33 ;CHARGE NUMBER
.GTTMP==34 ;TMPCOR POINTERS
.GTWCH==35 ;WATCH BITS
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.WAL==376B8 ;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 ;DEFERED 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==37 ;SPOOL ALL
.GTRTD==37 ;REAL TIME STATUS
.GTLIM==40 ;TIME AND BATCH STATUS
JB.LCR==777B9 ;CORE LIMIT
JB.LBT==1B10 ;BATCH JOB
JB.LSY==1B11 ;GOTTEN FROM SYS:
JB.LTM==TIME LIMIT TO GO IN JIFFIES
.GTQQQ==41 ;SCHEDULING QUEUE HEADERS
.GTQJB==42 ;JOB QUEUE LINK
.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 ;LH=3 LETTER CODE OF LAST STOPCD,RH=ADDRESS+1 OF LAST STOPCD
%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
.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 ;TRAP OFFSET FOR KA10 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
.CCKAX==2 ;KA-10
.CCKIX==3 ;KI-10
.CCKLX==4 ;KL-10
%CCMPT==7,,55 ;REL. GETTAB POINTER TO BAD ADDRESS TABLE
%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
%CCRSP==13,,55 ;REL. GETTAB POINTER TO RESPONSE SUMMARY
%CCDKX==14,,55 ;NUMBER OF DK10'S 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
;ENTRY 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
%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 (EXC. 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 NON-REPRODUCIBLE 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
%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 NON-RECOVERABLE AR/ARX PARITY ERRORS WHICH INVOLVED CACHE
%CVPTR==103,,56 ;RETRY WORD FOR AR/ARX PARITY ERROR TRAP ROUTINE
;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
;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
;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
.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
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
F%PEEK==0,,1B28 ;PEEK UUO
F%POKE==0,,1B29 ;POKE. UUO
F%JCON==0,,1B30 ;JOB CONTINUE
F%SPL==00,,1B31 ;SPOOLING
F%PRV==00,,1B32 ;JOB PRIVS
F%DAEM==0,,1B33 ;DAEMON FUNCTIONS, ETC.
F%GETT==0,,1B34 ;GETTAB UUO
F%2REL==0,,1B35 ;2-REGISTER RELOCATION
%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
F%SWAP==1,,1B27 ;SWAPPER (DEFINED IN S)
F%SHFL==1,,1B28 ;SHUFFLER
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
F%HIBW==1,,1B34 ;HIBER/WAKE UUOS
F%HPQ==01,,1B35 ;HIGH PRIORITY RUN QUEUES
%FTCOM==2,,71 ;COMMANDS
F%PJOB==2,,1B19 ;EXTENDED PJOB COMMAND
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)
F%CCLX==2,,1B24 ;COMPIL-CLASS
F%QCOM==2,,1B25 ;QUEUE AND FRIENDS
F%SET==02,,1B26 ;SET UUO/COMMAND
F%VERS==2,,1B27 ;VERSION
F%BCOM==2,,1B28 ;BATCH CONTROL FILE
F%SEDA==2,,1B29 ;SET DAYTIME AND SET DATE
F%WATC==2,,1B30 ;WATCH
F%FINI==2,,1B31 ;FINISH AND CLOSE
F%REAS==2,,1B32 ;REASSIGN UUO/COMMAND
F%EXAM==2,,1B33 ;E AND D
F%TALK==2,,1B34 ;SEND
F%ATTA==2,,1B35 ;ATTACH COMMAND/UUO
%FTACC==3,,71 ;ACCOUNTING INFO
F%ACCT==3,,1B28 ;ACCOUNTING SUPPORT
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.
F%CNO==03,,1B32 ;CHARGE NUMBER
F%UNAM==3,,1B33 ;USER NAME
F%KCT==03,,1B34 ;KILO-CORE-TICKS
F%TIME==3,,1B35 ;RUN TIME
%FTERR==4,,71 ;ERROR CONTROL AND OPTIONS
F%MNXM==4,,1B22 ;NXM ERROR RECOVERY CODE
F%KL10==4,,1B23 ;THIS IS A KL10
F%KA10==4,,1B24 ;THIS IS A KA10
F%22BI==4,,1B25 ;22 BIT CHANNEL (DF10C)
F%PDBS==4,,1B26 ;SWAPPING PDB
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
F%BOOT==4,,1B31 ;BOOTS BOOTSTRAP
F%2SWP==4,,1B32 ;MULT. SWAPPING DEVICES
F%EL==004,,1B33 ;DAEMON ERROR LOGGING
F%MS==004,,1B34 ;MULTI-PROCESSORS
F%MEMP==4,,1B35 ;MEMORY PARITY RECOVERY CODE
%FTDEB==5,,71 ;DEBUGGING FEATURES
F%2SEG==5,,1B27 ;2 SEGMENT MONITOR
F%RSP==05,,1B28 ;RESPONSE TIME
F%WHY==05,,1B29 ;WHY RELOAD
F%PATT==5,,1B30 ;PATCH SPACE IN TABLES
F%TRAC==5,,1B31 ;BACK TRACKING FEATURES
F%HALT==5,,1B32 ;HALTS IN MONITOR
F%RCHK==5,,1B33 ;INTERNAL REDUNDANCY CHECKS
F%MONP==5,,1B34 ;MONITOR WRITE PROTECTED
F%CHEC==5,,1B35 ;MONITOR CHECKSUMMED
%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.
F%DPRI==6,,1B23 ;DISK PRIORITY TRANSFERS
F%APLB==6,,1B24 ;APPEND TO LAST BLOCK
F%AIR==06,,1B25 ;APPEND IMPLIES READ
F%GSRC==6,,1B26 ;GENERIC DEVICE SEARCH
F%DRDR==6,,1B27 ;RENAME ACROSS DIRECTORIES
F%DSEK==6,,1B28 ;SEEK UUO
F%DSUP==6,,1B29 ;SUPER USETI/O
F%DQTA==6,,1B30 ;DISK QUOTAS
F%STR==06,,1B31 ;MULTIPLE STRUCTURES
F%5UUO==6,,1B32 ;MISC. 5-SERIES UUOS
F%PHYO==6,,1B33 ;PHYSICAL ONLY
F%SFD==06,,1B34 ;SUB FILE DIRECTORIES
F%MOUN==6,,1B35 ;STRUUO FUNCTIONS
%FTDSK==7,,71 ;INTERNAL DISK PARAMS
F%SLCK==7,,1B19 ;DEBUG SEARCH LIST CODE
F%2ATB==7,,1B20 ;2 PART ACCESS BLOCKS
F%CBDB==7,,1B21 ;DEBUG CB INTERLOCK
F%LOGI==7,,1B22 ;LOGIN (DEFINED IN S)
F%DISK==7,,1B23 ;DISK SYSTEM (DEFINED IN S)
F%FFRE==7,,1B24 ;PREVENT RACES IN FILFND
F%SWPE==7,,1B25 ;SWAP READ ERROR RECOVERY
F%DBBK==7,,1B26 ;BAD BLOCK MARKING
F%DUFC==7,,1B27 ;UFD COMPRESSOR
F%DETS==7,,1B28 ;DISK ERROR SIMULATOR
F%DMRB==7,,1B29 ;MULTI RIBS
F%DSMC==7,,1B30 ;SMALLER ALLOC. OF DISK CORE BLOCKS
F%DALC==7,,1B31 ;ALLOCATION OPTIMISATIONS
F%DSTT==7,,1B32 ;DISK USAGE STATISTICS
F%DHNG==7,,1B33 ;HUNG DISK RECOVERY
F%DBAD==7,,1B34 ;DISK OFF-LINE RECOVERY
F%DOPT==7,,1B35 ;LATENCY OPTIMIZATION
%FTSCN==10,,71 ;SCANNER OPTIONS
F%RP04==10,,1B20 ;INCLUDE RP04 SUPPORT
F%RDX==010,,1B21 ;REMOTE DATA ENTRY SERVICE
F%DCXH==10,,1B22;DC10-H (2741 ON DC10) SUPPORTED
F%TVP==010,,1B23;FANCY VERTICAL POSITIONING
F%TYPE==10,,1B24;TYPESET-10 FEATURES IN DC76
F%B25;SUPPORT 2741-LIKE TERMINALS
F%CAFE==10,,1B26;DC76
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
F%SCNR==10,,1B31;HARDWARE SCANER
F%MODM==10,,1B32;MODEM CONTROL
F%630H==10,,1B33;SINGLE SCANNER 630
F%GPO2==10,,1B34;U.K. MODEM SUPPORT
F%HDPX==10,,1B35;TRULY HALF DUPLEX TERMINALS
%FTPER==11,,71 ;I/O PARAMS
F%RDBA==11,,1B19;READ BACKWARDS ON TU70
F%TAPO==11,,1B20;TAPOP. UUO
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
F%CPTR==11,,1B27;CDP TROUBLE INTERCEPT
F%CRTR==11,,1B28;CDR TROUBLE INTERCEPT
F%CTY1==11,,1B29;SUPPORT CTY1
F%NET==011,,1B30;NETWORK SOFTWARE
F%REM==011,,1B30;REMOTE STATION SOFTWARE
F%LPTR==11,,1B31;LPT DEVICE ERROR RECOVERY
F%OPRE==11,,1B32;DEVICE ERRS TO OPER
F%CDRS==11,,1B33;CDR SUPER IMAGE MODE
F%MTSE==11,,1B34;MTA DENSITY/BLOCK COMMANDS
F%TMP==011,,1B35;TMPCOR AREA
%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%PSTR==14,,1B35 ;PRIVATE FILE STRUCTURE
.GTEDN==72 ;ERSATZ DEVICE NAMES
.GTSCN==73 ;SCANNER DATA
%SCNRI==0,,73 ;NUMBER OF RCV INTERRUPTS
%SCNXI==1,,73 ;NUMBER OF XMT INTERRUPTS
%SCNEI==2,,73 ;NUMBER OF ECHO INTERRUPTS (IN XI)
%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 ;ADDRESS OF TYPE
.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 PID'S NOW DEFINED
%IPCTP==11,,77 ;TOTAL PID'S DEFINED SINCE RELOAD
.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==777 ;RECEIVE QUOTA
.GTDVL==110 ;POINTER TO THIS JOB'S LOGICAL NAME TABLE
.GTABS==111 ;ADDRESS BREAK WORD (DATAO PTR,)
.GTCMP==112 ;RESERVED FOR COMPATABILITY PACKAGES
%CMPMT==0,,112 ;SIMULATED MONITOR TYPE (%CNMNT)
%CMPCV==1,,112 ;CUSTOMER VERSION OF COMPAT. (136)
%CMPDV==2,,112 ;DEC VERSION OF COMPAT. (137)
.GTVM==113 ;GENERAL VIRTUAL MEMORY DATA
%VMSWP==0,,113