Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
midas/decbts.mid
There are 2 other files named decbts.mid in the archive. Click here to see a list.
; UUOSYM defines the dec UUO symbols
.auxil ; Don't cref this file's symbols
SUBTTL NAMING CONVENTIONS
;PATTERN USAGE
; .GGSSS NUMBER OF GENERAL CATEGORY GG, SPECIFIC USE SSS
; GG.SSS BYTE OF GENERAL CATEGORY GG, SPECIFIC USE SSS
; UUUUU. UUO OR FUNCTION OR MACRO
; %GGSSS GETTAB INDEX (WORD,,TABLE)
; GG%SSS BYTE IN A SPECIFIC GETTAB
; GGEEE% ERROR CODE OF CATEGORY GG, SPECIFIC ERROR EEE
;SPECIAL CASES--
; F%AAAA RH=BYTE OF FEATURE TEST NAMED FTAAAA
; IN LH=FEATURE DEFINED
; IN RH=FEATURE TURNED ON
; LH=LH OF GETTAB IN .GTFET CONTAINING INFO
;RESERVED FOR OTHER THAN C.MAC, C.UNV--
;ALL SYMBOLS CONTAING $ ARE RESERVED TO THE USER
; (CUSTOMER, HIS USER, OR SPECIFIC PROGRAMS)
; ?.???? RESERVED TO OTHER PARAMETER FILES
;ALL SYMBOLS OF THE FORMS: QABCDE, .QABCD, %QABCD
; (I.E, WITH FIRST ALPHABETIC "Q") ARE RESERVED TO
; QPRM.MAC, QPRM.UNV FOR THE QMANGR PARAMETER AREA, ETC.
;ALL SYMBOLS OF THE FORMS: %NNNNN, U..NNN, E..AAA
; ARE RESERVED TO E.MAC, E.UNV FOR THE ERROR HANDLER
;ALL SYMBOLS OF THE FORMS: FS.M??, FX.???, TS.???, AND .FX???
; ARE RESERVED TO SCNMAC.MAC, SCNMAC.UNV FOR SCAN AND WILD
SUBTTL UPDATE AND CHECKOUT INSTRUCTIONS
;1. COMPARE CREFS OF F% IN C VS. FT IN DATMAN
;2. VERIFY NO $ IN CREF IN C AND THAT ONLY LEGAL PATTERNS EXIST
;3. UPDATE CALLI TABLE FROM UUOCON
;4. UPDATE GETTAB LIST OF TABLES (.GTABC) FROM UUOCON. DEFINE
; ENTRIES/BYTES IN NEW TABLES
;5. FIND NEW ENTRIES IN OLD TABLES (ESP. .GTCNF, .GTLVD, .GTSYS,
; .GTC0C, .GTC0V)
;6. FIND NEW BYTES IN OLD WORDS (ESP. .GTPRV, %CNDBG, .GTWCH,
; %CNST2)
;7. FIND NEW ERRORS AND FUNCTIONS FOR UUOS (ESP. DEVTYP, OPEN/CLOSE,
; PATH., LOOKUP)
;8. FIND NEW DAEMON FUNCTIONS, ERRORS, FORMATS.
;9. VERIFY NO DUPLICATES BY SCANNING CREF FOR ONLY SINGLE REFERENCES
;10. VERIFY THAT ALL USER JOBDAT SYMBOLS APPEAR
;11. VERIFY THAT SYMBOLS RESERVED TO OTHER FILES DO NOT APPEAR:
; ?.????
; Q?????, %Q????, .Q????
; %NNNNN, U..NNN, E..???
; FS.M??, FX.???, TS.???, .FX???
IFNDEF DEFSYM,[ ;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
DEFINE DEFSYM X/
IRPS Z,,[X]
IFNDEF Z,.QUOTE/.QUOTE/X
.ELSE [
$$TEM1==Z
.QUOTE/.QUOTE/X
IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
]
.ISTOP
TERMIN TERMIN
IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
.MLLIT==1
$$TEMP==1
]
.ELSE $$TEMP==0
SUBTTL GETTAB CONSTITUENTS
DEFSYM .GTSTS==:0 ;JOB STATUS
DEFSYM .GTADR==:1 ;JOB RELOCATION AND PROTECTION
DEFSYM .GTPPN==:2 ;PROJ-PROG NUMBER
DEFSYM .GTPRG==:3 ;PROGRAM NAME
DEFSYM .GTTIM==:4 ;TOTAL RUN TIME IN TICKS
DEFSYM .GTKCT==:5 ;KILO-CORE TICKS
DEFSYM .GTPRV==:6 ;PRIV WORD
DEFSYM JP.IPC==:1_35. ;IPCF PRIVILEGED FUNCTIONS
DEFSYM JP.DPR==:3_33. ;HIGHEST DISK PRIORITY
DEFSYM JP.MET==:1_32. ;METER UUO
DEFSYM JP.POK==:1_31. ;POKE MONITOR
DEFSYM JP.CCC==:1_30. ;CHANGE CPU SPECIFICATION
DEFSYM JP.HPQ==:17_26. ;HI PRIORITY QUEUE
DEFSYM JP.NSP==:1_25. ;UNSPOOL DEVICES
DEFSYM JP.ENQ==:1_24. ;ENQ./DEQ. PRIVS
DEFSYM JP.RTT==:1_22. ;RTTRP UUO
DEFSYM JP.LCK==:1_21. ;LOCK UUO
DEFSYM JP.TRP==:1_20. ;TRAPSET UUO
DEFSYM JP.SPA==:1_19. ;SPY ON ALL CORE
DEFSYM JP.SPM==:1_18. ;SPY ON MONITOR
DEFSYM .GTSWP==:7 ;SWAPPING POINTERS
DEFSYM .GTTTY==:10 ;TTY TABLE
DEFSYM .GTCNF==:11 ;CONFIGURATION
DEFSYM %CNFG0==:0,,11 ;NAME OF SYSTEM
DEFSYM %CNFG1==:1,,11 ; ..
DEFSYM %CNFG2==:2,,11 ; ..
DEFSYM %CNFG3==:3,,11 ; ..
DEFSYM %CNFG4==:4,,11 ; ..
DEFSYM %CNDT0==:5,,11 ;DATE OF SYSTEM
DEFSYM %CNDT1==:6,,11 ; ..
DEFSYM %CNTAP==:7,,11 ;NAME OF SYSTEM DEVICE
DEFSYM %CNTIM==:10,,11 ;TIME OF DAY
DEFSYM %CNDAT==:11,,11 ;DATE IN BINARY
DEFSYM %CNSIZ==:12,,11 ;SYSTEM MEMORY SIZE
DEFSYM %CNOPR==:13,,11 ;NAME OF OPR TTY
DEFSYM %CNDEV==:14,,11 ;LH = DDB CHAIN
DEFSYM %CNSJN==:15,,11 ;LH=-SEGN, RH=JOBN NUMBERS
DEFSYM %CNTWR==:16,,11 ;NON-ZERO IS DUAL SEGMENTS
DEFSYM %CNSTS==:17,,11 ;SYSTEM STATES
DEFSYM ST%DSK==:1_35. ;DISK SYSTEM
DEFSYM ST%SWP==:1_34. ;SWAPPING SYSTEM
DEFSYM ST%LOG==:1_33. ;LOGIN
DEFSYM ST%FTT==:1_32. ;FULL DUPLEX TTY SOFTWARE
DEFSYM ST%PRV==:1_31. ;PRIVILEGES
DEFSYM ST%TWR==:1_30. ;DUAL SEGMENT SOFTWARE
DEFSYM ST%CYC==:1_29. ;50 HERTZ CLOCK
DEFSYM ST%TDS==:7_26. ;TYPE OF DISK SYSTEM
DEFSYM ST%IND==:1_25. ;IND. PPNS ON DISK
DEFSYM ST%IMG==:1_24. ;IMAGE MODE TTYS
DEFSYM ST%DUL==:1_23. ;DUAL PROCESSOR SYSTEM
DEFSYM ST%MRB==:1_22. ;MULTIPLE RIBS SUPPORTED
DEFSYM ST%HPT==:1_21. ;HIGH PRECISION TIME ACCOUNTING
DEFSYM ST%EMO==:1_20. ;EXCLUDE OVERHEAD FROM TIME ACCOUNTING
DEFSYM ST%RTC==:1_19. ;REAL TIME CLOCK
DEFSYM ST%MBF==:1_18. ;MADE FOR FOROTS
DEFSYM ST%NOP==:1_8. ;NO OPERATOR IN ATTENDANCE
DEFSYM ST%NSP==:1_7. ;UNSPOOL DEVICES
DEFSYM ST%ASS==:1_6. ;ASSIGN/INIT DEVICES
DEFSYM ST%NRT==:1_3. ;NO REMOTE TTY'S
DEFSYM ST%BON==:1_2. ;BATCH ONLY
DEFSYM ST%NRL==:1_1. ;NO REMOTE LOGINS
DEFSYM ST%NLG==:1_0. ;NO LOGINS EXCEPT CTY/OPR
DEFSYM %CNSER==:20,,11 ;APR SERIAL NUMBER
DEFSYM %CNNSM==:21,,11 ;NANO-SECS PER MEMORY CYCLE
DEFSYM %CNPTY==:22,,11 ;LH=NUMBER FIRST INV. TTY, RH=NUMBER PTYS
DEFSYM %CNFRE==:23,,11 ;POINTER FOR BIT MAP OF CORE BLOCKS
DEFSYM %CNLOC==:24,,11 ;LOCATION OF LOW CORE CORE BLOCKS
DEFSYM %CNSTB==:25,,11 ;POINTER TO STATION BLOCK CHAIN
DEFSYM %CNOPL==:26,,11 ;OPR LDB ADDRESS
DEFSYM %CNTTF==:27,,11 ;POINTER TO TTY FREE CHUNKS
DEFSYM %CNTTC==:30,,11 ;LH=NUMBER OF TTY CHUNKS, RH=ADDR OF FIRST
DEFSYM %CNTTN==:31,,11 ;NUMBER OF FREE CHUNKS
DEFSYM %CNLNS==:32,,11 ;POINTER TO CURRENT COMMAND TTY
DEFSYM %CNLNP==:33,,11 ;POINTER TO TTY LINE TABLE
DEFSYM %CNVER==:34,,11 ;MONITOR VERSION
DEFSYM %CNDSC==:35,,11 ;POINTER TO DATA SET CONTROL TABLE
DEFSYM %CNDLS==:36,,11 ;LAST RECIEVE INT. FROM DC10 (PRE 5.07)
DEFSYM %CNCCI==:37,,11 ;LAST RECIEVE INT. FROM 680I (PRE 5.07)
DEFSYM %CNSGT==:40,,11 ;LAST DORM. SEG THROWN AWAY
DEFSYM %CNPOK==:41,,11 ;ADDRESS OF LAST POKED LOCATION
DEFSYM %CNPUC==:42,,11 ;LH=JOB, RH=COUNT OF POKES
DEFSYM %CNWHY==:43,,11 ;REASON FOR LAST RELOAD
DEFSYM %CNTIC==:44,,11 ;NUMBER OF TICKS PER SECOND
DEFSYM %CNPDB==:45,,11 ;POINTER TO PDB POINTER TABLES
DEFSYM %CNRTC==:46,,11 ;RESOLUTION OF RUNTIME CLOCK (UNITS/SEC)
DEFSYM %CNCHN==:47,,11 ;LH=PTR TO CHANNEL D.B. LIST,RH=UNUSED
DEFSYM %CNLMX==:50,,11 ;LOGMAX (MAX JOBS TO BE LOGGED IN)
DEFSYM %CNBMX==:51,,11 ;BATMAX (MAX BATCH JOBS)
DEFSYM %CNBMN==:52,,11 ;BATMIN (MIN JOBS RESERVED FOR BATCH)
DEFSYM %CNDTM==:53,,11 ;INTERNAL FORMAT DATE,,TIME
DEFSYM %CNLNM==:54,,11 ;NUMBER OF JOBS LOGGED IN
DEFSYM %CNBNM==:55,,11 ;NUMBER OF BATCH JOBS LOGGED IN
DEFSYM %CNYER==:56,,11 ;LOCAL YEAR
DEFSYM %CNMON==:57,,11 ;LOCAL MONTH
DEFSYM %CNDAY==:60,,11 ;LOCAL DAY OF MONTH
DEFSYM %CNHOR==:61,,11 ;LOCAL HOUR
DEFSYM %CNMIN==:62,,11 ;LOCAL MINUTES
DEFSYM %CNSEC==:63,,11 ;LOCAL SECONDS
DEFSYM %CNGMT==:64,,11 ;TIME FROM GMT IN INTERNAL FORMAT
DEFSYM %CNDBG==:65,,11 ;DEBUGGING STATUS WORD
DEFSYM ST%DBG==:1_35. ;SYSTEM DEBUGGING
DEFSYM ST%RDC==:1_34. ;RELOAD ON DEBUF STOPCD
DEFSYM ST%RJE==:1_33. ;RELOAD ON JOB STOPCD
DEFSYM ST%NAR==:1_32. ;NO AUTO RELOADS
DEFSYM ST%CP1==:1_31. ;IF SECOND CPU STOPS, STOP CPU0
DEFSYM %CNFRU==:66,,11 ;MONITOR FREE CORE USED
DEFSYM %CNTCM==:67,,11 ;MAX TTY CHUNKS
DEFSYM %CNCVN==:70,,11 ;CUSTOMER VERSION (136)
DEFSYM %CNDVN==:71,,11 ;DEC VERSION (137)
DEFSYM %CNDFC==:72,,11 ;NUMBER OF DF10 DATA CHANS
DEFSYM %CNRTD==:73,,11 ;NUMBER OF RT DEVICES
DEFSYM %CNHPQ==:74,,11 ;NUMBER OF HPQ'S
DEFSYM %CNLDB==:75,,11 ;TTY DDB WORD POINTING TO LDB
DEFSYM %CNMVO==:76,,11 ;MAX VECTOR OFFSET FOR PISYS.
DEFSYM %CNMIP==:77,,11 ;MAX PRIORITY FOR PISYS.
DEFSYM %CNMER==:100,,11 ;ADDR OF MTA0,,OFFSET OF MTA ERR RPT WORD
DEFSYM %CNET1==:101,,11 ;USER ADDRESS OF EXEC'S AC T1
DEFSYM %CNLSD==:102,,11 ;LENGTH OF SHORT DDB
DEFSYM %CNLLD==:103,,11 ;LENGTH OF LONG DDB
DEFSYM %CNLDD==:104,,11 ;LENGTH OF DISK DDB
DEFSYM %CNEXM==:105,,11 ;ADDRESS IN JOBDAT OF LAST E/D COMMAND
DEFSYM %CNST2==:106,,11 ;MORE CONFIGURATION FEATURE INDICATORS
DEFSYM ST%NDN==:1_17. ;NETWORK DEVICE NAMES (GGGNNU)
DEFSYM ST%XPI==:1_16. ;EXCLUDE PI TIE FROM RUNTIME
DEFSYM ST%ERT==:1_15. ;EBOX/MBOX RUNTIME (KL10 ONLY)
DEFSYM ST%EXE==:1_14. ;SAVE AND SSAVE WRITE .EXE FILES
DEFSYM ST%NJN==:1_13. ;SYSTEM USES 9 BIT JOB NUMBERS
DEFSYM ST%EER==:1_12. ;EXTENDED ERROR REPORTING
DEFSYM ST%TAP==:1_11. ;TAPSER INCLUDED
DEFSYM ST%MBE==:1_10. ;MASS BUS ERROR REPORTS
DEFSYM ST%GAL==:1_9. ;GALAXY-10 SUPPORT INCLUDED
DEFSYM ST%ENQ==:1_8. ;ENQ./DEQ. IS INCLUDED
DEFSYM ST%SHC==:1_7. ;SCHEDULER HAS CLASSES
DEFSYM ST%NSE==:1_6. ;NON-SUPERSEDING ENTER
DEFSYM ST%MSG==:1_5. ;MSGSER INCLUDED
DEFSYM ST%PSI==:1_4. ;PSISER INCLUDED
DEFSYM ST%IPC==:1_3. ;IPCF INCLUDED
DEFSYM ST%VMS==:1_2. ;VMSER INCLUDED
DEFSYM ST%MER==:1_1. ;MTA ERROR REPORTING
DEFSYM ST%SSP==:1_0. ;SWAP SPACE IN PAGES
DEFSYM %CNPIM==:107,,11 ;MINIMUM CONDITION IN PISYS
DEFSYM %CNPIL==:110,,11 ;LENGTH OF INTERNAL PIT'S
DEFSYM %CNPIA==:111,,11 ;ADDRESS OF JBTPIA
DEFSYM %CNMNT==:112,,11 ;MONITOR TYPE
DEFSYM CN%MNX==:1_35. ;STRANGE MONITOR
DEFSYM CN%MNT==:77_12. ;DEC-KNOWN TYPE
;1=TOPS 2=ITS 3=TENEX
DEFSYM CN%MNS==:77_6. ;DEC SUB TYPE
DEFSYM CN%MNC==:77 ;CUSTOMER SUBSUB TYPE
DEFSYM %CNOCR==:113,,11 ;FIRST CDR DDB,,OFFSET TO CARD COUNT
DEFSYM %CNOCP==:114,,11 ;DITTO FOR CDP
DEFSYM %CNPGS==:115,,11 ;UNIT OF CORE ALLOCATION
DEFSYM %CNMMX==:116,,11 ;MINIMUM LEGAL CORMAX
DEFSYM %CNNSC==:117,,11 ;NUMBER OF SCHEDULER CLASSES
DEFSYM %CNUTF==:120,,11 ;EXPONENTIAL USER TIME FACTOR
DEFSYM %CNHSO==:121,,11 ;START OF MONITORS HISEG
DEFSYM %CNHSL==:122,,11 ;LENGTH OF MONITORS HISEG
DEFSYM %CNNWC==:123,,11 ;NUMBER OF WORDS OF CORE
DEFSYM .GTNSW==:12 ;NON-SWAPPING DATA TABLE
DEFSYM %NSCMX==:10,,12 ;SYSTEM CORMAX (LARGEST USER JOB+1)
DEFSYM %NSCLS==:11,,12 ;BYTE POINTER TO LAST FREE CORE AREA
DEFSYM %NSCTL==:12,,12 ;VIRTUAL CORE TALLY
DEFSYM %NSSHW==:13,,12 ;JOB NUMBER STOPPED BY SHUFFLER
DEFSYM %NSHLF==:14,,12 ;ADDRESS OF LOWEST HOLE IN SYSTEM
DEFSYM %NSUPT==:15,,12 ;UPTIME (TICKS)
DEFSYM %NSSHF==:16,,12 ;WORDS SHUFFLED BY SYSTEM
DEFSYM %NSSTU==:17,,12 ;SYSTEM TAPE USER
DEFSYM %NSHJB==:20,,12 ;HIGHEST JOB NUMBER IN USE
DEFSYM %NSCLW==:21,,12 ;WORDS CLEARED BY SYSTEM
DEFSYM %NSLST==:22,,12 ;LOST TIME
DEFSYM %NSMMS==:23,,12 ;MEMORY SIZE
DEFSYM %NSTPE==:24,,12 ;TOTAL MEMEORY PARITY ERRORS
DEFSYM %NSSPE==:25,,12 ;SPURIOUS MEMORY PARITY ERRORS
DEFSYM %NSMPC==:26,,12 ;MULTIPLE MEMORY PARITY ERRORS
DEFSYM %NSMPA==:27,,12 ;LAST MEMORY PARITY ADDRESS
DEFSYM %NSMPW==:30,,12 ;LAST MEMORY PARITY WORD
DEFSYM %NSMPP==:31,,12 ;LAST MEMORY PARITY PC
DEFSYM %NSEPO==:32,,12 ;NUMBER OF EXEC PDL OVERFLOWS NOT RECOVERED
DEFSYM %NSEPR==:33,,12 ;NUMBER OF EXEC PDL OVERFLOWS RECOVERED
DEFSYM %NSMXM==:34,,12 ;MAX VALUE OF CORMAX
DEFSYM %NSKTM==:35,,12 ;KSYS TIMER
DEFSYM %NSCMN==:36,,12 ;CORMIN
DEFSYM %NSABC==:37,,12 ;COUNT OF ADDRESS BREAKS
DEFSYM %NSABA==:40,,12 ;ADDRESS OF ADDRESS BREAKS
DEFSYM %NSLJR==:41,,12 ;LAST JOB RUN
DEFSYM %NSACR==:42,,12 ;ACCUMULATED CPU RESPONSE
DEFSYM %NSNCR==:43,,12 ;NUMBER OF CPU RESPONSES
DEFSYM %NSSCR==:44,,12 ;ACCUMULATED SQUARE OF CPU RESPONSE
;*** NO MORE GROWTH--SEE .GTC0V
DEFSYM .GTSDT==:13 ;SWAPPING DATA TABLE
DEFSYM %SWBGH==:0,,13 ;BIG HOLE
DEFSYM %SWFIN==:1,,13 ;FINISH
DEFSYM %SWFRC==:2,,13 ;FORCE
DEFSYM %SWFIT==:3,,13 ;FIT
DEFSYM %SWVRT==:4,,13 ;VIRTAL
DEFSYM %SWERC==:5,,13 ;SWAP ERROR COUNT
DEFSYM %SWPIN==:6,,13 ;-1 IF SWAP IN AND FTPDBS=1
DEFSYM .GTSGN==:14 ;SEGMENT NUMBERS
DEFSYM SN%SHR==:1_34. ;SHARABLE SEGMENT
DEFSYM SN%LOK==:1_30. ;HIGH SEGMENT IS LOCKED
DEFSYM .GTODP==:15 ;ONCE ONLY DISK PARAMETERS
DEFSYM %ODSWP==:0,,15 ;HIGHEST SWAPPING IN 4-SERIES
DEFSYM %ODK4S==:1,,15 ;K FOR SWAPPING
DEFSYM %ODPRT==:2,,15 ;IN CORE PROTECT TIME MULTIPLIER
DEFSYM %ODPRA==:3,,15 ;IN CORE PROTECT TIME OFFSET
DEFSYM .GTLVD==:16 ;LEVEL-D PARAMETERS
DEFSYM %LDMFD==:0,,16 ;MFD PPN [1,1]
DEFSYM %LDSYS==:1,,16 ;SYS PPN [1,4]
DEFSYM %LDFFA==:2,,16 ;FULL FILE ACCESS PPN [1,2]
DEFSYM %LDHLP==:3,,16 ;UNLOGGED IN PPN [2,5]
DEFSYM %LDQUE==:4,,16 ;QUE AREA PPN [3,3]
DEFSYM %LDSPB==:5,,16 ;FIRST PPB,,NEXT PPB TO SCAN
DEFSYM %LDSTR==:6,,16 ;FIRST STR DATA BLOCK,,OFFSET TO NEXT
DEFSYM %LDUNI==:7,,16 ;FIRST UNIT DATA BLOCK,,OFFSET TO NEXT
DEFSYM %LDSWP==:10,,16 ;FIRST SWAP UNIT,,OFFSET TO NEXT
DEFSYM %LDCRN==:11,,16 ;NUMBER OF CORE BLOCKS
DEFSYM %LDSTP==:12,,16 ;STANDARD FILE PROTECTION
DEFSYM %LDUFP==:13,,16 ;STANDARD UFD PROTECTION
DEFSYM %LDMBN==:14,,16 ;NUMBER OF MONITOR BUFFERS
DEFSYM %LDQUS==:15,,16 ;QUE STRUCTURE NAME
DEFSYM %LDCRP==:16,,16 ;CRASH PPN [10,1]
DEFSYM %LDSFD==:17,,16 ;MAX DEPTH OF SFDS TO WRITE
DEFSYM %LDSPP==:20,,16 ;SPOOLED FILE PROTECTION
DEFSYM %LDSYP==:21,,16 ;STANDARD SYS: PROTECTION
DEFSYM %LDSSP==:22,,16 ;STANDARD SYS:.SYS PROTECTION
DEFSYM %LDMNU==:23,,16 ;MAX. NEGATIVE USETI WHICH READS EXTENDED RIBS
DEFSYM %LDMXT==:24,,16 ;MAX. BLOCKS TO TRANSFER
DEFSYM %LDNEW==:25,,16 ;EXPERIMENTAL SYS PPN [1,5]
DEFSYM %LDOLD==:26,,16 ;OLD SYS PPN [1,3]
DEFSYM %LDUMD==:27,,16 ;USER MODE DIAGNOSTICS PPN [6,6]
DEFSYM %LDNDB==:30,,16 ;DEFAULT DISK BUFFERS IN RING
DEFSYM %LDMSL==:31,,16 ;MAX UNITS IN A.S.L.
DEFSYM %LDALG==:32,,16 ;ALGOL LIBRARY PPN [5,4]
DEFSYM %LDBLI==:33,,16 ;BLISS LIBRARY PPN [5,5]
DEFSYM %LDFOR==:34,,16 ;FORTRAN LIBRARY PPN [5,6]
DEFSYM %LDMAC==:35,,16 ;MACRO LIBRARY PPN (SOURCE NOT UNIVERSALS) [5,7]
DEFSYM %LDUNV==:36,,16 ;UNIVERSAL LIBRARY PPN [5,17]
DEFSYM %LDPUB==:37,,16 ;PUBLIC USER SOFTWARE LIBRARY PPN [1,6]
;CONTINUE .GTLVD
DEFSYM %LDTED==:40,,16 ;TEXT EDITOR LIBRARY PPN [5,10]
DEFSYM %LDREL==:41,,16 ;REL FILE LIBRARY PPN [5,11]
DEFSYM %LDRNO==:42,,16 ;RUNOFF LIBRARY PPN [5,12]
DEFSYM %LDSNO==:43,,16 ;SNOBOL LIBRARY PPN [5,13]
DEFSYM %LDDOC==:44,,16 ;DOC FILE LIBRARY PPN [5,14]
DEFSYM %LDFAI==:45,,16 ;FAIL LIBRARY PPN [5,15]
DEFSYM %LDMUS==:46,,16 ;MUSIC LIBRARY PPN [5,16]
DEFSYM %LDDEC==:47,,16 ;STANDARD DEC SOFTWARE [10,7]
DEFSYM %LDSLP==:50,,16 ;POINTER TO ACTIVE SWAP LIST
DEFSYM %LDBAS==:51,,16 ;BASIC LIB PPN [5,1]
DEFSYM %LDCOB==:52,,16 ;COBOL LIB PPN [5,2]
DEFSYM %LDMXI==:53,,16 ;PDP-11 LIB PPN [5,3]
DEFSYM %LDNEL==:54,,16 ;NELIAC LIB PPN [5,20]
DEFSYM %LDDMP==:55,,16 ;DUMP PPN [5,21]
DEFSYM %LDPOP==:56,,16 ;POP2 LIB PPN [5,22]
DEFSYM %LDTST==:57,,16 ;TEST LIB PPN [5,23]
DEFSYM %LDLSO==:60,,16 ;LOG SOFT OVERRUNS (CALL DAEMON) IF OVERRUN
; IS RECOVERED ON 1 RETRY AND %LDLSO .NE. 0
DEFSYM %LDMBR==:61,,16 ;MASS-BUSS REG. LH=OFFSET INTO KDB OF # OF
; REGISTER. RH=OFFSET INTO UDB OF REGS.
DEFSYM %LDBBP==:62,,16 ;LH=POINTER TO BYTE POINTER TO # LEFT IN BAT
;RH=OFFSET (IN UDB) OF CHAN TERM FAIL CNT
DEFSYM .GTRCT==:17 ;DISK BLOCKS READ
DEFSYM .GTWCT==:20 ;DISK BLOCKS WRITTEN
DEFSYM .GTDBS==:21 ;DISK BLOCK SECONDS
DEFSYM .GTTDB==:22 ;TIME OF LAST ALLOCATE AND SIZE
DEFSYM .GTSLF==:23 ;GETTAB IMMEDIATE (SELF)
DEFSYM .GTDEV==:24 ;DEVICE OR STRUCTURE (SEGMENTS ONLY)
DEFSYM .GTWSN==:25 ;NAMES OF WAIT STATES
DEFSYM .GTLOC==:26 ;REMOTE STATION NUMBER
DEFSYM .GTCOR==:27 ;CORE TABLE
DEFSYM .GTCOM==:30 ;MONITOR COMMAND NAMES
DEFSYM .GTNM1==:31 ;USER NAME
DEFSYM .GTNM2==:32 ; ..
DEFSYM .GTCNO==:33 ;CHARGE NUMBER
DEFSYM .GTTMP==:34 ;TMPCOR POINTERS
DEFSYM .GTWCH==:35 ;WATCH BITS
DEFSYM JW.WDY==:1_34. ;DAYTIME AT START
DEFSYM JW.WRN==:1_33. ;RUN TIME
DEFSYM JW.WWT==:1_32. ;WAIT TIME
DEFSYM JW.WDR==:1_31. ;DISK READS
DEFSYM JW.WDW==:1_30. ;DISK WRITES
DEFSYM JW.WVR==:1_29. ;VERSIONS
DEFSYM JW.WMT==:1_28. ;MTA STATISTICS
DEFSYM JW.WAL==:376_27. ;WATCH ALL
DEFSYM JW.WMS==:7_24. ;/MESSAGE LEVEL
DEFSYM .JWWPR==:1 ;PREFIX
DEFSYM .JWWOL==:2 ;ONE LINE
DEFSYM .JWWPO==:3 ;PRIFIX,FIRST
DEFSYM .JWWLG==:6 ;LONG, NO PREFIX
DEFSYM .JWWPL==:7 ;PREFIX AND LONG
DEFSYM JW.WCN==:1_26. ;/MESSAGE:CONTINUATION
DEFSYM JW.WFL==:1_25. ;/MESSAGE:FIRST
DEFSYM JW.WPR==:1_24. ;/MESSAGE:PREFIX
DEFSYM .GTSPL==:36 ;SPOOLING CONTROL
DEFSYM JS.PRI==:7_9. ;DISK PRIORITY
DEFSYM JS.DFR==:1_8. ;DEFERED SPOOLING (MPB-I STYLE)
DEFSYM JS.PCR==:1_4. ;SPOOL CDR
DEFSYM JS.PCP==:1_3. ;SPOOL CDP
DEFSYM JS.PPT==:1_2. ;SPOOL PTP
DEFSYM JS.PPL==:1_1. ;SPOOL PLT
DEFSYM JS.PLP==:1_0. ;SPOOL LPT
DEFSYM JS.PAL==:37 ;SPOOL ALL
DEFSYM .GTRTD==:37 ;REAL TIME STATUS
DEFSYM .GTLIM==:40 ;TIME AND BATCH STATUS
DEFSYM JB.LCR==:777_26. ;CORE LIMIT
DEFSYM JB.LBT==:1_25. ;BATCH JOB
DEFSYM JB.LSY==:1_24. ;GOTTEN FROM SYS:
DEFSYM JB.LTM==:77777777 ;TIME LIMIT TO GO IN JIFFIES
DEFSYM .GTQQQ==:41 ;SCHEDULING QUEUE HEADERS
DEFSYM .GTQJB==:42 ;JOB QUEUE LINK
DEFSYM .GTCM2==:43 ;MONITOR SET COMMAND NAMES
DEFSYM .GTCRS==:44 ;HARDWARE STATUS FROM CRASH
DEFSYM CR.SAP==:0,,44 ;APR CONI
DEFSYM CR.SPI==:1,,44 ;PI CONI
DEFSYM CR.SSW==:2,,44 ;APR DATAI (SWITCHES)
DEFSYM .GTISC==:45 ;SWAP IN SCAN TABLES
DEFSYM .GTOSC==:46 ;SWAP OUT SCAN
DEFSYM .GTSSC==:47 ;SCHEDULER SCAN
DEFSYM .GTRSP==:50 ;RESPONSE COUNTER TABLE
DEFSYM .GTSYS==:51 ;SYSTEM WIDE DATA
DEFSYM %SYERR==:0,,51 ;SYSTEM WIDE HARDWARE ERROR COUNT
DEFSYM %SYCCO==:1,,51 ;NUMBER OF TIMES COMCNT WAS OFF
DEFSYM %SYDEL==:2,,51 ;DISABLED HARDWARE ERROR COUNT
DEFSYM %SYSPC==:3,,51 ;LH=3 LETTER CODE OF LAST STOPCD,RH=ADDRESS+1 OF LAST STOPCD
DEFSYM %SYNDS==:4,,51 ;NUMBER OF DEBUG STOPCDS
DEFSYM %SYNJS==:5,,51 ;NUMBER OF JOB STOPCDS (INCLUDING DEBUG
; STOPCD'S IF A JOB IS STOPPED)
DEFSYM %SYNCP==:6,,51 ;NUMBER OF COMMANDS PROCESSED
DEFSYM %SYSJN==:7,,51 ;LAST STOPCD--JOB NUMBER
DEFSYM %SYSTN==:10,,51 ;LAST STOPCD--TTY NAME
DEFSYM %SYSPN==:11,,51 ;LAST STOPCD--PROGRAM NAME
DEFSYM %SYSUU==:12,,51 ;LAST STOPCD--UUO
DEFSYM %SYSUP==:13,,51 ;LAST STOPCD--USER PC
DEFSYM %SYSPP==:14,,51 ;LAST STOPCD--USER PPN
DEFSYM .GTWHY==:52 ;OPERATOR WHY COMMENTS IN ASCIZ
DEFSYM .GTTRQ==:53 ;TOTAL TIME IN RUN QUEUES WHETHER OR NOT RUNNING
DEFSYM .GTSPS==:54 ;SECOND PROCESSOR STATUS
DEFSYM SP.SC0==:1_6. ;SET CPU COMMAND (OK TO USE)
DEFSYM SP.CR0==:1_0. ;SET CPU UUO (OK TO USE)
;OTHERS BY SHIFTING LEFT 1 BIT/PROCESSOR
DEFSYM .GTC0C==:55 ;CPU0 CDB CONSTANTS
DEFSYM .GTC0V==:56 ;CPU0 CDB VARIABLES
DEFSYM .GTC1C==:57 ;CPU1 CDB CONSTANTS
DEFSYM .GTC1V==:60 ;CPU1 CDB VARIABLES
DEFSYM .GTC2C==:61 ;CPU2 CDB CONSTANTS
DEFSYM .GTC2V==:62 ;CPU2 CDB VARIABLES
DEFSYM .GTC3C==:63 ;CPU3 CDB CONSTANTS
DEFSYM .GTC3V==:64 ;CPU3 CDB VARIABLES
DEFSYM .GTC4C==:65 ;CPU4 CDB CONSTANTS
DEFSYM .GTC4V==:66 ;CPU4 CDB VARIABLES
DEFSYM .GTC5C==:67 ;CPU5 CDB CONSTANTS
DEFSYM .GTC5V==:70 ;CPU5 CDB VARIABLES
DEFSYM %CCPTR==:0,,55 ;LH=POINTER TO NEXT CDB
DEFSYM %CCSER==:1,,55 ;APR SERIAL NUMBER
DEFSYM %CCOKP==:2,,55 ;CPU OK IF LE 0, JIFFIES DEAD IF GT 0
DEFSYM %CCTOS==:3,,55 ;TRAP OFFSET FOR KA10 INTERRUPT LOCATIONS
DEFSYM %CCLOG==:4,,55 ;LOGICAL NAME (CPUN)
DEFSYM %CCPHY==:5,,55 ;PHYSICAL NAME (CPXN)
DEFSYM %CCTYP==:6,,55 ;TYPE OF PROCESSOR (LH-DEC, RH-CUST)
DEFSYM .CC166==:1 ;PDP-6
DEFSYM .CCKAX==:2 ;KA-10
DEFSYM .CCKIX==:3 ;KI-10
DEFSYM .CCKLX==:4 ;KL-10
DEFSYM %CCMPT==:7,,55 ;REL. GETTAB POINTER TO BAD ADDRESS TABLE
DEFSYM %CCRTC==:10,,55 ;REAL TIME CLOCK (DK10) DDB
DEFSYM %CCRTD==:11,,55 ;REAL TIME CLOCK DDB IF HI PREC. TIME ACCT.
DEFSYM %CCPAR==:12,,55 ;REL. GETTAB POINTER TO PARITY SUMMARY
DEFSYM %CCRSP==:13,,55 ;REL. GETTAB POINTER TO RESPONSE SUMMARY
DEFSYM %CCDKX==:14,,55 ;NUMBER OF DK10'S ON THIS CPU
DEFSYM %CCEBS==:15,,55 ;NUMBER OF EBOX TICKS PER SECOND ON KL10
DEFSYM %CCMBS==:16,,55 ;NUMBER OF MBOX TICKS PER SECOND ON KL10
DEFSYM %CVUPT==:5,,56 ;UPTIME
DEFSYM %CVLST==:12,,56 ;LOST TIME
DEFSYM %CVTPE==:14,,56 ;TOTAL MEMORY PARITY ERRORS
DEFSYM %CVSPE==:15,,56 ;SPURIOUS MEMORY PARITY ERRORS
DEFSYM %CVMPC==:16,,56 ;MULTIPLE MEMORY PARITY ERRORS
DEFSYM %CVMPA==:17,,56 ;MEMORY PARITY ADDRESS
DEFSYM %CVMPW==:20,,56 ;MEMORY PARITY WORD
DEFSYM %CVMPP==:21,,56 ;MEMORY PARITY PC
;HOLES ABOVE HERE BECAUSE OF .GTNSW COMPATABILITY
DEFSYM %CVABC==:27,,56 ;ADDRESS BREAK COUNT
DEFSYM %CVABA==:30,,56 ;ADDRESS BREAK ADDRESS
DEFSYM %CVLJR==:31,,56 ;LAST JOB RUN
;(OBSOLETE)
DEFSYM %CVSTS==:35,,56 ;STOP TIME-SHARING THIS CPU
DEFSYM %CVRUN==:36,,56 ;OPERATOR CONTROLLED SCHEDULING
DEFSYM CV%RUN==:1_35. ;DON'T RUN JOBS
DEFSYM %CVNUL==:37,,56 ;NULL TIME
DEFSYM %CVEDI==:40,,56 ;LH=PC,RH=COUNT OF EXEC DON'T CARE INTERRUPTS.
DEFSYM %CVJOB==:41,,56 ;CURRENT JOB
DEFSYM %CVOHT==:42,,56 ;OVERHEAD TIME IN JIFFIES (EXC. UUOS)
DEFSYM %CVEVM==:43,,56 ;MAX EVM FOR LOCK UUO MAPPING
DEFSYM %CVEVU==:44,,56 ;USED EVM FOR LOCK UUO MAPPING
DEFSYM %CVLLC==:45,,56 ;LOCK LOOP COUNT
DEFSYM %CVTUC==:46,,56 ;TOTAL UUO COUNT
DEFSYM %CVTJC==:47,,56 ;TOTAL JOB CONTEXT SWITCH COUNT
DEFSYM %CVTNE==:50,,56 ;TOTAL NXM ERRORS
DEFSYM %CVSNE==:51,,56 ;TOTAL NON-REPRODUCIBLE NXM ERRORS
DEFSYM %CVNJA==:52,,56 ;NUMBER OF JOBS AFFECTED BY THIS NXM
DEFSYM %CVMNA==:53,,56 ;FIRST MEMORY ADDRESS WITH NXM
DEFSYM %CVETJ==:54,,56 ;EBOX TICKS PER JIFFY (COMPUTED)
DEFSYM %CVNTJ==:54,,56 ;MBOX TICKS PER JIFFY (COMPUTED BY ONCE)
DEFSYM %CVRSO==:0 ;(REL.) SUM TTY OUT UUO RESPONSE
DEFSYM %CVRNO==:1 ;(REL.) NUMBER TTY OUT UUO RESPONSE
DEFSYM %CVRHO==:2 ;(REL.) HI-SUM SQ TTY OUT UUO RESPONSE
DEFSYM %CVRLO==:3 ;(REL.) LO-SUM SQ TTY OUT UUO RESPONSE
DEFSYM %CVRSI==:4 ;(REL.) SUM TTY INP UUO RESPONSE
DEFSYM %CVRNI==:5 ;(REL.) NUMBER TTY INP UUO RESPONSE
DEFSYM %CVRHI==:6 ;(REL.) HI-SUM SQ TTY INP UUO RESPONSE
DEFSYM %CVRLI==:7 ;(REL.) LO-SUM SQ TTY INP UUO RESPONSE
DEFSYM %CVRSR==:10 ;(REL.) SUM QUANTUM REQ RESPONSE
DEFSYM %CVRNR==:11 ;(REL.) NUMBER QUANTUM REQ RESPONSE
DEFSYM %CVRHR==:12 ;(REL.) HI-SUM SQ QUANTUM REQ RESPONSE
DEFSYM %CVRLR==:13 ;(REL.) LO-SUM SQ QUANTUM REQ RESPONSE
DEFSYM %CVRSX==:14 ;(REL.) SUM ONE OF ABOVE RESPONSE
DEFSYM %CVRNX==:15 ;(REL.) NUMBER ONE OF ABOVE RESPONSE
DEFSYM %CVRHX==:16 ;(REL.) HI-SUM SQ ONE OF ABOVE RESPONSE
DEFSYM %CVRLX==:17 ;(REL.) LO-SUM SQ ONE OF ABOVE RESPONSE
DEFSYM %CVRSC==:20 ;(REL.) SUM CPU RESPONSE
DEFSYM %CVRNC==:21 ;(REL.) NUMBER CPU RESPONSE
DEFSYM %CVRHC==:22 ;(REL.) HI-SUM SQ CPU RESPONSE
DEFSYM %CVRLC==:23 ;(REL.) LO-SUM SQ CPU RESPONSE
DEFSYM %CVPLA==:0 ;(REL.) HIGHEST ADDRESS OF PARITY ERROR
DEFSYM %CVPMR==:1 ;(REL.) ADDRESS IN SEGMENT OF PARITY ERROR
DEFSYM %CVPTS==:2 ;(REL.) NUMBER OF PARITIES THIS SWEEP
DEFSYM %CVPSC==:3 ;(REL.) NUMBER OF PARITY SWEEPS
DEFSYM %CVPUE==:4 ;(REL.) NUMBER OF USER ENABLED PARITY ERRORS
DEFSYM %CVPAA==:5 ;(REL.) AND OF BAD ADDRESS THIS SWEEP
DEFSYM %CVPAC==:6 ;(REL.) AND OF BAD CONTENTS THIS SWEEP
DEFSYM %CVPOA==:7 ;(REL.) IOR OF BAD ADDRESS THIS SWEEP
DEFSYM %CVPOC==:10 ;(REL.) IOR OF BAD CONTENTS THIS SWEEP
DEFSYM %CVPCS==:11 ;(REL.) NUMBER OF SPURIOUS CHANNEL ERRORS
DEFSYM .GTFET==:71 ;FEATURE TEST SETTINGS
DEFSYM %FTUUO==:0,,71 ;UUOS
DEFSYM F%EQDQ==:0,,1_13. ;ENQ./DEQ.
DEFSYM F%GALA==:0,,1_12. ;GALAXY-10 FEATURES
DEFSYM F%PI==:000,,1_11. ;SOFT. PI SYS
DEFSYM F%IPCF==:0,,1_10. ;IPCF
DEFSYM F%CCIN==:0,,1_9. ;CONTROL-C INTERCEPT
DEFSYM F%PTYU==:0,,1_8. ;JOBSTS AND CNTLJOB UUOS
DEFSYM F%PEEK==:0,,1_7. ;PEEK UUO
DEFSYM F%POKE==:0,,1_6. ;POKE. UUO
DEFSYM F%JCON==:0,,1_5. ;JOB CONTINUE
DEFSYM F%SPL==:00,,1_4. ;SPOOLING
DEFSYM F%PRV==:00,,1_3. ;JOB PRIVS
DEFSYM F%DAEM==:0,,1_2. ;DAEMON FUNCTIONS, ETC.
DEFSYM F%GETT==:0,,1_1. ;GETTAB UUO
DEFSYM F%2REL==:0,,1_0. ;2-REGISTER RELOCATION
DEFSYM %FTRTS==:1,,71 ;REAL TIME AND SCHEDULER
DEFSYM F%NSCH==:1,,1_10. ;NEW SCHEDULER
DEFSYM F%VM==:001,,1_9. ;VIRTUAL MEMORY
DEFSYM F%SWAP==:1,,1_8. ;SWAPPER (DEFINED IN S)
DEFSYM F%SHFL==:1,,1_7. ;SHUFFLER
DEFSYM F%RTC==:01,,1_6. ;DK10 SERVICE
DEFSYM F%LOCK==:1,,1_5. ;LOCK UUO
DEFSYM F%TRPS==:1,,1_4. ;TRPSET UUO
DEFSYM F%RTTR==:1,,1_3. ;RTTRAP UUO
DEFSYM F%SLEE==:1,,1_2. ;SLEEP UUO
DEFSYM F%HIBW==:1,,1_1. ;HIBER/WAKE UUOS
DEFSYM F%HPQ==:01,,1_0. ;HIGH PRIORITY RUN QUEUES
DEFSYM %FTCOM==:2,,71 ;COMMANDS
DEFSYM F%EXE==:02,,1_15. ;.EXE FORMAT FILES SUPPORTED
DEFSYM F%MOFF==:2,,1_14. ;SET MEMORY OFF LINE
DEFSYM F%MONL==:2,,1_13. ;SET MEMORY ON LINE
DEFSYM F%CCL==:02,,1_12. ;COMPIL COMMANDS (DEFINED IN S)
DEFSYM F%CCLX==:2,,1_11. ;COMPIL-CLASS
DEFSYM F%QCOM==:2,,1_10. ;QUEUE AND FRIENDS
DEFSYM F%SET==:02,,1_9. ;SET UUO/COMMAND
DEFSYM F%VERS==:2,,1_8. ;VERSION
DEFSYM F%BCOM==:2,,1_7. ;BATCH CONTROL FILE
DEFSYM F%SEDA==:2,,1_6. ;SET DAYTIME AND SET DATE
DEFSYM F%WATC==:2,,1_5. ;WATCH
DEFSYM F%FINI==:2,,1_4. ;FINISH AND CLOSE
DEFSYM F%REAS==:2,,1_3. ;REASSIGN UUO/COMMAND
DEFSYM F%EXAM==:2,,1_2. ;E AND D
DEFSYM F%TALK==:2,,1_1. ;SEND
DEFSYM F%ATTA==:2,,1_0. ;ATTACH COMMAND/UUO
DEFSYM %FTACC==:3,,71 ;ACCOUNTING INFO
DEFSYM F%TLIM==:3,,1_4. ;TIME/CORE LIMITS, ETC.
DEFSYM F%CNO==:03,,1_3. ;CHARGE NUMBER
DEFSYM F%UNAM==:3,,1_2. ;USER NAME
DEFSYM F%KCT==:03,,1_1. ;KILO-CORE-TICKS
DEFSYM F%TIME==:3,,1_0. ;RUN TIME
DEFSYM %FTERR==:4,,71 ;ERROR CONTROL AND OPTIONS
DEFSYM F%MNXM==:4,,1_13. ;NXM ERROR RECOVERY CODE
DEFSYM F%KL10==:4,,1_12. ;THIS IS A KL10
DEFSYM F%KA10==:4,,1_11. ;THIS IS A KA10
DEFSYM F%22BI==:4,,1_10. ;22 BIT CHANNEL (DF10C)
DEFSYM F%PDBS==:4,,1_9. ;SWAPPING PDB
DEFSYM F%KI10==:4,,1_8. ;THIS IS A KI10
DEFSYM F%METR==:4,,1_7. ;METER. UUO
DEFSYM F%EXON==:4,,1_6. ;EXECUTE ONLY FILES (ALWAYS 1 SINCE 5.06)
DEFSYM F%KII==:04,,1_5. ;KI-10 INSTR CHECK ON KA10
DEFSYM F%BOOT==:4,,1_4. ;BOOTS BOOTSTRAP
DEFSYM F%2SWP==:4,,1_3. ;MULT. SWAPPING DEVICES
DEFSYM F%EL==:004,,1_2. ;DAEMON ERROR LOGGING
DEFSYM F%MS==:004,,1_1. ;MULTI-PROCESSORS
DEFSYM F%MEMP==:4,,1_0. ;MEMORY PARITY RECOVERY CODE
DEFSYM %FTDEB==:5,,71 ;DEBUGGING FEATURES
DEFSYM F%2SEG==:5,,1_8. ;2 SEGMENT MONITOR
DEFSYM F%RSP==:05,,1_7. ;RESPONSE TIME
DEFSYM F%WHY==:05,,1_6. ;WHY RELOAD
DEFSYM F%PATT==:5,,1_5. ;PATCH SPACE IN TABLES
DEFSYM F%TRAC==:5,,1_4. ;BACK TRACKING FEATURES
DEFSYM F%HALT==:5,,1_3. ;HALTS IN MONITOR
DEFSYM F%RCHK==:5,,1_2. ;INTERNAL REDUNDANCY CHECKS
DEFSYM F%MONP==:5,,1_1. ;MONITOR WRITE PROTECTED
DEFSYM F%CHEC==:5,,1_0. ;MONITOR CHECKSUMMED
DEFSYM %FTSTR==:6,,71 ;FILE STRUCTURE PARAMS
DEFSYM F%DHIA==:6,,1_16. ;HIGH AVAIL. FEATURES
DEFSYM F%DSIM==:6,,1_15. ;MULTI. ACCESS UPDATE
DEFSYM F%NUL==:06,,1_14. ;NUL
DEFSYM F%LIB==:06,,1_13. ;LIB/SYS/OLD/NEW ETC.
DEFSYM F%DPRI==:6,,1_12. ;DISK PRIORITY TRANSFERS
DEFSYM F%APLB==:6,,1_11. ;APPEND TO LAST BLOCK
DEFSYM F%AIR==:06,,1_10. ;APPEND IMPLIES READ
DEFSYM F%GSRC==:6,,1_9. ;GENERIC DEVICE SEARCH
DEFSYM F%DRDR==:6,,1_8. ;RENAME ACROSS DIRECTORIES
DEFSYM F%DSEK==:6,,1_7. ;SEEK UUO
DEFSYM F%DSUP==:6,,1_6. ;SUPER USETI/O
DEFSYM F%DQTA==:6,,1_5. ;DISK QUOTAS
DEFSYM F%STR==:06,,1_4. ;MULTIPLE STRUCTURES
DEFSYM F%5UUO==:6,,1_3. ;MISC. 5-SERIES UUOS
DEFSYM F%PHYO==:6,,1_2. ;PHYSICAL ONLY
DEFSYM F%SFD==:06,,1_1. ;SUB FILE DIRECTORIES
DEFSYM F%MOUN==:6,,1_0. ;STRUUO FUNCTIONS
DEFSYM %FTDSK==:7,,71 ;INTERNAL DISK PARAMS
DEFSYM F%RP04==:7,,1_17. ;INCLUDE RP04 SUPPORT
DEFSYM F%SLCK==:7,,1_16. ;DEBUG SEARCH LIST CODE
DEFSYM F%2ATB==:7,,1_15. ;2 PART ACCESS BLOCKS
DEFSYM F%CBDB==:7,,1_14. ;DEBUG CB INTERLOCK
DEFSYM F%LOGI==:7,,1_13. ;LOGIN (DEFINED IN S)
DEFSYM F%DISK==:7,,1_12. ;DISK SYSTEM (DEFINED IN S)
DEFSYM F%FFRE==:7,,1_11. ;PREVENT RACES IN FILFND
DEFSYM F%SWPE==:7,,1_10. ;SWAP READ ERROR RECOVERY
DEFSYM F%DBBK==:7,,1_9. ;BAD BLOCK MARKING
DEFSYM F%DUFC==:7,,1_8. ;UFD COMPRESSOR
DEFSYM F%DETS==:7,,1_7. ;DISK ERROR SIMULATOR
DEFSYM F%DMRB==:7,,1_6. ;MULTI RIBS
DEFSYM F%DSMC==:7,,1_5. ;SMALLER ALLOC. OF DISK CORE BLOCKS
DEFSYM F%DALC==:7,,1_4. ;ALLOCATION OPTIMISATIONS
DEFSYM F%DSTT==:7,,1_3. ;DISK USAGE STATISTICS
DEFSYM F%DHNG==:7,,1_2. ;HUNG DISK RECOVERY
DEFSYM F%DBAD==:7,,1_1. ;DISK OFF-LINE RECOVERY
DEFSYM F%DOPT==:7,,1_0. ;LATENCY OPTIMIZATION
DEFSYM %FTSCN==:10,,71 ;SCANNER OPTIONS
DEFSYM F%DCXH==:10,,1_13.;DC10-H (2741 ON DC10) SUPPORTED
DEFSYM F%TVP==:010,,1_12.;FANCY VERTICAL POSITIONING
DEFSYM F%TYPE==:10,,1_11.;TYPESET-10 FEATURES IN DC76
DEFSYM F%2741==:10,,1_10.;SUPPORT 2741-LIKE TERMINALS
DEFSYM F%CAFE==:10,,1_9.;DC76
DEFSYM F%TBLK==:10,,1_8.;TTY BLANK COMMAND
DEFSYM F%TPAG==:10,,1_7.;PAGE AND DISPLAY KNOWLEDGE
DEFSYM F%DIAL==:10,,1_6.;AUTO DIALER
DEFSYM F%SCLC==:10,,1_5.;SPECIAL LINE CONTROL
DEFSYM F%SCNR==:10,,1_4.;HARDWARE SCANER
DEFSYM F%MODM==:10,,1_3.;MODEM CONTROL
DEFSYM F%630H==:10,,1_2.;SINGLE SCANNER 630
DEFSYM F%GPO2==:10,,1_1.;U.K. MODEM SUPPORT
DEFSYM F%HDPX==:10,,1_0.;TRULY HALF DUPLEX TERMINALS
DEFSYM %FTPER==:11,,71 ;I/O PARAMS
DEFSYM F%RDBA==:11,,1_16.;READ BACKWARDS ON TU70
DEFSYM F%TLAB==:11,,1_15.;TAPE LABEL SUPPORT
DEFSYM F%TAPO==:11,,1_14.;TAPOP. UUO
DEFSYM F%TASK==:11,,1_13.;TASK TO TASK NETWORK SUPPORT
DEFSYM F%DAS7==:11,,1_12.;DAS78 (REMOTE 360/370/2780) SUPPORT
DEFSYM F%XTC==:011,,1_11.;DA28-C NETWORK SUPPORT
DEFSYM F%MSGS==:11,,1_10.;MSGSER (MPX DEVICE)
DEFSYM F%HSLN==:11,,1_9.;HIGH-SPEED LOGICAL DEVICE SEARCH
DEFSYM F%CPTR==:11,,1_8.;CDP TROUBLE INTERCEPT
DEFSYM F%CRTR==:11,,1_7.;CDR TROUBLE INTERCEPT
DEFSYM F%CTY1==:11,,1_6.;SUPPORT CTY1
DEFSYM F%REM==:011,,1_5.;REMOTE STATION SOFTWARE
DEFSYM F%LPTR==:11,,1_4.;LPT DEVICE ERROR RECOVERY
DEFSYM F%OPRE==:11,,1_3.;DEVICE ERRS TO OPER
DEFSYM F%CDRS==:11,,1_2.;CDR SUPER IMAGE MODE
DEFSYM F%MTSE==:11,,1_1.;MTA DENSITY/BLOCK COMMANDS
DEFSYM F%TMP==:011,,1_0.;TMPCOR AREA
DEFSYM .GTEDN==:72 ;ERSATZ DEVICE NAMES
DEFSYM .GTSCN==:73 ;SCANNER DATA
DEFSYM %SCNRI==:0,,73 ;NUMBER OF RCV INTERRUPTS
DEFSYM %SCNXI==:1,,73 ;NUMBER OF XMT INTERRUPTS
DEFSYM %SCNEI==:2,,73 ;NUMBER OF ECHO INTERRUPTS (IN XI)
DEFSYM %SCNMB==:3,,73 ;MAX BUFFER SIZE
DEFSYM %SCNAL==:4,,73 ;NUMBER OF ACTIVE LINES
DEFSYM %SCNPS==:5,,73 ;SIZE OF BUFFER FOR PIM MODE
DEFSYM %SCNRA==:6,,73 ;ADDRESS OF RECINT
DEFSYM %SCNXA==:7,,73 ;ADDRESS OF XMTINT
DEFSYM %SCNTA==:10,,73 ;ADDRESS OF TYPE
DEFSYM .GTSNA==:74 ;LAST SEND ALL IN 9-BIT
DEFSYM %SCNAE==:0,,74 ;BYTE POINTER TO END BYTE IN MESSAGE
DEFSYM %SCNAS==:1,,74 ;BYTE POINTER TO FIRST-1 BYTE IN MESSAGE
DEFSYM %SCNAM==:2,,74 ;FIRST WORD OF DATA IN MESSAGE
DEFSYM .GTCMT==:75 ;SET TTY COMMAND NAMES
DEFSYM .GTPID==:76 ;PROCESS COMMUNICATION ID (IPCF)
DEFSYM .GTIPC==:77 ;IPCF MISC. DATA
DEFSYM %IPCML==:0,,77 ;MAX. PACKET LENGTH
DEFSYM %IPCSI==:1,,77 ;PID OF SYSTEM-WIDE [SYSTEM]INFO
DEFSYM %IPCDQ==:2,,77 ;DEFAULT QUOTA
DEFSYM %IPCTS==:3,,77 ;TOTAL PACKETS SENT
DEFSYM %IPCTO==:4,,77 ;TOTAL PACKETS OUTSTANDING
DEFSYM %IPCCP==:5,,77 ;PID OF [SYSTEM]IPCC
DEFSYM %IPCPM==:6,,77 ;PID MASK
DEFSYM %IPCMP==:7,,77 ;LENGTH OF PID TABLE
DEFSYM %IPCNP==:10,,77 ;NUMBER OF PID'S NOW DEFINED
DEFSYM %IPCTP==:11,,77 ;TOTAL PID'S DEFINED SINCE RELOAD
DEFSYM .GTUPM==:100 ;USER PAGE MAP PAGE
DEFSYM .GTCMW==:101 ;SET WATCH COMMAND NAMES
DEFSYM .GTCVL==:102 ;CURRENT VIRT LIMIT,,CURRENT PHY LIMIT
DEFSYM .GTMVL==:103 ;MAXIMUM VIRT LIMIT,,MAXIMUM PHY LIMIT
DEFSYM .GTIPA==:104 ;IPCF STATISTICS PER JOB
DEFSYM IP.CQD==:-1,,0 ;COUNT OF SENDS SINCE LOGIN
DEFSYM IP.CQC==:0,,-1 ;COUNT OF RECEIVES SINCE LOGIN
DEFSYM .GTIPP==:105 ;IPCF POINTERS AND COUNTS
DEFSYM IP.CQP==:777_9. ;OUTSTANDING SENDS
DEFSYM IP.CQO==:777 ;OUTSTANDING RECEIVES
DEFSYM .GTIPI==:106 ;PID FOR THIS JOB'S [SYSTEM]INFO
DEFSYM .GTIPQ==:107 ;IPCF FLAGS AND QUOTAS PER JOB
DEFSYM IP.CQX==:1_35. ;DISABLED
DEFSYM IP.CQQ==:1_34. ;QUOTA SET
DEFSYM IP.CQS==:777_9. ;SEND QUOTA
DEFSYM IP.CQR==:777 ;RECEIVE QUOTA
DEFSYM .GTDVL==:110 ;POINTER TO THIS JOB'S LOGICAL NAME TABLE
DEFSYM .GTABS==:111 ;ADDRESS BREAK WORD (DATAO PTR,)
DEFSYM .GTCMP==:112 ;RESERVED FOR COMPATABILITY PACKAGES
DEFSYM %CMPMT==:0,,112 ;SIMULATED MONITOR TYPE (%CNMNT)
DEFSYM %CMPCV==:1,,112 ;CUSTOMER VERSION OF COMPAT. (136)
DEFSYM %CMPDV==:2,,112 ;DEC VERSION OF COMPAT. (137)
DEFSYM .GTVM==:113 ;GENERAL VIRTUAL MEMORY DATA
DEFSYM %VMSWP==:0,,113 ;SWAP COUNT
DEFSYM %VMSCN==:1,,113 ;SCAN COUNT
DEFSYM %VMSIP==:2,,113 ;SWAPS IN PROGRESS
DEFSYM %VMSLE==:3,,113 ;SWAP LIST ENTRIES
DEFSYM %VMTTL==:4,,113 ;TOTAL VM IN USE
DEFSYM %VMCMX==:5,,113 ;MAX VALUE OF %VMTTL ALLOWED
DEFSYM %VMRMX==:6,,113 ;PAGING RATE MAX FOR SYSTEM
DEFSYM %VMCON==:7,,113 ;CONSTANT USED IN SWAP RATE COMPUTATION
DEFSYM %VMQJB==:10,,113 ;JOB TO REQUE TO PQV (-1 IF ALL)
DEFSYM %VMRMJ==:11,,113 ;PAGING RATE MAX PER JOB
DEFSYM %VMTLF==:12,,113 ;TIME OF LAST FAULT
DEFSYM %VMSPF==:13,,113 ;SYSTEM PAGE FAULT COUNTS: NOT IN WS,,IN WS
DEFSYM %VMSW1==:14,,113 ;ADDRESS OF SWPLST
DEFSYM %VMSW2==:15,,113 ;ADDRESS OF SW2LST
DEFSYM %VMSW3==:16,,113 ;ADDRESS OF SW3LST
DEFSYM .GTVRT==:114 ;PER JOB PAGING RATE
DEFSYM .GTSST==:115 ;SCHEDULER STATISTICS
DEFSYM %SSOSO==:0,,115 ;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
; THEM TO GIVE UP RESOURCE FOR SWAP OUT.
DEFSYM %SSORJ==:1,,115 ;NUMBER OF JOBS RUN OUT OF ORDER TO ALLOW
; THEM TO GIVE UP RESOURCE REQUIRED TO RUN A JOB
DEFSYM %SSNUL==:2,,115 ;SWAPPER NULL TIME
DEFSYM %SSLOS==:3,,115 ;SWAPPER LOST TIME
DEFSYM %SSRQC==:4,,115 ;TOTAL NUMBER OF REQUEUES
DEFSYM %SSICM==:5,,115 ;INTERVAL TO COMPUTE MCU
DEFSYM %SSMSI==:6,,115 ;MEDIUM TERM SCHEDULING INTERVAL
DEFSYM %SSAJS==:7,,115 ;AVERAGE JOB SIZE
DEFSYM %SSTQT==:10,,115 ;TOTAL QUOTA TIME
DEFSYM %SSEAF==:11,,115 ;EXPONENTIAL AVERAGING FACTOR
DEFSYM %SSEAT==:12,,115 ;EXPONENTIALY AVERAGED USER TIME
DEFSYM %SSRSS==:13,,115 ;TOTAL USER RUNTIME SINCE SCHED. UUO
; SET CLASS PARAMETERS
DEFSYM .GTDCF==:116 ;DESIRED CHAN. USE FRACTION (INDEX BY CHAN)
DEFSYM .GTST2==:117 ;SECOND JOB STATUS WORD
DEFSYM .GTJTC==:120 ;JOB TYPE AND SCHEDULER CLASS
DEFSYM .GTCQP==:121 ;CLASS QUOTA IN PERCENT (INDEX BY CLASS)
DEFSYM .GTCQJ==:122 ;CLASS QUOTA IN JIFFIES (INDEX BY CLASS)
DEFSYM .GTCRT==:123 ;CLASS RUNTIME SINCE QUOTAS SET (INDEX BY CLASS)
DEFSYM .GTSQH==:124 ;SUB QUEUE HEADERS
DEFSYM .GTSQ==:125 ;SUB QUEUE WORD FOR EACH JOB
DEFSYM .GTSID==:126 ;SPECIAL PID TABLE
DEFSYM %SIIPC==:0,,126 ;[SYSTEM]IPCC
DEFSYM %SIINF==:1,,126 ;[SYSTEM]INFO
DEFSYM %SIQSR==:2,,126 ;[SYSTEM]QUASAR
DEFSYM %SIMDA==:3,,126 ;MOUNTABLE DEVICE ALLOCATOR
DEFSYM %SITLP==:4,,126 ;MAGTAPE LABELING PROCESS
DEFSYM .GTENQ==:127 ;ENQ./DEQ. STATISTICS
DEFSYM %EQMSS==:0,,127 ;MAXIMUM STRING SIZE
DEFSYM %EQNAQ==:1,,127 ;NUMBER OF ACTIVE QUEUES
DEFSYM %EQESR==:2,,127 ;TOTAL ENQ. SINCE RELOAD
DEFSYM %EQDSR==:3,,127 ;TOTAL DEQ. SINCE RELOAD
DEFSYM %EQAPR==:4,,127 ;ACTIVE POOLED RESOURCES
DEFSYM %EQDEQ==:5,,127 ;DEFAULT ENQ. QUOTA
DEFSYM .GTJLT==:130 ;JOB LOGIN TIME IN UNIVERSAL FORMAT
DEFSYM .GTEBT==:131 ;JIFFIES OF KL10 EBOX TIME
DEFSYM .GTEBR==:132 ;JIFFY REMAINDER MOD RTUPS OF 131
DEFSYM .GTMBT==:133 ;JIFFIES OF KL10 MBOX TIME
DEFSYM .GTMBR==:134 ;JIFFY REMAINDER MOD RTUPS OF 133
SUBTTL MISC. NON-I/O -- TMPCOR
DEFSYM .TCRFS==:0 ;COUNT OF FREE SPACE
DEFSYM .TCRRF==:1 ;READ FILE
DEFSYM .TCRDF==:2 ;DELETE FILE
DEFSYM .TCRWF==:3 ;WRITE FILE
DEFSYM .TCRRD==:4 ;READ DIRECTORY
DEFSYM .TCRDD==:5 ;DELETE DIRECTORY
SUBTTL MISC. NON-I/O -- LOCK
DEFSYM LK.HNP==:1_20. ;HI-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
DEFSYM LK.HNE==:1_19. ;HI-SEG DON'T MAP IN EXEC VM
DEFSYM LK.HLS==:1_18. ;HI-SEG LOCK SEGMENT
DEFSYM LK.LNP==:1_2. ;LO-SEG DON'T LOCK PHYSICALLY CONTIGUOUS
DEFSYM LK.LNE==:1_1. ;LO-SEG DON'T MAP IN EXEC VM
DEFSYM LK.LLS==:1_0. ;LO-SEG LOCK SEGMENT
DEFSYM .LKPPN==:0 ;PHYSICAL PAGE NUMBER
;LOCK UUO ERRORS
DEFSYM LKNIS%==:0 ;NOT IMPLEMENTED IN THIS SYSTEM
DEFSYM LKNLP%==:1 ;NO LOCKING PRIVS
DEFSYM LKNCA%==:2 ;NOT ENOUGH CORE TO CONTINUE CURRENT JOBS
DEFSYM LKNCM%==:3 ;NOT ENOUGH CORE TO GUARANTEE CORMIN
DEFSYM LKNEM%==:4 ;NOT ENOUGH EXEC VIRT MEM
DEFSYM LKNIA%==:5 ;ILLEGAL SUB-FUNCTION ARGUMENT
DEFSYM LKNPU%==:6 ;PAGE UNAVAILABLE
SUBTTL MISC. NON-I/O -- RTTRP
;RTTRP UUO ERROR CODES
DEFSYM RTJNP%==:1_11. ;JOB DOESN'T HAVE PRIVS
DEFSYM RTNC0%==:1_10. ;NOT RUNNABLE ON CPU0
DEFSYM RTDIU%==:1_9. ;DEVICE IN USE BY ANOTHER JOB
DEFSYM RTIAU%==:1_8. ;ILLEGAL AC USED DURING RTTRP AT INTERRUPT
DEFSYM RTJNL%==:1_7. ;JOB NOT LOCKED (OR NOT PRIVILEGED)
DEFSYM RTSLE%==:1_6. ;SYSTEM LIMIT EXCEEDED FOR RT DEVICES
DEFSYM RTILF%==:1_5. ;ILLEGAL FORMAT OF I/O INSTRUCTION
DEFSYM RTPWI%==:1_4. ;POINTER WORD ILLEGAL
DEFSYM RTEAB%==:1_3. ;ERROR ADDRESS OUT OF BOUNDS
DEFSYM RTTAB%==:1_2. ;TRAP ADDRESS BAD
DEFSYM RTPNB%==:1_1. ;PI CHANNEL NOT CURRENTLY AVAILABLE FOR BLKI/O
DEFSYM RTPNA%==:1_0. ;PI CHANNEL NOT AVAILABLE
SUBTTL MISC. NON-I/O -- JOBSTS
DEFSYM JB.UJA==:1_35. ;JOB NUMBER ASSIGNED
DEFSYM JB.ULI==:1_34. ;JOB IS LOGGED IN
DEFSYM JB.UML==:1_33. ;TTY IS AT MONITOR LEVEL
DEFSYM JB.UOA==:1_32. ;OUTPUT IS AVAILABLE
DEFSYM JB.UDI==:1_31. ;TTY IS DEMANDING INPUT
DEFSYM JB.UJC==:1_30. ;JACCT IS SET
DEFSYM JB.UJN==:777777 ;JOB NUMBER
SUBTTL MISC. NON-I/O -- HIBER
DEFSYM HB.SWP==:1_35. ;FORCE IMMEDIATE SWAP OUT
DEFSYM HB.IPC==:1_25. ;IPCF
DEFSYM HB.RIO==:1_24. ;I/O
DEFSYM HB.RPT==:1_23. ;PTY ACTIVITY
DEFSYM HB.RTL==:1_22. ;TTY LINE ACTIVITY
DEFSYM HB.RTC==:1_21. ;TTY CHARACTER ACTIVITY
DEFSYM HB.RWJ==:1_20. ;THIS JOB
DEFSYM HB.RWP==:1_19. ;THIS PROGRAMMER
DEFSYM HB.RWT==:1_18. ;THIS PROJECT
SUBTTL MISC. NON-I/O -- APRENB
DEFSYM AP.REN==:1_17. ;REPETITIVE ENABLE
DEFSYM AP.POV==:1_16. ;PUSH DOWN OVERFLOW
DEFSYM AP.ABK==:1_14. ;(FUTURE)ADDRESS BREAK
DEFSYM AP.ILM==:1_13. ;ILLEGAL MEMORY
DEFSYM AP.NXM==:1_12. ;NON-EXISTENT MEMORY
DEFSYM AP.PAR==:1_11. ;PARITY ERROR FLAG
DEFSYM AP.CLK==:1_9. ;CLOCK
DEFSYM AP.FOV==:1_6. ;FLOATING OVERFLOW
DEFSYM AP.AOV==:1_3. ;ARITHMETIC OVERFLOW
SUBTTL MISC. NON-I/O -- SAVE/GET LOCATIONS
DEFSYM .SGNAM==:0 ;FILE NAME FROM RUN UUO
DEFSYM .SGPPN==:7 ;DIRECTORY FROM RUN UUO
DEFSYM .SGDEV==:11 ;DEVICE FROM RUN UUO
DEFSYM .SGLOW==:17 ;EXTENSION OF LOW SEG FROM RUN UUO
DEFSYM .SG41==:122 ;LOCATION IN SAVE FILE CONTAINING COPY OF .J_31.1
DEFSYM .SGDDT==:114 ;LOCATION IN SAVE FILE CONTAINING COPY OF .JBDDT
;BLOCK TYPES IN .EXE FILE DIRECTORY
DEFSYM .SVEND==:1777 ;END OF DIRECTORY
DEFSYM .SVDIR==:1776 ;DIRECTORY BLOCK
;.EXE FILE DIRECTORY ENTRIES
DEFSYM .SVFPF==:0 ;FILE PAGE AND FLAGS
DEFSYM SV%HIS==:1_35. ;PAGE IS PART OF HISEG
DEFSYM SV%SHR==:1_34. ;PAGE IS SHARABLE
DEFSYM SV%WRT==:1_33. ;PAGE IS WRITABLE
DEFSYM SV%CON==:1_32. ;PAGE IS CONCEALED
DEFSYM SV%SYM==:1_31. ;PAGE IS PART OF SYMBOL TABLE
DEFSYM SV%FPN==:1777 ;FILE PAGE NUMBER
DEFSYM .SVPPC==:1 ;PROCESS PAGE AND REPEAT COUNT
DEFSYM SV%REP==:777_27. ;REPEAT COUNT
DEFSYM SV%PPN==:777 ;PROCESS PAGE NUMBER
SUBTTL MISC. NON-I/O -- SETUUO
DEFSYM .STCMX==:0 ;CORE MAX
DEFSYM .STCMN==:1 ;CORE MIN
DEFSYM .STDAY==:2 ;DAYTIME
DEFSYM .STSCH==:3 ;SCHED WORD (SAME AS %CNSTS)
DEFSYM .STCDR==:4 ;CDR SPOOL NAME
DEFSYM .STSPL==:5 ;SPOOLING BITS (SAME AS .GTSPL)
DEFSYM .STWTC==:6 ;WATCH BITS
DEFSYM ST.WDY==:1_16. ;WATCH DAYTIME AT START
DEFSYM ST.WRN==:1_15. ;WATCH RUN TIME
DEFSYM ST.WWT==:1_14. ;WATCH WAIT TIME
DEFSYM ST.WDR==:1_13. ;WATCH DISK READS
DEFSYM ST.WDW==:1_12. ;WATCH DISK WRITES
DEFSYM ST.WVR==:1_11. ;WATCH VERSIONS
DEFSYM ST.WMT==:1_10. ;WATCH MTA STATISTICS
DEFSYM ST.WAL==:376_9. ;WATCH ALL
DEFSYM .STDAT==:7 ;DATE
DEFSYM .STOPR==:10 ;OPR DEVICE
DEFSYM .STKSY==:11 ;KSYS TIMER
DEFSYM .STCLM==:12 ;CORE LIMIT
DEFSYM .STTLM==:13 ;TIME LIMIT
DEFSYM .STCPU==:14 ;CPU SPECIFICATION
DEFSYM .STCRN==:15 ;CPU RUNABILITY
DEFSYM SP.CR5==:1_5. ;CPU5
DEFSYM SP.CR4==:1_4. ;CPU4
DEFSYM SP.CR3==:1_3. ;CPU3
DEFSYM SP.CR2==:1_2. ;CPU2
DEFSYM SP.CR1==:1_1. ;CPU1
;DEFSYM SP.CR0==:1_0. ;CPU0 (SAME BIT DEFINED EARLIER)
DEFSYM .STLMX==:16 ;LOGMAX
DEFSYM .STBMX==:17 ;BATMAX
DEFSYM .STBMN==:20 ;BATMIN
DEFSYM .STDFL==:21 ;DSKFUL
DEFSYM .DFPSE==:0 ;PAUSE
DEFSYM .DFERR==:1 ;ERROR
DEFSYM .STMVM==:22 ;MAX VM
DEFSYM .STMVR==:23 ;MAX VM RATE
DEFSYM .STUVM==:24 ;USER VM MAXIMA (VIRT,,PHY)
DEFSYM .STCVM==:25 ;USER CURRENT VM MAXIMA (VIRT,,PHY)
DEFSYM ST.VSG==:1_17. ;SET IF PHYS LIMIT IS GUIDELINE
DEFSYM .STTVM==:26 ;USER VIRT TIME INTERRUPTS
DEFSYM .STABK==:27 ;ADDRESS BREAK (HDWR FORMAT; 1_32. BREAKS UUO REFERENCES)
DEFSYM .STPGM==:30 ;SET PROGRAM TO RUN
DEFSYM .STDFR==:31 ;SET DEFERED SPOOLING
SUBTTL MISC. NON-I/O -- SCHED.
;;AC CONTAINS N,,ADDR WHERE ADDR CONTAINS:
;; !=======================================================!
;; ! FUNCTION 1 ! BLOCK 1 !
;; !-------------------------------------------------------!
;; ! FUNCTION 2 ! BLOCK 2 !
;; !-------------------------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------------------------!
;; ! FUNCTION N ! BLOCK N !
;; !=======================================================!
;FUNCTION CODES:
DEFSYM .SCRSI==:000000 ;READ SCHEDULING INTERVAL
DEFSYM .SCSSI==:400000 ;SET SCHEDULING INTERVAL
;BLOCK CONTAINS:
DEFSYM .SCBSI==:0 ;SCHEDULING INTERVAL
DEFSYM .SCRMI==:000001 ;READ MCU INTERVAL
DEFSYM .SCSMI==:400001 ;SET MCU INTERVAL
;BLOCK CONTAINS:
DEFSYM .SCBMI==:0 ;MCU INTERVAL
DEFSYM .SCRCQ==:000002 ;READ CLASS QUOTAS AND FLAGS
DEFSYM .SCSCQ==:400002 ;SET CLASS QUOTAS AND FLAGS
;;BLOCK CONTAINS:
;; !=====================================!
;; ! SIZE OF BLOCK !
;; !-------------------------------------!
;; ! BITS+CLASS ! QUOTA !
;; !-------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------!
;; ! BITS+CLASS ! QUOTA !
;; !=====================================!
DEFSYM .SCBCT==:0 ;WORD COUNT
DEFSYM .SCBCQ==:1 ;CLASS QUOTA
;******DEFINE FLAGS HERE******
;CONTINUED ON NEXT PAGE
DEFSYM .SCRTS==:000003 ;READ TIME SLICE
DEFSYM .SCSTS==:400003 ;SET TIME SLICE
;;BLOCK CONTAINS:
;DEFSYM .SCBCT==:0 ;WORD COUNT
DEFSYM .SCBP1==:1 ;TIME SLICE FOR PQ1
DEFSYM .SCBP2==:2 ;TIME SLICE FOR PQ2
DEFSYM .SCRUF==:000004 ;READ DESIRED CHAN USE FRACTION
DEFSYM .SCSUF==:400004 ;SET DESIRED CHAN USE FRACTION
;;BLOCK CONTAINS:
;; !=====================================!
;; ! WORD COUNT !
;; !-------------------------------------!
;; ! CHAN # ! DCUF !
;; !-------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------!
;; ! CHAN # ! DCUF !
;; !=====================================!
;DEFSYM .SCBCT==:0 ;WORD COUNT
DEFSYM .SCBUF==:1 ;CHAN,,USE FRACTION IN %
DEFSYM .SCRJC==:000005 ;READ JOB'S CLASS
DEFSYM .SCSJC==:400005 ;SET JOB'S CLASS
;;BLOCK CONTAINS:
;; !=====================================!
;; ! WORD COUNT !
;; !-------------------------------------!
;; ! JOB # ! CLASS !
;; !-------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------!
;; ! JOB # ! CLASS !
;; !=====================================!
;DEFSYM .SCBCT==:0 ;WORD COUNT
DEFSYM .SCBJC==:1 ;JOB,,CLASS
;CONTINUED ON NEXT PAGE
DEFSYM .SCRMC==:000006 ;READ MCU CONSTANT
DEFSYM .SCSMC==:400006 ;SET MCU CONSTANT
;BLOCK CONTAINS
DEFSYM .SCBMC==:0 ;MCU CONSTANT
DEFSYM .SCRCU==:000007 ;READ CLASS USAGE
;;BLOCK CONTAINS:
;; !=====================================!
;; ! WORD COUNT !
;; !-------------------------------------!
;; ! CLASS 0 RUNTIME !
;; !-------------------------------------!
;; ! CLASS 1 RUNTIME !
;; !-------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------!
;; ! CLASS N RUNTIME !
;; !=====================================!
;DEFSYM SCBCT==:0 ;WORD COUNT
DEFSYM .SCBCU==:1 ;CLASS 0 USED
DEFSYM .SCREF==:000010 ;READ EXPONENTIAL FACTOR
DEFSYM .SCSEF==:400010 ;SET EXPONENTIAL FACTOR
;BLOCK CONTAINS:
DEFSYM .SCBEF==:0 ;EXPONENTAIL FACTOR
DEFSYM .SCRMM==:000011 ;READ MCU MULTIPLIER
DEFSYM .SCSMM==:400011 ;SET MCU MULTIPLIER
;BLOCK CONTAINS:
DEFSYM .SCBMM==:0 ;MCU MULTIPLIER
;SCHED. UUO ERROR CODES
DEFSYM SCHAC%==:1 ;ADDRESS CHECK
DEFSYM SCHUF%==:2 ;UNKNOWN FUNCTION
DEFSYM SCHUJ%==:3 ;UNKNOWN JOB
DEFSYM SCHNP%==:4 ;NOT PRIVILEGED
DEFSYM SCHUC%==:5 ;UNKNOWN CLASS
DEFSYM SCHUQ%==:6 ;UNKNOWN QUEUE
DEFSYM SCHNC%==:7 ;NON-EXISTANT CHANNEL
DEFSYM SCHEB%==:10 ;EXPONENTIAL FACTOR BAD
DEFSYM SCHMI%==:11 ;ATTEMPT TO SET PROT WHEN MCUINT NON-ZERO
SUBTTL MISC. NON-I/O -- ATTACH
DEFSYM AT.UMM==:1_35. ;PLACE IN MONITOR MODE
DEFSYM AT.UUM==:1_34. ;PLACE IN USER MODE
SUBTTL UNIVERSAL DEVICE INDEX
DEFSYM .UXCHN==:0 ;I/O CHANNEL NUMBER
;001000-077777 ARE PHYSICAL DEVICES
DEFSYM UX.TYP==:77_9. ;DEVICE TYPE (SAME AS DEVTYP)
DEFSYM UX.UNT==:777 ;UNIT WITHIN TYPE
DEFSYM .UXTRM==:200000 ;TERMINALS
DEFSYM .UXPRC==:300000 ;PROCESS
SUBTTL .JBINT INTERCEPT BLOCK
;; !=======================================================!
;; ! BLOCK LENGTH ! NEW PC !
;; !-------------------------------------------------------!
;; ! OLD PC AND FLAGS !
;; !-------------------------------------------------------!
;; ! CLASS OF INTERRUPT ! CHANNEL NUMBER !
;; !=======================================================!
DEFSYM .ERNPC==:0 ;LH=LENGTH, RH=NEW PC FOR INTERRUPT
DEFSYM .ERCLS==:1 ;CLASSES OF ERROR INTERCEPTING
DEFSYM ER.MSG==:1_35. ;SUPPRESS ERROR MESSAGE
DEFSYM ER.EIJ==:1_6. ;ERROR IN JOB
DEFSYM ER.TLX==:1_5. ;TIME LIMIT EXCEEDED
DEFSYM ER.QEX==:1_4. ;QUOTA EXHAUSTED
DEFSYM ER.FUL==:1_3. ;FILE STRUCTURE FULL
DEFSYM ER.OFL==:1_2. ;DISK UNIT OFF-LINE
DEFSYM ER.ICC==:1_1. ;CONTROL-C INTERCEPT
DEFSYM ER.IDV==:1_0. ;"PROBLEM ON DEVICE" ERRORS
DEFSYM .EROPC==:2 ;OLD PC
DEFSYM .ERCCL==:3 ;RH=CHANNEL, LH=CLASS OF INTERRUPT
SUBTTL PSI SOFTWARE INTERRUPT SYSTEM
;INTERRUPT VECTOR
; SETS OF 4-WORD BLOCKS
;; !=======================================================!
;; ! NEW PC AND FLAGS !
;; !-------------------------------------------------------!
;; ! OLD PC AND FLAGS !
;; !-------------------------------------------------------!
;; ! !O!R!A!D!M!I! ! I/O REASON !
;; !-------------------------------------------------------!
;; ! INTERRUPT STATUS !
;; !=======================================================!
DEFSYM .PSVNP==:0 ;NEW PC AND FLAGS
DEFSYM .PSVOP==:1 ;OLD PC AND FLAGS
DEFSYM .PSVFL==:2 ;FLAGS
DEFSYM PS.VPO==:1_34. ;TURN PERMANENTLY OFF, NO RESTORE
DEFSYM PS.VTO==:1_33. ;TURN OFF, RESTORE ON DEBRK.
DEFSYM PS.VAI==:1_32. ;ALLOW ADDITIONAL INTERRUPT
DEFSYM PS.VDS==:1_31. ;DISCARD SUCCESSIVE INTERRUPTS WHILE INTERRUPTED
DEFSYM PS.VPM==:1_30. ;PRINT STANDARD MESSAGE
DEFSYM PS.VIP==:1_29. ;INTERRUPTS IN PROGRESS FOR THIS BLOCK
; (USED BY PSISER)
DEFSYM PS.RID==:1_16. ;REASON--INPUT DONE
DEFSYM PS.ROD==:1_15. ;REASON--OUTPUT DONE
DEFSYM PS.REF==:1_14. ;REASON--END FILE
DEFSYM PS.RIE==:1_13. ;REASON--INPUT ERROR
DEFSYM PS.ROE==:1_12. ;REASON--OUTPUT ERROR
DEFSYM PS.RDO==:1_11. ;REASON--DEVICE OFF-LINE
DEFSYM PS.RDF==:1_10. ;REASON--DEVICE FULL
DEFSYM PS.RQE==:1_9. ;REASON--QUOTA EXCEEDED
DEFSYM PS.RWT==:1_8. ;REASON--IO WAIT
DEFSYM .PSVIS==:3 ;INTERRUPT STATUS (AUX. WORD)
; I/O DEVICES RETURN UDX,,GETSTS
;NON-DEVICE CONDITIONS
DEFSYM .PCTLE==:-1 ;TIME LIMIT EXCEEDED (NON-BATCH ONLY)
DEFSYM .PCABT==:-2 ;ABORT (^A); RETURNS 1_35.=1 IF TI WAIT; (FUTURE)
DEFSYM .PCSTP==:-3 ;STOP (^C); RETURNS 1_35.=1 IF TI WAIT
DEFSYM .PCUUO==:-4 ;ANY MUUO; RETURNS UUO
DEFSYM .PCIUU==:-5 ;ILLEGAL UUO; RETURNS UUO
DEFSYM .PCIMR==:-6 ;ILLEGAL MEMORY REFERENCE
DEFSYM .PCACK==:-7 ;ADDRESS CHECK; RETURNS DEVICE NAME
DEFSYM .PCARI==:-10 ;ARITHMETIC EXCEPTION
DEFSYM .PCPDL==:-11 ;PDL OVERFLOW
DEFSYM .PCTT3==:-12 ;TRAP TYPE 3 (FUTURE)
DEFSYM .PCNXM==:-13 ;NON-EXISTENT MEMORY
DEFSYM .PCAPC==:-14 ;APR CLOCK; RETURNS MSTIME
DEFSYM .PCUEJ==:-15 ;USER INDUCED ERROR IN JOB
DEFSYM .PCXEJ==:-16 ;EXTERNAL ERROR IN JOB
DEFSYM .PCKSY==:-17 ;KSYS WARNING; RETURNS MINS TO KSYS
DEFSYM .PCDSC==:-20 ;DATA-SET CHANGE; RETURNS NEW STATUS
DEFSYM .PCDAT==:-21 ;DETACH/ATTACH; RETURNS -1 OR TTY UDX
DEFSYM .PCWAK==:-22 ;WAKE UUO; RETURNS JOB NUMBER OF WAKER
DEFSYM .PCABK==:-23 ;ADDRESS BREAK
DEFSYM .PCIPC==:-24 ;IPCF RECEIVE; RETURNS LENGTH,,FLAGS
DEFSYM .PCRMC==:-25 ;REMOTE COMPUTER CONDITION
DEFSYM .PCQUE==:-26 ;ENQ/DEQ RESOURCE AVAILABLE
;INTERRUPT ENABLE REQUEST BLOCK
; SETS OF 3-WORD BLOCKS
DEFSYM .PSECN==:0 ;CONDITION OR DEVICE
DEFSYM .PSEOR==:1 ;OFFSET,,REASON BITS
DEFSYM .PSEPR==:2 ;PRIORITY,,RESERVED
;PISYS. FUNCTION BITS
DEFSYM PS.FOF==:1_34. ;TURN OFF
DEFSYM PS.FON==:1_33. ;TURN ON
DEFSYM PS.FCP==:1_32. ;CLEAR ALL PENDING INTERRUPTS
DEFSYM PS.FCS==:1_31. ;CLEAR SELECTED INTERRUPT
DEFSYM PS.FRC==:1_30. ;REMOVE CONDITION OR DEVICE
DEFSYM PS.FAC==:1_29. ;ADD CONDITION OR DEVICE
;PISAV./PIRST. FLAGS
DEFSYM .PSSFC==:0 ;FLAGS,,COUNT
DEFSYM PS.SON==:1_35. ;SYSTEM IS ON
DEFSYM .PSSIV==:1 ;ADDRESS OF INTERRUPT VECTOR
DEFSYM .PSSBL==:2 ;START OF 3-WORD BLOCKS
;PISYS. ERRORS
DEFSYM PSTMA%==:0 ;TOO MANY ARGUMENTS
DEFSYM PSNFS%==:1 ;NO FUNCTION SUPPLIED
DEFSYM PSUKF%==:2 ;UNKNOWN FUNCTION REQUESTED
DEFSYM PSOOF%==:3 ;ON AND OFF IN SAME FUNCTION
DEFSYM PSUKC%==:4 ;UNKNOWN CONDITION REQUESTED
DEFSYM PSDNO%==:5 ;DEVICE NOT OPEN
DEFSYM PSPRV%==:6 ;PRIVILEGE FAILURE
DEFSYM PSIVO%==:7 ;INVALID VECTOR OFFSET
DEFSYM PSUKR%==:10 ;UNKNOWN REASON ENABLED
DEFSYM PSPTL%==:11 ;PRIORITY TOO LARGE
DEFSYM PSNRW%==:12 ;NON-ZERO RESERVED WORD
DEFSYM PSPND%==:13 ;PIINI. NOT DONE
DEFSYM PSARF%==:14 ;ADD AND REMOVE IN SAME FUNCTION
;PISAV. ERRORS
DEFSYM PSBTS%==:0 ;BLOCK TOO SMALL
;PIRST. ERRORS
DEFSYM PSNRS%==:0 ;NOT RESTORING WHAT WAS SAVED
SUBTTL IPCF INTERPROCESS COMMUNICATION FACILITY
;PACKET FORMAT
;; !=========================================================================!
;; !BB!IS!R!O!T! !P!V! ! ERROR !SENDR!RETRN!
;; !-------------------------------------------------------------------------!
;; ! SENDER'S PID !
;; !-------------------------------------------------------------------------!
;; ! RECEIVER'S PID !
;; !-------------------------------------------------------------------------!
;; ! WORD LENGTH OF DATA ! START OF DATA (WORD/PAGE) !
;; !-------------------------------------------------------------------------!
;; ! SENDER'S PPN (SUPPLIED BY MONITOR) !
;; !-------------------------------------------------------------------------!
;; !J !L !X!P!I! !
;; !=========================================================================!
DEFSYM .IPCFL==:0 ;FLAGS
DEFSYM IP.CFB==:1_35. ;DON'T BLOCK READ
DEFSYM IP.CFS==:1_34. ;INDIRECT SENDER'S PID
DEFSYM IP.CFR==:1_33. ;INDIRECT RECEIVER'S PID
DEFSYM IP.CFO==:1_32. ;OVERDRAW SEND
DEFSYM IP.CFT==:1_31. ;TRUNCATE READ
DEFSYM IP.CFP==:1_17. ;SENDER IS PRIVILEGED AND IS INVOKING THEM
DEFSYM IP.CFV==:1_16. ;VM PAGE TRANSFER MODE
DEFSYM IP.CFE==:77_6. ;ERROR FIELD (NOT PRIV.)
DEFSYM IP.CFC==:7_3. ;SYSTEM SENDER CODE (PRIV.)
DEFSYM .IPCCC==:1 ;SENT BY [SYSTEM]IPCC
DEFSYM .IPCCF==:2 ;SENT BY SYSTEM-WIDE [SYSTEM]INFO
DEFSYM .IPCCP==:3 ;SENT BY RECEIVER'S [SYSTEM]INFO
DEFSYM IP.CFM==:7 ;SPECIAL MESSAGE RETURN FIELD (PRIV.)
DEFSYM .IPCFN==:1 ;MESSAGE WAS NOT DELIVERED
DEFSYM .IPCFS==:1 ;SENDER'S PID
DEFSYM .IPCFR==:2 ;RECEIVER'S PID
DEFSYM .IPCFP==:3 ;LENGTH,,START OF DATA IN PACKET
DEFSYM .IPCFU==:4 ;SENDER'S PPN (SUPPLIED BY MONITOR)
DEFSYM .IPCFC==:5 ;SENDER'S CAPABILITIES WORD. (SUPPLIED BY MONITOR)
DEFSYM IP.JAC==:1_35. ;SENDER HAS JACCT SET
DEFSYM IP.JLG==:1_34. ;SENDER IS LOGGED-IN
DEFSYM IP.SXO==:1_33. ;SENDER IS EXECUTE ONLY
DEFSYM IP.POK==:1_32. ;SENDER HAS JS.POK PRIV
DEFSYM IP.IPC==:1_31. ;SENDER HAS IPCF PRIVS
;IPCC AND INFO ERROR CODES
DEFSYM IPCAC%==:1 ;ADDRESS CHECK
DEFSYM IPCNL%==:2 ;NOT LONG ENOUGH
DEFSYM IPCNP%==:3 ;NO PACKET IN RECEIVE QUEUE
DEFSYM IPCIU%==:4 ;(UNUSED)
DEFSYM IPCTL%==:5 ;DATA TOO LONG FOR USER'S BUFFER
DEFSYM IPCDU%==:6 ;DESTINATION UNKNOWN (RECEIVER'S PID)
DEFSYM IPCDD%==:7 ;DESTINATION DISABLED
DEFSYM IPCRS%==:10 ;NO ROOM IN SENDER'S QUOTA
DEFSYM IPCRR%==:11 ;NO ROOM IN RECEIVER'S QUOTA
DEFSYM IPCRY%==:12 ;NO ROOM IN SYSTEM STORAGE
DEFSYM IPCUP%==:13 ;UNKNOWN PAGE ON SEND; DUPLICATE PAGE ON RECEIVE (VM)
DEFSYM IPCIS%==:14 ;INVALID SEND PID
DEFSYM IPCPI%==:15 ;PRIV INSUFFICIENT
DEFSYM IPCUF%==:16 ;UNKNOWN FUNCTION
DEFSYM IPCBJ%==:17 ;BAD JOB NUMBER
DEFSYM IPCPF%==:20 ;PID TABLE FULL
DEFSYM IPCPR%==:21 ;PAGE REQUESTED, NORMAL NEXT
DEFSYM IPCIE%==:22 ;PAGING I/O ERROR
DEFSYM IPCBI%==:23 ;BAD INDEX SPECIFIED FOR SYSTEM PID TABLE
DEFSYM IPCUI%==:24 ;UNDEFINED ID IN SYSTEM PID TABLE
DEFSYM IPCFU%==:70 ;[SYSTEM]INFO HAS AN UNKNOWN, INTERNAL ERROR
DEFSYM IPCCF%==:71 ;[SYSTEM]IPCC REQUEST FROM [SYSTEM]INFO FAILED
DEFSYM IPCFF%==:72 ;[SYSTEM]INFO FAILED TO COMPLETE AN ASSIGN
DEFSYM IPCQP%==:73 ;PID QUOTA EXCEEDED
DEFSYM IPCBP%==:74 ;BAD (UNKNOWN) PID
DEFSYM IPCDN%==:75 ;DUPLICATE NAME
DEFSYM IPCNN%==:76 ;NO SUCH NAME
DEFSYM IPCBN%==:77 ;NAME HAS ILLEGAL CHARACTERS
;MESSAGES TO AND FROM [SYSTEM]IPCC
DEFSYM .IPCS0==:0 ;LH=CALLER'S IDENTIFIER, RH=FUNCTION
DEFSYM .IPCSE==:1 ;ENABLE (ME OR (1)=PID)
DEFSYM .IPCSD==:2 ;DISABLE (ME OR (1)=PID)
DEFSYM .IPCSI==:3 ;TELL PID OF [SYSTEM]INFO FOR (ME OR (1)=PID); (2) GETS PID
DEFSYM .IPCSF==:4 ;MAKE [SYSTEM]INFO OF (1) (2)=FOR WHOM (0=SYSTEM)
DEFSYM .IPCSZ==:5 ;ZAP PID IN (1)
DEFSYM .IPCSC==:6 ;CREATE PID FOR JOB IN (1); (2) GETS PID
DEFSYM .IPCSQ==:7 ;SET QUOTA (2) FOR (1)=PID
DEFSYM .IPCSO==:10 ;CHANGE OWNER OF (1)=PID, (2)=NEW JOB NUMBER
DEFSYM .IPCSJ==:11 ;GIVE JOB OF PID IN (1); (2) GETS JOB NO
DEFSYM .IPCSP==:12 ;GIVE PID LIST FOR JOB (1) STARTING AT (2)
DEFSYM .IPCSR==:13 ;READ QUOTA OF JOB (1); INTO (2)
DEFSYM .IPCSW==:14 ;WAKE JOB (1) SLEEPING FROM .IPCSS
DEFSYM .IPCSS==:15 ;(ANSWER ONLY) IF LH(1)=0, JOB RH(1) IS RESETTING
; IF LH(1)=-1, JOB RH(1) IS LOGGING OUT
DEFSYM .IPCWP==:24 ;WRITE SYSTEM PID TABLE
DEFSYM .IPCRP==:25 ;READ SYSTEM PID TABLE
DEFSYM .IPCSU==:26 ;SPOOLED FILE CLOSED (SENT TO [SYSTEM]QUASAR)
DEFSYM .IPCSL==:27 ;LOGOUT MESSAGE SEND TO [SYSTEM]QUASAR
DEFSYM .IPCS1==:1 ;FIRST ARGUMENT
DEFSYM .IPCS2==:2 ;SECOND ARGUMENT
DEFSYM .IPCS3==:3 ;THIRD ARGUMENT
;SPECIAL SYSTEM PID TYPES (READ/WRITE .GTSID VIA .IPCRP AND .IPCWP)
DEFSYM .IPCPS==:0 ;[SYSTEM]IPCC
DEFSYM .IPCPI==:1 ;[SYSTEM]INFO
DEFSYM .IPCPQ==:2 ;[SYSTEM]QUASAR
DEFSYM .IPCPM==:3 ;MOUNTABLE DEVICE ALLOCATOR
DEFSYM .IPCPT==:4 ;TAPE LABEL PROCESS
;MESSAGES TO AND FROM [SYSTEM]INFO
DEFSYM .IPCI0==:0 ;LH=CALLER'S IDENTIFIER, RH=FUNCTION
DEFSYM .IPCIW==:1 ;WHAT IS PID, ASCIZ IN (2+)
DEFSYM .IPCIG==:2 ;GET NAME OF (2)=PID
DEFSYM .IPCII==:3 ;ASSIGN NAME UNTIL RESET (FORMAT=.IPCIW)
DEFSYM .IPCIJ==:4 ;ASSIGN NAME UNTIL LOGOUT (FORMAT=.IPCIW)
DEFSYM .IPCID==:5 ;DROP SPECIFIC PID (2)
DEFSYM .IPCIR==:6 ;DROP NAMES SET BY .IPCII, (2)=JOB NUMBER
DEFSYM .IPCIL==:7 ;DROP NAMES SET BY .IPCIJ, (2)=JOB NUMBER
DEFSYM .IPCIS==:15 ;RESET JOB RH(1) IF LH(1)=0, OR LOGOUT IF LH=-1
DEFSYM .IPCI1==:1 ;FIRST ARGUMENT (ALWAYS 0 OR PID TO GET DUPLICATE OF ANSWER)
DEFSYM .IPCI2==:2 ;SECOND ARGUMENT
SUBTTL PAGE AND VM VIRTUAL MEMORY FACILITY
;PAGE. UUO FUNCTIONS
DEFSYM .PAGIO==:0 ;PAGE IN/OUT (OUT IF 1_35.=1 IN LIST)
DEFSYM PA.GSL==:1_34. ;PAGE TO SLOW SWAPPING SPACE
DEFSYM .PAGCD==:1 ;PAGE CREATE/DESTROY
DEFSYM PA.GCD==:1_34. ;CREATE PAGE ON DISK
DEFSYM .PAGEM==:2 ;PAGE EXCHANGE/MOVE
DEFSYM .PAGAA==:3 ;CLEAR/SET ACCESS ALLOWED
DEFSYM .PAGWS==:4 ;GET WORKING SET
DEFSYM .PAGGA==:5 ;GET ACCESS ALLOWED
DEFSYM .PAGCA==:6 ;CHECK ACCESS LEGAL
DEFSYM PA.GNE==:1_35. ;DOES NOT EXIST
DEFSYM PA.GWR==:1_34. ;WRITABLE
DEFSYM PA.GRD==:1_33. ;READABLE
DEFSYM PA.GAA==:1_32. ;ACCESS ALLOWED
DEFSYM PA.GAZ==:1_31. ;ALLOCATED BUT ZERO
DEFSYM PA.GCP==:1_30. ;CAN'T BE PAGED OUT
DEFSYM PA.GPO==:1_29. ;IS PAGED OUT
DEFSYM .PAGCH==:7 ;CREATE A HISEG (GENERAL REMAP)
;PAGE. UUO ERRORS
DEFSYM PAGUF%==:0 ;UNIMPLEMENTED FUNCTION
DEFSYM PAGIA%==:1 ;ILLEGAL ARGUMENT
DEFSYM PAGIP%==:2 ;ILLEGAL PAGE NUMBER
DEFSYM PAGCE%==:3 ;PAGE CAN'T EXIST BUT DOES
DEFSYM PAGME%==:4 ;PAGE MUST EXIST BUT DOESN'T
DEFSYM PAGMI%==:5 ;PAGE MUST BE IN CORE BUT ISN'T
DEFSYM PAGCI%==:6 ;PAGE CAN'T BE IN CORE BUT IS
DEFSYM PAGSH%==:7 ;PAGE IS IN A SHARABLE HI-SEG
DEFSYM PAGIO%==:10 ;PAGING I/O ERROR
DEFSYM PAGNS%==:11 ;NO SWAPPING SPACE AVAILABLE
DEFSYM PAGLE%==:12 ;CORE LIMIT EXCEEDED
DEFSYM PAGIL%==:13 ;ILLEGAL IF LOCKED
DEFSYM PAGNX%==:14 ;CAN NOT CREATE ALLOCTED BUT ZERO PAGE
; WITH VIRTUAL LIMIT EQUAL TO ZERO.
;.JBPFH REGION
DEFSYM .PFHNP==:0 ;NEW PC AND FLAGS
DEFSYM .PFHOP==:1 ;OLD PC AND FLAGS
DEFSYM .PFHFC==:2 ;FAULT WORD
DEFSYM PF.HCB==:1_35. ;WORKING SET CHANGED BEHIND BACK
DEFSYM PF.HPN==:777_18. ;PAGE NUMBER
DEFSYM PF.HFC==:0,,-1 ;FAULT CODE
DEFSYM .PFHNA==:1 ;PAGE NOT ACCESSABLE
DEFSYM .PFHNI==:2 ;PAGE NOT IN CORE
DEFSYM .PFHUU==:3 ;PAGE FAULT IN UUO ARGS
DEFSYM .PFHTI==:4 ;VIRTUAL TIMER
DEFSYM .PFHZI==:5 ;ALLOCATED BUT ZERO FROM USER
DEFSYM .PFHZU==:6 ;ALLOCATED BUT ZERO DURING UUO
DEFSYM .PFHVT==:3 ;VIRTUAL TIME
DEFSYM .PFHPR==:4 ;PAGING RATE
;5-10 RESERVED
SUBTTL DAEMON CALLS
;DAEMON UUO FUNCTIONS
DEFSYM .DCORE==:1 ;DUMP CORE
DEFSYM .CLOCK==:2 ;ENTER A CLOCK REQUEST
DEFSYM .FACT==:3 ;MAKE A FACT FILE ENTRY
DEFSYM .DMQUE==:4 ;(UNIMPLEMENTED)
DEFSYM .DMERR==:5 ;ERROR LOGGING
DEFSYM .DMCTL==:6 ;(UNIMPLEMENTED)
;DAEMON UUO ERRORS
DEFSYM DMILF%==:1 ;ILLEGAL FUNCTION
DEFSYM DMACK%==:2 ;ADDRESS CHECK
DEFSYM DMWNA%==:3 ;WRONG NUMBER OF ARGUMENTS
DEFSYM DMSNH%==:4 ;IMPOSSIBLE UUO FAILURE (SHOULD NEVER HAPPEN)
DEFSYM DMCWF%==:5 ;CAN'T WRITE FILE
DEFSYM DMNPV%==:6 ;NO PRIVILEGES
DEFSYM DMFFB%==:7 ;FACT FORMAT BAD
DEFSYM DMPTH%==:10 ;INVALID PATH SPECIFICATION
;DCORE DUMP CATEGORIES
DEFSYM .CAJOB==:1 ;JOB TABLES (SEE BELOW)
DEFSYM .CACNF==:2 ;CONFIGURATION TABLES (.GTCNV)
DEFSYM .CADDB==:3 ;JOB'S DDBS
DEFSYM .CACOR==:4 ;USER'S CORE IMAGE (COMPRESSED)
DEFSYM .CAFET==:5 ;FET GETTAB
DEFSYM .CAMAX==:5 ;HIGHEST LEGAL CATEGORY NUMBER
;DCORE JOB TABLE ENTRIES
DEFSYM .DJVER==:0 ;DAEMON VERSION (137)
DEFSYM .DJDAT==:1 ;DATE (FROM DATE UUO)
DEFSYM .DJMST==:2 ;TIME IN MILLISEC. (FROM MSTIME UUO)
DEFSYM .DJJSN==:3 ;JOB,,SEGMENT NUMBERS
DEFSYM .DJLIN==:4 ;???,,LINE NUMBER (TTY)
DEFSYM .DJSTS==:5 ;.GTSTS(JOB)
DEFSYM .DJHTS==:6 ;.GTSTS(HISEG)
DEFSYM .DJPPN==:7 ;.GTPPN(JOB)
DEFSYM .DJHPN==:10 ;.GTPPN(HISEG)
DEFSYM .DJPRG==:11 ;.GTPRG(JOB)
DEFSYM .DJHRG==:12 ;.GTPRG(HISEG)
DEFSYM .DJTIM==:13 ;.GTTIM(JOB)
DEFSYM .DJKCT==:14 ;.GTKCT(JOB)
DEFSYM .DJPRV==:15 ;.GTPRV(JOB)
DEFSYM .DJSWP==:16 ;.GTSWP(JOB)
DEFSYM .DJHWP==:17 ;.GTSWP(HISEG)
DEFSYM .DJRCT==:20 ;.GTRCT(JOB)
DEFSYM .DJWCT==:21 ;.GTWCT(JOB)
DEFSYM .DJTDB==:22 ;.GTTDB(JOB)
DEFSYM .DJDEV==:23 ;.GTDEV(HISEG)
DEFSYM .DJNM1==:24 ;.GTNM1(JOB)
DEFSYM .DJNM2==:25 ;.GTNM2(JOB)
DEFSYM .DJCNO==:26 ;.GTCNO(JOB)
DEFSYM .DJTMP==:27 ;.GTTMP(JOB)
DEFSYM .DJWCH==:30 ;.GTWCH(JOB)
DEFSYM .DJSPL==:31 ;.GTSPL(JOB)
DEFSYM .DJRTD==:32 ;.GTRTD(JOB)
DEFSYM .DJLIM==:33 ;.GTLIM(JOB)
DEFSYM .DJSPS==:34 ;.GTSPS(JOB)
DEFSYM .DJRSP==:35 ;.GTRSP(JOB)
DEFSYM .DJTRQ==:36 ;.GTTRQ(JOB)
DEFSYM .DJUPM==:37 ;.GTUPM(JOB)
DEFSYM .DJHPM==:40 ;.GTUPM(HISEG)
DEFSYM .DJCVL==:41 ;.GTCVL(JOB)
DEFSYM .DJMVL==:42 ;.GTMVL(JOB)
DEFSYM .DJIPA==:43 ;.GTIPA(JOB)
DEFSYM .DJIPC==:44 ;.GTIPC(JOB)
DEFSYM .DJIPI==:45 ;.GTIPI(JOB)
DEFSYM .DJIPQ==:46 ;.GTIPQ(JOB)
DEFSYM .DJDVL==:47 ;.GTDVL(JOB)
DEFSYM .DJABS==:50 ;.GTABS(JOB)
DEFSYM .DJVRT==:51 ;.GTVRT(JOB)
DEFSYM .DJHRT==:52 ;.GTVRT(HISEG)
DEFSYM .DJMAX==:52 ;HIGHEST LEGAL JOB TABLE
SUBTTL METER UUO
;METER. FUNCTIONS
DEFSYM .MEFCI==:0 ;INITIALIZE METER CHANNEL
DEFSYM .MEFCS==:1 ;READ METER CHANNEL STATUS
DEFSYM .MEFCR==:2 ;RELEASE METER CHANNEL
DEFSYM .MEFPI==:3 ;INITIALIZE METER POINT
DEFSYM .MEFPS==:4 ;READ METER POINT STATUS
DEFSYM .MEFPR==:5 ;RELEASE METER POINT
;METER. ERRORS
DEFSYM MEILF%==:1 ;ILLEGAL FUNCTION
DEFSYM MENPV%==:2 ;NOT PRIVILEGED USER
DEFSYM MEIMA%==:3 ;ILLEGAL MEMORY ADDRESS
DEFSYM MEPDL%==:4 ;PDL OVERFLOW
DEFSYM MEIAL%==:5 ;ILLEGAL ARG LIST
DEFSYM MEIAV%==:6 ;ILLEGAL ARG VALUE
DEFSYM MENFC%==:7 ;NOT ENOUGH FREE CORE
DEFSYM MEICT%==:10 ;ILLEGAL CHANNEL TYPE
DEFSYM MEIPT%==:11 ;ILLEGAL POINT ROUTINE TYPE
DEFSYM MENXP%==:12 ;NON-EXISTENT POINT NAME
DEFSYM MENXC%==:13 ;NON-EXISTENT CHANNEL
DEFSYM MEPNA%==:14 ;POINT NOT AVAILABLE
;STANDARD CHANNEL ARGUMENT BLOCK LOCATIONS
DEFSYM .MCFUN==:0 ;UUO FUNCTION CODE
DEFSYM .MCCID==:1 ;USER CHANNEL ID
DEFSYM .MCTYP==:2 ;CHANNEL TYPE
DEFSYM .MCTYN==:0 ;NULL CHANNEL
DEFSYM .MCTYD==:1 ;DISPLAY CHANNEL
DEFSYM .MCTYT==:2 ;TRACE CHANNEL
DEFSYM .MCSTS==:3 ;CHANNEL STATUS
DEFSYM MC.STS==:17777_23. ;STATUS MASK
DEFSYM MC.USA==:1_34. ;USER SEGMENT ADDRESSED
DEFSYM .MCJOB==:4 ;CHANNEL JOB NUMBER
;DISPLAY CHANNEL ARGS
DEFSYM .MCTCN==:5 ;AVERAGING TIME CONSTANT
DEFSYM .MCPTR==:6 ;DEPOSIT BYTE POINTER
;TRACE CHANNEL ARGS
DEFSYM .MCFLG==:5 ;USER ADDRESS OF FLAG AND STATUS WORD
DEFSYM MC.WAK==:1_35. ;ENABLED FOR WAKEUP
DEFSYM .MCBUF==:6 ;USER ADDRESS OF TRACE BUFFER
DEFSYM .MCIOX==:7 ;USER ADDRESS OF BUFFER INDEX
DEFSYM .MCCNT==:10 ;USER ADDRESS OF WAKEUP COUNTER
DEFSYM .MCBFL==:11 ;BUFFER LENGTH
;ARGUMENT BLOCK FOR METER. POINT FUNCTIONS
DEFSYM .MPFUN==:0 ;UUO FUNCTION CODE
DEFSYM .MPAPP==:1 ;NUM ARGS PER POINT IN LIST
DEFSYM .MPNUM==:2 ;NUMBER OF POINTS IN LIST
DEFSYM .MPADR==:3 ;ADDRESS OF POINT LIST
DEFSYM .MPERR==:4 ;ADDRESS OF ERROR POINT
;ARG DISPLACEMENTS PER POINT IN POINT LIST
DEFSYM .MPNAM==:0 ;POINT NAME
DEFSYM .MPPID==:1 ;USER POINT ID
DEFSYM .MPPAR==:2 ;POINT PARAMETER
DEFSYM .MPJOB==:3 ;JOB NUMBER
DEFSYM .MPSTS==:4 ;POINT STATUS
DEFSYM MP.STS==:17777_23. ;POINT STATUS MASK
DEFSYM MP.ENB==:1_35. ;POINT IS ENABLED
DEFSYM MP.USA==:1_34. ;USER SEGMENT ADDRESSED
DEFSYM .MPPRT==:5 ;POINT ROUTINE TYPE
DEFSYM .MPRN==:00 ;NULL ROUTINE
DEFSYM .MPRV==:01 ;INTRINSIC VALUE
DEFSYM .MPRT==:02 ;TIME INTERVAL
DEFSYM .MPRVI==:3 ;INTRINSIC VALUE+POINT ID
DEFSYM .MPRTI==:4 ;TIME+POINT ID
DEFSYM .MPPRP==:6 ;POINT ROUTINE PARAMETER
DEFSYM .MPCID==:7 ;USER CHANNEL ID
SUBTTL ENQUEUE AND DEQUEUE SYMBOLS
;;GENERAL FORMAT FOR ENQ./DEQ./ENQC.
;;!=======================================================!
;;! # OF LOCKS ! LENGTH OF THIS BLOCK !
;;!-------------------------------------------------------!
;;! RESERVED ! REQUEST ID !
;;!=======================================================!
;;!S!B! RESERVED ! LEVEL # ! CHAN #/-1/-2/-3 !
;;!-------------------------------------------------------!
;;! BYTE POINTER TO STRING OR USER CODE !
;;!-------------------------------------------------------!
;;! # OF RES. IN POOL ! # WANTED OR GROUP # !
;;!-------------------------------------------------------!
;;/ /
;;/ 3 WORDS FOR EACH LOCK /
;;/ /
;;!-------------------------------------------------------!
;;!S!B! RESERVED ! LEVEL # ! CHAN #/-1/-2/-3 !
;;!-------------------------------------------------------!
;;! POINTER TO STRING OR 5_33.+USER CODE !
;;!-------------------------------------------------------!
;;! # OF RES IN POOL ! # WANTED OR GROUP # !
;;!=======================================================!
DEFSYM .ENQLL==:0 ;NUMBER OF LOCKS AND LENGTH
DEFSYM EQ.LNL==:777777_18. ;NUMBER OF LOCKS
DEFSYM EQ.LLB==:777777_0. ;LENGTH OF BLOCK
DEFSYM .ENQRI==:1 ;REQUEST I.D.
;FOR EACH LOCK:
DEFSYM .ENQFL==:0 ;FLAGS, LEVEL, CHAN
DEFSYM EQ.FSR==:1_35. ;SHARED REQUEST
DEFSYM EQ.FBL==:1_34. ;BYPASS LEVEL CHECKING
DEFSYM EQ.FLV==:777_18. ;LEVEL #
DEFSYM EQ.FCC==:777777 ;CHAN. NUMBER OR CODE
DEFSYM .EQFJB==:777777 ;CODE FOR THIS JOB ONLY
DEFSYM .EQFGL==:777776 ;GLOBAL LOCK
DEFSYM .EQFPL==:777775 ;PRIV. GLOBAL LOCK
DEFSYM .ENQBP==:1 ;BYTE POINTER OR USER CODE
DEFSYM EQ.BUC==:5_33. ;SET IF 33 BIT USER CODE IS USED
DEFSYM .ENQPS==:2 ;POOL SIZE
DEFSYM EQ.PPS==:777777_18. ;TOTAL SIZE OF POOL
DEFSYM EQ.PPR==:777777_0. ;NUMBER REQUESTED FROM POOL
;ENQ. FUNCTION CODES
DEFSYM .ENQBL==:0 ;ENQ. BLOCK TILL AVAILABLE
DEFSYM .ENQAA==:1 ;ENQ. ALLOCATE ONLY IF AVAILABLE
DEFSYM .ENQSI==:2 ;ENQ. SOFTWARE INTERRUPT WHEN AVAIL.
DEFSYM .ENQMA==:3 ;ENQ. MODIFY ACCESS
;DEQ. FUNCTION CODES
DEFSYM .DEQDR==:0 ;DEQ. RESOURCE
DEFSYM .DEQDA==:1 ;DEQ. ALL
DEFSYM .DEQID==:2 ;DEQ. BY REQUEST I.D.
;ENQC. FUNCTION CODES
DEFSYM .ENQCS==:0 ;RETURN STATUS
DEFSYM .ENQCG==:1 ;GET USER'S QUOTA
DEFSYM .ENQCC==:2 ;CHANGE USERS QUOTA
DEFSYM .ENQCD==:3 ;DUMP THE DATA BASE
;;FORMAT OF ENQC. STATUS BLOCKS (FUNCTION 1)
;;!=========================================================================!
;;!I !O !Q!X! ! LEVEL # ! JOB # OF OWNER OR ERROR # !
;;!-------------------------------------------------------------------------!
;;! TIME-STAMP OF LOCK !
;;!-------------------------------------------------------------------------!
;;! RESERVED TO DEC ! REQUEST ID OF CALLER/OWNER !
;;!-------------------------------------------------------------------------!
;;/ /
;;/ TWO WORDS FOR EACH LOCK IN ENQC. REQUEST /
;;/ /
DEFSYM .ENQCF==:0 ;FLAG WORD
DEFSYM EQ.CFI==:1_35. ;LOCK IS INVALID
DEFSYM EQ.CFO==:1_34. ;THIS USER IS THE OWNER
DEFSYM EQ.CFQ==:1_33. ;THIS USER IS IN THE QUEUE
DEFSYM EQ.CFX==:1_32. ;THE OWNER HAS EXCLUSIVE ACCESS
DEFSYM EQ.CFL==:777_18. ;LEVEL NUMBER
DEFSYM EQ.CFJ==:777777 ;JOB # OF OWNER (OR ERROR CODE)
DEFSYM .ENQCT==:1 ;TIME-STAMP (TIME LOCK WAS GRANTED TO OWNER
; IN UNIVERSAL FORMAT)
DEFSYM .ENQCI==:2 ;REQUEST ID OF OWNER/CALLER
;;FORMAT FOR ENQC. DUMP
;;!=======================================================!
;;! NUMBER OF WORDS IN THIS BLOCK !
;;!=======================================================!
;;! !
;;! !
;;! LOCK-BLOCK FOR LOCK # 1 !
;;! !
;;!-------------------------------------------------------!
;;! QUEUE BLOCK FOR FIRST ENTRY OF LOCK 1 !
;;! !
;;!-------------------------------------------------------!
;;! !
;;! QUEUE BLOCK FOR SECOND ENTRY OF LOCK 1 !
;;!-------------------------------------------------------!
;;/ /
;;/ TWO WORD QUEUE-BLOCK FOR EACH WAITER FOR LOCK 1 /
;;/ /
;;!=======================================================!
;;! !
;;! !
;;! LOCK BLOCK FOR LOCK #2 !
;;! !
;;!-------------------------------------------------------!
;;! QUEUE-BLOCK FOR FIRST WAITER FOR LOCK #2 !
;;! !
;;!-------------------------------------------------------!
;;! !
;;! QUEUE-BLOCK FOR SECOND WAITER FOR LOCK #2 !
;;!-------------------------------------------------------!
;;/ /
;;/ /
;;/ LOCK-BLOCKS AND QUEUE BLOCKS FOR THE ENTIRE /
;;/ ENQ./DEQ. DATA BASE /
;;/ /
;;/ /
;;FORMAT OF EACH LOCK-BLOCK
;;!=========================================================================!
;;! 1! 0!T!0!0! ! LEVEL # ! LOCK I.D. !
;;!-------------------------------------------------------------------------!
;;! # IN POOL OR 0 ! # REMAINING OR 0 !
;;!-------------------------------------------------------------------------!
;;! TIME-STAMP !
;;!-------------------------------------------------------------------------!
;;! ASCIZ STRING (MAY BE SEVERAL WORDS) OR USER CODE !
;;!=========================================================================!
;;FORMAT OF EACH QUEUE-BLOCK
;;!=========================================================================!
;;! 0!LO!0!X!B! ! JOB # !
;;!-------------------------------------------------------------------------!
;;! GROUP # OR # REQUESTED ! REQUEST I.D. !
;;!=========================================================================!
;FLAGS IN FIRST WORD OF EACH BLOCK TYPE:
DEFSYM EQ.DLB==:1_35. ;THIS IS A LOCK BLOCK
DEFSYM EQ.DLO==:1_34. ;THIS IS THE LOCK OWNER (QUEUE-BLOCK ONLY)
DEFSYM EQ.DLT==:1_33. ;THIS LOCK HAS TEXT (LOCK-BLOCK ONLY)
DEFSYM EQ.DXA==:1_32. ;EXCLUSIVE ACCESS (QUEUE-BLOCK ONLY)
DEFSYM EQ.DJW==:1_31. ;THIS JOB IS BLOCKED WAITING FOR LOCK (QUEUE-BLOCK ONLY)
;FORMAT OF LOCK-BLOCK
DEFSYM .EQDFL==:0 ;FLAGS AND LEVEL
DEFSYM EQ.DFL==:777_18. ;LEVEL #
DEFSYM EQ.DFI==:777777 ;LOCK I.D.
DEFSYM .EQDPR==:1 ;POOLED REQUEST COUNTS
DEFSYM EQ.DPS==:777777_18. ;SIZE OF POOL
DEFSYM EQ.DPL==:777777_0. ;NUMBER LEFT
DEFSYM .EQDTS==:2 ;TIME-STAMP
DEFSYM .EQDSU==:3 ;STRING OR USER CODE
;FORMAT OF A QUEUE-BLOCK
DEFSYM .EQDFJ==:0 ;FLAGS AND JOB #
DEFSYM EQ.DJN==:777_0. ;JOB NUMBER
DEFSYM .EQDGI==:1 ;GROUP # AND REQUEST I.D.
DEFSYM EQ.DGR==:777777_18. ;GROUP OR # REQUESTED
DEFSYM EQ.DRI==:777777_0. ;REQUEST I.D.
;ENQ./DEQ./ENQC. ERROR CODES
DEFSYM ENQRU%==:1 ;SOME RESOURCE(S) REQUEST WERE UNAVAILABLE
DEFSYM ENQBP%==:2 ;ILLEGAL # OF RESOURCES REQUESTED (POOLED RESOURCES)
DEFSYM ENQBJ%==:3 ;BAD JOB NUMBER
DEFSYM ENQBB%==:4 ;BAD BYTE SIZE IN TEXT STRING
DEFSYM ENQST%==:5 ;STRING TOO LONG
DEFSYM ENQBF%==:6 ;BAD FUNCTION CODE
DEFSYM ENQBL%==:7 ;ILLEGAL ARGUMENT BLOCK LENGTH
DEFSYM ENQIC%==:10 ;ILLEGAL NUMBER OF LOCKS SPECIFIED
DEFSYM ENQBC%==:11 ;BAD CHANNEL NUMBER
DEFSYM ENQPI%==:12 ;OPERATOR/JACCT PRIVILEGE REQUIRED
DEFSYM ENQNC%==:13 ;NO CORE AVAILABLE
DEFSYM ENQFN%==:14 ;FILE NOT OPEN ON SPECIFIED CHANNEL, OR DEVICE NOT A DISK
DEFSYM ENQIN%==:15 ;INDIRECT OR INDEXED BYTE POINTER NOT ALLOWED
DEFSYM ENQNO%==:16 ;NO RESOURCES WERE OWNED
DEFSYM ENQLS%==:17 ;LEVEL SEQUENCING ERROR (LEVEL # TOO LOW)
DEFSYM ENQCC%==:20 ;CAN'T CHANGE ACCESS
DEFSYM ENQQE%==:21 ;QUOTA EXCEEDED
DEFSYM ENQPD%==:22 ;# OF RESOURCES IN POOL NOT SAME AS IN LOCK
DEFSYM ENQDR%==:23 ;DUPLICATE REQUEST FOR RESOURCE (LOCK ALREADY REQUESTED)
DEFSYM ENQNE%==:24 ;NOT ENQ'ED ON THIS LOCK
DEFSYM ENQLD%==:25 ;LEVEL # IN REQUEST DOES NOT MATCH LOCK
DEFSYM ENQED%==:26 ;ENQ/DEQ PRIVILEGES REQUIRED
SUBTTL MISC. I/O -- DEVCHR
DEFSYM DV.DRI==:1_35. ;DTA WITH DIRECTORY IN CORE
DEFSYM DV.DSK==:1_34. ;DEVICE IS A FILE STRUCTURE
DEFSYM DV.CDR==:1_33. ;IF DVOUT=1 DEVICE IS A CDP
; IF DVIN=1 DEVICE IS A CDR
DEFSYM DV.LPT==:1_32. ;DEVICE IS A LINE PRINTER
DEFSYM DV.TTA==:1_31. ;DEVICE IS A TTY CONTROLING A JOB
DEFSYM DV.TTU==:1_30. ;TTY DDB IS IN USE
DEFSYM DV.TTB==:1_29. ;FREE BIT LEFT FROM SCNSRF
DEFSYM DV.DIS==:1_28. ;DEVICE IS A DISPLAY
DEFSYM DV.LNG==:1_27. ;DEVICE HAS A LONG DISPATCH TABLE
DEFSYM DV.PTP==:1_26. ;DEVICE IS A PAPER TAPE PUNCH
DEFSYM DV.PTR==:1_25. ;DEVICE IS A PAPER TAPE READER
DEFSYM DV.DTA==:1_24. ;DEVICE IS A DEC TAPE
DEFSYM DV.AVL==:1_23. ;DEVICE IS AVAILABLE TO THIS JOB
DEFSYM DV.MTA==:1_22. ;DEVICE IS A MAG TAPE
DEFSYM DV.TTY==:1_21. ;DEVICE IS A TTY
DEFSYM DV.DIR==:1_20. ;DEVICE HAS A DIRECTORY
DEFSYM DV.IN==:1_19. ;DEVICE CAN DO INPUT
DEFSYM DV.OUT==:1_18. ;DEVICE CAN DO OUTPUT
DEFSYM DV.ASC==:1_17. ;DEVICE ASSIGNED BY ASSIGN COMMAND
DEFSYM DV.ASP==:1_16. ;DEVICE ASSIGNED BY INIT OR OPEN UUO
DEFSYM DV.M17==:1_15. ;DEVICE CAN DO MODE 17
DEFSYM DV.M16==:1_14. ;DEVICE CAN DO MODE 16
DEFSYM DV.M15==:1_13. ;DEVICE CAN DO MODE 15
DEFSYM DV.M14==:1_12. ;DEVICE CAN DO MODE 14
DEFSYM DV.M13==:1_11. ;DEVICE CAN DO MODE 13
DEFSYM DV.M12==:1_10. ;DEVICE CAN DO MODE 12
DEFSYM DV.M11==:1_9. ;DEVICE CAN DO MODE 11
DEFSYM DV.M10==:1_8. ;DEVICE CAN DO MODE 10
DEFSYM DV.M7==:1_7. ;DEVICE CAN DO MODE 7
DEFSYM DV.M6==:1_6. ;DEVICE CAN DO MODE 6
DEFSYM DV.M5==:1_5. ;DEVICE CAN DO MODE 5
DEFSYM DV.M4==:1_4. ;DEVICE CAN DO MODE 4
DEFSYM DV.M3==:1_3. ;DEVICE CAN DO MODE 3
DEFSYM DV.M2==:1_2. ;DEVICE CAN DO MODE 2
DEFSYM DV.M1==:1_1. ;DEVICE CAN DO MODE 1
DEFSYM DV.M0==:1_0. ;DEVICE CAN DO MODE 0
SUBTTL MISC. I/O -- DEVTYP
;FIRST THE TYPE CODES
DEFSYM .TYDSK==:0 ;DEVICE IS A DISK
DEFSYM .TYDTA==:1 ;DEVICE IS A DEC TAPE
DEFSYM .TYMTA==:2 ;DEVICE IS A MAG TAPE
DEFSYM .TYTTY==:3 ;DEVICE IS A TTY
DEFSYM .TYPTR==:4 ;DEVICE IS A PTR
DEFSYM .TYPTP==:5 ;DEVICE IS A PTP
DEFSYM .TYDIS==:6 ;DEVICE IS A DISPLAY
DEFSYM .TYLPT==:7 ;DEVICE IS A LINE PRINTER
DEFSYM .TYCDR==:10 ;DEVICE IS A CARD READER
DEFSYM .TYCDP==:11 ;DEVICE IS A CARD PUNCH
DEFSYM .TYPTY==:12 ;DEVICE IS A PTY
DEFSYM .TYPLT==:13 ;DEVICE IS A PLOTTER
DEFSYM .TYEXT==:14 ;EXTERNAL TASK (DA28C)
DEFSYM .TYMPX==:15 ;MULTIPLEXOR
DEFSYM .TYPAR==:16 ;PA611R ON DC44
DEFSYM .TYPCR==:17 ;PC11(R) ON DC44
DEFSYM .TYPAP==:20 ;PA611P ON DC44
DEFSYM .TYLPC==:21 ;LPC-11 ON DC44
DEFSYM .TYPCP==:22 ;PC-11(P) ON DC44
;NOW THE CHARACTERISTICS
DEFSYM TY.MAN==:1_35. ;LOOKUP/ENTER IS REQUIRED
DEFSYM TY.MDA==:1_26. ;DEVICE IS CONTROLLED BY MOUNTABLE DEVICE
; ALLOCATOR
DEFSYM TY.EHF==:1_25. ;EXTENDED HARDWARE FEATURES:
;IF LPT THEN HAS LOWER CASE
DEFSYM TY.MPX==:1_24. ;DEVICE CAN BE USED VIA MPX:
DEFSYM TY.AVL==:1_23. ;DEVICE IS FREE
DEFSYM TY.SPL==:1_22. ;DEVICE IS SPOOLED
DEFSYM TY.INT==:1_21. ;DEVICE IS INTERACTIVE
DEFSYM TY.VAR==:1_20. ;DEVICE HAS VARIABLE BUFFER SIZE
DEFSYM TY.IN==:1_19. ;DEVICE CAN DO INPUT
DEFSYM TY.OUT==:1_18. ;DEVICE CAN DO OUTPUT
DEFSYM TY.JOB==:777_9. ;JOB NUMBER OWNING DEVICE
DEFSYM TY.RAS==:1_6. ;RESTRICTED DEVICE
DEFSYM TY.DEV==:77_0. ;DEVICE TYPE
SUBTTL MISC. I/O -- MTCHR.
DEFSYM MT.AWC==:777777_18. ;ACTUAL WORD COUNT
DEFSYM MT.CRC==:777_9. ;CRC LAST READ
DEFSYM MT.NCR==:7_6. ;NUMBER CHARACTERS READ IN LAST WORD
DEFSYM MT.7TR==:1_4. ;7 TRACK
DEFSYM MT.WLK==:1_3. ;WRITE LOCKED
DEFSYM MT.DEN==:7_0. ;DENSITY
DEFSYM .MTDN2==:1 ;200
DEFSYM .MTDN5==:2 ;556
DEFSYM .MTDN8==:3 ;800
DEFSYM .MTD16==:4 ;1600
DEFSYM .MTRID==:1 ;REEL ID
DEFSYM .MTWRD==:2 ;WORDS READ (CHARS IN 6.02)
DEFSYM .MTWWT==:3 ;WORDS WRITTEN (CHARS IN 6.02)
DEFSYM .MTSRE==:4 ;SOFT READ ERRORS
DEFSYM .MTHRE==:5 ;HARD READ ERRORS
DEFSYM .MTSWE==:6 ;SOFT WRITE ERRORS
DEFSYM .MTHWE==:7 ;HARD WRITE ERRORS
DEFSYM .MTTME==:10 ;TOTAL MEDIA ERRORS
DEFSYM .MTTDE==:11 ;TOTAL DEVICE ERRORS
DEFSYM .MTTUN==:12 ;TOTAL UNLOADS
DEFSYM .MTNFB==:13 ;NUMBER OF FILES FROM BOT
DEFSYM .MTNRF==:14 ;NUMBER OF RECORDS FROM EOF
DEFSYM .MTICC==:15 ;INITIAL ERROR CONI MTC
DEFSYM .MTICS==:16 ;INITIAL ERROR CONI MTS
DEFSYM .MTFCC==:17 ;FINAL ERROR CONI MTC
DEFSYM .MTFCS==:20 ;FINAL ERROR CONI MTS
DEFSYM .MTTRY==:21 ;RETRIES TO RESOLVE LAST ERROR
SUBTTL MISC. I/O -- TAPOP.
;;TAPOP. UUO TAKES N,,BLOCK IN AC WHERE BLOCK CONTAINS:
;; !=======================================================!
;; ! FUNCTION CODE !
;; !-------------------------------------------------------!
;; ! DEVICE NAME, CHAN. OR UDX !
;; !-------------------------------------------------------!
;; ! ARGUMENT 0 !
;; !-------------------------------------------------------!
;; ! ARGUMENT 1 !
;; !-------------------------------------------------------!
;; / /
;; / /
;; / /
;; !-------------------------------------------------------!
;; ! ARGUMENT N-2 !
;; !=======================================================!
;TAPOP. FUNCTIONS:
DEFSYM .TFWAT==:1 ;WAIT FOR I/O TO STOP
DEFSYM .TFREW==:2 ;REWIND TO LOAD POINT
DEFSYM .TFUNL==:3 ;REWIND AND UNLOAD
DEFSYM .TFFSB==:4 ;SKIP FORWARD 1 BLOCK
DEFSYM .TFFSF==:5 ;SKIP FORWARD 1 FILE
DEFSYM .TFSLE==:6 ;SKIP TO LOGICAL END OF TAPE
DEFSYM .TFBSB==:7 ;SKIP BACKWARD 1 BLOCK
DEFSYM .TFBSF==:10 ;SKIP BACKWARB 1 FILE
DEFSYM .TFWTM==:11 ;WRITE TAPE MARK
DEFSYM .TFWLG==:12 ;WRITE 3" OF BLANK TAPE
DEFSYM .TFDSE==:13 ;DATA SECURITY ERASE (BLANK WHOLE TAPE) TU70
DEFSYM .TFWLE==:14 ;WRITE LOGICAL END OF TAPE (WTM, WTM, BSB)
DEFSYM .TFLBG==:15 ;LABEL GET (FOR TAPE LABEL MGR.)
DEFSYM .TFLRL==:16 ;LABEL RELEASE (FOR TAPE LABEL MGR.)
DEFSYM .TFLSU==:17 ;SWAP UNITS (FOR TAPE LABEL MGR.)
DEFSYM .TFLDD==:20 ;DESTROY LABEL DDB (FOR TAPE LABEL MGR.)
DEFSYM .TFFEV==:21 ;FORCE END OF VOLUME PROCESSING
DEFSYM .TFURQ==:22 ;USER REQUEST
;READ PARAMETERS. RESULT TO AC.
DEFSYM .TFTRY==:1000 ;RETRIES ON LAST ERROR
DEFSYM .TFDEN==:1001 ;DENSITY
DEFSYM .TFD00==:0 ;UNIT DEFAULT
DEFSYM .TFD20==:1 ;200 BPI
DEFSYM .TFD55==:2 ;556 BPI
DEFSYM .TFD80==:3 ;800 BPI
DEFSYM .TFD16==:4 ;1600 BPI
DEFSYM .TFD62==:5 ;6250 BPI
DEFSYM .TFKTP==:1002 ;CONTROLLER TYPE
DEFSYM .TFKTA==:0 ;TM10A
DEFSYM .TFKTB==:1 ;TM10B
DEFSYM .TFKTC==:2 ;TC10C
DEFSYM .TFKTX==:3 ;TX01
DEFSYM .TFRDB==:1003 ;READ BACKWARDS (TU70 ONLY)
DEFSYM .TFLTH==:1004 ;LOW THRESHOLD READ (TM10 ONLY)
DEFSYM .TFPAR==:1005 ;EVEN PARITY (7TRK ONLY)
DEFSYM .TFBSZ==:1006 ;BLOCK SIZE
DEFSYM .TFMOD==:1007 ;MODE
DEFSYM .TFMDD==:0 ;DEC COMPAT. CORE DUMP
DEFSYM .TFMID==:1 ;INDUSTRY COMPAT. CORE DUMP
DEFSYM .TFM8B==:2 ;8-BIT MODE (4 BYTES/WORD)
DEFSYM .TFM6B==:3 ;6-BIT MODE (9-TRACK TU70 ONLY)
DEFSYM .TFM7B==:4 ;7-BIT MODE (TU70 ONLY)
DEFSYM .TFM7T==:5 ;7-TRACK CORE DUMP (SIXBIT)
DEFSYM .TFTRK==:1010 ;7-TRACK BIT
DEFSYM .TFWLK==:1011 ;WRITE LOCK (1=YES, 0=NO)
DEFSYM .TFCNT==:1012 ;CHAR. COUNT OF LAST RECORD
DEFSYM .TFRID==:1013 ;REELID
DEFSYM .TFCRC==:1014 ;LAST CRC (9-TRACK NRZI ONLY)
DEFSYM .TFSTS==:1015 ;UNIT STATUS
DEFSYM TF.UNS==:1_17. ;UNIT IS NOT TO BE SCHEDULED
DEFSYM TF.BOT==:1_16. ;BOT
DEFSYM TF.WLK==:1_15. ;WRITE LOCK
DEFSYM TF.REW==:1_14. ;UNIT IS REWINDING
DEFSYM TF.STA==:1_2. ;UNIT IS STARTED
DEFSYM TF.SEL==:1_1. ;UNIT IS SELECTED
DEFSYM TF.OFL==:1_0. ;UNIT IS OFF-LINE
DEFSYM .TFSTA==:1016 ;UNIT STATISTICS TO ARGS 0 TO 12
DEFSYM .TSFIL==:0 ;NUMER OF FILES SINCE BOT (FILE #)
DEFSYM .TSREC==:1 ;NUMBER OF RECORDS SINCE EOF (RECORD #)
DEFSYM .TSTCR==:2 ;TOTAL CHARS. READ
DEFSYM .TSTCW==:3 ;TOTAL CHARS. WRITTEN
DEFSYM .TSSRE==:4 ;SOFT READ ERRORS
DEFSYM .TSHRE==:5 ;HARD READ ERRORS
DEFSYM .TSSWE==:6 ;SOFT WROTE ERRORS
DEFSYM .TSHWE==:7 ;HARD WRITE ERRORS
DEFSYM .TSESU==:10 ;TOTAL ERRORS SINCE UNLOAD (MOUNT)
DEFSYM .TSTDE==:11 ;TOTAL DEVICE ERRORS SINCE SYSTEM STARTUP
DEFSYM .TSUNL==:12 ;TOTAL UNLOADS
DEFSYM .TFIEP==:1017 ;INITIAL ERROR POINTER
DEFSYM .TFFEP==:1020 ;FINAL ERROR POINTER
DEFSYM .TFIER==:1021 ;INITIAL ERROR STATUS
DEFSYM .TFFER==:1022 ;FINAL ERROR STATUS
DEFSYM .TFFED==:1023 ;NUMBER OF RETRIES
DEFSYM .TFLBL==:1024 ;TYPE OF LABEL PROCESSING
DEFSYM .TFLBP==:0 ;BYPASS LABEL PROCESSING
DEFSYM .TFLAL==:1 ;ANSI LABELS
DEFSYM .TFLAU==:2 ;ANSI LABELS WITH USER LABELS
DEFSYM .TFLIL==:3 ;IBM LABELS
DEFSYM .TFLIU==:4 ;IBM LABELS WITH USER LABELS
DEFSYM .TFLTM==:5 ;LEADING TAPE MARK
DEFSYM .TFLNS==:6 ;NON-STANDARD LABELS
DEFSYM .TFLNL==:7 ;NO LABELS
DEFSYM .TFPLT==:1025 ;SAME AS .TFLBL EXCEPT PRIV SET. USED TO
; SET .TFLBP AND .TFLNL.
DEFSYM .TFLTC==:1026 ;LABEL TERMINATION CODE
DEFSYM .TFTCP==:1 ;CONTINUE PROCESSING
DEFSYM .TFTRE==:2 ;RETURN EOF
DEFSYM .TFTLT==:3 ;LABEL TYPE ERROR
DEFSYM .TFTHL==:4 ;HEADER LABEL ERROR
DEFSYM .TFTTL==:5 ;TRAILER LABEL ERROR
DEFSYM .TFTVL==:6 ;VOLUME LABEL ERROR
DEFSYM .TFTDV==:7 ;DEVICE ERROR
DEFSYM .TFTDE==:10 ;DATA ERROR
DEFSYM .TFTWL==:11 ;WRITE LOCK ERROR
DEFSYM .TFDMS==:1027 ;DIAGNOSTIC MODE SET IF 1 (TU70 ONLY)
DEFSYM .TFFSO==:1030 ;FORCE SENSE OPERATIONS IF 1 (TU70 ONLY)
DEFSYM .TFSET==:1000 ;OFFSET FROM READ TO SET
;TAPOP. ERROR CODES
DEFSYM TPACS%==:-1 ;ADDRESS CHECK STORING ANSWER
DEFSYM TPIFC%==:0 ;ILLEGAL FUNCTION CODE
DEFSYM TPPRV%==:1 ;NOT ENOUGH PRIVS.
DEFSYM TPNMT%==:2 ;NOT A MAGTAPE
DEFSYM TPVOR%==:3 ;VALUE OUT OF RANGE
DEFSYM TPACR%==:4 ;ADDRESS CHECK READING ARGUMENTS
DEFSYM TPCBS%==:5 ;PARAMETER CAN NOT BE SET
DEFSYM TPNIA%==:6 ;TAPE NOT INITED OR ASSIGNED
SUBTTL MISC. I/O -- WHERE
DEFSYM RM.SUP==:17_18. ;STATION UP STATUS
DEFSYM .RMSUN==:1 ;NOT IN CONTACT
DEFSYM .RMSUD==:2 ;DOWN
DEFSYM .RMSUG==:4 ;LOADING
DEFSYM .RMSUL==:10 ;LOADED
DEFSYM RM.SDU==:1_22. ;DIAL-UP
SUBTTL MISC. I/O -- CAL11.
DEFSYM .C11FC==:0 ;FUNCTION WORD
DEFSYM C1.1NO==:777777_18. ;WHICH -11
DEFSYM C1.1FC==:777777 ;WHICH FUNCTION
DEFSYM .C11DP==:0 ;DEPOSIT FUNCTION
DEFSYM .C11EX==:1 ;EXAMINE FUNCTION
DEFSYM .C11QU==:2 ;QUEUE A REQUEST
DEFSYM .C11NM==:3 ;RETURN NAME OF FRONT END PROG
DEFSYM .C11UP==:4 ;RETURN 0 IF DOWN, 1 IF UP
DEFSYM .C11AD==:1 ;ADDRESS OF EXAMINE/DEPOSIT
DEFSYM .C11CN==:2 ;CONTENTS TO DEPOSIT
DEFSYM .C11EN==:1 ;START OF QUEUE ENTRY
DEFSYM C11NP%==:1 ;NOT PRIVILEGED
DEFSYM C11UF%==:2 ;UNKNOWN FUNCTION
DEFSYM C11ND%==:3 ;NOT DC76
DEFSYM C11IU%==:4 ;EXAM/DEP IN USE
DEFSYM C11NA%==:5 ;NO ANSWER TO EXAM/DEP
DEFSYM C11TS%==:6 ;QUEUE ENTRY TOO SHORT
DEFSYM C11NE%==:7 ;NOT ENOUGH ARGS
SUBTTL MISC. I/O -- GETLCH AND TRMOP.
;GETLCH BITS
DEFSYM GL.ITY==:1_35. ;INVISIBLE TTY (PTY)
DEFSYM GL.CTY==:1_34. ;SYSTEM CTY
DEFSYM GL.DSP==:1_33. ;DISPLAY CONSOLE
DEFSYM GL.DSL==:1_32. ;DATASET DATA LINE
DEFSYM GL.HDP==:1_30. ;HALF-DUPLEX
DEFSYM GL.REM==:1_29. ;REMOTE TTY
DEFSYM GL.RBS==:1_28. ;REMOTE BATCH TTY
DEFSYM GL.LIN==:1_24. ;LINE HAS BEEN TYPED
DEFSYM GL.LCM==:1_22. ;LOWER CASE MODE
DEFSYM GL.TAB==:1_21. ;TABS
DEFSYM GL.LCP==:1_20. ;LOCAL COPY
DEFSYM GL.PTM==:1_19. ;PAPER TAPE MODE
;TRMOP. ERRORS
DEFSYM TOPRC%==:1 ;PROTECTION CHECK
DEFSYM TORGB%==:2 ;RANGE BAD
DEFSYM TOADB%==:3 ;ADDRESS BAD
DEFSYM TOIMP%==:4 ;IMPOSSIBLE
DEFSYM TODIL%==:5 ;ERROR IN DIALLER
;TRMOP. FUNCTIONS
DEFSYM .TOSIP==:1 ;SKIP IF INPUT PRESENT
DEFSYM .TOSOP==:2 ;SKIP IF OUTPUT PRESENT
DEFSYM .TOCIB==:3 ;CLEAR INPUT BUFFER
DEFSYM .TOCOB==:4 ;CLEAR OUTPUT BUFFER
DEFSYM .TOOUC==:5 ;OUTPUT CHARACTER
DEFSYM .TOOIC==:6 ;OUTPUT IMAGE CHARACTER
DEFSYM .TOOUS==:7 ;OUTPUT STRING
DEFSYM .TOINC==:10 ;INPUT CHARACTER
DEFSYM .TOIIC==:11 ;INPUT IMAGE CHARACTER
DEFSYM .TODSE==:12 ;DATA SET ENABLE
DEFSYM .TODSC==:13 ;DATA SET CALL
DEFSYM .TODSF==:14 ;DATA SET OFF
DEFSYM .TORSC==:15 ;RESCAN
DEFSYM .TOELE==:16 ;SET ELEMENT
DEFSYM .TOEAB==:17 ;ENABLE AUTO BAUD DETECT
DEFSYM .TOOIP==:1000 ;OUTPUT IN PROGRESS
DEFSYM .TOCOM==:1001 ;AT COMMAND LEVEL
DEFSYM .TOXON==:1002 ;PAPER TAPE MODE
DEFSYM .TOLCT==:1003 ;LOWER CASE TRANSLATE TO UPPER
DEFSYM .TOSLV==:1004 ;SLAVE
DEFSYM .TOTAB==:1005 ;ACCEPTS TABS
DEFSYM .TOFRM==:1006 ;ACCEPTS FF AND LF
DEFSYM .TOLCP==:1007 ;LOCAL COPY (NO ECHO)
DEFSYM .TONFC==:1010 ;NO FREE CARRIAGE RETURN
DEFSYM .TOHPS==:1011 ;HORIZONTAL POSITION
DEFSYM .TOWID==:1012 ;WIDTH
DEFSYM .TOSND==:1013 ;SEND ALLOWED (NO GAG)
DEFSYM .TOHLF==:1014 ;HALF DUPLEX
DEFSYM .TORMT==:1015 ;REMOTE NON-DATA SET
DEFSYM .TODIS==:1016 ;DISPLAY CONSOLE
DEFSYM .TOFLC==:1017 ;FILLER CLASS
DEFSYM .TOTAP==:1020 ;PAPER TAPE ENABLED
DEFSYM .TOPAG==:1021 ;PAGE COMMAND GIVEN
DEFSYM .TOSTP==:1022 ;OUTPUT STOPPED (XOFF OR PAGE LIMIT)
DEFSYM .TOPSZ==:1023 ;PAGE SIZE (HEIGHT IN LINES)
DEFSYM .TOPCT==:1024 ;LINE COUNT IN PAGE
DEFSYM .TOBLK==:1025 ;SUPPRESS BLANK LINES
DEFSYM .TOALT==:1026 ;CONVERT ALTMODE (175,176) TO ESCAPE
DEFSYM .TOAPL==:1027 ;APL MODE
DEFSYM .TORSP==:1030 ;RECIEVE SPEED
DEFSYM .TOTSP==:1031 ;TRANSMIT SPEED
DEFSYM .TODBK==:1032 ;HAS DEBREAK
DEFSYM .TO274==:1033 ;2741
DEFSYM .TOTDY==:1034 ;TIDY MODE
DEFSYM .TOACR==:1035 ;AUTO CRLF
DEFSYM .TORTC==:1036 ;^R ^T COMPATIBLE MODE (DISABLED)
DEFSYM .TOPBS==:1037 ;PIM MODE BREAK SET (4 9-BIT BYTES)
DEFSYM .TOSET==:1000 ;OFFSET FROM GET TO SET
SUBTTL MISC. I/O -- GETSTS AND SETSTS
DEFSYM IO.IMP==:1_17. ;IMPROPER MODE -- SOFTWARE DETECTECTED ERROR
DEFSYM IO.DER==:1_16. ;DEVICE ERROR
DEFSYM IO.DTE==:1_15. ;DATA ERROR
DEFSYM IO.BKT==:1_14. ;BLOCK TOO LARGE
DEFSYM IO.ERR==:17_14. ;I/O ERROR BITS
DEFSYM IO.EOF==:1_13. ;END OF FILE
DEFSYM IO.ACT==:1_12. ;DEVICE IS ACTIVE
DEFSYM IO.D29==:1_6. ;DEC029 MODE (CDP ONLY)
DEFSYM IO.SIM==:1_6. ;SUPER-IMAGE MODE (CDR ONLY)
DEFSYM IO.WHD==:1_6. ;WRITE DISK PACK HEADERS (DSK ONLY)
DEFSYM IO.SSD==:1_7. ;SEMI-STANDARD MODE (DTA ONLY)
DEFSYM IO.NSD==:1_6. ;NON-STANDARD MODE (DTA ONLY)
DEFSYM IO.SFF==:1_6. ;SUPPRESS FORM FEEDS (LPT ONLY)
DEFSYM IO.BOT==:1_11. ;BEGINNING OF TAPE (MAG TAPE ONLY)
DEFSYM IO.EOT==:1_10. ;END OF TAPE (MAG TAPE ONLY)
DEFSYM IO.PAR==:1_9. ;PARITY 1=EVEN 0=ODD (MAG TAPE ONLY)
DEFSYM IO.DEN==:3_7. ;DENSITY 0-STD 1-200 2-556 3-800 (MAG TAPE ONLY)
DEFSYM IO.NRC==:1_6. ;READ WITH NO REREAD CHECK (MAG TAPE ONLY)
DEFSYM IO.PTI==:1_11. ;SUBJOB IN TTY INPUT WAIT (PTY ONLY)
DEFSYM IO.PTO==:1_10. ;SUBJOB HAS TTY OUTPUT AVAILABLE (PTY ONLY)
DEFSYM IO.PTM==:1_9. ;SUBJOB IS IN MONITOR MODE (PTY ONLY)
DEFSYM IO.TEC==:1_8. ;TRUTH IN ECHOING MODE (TTY ONLY)
DEFSYM IO.SUP==:1_7. ;SUPPRESS ECHOING (TTY ONLY)
DEFSYM IO.FCS==:1_6. ;FULL CHARACTER SET (TTY ONLY) -- OBSOLETE SYMBOL
DEFSYM IO.LEM==:1_6. ;LINE EDITOR MODE (TTY ONLY)
DEFSYM IO.SYN==:1_5. ;SYNCRONOUS MODE I/O
DEFSYM IO.UWC==:1_4. ;USE USER'S WORD COUNT
DEFSYM IO.MOD==:17_0. ;DATA MODE
;I/O MODES
DEFSYM .IOASC==:0 ;ASCII
DEFSYM .IOASL==:1 ;ASCII LINE
DEFSYM .IOPIM==:2 ;PACKED IMAGE MODE
DEFSYM .IOIMG==:10 ;IMAGE
DEFSYM .IOIBN==:13 ;IMAGE BINARY
DEFSYM .IOBIN==:14 ;BINARY
DEFSYM .IOIDP==:15 ;IMAGE DUMP
DEFSYM .IODPR==:16 ;DUMP RECORDS
DEFSYM .IODMP==:17 ;DUMP
SUBTTL MISC. I/O -- OPEN AND CLOSE
;CLOSE BITS
DEFSYM CL.DAT==:1_6. ;DELETE ACCESS TABLE FROM DISK DATA BASE
DEFSYM CL.RST==:1_5. ;INHIBIT CREATING A NEW FILE (OR SUPERSEDING
; AN OLD ONE) ON OUTPUT CLOSE
DEFSYM CL.NMB==:1_4. ;INHIBIT DELETING NAME BLOCK ON A
; CLOSE WITH ONLY A LOOKUP DONE
DEFSYM CL.ACS==:1_3. ;INHIBIT UPDATING ACCESS DATE
DEFSYM CL.DLL==:1_2. ;INHIBIT DEALLOCATION OF ALLOCATED
; BUT UNWRITTEN BLOCKS
DEFSYM CL.IN==:1_1. ;INHIBIT CLOSING INPUT
DEFSYM CL.OUT==:1_0. ;INHIBIT CLOSING OUTPUT
;OPEN BLOCK
DEFSYM .OPMOD==:0 ;MODE, ETC.
DEFSYM .OPDEV==:1 ;DEVICE NAME
DEFSYM .OPBUF==:2 ;BUFFER HEADER ADDRESSES
;OPEN AND PHYSICAL BITS
DEFSYM UU.PHY==:1_16. ;BIT 19 .NE. BIT 18 OF CALLI IMPLIES
; PHYSICAL DEVICE SEARCH
DEFSYM UU.PHS==:1_35. ;SIGN BIT IN OPEN BLOCK IMPLIES PHYSICAL
; DEVICE SEARCH
DEFSYM UU.DEL==:1_34. ;DISABLE ERROR LOGGING
DEFSYM UU.DER==:1_33. ;DISABLE ERROR RETRY
DEFSYM UU.AIO==:1_32. ;ASYNCHRONOUS I/O
DEFSYM UU.IBC==:1_31. ;ENABLE INHIBITING OF BUFFER CLEAR
DEFSYM UU.SOE==:1_30. ;STOP OUTPUT ON ERROR. DISALLOW OUTPUT WITH ANY
; ERROR BITS SET.
SUBTTL MISC. I/O -- FILOP.
;ARGUMENT BLOCK FOR FILOP.
;; !=========================================================================!
;; !UP! ! FUNCTION CODE !
;; !-------------------------------------------------------------------------!
;; ! I/O MODE !
;; !-------------------------------------------------------------------------!
;; ! DEVICE NAME OR UDX !
;; !-------------------------------------------------------------------------!
;; ! OUTPUT BUFFER HEADER ! INPUT BUFFER HEADER !
;; !-------------------------------------------------------------------------!
;; ! NUMBER OF OUTPUT BUFFERS ! NUMBER OF INPUT BUFFERS !
;; !-------------------------------------------------------------------------!
;; ! ! PTR TO LOOKUP BLOCK !
;; !-------------------------------------------------------------------------!
;; ! LENGTH OF PATH BLOCK ! PTR TO PATH BLOCK !
;; !=========================================================================!
;OFFSETS IN ARGUMENT BLOCK
DEFSYM .FOFNC==:0 ;FUNCTION (AND FLAGS)
DEFSYM .FOIOS==:1 ;I/O STATUS (OPEN MODE)
DEFSYM .FODEV==:2 ;DEVICE
DEFSYM .FOBRH==:3 ;BUFFER RING HEADER POINTERS
DEFSYM .FONBF==:4 ;NUMBER OF BUFFER TO BUILD
DEFSYM .FOLEB==:5 ;PTR TO LOOKUP/ENTER BLOCK (SEE .RB??? SYMBOLS)
DEFSYM .FOPAT==:6 ;PTR TO PATH BLOCK (SEE .PT??? SYMBOLS)
;FLAGS IN .FOFNC
DEFSYM FO.PRV==:1_35. ;JOB IS JACCT OR [1,2] AND WANT TO USE PRIVS
;FUNCTION CODES
DEFSYM .FORED==:1 ;READ ONLY
DEFSYM .FOCRE==:2 ;CREATE (NEW FILE ONLY)
DEFSYM .FOWRT==:3 ;WRITE (CREATE OR SUPERCEDE)
DEFSYM .FOSAU==:4 ;SINGLE ACCESS UPDATE
DEFSYM .FOMAU==:5 ;MULTI-ACCESS UPDATE
DEFSYM .FOAPP==:6 ;APPEND
DEFSYM .FOCLS==:7 ;CLOSE (OPTIONAL FLAGS IN .FOIOS, SEE CL.???)
DEFSYM .FOURB==:10 ;UPDATE RIB
SUBTTL MISC. I/O -- BUFFER HEADER FORMATS
;BUFFER HEADER FORMATS
;BUFFER RING HEADER
;; !=======================================================!
;; !VR!I! !ADDRESS OF CURRENT BUFFER !
;; !-------------------------------------------------------!
;; ! BYTE POINTER TO DATA !
;; !-------------------------------------------------------!
;; ! BYTE COUNTER !
;; !=======================================================!
;; ! (MPX: ONLY) UNIVERSAL INDEX OF THIS DEVICE !
;; !=======================================================!
DEFSYM .BFADR==:0 ;ADDRESS OF BUFFER RING
DEFSYM BF.VBR==:1_35. ;VIRGIN BUFFER RING
DEFSYM BF.IBC==:1_34. ;INHIBIT BUFFER CLEAR
DEFSYM .BFPTR==:1 ;BYTE POINTER TO DATA
DEFSYM .BFCTR==:2 ;ITEM BYTE COUNT
DEFSYM .BFUDX==:3 ;UNIVERSAL DEVICE INDEX (MPX: ONLY)
;INDIVIDUAL BUFFER HEADER
;; !=======================================================!
;; ! ! FILE STATUS !
;; !-------------------------------------------------------!
;; !US! DATA SIZE ! NEXT BUFFER ADDRESS !
;; !-------------------------------------------------------!
;; ! (MPX:) UNIV.DEV. INDEX ! WORD COUNT !
;; !=======================================================!
;; / /
;; / /
;; ! DATA !
;; / /
;; / /
;; !=======================================================!
DEFSYM .BFSTS==:0 ;FILE STATUS WORD
DEFSYM BF.STS==:0,,-1 ;FILE STATUS THIS BUFFER
DEFSYM .BFHDR==:1 ;BUFFER CONTROL THIS BUFFER
DEFSYM BF.IOU==:1_35. ;BUFFER IN USE
DEFSYM BF.SIZ==:377777_18. ;SIZE OF BUFFER
DEFSYM BF.NBA==:777777 ;NEXT BUFFER ADDRESS
DEFSYM .BFCNT==:2 ;WORD COUNT OF DATA (SOMEWHAT DEVICE DEPENDENT)
SUBTTL MISC. I/O -- MVHDR.
DEFSYM MVHDR%==:1 ;CHANNEL NOT OPEN
SUBTTL MISC. I/O -- CNECT.,SENSE., CLRST.
;CNECT. FUNCTIONS
DEFSYM .CNCCN==:1 ;CONNECT DEVICE
DEFSYM .CNCDC==:2 ;CLOSE AND DISCONNECT
DEFSYM .CNCDR==:3 ;RESET AND DISCONNECT
;CNECT. ERRORS
DEFSYM CNCNM%==:1 ;NOT MPX: CHANNEL
DEFSYM CNCUD%==:2 ;UNKNOWN DEVICE
DEFSYM CNCCM%==:3 ;CAN'T MULTIPLEX THIS DEVICE
DEFSYM CNCNF%==:4 ;NO FREE STORAGE
DEFSYM CNCNC%==:5 ;NOT CONNECTED
DEFSYM CNCNO%==:6 ;CHANNEL NOT OPEN
DEFSYM CNCII%==:7 ;INVALID UNIVERSAL DEVICE INDEX
DEFSYM CNCUF%==:10 ;UNKNOWN FUNCTION
DEFSYM CNCDU%==:11 ;DEVICE UNAVAILABLE
DEFSYM CNCSD%==:12 ;SPOOLED DEVICE
;SENSE. SUB-BLOCK
DEFSYM .SNSDV==:0 ;DEVICE NAME IN SIXBIT
DEFSYM .SNSST==:1 ;GETSTS
DEFSYM .SNSDS==:2 ;DEVSTS
;SENSE. ERRORS
DEFSYM SNSBD%==:1 ;BAD DEVICE
;ERLST. ERRORS
DEFSYM ERLBC%==:1 ;BAD CHANNEL
DEFSYM ERLNM%==:2 ;NOT MPX: CHANNEL
;CLRST. BLOCK
DEFSYM .CLRSX==:0 ;UDX
DEFSYM .CLRST==:1 ;SETSTS
;CLRST. ERRORS
DEFSYM CLRID%==:1 ;ILLEGAL DEVICE
DEFSYM CLRNO%==:2 ;NOT OWN DEVICE
SUBTTL MISC. I/O -- DEVLNM
DEFSYM DVLNX%==:-1 ;NON-EXISTENT DEVICE
DEFSYM DVLIU%==:-2 ;LOGICAL NAME IN USE
DEFSYM DVLNA%==:-3 ;DEVICE NOT ASSIGNED OR OPEN
SUBTTL MISC. I/O -- DEVSIZ
DEFSYM DVSDM%==:0 ;DUMP MODE
DEFSYM DVSNX%==:-1 ;NON-EXISTENT DEVICE
DEFSYM DVSIM%==:-2 ;ILLEGAL MODE
SUBTTL MISC. I/O -- MTAID.
DEFSYM MTINX%==:-1 ;DEVICE DOES NOT EXIST OR NOT A MAG TAPE
DEFSYM MTINA%==:-2 ;DEVICE IS NOT AVAILABLE TO THIS JOB
;REMOVED (NEED TO SPY TO GET THIS INFO)
;HARDWARE CHANNEL DATA BLOCK WORDS
;DEFSYM .CNBSY==:0 ;BUSY IF POSITIVE
;DEFSYM .CNSYS==:1 ;LH=ADDRESS OF NEXT BLOCK
;DEFSYM .CNLUE==:1 ;RH=ADDRESS OF UNIT WITH LAST ERROR
;DEFSYM .CNICW==:2 ;INITIAL C.W. ON LAST ERROR
;DEFSYM .CNFCW==:3 ;FINAL C.W. ON LAST ERROR
;DEFSYM .CNCW2==:4 ;COMMAND WORD-2 OF ERROR
;DEFSYM .CNCW1==:5 ;-1
;DEFSYM .CNCW0==:6 ;-0
;DEFSYM .CNDW2==:7 ;DATA WORD-2
;DEFSYM .CNDW1==:10 ;DATA WORD-1
;DEFSYM .CNDW0==:11 ;DATA WORD-0
;DEFSYM .CNMPE==:12 ;NO. CHANNEL MEMORY PARITY ERRORS
;DEFSYM .CNDPE==:13 ;NO. DATA PARITY ERRORS
;DEFSYM .CNNXM==:14 ;NO. CHANNEL NXM
;DEFSYM .CNCSR==:15 ;LH=BITS TO REQUEST CPU SWEEP OF CORE
;DEFSYM .CNLDE==:15 ;RH=LAST DDB ADDR
;DEFSYM .CNCBL==:16 ;LENGTH OF DATA BLOCK
SUBTTL DISK UUOS -- DSKCHR
;DSKCHR STATUS BITS
;; !=======================================================================!
;; !R!O!H!S!A!Z! !STS!M!N!L! ! TYP ! DCN ! CNT-TYP ! CNN ! UNT ! UNN !
;; !=======================================================================!
DEFSYM DC.RHB==:1_35. ;READ HOME BLOCK
DEFSYM DC.OFL==:1_34. ;UNIT IS OFF-LINE
DEFSYM DC.HWP==:1_33. ;HARDWARE WRITE PROTECT
DEFSYM DC.SWP==:1_32. ;SOFTWARE WRITE PROTECT
DEFSYM DC.SAF==:1_31. ;SINGLE ACCESS FILE STRUCTURE
DEFSYM DC.ZMT==:1_30. ;ZERO MOUNT COUNT
DEFSYM DC.STS==:3_27. ;UNIT STATUS
DEFSYM .DCSTP==:0 ;PACK IS MOUNTED
DEFSYM .DCSTN==:2 ;NO PACK IS MOUNTED
DEFSYM .DCSTD==:3 ;UNIT IS DOWN
DEFSYM DC.MSB==:1_26. ;MULTIPLE SAT BLOCKS
DEFSYM DC.NNA==:1_25. ;NO NEW ACCESSES
DEFSYM DC.AWL==:1_24. ;WRITE LOCKED FOR ALL JOBS
DEFSYM DC.TYP==:7_18. ;TYPE OF ARGUMENT
DEFSYM .DCTDS==:0 ;GENERIC DSK
DEFSYM .DCTAB==:1 ;SUBSET DUE TO ABBREVIATIONS
DEFSYM .DCTFS==:2 ;FILE STRUCTURE NAME
DEFSYM .DCTUF==:3 ;UNIT WITHIN F/S
DEFSYM .DCTCN==:4 ;CONTROLLER CLASS NAME
DEFSYM .DCTCC==:5 ;CONTROLLER CLASS
DEFSYM .DCTPU==:6 ;PHYSICAL UNIT
DEFSYM DC.DCN==:7_15. ;DATA CHANNEL NUMBER
DEFSYM DC.CNT==:77_9. ;CONTROLLER TYPE
DEFSYM .DCCFH==:1 ;RC-10
DEFSYM .DCCDP==:2 ;RP-10
DEFSYM DC.CNN==:7_6. ;CONTROLLER NUMBER
DEFSYM DC.UNT==:7_3. ;UNIT TYPE
DEFSYM .DCUFD==:0 ;RD-10
DEFSYM .DCUFM==:1 ;RM-10B
DEFSYM .DCUD2==:1 ;RP02
DEFSYM .DCUD3==:2 ;RP03
DEFSYM DC.UNN==:7_0. ;PHYSICAL UNIT NUMBER
;DSKCHR LOCATIONS
DEFSYM .DCNAM==:0 ;ARGUMENT NAME
DEFSYM .DCUFT==:1 ;LOGGED IN BLOCKS REMAINING
DEFSYM DC.NPA==:1_35. ;NO PREVIOUS ACCESS
DEFSYM .DCFCT==:2 ;PHYSICAL FCFS BLOCKS REMAINING
DEFSYM .DCUNT==:3 ;PHYSICAL UNIT BLOCKS REMAINING
DEFSYM .DCSNM==:4 ;STRUCTURE NAME
DEFSYM .DCUCH==:5 ;CHARACTERISTIC SIZES
DEFSYM DC.UCC==:777_27. ;BLOCKS/CLUSTER
DEFSYM DC.UCT==:777_18. ;BLOCKS/TRACK
DEFSYM DC.UCY==:777777 ;BLOCKS/CYLINDER
DEFSYM .DCUSZ==:6 ;UNIT SIZE IN BLOCKS
DEFSYM .DCSMT==:7 ;STRUCTURE MOUNT COUNT
DEFSYM .DCWPS==:10 ;WORDS/SAT
DEFSYM .DCSPU==:11 ;SATS/UNIT
DEFSYM .DCK4S==:12 ;K FOR SWAPPING
DEFSYM .DCSAJ==:13 ;SINGLE ACCESS JOB
DEFSYM .DCULN==:14 ;UNIT LOGICAL NAME
DEFSYM .DCUPN==:15 ;UNIT PHYSICAL NAME
DEFSYM .DCUID==:16 ;UNIT ID
DEFSYM .DCUFS==:17 ;UNIT FIRST BLOCK FOR SWAPPING
DEFSYM .DCBUM==:20 ;BLOCKS PER UNIT INCL. MAINT CYLS.
DEFSYM .DCCYL==:21 ;CURRENT CYLINER
DEFSYM .DCBUC==:22 ;BLOCKS PER UNIT IN PDP-11 COMPAT. MODE
DEFSYM .DCLPQ==:23 ;LENGTH OF POSITION WAIT QUEUE
DEFSYM .DCLTQ==:24 ;LENGTH OF TRANSFER WAIT QUEUE
SUBTTL DISK UUOS -- CHKACC
DEFSYM .ACCPR==:0 ;CHANGE PROTECTION
DEFSYM .ACREN==:1 ;RENAME
DEFSYM .ACWRI==:2 ;WRITE
DEFSYM .ACUPD==:3 ;UPDATE
DEFSYM .ACAPP==:4 ;APPEND
DEFSYM .ACRED==:5 ;READ
DEFSYM .ACEXO==:6 ;EXECUTE
DEFSYM .ACCRE==:7 ;CREATE
DEFSYM .ACSRC==:10 ;SEARCH DIRECTORY
SUBTTL DISK UUOS -- DISK.
DEFSYM .DUPRI==:0 ;SET PRIORITY
DEFSYM .DUSEM==:1 ;SET PDP-11 (22-SECTOR) MODE ON RP04
DEFSYM .DUSTM==:2 ;SET PDP-10 (20-SECTOR) MODE ON RP04
DEFSYM .DUUNL==:3 ;UNLOAD RP04
DEFSYM .DUOLS==:4 ;CHAN./CONTROLLER WILL BE OFF LINE SOON
DEFSYM .DUOLN==:5 ;CHAN./CONTROLLER IS OFF LINE NOW
DEFSYM .DUONL==:6 ;CHAN./CONTROLLER IS BACK ON LINE
;DISK. ERRORS
DEFSYM DUILF%==:-1 ;ILLEGAL FUNCTION
DEFSYM DUILP%==:-2 ;ILLEGAL PRIORITY
;****NEED MORE ERROR CODES*******
SUBTTL DISK UUOS -- JOBSTR
DEFSYM .DFJNM==:0 ;STR NAME
DEFSYM .DFJDR==:1 ;DIRECTORY
DEFSYM .DFJST==:2 ;STATUS
DEFSYM DF.SWL==:1_35. ;WRITE LOCKED
DEFSYM DF.SNC==:1_34. ;NO CREATE
SUBTTL DISK UUOS -- GOBSTR
DEFSYM .DFGJN==:0 ;JOB NUMBER
DEFSYM .DFGPP==:1 ;JOB P,PN
DEFSYM .DFGNM==:2 ;STR NAME
DEFSYM .DFGDR==:3 ;DIRECTORY
DEFSYM .DFGST==:4 ;STATUS (SAME AS .DFJST)
;GOBSTR ERRORS
DEFSYM DFGIF%==:3 ;ILLEGAL STR
DEFSYM DFGPP%==:6 ;INCORRECT PPN
DEFSYM DFGNP%==:10 ;NOT PRIV.
DEFSYM DFGLN%==:12 ;INCORRECT LENGTH
SUBTTL DISK UUOS -- SUSET.
DEFSYM SU.SOT==:1_34. ;OUTPUT
DEFSYM SU.SMN==:1_33. ;MAINTENANCE CYLINDER
DEFSYM SU.SCH==:17_23. ;CHANNEL
DEFSYM SU.SBL==:37,,777777 ;BLOCK NUMBER
;SUSET. ERRORS
DEFSYM SUSNP%==:-1 ;NOT PRIVILEGED
SUBTTL DISK UUOS -- PATH.
DEFSYM .PTFCN==:0 ;JOB #,,FUNCTION OR ARGUMENT CHANNEL OR DEVICE
DEFSYM .PTFRD==:-1 ;READ DEFAULT
DEFSYM .PTFSD==:-2 ;SET DEFAULT PATH
DEFSYM .PTFSL==:-3 ;SET LIB, NEW, SYS
DEFSYM .PTFRL==:-4 ;READ LIB, NEW, SYS
DEFSYM .PTSTR==:0 ;ANSWER HAS STR NAME
DEFSYM .PTSWT==:1 ;SWITCHES AND FLAGS
DEFSYM PT.SLT==:7_6. ;TYPE OF SEARCH LIST
DEFSYM .PTSLJ==:1 ;JOB
DEFSYM .PTSLA==:2 ;ALL
DEFSYM .PTSLS==:3 ;SYS
DEFSYM PT.IPP==:1_5. ;IMPLIED PPN (FORCED)
DEFSYM PT.LIB==:1_4. ;/LIB
DEFSYM PT.SYS==:1_3. ;/SYS
DEFSYM PT.NEW==:1_2. ;/NEW
DEFSYM PT.SCN==:3_0. ;SCAN SWITCH
DEFSYM .PTSCN==:1 ;NO (OFF)
DEFSYM .PTSCY==:2 ;YES (ON)
DEFSYM PT.SNW==:1_1. ;/NEW ON .PTFSL/.PTFRL
DEFSYM PT.SSY==:1_0. ;/SYS ON .PTFSL/.PTFRL
DEFSYM .PTPPN==:2 ;PPN (UFD) OF PATH
DEFSYM .PTMAX==:11 ;LAST POSSIBLE 0 AFTER LAST SFD +1
;(IE, LENGTH OF PATH BLOCK)
SUBTTL DISK UUOS -- STRUUO
DEFSYM .FSSRC==:0 ;UPDATE THIS SEARCH LIST (SEE .DFJXX)
DEFSYM .FSDSL==:1 ;UPDATE SYSTEM/JOB SEARCH LIST
DEFSYM .FSDJN==:1 ;JOB# (0=SYS)
DEFSYM .FSDPP==:2 ;PPN
DEFSYM .FSDFL==:3 ;FLAGS
DEFSYM DF.SRM==:1_0. ;REMOVE FROM S/L COMPLETELY
DEFSYM .FSDEF==:2 ;DEFINE NEW F/S
DEFSYM .FSNST==:1 ;POINTER TO STR PARAMS
DEFSYM .FSNUN==:2 ;FIRST POINTER TO UNIT PARAMS
;STR PARAM BLOCK
DEFSYM .FSSNM==:0 ;NAME OF STRUCTURE
DEFSYM .FSSNU==:1 ;NUMBER OF UNITS
DEFSYM .FSSHL==:2 ;HIGHEST LOGICAL BLOCK
DEFSYM .FSSSZ==:3 ;SIZE OF STR
DEFSYM .FSSRQ==:4 ;RESERVED QUOTA
DEFSYM .FSSRF==:5 ;RESERVED FREE
DEFSYM .FSSTL==:6 ;TALLY OF FCFS FREE
DEFSYM .FSSOD==:7 ;BLOCKS FOR OVERDRAW
DEFSYM .FSSMP==:10 ;MFD FIRST RETRIEVAL POINTER
DEFSYM .FSSML==:11 ;-1 IF .FSSMP IS ONLY POINTER
DEFSYM .FSSUN==:12 ;MFD UNIT
DEFSYM .FSSTR==:13 ;NUMBER OF RETRIES ON ERROR
DEFSYM .FSSBU==:14 ;LARGEST BLOCK ON UNIT
DEFSYM .FSSBC==:15 ;BLOCKS PER SUPER-CLUSTER
DEFSYM .FSSSU==:16 ;SUPER-CLUSTERS PER UNIT
DEFSYM .FSSIG==:17 ;(IGNORED)
DEFSYM .FSSCC==:20 ;BYTE POINTER TO CLUSTER COUNT
DEFSYM .FSSCK==:21 ;BYTE POINTER TO CHECKSUM
DEFSYM .FSSCA==:22 ;BYTE POINTER TO CLUSTER ADDRESS
;UNIT DATA BLOCK
DEFSYM .FSUNM==:0 ;UNIT NAME
DEFSYM .FSUID==:1 ;PACK ID
DEFSYM .FSULN==:2 ;LOGICAL NAME
DEFSYM .FSULU==:3 ;NUMBER WITHIN STR
DEFSYM .FSUDS==:4 ;STATUS BITS
DEFSYM FS.UWL==:1_35. ;SOFTWARE WRITE-LOCK
DEFSYM FS.USA==:1_34. ;SINGLE ACCESS
DEFSYM .FSUGP==:5 ;NUMBER BLOCKS TO ALLOCATE
DEFSYM .FSUTL==:6 ;FREE BLOCK TALLY
DEFSYM .FSUBC==:7 ;BLOCKS PER CLUSTER
DEFSYM .FSUCS==:10 ;CLUSTERS PER SAT
DEFSYM .FSUWS==:11 ;WORDS PER SAT
DEFSYM .FSUSC==:12 ;SATS IN CORE
DEFSYM .FSUSU==:13 ;SATS PER UNIT
DEFSYM .FSUSP==:14 ;POINTER TO SPT TABLE
;(CONT.) OF STRUUO FUNCTIONS
DEFSYM .FSRDF==:3 ;CHANGE F/S STATUS
DEFSYM .FSRJN==:1 ;JOB NUMBER
DEFSYM .FSRPP==:2 ;JOB P,PN
DEFSYM .FSRNM==:3 ;STR NAME
DEFSYM .FSRST==:4 ;NEW STATUS
DEFSYM FS.RWL==:1_35. ;WRITE LOCK ALL USERS
DEFSYM FS.RSA==:1_34. ;SINGLE ACCESS
DEFSYM .FSLOK==:4 ;LOCK F/S
DEFSYM .FSREM==:5 ;REMOVE F/S
DEFSYM .FSULK==:6 ;TEST/SET UFD INTERLOCK
DEFSYM .FSUCL==:7 ;CLEAR UFD INTERLOCK
DEFSYM .FSETS==:10 ;SIMULATE ERROR
DEFSYM .FSEUN==:1 ;UNIT
DEFSYM .FSEGT==:2 ;NUMBER OF TRANSFERS BEFORE ERROR
DEFSYM .FSEDB==:3 ;NUMBER OF DATAI'S TO RUIN
DEFSYM .FSEDO==:4 ;OR TO DATAI
DEFSYM .FSEDA==:5 ;ANDCAM TO DATAI
DEFSYM .FSECB==:6 ;NUMBER OF CONI'S TO RUIN
DEFSYM .FSECO==:7 ;OR TO CONI
DEFSYM .FSECA==:10 ;ANDCAM TO CONI
DEFSYM .FSMNW==:11 ;MODIFY NOCREATE AND WRITE LOCK
DEFSYM .FSMFS==:1 ;FILE STRUCTURE
DEFSYM .FSMFL==:2 ;FLAGS
DEFSYM FS.MWL==:1_35. ;WRITE LOCK
DEFSYM FS.MNC==:1_34. ;NO CREATE
;STRUUO ERRORS
DEFSYM FSILF%==:0 ;ILLEGAL FUNCTION CODE
DEFSYM FSSNF%==:1 ;STR NOT FOUND
DEFSYM FSSSA%==:2 ;STR IS SINGLE ACCESS
DEFSYM FSILE%==:3 ;ILLEGAL ENTRY IN LIST
DEFSYM FSTME%==:4 ;TOO MANY ENTRIES IN S/L
DEFSYM FSUNA%==:5 ;UNIT NOT AVAILABLE
DEFSYM FSPPN%==:6 ;PPN DOES NOT MATCH
DEFSYM FSMCN%==:7 ;MOUNT COUNT GREATER THAN ONE
DEFSYM FSNPV%==:10 ;NOT PRIVILEGED USER
DEFSYM FSFSA%==:11 ;STRUCTURE ALREADY EXISTS
DEFSYM FSILL%==:12 ;ILLEGAL ARGUMENT LIST LENGTH
DEFSYM FSUNC%==:13 ;UNABLE TO COMPLETE UUO
DEFSYM FSNFS%==:14 ;SYSTEM FULL OF STRS
DEFSYM FSNCS%==:15 ;INSUFFICIENT FREE CORE FOR DATA BLOCKS
DEFSYM FSUNF%==:16 ;ILLEGAL UNIT
DEFSYM FSRSL%==:17 ;STR REPEATED IN S/L
SUBTTL LOOKUP/ENTER/RENAME
;DEFINE RIB LOCATIONS (IE, INDEX IN EXTENDED LOOKUP/ENTER BLOCK)
DEFSYM .RBCNT==:0 ;COUNT OF ARGS FOLLOWING
DEFSYM RB.NSE==:1_17. ;(ENTER ONLY) NON-SUPERSEDING ENTER
DEFSYM .RBPPN==:1 ;DIRECTORY NAME OR POINTER
DEFSYM .RBNAM==:2 ;FILENAME
DEFSYM .RBEXT==:3 ;EXTENSION, ACCESS DATE, ERROR CODE
DEFSYM RB.CRX==:7_15. ;EXTENSION OF RB.CRD
DEFSYM RB.ACD==:77777 ;ACCESS DATE
DEFSYM .RBPRV==:4 ;PRIVILEGE, MODE, CREATION TIME AND DATE
DEFSYM RB.PRV==:777_27. ;PRIVILEGE
DEFSYM RB.MOD==:17_23. ;MODE
DEFSYM RB.CRT==:3777_12. ;CREATION TIME
DEFSYM RB.CRD==:7777_0. ;CREATION DATE
DEFSYM .RBSIZ==:5 ;LENGTH
DEFSYM .RBVER==:6 ;VERSION
DEFSYM .RBSPL==:7 ;SPOOLED FILE NAME
DEFSYM .RBEST==:10 ;ESTIMATED LENGTH
DEFSYM .RBALC==:11 ;ALLOCATION
DEFSYM .RBPOS==:12 ;POSITION TO ALLOCATE
DEFSYM .RBFT1==:13 ;DEC NON-PRIV. FUTURE ARG
DEFSYM .RBNCA==:14 ;NON-PRIV. CUSTOMER ARG
DEFSYM .RBMTA==:15 ;TAPE LABEL
DEFSYM .RBDEV==:16 ;LOGICAL UNIT NAME
DEFSYM .RBSTS==:17 ;FILE STATUS BITS
DEFSYM RP.LOG==:1_35. ;LOGGED IN
DEFSYM RP.UCE==:1_26. ;CHECKSUM ERROR
DEFSYM RP.UWE==:1_25. ;WRITE ERROR
DEFSYM RP.URE==:1_24. ;READ ERROR
DEFSYM RP.UER==:7_24. ;ALL UFD ERRORS
DEFSYM RP.DIR==:1_17. ;DIRECTORY
DEFSYM RP.NDL==:1_16. ;NO DELETES
DEFSYM RP.NFS==:1_14. ;DON'T FAILSAFE
DEFSYM RP.ABC==:1_13. ;ALWAYS BAD CHECKSUM
DEFSYM RP.ABU==:1_11. ;ALWAYS BACK UP
DEFSYM RP.NQC==:1_10. ;NON-QUOTA CHECKED FILE
DEFSYM RP.CMP==:1_9. ;UFD COMPRESSING
DEFSYM RP.FCE==:1_8. ;CHECKSUM ERROR
DEFSYM RP.FWE==:1_7. ;WRITE ERROR
DEFSYM RP.FRE==:1_6. ;READ ERROR
DEFSYM RP.BFA==:1_3. ;BAD BY FAILSA RESTORE
DEFSYM RP.CRH==:1_2. ;CLOSED AFTER CRASH
DEFSYM RP.BDA==:1_0. ;BAD BY DAMAGE ASSESSMENT
DEFSYM RP.ERR==:715 ;ALL FILE ERRORS
DEFSYM .RBELB==:20 ;ERROR LOGICAL BLOCK
DEFSYM .RBEUN==:21 ;ERROR UNIT AND LENGTH
DEFSYM .RBQTF==:22 ;FCFS LOGGED-IN QUOTA
DEFSYM .RBQTO==:23 ;LOGGED-OUT QUOTA
DEFSYM .RBQTR==:24 ;RESERVED QUOTA
DEFSYM .RBUSD==:25 ;BLOCK IN USE
DEFSYM .RBAUT==:26 ;AUTHOR
DEFSYM .RBNXT==:27 ;CONTINUED STR
DEFSYM .RBPRD==:30 ;PREDECESSOR STR
DEFSYM .RBPCA==:31 ;PRIV. CUSTOMER ARG
DEFSYM .RBUFD==:32 ;POINTER BACK TO UFD
DEFSYM .RBFLR==:33 ;RELATIVE BLOCK IN FILE COVERED BY THIS RIB
DEFSYM .RBXRA==:34 ;POINTER TO NEXT RIB IN CHAIN
DEFSYM .RBTIM==:35 ;CREATION DATE,,TIME IN INTERNAL SYSTEM FORMAT
;LOOKUP/ENTER/RENAME/GETSEG/RUN ERROR CODES
DEFSYM ERFNF%==:0 ;FILE NOT FOUND
DEFSYM ERIPP%==:1 ;INCORRECT PPN
DEFSYM ERPRT%==:2 ;PROTECTION FAILURE
DEFSYM ERFBM%==:3 ;FILE BEING MODIFIED
DEFSYM ERAEF%==:4 ;ALREADY EXISTING FILE NAME
DEFSYM ERISU%==:5 ;ILLEGAL SEQUENCE OF UUOS
DEFSYM ERTRN%==:6 ;TRANSMISSION ERROR
DEFSYM ERNSF%==:7 ;NOT A SAVE FILE
DEFSYM ERNEC%==:10 ;NOT ENOUGH CORE
DEFSYM ERDNA%==:11 ;DEVICE NOT AVAILABLE
DEFSYM ERNSD%==:12 ;NO SUCH DEVICE
DEFSYM ERILU%==:13 ;ILLEGAL UUO
DEFSYM ERNRM%==:14 ;NO ROOM
DEFSYM ERWLK%==:15 ;WRITE-LOCKED
DEFSYM ERNET%==:16 ;NOT ENOUGH TABLE SPACE
DEFSYM ERPOA%==:17 ;PATIAL ALLOCATION
DEFSYM ERBNF%==:20 ;BLOCK NOT FREE
DEFSYM ERCSD%==:21 ;CAN'T SUPERSEDE A DIRECTORY
DEFSYM ERDNE%==:22 ;CAN'T DELETE NON-EMPTY DIRECTORY
DEFSYM ERSNF%==:23 ;SFD NOT FOUND
DEFSYM ERSLE%==:24 ;SEARCH LIST EMPTY
DEFSYM ERLVL%==:25 ;SFD NEST LEVEL TOO DEEP
DEFSYM ERNCE%==:26 ;NO-CREATE FOR ALL S/L
DEFSYM ERSNS%==:27 ;SEGMENT NOT ON SWAP SPACE
DEFSYM ERFCU%==:30 ;CAN'T UPDATE FILE
DEFSYM ERLOH%==:31 ;LOW SEG OVERLAPS HI SEG (GETSEG)
DEFSYM ERNLI%==:32 ;NOT LOGGED IN (RUN)
;FILE PROTECTION CODES
DEFSYM .PTCPR==:0 ;CHANGE PROTECTION
DEFSYM .PTREN==:1 ;RENAME
DEFSYM .PTWRI==:2 ;WRITE
DEFSYM .PTUPD==:3 ;UPDATE
DEFSYM .PTAPP==:4 ;APPEND
DEFSYM .PTRED==:5 ;READ
DEFSYM .PTEXO==:6 ;EXECUTE
DEFSYM .PTNON==:7 ;NO-ACCESS
;DIRECTORY PROTECTION CODES
DEFSYM PT.LOK==:4 ;ALLOW LOOKUPS
DEFSYM PT.CRE==:2 ;ALLOW CREATES
DEFSYM PT.SRC==:1 ;SEARCH DIRECTORY
IFN $$TEMP, EXPUNGE DEFSYM