Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/twxbts.mid
There is 1 other file named twxbts.mid in the archive. Click here to see a list.
; TWENEX system bits
; This file is generated from MONSYM.MAC by the Convert Monsym macro
; in the MACCNV EMACS library.
.AUXIL
IFNDEF DEFSYM,[;ALLOW USER TO USE SYMBOLS IN OTHERS IF HE WHISES.
;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
DEFSYM LOGIN=:JSYS 1
DEFSYM CRJOB=:JSYS 2
DEFSYM LGOUT=:JSYS 3
DEFSYM CACCT=:JSYS 4
DEFSYM EFACT=:JSYS 5
DEFSYM SMON=:JSYS 6
DEFSYM TMON=:JSYS 7
DEFSYM GETAB=:JSYS 10
DEFSYM ERSTR=:JSYS 11
DEFSYM GETER=:JSYS 12
DEFSYM GJINF=:JSYS 13
DEFSYM TIME=:JSYS 14
DEFSYM RUNTM=:JSYS 15
DEFSYM SYSGT=:JSYS 16
DEFSYM GNJFN=:JSYS 17
DEFSYM GTJFN=:JSYS 20
DEFSYM OPENF=:JSYS 21
DEFSYM CLOSF=:JSYS 22
DEFSYM RLJFN=:JSYS 23
DEFSYM GTSTS=:JSYS 24
DEFSYM STSTS=:JSYS 25
DEFSYM DELF=:JSYS 26
DEFSYM SFPTR=:JSYS 27
DEFSYM JFNS=:JSYS 30
DEFSYM FFFFP=:JSYS 31
DEFSYM RDDIR=:JSYS 32
DEFSYM CPRTF=:JSYS 33
DEFSYM CLZFF=:JSYS 34
DEFSYM RNAMF=:JSYS 35
DEFSYM SIZEF=:JSYS 36
DEFSYM GACTF=:JSYS 37
DEFSYM STDIR=:JSYS 40
DEFSYM DIRST=:JSYS 41
DEFSYM BKJFN=:JSYS 42
DEFSYM RFPTR=:JSYS 43
DEFSYM CNDIR=:JSYS 44
DEFSYM RFBSZ=:JSYS 45
DEFSYM SFBSZ=:JSYS 46
DEFSYM SWJFN=:JSYS 47
DEFSYM BIN=:JSYS 50
DEFSYM BOUT=:JSYS 51
DEFSYM SIN=:JSYS 52
DEFSYM SOUT=:JSYS 53
DEFSYM RIN=:JSYS 54
DEFSYM ROUT=:JSYS 55
DEFSYM PMAP=:JSYS 56
DEFSYM RPACS=:JSYS 57
DEFSYM SPACS=:JSYS 60
DEFSYM RMAP=:JSYS 61
DEFSYM SACTF=:JSYS 62
DEFSYM GTFDB=:JSYS 63
DEFSYM CHFDB=:JSYS 64
DEFSYM DUMPI=:JSYS 65
DEFSYM DUMPO=:JSYS 66
DEFSYM DELDF=:JSYS 67
DEFSYM ASND=:JSYS 70
DEFSYM RELD=:JSYS 71
DEFSYM CSYNO=:JSYS 72
DEFSYM PBIN=:JSYS 73
DEFSYM PBOUT=:JSYS 74
DEFSYM PSIN=:JSYS 75
DEFSYM PSOUT=:JSYS 76
DEFSYM MTOPR=:JSYS 77
DEFSYM CFIBF=:JSYS 100
DEFSYM CFOBF=:JSYS 101
DEFSYM SIBE=:JSYS 102
DEFSYM SOBE=:JSYS 103
DEFSYM DOBE=:JSYS 104
DEFSYM GTABS=:JSYS 105
DEFSYM STABS=:JSYS 106
DEFSYM RFMOD=:JSYS 107
DEFSYM SFMOD=:JSYS 110
DEFSYM RFPOS=:JSYS 111
DEFSYM RFCOC=:JSYS 112
DEFSYM SFCOC=:JSYS 113
DEFSYM STI=:JSYS 114
DEFSYM DTACH=:JSYS 115
DEFSYM ATACH=:JSYS 116
DEFSYM DVCHR=:JSYS 117
DEFSYM STDEV=:JSYS 120
DEFSYM DEVST=:JSYS 121
DEFSYM MOUNT=:JSYS 122
DEFSYM DSMNT=:JSYS 123
DEFSYM INIDR=:JSYS 124
DEFSYM SIR=:JSYS 125
DEFSYM EIR=:JSYS 126
DEFSYM SKPIR=:JSYS 127
DEFSYM DIR=:JSYS 130
DEFSYM AIC=:JSYS 131
DEFSYM IIC=:JSYS 132
DEFSYM DIC=:JSYS 133
DEFSYM RCM=:JSYS 134
DEFSYM RWM=:JSYS 135
DEFSYM DEBRK=:JSYS 136
DEFSYM ATI=:JSYS 137
DEFSYM DTI=:JSYS 140
DEFSYM CIS=:JSYS 141
DEFSYM SIRCM=:JSYS 142
DEFSYM RIRCM=:JSYS 143
DEFSYM RIR=:JSYS 144
DEFSYM GDSTS=:JSYS 145
DEFSYM SDSTS=:JSYS 146
DEFSYM RESET=:JSYS 147
DEFSYM RPCAP=:JSYS 150
DEFSYM EPCAP=:JSYS 151
DEFSYM CFORK=:JSYS 152
DEFSYM KFORK=:JSYS 153
DEFSYM FFORK=:JSYS 154
DEFSYM RFORK=:JSYS 155
DEFSYM RFSTS=:JSYS 156
DEFSYM SFORK=:JSYS 157
DEFSYM SFACS=:JSYS 160
DEFSYM RFACS=:JSYS 161
DEFSYM HFORK=:JSYS 162
DEFSYM WFORK=:JSYS 163
DEFSYM GFRKH=:JSYS 164
DEFSYM RFRKH=:JSYS 165
DEFSYM GFRKS=:JSYS 166
DEFSYM DISMS=:JSYS 167
DEFSYM HALTF=:JSYS 170
DEFSYM GTRPW=:JSYS 171
DEFSYM GTRPI=:JSYS 172
DEFSYM RTIW=:JSYS 173
DEFSYM STIW=:JSYS 174
DEFSYM SOBF=:JSYS 175
DEFSYM RWSET=:JSYS 176
DEFSYM GETNM=:JSYS 177
DEFSYM GET=:JSYS 200
DEFSYM SFRKV=:JSYS 201
DEFSYM SAVE%=:JSYS 202
DEFSYM SSAVE=:JSYS 203
DEFSYM SEVEC=:JSYS 204
DEFSYM GEVEC=:JSYS 205
DEFSYM GPJFN=:JSYS 206
DEFSYM SPJFN=:JSYS 207
DEFSYM SETNM=:JSYS 210
DEFSYM FFUFP=:JSYS 211
DEFSYM DIBE=:JSYS 212
DEFSYM FDFRE=:JSYS 213
DEFSYM GDSKC=:JSYS 214
DEFSYM LITES=:JSYS 215
DEFSYM TLINK=:JSYS 216
DEFSYM STPAR=:JSYS 217
DEFSYM ODTIM=:JSYS 220
DEFSYM IDTIM=:JSYS 221
DEFSYM ODCNV=:JSYS 222
DEFSYM IDCNV=:JSYS 223
DEFSYM NOUT=:JSYS 224
DEFSYM NIN=:JSYS 225
DEFSYM STAD=:JSYS 226
DEFSYM GTAD=:JSYS 227
DEFSYM ODTNC=:JSYS 230
DEFSYM IDTNC=:JSYS 231
DEFSYM FLIN%=:JSYS 232
DEFSYM FLOUT%=:JSYS 233
DEFSYM DFIN=:JSYS 234
DEFSYM DFOUT=:JSYS 235
DEFSYM CRDIR=:JSYS 240
DEFSYM GTDIR=:JSYS 241
DEFSYM DSKOP=:JSYS 242
DEFSYM SPRIW=:JSYS 243
DEFSYM DSKAS=:JSYS 244
DEFSYM SJPRI=:JSYS 245
DEFSYM STO=:JSYS 246
DEFSYM ARCF=:JSYS 247
DEFSYM ASNDP=:JSYS 260
DEFSYM RELDP=:JSYS 261
DEFSYM ASNDC=:JSYS 262
DEFSYM RELDC=:JSYS 263
DEFSYM STRDP=:JSYS 264
DEFSYM STPDP=:JSYS 265
DEFSYM STSDP=:JSYS 266
DEFSYM RDSDP=:JSYS 267
DEFSYM WATDP=:JSYS 270
DEFSYM GTNCP=:JSYS 272
DEFSYM GTHST=:JSYS 273
DEFSYM ATNVT=:JSYS 274
DEFSYM CVHST=:JSYS 276
DEFSYM FLHST=:JSYS 277
DEFSYM GCVEC=:JSYS 300
DEFSYM SCVEC=:JSYS 301
DEFSYM STTYP=:JSYS 302
DEFSYM GTTYP=:JSYS 303
DEFSYM BPT=:JSYS 304
DEFSYM GTDAL=:JSYS 305
DEFSYM WAIT=:JSYS 306
DEFSYM HSYS=:JSYS 307
DEFSYM USRIO=:JSYS 310
DEFSYM PEEK=:JSYS 311
DEFSYM MSFRK=:JSYS 312
DEFSYM ESOUT=:JSYS 313
DEFSYM SPLFK=:JSYS 314
DEFSYM ADVIS=:JSYS 315
DEFSYM JOBTM=:JSYS 316
DEFSYM DELNF=:JSYS 317
DEFSYM SWTCH=:JSYS 320
DEFSYM TFORK=:JSYS 321
DEFSYM RTFRK=:JSYS 322
DEFSYM UTFRK=:JSYS 323
DEFSYM SCTTY=:JSYS 324
DEFSYM OPRFN=:JSYS 326
DEFSYM SETER=:JSYS 336
;NEW (NOT IN BBN TENEX) JSYS'S ADDED STARTING AT 500
DEFSYM RSCAN=:JSYS 500
DEFSYM HPTIM=:JSYS 501
DEFSYM CRLNM=:JSYS 502
DEFSYM INLNM=:JSYS 503
DEFSYM LNMST=:JSYS 504
DEFSYM RDTXT=:JSYS 505
DEFSYM SETSN=:JSYS 506
DEFSYM GETJI=:JSYS 507
DEFSYM MSEND=:JSYS 510
DEFSYM MRECV=:JSYS 511
DEFSYM MUTIL=:JSYS 512
DEFSYM ENQ=:JSYS 513
DEFSYM DEQ=:JSYS 514
DEFSYM ENQC=:JSYS 515
DEFSYM SNOOP=:JSYS 516
DEFSYM SPOOL=:JSYS 517
DEFSYM ALLOC=:JSYS 520
DEFSYM CHKAC=:JSYS 521
DEFSYM TIMER=:JSYS 522
DEFSYM RDTTY=:JSYS 523
DEFSYM TEXTI=:JSYS 524
DEFSYM UFPGS=:JSYS 525
DEFSYM SFPOS=:JSYS 526
DEFSYM SYERR=:JSYS 527
DEFSYM DIAG=:JSYS 530
DEFSYM SINR=:JSYS 531
DEFSYM SOUTR=:JSYS 532
DEFSYM RFTAD=:JSYS 533
DEFSYM SFTAD=:JSYS 534
DEFSYM TBDEL=:JSYS 535
DEFSYM TBADD=:JSYS 536
DEFSYM TBLUK=:JSYS 537
DEFSYM STCMP=:JSYS 540
DEFSYM SETJB=:JSYS 541
DEFSYM GDVEC=:JSYS 542
DEFSYM SDVEC=:JSYS 543
DEFSYM COMND=:JSYS 544
DEFSYM PRARG=:JSYS 545
DEFSYM GACCT=:JSYS 546
DEFSYM LPINI=:JSYS 547
DEFSYM GFUST=:JSYS 550
DEFSYM SFUST=:JSYS 551
DEFSYM ACCES=:JSYS 552
DEFSYM RCDIR=:JSYS 553
DEFSYM RCUSR=:JSYS 554
DEFSYM MSTR=:JSYS 555
DEFSYM STPPN=:JSYS 556
DEFSYM PPNST=:JSYS 557
DEFSYM PMCTL=:JSYS 560
DEFSYM PLOCK=:JSYS 561
DEFSYM BOOT%=:JSYS 562
DEFSYM UTEST=:JSYS 563
DEFSYM USAGE=:JSYS 564
DEFSYM WILD=:JSYS 565
DEFSYM VACCT=:JSYS 566
DEFSYM NODE=:JSYS 567
DEFSYM ADBRK=:JSYS 570
DEFSYM SINM=:JSYS 571
DEFSYM SOUTM=:JSYS 572
DEFSYM SWTRP=:JSYS 573
DEFSYM GETOK=:JSYS 574
DEFSYM RCVOK=:JSYS 575
DEFSYM GIVOK=:JSYS 576
DEFSYM SKED=:JSYS 577
DEFSYM MTU=:JSYS 600
DEFSYM XRIR=:JSYS 601
DEFSYM XSIR=:JSYS 602
DEFSYM PDVOP=:JSYS 603
DEFSYM NTMAN=:JSYS 604
DEFSYM XSFRK=:JSYS 605
DEFSYM XGVEC=:JSYS 606
DEFSYM XSVEC=:JSYS 607
DEFSYM RSMAP=:JSYS 610
DEFSYM XRMAP=:JSYS 611
DEFSYM XGTPW=:JSYS 612
DEFSYM XSSEV=:JSYS 613
DEFSYM XGSEV=:JSYS 614
DEFSYM QUEUE=:JSYS 615
DEFSYM DYNLB=:JSYS 616
DEFSYM CTSOP=:JSYS 617
DEFSYM DAP=:JSYS 620
DEFSYM SCS=:JSYS 622
DEFSYM WSMGR=:JSYS 623
DEFSYM LLMOP=:JSYS 624
DEFSYM APCON=:JSYS 625
DEFSYM XPEEK=:JSYS 626
DEFSYM CNFIG=:JSYS 627
DEFSYM NI=:JSYS 630
DEFSYM LATOP=:JSYS 631
DEFSYM NTINF=:JSYS 632
DEFSYM INFO=:JSYS 633
DEFSYM DOB=:JSYS 635
;STANFORD LOCAL JSYS DEFINITIONS
;DEFSYM GTBLT=:JSYS 634
DEFSYM HANDS=:JSYS 700
DEFSYM IDLE=:JSYS 701
DEFSYM PKOPR=:JSYS 703
DEFSYM MONRD=:JSYS 717
DEFSYM DBGRD=:JSYS 720
;TOPS20AN JSYS DEFINITIONS
DEFSYM SEND=:JSYS 740
DEFSYM RECV=:JSYS 741
DEFSYM OPEN%=:JSYS 742
DEFSYM CLOSE%=:JSYS 743
DEFSYM SCSLV=:JSYS 744
DEFSYM STAT=:JSYS 745
DEFSYM CHANL=:JSYS 746
DEFSYM ABORT=:JSYS 747
DEFSYM SNDIM=:JSYS 750
DEFSYM RCVIM=:JSYS 751
DEFSYM ASNSQ=:JSYS 752
DEFSYM RELSQ=:JSYS 753
DEFSYM SNDIN=:JSYS 754
DEFSYM RCVIN=:JSYS 755
DEFSYM ASNIQ=:JSYS 756
DEFSYM RELIQ=:JSYS 757
DEFSYM IPOPR=:JSYS 760
DEFSYM TCOPR=:JSYS 761
;TEMPORARY JSYS DEFINITIONS
DEFSYM GTDOM=:JSYS 765
DEFSYM METER=:JSYS 766
DEFSYM SMAP=:JSYS 767
DEFSYM THIBR=:JSYS 770
DEFSYM TWAKE=:JSYS 771
DEFSYM MRPAC=:JSYS 772
DEFSYM SETPV=:JSYS 773
DEFSYM MTALN=:JSYS 774
DEFSYM TTMSG=:JSYS 775
DEFSYM MDDT=:JSYS 777
;ERROR CONDITION INSTRUCTIONS. THESE ARE NOP'S UNLESS IMMEDIATELY
;FOLLOWING A JSYS WHICH FAILS.
DEFSYM ERJMPR=:JUMP 12,0 ;JUMP ON ERROR, ALWAYS PUT
;ERROR CODE IN AC1
DEFSYM ERCALR=:JUMP 13,0 ;CALL ON ERROR, ALWAYS PUT
;ERROR CODE IN AC1
DEFSYM ERJMPS=:JUMP 14,0 ;JUMP ON ERROR, SUPPRESS ERROR
;CODE IN AC
DEFSYM ERCALS=:JUMP 15,0 ;CALL ON ERROR, SUPPRESS ERROR
;CODE IN AC
DEFSYM ERJMP=:JUMP 16,0 ;JUMP ON ERROR
DEFSYM ERCAL=:JUMP 17,0 ;CALL ON ERROR
;(SIMULATE PUSHJ 17,ADR)
; THE FOLLOWING OPCODES ARE USED TO PERFORM THE EXTENDED
; ADDRESSING FUNCTIONS.
DEFSYM XJRSTF=:<JRST 5,0> ;RESTORE FLAGS AND PC
DEFSYM XJEN=:<JRST 6,0> ;RESTORE FLAGS,PC AND DISMISS
DEFSYM XPCW=:<JRST 7,0> ;EXCHANGE FLAGS AND PC
DEFSYM XSFM=:<JRST 14,0> ;SAVE PC FLAGS IN MEMORY
DEFSYM XJRST=:<JRST 15,0> ;JUMP TO C(E)
DEFSYM XMOVEI=:<SETMI 0,0> ;EXTENDED MOVEI
DEFSYM XHLLI=:<HLLI 0,0> ;INSTRUCTION TO PUT IMMEDIATE ADDRESS IN LH
;OTHER VARIANTS OF JRST
DEFSYM PORTAL=:<JRST 1,0>
DEFSYM JRSTF=:<JRST 2,0>
DEFSYM JEN=:<JRST 12,0>
DEFSYM IFIW==:1_35. ;INSTRUCTION FORMAT INDIRECT WORD
DEFSYM EFIW==:0 ;EXTENDED FORMAT INDIRECT WORD
;THE NO-OPERATION INSTRUCTION (MAY CHANGE FROM PROCESSOR TO PROCESSOR)
DEFSYM NOP=:<TRN 0,0>
;SPECIAL LOSEG SYMBOLS
DEFSYM .JBHSO==:75 ; 0 ,, HIGHSEG ORIGIN PAGE NUMBER
DEFSYM .JBEDV==:112 ;POINTER TO EXEC DATA VECTOR
DEFSYM .EDCNT==:0 ;'EDV',,COUNT (INCLUDES THIS WORD)
DEFSYM .EDHSB==:1 ;POINTER TO HIDDEN SYMBOL MAP SWITCHING BLOCK
DEFSYM .EDSYM==:2 ;.JBSYM IN SYMBOL SPACE
DEFSYM .EDUSY==:3 ;.JBUSY IN SYMBOL SPACE
DEFSYM .EDHSF==:4 ;POINTER TO SYMBOLS HIDDEN FLAG WORD
DEFSYM .EDSEC==:5 ;SECTION (AS VIRTUAL ADDRESS) OF SYMTABS
;*****************************************
;JSYS SPECIFIC ARGUMENTS
;THE FOLLOWING ARE ORDERED ALPHABETICALLY BY JSYS NAME
;*****************************************
;ACCES - ACCESS A DIRECTORY (E.G., BY CONNECTING)
DEFSYM AC%CON==:1_35. ;CONNECT TO THE SPECIFIED DIRECTORY
DEFSYM AC%OWN==:1_34. ;GAIN OWNERSHIP
DEFSYM AC%REM==:1_33. ;REMOVE OWNERSHIP
DEFSYM AC%PWD==:1_32. ;CHECK PASSWORD
;OFFSETS IN ARGUMENT BLOCK
DEFSYM .ACDIR==:0 ;DIRECTORY DESIGNATOR
DEFSYM .ACPSW==:1 ;POINTER TO PASSWORD STRING
DEFSYM .ACJOB==:2 ;JOB NUMBER (-1 FOR SELF)
;ADBRK - Address break JSYS function codes and bits
;FUNCTION CODES
DEFSYM .ABSET==:0 ;SET USER ADDRESS BREAK
DEFSYM .ABRED==:1 ;READ USER ADDRESS BREAK
DEFSYM .ABCLR==:2 ;CLEAR USER ADDRESS BREAK
DEFSYM .ABGAD==:3 ;GET ADDRESS OF TRAPPED INSTRUCTION
DEFSYM .ABSRG==:4 ;SET ADDRESS BREAK RANGE
DEFSYM .ABRRG==:5 ;READ ADDRESS BREAK RANGE
DEFSYM .ABGBR==:6 ;GET ADDRESS BREAK DATA
;FUNCTION BITS FOR FUNCTION .ABSET
DEFSYM AB%RED==:1_35. ;READ
DEFSYM AB%WRT==:1_34. ;WRITE
DEFSYM AB%XCT==:1_33. ;EXECUTE
DEFSYM AB%SEC==:1_32. ;BREAK ON THIS OFFSET IN ANY SECTION (KC ONLY)
;Offsets in argument blocks
DEFSYM .ABHDR==:0 ;HEADER (COUNT)
DEFSYM .ABLOB==:1 ;LOWER BOUND ADDRESS
DEFSYM .ABUPB==:2 ;UPPER BOUND ADDRESS
DEFSYM .ABFLG==:3 ;FLAGS
DEFSYM .ABBPC==:1 ;PC WHERE BREAK OCCURRED
DEFSYM .ABBAD==:2 ;ADDRESS WHERE BREAK OCCURRED
;ALLOC JSYS FUNCTION CODES
DEFSYM .ALCAL==:0 ;ALLOCATE A DEVICE
; ARCF
DEFSYM .ARRAR==:0 ; Request file archive (user)
DEFSYM .ARCLR==:0 ; Clear the request
DEFSYM .ARSET==:1 ; Set the request
; AR%NDL can be specified in AC2, defined elsewhere
DEFSYM .ARRIV==:1 ; Request file migration (system)
DEFSYM .AREXM==:2 ; File exempt from migration (system)
DEFSYM .ARRFR==:3 ; Request file's contents be restored to disk
DEFSYM AR%NMS==:1_35. ; Request no msg on restoration
DEFSYM AR%WAT==:1_34. ; Wait for file to be restored to disk
DEFSYM .ARDIS==:4 ; Clear archive status for file
DEFSYM AR%CR1==:1_35. ; Clear 1st run info
DEFSYM AR%CR2==:1_34. ; Clear 2nd run info
DEFSYM .ARSST==:5 ; Set archive status for file
DEFSYM .AROFL==:0 ; Flags
DEFSYM AR%O1==:1_35. ; Set run 1 info
DEFSYM AR%O2==:1_34. ; Set run 2 info
DEFSYM AR%OFL==:1_33. ; Flush contents of file
DEFSYM AR%ARC==:1_32. ; Set FB%ARC (archive the file)
DEFSYM AR%CRQ==:1_31. ; Clear archive/migration request
DEFSYM .ARTP1==:1 ; Tape 1 ID
DEFSYM .ARSF1==:2 ; XWD TSN 1, TFN 1
DEFSYM AR%TSN==:777777_18. ; Tape saveset number
DEFSYM AR%TFN==:777777_0. ; Tape file number
DEFSYM .ARTP2==:3 ; Tape 2 ID
DEFSYM .ARSF2==:4 ; XWD TSN 2, TFN 2
;;; AR%TSN==:777777B17 ; Tape saveset number
;;; AR%TFN==:777777B35 ; Tape file number
DEFSYM .ARODT==:5 ; Date and time
DEFSYM .ARPSZ==:6 ; Number of pages in the file (.ARGST only)
DEFSYM .ARRST==:6 ; Restore contents to archived file
DEFSYM .ARGST==:7 ; Get tape info for file (blk as for ARSST)
DEFSYM .ARRFL==:10 ; Retrieve failed
DEFSYM .ARNAR==:11 ; Set/clear resist archive
; Function & reason codes for IPCF msgs
DEFSYM .RETM==:0 ; Send retrieve message
DEFSYM .RETR==:0 ; Normal retrieve
DEFSYM .RETRW==:1 ; User waiting for retrieve
DEFSYM .NOTM==:1 ; Send notification message
DEFSYM .FLXP==:0 ; Archive file expunged
DEFSYM .ACLR==:1 ; Archive status cleared
;ASNIQ - IP assign queue (requires NET WIZ capability, SC%NWZ)
;AC1 - LH flags, Queue descriptor block address
DEFSYM AQ%SCR==:1_35. ; Use RPI device (secure)
DEFSYM AQ%SPT==:1_34. ; Single port protocol
DEFSYM AQ%ICM==:1_33. ; Permit send/receive of ICMP messages
DEFSYM .INTVR==:4 ; Internet protocol version number
; Queue descriptor block format
DEFSYM .IQPRV==:0. ; Internet protocol value (bits 24-31)
DEFSYM .IQFHV==:1. ; Internet foreign host value (bits 0-31)
DEFSYM .IQSHV==:2. ; Internet source host value (bits 0-31)
DEFSYM .IQPTV==:3. ; Internet port value, local bits 0-15, foreign bits 16-31
DEFSYM .IQPRM==:4. ; Mask for protocol value (bits 24-31)
DEFSYM .IQFHM==:5. ; Mask for foreign host value (bits 0-31)
DEFSYM .IQSHM==:6. ; Mask for source host value (bits 0-31)
DEFSYM .IQPTM==:7. ; Mask for port value, local bits 0-15, foreign bits 16-31
; Note: port(s) follow IP header if .IQPTM is non-zero
; Note: If AS%SPT is specified, the (single) port is
DEFSYM .IQLEN==:8. ; in bits 0-15 (bits 16-31 should be zero)
; Internet Message Header Structures
DEFSYM .IPKVR==:0 ; Word with version, type of service, etc
DEFSYM .IPKSG==:1 ; Word with segmentation info
DEFSYM .IPKPR==:2 ; Word with time to live, checksum, protocol
DEFSYM .IPKSH==:3 ; Word with source host
DEFSYM .IPKDH==:4 ; Word with destination host
; END OF DEFINE DEFIP.
;ATNVT ;TOPS20AN
DEFSYM AN%TCP==:1_35. ;TOPS20AN ; RH of 1 contains TCP JCN instead
; of JFN; Implies AN%NTP
DEFSYM AN%NTP==:1_33. ;TOPS20AN ;NEW TELNET PROTOCOL
;ATACH
DEFSYM AT%CCJ==:1_35. ;^C JOB WHEN ATTACHED
DEFSYM AT%NAT==:1_34. ;NO ATTACH
DEFSYM AT%TRM==:1_33. ;ATTACH JOB TO TERMINAL IN REGISTER 4
DEFSYM AT%JOB==:777777_0. ;JOB NUMBER
;BOOT
DEFSYM .BTROM==:0 ;ACTIVATE ROM BOOT
DEFSYM .BTDTE==:0 ;DTE-20 NUMBER
DEFSYM .BTLDS==:1 ;LOAD SECONDARY BOOTSTRAP PROGRAM
DEFSYM .BTERR==:1 ;ERROR FLAGS
DEFSYM .BTSEC==:2 ;ADDRESS OF SECONDARY BOOTSTRAP PROGRAM
DEFSYM .BTLOD==:2 ;LOAD MEMORY (OBSOLETE)
DEFSYM .BTSMP==:2 ;SEND MOP MESSAGE
DEFSYM .BTFLG==:3 ;FLAGS
DEFSYM BT%BEL==:1_35. ;SEND TO -11 DOORBELL AFTER SETUP
DEFSYM .BTCNT==:4 ;NUMBER OF BYTES TO BE TRANSFERRED
DEFSYM .BTLPT==:5 ;BYTE POINTER TO DATA TO BE LOADED
DEFSYM .BTDMP==:3 ;DUMP MEMORY
DEFSYM .BTDPT==:5 ;BYTE POINTER TO DESTINATION OF DUMPED DATA
DEFSYM .BTIPR==:4 ;INITIALIZE COMMUNICATIONS PROTOCOL
DEFSYM .BTPRV==:1 ;PROTOCOL VERSION NUMBER
DEFSYM .BTTPR==:5 ;TERMINATE COMMUNICATIONS PROTOCOL
DEFSYM .BTSTS==:6 ;RETURN PROTOCOL STATUS
DEFSYM .BTCOD==:1 ;STATUS CODE
DEFSYM .BTBEL==:7 ;WAIT FOR DOORBELL
DEFSYM .BTRMP==:10 ;READ MOP MESSAGE
DEFSYM .BTMPT==:5 ;POINTER TO DESTINATION FOR MOP MESSAGE
DEFSYM .BTKML==:11 ;LOAD KMC11
DEFSYM .BTKMC==:0 ;KMC11 ADDRESS
DEFSYM .BTKER==:1 ;ERROR FLAGS
DEFSYM BT%CVE==:1_35. ;CRAM VERIFY ERROR (RH IS BAD DATA)
DEFSYM BT%DVE==:1_34. ;DRAM VERIFY ERROR (RH IS BAD DATA)
DEFSYM BT%RVE==:1_33. ;REG VERIFY ERROR (RH IS BAD DATA)
DEFSYM .BTKCC==:2 ;COUNT OF CRAM DATA
DEFSYM .BTKCP==:3 ;POINTER TO CRAM DATA (16 BIT DATA)
DEFSYM .BTKDC==:4 ;COUNT OF DRAM DATA
DEFSYM .BTKDP==:5 ;POINTER TO DRAM DATA (8 BIT DATA)
DEFSYM .BTKRC==:6 ;COUNT OF REGISTER DATA
DEFSYM .BTKRP==:7 ;POINTER TO REGISTER DATA (16 BIT DATA)
DEFSYM .BTKSA==:10 ;RH IS STARTING ADDRESS
DEFSYM BT%KSA==:1_35. ;IS SET RH WANT TO START KMC11
DEFSYM .BTKMD==:12 ;DUMP KMC11
DEFSYM .BTRLC==:13 ;RETURN LINE COUNTERS
DEFSYM .BTPRT==:0 ;PORT NUMBER
DEFSYM BT%ZRO==:1_35. ;CLEAR COUNTERS AFTER READING
DEFSYM .BTZTM==:1 ;TIME SINCE COUNTERS HAVE BEEN ZEROED
DEFSYM .BTSCC==:2 ;STATUS COUNT COUNT
DEFSYM .BTSCP==:3 ;STATUS COUNT POINTER
DEFSYM .BTRCC==:4 ;RECEIVE COUNT COUNT
DEFSYM .BTRCP==:5 ;RECEIVE COUNT POINTER
DEFSYM .BTTCC==:6 ;TRANSMIT COUNT COUNT
DEFSYM .BTTCP==:7 ;TRANSMIT COUNT POINTER
DEFSYM .BTCLI==:14 ;CONVERT LINEID TO PORT NUMBER
DEFSYM .BTLID==:1 ;POINTER TO ASCIZ LINE-ID
DEFSYM .BTCPN==:15 ;CONVERT PORT NUMBER TO LINE-ID
DEFSYM .BTD60==:16 ;DN60 PROTOCOL OPERATION
; DEFSTR (BT6DTE,0,35,36) ;DTE number
DEFSYM .BT6DTE==:0
; DEFSTR (BT6ERR,1,35,36) ;returned error flags
DEFSYM .BT6ERR==:1
;protocol flags
DEFSYM D6%BSY==:1_35. ;port is busy - sign bitness is used in testing
DEFSYM D6%QHD==:1_34. ;header has been queued
DEFSYM D6%HDD==:1_33. ;to -11 done for header seen
DEFSYM D6%NDT==:1_32. ;this is a no-data-transfer operation
DEFSYM D6%RED==:1_31. ;this is a read data type operation
DEFSYM D6%QDT==:1_30. ;data has been queued(for write fcn)
DEFSYM D6%DTD==:1_29. ;to -11 done for write data seen
DEFSYM D6%RBL==:1_28. ;to -10 doorbell for response header seen
DEFSYM D6%RDN==:1_27. ;to -10 done for response header seen
DEFSYM D6%DBL==:1_26. ;to -10 doorbell for read data seen
DEFSYM D6%DDN==:1_25. ;to -10 done for read data seen
DEFSYM D6%FDN==:1_24. ;to -10 done for read data was faked
;error flags
DEFSYM D6%BDP==:1_5. ;bad data byte ptr
DEFSYM D6%ARD==:1_4. ;11 attempted to send read data when
; when none was expected
DEFSYM D6%TRS==:1_3. ;timed out waiting for response header
DEFSYM D6%TDT==:1_2. ;timed out waiting for read data
DEFSYM D6%TPO==:1_1. ;timed out waiting for port to be free
DEFSYM D6%NT6==:1_0. ;not a DN60 front end
; DEFSTR (BT6HBC,2,17,18) ;DN60 header byte count
DEFSYM .BT6HBC==:2
; DEFSTR (BT6HDR,2,35,18) ;DN60 header address(begins on word)
DEFSYM .BT6HDR==:2
; DEFSTR (BT6DBC,3,35,36) ;data byte count
DEFSYM .BT6DBC==:3
DEFSYM ; positive =: write data mode
DEFSYM ; zero =: no data transfer
DEFSYM ; negative =: read data mode
; DEFSTR (BT6PTR,4,35,36) ;data byte ptr
DEFSYM .BT6PTR==:4
;the following are returned for timing analysis
; DEFSTR (BT6TMR,5,35,36) ;time of request
DEFSYM .BT6TMR==:5
; DEFSTR (BT6TAS,6,35,36) ;TIME DTE ASSIGNED
DEFSYM .BT6TAS==:6
; DEFSTR (BT6THQ,7,35,36) ;time header queued to 11
DEFSYM .BT6THQ==:7
; DEFSTR (BT6TRD,10,35,36) ;time of -10 done for response header
DEFSYM .BT6TRD==:10
; DEFSTR (BT6TDD,11,35,36) ;time of -10 done for data
DEFSYM .BT6TDD==:11
; DEFSTR (BT6TFR,12,35,36) ;time finished request
DEFSYM .BT6TFR==:12
DEFSYM .BTSTA==:16 ;SET STATION POLLING STATUS
DEFSYM .BTSSP==:17 ;SET LINE STARTUP PRIORITY
DEFSYM .BTPRI==:1 ;PRIORITY VALUE
DEFSYM .BTSTP==:20 ;SET STATION POLLING PRIORITY
DEFSYM .BTSDD==:21 ;SEND DDCMP MESSAGE
DEFSYM .BTMSG==:1 ;ADDR OF MESSAGE
DEFSYM .BTLEN==:2 ;BYTE COUNT OF MESSAGE
DEFSYM .BTRDD==:22 ;RECEIVE A MESSAGE FROM DDCMP
DEFSYM .BTSUP==:1 ;STATION CAME UP
DEFSYM .BTSDW==:2 ;STATION WENT DOWN
DEFSYM .BTCMP==:3 ;XMIT COMPLETE
DEFSYM .BTSSF==:4 ;STARTUP FAILED
DEFSYM BT%CTL==:1_35. ;CONTROL MESSAGE
DEFSYM .BTCHN==:23 ;ASSIGN A SOFTWARE INTERRUPT CHANNEL
DEFSYM .BTESI==:1 ;CHANNEL NUMBER
;CFORK
DEFSYM CR%MAP==:1_35. ;SET MAP FOR NEW FORK TO POINT TO
; THIS PROCESS
DEFSYM CR%CAP==:1_34. ;MAKE CAPABILITIES IDENTICAL
DEFSYM CR%ACS==:1_32. ;SET ACS FROM BLOCK
DEFSYM CR%ST==:1_31. ;START PROCESS AT PC
DEFSYM CR%PCV==:777777_0. ;VALUE OF PC
;CHFDB
DEFSYM CF%NUD==:1_35. ;NO UPDATE DIRECTORY
DEFSYM CF%DSP==:777_18. ;FDB DISPLACEMENT
DEFSYM CF%JFN==:777777_0. ;JFN
;CHKAC JSYS DEFINITIONS
;CHKAC FLAG DEFINITIONS
DEFSYM CK%JFN==:1_35. ;JFN IS GIVEN AS AN ARGUMENT
;CHKAC ARGUMENT BLOCK OFFSET VALUES
DEFSYM .CKAAC==:0 ;ACCESS CODE
DEFSYM .CKALD==:1 ;LOGGED IN USER NUMBER OF USER
DEFSYM .CKACD==:2 ;CONNECTED DIR NUMBER OF USER
DEFSYM .CKAEC==:3 ;ENABLED CAPABILITIES OF USER BEING CHK'D
DEFSYM .CKAUD==:4 ;DIR NUMBER OF DIRECTORY CONTAINING FILE
DEFSYM .CKAPR==:5 ;PROTECTION OF FILE
;CHKAC ACCESS CODES
DEFSYM .CKARD==:0 ;READ AN EXISTING FILE
DEFSYM .CKAWT==:1 ;WRITE AN EXISTING FILE
DEFSYM .CKAWR==:1 ; (ANOTHER NAME FOR ABOVE)
DEFSYM .CKAEX==:2 ;EXECUTE AN EXISTING FILE
DEFSYM .CKAAP==:3 ;APPEND TO AN EXISTING FILE
DEFSYM .CKADL==:4 ;GET DIR LISTING OF AN EXISTING FILE
DEFSYM .CKADR==:6 ;READ THE DIRECTORY
DEFSYM .CKAOF==:7 ;OPEN FILES IN DIR (NOT IMPLEMENTED)
DEFSYM .CKACN==:10 ;CONNECT TO A DIR
DEFSYM .CKACF==:11 ;CREATE FILES IN DIR
;CLOSF
DEFSYM CO%NRJ==:1_35. ;NO RELEASE JFN
DEFSYM CO%WCL==:1_34. ;TOPS20AN ;WAIT UNTIL MATCHING CLS IS RECEIVED
DEFSYM CO%JFN==:777777_0. ;JFN
;CLZFF
DEFSYM CZ%NIF==:1_35. ;NO INFERIOR FORK FILES
DEFSYM CZ%NSF==:1_34. ;NO SELF FORK FILES
DEFSYM CZ%NRJ==:1_33. ;NO RELEASE JFN
DEFSYM CZ%NCL==:1_32. ;NO CLOSE FILE
DEFSYM CZ%UNR==:1_31. ;UNRESTRICT
DEFSYM CZ%ARJ==:1_30. ;ALWAYS RELEASE JFN
DEFSYM CZ%ABT==:1_29. ;ABORT
DEFSYM CZ%NUD==:1_28. ;NO UPDATE DIRECTORY
DEFSYM CZ%PRH==:777777_0. ;PROCESS HANDLE
;CNDIR
DEFSYM CN%CKP==:1_35. ;CHECK PASSWORD ONLY
DEFSYM CN%NOC==:1_34. ;NO CONNECT
DEFSYM CN%JOB==:1_33. ;DOING CONNECT FOR ANOTHER JOB
DEFSYM CN%DIR==:777777_0. ;DIRECTORY NUMBER
;CNFIG%
DEFSYM .CFGKL==:4 ;Processor ID for KL.
DEFSYM .CFINF==:0 ;Return hardware and software information
DEFSYM .CFLEN==:0 ;Base word of every argument block
; MSKSTR (CF%WDP,<>,<-1,,0>) ;Words processed mask
DEFSYM CF%WDP==:<-1,,000000>
; MSKSTR (CF%LOB,<>,<0,,-1>) ;Length of block
DEFSYM CF%LOB==:777777
DEFSYM .CFIPR==:1 ;type of processor
DEFSYM .CFISE==:2 ;serial number of processor
DEFSYM .CFIUC==:3 ;CPU microcode version number
DEFSYM .CFIHO==:4 ;CPU hardware options
DEFSYM CF%50Z==:1_35. ;line power is 50 hertz
DEFSYM CF%CHI==:1_34. ;cache is installed
DEFSYM CF%CHN==:1_33. ;channel bit in APRID
DEFSYM CF%EKL==:1_32. ;this is an extended KL
DEFSYM CF%MOS==:1_31. ;system has a master oscillator
DEFSYM CF%MCA==:1_30. ;system has MCA25 Pager cache
DEFSYM CF%CH1==:1_29. ;cache control bit 1
DEFSYM CF%CH2==:1_28. ;cache control bit 2
DEFSYM CF%CI==:1_27. ;system has a CI
DEFSYM .CFIMO==:5 ;CPU microcode options
DEFSYM CF%T20==:1_35. ;TOPS-20 paging implemented
DEFSYM CF%EAD==:1_34. ;microcode handles extended addressing
DEFSYM CF%UCO==:1_33. ;non-standard microcode loaded
DEFSYM .CFISO==:6 ;TOPS-20 static software options
DEFSYM CF%CFS==:1_35. ;CFS capability installed
DEFSYM CF%DCN==:1_34. ;DECNET capability installed
DEFSYM CF%ARP==:1_33. ;ARPANET capability installed
DEFSYM .CFIVR==:7 ;TOPS-20 operating system version
DEFSYM .CFILN==:8 ;Maximum length of block
DEFSYM .CFCIN==:1 ;Return CFS information
DEFSYM .CFNCN==:1 ;The number of CFS nodes up
DEFSYM .CFCDO==:2 ;CFS dynamic options
DEFSYM CF%CFR==:1_35. ;CFS connected to another host at least once
DEFSYM .CFCLN==:3 ;Maximum length of block
DEFSYM .CFCSE==:2 ;Return serial numbers of CFS nodes
DEFSYM .CFCS1==:1 ;CI node number,,serial number of first host
; MSKSTR (CF%CIN,<>,<17,,0>) ;CI node number
DEFSYM CF%CIN==:<17,,0>
; MSKSTR (CF%HSN,<>,<0,,-1>) ;host serial number
DEFSYM CF%HSN==:777777
DEFSYM .CFCND==:3 ;Return node names of CFS hosts
DEFSYM .CFNND==:0 ;Number of nodes returned,,length of block
; MSKSTR (CF%NND,<>,<-1,,0>) ;Number of nodes returned
DEFSYM CF%NND==:<-1,,0>
DEFSYM .CFBP1==:1 ;Byte pointer to ASCIZ node name of first host
DEFSYM .CFHSC==:4 ;Return node names of HSC hosts
DEFSYM .CFNHN==:0 ;Number of nodes returned,,length of block
; MSKSTR (CF%NHN,<>,<-1,,0>) ;Number of nodes returned
DEFSYM CF%NHN==:<-1,,0>
DEFSYM .CFHP1==:1 ;Byte pointer to ASCIZ node name of first host
;COMND
;COMND - COMMAND STATE BLOCK
DEFSYM .CMFLG==:0 ;USER FLAGS,,REPARSE DISPATCH ADDRESS
DEFSYM .CMIOJ==:1 ;INJFN,,OUTJFN
DEFSYM .CMRTY==:2 ;^R BUFFER POINTER
DEFSYM .CMBFP==:3 ;PTR TO TOP OF BUFFER
DEFSYM .CMPTR==:4 ;PTR TO NEXT INPUT TO BE PARSED
DEFSYM .CMCNT==:5 ;COUNT OF SPACE LEFT IN BUFFER AFTER PTR
DEFSYM .CMINC==:6 ;COUNT OF CHARACTERS FOLLOWING PTR
DEFSYM .CMABP==:7 ;ATOM BUFFER POINTER
DEFSYM .CMABC==:10 ;ATOM BUFFER SIZE
DEFSYM .CMGJB==:11 ;ADR OF GTJFN ARG BLOCK
DEFSYM CM%GJB==:777777 ;ADR OF GTJFN ARG BLOCK
;COMND - FUNCTION DESCRIPTOR BLOCK
DEFSYM .CMFNP==:0 ;FUNCTION AND POINTER
DEFSYM CM%FNC==:777_27. ;FUNCTION CODE
DEFSYM CM%FFL==:777_18. ;FUNCTION-SPECIFIC FLAGS
DEFSYM CM%LST==:777777 ;LIST POINTER TO OTHER BLOCKS
DEFSYM .CMDAT==:1 ;DATA FOR FUNCTION
DEFSYM .CMHLP==:2 ;HELP TEXT POINTER
DEFSYM .CMDEF==:3 ;DEFAULT STRING POINTER
DEFSYM .CMBRK==:4 ;FIELD BREAK MASK POINTER
;COMND - FLAGS IN .CMFLG
DEFSYM CM%ESC==:1_35. ;ESC SEEN
DEFSYM CM%NOP==:1_34. ;NO PARSE
DEFSYM CM%EOC==:1_33. ;END OF COMMAND SEEN
DEFSYM CM%RPT==:1_32. ;REPEAT PARSE NEEDED
DEFSYM CM%SWT==:1_31. ;SWITCH TERMINATED WITH ":"
DEFSYM CM%PFE==:1_30. ;PREVIOUS FIELD ENDED WITH ESC
DEFSYM CM%RAI==:1_29. ;RAISE INPUT
DEFSYM CM%XIF==:1_28. ;EXCLUDE INDIRECT FILES
DEFSYM CM%WKF==:1_27. ;WAKEUP AFTER EACH FIELD
;FUNCTION BLOCK FLAGS (IN WORD .CMFNP)
DEFSYM CM%NOC==:1_24. ;SEMI COLON DOES NOT CAUSE COMMENT
DEFSYM CM%NSF==:1_23. ;SUFFIX MAY BE OMITTED IF DESIRED
DEFSYM CM%BRK==:1_22. ;BREAK MASK PRESENT
DEFSYM CM%PO==:1_21. ;PARSE-ONLY
DEFSYM CM%HPP==:1_20. ;HELP POINTER PRESENT
DEFSYM CM%DPP==:1_19. ;DEFAULT POINTER PRESENT
DEFSYM CM%SDH==:1_18. ;SUPPRESS DEFAULT HELP MESSAGE
;FLAGS FOR CMDIR FUNCTION
DEFSYM CM%DWC==:1_35. ;DIRECTORY WILD CARDING ALLOWED
;FLAGS FOR CMTAD FUNCTION
DEFSYM CM%IDA==:1_35. ;INPUT DATE
DEFSYM CM%ITM==:1_34. ;INPUT TIME
DEFSYM CM%NCI==:1_33. ;NO CONVERT TO INTERNAL
;FLAGS IN KEYWORD TABLE (FIRST WORD OF STRING IF B0-6 =: 0)
DEFSYM CM%INV==:1_0. ;INVISIBLE
DEFSYM CM%NOR==:1_1. ;NO-RECOGNIZE (PLACEHOLDER)
DEFSYM CM%ABR==:1_2. ;ABBREVIATION FOR ANOTHER ENTRY
DEFSYM CM%FW==:1_28. ;FLAG WORD (MUST ALWAYS BE ON)
;COMND - FUNCTION CODES
DEFSYM .CMKEY==:0 ;KEYWORD
DEFSYM .CMNUM==:1 ;NUMBER
DEFSYM .CMNOI==:2 ;NOISE WORD
DEFSYM .CMSWI==:3 ;SWITCH
DEFSYM .CMIFI==:4 ;INPUT FILE
DEFSYM .CMOFI==:5 ;OUTPUT FILE
DEFSYM .CMFIL==:6 ;GENERAL FILESPEC
DEFSYM .CMFLD==:7 ;ARBITRARY FIELD
DEFSYM .CMCFM==:10 ;CONFIRM
DEFSYM .CMDIR==:11 ;DIRECTORY NAME
DEFSYM .CMUSR==:12 ;USER NAME
DEFSYM .CMCMA==:13 ;COMMA
DEFSYM .CMINI==:14 ;INIT LINE
DEFSYM .CMFLT==:15 ;FLOATING POINT NUMBER
DEFSYM .CMDEV==:16 ;DEVICE NAME
DEFSYM .CMTXT==:17 ;TEXT TO ACTION CHAR
DEFSYM .CMTAD==:20 ;TIME AND DATE
DEFSYM .CMQST==:21 ;QUOTED STRING
DEFSYM .CMUQS==:22 ;UNQUOTED STRING
DEFSYM .CMTOK==:23 ;TOKEN
DEFSYM .CMNUX==:24 ;NUMBER DELIMITED BY NON-DIGIT
DEFSYM .CMACT==:25 ;ACCOUNT
DEFSYM .CMNOD==:26 ;NODE NAME
;CRDIR
DEFSYM CD%LEN==:1_35. ;FLAGS ,, LENGTH OF CRDIR BLOCK
DEFSYM CD%PSW==:1_34. ;SET PASSWORD STRING
DEFSYM CD%LIQ==:1_33. ;SET LOGGED IN QUOTA
DEFSYM CD%PRV==:1_32. ;SET PRIVILEGES
DEFSYM CD%MOD==:1_31. ;SET MODE BITS
DEFSYM CD%LOQ==:1_30. ;SET LOGGED OUT QUOTA
DEFSYM CD%NUM==:1_29. ;SET DIRECTORY NUMBER FROM PARAM BLK
DEFSYM CD%FPT==:1_28. ;SET DEFAULT FILE PROTECTION
DEFSYM CD%DPT==:1_27. ;SET DIRECTORY PROTECTION
DEFSYM CD%RET==:1_26. ;SET DEFAULT RETENTION COUNT
DEFSYM CD%LLD==:1_25. ;SET LAST LOGIN DATE
DEFSYM CD%UGP==:1_24. ;SET USER GROUPS
DEFSYM CD%DGP==:1_23. ;SET DIRECTORY GROUPS
DEFSYM CD%SDQ==:1_22. ;SET SUBDIRECTORY QUOTA
DEFSYM CD%CUG==:1_21. ;SET CREATABLE USER GROUPS
DEFSYM CD%DAC==:1_20. ;SET DEFAULT ACCOUNT
DEFSYM CD%PPN==:1_19. ;SET PROJECT-PROGRAMMER NUMBER
DEFSYM CD%DEL==:1_18. ;DELETE DIRECTORY
DEFSYM CD%APB==:777777_0. ;ADDRESS OF PARAMETER BLOCK
DEFSYM .CDLEN==:0 ;LENGTH OF ARGUMENT BLOCK
DEFSYM CD%NSQ==:1_35. ;DO NOT UPDATE QUOTAS OF SUPERIOR DIR
DEFSYM CD%NCE==:1_34. ;DO NOT CHANGE PARAMETERS OF EXISTING DIRS
DEFSYM CD%NED==:1_33. ; Set def online exp from .CDDNE
DEFSYM CD%FED==:1_32. ; Set def offline exp from .CDDFE
DEFSYM CD%RNA==:1_31. ;~6.0 set remote alias list from @.CDDRN
DEFSYM CD%PEN==:1_30. ; Set password encryption version from .CDPEV
; And encryption date from .CDPDT
DEFSYM CD%PED==:1_29. ; Set password expiration date from .CDPED
DEFSYM CD%PMU==:1_28. ; Set max password use count from .CDPMU
DEFSYM .CDPSW==:1 ;POINTER TO PASSWORD STRING
DEFSYM .CDLIQ==:2 ;LOGGED IN QUOTA
DEFSYM .CDPRV==:3 ;PRIVILEGE WORD
DEFSYM .CDMOD==:4 ;MODE WORD
DEFSYM CD%DIR==:1_35. ;DIRECTORY NAME FOR CNDIR ONLY (FILES ONLY)
DEFSYM CD%ANA==:1_34. ;ALPHANUMERIC ACCOUNTS
DEFSYM CD%RLM==:1_33. ;REPEAT LOGIN MESSAGES
DEFSYM CD%DAR==:1_28. ; Archived online expired files
DEFSYM CD%MRP==:1_7. ;MUST RUN PROGRAM
DEFSYM CD%NVD==:1_0. ;NOT VALID FOR LOGIN -- FROZEN!
DEFSYM .CDLOQ==:5 ;LOGGED OUT QUOTA
DEFSYM .CDNUM==:6 ;DIRECTORY NUMBER
DEFSYM .CDFPT==:7 ;DEFAULT FILE PROTECTION
DEFSYM .CDDPT==:10 ;DIRECTORY PROTECTION
DEFSYM .CDRET==:11 ;DEFAULT RETENTION COUNT
DEFSYM .CDLLD==:12 ;LAST LOGIN DATE
DEFSYM .CDUGP==:13 ;USER GROUPS
DEFSYM .CDDGP==:14 ;DIRECTORY GROUPS
DEFSYM .CDSDQ==:15 ;MAXIMUM NUMBER OF SUBDIRECTORIES
DEFSYM .CDCUG==:16 ;POINTER TO CREATABLE USER GROUP LIST
DEFSYM .CDDAC==:17 ;POINTER TO DEFAULT ACCOUNT
DEFSYM .CDDNE==:20 ; Default online expiration
DEFSYM .CDDFE==:21 ; Default offline expiration
DEFSYM .CDDRN==:22 ;~6.0 Pointer to remote alias list
;(More)
DEFSYM CRDMAX==:100 ;~6.0 Maximum length of remote alias list
;offsets in remote alias list entry
DEFSYM .CDSIZ==:0 ;~6.0 flags,,length
;flags for this list entry - NOTE - only CD%PAS & CD%ACC are compatible
DEFSYM CD%NEW==:1_35. ;~6.0 this is a new alias
DEFSYM CD%KIL==:1_34. ;~6.0 delete the remote alias with this node
DEFSYM CD%PAS==:1_33. ;~6.0 change password for an existing remote alias
DEFSYM CD%ACC==:1_32. ;~6.0 change account for an existing remote alias
DEFSYM .CDNXT==:1 ;~6.0 next entry in list (0 if end of list)
DEFSYM .CDNOD==:2 ;~6.0 node byte pointer (ASCIZ)
DEFSYM .CDUSR==:3 ;~6.0 user byte pointer (ASCIZ)
DEFSYM .CDPAS==:4 ;~6.0 password byte pointer (ASCIZ)
DEFSYM .CDACC==:5 ;~6.0 account byte pointer (ASCIZ)
;offsets in user free space block
DEFSYM .CDRLN==:0 ;~6.0 used words,,size of free space
DEFSYM .CDLST==:1 ;~6.0 the first list entry
DEFSYM .CDPEV==:23 ;Password encryption version
DEFSYM .CDPDT==:24 ;Password encryption date
DEFSYM .CDPED==:25 ;Expiration date of password
DEFSYM .CDPMU==:26 ;Maximum use count of password
DEFSYM .CDPPN==:27 ;TOPS-10 PPN (for compatability)
;CRJOB
DEFSYM CJ%LOG==:1_35. ;ATTEMPT TO LOG IN THE NEW JOB
DEFSYM CJ%NAM==:1_34. ;USE NAME AND PSWD IN ARG BLK
DEFSYM CJ%ACT==:3_32. ;WHERE TO GET ACCOUNT
DEFSYM .CJUCA==:0 ;USE CURRENT ACCT OF CREATOR
DEFSYM .CJUAA==:1 ;USE ACCOUNT IN ARG BLOCK
DEFSYM .CJUDA==:2 ;USE DEFAULT ACCOUNT OF NEW USER
DEFSYM CJ%ETF==:1_31. ;PUT EXEC IN TOP FORK
DEFSYM CJ%FIL==:1_30. ;GET FILE IN ARG BLOCK
DEFSYM CJ%ACS==:1_29. ;LOAD THE ACS FROM ARG BLOCK
DEFSYM CJ%OWN==:1_28. ;RETAIN OWNERSHIP OF NEW JOB
DEFSYM CJ%WTA==:1_27. ;NEW JOB WAITS TIL ATTACHED
DEFSYM CJ%NPW==:1_26. ;NO PASSWORD CHECK AT LOGIN TIME
DEFSYM CJ%NUD==:1_25. ;NO UPDATE OF LAST-LOGIN DATE
DEFSYM CJ%SPJ==:1_24. ;DO SPJFN IN NEW JOB FROM ARG BLK
DEFSYM CJ%CAP==:1_23. ;PASS ENABLED CAPABILITIES AS ALLOWED
DEFSYM CJ%CAM==:1_22. ;CAPABILITY MASK AT LOGIN
DEFSYM CJ%SLO==:1_21. ;SIGNAL (IPCF) AT LOGOUT TIME
DEFSYM CJ%DSN==:1_18. ;DISOWN EXISTING JOB # IN 3
DEFSYM .CJNAM==:0 ;NAME STRING POINTER
DEFSYM .CJPSW==:1 ;PASSWORD STRING POINTER
DEFSYM .CJACT==:2 ;ACCOUNT DESIGNATOR/STRING
DEFSYM .CJFIL==:3 ;FILE NAME STRING POINTER
DEFSYM .CJSFV==:4 ;SFRKV OFFSET
DEFSYM .CJTTY==:5 ;TTY DESIGNATOR, OR NULL DESIGNATOR
DEFSYM .CJTIM==:6 ;TIME LIMIT
DEFSYM .CJACS==:7 ;ADDRESS OF 16. WORDS OF AC'S
DEFSYM .CJEXF==:10 ;EXEC FLAGS, FOR EXEC AC1
DEFSYM .CJPRI==:11 ;PRIMARY JFN'S FOR SPJFN IN NEW JOB
DEFSYM .CJCPU==:12 ;CPU LIMIT (0 IF NONE)
DEFSYM .CJCAM==:13 ;CAPABILITY MASK TO APPLY TO LOGIN
DEFSYM .CJSLO==:14 ;PID TO SIGNAL AT LOGOUT TIME
DEFSYM CR%PRA==:2545 ;MAGIC # FOR EXEC/CRJOB LINKAGE VIA PRARG
;CRLNM
DEFSYM .CLNJ1==:0 ;DELETE 1 LOGICAL NAME FROM JOB
DEFSYM .CLNS1==:1 ;DELETE 1 LOGICAL NAME FROM SYSTEM
DEFSYM .CLNJA==:2 ;DELETE ALL JOB WIDE LOGICAL NAMES
DEFSYM .CLNSA==:3 ;DELETE ALL SYSTEM LOGICAL NAMES
DEFSYM .CLNJB==:4 ;CREATE A JOB WIDE LOGICAL NAME
DEFSYM .CLNSY==:5 ;CREATE A SYSTEM WIDE LOGICAL NAME
;CTSOP%
;CTSOP% Function Codes
DEFSYM .CTCAL==:1 ;Canonical Operation Call
DEFSYM .CTLNK==:2 ;Link Canonical Library
DEFSYM .CTOVL==:3 ;Overload Canonical Library
DEFSYM .CTDLK==:4 ;De-Link Canonical Library
DEFSYM .CTGDB==:5 ;Get CTS Terminal Data Base
DEFSYM .CTBTF==:6 ;Bind Terminal and Fork
DEFSYM .CTUTF==:7 ;Un-Bind Terminal and Fork
DEFSYM .CTGBT==:10 ;Get Bound Terminals
DEFSYM .CTSIC==:11 ;Set Interrupt Channel
DEFSYM .CTCIC==:12 ;Clear Interrupt Channel
DEFSYM .CTROB==:13 ;Read from CTS Sequence Output Buffer
DEFSYM .CTGOC==:14 ;Get CTS Sequence Output Buffer Count
DEFSYM .CTDOE==:15 ;Dismiss until CTS Sequence Output Buffer Empty
;Offsets into the Argument Block
DEFSYM .CTHDR==:0 ;Header Word: Flags,,Length (including header)
DEFSYM CT%LNM==:1_35. ;Library Name Given
DEFSYM .CTIOJ==:1 ;I/O Designator
DEFSYM .CTDBL==:1 ;Length of Data Block
DEFSYM .CTCHN==:1 ;Channel Number
DEFSYM .CTCOC==:2 ;Canonical Operation Code
DEFSYM .CTLNM==:2 ;Byte Pointer to Library Name
DEFSYM .CTCDB==:2 ;Address of CTS Descriptor Block
DEFSYM .CTFHN==:2 ;Relative Fork Handle
DEFSYM .CTDSD==:2 ;Destination Designator
DEFSYM .CTRCT==:2 ;Returned Count
DEFSYM .CTDBA==:3 ;Address of Data Block
DEFSYM .CTBCT==:3 ;Byte Count
DEFSYM .CTCNT==:4 ;Counts (Possible Number,,Actual Number)
DEFSYM .CTTBT==:4 ;Terminating Byte
;CTS Descriptor Block
DEFSYM .CBHDR==:0 ;Header Word: Flags,,Length (including header)
DEFSYM .CBPPN==:1 ;Process Page Number
DEFSYM .CBNPG==:2 ;Number of Pages
DEFSYM .CBLID==:3 ;Two Word Lock ID to be Used by Fork
;CTS Terminal Data Base
DEFSYM .TDLOK==:0 ;Lock Word (-1 if free)
DEFSYM .TDLID==:1 ;Two Word Lock Id
DEFSYM .TDNST==:3 ;Nesting Count
DEFSYM .TDLTM==:4 ;Time Data Base was Last Locked
DEFSYM .TDIOJ==:5 ;I/O Designator for This Terminal
DEFSYM .TDIMG==:6 ;Address of Screen Image
;DELDF
DEFSYM DD%DTF==:1_35. ;DELETE TEMPORARY FILES
DEFSYM DD%DNF==:1_34. ;DELETE NONEXISTENT FILES
DEFSYM DD%RST==:1_33. ;REBUILD THE SYMBOL TABLE
DEFSYM DD%CHK==:1_32. ;CHECK THE DIR FOR CONSISTENCY ONLY
;DELF
DEFSYM DF%NRJ==:1_35. ;DON'T RELEASE JFN
DEFSYM DF%EXP==:1_34. ;EXPUNGE CONTENTS
DEFSYM DF%FGT==:1_33. ;FORGET (EXPUNGE W/O DEASSIGNING ADDRESSES)
DEFSYM DF%DIR==:1_32. ;DELETE, FORGET, AND EXPUNGE A DIRECTORY
; FILE. (ONLY IF ^E-CREATE KILL FAILED)
DEFSYM DF%ARC==:1_31. ; Delete of archive status file allowed
DEFSYM DF%CNO==:1_30. ; Delete only contents of file
; Immediate expunge implied
DEFSYM DF%JFN==:777777_0. ;JFN
;DIAG JSYS DEFINITIONS
DEFSYM DG%ADT==:7_33. ;ADDRESS TYPE FIELD
DEFSYM DG%DVC==:177_26. ;DEVICE CODE FIELD
DEFSYM .DGRH0==:130 ;MBC0
DEFSYM .DGRH7==:137 ;MBC7
DEFSYM DG%UNI==:77_6. ;UNIT NUMBER
DEFSYM DG%SUN==:77_0. ;SUBUNIT NUMBER
;DIAG JSYS FUNCTION CODES
DEFSYM .DGACU==:1 ;ASSIGN DEVICE
DEFSYM .DGACH==:2 ;ASSIGN CONTROLLER AND ALL DEVICES
DEFSYM .DGRCH==:3 ;RELEASE DEVICE(S)
DEFSYM .DGSCP==:4 ;SETUP CHANNEL PROGRAM
DEFSYM .DGRCP==:5 ;RELEASE CHANNEL PROGRAM
DEFSYM .DGGCS==:6 ;GET CHANNEL STATUS
;DIAG NEW CONTROL FUNCTIONS
DEFSYM .DGGEM==:100 ;LEAVE LARGE HOLE FOR MORE RH20 FUNCTIONS
;GET MEM (FOR TGHA)
DEFSYM .DGREM==:101 ;RELEASE MEM (FOR TGHA)
DEFSYM .DGPDL==:102 ;UNIT ONLINE
DEFSYM .DGCSL==:103 ;DO 2080 CONSOLE FUNCTIONS
DEFSYM .DGSPC==:0 ;PSEUDO-CONSOLE
DEFSYM .DGRDE==:1 ;READ EMM
DEFSYM .DGIEM==:2 ;ENABLE/DISABLE INTERRUPT FOR EMM
DEFSYM .DGRTE==:3 ;WRITE EMM
DEFSYM .DGDXX==:4 ;SET DNxx line
DEFSYM .DGUCD==:104 ;LOAD/DUMP KLIPA U-CODE
DEFSYM .DGRIP==:0 ;DEFAULT KLIPA U-CODE LOAD IN PROGRESS
DEFSYM .DGRLC==:1 ;DEFAULT KLIPA U-CODE LOAD COMPLETE
DEFSYM .DGDIP==:2 ;DEFAULT KLIPA U-CODE DUMP IN PROGRESS
DEFSYM .DGDMC==:3 ;DEFAULT KLIPA U-CODE DUMP COMPLETE
DEFSYM .DGRST==:105 ;RESET REMOTE SYSTEM
DEFSYM .DGSTR==:106 ;START REMOTE SYSTEM
DEFSYM .DGCTR==:107 ;PERFORMANCE COUNTER FUNCTIONS
DEFSYM .DGGTC==:0 ;GET COUNTERS
DEFSYM .DGGVC==:1 ;RELINQUISH COUNTERS
DEFSYM .DGPTC==:2 ;POINT AND CLEAR COUNTERS
DEFSYM .DGRDC==:3 ;READ COUNTERS
DEFSYM .DGPVL==:2 ;MONOTONIC COUNTER,,OWNER'S FORK NUMBER
DEFSYM .DGPND==:3 ;KLIPA U-CODE VERSION
DEFSYM .DGP0A==:4 ;PORT 0 ACKS
DEFSYM .DGP0N==:5 ;PORT 0 NAKS
DEFSYM .DGP0R==:6 ;PORT 0 NO RESPONSES
DEFSYM .DGP1A==:7 ;PORT 1 ACKS
DEFSYM .DGP1N==:10 ;PORT 1 NAKS
DEFSYM .DGP1R==:11 ;PORT 1 NO RESPONSES
DEFSYM .DGPDD==:12 ;DATAGRAMS DISCARDED
DEFSYM .DGPXC==:13 ;PACKETS TRANSMITTED
DEFSYM .DGPRC==:14 ;PACKETS RECEIVED
DEFSYM .DGPTG==:15 ;TARGET NODE
DEFSYM .DGCRC==:16 ;PACKETS RECEIVED WITH CRC ERRORS
DEFSYM .DGEW1==:17 ;ERROR WORD 1
DEFSYM .DGEW2==:20 ;ERROR WORD 2
DEFSYM .DGEW3==:21 ;ERROR WORD 3
DEFSYM .DGEW4==:22 ;ERROR WORD 4
DEFSYM .DGEW5==:23 ;ERROR WORD 5
DEFSYM .DGEW6==:24 ;ERROR WORD 6
DEFSYM .DGRSC==:110 ;read SYSERR counter
DEFSYM .DGCNT==:1 ;Where the count is
DEFSYM .DGENB==:111 ;ENABLE .DGACH FOR A CI PORT
DEFSYM .DGWMD==:112 ;WRITE MAINTENANCE DATA
DEFSYM .DGRMD==:113 ;READ MAINTENANCE DATA
;[7.1081] DOB%
;DOB% Argument block used for all functions
DEFSYM .DBCNT==:0 ;Count of words in block (including this word)
DEFSYM .DBFNC==:1 ;Function
;DOB% Function Codes and flags
DEFSYM .DBENA==:0 ;Enable DOB
DEFSYM .DBDIS==:1 ;Disable DOB
DEFSYM .DBSBG==:2 ;Set configuration word for a BUG
DEFSYM .DBNAM==:2 ;Name of BUG in SIXBIT
DEFSYM .DBCFG==:3 ;Configuration word
DEFSYM DB%ENA==:1_35. ;Enable specified bits
DEFSYM DB%REQ==:1_34. ;Dump on this BUG is requested
DEFSYM DB%IGN==:1_33. ;Ignore timeout for this BUG
DEFSYM DB%DON==:1_32. ;Bug has been dumped already - set by monitor
DEFSYM DB%NND==:1_26. ;Bug is not normally dumpable - set by monitor
DEFSYM .DBPAR==:3 ;Enable/Disable DOB parameters
DEFSYM .DBFLG==:2 ;Flags word
DEFSYM DB%INF==:1_31. ;Dump on all BUGINFs
DEFSYM DB%CHK==:1_30. ;Dump on all BUGCHKs
DEFSYM .DBIMD==:4 ;Take an immediate dump (FORCED BUGINF)
DEFSYM .DBSTR==:2 ;Pointer to optional 7-Bit ASCIZ structure name
DEFSYM .DBSTA==:5 ;Return status of DOB
DEFSYM .DBSTS==:2 ;Status flags (DOBSTS)
DEFSYM DB%DOB==:1_35. ;DOB is enabled (in DOBSTS, must be 1B0)
DEFSYM DB%DIP==:1_29. ;Dump is in progress
DEFSYM DB%ERR==:1_28. ;Dump in progress had an error
DEFSYM DB%SML==:1_27. ;DUMP.EXE for dump in progress is too small
DEFSYM .DBNUM==:3 ;Number of BUGs enabled,,Number returned
DEFSYM .DBTOV==:4 ;Timeout value in seconds
;Following two words repeated for each BUG
DEFSYM .DBBNM==:5 ;SIXBIT BUG name
DEFSYM .DBBCF==:6 ;SIXBIT BUG configuration word
DEFSYM .DBTIM==:6 ;Set DOB timeout
DEFSYM .DBTVS==:2 ;[7.1123] Timeout value in seconds
;DSKAS
DEFSYM DA%DEA==:1_35. ;DEASSIGN DISK ADDRESS
DEFSYM DA%ASF==:1_34. ;ASSIGN FREE PAGE
DEFSYM DA%CNV==:1_33. ;CONVERT SOFTWARE TO HARDWARE ADDRESS
DEFSYM DA%HWA==:1_32. ;HARDWARE ADDRESS GIVEN
DEFSYM DA%INI==:1_31. ;INITIALIZE THE BIT TABLE
DEFSYM DA%WRT==:1_30. ;WRITE THE BIT TABLE FILE
DEFSYM DA%AIN==:1_29. ;ABORT INITIALIZATION OF BITTABLE FILE
DEFSYM DA%ADR==:777777_0. ;DISK ADDRESS
;DVCHR, DEVUNT AND DVCH1 BIT DEFINITIONS
DEFSYM DV%OUT==:1_35. ;DEVICE CAN DO OUTPUT
DEFSYM DV%IN==:1_34. ;DEVICE CAN DO INPUT
DEFSYM DV%DIR==:1_33. ;DEVICE HAS A DIRECTORY
DEFSYM DV%AS==:1_32. ;DEVICE IS ASSIGNABLE
DEFSYM DV%MDD==:1_31. ;DEVICE IS A MULTIPLE DIRECTORY DEVICE
DEFSYM DV%AV==:1_30. ;DEVICE IS AVAILABLE TO THIS JOB
DEFSYM DV%ASN==:1_29. ;DEVICE IS ASSIGNED BY ASND
DEFSYM DV%MDV==:1_28. ;RESERVED (HISTORICAL)
DEFSYM DV%MNT==:1_27. ;DEVICE IS MOUNTED
DEFSYM DV%TYP==:777_18. ;DEVICE TYPE FIELD
DEFSYM DV%PSD==:1_17. ;PSEUDO DEVICE
DEFSYM DV%UNT==:77777 ;UNIT MASK
DEFSYM DV%MOD==:177777_0. ;DEVICE DATA MODE
DEFSYM DV%M0==:1_0. ;DEVICE CAN BE OPENED IN MODE 0
DEFSYM DV%M1==:1_1. ;DEVICE CAN BE OPENED IN MODE 1
DEFSYM DV%M2==:1_2. ;DEVICE CAN BE OPENED IN MODE 2
DEFSYM DV%M3==:1_3. ;DEVICE CAN BE OPENED IN MODE 3
DEFSYM DV%M4==:1_4. ;DEVICE CAN BE OPENED IN MODE 4
DEFSYM DV%M5==:1_5. ;DEVICE CAN BE OPENED IN MODE 5
DEFSYM DV%M6==:1_6. ;DEVICE CAN BE OPENED IN MODE 6
DEFSYM DV%M7==:1_7. ;DEVICE CAN BE OPENED IN MODE 7
DEFSYM DV%M10==:1_8. ;DEVICE CAN BE OPENED IN MODE 10
DEFSYM DV%M11==:1_9. ;DEVICE CAN BE OPENED IN MODE 11
DEFSYM DV%M12==:1_10. ;DEVICE CAN BE OPENED IN MODE 12
DEFSYM DV%M13==:1_11. ;DEVICE CAN BE OPENED IN MODE 13
DEFSYM DV%M14==:1_12. ;DEVICE CAN BE OPENED IN MODE 14
DEFSYM DV%M15==:1_13. ;DEVICE CAN BE OPENED IN MODE 15
DEFSYM DV%M16==:1_14. ;DEVICE CAN BE OPENED IN MODE 16
DEFSYM DV%M17==:1_15. ;DEVICE CAN BE OPENED IN MODE 17
DEFSYM D1%SPL==:1_35. ;DEVICE IS SPOOLED
DEFSYM D1%ALC==:1_34. ;DEVICE IS UNDER CONTROL OF ALLOCATOR
DEFSYM D1%VVL==:1_33. ;VOLUME VALID
DEFSYM D1%NIU==:1_32. ;DEVICE SLOT IS NOT IN USE (FOR STRUCTURES
; NOT YET MOUNTED)
DEFSYM D1%INI==:1_31. ;DEVICE IS BEING INITIALIZED (STRUCTURE
; IS AVAILABLE ONLY TO THE FORK WHOSE NUMBER
; IS STORED IN SDBSTS)
DEFSYM D1%MTO==:1_30. ;DEVICE CAN DO MTOPR WITHOUT JFN OPENED
;DEVICE TYPE DEFINITIONS
DEFSYM .DVDSK==:0 ;DISK
DEFSYM .DVMTA==:2 ;MAGTAPE
DEFSYM .DVDTA==:3 ;DECTAPE
DEFSYM .DVPTR==:4 ;PAPER TAPE READER
DEFSYM .DVPTP==:5 ;PAPER TAPE PUNCH
DEFSYM .DVDSP==:6 ;DISPLAY
DEFSYM .DVLPT==:7 ;LINE PRINTER
DEFSYM .DVCDR==:10 ;CARD READER
DEFSYM .DVFE==:11 ;FRONT END DEVICE
DEFSYM .DVTTY==:12 ;TERMINAL
DEFSYM .DVPTY==:13 ;PTY
DEFSYM .DVNUL==:15 ;NULL DEVICE
DEFSYM .DVNET==:16 ;ARPA NETWORK
DEFSYM .DVPLT==:17 ;PLOTTER
DEFSYM .DVCDP==:21 ;CARD PUNCH
DEFSYM .DVDCN==:22 ;DECNET ACTIVE COMPONENT
DEFSYM .DVSRV==:23 ;DECENT PASSIVE COMPONENT
DEFSYM .DVATS==:24 ;APPLICATIONS TERMINAL SERVICE
DEFSYM .DVADS==:25 ;AYDIN DISPLAY
DEFSYM .DVPIP==:403 ;PIPE DEVICE
;DSKOP
DEFSYM DOP%SA==:1_35. ;SOFTWARE ADDRESS
DEFSYM DOP%AT==:3_34. ;ADDRESS TYPE FIELD
DEFSYM .DOPPU==:1 ;PHYSICAL CHANNEL AND UNIT
DEFSYM DOP%CN==:37_29. ;CHANNEL NUMBER (OLD FORMAT)
DEFSYM DOP%UN==:77_23. ;UNIT NUMBER (OLD FORMAT)
DEFSYM DOP%UA==:37777777 ;UNIT ADDRESS
DEFSYM .DOPSR==:2 ;STRUCTURE AND RELATIVE ADDRESS
DEFSYM DOP%SN==:777_25. ;STRUCTURE NUMBER
DEFSYM DOP%RA==:177777777 ;RELATIVE ADDRESS
DEFSYM DOP%C2==:7777_24. ;CHANNEL NUMBER (NEW FORMAT)
DEFSYM DOP%K2==:7777_12. ;CONTROLLER NUMBER (NEW FORMAT)
DEFSYM DOP%U2==:7777_0. ;UNIT NUMBER (NEW FORMAT)
DEFSYM DOP%NF==:1_26. ;USE NEW FORMAT FOR CHANNEL, UNIT NUMBERS
DEFSYM DOP%EO==:1_25. ;ERROR IF UNIT OFFLINE
DEFSYM DOP%IL==:1_24. ;INHIBIT ERROR LOGGING
DEFSYM DOP%IR==:1_23. ;INHIBIT ERROR RECOVERY
DEFSYM DOP%PS==:1_22. ;PHYSICAL SECTOR ADDRESSING
DEFSYM DOP%WR==:1_21. ;WRITE
DEFSYM DOP%CT==:777777_0. ;WORD COUNT
;DUMPI/DUMPO
DEFSYM DM%NWT==:1_35. ;NO WAIT FOR COMPLETION
DEFSYM DM%FIN==:1_34. ;FINISH PREVIOUS REQUEST
;***NOT INPLEMENTED YET***
DEFSYM DM%PTR==:777777_0. ;POINTER TO COMMAND LIST
;DYNLB%
DEFSYM .DYLNK==:1 ;Link Dynamic Library
DEFSYM .DYOVL==:2 ;Overload Dynamic Library
DEFSYM .DYDLK==:3 ;De-Link Dynamic Library
DEFSYM .DYLCL==:4 ;Link Canonical Library
;Flags for DYNLB%
DEFSYM DY%IML==:1_35. ;Ignore Any Previously Mapped Library
;Library Descriptor Block
DEFSYM .LBHDR==:0 ;Header Word: Flags,,Length (including header)
DEFSYM LB%CTS==:1_35. ;Library is a CTS Library
DEFSYM .LBTVA==:1 ;Address of Transfer Vector
DEFSYM .LBCDB==:2 ;Address of Canonical Descriptor Block
;DEFINE DECNET DISCONNECT CODES. THESE ARE STIPULATED BY THE NSP SPEC
;AND MAY HAVE MEANININGS NOT IMPLIED BY THE COMMENTS
DEFSYM .DCX0==:0 ;REJECT OR DISCONNECT BY OBJECT
DEFSYM .DCX1==:1 ;RESOURCE ALLOCATION FAILURE
DEFSYM .DCX2==:2 ;DESTINATION NODE DOES NOT EXIST
DEFSYM .DCX3==:3 ;REMOTE NODE SHUTTING DOWN
DEFSYM .DCX4==:4 ;DESTINATION PROCESS DOES NOT EXIST
DEFSYM .DCX5==:5 ;INVALID PROCESS NAME FIELD
DEFSYM .DCX6==:6 ;OBJECT IS BUSY
DEFSYM .DCX7==:7 ;UNSPECIFIED ERROR
DEFSYM .DCX8==:8. ;ABORT BY MANAGEMENT
DEFSYM .DCX9==:9. ;ABORT BY OBJECT
DEFSYM .DCX10==:10. ;INVALID NODE NAME
DEFSYM .DCX11==:11. ;LOCAL NODE SHUT
DEFSYM .DCX21==:21. ;CI WITH ILLEGAL DESTINATION ADDRESS
DEFSYM .DCX22==:22. ;CC WITH ILLEGAL DESTINATION ADDRESS
DEFSYM .DCX23==:23. ;CI OR CC WITH ZERO SOURCE ADDRESS
DEFSYM .DCX24==:24. ;FLOW CONTROL VIOLATION
DEFSYM .DCX32==:32. ;TOO MANY CONNECTIONS TO NODE
DEFSYM .DCX33==:33. ;TOO MANY CONNECTIONS TO DEST. PROCESS
DEFSYM .DCX34==:34. ;ACCESS NOT PERMITTED
DEFSYM .DCX35==:35. ;LOGICAL LINK SERVICES MISMATCH
DEFSYM .DCX36==:36. ;INVALID ACCOUNT
DEFSYM .DCX37==:37. ;SEGSIZE TOO SMALL
DEFSYM .DCX38==:38. ;NO RESPONSE FROM DESTINATION PROCESS
DEFSYM .DCX39==:39. ;NODE UNREACHABLE
DEFSYM .DCX40==:40. ;LINK ABORTED DUE TO DATA LOSS
DEFSYM .DCX41==:41. ;DESTINATION PROCESS DOES NOT EXIST
DEFSYM .DCX42==:42. ;CONFIRMATION OF DI
DEFSYM .DCX43==:43. ;IMAGE DATA FIELD TOO LONG
;EFACT - FACT FILE ENTRY DEFINITIONS
DEFSYM .EFHDR==:0 ;HEADER WORD
DEFSYM EF%COD==:777_27. ;ENTRY TYPE CODE
DEFSYM EF%JOB==:777_18. ;JOB NUMBER
DEFSYM EF%LIN==:7777_6. ;LINE NUMBER
DEFSYM EF%SIZ==:77_0. ;ENTRY SIZE
DEFSYM .EFUSR==:1 ;USER NUMBER WORD
DEFSYM .EFTAD==:2 ;TIME AND DATE OF ENTRY
; FACT FILE ENTRY TYPE CODES
DEFSYM .EFLGI==:501 ;LOGIN
DEFSYM .EFLGO==:141 ;LOGOUT
DEFSYM .EFCAC==:502 ;CHANGE ACCOUNT
DEFSYM .EFATT==:142 ;CONSOLE ATTACH
DEFSYM .EFDET==:143 ;CONSOLE DETACH
DEFSYM .EFCHK==:201 ;CHECKPOINT
DEFSYM .EFSDU==:540 ;START DISK-UTILIZATION ENTRIES
DEFSYM .EFDSK==:601 ;DISK SPACE UTILIZATION
DEFSYM .EFTIM==:741 ;TIME SET
DEFSYM .EFRES==:740 ;SYSTEM RESTARTED
DEFSYM .EFLPT==:401 ;LINE PRINTER USAGE
DEFSYM .EFCDR==:402 ;CARD READER USAGE
;ENQ/DEQ BIT DEFINITIONS AND FUNCTION CODES
;FUNCTION CODES
DEFSYM .ENQBL==:0 ;ENQ BLOCK OPTION
DEFSYM .ENQAA==:1 ;ENQ ALLOCATE ONLY IF AVAILABLE
DEFSYM .ENQSI==:2 ;ENQ SOFTWARE INTERRUPT WHEN LOCKED
DEFSYM .ENQMA==:3 ;ENQ MODIFY ACCESS
DEFSYM .ENECL==:4 ;[7.1072] Enable cluster-wide functionality
DEFSYM .DEQDR==:0 ;DEQ RESOURCE
DEFSYM .DEQDA==:1 ;DEQ ALL RESOURCES OF THIS FORK
DEFSYM .DEQID==:2 ;DEQ THIS ID NUMBER
DEFSYM .ENQCS==:0 ;ENQC STATUS
DEFSYM .ENQCG==:1 ;ENQC GET ENQ/DEQ QUOTA FOR A JOB
DEFSYM .ENQCC==:2 ;ENQC CHANGE ENQ/DEQ QUOTA FOR A JOB
DEFSYM .ENQCD==:3 ;ENQC DUMP LOCKS AND QUEUE ENTRIES
;BIT DEFINITIONS
DEFSYM EN%SHR==:1_35. ;SHARABLE REQUEST
DEFSYM EN%BLN==:1_34. ;BYPASS LEVEL NUMBER
DEFSYM EN%NST==:1_33. ;ALLOW NESTING
DEFSYM EN%LTL==:1_32. ;LONG TERM LOCK
DEFSYM EN%LVL==:777_18. ;LEVEL NUMBER
DEFSYM EN%JOB==:777777_0. ;JOB NUMBER
DEFSYM EN%QCE==:1_35. ;ERROR CODE IN RH OF STATUS WORD
DEFSYM EN%QCL==:1_35. ;LOCK DUMP (.ENQCD ONLY)
DEFSYM EN%QCO==:1_34. ;THIS FORK OWNS THE LOCK
DEFSYM EN%QCQ==:1_33. ;THIS FORK IS IN THE QUEUE FOR THIS LOCK
DEFSYM EN%QCT==:1_33. ;LOCK CONTAINS A TEXT STRING
DEFSYM EN%QCX==:1_32. ;THE LOCK IS LOCKED EXCLUSIVELY
DEFSYM EN%QCB==:1_31. ;USER IS BLOCKED FOR LOCK
DEFSYM EN%QCC==:1_30. ;[7.1072] This is a cluster-wide lock (EN.CLL set)
DEFSYM EN%QCN==:1_29. ;[7.1072] No vote require for lock (EN.NOV set)
DEFSYM EN%QCS==:1_28. ;[7.1072] Scheduling required on lock (EN.SDO set)
;ENQ/DEQ ARGUMENT BLOCK DATA STRUCTURE
DEFSYM .ENQLN==:0 ;# OF LOCKS ,, LENGTH OF ARGUMENT BLOCK
DEFSYM .ENHLN==:77_30. ;LENGTH OF HEADER AREA
DEFSYM .ENNLK==:7777_18. ;NUMBER OF LOCKS
DEFSYM .ENALN==:777777_0. ;LENGTH OF ARGUMENT BLOCK
DEFSYM .ENQID==:1 ;PSI CHANNEL # ,, REQUEST ID
DEFSYM .ENQLV==:2 ;FLAGS & LEVEL NUMBER ,, JFN, -1, -2, OR -3
DEFSYM .ENQUC==:3 ;STRING POINTER OR USER CODE
DEFSYM .ENQRS==:4 ;# OF RESOURCES IN POOL ,, # OF RESOURCES WANTED
DEFSYM .ENQMS==:5 ;ADDRESS OF RESOURCE BLOCK
;ENQC DUMP DATA STRUCTURE
DEFSYM .ENQDF==:0 ;FLAGS + LEVEL # ,, OFN, 400000+JOB #, -2, OR -3
;OR: FLAGS + PSI # ,, JOB # OF Q-ENTRY CREATOR
DEFSYM .ENQDR==:1 ;TOTAL RESOURCES IN POOL ,, RESOURCES REMAINING
DEFSYM .ENQDT==:2 ;TIME STAMP OF LAST REQUEST LOCKED
DEFSYM .ENQDC==:3 ;USER CODE OF LOCK OR START OF TEXT STRING
DEFSYM .ENQDI==:1 ;GROUP # OR # REQUESTED ,, ENQ ID
;FLOUT/DFOUT
;FORMAT CONTROL WORD
DEFSYM FL%SGN==:3_34. ;FIRST FIELD SIGN CONTROL
DEFSYM .FLDIG==:0 ;DIGIT
DEFSYM .FLSPC==:1 ;SPACE
DEFSYM .FLPLS==:2 ;PLUS SIGN
DEFSYM .FLSPA==:3 ;SPACE
DEFSYM FL%JUS==:3_32. ;FIRST FIELD JUSTIFICATION CONTROL
DEFSYM .FLLSP==:0 ;LEADING SPACES
DEFSYM .FLLZR==:1 ;LEADING ZEROS
DEFSYM .FLLAS==:2 ;LEADING ASTERISKS
DEFSYM .FLTSP==:3 ;TRAILING SPACES
DEFSYM FL%ONE==:1_31. ;FIRST FIELD NONBLANK
DEFSYM FL%DOL==:1_30. ;DOLLAR SIGN PREFIX
DEFSYM FL%PNT==:1_29. ;DECIMAL POINT
DEFSYM FL%EXP==:3_27. ;THIRD FIELD EXPONENT CONTROL
DEFSYM .FLEXN==:0 ;NO EXPONENT
DEFSYM .FLEXE==:1 ;E EXPONENT PREFIX
DEFSYM .FLEXD==:2 ;D EXPONENT PREFIX
DEFSYM .FLEXM==:3 ;*10^ EXPONENT PREFIX
DEFSYM FL%ESG==:3_25. ;EXPONENT SIGN CONTROL
DEFSYM .FLDGE==:0 ;DIGIT
DEFSYM .FLPLE==:1 ;PLUS SIGN
DEFSYM .FLSPE==:2 ;SPACE
DEFSYM .FLDGT==:3 ;DIGIT
DEFSYM FL%OVL==:1_24. ;COLUMN OVERFLOW
DEFSYM FL%RND==:37_18. ;DIGIT POSITION FOR ROUNDING
DEFSYM FL%FST==:77_12. ;FIRST FIELD WIDTH
DEFSYM FL%SND==:77_6. ;SECOND FIELD WIDTH
DEFSYM FL%THD==:77_0. ;THIRD FIELD WIDTH
;GDSTS
;SEE MTOPR FOR CARD READER AND LINE PRINTER STATUS BITS
;SEE GENERAL FIELD AND VALUE SECTION FOR MAGTAPE STATUS BITS
;SEE TOPS20AN SECTION FOR NETWORK STATUS BITS
DEFSYM .GDFSM==:17_32. ;TOPS20AN ;FINITE MACHINE STATE
;TTY BITS
DEFSYM GD%PAR==:1_0. ;IF ON, TERMINAL ACCEPTS PARITY
;GET
;Argument block for GET:
DEFSYM .GFLAG==:0 ;FLAG WORD
DEFSYM GT%LOW==:1_35. ;USE LOW ADDRESS IN .GLOW
DEFSYM GT%HGH==:1_34. ;USE HIGH ADDRESS IN .GHIGH
DEFSYM GT%BAS==:1_33. ;USE BASE SECTION IN .GBASE
DEFSYM GT%CCH==:1_32. ;CLEAR PROGRAM CACHE
DEFSYM GT%CSH==:1_31. ;CACHE THIS PROGRAM
DEFSYM GT%ADR==:1_16. ; (IN AC1) USE ADDRESS LIMITS IN AC2
DEFSYM GT%PRL==:1_15. ; (IN AC1) PRELOAD PAGES
DEFSYM GT%NOV==:1_14. ; (IN AC1) DON'T OVERLAY EXISTING PAGES
DEFSYM GT%ARG==:1_13. ; (IN AC1) IF ON, AC2 CONTAINS ADDRESS OF ARG BLOCK
DEFSYM GT%JFN==:7777_0. ; (IN AC1) JFN
DEFSYM .GLOW==:1 ;LOW ADDRESS IF GT%LOW ON
DEFSYM .GHIGH==:2 ;HIGH ADDRESS IG GT%HGH ON
DEFSYM .GBASE==:3 ;BASE IF GT%BAS ON
;GETAB - TABLE INDICES
DEFSYM .JOBTT==:0 ;JOB NUMBER TO TTY NUMBER
DEFSYM .JOBRT==:1 ;JOB RUNTIME
DEFSYM .TICKP==:2 ;TICKS PER SECOND
DEFSYM .JOBDI==:3 ;JOB NUMBER TO DIRECTORY NUMBERS (OBS)
DEFSYM .TTYJO==:4 ;TTY NUMBER TO JOB NUMBER
DEFSYM .NCPGS==:5 ;NUMBER PHYSICAL CORE PAGES
DEFSYM .DEVNA==:6 ;DEVICE NAME
DEFSYM .DEVCH==:7 ;DEVICE CHARACTERISTICS
DEFSYM .DEVUN==:10 ;DEVICE UNIT NUMBERS
DEFSYM .DSKER==:11 ;DISK ERROR WORDS
DEFSYM .DRMER==:12 ;DRUM ERROR WORDS
DEFSYM .SYSVE==:13 ;VERSION TEXT
DEFSYM .SYSTA==:14 ;STATISTICS
DEFSYM .QTIME==:15 ;SCHED QUEUE TIMES
DEFSYM .JOBNA==:16 ;JOB NUMBER TO PROGRAM NAME
DEFSYM .SNAME==:17 ;SUBSYSTEM NAME
DEFSYM .STIME==:20 ; " TIME
DEFSYM .SPFLT==:21 ; " PAGE FAULTS
DEFSYM .SSIZE==:22 ; " SIZE INTEGRAL
DEFSYM .SNBLK==:23 ; " NUMBER WAKEUPS
DEFSYM .DBUGS==:24 ;DBUGSW, DCHKSW
DEFSYM .LOGDE==:25 ;LOG, JOB 0 DESIGNATORS
DEFSYM .PTYPA==:26 ;PTY PARAMETERS
DEFSYM .SYMTB==:27 ;GTTAB SYMBOL TABLE
DEFSYM .DWNTI==:30 ;HSYS VARIABLES
DEFSYM .JOBPN==:31 ;JOB NUMBER TO PROGRAM NAME
DEFSYM .BLDTD==:32 ;MONITOR BUILD TIME AND DATE
DEFSYM .LSTDR==:33 ;LAST DIR NUMBER ASSIGNED (OBS)
DEFSYM .APRID==:34 ;APR SERIAL NUMBER
DEFSYM .HQLAV==:35 ;HIGH QUEUE LOAD AVERAGES
DEFSYM .LQLAV==:36 ;LOW QUEUE LOAD AVERAGES
DEFSYM .NETRD==:37 ;TOPS20AN ;ARPANET STATUS
DEFSYM .IMPHR==:40 ;TOPS20AN ;HOST READY
DEFSYM .HSTST==:41 ;TOPS20AN ;DEAD HOST STATUS
DEFSYM .HSTNA==:42 ;TOPS20AN ;HOST NAMES
DEFSYM .HOSTN==:43 ;TOPS20AN ;HOST NAME INDEX
DEFSYM .NETLS==:44 ;TOPS20AN ;LOCAL SOCKET
DEFSYM .NETFS==:45 ;TOPS20AN ;FOREIGN SOCKET
DEFSYM .NETAW==:46 ;TOPS20AN ;ARPA CONNECTION ADDRESS
DEFSYM .NETBA==:47 ;TOPS20AN ;BIT ALLOCATION
DEFSYM .NETST==:50 ;TOPS20AN ;CONNECTION STATUS
DEFSYM .NETBU==:51 ;TOPS20AN ;ARPANET BUFFERS
DEFSYM .NETBT==:52 ;TOPS20AN ;BYTE COUNT STATISTICS
DEFSYM .IMPL1==:53 ;TOPS20AN ;IMP LINK TABLE ONE
DEFSYM .IMPL2==:54 ;TOPS20AN ;IMP LINK TABLE TWO
DEFSYM .IMPL3==:55 ;TOPS20AN ;IMP LINK TABLE THREE
DEFSYM .IMPL4==:56 ;TOPS20AN ;IMP LINK TABLE FOUR
DEFSYM .LHOST==:57 ;TOPS20AN ;LOCAL HOST NUMBER
DEFSYM .JBONT==:60 ;OWNING JOB
DEFSYM .NSWPG==:61 ;DEFAULT SWAPPING PAGES
DEFSYM .SCOUN==:62 ;COUNT SNAMES TABLE
DEFSYM .MONVR==:63 ;MONITOR VERSION (ADDRESS 137)
DEFSYM .CSTAT==:64 ;[7213] CI STATISTICS
;GETJI
DEFSYM .JIJNO==:0 ;JOB NUMBER
DEFSYM .JITNO==:1 ;TERMINAL NUMBER
DEFSYM .JIUNO==:2 ;USER NUMBER
DEFSYM .JIDNO==:3 ;DIRECTORY NUMBER
DEFSYM .JISNM==:4 ;SUBSYS NAME
DEFSYM .JIPNM==:5 ;PROGRAM NAME
DEFSYM .JIRT==:6 ;RUN TIME
DEFSYM .JICPJ==:7 ;CONTROLLING PTY JOB NUMBER
DEFSYM .JIRTL==:10 ;RUN TIME LIMIT (SET BY TIMER JSYS)
DEFSYM .JIBAT==:11 ;CONTROLLED BY BATCH
DEFSYM .JIDEN==:12 ;MAGTAPE DEFAULT DENSITY
DEFSYM .JIPAR==:13 ;MAGTAPE DEFAULT PARITY
DEFSYM .JIDM==:14 ;MAGTAPE DEFAULT DATA MODE
DEFSYM .JIRS==:15 ;MAGTAPE DEFAULT RECORD SIZE
DEFSYM .JIDFS==:16 ;DEFERRED SPOOLING
DEFSYM .JILNO==:17 ;LOGGED-IN DIRECTORY NUMBER
DEFSYM .JISRM==:20 ;POINTER TO JOB SESSION REMARK
DEFSYM .JILLN==:21 ;LAST LOGIN DATE & TIME
DEFSYM .JISRT==:22 ;JOB RUNTIME AT START OF THIS ACCOUNTING SESSION
DEFSYM .JISCT==:23 ;JOB CONSOLE TIME AT START OF THIS SESSION
DEFSYM .JIT20==:24 ;-1 IF AT TOPS20 COMMAND LEVEL
DEFSYM .JISTM==:25 ;DATE & TIME JOB WAS INITIALIZED
DEFSYM .JIBCH==:26 ;BATCH STREAM AND FLAGS
DEFSYM OB%WTO==:3_34. ;WRITE TO OPERATOR CAPABILITIES
DEFSYM .OBALL==:0 ;WTO AND WTOR ALLOWED
DEFSYM .OBNWR==:1 ;NO WTOR ALLOWED
DEFSYM .OBNOM==:2 ;NO MESSAGE ALLOWED
DEFSYM OB%BSS==:1_25. ;BATCH STREAM NUMBER SET
DEFSYM OB%BSN==:177_18. ;BATCH-STREAM NUMBER
DEFSYM .JILLO==:27 ;LOGICAL LOCATION (NODE NAME)
DEFSYM .JILJI==:30 ;LOCAL JOB INDEX
DEFSYM .JIBSN==:31 ;[7258]Batch sequence number
DEFSYM .JIBJN==:32 ;[7258]Batch Job name
DEFSYM .JIBID==:33 ;[7258]Batch request ID
;DEFSYM .JIMAX==:.JIBID ;[7258]Current highest GETJI offset
;GFRKS
DEFSYM GF%GFH==:1_35. ;GET RELATIVE FORK HANDLES
DEFSYM GF%GFS==:1_34. ;GET FORK STATUS
;GFUST
DEFSYM .GFAUT==:0 ;GET FILE AUTHOR
DEFSYM .GFLWR==:1 ;GET FILE LAST WRITER
;GTHST ;TOPS20AN
DEFSYM .GTHSZ==:0 ;HOST TABLE SIZES
DEFSYM .GTHIX==:1 ;INDEX TO STRING CONVERSION
DEFSYM .GTHNS==:2 ;NUMBER TO STRING CONVERSION
DEFSYM .GTHSN==:3 ;STRING TO NUMBER CONVERSION
DEFSYM .GTHHN==:4 ;HOST NUMBER TO STATUS
DEFSYM .GTHHI==:5 ;HOST INDEX TO STATUS
DEFSYM .GTHLN==:6 ;GET LOCAL NUMBER ON A NETWORK
DEFSYM .GTHNT==:7 ;GET STATUS TABLE OF A NETWORK
DEFSYM .GTHLA==:10 ;GET ADDRESSES OF NETWORK INTERFACES
;M40 Additional function code for GTDOM%
;M45 More codes, flag bits, etc. (also remove .GTHRR, was silly idea)
;Input flags (LH of ac1)
DEFSYM GD%LDO==:1_35. ;Local Data Only (no resolve)
DEFSYM GD%MBA==:1_34. ;Must Be Authoritative (don't use cache)
DEFSYM GD%TCP==:1_33. ;Use TCP if resolve needed (avoid truncation)
DEFSYM GD%RWR==:1_32. ;ReWRite name on finding alias
DEFSYM GD%DNF==:1_31. ;Domain Name Format (vs ASCIZ)
DEFSYM GD%DAS==:1_30. ;Delegation Address Search
DEFSYM GD%RBK==:1_29. ;Resolve in BacKground
DEFSYM GD%TTL==:37_24. ;TTL for recursive resolves (normally zero)
DEFSYM GD%EMO==:1_23. ;Exact match only
DEFSYM GD%RAI==:1_22. ;Uppercase output name
DEFSYM GD%QCL==:1_21. ;Query class specified
DEFSYM GD%STA==:1_19. ;Want status code in AC1 for marginal success
;Output flags returned in ac1
DEFSYM GD%AKA==:1_20. ;Alias found
DEFSYM GD%TRN==:1_18. ;Answer truncated
;New function codes
;DEFSYM .GTDRR==:11 ;Get arbitrary RR (ISI/JEEVES)
;DEFSYM .GTDLN==:0 ;Length of argblk (exclusive, min=:4)
;DEFSYM .GTDQN==:1 ;Byte pointer to query name
;DEFSYM .GTDTC==:2 ;QTYPE,,QCLASS
;DEFSYM .GTDBC==:3 ;Output byte count
;DEFSYM .GTDBP==:4 ;Output bye pointer
DEFSYM .GTDWT==:12 ;Resolver wait function
;DEFSYM .GTDFN==:13 ;Get database of filenames (ISI/JEEVES)
DEFSYM .GTDPN==:14 ;Get primary name and IP address
DEFSYM .GTDMX==:15 ;Get MX (mail relay) data
DEFSYM .GTDAA==:16 ;Authenticate Address
DEFSYM .GTDRR==:17 ;Get arbitrary RR (MIT formatted RRs)
DEFSYM .GTDVN==:20 ;Validate name for arbitrary QTYPE(s)
DEFSYM .GTDLA==:21 ;Get optimal local address (routing)
DEFSYM .GTDSA==:22 ;Sort list of addresses (routing)
DEFSYM .GTDOS==:23 ; Get operating system name
;Common argument block format for .GTDMX and .GTDRR
DEFSYM .GTDLN==:0 ;Length of argblk (inclusive)
DEFSYM .GTDTC==:1 ;QTYPE (ignored for .GTDMX) ,, QCLASS
DEFSYM .GTDBC==:2 ;Length of output string buffer
DEFSYM .GTDNM==:3 ;Canonicalized name on return
DEFSYM .GTDRD==:4 ;Returned data begins here
DEFSYM .GTDML==:5 ;Minimum length of argblock (words)
;Status codes, returned on marginal sucess when GD%STA is lit
DEFSYM .GTDX0==:0 ;Total success
DEFSYM .GTDXN==:1 ;Data not found in namespace (authoritative)
DEFSYM .GTDXT==:2 ;Timeout, any flavor
DEFSYM .GTDXF==:3 ;Namespace is corrupt
;Catagory codes for .GTDVN. These must be between 2**16 and 2**18 so
;that they can't be mistaken for real QTYPEs and will fit in a halfword.
DEFSYM .GTDV0==:<1_20> ;Lowest allowable value
DEFSYM .GTDVH==:.GTDV0+1 ;Validate host (A,MX,WKS,HINFO)
DEFSYM .GTDVZ==:.GTDV0+2 ;Validate zone (SOA,NS)
;M40 End addition
;GETOK DEFINITIONS
DEFSYM .GOASD==:1 ;ASSIGN DEVICE
DEFSYM .GEERB==:0 ;ERROR BLOCK ADDRESS
DEFSYM .GEADD==:1 ;DEVICE DESIGNATOR
DEFSYM .GOCAP==:2 ;ENABLE CAPABILITIES
DEFSYM .GENCP==:1 ;NEW CAPABILITIES
DEFSYM .GOCJB==:3 ;ALLOW CRJOB JSYS
DEFSYM .GOLOG==:4 ;ALLOW LOGINS
DEFSYM .GELUN==:1 ;USER NUMBER
DEFSYM .GOCFK==:5 ;ALLOW CFORK JSYS
DEFSYM .GEFCT==:1 ;NUMBER OF FORKS
DEFSYM .GOTBR==:6 ;ALLOW SET TERMINAL BAUD RATE
DEFSYM .GELIN==:1 ;LINE NUMBER
DEFSYM .GESPD==:2 ;SPEED
DEFSYM .GOLGO==:7 ;ALLOW LOGOUT
DEFSYM .GEUSD==:1 ;PAGES USED
DEFSYM .GEQUO==:2 ;QUOTA
DEFSYM .GERLG==:3 ;JOB TO BE LOGGED OUT, -1 FOR CALLER
DEFSYM .GOENQ==:10 ;ALLOW SET ENQ QUOTA
DEFSYM .GEEQU==:1 ;DESIRED QUOTA
DEFSYM .GEEUN==:2 ;JOB NUMBER
DEFSYM .GOCRD==:11 ;ALLOW CREDIR
DEFSYM .GECR1==:1 ;CRDIR% FLAGS
DEFSYM .GECR2==:2 ;DIRECTORY NUMBER, IF ANY
DEFSYM .GOSMT==:12 ;ALLOW SMOUNT
DEFSYM .GESDE==:1 ;DEVICE DESIGNATOR
DEFSYM .GOMDD==:13 ;ALLOW MDDT ENTRY
DEFSYM .GOCLS==:14 ;VERIFY CLASS ASSIGNMENT FOR A JOB
DEFSYM .GEJOB==:1 ;JOB #
DEFSYM .GECLS==:2 ;CLASS DESIRED
DEFSYM .GOCL0==:15 ;SET CLASS AT LOGIN
DEFSYM .GOMTA==:16 ;MT ACCESS REQUEST
DEFSYM .GEACC==:1 ;ACCESS CODE FROM HDR1
DEFSYM .GEUSN==:2 ;USER NUMBER
DEFSYM .GEUNT==:3 ;MT UNIT NUMBER
DEFSYM .GEACD==:4 ;DESIRED ACCESS (BITS)
DEFSYM .GELTP==:5 ;LABEL TYPE
DEFSYM .GOACC==:17 ;ACCESS AND CONNECT
DEFSYM .GOAC0==:1 ;FLAGS FROM ACESS JSYS
DEFSYM .GOAC1==:2 ;DIRECTORY NUMBER
DEFSYM .GOOAD==:20 ;ASSIGN DUE TO OPENF
;.GEADD IS THE ARG OFFSET FOR THE
; DEVICE DESIGNATOR
DEFSYM .GODNA==:21 ;ACCESS TO DECNET
DEFSYM .GOANA==:22 ;ACCESS TO ARPANET
DEFSYM .GOATJ==:23 ;ATACH JSYS
DEFSYM .GOTJB==:1 ;TAGET JOB NUMBER
DEFSYM .GOTTY==:2 ;SOURCE TTY NUMBER
DEFSYM .GOINF==:24 ;[7.1076] INFO% JSYS request
; .GEERB==:0 ;[7.1076] Error block address
; .GEJOB==:1 ;[7.1076] Job number
DEFSYM .GECIN==:2 ;[7.1076] CI node to do INFO% request
DEFSYM .GEINF==:3 ;[7.1076] INFO% function being requested
DEFSYM .GOLAT==:25 ;[7.1207] LATOP% JSYS request
; .GEERB==:0 ;[7.1207] Error block address
; .GEJOB==:1 ;[7.1207] Job number
DEFSYM .GEFUN==:2 ;[7.1207] Flags,,Function Code
;[7.1207] Flags are LA%PSI, LA%QUE, LA%SYS,
;[7.1207] and LA%JOB
DEFSYM .GESRN==:3 ;[7.1207] 4 Words containing the ASCIZ nodename
DEFSYM .GEPRN==:7 ;[7.1207] 4 Words containing the ASCIZ portname
DEFSYM .GESVN==:13 ;[7.1207] 4 Words containing the ASCIZ service
DEFSYM .GLSIZ==:17 ;[7.1207] Size of the .GOLAT argument block
;DEFSYM .GOHSY==:45 ;HSYS CALLING ACJ TO UPDATE HSYS QUEUES
DEFSYM .GOFIL==:46 ;FILE ACCESS
DEFSYM .GOSUB==:47 ;SUBDIRECTORY ACCESS
DEFSYM .GOKMZ==:20. ;MAX ARGUMENT BLOCK SIZE FOR GETOK REQUEST
;ERROR BLOCK ADDRESS OFFSETS
DEFSYM .GESIZ==:0 ;SIZE OF THIS BLOCK
DEFSYM .GEERN==:1 ;ERROR NUMBER
DEFSYM .GEPTR==:2 ;POINTER TO ERROR STRING
DEFSYM .GEBSZ==:3 ;STRING SIZE
;GTJFN DEFINITIONS
;FLAGS PROVIDED TO GTJFN ON CALL
DEFSYM GJ%FOU==:1_35. ;FILE IS FOR OUTPUT USE
DEFSYM GJ%NEW==:1_34. ;NEW FILE ONLY
DEFSYM GJ%OLD==:1_33. ;OLD FILE ONLY
DEFSYM GJ%MSG==:1_32. ;PRINT AN APPROPRIATE MESSAGE
DEFSYM GJ%CFM==:1_31. ;CONFIRMATION IS REQUIRED
DEFSYM GJ%TMP==:1_30. ;TEMPORARY
DEFSYM GJ%NS==:1_29. ;DONT SEARCH SEARCH LISTS
DEFSYM GJ%ACC==:1_28. ;NO ACCESS BY OTHER FORKS
DEFSYM GJ%DEL==:1_27. ;IGNORE "DELETED" BIT
DEFSYM GJ%JFN==:3_25. ;JFN USE FIELD
DEFSYM .GJDNU==:0 ;DO NOT USE JFN PROVIDED
DEFSYM .GJERR==:2 ;ERROR IF CANNOT USE JFN PROVIDED
DEFSYM .GJALT==:3 ;USE ALTERNATE IF CANNOT USE GIVEN JFN
DEFSYM GJ%IFG==:1_24. ;ACCEPT INPUT FILE GROUP DESCRIPTORS
DEFSYM GJ%OFG==:1_23. ;ACCEPT OUTPUT FILE GROUP DESCRIPTORS
DEFSYM GJ%FLG==:1_22. ;RETURN FLAGS
DEFSYM GJ%PHY==:1_21. ;PHYSICAL DEVICE ONLY
DEFSYM GJ%XTN==:1_20. ;EXTENDED FORMAT (E+11 EXISTS)
DEFSYM GJ%FNS==:1_19. ;ACCUMULATOR 2 CONTAINS JOB FILE NUMBERS
DEFSYM GJ%SHT==:1_18. ;SHORT CALL FORMAT
;FLAGS PROVIDED TO GTJFN (IN SECOND FLAG WORD)
DEFSYM G1%RND==:1_35. ;RETURN ON NULL(IN ALTERNATE FLAG WORD)
DEFSYM G1%RBF==:1_34. ;^R BUFFER IS DISJOINT (OBSOLETE)
DEFSYM G1%NLN==:1_33. ;NO LONG NAMES
DEFSYM G1%RCM==:1_32. ;RETURN CONFIRM MESSAGE
DEFSYM G1%RIE==:1_31. ;RETURN WHEN MAIN STRING IS EMPTY
DEFSYM G1%IIN==:1_30. ; Ignore invisible status
DEFSYM G1%SLN==:1_29. ;SUPPRESS EXPANSION OF LOGICAL NAMES
DEFSYM G1%LOC==:1_28. ;Local files only
;FLAGS RETURNED BY GTJFN
DEFSYM GJ%DEV==:1_35. ;ASTERISK WAS GIVEN FOR DEVICE
DEFSYM GJ%UNT==:1_34. ;ASTERISK WAS GIVEN FOR UNIT
DEFSYM GJ%DIR==:1_33. ;ASTERISK WAS GIVEN FOR DIRECTORY
DEFSYM GJ%NAM==:1_32. ;ASTERISK WAS GIVEN FOR NAME
DEFSYM GJ%EXT==:1_31. ;ASTERISK WAS GIVEN FOR EXTENSION
DEFSYM GJ%VER==:1_30. ;ASTERISK WAS GIVEN FOR GENERATION
DEFSYM GJ%UHV==:1_29. ;USE HIGHEST GENERATION
DEFSYM GJ%NHV==:1_28. ;USE NEXT HIGHER GENERATION
DEFSYM GJ%ULV==:1_27. ;USE LOWEST GENERATION
DEFSYM GJ%PRO==:1_26. ;PROTECTION GIVEN
DEFSYM GJ%ACT==:1_25. ;ACCOUNT GIVEN
DEFSYM GJ%TFS==:1_24. ;TEMPORARY FILE SPECIFIED (;T)
DEFSYM GJ%GND==:1_23. ;COMPLEMENT OF GJ%DEL ON CALL
DEFSYM GJ%NOD==:1_22. ;NODE NAME WAS GIVEN
DEFSYM GJ%GIV==:1_18. ; Comp of G1%IIV
;GTJFN TABLE OFFSETS
DEFSYM .GJGEN==:0 ;FLAGS ,, GENERATION
DEFSYM .GJDEF==:<0 0> ;DEFAULT GENERATION
DEFSYM .GJNHG==:<0 -1> ;NEXT HIGHER GENERATION
DEFSYM .GJLEG==:<0 -2> ;LOWEST EXISTING GENERATION
DEFSYM .GJALL==:<0 -3> ;ALL GENERATIONS (I.E., ;*)
DEFSYM .GJSRC==:1 ;SOURCE JFN ,, OUTPUT JFN
DEFSYM .GJDEV==:2 ;DEFAULT DEVICE
DEFSYM .GJDIR==:3 ;DEFAULT DIRECTORY
DEFSYM .GJNAM==:4 ;DEFAULT NAME
DEFSYM .GJEXT==:5 ;DEFAULT EXTENSTION
DEFSYM .GJPRO==:6 ;DEFAULT PROTECTION
DEFSYM .GJACT==:7 ;DEFAULT ACCOUNT
DEFSYM .GJJFN==:10 ;DESIRED JFN
DEFSYM .GJF2==:11 ;SECOND GROUP FLAGS,,COUNT
DEFSYM .GJCPP==:12 ;COPY BUFFER POINTER
DEFSYM .GJCPC==:13 ;COPY BUFFER COUNT
DEFSYM .GJRTY==:14 ;RETYPE (^R) POINTER
DEFSYM .GJBFP==:15 ;TOP OF BUFFER POINTER
DEFSYM .GJATR==:16 ;POINTER TO ARBITRARY ATTRIBUTE BLOCK
DEFSYM .GJNOD==:17 ;DEFAULT NODE
;GNJFN - FLAGS RETURNED
DEFSYM GN%STR==:1_22. ;STRUCTURE CHANGED
DEFSYM GN%DIR==:1_21. ;DIRECTORY CHANGED
DEFSYM GN%NAM==:1_20. ;NAME CHANGED
DEFSYM GN%EXT==:1_19. ;EXTENSION CHANGED
;GTNCP ;TOPS20AN
DEFSYM .GTNSZ==:0 ;SIZE OF TABLE
DEFSYM .GTNIX==:1 ;NCP INDEX
DEFSYM .GTNNI==:2 ;NVT INPUT
DEFSYM .GTNNO==:3 ;NVT OUTPUT
DEFSYM .GTNJF==:4 ;JFN
DEFSYM .NCIDX==:0 ;NCP INDEX
DEFSYM .NCFHS==:1 ;FOREIGN HOST
DEFSYM .NCLSK==:2 ;LOCAL SOCKET
DEFSYM .NCFSK==:3 ;FOREIGN SOCKET
DEFSYM .NCFSM==:4 ;FINITE STATE MACHINE STATE
DEFSYM .NCLNK==:5 ;LINK
DEFSYM .NCNVT==:6 ;NVT, -1 IF NOT A TELNET CONNECTION
DEFSYM .NCSIZ==:7 ;BYTE SIZE OF CONNECTION
DEFSYM .NCMSG==:10 ;MSG ALLOC
DEFSYM .NCBAL==:11 ;BIT ALLOC
DEFSYM .NCDAL==:12 ;DESIRED ALLOC
DEFSYM .NCBTC==:13 ;BITS XFERRED
DEFSYM .NCBPB==:14 ;BYTES/BUFFER
DEFSYM .NCCLK==:15 ;TIME-OUT COUNTDOWN
DEFSYM .NCSTS==:16 ;CONNECTION STATUS
;GTRPW
DEFSYM PF%USR==:1_35. ;PAGE FAIL WORD - USER MODE REFERENCE
DEFSYM PF%WTF==:1_34. ; " - WRITE REFERENCE (XGTPW)
DEFSYM PF%WRT==:1_30. ; " - WRITE REFERENCE
DEFSYM TSW%RD==:1_21. ;TRAP STATUS WORD - READ
DEFSYM TSW%WT==:1_20. ; " - WRITE
DEFSYM TSW%WR==:1_20. ; (ANOTHER NAME FOR ABOVE)
DEFSYM TSW%EX==:1_19. ; " - EXECUTE
DEFSYM TSW%MN==:1_18. ; " - MONITOR MODE REFERENCE
;GTSTS BITS RETURNED IN 2
DEFSYM GS%OPN==:1_35. ;FILE IS OPEN
DEFSYM GS%RDF==:1_34. ;IF OPEN, FILE IS OPEN FOR READ
DEFSYM GS%WRF==:1_33. ;IF OPEN, FILE IS OPEN FOR WRITE
DEFSYM GS%XCF==:1_32. ;IF OPEN, FILE IS OPEN FOR EXECUTE
DEFSYM GS%RND==:1_31. ;OK TO RESET BYTE POINTER
; (FILE IS NOT APPEND)
DEFSYM GS%APT==:1_30. ;ACCESS PER PAGE TABLE
; (NOT IMPLEMENTED -- OBSOLETE)
DEFSYM GS%CAL==:1_29. ;OK TO CALL AS A PROCEDURE
; (NOT IMPLEMENTED -- OBSOLETE)
DEFSYM GS%LNG==:1_28. ;FILE IS LONG
DEFSYM GS%EOF==:1_27. ;AT END OF FILE ON READ
DEFSYM GS%ERR==:1_26. ;FILE MAY BE IN ERROR
DEFSYM GS%NAM==:1_25. ;FILE HAS A NAME (JFN EXISTS)
DEFSYM GS%AST==:1_24. ;ONE OR MORE FIELDS OF NAME
; IS WILD
DEFSYM GS%ASG==:1_23. ;JFN IS BEING ASSIGNED
DEFSYM GS%HLT==:1_22. ;TERMINATE ON I/O ERROR
DEFSYM GS%FRK==:1_18. ;JFN IS RESTRICTED TO CREATING FORK
DEFSYM GS%PLN==:1_17. ;DON'T STRIP LINE NUMBERS ON SIN/BIN
DEFSYM GS%MOD==:17_0. ;DATA MODE
DEFSYM .GSNRM==:0 ;NORMAL MODE
DEFSYM .GSSMB==:1 ;SMALL BUFFER MODE (DCN:, SRV:)
DEFSYM .GSIMG==:10 ;IMAGE (BINARY) MODE
DEFSYM .GSDMP==:17 ;DUMP MODE
;HPTIM
DEFSYM .HPELP==:0 ;ELAPSED TIME
DEFSYM .HPRNT==:1 ;RUN TIME
;IDCNV (ALSO IDTNC AND ODCNV)
DEFSYM IC%DSA==:1_35. ;DAYLIGHT SAVINGS IF APPROPRIATE
DEFSYM IC%ADS==:1_34. ;APPLY DAYLIGHT SAVINGS
DEFSYM IC%UTZ==:1_33. ;USE TIME ZONE GIVEN
DEFSYM IC%JUD==:1_32. ;USE JULIAN DATE CONVERSION
DEFSYM IC%TMZ==:77_18. ;TIME ZONE
DEFSYM IC%TIM==:777777_0. ;LOCAL TIME
;IDLE% JSYS
DEFSYM ID%TTY==:1_18. ;RETURN MS SINCE LAST USER TYPEIN
;IDTIM & IDTNC
DEFSYM IT%NDA==:1_35. ;NO DATE
DEFSYM IT%NNM==:1_34. ;NO NUMERIC MONTH
DEFSYM IT%SNM==:1_33. ;SECOND NUMBER IS MONTH
DEFSYM IT%ERR==:1_32. ;ERROR IF NUMBERS ARE NOT IN SPECIFIED
; ORDER
DEFSYM IT%NTI==:1_29. ;NO TIME
DEFSYM IT%NIS==:1_28. ;NO SECONDS
DEFSYM IT%AIS==:1_27. ;ALWAYS INCLUDE SECONDS
DEFSYM IT%NAC==:1_26. ;NO COLON ALLOWED BETWEEN HH AND MM
DEFSYM IT%AAC==:1_25. ;ALWAYS ALLOW COLON
DEFSYM IT%AMS==:1_24. ;ALWAYS INTERPRET ONE COLON AS HHMM:SS
DEFSYM IT%AHM==:1_23. ;ALWAYS INTERPRET ONE COLON AS HH:MM
DEFSYM IT%N24==:1_21. ;NO 24-HOUR FORMAT
DEFSYM IT%NTM==:1_20. ;NO TIME MODIFIER (AM, PM)
DEFSYM IT%NTZ==:1_19. ;NO TIME ZONE
;INFO% JSYS stuff
DEFSYM IN%RER==:1_35. ;[7.1076] Bit indicates remote failure
;Argument block words for INFO%
DEFSYM .INFUN==:0 ;[7.1076] Function word,,length
DEFSYM .INCID==:1 ;[7.1076] CI node word
DEFSYM .INAC1==:2 ;[7.1076] AC1 of remote call
DEFSYM .INAC2==:3 ;[7.1076] AC2 of remote call
DEFSYM .INAC3==:4 ;[7.1076] AC3 of remote call
DEFSYM .INAC4==:5 ;[7.1076] AC4 of remote call
DEFSYM .INMIN==:.INAC1+1 ;[7.1076] Block must be at least this long
DEFSYM .INMAX==:.INAC4+1 ;[7.1076] And cannot be longer than this
;Valid INFO% functions
DEFSYM .INCIN==:0 ;[7.1076] Get CI nodes in cluster
DEFSYM .INCFG==:1 ;[7.1076] Do remote CNFIG%
DEFSYM .INDST==:2 ;[7.1076] Do remote DIRST%
DEFSYM .INGTB==:3 ;[7.1076] Do remote GETAB%
DEFSYM .INGJI==:4 ;[7.1076] Do remote GETJI%
DEFSYM .INGTY==:5 ;[7.1076] Do remote GTTYP%
DEFSYM .ININL==:6 ;[7.1076] Do remote INLNM%
DEFSYM .INLNS==:7 ;[7.1076] Do remote LNMST%
DEFSYM .INMSR==:10 ;[7.1076] Do remote MSTR%
DEFSYM .INMTO==:11 ;[7.1076] Do remote MTOPR%
DEFSYM .INMUT==:12 ;[7.1076] Do remote MUTIL%
DEFSYM .INRCR==:13 ;[7.1076] Do remote RCUSR%
DEFSYM .INSKD==:14 ;[7.1076] Do remote SKED%
DEFSYM .INSNP==:15 ;[7.1076] Do remote SNOOP%
DEFSYM .INSGT==:16 ;[7.1076] Do remote SYSGT%
DEFSYM .INTMN==:17 ;[7.1076] Do remote TMON%
DEFSYM .INXPK==:20 ;[7.1076] Do remote XPEEK%
DEFSYM .INDVC==:21 ;[7.1076] Do remote DVCHR%
DEFSYM .INNTF==:22 ;[7.1076] Do remote NTINF%
DEFSYM .INSTV==:23 ;[7.1076] Do remote STDEV%
DEFSYM .INDVT==:24 ;[7.1076] Do remote DEVST%
DEFSYM .INSYS==:25 ;[7.1076] Obtain remote SYSTAT information
;Block for .INSYS
DEFSYM .SYUSR==:0 ;[7.1076] Byte pointer to username
DEFSYM .SYDIR==:1 ;[7.1076] Byte pointer for connected directory
DEFSYM .SYPRG==:2 ;[7.1076] SIXBIT program name
DEFSYM .SYORG==:3 ;[7.1076] Job origin
DEFSYM .SYCJB==:4 ;[7.1076] Controlling job
DEFSYM .SYTTY==:5 ;[7.1076] Controlling terminal
DEFSYM .SYJOB==:6 ;[7.1076] Job number
DEFSYM .SYSTT==:7 ;[7.1076] Run state
DEFSYM .SYTIM==:10 ;[7.1076] Job run time
DEFSYM .SYLIM==:11 ;[7.1076] Job runtime limit
DEFSYM .SYCLS==:12 ;[7.1076] Job class number
DEFSYM .SYSHR==:13 ;[7.1076] Job share percentage
DEFSYM .SYUSE==:14 ;[7.1076] Job percentage of CPU
DEFSYM .INJOB==:26 ;[7.1076] Obtain remote jobs for supplied user
DEFSYM .JOLEN==:0 ;[7.1076] Length of arg block
DEFSYM .INRCD==:27 ;[7.1076] Do remote RCDIR%
DEFSYM .INTIM==:30 ;[7.1076] Do remote TIME%
;.IMOPR - MONITOR ROUTINE USED BY MDDT AND SNOOP. THIS IS NOT
;A JSYS SO THAT CALLS ARE FAST.
DEFSYM .IMALC==:1 ;ALLOCATE PAGES FOR USE IN MAPPING SYMBOLS
DEFSYM .IMMAP==:2 ;MAP PAGES OF THE SYMBOL TABLE
DEFSYM .IMUMP==:3 ;UNMAP PAGES OF THE SYMBOL TABLE
;INLNM
DEFSYM .INLJB==:0 ;GET JOB WIDE LOGICAL NAME FROM INDEX
DEFSYM .INLSY==:1 ;GET SYSTEM LOGICAL NAME FROM INDEX
;IPCF BIT DEFINITIONS AND DATA STRUCTURES
;PACKET FORMAT
DEFSYM .IPCFL==:0 ;FLAGS WORD
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%TTL==:1_31. ;TRUNCATE ON TOO LARGE MESSAGE
DEFSYM IP%CPD==:1_30. ;CREATE A PID ON THE SEND
DEFSYM IP%JWP==:1_29. ;MAKE THE CREATED PID BE JOB WIDE
DEFSYM IP%NOA==:1_28. ;NO ACCESS OF PID BY OTHER FORKS
DEFSYM IP%MON==:1_27. ; Reserved for monitor - unavailable to users
DEFSYM IP%CFP==:1_17. ;SENDER IS PRIV'D AND IS ENVOKING PRIVS
DEFSYM IP%CFV==:1_16. ;PAGE TRANSFER MODE
DEFSYM IP%CFZ==:1_15. ;ZERO LENGTH MESSAGE WAS SENT
DEFSYM IP%INT==:1_14. ; Internal call - unavailable to users
DEFSYM IP%EPN==:1_13. ;PAGE NUMBER IS 18 BITS
DEFSYM IP%CFE==:77_6. ;ERROR FIELD
;ERRORS SENT BY INFO
DEFSYM .IPCPI==:15 ;INSUFFICIENT PRIVILEGE
DEFSYM .IPCUF==:16 ;ILLEGAL FUNCTION
DEFSYM .IPCSN==:67 ;SEND INFO YOUR NAME
DEFSYM .IPCFF==:72 ;INFO FREE SPACE EXHAUSTED
DEFSYM .IPCBP==:74 ;PID HAS NO NAME OR IS ILLEGAL
DEFSYM .IPCDN==:75 ;DUPLICATE NAME
DEFSYM .IPCNN==:76 ;UNKNOWN NAME
DEFSYM .IPCEN==:77 ;ILLEGAL NAME
DEFSYM .IPCKM==:66 ;NOTIFICATION THAT PID HAS BEEN DELETED
DEFSYM IP%CFC==:7_3. ;SYSTEM SENDER CODE
DEFSYM .IPCCC==:1 ;SENT BY [SYSTEM]IPCF
DEFSYM .IPCCF==:2 ;SENT BY SYSTEM WIDE [SYSTEM]INFO
DEFSYM .IPCCP==:3 ;SENT BY RECEIVER'S [SYSTEM]INFO
DEFSYM .IPCCG==:4 ;SENT BY SYSTEM FOR QUEUE%
DEFSYM IP%CFM==:7_0. ;SPECIAL MESSAGE RETURN FIELD
DEFSYM .IPCFN==:1 ;MESSAGE WAS NOT DELIVERED
DEFSYM .IPCFS==:1 ;PID OF SENDER
DEFSYM .IPCFR==:2 ;PID OF RECEIVER
DEFSYM .IPCFP==:3 ;POINTER TO MESSAGE BLOCK
DEFSYM .IPCFD==:4 ;LOGGED IN DIR OF SENDER
DEFSYM .IPCFC==:5 ;ENABLED CAPABILITIES OF SENDER
DEFSYM .IPCSD==:6 ;CONNECTED DIRECTORY NUMBER OF SENDER
DEFSYM .IPCAS==:7 ;POINTER TO ACCOUNT STRING OF SENDER
DEFSYM .IPCLL==:10 ;POINTER TO LOGICAL LOCATION OF SENDER
DEFSYM .IPCSU==:26 ;SPOOL MESSAGE CODE FROM IPCC
DEFSYM .IPCSL==:27 ;LOGOUT MESSAGE CODE FROM IPCC
DEFSYM .IPCSA==:30 ;RESOURCE ALLOCATOR MESSAGE CODE
DEFSYM .IPCDS==:31 ;STRUCTURE DISMOUNT MESSAGE CODE FROM IPCC
DEFSYM .IPCLI==:32 ;LOGIN MESSAGE CODE FROM IPCC
DEFSYM .IPCLO==:33 ;LOGOUT MESSAGE TO CREATOR FROM IPCC
DEFSYM .IPCKP==:34 ;DELETED PID MESSAGE FROM IPCC
DEFSYM .IPCCA==:35 ;CREATE AN APPLICATION (RESERVED FOR TPS USE)
DEFSYM .IPCTR==:36 ;REQUEST FROM TAPE
DEFSYM .IPCMS==:37 ;STRUCTURE MOUNT MESSAGE CODE FROM IPCC
DEFSYM .IPCRS==:40 ;STRUCTURE REMOVAL MSSG CODE FROM IPCC
DEFSYM .IPCSR==:41 ; Archive message code from IPCC
DEFSYM .IPCSS==:15 ;IPCC REQUEST TO INFO TO DELETE PIDS
;[SYSTEM] INFO DEFINITIONS
DEFSYM .IPCI0==:0 ;CODE,,FUNCTION
DEFSYM .IPCIW==:1 ;FIND PID FOR NAME
DEFSYM .IPCIG==:2 ;FIND NAME FOR PID
DEFSYM .IPCII==:3 ;ASSIGN NAME TO PID
DEFSYM .IPCIJ==:4 ;ASSIGN NAME TO PID
DEFSYM .IPCIK==:5 ;NOTIFY WHEN SPECIFIED PID IS KILLED
DEFSYM .IPCIS==:15 ;MONITOR DROP PID FUNCTION
DEFSYM .IPCI1==:1 ;PID TO GET A COPY OF REPLY
DEFSYM .IPCI2==:2 ;START OF DATA
;JFNS
DEFSYM JS%DEV==:7_33. ;DEVICE FIELD OUTPUT CONTROL [OBSOLETE]
DEFSYM JS%NOD==:1_35. ;NODE FIELD OUTPUT CONTROL - .JSSSD IS ILLEGAL
DEFSYM JS%DVN==:3_33. ;DEVICE FIELD OUTPUT CONTROL
DEFSYM JS%DIR==:7_30. ;DIRECTORY FIELD OUTPUT CONTROL
DEFSYM JS%NAM==:7_27. ;NAME FIELD OUTPUT CONTROL
DEFSYM JS%TYP==:7_24. ;FILE TYPE FIELD OUTPUT CONTROL
DEFSYM JS%GEN==:7_21. ;GENERATION FIELD OUTPUT CONTROL
DEFSYM JS%PRO==:7_18. ;PROTECTION FIELD OUTPUT CONTROL
DEFSYM JS%ACT==:7_15. ;ACCOUNT FIELD OUTPUT CONTROL
;VALUES FOR ABOVE 8 FIELDS:
DEFSYM .JSNOF==:0 ;NEVER OUTPUT FIELD
DEFSYM .JSAOF==:1 ;ALWAYS OUTPUT FIELD
DEFSYM .JSSSD==:2 ;SUPPRESS IF SYSTEM DEFAULT
DEFSYM JS%TMP==:1_14. ;RETURN ;T IF TEMP FILE
DEFSYM JS%SIZ==:1_13. ;RETURN SIZE
DEFSYM JS%CDR==:1_12. ;RETURN CREATION DATE
DEFSYM JS%LWR==:1_11. ;RETURN LAST WRITE
DEFSYM JS%LRD==:1_10. ;RETURN LAST READ
DEFSYM JS%PTR==:1_9. ;AC 2 HOLDS STRING POINTER NOT JFN
DEFSYM JS%ATR==:1_8. ;RETURN ATTRIBUTES
DEFSYM JS%AT1==:1_7. ;RETURN 1 SPECIFIC ATTRIBUTE
DEFSYM JS%OFL==:1_6. ;RETURN ;OFF-LINE IF OFFLINE FILE
DEFSYM JS%PSD==:1_3. ;PUNCTUATE SIZE AND DATE
DEFSYM JS%TBR==:1_2. ;TAB BEFORE FIELDS RETURNED
DEFSYM JS%TBP==:1_1. ;TAB BEFORE POSSIBLE FIELDS
DEFSYM JS%PAF==:1_0. ;PUNCTUATE ALL FIELDS
DEFSYM JS%SPC==:111110000001 ;MASK FOR WHOLE SPEC
;~6.0 LATOP% - LAT Host
;LATOP% Function Code Definitions
DEFSYM .LASET==:0 ;Set
DEFSYM .LACLR==:1 ;Clear
DEFSYM .LASCH==:2 ;Show characteristics of host
DEFSYM .LASTC==:3 ;Show terminal connects
DEFSYM .LASAS==:4 ;Show adjacent servers
DEFSYM .LASCO==:5 ;Show counters
DEFSYM .LAZCO==:6 ;Zero counters
DEFSYM .LARHC==:7 ;[7.1082]Request host-initiated connect
DEFSYM .LATHC==:10 ;[7.1082]Terminate host-initiated connect
DEFSYM .LASHC==:11 ;[7.1082]Show host-initiated connects
;LATOP% argument block definitions
DEFSYM .LAACT==:0 ;Argument block count
DEFSYM .LAFCN==:1 ;LATOP% function code
DEFSYM .LAPRM==:2 ;SET/CLEAR parameter number
DEFSYM LA%PSI==:1_35. ;[7.1082]Use PSI to interrupt (TOPS-20)
DEFSYM LA%QUE==:1_34. ;[7.1082]Queue the request at the remote server
DEFSYM LA%SYS==:1_33. ;[7.1082]Show all host-initiated connects
DEFSYM LA%JOB==:1_32. ;[7.1082]Show all host-initiated connects for the job
DEFSYM LA%CID==:777777;[7.1082]Connect id
DEFSYM .LAVAL==:3 ;SET/CLEAR new parameter value
DEFSYM LA%ECB==:1_35. ;[7.1082]Use the Extended Connect Block
DEFSYM LA%CHN==:777777;[7.1082]PSI Channel number
DEFSYM .LABCT==:2 ;SHOW Buffer count
DEFSYM .LABFA==:3 ;SHOW Buffer Address
DEFSYM .LAQUA==:4 ;SET/SHOW/ZERO Qualifier
DEFSYM .LADSC==:5 ;Service description for .LPSRV
DEFSYM .LASVR==:4 ;[7.1082]Server name
DEFSYM .LASVC==:5 ;[7.1082]Service name
DEFSYM .LAPRT==:6 ;[7.1082]Port name
DEFSYM LA%RAT==:1_35. ;Set rating flag for .LPSRV
DEFSYM LA%DSC==:1_34. ;Set description flag for .LPSRV
;LATOP% Parameter definitions
DEFSYM .LPMAC==:1 ;Maximum active circuits
DEFSYM .LPMCO==:2 ;Maximum connects
DEFSYM .LPNUM==:3 ;Host number
DEFSYM .LPLAS==:4 ;Lat access state
DEFSYM .LPRLI==:5 ;Retransmit limit
DEFSYM .LPTIM==:6 ;Retransmit timer
DEFSYM .LPMTI==:7 ;Multicast timer
DEFSYM .LPCOD==:10 ;Access codes
DEFSYM .LPNNM==:11 ;Host name
DEFSYM .LPNID==:12 ;Host identification
DEFSYM .LPSRV==:13 ;Host service
;Port type codes
DEFSYM .LATTY==:1 ;[7.1082]Standard LAT terminal connection
DEFSYM .LADLP==:2 ;[7.1082]Dial-up Lat terminal connection
DEFSYM .LAAPP==:3 ;[7.1082]LAT application terminal
;Status codes
DEFSYM .LASOL==:377777 ;[7.1082]Request is being solicited
DEFSYM .LAQUE==:377776 ;[7.1082]Request is queued
DEFSYM .LACAN==:377775 ;[7.1082]Request was cancelled by user
DEFSYM .LATMO==:377774 ;[7.1082]Request has timed out
;LATOP% LAT Reject codes
DEFSYM .LAUNK==:00 ;[7.1082]Unknown error
DEFSYM .LAURD==:01 ;[7.1082]User requested disconnect
DEFSYM .LASSP==:02 ;[7.1082]System shutdown in progress
DEFSYM .LAISR==:03 ;[7.1082]Invalid slot received
DEFSYM .LAISC==:04 ;[7.1082]Invalid service class
DEFSYM .LAIRS==:05 ;[7.1082]Insufficient resources
DEFSYM .LASIU==:06 ;[7.1082]Service is in use
DEFSYM .LANSS==:07 ;[7.1082]No such service
DEFSYM .LASDI==:10 ;[7.1082]Service is disabled
DEFSYM .LASNP==:11 ;[7.1082]Service is not offered by requested port
DEFSYM .LANSP==:12 ;[7.1082]No such port name
DEFSYM .LAIPW==:13 ;[7.1082]Invalid password
DEFSYM .LAENQ==:14 ;[7.1082]Entry is not in queue
DEFSYM .LAIAR==:15 ;[7.1082]Immediate access rejected
DEFSYM .LAACD==:16 ;[7.1082]Access denied
DEFSYM .LACSR==:17 ;[7.1082]Corrupted solicit request
DEFSYM .LACTI==:20 ;[7.1082]Command type code is illegal
DEFSYM .LASCS==:21 ;[7.1082]Start slot can't be sent
DEFSYM .LAQED==:22 ;[7.1082]Queue entry deleted by local node
DEFSYM .LAIRP==:23 ;[7.1082]Inconsistent or illegal request parameters
;LATOP% LAT access states
DEFSYM LS.OFF==:0 ;LAT Access State OFF
DEFSYM LS.ON==:1 ;LAT Access State ON
;~6.0 LLMOP% - Low Level MOP for Ethernet Data Link Layer
;LLMOP% Function Code Definitions
DEFSYM .LLMIN==:0. ;Low fence
DEFSYM .ELDIR==:0. ;Ethernet Loop Direct
DEFSYM .ELAST==:1. ;Ethernet Loop Assisted
DEFSYM .ELRPY==:2. ;Ethernet Loop Read Reply
DEFSYM .ELAIC==:3. ;Ethernet Loop Assign Interrupt Channel
DEFSYM .ELABT==:4. ;Ethernet Loop Abort
DEFSYM .ELSTS==:5. ;Ethernet Loop Request Status
DEFSYM .RCRID==:6. ;Remote Console Read Identity
DEFSYM .RCRCT==:7. ;Remote Console Read Counters
DEFSYM .RCIDS==:8. ;Remote Console Identify Self
DEFSYM .RCRBT==:9. ;Remote Console Remote Boot
DEFSYM .RCRPY==:10. ;Remote Console Read Reply
DEFSYM .RCRSV==:11. ;Reserve Remote Console
DEFSYM .RCREL==:12. ;Release Remote Console
DEFSYM .RCSND==:13. ;Send Console Command
DEFSYM .RCPOL==:14. ;Console Response Poll
DEFSYM .RCAIC==:15. ;Remote Console Assign Interrupt Channel
DEFSYM .RCABT==:16. ;Remote Console Abort Request
DEFSYM .RCSTS==:17. ;Remote Console Request Status
DEFSYM .RCADR==:18. ;Obtain Channel Addresses
DEFSYM .LLMAX==:18. ;High fence
;LLMOP% Argument Block Definitions
;Common prefix for all functions
DEFSYM .LMCID==:0 ;Channel Id and Flags
DEFSYM LM%MRF==:1_35. ;More Replies Flag
;For .RCSND only
DEFSYM LM%CBF==:1_19. ;Command Break Flag
DEFSYM LM%MNO==:1_18. ;Message Number
DEFSYM LM%CCF==:LM%MNO\LM%CBF ;Console Command Control Flags
;For .RCPOL only
DEFSYM LM%RDL==:1_28. ;Receive Data Lost Flag
DEFSYM LM%RDO==:1_20. ;Response Data Lost Flag
DEFSYM LM%CDL==:1_19. ;Command Data Lost Flag
DEFSYM LM%RCF==:LM%MNO\LM%RDO\LM%CDL ;Console Response Control Flags
DEFSYM LM%CID==:3_0. ;Channel-id
;Suffix for .RCRID,.RCRCT,.RCIDS,.RCRBT,
; .RCRSV,.RCREL,.RCSND,.RCPOL,
; .RCRPY,.ELDIR,.ELAST,.ELRPY
DEFSYM .LMDST==:1 ;Destination Address
DEFSYM .LMSRC==:.LMDST ;Source Address for .ELRPY and .RCRPY only
DEFSYM LM%MCA==:1_28. ;Multicast Address Bit
DEFSYM LM%AB0==:377_28. ;Address Byte 0
DEFSYM LM%AB1==:377_20. ;Address Byte 1
DEFSYM LM%AB2==:377_12. ;Address Byte 2
DEFSYM LM%AB3==:377_4. ;Address Byte 3
;DEFSYM LM%AB4==:LM%A_35. ;Address Byte 4
;DEFSYM LM%AB5==:LM%A_34. ;Address Byte 5
;Suffix for .ELSTS,.RCSTS
DEFSYM .LMSTF==:1 ;Request Status and Flags
DEFSYM LM%RTC==:777777_0. ;Status Return Code
DEFSYM .LMPND==:0 ;Request Pending, Not Complete
DEFSYM .LMSUC==:1 ;Success, Complete
DEFSYM .LMABT==:2 ;Aborted
DEFSYM .LMTXF==:3 ;Transmit Failed
DEFSYM .LMCCE==:4 ;Channel Communication Error
DEFSYM .LMCST==:2 ;KLNI Channel Status
;Suffix for .RCAIC,.ELAIC
DEFSYM .LMICF==:1 ;Interrupt channel and flags
DEFSYM LM%AIC==:1_35. ;Assign Interrupt Channel
DEFSYM LM%ENU==:1_34. ;Enable Unsolicited Receipt
DEFSYM LM%ICH==:77_18. ;Interrupt Channel Number
;Suffix for .RCADR
DEFSYM .LMHWA==:1 ;Local KLNI channel hardware address
DEFSYM .LMPYA==:3 ;Local KLNI channel current physical address
;Suffix for .RCRID,.RCRCT,.RCSND,.ELDIR,.ELAST,.ELRPY,.RCRPY,.RCPOL
; .ELSTS,.RCSTS,.ELABT,.RCABT
DEFSYM .LMREQ==:3 ;Request Number
DEFSYM .LMPID==:.LMREQ ;Remote Console Port Id
DEFSYM LM%PID==:777777_18. ;Port Id
DEFSYM LM%REQ==:777777_0. ;Request Id
;Suffix for .RCRBT Remote Boot and .RCRSV Reserve Console
DEFSYM .LMPWD==:3 ;Password Verification Code
DEFSYM .LMCIF==:5 ;Control Information
DEFSYM LM%BSV==:1_8. ;Boot Server
DEFSYM .LMSDF==:0 ;System Default
DEFSYM .LMRSS==:1 ;Requesting System
DEFSYM LM%BDV==:1_9. ;Boot Device
DEFSYM .LMSDF==:0 ;System Default
DEFSYM .LMRSD==:1 ;Specified Device
DEFSYM LM%PRO==:377_0. ;Processor to Boot
DEFSYM .LMSSP==:0 ;System Processor
DEFSYM .LMCMP==:1 ;Communications Processor
DEFSYM .LMDID==:6 ;Device Id
DEFSYM .LMSID==:7 ;Software Id
;Suffix for .ELRPY,.RCRPY,.RCPOL,.RCSND,.ELDIR,.ELAST
DEFSYM .LMRBL==:4 ;LLMOP Response Buffer Length
DEFSYM LM%RML==:777777_18. ;Returned Message Length
DEFSYM LM%MBL==:777777_0. ;Maximum Buffer Length
DEFSYM .LMRBP==:5 ;LLMOP Response Buffer Pointer
DEFSYM .LMLBL==:.LMRBL ;Loop Buffer Length
DEFSYM .LMLBP==:.LMRBP ;Loop Buffer Pointer
DEFSYM .LMLDL==:.LMRBL ;Loopback Data Length
DEFSYM .LMLDP==:.LMRBP ;Loopback Data Pointer
;Suffix for .ELAST
DEFSYM .LMAST==:6 ;Assistant Address
DEFSYM .LMHLP==:10 ;Assistant Level
DEFSYM .LMXMT==:1 ;Transmit
DEFSYM .LMRCV==:2 ;Receive
DEFSYM .LMFUL==:3 ;Full
;~6.0
;LNMST
DEFSYM .LNSJB==:0 ;GET JOB WIDE DEFINITION OF A LN
DEFSYM .LNSSY==:1 ;GET SYSTEM DEFINITION OF A LOGICAL NAME
;LOCK
DEFSYM LK%CNT==:1_35. ;USE COUNT IN AC3
DEFSYM LK%PHY==:1_34. ;USE AC1 AS PHYSICAL PAGE NUMBER
DEFSYM LK%NCH==:1_33. ;MAP PAGES CACHE INHIBITED
DEFSYM LK%AOL==:1_32. ;ALLOW LOCKING IN OFFLINE PAGES
DEFSYM LK%EPN==:1_31. ;PAGE NUMBER IS ABSOLUTE NOT SECTION RELATIVE
;METER JSYS DEFS.
DEFSYM .MEREA==:1 ;READ EBOX TICKS
DEFSYM .MERMA==:2 ;READ MBOX TICKS
;MSTR
DEFSYM .MSRNU==:0 ;READ STATUS OF NEXT DISK UNIT
DEFSYM .MSRUS==:1 ;READ STATUS OF A DISK UNIT
DEFSYM .MSRCH==:0 ;CHANNEL NUMBER
DEFSYM .MSRCT==:1 ;CONTROLLER NUMBER
DEFSYM .MSRUN==:2 ;UNIT NUMBER
DEFSYM .MSRST==:3 ;STATUS
DEFSYM MS%MNT==:1_35. ;THIS UNIT IS PART OF A MOUNTED STRUCTURE
DEFSYM MS%16B==:1_34. ;THIS UNIT WRITTEN IN 16-BIT MODE
; (RESERVED FOR FUTURE)
DEFSYM MS%DIA==:1_33. ;THIS UNIT IS CURRENTLY IN USE BY AN
; ON-LINE DIAGNOSTIC
DEFSYM MS%OFL==:1_32. ;THIS UNIT IS OFF-LINE
DEFSYM MS%ERR==:1_31. ;THERE WAS AN ERROR READING THIS UNIT
DEFSYM MS%BBB==:1_30. ;ONE OF THE BAT BLOCKS IS BAD
DEFSYM MS%HBB==:1_29. ;ONE OF THE HOME BLOCKS IS BAD
DEFSYM MS%WLK==:1_28. ;UNIT IS WRITE-LOCKED
DEFSYM MS%2PT==:1_27. ;UNIT IS POTENTIALLY DUAL-PORTED BETWEEN SYSTEMS
DEFSYM MS%TYP==:777_18. ;DISK TYPE CODE
; DEFINED THE SAME AS .UTTXX IN PHYPAR
DEFSYM .MSRP4==:1 ;RP04
DEFSYM .MSRP5==:5 ;RP05
DEFSYM .MSRP6==:6 ;RP06
DEFSYM .MSRP7==:7 ;RP07
DEFSYM .MSRM3==:11 ;RM03
DEFSYM .MSR20==:24 ;RP20
DEFSYM .MSR80==:27 ;RA80
DEFSYM .MSR81==:30 ;RA81
DEFSYM .MSR60==:31 ;RA60
DEFSYM MS%SVD==:1_17. ;UNIT IS SERVED (ONLINE VIA MSCP SERVER)
DEFSYM MS%IAC==:1_16. ;Unit is inaccessible due to homeblock checking
DEFSYM .MSRSN==:4 ;STRUCTURE NAME
DEFSYM .MSRSA==:5 ;STRUCTURE ALIAS
DEFSYM .MSRNS==:6 ;UNIT # IN STRUCTURE,,# OF UNITS IN STRUCTURE
DEFSYM .MSRSW==:7 ;NUMBER OF PAGES FOR SWAPPING
DEFSYM .MSRUI==:10 ;UNIT ID
DEFSYM .MSROI==:13 ;OWNER ID
DEFSYM .MSRFI==:16 ;FILE-SYSTEM ID
DEFSYM .MSRSP==:21 ;NUMBER OF SECTORS PER PAGE
DEFSYM .MSRSC==:22 ;NUMBER OF SECTORS PER CYLINDER
DEFSYM .MSRPC==:23 ;NUMBER OF PAGES PER CYLINDER
DEFSYM .MSRCU==:24 ;NUMBER OF CYLINDERS PER UNIT
DEFSYM .MSRSU==:25 ;NUMBER OF SECTORS PER UNIT
DEFSYM .MSRBT==:26 ;NUMBER OF BIT-WORDS IN BIT TABLE PER CYLINDER
DEFSYM .MSRSE==:27 ;CPU SERIAL # IF STRUCTURE IS USED FOR BOOTING
DEFSYM .MSRLS==:30 ;NUMBER OF LOST SECTORS PER CYLINDER
DEFSYM .MSRSS==:31 ;NUMBER OF SECTORS PER SURFACE
DEFSYM .MSDSH==:32 ;HIGH ORDER DRIVE SERIAL NUMBER
DEFSYM .MSDSN==:33 ;LOW ORDER DRIVE SERIAL NUMBER
DEFSYM .MSTSP==:34 ;TRUE NUMBER OF SECTORS PER PAGE
DEFSYM .MSMID==:35 ;MAINTANENCE ID - ID ALL PACKS IN STR
;DEFSYM .MSRLN==:36 ;MAX LENGTH OF ARGUMENT BLOCK IN WORDS
DEFSYM .MSMNT==:2 ;MOUNT A STRUCTURE
DEFSYM .MSTNM==:0 ;NAME OF STRUCTURE
DEFSYM .MSTAL==:1 ;ALIAS NAME
DEFSYM .MSTNU==:2 ;NUMBER OF UNITS IN STRUCTURE
DEFSYM .MSTFL==:2 ;FLAGS (LHS)
DEFSYM MS%FLG==:777777,,0 ;MASK FOR .MSTFL
DEFSYM MS%NFH==:1_35. ;NO FIX BAD HOME BLOCK
DEFSYM MS%NFB==:1_34. ;NO FIX BAD BAT BLOCK
DEFSYM MS%XCL==:1_33. ;MOUNT FOR EXCLUSIVE USE BY JOB
DEFSYM MS%IGN==:1_32. ;IGNORE ERRORS
DEFSYM MS%EXL==:1_31. ;CFS mount exclusive
DEFSYM .MSTUI==:3 ;START OF UNIT INFORMATION
DEFSYM .MSTCH==:0 ;CHANNEL NUMBER
DEFSYM .MSTCT==:1 ;CONTROLLER NUMBER
DEFSYM .MSTUN==:2 ;UNIT NUMBER
DEFSYM .MSTNO==:3 ;# OF ARGUMENT WORDS/UNIT
DEFSYM .MSDIS==:3 ;DISMOUNT A STRUCTURE
DEFSYM .MSDNM==:0 ;NAME OF STRUCTURE
DEFSYM .MSGSS==:4 ;GET STATUS OF A STRUCTURE
DEFSYM .MSGSN==:0 ;STRUCTURE NAME (ALIAS)
DEFSYM .MSGST==:1 ;STATUS
DEFSYM MS%PS==:1_35. ;[7.1112]Structure is the Login Structure
DEFSYM MS%DIS==:1_34. ;STRUCTURE IS BEING DISMOUNTED
DEFSYM MS%DOM==:1_33. ;STRUCTURE IS DOMESTIC
DEFSYM MS%PPS==:1_32. ;[7.1112]Structure is permanent, protected
DEFSYM MS%INI==:1_31. ;STRUCTURE IS BEING INITIALIZED
DEFSYM MS%LIM==:1_30. ;STRUCTURE LIMITED TO 2050 SIZES
DEFSYM MS%NRS==:1_29. ;STRUCTURE IS NOT REGULATED
DEFSYM MS%RWS==:1_28. ;READ AFTER WRITE FOR SWAP SPACE
DEFSYM MS%RWD==:1_27. ;READ AFTER WRITE FOR DATA SPACE
DEFSYM MS%ASG==:1_26. ;DISK ASSIGNMENTS ARE PROHIBITED
; (BIT TABLE IS BAD)
DEFSYM MS%MXB==:1_25. ;BIT TABLE TOO LARGE FOR MONITOR ADDRESS SPACE
DEFSYM MS%CRY==:1_24. ;ENABLE PASSWORD ENCRYPTION
DEFSYM MS%IDT==:1_23. ;ENABLE PASSWORD INVALIDATION BY DATE
DEFSYM MS%IUS==:1_22. ;ENABLE PASSWORD INVALIDATION BY USE
DEFSYM MS%DMP==:1_21. ;[7.1081] Structure is dumpable
DEFSYM MS%EXC==:1_20. ;EXCLUDE STRUCTURE FROM COMMON FILE SYSTEM
DEFSYM MS%IDX==:1_19. ;INDEX TABLE FILE OFN HAS BEEN SET UP
DEFSYM MS%CRD==:1_18. ;CREATING ROOT-DIRECTORY ON THIS STR
DEFSYM MS%OFS==:1_17. ;[7.1063]Structure is offline
DEFSYM MS%BS==:1_16. ;[7.1112]Structure is the boot structure
DEFSYM .MSGNU==:2 ;NUMBER OF UNITS IN STRUCTURE
DEFSYM .MSGMC==:3 ;MOUNT COUNT
DEFSYM .MSGFC==:4 ;OPEN FILE COUNT
DEFSYM .MSGSI==:5 ;STRUCTURE ID
DEFSYM .MSGLN==:6 ;LENGTH OF ARGUMENT BLOCK
DEFSYM .MSSSS==:5 ;SET STATUS OF A STRUCTURE
DEFSYM .MSSSN==:0 ;STRUCTURE NAME
DEFSYM .MSSST==:1 ;NEW STATUS BITS
DEFSYM .MSSMW==:2 ;MASK WORD OF BITS TO BE CHANGED
DEFSYM .MSSLN==:3 ;LENGTH OF ARGUMENT BLOCK
DEFSYM .MSINI==:6 ;INITIALIZE A STRUCTURE
DEFSYM .MSINM==:0 ;NAME OF STRUCTURE
DEFSYM .MSIAL==:1 ;ALIAS NAME
DEFSYM .MSINU==:2 ;NUMBER OF UNITS IN STRUCTURE
DEFSYM .MSIFL==:2 ;FLAGS (LHS)
;FLAGS DEFINED IN .MSMNT FUNCTION
DEFSYM MS%FCN==:77_18. ;FUNCTION CODE
DEFSYM .MSCRE==:1 ;CREATE NEW FILE SYSTEM
DEFSYM .MSRRD==:2 ;RECONSTRUCT THE ROOT-DIRECTORY
DEFSYM .MSWHB==:3 ;WRITE THE HOME BLOCKS
DEFSYM .MSRIX==:4 ;REBUILD INDEX TABLE (IDXFIL)
DEFSYM .MSISU==:3 ;START OF UNIT INFORMATION
DEFSYM .MSICH==:0 ;CHANNEL NUMBER
DEFSYM .MSICT==:1 ;CONTROLLER NUMBER
DEFSYM .MSIUN==:2 ;UNIT NUMBER
DEFSYM .MSINO==:3 ;# OF ARGUMENT WORDS/UNIT
DEFSYM .MSIST==:6 ;STATUS WORD
DEFSYM .MSISW==:7 ;NUMBER OF PAGES FOR SWAPPING ON THIS UNIT
DEFSYM .MSIFE==:10 ;NUMBER OF PAGES FOR FRONT-END FILE SYSTEM
DEFSYM .MSIUI==:11 ;UNIT ID
DEFSYM .MSIOI==:14 ;OWNER ID
DEFSYM .MSIFI==:17 ;FILE SYSTEM ID
DEFSYM .MSIFB==:22 ;NUMBER OF PAGES FOR BOOTSTRAP.BIN (OPTIONAL)
DEFSYM .MSISN==:23 ;CPU SERIAL # IF STRUCTURE IS USED FOR BOOTING
DEFSYM .MSIMC==:7 ;INCREMENT MOUNT COUNT
DEFSYM .MSDMC==:10 ;DECREMENT MOUNT COUNT
DEFSYM .MSDEV==:0 ;DEVICE DESIGNATOR OR STRUCTURE
DEFSYM .MSJOB==:1 ;JOB NUMBER FOR WHICH TO CHANGE COUNT
DEFSYM .MSGSU==:11 ;GET STRUCTURE USERS
DEFSYM .MSUAL==:0 ;POINTER TO ALIAS OF STRUCTURE
DEFSYM .MSUFL==:1 ;FLAGS,,# OF ITEMS RETURNED
DEFSYM MS%GTA==:1_35. ;GET USERS WHO HAVE ACCESSED STRUCTURE
DEFSYM MS%GTM==:1_34. ;GET USERS WHO HAVE MOUNTED STRUCTURE
DEFSYM MS%GTC==:1_33. ;GET USERS WHO ARE CONNECTED TO STRUCTURE
DEFSYM .MSUJ1==:2 ;FIRST JOB NUMBER RETURNED
DEFSYM .MSHOM==:12 ;MODIFY HOMEBLOCK WORD
DEFSYM .MSHNM==:0 ;POINTER TO ALIAS, OR DESIGNATOR FOR ALIAS
DEFSYM .MSHOF==:1 ;OFFSET INTO HOMEBLOCK OF WORD BEING CHANGED
DEFSYM .MSHVL==:2 ;NEW VALUES FOR BITS BEING CHANGED
DEFSYM .MSHMK==:3 ;MASK DECLARING WHICH BITS BEING CHANGED
DEFSYM .MSICF==:13 ;INCREMENT MOUNT COUNT ON A FORK BASIS
DEFSYM .MSDCF==:14 ;DECREMENT MOUNT COUNT ON A FORK BASIS
DEFSYM .MSDEV==:0 ;DEVICE DESIGNATOR OR STRUCTURE
DEFSYM .MSOFL==:15 ;ENABLE PSI INTERRUPTS INTERRUPTS FOR
; DISK (FOR DEVICE ALLOCATOR)
DEFSYM .MSCHN==:0 ;CHANNEL ON WHICH TO RECEIVE INTERRUPT
DEFSYM .MSIIC==:16 ;IGNORE INCREMENT CHECK FOR STRUCTURE USE
DEFSYM .MSCSM==:17 ;Convert structure mount attribute
DEFSYM .MSCDV==:0 ;Device designator
DEFSYM .MSCST==:1 ;New attribute
;MTOPR - FUNCTION CODES
DEFSYM .MOCLE==:0 ;CLEAR ERRORS
DEFSYM .MONOP==:31 ;NOP (WAIT FOR ACTIVITY TO STOP)
DEFSYM .MOREW==:1 ;REWIND
DEFSYM .MOEOF==:3 ;WRITE EOF
DEFSYM .MODTE==:4 ;ASSIGN FE DEVICE TO A DTE
DEFSYM .MOFWR==:6 ;FORWARD SPACE RECORD
DEFSYM .MOBKR==:7 ;BACKSPACE RECORD
DEFSYM .MORUL==:11 ;REWIND AND UNLOAD
DEFSYM .MOERS==:13 ;ERASE TAPE
DEFSYM .MOFWF==:16 ;FORWARD SPACE FILE
DEFSYM .MOBKF==:17 ;BACKSPACE FILE
DEFSYM .MOSPD==:26 ;SET TTY SPEED (FOR KL ONLY)
DEFSYM .MORSP==:27 ;READ LINE SPEED (FOR KL ONLY)
DEFSYM MO%RMT==:1_35. ;FLAG TO SAY LINE IS REMOTE
DEFSYM MO%AUT==:1_34. ;FLAG TO SAY LINE IS "AUTO" SPEED
; (RSX20F ONLY)
DEFSYM .MOSDR==:2 ;SET READ DIRECTION
DEFSYM .MORDR==:26 ;READ READ DIRECTION
DEFSYM .MOEOT==:10 ;SKIP TO LOGICAL END OF TAPE
DEFSYM .MOSRS==:5 ;SET RECORD SIZE
DEFSYM .MORRS==:15 ;READ RECORD SIZE
DEFSYM .MOSDN==:24 ;SET DENSITY
DEFSYM .MORDN==:12 ;READ DENSITY
DEFSYM .MOSDM==:4 ;SET DATA MODE
DEFSYM .MORDM==:14 ;READ DATA MODE
DEFSYM .MOSPR==:20 ;SET PARITY
DEFSYM .MORPR==:21 ;READ PARITY
DEFSYM .MONRB==:22 ;GET NUMBER OF REMAINING BYTES IN RECORD
DEFSYM .MOFOU==:23 ;FORCE OUT RECORD
DEFSYM .MOINF==:25 ;GET INFORMATION ABOUT TAPE
DEFSYM .MOICT==:0 ;COUNT OF ARGUMENTS TO BE RETURNED
DEFSYM .MOITP==:1 ;MAGTAPE TYPE CODE
; DEFINED THE SAME AS .UTTXX IN PHYPAR
DEFSYM .MTT45==:3 ;MAGTAPE TYPE TU45
DEFSYM .MTT77==:13 ;MAGTAPE TYPE TU77
DEFSYM .MTT78==:15 ;MAGTAPE TYPE TU78
DEFSYM .MTT70==:17 ;MAGTAPE TYPE TU70
DEFSYM .MTT71==:20 ;MAGTAPE TYPE TU71
DEFSYM .MTT72==:21 ;MAGTAPE TYPE TU72
DEFSYM .MTT73==:22 ;RESERVED FOR 200 IPS STC GCR DRIVE
DEFSYM .MTA78==:34 ;MAGTAPE TYPE TA78
DEFSYM .MOIID==:2 ;MAGTAPE REEL ID
DEFSYM .MOISN==:3 ;CHAN,CONTROLLER,UNIT ,, SERIAL #
DEFSYM .MOIRD==:4 ;# OF READS DONE
DEFSYM .MOIWT==:5 ;# OF WRITES DONE
DEFSYM .MOIRC==:6 ;RECORD # FROM BOT
DEFSYM .MOIFC==:7 ;FILE COUNT ON TAPE
DEFSYM .MOISR==:10 ;# OF SOFT READ ERRORS
DEFSYM .MOISW==:11 ;# OF SOFT WRITE ERRORS
DEFSYM .MOIHR==:12 ;# OF HARD READ ERRORS
DEFSYM .MOIHW==:13 ;# OF HARD WRITE ERRORS
DEFSYM .MOIRF==:14 ;# RECORDS READ
DEFSYM .MOIWF==:15 ;# OF FRAMES WRITTEN
DEFSYM .MOICH==:16 ;CHANNEL #
DEFSYM .MOICO==:17 ;CONTROLLER #
DEFSYM .MOIUN==:20 ;UNIT #
DEFSYM .MOIDH==:21 ;HIGH ORDER DRIVE SERIAL #
DEFSYM .MOIDN==:22 ;LOW ORDER DRIVE SERIAL #
DEFSYM .MOLOC==:32 ;ATTACH MT TO MTA
DEFSYM .MOCNT==:0 ;OFFSET FOR COUNT
DEFSYM .MOMTN==:1 ;OFFSET FOR MT NUMBER
DEFSYM .MOLBT==:2 ;LABEL TYPE (.LTxxx)
DEFSYM .MODNS==:3 ;DENSITY (.SJDxx)
DEFSYM .MOAVL==:4 ;ADDRESS OF VOLUME LABELS
DEFSYM .MONVL==:5 ;# OF VOLUME LABELS (VOL1 + UVLSs)
DEFSYM .MOCVN==:6 ;CURRENT VOLUME NUMBER WITHIN SET
DEFSYM .MOVSN==:7 ;VOLUME SET NAME
DEFSYM .MOSTA==:37 ;CURRENT MAGTAPE STATUS
DEFSYM .MODDN==:1 ;1ST WORD OF .MOSTA DENSITIES CAPABLE
DEFSYM SJ%CP2==:1_34. ;200 BPI
DEFSYM SJ%CP5==:1_33. ;556 BPI
DEFSYM SJ%CP8==:1_32. ;800 BPI
DEFSYM SJ%C16==:1_31. ;1600 BPI
DEFSYM SJ%C62==:1_30. ;6250 BPI
DEFSYM .MODDM==:2 ;2ND WORD OF .MOSTA DATA MODES CAPABLE
DEFSYM SJ%CMC==:1_34. ;CORE DUMP MODE
DEFSYM SJ%CM6==:1_33. ;SIXBIT
DEFSYM SJ%CMA==:1_32. ;ANSI ASCII
DEFSYM SJ%CM8==:1_31. ;INDUSTRY COMPATABLE
DEFSYM SJ%CMH==:1_30. ;HIGH DENSITY MODE
DEFSYM .MOTRK==:3 ;3RD WORD OF .MOSTA NUMBER OF TRACKS
DEFSYM SJ%7TR==:1_34. ;7 TRACK DRIVE
DEFSYM SJ%9TR==:1_33. ;9 TRACK DRIVE
DEFSYM .MOCST==:4 ;4TH WORD OF .MOSTA TAPE STATUS
DEFSYM SJ%OFS==:1_35. ;OFF LINE
DEFSYM SJ%MAI==:1_34. ;MAINTENANCE MODE ENABLED
DEFSYM SJ%MRQ==:1_33. ;MAINTENANCE MODE REQUESTED
DEFSYM SJ%BOT==:1_32. ;BOT
DEFSYM SJ%REW==:1_31. ;REWINDING
DEFSYM SJ%WLK==:1_30. ;WRITE LOCKED
DEFSYM .MODVT==:5 ;5TH WORD OF .MOSTA DEVICE TYPE
; DEFINITIONS FOR THIS ARE SAME AS USED IN .MTALN
DEFSYM .MOOFL==:40 ;PSI FOR MAGTAPES
DEFSYM .MOPST==:42 ;PSI FOR EOT ON MT'S
; T3/ PSI ASSIGNMENT (-1 =: CLEAR)
DEFSYM .MORVS==:.MOREW ;REWIND VOLUME SET
DEFSYM .MORVL==:43 ;REWIND CURRENT VOLUME
DEFSYM .MOVLS==:44 ;VOLUME SWITCH FOR UNLABELED TAPES
DEFSYM .MONTR==:45 ;SET/CLEAR NO TRANSLATE FLAG
; T3/ -1 =: DON'T CONVERT EBCDIC TO ASCII
; T3/ 0 =: CONVERT
DEFSYM .MORDL==:46 ;READ USER LABELS
; T2/ GETS LABEL I.D.
; T3/ SP TO WHERE 76 CHARCTERS ARE TO BE PLACED
DEFSYM .MOWUL==:47 ;WRITE USER LABELS
; T2/ LABEL I.D.
; T3/ SP TO 76 CHARACTERS OF DATA
DEFSYM .MORLI==:50 ;READ LABEL INFORMATION FOR MT
DEFSYM .MOMTP==:1 ;TYPE OF LABEL
DEFSYM .MOMVN==:2 ;VOLUME NAME
DEFSYM .MOMOW==:3 ;OWNER
DEFSYM .MOMFM==:4 ;FORMAT OF TAPE FILE
DEFSYM .MOMRL==:5 ;RECORD LENGTH
DEFSYM .MOMBL==:6 ;BLOCK LENGTH
DEFSYM .MOMCD==:7 ;CREATION DATE
DEFSYM .MOMED==:10 ;EXPIRATION DATE
DEFSYM .MOMFI==:11 ;FILE NAME
DEFSYM .MOMGN==:12 ;GENERATION NUMBER
DEFSYM .MOMGV==:13 ;GENERATION VERSION NUMBER
DEFSYM .MOVMB==:14 ;VALUE OF MODE BYTE
DEFSYM .MOSMV==:51 ;SET MODE VALUE
DEFSYM .TPFST==:0 ;STREAM MODE
DEFSYM .TPFCP==:1 ;ALL FORMATTING CONTROLS PRESENT
DEFSYM .TPFFC==:2 ;FORTRAN CONTROLS PRESENT
DEFSYM .TPFNC==:3 ;NO CONTROLS PRESENT
DEFSYM .TPFMX==:3 ;MAX VALUE OF FIELD
DEFSYM .MOSDS==:52 ;SET DEFERRED VOLUME-SWITCH MODE
DEFSYM .MOIRB==:53 ;RETURN NUMBER OF IORBS QUEUED FOR DEVICE
DEFSYM .MOPSI==:27 ;SET ERROR PSI FOR LPT AND CDR
DEFSYM MO%MSG==:1_35. ;SUPPRESS STANDARD CTY MESSAGES
DEFSYM .MOSID==:27 ;SET REEL I.D.
DEFSYM .MOIEL==:30 ;INHIBIT ERROR LOGGING
DEFSYM .MOSHV==:45 ;SET HDR1 AND HDR2 VALUES FOR MT
DEFSYM .MOFMT==:1 ;OFFSET FOR FORMAT
DEFSYM .MOEPD==:2 ;EXPIRATION DATE
DEFSYM .MOBSZ==:3 ;BLOCK SIZE
DEFSYM .MORSZ==:4 ;RECORD SIZE
;DEF FOR IPCF MESSAGE SENT ON A VOLUME SWITCH OR OTHER CONDITION
;MESSAGE CODE IS .IPCTR. OFFSETS THAT FOLLOW ARE
;RELATIVE TO WORD CONTAINING .IPCTR.
DEFSYM .VMCOD==:0 ;CODE FOR THIS MESSAGE
; IS SUBCODE OF .IPCTR FUNCTION
DEFSYM .VMABT==:1 ;ABORT CLOSE
DEFSYM .VMICN==:2 ;INTERNAL ERROR (HOPEFULLY NOT USED)
DEFSYM .VMERR==:3 ;LABEL R/W ERROR
DEFSYM .VMVSM==:4 ;VOLUME SWITCH
DEFSYM .VMSTS==:5 ;UNIT STATUS CHANGE (NOT USED YET)
DEFSYM .VMUNL==:6 ;UNIT UNLOAD
DEFSYM .VMREW==:7 ;REWIND
DEFSYM .VSMTN==:1 ;MT NUMBER
DEFSYM .VSFLG==:2 ;FLAGS
DEFSYM VS%FLG==:-1_18. ;FLAGS PART OF WORD
DEFSYM VS%WRT==:1_35. ;WRITE PREVIOUS VOLUME WAS OPENED FOR WRITE
DEFSYM VS%COD==:777777 ;CODE
DEFSYM .VSMNV==:1 ;MOUNT NTH VOLUME
DEFSYM .VSFST==:2 ;MOUNT FIRST VOLUME
DEFSYM .VSLST==:3 ;MOUNT LAST VOLUME
DEFSYM .VSMRV==:4 ;MOUNT RELATIVE VOLUME NUMBER (SIGNED)
DEFSYM .VSFLS==:5 ;FORCE LABELED TAPE VOLUME-SWITCH
DEFSYM .VSCNT==:3 ;VOLUME NUMBER (SIGNED IF VS%MRV IS ON)
DEFSYM .MOLVF==:32 ;LOAD DEVICE'S VFU
DEFSYM .MORVF==:33 ;READ VFU FILE NAME
DEFSYM .MOLTR==:34 ;LOAD TRANSLATION RAM
DEFSYM .MORTR==:35 ;READ RAM FILE NAME
DEFSYM .MOSTS==:36 ;SET SOFTWARE STATUS
DEFSYM .MORST==:37 ;READ SOFTWARE STATUS
DEFSYM MO%LPC==:1 ;PAGE COUNTER OVERFLOW
DEFSYM MO%LCI==:2 ;CHARACTER INTERRUPT (HARD ERROR)
DEFSYM MO%LVF==:4 ;VFU ERROR. PAPER MUST BE RE-ALIGNED
DEFSYM MO%LVU==:20 ;LINE PRINTER HAS OPTICAL VFU
DEFSYM MO%RPE==:40 ;RAM PARITY ERROR
DEFSYM MO%RCK==:1 ;READ CHECK
DEFSYM MO%PCK==:2 ;PICK CHECK
DEFSYM MO%SCK==:4 ;STACK CHECK
DEFSYM MO%HEM==:10 ;HOPPER EMPTY
DEFSYM MO%SFL==:20 ;STACKER FULL
DEFSYM MO%FNX==:1_18. ;NON-EXISTENT DEVICE
DEFSYM MO%OL==:1_19. ;DEVICE IS OFF-LINE
DEFSYM MO%HE==:1_20. ;HARDWARE ERROR
DEFSYM MO%SER==:1_21. ;SOFTWARE ERROR
DEFSYM MO%IOP==:1_22. ;I/O IN PROGRESS
DEFSYM MO%EOF==:1_23. ;END OF FILE
; 1B11 ;RESERVED
DEFSYM MO%FER==:1_25. ;FATAL ERROR
DEFSYM MO%LCP==:1_35. ;LOWER CASE PRINTER
DEFSYM MO%RLD==:1_34. ;FRONT-END WAS RELOADED
DEFSYM .MOFLO==:40 ;FLUSH OUTPUT
;SEE SETJB FOR VARIOUS ARGUMENT VALUES
DEFSYM .MOSNT==:34 ;SET TTY NON-TERMINAL STATUS
DEFSYM .MOSMN==:1 ;NO SYSTEM MESSAGES(I.E. SUPPRESS)
DEFSYM .MOSMY==:0 ;YES SYSTEM MESSAGES(DEFAULT)
DEFSYM .MORNT==:35 ;READ TTY NON-TERMINAL STATUS
;PTY MTOPR NUMBERS
DEFSYM .MOAPI==:24 ;ASSIGN PTY INTERRUPT CHANNELS
DEFSYM MO%WFI==:1_35. ;ENABLE WAITING FOR INPUT
DEFSYM MO%OIR==:1_34. ;ENABLE OUTPUT IS WAITING
DEFSYM MO%SIC==:77_18. ;SOFTWARE INTERRUPT CHANNEL
DEFSYM .MOPIH==:25 ;TEST PTY INPUT HUNGRY
DEFSYM .MONWI==:0 ;NOT WAITING FOR INPUT
DEFSYM .MOWFI==:-1 ;WAITING FOR INPUT
DEFSYM .MOBAT==:26 ;SET BATCH BIT
DEFSYM .MOJCB==:1 ;JOB CONTROLLED BY BATCH
DEFSYM .MONCB==:0 ;JOB NOT CONTROLLED BY BATCH
;TTY MODE DEFINITIONS
DEFSYM .MORLW==:30 ;READ WIDTH
DEFSYM .MOSLW==:31 ;SET WIDTH
DEFSYM .MORLL==:32 ;READ LENGTH
DEFSYM .MOSLL==:33 ;SET LENGTH
DEFSYM .MOSIG==:36 ;SET "IGNORE INPUT WHEN INACTIVE" BIT
DEFSYM .MORBM==:37 ;READ 128 CHARACTER BREAK MASK
DEFSYM MO%WN1==:776117,,777740 ;BIT DEFINITIONS FOR NON-FORMATTING CONTROL
DEFSYM MO%WN2==:0 ;FOR ASCII CODES 40-777
DEFSYM MO%WN3==:0 ;FOR ASCII CODES 100-137
DEFSYM MO%WN4==:20 ;FOR ASCII CODES 137-177
DEFSYM MO%WF1==:001260,,000420 ;FORMATTING CONTROL BITS
DEFSYM MO%WF2==:0 ;FOR ASCII CODES 40-77
DEFSYM MO%WF3==:0 ;FOR ASCII CODES 100-137
DEFSYM MO%WF4==:20 ;FOR ASCII CODES 140-177
DEFSYM MO%WP1==:000400,,400 ;PUNCTUATION BIT DEFINITIONS
DEFSYM MO%WP2==:777774,,001760 ; FOR ASCII CODES 40-77
DEFSYM MO%WP3==:400000,,000760 ; FOR ASCII CODES 100-137
DEFSYM MO%WP4==:400000,,000760 ; FOR ASCII CODES 140-177
DEFSYM MO%WA1==:400 ;ALPHANUMERICS DEFINITIONS
DEFSYM MO%WA2==:000003,,776000 ; FOR ASCII CODES 40-77
DEFSYM MO%WA3==:377777,,777000 ; FOR ASCII CODES 100-137
DEFSYM MO%WA4==:377777,,777020 ; FOR ASCII CODES 140-177
DEFSYM .MOSBM==:40 ;SET 128 CHARACTER BREAK MASK
DEFSYM .MORFW==:41 ;READ FIELD WIDTH
DEFSYM .MOSFW==:42 ;SET FIELD WIDTH
DEFSYM .MOXOF==:43 ;SET/CLEAR XOFF/XON HANDLING
DEFSYM .MOOFF==:0 ;TURN OFF XON/XOFF PROCESSING
DEFSYM .MOONX==:1 ;TURN ON XON/XOFF PROCESSING
DEFSYM .MORXO==:44 ;READ VALUE OF XOFF BIT
DEFSYM .MOSLC==:45 ;SET LINE COUNTER
DEFSYM .MORLC==:46 ;READ LINE COUNTER
DEFSYM .MOSLM==:47 ;SET LINE COUNTER MAXIMUM
DEFSYM .MORLM==:50 ;READ LINE COUNTER MAXIMUM
DEFSYM .MOTPS==:51 ;PSI FOR NON-CONTROLLING TERMINAL
DEFSYM .MOPCS==:52 ;SET PAGE PAUSE CHARACTER
DEFSYM .MOPCR==:53 ;READ PAGE PAUSE CHARACTER
DEFSYM .MORTF==:54 ;READ TERMINAL FLAGS
DEFSYM .MOSTF==:55 ;SET/CLEAR TERMINAL FLAGS
DEFSYM MO%NUM==:1_1. ;REFUSE USER-MESSAGES
DEFSYM MO%NTM==:1_0. ;INHIBIT NON-JOB OUTPUT
DEFSYM .MOTCE==:56 ;SET TWO CHARACTER ESCAPE SEQUENCE
DEFSYM .MORTC==:57 ;READ TWO CHARACTER ESCAPE SEQUENCE
DEFSYM .MOCTM==:60 ;~6.0 IS THIS A CTERM TTY
DEFSYM .MOTXT==:61 ;~6.0 REMOTE TEXTI%
DEFSYM .MOHUP==:62 ;[7436] Hangup remote line
DEFSYM .MOUHU==:63 ;[7436] Unhangup (raise DTR) on remote line
DEFSYM .MORLT==:400001 ;READ STANFORD MODE BITS
DEFSYM .MOSLT==:400002 ;SET STANFORD MODE BITS
DEFSYM MO%BSP==:1_0. ;DO NOT TRANSLATE BS TO RUBOUT
;Now replaced by DEC definition of .MOHUP
;DEFSYM .MOHUP==:400003 ;HANG UP DATASET (CLEAR DTR) (GSB ONLY)
;Now replaced by DEC definition of .MOUHU
;DEFSYM .MODUP==:400004 ;UN-HANGUP DATASET (SET DTR) (GSB ONLY)
DEFSYM .MODUP==:.MOUHU
;NET MTOPR NUMBERS
DEFSYM .MOACP==:20 ;TOPS20AN ;ACCEPT CONNECTION ON SOCKET
DEFSYM .MOSND==:21 ;TOPS20AN ;SEND ALL CURENTLY BUFFERED BYTES
DEFSYM .MOSIN==:22 ;TOPS20AN ;SEND INS/INR COMMAND
DEFSYM .MOAIN==:24 ;TOPS20AN ;ASSIGN INS/INR AND FSM PSI CHANNELS
DEFSYM MO%NIN==:77_30. ;TOPS20AN ;INS/INR SOFTWARE INTERRUPT CHANNEL
DEFSYM MO%FSM==:77_18. ;TOPS20AN ;FSM CHANGE OF STATE INTERRUPT CHANNEL
;DEFINITIONS FOR DECNET
DEFSYM .MOACN==:24 ;ASSIGN CONNECT INTERRUPT CHANNEL
DEFSYM MO%CDN==:777_27. ;CONNECT INTERRUPT CHANNEL
DEFSYM MO%INA==:777_18. ;INTERRUPT MESSAGE CHANNEL
DEFSYM MO%DAV==:777_9. ;DATA AVAILABLE CHANNEL
DEFSYM .MONCI==:777 ;NO CHANGE
DEFSYM .MOCIA==:776 ;CLEAR INTERRUPT ASSIGNMENT
DEFSYM .MORLS==:25 ;READ LINK STATUS
DEFSYM MO%CON==:1_35. ;LINK IS CONNECTED
DEFSYM MO%SRV==:1_34. ;LINK IS A SERVER
DEFSYM MO%WFC==:1_33. ;WAITING FOR A CONNECT
DEFSYM MO%WCC==:1_32. ;WAITING FOR THIS LINK TO CONFIRM
DEFSYM MO%EOM==:1_31. ;EOM PRESENT IN INPUT BUFFER
DEFSYM MO%ABT==:1_30. ;CONNECTION ABORTED
DEFSYM MO%SYN==:1_29. ;SYNCH DI RECIEVED
DEFSYM MO%INT==:1_28. ;INT MESSAGE AVAILABLE
DEFSYM MO%LWC==:1_27. ;LINK WAS CONNECTED
DEFSYM .MORHN==:26 ;READ HOST NAME
DEFSYM .MORTN==:27 ;READ TASK NAME
DEFSYM .MORUS==:30 ;READ USER DATA
DEFSYM .MORPW==:31 ;READ PASSWORD
DEFSYM .MORAC==:32 ;READ ACCOUNT
DEFSYM .MORDA==:33 ;READ OPTIONAL DATA
DEFSYM .MORCN==:34 ;READ CONNECT OBJECT NUMBER
DEFSYM .MORIM==:35 ;READ INTERRUPT MESSAGE
DEFSYM .MOSIM==:36 ;SEND INTERRUPT MESSAGE
DEFSYM .MOROD==:37 ;READ OBJ-DESC OF CONNECTION
DEFSYM .MOCLZ==:40 ;CLOSE/REJECT A CONNECTION
DEFSYM .MOCC==:41 ;ACCEPT A CONNECTION
DEFSYM .MORSS==:42 ;READ SEGMENT SIZE
DEFSYM .MOANT==:43 ;ATTACH NETWORK TERMINAL
DEFSYM .MOSNH==:44 ;SET NETWORK HOST
DEFSYM .SHTTY==:1 ;ARG BLOCK - TTY IDENT
DEFSYM .SHESC==:2 ; - FLAGS,,ESC CHAR
DEFSYM SH%LPM==:1_35. ; FLAG - LOCAL PAGE MODE
DEFSYM .MOSLP==:45 ;~6.0 Set link parameters
DEFSYM .SLPSS==:1 ;~6.0 Segment size
DEFSYM .SLPFC==:2 ;~6.0 Flow control option
DEFSYM MO%RFC==:7_18. ;~6.0 Remote flow control
DEFSYM MO%LFC==:7_0. ;~6.0 Local flow control
DEFSYM NSF.C0==:1 ;~6.0 No flow control
DEFSYM NSF.CS==:2 ;~6.0 Segment flow control
DEFSYM NSF.CM==:3 ;~6.0 Message flow control
DEFSYM .MORLP==:46 ;~6.0 Read link parameters
DEFSYM .MOSLQ==:47 ;~6.0 Set link quotas
DEFSYM .SLQIP==:1 ;~6.0 Percentage for input
DEFSYM .SLQLQ==:2 ;~6.0 Link quota
DEFSYM .SLQIG==:3 ;~6.0 Input goal
DEFSYM .MORLQ==:50 ;~6.0 Read link quotas
DEFSYM .MORFT==:51 ;6.1 Read format of source process name
DEFSYM .FMTT0==:0 ; Format type 0
DEFSYM .FMTT1==:1 ; Format type 1
DEFSYM .FMTT2==:2 ; Format type 2
;DEFINITIONS FOR ATS
;FUNCTION CODES FOR MTOPR ARE IN COLUMN 1
DEFSYM .MOAMO==:1 ;SET MODE WORD
DEFSYM .MOAMM==:1 ;MESSAGE MODE
DEFSYM .MOADM==:2 ;DATA MODE
DEFSYM .MOAAT==:2 ;ACQUIRE TERMINAL
DEFSYM MO%AER==:1_35. ;HTN FIELD CONTAINS AN ERROR CODE
DEFSYM .MOASI==:3 ;ENABLE INTERRUPTS
DEFSYM MO%IFL==:777_27. ;FUNCTION TO BE PERFORMED
DEFSYM .MOAAI==:0 ;ASSIGN INTERRUPT CHANNEL
DEFSYM .MOADI==:1 ;DEASSIGN INTERRUPT CHANNEL
DEFSYM MO%IEV==:777_18. ;EVENT BEING ASSIGNED OR DEASSIGNED
DEFSYM .MOADT==:0 ;DATA ARRIVAL
DEFSYM .MOAST==:1 ;STATUS ARRIVAL
DEFSYM MO%ACH==:777777_0. ;CHANNEL NUMBER
DEFSYM .MORCD==:4 ;GET STATUS
DEFSYM MO%WDV==:777_0. ;WHICH DEVICES TO REPORT ON
DEFSYM .MOALD==:0 ;ALL TERMINALS
DEFSYM .MOCHG==:1 ;TERMINALS WHOSE STATUS HAS CHANGED
DEFSYM .MOLST==:2 ;TERMINALS SPECIFIED IN LIST
DEFSYM MO%ARM==:1_35. ;ASK THE RESOURCE MANAGER
DEFSYM MO%MDA==:1_34. ;MORE DATA AVAILABLE FOR THIS JFN
DEFSYM AT%OPN==:1_35. ;HTN IS OPEN AND USABLE
DEFSYM AT%TCL==:1_34. ;NRM CLOSED TERMINAL VIA STATUS-REPORT
DEFSYM AT%DHT==:1_33. ;DEASSIGNING HTN
DEFSYM AT%TXF==:1_32. ;TERMINAL IS XOFF'D
DEFSYM AT%UND==:1_31. ;DEVICE REQUESTED IS UNDEFINED
DEFSYM AT%NAV==:1_30. ;DEVICE REQUESTED IS NOT AVAILABLE
DEFSYM AT%OFL==:1_29. ;DEVICE REQUESTED IS OFFLINE
DEFSYM AT%FUL==:1_28. ;SERVER IS FULL
DEFSYM AT%UNS==:1_27. ;DEVICE TYPE IS UNSUPPORTED
DEFSYM AT%REJ==:1_26. ;NODE NRM REJECTED THE REQUEST
DEFSYM AT%MIE==:1_25. ;MONITOR INTERNAL ERROR (NODE OR HOST)
DEFSYM AT%STF==:1_24. ;VT62 START-UP FAILED
DEFSYM AT%CRJ==:1_23. ;CONNECTION WAS REJECTED
DEFSYM AT%NDP==:1_22. ;DATA PIPE IS NOT OPEN
DEFSYM AT%SER==:777777_0. ;STATUS REPORT ERROR CODE (18 BITS)
DEFSYM .MOADE==:5 ;DEASSIGN TERMINAL
DEFSYM MO%AAB==:1_35. ;DON'T SEND REMAINING DATA
;FUNCTION CODES FOR AYDIN DISPLAY MTOPR
DEFSYM .MOFLE==:0 ;FLUSH ERRORS
DEFSYM .MORER==:1 ;RETURN AYDIN ERROR CODE
DEFSYM .MOWAT==:2 ;WAIT FOR ACTIVITY TO STOP
DEFSYM MO%RWC==:777777_18. ;REMAINING WORD COUNT
DEFSYM MO%LER==:777777_0. ;LAST AYDIN ERROR CODE
;DEFS FOR MTU JSYS
;FUNCTIONS:
DEFSYM .MTNVV==:1 ;SET NO VOLUME VALID
DEFSYM .MTCNT==:0 ;COUNT WORD
DEFSYM .MTCOD==:1 ;ERROR CODE
DEFSYM .MTPTR==:2 ;SP TO OPERATOR RESPONSE
DEFSYM .MTRAL==:2 ;READ ALL LABELS
DEFSYM .MTVL1==:1 ;SP TO VOL1 AREA
DEFSYM .MTVL2==:2 ;SP TO VOL2 AREA
DEFSYM .MTHD1==:3 ;SP TO HDR1 AREA
DEFSYM .MTHD2==:4 ;SP TO HDR2 AREA
DEFSYM .MTASI==:3 ;RETURN MT TO MTA ASSOCIATION
DEFSYM .MTPHU==:1 ;RETURN MTA UNIT NUMBER HERE
DEFSYM .MTNUL==:-1 ;NO ASSIGNMENT CODE
DEFSYM .MTCVV==:4 ;CLEAR VV
;MUTIL JSYS FUNCTION CODES
DEFSYM .MUENB==:1 ;ENABLE PID FOR RECEIVING
DEFSYM .MUDIS==:2 ;DISABLE PID FROM RECEIVING
DEFSYM .MUGTI==:3 ;GET PID OF [SYSTEM]INFO
DEFSYM .MUCPI==:4 ;CREATE A PRIVATE INFO FOR A JOB
DEFSYM .MUDES==:5 ;DESTROY A PID
DEFSYM .MUCRE==:6 ;CREATE A PID
DEFSYM .MUSSQ==:7 ;SET SEND AND RECEIVE QUOTAS
DEFSYM .MUCHO==:10 ;CHANGE OWNER OF A PID
DEFSYM .MUFOJ==:11 ;FIND OWNER'S JOB NUMBER
DEFSYM .MUFJP==:12 ;FIND JOB'S PIDS
DEFSYM .MUFSQ==:13 ;FIND SEND AND RECEIVE QUOTAS
DEFSYM .MUFFP==:15 ;FIND FORK'S PIDS
DEFSYM .MUSPQ==:16 ;SET PID QUOTA
DEFSYM .MUFPQ==:17 ;FIND PID QUOTA
DEFSYM .MUQRY==:20 ;QUERY
DEFSYM .MUAPF==:21 ;ASSOCIATE A PID WITH A FORK
DEFSYM .MUPIC==:22 ;PUT PID ON AN INTERRUPT CHANNEL
DEFSYM .MUDFI==:23 ;DEFINE PID OF [SYSTEM]INFO
DEFSYM .MUSSP==:24 ;SET SYSTEM PID TABLE
DEFSYM .MURSP==:25 ;READ SYSTEM PID TABLE
DEFSYM .MUMPS==:26 ;GET MAXIMUM PACKET SIZE
DEFSYM .MUSKP==:27 ;SET PID TO RECEIVE KILLED PID MESSAGE
DEFSYM .MURKP==:30 ;READ PID THAT RECEIVES KILLED PID MESSAGES
DEFSYM .MUSPS==:31 ;Get system maximum packet size
;SYSTEM PID TABLE INDEX VALUES
DEFSYM .SPIPC==:0 ;PID OF IPCC
DEFSYM .SPINF==:1 ;PID OF INFO
DEFSYM .SPQSR==:2 ;PID OF QUASAR
DEFSYM .SPMDA==:3 ;PID OF QSRMDA
DEFSYM .SPOPR==:4 ;PID OF OPERATOR JOB (ORION)
DEFSYM .SPNSR==:5 ;PID OF NETSER
DEFSYM .SPCUS==:6 ;PID OF CUSTOM APPLICATION (used in QUEUE%)
DEFSYM .SDIPC==:7 ;PID OF DEBUG IPCC (used in QUEUE%)
DEFSYM .SDINF==:10 ;PID OF DEBUG INFO (used in QUEUE%)
DEFSYM .SDQSR==:11 ;PID OF DEBUG QUASAR (used in QUEUE%)
DEFSYM .SDMDA==:12 ;PID OF DEBUG QSRMDA (used in QUEUE%)
DEFSYM .SDOPR==:13 ;PID OF DEBUG ORION (used in QUEUE%)
DEFSYM .SDNSR==:14 ;PID OF DEBUG NETSER (used in QUEUE%)
DEFSYM .SDCUS==:15 ;PID OF DEBUG CUSTOM APPLICATION(used in QUEUE%)
DEFSYM .SPNEB==:16 ;[7.1080] PID of NEBULA
DEFSYM .SDNEB==:17 ;[7.1080] PID of debug NEBULA
DEFSYM .SPRSV==:20 ;PID of domain resolver
DEFSYM .SPMAX==:20 ;Highest valid system PID index
;NI%
; Function codes for NI% JSYS
DEFSYM .EIOPN==:1 ; Open a Portal
DEFSYM .EICLO==:2 ; Close a Portal
DEFSYM .EIRCV==:3 ; Post a Receive Buffer
DEFSYM .EIRRQ==:4 ; Read Receive Queue
DEFSYM .EIXMT==:5 ; Transmit a Datagram
DEFSYM .EIRTQ==:6 ; Read Transmit Queue
DEFSYM .EIEMA==:7 ; Enable a Multicast
DEFSYM .EIDMA==:10 ; Disable a Multicast
DEFSYM .EIRPL==:11 ; Read Portal List
DEFSYM .EIRCL==:12 ; Read Channel List
DEFSYM .EIRPC==:13 ; Read Portal Counters
DEFSYM .EIRCC==:14 ; Read Channel Counters
DEFSYM .EIRCI==:15 ; Read Channel Information
DEFSYM .EISCS==:16 ; Set Channel State
DEFSYM .EISCA==:17 ; Set Channel Address
DEFSYM .EIGET==:20 ; Obtain ownership of the channel
DEFSYM .EIREL==:21 ; Release ownership of the channel
DEFSYM .EIRPI==:22 ; Read Portal Information
DEFSYM .EIMAX==:22 ; Maximum function value
; Ethernet Channel states
DEFSYM .EISVG==:1 ; Virgin - has never run before
DEFSYM .EISRE==:2 ; Reload - reload requested
DEFSYM .EISCR==:3 ; Can't Reload - reload request timed out
DEFSYM .EISIN==:4 ; Init - waiting for response to first command
DEFSYM .EISRN==:5 ; Run - channel is running and can accept commands
DEFSYM .EISDP==:6 ; Dump - a dump has been requested
DEFSYM .EISDR==:7 ; Dump & Reload - dump followed by a reload request
DEFSYM .EISBK==:10 ; Broken - channel cannot be initialized
DEFSYM .EISOF==:11 ; Off - channel is off
DEFSYM .EISRR==:12 ; Reload Requested - make KNILDR run
DEFSYM .EISMX==:12 ; Maximum state
; Argument block for NI% JSYS
DEFSYM .EILEN==:0 ; Length of this argument block
DEFSYM EI%LEN==:<777777,,000000> ; Mask for length field
DEFSYM .EIFCN==:0 ; Function code
DEFSYM EI%FCN==:<000000,,777777> ; Mask for function code field
DEFSYM .EIFLG==:1 ; Flags
DEFSYM EI%FLG==:<777777,,000000> ; Mask for all flags
DEFSYM EI%BLK==:1_35. ; Function should block
DEFSYM EI%TBA==:1_34. ; Transmit Buffers Available
DEFSYM EI%RBA==:1_33. ; Receive Buffers Available
DEFSYM EI%ZRO==:1_32. ; Zero Counters
DEFSYM EI%PAD==:1_31. ; Use Padding
DEFSYM EI%GBL==:1_30. ; Use Global Portal IDs
DEFSYM .EIPID==:1 ; Portal ID
DEFSYM EI%PID==:<000000,,777777> ; Mask for portal ID
DEFSYM .EICHN==:2 ; Channel number
DEFSYM EI%CHN==:<777777,,000000> ; Mask for channel number
DEFSYM .EIJOB==:2 ; Job #
DEFSYM EI%JOB==:<777777,,000000> ; Mask for job #
DEFSYM .EIPRO==:2 ; Protocol type
DEFSYM EI%PRO==:<000000,,777777> ; Mask for protocol type
DEFSYM .EIPSI==:3 ; PSI channels
DEFSYM EI%TCH==:<777700,,000000> ; Transmit completion channel
DEFSYM EI%RCH==:<000077,,770000> ; Receive completion channel
DEFSYM EI%SCH==:<000000,,007777> ; Status change channel
DEFSYM .EISTA==:4 ; Ethernet channel status
DEFSYM EI%RUN==:1_35. ; Channel is running
DEFSYM EI%SST==:<000000,,777000> ; Channel substate
DEFSYM EI%EXS==:<000000,,000777> ; Channel external state
DEFSYM .EIBCP==:5 ; Buffer descriptor chain pointer
DEFSYM .EIPHY==:5 ; Physical Ethernet address
DEFSYM EI%PHY==:<777777,,777777> ; Mask for physical address
DEFSYM .EIAR1==:6 ; Argument 1
DEFSYM .EIAR2==:7 ; Argument 2
DEFSYM .EIHRD==:7 ; Hardware (builtin) Ethernet address
DEFSYM EI%HRD==:<777777,,777777> ; Mask for above
DEFSYM .EIBMX==:10 ; Maximum size of NI% arg block
; Buffer Descriptor Block
; Transmit usage Receive usage
DEFSYM .BXLEN==:0 ; Length of block
DEFSYM .BXNXT==:1 ; Pointer to next Buffer Descriptor Block
DEFSYM .BXBSZ==:2 ; Length of buffer Length of Datagram
DEFSYM .BXBFA==:3 ; BP to start of buf BP to start of Datagram
DEFSYM .BXBID==:5 ; Buffer ID
DEFSYM .BXSTA==:6 ; Status
DEFSYM BX%VAL==:1_35. ; This block is valid (return only)
DEFSYM BX%STA==:777777 ; Status mask
DEFSYM .BXDAD==:7 ; Destination Address
DEFSYM .BXSAD==:11 ; Not applicable Source Address
DEFSYM .BXPRO==:13 ; Protocol Type
DEFSYM .BXBMX==:14 ; Maximum size of BD block
; Structured form of previous blocks
; MSKSTR EILEN,.EILEN,EI%LEN ; Length
DEFSYM EILEN==:<-1,,0>
; MSKSTR EIFCN,.EIFCN,EI%FCN ; Function code
DEFSYM EIFCN==:777777
; MSKSTR EIFLG,.EIFLG,EI%FLG ; Flags
DEFSYM EIFLG==:<-1,,0>
; MSKSTR EIBLK,.EIFLG,EI%BLK ; Function should block
DEFSYM EIBLK==:1_35.
; MSKSTR EITBA,.EIFLG,EI%TBA ; Transmit Buffers Available
DEFSYM EITBA==:1_34.
; MSKSTR EIRBA,.EIFLG,EI%RBA ; Receive Buffers Available
DEFSYM EIRBA==:1_33.
; MSKSTR EIZRO,.EIFLG,EI%ZRO ; Zero Counters
DEFSYM EIZRO==:1_32.
; MSKSTR EIPAD,.EIFLG,EI%PAD ; Use padding
DEFSYM EIPAD==:1_31.
; MSKSTR EIGBL,.EIFLG,EI%GBL ; Use Global Portal IDs
DEFSYM EIGBL==:1_30.
; MSKSTR EIPID,.EIPID,EI%PID ; Portal ID
DEFSYM EIPID==:777777
; MSKSTR EICHN,.EICHN,EI%CHN ; Channel number
DEFSYM EICHN==:<-1,,0>
; MSKSTR EIPRO,.EIPRO,EI%PRO ; Protocol type
DEFSYM EIPRO==:777777
; MSKSTR EIPSI,.EIPSI,-1 ; Mask for all PSI fields
DEFSYM EIPSI==:-1
; MSKSTR EITCH,.EIPSI,EI%TCH ; Transmit complete interrupt channel
DEFSYM EITCH==:<777700,,0>
; MSKSTR EIRCH,.EIPSI,EI%RCH ; Receive complete interrupt channel
DEFSYM EIRCH==:<77,,770000>
; MSKSTR EISCH,.EIPSI,EI%SCH ; Status change interrupt channel
DEFSYM EISCH==:7777
; MSKSTR EISTA,.EISTA,-1 ; Mask for the entire status word
DEFSYM EISTA==:-1
; MSKSTR EIRUN,.EISTA,EI%RUN ; Channel is running
DEFSYM EIRUN==:1_35.
; MSKSTR EISST,.EISTA,EI%SST ; Channel substate
DEFSYM EISST==:777000
; MSKSTR EIEXS,.EISTA,EI%EXS ; Channel external state
DEFSYM EIEXS==:000777
; MSKSTR EIBCP,.EIBCP,-1 ; Buffer descriptor chain pointer
DEFSYM EIBCP==:-1
; MSKSTR EIAR1,.EIAR1,-1 ; Argument 1
DEFSYM EIAR1==:-1
; MSKSTR EIJOB,.EIJOB,EI%JOB ; Job #
DEFSYM EIJOB==:<-1,,0>
; MSKSTR EIPHY,.EIPHY,EI%PHY ; Physical Ethernet address
DEFSYM EIPHY==:-1
; MSKSTR EIHRD,.EIHRD,EI%HRD ; Hardware Ethernet address
DEFSYM EIHRD==:-1
; MSKSTR EIAR2,.EIAR2,-1 ; Argument 2
DEFSYM EIAR2==:-1
; Buffer descriptor block
; MSKSTR BXNXT,.BXNXT,-1 ; Pointer to next Buffer Descriptor Block
DEFSYM BXNXT==:-1
; MSKSTR BXBSZ,.BXBSZ,-1 ; Byte Count Length of Datagram
DEFSYM BXBSZ==:-1
; MSKSTR BXBFA,.BXBFA,-1 ; BP to Start of Buffer BP to Start of Datagram
DEFSYM BXBFA==:-1
; MSKSTR BXBID,.BXBID,-1 ; Buffer ID
DEFSYM BXBID==:-1
; MSKSTR BXVAL,.BXSTA,BX%VAL ; This block is valid
DEFSYM BXVAL==:1_35.
; MSKSTR BXSTA,.BXSTA,BX%STA ; Status
DEFSYM BXSTA==:777777
; MSKSTR BXDAD,.BXDAD,-1 ; Destination Address
DEFSYM BXDAD==:-1
; MSKSTR BXSAD,.BXSAD,-1 ; Not applicable Source Address
DEFSYM BXSAD==:-1
; MSKSTR BXPRO,.BXPRO,-1 ; Protocol Type
DEFSYM BXPRO==:-1
; Read Channel Counters
DEFSYM .ECCNT==:0 ; Number of words written into this block
DEFSYM .ECSLZ==:.ECCNT+1 ; Seconds since last zeroed
DEFSYM .ECBYR==:.ECSLZ+1 ; Bytes received
DEFSYM .ECBYS==:.ECBYR+1 ; Bytes sent
DEFSYM .ECDGR==:.ECBYS+1 ; Datagrams received
DEFSYM .ECDGS==:.ECDGR+1 ; Datagrams sent
DEFSYM .ECMBR==:.ECDGS+1 ; Multicast bytes received
DEFSYM .ECMDR==:.ECMBR+1 ; Multicast datagrams received
DEFSYM .ECDSD==:.ECMDR+1 ; Datagrams sent, initially deferred
DEFSYM .ECDS1==:.ECDSD+1 ; Datagrams sent, single collision
DEFSYM .ECDSM==:.ECDS1+1 ; Datagrams sent multiple collisions
DEFSYM .ECSF==:.ECDSM+1 ; Send failures
DEFSYM .ECSFM==:.ECSF+1 ; Send failure bit mask
DEFSYM EC%LOC==:1_11. ; Loss of carrier
DEFSYM EC%XBP==:1_10. ; Xmit buffer parity error
DEFSYM EC%RFD==:1_9. ; Remote failure to defer
DEFSYM EC%XFL==:1_8. ; Xmitted frame too long
DEFSYM EC%OC==:1_7. ; Open circuit
DEFSYM EC%SC==:1_6. ; Short circuit
DEFSYM EC%CCF==:1_5. ; Collision detect check failed
DEFSYM EC%EXC==:1_4. ; Excessive collisions
DEFSYM .ECRF==:.ECSFM+1 ; Receive failure
DEFSYM .ECRFM==:.ECRF+1 ; Receive failure bit mask
DEFSYM EC%FLE==:1_8. ; Free list parity error
DEFSYM EC%NFB==:1_7. ; No free buffers
DEFSYM EC%FTL==:1_6. ; Frame too long
DEFSYM EC%FER==:1_5. ; Framing error
DEFSYM EC%BCE==:1_4. ; Block check error
DEFSYM .ECUFD==:.ECRFM+1 ; Unrecognized frame destination
DEFSYM .ECDOV==:.ECUFD+1 ; Data overrun
DEFSYM .ECSBU==:.ECDOV+1 ; System buffer unavailable
DEFSYM .ECUBU==:.ECSBU+1 ; User buffer unavailable
DEFSYM .ECBMX==:.ECUBU+1 ; Max size of this block
; Read Portal Counters
DEFSYM .EPCNT==:0 ; Number of words written into this block
DEFSYM .EPSLZ==:.EPCNT+1 ; Seconds since last zeroed
DEFSYM .EPBYR==:.EPSLZ+1 ; Bytes received
DEFSYM .EPDGR==:.EPBYR+1 ; Datagrams received
DEFSYM .EPBYS==:.EPDGR+1 ; Bytes sent
DEFSYM .EPDGS==:.EPBYS+1 ; Datagrams sent
DEFSYM .EPUBU==:.EPDGS+1 ; User buffer unavailable
DEFSYM .EPBMX==:.EPUBU+1 ; Max size of this block
;NODE
DEFSYM .NDSLN==:0 ;SET LOCAL NODE NAME
DEFSYM .NDGLN==:1 ;GET LOCAL NODE NAME
DEFSYM .NDNOD==:0 ;POINTER TO NODE NAME
DEFSYM .NDSNM==:2 ;SET LOCAL NODE NUMBER
DEFSYM .NDMAX==:377 ;MAXIMUM NODE NUMBER
DEFSYM .NDGNM==:3 ;GET LOCAL NODE NUMBER
DEFSYM .NDSLP==:4 ;SET LOOPBACK ON PORT
DEFSYM .NDPRT==:0 ;PORT TO SET IN LOOPBACK
DEFSYM .NDCLP==:5 ;CLEAR LOOPBACK ON PORT
DEFSYM .NDFLP==:6 ;FIND LOOPBACK PORT
DEFSYM ND%LPR==:1_35. ;LOOPBACK RUNNING
DEFSYM ND%LPA==:1_34. ;LOOPBACK ASSIGNED TO PORT
DEFSYM .NDSNT==:7 ;SET NETWORK TOPOLOGY INFORMATION
DEFSYM .NDNNO==:0 ;NUMBER OF NODES REPRESENTED IN BIT MASK
DEFSYM .NDMSK==:1 ;FIRST WORD OF REACHABLE NODES BIT MASK
DEFSYM .NDGNT==:10 ;GET NETWORK TOPOLOGY INFORMATION
DEFSYM .NDNND==:0 ;NUMBER OF NODE BLOCK POINTERS FOLLOWING
DEFSYM .NDCNT==:1 ;NUMBER OF WORDS IN A NODE BLOCK
DEFSYM .NDBK1==:2 ;FIRST ADDRESS OF A NODE BLOCK
;NODE BLOCK DEFINITIONS
DEFSYM .NDNAM==:0 ;POINTER TO ASCIZ NODE NAME
DEFSYM .NDSTA==:1 ;NODE STATE
DEFSYM .NDSON==:0 ;ON
DEFSYM .NDSOF==:1 ;OFF
DEFSYM .NDNXT==:2 ;POINTER TO ASCIZ NEARER NEIGHBOR STRING
DEFSYM .NDNBS==:3 ;NODE BLOCK SIZE
DEFSYM .NDSIC==:11 ;SET TOPOLOGY CHANGE INTERRUPT CHANNEL
DEFSYM .NDCHN==:0 ;CHANNEL NUMBER
DEFSYM .NDCIC==:12 ;CLEAR NETWORK TOPOLOGY INTERRUPT
DEFSYM .NDGVR==:13 ;GET NSP VERSION INFORMATION
DEFSYM .NDNVR==:0 ;NUMBER OF VERSIONS RETURNED
DEFSYM .NDCVR==:1 ;POINTER TO COMMUNICATONS VERSION BLOCK
DEFSYM .NDRVR==:2 ;POINTER TO ROUTING VERSION BLOCK
DEFSYM .NDVER==:0 ;VERSION NUMBER
DEFSYM .NDECO==:1 ;ECO NUMBER
DEFSYM .NDCST==:2 ;CUSTOMER LEVEL
DEFSYM .NDGLI==:14 ;GET LINE INFORMATION
DEFSYM .NDNLN==:0 ;<# OF ENTRIES FOLLOWING>,,<# LINE RETURNED>
DEFSYM .NDCNT==:1 ;NUMBER OF WORDS IN A LINE BLOCK
; LINE BLOCK DEFINITION
DEFSYM .NDLNM==:0 ;NSP PORT (LINE) NUMBER
DEFSYM .NDLST==:1 ;STATE OF LINE
DEFSYM .NDLON==:1 ;ON
DEFSYM .NDLOF==:2 ;OFF
DEFSYM .NDLCN==:3 ;CONTROLLER LOOPBACK
DEFSYM .NDLCB==:4 ;CABLE LOOPBACK
DEFSYM .NDLND==:2 ;BYTE POINTER NODE AT END OF LINE
DEFSYM .NDLSZ==:3 ;SIZE OF BLOCK
DEFSYM .NDVFY==:15 ;VERIFY NODE NAME
DEFSYM .NDFLG==:1 ;FLAGS RETURNED BY MONITOR
DEFSYM ND%EXM==:1_35. ;NODE SPECIFIED EXACTLY MATCHES A KNOWN NODE
DEFSYM ND%LGL==:1_34. ;NODE NAME IS A LEGAL NODE NAME
DEFSYM ND%RCH==:1_33. ;NODE IS REACHABLE
DEFSYM ND%RUK==:1_32. ;Reachability of node is unknown (out of area)
DEFSYM .NDRNM==:16 ;GIVEN A NODE NUMBER, RETURN THE NODE NAME
DEFSYM .NDCIN==:17 ;GET PER-CONNECTION INFORMATION
;BRUTE FORCE DEFINITION OF THESE SYMBOLS BY HAND. UGH.
DEFSYM NB.RTW==:0 ;NUMBER OF WORDS RETURNED
DEFSYM NB.RQW==:0 ;NUMBER OF WORDS REQUESTED
DEFSYM NB.JOB==:1 ;JOB NUMBER OF THIS DATA
DEFSYM NB.CHN==:2 ;CHANNEL NUMBER
DEFSYM NB.OBJ==:3 ;RECEIVER OBJECT TYPE OR -1
DEFSYM NB.STA==:3 ;SESSION CONTROL STATE (LINK STATE)
DEFSYM NB.XFL==:3 ;TRANSMIT FLOW CONTROL OPTION (FLOW STATUS)
DEFSYM NB.RFL==:3 ;RECEIVE FLOW CONTROL OPTION (FLOW STATUS)
DEFSYM NB.GOL==:4 ;RECEIVE DATA REQUEST GOAL
DEFSYM NB.INQ==:4 ;INPUT QUOTA FOR LINK
DEFSYM NB.OTQ==:5 ;OUTPUT QUOTA FOR LINK
DEFSYM NB.DNA==:5 ;DESTINATION NODE ADDRESS (REMOTE HOST NAME)
DEFSYM NB.SSZ==:6 ;SEGMENT SIZE (BYTE COUNT IN SEGMENT)
DEFSYM NB.RSN==:6 ;REASON FOR DISCONNECT OR REJECT (16 BITS)
DEFSYM NB.LLA==:7 ;LOCAL LINK ADDRESS (LINK ID)
DEFSYM NB.RLA==:7 ;REMOTE LINK ADDRESS (LINK ID)
DEFSYM NB.PKS==:10 ;PACKETS SENT OUT (SEGMENT COUNTER)
DEFSYM NB.PKR==:10 ;PACKETS RECEIVED (SEGMENT COUNTER)
DEFSYM NB.TYP==:11 ;OPEN TYPE: 0=:PASSIVE 1=:ACTIVE
DEFSYM NB.VER==:11 ;VERSION OF REMOTE NSP (0=:3.2, 1=:3.1, 2=:4.0)
DEFSYM NB.JFN==:11 ;JFN ASSOCIATED WITH CHANNEL
DEFSYM NB.FRK==:11 ;FORK NUMBER
DEFSYM .NDRDB==:20 ;READ DECNET DATA BLOCKS
DEFSYM .NDRBT==:0 ;TABLE TO RETURN TO USER:
DEFSYM .NDBTB==:0 ; GENERAL TABLE
DEFSYM .NDBSJ==:1 ; SESSION JOB BLOCK
DEFSYM .NDBSL==:2 ; SESSION LINK BLOCK
DEFSYM .NDBEL==:3 ; END-USER LAYER LINK BLOCK
DEFSYM .NDBRC==:4 ; ROUTER'S RCB
DEFSYM .NDBCT==:5 ; CTERM DATA BLOCK
DEFSYM .NDRBD==:1 ;DESTINATION OF DATA, IN USER SPACE
DEFSYM .NDRBJ==:2 ;1ST ARGUMENT FOR FINDING TABLE
DEFSYM .NDRBC==:3 ;2ND ARGUMENT FOR FINDING TABLE
DEFSYM .NDSDP==:21 ;Set DECnet initialization parameters
DEFSYM .NDPRM==:0 ;Parameter to set
DEFSYM .NDRTR==:0 ; Routing type
DEFSYM .NDMXA==:1 ; Maximum address
DEFSYM .NDMXB==:2 ; Maximum buffers
DEFSYM .NDDBL==:3 ; Default buffers per link
DEFSYM .NDBSZ==:4 ; Buffer size
DEFSYM .NDFLO==:5 ; Flow control type
DEFSYM .NDVAL==:1 ;Parameter value
DEFSYM RNT.L1==:4 ; Level-1 router
DEFSYM RNT.NR==:5 ; Non-routing
DEFSYM FCM.NO==:0 ; No flow control
DEFSYM FCM.SG==:1 ; Segment flow control
DEFSYM .NDINT==:22 ;Insert node table
DEFSYM .NDNNN==:0 ; Number of node definitions
DEFSYM .NDNTA==:1 ; Node table address
;NOUT
DEFSYM NO%MAG==:1_35. ;OUTPUT MAGNITUDE
DEFSYM NO%SGN==:1_34. ;OUTPUT SIGN
DEFSYM NO%LFL==:1_33. ;LEADING FILLER
DEFSYM NO%ZRO==:1_32. ;FILL WITH ZERO'S
DEFSYM NO%OOV==:1_31. ;OUTPUT ON COLUMN OVERFLOW
DEFSYM NO%AST==:1_30. ;OUTPUT ASTERISKS ON OVERFLOW
DEFSYM NO%COL==:177_18. ;NUMBER OF COLUMNS TO USE
DEFSYM NO%RDX==:777777 ;RADIX
;NTINF% JSYS
DEFSYM .NWABC==:0 ;ARGUMENT BLOCK COUNT (INCLUDES THIS WORD)
DEFSYM .NWFNC==:1 ;FUNCTION CODE
DEFSYM .NWRRH==:0 ; RETURN REMOTE HOST INFORMATION
DEFSYM .NWLIN==:2 ;TTY DESIGNATOR, JOB # OR -1 FOR THIS JOB
DEFSYM .NWNNP==:3 ;BYTE POINTER TO STORE NODE NAME
DEFSYM .NWTTF==:4 ;TERMINAL TYPE AND FLAGS
; B0-B8 FLAGS
DEFSYM NW%NNN==:1_35. ; NO NODE NAME KNOWN
; B9-B17 NETWORK TYPE
DEFSYM NW%NNT==:0 ; NON NETWORK TERMINAL
DEFSYM NW%TCP==:1 ; INTERNET TCP
DEFSYM NW%DNA==:2 ; DECNET
DEFSYM NW%LAT==:3 ; LAT
; B18-B35 LINE TYPE
DEFSYM NW%UND==:0 ; UNDEFINED TERMINAL TYPE
DEFSYM NW%FE==:1 ; FRONT END TERMINAL
DEFSYM NW%PT==:2 ; PSUEDO TERMINAL
DEFSYM NW%MC==:3 ; NRT
DEFSYM NW%TV==:4 ; TVT
DEFSYM NW%CH==:5 ; CTERM
DEFSYM NW%LH==:6 ; LAT
DEFSYM .NWNNU==:5 ;NODE NUMBER WORD 1
DEFSYM .NWNU1==:6 ;NODE NUMBER WORD 2
;NTMAN% ARGUMENT BLOCK
DEFSYM .NTCNT==:0 ;NUMBER OF WORDS IN ARGUMENT BLOCK
DEFSYM .NTENT==:1 ;ENTITY
DEFSYM .NTNOD==:0 ;NODE
DEFSYM .NTLIN==:1 ;LINE
DEFSYM .NTLOG==:2 ;LOGGING
DEFSYM .NTCKT==:3 ;CIRCUIT
DEFSYM .NTMOD==:4 ;MODULE
DEFSYM .NTARE==:5 ;AREA
DEFSYM .NTEID==:2 ;BYTE POINTER TO ENTITY ID
DEFSYM .NTFNC==:3 ;FUNCTION
;DEFSYM LOWFNC==:-3 ;VALUE OF FIRST FUNCTION VALUE
DEFSYM .NTSLM==:-4 ;~6.0 Set global logging mask
DEFSYM .NTPSI==:-3 ;SET PSI CHANNEL FOR READING EVENTS
DEFSYM .NTMAP==:-2 ;MAP NODE NUMBER/NODE NAME
DEFSYM .NTREX==:-1 ;RETURN EXECUTOR NODE ID
DEFSYM .NTSET==:0 ;SET PARAMETER
DEFSYM .NTCLR==:1 ;CLEAR PARAMETER
DEFSYM .NTZRO==:2 ;ZERO ALL COUNTERS
DEFSYM .NTSHO==:3 ;SHOW SELECTED ITEMS
DEFSYM .NTSZC==:4 ;SHOW AND ZERO ALL COUNTERS
DEFSYM .NTRET==:5 ;RETURN LIST OF ITEMS
DEFSYM .NTEVQ==:6 ;PROCESS THE EVENT QUEUE
DEFSYM .NTSEL==:4 ;SELECTION CRITERION
;SELECTORS FOR .NTSHO FUNCTION
DEFSYM .NTSUM==:0 ;SUMMARY
DEFSYM .NTSTA==:1 ;STATUS
DEFSYM .NTCHA==:2 ;CHARACTERISTICS
DEFSYM .NTCOU==:3 ;COUNTERS
DEFSYM .NTEVT==:4 ;EVENT
DEFSYM .NTCST==:5 ;CIRCUIT STATE
;SELECTORS FOR .NTRET FUNCTION
DEFSYM .NTKNO==:-1 ;KNOWN ITEMS
DEFSYM .NTACT==:-2 ;ACTIVE ITEMS
DEFSYM .NTLOP==:-3 ;LOOP
DEFSYM .NTADJ==:-4 ;ADJACENT ITEMS
DEFSYM .NTSGN==:-5 ;SIGNIFICANT ITEMS
DEFSYM .NTQUA==:5 ;BYTE POINTER TO FUNCTION QUALIFIER
DEFSYM .NTBPT==:6 ;BYTE POINTER TO PARAMETER OR LIST DATA
DEFSYM .NTBYT==:7 ;NUMBER OF BYTES IN RETURNED DATA
DEFSYM .NTERR==:10 ;ERROR RETURN STATUS
;MISCELLANEOUS NTMAN% SYMBOLS
DEFSYM .NTARG==:11 ;LENGTH OF NTMAN% ARGUMENT BLOCK
DEFSYM .NDALN==:2 ;NUMBER OF BYTES IN A NODE ADDRESS
DEFSYM .NDPLN==:2 ;NUMBER OF BYTES IN A PARAMETER NUMBER
DEFSYM .NDAMX==:255. ;MAXIMUM NODE ADDRESS
DEFSYM .NDNMX==:7 ;MAXIMUM NUMBER OF BYTES IN A NODE NAME
;NTMAN% Return Codes
RADIX 5+5 ;MAKE SURE WE ASSEMBLE IN PROPER RADIX
DEFSYM NESUC%==:1 ;SUCCESS
DEFSYM NEUFO%==:.RADIX10.,-1 ;UNRECOGNIZED FUNCTION OR OPTION
DEFSYM NEIMF%==:.RADIX10.,-2 ;INVALID MESSAGE FORMAT
DEFSYM NEPRV%==:.RADIX10.,-3 ;PRIVILEGE VIOLATION.
DEFSYM NEMPE%==:.RADIX10.,-5 ;MANAGEMENT PROGRAM ERROR
DEFSYM NEUPT%==:.RADIX10.,-6 ;UNRECOGNIZED PARAMETER TYPE
DEFSYM NEURC%==:.RADIX10.,-8 ;UNRECOGNIZED COMPONENT
DEFSYM NEINI%==:.RADIX10.,-9 ;INVALID IDENTIFICATION
DEFSYM NELCE%==:.RADIX10.,-10 ;LINE COMMUNICATION ERROR
DEFSYM NECWS%==:.RADIX10.,-11 ;COMPONENT IN WRONG STATE
DEFSYM NERES%==:.RADIX10.,-15 ;RESOURCE ERROR
DEFSYM NEIPV%==:.RADIX10.,-16 ;INVALID PARAMETER VALUE
DEFSYM NENRM%==:.RADIX10.,-20 ;NO ROOM (OR SLOT ALREADY TAKEN)
DEFSYM NEPNA%==:.RADIX10.,-22 ;PARAMETER NOT APPLICABLE
DEFSYM NEPVL%==:.RADIX10.,-23 ;PARAMETER VALUE TOO LONG
DEFSYM NEOPF%==:.RADIX10.,-25 ;OPERATION FAILURE
DEFSYM NEFNS%==:.RADIX10.,-26 ;FUNCTION NOT SUPPORTED
DEFSYM NEIPG%==:.RADIX10.,-27 ;INVALID PARAMETER GROUPING
DEFSYM NEPAM%==:.RADIX10.,-29 ;PARAMETER MISSING
RADIX 8
DEFSYM OF%FDT==:1_2. ;FORCE DATE UPDATE
;ODCNV -- SEE IDCNV FOR BITS
;ODTIM
DEFSYM OT%NDA==:1_35. ;DO NOT OUTPUT DATE
DEFSYM OT%DAY==:1_34. ;OUTPUT DAY OF WEEK
DEFSYM OT%FDY==:1_33. ;OUTPUT NUMERIC MONTH
DEFSYM OT%NMN==:1_32. ;OUTPUT NUMERIC MONTH
DEFSYM OT%FMN==:1_31. ;OUTPUT MONTH IN FULL
DEFSYM OT%4YR==:1_30. ;OUTPUT 4-DIGIT YEAR
DEFSYM OT%DAM==:1_29. ;OUTPUT DAY AFTER MONTH
DEFSYM OT%SPA==:1_28. ;OUTPUT SPACES IN DATE
DEFSYM OT%SLA==:1_27. ;OUTPUT SLASHES IN DATE
DEFSYM OT%NTM==:1_26. ;DO NOT OUTPUT TIME
DEFSYM OT%NSC==:1_25. ;DO NOT OUTPUT SECONDS
DEFSYM OT%12H==:1_24. ;OUTPUT 12-HOUR FORMAT
DEFSYM OT%NCO==:1_23. ;DO NOT OUTPUT COLON
DEFSYM OT%TMZ==:1_22. ;OUTPUT TIME ZONE
DEFSYM OT%SCL==:1_18. ;SUPPRESS COLUMNIZATION
;ODTNC -- SEE IDCNV FOR BITS
;OPEN - TCP connection establishment
;AC1 LH flags:
DEFSYM TCP%JS==:1_35. ; JCN Supplied
DEFSYM TCP%WT==:1_34. ; Wait for completion
DEFSYM TCP%FS==:1_30. ; Force Synchronization (active open)
DEFSYM TCP%PS==:1_29. ; Persistent open
DEFSYM TCP%ST==:1_28. ; Return statistics (STAT)
DEFSYM TCP%SY==:1_27. ; Symbolic name list given (STAT)
DEFSYM TCP%SC==:1_27. ; Secure connection (OPEN, SEND)
DEFSYM TCP%HP==:1_26. ; High priority (OPEN, SEND)
DEFSYM TCP%VT==:1_25. ; TCP Virtual Terminal (OPEN)
DEFSYM TCP%TV==:1_24. ; TVT Supplied (STAT)
DEFSYM TCP%NT==:1_23. ; Return AOBJN pointer over TVTs (STAT)
DEFSYM TCP%IX==:1_22. ; Connection index supplied (STAT)
DEFSYM TCP%NI==:1_21. ; Return AOBJN pointer over connections (STAT)
DEFSYM TCP%SD==:1_20. ; Return STAT definitions instead of values (STAT)
DEFSYM TCP%ET==:1_19. ; ERROR info flag
DEFSYM TCP%PT==:1_18. ; Packet trace flag
; The connection block format is
DEFSYM .TCPLH==:0. ;reserved Local host (internet format), bits 5-35
DEFSYM .TCPLP==:1. ; Local port, bits 20-35
DEFSYM .TCPFH==:2. ; Foreign host (internet format), bits 5-35
DEFSYM .TCPFP==:3. ; Foreign port, bits 20-35
DEFSYM .TCPOP==:4. ; LH - Address of IP options, or 0 if none
; RH - Address of TCP options, or 0 if none
DEFSYM .TCPOW==:10. ; Size (w) of each. Both are read with a POINT 8,adr
DEFSYM .TCPIP==:5. ; IP parameters (Flag=:3B1, TTL=:377B17, TOS=:377B35)
DEFSYM .TCPCS==:6. ; Size of connection block
;OPENF
DEFSYM OF%BSZ==:77_30. ;BYTE SIZE
DEFSYM OF%MOD==:17_26. ;MODE
DEFSYM OF%HER==:1_17. ;HALT ON IO ERROR
DEFSYM OF%RD==:1_16. ;READ
DEFSYM OF%WR==:1_15. ;WRITE
DEFSYM OF%EX==:1_14. ;EXECUTE (RESERVED FOR THE FUTURE)
DEFSYM OF%APP==:1_13. ;APPEND
DEFSYM OF%RDU==:1_12. ;READ UNRESTRICTED
DEFSYM OF%THW==:1_10. ;THAWED
DEFSYM OF%AWT==:1_9. ;ALWAYS WAIT
DEFSYM OF%PDT==:1_8. ;PRESERVE DATES
DEFSYM OF%NWT==:1_7. ;NEVER WAIT
DEFSYM OF%RTD==:1_6. ;RESTRICTED
DEFSYM OF%PLN==:1_5. ;SET TO DISABLE LINE NUMBER CHECKING FOR
; NON-LINE NUMBER FILES
DEFSYM OF%DUD==:1_4. ;DON'T UPDATE TO DISK BY DDMP
DEFSYM OF%OFL==:1_3. ;ALLOW OPENING THE DEVICE EVEN IF OFFLINE
DEFSYM OF%FDT==:1_2. ;FORCE DATE UPDATE
DEFSYM OF%RAR==:1_1. ; Wait if file is off-line
;PDVOP MANIPULATES PROGRAM DATA VECTORS
;FUNCTION CODES ACCEPTED IN AC1:
DEFSYM .POGET==:0 ;GET A SET OF PDVAS (PROGRAM DATA VECTOR ADDRESSES)
DEFSYM .POADD==:1 ;ADD A SET OF PDVAS
DEFSYM .POREM==:2 ;REMOVE A SET
DEFSYM .PONAM==:3 ;GET NAME OF A PROGRAM
DEFSYM .POVER==:4 ;GET VERSION NUMBER OF A PROGRAM
DEFSYM .POLOC==:5 ;LOCATE PDVS HAVING SPECIFIED NAME
;ARG BLOCK OFFSETS FOR BLOCK ADDRESSED BY AC2
DEFSYM .POCT1==:0 ;SIZE OF ARG BLOCK INCLUDING THIS WORD
DEFSYM .POPHD==:1 ;PROCESS HANDLE
DEFSYM .POCT2==:2 ;SIZE OF DATA BLOCK (AND SIZE OF RETURNED DATA)
DEFSYM .PODAT==:3 ;ADDRESS OF DATA BLOCK
DEFSYM .POADR==:4 ;SMALL ADDRESS OF DATA VECTOR
DEFSYM .POADE==:5 ;LARGE ADDRESS OF DATA VECTOR ADDRESS RANGE
;OFFSETS DEFINED WITHIN PROGRAM DATA VECTORS
DEFSYM .PVCNT==:0 ;Length of vector
DEFSYM .PVNAM==:1 ;Address of a word-aligned ASCIZ program name
DEFSYM .PVSTR==:2 ;Program starting address [OBSOLETE]
DEFSYM .PVEXP==:2 ;Pointer to exported information block
DEFSYM .PVREE==:3 ;Program reenter address
DEFSYM .PVVER==:4 ;Program version number
DEFSYM .PVMEM==:5 ;Address of a block describing program memory
DEFSYM .PVSYM==:6 ;Address of the program symbol table
DEFSYM .PVCTM==:7 ;Time of program compilation
DEFSYM .PVCVR==:10 ;Version number of compiler
DEFSYM .PVLTM==:11 ;Time of program loading
DEFSYM .PVLVR==:12 ;Version number of LINK
DEFSYM .PVMON==:13 ;Address of a monitor data block
DEFSYM .PVPRG==:14 ;Address of a program data block
DEFSYM .PVCST==:15 ;Address of a customer-defined block
;BLOCK DESCRIBING PROGRAM MEMORY (POINTED TO BY WORD .PVMEM)
DEFSYM .MMLEN==:0 ;LENGTH OF TABLE INCLUDING THIS WORD
DEFSYM .MMDAT==:0 ;FIRST SUBTABLE WORD
DEFSYM MM%ACC==:777777_18. ;ACCESS BITS
DEFSYM MM%WR==:1_32. ;WRITABLE (ONLY NAMED BIT IN MM%ACC)
DEFSYM MM%LEN==:777777_0. ;SUBTABLE BLOCK LENGTH
DEFSYM .MMLOW==:1 ;BEGINNING OF CONTIGUOUS BLOCK OF MEMORY
DEFSYM .MMHGH==:2 ;END OF CONTIGUOUS BLOCK OF MEMORY
;PKOPR% DEFINITIONS
;TYPES OF TRANSPORT MEDIA
DEFSYM .PK3MB==:0 ;3MB ETHERNET MEIS
DEFSYM .PK10E==:1 ;10MB ETHERNET MEIS
;FUNCTION CODES
DEFSYM .PKOPN==:0 ;OPEN A CONNECTION
DEFSYM .PKCLZ==:1 ;CLOSE A CONNECTION
DEFSYM .PKSND==:2 ;SEND A PACKET
DEFSYM .PKRCV==:3 ;RECEIVE A PACKET
DEFSYM .PKOWF==:4 ;OPEN A WAIF CONNECTION
DEFSYM .PKCWF==:5 ;CLOSE A WAIF CONNECTION
DEFSYM .PKRWF==:6 ;RECEIVE A WAIF PACKET
DEFSYM .PKSPM==:7 ;SET PROMISCUOUS MODE ON THE INTERFACE
DEFSYM .PKCPM==:10 ;CLEAR PROMISCUOUS MODE ON THE INTERFACE
DEFSYM .PKSLL==:11 ;SET LOCAL LOOPBACK MODE ON THE INTERFACE
DEFSYM .PKCLL==:12 ;CLEAR LOCAL LOOPBACK MODE ON THE INTERFACE
DEFSYM .PKNCT==:13 ;COPY NCT TO USER SPACE
;ARGUMENT BLOCK OFFSETS
DEFSYM .PKLEN==:0 ;COUNT OF WORDS IN BLOCK, INCLUDING THIS WORD
DEFSYM .PKNET==:1 ;NETWORK TYPE CODE
DEFSYM .PKINT==:2 ;LOGICAL NETWORK INTERFACE NUMBER
DEFSYM .PKPRT==:3 ;PROTOCOL TYPE (NETWORK DEPENDENT)
DEFSYM .PKFLG==:4 ;FLAG WORD
DEFSYM PK%MOD==:1_35. ;SET DATA MODE FROM .PKNTD OFFSET
DEFSYM .PKBUF==:5 ;BUFFER ADDRESS
DEFSYM .PKBYT==:6 ;PACKET LENGTH (NETWORK DEPENDENT)
DEFSYM .PKNTD==:7 ;NETWORK DEPENDENT DATA
;PMAP BIT DEFINITIONS
DEFSYM PM%CNT==:1_35. ;RH WORD CONTAINS A COUNT
DEFSYM PM%MVP==:1_34. ;MOVE PAGE INSTEAD OF INDIRECT POINTER
; (NOT IMPLEMENTED
DEFSYM PM%RD==:1_33. ;READ
DEFSYM PM%WT==:1_32. ;WRITE
DEFSYM PM%WR==:1_32. ; (ANOTHER NAME FOR ABOVE)
DEFSYM PM%EX==:1_31. ;EXECUTE (RESERVED FOR THE FUTURE)
DEFSYM PM%RWX==:7_31. ;CONVENIENT ABBREV FOR RD+WT+EX
DEFSYM PM%PLD==:1_30. ;PRELOAD PAGES BEING MAPPED
DEFSYM PM%IND==:1_29. ;USE INDIRECT PTRS (RESERVED FOR THE FUTURE)
DEFSYM PM%TPU==:1_27. ;TRAP TO USER
; (NOT IMPLEMENTED -- OBSOLETE)
DEFSYM PM%CPY==:1_26. ;COPY ON WRITE
DEFSYM PM%EPN==:1_25. ;EXTENDED PAGE NUMBER (18 BITS)
DEFSYM PM%ABT==:1_24. ;ABORT UNMAP.
DEFSYM PM%RPT==:777777_0. ;REPEAT COUNT
;PMCTL - PHYSICAL MEMORY CONTROL
DEFSYM .MCRCE==:0 ;READ CACHE ENABLE
DEFSYM .MCSCE==:1 ;SET CACHE ENABLE
DEFSYM .MCCST==:0 ;ARGLIST OFFSET FOR CACHE STATE
DEFSYM MC%CEN==:1 ;CACHE ENABLED
DEFSYM .MCRPS==:2 ;READ PAGE STATUS
DEFSYM .MCSPS==:3 ;SET PAGE STATUS
DEFSYM .MCPPN==:0 ;ARGLIST OFFSET FOR PHYSICAL PAGE NUMBER
DEFSYM .MCPST==:1 ;ARGLIST OFFSET FOR PAGE STATE
DEFSYM .MCPSA==:0 ;PAGE AVAILABLE
DEFSYM .MCPSS==:1 ;PAGE IN TRANSITION STATE
DEFSYM .MCPSO==:2 ;PAGE OFFLINE
DEFSYM .MCPSE==:3 ;PAGE OFFLINE DUE TO ERROR
DEFSYM .MCRME==:4 ;READ MEMORY ERROR INFORMATION
DEFSYM .PMMER==:1 ;MOS MEMORY ERROR
DEFSYM .PMMTP==:0 ;ENTRY HEADER AND TYPE
DEFSYM .PMMRG==:1 ;ERROR REGISTER
DEFSYM .PMMSY==:2 ;SYNDROME
DEFSYM .PMMBN==:3 ;BLOCK NUMBER
DEFSYM .PMMSB==:4 ;SPARE BIT NUMBER
DEFSYM .PMMEA==:5 ;ERROR ADDRESS
DEFSYM .PMMSN==:6 ;START OF SERIAL NUMBERS
DEFSYM .PMMNS==:4 ;# OF SERIAL NUMBERS TO STORE
;PRARG - PROCESS ARGUMENTS
;FUNCTION CODE DEFINITIONS
DEFSYM .PRARD==:1 ;READ ARGUMENT BLOCK
DEFSYM .PRAST==:2 ;SET ARGUMENT BLOCK
;QUEUE JSYS - ARG AND OFFSET DEFINITIONS
;Definition of a QUEUE% argument block
DEFSYM .QUFNC==:0 ;FLAGS+LENGTH OF RESP BLOCK,,FUNCTION
DEFSYM QF%FLG==:777_27. ;FLAG BITS
DEFSYM QU%NRS==:1_35. ;DON'T WAIT FOR RESPONSE (GOOD OR BAD)
DEFSYM QU%DBG==:1_34. ;WANT TO USE DEBUGGING PID FOR THIS FUNCTION
DEFSYM QF%RSP==:777_18. ;LENGTH OF RESPONSE BLOCK
DEFSYM QF%FNC==:777777_0. ;FUNCTION CODE
DEFSYM .QUPRT==:1 ;PRINT FILE ------
DEFSYM .QUCDP==:2 ;PUNCH CARDS |
DEFSYM .QUPTP==:3 ;PUNCH PAPER TAPE |--FOR FILES
DEFSYM .QUPLT==:4 ;PLOT FILE |
DEFSYM .QUBAT==:5 ;BATCH FILE ------
;CODES 6 & 7 RESERVED FOR TOPS-10
DEFSYM .QUMNT==:10 ;MOUNT VOLUME SET
DEFSYM .QUDIS==:11 ;DISMOUNT VOLUME SET
DEFSYM .QUWTO==:12 ;MESSAGE TO OPERATOR /NOWAIT
DEFSYM .QUWTR==:13 ;MESSAGE TO OPERATOR BUT WAIT FOR RESP
;CODES 14 & 15 RESERVED FOR TOPS-10
DEFSYM .QUCUS==:16 ;USE CUSTOM APPLICATION PID
DEFSYM .QURSP==:1 ;ADDRESS OF RESPONSE BLOCK UNLESS QF.RSP=:0
DEFSYM .QUARG==:2 ;BEGINNING OF ARGUMENT SUB-BLOCKS
DEFSYM .QATYP==:0 ;FIRST WORD OF ARGUMENT SUB-BLOCKS
DEFSYM QA%IMM==:1_35. ;IF BIT IS ON, NEXT WORD IS IMMED. VALUE
;IF OFF, NEXT WORD IS POINTER TO ANOTHER BLOCK
DEFSYM QA%LEN==:777_18. ;LENGTH OF OTHER ARG BLOCK (QA.IMM =: 0)
DEFSYM QA%TYP==:777777_0. ;ARGUMENT TYPE (IN EITHER CASE)
DEFSYM .QADAT==:1 ;DATA IF QA.IMM =: 1,
; ELSE POINTER TO DATA BLOCK
;ARGUMENT SUB-BLOCK TYPES (VALUES POSSIBLE FOR QA.TYP)
DEFSYM .QBFIL==:10 ;FILE-SPEC BLOCK
DEFSYM .QBCOP==:11 ;# OF COPIES
DEFSYM .QBFRM==:12 ;FORMS TYPE
DEFSYM .QBFMT==:13 ;FORMAT OF FILE
DEFSYM .QBFAS==:1 ;ASCII
DEFSYM .QBFFR==:2 ;FORTRAN
DEFSYM .QBFCB==:3 ;COBOL
DEFSYM .QBFAI==:4 ;AUGMENTED IMAGE
DEFSYM .QBFSA==:5 ;STREAM ASCII
DEFSYM .QNF11==:6 ;ELEVEN
DEFSYM .QBFIM==:7 ;IMAGE
DEFSYM .QBF8B==:10 ;8-BIT ASCII
DEFSYM .QBODP==:14 ;OUTPUT DISPOSITION /DISP:
DEFSYM .QBUNT==:15 ;UNIT TYPE /UPPER, /LOWER, /GENERIC, /UNIT:
DEFSYM .QBULC==:1 ;LOWER CASE PRINTER
DEFSYM .QBUUC==:2 ;UPPER CASE PRINTER
DEFSYM .QBUPH==:3 ;PHYSICAL UNIT (UNIT # IN LH)
DEFSYM .QBUGN==:4 ;GENERIC DEVICE
DEFSYM .QBAFT==:16 ;/AFTER: BLOCK
DEFSYM .QBLIM==:17 ;LIMIT BLOCK (/TIME:, /PAGES:,...)
DEFSYM .QBUNQ==:20 ;/UNIQUE BLOCK
DEFSYM .QBUNO==:1 ;NO
DEFSYM .QBUYE==:2 ;YES
DEFSYM .QBRES==:21 ;/RESTART BLOCK
DEFSYM .QBRNO==:1 ;NO
DEFSYM .QBRYE==:2 ;YES
DEFSYM .QBLOG==:22 ;/OUTPUT LOG (LOG, NOLOG, ERROR)
DEFSYM .QBLNL==:1 ;NO LOG FILE
DEFSYM .QBLLG==:2 ;ALWAYS LOG FILE
DEFSYM .QBLLE==:3 ;LOG ONLY ON ERROR
DEFSYM .QBACT==:23 ;/ACCOUNT BLOCK
DEFSYM .QBFNC==:24 ;RESERVED FOR DEC
DEFSYM .QBNOD==:25 ;/NODE BLOCK
DEFSYM .QBNAM==:26 ;SIXBIT USER-NAME BLOCK (12 CHARS MAX)
DEFSYM .QBOID==:27 ;OWNER'S PPN, 36 BIT USED-ID BLOCK
DEFSYM .QBNOT==:30 ;/NOTIFY BLOCK
DEFSYM .QBNTY==:1 ;NOTIFY TERMINAL WHEN JOB COMPLETES
DEFSYM .QBNML==:2 ;RESERVED FOR DEC
DEFSYM .QBNJB==:3 ;RESERVED FOR DEC
DEFSYM .QBBLT==:31 ;/BATLOG: BLOCK
DEFSYM .QBBND==:1 ;APPEND OUTPUT LOG FILE
DEFSYM .QBBDE==:2 ;SUPERSEDE OUTPUT LOG FILE
DEFSYM .QBBSP==:3 ;SPOOL OUTPUT LOG FILE
DEFSYM .QBJBN==:32 ;SIXBIT JOB NAME
DEFSYM .QBCDI==:33 ;CONNECTED DIRECTORY BLOCK (36 BIT DIR-ID)
DEFSYM .QBNTE==:34 ;/NOTE: BLOCK, SIXBIT (12 CHARS MAX)
DEFSYM .QBBGN==:35 ;/BEGIN: BLOCK
DEFSYM .QBPRI==:36 ;/PRIORITY: BLOCK
DEFSYM .QBVSN==:37 ;ASCIZ VOLUME SET NAME
DEFSYM .QBMSG==:40 ;WTO/WTOR MESSAGE BLOCK
DEFSYM .QBTYP==:41 ;PRIVELEGED WTO/WTOR MESSAGE BLOCK
;BLOCK DEFINITIONS FOR MOUNT/DISMOUNT
; JSYS ARG BLOCKS MUST BE ORDERED AS FOLLOWS:
;
; .QBVSN ;VOLUME SET NAME FOR FIRST VOL SET
; .QBXXX ;...
; .QBXXX ;...ANY OF THE FOLLOWING BLOCKS IN ANY ORDER
; .QBXXX ;...
; .QBVSN ;VOL SET NAME FOR NEXT VOL SET...
; .QBXXX ;...
; .QBXXX ;...ANY OF THE FOLLOWING PARAM BLOCKS IN ANY
; .QBXXX ;...ORDER
; . ;...
; .
; .
;
; FOR DISMOUNT, ONLY THE .QBVSN AND .QBMFG BLOCKS ARE VALID,
; AND QUASAR WILL ONLY PROCESS 1 VOLUME SET AT A TIME.
; FOR A /NOTIFY BLOCK, USE .QBNOT
DEFSYM .QBDEN==:42 ;TAPE DENSITY BLOCK
DEFSYM .QBTRK==:43 ;TAPE TRACK BLOCK
DEFSYM .QBDR9==:1 ;WANT 9 TRACK DRIVE
DEFSYM .QBDR7==:2 ;WANT 7 TRACK DRIVE
DEFSYM .QBLTP==:44 ;LABEL TYPE BLOCK
DEFSYM .QBRMK==:45 ;ASCIZ REMARK BLOCK
DEFSYM .QBVOL==:46 ;SIXBIT TAPE VOLUME LIST BLOCK (63 VOLIDS MAX)
DEFSYM .QBLNM==:47 ;VOL SET LOGICAL NAME BLOCK (TOPS-10 ONLY)
DEFSYM .QBMFG==:50 ;MOUNT/DISMOUNT FLAG BLOCK
DEFSYM QB%PAS==:1_35. ;STR TO PASSIVE SEARCH LIST (ACTIVE IS DEF)
DEFSYM QB%EXC==:1_34. ;WANT EXCLUSIVE/SINGLE ACCESS (SHARE IS DEF)
DEFSYM QB%NOC==:1_33. ;WANT /NOCREATE (CREATE IS DEF)
DEFSYM QB%DSK==:1_32. ;THIS IS A STRUCTURE REQUEST (UNKNOWN IS DEF)
DEFSYM QB%TAP==:1_31. ;THIS IS A TAPE REQUEST (UNKNOWN IS DEF)
DEFSYM QB%WLK==:1_30. ;WANT VOL SET WRITE LOCKED
DEFSYM QB%WEN==:1_29. ;WANT VOL SET WRITE ENABLED
DEFSYM QB%REM==:1_28. ;ASK OPR TO REMOVE STR ON DISMOUNT
;Codes 51 and 52 are reserved for TOPS-10 use
DEFSYM .QBDTY==:53 ;Display type (Used with WTO)
DEFSYM .QBCHK==:1 ;BUGCHK display (monitor use only)
DEFSYM .QBINF==:2 ;BUGINF display (monitor use only)
DEFSYM .QBSYS==:3 ;SYSTEM messages (monitor use only)
DEFSYM .QBEVT==:4 ;DECNET EVENT messages
DEFSYM .QBDLK==:5 ;DECNET LINK messages
DEFSYM .QBDMX==:5 ;[7.1248] Set to max display value
DEFSYM .QBSNA==:54 ;SNA PARAMETERS BLOCK
DEFSYM QU%TABS==:1_35. ;Preserve tabs in file
DEFSYM QU%NXL==:1_34. ;Do not translate data
DEFSYM QU%RCL==:777_0. ;Record length
DEFSYM .QBDFG==:55 ;Display flags (used with WTO)
DEFSYM QU%SJI==:1_35. ;Suppress job info
DEFSYM QU%NFO==:1_34. ;Do not format display
DEFSYM QU%NDA==:1_33. ;Do not include dashes in type display
;Response block definitions from Galaxy components
DEFSYM .QRTYP==:0 ;Length,,Type of resp (not used by QUEUE%)
DEFSYM .QRFLG==:1 ;Flags word of response
DEFSYM QU%NTB==:1_34. ;No Text Block in response
DEFSYM QU%CFE==:1_33. ;Component Fatal Error
DEFSYM .QRWD0==:2 ;0 in ACK response ===:|
DEFSYM .QRWD1==:3 ; " |=: (not used by QUEUE%)
DEFSYM .QRWD2==:4 ;1 in ACK response ===:|
DEFSYM .QRLEN==:5 ;Length of text block (in LH)
DEFSYM .QRTXT==:6 ;Beginning of text
;RCUSR AND RCDIR
; FLAGS SUPPLIED ON CALL
DEFSYM RC%PAR==:1_21. ;PARTIAL RECOGNITION IS ALLOWED
DEFSYM RC%STP==:1_20. ;STEP WILDCARD (RCDIR ONLY)
DEFSYM RC%AWL==:1_19. ;ALLOW WILDCARDS (RCDIR ONLY)
DEFSYM RC%EMO==:1_18. ;EXACT MATCH ONLY
; FLAGS RETURNED
DEFSYM RC%DIR==:1_35. ;FILES-ONLY DIRECTORY
DEFSYM RC%ANA==:1_34. ;ALPHANUMERIC ACCOUNTS ALLOWED
DEFSYM RC%RLM==:1_33. ;REPEAT LOGIN MESSAGE
DEFSYM RC%NOM==:1_32. ;NO MATCH FOUND
DEFSYM RC%AMB==:1_31. ;AMBIGUOUS
DEFSYM RC%NMD==:1_30. ;NO MORE DIRS - RETURNED IF STP IS REQUESTED
DEFSYM RC%WLD==:1_29. ;WILDCARD DIR WAS INPUT
;RCVIN - IP receive datagram
;AC1 flags:
DEFSYM RIQ%NW==:1_35. ; Return with Error code -1 if no message is waiting
; Otherwise wait for a message
; Message buffer format:
DEFSYM .INQBH==:0. ; Buffer head, LH set to actual length, RH max length
; Lengths include buffer header (IP + message + .INQIH)
DEFSYM .INQIH==:1. ; First word of IP header and message
;RCVOK
DEFSYM .RCFCJ==:0 ;FUNCTION CODE,, JOB NUMBER
DEFSYM .RCUNO==:1 ;USER NUMBER
DEFSYM .RCCDR==:2 ;CONNECTED DIRECTORY
DEFSYM .RCRQN==:3 ;REQUEST NUMBER
DEFSYM .RCNUA==:4 ;NUMBER OF USER ARGS
DEFSYM .RCARA==:5 ;POINTER TO USER ARGS
DEFSYM .RCCAP==:6 ;CURRENT CAPABILITIES
DEFSYM .RCTER==:7 ;TERMINAL NUMBER
DEFSYM .RCRJB==:10 ;REQUESTED JOB
;RDTTY AND TEXTI
DEFSYM RD%BRK==:1_35. ;BREAK ON REGULAR BREAK SET
DEFSYM RD%TOP==:1_34. ;BREAK ON TOPS10 BREAK SET
DEFSYM RD%PUN==:1_33. ;BREAK ON PUNCTUATION
DEFSYM RD%BEL==:1_32. ;BREAK ON END OF LINE
DEFSYM RD%CRF==:1_31. ;SUPPRESS CR (RETURNS LF ONLY)
DEFSYM RD%RND==:1_30. ;RETURN IF NOTHING TO DELETE
DEFSYM RD%JFN==:1_29. ;JFNS GIVEN FOR SOURCE
DEFSYM RD%RIE==:1_28. ;RETURN ON INPUT (BUFFER) EMPTY
DEFSYM RD%BBG==:1_27. ;BEGINNING OF (DEST) BUFFER GIVEN
DEFSYM RD%BEG==:1_26. ;RETURN IMMEDIATELY WHEN TYPIST EDITS TO .RDBKL
DEFSYM RD%RAI==:1_25. ;RAISE LOWERCASE INPUT
DEFSYM RD%SUI==:1_24. ;SUPPRESS ^U INDICATION
DEFSYM RD%BTM==:1_23. ;BREAK CHARACTER TERMINATED INPUT
DEFSYM RD%BFE==:1_22. ;RETURNED BECAUSE BUFFER EMPTY
DEFSYM RD%BLR==:1_21. ;BACKUP LIMIT REACHED
DEFSYM RD%NED==:1_20. ;DISABLE EDITING CHARACTERS IN USER BREAK MASK
DEFSYM RD%CON==:1_19. ;~6.0 CONTINUATION READ
DEFSYM RD%EMC==:1_18. ;"EMACS MODE". DON'T ECHO BREAK CHARACTERS AND
; ACCEPT NULLS AS INPUT/BREAK CHARACTERS.
;TEXTI ARG BLOCK
DEFSYM .RDCWB==:0 ;COUNT OF WORDS IN BLOCK
DEFSYM .RDFLG==:1 ;FLAGS
DEFSYM .RDIOJ==:2 ;IO JFNS
DEFSYM .RDDBP==:3 ;DEST BYTE POINTER
DEFSYM .RDDBC==:4 ;DEST BYTE COUNT
DEFSYM .RDBFP==:5 ;TOP OF BUFFER POINTER
DEFSYM .RDRTY==:6 ;RETYPE (^R) POINTER
DEFSYM .RDBRK==:7 ;BREAK SET MASK POINTER
DEFSYM .RDBKL==:10 ;BACKUP LIMIT POINTER
;RECV - TCP buffer receive
; The header block format is
DEFSYM .TCPBF==:0. ; Buffer flag word, RH for use by user
DEFSYM TCP%ER==:1_35. ; ERROR
DEFSYM TCP%LE==:1_34. ; Local error flag (0 is remote)
DEFSYM TCP%PE==:1_33. ; Permanent error (0 is temporary)
DEFSYM TCP%EC==:37_28. ; Error code w/o flags
DEFSYM TCP%DN==:1_23. ; DONE
DEFSYM TCP%UR==:1_20. ; URGENT data
DEFSYM TCP%EL==:1_19. ;obsolete ; PUSH buffered data
DEFSYM TCP%PU==:1_19. ; PUSH buffered data
DEFSYM TCP%WM==:1_18. ; WORD mode (unimplemented)
DEFSYM .TCPBA==:1. ; Buffer address, data in bits 0-31
DEFSYM .TCPBC==:2. ; Buffer octet count
; Octets to send, octets unsent (SEND)
; Octets available, octets unused (RECV)
DEFSYM .TCPBO==:3. ; Buffer option addresses
DEFSYM .TCPOW==:10. ; Buffer option address word count
DEFSYM .TCPBI==:4. ; Buffer IP info
DEFSYM .TCPBS==:5. ; Size of buffer header
;RFSTS
DEFSYM RF%LNG==:1_35. ;LONG FORM OF RFSTS CALL, ARG BLOCK IN 2
DEFSYM RF%PRH==:777777_0. ;PROCESS HANDLE
;RFSTS ARG BLOCK
DEFSYM .RFCNT==:0 ;XWD COUNT OF WORDS RETURNED,
; MAXIMUM WORDS TO RETURN
DEFSYM .RFPSW==:1 ;PROCESS STATUS WORD
DEFSYM .RFPFL==:2 ;PROCESS' PC FLAGS
DEFSYM .RFPPC==:3 ;PROCESS' PC
DEFSYM .RFSFL==:4 ;STATUS FLAGS FOR PROCESS:
DEFSYM RF%EXO==:1_35. ;PROCESS IS EXECUTE-ONLY
;PROCESS STATUS WORD
DEFSYM RF%FRZ==:1_35. ;PROCESS IS FROZEN
DEFSYM RF%STS==:377777_18. ;PROCESS STATUS CODE
DEFSYM .RFRUN==:0 ;RUNNABLE
DEFSYM .RFIO==:1 ;DISMISSED FOR I/O
DEFSYM .RFHLT==:2 ;HALTED
DEFSYM .RFFPT==:3 ;FORCED PROCESS TERMINATION
DEFSYM .RFWAT==:4 ;WAITING FOR INFERIOR PROCESS
DEFSYM .RFSLP==:5 ;SLEEP
DEFSYM .RFTRP==:6 ;JSYS TRAPPED
DEFSYM .RFABK==:7 ;ADDRESS BREAK FREEZE
DEFSYM .RFSIG==:10 ;SIGNAL JFN FREEZE
DEFSYM RF%SIC==:777777_0. ;SOFTWARE INTERRUPT CHANNNEL
;RFTAD/SFTAD
DEFSYM .RSWRT==:0 ;WRITE DATE WORD
DEFSYM .RSCRV==:1 ;CREATION DATE WORD
DEFSYM .RSREF==:2 ;REFERENCE DATE WORD
DEFSYM .RSCRE==:3 ;INTERNAL SYSTEM WRITE DATE WORD
DEFSYM .RSTDT==:4 ; Tape write date word
DEFSYM .RSNET==:5 ; Online expiration date/interval word
DEFSYM .RSFET==:6 ; Offline expiration date/interval word
;RMAP
DEFSYM RM%RD==:1_33. ;READ ACCESS ALLOWED
DEFSYM RM%WR==:1_32. ;WRITE ACCESS ALLOWED
DEFSYM RM%EX==:1_31. ;EXECUTE ACCESS ALLOWED
DEFSYM RM%PEX==:1_30. ;PAGE EXISTS
DEFSYM RM%CPY==:1_26. ;COPY ON WRITE
;RSMAP/SMAP
DEFSYM SM%RD==:1_33. ;READ ACCESS ALLOWED
DEFSYM SM%WR==:1_32. ;WRITE ACCESS ALLOWED
DEFSYM SM%EX==:1_31. ;EXECUTE ACCESS ALLOWED
DEFSYM SM%RWX==:SM%RD\SM%WR\SM%EX ;CONVENIENT ABBREV FOR RD+WT+EX
DEFSYM SM%IND==:1_29. ;INDIRECT POINTER
;RPACS/SPACS BIT DEFINITIONS
DEFSYM PA%RD==:1_33. ;READ ACCESS ALLOWED
DEFSYM PA%WT==:1_32. ;WRITE ACCESS ALLOWED
DEFSYM PA%WR==:1_32. ; (ANOTHER NAME FOR ABOVE)
DEFSYM PA%EX==:1_31. ;EXECUTE ACCESS ALLOWED
; (RESERVED FOR THE FUTURE)
DEFSYM PA%PEX==:1_30. ;PAGE EXISTS
DEFSYM PA%IND==:1_29. ;INDIRECT POINTER
DEFSYM PA%TPU==:1_27. ;TRAP TO USER
; (NOT IMPLEMENTED -- OBSOLETE)
DEFSYM PA%CPY==:1_26. ;COPY ON WRITE
DEFSYM PA%PRV==:1_25. ;PRIVATE
DEFSYM P1%RD==:1_15. ;READ ACCESS ALLOWED IN 1ST POINTER
DEFSYM P1%WR==:1_14. ;WRITE ACCESS ALLOWED IN 1ST POINTER
DEFSYM P1%WT==:1_14. ; (ANOTHER NAME FOR ABOVE)
DEFSYM P1%EX==:1_13. ;EXECUTE ACCESS ALLOWED IN 1ST POINTER
; (RESERVED FOR THE FUTURE)
DEFSYM P1%PEX==:1_12. ;PAGE EXISTS IN 1ST POINTER
DEFSYM P1%CPY==:1_8. ;COPY-ON-WRITE IN 1ST POINTER
;RSCAN
DEFSYM .RSINI==:0 ;MAKE RESCAN BUFFER AVAILABLE FOR INPUT
DEFSYM .RSCNT==:1 ;COUNT CHARACTERS LEFT TO READ FROM RESCAN BUFFER
;RTIW
DEFSYM RT%DIM==:1_35. ;DEFERRED TERMINAL INTERRUPT MASK GIVEN
DEFSYM RT%PRH==:777777 ;PROCESS HANDLE
;SCTTY
DEFSYM .SCRET==:0 ;RETURN DESIGNATOR (CTTY) FOR FORK
DEFSYM .SCSET==:1 ;SET SCTTY FOR FORK
DEFSYM .SCRST==:2 ;CLEAR FORK CTTY (RESTORE JOB CTTY)
;SCVEC
DEFSYM .SVEAD==:0 ;ENTRY ADDRESS
DEFSYM .SVINE==:1 ;INITIAL ENTRY FOR SETUP
DEFSYM .SVGET==:2 ;ENTRY ADDRESS FOR GET SHARE FILE ROUTINE
DEFSYM .SV40==:3 ;ADDRESS TO GET LOCATION 40
DEFSYM .SVRPC==:4 ;ADDRESS TO GET RETURN PC
DEFSYM .SVMAK==:5 ;ENTRY FOR MAKE SHARE FILE ROUTINE
DEFSYM .SVCST==:6 ;2 WORD BLOCK FOR CONTROL-C/START PROCESSING
;SDVEC
DEFSYM .SDEAD==:0 ;ENTRY ADDRESS
DEFSYM .SDINE==:1 ;INITIAL ENTRY
DEFSYM .SDVER==:2 ;DMS VERSION
DEFSYM .SDDMS==:3 ;ADDRESS TO STORE DMS JSYS
DEFSYM .SDRPC==:4 ;ADDRESS TO STORE RETURN PC
;SETJB FUNCTION CODES
DEFSYM .SJDEN==:0 ;SET DEFAULT MAGTAPE DENSITY
DEFSYM .SJDDN==:0 ;SYSTEM DEFAULT DENSITY
DEFSYM .SJDN2==:1 ;200 BPI
DEFSYM .SJDN5==:2 ;556 BPI
DEFSYM .SJDN8==:3 ;800 BPI
DEFSYM .SJD16==:4 ;1600 BPI
DEFSYM .SJD62==:5 ;6250 BPI
DEFSYM .SJPAR==:1 ;SET DEFAULT MAGTAPE PARITY
DEFSYM .SJPRO==:0 ;ODD PARITY
DEFSYM .SJPRE==:1 ;EVEN PARITY
DEFSYM .SJDM==:2 ;SET DEFAULT MAGTAPE DATA MODE
DEFSYM .SJDDM==:0 ;SYSTEM DEFAULT DATA MODE
DEFSYM .SJDMC==:1 ;CORE DUMP MODE
DEFSYM .SJDM6==:2 ;SIX BIT BYTE MODE (FOR 7-TRACK DRIVES)
DEFSYM .SJDMA==:3 ;ANSI ASCII MODE (7 BITS IN 8 BIT BYTE)
DEFSYM .SJDM8==:4 ;INDUSTRY COMPATIBLE MODE
DEFSYM .SJDMH==:5 ;HI-DENSITY MODE (9 EIGHT BIT
; BYTES IN 2 WORDS)
DEFSYM .SJRS==:3 ;SET DEFAULT MAGTAPE RECORD SIZE
DEFSYM .SJDFS==:4 ;SET DEFERRED SPOOLING
DEFSYM .SJSPI==:0 ;IMMEDIATE MODE SPOOLING
DEFSYM .SJSPD==:1 ;DEFERRED MODE SPOOLING
DEFSYM .SJSRM==:5 ;SET JOB SESSION REMARK
DEFSYM .SJT20==:6 ;DECLARE WHETHER TOPS20 COMMAND LEVEL OR NOT
DEFSYM .SJDFR==:7 ; Set default job retrieval mode
DEFSYM .SJRFA==:0 ; OPENF should always fail
DEFSYM .SJRWA==:1 ; OPENF should always request & wait
DEFSYM .SJBAT==:10 ;SET BATCH FLAGS AND STREAM
;SEE .JIBCH FOR FIELD DEFINITIONS
DEFSYM .SJLLO==:11 ;SET JOB LOCATION
DEFSYM .SJBSN==:12 ;[7258]Set batch sequence number
DEFSYM .SJBJN==:13 ;[7258]Set batch Job name
DEFSYM .SJBID==:14 ;[7258]Set batch request ID
;SFORK
DEFSYM SF%CON==:1_35. ;CONTINUE PROCESS, IGNORE PC IN AC2
DEFSYM SF%PRH==:777777_0. ;PROCESS HANDLE
;SFPTR
DEFSYM SF%LSN==:1_35. ;[7322]LSN flag bit, 1=:include 0=:ignore
;SFUST
DEFSYM .SFAUT==:0 ;SET AUTHOR STRING
DEFSYM .SFLWR==:1 ;SET LAST WRITER STRING
;SMON FUNCTION CODES AND BIT DEFINITIONS (SYSTEM FLAGS)
DEFSYM .SFFAC==:0 ;ALLOW FACT ENTRIES
DEFSYM .SFCDE==:1 ;CHECKDISK FOUND ERRORS
DEFSYM .SFCDR==:2 ;CHECKDISK RUNNING
DEFSYM .SFMST==:3 ;MANUAL START IN PROGRESS
DEFSYM .SFRMT==:4 ;REMOTE LOGINS ALLOWED
DEFSYM .SFPTY==:5 ;PTY LOGINS ALLOWED
DEFSYM .SFCTY==:6 ;CTY LOGIN ALLOWED
DEFSYM .SFOPR==:7 ;OPERATOR IN ATTENDANCE
DEFSYM .SFLCL==:10 ;LOCAL LOGINS ALLOWED
DEFSYM .SFBTE==:11 ;BIT TABLE ERRORS FOUND ON STARTUP
DEFSYM .SFCRD==:12 ;USER CAN CHANGE DIRECTORY CHARACTERISTICS
DEFSYM .SFNVT==:13 ;TOPS20AN ;NVT LOGIN ALLOWED
DEFSYM .SFWCT==:14 ;WHEEL LOGIN ON CTY ALLOWED
DEFSYM .SFWLC==:15 ;WHEEL LOGIN ON LOCAL TERMINALS ALLOWED
DEFSYM .SFWRM==:16 ;WHEEL LOGIN ON REMOTE TERMINALS ALLOWED
DEFSYM .SFWPT==:17 ;WHEEL LOGIN ON PTY'S ALLOWED
DEFSYM .SFWNV==:20 ;TOPS20AN ;WHEEL LOGIN ON NVT'S ALLOWED
DEFSYM .SFUSG==:21 ;USAGE FILE IN USE
DEFSYM .SFFLO==:22 ;FULL LATENCY OPTIMIZATION
;CAUTION: SETTING THIS REQUIRES THAT THE
; SYSTEM BE AT REVISION LEVEL 10, AND
; THAT RH20 BOARD M8555 BE AT REVISION LEVEL D.
; OTHERWISE, THE FILE-SYSTEM MAY BE DAMAGED.
DEFSYM .SFMTA==:23 ;MAGTAPE ALLOCATION ENABLED
DEFSYM .SFMS0==:24 ;SYSTEM MESSAGE LEVEL 0
DEFSYM .SFMS1==:25 ;SYSTEM MESSAGE LEVEL 1
DEFSYM .SFBGS==:26 ;CTY OUTPUT MESSAGES
DEFSYM .SFMCB==:27 ;DECNET LOGINS ALLOWED
DEFSYM .SFDPR==:30 ;Disk preallocation enabled
DEFSYM .SFLAT==:31 ;[7327]LAT LOGINs are allowed.
DEFSYM .SFWLT==:32 ;[7327]WHEEL LOGINs on LAT terminals are allowed
;BELOW ARE FUNCTION CODES THAT DO NOT MAP DIRECTLY INTO BITS
DEFSYM .SFNTN==:44 ;TOPS20AN ;NETWORK ON/OFF CONTROL
DEFSYM .SFNDU==:45 ;TOPS20AN ;NET DOWN/UP REQUEST
DEFSYM .SFNHI==:46 ;TOPS20AN ;NET HOST TABLE INITIALIZE
DEFSYM .SFTMZ==:47 ;SET TIME ZONE THIS SYSTEM IS IN
DEFSYM .SFLHN==:50 ;TOPS20AN ;SET LOCAL HOST NUMBER OF THIS NET SITE
DEFSYM .SFAVR==:51 ;ACCOUNT VALIDATION ON/OFF
DEFSYM .SFSTS==:52 ;ENABLE/DISABLE STATUS REPORTING
DEFSYM .SFSOK==:53 ;GETOK/GIVOK DEFAULT SETTING
DEFSYM .SFMCY==:54 ;SET MAX ORDINARY OFFLINE EXP PERIOD
DEFSYM .SFRDU==:55 ;READ DATE UPDATE FUNCTION
DEFSYM .SFACY==:56 ;SET MAX ARCHIVE EXP PERIOD
DEFSYM .SFRTW==:57 ;SET [NO] RETRIEVAL WAITS NON-0 =: NO WAIT
DEFSYM .SFTDF==:60 ;TAPE MOUNT CONTROLS
DEFSYM MT%UUT==:1_35. ;UNLOAD UNREADABLE TAPES
DEFSYM .SFWSP==:61 ;WORKING SET PRELOADING
DEFSYM .SFDST==:62 ;Daylight Saving Time method
DEFSYM .DSTAU==:0 ;Perform automatic DST changeover
DEFSYM .DSTNV==:1 ;Never perform DST conversion
DEFSYM .DSTAL==:2 ;Always perform DST conversion
; SMON CODE 63 IS CURRENTLY UNUSED
DEFSYM .SFMSD==:64 ;SET DISK DRIVE (UN)AVAILABLE FOR MSCP SERVER
DEFSYM .SVCNT==:0 ;COUNT OF WORDS IN BLOCK
DEFSYM .SVTYP==:1 ;DRIVE TYPE AND FLAGS
DEFSYM SV%DDU==:1_35. ;DRIVE IS TO BE UNAVAILABLE
DEFSYM .SVDSH==:2 ;HIGH ORDER SERIAL NUMBER
DEFSYM .SVDSN==:3 ;LOW ORDER SERIAL NUMBER
DEFSYM .SFSPR==:65 ;SET SPEAR EVENT COUNTER
DEFSYM .SFCOT==:66 ;CARRIER OFF TIME
DEFSYM .SFHU0==:67 ;HANGUP ACTION IF NOT LOGGED IN
DEFSYM .SFHU1==:70 ;HANGUP ACTION IF LOGGED IN
DEFSYM .SFXEC==:71 ;EXEC FLAGS WORD
DEFSYM XC%FST==:1_35. ; DON'T ALLOW /FAST OPTION TO LOGIN
DEFSYM .SFSEA==:72 ;SET ETHERNET ADDRESS
DEFSYM .SFDCD==:73 ;SET DON'T CARE DISK
DEFSYM .SFLTS==:74 ;SET LAT-STATE
DEFSYM .SFCLU==:75 ;[7.1076] Enabling/disabling CLUDGR SYSAP
DEFSYM .SFTMG==:76 ;[7.1076] Enabling/disabling remote send alls
DEFSYM .SFOFS==:77 ;[7.1063]Set offline structures timer
DEFSYM .SFLGS==:100 ;[7.1112]Set Login Structure state
DEFSYM .SFMPL==:101 ;[7.1231] Minimum password length
DEFSYM .SDF%C==:7777_24. ;CHANNEL FORMAT
DEFSYM .SDF%K==:7777_12. ;CONTROLLER FORMAT
DEFSYM .SDF%U==:7777_0. ;UNIT FORMAT
;DEFINITIONS FOR .SFDCD ARE THE SAME AS CODE 64
DEFSYM SF%FAC==:1_<35.-.RADIX10.,<.SFFAC>> ;FACT ENTRIES ALLOWED
;DEFSYM SF%CDE==:1_<35.-.RADIX10.,<.SFCDE>> ;CHECKDISK FOUND ERRORS
;DEFSYM SF%CDR==:1_<35.-.RADIX10.,<.SFCDR>> ;CHECKDISK RUNNING
;DEFSYM SF%MST==:1_<35.-.RADIX10.,<.SFMST>> ;MANUAL START IN PROGRESS
;DEFSYM SF%RMT==:1_<35.-.RADIX10.,<.SFRMT>> ;REMOTE LOGINS ALLOWED
;DEFSYM SF%PTY==:1_<35.-.RADIX10.,<.SFPTY>> ;PTY LOGINS ALLOWED
;DEFSYM SF%CTY==:1_<35.-.RADIX10.,<.SFCTY>> ;CTY LOGIN ALLOWED
;DEFSYM SF%OPR==:1_<35.-.RADIX10.,<.SFOPR>> ;OPERATOR IN ATTENDANCE
;DEFSYM SF%LCL==:1_<35.-.RADIX10.,<.SFLCL>> ;LOCAL LOGINS ALLOWED
;DEFSYM SF%BTE==:1_<35.-.RADIX10.,<.SFBTE>> ;BIT TABLE ERRORS FOUND ON STARTUP
;DEFSYM SF%CRD==:1_<35.-.RADIX10.,<.SFCRD>> ;USER CAN CHANGE DIRECTORY CHARACTERISTICS
;DEFSYM SF%NVT==:1_<35.-.RADIX10.,<.SFNVT>> ;TOPS20AN ;NVT LOGINS ALLOWED
;DEFSYM SF%USG==:1_<35.-.RADIX10.,<.SFUSG>> ;USAGE FILE IN USE
;DEFSYM SF%FLO==:1_<35.-.RADIX10.,<.SFFLO>> ;FULL LATENCY OPTIMIZATION IN USE
;CAUTION: SETTING THIS REQUIRES THAT THE
; SYSTEM BE AT REVISION LEVEL 10, AND
; THAT RH20 BOARD M8555 BE AT REVISION LEVEL D.
; OTHERWISE, THE FILE-SYSTEM MAY BE DAMAGED.
;DEFSYM SF%MTA==:1_<35.-.RADIX10.,<.SFMTA>> ;MAGTAPE ALLOCATION ENABLED
;DEFSYM SF%MS0==:1_<35.-.RADIX10.,<.SFMS0>> ;SYSTEM MESSAGE LEVEL 0
;DEFSYM SF%MS1==:1_<35.-.RADIX10.,<.SFMS1>> ;SYSTEM MESSAGE LEVEL 1
DEFSYM SF%BGS==:1_<35.-.RADIX10.,<.SFBGS>> ;CTY OUTPUT MESSAGES
DEFSYM SF%MCB==:1_<35.-.RADIX10.,<.SFMCB>> ;DECNET LOGINS ALLOWED
DEFSYM SF%DPR==:1_<35.-.RADIX10.,<.SFDPR>> ;Disk preallocation enabled
DEFSYM SF%LAT==:1_<35.-.RADIX10.,<.SFLAT>> ;[7327]LAT LOGINs
DEFSYM SF%EOK==:1_35. ;ENABLE ACCESS CHECKING
DEFSYM SF%DOK==:1_34. ;ALLOW ACCESS IF CHECKING DISABLED
;SINM JSYS DEFINITIONS
DEFSYM SI%TMG==:1_35. ;TRUNCATE MESSAGE
DEFSYM SI%EOM==:1_34. ;END-OF-MESSAGE FOUND
;SIR JSYS (NEW FORM)
DEFSYM SI%VER==:7_18. ;VERSION OF SIR IN T1
DEFSYM SI%LEV==:77_30. ;LEVEL FIELD IN CHNTAB
DEFSYM SI%ADR==:7777,,-1 ;ADDRESS OF INTERRUPT ROUTINE IN CHNTAB
;SKED JSYS
DEFSYM .SACNT==:0 ;ARGUMENT BLOCK OFFSET FOR COUNT
;FUNCTION CODES
DEFSYM .SKRBC==:1 ;READ BIAS CONTROL KNOB
DEFSYM .SAKNB==:1 ;OFFSET FOR KNOB VALUE
DEFSYM .SKSBC==:2 ;SET BIAS CONTROL KNOB
DEFSYM .SKRCS==:3 ;READ SHARE OF A CLASS
DEFSYM .SACLS==:1 ;CLASS
DEFSYM .SASHR==:2 ;SHARE
DEFSYM .SAUSE==:3 ;USE
DEFSYM .SA1ML==:4 ;1 MINUTE LOAD AVERAGE
DEFSYM .SA5ML==:5 ;5 MINUTE LOAD AVERAGE
DEFSYM .SA15L==:6 ;15 MINUTE LOAD
DEFSYM .SKSCS==:4 ;SET SHARE OF A CLASS
DEFSYM .SKICS==:5 ;START OR STOP CLASS SCHEDULING
DEFSYM .SACTL==:1 ;WORD FOR CONTROL BITS
DEFSYM .SKSCJ==:6 ;SET CLASS OF A JOB
DEFSYM .SAJOB==:1 ;JOB
DEFSYM .SAJCL==:2 ;CLASS OF JOB
DEFSYM .SAWA==:3 ;WA ON/OFF SWITCH
DEFSYM .SKRJP==:7 ;READ CLASS PARAMETERS FOR A JOB
DEFSYM .SAJSH==:3 ;JOB'S SHARE ALLOTMENT
DEFSYM .SAJUS==:4 ;JOB'S CURRENT USE
DEFSYM .SACSH==:5 ;JOB'S CLASS SHARE
DEFSYM .SACLU==:6 ;JOB'S CLASS UTILIZATION
DEFSYM .SKBCR==:10 ;READ CLASS SETTING FOR BATCH JOBS
DEFSYM .SABCL==:1 ;BATCH CLASS
DEFSYM .SKBCS==:11 ;SET CLASS FOR BATCH JOBS
DEFSYM .SKBBG==:12 ;RUN BATCH JOBS ON DREGS QUEUE
DEFSYM .SADRG==:1 ;WORD TO SPECIFY DREGS OR NOT
DEFSYM .SKDDC==:13 ;SET SYSTEM CLASS DEFAULT
DEFSYM .SADCL==:1 ;DEFAULT CLASS WORD
DEFSYM .SKRCV==:14 ;READ STATUS
DEFSYM SK%ACT==:1_35. ;CLASS BY ACCOUNTS
DEFSYM SK%WDF==:1_34. ;WITHHOLD WINDFALL
DEFSYM SK%STP==:1_33. ;CLASS SCHEDULER OFF
DEFSYM SK%DRG==:1_32. ;BATCH JOBS ARE BEING RUN ON DREGS QUEUE
;SJPRI, SPRIW - PRIORITY WORD
DEFSYM JP%RTG==:177_18. ;RUN TIME GUARANTEE PERCENTAGE
DEFSYM JP%SYS==:1_17. ;SYSTEM FORK (PRIORITY ABOVE ALL CLASSES)
DEFSYM JP%MNQ==:77_6. ;MINIMUM QUEUE
DEFSYM JP%MXQ==:77_0. ;MAXIMUM QUEUE
;SNOOP JSYS DEFINITIONS
;SNOOP FUNCTION CODES
DEFSYM .SNPLC==:0 ;LOCK CODE INTO MONITOR VIRT MEMORY
DEFSYM .SNPLS==:1 ;LOCK DOWN THE SWAPPABLE MONITOR
DEFSYM .SNPDB==:2 ;DEFINE A BREAK POINT
DEFSYM .SNPIB==:3 ;INSERT THE BREAK POINTS
DEFSYM .SNPRB==:4 ;REMOVE THE BREAK POINTS
DEFSYM .SNPUL==:5 ;UNLOCK AND RELEASE ALL SNOOP RESOURCES
DEFSYM .SNPSY==:6 ;LOOK UP A MONITOR SYMBOL
DEFSYM .SNPAD==:7 ;LOOK UP ADDRESS IN SYMBOL TABLE
;SOUTM JSYS DEFINITIONS
DEFSYM SO%WMG==:1_35. ;WRITE END-OF-MESSAGE
;SPLFK JSYS DEFINITIONS
DEFSYM SF%EXT==:1_35. ;SPLFK EXTENDED FUNCTION
;DEFINITION FOR SF%CON IS AT SFORK ABOVE
DEFSYM SF%GO==:1_34. ;FLAG TO START AT ENTRY VECTOR ADDRESS
DEFSYM SF%ADR==:1_33. ;FLAG TO START AT PC ADDRESS
DEFSYM .SFLEN==:0 ;LENGTH OF ARGUMENT BLOCK
DEFSYM .SFCOD==:1 ;FUNCTION CODE
DEFSYM .SFUNS==:1 ;UNSPLICE AND START FUNCTION
DEFSYM .SFUIN==:2 ;NEW INFERIOR
DEFSYM .SFUFL==:3 ;FLAGS
DEFSYM .SFUA1==:4 ;ENTRY VECTOR ADDRESS OR PC FLAGS
DEFSYM .SFUA2==:5 ;PC ADDRESS
;SPOOL JSYS FUNCTION CODES
DEFSYM .SPLDI==:0 ;DEFINE AN INPUT SPOOLING DEVICE
DEFSYM .SPLSD==:1 ;SET DIRECTORY OF SPOOLED DEVICE
DEFSYM .SPLRD==:2 ;READ DIRECTORY OF SPOOLED DEVICE
;FLAGS IN SPOOL MESSAGE ON LOGOUT AND SPOOLED FILE CLOSE
DEFSYM SP%BAT==:1_35. ;JOB IS A BATCH JOB
DEFSYM SP%DFS==:1_34. ;SPOOLING IS DEFERRED
DEFSYM SP%ELO==:1_33. ;JOB EXECUTED LGOUT JSYS ITSELF
DEFSYM SP%FLO==:1_32. ;JOB FORCED TO LOG OUT BY TRAP IN TOP FK
DEFSYM SP%OLO==:1_31. ;OTHER JOB AIMED LGOUT AT THIS ONE
;SPOOL ARGUMENT BLOCK
DEFSYM .SPLDV==:0 ;DEVICE DESIGNATOR
DEFSYM .SPLNA==:1 ;NAME STRING
DEFSYM .SPLDR==:1 ;DIRECTORY NUMBER
DEFSYM .SPLGN==:2 ;GENERATION NUMBER
;SSAVE
DEFSYM SS%NNP==:777777_18. ;NEGATIVE NUMBER OF PAGES
DEFSYM SS%CPY==:1_17. ;ALLOW COPY-ON-WRITE
DEFSYM SS%UCA==:1_16. ;USE CURRENT ACCESS
DEFSYM SS%RD==:1_15. ;ALLOW READ ACCESS
DEFSYM SS%WR==:1_14. ;ALLOW WRITE ACCESS
DEFSYM SS%EXE==:1_13. ;ALLOW EXECUTE ACCESS
DEFSYM SS%EPN==:1_12. ;TABLE ENTRY IS TWO WORDS (PAGE NUMBER IN SECOND WORD)
DEFSYM SS%FPN==:1_8.+377_0. ;FIRST PAGE NUMBER
;STCMP
DEFSYM SC%LSS==:1_35. ;T1 LESS THAN T2
DEFSYM SC%SUB==:1_34. ;T1 SUBSTRING OF T2
DEFSYM SC%GTR==:1_33. ;T1 GREATER THAN T2
;STDIR
DEFSYM ST%DIR==:1_35. ;FILES ONLY DIRECTORY
DEFSYM ST%ANA==:1_34. ;ALPHANUMERIC ACCOUNTS
DEFSYM ST%RLM==:1_33. ;REPEAT LOGIN MESSAGE
;STIW
DEFSYM ST%DIM==:1_35. ;SET DEFERRED INTERRUPT MASK
DEFSYM ST%PRH==:777777_0. ;PROCESS HANDLE
;SWTRP DEFINITIONS
DEFSYM SW%NMI==:1_35. ;NO MONITOR INTERVENTION (KC ONLY)
DEFSYM .SWART==:0 ;SET ARITHMETIC TRAP
DEFSYM .SWRAT==:1 ;READ ARITHMETIC TRAP
DEFSYM .SWLUT==:2 ;SET LUUO ADDRESS
DEFSYM .SWRLT==:3 ;READ LUUO ADDRESS
DEFSYM .SWSPD==:4 ;SET PDL OVERFLOW TRAP
DEFSYM .SWRPD==:5 ;READ PDL OVERFLOW TRAP
DEFSYM .ARPFL==:0 ;OFFSET IN TRAP BLOCK FOR PC FLAGS
DEFSYM .AROPC==:1 ;OFFSET FOR OLD PC VALUE
DEFSYM .AREFA==:2 ;OFFSET FOR E
DEFSYM .ARNPC==:3 ;OFFSET FOR NEW PC WORD
;TBADD AND TBDEL
DEFSYM TB%ABR==:1_35. ;ABBREVIATIONS PRESENT IN KEYWORD TABLE
;TBLUK
DEFSYM TL%NOM==:1_35. ;NO MATCH
DEFSYM TL%AMB==:1_34. ;AMBIGUOUS
DEFSYM TL%ABR==:1_33. ;LEGAL ABBREVIATION
DEFSYM TL%EXM==:1_32. ;EXACT MATCH
;TFORK
;FUNCTION CODES IN LH AC1
DEFSYM .TFSET==:0 ;SET TRAPS AS SPEC'D BY BIT TABLE
DEFSYM .TFRAL==:1 ;REMOVE ALL TRAPS SET BY THIS FORK
DEFSYM .TFRTP==:2 ;REMOVE TRAPS SET BY THIS FORK
DEFSYM .TFSPS==:3 ;SET JSYS TRAP PSI CHAN IN LH(2)
DEFSYM .TFRPS==:4 ;READ JSYS TRAP PSI CHAN INTO LH(2)
DEFSYM .TFTST==:5 ;TEST IF SELF MONITORED
DEFSYM .TFRES==:6 ;REMOVE TRAPS FROM ALL INFERIORS, CLR PSI
DEFSYM .TFUUO==:7 ;SET UUO TRAPS FOR FORK
DEFSYM .TFSJU==:8 ;SET BOTH UUO AND JSYS TRAPS
DEFSYM .TFRUU==:9 ;REMOVE UUO TRAPS
;TIMER DEFINITIONS
DEFSYM .TIMRT==:0 ;SET TIME LIMIT
DEFSYM .TIMEL==:1 ;SET ELAPSED TIME CLOCK
DEFSYM .TIMDT==:2 ;SET DATE & TIME CLOCK
DEFSYM .TIMDD==:3 ;DELETE AN EXPLICT DATE & TIME CLOCK
DEFSYM .TIMBF==:4 ;DELETE ALL ENTIRES BEFORE D&T
DEFSYM .TIMAL==:5 ;DELETE ALL (INCLUDES TIME LIMIT)
;TLINK
DEFSYM TL%CRO==:1_35. ;CLEAR REMOTE TO OBJECT LINK
DEFSYM TL%COR==:1_34. ;CLEAR OBJECT TO REMOTE LINK
DEFSYM TL%EOR==:1_33. ;ESTABLIST OBJECT TO REMOTE LINK
DEFSYM TL%ERO==:1_32. ;ESTABLISH REMOTE TO OBJECT LINK
DEFSYM TL%SAB==:1_31. ;SET ACCEPT BIT FOR OBJECT
DEFSYM TL%ABS==:1_30. ;ACCEPT BIT STATE
DEFSYM TL%STA==:1_29. ;SET OR CLEAR ADVICE
DEFSYM TL%AAD==:1_28. ;ACCEPT ADVICE
DEFSYM TL%WHO==:1_18. ;SHOW LINKS
DEFSYM TL%OBJ==:777777_0. ;OBJECT DESIGNATOR
;TTMSG
DEFSYM TT%REM==:1_34. ;[7.1076] Remote send indicator
DEFSYM .TTCIN==:37_18. ;[7.1076] CI node designator
DEFSYM .CSALL==:37_18. ;[7.1076] Send to all nodes mnemonic
DEFSYM .TTTTY==:777777_0. ;[7.1076] Terminal destined for message
;UFPGS
DEFSYM UF%NOW==:1_35. ;NO WAIT ON UPDATE
DEFSYM UF%FSH==:1_34. ;[7.1081] Flush incore copy of pages
;UTEST FUNCTION CODES
DEFSYM .UTSET==:0 ;START TESTING
DEFSYM .UTCLR==:1 ;STOP TESTING AND RETURN RESULTS
;UTEST ARGUMENT BLOCK
DEFSYM .UTADR==:0 ;STARTING ADDRESS OF CODE
DEFSYM .UTLEN==:1 ;LENGTH OF CODE
DEFSYM .UTMAP==:2 ;START OF BIT MAP
;USAGE
DEFSYM .USENT==:0 ;WRITE ENTRY
DEFSYM .USCLS==:1 ;CLOSE OUT CURRENT FILE
DEFSYM .USCKP==:2 ;PERFORM CHECKPOINT
DEFSYM .USLGI==:3 ;LOGIN
DEFSYM .USLGO==:4 ;LOGOUT
DEFSYM .USSEN==:5 ;SESSION END
DEFSYM .USCKI==:6 ;SET CHECKPOINT INTERVAL
DEFSYM .USENA==:7 ;ENABLE ACCOUNT VALIDATION
DEFSYM .USCAS==:10 ;CHANGE ACCOUNTING SHIFT NOW
DEFSYM .USSAS==:11 ;SET AUTOMATIC ACCOUNTING SHIFT CHANGE TIMES
DEFSYM .USRAS==:12 ;READ AUTOMATIC ACCOUNTING SHIFT CHANGE TIMES
;TABLE ENTRY FORMAT FOR .USSAS/.USRAS:
DEFSYM US%DOW==:177_29. ;DAY-OF-WEEK BITS
DEFSYM US%SSM==:777777 ;TIME IN SECONDS SINCE MIDNIGHT
;UTFRK
DEFSYM UT%TRP==:1_35. ;ITRAP (OR DO ERJMP/ERCAL) TRAPPED JSYS
;WILD FUNCTIONS
DEFSYM .WLSTR==:0 ;COMPARE TWO STRINGS
DEFSYM .WLJFN==:1 ;COMPARE TWO JFNS
;WILD FLAGS AND BITS
DEFSYM WL%LCD==:1_35. ;DON'T CONVERT LOWER CASE TO UPPER CASE
DEFSYM WL%NOM==:1_35. ;STRINGS DID NOT MATCH
DEFSYM WL%ABR==:1_34. ;NON-WILD STRING IS ABBREVIATION OF WILD STRING
DEFSYM WL%DEV==:1_34. ;DEVICE FIELD DID NOT MATCH
DEFSYM WL%DIR==:1_33. ;DIRECTORY FIELD DID NOT MATCH
DEFSYM WL%NAM==:1_32. ;NAME FIELD DID NOT MATCH
DEFSYM WL%EXT==:1_31. ;FILE TYPE DID NOT MATCH
DEFSYM WL%GEN==:1_30. ;GENERATION NUMBER DID NOT MATCH
;WSMGR defs
DEFSYM .WSCLR==:1 ;Clear working set
DEFSYM .WSRMV==:2 ;Remove selected entries
DEFSYM .WSGET==:3 ;Prefault selected pages
DEFSYM .WSRWS==:4 ;Read working set
;ARGUMENT BLOCK OFFSETS FOR XSIR AND XRIR JSYS'S
DEFSYM .SICNT==:0 ;LENGTH OF BLOCK
DEFSYM .SILVT==:1 ;ADDRESS OF LEVEL TABLE
DEFSYM .SICHT==:2 ;ADDRESS OF CHANNEL TABLE
;SCHEDULER CONTROL FLAGS (JSYS NOT YET DEFINED)
DEFSYM SK%CYT==:1_17. ;CYCLE TIME
DEFSYM SK%IOC==:1_16. ;IO QUANTUM CHARGE
DEFSYM SK%HT1==:1_15. ;LIMIT HOLD TIME
DEFSYM SK%HT2==:1_14. ;NO HOLD TIME AFTER SKIPPED FORK
DEFSYM SK%HQR==:1_13. ;HIGH QUEUE FORK HAVE PRIORITY UNDER LOAD
DEFSYM SK%CL1==:1_12. ;CLASS SKED, USE NORMAL QUEUE PRIORITIES IF 1
;SK%BQE==:1B24 ;BALSET QUEUE ON ENTRY
DEFSYM SK%RSQ==:1_10. ;QUICK RESCHEDULE ON WAKEUPS
DEFSYM SK%RQ1==:1_9. ;REQUEUE TO QUEUE 1
DEFSYM SK%TTP==:1_8. ;TTY PREFERENCE
DEFSYM SK%WCF==:1_7. ;WAIT CREDIT PROPORTIONAL TO LOAD AV
DEFSYM SK%TOP==:1_6. ;TTY OUTPUT PREFERENCE
;XSSEV, XGSEV
DEFSYM .XSEVC==:0 ;TOPS10 COMPATIBILITY VECTOR
DEFSYM .XSEVD==:1 ;RMS VECTOR
DEFSYM XS%EEV==:1_34. ;ENTENDED ENTRY VECTOR
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY MANY JSYSES
;***********************************************
;GENERAL FORK HANDLES
DEFSYM .FHSLF==:400000 ;SELF
DEFSYM FH%EPN==:1_16. ;EXTENDED PAGE NUMBER
DEFSYM .FHSUP==:<0 -1> ;SUPERIOR
DEFSYM .FHTOP==:<0 -2> ;TOP IN JOB
DEFSYM .FHSAI==:<0 -3> ;SELF AND INFERIORS
DEFSYM .FHINF==:<0 -4> ;INFERIORS
DEFSYM .FHJOB==:<0 -5> ;ALL IN JOB
;FIELDS OF JFN MODE WORD
DEFSYM TT%OSP==:1_35. ;OUTPUT SUPPRESS
DEFSYM TT%MFF==:1_34. ;MECHANICAL FORMFEED PRESENT
DEFSYM TT%TAB==:1_33. ;MECHANICAL TAB PRESENT
DEFSYM TT%LCA==:1_32. ;LOWER CASE CAPABILITIES PRESENT
DEFSYM TT%LEN==:177_25. ;PAGE LENGTH
DEFSYM TT%WID==:177_18. ;PAGE WIDTH
DEFSYM TT%WAK==:17_12. ;WAKEUP FIELD
DEFSYM TT%WK0==:1_17. ;WAKEUP CLASS 0 (UNUSED)
DEFSYM TT%IGN==:1_16. ;IGNORE TT%WAK ON SFMOD
DEFSYM TT%WKF==:1_15. ;WAKEUP ON FORMATING CONTROL CHARS
DEFSYM TT%WKN==:1_14. ;WAKEUP ON NON-FORMATTING CONTROLS
DEFSYM TT%WKP==:1_13. ;WAKEUP ON PUNCTUATION
DEFSYM TT%WKA==:1_12. ;WAKEUP ON ALPHANUMERICS
DEFSYM TT%ECO==:1_11. ;ECHOS ON
DEFSYM TT%ECM==:1_10. ;ECHO MODE
DEFSYM TT%ALK==:1_9. ;ALLOW LINKS
DEFSYM TT%AAD==:1_8. ;ALLOW ADVICE (NOT IMPLEMENTED)
DEFSYM TT%DAM==:3_6. ;DATA MODE
DEFSYM .TTBIN==:0 ;BINARY
DEFSYM .TTASC==:1 ;ASCII
DEFSYM .TTATO==:2 ;ASCII AND TRANSLATE OUTPUT ONLY
DEFSYM .TTATE==:3 ;ASCII AND TRANSLATE ECHOS ONLY
DEFSYM TT%UOC==:1_5. ;UPPER CASE OUTPUT CONTROL
DEFSYM TT%LIC==:1_4. ;LOWER CASE INPUT CONTROL
DEFSYM TT%DUM==:3_2. ;DUPLEX MODE
DEFSYM .TTFDX==:0 ;FULL DUPLEX
DEFSYM .TT0DX==:1 ;NOT USED, RESERVED
DEFSYM .TTHDX==:2 ;HALF DUPLEX (CHARACTER)
DEFSYM .TTLDX==:3 ;LINE HALF DUPLEX
DEFSYM TT%PGM==:1_1. ;PAGE MODE
DEFSYM TT%CAR==:1_0. ;CARRIER STATE
;DIRECTORY PROTECTION DEFINITIONS (3 6-BIT FIELDS: OWNER, GROUP, WORLD)
DEFSYM DP%RD==:40 ;READING DIRECTORY IS ALLOWED
DEFSYM DP%CN==:10 ;CONNECT TO DIR, OR CHANGE PROT/ACCOUNT
DEFSYM DP%CF==:4 ;CREATING FILES IN DIR IS ALLOWED
;FILE PROTECTION DEFINITIONS (3 6-BIT FIELDS: OWNER, GROUP, WORLD)
DEFSYM FP%DIR==:2 ;DIRECTORY LISTING
DEFSYM FP%APP==:4 ;APPEND
DEFSYM FP%EX==:10 ;EXECUTE
DEFSYM FP%WR==:20 ;WRITE
DEFSYM FP%RD==:40 ;READ
;INPUT AND OUTPUT IDENTIFIERS
DEFSYM .PRIIN==:100 ;PRIMARY INPUT
DEFSYM .PRIOU==:101 ;PRIMARY OUTPUT
DEFSYM .NULIO==:377777 ;NULL DESIGNATOR
DEFSYM .SIGIO==:677777 ;SIGNAL JFN
DEFSYM .CTTRM==:777777 ;JOB'S CONTROLLING TERMINAL
DEFSYM .DVDES==:600000 ;UNIVERSAL DEVICE CODE
DEFSYM .TTDES==:400000 ;UNIVERSAL TERMINAL CODE
;MAGTAPE DEVICE STATUS BITS
DEFSYM MT%ILW==:1_17. ;ILLEGAL WRITE
DEFSYM MT%DVE==:1_16. ;DEVICE ERROR
DEFSYM MT%DAE==:1_15. ;DATA ERROR
DEFSYM MT%SER==:1_14. ;SUPPRESS ERROR RECOVERY PROCEDURES
DEFSYM MT%EOF==:1_13. ;EOF (FILE MARK)
DEFSYM MT%IRL==:1_12. ;INCORRECT RECORD LENGTH
DEFSYM MT%BOT==:1_11. ;BEGINNING OF TAPE
DEFSYM MT%EOT==:1_10. ;END OF TAPE
DEFSYM MT%EVP==:1_9. ;EVEN PARITY
DEFSYM MT%DEN==:3_7. ;DENSITY (0 IS 'NORMAL')
DEFSYM .MTLOD==:1 ;LOW DENSITY (200 BPI)
DEFSYM .MTMED==:2 ;MEDIUM DENSITY (556 BPI)
DEFSYM .MTHID==:3 ;HIGH DENSITY (800 BPI)
DEFSYM MT%CCT==:7_4. ;CHARACTER COUNTER
DEFSYM MT%NSH==:1_3. ;DATA MODE OR DENSITY NOT SUPPORTED BY HARDWARE
;DEVICE DATA MODES
DEFSYM .DMASC==:1 ;ASCII
DEFSYM .DMIMG==:10 ;IMAGE
DEFSYM .DMIMB==:13 ;IMAGE BINARY
DEFSYM .DMBIN==:14 ;BINARY
;DEFINED PSI CHANNELS
RADIX 5+5
DEFSYM .ICAOV==:6 ;ARITHMETIC OVERFLOW
DEFSYM .ICFOV==:7 ;FLOATING OVERFLOW
DEFSYM .ICPOV==:9 ;PDL OVERFLOW
DEFSYM .ICEOF==:10 ;END OF FILE
DEFSYM .ICDAE==:11 ;DATA ERROR
DEFSYM .ICQTA==:12 ;QUOTA/DISK EXCEEDED
DEFSYM .ICTOD==:14 ;TIME OF DAY (NOT IMPLEMENTED)
DEFSYM .ICILI==:15 ;ILLEG INSTRUCTION
DEFSYM .ICIRD==:16 ;ILLEGAL READ
DEFSYM .ICIWR==:17 ;ILLEGAL WRITE
DEFSYM .ICIEX==:18 ;ILLEGAL EXECUTE (NOT IMPLEMENTED)
DEFSYM .ICIFT==:19 ;INFERIOR FORK TERMINATION
DEFSYM .ICMSE==:20 ;MACHINE SIZE EXCEEDED
DEFSYM .ICTRU==:21 ;TRAP TO USER (NOT IMPLEMENTED)
DEFSYM .ICNXP==:22 ;NONEXISTENT PAGE REFERENCED
;TERMINAL TYPE NUMBERS
DEFSYM .TT33==:0 ;MODEL 33
DEFSYM .TT35==:1 ;MODEL 35
DEFSYM .TT37==:2 ;MODEL 37
DEFSYM .TTEXE==:3 ;EXECUPORT
DEFSYM .TTADM==:4 ;LSI ADM-3
DEFSYM .TTDAM==:5 ;DATAMEDIA 2500
DEFSYM .TTHP==:6 ;HP2645 ETC.
DEFSYM .TTHAZ==:7 ;VIRGIN HAZELTINE 1500
DEFSYM .TTDEF==:8. ;DEFAULT
DEFSYM .TTIDL==:9. ;IDEAL
DEFSYM .TTV05==:10. ;VT05
DEFSYM .TTV50==:11. ;VT50
DEFSYM .TTL30==:12. ;LA30
DEFSYM .TTG40==:13. ;GT40
DEFSYM .TTL36==:14. ;LA36
DEFSYM .TTV52==:15. ;VT52
DEFSYM .TT100==:16. ;VT100
DEFSYM .TTL38==:17. ;LA38
DEFSYM .TT120==:18. ;LA120
DEFSYM .TT43==:19. ;TTY MODEL 43
DEFSYM .TTSRC==:20. ;SOROC 120
DEFSYM .TTGIL==:21. ;GILLOTINE
DEFSYM .TTTEL==:22. ;TELERAY 1061
DEFSYM .TTTEK==:23. ;TEKTRONIX 4025
DEFSYM .TTANN==:24. ;ANN ARBOR
DEFSYM .TTH19==:25. ;HEATH H19
DEFSYM .TTCPT==:26. ;CONCEPT 100
DEFSYM .TTIBM==:27. ;IBM 3101-20
DEFSYM .TTTVI==:28. ;TELEVIDEO-912
DEFSYM .TTTK3==:29. ;TEKTRONIX 4023
DEFSYM .TTDM2==:30. ;DATAMEDIA 1520
DEFSYM .TTAMB==:31. ;AMBASSADOR
DEFSYM .TTESP==:32. ;ESPRIT
DEFSYM .TTFRD==:33. ;FREEDOM-100
DEFSYM .TTFR2==:34. ;FREEDOM-200
DEFSYM .TT125==:35. ;VT125
DEFSYM .TTK10==:36. ;VK100 - GIGI
DEFSYM .TT102==:37. ;VT102
DEFSYM .TT131==:39. ;VT131
DEFSYM .TT200==:40. ;VT200
DEFSYM .TTANS==:41. ;ANSI STANDARD
DEFSYM .TTAVT==:42. ;CONCEPT AVT
DEFSYM .TTGVT==:43. ;CONCEPT GVT
DEFSYM .TTX66==:44. ;XTERM (ANSI STANDARD) WITH 66 LINES
DEFSYM .TTX43==:45. ;XTERM (ANSI STANDARD) WITH 43 LINES
DEFSYM .TTX55==:55. ;XTERM (ANSI STANDARD) WITH 55 LINES
DEFSYM .TT300==:52. ;VT300 [7424]
;DEFINED TERMINAL CODES
DEFSYM .TICBK==:0 ;BREAK
DEFSYM .TICCA==:1 ;^A
DEFSYM .TICCB==:2 ;^B
DEFSYM .TICCC==:3 ;^C
DEFSYM .TICCD==:4 ;.RADIX10.,
DEFSYM .TICCE==:5 ;^E
DEFSYM .TICCF==:6 ;^F
DEFSYM .TICCG==:7 ;^G
DEFSYM .TICCH==:8 ;^H
DEFSYM .TICCI==:9 ;^I
DEFSYM .TICCJ==:10 ;^J
DEFSYM .TICCK==:11 ;^K
DEFSYM .TICCL==:12 ;^L
DEFSYM .TICCM==:13 ;^M
DEFSYM .TICCN==:14 ;^N
DEFSYM .TICCO==:15 ;^O
DEFSYM .TICCP==:16 ;^P
DEFSYM .TICCQ==:17 ;^Q
DEFSYM .TICCR==:18 ;^R
DEFSYM .TICCS==:19 ;^S
DEFSYM .TICCT==:20 ;^T
DEFSYM .TICCU==:21 ;^U
DEFSYM .TICCV==:22 ;^V
DEFSYM .TICCW==:23 ;^W
DEFSYM .TICCX==:24 ;^X
DEFSYM .TICCY==:25 ;^Y
DEFSYM .TICCZ==:26 ;^Z
DEFSYM .TICES==:27 ;ESC
DEFSYM .TICRB==:28 ;RUBOUT
DEFSYM .TICSP==:29 ;SPACE
DEFSYM .TICRF==:30 ;CARRIER OFF
DEFSYM .TICTI==:31 ;TYPEIN
DEFSYM .TICTO==:32 ;TYPEOUT
DEFSYM .TITCE==:33 ;TWO CHARACTER ESCAPE SEQUENCE
RADIX 8
;CAPABILITIES
DEFSYM SC%CTC==:1_35. ;CONTROL-C
DEFSYM SC%GTB==:1_34. ;GETAB
DEFSYM SC%MMN==:1_33. ;MAP MONITOR
DEFSYM SC%LOG==:1_32. ;LOGGING FUNCTIONS
DEFSYM SC%MPP==:1_31. ;MAP PRIVILEGED PAGES
DEFSYM SC%SDV==:1_30. ;SPECIAL DEVICES
DEFSYM SC%SCT==:1_29. ;ASSIGN TTY AS CONTROLLING FOR FORK (SCTTY)
DEFSYM SC%SUP==:1_26. ;SUPERIOR ACCESS
DEFSYM SC%FRZ==:1_18. ;FREEZE ON TERMINATING CONDITIONS
DEFSYM SC%WHL==:1_17. ;WHEEL
DEFSYM SC%OPR==:1_16. ;OPERATOR
DEFSYM SC%CNF==:1_15. ;CONFIDENTIAL INFORMATION ACCESS
DEFSYM SC%MNT==:1_14. ;MAINTENANCE
DEFSYM SC%IPC==:1_13. ;IPCF PRIVILEGES
DEFSYM SC%ENQ==:1_12. ;ENQ/DEQ PRIVILEGES
DEFSYM SC%NWZ==:1_11. ;TOPS20AN ;NET WIZARD PRIVILEGES (ASNSQ, ETC.)
DEFSYM SC%NAS==:1_10. ;TOPS20AN ;NETWORK ABSOLUTE SOCKET PRIVILEGE
DEFSYM SC%DNA==:1_9. ;DECNET ACCESS ALLOWED
DEFSYM SC%ANA==:1_8. ;TOPS20AN ;ARPANET ACCESS ALLOWED
DEFSYM SC%SEM==:1_7. ;[7.1077]SEMI-OPR PRIVILEGES
;OUTMODED NAMES FOR BITS IN DIRECTORY MODE WORD - USE CD%XXX
;EQUIVALENTS
DEFSYM MD%FO==:CD%DIR ;FILES ONLY DIRECTORY
DEFSYM MD%SA==:CD%ANA ;STRING ACCOUNT ALLOWED
DEFSYM MD%RLM==:CD%RLM ;REPEAT LOGIN MESSAGE
;FDB DEFINITIONS
DEFSYM .FBHDR==:0 ;HEADER WORD
DEFSYM FB%LEN==:177_0. ;LENGTH OF THIS FDB
DEFSYM .FBCTL==:1 ;FLAGS
DEFSYM FB%TMP==:1_35. ;FILE IS TEMPORARY
DEFSYM FB%PRM==:1_34. ;FILE IS PERMANENT
DEFSYM FB%NEX==:1_33. ;FILE DOES NOT HAVE AN EXTENSION YET
DEFSYM FB%DEL==:1_32. ;FILE IS DELETED
DEFSYM FB%NXF==:1_31. ;FILE IS NONEXISTENT
DEFSYM FB%LNG==:1_30. ;FILE IS A LONG FILE
DEFSYM FB%SHT==:1_29. ;FILE HAS COMPRESSED PAGE TABLE
DEFSYM FB%DIR==:1_28. ;FILE IS A DIRECTORY FILE
DEFSYM FB%NOD==:1_27. ;FILE IS NOT TO BE DUMPED BY BACKUP SYSTEM
DEFSYM FB%BAT==:1_26. ;FILE HAS AT LEAST ONE BAD PAGE IN IT
DEFSYM FB%SDR==:1_25. ;THIS DIRECTORY HAS SUBDIRECTORIES
DEFSYM FB%ARC==:1_24. ; File has archive status
DEFSYM FB%INV==:1_23. ; File is invisible
DEFSYM FB%OFF==:1_22. ; File is offline
DEFSYM FB%FCF==:17_18. ;FILE CLASS FIELD
DEFSYM .FBNRM==:0 ;NON-RMS
DEFSYM .FBRMS==:1 ;RMS FILES
DEFSYM .FBEPH==:4 ;EPHEMERAL
DEFSYM .FBPLT==:5 ;PLOT FILE
DEFSYM FB%NDL==:1_17. ;FILE CANNOT BE DELETED
DEFSYM FB%WNC==:1_16. ;LAST WRITE NOT CLOSED
DEFSYM FB%FOR==:1_15. ;FORTRAN DATA FILE
DEFSYM .FBEXL==:2 ;LINK TO FDB OF NEXT EXTENSION
DEFSYM .FBADR==:3 ;DISK ADDRESS OF INDEX BLOCK
DEFSYM .FBPRT==:4 ;PROTECTION OF THE FILE
DEFSYM .FBCRE==:5 ;TIME AND DATE OF LAST WRITE
DEFSYM .FBUSE==:6 ;LAST WRITER ,, AUTHOR (OBS)
DEFSYM .FBAUT==:6 ;POINTER TO AUTHOR STRING
DEFSYM .FBGEN==:7 ;GENERATION ,, DIR #
DEFSYM FB%GEN==:777777_18. ;GENERATION NUMBER
DEFSYM .FBDRN==:7 ;GENERATION ,, DIR #
DEFSYM FB%DRN==:777777 ;DIR NUMBER
DEFSYM .FBACT==:10 ;ACCOUNT
DEFSYM .FBBYV==:11 ;RETENTION+BYTE SIZE+MODE ,, # OF PAGES
DEFSYM FB%RET==:77_30. ;RETENTION COUNT
DEFSYM FB%BSZ==:77_24. ;BYTE SIZE
DEFSYM FB%MOD==:17_18. ;LAST OPENF MODE
DEFSYM FB%PGC==:777777 ;PAGE COUNT
DEFSYM .FBSIZ==:12 ;EOF POINTER
DEFSYM .FBCRV==:13 ;TIME AND DATE OF CREATION OF FILE
DEFSYM .FBWRT==:14 ;TIME AND DATE OF LAST USER WRITE
DEFSYM .FBREF==:15 ;TIME AND DATE OF LAST NON-WRITE ACCESS
DEFSYM .FBCNT==:16 ;# OF WRITES ,, # OF REFERENCES
DEFSYM .FBBK0==:17 ;BACKUP WORDS (5)
DEFSYM .FBBK1==:20
DEFSYM .FBBK2==:21
DEFSYM .FBBBT==:22 ; Bits,,#pages in offline file
DEFSYM AR%RAR==:1_34. ; Request archive by user
DEFSYM AR%RIV==:1_33. ; Request invol migration by system
DEFSYM AR%NDL==:1_32. ; Do not delete contents of file when archived
DEFSYM AR%NAR==:1_31. ; Please don't migrate this file
DEFSYM AR%EXM==:1_30. ; File exempt from migration
DEFSYM AR%1ST==:1_29. ; 1st pass of archive/collection run complete
DEFSYM AR%RFL==:1_28. ; Retrieve failed
DEFSYM AR%WRN==:1_27. ; USER WARNED OF APPROACHING EXPIRATION
DEFSYM AR%RSN==:7_18. ; Reason pushed offline
DEFSYM .AREXP==:1 ; File expired
DEFSYM .ARARR==:2 ; Archive was requested
DEFSYM .ARRIR==:3 ; Migration was requested
DEFSYM AR%PSZ==:777777 ; RH is pg count when file went offline
DEFSYM .FBNET==:23 ; On-line expiration date/interval
DEFSYM .FBUSW==:24 ;USER SETTABLE WORD
DEFSYM .FBGNL==:25 ;LINK TO NEXT GENERATION FILE
DEFSYM .FBNAM==:26 ;POINTER TO NAME BLOCK
DEFSYM .FBEXT==:27 ;POINTER TO EXTENSION BLOCK
DEFSYM .FBLWR==:30 ;POINTER TO LAST WRITER STRING
DEFSYM .FBTDT==:31 ; Archive or collection date & time
DEFSYM .FBFET==:32 ; Offline expiration date/interval
DEFSYM .FBTP1==:33 ; Tape ID for run 1 tape
DEFSYM .FBSS1==:34 ; Saveset #,,Tape file # for run 1 tape
DEFSYM .FBTP2==:35 ; Tape ID for run 2 tape
DEFSYM .FBSS2==:36 ; Saveset #,,Tape file # for run 2 tape
DEFSYM .FBLN0==:30 ;LENGTH OF VERSION 0 FDB
DEFSYM .FBLN1==:31 ;LENGTH OF VERSION 1 FDB
DEFSYM .FBLXT==:37 ; Minimum length for archive/virtual dsk sys
DEFSYM .FBLEN==:37 ;LENGTH OF THE FDB
;CARD READER DEFINITIONS
DEFSYM .CRILC==:"\ ;ILLEGAL CHARACTER CODE
;A WORD IS DISTINGUISHED FROM A BYTE POINTER BY THE VALUE 5 IN BITS 0-2
;USE THESE DEFINITIONS TO TEST FOR A NUMBER AS FOLLOWS:
; LOAD AC,NMFLG,LOC
; CAIE AC,NUMVAL
DEFSYM NMFLG==:7_33.
DEFSYM NUMVAL==:5
;MAGTAPE LABEL TYPES
DEFSYM .LTUNL==:1 ;UNLABELED
DEFSYM .LTANS==:2 ;ANSI STANDARD
DEFSYM .LTEBC==:3 ;EBCDIC
DEFSYM .LTT20==:4 ;TOPS-20
DEFSYM .LTMAX==:4 ;MAXIMUM LABEL TYPE
;MAGTAPE LABEL STATES
DEFSYM .LSUNL==:0 ;UNLABELLED VOLUME
DEFSYM .LSPRI==:1 ;PRIVATE VOLUME
DEFSYM .LSSCR==:2 ;SCRATCH VOLUME
DEFSYM .LSUSC==:3 ;USER SCRATCH VOLUME
; MAGTAPE DRIVE TYPES
DEFSYM .TMDR9==:1 ;9-TRACK
DEFSYM .TMDR7==:2 ;7-TRACK
DEFSYM .TMDMX==:2 ;MAXIMUM DRIVE-TYPE VALUE
;DEFINITIONS FOR COMMUNICATIONS PROTOCOLS
;DEFINE THE SUPPORTED PROTOCOL TYPES
DEFSYM .VN20F==:0 ;RSX20F PROTOCOL
DEFSYM .VNMCB==:1 ;MCB DECNET PROTOCOL
DEFSYM .VND60==:2 ;DN60 PROTOCOL
DEFSYM .VNDDC==:2 ;DDCMP PROTOCOL
DEFSYM .VNMOP==:3 ;MOP (DDCMP MAINTENANCE) MODE
DEFSYM .VNCNL==:4 ;CONTROLLER LOOPBACK
DEFSYM .VNCBL==:5 ;CABLE LOOPBACK
;DEFINE BITS USED WHEN RELOADING AN -11
DEFSYM RM%ROM==:1_35. ;IF SET, ACTIVATE ROM
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY TOPS20AN JSYS'S
;***********************************************
;HOST STATUS BITS
DEFSYM HS%UP==:1_35. ;HOST IS UP
DEFSYM HS%VAL==:1_34. ;VALID STATUS
DEFSYM HS%DAY==:7_31. ;DAY WHEN UP IF DOWN
DEFSYM HS%HR==:37_26. ;HOUR
DEFSYM HS%MIN==:17_22. ;5 MIN INTERVAL
DEFSYM HS%RSN==:17_18. ;REASON
DEFSYM HS%SRV==:1_17. ;HOST IS SERVER
DEFSYM HS%USR==:1_16. ;HOST IS USER
DEFSYM HS%NCK==:1_15. ;HOST NAME STRING WAS NICKNAME
DEFSYM HS%STY==:77_9. ;SYSTEM TYPE MASK
DEFSYM HS%NEW==:1_8. ;HOST DOES NEW PROTOCOL
DEFSYM HS%NAM==:1_7. ;HOST HAS NAME
DEFSYM HS%SLF==:1_6. ;HOST IS AN ALIAS FOR ME
DEFSYM HS%NET==:1_5. ;HOST IS REALLY A NETWORK NAME
DEFSYM HS%GAT==:1_4. ;HOST IS REALLY A GATEWAY
DEFSYM .HS10X==:1_9. ;TENEX
DEFSYM .HSITS==:2_9. ;ITS
DEFSYM .HSDEC==:3_9. ;TOPS-10
DEFSYM .HSTIP==:4_9. ;TIP
DEFSYM .HSMTP==:5_9. ;MTIP
DEFSYM .HSELF==:6_9. ;ELF
DEFSYM .HSANT==:7_9. ;ANTS
DEFSYM .HSMLT==:10_9. ;MULTICS
DEFSYM .HST20==:11_9. ;TOPS-20
DEFSYM .HSUNX==:12_9. ;UNIX
DEFSYM .HSNET==:13_9. ;Network
DEFSYM .HSFUZ==:14_9. ;Fuzzballs
DEFSYM .HSVMS==:15_9. ;VMS
DEFSYM .HSTAC==:16_9. ;TAC
DEFSYM .HSDOS==:17_9. ;MSDOS
;TCP OPENF% IO MODES
DEFSYM .TCMWD==:0 ;[7.1263] Default mode, same as .TCMWI
DEFSYM .TCMWI==:1 ;WAIT BEFORE RETURN, INTERACTIVE SEND
DEFSYM .TCMWH==:2 ;WAIT BEFORE RETURN, HIGH THROUGHPUT
DEFSYM .TCMII==:3 ;RETURN IMMEDIATE, INTERACTIVE SEND
DEFSYM .TCMIH==:4 ;RETURN IMMEDIATE, HIGH THROUGHPUT
;TCOPR JSYS
TCOPRX==0
DEFSYM TCOPS1==:100 ;LOW SPECIAL TCOPR FUNCTION
TCOPSX==0
DEFINE DEFTCO N,O,F
DEFSYM N==:O
IFB F,IFG O-TCOPRX,TCOPRX==O
IFNB F,IFG O-TCOPSX,TCOPSX==O
TERMIN
;TCOPR FUNCTION CODES
DEFTCO .TCRCS,0 ;READ CONNECTION STATE
DEFTCO .TCSUD,1 ;SEND URGENT DATA
DEFTCO .TCPSH,2 ;PUSH LOCAL DATA
DEFTCO .TCSPA,3 ;SET PASSIVE ACTIVE FLAG
DEFTCO .TCSPP,4 ;SET PERSISTANCE PARAMETERS
DEFTCO .TCSTP,5 ;SET TIMEOUT PARAMETERS
DEFTCO .TCSRP,6 ;SET RETRANSMISSION PARAMETERS
DEFTCO .TCSTS,7 ;SET TYPE OF SERVICE
DEFTCO .TCSSC,10 ;SET SECURITY AND COMPARTMENT LEVELS
DEFTCO .TCSHT,11 ;SET HANDLING RESTRICTIONS AND TRANSMISSION
;CONTROL FIELDS
DEFTCO .TCSPC,12 ;SET PSI CHANNELS
DEFTCO .TCRTW,13 ;READ A WORD FROM THE TCB
DEFTCO .TCSIL,14 ;SET THE INTERRUPT LEVEL FOR BUFFERS
DEFTCO .TCLSR,15 ;SET THE LOOSE ROUTE
DEFTCO .TCSSR,16 ;SET THE STRICT ROUTE
DEFTCO .TCRLB,17 ;READ LOWER BOUND FOR RETRANSMISSION
DEFTCO .TCSLB,20 ;SET UPPER BOUND FOR RETRANSMISSION
DEFTCO .TCRUB,21 ;READ UPPER BOUND FOR RETRANSMISSION
DEFTCO .TCSUB,22 ;SET UPPER BOUND FOR RETRANSMISSION
DEFTCO .TCSFN,23 ;SEND A FIN WITHOUT AN ABORT%.
;SPECIAL TCOPR FUNCTIONS
DEFTCO .TCRDL,100,S ;READ DEFAULT LOWER BOUND
DEFTCO .TCSDL,101,S ;SET DEFAULT LOWER BOUND
DEFTCO .TCRDU,102,S ;READ DEFAULT UPPER BOUND
DEFTCO .TCSDU,103,S ;SET DEFAULT UPPER BOUND
DEFSYM TCOPRM==:TCOPRX ;INITIAL HIGH TCOPR FUNCTION
DEFSYM TCOPSM==:TCOPSX ;INITIAL HIGH SPECIAL TCOPR FUNCTION
DEFSYM TC%TPU==:770000,,000000 ;Urgent data channel
DEFSYM TC%TER==:007700,,000000 ;Error channel
DEFSYM TC%TSC==:000077,,000000 ;State change channel
DEFSYM TC%TXX==:000000,,777777 ;Unused (must be 77) fields
;Connection States (from GDSTS)
DEFSYM .TCNOT==:0 ;not synch'ed
DEFSYM .TCFIN==:2 ;fin sent or received
DEFSYM .TCSYA==:4 ;synchable
DEFSYM .TCSYS==:5 ;synch sent or received
DEFSYM .TCSYN==:7 ;synch'ed
;IPOPR JSYS
DEFSYM IPOPRM==:0
;IPOPR FUNCTIONS
DEFIPO .IPSNT,0 ;SET A NETWORK ON OR OFF
DEFIPO .IPRNT,1 ;READ A NETWORK STATE
DEFIPO .IPINI,2 ;INITIALIZE ARPANET HOST NAME TABLES
DEFIPO .IPGWY,3 ;INITIALIZE ARPANET GATEWAY TABLES
DEFIPO .IPRIB,4 ;READ STATUS OF INTERNET BYPASS
DEFIPO .IPSIB,5 ;SET STATUS OF INTERNET BYPASS
DEFIPO .IPNIP,6 ;IP ON THE NI - ENABLE/DISABLE NI IP PORTAL
DEFIPO .IPNAP,7 ;IP ON THE NI - ENABLE/DISABLE NI ARP PORTAL
DEFIPO .IPIGH,10 ;IP ON THE NI - RELOAD NI IP GHT
DEFIPO .IPRGH,11 ;IP ON THE NI - RETURN NI IP GHT TABLE
DEFIPO .IPRIC,12 ;IP ON THE NI - RETURN NI IP PORTAL COUNTERS
DEFIPO .IPRAC,13 ;IP ON THE NI - RETURN NI ARP PORTAL COUNTERS
SUBTTL SCS% JSYS definitions
SUBTTL SCS% function codes
DEFSYM .SS1ST==:0
DEFSYM .SSCON==:0 ;Connect
DEFSYM .SSLIS==:1 ;Listen
DEFSYM .SSREJ==:2 ;Reject
DEFSYM .SSDIS==:3 ;Disconnect
DEFSYM .SSSDG==:4 ;Send datagram
DEFSYM .SSQRD==:5 ;Queue datagram buffers
DEFSYM .SSSMG==:6 ;Send message
DEFSYM .SSQRM==:7 ;Queue message buffers
DEFSYM .SSCSP==:10 ;Connect state poll
DEFSYM .SSRCD==:11 ;Retrieve connection data
DEFSYM .SSSTS==:12 ;Status info on connection
DEFSYM .SSRMG==:13 ;Receive message
DEFSYM .SSMAP==:14 ;Map a buffer
DEFSYM .SSUMP==:15 ;Unmap a buffer
DEFSYM .SSSND==:16 ;Send data
DEFSYM .SSREQ==:17 ;Request data
DEFSYM .SSAIC==:20 ;Add interrupt channels
; This function is now performed by DIAG
DEFSYM .SSRPC==:21 ;Return port counters
DEFSYM .SSRDG==:22 ;Receive datagram
DEFSYM .SSACC==:23 ;Accept a connection
DEFSYM .SSGDE==:24 ;Get entry from data queue
DEFSYM .SSEVT==:25 ;Get entry from event queue
DEFSYM .SSCRD==:26 ;Cancel receive datagram
DEFSYM .SSCRM==:27 ;Cancel receive message
DEFSYM .SSGLN==:30 ;Get local node number
; These functions are now performed by DIAG%
DEFSYM .SSMDR==:31 ;Maintainance data read
DEFSYM .SSMDS==:32 ;Maintainance data send
DEFSYM .SSSRS==:33 ;Start remote system
DEFSYM .SSRRS==:34 ;Reset remote system
DEFSYM .SSRBS==:35 ;Return buffer sizes
DEFSYM .SSRPS==:36 ;Return path status information
DEFSYM .SSLST==:36 ;The symbol for the highest function code
SUBTTL SCS% JSYS -- Random constants
DEFSYM SQ%CDT==:4 ;Number of words in connection data
DEFSYM SQ%SBL==:20 ;Length of the System Block list
DEFSYM .SQLEN==:0 ;Base word of every argument block
; MSKSTR (SC%WDP,<>,<-1,,0>) ;Words processed mask
DEFSYM SC%WDP==:<-1,,0>
; MSKSTR (SC%LOB,<>,<0,,-1>) ;Length of block
DEFSYM SC%LOB==:777777
DEFSYM .SQSPN==:.SQLEN+1 ;Byte pointer to source process name
DEFSYM .SQDPN==:.SQSPN+1 ;Byte pointer to destination process name
DEFSYM .SQSYS==:.SQDPN+1 ;Node number and SYSAP conn_id bits
; MSKSTR (SC%SBI,<>,<-1,,0>) ;Node number mask
DEFSYM SC%SBI==:<-1,,0>
; MSKSTR (SC%CIB,<>,<0,,-1>) ;Conn_id bits
DEFSYM SC%CIB==:777777
DEFSYM .SQCDT==:.SQSYS+1 ;Address of initial connection data
DEFSYM .SQAMC==:.SQCDT+1 ;Address of message buffer chain
DEFSYM .SQADC==:.SQAMC+1 ;Address of message buffer chain
DEFSYM .SQRCI==:.SQADC+1 ;Returned CONNECT_ID
DEFSYM .LBCON==:.SQRCI+1 ;Length of block
DEFSYM .SQLCI==:.SQSYS+1 ;Returned CONNECT_ID
DEFSYM .LBLIS==:.SQLCI+1 ;Length of listen block
DEFSYM .SQCID==:.SQLEN+1 ;Connect ID
DEFSYM .SQCDA==:.SQCID+1 ;Pointer to connection data
DEFSYM .LBACC==:.SQCDA+1
DEFSYM .SQREJ==:.SQCID+1 ;Rejection reasons
DEFSYM .LBREJ==:.SQREJ+1
DEFSYM .SQDIS==:.SQCID+1 ;Disconnect reason
DEFSYM .LBDIS==:.SQDIS+1
DEFSYM .SQAPT==:.SQCID+1 ;Address of packet text
DEFSYM .SQLPT==:.SQAPT+1 ;Length of packet text
DEFSYM .SQFLG==:.SQLPT+1 ;Flags and optional path spec
; MSKSTR (SC%FLG,<>,<-1,,777700>) ;Flags mask
DEFSYM SC%FLG==:<-1,,777700>
; MSKSTR (SC%MOD,<>,<200000,,0>);Mode flag 0=:ind. compat
DEFSYM SC%MOD==:1_34.
; MSKSTR (SC%OPS,<>,<0,,77>) ;Optional path spec mask
DEFSYM SC%OPS==:77
DEFSYM .SSAPS==:0 ;Auto path select
DEFSYM .SSPTA==:1 ;Use path A
DEFSYM .SSPTB==:2 ;Use path B
DEFSYM .SSLOW==:.SSAPS ;Range of valid path
DEFSYM .SSHGH==:.SSPTB ; spec values
DEFSYM .LBSDG==:.SQFLG+1 ;Length of block
; Note, .SSSMG has the same format as .SSSDG, hence
DEFSYM .LBSMG==:.LBSDG
DEFSYM .SQTXT==:0 ;Offset to start of user data
; Note: This definition is here to provide
; upward compatability with older programs
; New code should not use it
DEFSYM .SQAFB==:.SQCID+1 ;Address of first buffer on chain. First word
; of each buffer is pointer to next buffer on
; chain. Last buffer has first word of zero.
DEFSYM .LBQRD==:.SQAFB+1
; Note: .SSQRM and .SSQRD have the same format
DEFSYM .LBQRM==:.LBQRD ;Make a length symbol for .SSQRM
DEFSYM .SQADB==:.SQCID+1 ;Address of buffer to dequeue
DEFSYM .LBCRD==:.SQADB+1
; Note: .SSCRD and .SSCRM have the same format
DEFSYM .LBCRM==:.LBCRD
DEFSYM .SQCST==:.SQCID+1 ;Connection state
DEFSYM .SQDCI==:.SQCST+1 ;Destination connect ID
DEFSYM .SQBDN==:.SQDCI+1 ;Byte pointer to destination process name
DEFSYM .SQSBI==:.SQBDN+1 ;Node number of destination
DEFSYM .SQREA==:.SQSBI+1 ;Reason codes
; MSKSTR (SC%SDR,<>,<-1,,0>) ;Source disconnect reason
DEFSYM SC%SDR==:<-1,,0>
; MSKSTR (SC%DDR,<>,<0,,-1>) ;Dest disconnect reason
DEFSYM SC%DDR==:777777
DEFSYM .LBCSP==:.SQREA+1
DEFSYM .SQOSB==:.SQCID+1 ;Optional system block index
DEFSYM .SQVCS==:.SQOSB+1 ;Remote port number and virtual circuit state
; MSKSTR (SC%VCS,<>,<-1,,0>) ;Virtual circuit state
DEFSYM SC%VCS==:<-1,,0>
DEFSYM VC.CLO==:0 ;CLOSED
DEFSYM VC.STS==:1 ;START SENT
DEFSYM VC.STR==:2 ;START RECEIVED
DEFSYM VC.OPN==:3 ;OPEN
; MSKSTR (SC%PRT,<>,<0,,-1>) ;Remote port number
DEFSYM SC%PRT==:777777
DEFSYM .SQSAD==:.SQVCS+1 ;Remote system address
DEFSYM .SQMDD==:.SQSAD+2 ;Max dest DG size
DEFSYM .SQMDM==:.SQMDD+1 ;Max remote mess size
DEFSYM .SQDST==:.SQMDM+1 ;Dest software type
DEFSYM .SQDSV==:.SQDST+1 ;Destination software version
DEFSYM .SQDSE==:.SQDSV+1 ;Destination software edit number
DEFSYM .SQDHT==:.SQDSE+2 ;Destination hardware type
DEFSYM .SQDHV==:.SQDHT+1 ;Destination hardware version
DEFSYM .SQNNM==:.SQDHV+3 ;Destination port name
DEFSYM .SQPCW==:.SQNNM+2 ;Destination port characteristics
DEFSYM .SQLPN==:.SQPCW+1 ;Local port number
DEFSYM .LBRCD==:.SQLPN+1 ;Length of this block
DEFSYM .SQFST==:.SQCID+1 ;Returned data
; MSKSTR (SC%FST,<>,<-1,,0>) ;Status flags
DEFSYM SC%FST==:<-1,,0>
; MSKSTR (SC%MSA,<>,<400000,,0>) ;Message available flag
DEFSYM SC%MSA==:1_35.
; MSKSTR (SC%DGA,<>,<200000,,0>) ;Datagram available flag
DEFSYM SC%DGA==:1_34.
; MSKSTR (SC%DTA,<>,<100000,,0>) ;DMA transfer complete
DEFSYM SC%DTA==:1_33.
; MSKSTR (SC%EVA,<>,<040000,,0>) ;Event pending flag
DEFSYM SC%EVA==:1_32.
; MSKSTR (SC%STS,<>,<0,,-1>) ;State of the connection
DEFSYM SC%STS==:777777
; Possible states
DEFSYM SQ%CLO==:1 ;Closed (CLOSED)
DEFSYM SQ%LIS==:2 ;Listening (LISTENING)
DEFSYM SQ%CSE==:3 ;Connect request was sent (CONNECT_SENT)
DEFSYM SQ%CRE==:4 ;Connect request was received (CONNECT_REC)
DEFSYM SQ%CAK==:5 ;Connect response was received (CONNECT_ACK)
DEFSYM SQ%ACS==:6 ;Accept request was sent (ACCEPT_SENT)
DEFSYM SQ%RJS==:7 ;Reject request was sent (REJECT_SENT)
DEFSYM SQ%OPN==:10 ;Connection is open (OPEN)
DEFSYM SQ%DSE==:11 ;Disconnect request was sent (DISCONNECT_SENT)
DEFSYM SQ%DRE==:12 ;Disconnect request received (DISCONNECT_REC)
DEFSYM SQ%DAK==:13 ;Disconnect response received (DISCONNECT_ACK)
DEFSYM SQ%DMC==:14 ;Waiting for discon response (DISCONNECT_MATCH)
DEFSYM SQ%HIS==:14 ;Highest value for a connect state
DEFSYM .SQSBR==:.SQFST+1 ;Node number of remote note
; MSKSTR (SC%NST,<.SQBSR>,<0,,-1>) ;Mask for node number
DEFSYM SC%NST==:777777
DEFSYM .LBSTS==:.SQSBR+1
DEFSYM .SQARB==:.SQCID+1 ;Address of returned buffer
DEFSYM .SQDFL==:.SQARB+1 ;Flags and node number of remote system
; See .SSSDG for definition of the flag bits
; MSKSTR (SC%FRM,<.SQDFL>,<-1,,0>) ;Mask for flags
DEFSYM SC%FRM==:<-1,,0>
; MSKSTR (SC%NRM,<.SQDFL>,<0,,-1>) ;Mask for node number
DEFSYM SC%NRM==:777777
DEFSYM .SQLRP==:.SQDFL+1 ;Length of returned msg, words if high den
; bytes if industry compat
DEFSYM .LBRMG==:.SQLRP+1
; Note: .SSRMG and .SSRDG have the same format
DEFSYM .LBRDG==:.LBRMG
DEFSYM .SQXFL==:.SQLEN+1 ;Flags
; MSKSTR (SQ%DMD,<.SQXFL>,<000000,,000003>) ;Mask for mode field
DEFSYM SQ%DMD==:000003
DEFSYM SQ%DIC==:0 ;Industry compatable mode
DEFSYM SQ%DCD==:1 ;Core dump mode (Unsupported)
DEFSYM SQ%DHD==:2 ;High density mode
DEFSYM SQ%ILL==:3 ;The dissallowed value
DEFSYM SQ%CVD==:1_3. ;Do not clear the valid bit.
DEFSYM SQ%WRT==:1_2. ;Read/Write - If set, host memory iw writable.
DEFSYM .SQBNA==:.SQXFL+1 ;Returned buffer name
DEFSYM .SQBLN==:0 ;Length of buffer segment
; Length in bytes for industry compatable mode
; Length in words for high density mode
DEFSYM .SQBAD==:.SQBLN+1 ;Address of buffer segment
DEFSYM .SQNAM==:.SQLEN+1 ;Buffer name to unmap
DEFSYM .LBUMP==:.SQNAM+1
DEFSYM .SQSNM==:.SQCID+1
DEFSYM .SQRNM==:.SQSNM+1
DEFSYM .SQOFS==:.SQRNM+1
;Offsets are in words for high density and bytes for all other modes.
; MSKSTR (SQ%TXO,<.SQOFS>,<-1,,0>) ;XMIT offset
DEFSYM SQ%TXO==:<-1,,0>
; MSKSTR (SQ%RXO,<.SQOFS>,<0,,-1>) ;Receieve offset
DEFSYM SQ%RXO==:777777
DEFSYM .LBSND==:.SQOFS+1
; Note: .SSSND and .SSREQ have the same format
DEFSYM .LBREQ==:.LBSND
DEFSYM .SQLNN==:.SQLEN+1 ;Returned node number
DEFSYM .LBGLN==:.SQLNN+1
DEFSYM .SQLMG==:.SQLEN+1 ;Size (words) of smallest acceptable MSG buffer
DEFSYM .SQLDG==:.SQLMG+1 ;Size (words) of smallest acceptable DG buffer
DEFSYM .LBRBS==:.SQLDG+1
DEFSYM .SIDGA==:0 ;Datagram available
DEFSYM .SIMSA==:1 ;Message available
DEFSYM .SIDMA==:2 ;DMA transfer complete
DEFSYM .SIPAN==:3 ;All other events (includes all errors and
;connection managament events)
DEFSYM .SIHGH==:.SIPAN ;Highest event code
DEFSYM .SQBID==:.SQCID+1 ;Buffer ID offset
DEFSYM .LBGDE==:.SQBID+1
DEFSYM .SQESB==:.SQCID+1 ;Node number of remote system
DEFSYM .SQEVT==:.SQESB+1 ;Event code
DEFSYM .SEVCC==:1 ;Event code -- VC broken
;.SQDTA contains the pertinant node number
DEFSYM .SECTL==:.SEVCC+1;Event code -- Connect to listen
;.SQDTA contains four words of connection data
;from the remote node
DEFSYM .SECRA==:.SECTL+1;Event code -- Connection was accepted
;.SQDTA contains:
; The data words are the remote's connection
; data.
DEFSYM .SECRR==:.SECRA+1;Event code -- Connection was rejected
; .SQDTA contains the reason code
DEFSYM .SEMSC==:.SECRR+1;Event code -- Message/datagram send complete
;.SQDTA contains address of sent buffer
DEFSYM .SELCL==:.SEMSC+1;Event code -- Little credit left
;.SQDTA contains number of credits required to
; get you back over threshold
DEFSYM .SENWO==:.SELCL+1;Event code -- Node went offline
;.SQDTA node # of system which went offline
DEFSYM .SENCO==:.SENWO+1;Event code -- Node came online
;.SQDTA is node # of system which came online
DEFSYM .SEOSD==:.SENCO+1;Event code -- OK to send data
;.SQDTA is not used here
DEFSYM .SERID==:.SEOSD+1;Event code -- Remote initiated disconnect
;.SQDTA is unused here
DEFSYM .SEPBC==:.SERID+1;Event code -- Port broke connection
;.SQDTA is unused
DEFSYM .SECIA==:.SEPBC+1;Event code -- Credit is available
;.SQDTA is unsed here
DEFSYM .SEMDC==:.SECIA+1;Event code -- Maint data xfer complete
;.SQDTA is the buffer name for the transfer
DEFSYM .SEMAX==:.SEMDC ;Largest event code
DEFSYM .SQDTA==:.SQEVT+1 ;Offset to event data
DEFSYM .SQEVD==:4 ;Length in words of the event data area
DEFSYM .LBEVT==:.SQDTA+.SQEVD ;length of argument block
;Connection managment symbols - for .SECRR
DEFSYM CM%CMT==:1. ;A match was found for the CONNECT_REQUEST
DEFSYM CM%CNM==:10. ;No match was found for the CONNECT_REQUEST
DEFSYM CM%NRE==:18. ;No resources to process CONNECT_REQUEST
DEFSYM CM%NDS==:26. ;Connection has been broken
DEFSYM CM%NRV==:34. ;Reserved
DEFSYM .SQRPN==:.SQLEN+1 ;Target node number for path info
; MSKSTR (SQRPN,<.SQRPN>,<-1>)
DEFSYM SQRPN==:-1
DEFSYM .SQRPS==:.SQRPN+1 ;Path status
; MSKSTR (SQRPA,<.SQRPS>,<-1,,0>) ;Path A status
DEFSYM SQRPA==:<-1,,0>
; MSKSTR (SQRPB,<.SQRPS>,<0,,-1>) ;Path B status
DEFSYM SQRPB==:777777
DEFSYM SC%PBD==:0 ;Path is bad
DEFSYM SC%PGD==:1 ;Path is good
DEFSYM .LBRPS==:.SQRPS+1 ;Length of this block
SUBTTL XPEEK FUNCTION BLOCK DESCRIPTOR
DEFSYM .XPABL==:0 ;LENGTH OF ARGUMENT BLOCK
DEFSYM .XPFNC==:.XPABL+1 ;FUNCTION CODE
DEFSYM .XPPEK==:1 ;FUNCTION CODE
DEFSYM .XPCN1==:.XPFNC+1 ;COUNT OF WORDS TO TRANSFER
DEFSYM .XPCN2==:.XPCN1+1 ;COUNT OF WORDS TRANSFERRED
DEFSYM .XPMAD==:.XPCN2+1 ;LOCATION IN MONITOR TO START TRANSFER FROM
DEFSYM .XPUAD==:.XPMAD+1 ;LOCATION IN USER SPACE TO TRANSFER TO
DEFSYM .XPLEN==:.XPUAD+1 ;LENGTH OF ARGUMENT BLOCK
DEFSYM .XPJSB==:2 ;FUNCTION CODE
DEFSYM .XPJOB==:.XPUAD+1 ;SYSTEM JOB NUMBER
DEFSYM .XPPSB==:3 ;FUNCTION CODE
DEFSYM .XPFRK==:.XPUAD+1 ;SYSTEM FORK NUMBER
;ERROR CODE DEFINITIONS
DEFSYM .ERBAS==:600000 ;BASE VALUE FOR ALL ERROR CODES
DEFSYM LGINX1==:.ERBAS+10 ;Invalid account identifier
DEFSYM LGINX2==:.ERBAS+11 ;Directory is "files-only" and cannot be logged in to
DEFSYM LGINX3==:.ERBAS+12 ;Internal format of directory is incorrect
DEFSYM LGINX4==:.ERBAS+13 ;Invalid password
DEFSYM LGINX5==:.ERBAS+14 ;Job is already logged in
DEFSYM CRJBX1==:.ERBAS+20 ;Invalid parameter or function bit combination
DEFSYM CRJBX2==:.ERBAS+21 ;Illegal for created job to enter MINI-EXEC
DEFSYM CRJBX3==:.ERBAS+22 ;Reserved
DEFSYM CRJBX4==:.ERBAS+23 ;Terminal is not available
DEFSYM CRJBX5==:.ERBAS+24 ;Unknown name for LOGIN
DEFSYM CRJBX6==:.ERBAS+25 ;Insufficient system resources
DEFSYM CRJBX7==:.ERBAS+26 ;Reserved
DEFSYM LOUTX1==:.ERBAS+35 ;Illegal to specify job number when logging out own job
DEFSYM LOUTX2==:.ERBAS+36 ;Invalid job number
DEFSYM CACTX1==:.ERBAS+45 ;Invalid account identifier
DEFSYM CACTX2==:.ERBAS+46 ;Job is not logged in
DEFSYM EFCTX1==:.ERBAS+50 ;WHEEL or OPERATOR capability required
DEFSYM EFCTX2==:.ERBAS+51 ;Entry cannot be longer than 64 words
DEFSYM EFCTX3==:.ERBAS+52 ;Fatal error when accessing FACT file
DEFSYM GJFX1==:.ERBAS+55 ;Desired JFN invalid
DEFSYM GJFX2==:.ERBAS+56 ;Desired JFN not available
DEFSYM GJFX3==:.ERBAS+57 ;No JFN available
DEFSYM GJFX4==:.ERBAS+60 ;Invalid character in filename
DEFSYM GJFX5==:.ERBAS+61 ;Field cannot be longer than 39 characters
DEFSYM GJFX6==:.ERBAS+62 ;Device field not in a valid position
DEFSYM GJFX7==:.ERBAS+63 ;Directory field not in a valid position
DEFSYM GJFX8==:.ERBAS+64 ;Directory terminating delimiter is not preceded by a valid beginning delimiter
DEFSYM GJFX9==:.ERBAS+65 ;More than one name field is not allowed
DEFSYM GJFX10==:.ERBAS+66 ;Generation number is not numeric
DEFSYM GJFX11==:.ERBAS+67 ;More than one generation number field is not allowed
DEFSYM GJFX12==:.ERBAS+70 ;More than one account field is not allowed
DEFSYM GJFX13==:.ERBAS+71 ;More than one protection field is not allowed
DEFSYM GJFX14==:.ERBAS+72 ;Invalid protection
DEFSYM GJFX15==:.ERBAS+73 ;Invalid confirmation character
DEFSYM GJFX16==:.ERBAS+74 ;No such device
DEFSYM GJFX17==:.ERBAS+75 ;No such directory name
DEFSYM GJFX18==:.ERBAS+76 ;No such filename
DEFSYM GJFX19==:.ERBAS+77 ;No such file type
DEFSYM GJFX20==:.ERBAS+100 ;No such generation number
DEFSYM GJFX21==:.ERBAS+101 ;File was expunged
DEFSYM GJFX22==:.ERBAS+102 ;Insufficient system resources (Job Storage Block full)
DEFSYM GJFX23==:.ERBAS+103 ;Exceeded maximum number of files per directory
DEFSYM GJFX24==:.ERBAS+104 ;File not found
DEFSYM GJFX27==:.ERBAS+107 ;File already exists (new file required)
DEFSYM GJFX28==:.ERBAS+110 ;Device is not on line
DEFSYM GJFX29==:.ERBAS+111 ;Device is not available to this job
DEFSYM GJFX30==:.ERBAS+112 ;Account is not numeric
DEFSYM GJFX31==:.ERBAS+113 ;Invalid wildcard designator
DEFSYM GJFX32==:.ERBAS+114 ;No files match this specification
DEFSYM GJFX33==:.ERBAS+115 ;Filename was not specified
DEFSYM GJFX34==:.ERBAS+116 ;Invalid character "?" in file specification
DEFSYM GJFX35==:.ERBAS+117 ;Directory access privileges required
DEFSYM OPNX1==:.ERBAS+120 ;File is already open
DEFSYM OPNX2==:.ERBAS+121 ;File does not exist
DEFSYM OPNX3==:.ERBAS+122 ;Read access required
DEFSYM OPNX4==:.ERBAS+123 ;Write access required
DEFSYM OPNX5==:.ERBAS+124 ;Execute access required
DEFSYM OPNX6==:.ERBAS+125 ;Append access required
DEFSYM OPNX7==:.ERBAS+126 ;Device already assigned to another job
DEFSYM OPNX8==:.ERBAS+127 ;Device is not on line
DEFSYM OPNX9==:.ERBAS+130 ;Invalid simultaneous access
DEFSYM OPNX10==:.ERBAS+131 ;Entire file structure full
DEFSYM OPNX12==:.ERBAS+133 ;List access required
DEFSYM OPNX13==:.ERBAS+134 ;Invalid access requested
DEFSYM OPNX14==:.ERBAS+135 ;Invalid mode requested
DEFSYM OPNX15==:.ERBAS+136 ;Read/write access required
DEFSYM OPNX16==:.ERBAS+137 ;File has bad index block
DEFSYM OPNX17==:.ERBAS+140 ;No room in job for long file page table
DEFSYM OPNX18==:.ERBAS+141 ;Unit Record Devices are not available
DEFSYM OPNX19==:.ERBAS+142 ;IMP is not up
DEFSYM OPNX20==:.ERBAS+143 ;Host is not up
DEFSYM OPNX21==:.ERBAS+144 ;Connection refused
DEFSYM OPNX22==:.ERBAS+145 ;Connection byte size does not match
DEFSYM DESX1==:.ERBAS+150 ;Invalid source/destination designator
DEFSYM DESX2==:.ERBAS+151 ;Terminal is not available to this job
DEFSYM DESX3==:.ERBAS+152 ;JFN is not assigned
DEFSYM DESX4==:.ERBAS+153 ;Invalid use of terminal designator or string pointer
DEFSYM DESX5==:.ERBAS+154 ;File is not open
DEFSYM DESX6==:.ERBAS+155 ;Device is not a terminal
DEFSYM DESX7==:.ERBAS+156 ;Illegal use of parse-only JFN or output wildcard-designators
DEFSYM DESX8==:.ERBAS+157 ;File is not on disk
DEFSYM CLSX1==:.ERBAS+160 ;File is not open
DEFSYM CLSX2==:.ERBAS+161 ;File cannot be closed by this process
DEFSYM RJFNX1==:.ERBAS+165 ;File is not closed
DEFSYM RJFNX2==:.ERBAS+166 ;JFN is being used to accumulate filename
DEFSYM RJFNX3==:.ERBAS+167 ;JFN is not accessible by this process
DEFSYM DELFX1==:.ERBAS+170 ;Delete access required
DEFSYM SFPTX1==:.ERBAS+175 ;File is not open
DEFSYM SFPTX2==:.ERBAS+176 ;Illegal to reset pointer for this file
DEFSYM SFPTX3==:.ERBAS+177 ;Invalid byte number
DEFSYM CNDIX1==:.ERBAS+200 ;Invalid password
DEFSYM CNDIX3==:.ERBAS+202 ;Invalid directory number
DEFSYM CNDIX5==:.ERBAS+204 ;Job is not logged in
DEFSYM SFBSX1==:.ERBAS+210 ;Illegal to change byte size for this opening of file
DEFSYM SFBSX2==:.ERBAS+211 ;Invalid byte size
DEFSYM IOX1==:.ERBAS+215 ;File is not opened for reading
DEFSYM IOX2==:.ERBAS+216 ;File is not opened for writing
DEFSYM IOX3==:.ERBAS+217 ;File is not open for random access
DEFSYM IOX4==:.ERBAS+220 ;End of file reached
DEFSYM IOX5==:.ERBAS+221 ;Device or data error
DEFSYM IOX6==:.ERBAS+222 ;Illegal to write beyond absolute end of file
DEFSYM PMAPX1==:.ERBAS+240 ;Invalid access requested
DEFSYM PMAPX2==:.ERBAS+241 ;Invalid use of PMAP
DEFSYM SPACX1==:.ERBAS+245 ;Invalid access requested
DEFSYM FRKHX1==:.ERBAS+250 ;Invalid process handle
DEFSYM FRKHX2==:.ERBAS+251 ;Illegal to manipulate a superior process
DEFSYM FRKHX3==:.ERBAS+252 ;Invalid use of multiple process handle
DEFSYM FRKHX4==:.ERBAS+253 ;Process is running
DEFSYM FRKHX5==:.ERBAS+254 ;Process has not been started
DEFSYM FRKHX6==:.ERBAS+255 ;All relative process handles in use
DEFSYM SPLFX1==:.ERBAS+260 ;Process is not inferior or equal to self
DEFSYM SPLFX2==:.ERBAS+261 ;Process is not inferior to self
DEFSYM SPLFX3==:.ERBAS+262 ;New superior process is inferior to intended inferior
DEFSYM SPLBTS==:.ERBAS+263 ;Argument block too short
DEFSYM SPLBFC==:.ERBAS+264 ;Bad function code
DEFSYM GTABX1==:.ERBAS+267 ;Invalid table number
DEFSYM GTABX2==:.ERBAS+270 ;Invalid table index
DEFSYM GTABX3==:.ERBAS+271 ;GETAB capability required
DEFSYM RUNTX1==:.ERBAS+273 ;Invalid process handle -3 or -4
DEFSYM STADX1==:.ERBAS+275 ;WHEEL or OPERATOR capability required
DEFSYM STADX2==:.ERBAS+276 ;Invalid date or time
DEFSYM ASNDX1==:.ERBAS+300 ;Device is not assignable
DEFSYM ASNDX2==:.ERBAS+301 ;Illegal to assign this device
DEFSYM ASNDX3==:.ERBAS+302 ;No such device
DEFSYM ATACX1==:.ERBAS+320 ;Invalid job number
DEFSYM ATACX2==:.ERBAS+321 ;Job already attached
DEFSYM ATACX3==:.ERBAS+322 ;Incorrect user number
DEFSYM ATACX4==:.ERBAS+323 ;Invalid password
DEFSYM ATACX5==:.ERBAS+324 ;This job has no controlling terminal
DEFSYM STDVX1==:.ERBAS+332 ;No such device
DEFSYM DEVX1==:.ERBAS+335 ;Invalid device designator
DEFSYM DEVX2==:.ERBAS+336 ;Device already assigned to another job
DEFSYM DEVX3==:.ERBAS+337 ;Device is not on line
DEFSYM MNTX1==:.ERBAS+345 ;Internal format of directory is incorrect
DEFSYM MNTX2==:.ERBAS+346 ;Device is not on line
DEFSYM MNTX3==:.ERBAS+347 ;Device is not mountable
DEFSYM TERMX1==:.ERBAS+350 ;Invalid terminal code
DEFSYM TLNKX1==:.ERBAS+351 ;Illegal to set remote to object before object to remote
DEFSYM ATIX1==:.ERBAS+352 ;Invalid software interrupt channel number
DEFSYM ATIX2==:.ERBAS+353 ;Control-C capability required
DEFSYM TLNKX2==:.ERBAS+356 ;Link was not received within 15 seconds
DEFSYM TLNKX3==:.ERBAS+357 ;Links full
DEFSYM TTYX1==:.ERBAS+360 ;Device is not a terminal
DEFSYM RSCNX1==:.ERBAS+361 ;Overflowed rescan buffer, input string truncated
DEFSYM RSCNX2==:.ERBAS+362 ;Invalid function code
DEFSYM CFRKX3==:.ERBAS+363 ;Insufficient system resources
DEFSYM KFRKX1==:.ERBAS+365 ;Illegal to kill top level process
DEFSYM KFRKX2==:.ERBAS+366 ;Illegal to kill self
DEFSYM RFRKX1==:.ERBAS+367 ;Processes are not frozen
DEFSYM HFRKX1==:.ERBAS+370 ;Illegal to halt self with HFORK
DEFSYM GFRKX1==:.ERBAS+371 ;Invalid process handle
DEFSYM GETX1==:.ERBAS+373 ;Invalid save file format
DEFSYM GETX2==:.ERBAS+374 ;System Special Pages Table full
DEFSYM TFRKX1==:.ERBAS+375 ;Undefined function code
DEFSYM TFRKX2==:.ERBAS+376 ;Unassigned fork handle or not immediate inferior
DEFSYM SFRVX1==:.ERBAS+377 ;Invalid position in entry vector
DEFSYM NOUTX1==:.ERBAS+407 ;Radix is not in range 2 to 36
DEFSYM NOUTX2==:.ERBAS+410 ;Column overflow
DEFSYM TFRKX3==:.ERBAS+411 ;Fork(s) not frozen
DEFSYM IFIXX1==:.ERBAS+414 ;Radix is not in range 2 to 36
DEFSYM IFIXX2==:.ERBAS+415 ;First nonspace character is not a digit
DEFSYM IFIXX3==:.ERBAS+416 ;Overflow (number is equal to or greater than 2**35 )
DEFSYM GFDBX1==:.ERBAS+424 ;Invalid displacement
DEFSYM GFDBX2==:.ERBAS+425 ;Invalid number of words
DEFSYM GFDBX3==:.ERBAS+426 ;List access required
DEFSYM CFDBX1==:.ERBAS+430 ;Invalid displacement
DEFSYM CFDBX2==:.ERBAS+431 ;Illegal to change specified bits
DEFSYM CFDBX3==:.ERBAS+432 ;Write or owner access required
DEFSYM CFDBX4==:.ERBAS+433 ;Invalid value for specified bits
DEFSYM CFDBX5==:.ERBAS+434 ;No FDB for non-directory devices
DEFSYM DUMPX1==:.ERBAS+440 ;Command list error
DEFSYM DUMPX2==:.ERBAS+441 ;JFN is not open in dump mode
DEFSYM DUMPX3==:.ERBAS+442 ;Address error (too big or crosses end of memory)
DEFSYM DUMPX4==:.ERBAS+443 ;Access error (cannot read or write data in memory)
DEFSYM RNAMX1==:.ERBAS+450 ;Files are not on same device
DEFSYM RNAMX2==:.ERBAS+451 ;Destination file expunged
DEFSYM RNAMX3==:.ERBAS+452 ;Write or owner access to destination file required
DEFSYM RNAMX4==:.ERBAS+453 ;Quota exceeded in destination of rename
DEFSYM BKJFX1==:.ERBAS+454 ;Illegal to back up terminal pointer twice
DEFSYM TIMEX1==:.ERBAS+460 ;Time cannot be greater than 24 hours
DEFSYM ZONEX1==:.ERBAS+461 ;Time zone out of range
DEFSYM ODTNX1==:.ERBAS+462 ;Time zone must be USA or Greenwich
DEFSYM DILFX1==:.ERBAS+464 ;Invalid date format
DEFSYM TILFX1==:.ERBAS+465 ;Invalid time format
DEFSYM DATEX1==:.ERBAS+466 ;Year out of range
DEFSYM DATEX2==:.ERBAS+467 ;Month is not less than 12
DEFSYM DATEX3==:.ERBAS+470 ;Day of month too large
DEFSYM DATEX4==:.ERBAS+471 ;Day of week is not less than 7
DEFSYM DATEX5==:.ERBAS+472 ;Date out of range
DEFSYM DATEX6==:.ERBAS+473 ;System date and time are not set
DEFSYM SMONX1==:.ERBAS+516 ;WHEEL or OPERATOR capability required
DEFSYM MSCPX1==:.ERBAS+517 ;No MSCP server in current monitor
DEFSYM MSCPX2==:.ERBAS+520 ;Drive type error
DEFSYM MSCPX3==:.ERBAS+521 ;Requested drive not found
DEFSYM SACTX1==:.ERBAS+530 ;File is not on multiple-directory device
DEFSYM SACTX2==:.ERBAS+531 ;Insufficient system resources (Job Storage Block full)
DEFSYM SACTX3==:.ERBAS+532 ;Directory requires numeric account
DEFSYM SACTX4==:.ERBAS+533 ;Write or owner access required
DEFSYM GACTX1==:.ERBAS+540 ;File is not on multiple-directory device
DEFSYM GACTX2==:.ERBAS+541 ;File expunged
DEFSYM FFUFX1==:.ERBAS+544 ;File is not open
DEFSYM FFUFX2==:.ERBAS+545 ;File is not on multiple-directory device
DEFSYM FFUFX3==:.ERBAS+546 ;No used page found
DEFSYM DSMX1==:.ERBAS+555 ;File(s) not closed
DEFSYM RDDIX1==:.ERBAS+560 ;Illegal to read directory for this device
DEFSYM SIRX1==:.ERBAS+570 ;Table address is not greater than 20
DEFSYM SSAVX1==:.ERBAS+600 ;Illegal to save files on this device
DEFSYM SSAVX2==:.ERBAS+601 ;Page count (left half of table entry) must be negative
DEFSYM SEVEX1==:.ERBAS+610 ;Entry vector length is not less than 1000
DEFSYM WHELX1==:.ERBAS+614 ;WHEEL or OPERATOR capability required
DEFSYM CAPX1==:.ERBAS+615 ;WHEEL or OPERATOR capability required
DEFSYM PEEKX2==:.ERBAS+617 ;Read access failure on monitor page
DEFSYM CRDIX1==:.ERBAS+620 ;WHEEL or OPERATOR capability required
DEFSYM CRDIX2==:.ERBAS+621 ;Illegal to change number of old directory
DEFSYM CRDIX3==:.ERBAS+622 ;Insufficient system resources (Job Storage Block full)
DEFSYM CRDIX4==:.ERBAS+623 ;Superior directory full
DEFSYM CRDIX5==:.ERBAS+624 ;Directory name not given
DEFSYM CRDIX7==:.ERBAS+626 ;File(s) open in directory
DEFSYM GTDIX1==:.ERBAS+640 ;WHEEL or OPERATOR capability required
DEFSYM GTDIX2==:.ERBAS+641 ;Invalid directory number
DEFSYM FLINX1==:.ERBAS+650 ;First character is not blank or numeric
DEFSYM FLINX2==:.ERBAS+651 ;Number too small
DEFSYM FLINX3==:.ERBAS+652 ;Number too large
DEFSYM FLINX4==:.ERBAS+653 ;Invalid format
DEFSYM FLOTX1==:.ERBAS+660 ;Column overflow in field 1 or 2
DEFSYM FLOTX2==:.ERBAS+661 ;Column overflow in field 3
DEFSYM FLOTX3==:.ERBAS+662 ;Invalid format specified
DEFSYM HPTX1==:.ERBAS+670 ;Undefined clock number
DEFSYM FDFRX1==:.ERBAS+700 ;Not a multiple-directory device
DEFSYM FDFRX2==:.ERBAS+701 ;Invalid directory number
;DEFSYM GTHSX1==:.ERBAS+703 ;Invalid function code for GTHST
;DEFSYM GTHSX2==:.ERBAS+704 ;Unknown host number
;DEFSYM GTHSX3==:.ERBAS+705 ;No number for that host name
DEFSYM GTHSX4==:.ERBAS+706 ;Index out of range
DEFSYM GTHSX5==:.ERBAS+707 ;No string for that Host number
DEFSYM ATNX1==:.ERBAS+710 ;Invalid receive JFN
DEFSYM ATNX2==:.ERBAS+711 ;Receive JFN not opened for read
DEFSYM ATNX3==:.ERBAS+712 ;Receive JFN not open
DEFSYM ATNX4==:.ERBAS+713 ;Receive JFN is not a NET connection
DEFSYM ATNX5==:.ERBAS+714 ;Receive JFN has been used
DEFSYM ATNX6==:.ERBAS+715 ;Receive connection refused
DEFSYM ATNX7==:.ERBAS+716 ;Invalid send JFN
DEFSYM ATNX8==:.ERBAS+717 ;Send JFN not opened for write
DEFSYM ATNX9==:.ERBAS+720 ;Send JFN not open
DEFSYM ATNX10==:.ERBAS+721 ;Send JFN is not a NET connection
DEFSYM ATNX11==:.ERBAS+722 ;Send JFN has been used
DEFSYM ATNX12==:.ERBAS+723 ;Send connection refused
DEFSYM ATNX13==:.ERBAS+724 ;Insufficient system resources (No NVT's)
DEFSYM CVHST1==:.ERBAS+727 ;No string for that Host number
DEFSYM CVSKX1==:.ERBAS+730 ;Invalid network JFN
DEFSYM CVSKX2==:.ERBAS+731 ;Local socket invalid in this context
DEFSYM SNDIX1==:.ERBAS+732 ;Invalid message size
DEFSYM SNDIX2==:.ERBAS+733 ;Insufficient system resources (No buffers available)
DEFSYM SNDIX3==:.ERBAS+734 ;Illegal to specify NCP links 0 - 72
DEFSYM SNDIX4==:.ERBAS+735 ;Invalid header value for this queue
DEFSYM SNDIX5==:.ERBAS+736 ;IMP down
DEFSYM NTWZX1==:.ERBAS+737 ;NET WIZARD capability required
DEFSYM ASNSX1==:.ERBAS+740 ;Insufficient system resources (All special queues in use)
DEFSYM ASNSX2==:.ERBAS+741 ;Link(s) assigned to another special queue
DEFSYM SQX1==:.ERBAS+742 ;Special network queue handle out of range
DEFSYM SQX2==:.ERBAS+743 ;Special network queue not assigned
DEFSYM GTNCX1==:.ERBAS+746 ;Invalid network JFN
DEFSYM GTNCX2==:.ERBAS+747 ;Invalid or inactive NVT
DEFSYM RNAMX5==:.ERBAS+750 ;Destination file is not closed
DEFSYM RNAMX6==:.ERBAS+751 ;Destination file has bad page table
DEFSYM RNAMX7==:.ERBAS+752 ;Source file expunged
DEFSYM RNAMX8==:.ERBAS+753 ;Write or owner access to source file required
DEFSYM RNAMX9==:.ERBAS+754 ;Source file is nonexistent
DEFSYM RNMX10==:.ERBAS+755 ;Source file is not closed
DEFSYM RNMX11==:.ERBAS+756 ;Source file has bad page table
DEFSYM RNMX12==:.ERBAS+757 ;Illegal to rename to self
DEFSYM GJFX36==:.ERBAS+760 ;Internal format of directory is incorrect
DEFSYM ILINS1==:.ERBAS+770 ;Undefined operation code
DEFSYM ILINS2==:.ERBAS+771 ;Undefined JSYS
DEFSYM ILINS3==:.ERBAS+772 ;UUO simulation facility not available
DEFSYM CRLNX1==:.ERBAS+1000 ;Logical name is not defined
DEFSYM INLNX1==:.ERBAS+1001 ;Index is beyond end of logical name table
DEFSYM LNSTX1==:.ERBAS+1002 ;No such logical name
DEFSYM MLKBX1==:.ERBAS+1003 ;Lock facility already in use
DEFSYM MLKBX2==:.ERBAS+1004 ;Too many pages to be locked
DEFSYM MLKBX3==:.ERBAS+1005 ;Page is not available
DEFSYM MLKBX4==:.ERBAS+1006 ;Illegal to remove previous contents of user map
DEFSYM VBCX1==:.ERBAS+1007 ;Display data area not locked in core
DEFSYM RDTX1==:.ERBAS+1010 ;Invalid string pointer
DEFSYM GFKSX1==:.ERBAS+1011 ;Area too small to hold process structure
DEFSYM GTJIX1==:.ERBAS+1013 ;Invalid index
DEFSYM GTJIX2==:.ERBAS+1014 ;Invalid terminal line number
DEFSYM GTJIX3==:.ERBAS+1015 ;Invalid job number
DEFSYM IPCFX1==:.ERBAS+1016 ;Length of packet descriptor block cannot be less than 4
DEFSYM IPCFX2==:.ERBAS+1017 ;No message for this PID
DEFSYM IPCFX3==:.ERBAS+1020 ;Data too long for user's buffer
DEFSYM IPCFX4==:.ERBAS+1021 ;Receiver's PID invalid
DEFSYM IPCFX5==:.ERBAS+1022 ;Receiver's PID disabled
DEFSYM IPCFX6==:.ERBAS+1023 ;Send quota exceeded
DEFSYM IPCFX7==:.ERBAS+1024 ;Receiver quota exceeded
DEFSYM IPCFX8==:.ERBAS+1025 ;IPCF free space exhausted
DEFSYM IPCFX9==:.ERBAS+1026 ;Sender's PID invalid
DEFSYM IPCF10==:.ERBAS+1027 ;WHEEL capability required
DEFSYM IPCF11==:.ERBAS+1030 ;WHEEL or IPCF capability required
DEFSYM IPCF12==:.ERBAS+1031 ;No free PID's available
DEFSYM IPCF13==:.ERBAS+1032 ;PID quota exceeded
DEFSYM IPCF14==:.ERBAS+1033 ;No PID's available to this job
DEFSYM IPCF15==:.ERBAS+1034 ;No PID's available to this process
DEFSYM IPCF16==:.ERBAS+1035 ;Receive and message data modes do not match
DEFSYM IPCF17==:.ERBAS+1036 ;Argument block too small
DEFSYM IPCF18==:.ERBAS+1037 ;Invalid MUTIL JSYS function
DEFSYM IPCF19==:.ERBAS+1040 ;No PID for [SYSTEM] INFO
DEFSYM IPCF20==:.ERBAS+1041 ;Invalid process handle
DEFSYM IPCF21==:.ERBAS+1042 ;Invalid job number
DEFSYM IPCF22==:.ERBAS+1043 ;Invalid software interrupt channel number
DEFSYM IPCF23==:.ERBAS+1044 ;[SYSTEM] INFO already exists
DEFSYM IPCF24==:.ERBAS+1045 ;Invalid message size
DEFSYM IPCF25==:.ERBAS+1046 ;PID does not belong to this job
DEFSYM IPCF26==:.ERBAS+1047 ;PID does not belong to this process
DEFSYM IPCF27==:.ERBAS+1050 ;PID is not defined
DEFSYM IPCF28==:.ERBAS+1051 ;PID not accessible by this process
DEFSYM IPCF29==:.ERBAS+1052 ;PID already being used by another process
DEFSYM IPCF30==:.ERBAS+1053 ;Job is not logged in
DEFSYM GNJFX1==:.ERBAS+1054 ;No more files in this specification
DEFSYM ENQX1==:.ERBAS+1055 ;Invalid function
DEFSYM ENQX2==:.ERBAS+1056 ;Level number too small
DEFSYM ENQX3==:.ERBAS+1057 ;Request and lock level numbers do not match
DEFSYM ENQX4==:.ERBAS+1060 ;Number of pool and lock resources do not match
DEFSYM ENQX5==:.ERBAS+1061 ;Lock already requested
DEFSYM ENQX6==:.ERBAS+1062 ;Requested locks are not all locked
DEFSYM ENQX7==:.ERBAS+1063 ;No ENQ on this lock
DEFSYM ENQX8==:.ERBAS+1064 ;Invalid access change requested
DEFSYM ENQX9==:.ERBAS+1065 ;Invalid number of blocks specified
DEFSYM ENQX10==:.ERBAS+1066 ;Invalid argument block length
DEFSYM ENQX11==:.ERBAS+1067 ;Invalid software interrupt channel number
DEFSYM ENQX12==:.ERBAS+1070 ;Invalid number of resources requested
DEFSYM ENQX13==:.ERBAS+1071 ;Indirect or indexed byte pointer not allowed
DEFSYM ENQX14==:.ERBAS+1072 ;Invalid byte size
DEFSYM ENQX15==:.ERBAS+1073 ;ENQ/DEQ capability required
DEFSYM ENQX16==:.ERBAS+1074 ;WHEEL or OPERATOR capability required
DEFSYM ENQX17==:.ERBAS+1075 ;Invalid JFN
DEFSYM ENQX18==:.ERBAS+1076 ;Quota exceeded
DEFSYM ENQX19==:.ERBAS+1077 ;String too long
DEFSYM ENQX20==:.ERBAS+1100 ;Locked JFN cannot be closed
DEFSYM ENQX21==:.ERBAS+1101 ;Job is not logged in
DEFSYM IPCF31==:.ERBAS+1102 ;Invalid page number
DEFSYM IPCF32==:.ERBAS+1103 ;Page is not private
DEFSYM PMAPX3==:.ERBAS+1104 ;Illegal to move shared page into file
DEFSYM PMAPX4==:.ERBAS+1105 ;Illegal to move file page into process
DEFSYM PMAPX5==:.ERBAS+1106 ;Illegal to move special page into file
DEFSYM PMAPX6==:.ERBAS+1107 ;Disk quota exceeded
DEFSYM SNOPX1==:.ERBAS+1110 ;WHEEL or OPERATOR capability required
DEFSYM SNOPX2==:.ERBAS+1111 ;Invalid function
DEFSYM SNOPX3==:.ERBAS+1112 ;.SNPLC function must be first
DEFSYM SNOPX4==:.ERBAS+1113 ;Only one .SNPLC function allowed
DEFSYM SNOPX5==:.ERBAS+1114 ;Invalid page number
DEFSYM SNOPX6==:.ERBAS+1115 ;Invalid number of pages to lock
DEFSYM SNOPX7==:.ERBAS+1116 ;Illegal to define breakpoints after inserting them
DEFSYM SNOPX8==:.ERBAS+1117 ;Breakpoint is not set on instruction
DEFSYM SNOPX9==:.ERBAS+1120 ;No more breakpoints allowed
DEFSYM SNOP10==:.ERBAS+1121 ;Breakpoints already inserted
DEFSYM SNOP11==:.ERBAS+1122 ;Breakpoints not inserted
DEFSYM SNOP12==:.ERBAS+1123 ;Invalid format for program name symbol
DEFSYM SNOP13==:.ERBAS+1124 ;No such program name symbol
DEFSYM SNOP14==:.ERBAS+1125 ;No such symbol
DEFSYM SNOP15==:.ERBAS+1126 ;Not enough free pages for snooping
DEFSYM SNOP16==:.ERBAS+1127 ;Multiply defined symbol
DEFSYM IPCF33==:.ERBAS+1130 ;Invalid index into system PID table
DEFSYM SNOP17==:.ERBAS+1131 ;Breakpoint already defined
DEFSYM OPNX23==:.ERBAS+1132 ;Disk quota exceeded
DEFSYM GJFX37==:.ERBAS+1133 ;Input deleted
DEFSYM CRLNX2==:.ERBAS+1134 ;WHEEL or OPERATOR capability required
DEFSYM INLNX2==:.ERBAS+1135 ;Invalid function
DEFSYM LNSTX2==:.ERBAS+1136 ;Invalid function
DEFSYM ALCX1==:.ERBAS+1137 ;Invalid function
DEFSYM ALCX2==:.ERBAS+1140 ;WHEEL or OPERATOR capability required
DEFSYM ALCX3==:.ERBAS+1141 ;Device is not assignable
DEFSYM ALCX4==:.ERBAS+1142 ;Invalid job number
DEFSYM ALCX5==:.ERBAS+1143 ;Device already assigned to another job
DEFSYM SPLX1==:.ERBAS+1144 ;Invalid function
DEFSYM SPLX2==:.ERBAS+1145 ;Argument block too small
DEFSYM SPLX3==:.ERBAS+1146 ;Invalid device designator
DEFSYM SPLX4==:.ERBAS+1147 ;WHEEL or OPERATOR capability required
DEFSYM SPLX5==:.ERBAS+1150 ;Illegal to specify 0 as generation number for first file
DEFSYM CLSX3==:.ERBAS+1151 ;File still mapped
DEFSYM CRLNX3==:.ERBAS+1152 ;Invalid function
DEFSYM ALCX6==:.ERBAS+1153 ;Device assigned to user job, but will be given to allocator when released
DEFSYM CKAX1==:.ERBAS+1154 ;Argument block too small
DEFSYM CKAX2==:.ERBAS+1155 ;Invalid directory number
DEFSYM CKAX3==:.ERBAS+1156 ;Invalid access code
DEFSYM TIMX1==:.ERBAS+1157 ;Invalid function
DEFSYM TIMX2==:.ERBAS+1160 ;Invalid process handle
DEFSYM TIMX3==:.ERBAS+1161 ;Time limit already set
DEFSYM TIMX4==:.ERBAS+1162 ;Illegal to clear time limit
DEFSYM SNOP18==:.ERBAS+1163 ;Data page is not private or copy-on-write
DEFSYM GJFX38==:.ERBAS+1164 ;File not found because output-only device was specified
DEFSYM GJFX39==:.ERBAS+1165 ;Logical name loop detected
DEFSYM CRDIX8==:.ERBAS+1166 ;Invalid directory number
DEFSYM CRDIX9==:.ERBAS+1167 ;Internal format of directory is incorrect
DEFSYM CRDI10==:.ERBAS+1170 ;Maximum directory number exceeded; index table needs expanding
DEFSYM DELDX1==:.ERBAS+1171 ;WHEEL or OPERATOR capability required
DEFSYM DELDX2==:.ERBAS+1172 ;Invalid directory number
DEFSYM GACTX3==:.ERBAS+1173 ;Internal format of directory is incorrect
DEFSYM DIAGX1==:.ERBAS+1174 ;Invalid function
DEFSYM DIAGX2==:.ERBAS+1175 ;Device is not assigned
DEFSYM DIAGX3==:.ERBAS+1176 ;Argument block too small
DEFSYM DIAGX4==:.ERBAS+1177 ;Invalid device type
DEFSYM DIAGX5==:.ERBAS+1200 ;WHEEL, OPERATOR, or MAINTENANCE capability required
DEFSYM DIAGX6==:.ERBAS+1201 ;Invalid channel command list
DEFSYM DIAGX7==:.ERBAS+1202 ;Illegal to do I/O across page boundary
DEFSYM DIAGX8==:.ERBAS+1203 ;No such device
DEFSYM DIAGX9==:.ERBAS+1204 ;Unit does not exist
DEFSYM DIAG10==:.ERBAS+1205 ;Subunit does not exist
DEFSYM SYEX1==:.ERBAS+1206 ;Unreasonable SYSERR block size
DEFSYM SYEX2==:.ERBAS+1207 ;No buffer space available for SYSERR
DEFSYM MTOX1==:.ERBAS+1210 ;Invalid function
DEFSYM IOX7==:.ERBAS+1211 ;Insufficient system resources (Job Storage Block full)
DEFSYM IOX8==:.ERBAS+1212 ;Monitor internal error
DEFSYM MTOX5==:.ERBAS+1213 ;Invalid hardware data mode for magnetic tape
DEFSYM DUMPX5==:.ERBAS+1214 ;No-wait dump mode not supported for this device
DEFSYM DUMPX6==:.ERBAS+1215 ;Dump mode not supported for this device
DEFSYM IOX9==:.ERBAS+1216 ;Function legal for sequential write only
DEFSYM CLSX4==:.ERBAS+1217 ;Device still active
DEFSYM MTOX2==:.ERBAS+1220 ;Record size was not set before I/O was done
DEFSYM MTOX3==:.ERBAS+1221 ;Function not legal in dump mode
DEFSYM MTOX4==:.ERBAS+1222 ;Invalid record size
DEFSYM MTOX6==:.ERBAS+1223 ;Invalid magnetic tape density
DEFSYM OPNX25==:.ERBAS+1224 ;Device is write locked
DEFSYM GJFX40==:.ERBAS+1225 ;Undefined attribute in file specification
DEFSYM MTOX7==:.ERBAS+1226 ;WHEEL or OPERATOR capability required
DEFSYM LOUTX3==:.ERBAS+1227 ;WHEEL or OPERATOR capability required
DEFSYM LOUTX4==:.ERBAS+1230 ;LOG capability required
DEFSYM CAPX2==:.ERBAS+1231 ;WHEEL, OPERATOR, or MAINTENANCE capability required
DEFSYM SSAVX3==:.ERBAS+1232 ;Insufficient system resources (Job Storage Block full)
DEFSYM SSAVX4==:.ERBAS+1233 ;Directory area of EXE file is more than one page
DEFSYM TDELX1==:.ERBAS+1234 ;Table is empty
DEFSYM TADDX1==:.ERBAS+1235 ;Table is full
DEFSYM TADDX2==:.ERBAS+1236 ;Entry is already in table
DEFSYM TLUKX1==:.ERBAS+1237 ;Internal format of table is incorrect
DEFSYM IOX10==:.ERBAS+1240 ;Record is longer than user requested
DEFSYM CNDIX2==:.ERBAS+1241 ;WHEEL or OPERATOR capability required
DEFSYM CNDIX4==:.ERBAS+1242 ;Invalid job number
DEFSYM CNDIX6==:.ERBAS+1243 ;Job is not logged in
DEFSYM SJBX1==:.ERBAS+1244 ;Invalid function
DEFSYM SJBX2==:.ERBAS+1245 ;Invalid magnetic tape density
DEFSYM SJBX3==:.ERBAS+1246 ;Invalid magnetic tape data mode
DEFSYM TMONX1==:.ERBAS+1247 ;Invalid TMON function
DEFSYM SMONX2==:.ERBAS+1250 ;Invalid SMON function
DEFSYM SJBX4==:.ERBAS+1251 ;Invalid job number
DEFSYM SJBX5==:.ERBAS+1252 ;Job is not logged in
DEFSYM SJBX6==:.ERBAS+1253 ;WHEEL or OPERATOR capability required
DEFSYM GTJIX4==:.ERBAS+1254 ;No such job
DEFSYM ILINS4==:.ERBAS+1255 ;UUO simulation is disabled
DEFSYM ILINS5==:.ERBAS+1256 ;RMS facility is not available
DEFSYM COMNX1==:.ERBAS+1257 ;Invalid COMND function code
DEFSYM COMNX2==:.ERBAS+1260 ;Field too long for internal buffer
DEFSYM COMNX3==:.ERBAS+1261 ;Command too long for internal buffer
DEFSYM COMNX4==:.ERBAS+1262 ;Invalid character in input
DEFSYM PRAX1==:.ERBAS+1263 ;Invalid PRARG function code
DEFSYM PRAX2==:.ERBAS+1264 ;No room in monitor data base for argument block
DEFSYM COMNX5==:.ERBAS+1265 ;Invalid string pointer argument
DEFSYM COMNX6==:.ERBAS+1266 ;Problem in indirect file
DEFSYM COMNX7==:.ERBAS+1267 ;Error in command
DEFSYM PRAX3==:.ERBAS+1270 ;PRARG argument block too large
DEFSYM CKAX4==:.ERBAS+1271 ;File is not on disk
DEFSYM GACCX1==:.ERBAS+1272 ;Invalid job number
DEFSYM GACCX2==:.ERBAS+1273 ;No such job
DEFSYM MTOX8==:.ERBAS+1274 ;Argument block too long
DEFSYM DBRKX1==:.ERBAS+1275 ;No interrupts in progress
DEFSYM SJPRX1==:.ERBAS+1276 ;Job is not logged in
DEFSYM GJFX41==:.ERBAS+1277 ;File name must not exceed 6 characters
DEFSYM GJFX42==:.ERBAS+1300 ;File type must not exceed 3 characters
DEFSYM GACCX3==:.ERBAS+1301 ;Confidential Information Access capability required
DEFSYM TIMEX2==:.ERBAS+1302 ;Downtime cannot be more than 7 days in the future
DEFSYM DELFX2==:.ERBAS+1303 ;File cannot be expunged because it is currently open
DEFSYM DELFX3==:.ERBAS+1304 ;System scratch area depleted; file not deleted
DEFSYM DELFX4==:.ERBAS+1305 ;Directory symbol table could not be rebuilt
DEFSYM DELFX5==:.ERBAS+1306 ;Directory symbol table needs rebuilding
DEFSYM DELFX6==:.ERBAS+1307 ;Internal format of directory is incorrect
DEFSYM DELFX7==:.ERBAS+1310 ;FDB formatted incorrectly; file not deleted
DEFSYM DELFX8==:.ERBAS+1311 ;FDB not found; file not deleted
DEFSYM FRKHX7==:.ERBAS+1312 ;Process page cannot exceed 777
DEFSYM DIRX1==:.ERBAS+1313 ;Invalid directory number
DEFSYM DIRX2==:.ERBAS+1314 ;Insufficient system resources
DEFSYM DIRX3==:.ERBAS+1315 ;Internal format of directory is incorrect
DEFSYM UFPGX1==:.ERBAS+1316 ;File is not open for write
DEFSYM LNGFX1==:.ERBAS+1317 ;Page table does not exist and file not open for write
DEFSYM IPCF34==:.ERBAS+1320 ;Cannot receive into an existing page
DEFSYM COMNX8==:.ERBAS+1321 ;Number base out of range 2-10
DEFSYM MTOX9==:.ERBAS+1322 ;Output still pending
DEFSYM MTOX10==:.ERBAS+1323 ;VFU or RAM file cannot be OPENed
DEFSYM MTOX11==:.ERBAS+1324 ;Data too large for buffers
DEFSYM MTOX12==:.ERBAS+1325 ;Input error or not all data read
DEFSYM MTOX13==:.ERBAS+1326 ;Argument block too small
DEFSYM MTOX14==:.ERBAS+1327 ;Invalid software interrupt channel number
DEFSYM SAVX1==:.ERBAS+1330 ;Illegal to save files on this device
DEFSYM MTOX15==:.ERBAS+1331 ;Device does not have Direct Access (programmable) VFU
DEFSYM MTOX16==:.ERBAS+1332 ;VFU or Translation Ram file must be on disk
DEFSYM LPINX1==:.ERBAS+1333 ;Invalid unit number
DEFSYM LPINX2==:.ERBAS+1334 ;WHEEL or OPERATOR capability required
DEFSYM LPINX3==:.ERBAS+1335 ;Illegal to load RAM or VFU while device is OPEN
DEFSYM MTOX17==:.ERBAS+1336 ;Device is not on line
DEFSYM LGINX6==:.ERBAS+1337 ;No more job slots available for logging-in
DEFSYM DESX9==:.ERBAS+1340 ;Invalid operation for this device
DEFSYM ACESX1==:.ERBAS+1341 ;Argument block too small
DEFSYM ACESX2==:.ERBAS+1342 ;Insufficient system resources
DEFSYM DSKOX1==:.ERBAS+1343 ;Channel number too large
DEFSYM DSKOX2==:.ERBAS+1344 ;Unit number too large
DEFSYM MSTRX1==:.ERBAS+1345 ;Invalid function
DEFSYM MSTRX2==:.ERBAS+1346 ;WHEEL or OPERATOR capability required
DEFSYM MSTRX3==:.ERBAS+1347 ;Argument block too small
DEFSYM MSTRX4==:.ERBAS+1350 ;Insufficient system resources
DEFSYM MSTRX5==:.ERBAS+1351 ;Drive is not on-line
DEFSYM MSTRX6==:.ERBAS+1352 ;Home blocks are bad
DEFSYM MSTRX7==:.ERBAS+1353 ;Invalid structure name
DEFSYM MSTRX8==:.ERBAS+1354 ;Could not get OFN for ROOT-DIRECTORY
DEFSYM MSTRX9==:.ERBAS+1355 ;Could not MAP ROOT-DIRECTORY
DEFSYM MSTX10==:.ERBAS+1356 ;ROOT-DIRECTORY bad
DEFSYM MSTX11==:.ERBAS+1357 ;Could not initialize Index Table
DEFSYM MSTX12==:.ERBAS+1360 ;Could not OPEN Bit Table File
DEFSYM MSTX13==:.ERBAS+1361 ;Backup copy of ROOT-DIRECTORY is bad
DEFSYM MSTX14==:.ERBAS+1362 ;Invalid channel number
DEFSYM MSTX15==:.ERBAS+1363 ;Invalid unit number
DEFSYM MSTX16==:.ERBAS+1364 ;Invalid controller number
DEFSYM DSKX01==:.ERBAS+1365 ;Invalid structure number
DEFSYM DSKX02==:.ERBAS+1366 ;Bit table is being initialized
DEFSYM DSKX03==:.ERBAS+1367 ;Bit table has not been initialized
DEFSYM DSKX04==:.ERBAS+1370 ;Bit table being initialized by another job
DEFSYM GFUSX1==:.ERBAS+1371 ;Invalid function
DEFSYM GFUSX2==:.ERBAS+1372 ;Insufficient system resources
DEFSYM SFUSX1==:.ERBAS+1373 ;Invalid function
DEFSYM SFUSX2==:.ERBAS+1374 ;Insufficient system resources
DEFSYM SFUSX3==:.ERBAS+1375 ;No such user name
DEFSYM RCDIX1==:.ERBAS+1376 ;Insufficient system resources
DEFSYM RCDIX2==:.ERBAS+1377 ;Invalid directory specification
DEFSYM RCDIX3==:.ERBAS+1400 ;Invalid structure name
DEFSYM RCDIX4==:.ERBAS+1401 ;Monitor internal error
DEFSYM RCUSX1==:.ERBAS+1402 ;Insufficient system resources
DEFSYM TDELX2==:.ERBAS+1403 ;Invalid table entry location
DEFSYM TIMX5==:.ERBAS+1404 ;Invalid software interrupt channel number
DEFSYM LSTRX1==:.ERBAS+1405 ;Process has not encountered any errors
DEFSYM SWJFX1==:.ERBAS+1406 ;Illegal to swap same JFN
DEFSYM MTOX18==:.ERBAS+1407 ;Invalid software interrupt channel number
DEFSYM OPNX26==:.ERBAS+1410 ;Illegal to open a string pointer
DEFSYM DELFX9==:.ERBAS+1411 ;File is not a directory file
DEFSYM CRDIX6==:.ERBAS+1412 ;Directory file is mapped
DEFSYM COMNX9==:.ERBAS+1413 ;End of input file reached
DEFSYM STYPX1==:.ERBAS+1414 ;Invalid terminal type
DEFSYM PMAPX7==:.ERBAS+1415 ;Illegal to map file on dismounted structure
DEFSYM DSKOX3==:.ERBAS+1416 ;Invalid structure number
DEFSYM DESX10==:.ERBAS+1417 ;Structure is dismounted
DEFSYM DSKOX4==:.ERBAS+1420 ;Invalid address type specified
DEFSYM MSTX17==:.ERBAS+1421 ;All units in a structure must be of the same type
DEFSYM MSTX18==:.ERBAS+1422 ;No more units in system
DEFSYM MSTX19==:.ERBAS+1423 ;Unit is already part of a mounted structure
DEFSYM MSTX20==:.ERBAS+1424 ;Data error reading HOME blocks
DEFSYM MSTX21==:.ERBAS+1425 ;Structure is not mounted
DEFSYM MSTX22==:.ERBAS+1426 ;Illegal to change specified bits
DEFSYM CRDI11==:.ERBAS+1427 ;Invalid terminating bracket on directory
DEFSYM MSTX23==:.ERBAS+1430 ;Could not write HOME blocks
DEFSYM ACESX3==:.ERBAS+1431 ;Password is required
DEFSYM ACESX4==:.ERBAS+1432 ;Function not allowed for another job
DEFSYM ACESX5==:.ERBAS+1433 ;No function specified for ACCES
DEFSYM STRX05==:.ERBAS+1434 ;No such user name
DEFSYM ACESX6==:.ERBAS+1435 ;Directory is not accessed
DEFSYM STRX01==:.ERBAS+1436 ;Structure is not mounted
DEFSYM STRX02==:.ERBAS+1437 ;Insufficient system resources
DEFSYM IOX11==:.ERBAS+1440 ;Quota exceeded
DEFSYM IOX12==:.ERBAS+1441 ;Insufficient system resources (Swapping space full)
DEFSYM STRX03==:.ERBAS+1442 ;No such directory name
DEFSYM STRX04==:.ERBAS+1443 ;Ambiguous directory specification
DEFSYM PPNX1==:.ERBAS+1444 ;Invalid PPN
DEFSYM PPNX2==:.ERBAS+1445 ;Structure is not mounted
DEFSYM PPNX3==:.ERBAS+1446 ;Insufficient system resources
DEFSYM PPNX4==:.ERBAS+1447 ;Invalid directory number
DEFSYM SPLX6==:.ERBAS+1450 ;No directory to write spooled files into
DEFSYM CRDI12==:.ERBAS+1451 ;Structure is not mounted
DEFSYM GFUSX3==:.ERBAS+1452 ;File expunged
DEFSYM GFUSX4==:.ERBAS+1453 ;Internal format of directory is incorrect
DEFSYM RNMX13==:.ERBAS+1454 ;Insufficient system resources
DEFSYM SJBX8==:.ERBAS+1455 ;Illegal to perform this function
DEFSYM DECRSV==:.ERBAS+1456 ;DEC reserved bits not zero
DEFSYM FFFFX1==:.ERBAS+1457 ;No free pages in file
DEFSYM WILDX1==:.ERBAS+1460 ;Second JFN cannot be wild
DEFSYM MSTX41==:.ERBAS+1461 ;Channel does not exist
DEFSYM MSTX42==:.ERBAS+1462 ;Controller does not exist
DEFSYM CIMXND==:.ERBAS+1463 ;Maximum memory driver nodes assigned
;DEFSYM CINOND==:.ERBAS+1464 ;No LCS node slots availble
DEFSYM CIBDOF==:.ERBAS+1465 ;BAD BDT offset given
DEFSYM CINOFQ==:.ERBAS+1466 ;No CI free queue entries left
DEFSYM CINOPG==:.ERBAS+1467 ;No BDT page slots left
DEFSYM CINPTH==:.ERBAS+1470 ;Target CI LCS node is dead, no path to it
DEFSYM CIBDCD==:.ERBAS+1471 ;Bad CI op code
DEFSYM CIUNOP==:.ERBAS+1472 ;Undefined op code (in range but not yet defined)
;DEFSYM CINOND==:.ERBAS+1473 ;Dead LCS node
DEFSYM CILNER==:.ERBAS+1474 ;CI length error
DEFSYM LCBDBP==:.ERBAS+1475 ;Bad byte pointer passed to LCS
DEFSYM LCLNER==:.ERBAS+1476 ;LCS length error
DEFSYM LCNOND==:.ERBAS+1477 ;LCS No such node
DEFSYM SSAVX5==:.ERBAS+1500 ;Number of PDVs grew during save
DEFSYM CIBDFQ==:.ERBAS+1501 ;BAD CI FREE QUEUE
DEFSYM ATACX6==:.ERBAS+1502 ;Terminal is already attached to a job
DEFSYM ATACX7==:.ERBAS+1503 ;Illegal terminal number
DEFSYM QUEUX1==:.ERBAS+1504 ;Illegal argument list passed to QUEUE%
DEFSYM QUEUX2==:.ERBAS+1505 ;Invalid function
DEFSYM QUEUX3==:.ERBAS+1506 ;Fatal error returned from application
DEFSYM QUEUX4==:.ERBAS+1507 ;Invalid message returned from ORION
DEFSYM QUEUX5==:.ERBAS+1510 ;Insufficient system resources (Job Storage Block full)
DEFSYM QUEUX6==:.ERBAS+1511 ;Illegal response length
DEFSYM QUEUX7==:.ERBAS+1512 ;Argument block too small
DEFSYM DIAG21==:.ERBAS+1513 ;Performance counter read timed out
DEFSYM MTNX01==:.ERBAS+1514 ;Serial number out of range
DEFSYM DIAG22==:.ERBAS+1515 ;Illegal CI node number
DEFSYM DIAG23==:.ERBAS+1516 ;No System Block for Remote CI Node
DEFSYM DIAG24==:.ERBAS+1517 ;Remote CI Node does not support this function
DEFSYM DIAG25==:.ERBAS+1520 ;Remote CI Node not in correct state for this function
DEFSYM DIAG26==:.ERBAS+1521 ;Illegal argument for this DIAG% function
DEFSYM DIAG27==:.ERBAS+1522 ;Read/Write of CI Maintenance data timed out
DEFSYM DIAG30==:.ERBAS+1523 ;Read/Write of CI Maintenance data finished with an error
DEFSYM SCSTBF==:.ERBAS+1524 ;No slots left in CID tables
DEFSYM MSTX47==:.ERBAS+1525 ;Shared access denied; already set exclusive in CFS cluster
DEFSYM MSTX48==:.ERBAS+1526 ;Exclusive access denied; access conflict in CFS cluster
DEFSYM MSTX49==:.ERBAS+1527 ;Structure naming conflict in CFS cluster
DEFSYM PAGPTN==:.ERBAS+1530 ;Page table entry nonzero. (DEC internal error code.)
DEFSYM MSTX50==:.ERBAS+1531 ;Mount type refused by this CFS processor
DEFSYM MSTX51==:.ERBAS+1532 ;Insufficient system resources (structure limit exceeded)
DEFSYM DSKOX5==:.ERBAS+1533 ;Invalid word count
DEFSYM DSKOX6==:.ERBAS+1534 ;Invalid buffer address
DEFSYM TIMX6==:.ERBAS+1535 ;Time has already passed
DEFSYM TIMX7==:.ERBAS+1536 ;No space available for a clock
DEFSYM TIMX8==:.ERBAS+1537 ;User clock allocation exceeded
DEFSYM TIMX9==:.ERBAS+1540 ;No such clock entry found
DEFSYM TIMX10==:.ERBAS+1541 ;No system date and time
DEFSYM SCTX1==:.ERBAS+1550 ;Invalid function code
DEFSYM SCTX2==:.ERBAS+1551 ;Terminal already in use as controlling terminal
DEFSYM SCTX3==:.ERBAS+1552 ;Illegal to redefine the job's controlling terminal
DEFSYM SCTX4==:.ERBAS+1553 ;SC%SCT capability required
DEFSYM PDVX01==:.ERBAS+1554 ;Address in .POADE must be as large as address in .POADR
DEFSYM PDVX02==:.ERBAS+1555 ;Addresses in .PODAT block must be in strict ascending order
DEFSYM PDVX03==:.ERBAS+1556 ;Address in .POADR must be a program data vector address
DEFSYM GETX4==:.ERBAS+1557 ;Illegal to relocate (via .GBASE) a multi-section exe file
DEFSYM GETX5==:.ERBAS+1560 ;Exe file directory entry specifies a section-crossing
DEFSYM DYNX01==:.ERBAS+1561 ;DYNLB% Function Code Out of Range
DEFSYM DYNX02==:.ERBAS+1562 ;Undefined DYNLB% Function
DEFSYM DYNX03==:.ERBAS+1563 ;No Free Section In Which to Map Dynamic Library
DEFSYM DYNX04==:.ERBAS+1564 ;Unable to Get a JFN on Dynamic Library File
DEFSYM DYNX05==:.ERBAS+1565 ;Unable to Get Dynamic Library
DEFSYM DYNX06==:.ERBAS+1566 ;No Program Data Vector Found in Dynamic Library
DEFSYM DYNX07==:.ERBAS+1567 ;More Than One Dynamic Library in File
DEFSYM DYNX08==:.ERBAS+1570 ;Unable to Un-Map Section During De-Link Operation
DEFSYM DYNX09==:.ERBAS+1571 ;No Transfer Vector Address in Library Descriptor Block of Dynamic Library
DEFSYM DYNX10==:.ERBAS+1572 ;Library Name String Too Long
DEFSYM DYNX11==:.ERBAS+1573 ;Unable to Make Library Known (No JSB Free Space)
DEFSYM CTSX01==:.ERBAS+1600 ;CTSOP% Function Code Out of Range
DEFSYM CTSX02==:.ERBAS+1601 ;Undefined CTSOP% Function
DEFSYM CTSX03==:.ERBAS+1602 ;Insufficient System Resources (No JSB Free Space)
DEFSYM CTSX04==:.ERBAS+1603 ;No Default Canonical Library Name
DEFSYM CTSX05==:.ERBAS+1604 ;Illegal to Issue CTSOP% .CTCAL Function from Section Zero
DEFSYM CTSX06==:.ERBAS+1605 ;Stack Overflow During CTSOP% .CTCAL Function
DEFSYM CTSX07==:.ERBAS+1606 ;Illegal Memory Write During CTSOP% .CTCAL Function
DEFSYM CTSX08==:.ERBAS+1607 ;Invalid Function Code Given During CTSOP% .CTCAL Function
DEFSYM CTSX09==:.ERBAS+1610 ;No Address of CTS Descriptor Block Found in Library Descriptor Block of Library
DEFSYM CTSX10==:.ERBAS+1611 ;Length of CTS Descriptor Block Incorrect
DEFSYM CTSX11==:.ERBAS+1612 ;Invalid Number of Pages in CTS Descriptor Block
DEFSYM CTSX12==:.ERBAS+1613 ;No Monitor Pages Available for Terminal Data Base
DEFSYM CTSX13==:.ERBAS+1614 ;Unimplemented Canonical Terminal Operation
DEFSYM DOBX01==:.ERBAS+1615 ;Not a BUGCHK or BUGINF
DEFSYM DOBX02==:.ERBAS+1616 ;DOB is disabled
DEFSYM DOBX03==:.ERBAS+1617 ;DOB already disabled
DEFSYM DOBX04==:.ERBAS+1620 ;DOB already enabled
DEFSYM DOBX05==:.ERBAS+1621 ;Dump was not requested for this BUG
DEFSYM DOBX06==:.ERBAS+1622 ;Dump was already requested for this BUG
DEFSYM DOBX07==:.ERBAS+1623 ;Structure is not dumpable
DEFSYM DOBX08==:.ERBAS+1624 ;DOB timeout out of range
; Note: Error codes 1625-1673 are available here!
DEFSYM STRX11==:.ERBAS+1674 ;Invalid structure number
DEFSYM USGX04==:.ERBAS+1675 ;Invalid terminal line number
DEFSYM STRX10==:.ERBAS+1676 ;Structure is offline
DEFSYM SMONX3==:.ERBAS+1677 ;Timeout interval out of range
DEFSYM SFUSX4==:.ERBAS+1700 ;File expunged
DEFSYM SFUSX5==:.ERBAS+1701 ;Write or owner access required
DEFSYM SFUSX6==:.ERBAS+1702 ;No such user name
DEFSYM GETX3==:.ERBAS+1703 ;Illegal to overlay existing pages
DEFSYM FILX01==:.ERBAS+1704 ;File is not open
DEFSYM ARGX01==:.ERBAS+1705 ;Invalid password
DEFSYM CAPX3==:.ERBAS+1706 ;WHEEL capability required
DEFSYM CAPX4==:.ERBAS+1707 ;WHEEL or IPCF capability required
DEFSYM CAPX6==:.ERBAS+1711 ;ENQ/DEQ capability required
DEFSYM CAPX7==:.ERBAS+1712 ;Confidential Information Access Capability required
DEFSYM ARGX02==:.ERBAS+1713 ;Invalid function
DEFSYM ARGX03==:.ERBAS+1714 ;Illegal to change specified bits
DEFSYM ARGX04==:.ERBAS+1715 ;Argument block too small
DEFSYM ARGX05==:.ERBAS+1716 ;Argument block too long
DEFSYM ARGX06==:.ERBAS+1717 ;Invalid page number
DEFSYM ARGX07==:.ERBAS+1720 ;Invalid job number
DEFSYM ARGX08==:.ERBAS+1721 ;No such job
DEFSYM ARGX09==:.ERBAS+1722 ;Invalid byte size
DEFSYM ARGX10==:.ERBAS+1723 ;Invalid access requested
DEFSYM ARGX11==:.ERBAS+1724 ;Invalid directory number
DEFSYM ARGX12==:.ERBAS+1725 ;Invalid process handle
DEFSYM ARGX13==:.ERBAS+1726 ;Invalid software interrupt channel number
DEFSYM MONX01==:.ERBAS+1727 ;Insufficient system resources
DEFSYM MONX02==:.ERBAS+1730 ;Insufficient system resources (JSB full)
DEFSYM MONX03==:.ERBAS+1731 ;Monitor internal error
DEFSYM MONX04==:.ERBAS+1732 ;Insufficient system resources (Swapping space full)
DEFSYM ARGX14==:.ERBAS+1733 ;Invalid account identifier
DEFSYM ARGX15==:.ERBAS+1734 ;Job is not logged in
DEFSYM FILX02==:.ERBAS+1735 ;Write or owner access required
DEFSYM FILX03==:.ERBAS+1736 ;List access required
DEFSYM DEVX4==:.ERBAS+1737 ;Device is not assignable
DEFSYM FILX04==:.ERBAS+1740 ;File is not on multiple-directory device
DEFSYM ARGX16==:.ERBAS+1741 ;Password is required
DEFSYM ARGX17==:.ERBAS+1742 ;Invalid argument block length
DEFSYM ARGX18==:.ERBAS+1743 ;Invalid structure name
DEFSYM DEVX5==:.ERBAS+1744 ;No such device
DEFSYM DIRX4==:.ERBAS+1745 ;Invalid directory specification
DEFSYM FILX05==:.ERBAS+1746 ;File expunged
DEFSYM STRX06==:.ERBAS+1747 ;No such user number
DEFSYM MSTX24==:.ERBAS+1750 ;Illegal to dismount the System Structure
DEFSYM MSTX25==:.ERBAS+1751 ;Invalid number of swapping pages
DEFSYM MSTX26==:.ERBAS+1752 ;Invalid number of Front-End-Filesystem pages
DEFSYM LOUTX5==:.ERBAS+1753 ;Illegal to log out job 0
DEFSYM GJFX43==:.ERBAS+1754 ;More than one ;T specification is not allowed
DEFSYM MTOX19==:.ERBAS+1755 ;Invalid terminal page width
DEFSYM MTOX20==:.ERBAS+1756 ;Invalid terminal page length
DEFSYM MSTX27==:.ERBAS+1757 ;Specified unit is not a disk
DEFSYM MSTX28==:.ERBAS+1760 ;Could not initialize bit table for structure
DEFSYM MSTX29==:.ERBAS+1761 ;Could not reconstruct ROOT-DIRECTORY
DEFSYM DSKX05==:.ERBAS+1763 ;Disk assignments and deassignments are currently prohibited
DEFSYM DSKX06==:.ERBAS+1764 ;Invalid disk address
DEFSYM DSKX07==:.ERBAS+1765 ;Address cannot be deassigned because it is not assigned
DEFSYM DSKX08==:.ERBAS+1766 ;Address cannot be assigned because it is already assigned
DEFSYM COMX10==:.ERBAS+1767 ;Invalid default string
DEFSYM MSTX30==:.ERBAS+1770 ;Incorrect Bit Table counts on structure
DEFSYM LOCKX1==:.ERBAS+1771 ;Illegal to lock other than a private page
DEFSYM LOCKX2==:.ERBAS+1772 ;Requested page unavailable
DEFSYM LOCKX3==:.ERBAS+1773 ;Attempt to lock too much memory
DEFSYM ILLX01==:.ERBAS+1774 ;Illegal memory read
DEFSYM ILLX02==:.ERBAS+1775 ;Illegal memory write
DEFSYM ILLX03==:.ERBAS+1776 ;Memory data parity error
DEFSYM ILLX04==:.ERBAS+1777 ;Reference to non-existent page
DEFSYM MSTX31==:.ERBAS+2000 ;Structure already mounted
DEFSYM MSTX32==:.ERBAS+2001 ;Structure was not mounted
DEFSYM MSTX33==:.ERBAS+2002 ;Structure is unavailable for mounting
DEFSYM STDIX1==:.ERBAS+2003 ;The STDIR JSYS has been replaced by RCDIR and RCUSR
DEFSYM CNDIX7==:.ERBAS+2004 ;The CNDIR JSYS has been replaced by ACCES
DEFSYM PMCLX1==:.ERBAS+2005 ;Illegal page state or state transition
DEFSYM PMCLX2==:.ERBAS+2006 ;Requested physical page is unavailable
DEFSYM PMCLX3==:.ERBAS+2007 ;Requested physical page contains errors
DEFSYM DLFX10==:.ERBAS+2010 ;Cannot delete directory; file still mapped
DEFSYM DLFX11==:.ERBAS+2011 ;Cannot delete directory file in this manner
DEFSYM GJFX44==:.ERBAS+2012 ;Account string does not match
DEFSYM UTSTX1==:.ERBAS+2013 ;Invalid function code
DEFSYM UTSTX2==:.ERBAS+2014 ;Area of code too large to test
DEFSYM UTSTX3==:.ERBAS+2015 ;UTEST facility in use by another process
DEFSYM BOTX01==:.ERBAS+2016 ;Invalid DTE-20 number
DEFSYM BOTX02==:.ERBAS+2017 ;Invalid byte size
DEFSYM DCNX1==:.ERBAS+2020 ;Invalid network file name
DEFSYM DCNX5==:.ERBAS+2021 ;No more logical links available
DEFSYM DCNX3==:.ERBAS+2022 ;Invalid object
DEFSYM DCNX4==:.ERBAS+2023 ;Invalid task name
DEFSYM DCNX9==:.ERBAS+2024 ;Object is already defined
DEFSYM DCNX8==:.ERBAS+2025 ;Invalid network operation
DEFSYM DCNX11==:.ERBAS+2026 ;Link aborted
DEFSYM DCNX12==:.ERBAS+2027 ;String exceeds 16 bytes
DEFSYM TTYX01==:.ERBAS+2030 ;Line is not active
DEFSYM BOTX03==:.ERBAS+2031 ;Invalid protocol version number
DEFSYM MONX05==:.ERBAS+2032 ;Insufficient system resources (no resident free space)
DEFSYM ARGX19==:.ERBAS+2033 ;Invalid unit number
DEFSYM COMX11==:.ERBAS+2035 ;Invalid CMRTY pointer
DEFSYM COMX12==:.ERBAS+2036 ;Invalid CMBFP pointer
DEFSYM COMX13==:.ERBAS+2037 ;Invalid CMPTR pointer
DEFSYM COMX14==:.ERBAS+2040 ;Invalid CMABP pointer
DEFSYM COMX15==:.ERBAS+2041 ;Invalid default string pointer
DEFSYM COMX16==:.ERBAS+2042 ;Invalid help message pointer
DEFSYM COMX17==:.ERBAS+2043 ;Invalid byte pointer in function block
DEFSYM NPXAMB==:.ERBAS+2044 ;Ambiguous
DEFSYM NPXNSW==:.ERBAS+2045 ;Not a switch - does not begin with slash
DEFSYM NPXNOM==:.ERBAS+2046 ;Does not match switch or keyword
DEFSYM NPXNUL==:.ERBAS+2047 ;Null switch or keyword given
DEFSYM NPXINW==:.ERBAS+2050 ;Invalid guide word
DEFSYM NPXNC==:.ERBAS+2051 ;Not confirmed
DEFSYM NPXICN==:.ERBAS+2052 ;Invalid character in number
DEFSYM NPXIDT==:.ERBAS+2053 ;Invalid device terminator
DEFSYM NPXNQS==:.ERBAS+2054 ;Not a quoted string - quote missing at beginning or end
DEFSYM NPXNMT==:.ERBAS+2055 ;Does not match token
DEFSYM NPXNMD==:.ERBAS+2056 ;Does not match directory or user name, or structure not mounted
DEFSYM NPXCMA==:.ERBAS+2057 ;Comma not given
DEFSYM GJFX45==:.ERBAS+2060 ;Illegal to request multiple specifications for the same attribute
DEFSYM GJFX46==:.ERBAS+2061 ;Attribute value is required
DEFSYM GJFX47==:.ERBAS+2062 ;Attribute does not take a value
DEFSYM MSTX34==:.ERBAS+2063 ;Unit is write-locked
DEFSYM GJFX48==:.ERBAS+2064 ;GTJFN input buffer is empty
DEFSYM GJFX49==:.ERBAS+2065 ;Invalid attribute for this device
DEFSYM SJBX7==:.ERBAS+2077 ;Remark exceeds 39 characters
DEFSYM DELF10==:.ERBAS+2100 ;Directory still contains subdirectory
DEFSYM CRDI13==:.ERBAS+2101 ;Request exceeds superior directory working quota
DEFSYM CRDI14==:.ERBAS+2102 ;Request exceeds superior directory permanent quota
DEFSYM CRDI15==:.ERBAS+2103 ;Request exceeds superior directory subdirectory quota
DEFSYM CRDI16==:.ERBAS+2104 ;Invalid user group
DEFSYM ENACX1==:.ERBAS+2105 ;Account validation data base file not completely closed
DEFSYM ENACX2==:.ERBAS+2106 ;Cannot get a JFN for <SYSTEM
DEFSYM ENACX3==:.ERBAS+2107 ;Account validation data base file too long
DEFSYM ENACX4==:.ERBAS+2110 ;Cannot get an OFN for <SYSTEM
DEFSYM VACCX0==:.ERBAS+2111 ;Invalid account
DEFSYM VACCX1==:.ERBAS+2112 ;Account string exceeds 39 characters
DEFSYM USGX01==:.ERBAS+2113 ;Invalid USAGE entry type code
DEFSYM BOTX04==:.ERBAS+2114 ;Byte count is not positive
DEFSYM NODX01==:.ERBAS+2115 ;Node name exceeds 6 characters
DEFSYM USGX02==:.ERBAS+2116 ;Item not found in argument list
DEFSYM CRDI17==:.ERBAS+2117 ;Illegal to create non-files-only subdirectory under files-only directory
DEFSYM ENQX23==:.ERBAS+2120 ;Mismatched mask block lengths
DEFSYM ENQX22==:.ERBAS+2121 ;Invalid mask block length
DEFSYM DCNX2==:.ERBAS+2122 ;Interrupt message must be read first
DEFSYM ABRKX1==:.ERBAS+2123 ;Address break not available on this system
DEFSYM USGX03==:.ERBAS+2124 ;Default item not allowed
DEFSYM IPCF35==:.ERBAS+2125 ;Invalid IPCF quota
DEFSYM VACCX2==:.ERBAS+2126 ;Account has expired
DEFSYM CRDI18==:.ERBAS+2127 ;Illegal to delete logged-in directory
DEFSYM CRDI19==:.ERBAS+2130 ;Illegal to delete connected directory
DEFSYM ENACX5==:.ERBAS+2131 ;Account validation data base file is empty
DEFSYM BOTX05==:.ERBAS+2132 ;Protocol initialization failed
DEFSYM CRDI20==:.ERBAS+2133 ;WHEEL, OPERATOR, or requested capability required
DEFSYM COMX18==:.ERBAS+2134 ;Invalid character in node name
DEFSYM COMX19==:.ERBAS+2135 ;Too many characters in node name
DEFSYM CRDI21==:.ERBAS+2136 ;Working space insufficient for current allocation
DEFSYM ACESX7==:.ERBAS+2137 ;Directory is "files-only" and cannot be accessed
DEFSYM CRDI22==:.ERBAS+2140 ;Subdirectory quota insufficient for existing subdirectories
DEFSYM CRDI23==:.ERBAS+2141 ;Superior directory does not exist
DEFSYM STRX07==:.ERBAS+2142 ;Invalid user number
DEFSYM STRX08==:.ERBAS+2143 ;Invalid user name
DEFSYM CRDI24==:.ERBAS+2144 ;Invalid subdirectory quota
DEFSYM ATSX01==:.ERBAS+2146 ;Invalid mode
DEFSYM ATSX02==:.ERBAS+2147 ;Illegal to declare mode twice
DEFSYM ATSX03==:.ERBAS+2150 ;Illegal to declare mode after acquiring terminal
DEFSYM ATSX04==:.ERBAS+2151 ;Invalid event code
DEFSYM ATSX05==:.ERBAS+2152 ;Invalid function code for channel assignment
DEFSYM ATSX06==:.ERBAS+2153 ;JFN is not an ATS JFN
DEFSYM ATSX07==:.ERBAS+2154 ;Table length too small
DEFSYM ATSX08==:.ERBAS+2155 ;Table lengths must be the same
DEFSYM ATSX09==:.ERBAS+2156 ;Table length too large
DEFSYM ATSX10==:.ERBAS+2157 ;Maximum applications terminals for system already assigned
DEFSYM ATSX11==:.ERBAS+2160 ;Byte count is too large
DEFSYM ATSX12==:.ERBAS+2161 ;Terminal not assigned to this JFN
DEFSYM ATSX13==:.ERBAS+2162 ;Terminal is XOFF'd
DEFSYM ATSX14==:.ERBAS+2163 ;Terminal has been released
DEFSYM ATSX15==:.ERBAS+2164 ;Terminal identifier is not assigned
DEFSYM PMCLX4==:.ERBAS+2165 ;No more error information
DEFSYM ATSX16==:.ERBAS+2166 ;Invalid Host Terminal Number
DEFSYM ATSX17==:.ERBAS+2167 ;Output failed -- monitor internal error
DEFSYM FRKHX8==:.ERBAS+2170 ;Illegal to manipulate an execute-only process
DEFSYM ARGX20==:.ERBAS+2171 ;Invalid arithmetic trap argument
DEFSYM ARGX21==:.ERBAS+2172 ;Invalid LUUO trap argument
DEFSYM ARGX22==:.ERBAS+2173 ;Invalid flags
DEFSYM ATSX18==:.ERBAS+2174 ;ATS input message too long for internal buffers
DEFSYM ATSX19==:.ERBAS+2175 ;Monitor internal error - ATS input message truncated
DEFSYM ATSX20==:.ERBAS+2176 ;Illegal to close JFN with terminal assigned
DEFSYM ARGX23==:.ERBAS+2177 ;Invalid section number
DEFSYM ARGX24==:.ERBAS+2200 ;Invalid count
DEFSYM MSTX35==:.ERBAS+2201 ;Too many units in structure
DEFSYM DCNX13==:.ERBAS+2202 ;Node not accessible
DEFSYM DCNX14==:.ERBAS+2203 ;Previous interrupt message outstanding
DEFSYM DCNX15==:.ERBAS+2204 ;No interrupt message available
DEFSYM GJFX50==:.ERBAS+2205 ;Invalid argument for attribute
DEFSYM KDPX01==:.ERBAS+2206 ;KMC11 not running
DEFSYM NODX02==:.ERBAS+2207 ;Line not turned off
DEFSYM NODX03==:.ERBAS+2210 ;Another line already looped
DEFSYM GJFX51==:.ERBAS+2211 ;Byte count too small
DEFSYM COMX20==:.ERBAS+2212 ;Invalid node name
DEFSYM ATSX21==:.ERBAS+2213 ;Maximum applications terminals for job already assigned
DEFSYM ATSX22==:.ERBAS+2214 ;Failed to acquire applications terminal
DEFSYM ATSX23==:.ERBAS+2215 ;Invalid device name
DEFSYM ATSX24==:.ERBAS+2216 ;Invalid server name
DEFSYM ATSX25==:.ERBAS+2217 ;Terminal is already released
DEFSYM GOKER1==:.ERBAS+2220 ;Illegal function
DEFSYM GOKER2==:.ERBAS+2221 ;Request denied by Access Control Facility
DEFSYM STRX09==:.ERBAS+2222 ;Prior structure mount required
DEFSYM MSTX36==:.ERBAS+2223 ;Illegal while JFNs assigned
DEFSYM MSTX37==:.ERBAS+2224 ;Illegal while connected to structure
DEFSYM MSTX40==:.ERBAS+2225 ;Invalid PSI channel number given
DEFSYM ATSX26==:.ERBAS+2226 ;Invalid host name
DEFSYM IOX13==:.ERBAS+2227 ;Invalid segment type
DEFSYM IOX14==:.ERBAS+2230 ;Invalid segment size
DEFSYM IOX15==:.ERBAS+2231 ;Illegal tape format for dump mode
DEFSYM IOX16==:.ERBAS+2232 ;Density specified does not match tape density
DEFSYM IOX17==:.ERBAS+2233 ;Invalid tape label
DEFSYM IOX20==:.ERBAS+2234 ;Illegal tape record size
DEFSYM IOX21==:.ERBAS+2235 ;Tape HDR1 missing
DEFSYM IOX22==:.ERBAS+2236 ;Invalid tape HDR1 sequence number
DEFSYM IOX23==:.ERBAS+2237 ;Tape label read error
DEFSYM IOX24==:.ERBAS+2240 ;Logical end of tape encountered
DEFSYM IOX25==:.ERBAS+2241 ;Invalid tape format
DEFSYM SWJFX2==:.ERBAS+2242 ;Illegal to swap ATS JFN
DEFSYM IOX26==:.ERBAS+2243 ;Tape write date has not expired
DEFSYM IOX27==:.ERBAS+2244 ;Tape is domestic and HDR2 is missing
DEFSYM IOX30==:.ERBAS+2245 ;Tape has invalid access character
DEFSYM ARGX25==:.ERBAS+2246 ;Invalid class
DEFSYM SKDX1==:.ERBAS+2247 ;Cannot change class
DEFSYM MREQX1==:.ERBAS+2250 ;Request canceled by user
DEFSYM MREQX2==:.ERBAS+2251 ;Labeled tapes not permitted on 7-track drives
DEFSYM MREQX3==:.ERBAS+2252 ;Unknown density specified
DEFSYM MREQX4==:.ERBAS+2253 ;Unknown drive type specified
DEFSYM MREQX5==:.ERBAS+2254 ;Unknown label type specified
DEFSYM MREQX6==:.ERBAS+2255 ;Set name illegal or not specified
DEFSYM MREQX7==:.ERBAS+2256 ;Illegal starting-volume specification
DEFSYM MREQX8==:.ERBAS+2257 ;Attempt to switch to volume outside set
DEFSYM MREQX9==:.ERBAS+2260 ;Illegal volume identifier specified
DEFSYM MREQ10==:.ERBAS+2261 ;Density mismatch between request and volume
DEFSYM MREQ11==:.ERBAS+2262 ;Drive type mismatch between request and volume
DEFSYM MREQ12==:.ERBAS+2263 ;Label type mismatch between request and volume
DEFSYM MREQ13==:.ERBAS+2264 ;Structural error in mount message
DEFSYM MREQ14==:.ERBAS+2265 ;Setname mismatch between request and volume
DEFSYM MREQ15==:.ERBAS+2266 ;Mount refused by operator
DEFSYM MREQ16==:.ERBAS+2267 ;Volume identifiers not supplied by operator
DEFSYM MREQ17==:.ERBAS+2270 ;Volume-identifier list missing
DEFSYM MREQ18==:.ERBAS+2271 ;End of volume-identifier list reached while reading
DEFSYM MREQ19==:.ERBAS+2272 ;Requested tape drive type not available to system
DEFSYM MREQ20==:.ERBAS+2273 ;Structural error in mount entry
DEFSYM MREQ21==:.ERBAS+2274 ;Mount requested for unknown device type
DEFSYM DEVX6==:.ERBAS+2275 ;Job has open JFN on device
DEFSYM ATSX27==:.ERBAS+2276 ;Terminal is not open
DEFSYM ATSX28==:.ERBAS+2277 ;Unknown error received
DEFSYM ATSX29==:.ERBAS+2300 ;Receive error threshold exceeded
DEFSYM ATSX30==:.ERBAS+2301 ;Reply threshold exceeded
DEFSYM ATSX31==:.ERBAS+2302 ;NAK threshold exceeded
DEFSYM ATSX32==:.ERBAS+2303 ;Terminal protocol error
DEFSYM ATSX33==:.ERBAS+2304 ;Intervention required at terminal
DEFSYM ATSX34==:.ERBAS+2305 ;Powerfail
DEFSYM ATSX35==:.ERBAS+2306 ;Data pipe was disconnected
DEFSYM ATSX36==:.ERBAS+2307 ;Dialup terminal was attached
DEFSYM DATEX7==:.ERBAS+2310 ;Julian day is out of range
DEFSYM MREQ22==:.ERBAS+2311 ;Structure name not specified
DEFSYM ARCFX2==:.ERBAS+2312 ;File already has archive status
DEFSYM ARCFX3==:.ERBAS+2313 ;Cannot perform ARCF functions on nonmultiple directory devices
DEFSYM ARCFX4==:.ERBAS+2314 ;File is not on line
DEFSYM ARCFX5==:.ERBAS+2315 ;Files not on the same device or structure
DEFSYM ARCFX6==:.ERBAS+2316 ;File does not have archive status
DEFSYM ARCFX7==:.ERBAS+2317 ;Invalid parameter
DEFSYM ARCFX8==:.ERBAS+2320 ;Archive not complete
DEFSYM ARCFX9==:.ERBAS+2321 ;File not off line
DEFSYM ARCX10==:.ERBAS+2322 ;Archive prohibited
DEFSYM ARCX11==:.ERBAS+2323 ;Archive requested, modification prohibited
DEFSYM ARCX12==:.ERBAS+2324 ;Archive requested, delete prohibited
DEFSYM ARCX13==:.ERBAS+2325 ;Archive system request not completed
DEFSYM OPNX30==:.ERBAS+2326 ;File has archive status, modification is prohibited
DEFSYM OPNX31==:.ERBAS+2327 ;File is off line
DEFSYM DELX11==:.ERBAS+2330 ;File has archive status, delete is not permitted
DEFSYM DELX12==:.ERBAS+2331 ;File has no pointer to offline storage
DEFSYM ARCX14==:.ERBAS+2332 ;File restore failed
DEFSYM ARCX15==:.ERBAS+2333 ;Migration prohibited
DEFSYM ARCX16==:.ERBAS+2334 ;Cannot exempt off-line file
DEFSYM ARCX17==:.ERBAS+2335 ;FDB incorrect format for ARCF JSYS
DEFSYM ARCX18==:.ERBAS+2336 ;Retrieval request cannot be fulfilled for waiting process
DEFSYM ARCX19==:.ERBAS+2337 ;Migration already pending
DEFSYM ARGX26==:.ERBAS+2340 ;File is off line
DEFSYM ARGX27==:.ERBAS+2341 ;Off line expiration time cannot exceed system or directory maximum
DEFSYM DIRX5==:.ERBAS+2342 ;Directory too large
DEFSYM IOX31==:.ERBAS+2343 ;Invalid record descriptor in labeled tape
DEFSYM MREQ23==:.ERBAS+2344 ;Dismount refused by operator
DEFSYM MREQ24==:.ERBAS+2345 ;Illegal to dismount connected structure
DEFSYM MREQ25==:.ERBAS+2346 ;Structure not found
DEFSYM LTLBLX==:.ERBAS+2347 ;Too many user labels
DEFSYM LTLBX1==:.ERBAS+2350 ;Undefined record format on non-TOPS20 tape
DEFSYM MREQ26==:.ERBAS+2351 ;Tape mounting function disabled by installation
DEFSYM METRX1==:.ERBAS+2352 ;METER% not supported on this processor
DEFSYM NSPX00==:.ERBAS+2353 ;Reject or disconnect by object
DEFSYM NSPX01==:.ERBAS+2354 ;Resource allocation failure
DEFSYM NSPX02==:.ERBAS+2355 ;Destination node does not exist
DEFSYM NSPX03==:.ERBAS+2356 ;Remote node shutting down
DEFSYM NSPX04==:.ERBAS+2357 ;Destination process does not exist
DEFSYM NSPX05==:.ERBAS+2360 ;Invalid process name field
DEFSYM NSPX06==:.ERBAS+2361 ;Object is busy
DEFSYM NSPX07==:.ERBAS+2362 ;Unspecified error
DEFSYM NSPX08==:.ERBAS+2363 ;Abort by management
DEFSYM NSPX09==:.ERBAS+2364 ;Abort by object
DEFSYM NSPX10==:.ERBAS+2365 ;Flow control violation
DEFSYM NSPX11==:.ERBAS+2366 ;Too many connections to node
DEFSYM NSPX12==:.ERBAS+2367 ;Too many connections to destination process
DEFSYM NSPX13==:.ERBAS+2370 ;Access not permitted
DEFSYM NSPX14==:.ERBAS+2371 ;Logical link services mismatch
DEFSYM NSPX15==:.ERBAS+2372 ;Invalid account
DEFSYM NSPX16==:.ERBAS+2373 ;SEGSIZE too small
DEFSYM NSPX17==:.ERBAS+2374 ;No response from destination process
DEFSYM NSPX18==:.ERBAS+2375 ;Node unreachable
DEFSYM NSPX19==:.ERBAS+2376 ;Link aborted due to data loss
DEFSYM NSPX20==:.ERBAS+2377 ;Destination process does not exist
DEFSYM NSPX21==:.ERBAS+2400 ;Confirmation of DI
DEFSYM NSPX22==:.ERBAS+2401 ;Image data field too long
DEFSYM MREQ27==:.ERBAS+2402 ;Structure is set IGNORED
DEFSYM MREQ28==:.ERBAS+2403 ;Cannot overwrite volume - first file is not expired
DEFSYM MREQ29==:.ERBAS+2404 ;Cannot overwrite volume - write access required
DEFSYM MREQ30==:.ERBAS+2405 ;Tape label format error
DEFSYM DIAG11==:.ERBAS+2406 ;Unit already online
DEFSYM DIAG12==:.ERBAS+2407 ;Unit not online
DEFSYM DESX11==:.ERBAS+2410 ;Invalid operation for this label type
DEFSYM NSPX23==:.ERBAS+2411 ;Invalid NSP reason code
DEFSYM ARGX28==:.ERBAS+2412 ;not available on this system
DEFSYM NPX2CL==:.ERBAS+2413 ;Two colons required on node name
DEFSYM ARGX29==:.ERBAS+2414 ;Invalid class share
DEFSYM ARGX30==:.ERBAS+2415 ;Invalid KNOB value
DEFSYM ARGX31==:.ERBAS+2416 ;Class Scheduler already enabled
DEFSYM DEVX7==:.ERBAS+2417 ;Null device name given
DEFSYM GJFX52==:.ERBAS+2420 ;End of tape encountered while searching for file
DEFSYM GOKER3==:.ERBAS+2421 ;JSYS not executed within ACJ fork
DEFSYM IOX32==:.ERBAS+2422 ;Tape position is indeterminate
DEFSYM IOX33==:.ERBAS+2423 ;TTY input buffer full
DEFSYM XSIRX1==:.ERBAS+2424 ;Channel table crosses section boundary
DEFSYM SIRX2==:.ERBAS+2425 ;SIR JSYS invoked from non-zero section
DEFSYM RIRX1==:.ERBAS+2426 ;RIR JSYS incompatible with previous XSIR
DEFSYM XSIRX2==:.ERBAS+2427 ;Level table crosses section boundary
DEFSYM MREQ31==:.ERBAS+2430 ;Insufficient MOUNTR resources
DEFSYM SMAPX1==:.ERBAS+2431 ;Attempt to delete a section still shared
DEFSYM TTMSX1==:.ERBAS+2432 ;Could not send message within timeout interval
DEFSYM MONX06==:.ERBAS+2433 ;Insufficient system resources (No swappable free space)
DEFSYM BOTX06==:.ERBAS+2434 ;GTJFN failed for dump file
DEFSYM BOTX07==:.ERBAS+2435 ;OPENF failed for dump file
DEFSYM BOTX08==:.ERBAS+2436 ;Dump failed
DEFSYM BOTX09==:.ERBAS+2437 ;To -10 error on dump
DEFSYM BOTX10==:.ERBAS+2440 ;To -11 error on dump
DEFSYM BOTX11==:.ERBAS+2441 ;Failed to assign page on dump
DEFSYM BOTX12==:.ERBAS+2442 ;Reload failed
DEFSYM BOTX13==:.ERBAS+2443 ;-11 didn't power down
DEFSYM BOTX14==:.ERBAS+2444 ;-11 didn't power up
DEFSYM BOTX15==:.ERBAS+2445 ;ROM did not ACK the -10
DEFSYM BOTX16==:.ERBAS+2446 ;-11 boot program did not make it to -11
DEFSYM BOTX17==:.ERBAS+2447 ;-11 took more than 1 minute to reload. Will cause retry
DEFSYM BOTX18==:.ERBAS+2450 ;Unknown BOOT error
DEFSYM NTMX1==:.ERBAS+2451 ;Network Management unable to complete request
DEFSYM COMX21==:.ERBAS+2452 ;Node name doesn't contain an alphabetic character
DEFSYM DELX13==:.ERBAS+2453 ;File is marked "Never Delete"
DEFSYM ANTX01==:.ERBAS+2454 ;No more network terminals available
DEFSYM TTYX02==:.ERBAS+2455 ;Illegal character specified
DEFSYM NSPX24==:.ERBAS+2456 ;Node name not assigned to a network node
DEFSYM NSPX25==:.ERBAS+2457 ;Illegal DECnet node number
DEFSYM NSPX26==:.ERBAS+2460 ;Table of topology watchers is full
DEFSYM GJFX53==:.ERBAS+2461 ;Tape label filename specification exceeds 17 characters
DEFSYM IOX34==:.ERBAS+2462 ;Disk structure completely full
DEFSYM IOX35==:.ERBAS+2463 ;Disk structure damaged, cannot allocate space
DEFSYM PMAPX8==:.ERBAS+2464 ;Indirect page map loop detected
DEFSYM SMAPX2==:.ERBAS+2465 ;Indirect section map loop detected
DEFSYM GJFX54==:.ERBAS+2466 ;Node name not first field in filespec
DEFSYM BOTX19==:.ERBAS+2467 ;Overdue To-11 transfer aborted
DEFSYM BOTX20==:.ERBAS+2470 ;Overdue To-10 transfer aborted
DEFSYM ILLX05==:.ERBAS+2471 ;Illegal memory reference, section greater than 37
DEFSYM XSEVX1==:.ERBAS+2472 ;Illegal entry vector type
DEFSYM XSEVX2==:.ERBAS+2473 ;Invalid entry vector length
DEFSYM XSEVX3==:.ERBAS+2474 ;Cannot get extended values with this monitor call
DEFSYM ABRKX2==:.ERBAS+2475 ;Address break facility is in use for system debugging
DEFSYM ABRKX3==:.ERBAS+2476 ;Use .ABRRG function to read break conditions
DEFSYM ABRKX4==:.ERBAS+2477 ;AB%SEC is invalid on this processor
DEFSYM ABRKX5==:.ERBAS+2500 ;Lower and upper bounds must be equal on this processor
DEFSYM DAPX0==:.ERBAS+2501 ;Illegal DAP% function code
DEFSYM DAPX1==:.ERBAS+2502 ;Nested ACLREPs in formatting table not allowed
DEFSYM DAPX2==:.ERBAS+2503 ;Parse error, fixed length field has wrong length
DEFSYM DAPX3==:.ERBAS+2504 ;Parse error, expecting more bytes
DEFSYM DAPX4==:.ERBAS+2505 ;Message byte length was too long for this link
DEFSYM DAPX5==:.ERBAS+2506 ;Parse error, variable length field was too long
DEFSYM DAPX6==:.ERBAS+2507 ;Parse error, bit mask was too long
DEFSYM DAPX7==:.ERBAS+2510 ;Illegal DAP% message type
DEFSYM DAPX8==:.ERBAS+2511 ;Protocol error on receive, LEN256 field without LENGTH field
DEFSYM DAPX9==:.ERBAS+2512 ;Parse error on receive, extra bytes at end of message
DEFSYM DAPX10==:.ERBAS+2513 ;LENGTH or LEN256 field present in message block
DEFSYM DAPX11==:.ERBAS+2514 ;Protocol error on receive, DAP length exceeds DECnet length
DEFSYM DAPX12==:.ERBAS+2515 ;Message type is not DATA, yet there is a BITCNT field
DEFSYM DAPX13==:.ERBAS+2516 ;Field following ACLREP is not VALUE1 or VALUE2
DEFSYM DAPX14==:.ERBAS+2517 ;Invalid link handle
DEFSYM DAPX15==:.ERBAS+2520 ;Transmission in progress, AC2 has retry message block addr
DEFSYM DAPX16==:.ERBAS+2521 ;CONTINUE TRANSFER message cannot be sent as normal message
DEFSYM DAPX17==:.ERBAS+2522 ;Only CONTINUE TRANSFER messages can be sent as interrupt
DEFSYM DAPX18==:.ERBAS+2523 ;Interrupt messages cannot be sent blocked
DEFSYM DAPX19==:.ERBAS+2524 ;There is already an interrupt transmission is progress
DEFSYM DAPX20==:.ERBAS+2525 ;Receive in progress
DEFSYM DAPX21==:.ERBAS+2526 ;There is no interrupt message available
DEFSYM DAPX22==:.ERBAS+2527 ;Illegal function for passive link
DEFSYM DAPX23==:.ERBAS+2530 ;Illegal function for active link
DEFSYM DAPX24==:.ERBAS+2531 ;There is no message available
DEFSYM DAPX25==:.ERBAS+2532 ;Protocol error on receive, message was too long
DEFSYM DAPX26==:.ERBAS+2533 ;Too many message blocks chained together
DEFSYM DAPX27==:.ERBAS+2534 ;Illegal function for this state
DEFSYM DAPX28==:.ERBAS+2535 ;Feature not supported by remote server
DEFSYM DAPX29==:.ERBAS+2536 ;Protocol error on receive - wrong message type
DEFSYM DAPX30==:.ERBAS+2537 ;No alias for this node
DEFSYM CRDI25==:.ERBAS+2540 ;Maximum number of remote aliases exceeded
DEFSYM CRDI26==:.ERBAS+2541 ;CRDIR block does not include password encryption version
DEFSYM CRDI27==:.ERBAS+2542 ;Attempt to use encrypted password on unencrypted structure
DEFSYM TTYX03==:.ERBAS+2543 ;Line is temporarily active
DEFSYM CRDI28==:.ERBAS+2544 ;Invalid password encryption version number
DEFSYM NSPX27==:.ERBAS+2545 ;Local node shut
DEFSYM GJFX55==:.ERBAS+2546 ;Illegal to use node name
DEFSYM KLPX1==:.ERBAS+2547 ;No BHDs available
DEFSYM KLPX2==:.ERBAS+2550 ;No BSDs available
DEFSYM KLPX3==:.ERBAS+2551 ;No datagrams buffers available
DEFSYM KLPX4==:.ERBAS+2552 ;No message buffers available
DEFSYM MONX07==:.ERBAS+2553 ;Insufficient system resources (no DECnet free space)
DEFSYM DCNX16==:.ERBAS+2554 ;Illegal operation for current link state
DEFSYM NSJX01==:.ERBAS+2555 ;WHEEL or OPERATOR capability required
DEFSYM NSJX02==:.ERBAS+2556 ;Allocation failure
DEFSYM NSJX03==:.ERBAS+2557 ;Wrong number of arguments
DEFSYM NSJX04==:.ERBAS+2560 ;Illegal function
DEFSYM NSJX05==:.ERBAS+2561 ;Connect block length error
DEFSYM NSJX06==:.ERBAS+2562 ;Address Error
DEFSYM NSJX07==:.ERBAS+2563 ;Argument Block Format Error
DEFSYM NSJX08==:.ERBAS+2564 ;Process block length error
DEFSYM NSJX09==:.ERBAS+2565 ;Bad format type in process block
DEFSYM SCSBFC==:.ERBAS+2566 ;Function code out of range
DEFSYM SCSBTS==:.ERBAS+2567 ;Argument block too short
DEFSYM SCSIAB==:.ERBAS+2570 ;Invalid argument block address
DEFSYM SCSAAB==:.ERBAS+2571 ;Error accessing argument block
DEFSYM SCSNSN==:.ERBAS+2572 ;No source process name specified on connection request
DEFSYM SCSNEP==:.ERBAS+2573 ;Not enough privileges enabled
DEFSYM SCSNSC==:.ERBAS+2574 ;No such connect ID
DEFSYM SCSDCB==:.ERBAS+2575 ;Datagram send text crosses a page boundry
DEFSYM NODX04==:.ERBAS+2576 ;No local node name defined
DEFSYM NODX05==:.ERBAS+2577 ;Function no longer supported
DEFSYM NODX06==:.ERBAS+2600 ;Resource allocation failure
DEFSYM SCSNRT==:.ERBAS+2601 ;No room in table for address entry
DEFSYM SCAPTL==:.ERBAS+2602 ;Message to long
DEFSYM SCSIID==:.ERBAS+2603 ;Invalid connect ID
DEFSYM SCSNPA==:.ERBAS+2604 ;No packet address
DEFSYM SCSNBA==:.ERBAS+2605 ;Internal resources exhausted (No more SCA buffers)
DEFSYM SCSZLP==:.ERBAS+2606 ;Zero length packet text
DEFSYM SCSSCP==:.ERBAS+2607 ;DMA segment crosses a page boundry
DEFSYM SCSNSD==:.ERBAS+2610 ;No such DMA buffer name
DEFSYM SCSDTL==:.ERBAS+2611 ;DMA buffer to long
DEFSYM SCSUPC==:.ERBAS+2612 ;Unknown PSI code
DEFSYM SCSQIE==:.ERBAS+2613 ;Queue is empty
DEFSYM DIAG13==:.ERBAS+2614 ;Datagram buffer not available
DEFSYM MSTX45==:.ERBAS+2615 ;Structure naming or drive serial number conflict in CFS cluster
DEFSYM MSTX46==:.ERBAS+2616 ;Illegal to specify mount attribute
DEFSYM SCSFRK==:.ERBAS+2617 ;Fork does not own this SCS% data
DEFSYM SCSNMQ==:.ERBAS+2620 ;No buffers queued for message reception
DEFSYM SCSISB==:.ERBAS+2621 ;Invalid node number
DEFSYM SCSNSH==:.ERBAS+2622 ;Not enough room for SCA headers
DEFSYM SCSIAA==:.ERBAS+2623 ;Invalid address in arguments
DEFSYM SCSIBP==:.ERBAS+2624 ;Invalid byte pointer
DEFSYM SCSNDQ==:.ERBAS+2645 ;No datagram buffers queued
DEFSYM SCSJBD==:.ERBAS+2646 ;No user address found for sent packet
DEFSYM NODX07==:.ERBAS+2647 ;Argument block not long enough
DEFSYM NODX10==:.ERBAS+2650 ;Channel number out of range
DEFSYM NODX11==:.ERBAS+2651 ;Job number out of range
DEFSYM SCLX01==:.ERBAS+2652 ;No connect data to read
DEFSYM SCLX02==:.ERBAS+2653 ;Percentage input out of bounds
DEFSYM SCLX03==:.ERBAS+2654 ;Function called in wrong state
DEFSYM SCLX04==:.ERBAS+2655 ;Unexpected state - disconnect sent
DEFSYM SCLX05==:.ERBAS+2656 ;Unexpected state - disconnect confirmed
DEFSYM SCLX06==:.ERBAS+2657 ;Unexpected state - no confidence
DEFSYM SCLX07==:.ERBAS+2660 ;Unexpected state - no link
DEFSYM SCLX08==:.ERBAS+2661 ;Unexpected state - no communication
DEFSYM SCLX09==:.ERBAS+2662 ;Unexpected state - no resources
DEFSYM SCLX10==:.ERBAS+2663 ;Unrecognized object
DEFSYM SCLX11==:.ERBAS+2664 ;Object too busy
DEFSYM SCLX12==:.ERBAS+2665 ;Disconnect complete
DEFSYM SCLX13==:.ERBAS+2666 ;Image field too long
DEFSYM SCLX14==:.ERBAS+2667 ;Unspecified reject reason
DEFSYM SCLX15==:.ERBAS+2670 ;Bad combination of SAEOM & SAWAI flags
DEFSYM SCLX16==:.ERBAS+2671 ;Address error in user argument
DEFSYM SCLX17==:.ERBAS+2672 ;Illegal message format detected
DEFSYM SCLX18==:.ERBAS+2673 ;Unexpected state - connect wait
DEFSYM SCLX19==:.ERBAS+2674 ;Unexpected state - connect received
DEFSYM SCLX20==:.ERBAS+2675 ;Unexpected state - connect sent
DEFSYM SCLX21==:.ERBAS+2676 ;Unexpected state - reject
DEFSYM SCLX22==:.ERBAS+2677 ;Unexpected state - run
DEFSYM NODX12==:.ERBAS+2700 ;Bad table designator
DEFSYM NODX13==:.ERBAS+2701 ;Bad 1st argument
DEFSYM NODX14==:.ERBAS+2702 ;Bad 2nd argument
DEFSYM NODX15==:.ERBAS+2703 ;No such table
DEFSYM SCSENB==:.ERBAS+2704 ;Excessive number of buffers in queue request
DEFSYM DIAG14==:.ERBAS+2705 ;Port doesn't exist or is not a CI port
DEFSYM DIAG15==:.ERBAS+2706 ;CI counters not available
DEFSYM DIAG16==:.ERBAS+2707 ;Fork doesn't own CI counters
DEFSYM SCSSTL==:.ERBAS+2710 ;DMA buffer segment to long
DEFSYM SCSTMS==:.ERBAS+2711 ;Too many DMA buffer segments
DEFSYM DIAG17==:.ERBAS+2712 ;CI chan is not enabled
DEFSYM DIAG20==:.ERBAS+2713 ;Diagnostic owns the channel
DEFSYM SCSCWS==:.ERBAS+2714 ;Connection in incorrect state for function
DEFSYM SCSNEC==:.ERBAS+2715 ;Not enough credit
DEFSYM SCSBAS==:.ERBAS+2716 ;Internal error, bad argument to subroutine
DEFSYM SCSNSB==:.ERBAS+2717 ;No such buffer
DEFSYM SCSNEB==:.ERBAS+2720 ;Insufficient buffers to fill request
DEFSYM SCSNKP==:.ERBAS+2721 ;No known KLIPA on this system
DEFSYM SCSIPC==:.ERBAS+2722 ;PSI channel out of range
DEFSYM SCSIPS==:.ERBAS+2723 ;Invalid path spec
DEFSYM SCSIFL==:.ERBAS+2724 ;Invalid forward link in buffer chain
DEFSYM SCSIST==:.ERBAS+2725 ;Invalid SCS% interrupt type
DEFSYM SCSIDM==:.ERBAS+2726 ;Invalid DMA transmission mode
DEFSYM KLPX5==:.ERBAS+2727 ;KLIPA is not enabled
DEFSYM KLPX6==:.ERBAS+2730 ;KLIPA is in maintenance mode
DEFSYM KLPX7==:.ERBAS+2731 ;No KLIPA on system
DEFSYM KLPX8==:.ERBAS+2732 ;Packet is bad
DEFSYM KLPX9==:.ERBAS+2733 ;No virtual circuit
DEFSYM KLPX10==:.ERBAS+2734 ;Don't know our CI node number
DEFSYM KLPX11==:.ERBAS+2735 ;Queue is empty
DEFSYM CFGBFC==:.ERBAS+2736 ;Function code out of range
DEFSYM CFGBTS==:.ERBAS+2737 ;Argument block too short
DEFSYM CFGIAB==:.ERBAS+2740 ;Invalid argument block address
DEFSYM CFGAAB==:.ERBAS+2741 ;Error accessing argument block
DEFSYM CFGINA==:.ERBAS+2742 ;Information not available for this function
DEFSYM TTMSX2==:.ERBAS+2743 ;User is refusing messages and/or links
DEFSYM XPEK01==:.ERBAS+2744 ;Illegal system fork number specified
DEFSYM XPEK02==:.ERBAS+2745 ;Unassigned system fork number specified
DEFSYM KLPX12==:.ERBAS+2746 ;Virtual circuit is not closed
DEFSYM XPEK03==:.ERBAS+2747 ;Word count not positive
DEFSYM XPEK04==:.ERBAS+2750 ;Word count too large. Can not cross section boundaries
DEFSYM NTMX2==:.ERBAS+2751 ;Event resource already in use
DEFSYM KLPX13==:.ERBAS+2752 ;Named Buffer transfer error
DEFSYM MTOX21==:.ERBAS+2753 ;Illegal two character escape sequence
DEFSYM KLPX14==:.ERBAS+2754 ;Timed out waiting for KLIPA disable to complete
DEFSYM KLPX15==:.ERBAS+2755 ;Timed out waiting for KLIPA enable to complete
DEFSYM NODX16==:.ERBAS+2756 ;DECnet has already initialized
DEFSYM DKOP01==:.ERBAS+2757 ;Illegal disk address
DEFSYM DKOP02==:.ERBAS+2760 ;Transfer too large
DEFSYM DKOP03==:.ERBAS+2761 ;Invalid unit specified
DEFSYM DKOP04==:.ERBAS+2762 ;Illegal address specified
DEFSYM DKOP05==:.ERBAS+2763 ;Size not sector size
DEFSYM SCSIBN==:.ERBAS+2764 ;Invalid buffer name
DEFSYM NTMX3==:.ERBAS+2765 ;DECnet is not initialized
DEFSYM NODX17==:.ERBAS+2766 ;Illegal parameter value
DEFSYM DIAG31==:.ERBAS+2767 ;DIAG% Illegal for Dual Ported Disks
DEFSYM DKOP06==:.ERBAS+2770 ;Data or device error
DEFSYM DKOP07==:.ERBAS+2771 ;Device is offline
DEFSYM CRDI29==:.ERBAS+2772 ;Illegal to disallow subdirectory user group while in use
DEFSYM ENQX24==:.ERBAS+2773 ;Internal resources exhausted (No more SCA buffers)
DEFSYM MSTX43==:.ERBAS+3033 ;Illegal to dismount structure during initialization
; DEC TCP JSYS Interface Errors
DEFSYM TCPXX1==:.ERBAS+3400 ;No IP free space for TCB
DEFSYM TCPXX2==:.ERBAS+3401 ;Unable to decode local side TCP of specification
DEFSYM TCPXX3==:.ERBAS+3402 ;Unable to decode foreign side TCP of specification
DEFSYM TCPXX4==:.ERBAS+3403 ;Generation found in TCP specification
DEFSYM TCPXX5==:.ERBAS+3404 ;TCP specification atrribute not known to TCP
DEFSYM TCPXX6==:.ERBAS+3405 ;Unable to decode CONNECTION attribute in TCP specification
DEFSYM TCPXX7==:.ERBAS+3406 ;Unable to decode FOREIGN-HOST attribute in TCP specification
DEFSYM TCPXX8==:.ERBAS+3407 ;Unable to decode LOCAL-HOST attribute in TCP specification
DEFSYM TCPXX9==:.ERBAS+3410 ;Unable to decode PERSIST attribute in TCP specification
DEFSYM TCPX10==:.ERBAS+3411 ;Unable to decode TIMEOUT attribute in TCP specification
DEFSYM TCPX11==:.ERBAS+3412 ;Unable to decode TYPE-OF-SERVICE attribute in TCP specification
DEFSYM TCPX12==:.ERBAS+3413 ;Unable to decode SECURITY attribute in TCP specification
DEFSYM TCPX13==:.ERBAS+3414 ;Unable to decode COMPARTMENTS attribute in TCP specification
DEFSYM TCPX14==:.ERBAS+3415 ;Unable to decode HANDLING-RESTRICTIONS attribute in TCP specification
DEFSYM TCPX15==:.ERBAS+3416 ;Unable to decode TRANSMISSION-CONTROL attribute in TCP specification
DEFSYM TCPX16==:.ERBAS+3417 ;TCP not initialized and available
DEFSYM TCPX17==:.ERBAS+3420 ;Illegal IO mode for TCP device
DEFSYM TCPX18==:.ERBAS+3421 ;Illegal byte size for TCP device
DEFSYM TCPX19==:.ERBAS+3422 ;TCP connection allready exists
DEFSYM TCPX20==:.ERBAS+3423 ;Maximum TCP connections exceeded
DEFSYM TCPX21==:.ERBAS+3424 ;Wheel, Operator, or Network Wizard needed for special TCOPR function
DEFSYM TCPX22==:.ERBAS+3425 ;Invalid TCOPR function requested
DEFSYM TCPX23==:.ERBAS+3426 ;Invalid IPOPR function requested
DEFSYM TCPX24==:.ERBAS+3427 ;Wheel, Operator, or Network Wizard needed for special IPOPR function
DEFSYM TCPX25==:.ERBAS+3430 ;Open failure
DEFSYM TCPX26==:.ERBAS+3431 ;Illegal Persist parameters
DEFSYM TCPX27==:.ERBAS+3432 ;Illegal TCOPR Function on an OPEN TCP JFN
DEFSYM TCPX28==:.ERBAS+3433 ;Invalid BBN TCP JSYS call
DEFSYM TCPX29==:.ERBAS+3434 ;Assigned JFN too large for TCPJFN
DEFSYM TCPX30==:.ERBAS+3435 ;Illegal TCP IO mode
DEFSYM TCPX31==:.ERBAS+3436 ;Connection error or connection rejected
DEFSYM TCPX32==:.ERBAS+3437 ;Retransmission timeout
DEFSYM TCPX33==:.ERBAS+3440 ;Connection closed or closing
DEFSYM TCPX34==:.ERBAS+3441 ;TCOPR Argument
DEFSYM TCPX35==:.ERBAS+3442 ;Illegal to reopen a TCP JFN
DEFSYM TCPX36==:.ERBAS+3443 ;Illegal TCOPR Function on an UNOPEN TCP JFN
DEFSYM TCPX37==:.ERBAS+3444 ;No free space for buffer
DEFSYM TCPX40==:.ERBAS+3445 ;TCOPR Function not yet implemented
DEFSYM TCPX41==:.ERBAS+3446 ;TCOPR DEC interrupt channels not off
DEFSYM TCPX42==:.ERBAS+3447 ;TCOPR Invalid TCB offset
DEFSYM TCPX43==:.ERBAS+3450 ;TCOPR Invalid argument block
DEFSYM IPHCHK==:.ERBAS+3451 ;Computed GHT checksum does not match
DEFSYM IPHCNT==:.ERBAS+3452 ;GHT entry count argument is not correct
DEFSYM IPHNSP==:.ERBAS+3453 ;Insufficient system resources (No free space for GHT)
DEFSYM IPHEMX==:.ERBAS+3454 ;Exceeded maximum number of GHT entries
DEFSYM IPHSEQ==:.ERBAS+3455 ;GHT Internet host numbers not in ascending order
DEFSYM IPFLAD==:.ERBAS+3456 ;Local Internet host number not in GHT
DEFSYM ARPNSP==:.ERBAS+3457 ;Insufficient system resources (No space for ARP buffers
DEFSYM IPARP1==:.ERBAS+3460 ;Cannot start ARP until TCPNI service is running
DEFSYM TCPX44==:.ERBAS+3461 ;Monitor does not support TCP over Ethernet
;~6.0 Error codes for LLMOP%
DEFSYM LLMX01==:.ERBAS+4000 ;Transmit Datagram Failed
DEFSYM LLMX02==:.ERBAS+4001 ;LLMOP State is OFF
DEFSYM LLMX03==:.ERBAS+4002 ;Invalid byte pointer
DEFSYM LLMX04==:.ERBAS+4003 ;Nonexistent Request Number
DEFSYM LLMX05==:.ERBAS+4004 ;Invalid KLNI channel specified
DEFSYM LLMX06==:.ERBAS+4005 ;Configurator interrupts assigned to another process
DEFSYM LLMX99==:.ERBAS+4777 ;LLMOP Internal Error
DEFSYM IPCF36==:.ERBAS+5000 ;PID not assigned on this LCS processor
DEFSYM MSTX44==:.ERBAS+5001 ;Mount type refused by another CFS processor
;~6.0 Error codes for LATOP%
DEFSYM LATX01==:.ERBAS+5010 ;Buffer size too small for available data
DEFSYM LATX02==:.ERBAS+5011 ;LAT parameter value out of range
DEFSYM LATX03==:.ERBAS+5012 ;LAT is not operational
DEFSYM LATX04==:.ERBAS+5013 ;Invalid or unknown LAT server name
DEFSYM LATX05==:.ERBAS+5014 ;Invalid LAT parameter
DEFSYM LATX06==:.ERBAS+5015 ;Invalid LAT parameter value
DEFSYM LATX07==:.ERBAS+5016 ;Invalid or unknown LAT service name
DEFSYM LATX08==:.ERBAS+5017 ;Insufficient LAT Resources
DEFSYM LATX09==:.ERBAS+5020 ;LAT Host name already set
DEFSYM LATX10==:.ERBAS+5021 ;Invalid or unknown LAT port name
DEFSYM LATX11==:.ERBAS+5022 ;Invalid or unknown LAT connect id
;6.1 Error codes for NI%
; Error codes 5400 to 5477 are reserved. These codes map directly onto error
; codes returned from NISRV, and their respective positions must remain the
; same.
DEFSYM NIENSC==:.ERBAS+5403 ;No Such Channel
DEFSYM NIEIVP==:.ERBAS+5405 ;Illegal Protocol Type
DEFSYM NIEPIU==:.ERBAS+5406 ;Protocol Type In Use
DEFSYM NIEPRA==:.ERBAS+5407 ;Promiscuous Receiver Active
DEFSYM NIENSP==:.ERBAS+5411 ;No Such Portal
DEFSYM NIEIFB==:.ERBAS+5412 ;Improperly Formatted Buffer
DEFSYM NIEIBS==:.ERBAS+5413 ;Illegal Buffer Size
DEFSYM NIERDL==:.ERBAS+5414 ;Received Datagram Too Long
DEFSYM NIERAB==:.ERBAS+5415 ;Receive Aborted
DEFSYM NIELER==:.ERBAS+5416 ;Length Error
DEFSYM NIENPE==:.ERBAS+5417 ;No Protocol Type Enabled For This Portal
DEFSYM NIEIBP==:.ERBAS+5420 ;Illegal Byte Pointer
DEFSYM NIEEXC==:.ERBAS+5421 ;Excessive Collisions
DEFSYM NIEDNS==:.ERBAS+5422 ;Datagram Not Sent
DEFSYM NIENRE==:.ERBAS+5423 ;No Room For Entry
DEFSYM NIEANE==:.ERBAS+5424 ;Address Not Enabled
DEFSYM NIEIMA==:.ERBAS+5425 ;Illegal Multicast Address
DEFSYM NIEICA==:.ERBAS+5426 ;Illegal Channel Address
DEFSYM NIEPWS==:.ERBAS+5427 ;Portal in Wrong State
DEFSYM NIECCF==:.ERBAS+5431 ;Carrier check failed
DEFSYM NIESHT==:.ERBAS+5432 ;Short circuit
DEFSYM NIEOPN==:.ERBAS+5433 ;Open circuit
DEFSYM NIERFD==:.ERBAS+5434 ;Remote failure to defer
DEFSYM NIEICS==:.ERBAS+5435 ;Illegal channel state
DEFSYM NIECAB==:.ERBAS+5436 ;Command abort
; All error codes up to 5477 inclusive are reserved for the NI% JSYS.
DEFSYM NIERTE==:.ERBAS+5500 ;Receive or Transmit quota exceeded
DEFSYM NIECIO==:.ERBAS+5501 ;Channel is owned by another fork
DEFSYM MSCPX4==:.ERBAS+5502 ;MSCP server not currently running
DEFSYM ARGX32==:.ERBAS+5600 ;On line expiration cannot exceed system or directory maximum
DEFSYM GNJFX2==:.ERBAS+5601 ;Could not step to next file because current file no longer exists
DEFSYM TTYX04==:.ERBAS+5602 ;Job is detached
DEFSYM COMX22==:.ERBAS+5603 ;Invalid use of quoting character in directory name
DEFSYM COMX23==:.ERBAS+5604 ;Invalid use of quoting character in username
DEFSYM TTMSX3==:.ERBAS+5605 ;Invalid CI node number
DEFSYM INFX01==:.ERBAS+5606 ;Invalid INFO% function
DEFSYM INFX02==:.ERBAS+5607 ;Invalid CI node number
DEFSYM INFX03==:.ERBAS+5610 ;WHEEL or OPERATOR capability required
DEFSYM INFX04==:.ERBAS+5611 ;CI node disconnected before information was returned
DEFSYM INFX05==:.ERBAS+5612 ;Remote node not supplying information
DEFSYM INFX06==:.ERBAS+5613 ;Insufficient system resources - no more swappable free space
DEFSYM INFX07==:.ERBAS+5614 ;User not logged in
DEFSYM INFX08==:.ERBAS+5615 ;Insufficient system resources on remote node (no more free space)
DEFSYM INFX09==:.ERBAS+5616 ;Unimplemented function on remote system
DEFSYM INFX10==:.ERBAS+5617 ;Insufficient SCA buffers to process request
DEFSYM INFX11==:.ERBAS+5620 ;Remote system not running CLUDGR SYSAP
DEFSYM INFX12==:.ERBAS+5621 ;Invalid argument block
DEFSYM INFX13==:.ERBAS+5622 ;Job not logged in
DEFSYM INFX14==:.ERBAS+5623 ;Remote node could not execute given function
DEFSYM INFX15==:.ERBAS+5624 ;Bad argument block length
DEFSYM INFX16==:.ERBAS+5625 ;Insufficient credit to send request to remote system
DEFSYM TTMSX4==:.ERBAS+5626 ;Remote node not accepting remote sendalls
DEFSYM INFX17==:.ERBAS+5627 ;Remote XPEEK% can only return 512 words
DEFSYM SMONX4==:.ERBAS+5630 ;Minimum password length must be between 1 and 39 characters
DEFSYM CRDI30==:.ERBAS+5631 ;Insufficient password length
; ERROR CODES 6000-6777 ARE RESERVED FOR CUSTOMER USE.
; DON'T USE ANY CODES FROM 6000-6777.
DEFSYM GTDX1==:.ERBAS+6100 ;Bad syntax in input domain name
DEFSYM GTDX2==:.ERBAS+6101 ;Referenced domain name does not exist
DEFSYM GTDX3==:.ERBAS+6102 ;Requested data not present at name
DEFSYM GTDX4==:.ERBAS+6103 ;Requested data not available
DEFSYM GTDX5==:.ERBAS+6104 ;Bad output specification
DEFSYM GTDX6==:.ERBAS+6105 ;Domain system internal error
DEFSYM GTDX7==:.ERBAS+6106 ;Received data is inconsistant
DEFSYM GTDX8==:.ERBAS+6107 ;Result string too long
DEFSYM GTDX9==:.ERBAS+6110 ;Source string too long
DEFSYM GTDX10==:.ERBAS+6111 ;Too many CNAMEs found while processing query
DEFSYM GTDX11==:.ERBAS+6112 ;Argument block changed while call in progress
DEFSYM GTDX12==:.ERBAS+6113 ;Bad QCLASS
DEFSYM GTDX13==:.ERBAS+6114 ;Bad host address
DEFSYM GTDX14==:.ERBAS+6115 ;Bad QTYPE
;If this file proveded the definition of defsym, flush it
;so that we leave things as we found them.
IFN $$TEMP,EXPUNG DEFSYM