Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
midas/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 OTHER WAYS IF HE WISHES.
;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
DEFINE DEFSYM X/
IRPS Z,,[X]
IFNDEF Z,.QUOTE/.QUOTE/X
.ELSE [
$$TEM1==Z
.QUOTE/.QUOTE/X
IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
]
.ISTOP
TERMIN TERMIN
IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
.MLLIT==1
$$TEMP==1
]
.ELSE $$TEMP==0
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 CVSKT=:JSYS 275
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
;159 Begin addition
DEFSYM PUPI=:JSYS 441
DEFSYM PUPO=:JSYS 442
DEFSYM PUPNM=:JSYS 443
DEFSYM PUPSK=:JSYS 444
;159 End addition
;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 GTBLT=:JSYS 634
DEFSYM VTSOP=:JSYS 635
DEFSYM RTMOD=:JSYS 636
DEFSYM STMOD=:JSYS 637
DEFSYM RTCHR=:JSYS 640
DEFSYM STCHR=:JSYS 641
DEFSYM DBGIM=:JSYS 677
;TEMPORARY JSYS DEFINITIONS
;151 Begin addition
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
;151 End addition
;TEMPORARY JSYS DEFINITIONS
DEFSYM SNDIM=:JSYS 750
DEFSYM RCVIM=:JSYS 751
DEFSYM ASNSQ=:JSYS 752
DEFSYM RELSQ=:JSYS 753
;151 Begin addition
DEFSYM SNDIN=:JSYS 754
DEFSYM RCVIN=:JSYS 755
DEFSYM ASNIQ=:JSYS 756
DEFSYM RELIQ=:JSYS 757
;151 End addition
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 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 XMOVEI=:<SETMI 0,0> ;EXTENDED MOVEI
DEFSYM XHLLI=:<XMOVEI 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
;*****************************************
;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
;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
;FUNCTION BITS FOR FUNCTION .ABSET
DEFSYM AB%RED==:1_35. ;READ
DEFSYM AB%WRT==:1_34. ;WRITE
DEFSYM AB%XCT==:1_33. ;EXECUTE
;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
;ATNVT ;TOPS20AN
DEFSYM AN%NTP==:1_33. ;TOPS20AN ;NEW TELNET PROTOCOL
DEFSYM AN%SUP==:1_32. ;99 SUPDUP 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 .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
;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%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%NMF==:1_19. ;11 DON'T MAKE A MAIL FILE
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 .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%HPW==:1_18. ;143 Supplying hashed password
DEFSYM CD%DAR==:1_28. ; Archived online expired files
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
;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
;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
;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%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)
;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
;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
DEFSYM DOP%UN==:77_23. ;UNIT NUMBER
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%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%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
;DEFINE DECNET DISCONNECT CODES. THESE ARE STIPULATED BY THE NSP SPEC
;AND MAY HAVE MEANININGS NOT IMPLIED BY THE COMMENTS
DEFSYM .DCX0==:0 ;NO SPECIAL ERROR
DEFSYM .DCX1==:1 ;RESOURCE ALLOCATION FAILURE
DEFSYM .DCX2==:2 ;DESTINATION NODE DOES NOT EXIST
DEFSYM .DCX3==:3 ;NODE SHUTTING DOWN
DEFSYM .DCX4==:4 ;DESTINATION PROCESS DOES NOT EXIST
DEFSYM .DCX5==:5 ;INVALID NAME FIELD
DEFSYM .DCX6==:6 ;DESTINATION PROCESS QUEUE OVERFLOW
DEFSYM .DCX7==:7 ;UNSPECIFIED ERROR
DEFSYM .DCX8==:8. ;THIRD PARTY ABORTED LINK
DEFSYM .DCX9==:9. ;USER ABORT (ASYNCHRONOUS DISCONNECT)
DEFSYM .DCX11==:11. ;UNDEFINED ERROR CODE
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. ;PROCESS ABORTED
DEFSYM .DCX39==:39. ;NO PATH TO DESTINATION NODE
DEFSYM .DCX40==:40. ;LINK ABORTED DUE TO DATA LOSS
DEFSYM .DCX41==:41. ;DESTINATION PROCESS DOES NOT EXIST
DEFSYM .DCX42==:42. ;CONFIRMATION IF 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 .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
;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
DEFSYM GT%ADR==:1_16. ;USE ADDRESS LIMITS IN AC2
DEFSYM GT%PRL==:1_15. ;PRELOAD PAGES
DEFSYM GT%NOV==:1_14. ;DON'T OVERLAY EXISTING PAGES
DEFSYM GT%FL2==:1_13. ;IF ON, AC3 CONTAINS FLAGS
DEFSYM G2%FCH==:1_35. ;MAKE FAST-CACHE ENTRY
DEFSYM GT%JFN==:7777_0. ;JFN
;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 .SYMTA==: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
;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 .JIMAX==:.JILLO ;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
;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 ;USER REQUESTING LOGOUT
DEFSYM .GOENQ==:10 ;ALLOW SET ENQ QUOTA
DEFSYM .GEEQU==:1 ;DESIRED QUOTA
DEFSYM .GEEUN==:2 ;JOB NUMBER
DEFSYM .GOCRD==:11 ;ALLOW CREDIR
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 .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
;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%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
;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%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 .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
;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
;.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%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%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 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
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 7 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
;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
;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%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 .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 .MSRLN==:27 ;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 .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. ;STRUCTURE IS A PUBLIC STRUCTURE
DEFSYM MS%DIS==:1_34. ;STRUCTURE IS BEING DISMOUNTED
DEFSYM MS%DOM==:1_33. ;STRUCTURE IS DOMESTIC
DEFSYM MS%PPS==:1_32. ;STRUCTURE IS THE PRIMARY PUBLIC STRUCTURE
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 .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 .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
;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 .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 .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 .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 .MOFCI==:52 ;221 Read full 12-bit character
;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
;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
;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 .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 .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 SPECFIED EXACTLY MATCHES A KNOWN NODE
;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
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
;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%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
;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%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
;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
;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
;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
;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 ;27 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
;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
;SFORK
DEFSYM SF%CON==:1_35. ;CONTINUE PROCESS, IGNORE PC IN AC2
DEFSYM SF%PRH==:777777_0. ;PROCESS HANDLE
;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
;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
;159 Begin addition
DEFSYM .SFNTD==:62 ;Initialize PUP directory
DEFSYM .SFRTE==:63 ;Set PUP routing
DEFSYM .SFPBG==:64 ;Set PUP bug switch
;159 End addition
;206 Begin addition
DEFSYM .SFCHA==:65 ;Turn on and off Chaos Net Access needed flag
;206 End addition
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%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 .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
;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
DEFSYM .SNRMA==:10 ;26 READ MONITOR ADDRESS-BREAK
DEFSYM .SNSMA==:11 ;26 SET MONITOR ADDRESS BREAK
DEFSYM SN%XCT==:1_26. ;26 TRAP XCT ACCESS
DEFSYM SN%RD==:1_25. ;26 TRAP READ ACCESS
DEFSYM SN%WR==:1_24. ;26 TRAP WRITE ACCESS
DEFSYM SN%UM==:1_23. ;26 TRAP USERMODE ACCESS
DEFSYM SN%ADR==:37777777 ;26 TRAP ADDRESS (23 BITS)
;SOUTM JSYS DEFINITIONS
DEFSYM SO%WMG==:1_35. ;WRITE END-OF-MESSAGE
;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%FPN==:777_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 .SWART==:0 ;SET ARITHMETIC TRAP
DEFSYM .SWRAT==:1 ;READ ARITHMETIC TRAP
DEFSYM .SWLUT==:2 ;SET LUUO ADDRESS
DEFSYM .SWRLT==:3 ;READ LUUO ADDRESS
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
;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%OBJ==:777777_0. ;OBJECT DESIGNATOR
;UFPGS
DEFSYM UF%NOW==:1_35. ;NO WAIT ON UPDATE
;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
;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
;SK%LQR==:1B23 ;LOW QUEUE RESERVE
;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
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY MANY JSYSES
;***********************************************
;GENERAL FORK HANDLES
DEFSYM .FHSLF==:400000 ;SELF
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
;99 Begin addition
; Terminal characteristics word
DEFSYM TC%MOV==:1_35. ; Absolute or relative cursor motion
DEFSYM TC%BS==: 1_34. ; Cursor back at least (backspace)
DEFSYM TC%HOM==:1_33. ; Home to top left hand corner
DEFSYM TC%CLR==:1_32. ; Clear entire screen at least
DEFSYM TC%SCL==:1_31. ; Clear selective portions of screen
DEFSYM TC%LID==:1_30. ; Line insert/delete
DEFSYM TC%CID==:1_29. ; Character insert/delete
DEFSYM TC%VBL==:1_28. ; Visible bell
DEFSYM TC%MET==:1_27. ; Has META (8-bit) key
DEFSYM TC%SCR==:1_26. ; Scrolls on down from bottom line
DEFSYM TC%RSC==:1_25. ; Reverse-scrolls on up from top-line
DEFSYM TC%OVR==:1_24. ; Overwrites
DEFSYM TC%FCI==:1_23. ;221 Has full 12-bit input capability
DEFSYM TC%PRT==:1_18. ; Printing terminal
DEFSYM TC%WRP==:1_17. ; Outputting in last line pos will CRLF
; Terminal mode word
DEFSYM TM%DPY==:1_35. ; Process ^P codes
DEFSYM TM%SCR==:1_34. ; Scroll mode / Wrap mode
DEFSYM TM%MOR==:1_33. ; More processing enabled
DEFSYM TM%MVR==:1_32. ; Verbose sort of more
DEFSYM TM%MSM==:1_31. ; Smart about more
DEFSYM TM%VBL==:1_30. ; Use visible bell for ^G
DEFSYM TM%ITP==:1_18. ; Intelligent terminal protocol in use
;99 End addition
;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 ;27 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
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 .TTTI==:3 ;2 TI
DEFSYM .TTIMX==:4 ;2 IMLAX
DEFSYM .TTDM==:5 ;2 DM2500
DEFSYM .TTHP==:6 ;2 HP2640
DEFSYM .TTNVT==:7 ;2 NVT
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
;& Begin modification
DEFSYM .TTGLS==:16. ;2 GLASS TTY
DEFSYM .TTFOX==:17. ;35 FOX 1100
DEFSYM .TTV10==:18. ;105 VT100 (in VT52 mode)
DEFSYM .TTT10==:19. ;126 Teleray 1061
DEFSYM .TTH19==:20. ;131 Heath 19
DEFSYM .TTC10==:21. ;141 Concept 100
DEFSYM .TT100==:22. ;VT100 (in ANSI mode)
DEFSYM .TTL38==:23. ;LA38
DEFSYM .TT120==:24. ;LA120
DEFSYM .TTPTV==:25. ;Plasma TV
DEFSYM .TTSUP==:26. ;99 SUPDUP VT
DEFSYM .TTHP0==:27. ;207 HP2645
;& End modification
;DEFINED TERMINAL CODES
DEFSYM .TICBK==:0 ;BREAK
DEFSYM .TICCA==:1 ;^A
DEFSYM .TICCB==:2 ;^B
DEFSYM .TICCC==:3 ;^C
DEFSYM .TICCD==:4 ;.RADIX 10.,
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
;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
;206 Begin addition
DEFSYM SC%CHA==:1_9. ;LOCAL MIT ;CHAOS NET PRIVILEGES
;206 End addition
;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
;& Begin modification
DEFSYM .FBKEP==:3 ; KEEP THIS PROGRAM
DEFSYM .FBEPH==:4 ; EPHEMERAL
; Note: Our local bits have been squeezed into the RH, not so sure
; this is a Good Thing.
DEFSYM FB%UND==:1_0. ;5 PERPETUAL FILE
;& End modification
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==:37 ;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 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 .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
;99 Begin addition
; VTS function codes
DEFSYM .VTCNT==:1 ; First arg is repeat count unless otherwise
; defined
DEFSYM .VTNOP==:0 ; NOP - force cursor update
DEFSYM .VTFWD==:1 ; Cursor forward
DEFSYM .VTBCK==:2 ; Cursor back
DEFSYM .VTUP==:3 ; Cursor up
DEFSYM .VTDWN==:4 ; Cursor down
DEFSYM .VTHRZ==:5 ; Set horizontal pos
DEFSYM .VTHRA==:1 ; value
DEFSYM .VTVRT==:6 ; Set vertical pos
DEFSYM .VTVRA==:1 ; value
DEFSYM .VTMOV==:7 ; Move cursor (x and y)
DEFSYM .VTPOS==:1 ; Y coord,,X coord
DEFSYM .VTHOM==:10 ; Home up
DEFSYM .VTHMD==:11 ; Home down
DEFSYM .VTADV==:12 ; Advance to next line
DEFSYM .VTSAV==:13 ; Save pos
DEFSYM .VTRES==:14 ; Restore pos
DEFSYM .VTCLR==:15 ; Clear window
DEFSYM .VTCEW==:16 ; Clear to end-of-window
DEFSYM .VTCEL==:17 ; Clear to end-of-line
DEFSYM .VTERA==:20 ; Erase character ???
DEFSYM .VTBEC==:21 ; Backspace and erase
DEFSYM .VTLID==:22 ; Line insert/delete
; .VTCNT==:1 ; Repeat count
DEFSYM .VTYLM==:2 ; First line,,Last line
DEFSYM .VTCID==:23 ; Character insert/delete
; .VTCNT==:1 ; Repeat count
DEFSYM .VTXLM==:2 ; First char,,Last char
DEFSYM .VTESC==:24 ; Output VTS escape
; DPYOP JSYS (this should really be in the proper alphabetical place)
; Flags in AC2
DEFSYM DP%AG1==:1_34. ; First arg (in 3) exists
DEFSYM DP%AG2==:1_33. ; Second arg (in 4) exists
;99 End insertion
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY TOPS20AN JSYS'S
;***********************************************
;STATES OF A CONNECTION IN ARPANET NCP
; RETURNED IN B0-B3 OF GDSTS ON A NET CONNECTION
; ALSO AVAILABLE IN A GETAB, BUT THAT'S NOT THE PREFERRED WAY
; TO READ THEM, IF YOU HAVE A JFN FOR THE CONNECTION.
DEFSYM .NSCZD==:01 ;CLOSED
DEFSYM .NSPND==:02 ;PENDING
DEFSYM .NSLSN==:03 ;LISTENING
DEFSYM .NSRCR==:04 ;REQUEST FOR CONNECTION RECEIVED
DEFSYM .NSCW1==:05 ;CLOSE WAIT SUB ONE (NCP CLOSE)
DEFSYM .NSRCS==:06 ;REQUEST FOR CONNECTION SENT
DEFSYM .NSOPN==:07 ;OPENED
DEFSYM .NSCSW==:10 ;CLOSE WAIT (NCP CLOSE)
DEFSYM .NSDTW==:11 ;FINAL DATA WAIT
DEFSYM .NSRF1==:12 ;RFNM WAIT SUB ONE (NORMAL NCP CLOSE)
DEFSYM .NSCZW==:13 ;CLOSE WAIT (PROGRAM CLOSE)
DEFSYM .NSRF2==:14 ;RFNM WAIT SUB TWO (UNEXPECTED NCP CLOSE)
DEFSYM .NSFRE==:16 ;FREE
;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 .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
;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 ;JFN cannot refer to 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 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 OPRFX1==:.ERBAS+401 ;Undefined operator function
DEFSYM OPRFX2==:.ERBAS+402 ;Invalid operator function argument
DEFSYM OPRFX3==:.ERBAS+403 ;Insufficient capabilities to perform requested function
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 10
DEFSYM IFIXX2==:.ERBAS+415 ;First nonspace character is not a digit
DEFSYM IFIXX3==:.ERBAS+416 ;Overflow (number is 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 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 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 is not less than or equal to 1000
DEFSYM SEVEX1==:.ERBAS+610 ;Entry vector 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+704 ;Unknown host number
DEFSYM GTHSX2==:.ERBAS+705 ;No number for that host name
DEFSYM GTHSX3==:.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 or disk full
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 SNOP20==:.ERBAS+1461 ;Monitor address break in use by another process
DEFSYM SNOP19==:.ERBAS+1462 ;Illegal address break flag bits
DEFSYM DELX13==:.ERBAS+1463 ;Can't delete perpetual file
; ERROR CODES 1463-1534 ARE AVAILABLE****** ;26
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
; Error codes 1554-1677 are available ******
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 Public 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
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
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 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 non-multiple 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 offline 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 offline
DEFSYM ARGX27==:.ERBAS+2341 ;Offline expiration time cannot exceed system 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 ;Connection not accepted
DEFSYM NSPX01==:.ERBAS+2354 ;Resource allocation failure
DEFSYM NSPX02==:.ERBAS+2355 ;Destination node does not exist
DEFSYM NSPX03==:.ERBAS+2356 ;Node shutting down
DEFSYM NSPX04==:.ERBAS+2357 ;Destination process does not exist
DEFSYM NSPX05==:.ERBAS+2360 ;Invalid process name
DEFSYM NSPX06==:.ERBAS+2361 ;Destination process queue overflow
DEFSYM NSPX07==:.ERBAS+2362 ;Unspecified error
DEFSYM NSPX08==:.ERBAS+2363 ;Connection aborted by third party
DEFSYM NSPX09==:.ERBAS+2364 ;Link aborted by process
DEFSYM NSPX10==:.ERBAS+2365 ;NSP Failure - 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 denied due to unacceptable user name or password
DEFSYM NSPX14==:.ERBAS+2371 ;NSP failure - invalid SERVICES field
DEFSYM NSPX15==:.ERBAS+2372 ;Invalid account
DEFSYM NSPX16==:.ERBAS+2373 ;NSP failure - invalid SEGSIZ field
DEFSYM NSPX17==:.ERBAS+2374 ;Process aborted, timed out, or cancelled request
DEFSYM NSPX18==:.ERBAS+2375 ;No path to destination node
DEFSYM NSPX19==:.ERBAS+2376 ;NSP failure - flow control failure
DEFSYM NSPX20==:.ERBAS+2377 ;NSP failure - invalid DSTADDR
DEFSYM NSPX21==:.ERBAS+2400 ;Disconnect confirmation
DEFSYM NSPX22==:.ERBAS+2401 ;NSP failure - 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
;203 Begin addition
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 the -11
DEFSYM BOTX17==:.ERBAS+2447 ;-11 took more than 1 minute to reload. Will cause retry
DEFSYM BOTX18==:.ERBAS+2450 ;Unknown BOOT error
;203 End addition
;159 Begin addition
DEFSYM SPPAX1==:.ERBAS+3001 ;SPPAR: JFN not for spooled LPT:
DEFSYM SPPAX2==:.ERBAS+3002 ;SPPAR: JFN not used
DEFSYM SPPAX3==:.ERBAS+3003 ;SPPAR: Parameter name not recognized
DEFSYM SPPAX4==:.ERBAS+3004 ;SPPAR: Parameter value illegal
DEFSYM PUPX1==:.ERBAS+3010 ;PUPI/O: Block size error
DEFSYM PUPX2==:.ERBAS+3011 ;Pup address error
DEFSYM PUPX3==:.ERBAS+3012 ;PUPI/O: Operation not possible now
DEFSYM PUPX5==:.ERBAS+3014 ;PUPI: Checksum incorrect
DEFSYM PUPX6==:.ERBAS+3015 ;PUPI/O: JFN not open in mode 16
DEFSYM PUPX7==:.ERBAS+3016 ;PUPI: Source address incorrect
DEFSYM PUPX8==:.ERBAS+3017 ;PUPI/O: JFN doesn't refer to device PUP:
DEFSYM PUPX9==:.ERBAS+3020 ;PUPSK: Bad argument
DEFSYM PUPNX1==:.ERBAS+3030 ;PUPNM: Name or address not found
DEFSYM PUPNX2==:.ERBAS+3031 ;PUPNM: Name ambiguous
DEFSYM PUPNX3==:.ERBAS+3032 ;PUPNM: Syntax error or illegal address
DEFSYM PUPNX4==:.ERBAS+3033 ;PUPNM: Inconsistent values in name expression
DEFSYM PUPNX5==:.ERBAS+3034 ;PUPNM: Syntax error in attribute name
DEFSYM PUPNX6==:.ERBAS+3035 ;PUPNM: Attribute name not found
DEFSYM ATNX14==:.ERBAS+3040 ;ATPTY: JFNs don't refer to same device
DEFSYM ATNX15==:.ERBAS+3041 ;ATPTY: Pup JFNs don't refer to same local port
DEFSYM ATNX16==:.ERBAS+3042 ;ATPTY: Pup JFN doesn't refer to BSP port
DEFSYM ATNX17==:.ERBAS+3043 ;ATPTY: Pup connection not opern
;159 End addition
;@@@
DEFSYM CHAOX1==:.ERBAS+3044 ;LOS received for connection
DEFSYM CHAOX2==:.ERBAS+3045 ;Connection not in correct state
DEFSYM CHAOX3==:.ERBAS+3046 ;Byte count too large
DEFSYM CHAOX4==:.ERBAS+3047 ;No LOS received for connection
;206 Begin addition
DEFSYM CHAOX5==:.ERBAS+3050 ;Not allowed to use ChaosNet
;206 End addition
;@@@
;99 Begin addition
DEFSYM VTSX01==:.ERBAS+3060 ;Invalid VTS function
DEFSYM VTSX02==:.ERBAS+3061 ;Terminal cannot perform VTS function
DEFSYM VTSX03==:.ERBAS+3062 ;Missing required argument to VTS function
;If this file provided the definition of DEFSYM, flush it
;so that we leave things as we found them.
IFN $$TEMP,EXPUNG DEFSYM