github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-02 06:51:04 +00:00
Code Issues Releases Wiki Activity
Files
598107de121316a04e4a90917d6b48a5c90ec67f
PDP-10.its/src/sys/decbts.232
Lars Brinkhoff fbcecf6092 Build DECUUO.
2016-12-09 07:17:43 -08:00

2697 lines
104 KiB
Plaintext
Executable File
Raw Blame History

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