Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - mit/monitor/monsym.mac
There are 74 other files named monsym.mac in the archive. Click here to see a list.
;[MIT-XX]SSY:<MONITOR.M5>MONSYM.MAC.9,  7-Nov-83 02:15:53, Edit by BERLIN
;3031 CHANM support

;--------------------------------------------------------------------
;***** This version does not have error message texts - be carefull!
;--------------------------------------------------------------------

;+++ TM%RSU TTY mode to reverse <del> and _ for losing ttys
;<BERLIN.M5>MONSYM.MAC.2,  7-Oct-82 17:07:39, Edit by BERLIN
;3005 FINGR jsys
;<5.MITMON>MONSYM.MAC.4,  2-Oct-82 17:10:26, Edit by JTW
;3002 TIW code for output flush requested
;1001 Multinet merge


;;;	**** WARNING ****
;;;Some changes occur from MIT V4 to MIT V5 monsym - recompile where needed!
;;;	.mofci: 52 ==> 60
;;;	sc%cha: 1b25 ==> 1b34
;;;	sc%lsa: 1b26 ==> 1b35
;;;And a few error codes:
;;;	SNOP20: 1461 ==> 1525
;;;	SNOP19: 1462 ==> 1526
;;;	DELX13: 1463 ==> 1527

;<SYS.MONITOR>MONSYM.MAC.53,  5-May-82 12:11:45, Edit by BERLIN
;290 RTGRV, STGRV jsys
;<SYS.MONITOR>MONSYM.MAC.52,  5-May-82 11:36:04, Edit by BERLIN
;289 BBN Bitgraph defs, RTGRV and STGRV jsys, AAA defs, EE error msg
;<SYS.MONITOR>MONSYM.MAC.51,  9-Mar-82 21:02:23, Edit by BERLIN
;275 new argument to SKED to read # jobs in given class
;<SYS.MONITOR>MONSYM.MAC.50, 23-Feb-82 15:09:30, Edit by BERLIN
;271 Remove PUPs
;<SYS.MONITOR>MONSYM.MAC.46,  3-Feb-82 14:07:24, Edit by BERLIN
;267 add ACJ denial
;
; DANGER: when using MACCNV to make a TWXBTS file for assembling MIDAS,
;  be sure to go in by hand and delete the IFNDEF FOR,< ... >, or MIDAS'
;  symbol table will be blown.  (SOMEBODY should fix MACCNV ...)
;
;222 add error codes for new directory privileges
;SRC:<SYS.MONITOR>MONSYM.MAC.39 23-Mar-81 01:04:13, Edit by MMCM
;221 TC%FCI and .MOFCI
;SRC:<SYS.MONITOR>MONSYM.MAC.38  7-Feb-81 17:40:47, Edit by CPR
;17 Additions to static term type setting: allow additional controls of
;   type setting and speed setting (mostly for the kiddies at EECS)
;<SYS.MONITOR>MONSYM.MAC.37, 3-Feb-81 14:58, Edit by EBM
; fix changes in radix that blow MACCNV and hence mess up MIDAS
;<SYS.MONITOR>MONSYM.MAC.36, 22-Oct-80 18:33:46, Edit by MT
;207 Add HP2640 terminal
;<SYS.MONITOR>MONSYM.MAC.23, 18-Oct-80 04:10:00, Edit by Jis
;206 add bit definitions for chaos-net-user and protection functions
;<SYS.MONITOR>MONSYM.MAC.22, 10-Sep-80 20:11:33, Edit by MT
;99 Merge in VTS stuff
;<SYS.MONITOR>MONSYM.MAC.15, 19-Aug-80 17:22:24, Edit by MT
;203 Error codes for BOOT
;<SYS.MONITOR>MONSYM.MAC.5, 31-Jul-80 00:38:15, Edit by MT
;198 Improved FAIL support (from Stanford)
;<NEW.MONITOR>MONSYM.MAC.3, 25-Jun-80 21:47:09, Edit by MT
;SRC:<SYS.MONITOR>MONSYM.MAC.13  2-Jun-80 12:26:59, Edit by CPR
; Add .TTPTV terminal type for Plasma TV VT52s
;<4.MONITOR>MONSYM.MAC.11, 17-Mar-80 17:51:32, Edit by MT
; Turned SMAP back on
;<4.MONITOR>MONSYM.MAC.10,  5-Mar-80 02:56:25, Edit by MT
;170 add DELX13
;<4.MONITOR>MONSYM.MAC.8,  5-Feb-80 16:58:25, Edit by MT
;162 Remove dot from default field breakset
;<4.TCP>MONSYM.MAC.1, 25-Jan-80 19:37:52, Edit by MT
;151 TCP and INET JSYSs
;<4.MONITOR>MONSYM.MAC.2, 10-Jan-80 13:19:30, Edit by MT
;159 PUP definitions
;<SOURCES.4>MONSYM.MAC.2, 23-Nov-79 14:18:06, Edit by MT
;& Release 4 merging
;<SOURCES.3A>MONSYM.MAC.13, 23-Sep-79 23:23:38, Edit by MT
;146 Add DBGIM JSYS
;<SOURCES.3A>MONSYM.MAC.12, 20-Sep-79 23:47:50, Edit by MT
;143 Added CD%HPW for hashed passwords
;<SOURCES.3A>MONSYM.MAC.10, 10-Sep-79 13:51:13, Edit by MT
;141 Added Concept 100 terminal (.TTC10)
;<SOURCES.3A>MONSYM.MAC.9,  6-Jul-79 14:28:23, Edit by MT
;131 Added .TTH19 for Heath 19 terminal
;<SOURCES.3A>MONSYM.MAC.8, 18-Jun-79 20:15:29, Edit by MT
;126 Added .TTT10 for Teleray 1061
;<SOURCES.3A>MONSYM.MAC.7, 10-Jun-79 22:21:10, Edit by MT
;125 96-bit leader stuff from rel 4
;<SOURCES.3A>MONSYM.MAC.5, 19-Dec-78 20:36:26, Edit by DANG
;105 Added .TTV10 for VT100 terminals and needed macros from macsym
;<SOURCES.3A>MONSYM.MAC.3,  5-Dec-78 15:11:49, Edit by DANG
;103 Added FB%KEP bit for keeping process by default
;<SOURCES.MONITOR>MONSYM.MAC.4,  7-Jul-78 21:28:25, Edit by DANG
;35 Added .TTFOX terminal type
;<SOURCES.MONITOR>MONSYM.MAC.3, 27-Apr-78 06:21:18, Edit by DANG
;27 Added .SIGIO and .RFSIG for signal jfn
;26 Added .SNRMA and .SNSMA for read and setting monitor adbrk
;<SOURCES.MONITOR>MONSYM.MAC.2, 21-Apr-78 13:50:29, Edit by DANG
;18 Added OPRFN jsys and related error codes
;11 Added CD%NMF for no mail file on create directory
;6  Added GTBLT jsys
;5  Added PERPETUAL and EPHEMERAL bits
;2  Added random terminal types
; UPD ID= 75, SNARK:<5.UTILITIES>MONSYM.MAC.79,  22-Jan-82 16:40:56 by MURPHY
;arguments to XSSEV%
; UPD ID= 74, SNARK:<5.UTILITIES>MONSYM.MAC.78,  22-Jan-82 16:08:17 by MURPHY
;TCO 5.1697 - XSSEV%, XGSEV%, etc.
; UPD ID= 73, SNARK:<5.UTILITIES>MONSYM.MAC.77,  22-Jan-82 15:52:15 by PAETZOLD
;TCO 5.1699 - Add .TT125 and .TTK10
; UPD ID= 71, SNARK:<5.UTILITIES>MONSYM.MAC.76,  17-Jan-82 20:39:54 by PAETZOLD
;TCO 5.1682 - Add ILLX05
; UPD ID= 69, SNARK:<5.UTILITIES>MONSYM.MAC.75,  15-Jan-82 15:43:10 by PLATUKIS
;TCO 5.1677- Add BOTX20
; UPD ID= 66, SNARK:<5.UTILITIES>MONSYM.MAC.74,  13-Jan-82 16:27:16 by PAETZOLD
;TCO 5.1673 - Add BOTX19
; UPD ID= 64, SNARK:<5.UTILITIES>MONSYM.MAC.73,  13-Jan-82 12:05:52 by MILLER
;TCO 6.1054. ADD .GOATJ DEF FOR ATACH ACJ
;TCO 6.1053. ADD FB%WNC
; UPD ID= 62, SNARK:<5.UTILITIES>MONSYM.MAC.71,  18-Dec-81 16:10:49 by CHALL
;TCO 5.1639 (RETROFIT 6.1036) ADD CM%NSF - "SUFFIX MAY BE OMITTED" COMND FLAG
; UPD ID= 56, SNARK:<5.UTILITIES>MONSYM.MAC.70,  26-Oct-81 19:45:13 by SOUTH
;tco 5.1598 - insert symbols for DN60 protocol in DTESRV.
; UPD ID= 46, SNARK:<5.UTILITIES>MONSYM.MAC.69,  16-Oct-81 17:10:35 by MURPHY
;FH%EPN
; UPD ID= 37, SNARK:<5.UTILITIES>MONSYM.MAC.68,  28-Sep-81 11:08:54 by SOUTH
;TCO 5.1536 - INSERT .BTD60 AND .VND60
; UPD ID= 35, SNARK:<5.UTILITIES>MONSYM.MAC.67,  21-Sep-81 15:47:54 by MURPHY
;.GJNOD, GJFX54
; UPD ID= 33, SNARK:<5.UTILITIES>MONSYM.MAC.66,  18-Sep-81 12:38:35 by MURPHY
;SUPPRESS ERROR CODE SYMBOLS
; UPD ID= 27, SNARK:<5.UTILITIES>MONSYM.MAC.65,  31-Aug-81 17:37:18 by COBB
;SNARK:<5.UTILITIES>MONSYM.MAC.63 31-Aug-81 17:24:33, Edit by COBB
;SYSERR error messages changed to refer to SPEAR  TCO: 5.1482
; UPD ID= 24, SNARK:<5.UTILITIES>MONSYM.MAC.62,  25-Aug-81 17:00:24 by HALL
;Comment in IPCF definitions
; UPD ID= 14, SNARK:<5.UTILITIES>MONSYM.MAC.61,  30-Jul-81 07:10:57 by FLEMMING
;Add definitions for XGTPW
; UPD ID= 10, SNARK:<5.UTILITIES>MONSYM.MAC.60,  24-Jul-81 16:08:55 by SCHMITT
;TCO 5.1433 - Add SMAPX2 and PMAPX8 error codes
; UPD ID= 7, SNARK:<5.UTILITIES>MONSYM.MAC.59,  18-Jul-81 17:53:52 by PAETZOLD
;Fix typo - TTYXO2 should be TTYX02
; UPD ID= 5, SNARK:<5.UTILITIES>MONSYM.MAC.58,  17-Jul-81 16:13:44 by MURPHY
;MORE 5.1390 - TTYX02
; UPD ID= 4, SNARK:<5.UTILITIES>MONSYM.MAC.57,  17-Jul-81 14:48:24 by PAETZOLD
;TCO 5.1301 - Add .SCOUN getab index
;Also Remove TCO 5.1302 as it is no longer needed
; UPD ID= 3, SNARK:<5.UTILITIES>MONSYM.MAC.56,  16-Jul-81 13:45:28 by GRANT
;TCO 5.1418 - Symbol for new NODE JSYS function .NDRNM; also, .NDMAX
; UPD ID= 1, SNARK:<5.UTILITIES>MONSYM.MAC.55,   8-Jul-81 17:45:52 by MURPHY
;TCO 5.1398 - IOX34, IOX35
;TCO 5.1396 - JP%SYS
; UPD ID= 2272, SNARK:<5.UTILITIES>MONSYM.MAC.54,  30-Jun-81 11:44:59 by MURPHY
;ANTX01
;<5.UTILITIES>MONSYM.MAC.53, 29-Jun-81 18:58:47, Edit by PAETZOLD
;<5.UTILITIES>MONSYM.MAC.52, 29-Jun-81 18:52:52, Edit by PAETZOLD
;ANTX01 - ADD DEFINITION WITHOUT STRING SO TTYSRV ASSEMBLES
; UPD ID= 2249, SNARK:<5.UTILITIES>MONSYM.MAC.51,  24-Jun-81 12:18:00 by LEACHE
;TCO 5.1383 Modify definition of DESX7
; UPD ID= 2242, SNARK:<5.UTILITIES>MONSYM.MAC.50,  23-Jun-81 14:31:02 by MURPHY
;REMOVE EXTRANEOUS XHLLI DEF
; UPD ID= 2222, SNARK:<5.UTILITIES>MONSYM.MAC.49,  19-Jun-81 10:20:39 by GRANT
;TCO 5.1375 - Add ATACX6 and ATACX7
; UPD ID= 1925, SNARK:<5.UTILITIES>MONSYM.MAC.48,   1-May-81 12:06:28 by PAETZOLD
;TCO 5.1302 add .GOTRK for GETOK subsystem (compiler) access
;also .GETYP for block type of .GOTRK function
; UPD ID= 1915, SNARK:<5.UTILITIES>MONSYM.MAC.44,  30-Apr-81 16:50:59 by CHALL
;Define FB%NDL in the FDB and error message DELX13 (2453)
; UPD ID= 1861, SNARK:<5.UTILITIES>MONSYM.MAC.43,  21-Apr-81 18:27:59 by MURPHY
; UPD ID= 1796, SNARK:<5.UTILITIES>MONSYM.MAC.42,   7-Apr-81 12:44:53 by GRANT
;Change wording of NSPX25
; UPD ID= 1794, SNARK:<5.UTILITIES>MONSYM.MAC.41,   6-Apr-81 15:57:23 by GRANT
;Make COMX21 upper/lower case
; UPD ID= 1773, SNARK:<5.UTILITIES>MONSYM.MAC.40,  25-Mar-81 17:53:26 by GRANT
;Update Copyright
; UPD ID= 1699, SNARK:<5.UTILITIES>MONSYM.MAC.39,  16-Mar-81 08:18:39 by FLEMMING
;add definitions for XRMAP
; UPD ID= 1531, SNARK:<5.UTILITIES>MONSYM.MAC.38,   7-Feb-81 21:31:08 by GRANT
;ADD COMX21
; UPD ID= 1530, SNARK:<5.UTILITIES>MONSYM.MAC.37,   7-Feb-81 21:23:01 by GRANT
;Network Management only needs 1 error code, remove the others
;Add 2 Network Management functions - .NTMAP and .NTREX
; UPD ID= 1528, SNARK:<5.UTILITIES>MONSYM.MAC.36,   6-Feb-81 17:03:00 by MURPHY
;OF%RDU
; UPD ID= 1474, SNARK:<5.UTILITIES>MONSYM.MAC.35,  22-Jan-81 11:59:21 by ZIMA
;Comment-only edit to .GERLG
; UPD ID= 1448, SNARK:<5.UTILITIES>MONSYM.MAC.34,  15-Jan-81 16:00:10 by FLEMMING
;add code for SMAP/RSMAP
; UPD ID= 1327, SNARK:<5.UTILITIES>MONSYM.MAC.33,   1-Dec-80 16:09:12 by OSMAN
;TCO 5.1205 - ADD XGVEC AND XSVEC
;tco 5.1204 - Add XSFRK jsys
; UPD ID= 1313, SNARK:<5.UTILITIES>MONSYM.MAC.32,  25-Nov-80 16:30:26 by GRANT
;New NTMAN% JSYS symbols and error messages
; UPD ID= 1298, SNARK:<5.UTILITIES>MONSYM.MAC.31,  19-Nov-80 16:53:05 by MURPHY
;SH%LPM
; UPD ID= 1282, SNARK:<5.UTILITIES>MONSYM.MAC.29,  18-Nov-80 12:00:11 by OSMAN
;Fix GET bit definitions
; UPD ID= 1271, SNARK:<5.UTILITIES>MONSYM.MAC.28,  13-Nov-80 16:25:00 by OSMAN
;Add GETX5
; UPD ID= 1243, SNARK:<5.UTILITIES>MONSYM.MAC.27,   7-Nov-80 09:56:36 by OSMAN
;tco 5.1189 - Add new GET symbols
; UPD ID= 1204, SNARK:<5.UTILITIES>MONSYM.MAC.26,  28-Oct-80 16:55:09 by MURPHY
;SK%CL1
; UPD ID= 1164, SNARK:<5.UTILITIES>MONSYM.MAC.25,  15-Oct-80 11:48:51 by MOSER
;TCO 5.1173 - ADD .LSxxx SYMBOLS FOR MAGTAPE LABEL STATE
; UPD ID= 1144, SNARK:<5.UTILITIES>MONSYM.MAC.24,   9-Oct-80 22:41:43 by ENGEL
;ADD CIBDFQ
; UPD ID= 1096, SNARK:<5.UTILITIES>MONSYM.MAC.23,   1-Oct-80 16:14:45 by BLOUNT
;re-define .FBLN1 to be 31 (it changed in Release 4)
; UPD ID= 1055, SNARK:<5.UTILITIES>MONSYM.MAC.22,  26-Sep-80 12:00:36 by MURPHY
;ARG BLOCK SYMBOLS FOR .MOSNH
; UPD ID= 1048, SNARK:<5.UTILITIES>MONSYM.MAC.21,  25-Sep-80 16:25:36 by GRANT
;Add NTMAN% JSYS definitions
;Add .NDNNO and .NDMSK to NODE JSYS
; UPD ID= 1037, SNARK:<5.UTILITIES>MONSYM.MAC.20,  24-Sep-80 14:55:23 by ZIMA
;TCO 5.1155 - ADD GJFX53
; UPD ID= 1022, SNARK:<5.UTILITIES>MONSYM.MAC.19,  16-Sep-80 16:00:24 by GRANT
;NSPX24 - NSPX26
; UPD ID= 984, SNARK:<5.UTILITIES>MONSYM.MAC.18,   3-Sep-80 14:46:14 by GRANT
;NTMX1 - NTMX5
; UPD ID= 926, SNARK:<5.UTILITIES>MONSYM.MAC.17,  20-Aug-80 10:29:45 by MURPHY
;.MOANT, .MOSNH
; UPD ID= 921, SNARK:<5.UTILITIES>MONSYM.MAC.16,  19-Aug-80 15:19:29 by MURPHY
;.GSSMB
; UPD ID= 877, SNARK:<5.UTILITIES>MONSYM.MAC.15,  12-Aug-80 10:51:01 by OSMAN
;tco 5.1130 - Change wording of SEVEX1
; UPD ID= 817, SNARK:<5.UTILITIES>MONSYM.MAC.14,  30-Jul-80 16:55:33 by OSMAN
;More 5.1105 - Add .POLOC
; UPD ID= 816, SNARK:<5.UTILITIES>MONSYM.MAC.13,  30-Jul-80 16:45:36 by OSMAN
;More 5.1105 - Add PDVX03
; UPD ID= 800, SNARK:<5.UTILITIES>MONSYM.MAC.12,  24-Jul-80 16:45:34 by OSMAN
;More 5.1105 - Add SSAVX5
; UPD ID= 771, SNARK:<5.UTILITIES>MONSYM.MAC.11,  22-Jul-80 09:07:14 by OSMAN
;tco 5.1105 - Put in PDVOP% definitions
; UPD ID= 656, SNARK:<5.UTILITIES>MONSYM.MAC.10,  16-Jun-80 17:22:43 by KONEN
;TCO 5.1063 -- ADD .MSISN AND .MSRSE TO MSTR
;CHANGE PS: ERROR MESSAGES TO SAY SYSTEM STRUCTURE
; UPD ID= 618, SNARK:<5.UTILITIES>MONSYM.MAC.9,   9-Jun-80 16:21:42 by LYONS
;TCO 5.1062 ADD MSTR BITS FOR READ AFTER WRITE FOR SWAP AND DATA SPACE
; UPD ID= 595, SNARK:<5.UTILITIES>MONSYM.MAC.8,   3-Jun-80 17:10:46 by MURPHY
;ADD SYSTEM MESSAGE LEVEL BITS TO SMON/TMON
; UPD ID= 582, SNARK:<5.UTILITIES>MONSYM.MAC.7,   1-Jun-80 23:56:29 by ZIMA
;TCO 5.1055 - CORRECT DEFINITION OF TL%AAD TO ==:
; UPD ID= 580, SNARK:<5.UTILITIES>MONSYM.MAC.6,  31-May-80 23:11:23 by DBELL
;TCO 5.1048 - ADD ERROR CODES FOR MULTIPLE-PAGE DSKOPS
; UPD ID= 479, SNARK:<5.UTILITIES>MONSYM.MAC.5,  25-Apr-80 14:09:34 by ENGEL
;ADD LCBDBP,LCLNER,LCNOND
; UPD ID= 396, SNARK:<5.UTILITIES>MONSYM.MAC.4,   1-Apr-80 17:19:47 by LYONS
;ADD SC%ANA, SC%DNA AS PRIVE, AND GETOK FUNCTIONS .GOANA, .GODNA
; UPD ID= 384, SNARK:<5.UTILITIES>MONSYM.MAC.3,  27-Mar-80 14:04:37 by ENGEL
;ADD CILENR
; UPD ID= 380, SNARK:<5.UTILITIES>MONSYM.MAC.2,  26-Mar-80 16:15:41 by ENGEL
;ADD CIXXX CODES
; UPD ID= 370, SNARK:<4.1.UTILITIES>MONSYM.MAC.14,  26-Mar-80 11:12:31 by DBELL
;TCO 4.1.1119 - ADD RP20 DEFINITIONS
; UPD ID= 301, SNARK:<4.1.UTILITIES>MONSYM.MAC.13,   3-Mar-80 12:36:15 by HALL
;MAKE SMAP BE PART OF THE STANDARD MONITOR (FOR INHOUSE, AT LEAST)
; UPD ID= 286, SNARK:<4.1.UTILITIES>MONSYM.MAC.12,  20-Feb-80 17:59:33 by MURPHY
;SK%TOP, SK%RQM
; UPD ID= 282, SNARK:<4.1.UTILITIES>MONSYM.MAC.11,  20-Feb-80 13:25:35 by MURPHY
;FIELDS FOR SJPRI, SPRIW
; UPD ID= 235, SNARK:<4.1.UTILITIES>MONSYM.MAC.10,  31-Jan-80 16:44:53 by DBELL
;FIX JS%SPC TO INCLUDE JS%PAF
; UPD ID= 227, SNARK:<4.1.UTILITIES>MONSYM.MAC.9,  25-Jan-80 17:02:47 by DBELL
;TCO 4.1.1074 - ADD SYMBOL JS%SPC FOR JFNS
; UPD ID= 188, SNARK:<4.1.UTILITIES>MONSYM.MAC.8,   8-Jan-80 09:12:13 by KONEN
;ADD MORE BOOT ERROR MESSAGES
; UPD ID= 180, SNARK:<4.1.UTILITIES>MONSYM.MAC.7,  31-Dec-79 12:51:31 by GRANT
;MONX06 - make the message better
; UPD ID= 178, SNARK:<4.1.UTILITIES>MONSYM.MAC.6,  28-Dec-79 14:11:55 by GRANT
;Add MONX06 error code
;<4.1.UTILITIES>MONSYM.MAC.5, 16-Nov-79 13:49:40, EDIT BY MILLER
;TCO 4.1.1021 ADD TTMSX1 ERROR CODE
;<4.1.UTILITIES>MONSYM.MAC.4, 13-Nov-79 09:27:17, EDIT BY OSMAN
;MORE 4.1.1016 - Change .CHFF to .CHFFD
;<4.1.UTILITIES>MONSYM.MAC.3, 13-Nov-79 07:51:35, EDIT BY R.ACE
;TCO 4.1.1018 - REMOVE EFACT JSYS FROM MONITOR
;<4.1.UTILITIES>MONSYM.MAC.2, 12-Nov-79 16:06:49, EDIT BY OSMAN
;tco 4.1.1016 - Allow formfeed to end lines
;<4.UTILITIES>MONSYM.MAC.261, 24-Oct-79 18:17:04, EDIT BY MURPHY
;SMAPX1
;<4.UTILITIES>MONSYM.MAC.260, 24-Oct-79 16:00:45, EDIT BY GRANT
;CHANGE GOKER3'S MESSAGE
;<4.UTILITIES>MONSYM.MAC.259, 24-Oct-79 10:33:02, EDIT BY MURPHY
;UPDATE SCHED BIAS FLAGS
;<4.UTILITIES>MONSYM.MAC.258, 16-Oct-79 07:06:35, EDIT BY R.ACE
;TCO 4.2526 - ADD ERROR CODE MREQ31
;<4.UTILITIES>MONSYM.MAC.257,  8-Oct-79 09:10:26, EDIT BY OSMAN
;tco 4.2513 - Allow dollarsign and underscore in user names
;<4.UTILITIES>MONSYM.MAC.256, 28-Sep-79 18:15:35, EDIT BY HALL
;ADD ERROR CODE XSIRX2
;<4.UTILITIES>MONSYM.MAC.255, 28-Sep-79 16:45:40, EDIT BY HALL
;FIX TYPO
;<4.UTILITIES>MONSYM.MAC.254, 28-Sep-79 15:42:13, EDIT BY HALL
;CHANGES FOR EXTENDED ADDRESSING: ADD XSIR AND XSIR PLUS ERROR
;CODES
;<4.UTILITIES>MONSYM.MAC.253, 26-Sep-79 17:47:23, EDIT BY DBELL
;TCO 4.2490 - ADD MT%NSH FOR MODES NOT SUPPORTED BY HARDWARE
;<4.UTILITIES>MONSYM.MAC.252, 26-Sep-79 14:52:24, Edit by KOHN
;<4.UTILITIES>MONSYM.MAC.251, 25-Sep-79 14:33:29, EDIT BY MILLER
;TCO 4.2487. ADD .GOOAD DEFINITION
;<4.UTILITIES>MONSYM.MAC.250, 25-Sep-79 13:49:42, EDIT BY MURPHY
;PUT BACK XJRSTF, XSFM, ETC.
;<4.UTILITIES>MONSYM.MAC.249, 20-Sep-79 15:32:07, EDIT BY MURPHY
;IOX33
;<4.UTILITIES>MONSYM.MAC.248, 14-Sep-79 15:33:33, EDIT BY MILLER
;TCO 4.2469. ADD .GOACC ACJ FUNCTION
;<4.UTILITIES>MONSYM.MAC.247, 12-Sep-79 18:14:25, Edit by KOHN
;ADD AYDIN MTOPR FUNCTION (MODULE DSPLAY)
;<4.UTILITIES>MONSYM.MAC.245,  5-Sep-79 10:45:31, EDIT BY OSMAN
;TCO 4.2442 - Add GT%JFN
;<4.UTILITIES>MONSYM.MAC.244, 23-Aug-79 15:10:30, EDIT BY SCHMITT
;TCO 4.2418 - Change RT%PRH mask from 377777 to 777777
;<4.UTILITIES>MONSYM.MAC.243, 14-Aug-79 15:39:52, EDIT BY R.ACE
;TCO 4.2397 - DEFINE GS%PLN
;<4.UTILITIES>MONSYM.MAC.242, 11-Aug-79 19:32:27, EDIT BY R.ACE
;TCO 4.2386 - DELETE IOX69, CHANGE IOX24 ERROR MESSAGE, ADD IOX32
;<4.UTILITIES>MONSYM.MAC.241,  8-Aug-79 16:34:24, EDIT BY MILLER
;ADD .SAWA
;<4.UTILITIES>MONSYM.MAC.240,  2-Aug-79 08:55:35, EDIT BY OSMAN
;tco 4.2367 - Prevent endless bells on "NUL:_<escape>" typed at exec
;<4.UTILITIES>MONSYM.MAC.239, 23-Jul-79 16:53:19, Edit by KONEN
;<4.UTILITIES>MONSYM.MAC.238, 12-Jul-79 06:49:54, EDIT BY HALL
;ADD FIELD DEFINITIONS FOR NEW FORM OF SIR
;<4.UTILITIES>MONSYM.MAC.237, 11-Jul-79 09:31:38, Edit by KONEN
;CORRECT ERROR MESSAGE FOR METRX1
;<4.UTILITIES>MONSYM.MAC.236, 29-Jun-79 11:14:47, Edit by LCAMPBELL
; Correct misspelling in error message
;<4.UTILITIES>MONSYM.MAC.235, 26-Jun-79 11:36:00, EDIT BY DBELL
;TCO 4.2311 - DEFINE G1%SLN FOR GTJFN TO SUPPRESS LOGICAL NAMES
;<4.UTILITIES>MONSYM.MAC.234, 21-Jun-79 14:42:45, EDIT BY OSMAN
;tco 4.2305 - "quote missing at beginning or end"
;<4.UTILITIES>MONSYM.MAC.233, 11-Jun-79 19:57:14, EDIT BY DBELL
;TCO 4.2283 - ADD ERROR CODE FRKHX5
;<4.UTILITIES>MONSYM.MAC.232,  7-Jun-79 06:59:04, EDIT BY R.ACE
;CHANGE GOKER3 TO BE 602421 INSTEAD OF 602420 (WAS A DUPLICATE)
;<4.UTILITIES>MONSYM.MAC.231,  4-Jun-79 09:58:35, EDIT BY BERKOWITZ
;ADD OB%BSS TO INDICATE THE BATCH STREAM NUMBER IS SET
;<4.UTILITIES>MONSYM.MAC.230, 12-May-79 12:40:25, EDIT BY MILLER
;ADD GD%PAR DEFINITION
;<4.UTILITIES>MONSYM.MAC.229, 28-Apr-79 20:32:22, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.228, 28-Apr-79 19:33:39, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.227, 26-Apr-79 23:28:14, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.226, 26-Apr-79 13:57:17, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.225, 23-Apr-79 13:05:25, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.224, 15-Apr-79 22:14:42, Edit by MCLEAN
;MAKE A MAXIMUM ARGUMENT BLOCK SIZE FOR GETOK REQUESTS
;<4.UTILITIES>MONSYM.MAC.223, 13-Apr-79 10:27:29, EDIT BY OSMAN
;DEFINE ACTB0...
;<4.UTILITIES>MONSYM.MAC.222, 11-Apr-79 22:54:55, EDIT BY DBELL
;DOCUMENT THE LENGTH OF AN FDB IN .FBCTL WORD (SYMBOL FB%LEN)
;<4.UTILITIES>MONSYM.MAC.221, 10-Apr-79 15:39:20, Edit by MCLEAN
;ADD USER NUMBER TO RCVOK
;<4.UTILITIES>MONSYM.MAC.220,  9-Apr-79 15:59:27, EDIT BY MILLER
;TCO 4.2228. ADD .MTCVV
;<4.UTILITIES>MONSYM.MAC.219,  6-Apr-79 10:07:53, EDIT BY OSMAN
;change message for MTOX19,20
;<4.UTILITIES>MONSYM.MAC.218,  4-Apr-79 12:58:57, Edit by MCLEAN
;change error message for goker2
;<4.UTILITIES>MONSYM.MAC.217, 26-Mar-79 13:19:46, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.216, 26-Mar-79 12:34:12, EDIT BY MILLER
;ADD GETOK OFFSETS FOR , .GOCL0 AND .GOCLS
;<4.UTILITIES>MONSYM.MAC.215, 23-Mar-79 23:15:03, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.214, 23-Mar-79 23:14:08, Edit by MCLEAN
;ADD RCVOK DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.213, 23-Mar-79 23:05:06, Edit by MCLEAN
;ADD NEW GETOK DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.212, 19-Mar-79 11:08:41, EDIT BY HALL
;TCO 1900 - MAKE SINM% AND SOUTM% REQUIRE THE %
;<4.UTILITIES>MONSYM.MAC.211, 15-Mar-79 13:33:05, EDIT BY MILLER
;ADD GJFX52. UNIQUE CODE FOR TAPE
;<4.UTILITIES>MONSYM.MAC.210, 13-Mar-79 06:38:06, EDIT BY R.ACE
;REPLACE SMON/TMON TAPE-MOUNT DEFAULTS WITH TAPE CONTROLS
;<4.UTILITIES>MONSYM.MAC.209, 10-Mar-79 14:23:34, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>MONSYM.MAC.208,  8-Mar-79 15:44:27, EDIT BY OSMAN
;tco 4.2213 - Add DEVX7 - Null device given
;<4.UTILITIES>MONSYM.MAC.207,  8-Mar-79 15:16:35, Edit by LCAMPBELL
; Fix spelling error in GETOK error message
;<4.UTILITIES>MONSYM.MAC.206,  6-Mar-79 11:30:45, EDIT BY OSMAN
;tco 4.2202 or 4.2022 - add SK%DRG
;<4.UTILITIES>MONSYM.MAC.204,  2-Mar-79 16:38:41, Edit by KIRSCHEN
;ADD ERROR CODES FOR SCHEDULER
;<4.UTILITIES>MONSYM.MAC.203,  1-Mar-79 15:14:36, EDIT BY OSMAN
;<4.UTILITIES>MONSYM.MAC.202,  1-Mar-79 13:44:17, EDIT BY OSMAN
;PUT IN SKED% BLOCK OFFSET DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.201, 28-Feb-79 15:46:40, EDIT BY MILLER
;CHANGE .ARXXX DEFS TO BE SAME AS FOR LUUO BLOCK
;<4.UTILITIES>MONSYM.MAC.200, 21-Feb-79 11:54:56, EDIT BY HURLEY.CALVIN
; Correct spelling of AR%NMS in ARCF definitions
;<4.UTILITIES>MONSYM.MAC.199, 21-Feb-79 11:21:29, EDIT BY MURPHY
;.SFWSP - WORKING SET PRELOADING FUNCTION FOR SMON, TMON - DLM
;<4.UTILITIES>MONSYM.MAC.198, 18-Feb-79 14:30:06, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.197, 18-Feb-79 14:08:51, Edit by MCLEAN
;TEMP PUT XHLLI BACK......
;<4.UTILITIES>MONSYM.MAC.196, 13-Feb-79 10:56:53, EDIT BY OSMAN
;add NPX2CL - "Two colons required on node name"
;<4.UTILITIES>MONSYM.MAC.195, 13-Feb-79 08:48:54, EDIT BY KIRSCHEN
;REMOVE TEMPORARY SMAP JSYS
;<4.UTILITIES>MONSYM.MAC.194, 12-Feb-79 14:49:22, EDIT BY MILLER
;CHANGE .MORVS TO BE =.MOREW. ADD .MORVL, REWIND VOLUME
;<4.UTILITIES>MONSYM.MAC.193,  7-Feb-79 21:04:25, EDIT BY KIRSCHEN
;add argx28
;<4.UTILITIES>MONSYM.MAC.192,  6-Feb-79 13:45:12, EDIT BY KIRSCHEN
;add NSPX23
;<4.UTILITIES>MONSYM.MAC.191,  6-Feb-79 07:20:24, EDIT BY R.ACE
;ADD .MOSDS, .VSFLS, DESX11
;<4.UTILITIES>MONSYM.MAC.190,  5-Feb-79 00:54:58, EDIT BY GILBERT
;Remove extended addressing OPDEFs now in MACRO or MACSYM
;<4.UTILITIES>MONSYM.MAC.189,  4-Feb-79 22:35:40, EDIT BY GILBERT
;Add .EDHSF
;<4.UTILITIES>MONSYM.MAC.188,  1-Feb-79 15:47:44, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.187,  1-Feb-79 14:47:13, Edit by MCLEAN
;ADD .DVCDP
;<4.UTILITIES>MONSYM.MAC.186, 30-Jan-79 16:04:32, EDIT BY OSMAN
;add LA120, LA38
;<4.UTILITIES>MONSYM.MAC.183, 28-Jan-79 14:12:41, Edit by MCLEAN
;REMOVE BAD CHARACTERS IN FILE
;<4.UTILITIES>MONSYM.MAC.182, 28-Jan-79 13:48:02, Edit by MCLEAN
;SUPPORT FOR .DGPDL
;<4.UTILITIES>MONSYM.MAC.181, 23-Jan-79 12:14:26, EDIT BY MILLER
;ADD .MOSMV AND ASSOCIATED VALUES
;<4.UTILITIES>MONSYM.MAC.180, 18-Jan-79 09:47:41, Edit by KONEN
;ADD .MSIIC TO MSTR
;<4.UTILITIES>MONSYM.MAC.179, 14-Jan-79 20:42:49, EDIT BY KIRSCHEN
;UPDATE NODE JSYS DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.177, 14-Jan-79 01:09:46, EDIT BY GILBERT
;More TCO 4.2155 - Define .ED??? symbols.
;<4.UTILITIES>MONSYM.MAC.176, 12-Jan-79 13:22:31, Edit by MCLEAN
;ADD  .DGPDL ONLINE
;<4.UTILITIES>MONSYM.MAC.175, 10-Jan-79 13:41:46, EDIT BY R.ACE
;ADD MREQ28, MREQ29, MREQ30 ERRORS FOR VOLUME-OVERWRITE
;<4.UTILITIES>MONSYM.MAC.174, 10-Jan-79 13:12:03, EDIT BY MILLER
;ADD .MOVSN OFFSET TO .MOLOC FUNCTION
;<4.UTILITIES>MONSYM.MAC.173, 10-Jan-79 10:58:23, EDIT BY MILLER
;ADD .MORLI AND .MOVLS MTOPR FUNCTIONS
;<4.UTILITIES>MONSYM.MAC.172,  8-Jan-79 07:02:08, EDIT BY DBELL
;TCO 4.2155 - Implement hidden symbol tables:
;	Add symbols for .IMOPR functions, and the .JBEDV location.
;<4.UTILITIES>MONSYM.MAC.171,  5-Jan-79 15:49:22, EDIT BY ENGEL
;CHANGE DEBUG TO MDDT%
;<4.UTILITIES>MONSYM.MAC.170,  5-Jan-79 10:33:36, Edit by KONEN
;<4.UTILITIES>MONSYM.MAC.169,  4-Jan-79 17:10:33, EDIT BY HALL
;TCO 4.1900 - ADD AT%NDP
;<4.UTILITIES>MONSYM.MAC.166,  2-Jan-79 10:32:25, EDIT BY ENGEL
;ADD DEBUG JSYS (JSYS 777) TO GET INTO MDDT
;<4.UTILITIES>MONSYM.MAC.165, 29-Dec-78 14:24:10, EDIT BY KIRSCHEN
;<4.UTILITIES>MONSYM.MAC.164, 28-Dec-78 15:25:11, EDIT BY KIRSCHEN
;ADD NSP ERROR CODES
;<4.UTILITIES>MONSYM.MAC.163, 22-Dec-78 13:54:46, EDIT BY MILLER
;TCO 4.2124. ADD METER DEFS
;<4.UTILITIES>MONSYM.MAC.162, 21-Dec-78 12:37:14, EDIT BY HURLEY.CALVIN
; Renumber .IPCSR to be 41 rather than 22 (confuses things in QSRMAC)
;<4.UTILITIES>MONSYM.MAC.161, 21-Dec-78 11:23:35, Edit by LCAMPBELL
; Remove redundant error codes for GTNCP
;<4.UTILITIES>MONSYM.MAC.160, 18-Dec-78 12:47:28, EDIT BY R.ACE
;TCO 4.2099 - ADD INFO DEFS FOR DELETED-PID NOTIFICATION
;<4.UTILITIES>MONSYM.MAC.159, 18-Dec-78 10:49:24, EDIT BY MILLER
;ADD .MTASI FUNCTION OF MTU
;<4.UTILITIES>MONSYM.MAC.158, 12-DEC-78 12:00:00, EDIT BY MBEGUN
;ADD SYMBOLS FOR MULTI-DROP BOOT JSYS FUNCTIONS
;<4.UTILITIES>MONSYM.MAC.157, 11-Dec-78 17:11:50, Edit by LCAMPBELL
; Remove redundant error codes for GTHST
;<4.UTILITIES>MONSYM.MAC.156,  6-Dec-89 10:29:34, EDIT BY BERKOWITZ
;DEFINE VALUES USED FOR .JIBCH AND .SJBAT
;<4.UTILITIES>MONSYM.MAC.155,  2-Dec-78 13:27:56, EDIT BY R.ACE
;ADD MREQ26
;<4.UTILITIES>MONSYM.MAC.154, 30-Nov-78 12:23:34, EDIT BY KIRSCHEN
;ADD .NDVFY
;<4.UTILITIES>MONSYM.MAC.153, 29-Nov-78 18:51:30, EDIT BY HURLEY.CALVIN
; Define AR%TSN and AR%TFN in .ARSF1 & .ARSF2
;<4.UTILITIES>MONSYM.MAC.152, 29-Nov-78 13:22:02, EDIT BY MILLER
;ADD LTLBX1 ERROR CODE
;<4.UTILITIES>MONSYM.MAC.151, 28-Nov-78 17:01:56, EDIT BY KIRSCHEN
;ADD .NDBK1
;<4.UTILITIES>MONSYM.MAC.150, 28-Nov-78 10:23:28, EDIT BY MILLER
;ADD .MORVS
;<4.UTILITIES>MONSYM.MAC.149, 28-Nov-78 08:26:41, EDIT BY MILLER
;ADD .MONTR. ADD .MOPST
;<4.UTILITIES>MONSYM.MAC.148, 26-Nov-78 15:15:08, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.147, 26-Nov-78 15:12:45, EDIT BY MILLER
;ADD LTLBLX ERROR CODE
;<4.UTILITIES>MONSYM.MAC.146, 22-Nov-78 14:41:57, EDIT BY JBORCHEK
;ADD UNIX HOST TYPE AND HOST HAS NAME FLAG BIT
;<4.UTILITIES>MONSYM.MAC.145, 21-Nov-78 10:52:19, EDIT BY ENGEL
;ADD .NDNXT
;<4.UTILITIES>MONSYM.MAC.144, 19-Nov-78 14:48:16, Edit by MCLEAN
;ADD .MOTPS
;<4.UTILITIES>MONSYM.MAC.144, 15-Nov-78 12:24:32, EDIT BY R.ACE
;TCO 4.2088 - ADD TAPE-MOUNT DEFAULTS TO SMON/TMON (.SFTDF, ET AL)
;<4.UTILITIES>MONSYM.MAC.142, 14-Nov-78 17:44:36, Edit by KONEN
;CHANGE .MOIRC TO .MOIRF, AND .MOIWC TO .MOIWF
;<4.UTILITIES>MONSYM.MAC.139,  9-Nov-78 10:53:24, EDIT BY KIRSCHEN
;ADD .JILLO FOR GALAXY
;<4.UTILITIES>MONSYM.MAC.138,  7-Nov-78 16:56:39, Edit by KONEN
;ADD .IPCRS
;<4.UTILITIES>MONSYM.MAC.137,  6-Nov-78 19:41:13, Edit by CALVIN
; DEFINE AR%WRN IN .FBBBT
;<4.UTILITIES>MONSYM.MAC.136,  3-Nov-78 20:39:31, EDIT BY OSMAN
;Exchange .JILLO and .JIBCH
;<4.UTILITIES>MONSYM.MAC.135,  3-Nov-78 09:32:49, EDIT BY MILLER
;ADD MTU JSYS
;<4.UTILITIES>MONSYM.MAC.134,  2-Nov-78 14:59:18, Edit by KONEN
;<4.UTILITIES>MONSYM.MAC.134,  2-Nov-78 14:58:40, Edit by KONEN
;ADD .IPCMS
;<4.UTILITIES>MONSYM.MAC.132, 31-Oct-78 14:49:26, EDIT BY KIRSCHEN
;TCO 4.2075 - REMOVE .BTNOD
;<4.UTILITIES>MONSYM.MAC.131, 31-Oct-78 13:07:38, EDIT BY MILLER
;ADD IOX31
;<4.UTILITIES>MONSYM.MAC.130, 30-Oct-78 17:04:29, EDIT BY OSMAN
;TCO 4.2074 - ADD DEVB0....
;<4.UTILITIES>MONSYM.MAC.129, 27-Oct-78 11:12:37, EDIT BY MILLER
;ADD .MORDL AND .MOWUL TO READ AND WRITE USER LABELS
;<4.UTILITIES>MONSYM.MAC.128, 26-Oct-78 23:14:03, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.127, 26-Oct-78 11:38:34, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.126, 25-Oct-78 17:11:20, EDIT BY MILLER
;ADD .GOMTA
;<4.UTILITIES>MONSYM.MAC.125, 25-Oct-78 12:27:27, EDIT BY GILBERT
;Suppress NOP to DDT typeout.
;<4.UTILITIES>MONSYM.MAC.124, 24-Oct-78 16:02:16, EDIT BY MURPHY
;<4.UTILITIES>MONSYM.MAC.123, 23-Oct-78 21:21:20, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.122, 23-Oct-78 21:19:27, Edit by MCLEAN
;TCO 4.2063 ADD BATCH STREAM#
;<4.UTILITIES>MONSYM.MAC.121, 23-Oct-78 16:28:44, EDIT BY OSMAN
;TCO 4.2060 - ADD .JILLO, .SJLLO
;<4.UTILITIES>MONSYM.MAC.120, 23-Oct-78 12:24:38, EDIT BY MILLER
;ADD .MONVV
;<4.UTILITIES>MONSYM.MAC.119, 20-Oct-78 12:38:36, EDIT BY ENGEL
;ADD .NDLSZ
;<ARC-DEC>MONSYM.MAC.14, 11-Sep-78 12:51:03, EDIT BY CALVIN
; Deleted defn's of .UTUSR & .USUAR, they are in ACTSYM
;[BBN-TENEXD]<3A-EONEIL>MONSYM.MAC.7, 30-Aug-78 14:48:50, Ed: CRDAVIS
; Changed function and reason codes for archive system IPCF messages.
;[BBN-TENEXD]<ARC-DEC>MONSYM.MAC.10, 23-Aug-78 16:29:36, Ed: EONEIL
; Added CRDI25
;<ARC-DEC>MONSYM.MAC.8, 23-Aug-78 09:37:35, EDIT BY CALVIN
; Move CD%DAR to 1B7 - RCDIR used 1B3 for "no match found"
;<CALVIN>MONSYM.MAC.8, 17-Aug-78 07:49:10, EDIT BY CALVIN
; Add ARCX18
;<CALVIN>MONSYM.MAC.4, 16-Aug-78 06:41:44, EDIT BY CALVIN
; Add ARCX14-17
;<CALVIN>MONSYM.MAC.2,  9-Aug-78 10:23:13, EDIT BY CALVIN
; Install defn's for DEC archive/virtual disk system
;ADDED USAGE CODES .UTUSR AND .USUAR--MAY HAVE WRONG VALUES, SO
;CHECK THEM WHEN WE RECEIVE A MORE RECENT MONSYM
;REINSTATED PLOCK JSYS NOW THAT MERGED WITH RELEASE 3A
;[BBN-TENEXD]<3-EONEIL>MONSYM.MAC.4, 27-Jul-78 16:37:49, Ed: EONEIL
;ADDED JS%OFL TO JFNS--OFFLINE ATTRIBUTE
;[BBN-TENEXD]<3-EONEIL>MONSYM.MAC.3,  3-Jul-78 20:37:48, Ed: EONEIL
;Commented out PLOCK JSYS until implemented
;<4.UTILITIES>MONSYM.MAC.115, 18-Oct-78 14:23:43, EDIT BY KIRSCHEN
;REMOVE .BTLST
;<4.UTILITIES>MONSYM.MAC.114, 17-Oct-78 14:07:15, EDIT BY R.ACE
;ADD .MOCVN ENTRY TO .MOLOC ARG BLOCK
;<4.UTILITIES>MONSYM.MAC.112, 16-Oct-78 17:25:01, EDIT BY OSMAN
;ADD RD%BEG
;<4.UTILITIES>MONSYM.MAC.111, 16-Oct-78 11:20:49, EDIT BY MILLER
;CHANGE MTCON DEFS TO BE FLAGS AND CODES
;<4.UTILITIES>MONSYM.MAC.110, 16-Oct-78 11:12:24, EDIT BY GILBERT
;Don't suppress old JSYS names to DDT typeout - it breaks old programs.
;<4.UTILITIES>MONSYM.MAC.109, 15-Oct-78 16:35:03, EDIT BY DBELL
;ADD WILDX1
;<4.UTILITIES>MONSYM.MAC.108, 14-Oct-78 00:48:26, EDIT BY DBELL
;REMOVE NIM FOR WILD% AND ADD WL%ABR
;<4.UTILITIES>MONSYM.MAC.106, 13-Oct-78 11:33:57, EDIT BY MILLER
;ADD .MOHSV FUNCTION FOR MT
;<4.UTILITIES>MONSYM.MAC.105, 12-Oct-78 16:18:53, EDIT BY ENGEL
;ADD .NDCIC
;<4.UTILITIES>MONSYM.MAC.104, 12-Oct-78 10:59:33, EDIT BY MILLER
;MAKE WILD% NIM
;<4.UTILITIES>MONSYM.MAC.103, 10-Oct-78 09:57:41, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.102, 10-Oct-78 09:48:15, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.101, 10-Oct-78 09:45:46, EDIT BY MILLER
;REWRITE DEFJS TO ACCOMMODATE NEW JSYS NAMES
;<4.UTILITIES>MONSYM.MAC.100,  9-Oct-78 20:31:30, EDIT BY DBELL
;ADD WILD% JSYS AND ITS ASSOCIATED DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.99,  9-Oct-78 16:58:11, EDIT BY GILBERT
;Suppress JSYS names without % to DDT typeout, don't define JSYS%
;<4.UTILITIES>MONSYM.MAC.98,  6-Oct-78 15:39:03, EDIT BY KIRSCHEN
;<4.UTILITIES>MONSYM.MAC.97,  6-Oct-78 13:58:53, EDIT BY KIRSCHEN
;tco 4.2033 - add .BTLST
;<4.UTILITIES>MONSYM.MAC.96,  4-Oct-78 15:52:31, EDIT BY R.ACE
;TCO 4.2032 - ADD DATEX7
;<4.UTILITIES>MONSYM.MAC.95,  3-Oct-78 11:56:11, EDIT BY MILLER
;ADD VS%WRT
;<4.UTILITIES>MONSYM.MAC.94,  2-Oct-78 15:31:31, EDIT BY MILLER
;CHANGE DEFJS TO INSURE THAT NAME% IS DEFINED
;<4.UTILITIES>MONSYM.MAC.93,  2-Oct-78 14:29:58, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.92,  2-Oct-78 11:12:22, EDIT BY MILLER
;<4.UTILITIES>MONSYM.MAC.91,  2-Oct-78 10:57:56, EDIT BY MILLER
;ADD TAPE DEFS
;<4.UTILITIES>MONSYM.MAC.90,  1-Oct-78 22:22:29, EDIT BY DBELL
;TCO 4.2027 - ADD .JISTM ENTRY FOR GETJI
;<4.UTILITIES>MONSYM.MAC.89, 29-Sep-78 10:22:45, EDIT BY HALL
;TCO 1900 - CHANGE PREVIOUS EDIT TO USE AT%CRJ
;<4.UTILITIES>MONSYM.MAC.88, 28-Sep-78 17:15:02, EDIT BY HALL
;TCO 1900 - ADD ANOTHER USER STATUS BIT
;<4.UTILITIES>MONSYM.MAC.87, 28-Sep-78 14:56:42, EDIT BY HALL
;TCO 1900 - MORE ON PREVIOUS EDIT
;<4.UTILITIES>MONSYM.MAC.86, 28-Sep-78 13:02:15, EDIT BY HALL
;TCO 1900 - MORE ON PREVIOUS EDIT
;<4.UTILITIES>MONSYM.MAC.85, 28-Sep-78 12:47:51, EDIT BY HALL
;TCO 1900 - FIX SIZE OF AT%SER, ADD ERROR CODES
;<4.UTILITIES>MONSYM.MAC.84, 27-Sep-78 15:01:11, EDIT BY ENGEL
;ADD SOME MORE NODE JSYS SYMBOLS
;<4.UTILITIES>MONSYM.MAC.83, 26-Sep-78 10:30:46, EDIT BY R.ACE
;TCO 4.2022 - ADD ERROR CODE DEVX6
;<4.UTILITIES>MONSYM.MAC.82, 21-Sep-78 13:57:11, Edit by MCLEAN
;CHANGE XHLLI TO BE HLLI (THE CORRECT INSTRUCTION)
;<4.UTILITIES>MONSYM.MAC.81, 20-Sep-78 07:13:06, EDIT BY R.ACE
;ADD .LTxxx SYMBOLS AND ERROR CODES FOR MAGTAPE
;<4.UTILITIES>MONSYM.MAC.80, 17-Sep-78 14:58:26, EDIT BY MILLER
;MORE SCHEDULER DEFS
;<4.UTILITIES>MONSYM.MAC.79, 16-Sep-78 15:18:42, EDIT BY MILLER
;ADD .GOCL0
;<4.UTILITIES>MONSYM.MAC.78, 16-Sep-78 13:08:48, EDIT BY MILLER
;ADD .GOCLS FUNCTION FOR GETOK
;<4.UTILITIES>MONSYM.MAC.77, 16-Sep-78 12:52:35, EDIT BY MILLER
;ADD SKED JSYS AND DEFS. ADD SOME MORE ERROR CODES
;<4.UTILITIES>MONSYM.MAC.76,  7-Sep-78 14:56:10, Edit by MCLEAN
;add more error codes for tapes
;<4.UTILITIES>MONSYM.MAC.74,  6-Sep-78 16:34:16, EDIT BY OSMAN
;REMOVE FLDDB.  FIX COMND BREAK SET DEFS (USE NEW MACRO NAMES)
;<4.UTILITIES>MONSYM.MAC.73,  3-Sep-78 14:46:31, EDIT BY OSMAN
;ADD .CMBRK
;<4.UTILITIES>MONSYM.MAC.72,  3-Sep-78 12:40:51, EDIT BY OSMAN
;ADD FIELD BREAK SET DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.71,  1-Sep-78 22:14:58, EDIT BY OSMAN
;ADD VT100 STUFF
;<4.UTILITIES>MONSYM.MAC.70, 31-Aug-78 11:00:58, EDIT BY HALL
;TCO 1900 - ERROR CODE SWJFX2 FOR ATS JFN'S
;<4.UTILITIES>MONSYM.MAC.69, 28-Aug-78 19:17:37, EDIT BY HELLIWELL
;.MOONX & .MOOFF WERE REVERSED, FIXED
;<4.UTILITIES>MONSYM.MAC.68, 28-Aug-78 19:13:36, Edit by LCAMPBELL
; Improve error message for GTNCX1
;<4.UTILITIES>MONSYM.MAC.67, 26-Aug-78 16:02:52, Edit by MCLEAN
;ADD DV%PSD&DV%UNT
;<4.UTILITIES>MONSYM.MAC.66, 25-Aug-78 17:10:42, EDIT BY HALL
;TCO 1900 - REORDER BITS IN TERMINAL STATUS FOR ATS
;<4.UTILITIES>MONSYM.MAC.65, 23-Aug-78 23:15:32, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.64, 23-Aug-78 23:07:00, Edit by MCLEAN
;add a mess of iox errors
;<4.UTILITIES>MONSYM.MAC.63, 23-Aug-78 14:27:05, EDIT BY R.ACE
;TCO 4.1991 - DIDN'T NEED .SFLBT AFTER ALL, SORRY BUGS
;<4.UTILITIES>MONSYM.MAC.62, 23-Aug-78 08:07:33, EDIT BY ENGEL
;ADD FFFFX1 - NO FREE PAGES IN FILE
;<4.UTILITIES>MONSYM.MAC.61, 22-Aug-78 13:07:39, EDIT BY KIRSCHEN
;MORE NODE JSYS FIXES
;<4.UTILITIES>MONSYM.MAC.60, 22-Aug-78 12:04:49, EDIT BY JBORCHEK
;TCO 1989 ADD NEW ARPA SYMBOLS
;<4.UTILITIES>MONSYM.MAC.59, 16-Aug-78 08:56:00, Edit by ENGEL
;FIX MILLER'S MISSPELLING IN GJFX50
;<4.UTILITIES>MONSYM.MAC.58, 16-Aug-78 01:14:12, Edit by MCLEAN
;ADD .GOMDD
;<4.UTILITIES>MONSYM.MAC.57, 14-Aug-78 22:04:14, Edit by MCLEAN
;ADD MORE MT MTOPR'S
;<4.UTILITIES>MONSYM.MAC.56, 11-Aug-78 11:59:45, Edit by KONEN
;ADD MS%NRS FOR ADDITIONAL STRUCTURE STATUS
;<4.UTILITIES>MONSYM.MAC.55, 11-Aug-78 09:19:39, Edit by ENGEL
;GET RID AT%TRL
;<4.UTILITIES>MONSYM.MAC.54, 10-Aug-78 16:20:08, EDIT BY OSMAN
;ADD .MORLC, .MOSLC, .MORLM, .MOSLM
;<4.UTILITIES>MONSYM.MAC.53,  9-Aug-78 11:35:43, Edit by KIRSCHEN
;MORE NODE JSYS
;<4.UTILITIES>MONSYM.MAC.52,  9-Aug-78 08:43:40, Edit by HALL
;ADD ATSX26
;<4.UTILITIES>MONSYM.MAC.51,  4-Aug-78 23:09:47, Edit by MCLEAN
;MAKE UTEST BE SECTION 1
;<4.UTILITIES>MONSYM.MAC.50,  2-Aug-78 11:22:05, EDIT BY MILLER
;ADD G2%FCH
;<KONEN>MONSYM.MAC.6,  2-Aug-78 10:19:36, Edit by KONEN
; DISK ONLINE/OFFLINE PSI INTERRUPTS
;<KONEN>MONSYM.MAC.3, 23-Jun-78 10:35:36, Edit by KONEN
;ADD ERROR CODES FOR USING PRIVATE STRUCTURE WITHOUT PRIOR INCREMENT
;ADD ARGUMENT TO MSTR TO ALLOW INCREMENTING MOUNT COUNT FOR ANOTHER JOB
;<4.UTILITIES>MONSYM.MAC.48, 31-Jul-78 11:02:44, Edit by KIRSCHEN
;ADD MORE NODE JSYS DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.47, 26-Jul-78 18:44:49, EDIT BY MILLER
;ADD .MORXO
;<4.UTILITIES>MONSYM.MAC.46, 25-Jul-78 11:02:49, Edit by PORCHER
;TCO 1952 - ADD SF%CON TO SFORK
;<4.UTILITIES>MONSYM.MAC.45, 23-Jul-78 14:41:46, EDIT BY MILLER
;TCO 1951. ADD NEW .MOXOF MTOPR FUNCTIONS
;<4.UTILITIES>MONSYM.MAC.44, 22-Jul-78 15:05:45, EDIT BY MILLER
;ADD "TEMPORARY" JSYS SMAP
;<4.UTILITIES>MONSYM.MAC.43, 22-Jul-78 14:11:16, Edit by MCLEAN
;MAKE RECORD COUNTS AVAILABLE TO MOINF PART OF TCO 1948
;<4.UTILITIES>MONSYM.MAC.42, 21-Jul-78 14:01:05, EDIT BY R.ACE
;FIX MISC SPELLING ERRORS
;<4.UTILITIES>MONSYM.MAC.41, 21-Jul-78 03:04:43, Edit by MCLEAN
;TCO 1949 ADD OF%FDT FORCE TIME UPDATE TO OPENF
;<4.UTILITIES>MONSYM.MAC.40, 21-Jul-78 01:07:49, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.39, 20-Jul-78 16:15:04, Edit by MCLEAN
;TCO 1948 ADD .MOIFR,.MOIFW
;<4.UTILITIES>MONSYM.MAC.38, 19-Jul-78 23:51:22, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.37, 19-Jul-78 11:53:32, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.36, 19-Jul-78 00:37:56, Edit by MCLEAN
;ADD DEFINITIONS FOR .MOSTA
;<4.UTILITIES>MONSYM.MAC.35, 19-Jul-78 00:18:22, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.34, 17-Jul-78 11:02:33, Edit by MCLEAN
;REMOVE .ICOFL AND MAKE AN MTOPR FOR IT INSTEAD TCO 1939
;<4.UTILITIES>MONSYM.MAC.32, 15-Jul-78 23:27:30, Edit by MCLEAN
;MORE GETOK DEFINITIONS
;<4.UTILITIES>MONSYM.MAC.31, 14-Jul-78 14:16:31, Edit by MCLEAN
;TCO 1946 READ DATE UPDATE TO SMON .SFRDU ADDED
;<4.UTILITIES>MONSYM.MAC.30, 14-Jul-78 14:13:31, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.29, 12-Jul-78 11:49:22, Edit by KIRSCHEN
; TCO 1945 - ADD .BTNOD TO BOOT JSYS .BTSTS FUNCTION ARGUMENT BLOCK
;<4.UTILITIES>MONSYM.MAC.28, 12-Jul-78 03:37:35, Edit by MCLEAN
;ADD .SFLBT AND .SFMTA TO ENABLE TAPE LABELING TCO1941
;<4.UTILITIES>MONSYM.MAC.27, 12-Jul-78 03:22:48, Edit by MCLEAN
;ADD .MOSTA TCO 1940
;<4.UTILITIES>MONSYM.MAC.26, 11-Jul-78 12:18:04, EDIT BY MILLER
;TCO 1901. ADD SK%BQL
;<4.UTILITIES>MONSYM.MAC.25, 10-Jul-78 16:10:27, Edit by MCLEAN
;TCO 1939 ADD .ICOFL ONLINE TRANSITION TO PSI'S
;<4.UTILITIES>MONSYM.MAC.24, 10-Jul-78 11:18:22, EDIT BY MILLER
;TCO 1937. DEFINE UF%NOW
;<4.UTILITIES>MONSYM.MAC.23,  8-Jul-78 14:23:59, EDIT BY MILLER
;TCO 1934. ADD PM%ABT DEFINITION
;<4.UTILITIES>MONSYM.MAC.22,  6-Jul-78 07:41:28, Edit by JBORCHEK
;ADD SYMBOLS FOR GTHST AND GTNCP JSYS'S
;<4.UTILITIES>MONSYM.MAC.21,  6-Jul-78 01:01:52, Edit by JBORCHEK
;MORE HOST STATUS BITS
;<4.UTILITIES>MONSYM.MAC.19, 28-Jun-78 11:12:29, EDIT BY OSMAN
;ADD .JIT20 - TCO # 1927
;<4.UTILITIES>MONSYM.MAC.18, 27-Jun-78 19:51:46, EDIT BY JBORCHEK
;ADD GTNCP AND GTHST JSYS'S
;<4.UTILITIES>MONSYM.MAC.17, 26-Jun-78 17:45:35, Edit by JBORCHEK
;ADD HOST STATUS BITS
;<4.UTILITIES>MONSYM.MAC.16, 19-Jun-78 13:33:38, Edit by MCLEAN
;ADD GETOK JSYS
;<4.UTILITIES>MONSYM.MAC.15, 14-Jun-78 10:56:05, Edit by ENGEL
;ADD ATS USER STATUS BITS
;<4.UTILITIES>MONSYM.MAC.14, 14-Jun-78 00:35:48, Edit by MCLEAN
;<4.UTILITIES>MONSYM.MAC.13, 14-Jun-78 00:23:13, Edit by MCLEAN
;DEFINITIONS FOR GETOK/GIVOK
;<4.UTILITIES>MONSYM.MAC.12, 13-Jun-78 16:03:46, Edit by KIRSCHEN
;ADD COMX20 - MOVE NEW ATS CODES UP ACCORDINGLY
;<4.UTILITIES>MONSYM.MAC.11, 12-Jun-78 19:25:09, EDIT BY HURLEY
;<4.UTILITIES>MONSYM.MAC.10, 12-Jun-78 19:23:52, EDIT BY HURLEY
;CHANGE THE TEXT FOR THE GJFX23 ERROR CODE
;<4.UTILITIES>MONSYM.MAC.8, 10-Jun-78 22:27:55, Edit by JBORCHEK
;ADD ARPANET PID FOR NETSER
;<4.UTILITIES>MONSYM.MAC.7,  9-Jun-78 14:17:38, Edit by HALL
;TCO 1900 - MORE ATS ERROR CODES
;<4.UTILITIES>MONSYM.MAC.6,  9-Jun-78 13:21:56, Edit by HALL
;TCO 1900 - ADD ATS ERROR CODES, ADD MO%AER BIT DEFINITION
;<4.UTILITIES>MONSYM.MAC.5,  8-Jun-78 11:26:29, Edit by HALL
;TCO 1900 - NEW ATS ERROR CODE
;<4-NEW>MONSYM.MAC.3,  1-Jun-78 12:58:26, Edit by FORTMILLER
;ADD 6250 BPI AND HI-DENSITY DEFINITIONS FOR DX20 SUPPORT
;<4.UTILITIES>MONSYM.MAC.2, 22-May-78 23:35:01, Edit by MCLEAN
;ADD MORE .MTTXX DEFINITIONS FOR NEW HARDWARE
;<4.UTILITIES>MONSYM.MAC.1, 22-May-78 12:36:24, Edit by HALL
;TCO 1900 - MADE SINM AND SOUTM BE STANDARD IN RELEASE 4 MONITOR
;MADE A RELEASE 4 MONSYM FROM 3A


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980,1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

IFNDEF FOR,<			;198 Not for FAIL version
SEARCH MACSYM			;SOME SYMBOLS ARE DEFINED VIA MACROS
> ;198
;MONITOR CALL DEFINITIONS AND ERROR MNEMONICS

;NOTE:
;	THE FOLLOWING SYMBOLS ARE RESERVED:
;
;		SYMBOL		RESERVED BY
;		======		===========
;
;		.OF???		RMS-20
;		.SZ???		RMS-20
;		.PS???		RMS-20

;MACRO TO DEFINE JSYS NAMES

repeat 0,<			;198 
DEFINE DEFJS (NAME,NUM,SECT,XTRA,OLDNEW)<
	OPDEF NAME'% [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME'%>
	IFIDN <OLDNEW>,<OLD>,<
	OPDEF NAME [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME>>>

	SALL
> ;198 repeat 0
;198 Begin addition
IFNDEF FOR,<			;MACRO-10 DEFINITIONS
DEFINE DEFJS (NAME,NUM,SECT,XTRA,OLDNEW)<
	OPDEF NAME'% [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME'%>
	IFIDN <OLDNEW>,<OLD>,<
	OPDEF NAME [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME>>>
	SALL
>;MACRO-10
IFDEF FOR,<			;FAIL VERSION
DEFINE DEFJS ' (NAME,NUM,SECT,XTRA,OLDNEW)<
	OPDEF NAME'% [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME'%>
	IFDIF <OLDNEW>,<>,<
	OPDEF NAME [104B8+NUM]
	IFDEF .PSECT,<
	INTERN NAME>>>
	OPDEF Z [0]		;BECAUSE MACRO HAS IT
>;FAIL
;198 End addition
IFNDEF REL,<REL==0>		;ASSEMBLING REL IF NON-0
  IFE REL,<
	UNIVERSAL MONSYM>
   IFN REL,<
	TITLE MONSYM
	IFNDEF .PSECT,<
	.DIRECT .XTABM>
	>
;JSYS DEFINITIONS WITH 'NIM' AS A FOURTH ARGUMENT ARE CLASSIFIED
; AS 'NOT IN MONITOR'

DEFINE JSLIST <

DEFJS LOGIN,1,MSEC1,,OLD
DEFJS CRJOB,2,MSEC1,,OLD
DEFJS LGOUT,3,MSEC1,,OLD
DEFJS CACCT,4,MSEC1,,OLD
DEFJS EFACT,5,MSEC1,NIM,OLD
DEFJS SMON,6,MSEC1,,OLD
DEFJS TMON,7,MSEC1,,OLD
DEFJS GETAB,10,MSEC1,,OLD
DEFJS ERSTR,11,MSEC1,,OLD
DEFJS GETER,12,MSEC1,,OLD
DEFJS GJINF,13,MSEC1,,OLD
DEFJS TIME,14,MSEC1,,OLD
DEFJS RUNTM,15,MSEC1,,OLD
DEFJS SYSGT,16,MSEC1,,OLD
DEFJS GNJFN,17,MSEC1,,OLD
DEFJS GTJFN,20,MSEC1,,OLD
DEFJS OPENF,21,MSEC1,,OLD
DEFJS CLOSF,22,MSEC1,,OLD
DEFJS RLJFN,23,MSEC1,,OLD
DEFJS GTSTS,24,MSEC1,,OLD
DEFJS STSTS,25,MSEC1,,OLD
DEFJS DELF,26,MSEC1,,OLD
DEFJS SFPTR,27,MSEC1,,OLD
DEFJS JFNS,30,MSEC1,,OLD
DEFJS FFFFP,31,MSEC1,,OLD
DEFJS RDDIR,32,MSEC1,,OLD	;OBSOLETE,,OLD
DEFJS CPRTF,33,,NIM,OLD
DEFJS CLZFF,34,MSEC1,,OLD
DEFJS RNAMF,35,MSEC1,,OLD
DEFJS SIZEF,36,MSEC1,,OLD
DEFJS GACTF,37,MSEC1,,OLD
DEFJS STDIR,40,MSEC1,,OLD	;OBSOLETE,,OLD
DEFJS DIRST,41,MSEC1,,OLD
DEFJS BKJFN,42,MSEC1,,OLD
DEFJS RFPTR,43,MSEC1,,OLD
DEFJS CNDIR,44,,NIM,OLD
DEFJS RFBSZ,45,MSEC1,,OLD
DEFJS SFBSZ,46,MSEC1,,OLD
DEFJS SWJFN,47,MSEC1,,OLD
DEFJS BIN,50,MSEC1,,OLD
DEFJS BOUT,51,MSEC1,,OLD
DEFJS SIN,52,MSEC1,,OLD
DEFJS SOUT,53,MSEC1,,OLD
DEFJS RIN,54,MSEC1,,OLD
DEFJS ROUT,55,MSEC1,,OLD
DEFJS PMAP,56,MSEC1,,OLD
DEFJS RPACS,57,MSEC1,,OLD
DEFJS SPACS,60,MSEC1,,OLD
DEFJS RMAP,61,MSEC1,,OLD
DEFJS SACTF,62,MSEC1,,OLD
DEFJS GTFDB,63,MSEC1,,OLD
DEFJS CHFDB,64,MSEC1,,OLD
DEFJS DUMPI,65,MSEC1,,OLD
DEFJS DUMPO,66,MSEC1,,OLD
DEFJS DELDF,67,MSEC1,,OLD
DEFJS ASND,70,MSEC1,,OLD
DEFJS RELD,71,MSEC1,,OLD
DEFJS CSYNO,72,,NIM,OLD
DEFJS PBIN,73,MSEC1,,OLD
DEFJS PBOUT,74,MSEC1,,OLD
DEFJS PSIN,75,,NIM,OLD
DEFJS PSOUT,76,MSEC1,,OLD
DEFJS MTOPR,77,MSEC1,,OLD
DEFJS CFIBF,100,MSEC1,,OLD
DEFJS CFOBF,101,MSEC1,,OLD
DEFJS SIBE,102,MSEC1,,OLD
DEFJS SOBE,103,MSEC1,,OLD
DEFJS DOBE,104,MSEC1,,OLD
DEFJS GTABS,105,MSEC1,,OLD	;OBSOLETE
DEFJS STABS,106,MSEC1,,OLD	;OBSOLETE
DEFJS RFMOD,107,MSEC1,,OLD
DEFJS SFMOD,110,MSEC1,,OLD
DEFJS RFPOS,111,MSEC1,,OLD
DEFJS RFCOC,112,MSEC1,,OLD
DEFJS SFCOC,113,MSEC1,,OLD
DEFJS STI,114,MSEC1,,OLD
DEFJS DTACH,115,MSEC1,,OLD
DEFJS ATACH,116,MSEC1,,OLD
DEFJS DVCHR,117,MSEC1,,OLD
DEFJS STDEV,120,MSEC1,,OLD
DEFJS DEVST,121,MSEC1,,OLD
DEFJS MOUNT,122,MSEC1,,OLD	;OBSOLETE
DEFJS DSMNT,123,,,OLD		;OBSOLETE
DEFJS INIDR,124,MSEC1,,OLD	;OBSOLETE
DEFJS SIR,125,MSEC1,,OLD
DEFJS EIR,126,MSEC1,,OLD
DEFJS SKPIR,127,MSEC1,,OLD
DEFJS DIR,130,MSEC1,,OLD
DEFJS AIC,131,MSEC1,,OLD
DEFJS IIC,132,MSEC1,,OLD
DEFJS DIC,133,MSEC1,,OLD
DEFJS RCM,134,MSEC1,,OLD
DEFJS RWM,135,MSEC1,,OLD
DEFJS DEBRK,136,MSEC1,,OLD
DEFJS ATI,137,MSEC1,,OLD
DEFJS DTI,140,MSEC1,,OLD
DEFJS CIS,141,MSEC1,,OLD
DEFJS SIRCM,142,MSEC1,,OLD
DEFJS RIRCM,143,MSEC1,,OLD
DEFJS RIR,144,MSEC1,,OLD
DEFJS GDSTS,145,MSEC1,,OLD
DEFJS SDSTS,146,MSEC1,,OLD
DEFJS RESET,147,MSEC1,,OLD
DEFJS RPCAP,150,MSEC1,,OLD
DEFJS EPCAP,151,MSEC1,,OLD
DEFJS CFORK,152,MSEC1,,OLD
DEFJS KFORK,153,MSEC1,,OLD
DEFJS FFORK,154,MSEC1,,OLD
DEFJS RFORK,155,MSEC1,,OLD
DEFJS RFSTS,156,MSEC1,,OLD
DEFJS SFORK,157,MSEC1,,OLD
DEFJS SFACS,160,MSEC1,,OLD
DEFJS RFACS,161,MSEC1,,OLD
DEFJS HFORK,162,MSEC1,,OLD
DEFJS WFORK,163,MSEC1,,OLD
DEFJS GFRKH,164,MSEC1,,OLD
DEFJS RFRKH,165,MSEC1,,OLD
DEFJS GFRKS,166,MSEC1,,OLD
DEFJS DISMS,167,MSEC1,,OLD
DEFJS HALTF,170,MSEC1,,OLD
DEFJS GTRPW,171,MSEC1,,OLD
DEFJS GTRPI,172,MSEC1,,OLD
DEFJS RTIW,173,MSEC1,,OLD
DEFJS STIW,174,MSEC1,,OLD
DEFJS SOBF,175,MSEC1,,OLD
DEFJS RWSET,176,MSEC1,,OLD
DEFJS GETNM,177,MSEC1,,OLD
DEFJS GET,200,MSEC1,,OLD
DEFJS SFRKV,201,MSEC1,,OLD
DEFJS SAVE,202,MSEC1,,OLD
DEFJS SSAVE,203,MSEC1,,OLD
DEFJS SEVEC,204,MSEC1,,OLD
DEFJS GEVEC,205,MSEC1,,OLD
DEFJS GPJFN,206,MSEC1,,OLD
DEFJS SPJFN,207,MSEC1,,OLD
DEFJS SETNM,210,MSEC1,,OLD
DEFJS FFUFP,211,MSEC1,,OLD
DEFJS DIBE,212,MSEC1,,OLD
DEFJS FDFRE,213,,NIM,OLD
DEFJS GDSKC,214,MSEC1,,OLD
DEFJS LITES,215,MSEC1,,OLD	;OBSOLETE
DEFJS TLINK,216,MSEC1,,OLD
DEFJS STPAR,217,MSEC1,,OLD
DEFJS ODTIM,220,MSEC1,,OLD
DEFJS IDTIM,221,MSEC1,,OLD
DEFJS ODCNV,222,MSEC1,,OLD
DEFJS IDCNV,223,MSEC1,,OLD
DEFJS NOUT,224,MSEC1,,OLD
DEFJS NIN,225,MSEC1,,OLD
DEFJS STAD,226,MSEC1,,OLD
DEFJS GTAD,227,MSEC1,,OLD
DEFJS ODTNC,230,MSEC1,,OLD
DEFJS IDTNC,231,MSEC1,,OLD
DEFJS FLIN,232,MSEC1,,OLD
DEFJS FLOUT,233,MSEC1,,OLD
DEFJS DFIN,234,MSEC1,,OLD
DEFJS DFOUT,235,MSEC1,,OLD

DEFJS CRDIR,240,MSEC1,,OLD
DEFJS GTDIR,241,MSEC1,,OLD
DEFJS DSKOP,242,MSEC1,,OLD
DEFJS SPRIW,243,MSEC1,,OLD
DEFJS DSKAS,244,MSEC1,,OLD
DEFJS SJPRI,245,MSEC1,,OLD
DEFJS STO,246,MSEC1,,OLD
DEFJS ARCF,247,MSEC1,,OLD		;ARCHIVE SYSTEM JSYS
DEFJS ASNDP,260,,NIM,OLD
DEFJS RELDP,261,,NIM,OLD
DEFJS ASNDC,262,,NIM,OLD
DEFJS RELDC,263,,NIM,OLD
DEFJS STRDP,264,,NIM,OLD
DEFJS STPDP,265,,NIM,OLD
DEFJS STSDP,266,,NIM,OLD
DEFJS RDSDP,267,,NIM,OLD
DEFJS WATDP,270,,NIM,OLD

DEFJS GTNCP,272,MSEC1,,OLD	      ;TOPS20AN
DEFJS GTHST,273,MSEC1,,OLD	      ;TOPS20AN
DEFJS ATNVT,274,MSEC1,,OLD	      ;TOPS20AN
DEFJS CVSKT,275,MSEC1,,OLD	      ;TOPS20AN
DEFJS CVHST,276,MSEC1,,OLD	      ;TOPS20AN
DEFJS FLHST,277,MSEC1,,OLD	      ;TOPS20AN

DEFJS GCVEC,300,MSEC1,,OLD
DEFJS SCVEC,301,MSEC1,,OLD
DEFJS STTYP,302,MSEC1,,OLD
DEFJS GTTYP,303,MSEC1,,OLD
DEFJS BPT,304,MSEC1,,OLD	;OBSOLETE
DEFJS GTDAL,305,MSEC1,,OLD
DEFJS WAIT,306,MSEC1,,OLD
DEFJS HSYS,307,MSEC1,,OLD
DEFJS USRIO,310,MSEC1,,OLD
DEFJS PEEK,311,MSEC1,,OLD
DEFJS MSFRK,312,MSEC1,,OLD
DEFJS ESOUT,313,MSEC1,,OLD
DEFJS SPLFK,314,MSEC1,,OLD
DEFJS ADVIS,315,,NIM,OLD
DEFJS JOBTM,316,,NIM,OLD
DEFJS DELNF,317,MSEC1,,OLD
DEFJS SWTCH,320,MSEC1,,OLD	;OBSOLETE
DEFJS TFORK,321,MSEC1,,OLD
DEFJS RTFRK,322,MSEC1,,OLD
DEFJS UTFRK,323,MSEC1,,OLD
DEFJS SCTTY,324,MSEC1,,OLD

DEFJS OPRFN,326,MSEC1,,OLD	;18 OPERATOR FUNCTION JSYS

DEFJS SETER,336,MSEC1,,OLD

DEFJS CHANM,460,MSEC1		;3031
;NEW (NOT IN BBN TENEX) JSYS'S ADDED STARTING AT 500

DEFJS RSCAN,500,MSEC1,,OLD
DEFJS HPTIM,501,MSEC1,,OLD
DEFJS CRLNM,502,MSEC1,,OLD
DEFJS INLNM,503,MSEC1,,OLD
DEFJS LNMST,504,MSEC1,,OLD
DEFJS RDTXT,505,MSEC1,,OLD	;OBSOLETED BY RDTTY AND TEXTI
DEFJS SETSN,506,MSEC1,,OLD
DEFJS GETJI,507,MSEC1,,OLD
DEFJS MSEND,510,MSEC1,,OLD
DEFJS MRECV,511,MSEC1,,OLD
DEFJS MUTIL,512,MSEC1,,OLD
DEFJS ENQ,513,MSEC1,,OLD
DEFJS DEQ,514,MSEC1,,OLD
DEFJS ENQC,515,MSEC1,,OLD
DEFJS SNOOP,516,MSEC1,,OLD
DEFJS SPOOL,517,MSEC1,,OLD
DEFJS ALLOC,520,MSEC1,,OLD
DEFJS CHKAC,521,MSEC1,,OLD
DEFJS TIMER,522,MSEC1,,OLD
DEFJS RDTTY,523,MSEC1,,OLD
DEFJS TEXTI,524,MSEC1,,OLD
DEFJS UFPGS,525,MSEC1,,OLD
DEFJS SFPOS,526,MSEC1,,OLD
DEFJS SYERR,527,MSEC1,,OLD
DEFJS DIAG,530,MSEC1,,OLD
DEFJS SINR,531,MSEC1,,OLD
DEFJS SOUTR,532,MSEC1,,OLD
DEFJS RFTAD,533,MSEC1,,OLD
DEFJS SFTAD,534,MSEC1,,OLD
DEFJS TBDEL,535,MSEC1,,OLD
DEFJS TBADD,536,MSEC1,,OLD
DEFJS TBLUK,537,MSEC1,,OLD
DEFJS STCMP,540,MSEC1,,OLD
DEFJS SETJB,541,MSEC1,,OLD
DEFJS GDVEC,542,MSEC1,,OLD
DEFJS SDVEC,543,MSEC1,,OLD
DEFJS COMND,544,MSEC1,,OLD
DEFJS PRARG,545,MSEC1,,OLD
DEFJS GACCT,546,MSEC1,,OLD
DEFJS LPINI,547,MSEC1,,OLD
DEFJS GFUST,550,MSEC1,,OLD
DEFJS SFUST,551,MSEC1,,OLD
DEFJS ACCES,552,MSEC1,,OLD
DEFJS RCDIR,553,MSEC1,,OLD
DEFJS RCUSR,554,MSEC1,,OLD
DEFJS MSTR,555,MSEC1,,OLD
DEFJS STPPN,556,MSEC1,,OLD
DEFJS PPNST,557,MSEC1,,OLD
DEFJS PMCTL,560,MSEC1,,OLD
DEFJS PLOCK,561,MSEC1,,OLD
DEFJS BOOT,562,MSEC1,,OLD
DEFJS UTEST,563,MSEC1,,OLD
DEFJS USAGE,564,MSEC1,,OLD
DEFJS WILD,565,MSEC1
DEFJS VACCT,566,MSEC1,,OLD
DEFJS NODE,567,MSEC1,,OLD
DEFJS ADBRK,570,MSEC1,,OLD
DEFJS SINM,571,MSEC1
DEFJS SOUTM,572,MSEC1
DEFJS SWTRP,573,MSEC1
DEFJS GETOK,574,MSEC1
DEFJS RCVOK,575,MSEC1
DEFJS GIVOK,576,MSEC1
DEFJS SKED,577,MSEC1		;SCHEDULER CONTROL JSYS
DEFJS MTU,600,MSEC1		;MTU JSYS
DEFJS XRIR,601,MSEC1		;EXTENDED RIR
DEFJS XSIR,602,MSEC1		;EXTENDED SIR
DEFJS PDVOP,603,MSEC1		;MANIPULATE PROGRAM DATA VECTORS
DEFJS NTMAN,604,MSEC1		;DECNET NETWORK MANAGEMENT INTERFACE
DEFJS XSFRK,605,MSEC1		;START FORK AT GLOBAL PC
DEFJS XGVEC,606,MSEC1		;GET FULL ENTRY VECTOR
DEFJS XSVEC,607,MSEC1		;SET FULL ENTRY VECTOR
DEFJS RSMAP,610,MSEC1		;READ SECTION MAP
DEFJS XRMAP,611,MSEC1		;EXTENDED RMAP
DEFJS XGTPW,612,MSEC1		;EXTENDED GET TRAP WORD
DEFJS XSSEV,613,MSEC1		;EXTENDED SET SPECIAL ENTRY VECTOR
DEFJS XGSEV,614,MSEC1		;EXTENDED GET SPECIAL ENTRY VECTOR

DEFJS FINGR,633,MSEC1,,OLD	;3005 Read FINGER info from directory
DEFJS GTBLT,634,MSEC1,,OLD	;6 GETAB BLT JSYS
DEFJS VTSOP,635,MSEC1,,OLD	;99 
DEFJS RTMOD,636,MSEC1,,OLD	;99
DEFJS STMOD,637,MSEC1,,OLD	;99
DEFJS RTCHR,640,MSEC1,,OLD	;99
DEFJS STCHR,641,MSEC1,,OLD	;99
DEFJS RTGRV,642,MSEC1,,OLD	;290
DEFJS STGRV,643,MSEC1,,OLD	;290
DEFJS DBGIM,677,MSEC1,,OLD	;146 

;151 Begin addition
DEFJS SEND,740,MSEC1,,OLD	; INTERNET+TCP
DEFJS RECV,741,MSEC1,,OLD	; INTERNET+TCP
DEFJS OPEN,742,MSEC1,,OLD	; INTERNET+TCP
DEFJS CLOSE,743,MSEC1,,OLD	; INTERNET+TCP
DEFJS SCSLV,744,MSEC1,,OLD	; INTERNET+TCP
DEFJS STAT,745,MSEC1,,OLD	; INTERNET+TCP
DEFJS CHANL,746,MSEC1,,OLD	; INTERNET+TCP
DEFJS ABORT,747,MSEC1,,OLD	; INTERNET+TCP
;151 End addition

;TEMPORARY JSYS DEFINITIONS

DEFJS SNDIM,750,MSEC1,,OLD	      ;TOPS20AN
DEFJS RCVIM,751,MSEC1,,OLD	      ;TOPS20AN
DEFJS ASNSQ,752,MSEC1,,OLD	      ;TOPS20AN
DEFJS RELSQ,753,MSEC1,,OLD	      ;TOPS20AN

;151 Begin addition
DEFJS SNDIN,754,MSEC1,,OLD	; INTERNET
DEFJS RCVIN,755,MSEC1,,OLD	; INTERNET
DEFJS ASNIQ,756,MSEC1,,OLD	; INTERNET
DEFJS RELIQ,757,MSEC1,,OLD	; INTERNET
;151 End addition

DEFJS METER,766,MSEC1		;METER JSYS. FOR KL ONLY
DEFJS SMAP,767,MSEC1		;CREATE AND MAP SECTIONS
DEFJS THIBR,770,MSEC1,,OLD
DEFJS TWAKE,771,MSEC1,,OLD
DEFJS MRPAC,772,MSEC1,,OLD
DEFJS SETPV,773,,NIM,OLD
DEFJS MTALN,774,MSEC1,,OLD
DEFJS TTMSG,775,MSEC1,,OLD
DEFJS MDDT,777,MSEC1

>  ;;; END OF DEFINE JSLIST

;NOW EXPAND THE JSYS DEFINITIONS

JSLIST
;ERROR CONDITION INSTRUCTIONS.  THESE ARE NOP'S UNLESS  IMMEDIATELY
;FOLLOWING A JSYS WHICH FAILS.

OPDEF ERJMP [JUMP 16,0]		;JUMP ON ERROR
OPDEF ERCAL [JUMP 17,0]		;CALL ON ERROR (SIMULATE PUSHJ 17,ADR)
   IFNDEF FOR,<
   IFDEF .PSECT,<
INTERN ERJMP,ERCAL
   >>

DEFINE GOPDEF (OP,DEF)<
	OPDEF OP [DEF]
   IFNDEF FOR,<
   IFDEF .PSECT,<
	INTERN OP>>>

; THE FOLLOWING OPCODES ARE USED TO PERFORM THE EXTENDED
; ADDRESSING FUNCTIONS.

GOPDEF XJRSTF,<JRST 5,0>	;RESTORE FLAGS AND PC
GOPDEF XJEN,<JRST 6,0>		;RESTORE FLAGS,PC AND DISMISS
GOPDEF XPCW,<JRST 7,0>		;EXCHANGE FLAGS AND PC
GOPDEF XSFM,<JRST 14,0>		;SAVE PC FLAGS IN MEMORY
GOPDEF XMOVEI,<SETMI 0,0>	;EXTENDED MOVEI
GOPDEF XHLLI,<HLLI 0,0>		;INSTRUCTION TO PUT IMMEDIATE ADDRESS IN LH

;OTHER VARIANTS OF JRST

GOPDEF PORTAL,<JRST 1,0>
GOPDEF JRSTF,<JRST 2,0>
GOPDEF JEN,<JRST 12,0>

IFIW==:1B0			;INSTRUCTION FORMAT INDIRECT WORD
EFIW==:0			;EXTENDED FORMAT INDIRECT WORD

;THE NO-OPERATION INSTRUCTION (MAY CHANGE FROM PROCESSOR TO PROCESSOR)

GOPDEF NOP,<TRN 0,0>
IFNDEF FOR,<			;198
.NODDT NOP
>				;198
;SPECIAL LOSEG SYMBOLS

.JBHSO==:75			; 0 ,, HIGHSEG ORIGIN PAGE NUMBER
.JBEDV==:112			;POINTER TO EXEC DATA VECTOR
	.EDCNT==:0		;'EDV',,COUNT (INCLUDES THIS WORD)
	.EDHSB==:1		;POINTER TO HIDDEN SYMBOL MAP SWITCHING BLOCK
	.EDSYM==:2		;.JBSYM IN SYMBOL SPACE
	.EDUSY==:3		;.JBUSY IN SYMBOL SPACE
	.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)

AC%CON==:1B0			;CONNECT TO THE SPECIFIED DIRECTORY
AC%OWN==:1B1			;GAIN OWNERSHIP
AC%REM==:1B2			;REMOVE OWNERSHIP

;OFFSETS IN ARGUMENT BLOCK

.ACDIR==:0			;DIRECTORY DESIGNATOR
.ACPSW==:1			;POINTER TO PASSWORD STRING
.ACJOB==:2			;JOB NUMBER (-1 FOR SELF)


;ADBRK - Address break JSYS function codes and bits

;FUNCTION CODES

.ABSET==:0			;SET USER ADDRESS BREAK
.ABRED==:1			;READ USER ADDRESS BREAK
.ABCLR==:2			;CLEAR USER ADDRESS BREAK
.ABGAD==:3			;GET ADDRESS OF TRAPPED INSTRUCTION

;FUNCTION BITS FOR FUNCTION .ABSET

AB%RED==:1B0			;READ
AB%WRT==:1B1			;WRITE
AB%XCT==:1B2			;EXECUTE


;ALLOC JSYS FUNCTION CODES

.ALCAL==:0			;ALLOCATE A DEVICE


; ARCF

.ARRAR==:0			; Request file archive (user)
	.ARCLR==:0		; Clear the request
	.ARSET==:1		; Set the request
;  AR%NDL can be specified in AC2, defined elsewhere
.ARRIV==:1			; Request file migration (system)
.AREXM==:2			; File exempt from migration (system)
.ARRFR==:3			; Request file's contents be restored to disk
   AR%NMS==:1B0			; Request no msg on restoration
   AR%WAT==:1B1			; Wait for file to be restored to disk
.ARDIS==:4			; Clear archive status for file
  AR%CR1==:1B0			; Clear 1st run info
  AR%CR2==:1B1			; Clear 2nd run info
.ARSST==:5			; Set archive status for file
  .AROFL==:0			; Flags
    AR%O1==:1B0			; Set run 1 info
    AR%O2==:1B1			; Set run 2 info
    AR%OFL==:1B2		; Flush contents of file
    AR%ARC==:1B3		; Set FB%ARC (archive the file)
    AR%CRQ==:1B4		; Clear archive/migration request
  .ARTP1==:1			; Tape 1 ID
  .ARSF1==:2			; XWD TSN 1, TFN 1
    AR%TSN==:777777B17		; Tape saveset number
    AR%TFN==:777777B35		; Tape file number
  .ARTP2==:3			; Tape 2 ID
  .ARSF2==:4			; XWD TSN 2, TFN 2
;;;    AR%TSN==:777777B17	; Tape saveset number
;;;    AR%TFN==:777777B35	; Tape file number
  .ARODT==:5			; Date and time
  .ARPSZ==:6			; Number of pages in the file (.ARGST only)
.ARRST==:6			; Restore contents to archived file
.ARGST==:7			; Get tape info for file (blk as for ARSST)
.ARRFL==:10			; Retrieve failed
.ARNAR==:11			; Set/clear resist archive

; Function & reason codes for IPCF msgs

.RETM==:0			; Send retrieve message
  .RETR==:0			; Normal retrieve
  .RETRW==:1			; User waiting for retrieve
.NOTM==:1			; Send notification message
  .FLXP==:0			; Archive file expunged
  .ACLR==:1			; Archive status cleared

;1001 Begin addition
;ASNIQ - IP assign queue (requires NET WIZ capability, SC%NWZ)
;AC1 - LH flags, Queue descriptor block address
AQ%SCR==1B0			; Use RPI device (secure)
AQ%SPT==1B1			; Single port protocol
AQ%ICM==1B2			; Permit send/receive of ICMP messages
; Queue descriptor block format
.IQPRV==^D0	; Internet protocol value (bits 24-31)
.IQFHV==^D1	; Internet foreign host value (bits 0-31)
.IQSHV==^D2	; Internet source host value (bits 0-31)
.IQPTV==^D3	; Internet port value, local bits 0-15, foreign bits 16-31
.IQPRM==^D4	; Mask for protocol value (bits 24-31)
.IQFHM==^D5	; Mask for foreign host value (bits 0-31)
.IQSHM==^D6	; Mask for source host value (bits 0-31)
.IQPTM==^D7	; Mask for port value, local bits 0-15, foreign bits 16-31
		; Note: port(s) follow IP header if .IQPTM is non-zero
		; Note: If AS%SPT is specified, the (single) port is
.IQLEN==^D8	; in bits 0-15 (bits 16-31 should be zero)
;AC2 must be 0
;AC3 must be 0
;ATNVT		      ;TOPS20AN
AN%TCP==:1B0	      ;TOPS20AN	; RH of 1 contains TCP JCN instead
				; of JFN; Implies AN%NTP
;1001 end addition

AN%NTP==:1B2	      ;TOPS20AN	;NEW TELNET PROTOCOL
AN%SUP==:1B3	      ;99 SUPDUP protocol

;ATACH

AT%CCJ==:1B0			;^C JOB WHEN ATTACHED
AT%NAT==:1B1			;NO ATTACH
AT%TRM==:1B2			;ATTACH JOB TO TERMINAL IN REGISTER 4
AT%JOB==:777777B35		;JOB NUMBER
;BOOT

.BTROM==:0			;ACTIVATE ROM BOOT
	.BTDTE==:0		;DTE-20 NUMBER
.BTLDS==:1			;LOAD SECONDARY BOOTSTRAP PROGRAM
	.BTERR==:1		;ERROR FLAGS
	.BTSEC==:2		;ADDRESS OF SECONDARY BOOTSTRAP PROGRAM
.BTLOD==:2			;LOAD MEMORY (OBSOLETE)
.BTSMP==:2			;SEND MOP MESSAGE
	.BTFLG==:3		;FLAGS
		BT%BEL==:1B0	;SEND TO -11 DOORBELL AFTER SETUP
	.BTCNT==:4		;NUMBER OF BYTES TO BE TRANSFERRED
	.BTLPT==:5		;BYTE POINTER TO DATA TO BE LOADED
.BTDMP==:3			;DUMP MEMORY
	.BTDPT==:5		;BYTE POINTER TO DESTINATION OF DUMPED DATA
.BTIPR==:4			;INITIALIZE COMMUNICATIONS PROTOCOL
	.BTPRV==:1		;PROTOCOL VERSION NUMBER
.BTTPR==:5			;TERMINATE COMMUNICATIONS PROTOCOL
.BTSTS==:6			;RETURN PROTOCOL STATUS
	.BTCOD==:1		;STATUS CODE
.BTBEL==:7			;WAIT FOR DOORBELL
.BTRMP==:10			;READ MOP MESSAGE
	.BTMPT==:5		;POINTER TO DESTINATION FOR MOP MESSAGE
.BTKML==:11			;LOAD KMC11
	.BTKMC==:0		;KMC11 ADDRESS
	.BTKER==:1		;ERROR FLAGS
		BT%CVE==:1B0	;CRAM VERIFY ERROR (RH IS BAD DATA)
		BT%DVE==:1B1	;DRAM VERIFY ERROR (RH IS BAD DATA)
		BT%RVE==:1B2	;REG VERIFY ERROR (RH IS BAD DATA)
	.BTKCC==:2		;COUNT OF CRAM DATA
	.BTKCP==:3		;POINTER TO CRAM DATA (16 BIT DATA)
	.BTKDC==:4		;COUNT OF DRAM DATA
	.BTKDP==:5		;POINTER TO DRAM DATA (8 BIT DATA)
	.BTKRC==:6		;COUNT OF REGISTER DATA
	.BTKRP==:7		;POINTER TO REGISTER DATA (16 BIT DATA)
	.BTKSA==:10		;RH IS STARTING ADDRESS
		BT%KSA==:1B0	;IS SET RH WANT TO START KMC11
.BTKMD==:12			;DUMP KMC11
.BTRLC==:13			;RETURN LINE COUNTERS
	.BTPRT==:0		;PORT NUMBER
		BT%ZRO==:1B0	;CLEAR COUNTERS AFTER READING
	.BTZTM==:1		;TIME SINCE COUNTERS HAVE BEEN ZEROED
	.BTSCC==:2		;STATUS COUNT COUNT
	.BTSCP==:3		;STATUS COUNT POINTER
	.BTRCC==:4		;RECEIVE COUNT COUNT
	.BTRCP==:5		;RECEIVE COUNT POINTER
	.BTTCC==:6		;TRANSMIT COUNT COUNT
	.BTTCP==:7		;TRANSMIT COUNT POINTER
.BTCLI==:14			;CONVERT LINEID TO PORT NUMBER
	.BTLID==:1		;POINTER TO ASCIZ LINE-ID
.BTCPN==:15			;CONVERT PORT NUMBER TO LINE-ID
.BTD60==:16			;DN60 PROTOCOL OPERATION
	DEFSTR	(BT6DTE,0,35,36)	;DTE number
	.BT6DTE==:0
	DEFSTR	(BT6ERR,1,35,36)	;returned error flags
	.BT6ERR==:1
					;protocol flags
		 D6%BSY==:1B0		;port is busy - sign bitness is used in testing
		 D6%QHD==:1B1		;header has been queued
		 D6%HDD==:1B2		;to -11 done for header seen
		 D6%NDT==:1B3		;this is a no-data-transfer operation
		 D6%RED==:1B4		;this is a read data type operation
		 D6%QDT==:1B5		;data has been queued(for write fcn)
		 D6%DTD==:1B6		;to -11 done for write data seen
		 D6%RBL==:1B7		;to -10 doorbell for response header seen
		 D6%RDN==:1B8		;to -10 done for response header seen
		 D6%DBL==:1B9		;to -10 doorbell for read data seen
		 D6%DDN==:1B10		;to -10 done for read data seen
		 D6%FDN==:1B11		;to -10 done for read data was faked
					;error flags
		 D6%BDP==:1B30		;bad data byte ptr
		 D6%ARD==:1B31		;11 attempted to send read data when
					; when none was expected
		 D6%TRS==:1B32		;timed out waiting for response header
		 D6%TDT==:1B33		;timed out waiting for read data

		 D6%TPO==:1B34		;timed out waiting for port to be free
		 D6%NT6==:1B35		;not a DN60 front end

	DEFSTR	(BT6HBC,2,17,18)	;DN60 header byte count
	.BT6HBC==:2
	DEFSTR	(BT6HDR,2,35,18)	;DN60 header address(begins on word)
	.BT6HDR==:2
	DEFSTR	(BT6DBC,3,35,36)	;data byte count
	.BT6DBC==:3
					;	positive => write data mode
					;	zero     => no data transfer
					;	negative => read data mode
	DEFSTR	(BT6PTR,4,35,36)	;data byte ptr
	.BT6PTR==:4
					;the following are returned for timing analysis
	DEFSTR	(BT6TMR,5,35,36)	;time of request
	.BT6TMR==:5
	DEFSTR	(BT6TAS,6,35,36)	;TIME DTE ASSIGNED
	.BT6TAS==:6
	DEFSTR	(BT6THQ,7,35,36)	;time header queued to 11
	.BT6THQ==:7
	DEFSTR	(BT6TRD,10,35,36)	;time of -10 done for response header
	.BT6TRD==:10
	DEFSTR	(BT6TDD,11,35,36)	;time of -10 done for data
	.BT6TDD==:11
	DEFSTR	(BT6TFR,12,35,36)	;time finished request
	.BT6TFR==:12

.BTSTA==:16			;SET STATION POLLING STATUS
.BTSSP==:17			;SET LINE STARTUP PRIORITY
	.BTPRI==:1		;PRIORITY VALUE
.BTSTP==:20			;SET STATION POLLING PRIORITY
.BTSDD==:21			;SEND DDCMP MESSAGE
	.BTMSG==:1		;ADDR OF MESSAGE
	.BTLEN==:2		;BYTE COUNT OF MESSAGE
.BTRDD==:22			;RECEIVE A MESSAGE FROM DDCMP
	.BTSUP==:1		;STATION CAME UP
	.BTSDW==:2		;STATION WENT DOWN
	.BTCMP==:3		;XMIT COMPLETE
	.BTSSF==:4		;STARTUP FAILED
		BT%CTL==:1B0	;CONTROL MESSAGE
.BTCHN==:23			;ASSIGN A SOFTWARE INTERRUPT CHANNEL
	.BTESI==:1		;CHANNEL NUMBER
;CFORK

CR%MAP==:1B0			;SET MAP FOR NEW FORK TO POINT TO
				; THIS PROCESS
CR%CAP==:1B1			;MAKE CAPABILITIES IDENTICAL
CR%ACS==:1B3			;SET ACS FROM BLOCK
CR%ST==:1B4			;START PROCESS AT PC
CR%PCV==:777777B35		;VALUE OF PC


;CHANM%				;3031

.CHNPH==:0			;GET LOCAL HOST INFORMATION
.CHNSN==:1			;TRANSLATE HOST NAME TO NUMBER
.CHNNS==:2			;TRANSLATE HOST NUMBER TO NAME

;CHFDB

CF%NUD==:1B0			;NO UPDATE DIRECTORY
CF%DSP==:777B17			;FDB DISPLACEMENT
CF%JFN==:777777B35		;JFN
;CHKAC JSYS DEFINITIONS

;CHKAC FLAG DEFINITIONS

CK%JFN==:1B0			;JFN IS GIVEN AS AN ARGUMENT

;CHKAC ARGUMENT BLOCK OFFSET VALUES

.CKAAC==:0			;ACCESS CODE
.CKALD==:1			;LOGGED IN USER NUMBER OF USER
.CKACD==:2			;CONNECTED DIR NUMBER OF USER
.CKAEC==:3			;ENABLED CAPABILITIES OF USER BEING CHK'D
.CKAUD==:4			;DIR NUMBER OF DIRECTORY CONTAINING FILE
.CKAPR==:5			;PROTECTION OF FILE

;CHKAC ACCESS CODES

.CKARD==:0			;READ AN EXISTING FILE
.CKAWT==:1			;WRITE AN EXISTING FILE
.CKAWR==:1			; (ANOTHER NAME FOR ABOVE)
.CKAEX==:2			;EXECUTE AN EXISTING FILE
.CKAAP==:3			;APPEND TO AN EXISTING FILE
.CKADL==:4			;GET DIR LISTING OF AN EXISTING FILE
.CKADR==:6			;READ THE DIRECTORY
.CKAOF==:7			;OPEN FILES IN DIR (NOT IMPLEMENTED)
.CKACN==:10			;CONNECT TO A DIR
.CKACF==:11			;CREATE FILES IN DIR


;CLOSF

CO%NRJ==:1B0			;NO RELEASE JFN
CO%WCL==:1B1	      ;TOPS20AN	;WAIT UNTIL MATCHING CLS IS RECEIVED
CO%JFN==:777777B35		;JFN


;CLZFF

CZ%NIF==:1B0			;NO INFERIOR FORK FILES
CZ%NSF==:1B1			;NO SELF FORK FILES
CZ%NRJ==:1B2			;NO RELEASE JFN
CZ%NCL==:1B3			;NO CLOSE FILE
CZ%UNR==:1B4			;UNRESTRICT
CZ%ARJ==:1B5			;ALWAYS RELEASE JFN
CZ%ABT==:1B6			;ABORT
CZ%NUD==:1B7			;NO UPDATE DIRECTORY
CZ%PRH==:777777B35		;PROCESS HANDLE
;CNDIR

CN%CKP==:1B0			;CHECK PASSWORD ONLY
CN%NOC==:1B1			;NO CONNECT
CN%JOB==:1B2			;DOING CONNECT FOR ANOTHER JOB
CN%DIR==:777777B35		;DIRECTORY NUMBER


;COMND

;COMND - COMMAND STATE BLOCK

.CMFLG==:0			;USER FLAGS,,REPARSE DISPATCH ADDRESS
.CMIOJ==:1			;INJFN,,OUTJFN
.CMRTY==:2			;^R BUFFER POINTER
.CMBFP==:3			;PTR TO TOP OF BUFFER
.CMPTR==:4			;PTR TO NEXT INPUT TO BE PARSED
.CMCNT==:5			;COUNT OF SPACE LEFT IN BUFFER AFTER PTR
.CMINC==:6			;COUNT OF CHARACTERS FOLLOWING PTR
.CMABP==:7			;ATOM BUFFER POINTER
.CMABC==:10			;ATOM BUFFER SIZE
.CMGJB==:11			;ADR OF GTJFN ARG BLOCK
 CM%GJB==:777777		;ADR OF GTJFN ARG BLOCK

;COMND - FUNCTION DESCRIPTOR BLOCK

.CMFNP==:0			;FUNCTION AND POINTER
  CM%FNC==:777B8		;FUNCTION CODE
  CM%FFL==:777B17		;FUNCTION-SPECIFIC FLAGS
  CM%LST==:777777		;LIST POINTER TO OTHER BLOCKS
.CMDAT==:1			;DATA FOR FUNCTION
.CMHLP==:2			;HELP TEXT POINTER
.CMDEF==:3			;DEFAULT STRING POINTER
.CMBRK==:4			;FIELD BREAK MASK POINTER
;COMND - FLAGS IN .CMFLG

CM%ESC==:1B0			;ESC SEEN
CM%NOP==:1B1			;NO PARSE
CM%EOC==:1B2			;END OF COMMAND SEEN
CM%RPT==:1B3			;REPEAT PARSE NEEDED
CM%SWT==:1B4			;SWITCH TERMINATED WITH ":"
CM%PFE==:1B5			;PREVIOUS FIELD ENDED WITH ESC
CM%RAI==:1B6			;RAISE INPUT
CM%XIF==:1B7			;EXCLUDE INDIRECT FILES
CM%WKF==:1B8			;WAKEUP AFTER EACH FIELD

;FUNCTION BLOCK FLAGS (IN WORD .CMFNP)

CM%NSF==:1B12			;SUFFIX MAY BE OMITTED IF DESIRED
CM%BRK==:1B13			;BREAK MASK PRESENT
CM%PO==:1B14			;PARSE-ONLY
CM%HPP==:1B15			;HELP POINTER PRESENT
CM%DPP==:1B16			;DEFAULT POINTER PRESENT
CM%SDH==:1B17			;SUPPRESS DEFAULT HELP MESSAGE

;FLAGS FOR CMDIR FUNCTION

CM%DWC==:1B0			;DIRECTORY WILD CARDING ALLOWED

;FLAGS FOR CMTAD FUNCTION

CM%IDA==:1B0			;INPUT DATE
CM%ITM==:1B1			;INPUT TIME
CM%NCI==:1B2			;NO CONVERT TO INTERNAL

;FLAGS IN KEYWORD TABLE (FIRST WORD OF STRING IF B0-6 = 0)

CM%INV==:1B35			;INVISIBLE
CM%NOR==:1B34			;NO-RECOGNIZE (PLACEHOLDER)
CM%ABR==:1B33			;ABBREVIATION FOR ANOTHER ENTRY
CM%FW==:1B7			;FLAG WORD (MUST ALWAYS BE ON)
;COMND - FUNCTION CODES

.CMKEY==:0			;KEYWORD
.CMNUM==:1			;NUMBER
.CMNOI==:2			;NOISE WORD
.CMSWI==:3			;SWITCH
.CMIFI==:4			;INPUT FILE
.CMOFI==:5			;OUTPUT FILE
.CMFIL==:6			;GENERAL FILESPEC
.CMFLD==:7			;ARBITRARY FIELD
.CMCFM==:10			;CONFIRM
.CMDIR==:11			;DIRECTORY NAME
.CMUSR==:12			;USER NAME
.CMCMA==:13			;COMMA
.CMINI==:14			;INIT LINE
.CMFLT==:15			;FLOATING POINT NUMBER
.CMDEV==:16			;DEVICE NAME
.CMTXT==:17			;TEXT TO ACTION CHAR
.CMTAD==:20			;TIME AND DATE
.CMQST==:21			;QUOTED STRING
.CMUQS==:22			;UNQUOTED STRING
.CMTOK==:23			;TOKEN
.CMNUX==:24			;NUMBER DELIMITED BY NON-DIGIT
.CMACT==:25			;ACCOUNT
.CMNOD==:26			;NODE NAME


IFNDEF FOR,<			;198 Doesn't work in FAIL
;DEFINE BREAK MASKS
	BRINI. 			;INITIALIZE BREAK MASK FOR STANDARD FIELD
	BRKCH. (0,37)		;ALL CONTROL CHARACTERS
	BRKCH. (40,54)		;SPACE THROUGH COMMA
;162	BRKCH. (56,57)		;DOT AND SLASH
	BRKCH. (57)		;162 Just slash
	BRKCH. (72,77)		;COLON THROUGH QUESTION MARK
	BRKCH. (100)		;ATSIGN
	BRKCH. (133,140)	;OPEN BRACKET THROUGH ACCENT GRAVE
	BRKCH. (173,177)	;CLOSE BRACKET THROUGH TILDE

FLDB0.==W0.			;STANDARD FIELD BREAK MASK
FLDB1.==W1.
FLDB2.==W2.
FLDB3.==W3.

;KEYWORD BREAK SET.  SAME AS STANDARD FIELD FOR NOW

KEYB0.==FLDB0.
KEYB1.==FLDB1.
KEYB2.==FLDB2.
KEYB3.==FLDB3.

;USERNAME BREAK SET.  BREAKS ON EVERYTHING EXCEPT DOT AND ALPHABETICS.

	UNBRK. "."		;MODIFY FIELD BREAK SET INTO USER BREAK SET.  DON'T BREAK ON DOT
	UNBRK. "%"		;DON'T BREAK ON PERCENT
	UNBRK. "*"		;STAR
	UNBRK. "$"		;ALLOW DOLLARSIGN! (I NEVER KNEW THAT BEFORE)
	UNBRK. "_"		;ALLOW UNDERSCORE IN ATOM

USRB0.==W0.
USRB1.==W1.
USRB2.==W2.
USRB3.==W3.

;ACCOUNT MASK CURRENTLY THE SAME AS USER MASK

ACTB0.==USRB0.
ACTB1.==USRB1.
ACTB2.==USRB2.
ACTB3.==USRB3.

;FILESPEC FIELD - FILESPEC PUNCTUATION CHARACTERS
;ARE LEGAL ( :, <, >, ., ;)

	UNBRK. ":"		;MODIFY USERNAME BREAK SET INTO FILE BREAK SET.  DON'T BREAK ON THESE
	UNBRK. "<"
	UNBRK. ">"
	UNBRK. "["
	UNBRK. "]"
	UNBRK. ";"

FILB0.==W0.
FILB1.==W1.
FILB2.==W2.
FILB3.==W3.

;READ DEVICE NAME

BRINI. FLDB0.,FLDB1.,FLDB2.,FLDB3.	;VERY SIMILAR TO STANDARD FIELD
UNBRK. "$"			;ALLOW DOLLARSIGN IN DEVICE NAME (LIKE FILESPEC)
UNBRK. "_"			;UNDERSCORE TOO

DEVB0.==W0.
DEVB1.==W1.
DEVB2.==W2.
DEVB3.==W3.

;READ TO END OF LINE

	BRINI.			;INITIALIZE END OF LINE BREAK SET
	BRKCH. .CHLFD		;BREAK ON LINEFEED
	BRKCH. .CHCRT		;AND CARRIAGE RETURN
	BRKCH. .CHFFD		;FORMFEED IS VALID END-OF-LINE

EOLB0.==W0.
EOLB1.==W1.
EOLB2.==W2.
EOLB3.==W3.
> ;198 IFNDEF FOR

;198 No MACSYM for FAIL, so FLDDB. lives here
IFDEF FOR,<			;198
;COMND - MACRO FOR BUILDING FUNCTION DESCRIPTOR BLOCK

DEFINE FLDDB. ' (TYP,FLGS,DATA,HLPM,DEFM,LST)<
	..XX__<TYP=27>
   IFDIF <FLGS><>,<..XX__..XX+FLGS>
   IFDIF <HLPM><>,<..XX_CM%HPP!..XX>
   IFDIF <DEFM><>,<..XX_CM%DPP!..XX>
	..XX-=18,,LST		;this seems to make Fail happy; nothing else will
   IFDIF <DATA><>,<DATA>
   IFIDN <DATA><>,<0>
   IFDIF <HLPM><>,<POINT 7,[ASCIZ \HLPM\]>
   IFIDN <HLPM><>,<IFDIF <DEFM><>,<0>>
   IFDIF <DEFM><>,<POINT 7,[ASCIZ \DEFM\]>>
> ;198 IFDEF FOR
;CRDIR

CD%LEN==:1B0			;FLAGS ,, LENGTH OF CRDIR BLOCK
CD%PSW==:1B1			;SET PASSWORD STRING
CD%LIQ==:1B2			;SET LOGGED IN QUOTA
CD%PRV==:1B3			;SET PRIVILEGES
CD%MOD==:1B4			;SET MODE BITS
CD%LOQ==:1B5			;SET LOGGED OUT QUOTA
CD%NUM==:1B6			;SET DIRECTORY NUMBER FROM PARAM BLK
CD%FPT==:1B7			;SET DEFAULT FILE PROTECTION
CD%DPT==:1B8			;SET DIRECTORY PROTECTION
CD%RET==:1B9			;SET DEFAULT RETENTION COUNT
CD%LLD==:1B10			;SET LAST LOGIN DATE
CD%UGP==:1B11			;SET USER GROUPS
CD%DGP==:1B12			;SET DIRECTORY GROUPS
CD%SDQ==:1B13			;SET SUBDIRECTORY QUOTA
CD%CUG==:1B14			;SET CREATABLE USER GROUPS
CD%DAC==:1B15			;SET DEFAULT ACCOUNT
CD%NMF==:1B16			;11 DON'T MAKE A MAIL FILE
CD%DEL==:1B17			;DELETE DIRECTORY
CD%APB==:777777B35		;ADDRESS OF PARAMETER BLOCK
.CDLEN==:0			;LENGTH OF ARGUMENT BLOCK
	CD%NSQ==:1B0		;DO NOT UPDATE QUOTAS OF SUPERIOR DIR
	CD%NCE==:1B1		;DO NOT CHANGE PARAMETERS OF EXISTING DIRS
	CD%NED==:1B2		; Set def online exp from .CDDNE
	CD%FED==:1B3		; Set def offline exp from .CDDFE
.CDPSW==:1			;POINTER TO PASSWORD STRING
.CDLIQ==:2			;LOGGED IN QUOTA
.CDPRV==:3			;PRIVILEGE WORD
.CDMOD==:4			;MODE WORD
	CD%DIR==:1B0		;DIRECTORY NAME FOR CNDIR ONLY (FILES ONLY)
	CD%ANA==:1B1		;ALPHANUMERIC ACCOUNTS
	CD%RLM==:1B2		;REPEAT LOGIN MESSAGES
	CD%LSA==:1B16		;221 login subdirectories are allowed here
	CD%HPW==:1B17		;143 Supplying hashed password
	CD%DAR==:1B7		; Archived online expired files
.CDLOQ==:5			;LOGGED OUT QUOTA
.CDNUM==:6			;DIRECTORY NUMBER
.CDFPT==:7			;DEFAULT FILE PROTECTION
.CDDPT==:10			;DIRECTORY PROTECTION
.CDRET==:11			;DEFAULT RETENTION COUNT
.CDLLD==:12			;LAST LOGIN DATE
.CDUGP==:13			;USER GROUPS
.CDDGP==:14			;DIRECTORY GROUPS
.CDSDQ==:15			;MAXIMUM NUMBER OF SUBDIRECTORIES
.CDCUG==:16			;POINTER TO CREATABLE USER GROUP LIST
.CDDAC==:17			;POINTER TO DEFAULT ACCOUNT
.CDDNE==:20			; Default online expiration
.CDDFE==:21			; Default offline expiration
;CRJOB

CJ%LOG==:1B0			;ATTEMPT TO LOG IN THE NEW JOB
CJ%NAM==:1B1			;USE NAME AND PSWD IN ARG BLK
CJ%ACT==:3B3			;WHERE TO GET ACCOUNT
	.CJUCA==:0		;USE CURRENT ACCT OF CREATOR
	.CJUAA==:1		;USE ACCOUNT IN ARG BLOCK
	.CJUDA==:2		;USE DEFAULT ACCOUNT OF NEW USER
CJ%ETF==:1B4			;PUT EXEC IN TOP FORK
CJ%FIL==:1B5			;GET FILE IN ARG BLOCK
CJ%ACS==:1B6			;LOAD THE ACS FROM ARG BLOCK
CJ%OWN==:1B7			;RETAIN OWNERSHIP OF NEW JOB
CJ%WTA==:1B8			;NEW JOB WAITS TIL ATTACHED
CJ%NPW==:1B9			;NO PASSWORD CHECK AT LOGIN TIME
CJ%NUD==:1B10			;NO UPDATE OF LAST-LOGIN DATE
CJ%SPJ==:1B11			;DO SPJFN IN NEW JOB FROM ARG BLK
CJ%CAP==:1B12			;PASS ENABLED CAPABILITIES AS ALLOWED
CJ%CAM==:1B13			;CAPABILITY MASK AT LOGIN
CJ%SLO==:1B14			;SIGNAL (IPCF) AT LOGOUT TIME
CJ%DSN==:1B17			;DISOWN EXISTING JOB # IN 3

.CJNAM==:0			;NAME STRING POINTER
.CJPSW==:1			;PASSWORD STRING POINTER
.CJACT==:2			;ACCOUNT DESIGNATOR/STRING
.CJFIL==:3			;FILE NAME STRING POINTER
.CJSFV==:4			;SFRKV OFFSET
.CJTTY==:5			;TTY DESIGNATOR, OR NULL DESIGNATOR
.CJTIM==:6			;TIME LIMIT
.CJACS==:7			;ADDRESS OF 16. WORDS OF AC'S
.CJEXF==:10			;EXEC FLAGS, FOR EXEC AC1
.CJPRI==:11			;PRIMARY JFN'S FOR SPJFN IN NEW JOB
.CJCPU==:12			;CPU LIMIT (0 IF NONE)
.CJCAM==:13			;CAPABILITY MASK TO APPLY TO LOGIN
.CJSLO==:14			;PID TO SIGNAL AT LOGOUT TIME

CR%PRA==:2545			;MAGIC # FOR EXEC/CRJOB LINKAGE VIA PRARG


;CRLNM

.CLNJ1==:0			;DELETE 1 LOGICAL NAME FROM JOB
.CLNS1==:1			;DELETE 1 LOGICAL NAME FROM SYSTEM
.CLNJA==:2			;DELETE ALL JOB WIDE LOGICAL NAMES
.CLNSA==:3			;DELETE ALL SYSTEM LOGICAL NAMES
.CLNJB==:4			;CREATE A JOB WIDE LOGICAL NAME
.CLNSY==:5			;CREATE A SYSTEM WIDE LOGICAL NAME
;DELDF

DD%DTF==:1B0			;DELETE TEMPORARY FILES
DD%DNF==:1B1			;DELETE NONEXISTENT FILES
DD%RST==:1B2			;REBUILD THE SYMBOL TABLE
DD%CHK==:1B3			;CHECK THE DIR FOR CONSISTENCY ONLY


;DELF

DF%NRJ==:1B0			;DON'T RELEASE JFN
DF%EXP==:1B1			;EXPUNGE CONTENTS
DF%FGT==:1B2			;FORGET (EXPUNGE W/O DEASSIGNING ADDRESSES)
DF%DIR==:1B3			;DELETE, FORGET, AND EXPUNGE A DIRECTORY
				; FILE.  (ONLY IF ^E-CREATE KILL FAILED)
DF%ARC==:1B4			; Delete of archive status file allowed
DF%CNO==:1B5			; Delete only contents of file
				;  Immediate expunge implied

DF%JFN==777777B35		;JFN


;DIAG JSYS DEFINITIONS

DG%ADT==:7B2			;ADDRESS TYPE FIELD
DG%DVC==:177B9			;DEVICE CODE FIELD
	.DGRH0==:130		;MBC0
	.DGRH7==:137		;MBC7
DG%UNI==:77B29			;UNIT NUMBER
DG%SUN==:77B35			;SUBUNIT NUMBER

;DIAG JSYS FUNCTION CODES

.DGACU==:1			;ASSIGN DEVICE
.DGACH==:2			;ASSIGN CONTROLLER AND ALL DEVICES
.DGRCH==:3			;RELEASE DEVICE(S)
.DGSCP==:4			;SETUP CHANNEL PROGRAM
.DGRCP==:5			;RELEASE CHANNEL PROGRAM
.DGGCS==:6			;GET CHANNEL STATUS

;DIAG NEW CONTROL FUNCTIONS

.DGGEM==:100			;LEAVE LARGE HOLE FOR MORE RH20 FUNCTIONS
				;GET MEM (FOR TGHA)
.DGREM==:101			;RELEASE MEM (FOR TGHA)
.DGPDL==:102			;UNIT ONLINE


;DSKAS

DA%DEA==:1B0			;DEASSIGN DISK ADDRESS
DA%ASF==:1B1			;ASSIGN FREE PAGE
DA%CNV==:1B2			;CONVERT SOFTWARE TO HARDWARE ADDRESS
DA%HWA==:1B3			;HARDWARE ADDRESS GIVEN
DA%INI==:1B4			;INITIALIZE THE BIT TABLE
DA%WRT==:1B5			;WRITE THE BIT TABLE FILE
DA%ADR==:777777B35		;DISK ADDRESS
;DVCHR, DEVUNT AND DVCH1 BIT DEFINITIONS

DV%OUT==:1B0			;DEVICE CAN DO OUTPUT
DV%IN==:1B1			;DEVICE CAN DO INPUT
DV%DIR==:1B2			;DEVICE HAS A DIRECTORY
DV%AS==:1B3			;DEVICE IS ASSIGNABLE
DV%MDD==:1B4			;DEVICE IS A MULTIPLE DIRECTORY DEVICE
DV%AV==:1B5			;DEVICE IS AVAILABLE TO THIS JOB
DV%ASN==:1B6			;DEVICE IS ASSIGNED BY ASND
DV%MDV==:1B7			;RESERVED (HISTORICAL)
DV%MNT==:1B8			;DEVICE IS MOUNTED
DV%TYP==:777B17			;DEVICE TYPE FIELD
DV%PSD==:1B18			;PSEUDO DEVICE
DV%UNT==:77777			;UNIT MASK
DV%MOD==:177777B35		;DEVICE DATA MODE
DV%M0==:1B35			;DEVICE CAN BE OPENED IN MODE 0
DV%M1==:1B34			;DEVICE CAN BE OPENED IN MODE 1
DV%M2==:1B33			;DEVICE CAN BE OPENED IN MODE 2
DV%M3==:1B32			;DEVICE CAN BE OPENED IN MODE 3
DV%M4==:1B31			;DEVICE CAN BE OPENED IN MODE 4
DV%M5==:1B30			;DEVICE CAN BE OPENED IN MODE 5
DV%M6==:1B29			;DEVICE CAN BE OPENED IN MODE 6
DV%M7==:1B28			;DEVICE CAN BE OPENED IN MODE 7
DV%M10==:1B27			;DEVICE CAN BE OPENED IN MODE 10
DV%M11==:1B26			;DEVICE CAN BE OPENED IN MODE 11
DV%M12==:1B25			;DEVICE CAN BE OPENED IN MODE 12
DV%M13==:1B24			;DEVICE CAN BE OPENED IN MODE 13
DV%M14==:1B23			;DEVICE CAN BE OPENED IN MODE 14
DV%M15==:1B22			;DEVICE CAN BE OPENED IN MODE 15
DV%M16==:1B21			;DEVICE CAN BE OPENED IN MODE 16
DV%M17==:1B20			;DEVICE CAN BE OPENED IN MODE 17
D1%SPL==:1B0			;DEVICE IS SPOOLED
D1%ALC==:1B1			;DEVICE IS UNDER CONTROL OF ALLOCATOR
D1%VVL==:1B2			;VOLUME VALID
D1%NIU==:1B3			;DEVICE SLOT IS NOT IN USE (FOR STRUCTURES
				; NOT YET MOUNTED)
D1%INI==:1B4			;DEVICE IS BEING INITIALIZED (STRUCTURE
				; IS AVAILABLE ONLY TO THE FORK WHOSE NUMBER
				; IS STORED IN SDBSTS)
;DEVICE TYPE DEFINITIONS

.DVDSK==:0			;DISK
.DVMTA==:2			;MAGTAPE
.DVDTA==:3			;DECTAPE
.DVPTR==:4			;PAPER TAPE READER
.DVPTP==:5			;PAPER TAPE PUNCH
.DVDSP==:6			;DISPLAY
.DVLPT==:7			;LINE PRINTER
.DVCDR==:10			;CARD READER
.DVFE==:11			;FRONT END DEVICE
.DVTTY==:12			;TERMINAL
.DVPTY==:13			;PTY
.DVNUL==:15			;NULL DEVICE
.DVNET==:16			;ARPA NETWORK
.DVPLT==:17			;PLOTTER
.DVCDP==:21			;CARD PUNCH
.DVDCN==:22			;DECNET ACTIVE COMPONENT
.DVSRV==:23			;DECENT PASSIVE COMPONENT
.DVATS==:24			;APPLICATIONS TERMINAL SERVICE
.DVADS==:25			;AYDIN DISPLAY


;DSKOP

DOP%SA==:1B0			;SOFTWARE ADDRESS
DOP%AT==:3B1			;ADDRESS TYPE FIELD
 .DOPPU==:1			;PHYSICAL CHANNEL AND UNIT
  DOP%CN==:37B6			;CHANNEL NUMBER (OLD FORMAT)
  DOP%UN==:77B12		;UNIT NUMBER (OLD FORMAT)
  DOP%UA==:37777777		;UNIT ADDRESS
 .DOPSR==:2			;STRUCTURE AND RELATIVE ADDRESS
  DOP%SN==:777B10		;STRUCTURE NUMBER
  DOP%RA==:177777777		;RELATIVE ADDRESS
  DOP%C2==:7777B11		;CHANNEL NUMBER (NEW FORMAT)
  DOP%K2==:7777B23		;CONTROLLER NUMBER (NEW FORMAT)
  DOP%U2==:7777B35		;UNIT NUMBER (NEW FORMAT)
DOP%NF==:1B9			;USE NEW FORMAT FOR CHANNEL, UNIT NUMBERS
DOP%EO==:1B10			;ERROR IF UNIT OFFLINE
DOP%IL==:1B11			;INHIBIT ERROR LOGGING
DOP%IR==:1B12			;INHIBIT ERROR RECOVERY
DOP%WR==:1B14			;WRITE
DOP%CT==:777777B35		;WORD COUNT


;DUMPI/DUMPO

DM%NWT==:1B0			;NO WAIT FOR COMPLETION
DM%FIN==:1B1			;FINISH PREVIOUS REQUEST
				;***NOT INPLEMENTED YET***
DM%PTR==:777777B35		;POINTER TO COMMAND LIST
;DEFINE DECNET DISCONNECT CODES. THESE ARE STIPULATED BY THE NSP SPEC
;AND MAY HAVE MEANININGS NOT IMPLIED BY THE COMMENTS

.DCX0==:0			;NO SPECIAL ERROR
.DCX1==:1			;RESOURCE ALLOCATION FAILURE
.DCX2==:2			;DESTINATION NODE DOES NOT EXIST
.DCX3==:3			;NODE SHUTTING DOWN
.DCX4==:4			;DESTINATION PROCESS DOES NOT EXIST
.DCX5==:5			;INVALID NAME FIELD
.DCX6==:6			;DESTINATION PROCESS QUEUE OVERFLOW
.DCX7==:7			;UNSPECIFIED ERROR
.DCX8==:^D8			;THIRD PARTY ABORTED LINK
.DCX9==:^D9			;USER ABORT (ASYNCHRONOUS DISCONNECT)
.DCX11==:^D11			;UNDEFINED ERROR CODE
.DCX21==:^D21			;CI WITH ILLEGAL DESTINATION ADDRESS
.DCX22==:^D22			;CC WITH ILLEGAL DESTINATION ADDRESS
.DCX23==:^D23			;CI OR CC WITH ZERO SOURCE ADDRESS
.DCX24==:^D24			;FLOW CONTROL VIOLATION
.DCX32==:^D32			;TOO MANY CONNECTIONS TO NODE
.DCX33==:^D33			;TOO MANY CONNECTIONS TO DEST. PROCESS
.DCX34==:^D34			;ACCESS NOT PERMITTED
.DCX35==:^D35			;LOGICAL LINK SERVICES MISMATCH
.DCX36==:^D36			;INVALID ACCOUNT
.DCX37==:^D37			;SEGSIZE TOO SMALL
.DCX38==:^D38			;PROCESS ABORTED
.DCX39==:^D39			;NO PATH TO DESTINATION NODE
.DCX40==:^D40			;LINK ABORTED DUE TO DATA LOSS
.DCX41==:^D41			;DESTINATION PROCESS DOES NOT EXIST
.DCX42==:^D42			;CONFIRMATION IF DI
.DCX43==:^D43			;IMAGE DATA FIELD TOO LONG


;EFACT - FACT FILE ENTRY DEFINITIONS

.EFHDR==:0			;HEADER WORD
	EF%COD==:777B8		;ENTRY TYPE CODE
	EF%JOB==:777B17		;JOB NUMBER
	EF%LIN==:7777B29	;LINE NUMBER
	EF%SIZ==:77B35		;ENTRY SIZE
.EFUSR==:1			;USER NUMBER WORD
.EFTAD==:2			;TIME AND DATE OF ENTRY

; FACT FILE ENTRY TYPE CODES

.EFLGI==:501			;LOGIN
.EFLGO==:141			;LOGOUT
.EFCAC==:502			;CHANGE ACCOUNT
.EFATT==:142			;CONSOLE ATTACH
.EFDET==:143			;CONSOLE DETACH
.EFCHK==:201			;CHECKPOINT
.EFSDU==:540			;START DISK-UTILIZATION ENTRIES
.EFDSK==:601			;DISK SPACE UTILIZATION
.EFTIM==:741			;TIME SET
.EFRES==:740			;SYSTEM RESTARTED
.EFLPT==:401			;LINE PRINTER USAGE
.EFCDR==:402			;CARD READER USAGE
;ENQ/DEQ BIT DEFINITIONS AND FUNCTION CODES

;FUNCTION CODES

.ENQBL==:0			;ENQ BLOCK OPTION
.ENQAA==:1			;ENQ ALLOCATE ONLY IF AVAILABLE
.ENQSI==:2			;ENQ SOFTWARE INTERRUPT WHEN LOCKED
.ENQMA==:3			;ENQ MODIFY ACCESS
.DEQDR==:0			;DEQ RESOURCE
.DEQDA==:1			;DEQ ALL RESOURCES OF THIS FORK
.DEQID==:2			;DEQ THIS ID NUMBER
.ENQCS==:0			;ENQC STATUS
.ENQCG==:1			;ENQC GET ENQ/DEQ QUOTA FOR A JOB
.ENQCC==:2			;ENQC CHANGE ENQ/DEQ QUOTA FOR A JOB
.ENQCD==:3			;ENQC DUMP LOCKS AND QUEUE ENTRIES



;BIT DEFINITIONS

EN%SHR==:1B0			;SHARABLE REQUEST
EN%BLN==:1B1			;BYPASS LEVEL NUMBER
EN%NST==:1B2			;ALLOW NESTING
EN%LTL==:1B3			;LONG TERM LOCK
EN%LVL==:777B17			;LEVEL NUMBER
EN%JOB==:777777B35		;JOB NUMBER
EN%QCE==:1B0			;ERROR CODE IN RH OF STATUS WORD
EN%QCL==:1B0			;LOCK DUMP (.ENQCD ONLY)
EN%QCO==:1B1			;THIS FORK OWNS THE LOCK
EN%QCQ==:1B2			;THIS FORK IS IN THE QUEUE FOR THIS LOCK
EN%QCT==:1B2			;LOCK CONTAINS A TEXT STRING
EN%QCX==:1B3			;THE LOCK IS LOCKED EXCLUSIVELY
EN%QCB==:1B4			;USER IS BLOCKED FOR LOCK


;ENQ/DEQ ARGUMENT BLOCK DATA STRUCTURE

.ENQLN==:0			;# OF LOCKS ,, LENGTH OF ARGUMENT BLOCK
	.ENHLN==:77B5		;LENGTH OF HEADER AREA
	.ENNLK==:7777B17	;NUMBER OF LOCKS
	.ENALN==:777777B35	;LENGTH OF ARGUMENT BLOCK
.ENQID==:1			;PSI CHANNEL # ,, REQUEST ID
.ENQLV==:2			;FLAGS & LEVEL NUMBER ,, JFN, -1, -2, OR -3
.ENQUC==:3			;STRING POINTER OR USER CODE
.ENQRS==:4			;# OF RESOURCES IN POOL ,, # OF RESOURCES WANTED
.ENQMS==:5			;ADDRESS OF RESOURCE BLOCK
;ENQC DUMP DATA STRUCTURE

.ENQDF==:0			;FLAGS + LEVEL # ,, OFN, 400000+JOB #, -2, OR -3
				;OR:  FLAGS + PSI # ,, JOB # OF Q-ENTRY CREATOR

.ENQDR==:1			;TOTAL RESOURCES IN POOL ,, RESOURCES REMAINING
.ENQDT==:2			;TIME STAMP OF LAST REQUEST LOCKED
.ENQDC==:3			;USER CODE OF LOCK OR START OF TEXT STRING

.ENQDI==:1			;GROUP # OR # REQUESTED ,, ENQ ID


;FLOUT/DFOUT
;FORMAT CONTROL WORD

FL%SGN==:3B1			;FIRST FIELD SIGN CONTROL
 .FLDIG==:0			;DIGIT
 .FLSPC==:1			;SPACE
 .FLPLS==:2			;PLUS SIGN
 .FLSPA==:3			;SPACE
FL%JUS==:3B3			;FIRST FIELD JUSTIFICATION CONTROL
 .FLLSP==:0			;LEADING SPACES
 .FLLZR==:1			;LEADING ZEROS
 .FLLAS==:2			;LEADING ASTERISKS
 .FLTSP==:3			;TRAILING SPACES
FL%ONE==:1B4			;FIRST FIELD NONBLANK
FL%DOL==:1B5			;DOLLAR SIGN PREFIX
FL%PNT==:1B6			;DECIMAL POINT
FL%EXP==:3B8			;THIRD FIELD EXPONENT CONTROL
 .FLEXN==:0			;NO EXPONENT
 .FLEXE==:1			;E EXPONENT PREFIX
 .FLEXD==:2			;D EXPONENT PREFIX
 .FLEXM==:3			;*10^ EXPONENT PREFIX
FL%ESG==:3B10			;EXPONENT SIGN CONTROL
 .FLDGE==:0			;DIGIT
 .FLPLE==:1			;PLUS SIGN
 .FLSPE==:2			;SPACE
 .FLDGT==:3			;DIGIT
FL%OVL==:1B11			;COLUMN OVERFLOW
FL%RND==:37B17			;DIGIT POSITION FOR ROUNDING
FL%FST==:77B23			;FIRST FIELD WIDTH
FL%SND==:77B29			;SECOND FIELD WIDTH
FL%THD==:77B35			;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

.GDFSM==:17B3	      ;TOPS20AN	;FINITE MACHINE STATE

;TTY BITS

GD%PAR==:1B35			;IF ON, TERMINAL ACCEPTS PARITY


;GET

	;Argument block for GET:

	.GFLAG==:0		;FLAG WORD
		GT%LOW==:1B0	;USE LOW ADDRESS IN .GLOW
		GT%HGH==:1B1	;USE HIGH ADDRESS IN .GHIGH
		GT%BAS==:1B2	;USE BASE SECTION IN .GBASE
		GT%CCH==:1B3	;CLEAR PROGRAM CACHE
		GT%CSH==:1B4	;CACHE THIS PROGRAM
		GT%ADR==:1B19	; (IN AC1) USE ADDRESS LIMITS IN AC2
		GT%PRL==:1B20	; (IN AC1) PRELOAD PAGES
		GT%NOV==:1B21	; (IN AC1) DON'T OVERLAY EXISTING PAGES
		GT%ARG==:1B22	; (IN AC1) IF ON, AC2 CONTAINS ADDRESS OF ARG BLOCK
		GT%JFN==:7777B35 ; (IN AC1) JFN

	.GLOW==:1		;LOW ADDRESS IF GT%LOW ON
	.GHIGH==:2		;HIGH ADDRESS IG GT%HGH ON
	.GBASE==:3		;BASE IF GT%BAS ON
;GETAB - TABLE INDICES

.JOBTT==:0			;JOB NUMBER TO TTY NUMBER
.JOBRT==:1			;JOB RUNTIME
.TICKP==:2			;TICKS PER SECOND
.JOBDI==:3			;JOB NUMBER TO DIRECTORY NUMBERS (OBS)
.TTYJO==:4			;TTY NUMBER TO JOB NUMBER
.NCPGS==:5			;NUMBER PHYSICAL CORE PAGES
.DEVNA==:6			;DEVICE NAME
.DEVCH==:7			;DEVICE CHARACTERISTICS
.DEVUN==:10			;DEVICE UNIT NUMBERS
.DSKER==:11			;DISK ERROR WORDS
.DRMER==:12			;DRUM ERROR WORDS
.SYSVE==:13			;VERSION TEXT
.SYSTA==:14			;STATISTICS
.QTIME==:15			;SCHED QUEUE TIMES
.JOBNA==:16			;JOB NUMBER TO PROGRAM NAME
.SNAME==:17			;SUBSYSTEM NAME
.STIME==:20			; " TIME
.SPFLT==:21			; " PAGE FAULTS
.SSIZE==:22			; " SIZE INTEGRAL
.SNBLK==:23			; " NUMBER WAKEUPS
.DBUGS==:24			;DBUGSW, DCHKSW
.LOGDE==:25			;LOG, JOB 0 DESIGNATORS
.PTYPA==:26			;PTY PARAMETERS
.SYMTA==:27			;GTTAB SYMBOL TABLE
.DWNTI==:30			;HSYS VARIABLES
.JOBPN==:31			;JOB NUMBER TO PROGRAM NAME
.BLDTD==:32			;MONITOR BUILD TIME AND DATE
.LSTDR==:33			;LAST DIR NUMBER ASSIGNED (OBS)
.APRID==:34			;APR SERIAL NUMBER
.HQLAV==:35			;HIGH QUEUE LOAD AVERAGES
.LQLAV==:36			;LOW QUEUE LOAD AVERAGES
.NETRD==:37	      ;TOPS20AN	;ARPANET STATUS
.IMPHR==:40	      ;TOPS20AN	;HOST READY
.HSTST==:41	      ;TOPS20AN	;DEAD HOST STATUS
.HSTNA==:42	      ;TOPS20AN	;HOST NAMES
.HOSTN==:43	      ;TOPS20AN	;HOST NAME INDEX
.NETLS==:44	      ;TOPS20AN	;LOCAL SOCKET
.NETFS==:45	      ;TOPS20AN	;FOREIGN SOCKET
.NETAW==:46	      ;TOPS20AN	;ARPA CONNECTION ADDRESS
.NETBA==:47	      ;TOPS20AN	;BIT ALLOCATION
.NETST==:50	      ;TOPS20AN	;CONNECTION STATUS
.NETBU==:51	      ;TOPS20AN	;ARPANET BUFFERS
.NETBT==:52	      ;TOPS20AN	;BYTE COUNT STATISTICS
.IMPL1==:53	      ;TOPS20AN	;IMP LINK TABLE ONE
.IMPL2==:54	      ;TOPS20AN	;IMP LINK TABLE TWO
.IMPL3==:55	      ;TOPS20AN	;IMP LINK TABLE THREE
.IMPL4==:56	      ;TOPS20AN	;IMP LINK TABLE FOUR
.LHOST==:57	      ;TOPS20AN	;LOCAL HOST NUMBER
.JBONT==:60			;OWNING JOB
.NSWPG==:61			;DEFAULT SWAPPING PAGES
.SCOUN==:62			;COUNT SNAMES TABLE
;GETJI

.JIJNO==:0			;JOB NUMBER
.JITNO==:1			;TERMINAL NUMBER
.JIUNO==:2			;USER NUMBER
.JIDNO==:3			;DIRECTORY NUMBER
.JISNM==:4			;SUBSYS NAME
.JIPNM==:5			;PROGRAM NAME
.JIRT==:6			;RUN TIME
.JICPJ==:7			;CONTROLLING PTY JOB NUMBER
.JIRTL==:10			;RUN TIME LIMIT (SET BY TIMER JSYS)
.JIBAT==:11			;CONTROLLED BY BATCH
.JIDEN==:12			;MAGTAPE DEFAULT DENSITY
.JIPAR==:13			;MAGTAPE DEFAULT PARITY
.JIDM==:14			;MAGTAPE DEFAULT DATA MODE
.JIRS==:15			;MAGTAPE DEFAULT RECORD SIZE
.JIDFS==:16			;DEFERRED SPOOLING
.JILNO==:17			;LOGGED-IN DIRECTORY NUMBER
.JISRM==:20			;POINTER TO JOB SESSION REMARK
.JILLN==:21			;LAST LOGIN DATE & TIME
.JISRT==:22			;JOB RUNTIME AT START OF THIS ACCOUNTING SESSION
.JISCT==:23			;JOB CONSOLE TIME AT START OF THIS SESSION
.JIT20==:24			;-1 IF AT TOPS20 COMMAND LEVEL
.JISTM==:25			;DATE & TIME JOB WAS INITIALIZED
.JIBCH==:26			;BATCH STREAM AND FLAGS
	OB%WTO==3B1		;WRITE TO OPERATOR CAPABILITIES
	    .OBALL==0		;WTO AND WTOR ALLOWED
	    .OBNWR==1		;NO WTOR ALLOWED
	    .OBNOM==2		;NO MESSAGE ALLOWED
	OB%BSS==1B10		;BATCH STREAM NUMBER SET
	OB%BSN==177B17		;BATCH-STREAM NUMBER
.JILLO==:27			;LOGICAL LOCATION (NODE NAME)

.JIMAX==:.JILLO			;CURRENT HIGHEST GETJI OFFSET


;GFRKS

GF%GFH==:1B0			;GET RELATIVE FORK HANDLES
GF%GFS==:1B1			;GET FORK STATUS


;GFUST

.GFAUT==:0			;GET FILE AUTHOR
.GFLWR==:1			;GET FILE LAST WRITER

;GTHST				;TOPS20AN

.GTHSZ==:0			;HOST TABLE SIZES
.GTHIX==:1			;INDEX TO STRING CONVERSION
.GTHNS==:2			;NUMBER TO STRING CONVERSION
.GTHSN==:3			;STRING TO NUMBER CONVERSION
.GTHHN==:4			;HOST NUMBER TO STATUS
.GTHHI==:5			;HOST INDEX TO STATUS
;GETOK DEFINITIONS
.GOASD==:1			;ASSIGN DEVICE
  .GEERB==:0			;ERROR BLOCK ADDRESS
  .GEADD==:1			;DEVICE DESIGNATOR
.GOCAP==:2			;ENABLE CAPABILITIES
  .GENCP==:1			;NEW CAPABILITIES
.GOCJB==:3			;ALLOW CRJOB JSYS
.GOLOG==:4			;ALLOW LOGINS
  .GELUN==:1			;USER NUMBER
.GOCFK==:5			;ALLOW CFORK JSYS
  .GEFCT==:1			;NUMBER OF FORKS
.GOTBR==:6			;ALLOW SET TERMINAL BAUD RATE
  .GELIN==:1			;LINE NUMBER
  .GESPD==:2			;SPEED
.GOLGO==:7			;ALLOW LOGOUT
  .GEUSD==:1			;PAGES USED
  .GEQUO==:2			;QUOTA
  .GERLG==:3			;JOB TO BE LOGGED OUT, -1 FOR CALLER
.GOENQ==:10			;ALLOW SET ENQ QUOTA
  .GEEQU==:1			;DESIRED QUOTA
  .GEEUN==:2			;JOB NUMBER
.GOCRD==:11			;ALLOW CREDIR
.GOSMT==:12			;ALLOW SMOUNT
  .GESDE==:1			;DEVICE DESIGNATOR

.GOMDD==:13			;ALLOW MDDT ENTRY
.GOCLS==:14			;VERIFY CLASS ASSIGNMENT FOR A JOB
   .GEJOB==:1			;JOB #
   .GECLS==:2			;CLASS DESIRED
.GOCL0==:15			;SET CLASS AT LOGIN
.GOMTA==:16			;MT ACCESS REQUEST

   .GEACC==:1			;ACCESS CODE FROM HDR1
   .GEUSN==:2			;USER NUMBER
   .GEUNT==:3			;MT UNIT NUMBER
   .GEACD==:4			;DESIRED ACCESS (BITS)
   .GELTP==:5			;LABEL TYPE
.GOACC==:17			;ACCESS AND CONNECT
	.GOAC0==:1		;FLAGS FROM ACESS JSYS
	.GOAC1==:2		;DIRECTORY NUMBER
.GOOAD==:20			;ASSIGN DUE TO OPENF
				;.GEADD IS THE ARG OFFSET FOR THE
				; DEVICE DESIGNATOR
.GODNA==:21			;ACCESS TO DECNET
.GOANA==:22			;ACCESS TO ARPANET

.GOATJ==:23			;ATACH JSYS
	.GOTJB==:1		;TAGET JOB NUMBER
	.GOTTY==:2		;SOURCE TTY NUMBER

.GOKMZ==:^D20			;MAX ARGUMENT BLOCK SIZE FOR GETOK REQUEST
;ERROR BLOCK ADDRESS OFFSETS

.GESIZ==:0			;SIZE OF THIS BLOCK
.GEERN==:1			;ERROR NUMBER
.GEPTR==:2			;POINTER TO ERROR STRING
.GEBSZ==:3			;STRING SIZE
;GTJFN DEFINITIONS

;FLAGS PROVIDED TO GTJFN ON CALL

GJ%FOU==:1B0			;FILE IS FOR OUTPUT USE
GJ%NEW==:1B1			;NEW FILE ONLY
GJ%OLD==:1B2			;OLD FILE ONLY
GJ%MSG==:1B3			;PRINT AN APPROPRIATE MESSAGE
GJ%CFM==:1B4			;CONFIRMATION IS REQUIRED
GJ%TMP==:1B5			;TEMPORARY
GJ%NS==:1B6			;DONT SEARCH SEARCH LISTS
GJ%ACC==:1B7			;NO ACCESS BY OTHER FORKS
GJ%DEL==:1B8			;IGNORE "DELETED" BIT
GJ%JFN==:3B10			;JFN USE FIELD
.GJDNU==:0			;DO NOT USE JFN PROVIDED
.GJERR==:2			;ERROR IF CANNOT USE JFN PROVIDED
.GJALT==:3			;USE ALTERNATE IF CANNOT USE GIVEN JFN
GJ%IFG==:1B11			;ACCEPT INPUT FILE GROUP DESCRIPTORS
GJ%OFG==:1B12			;ACCEPT OUTPUT FILE GROUP DESCRIPTORS
GJ%FLG==:1B13			;RETURN FLAGS
GJ%PHY==:1B14			;PHYSICAL DEVICE ONLY
GJ%XTN==:1B15			;EXTENDED FORMAT (E+11 EXISTS)
GJ%FNS==:1B16			;ACCUMULATOR 2 CONTAINS JOB FILE NUMBERS
GJ%SHT==:1B17			;SHORT CALL FORMAT

;FLAGS PROVIDED TO GTJFN (IN SECOND FLAG WORD)

G1%RND==:1B0			;RETURN ON NULL(IN ALTERNATE FLAG WORD)
G1%RBF==:1B1			;^R BUFFER IS DISJOINT (OBSOLETE)
G1%NLN==:1B2			;NO LONG NAMES
G1%RCM==:1B3			;RETURN CONFIRM MESSAGE
G1%RIE==:1B4			;RETURN WHEN MAIN STRING IS EMPTY
G1%IIN==:1B5			; Ignore invisible status
G1%SLN==:1B6			;SUPPRESS EXPANSION OF LOGICAL NAMES
;FLAGS RETURNED BY GTJFN

GJ%DEV==:1B0			;ASTERISK WAS GIVEN FOR DEVICE
GJ%UNT==:1B1			;ASTERISK WAS GIVEN FOR UNIT
GJ%DIR==:1B2			;ASTERISK WAS GIVEN FOR DIRECTORY
GJ%NAM==:1B3			;ASTERISK WAS GIVEN FOR NAME
GJ%EXT==:1B4			;ASTERISK WAS GIVEN FOR EXTENSION
GJ%VER==:1B5			;ASTERISK WAS GIVEN FOR GENERATION
GJ%UHV==:1B6			;USE HIGHEST GENERATION
GJ%NHV==:1B7			;USE NEXT HIGHER GENERATION
GJ%ULV==:1B8			;USE LOWEST GENERATION
GJ%PRO==:1B9			;PROTECTION GIVEN
GJ%ACT==:1B10			;ACCOUNT GIVEN
GJ%TFS==:1B11			;TEMPORARY FILE SPECIFIED (;T)
GJ%GND==:1B12			;COMPLEMENT OF GJ%DEL ON CALL
GJ%GIV==:1B17			; Comp of G1%IIV

;GTJFN TABLE OFFSETS

.GJGEN==:0			;FLAGS ,, GENERATION
.GJDEF==:<Z 0>			;DEFAULT GENERATION
.GJNHG==:<Z -1>			;NEXT HIGHER GENERATION
.GJLEG==:<Z -2>			;LOWEST EXISTING GENERATION
.GJALL==:<Z -3>			;ALL GENERATIONS (I.E., ;*)
.GJSRC==:1			;SOURCE JFN ,, OUTPUT JFN
.GJDEV==:2			;DEFAULT DEVICE
.GJDIR==:3			;DEFAULT DIRECTORY
.GJNAM==:4			;DEFAULT NAME
.GJEXT==:5			;DEFAULT EXTENSTION
.GJPRO==:6			;DEFAULT PROTECTION
.GJACT==:7			;DEFAULT ACCOUNT
.GJJFN==:10			;DESIRED JFN
.GJF2==:11			;SECOND GROUP FLAGS,,COUNT
.GJCPP==:12			;COPY BUFFER POINTER
.GJCPC==:13			;COPY BUFFER COUNT
.GJRTY==:14			;RETYPE (^R) POINTER
.GJBFP==:15			;TOP OF BUFFER POINTER
.GJATR==:16			;POINTER TO ARBITRARY ATTRIBUTE BLOCK
.GJNOD==:17			;DEFAULT NODE

;GNJFN - FLAGS RETURNED

GN%STR==:1B13			;STRUCTURE CHANGED
GN%DIR==:1B14			;DIRECTORY CHANGED
GN%NAM==:1B15			;NAME CHANGED
GN%EXT==:1B16			;EXTENSION CHANGED

;GTNCP				;TOPS20AN

.GTNSZ==:0			;SIZE OF TABLE
.GTNIX==:1			;NCP INDEX
.GTNNI==:2			;NVT INPUT
.GTNNO==:3			;NVT OUTPUT
.GTNJF==:4			;JFN

.NCIDX==:0			;NCP INDEX
.NCFHS==:1			;FOREIGN HOST
.NCLSK==:2			;LOCAL SOCKET
.NCFSK==:3			;FOREIGN SOCKET
.NCFSM==:4			;FINITE STATE MACHINE STATE
.NCLNK==:5			;LINK
.NCNVT==:6			;NVT, -1 IF NOT A TELNET CONNECTION
.NCSIZ==:7			;BYTE SIZE OF CONNECTION
.NCMSG==:10			;MSG ALLOC
.NCBAL==:11			;BIT ALLOC
.NCDAL==:12			;DESIRED ALLOC
.NCBTC==:13			;BITS XFERRED
.NCBPB==:14			;BYTES/BUFFER
.NCCLK==:15			;TIME-OUT COUNTDOWN
.NCSTS==:16			;CONNECTION STATUS
;GTRPW

PF%USR==:1B0			;PAGE FAIL WORD - USER MODE REFERENCE
PF%WTF==:1B1			; " - WRITE REFERENCE (XGTPW)
PF%WRT==:1B5			; " - WRITE REFERENCE
TSW%RD==:1B14			;TRAP STATUS WORD - READ
TSW%WT==:1B15			; " - WRITE
TSW%WR==:1B15			; (ANOTHER NAME FOR ABOVE)
TSW%EX==:1B16			; " - EXECUTE
TSW%MN==:1B17			; " - MONITOR MODE REFERENCE


;GTSTS BITS RETURNED IN 2

GS%OPN==:1B0			;FILE IS OPEN
GS%RDF==:1B1			;IF OPEN, FILE IS OPEN FOR READ
GS%WRF==:1B2			;IF OPEN, FILE IS OPEN FOR WRITE
GS%XCF==:1B3			;IF OPEN, FILE IS OPEN FOR EXECUTE
GS%RND==:1B4			;OK TO RESET BYTE POINTER
				; (FILE IS NOT APPEND)
GS%APT==:1B5			;ACCESS PER PAGE TABLE
				; (NOT IMPLEMENTED -- OBSOLETE)
GS%CAL==:1B6			;OK TO CALL AS A PROCEDURE
				; (NOT IMPLEMENTED -- OBSOLETE)
GS%LNG==:1B7			;FILE IS LONG
GS%EOF==:1B8			;AT END OF FILE ON READ
GS%ERR==:1B9			;FILE MAY BE IN ERROR
GS%NAM==:1B10			;FILE HAS A NAME (JFN EXISTS)
GS%AST==:1B11			;ONE OR MORE FIELDS OF NAME
				; IS WILD
GS%ASG==:1B12			;JFN IS BEING ASSIGNED
GS%HLT==:1B13			;TERMINATE ON I/O ERROR
GS%FRK==:1B17			;JFN IS RESTRICTED TO CREATING FORK
GS%PLN==:1B18			;DON'T STRIP LINE NUMBERS ON SIN/BIN
GS%MOD==:17B35			;DATA MODE
	.GSNRM==:0		;NORMAL MODE
	.GSSMB==:1		;SMALL BUFFER MODE (DCN:, SRV:)
	.GSIMG==:10		;IMAGE (BINARY) MODE
	.GSDMP==:17		;DUMP MODE
;HPTIM

.HPELP==:0			;ELAPSED TIME
.HPRNT==:1			;RUN TIME


;IDCNV (ALSO IDTNC AND ODCNV)

IC%DSA==:1B0			;DAYLIGHT SAVINGS IF APPROPRIATE
IC%ADS==:1B1			;APPLY DAYLIGHT SAVINGS
IC%UTZ==:1B2			;USE TIME ZONE GIVEN
IC%JUD==:1B3			;USE JULIAN DATE CONVERSION
IC%TMZ==:77B17			;TIME ZONE
IC%TIM==777777B35		;LOCAL TIME


;IDTIM & IDTNC

IT%NDA==:1B0			;NO DATE
IT%NNM==:1B1			;NO NUMERIC MONTH
IT%SNM==:1B2			;SECOND NUMBER IS MONTH
IT%ERR==:1B3			;ERROR IF NUMBERS ARE NOT IN SPECIFIED
				; ORDER
IT%NTI==:1B6			;NO TIME
IT%NIS==:1B7			;NO SECONDS
IT%AIS==:1B8			;ALWAYS INCLUDE SECONDS
IT%NAC==:1B9			;NO COLON ALLOWED BETWEEN HH AND MM
IT%AAC==:1B10			;ALWAYS ALLOW COLON
IT%AMS==:1B11			;ALWAYS INTERPRET ONE COLON AS HHMM:SS
IT%AHM==:1B12			;ALWAYS INTERPRET ONE COLON AS HH:MM
IT%N24==:1B14			;NO 24-HOUR FORMAT
IT%NTM==:1B15			;NO TIME MODIFIER (AM, PM)
IT%NTZ==:1B16			;NO TIME ZONE


;.IMOPR - MONITOR ROUTINE USED BY MDDT AND SNOOP.  THIS IS NOT
;A JSYS SO THAT CALLS ARE FAST.

.IMALC==:1			;ALLOCATE PAGES FOR USE IN MAPPING SYMBOLS
.IMMAP==:2			;MAP PAGES OF THE SYMBOL TABLE
.IMUMP==:3			;UNMAP PAGES OF THE SYMBOL TABLE


;INLNM

.INLJB==:0			;GET JOB WIDE LOGICAL NAME FROM INDEX
.INLSY==:1			;GET SYSTEM LOGICAL NAME FROM INDEX
;IPCF BIT DEFINITIONS AND DATA STRUCTURES

;PACKET FORMAT

.IPCFL==:0			;FLAGS WORD
IP%CFB==:1B0			;DON'T BLOCK READ
IP%CFS==:1B1			;INDIRECT SENDER'S PID
IP%CFR==:1B2			;INDIRECT RECEIVER'S PID
IP%CFO==:1B3			;OVERDRAW SEND
IP%TTL==:1B4			;TRUNCATE ON TOO LARGE MESSAGE
IP%CPD==:1B5			;CREATE A PID ON THE SEND
IP%JWP==:1B6			;MAKE THE CREATED PID BE JOB WIDE
IP%NOA==:1B7			;NO ACCESS OF PID BY OTHER FORKS
IP%CFP==:1B18			;SENDER IS PRIV'D AND IS ENVOKING PRIVS
IP%CFV==:1B19			;PAGE TRANSFER MODE
IP%CFZ==:1B20			;ZERO LENGTH MESSAGE WAS SENT
IP%INT==:1B21			; Internal call - unavailable to users
IP%EPN==:1B22			;PAGE NUMBER IS 18 BITS
IP%CFE==:77B29			;ERROR FIELD

;ERRORS SENT BY INFO

 .IPCPI==:15			;INSUFFICIENT PRIVILEGE
 .IPCUF==:16			;ILLEGAL FUNCTION
 .IPCSN==:67			;SEND INFO YOUR NAME
 .IPCFF==:72			;INFO FREE SPACE EXHAUSTED
 .IPCBP==:74			;PID HAS NO NAME OR IS ILLEGAL
 .IPCDN==:75			;DUPLICATE NAME
 .IPCNN==:76			;UNKNOWN NAME
 .IPCEN==:77			;ILLEGAL NAME
 .IPCKM==:66			;NOTIFICATION THAT PID HAS BEEN DELETED
IP%CFC==:7B32			;SYSTEM SENDER CODE
 .IPCCC==:1			;SENT BY [SYSTEM]IPCF
 .IPCCF==:2			;SENT BY SYSTEM WIDE [SYSTEM]INFO
 .IPCCP==:3			;SENT BY RECEIVER'S [SYSTEM]INFO
IP%CFM==:7B35			;SPECIAL MESSAGE RETURN FIELD
 .IPCFN==:1			;MESSAGE WAS NOT DELIVERED
.IPCFS==:1			;PID OF SENDER
.IPCFR==:2			;PID OF RECEIVER
.IPCFP==:3			;POINTER TO MESSAGE BLOCK
.IPCFD==:4			;LOGGED IN DIR OF SENDER
.IPCFC==:5			;ENABLED CAPABILITIES OF SENDER
.IPCSD==:6			;CONNECTED DIRECTORY NUMBER OF SENDER
.IPCAS==:7			;POINTER TO ACCOUNT STRING OF SENDER
.IPCLL==:10			;POINTER TO LOGICAL LOCATION OF SENDER

;Possible values in word 0 of packet data block when received from the system

.IPCSU==:26			;SPOOL MESSAGE CODE FROM IPCC
.IPCSL==:27			;LOGOUT MESSAGE CODE FROM IPCC
.IPCSA==:30			;RESOURCE ALLOCATOR MESSAGE CODE
.IPCDS==:31			;STRUCTURE DISMOUNT MESSAGE CODE FROM IPCC
.IPCLI==:32			;LOGIN MESSAGE CODE FROM IPCC
.IPCLO==:33			;LOGOUT MESSAGE TO CREATOR FROM IPCC
.IPCKP==:34			;DELETED PID MESSAGE FROM IPCC
.IPCCA==:35			;CREATE AN APPLICATION (RESERVED FOR TPS USE)
.IPCTR==:36			;REQUEST FROM TAPE
.IPCMS==:37			;STRUCTURE MOUNT MESSAGE CODE FROM IPCC
.IPCRS==:40			;STRUCTURE REMOVAL MSSG CODE FROM IPCC
.IPCSR==:41			; Archive message code from IPCC

.IPCSS==:15			;IPCC REQUEST TO INFO TO DELETE PIDS
;[SYSTEM] INFO DEFINITIONS

.IPCI0==:0			;CODE,,FUNCTION
.IPCIW==:1			;FIND PID FOR NAME
.IPCIG==:2			;FIND NAME FOR PID
.IPCII==:3			;ASSIGN NAME TO PID
.IPCIJ==:4			;ASSIGN NAME TO PID
.IPCIK==:5			;NOTIFY WHEN SPECIFIED PID IS KILLED
.IPCIS==:15			;MONITOR DROP PID FUNCTION
.IPCI1==:1			;PID TO GET A COPY OF REPLY
.IPCI2==:2			;START OF DATA


;JFNS

JS%DEV==:7B2			;DEVICE FIELD OUTPUT CONTROL
JS%DIR==:7B5			;DIRECTORY FIELD OUTPUT CONTROL
JS%NAM==:7B8			;NAME FIELD OUTPUT CONTROL
JS%TYP==:7B11			;FILE TYPE FIELD OUTPUT CONTROL
JS%GEN==:7B14			;GENERATION FIELD OUTPUT CONTROL
JS%PRO==:7B17			;PROTECTION FIELD OUTPUT CONTROL
JS%ACT==:7B20			;ACCOUNT FIELD OUTPUT CONTROL
	;VALUES FOR ABOVE 7 FIELDS:
	.JSNOF==:0		;NEVER OUTPUT FIELD
	.JSAOF==:1		;ALWAYS OUTPUT FIELD
	.JSSSD==:2		;SUPPRESS IF SYSTEM DEFAULT
JS%TMP==:1B21			;RETURN ;T IF TEMP FILE
JS%SIZ==:1B22			;RETURN SIZE
JS%CDR==:1B23			;RETURN CREATION DATE
JS%LWR==:1B24			;RETURN LAST WRITE
JS%LRD==:1B25			;RETURN LAST READ
JS%PTR==:1B26			;AC 2 HOLDS STRING POINTER NOT JFN
JS%ATR==:1B27			;RETURN ATTRIBUTES
JS%AT1==:1B28			;RETURN 1 SPECIFIC ATTRIBUTE
JS%OFL==:1B29			;RETURN ;OFF-LINE IF OFFLINE FILE
JS%PSD==:1B32			;PUNCTUATE SIZE AND DATE
JS%TBR==:1B33			;TAB BEFORE FIELDS RETURNED
JS%TBP==:1B34			;TAB BEFORE POSSIBLE FIELDS
JS%PAF==:1B35			;PUNCTUATE ALL FIELDS

JS%SPC==:<FLD(.JSAOF,JS%DEV)>!<FLD(.JSAOF,JS%DIR)>!<FLD(.JSAOF,JS%NAM)>!
<FLD(.JSAOF,JS%TYP)>!<FLD(.JSAOF,JS%GEN)>!JS%PAF	;MASK FOR WHOLE SPEC

;LNMST

.LNSJB==:0			;GET JOB WIDE DEFINITION OF A LN
.LNSSY==:1			;GET SYSTEM DEFINITION OF A LOGICAL NAME


;LOCK

LK%CNT==:1B0			;USE COUNT IN AC3
LK%PHY==:1B1			;USE AC1 AS PHYSICAL PAGE NUMBER
LK%NCH==:1B2			;MAP PAGES CACHE INHIBITED
LK%AOL==:1B3			;ALLOW LOCKING IN OFFLINE PAGES
;METER JSYS DEFS.

.MEREA==:1			;READ EBOX TICKS
.MERMA==:2			;READ MBOX TICKS
;MSTR

.MSRNU==:0			;READ STATUS OF NEXT DISK UNIT
.MSRUS==:1			;READ STATUS OF A DISK UNIT
  .MSRCH==:0			;CHANNEL NUMBER
  .MSRCT==:1			;CONTROLLER NUMBER
  .MSRUN==:2			;UNIT NUMBER
  .MSRST==:3			;STATUS
    MS%MNT==:1B0		;THIS UNIT IS PART OF A MOUNTED STRUCTURE
    MS%16B==:1B1		;THIS UNIT WRITTEN IN 16-BIT MODE
				; (RESERVED FOR FUTURE)
    MS%DIA==:1B2		;THIS UNIT IS CURRENTLY IN USE BY AN
				;  ON-LINE DIAGNOSTIC
    MS%OFL==:1B3		;THIS UNIT IS OFF-LINE
    MS%ERR==:1B4		;THERE WAS AN ERROR READING THIS UNIT
    MS%BBB==:1B5		;ONE OF THE BAT BLOCKS IS BAD
    MS%HBB==:1B6		;ONE OF THE HOME BLOCKS IS BAD
    MS%WLK==:1B7		;UNIT IS WRITE-LOCKED
    MS%TYP==:777B17		;DISK TYPE CODE
; DEFINED THE SAME AS .UTTXX IN PHYPAR
    .MSRP4==:1			;RP04
    .MSRP5==:5			;RP05
    .MSRP6==:6			;RP06
    .MSRP7==:7			;RP07
    .MSRM3==:11			;RM03
    .MSR20==:24			;RP20
  .MSRSN==:4			;STRUCTURE NAME
  .MSRSA==:5			;STRUCTURE ALIAS
  .MSRNS==:6			;UNIT # IN STRUCTURE,,# OF UNITS IN STRUCTURE
  .MSRSW==:7			;NUMBER OF PAGES FOR SWAPPING
  .MSRUI==:10			;UNIT ID
  .MSROI==:13			;OWNER ID
  .MSRFI==:16			;FILE-SYSTEM ID
  .MSRSP==:21			;NUMBER OF SECTORS PER PAGE
  .MSRSC==:22			;NUMBER OF SECTORS PER CYLINDER
  .MSRPC==:23			;NUMBER OF PAGES PER CYLINDER
  .MSRCU==:24			;NUMBER OF CYLINDERS PER UNIT
  .MSRSU==:25			;NUMBER OF SECTORS PER UNIT
  .MSRBT==:26			;NUMBER OF BIT-WORDS IN BIT TABLE PER CYLINDER
  .MSRSE==:27			;CPU SERIAL # IF STRUCTURE IS USED FOR BOOTING
  .MSRLN==:30			;MAX LENGTH OF ARGUMENT BLOCK IN WORDS
.MSMNT==:2			;MOUNT A STRUCTURE
  .MSTNM==:0			;NAME OF STRUCTURE
  .MSTAL==:1			;ALIAS NAME
  .MSTNU==:2			;NUMBER OF UNITS IN STRUCTURE
  .MSTFL==:2			;FLAGS (LHS)
    MS%FLG==:777777,,0		;MASK FOR .MSTFL
    MS%NFH==:1B0		;NO FIX BAD HOME BLOCK
    MS%NFB==:1B1		;NO FIX BAD BAT BLOCK
    MS%XCL==:1B2		;MOUNT FOR EXCLUSIVE USE BY JOB
    MS%IGN==:1B3		;IGNORE ERRORS
  .MSTUI==:3			;START OF UNIT INFORMATION
    .MSTCH==:0			;CHANNEL NUMBER
    .MSTCT==:1			;CONTROLLER NUMBER
    .MSTUN==:2			;UNIT NUMBER
    .MSTNO==:3			;# OF ARGUMENT WORDS/UNIT

.MSDIS==:3			;DISMOUNT A STRUCTURE
  .MSDNM==:0			;NAME OF STRUCTURE

.MSGSS==:4			;GET STATUS OF A STRUCTURE
  .MSGSN==:0			;STRUCTURE NAME (ALIAS)
  .MSGST==:1			;STATUS
    MS%PS==:1B0			;STRUCTURE IS A PUBLIC STRUCTURE
    MS%DIS==:1B1		;STRUCTURE IS BEING DISMOUNTED
    MS%DOM==:1B2		;STRUCTURE IS DOMESTIC
    MS%PPS==:1B3		;STRUCTURE IS THE PRIMARY PUBLIC STRUCTURE
    MS%INI==:1B4		;STRUCTURE IS BEING INITIALIZED
    MS%LIM==:1B5		;STRUCTURE LIMITED TO 2050 SIZES
    MS%NRS==:1B6		;STRUCTURE IS NOT REGULATED
    MS%RWS==:1B7		;READ AFTER WRITE FOR SWAP SPACE
    MS%RWD==:1B8		;READ AFTER WRITE FOR DATA SPACE
  .MSGNU==:2			;NUMBER OF UNITS IN STRUCTURE
  .MSGMC==:3			;MOUNT COUNT
  .MSGFC==:4			;OPEN FILE COUNT
  .MSGSI==:5			;STRUCTURE ID
  .MSGLN==:6			;LENGTH OF ARGUMENT BLOCK

.MSSSS==:5			;SET STATUS OF A STRUCTURE
  .MSSSN==:0			;STRUCTURE NAME
  .MSSST==:1			;NEW STATUS BITS
  .MSSMW==:2			;MASK WORD OF BITS TO BE CHANGED
  .MSSLN==:3			;LENGTH OF ARGUMENT BLOCK
.MSINI==:6			;INITIALIZE A STRUCTURE
  .MSINM==:0			;NAME OF STRUCTURE
  .MSIAL==:1			;ALIAS NAME
  .MSINU==:2			;NUMBER OF UNITS IN STRUCTURE
  .MSIFL==:2			;FLAGS (LHS)
				;FLAGS DEFINED IN .MSMNT FUNCTION
    MS%FCN==:77B17		;FUNCTION CODE
      .MSCRE==:1		;CREATE NEW FILE SYSTEM
      .MSRRD==:2		;RECONSTRUCT THE ROOT-DIRECTORY
      .MSWHB==:3		;WRITE THE HOME BLOCKS
      .MSRIX==:4			;REBUILD INDEX TABLE (IDXFIL)
  .MSISU==:3			;START OF UNIT INFORMATION
    .MSICH==:0			;CHANNEL NUMBER
    .MSICT==:1			;CONTROLLER NUMBER
    .MSIUN==:2			;UNIT NUMBER
    .MSINO==:3			;# OF ARGUMENT WORDS/UNIT
  .MSIST==:6			;STATUS WORD
  .MSISW==:7			;NUMBER OF PAGES FOR SWAPPING ON THIS UNIT
  .MSIFE==:10			;NUMBER OF PAGES FOR FRONT-END FILE SYSTEM
  .MSIUI==:11			;UNIT ID
  .MSIOI==:14			;OWNER ID
  .MSIFI==:17			;FILE SYSTEM ID
  .MSIFB==:22			;NUMBER OF PAGES FOR  BOOTSTRAP.BIN (OPTIONAL)
  .MSISN==:23			;CPU SERIAL # IF STRUCTURE IS USED FOR BOOTING

.MSIMC==:7			;INCREMENT MOUNT COUNT
.MSDMC==:10			;DECREMENT MOUNT COUNT
  .MSDEV==:0			;DEVICE DESIGNATOR OR STRUCTURE
  .MSJOB==:1			;JOB NUMBER FOR WHICH TO CHANGE COUNT
.MSGSU==:11			;GET STRUCTURE USERS
  .MSUAL==:0			;POINTER TO ALIAS OF STRUCTURE
  .MSUFL==:1			;FLAGS,,# OF ITEMS RETURNED
    MS%GTA==:1B0		;GET USERS WHO HAVE ACCESSED STRUCTURE
    MS%GTM==:1B1		;GET USERS WHO HAVE MOUNTED STRUCTURE
    MS%GTC==:1B2		;GET USERS WHO ARE CONNECTED TO STRUCTURE
  .MSUJ1==:2			;FIRST JOB NUMBER RETURNED

.MSHOM==:12			;MODIFY HOMEBLOCK WORD
  .MSHNM==:0			;POINTER TO ALIAS, OR DESIGNATOR FOR ALIAS
  .MSHOF==:1			;OFFSET INTO HOMEBLOCK OF WORD BEING CHANGED
  .MSHVL==:2			;NEW VALUES FOR BITS BEING CHANGED
  .MSHMK==:3			;MASK DECLARING WHICH BITS BEING CHANGED

.MSICF==:13			;INCREMENT MOUNT COUNT ON A FORK BASIS
.MSDCF==:14			;DECREMENT MOUNT COUNT ON A FORK BASIS
  .MSDEV==:0			;DEVICE DESIGNATOR OR STRUCTURE

.MSOFL==:15			;ENABLE PSI INTERRUPTS INTERRUPTS FOR
				; DISK (FOR DEVICE ALLOCATOR)
  .MSCHN==:0			;CHANNEL ON WHICH TO RECEIVE INTERRUPT


.MSIIC==:16			;IGNORE INCREMENT CHECK FOR STRUCTURE USE
;MTOPR - FUNCTION CODES

.MOCLE==:0			;CLEAR ERRORS
.MONOP==:31			;NOP (WAIT FOR ACTIVITY TO STOP)
.MOREW==:1			;REWIND
.MOEOF==:3			;WRITE EOF
.MODTE==:4			;ASSIGN FE DEVICE TO A DTE
.MOFWR==:6			;FORWARD SPACE RECORD
.MOBKR==:7			;BACKSPACE RECORD
.MORUL==:11			;REWIND AND UNLOAD
.MOERS==:13			;ERASE TAPE
.MOFWF==:16			;FORWARD SPACE FILE
.MOBKF==:17			;BACKSPACE FILE
.MOSPD==:26			;SET TTY SPEED (FOR KL ONLY)
.MORSP==:27			;READ LINE SPEED (FOR KL ONLY)
   MO%RMT==:1B0			;FLAG TO SAY LINE IS REMOTE
   MO%AUT==:1B1			;FLAG TO SAY LINE IS "AUTO" SPEED
				; (RSX20F ONLY)
.MOSDR==:2			;SET READ DIRECTION
.MORDR==:26			;READ READ DIRECTION
.MOEOT==:10			;SKIP TO LOGICAL END OF TAPE
.MOSRS==:5			;SET RECORD SIZE
.MORRS==:15			;READ RECORD SIZE
.MOSDN==:24			;SET DENSITY
.MORDN==:12			;READ DENSITY
.MOSDM==:4			;SET DATA MODE
.MORDM==:14			;READ DATA MODE
.MOSPR==:20			;SET PARITY
.MORPR==:21			;READ PARITY
.MONRB==:22			;GET NUMBER OF REMAINING BYTES IN RECORD
.MOFOU==:23			;FORCE OUT RECORD
.MOINF==:25			;GET INFORMATION ABOUT TAPE
   .MOICT==:0			;COUNT OF ARGUMENTS TO BE RETURNED
   .MOITP==:1			;MAGTAPE TYPE CODE
; DEFINED THE SAME AS .UTTXX IN PHYPAR
      .MTT45==:3		;MAGTAPE TYPE TU45
      .MTT77==:13		;MAGTAPE TYPE TU77
      .MTT78==:15		;MAGTAPE TYPE TU78
      .MTT70==:17		;MAGTAPE TYPE TU70
      .MTT71==:20		;MAGTAPE TYPE TU71
      .MTT72==:21		;MAGTAPE TYPE TU72
      .MTT73==:22		;RESERVED FOR 200 IPS STC GCR DRIVE
   .MOIID==:2			;MAGTAPE REEL ID
   .MOISN==:3			;CHAN,CONTROLLER,UNIT ,, SERIAL #
   .MOIRD==:4			;# OF READS DONE
   .MOIWT==:5			;# OF WRITES DONE
   .MOIRC==:6			;RECORD # FROM BOT
   .MOIFC==:7			;FILE COUNT ON TAPE
   .MOISR==:10			;# OF SOFT READ ERRORS
   .MOISW==:11			;# OF SOFT WRITE ERRORS
   .MOIHR==:12			;# OF HARD READ ERRORS
   .MOIHW==:13			;# OF HARD WRITE ERRORS
   .MOIRF==:14			;# RECORDS READ
   .MOIWF==:15			;# OF FRAMES WRITTEN
.MOLOC==:32			;ATTACH MT TO MTA
	.MOCNT==:0		;OFFSET FOR COUNT
	.MOMTN==:1		;OFFSET FOR MT NUMBER
	.MOLBT==:2		;LABEL TYPE (.LTxxx)
	.MODNS==:3		;DENSITY (.SJDxx)
	.MOAVL==:4		;ADDRESS OF VOLUME LABELS
	.MONVL==:5		;# OF VOLUME LABELS (VOL1 + UVLSs)
	.MOCVN==:6		;CURRENT VOLUME NUMBER WITHIN SET
	.MOVSN==:7		;VOLUME SET NAME
.MOSTA==:37			;CURRENT MAGTAPE STATUS
  .MODDN==:1			;1ST WORD OF .MOSTA DENSITIES CAPABLE

    SJ%CP2==:1B1		;200 BPI
    SJ%CP5==:1B2		;556 BPI
    SJ%CP8==:1B3		;800 BPI
    SJ%C16==:1B4		;1600 BPI
    SJ%C62==:1B5		;6250 BPI

  .MODDM==:2			;2ND WORD OF .MOSTA DATA MODES CAPABLE
    SJ%CMC==:1B1		;CORE DUMP MODE
    SJ%CM6==:1B2		;SIXBIT
    SJ%CMA==:1B3		;ANSI ASCII
    SJ%CM8==:1B4		;INDUSTRY COMPATABLE
    SJ%CMH==:1B5		;HIGH DENSITY MODE
  .MOTRK==:3			;3RD WORD OF .MOSTA NUMBER OF TRACKS
    SJ%7TR==:1B1		;7 TRACK DRIVE
    SJ%9TR==:1B2		;9 TRACK DRIVE

  .MOCST==:4			;4TH WORD OF .MOSTA TAPE STATUS
    SJ%OFS==:1B0		;OFF LINE
    SJ%MAI==:1B1		;MAINTENANCE MODE ENABLED
    SJ%MRQ==:1B2		;MAINTENANCE MODE REQUESTED
    SJ%BOT==:1B3		;BOT
    SJ%REW==:1B4		;REWINDING
    SJ%WLK==:1B5		;WRITE LOCKED

  .MODVT==:5			;5TH WORD OF .MOSTA DEVICE TYPE

; DEFINITIONS FOR THIS ARE SAME AS USED IN .MTALN
.MOOFL==:40			;PSI FOR MAGTAPES
.MOPST==:42			;PSI FOR EOT ON MT'S
;	T3/ PSI ASSIGNMENT (-1 => CLEAR)
.MORVS==:.MOREW			;REWIND VOLUME SET
.MORVL==:43			;REWIND CURRENT VOLUME
.MOVLS==:44			;VOLUME SWITCH FOR UNLABELED TAPES
.MONTR==:45			;SET/CLEAR NO TRANSLATE FLAG
;	T3/ -1 => DON'T CONVERT EBCDIC TO ASCII
;	T3/0=> CONVERT
.MORDL==:46			;READ USER LABELS
;	T2/ GETS LABEL I.D.
;	T3/ SP TO WHERE 76 CHARCTERS ARE TO BE PLACED
.MOWUL==:47			;WRITE USER LABELS
;	T2/ LABEL I.D.
;	T3/ SP TO 76 CHARACTERS OF DATA
.MORLI==:50			;READ LABEL INFORMATION FOR MT
	.MOMTP==:1		;TYPE OF LABEL
	.MOMVN==:2		;VOLUME NAME
	.MOMOW==:3		;OWNER
	.MOMFM==:4		;FORMAT OF TAPE FILE
	.MOMRL==:5		;RECORD LENGTH
	.MOMBL==:6		;BLOCK LENGTH
	.MOMCD==:7		;CREATION DATE
	.MOMED==:10		;EXPIRATION DATE
	.MOMFI==:11		;FILE NAME
	.MOMGN==:12		;GENERATION NUMBER
	.MOMGV==:13		;GENERATION VERSION NUMBER
	.MOVMB==:14		;VALUE OF MODE BYTE
.MOSMV==:51			;SET MODE VALUE
	.TPFST==:0		;STREAM MODE
	.TPFCP==:1		;ALL FORMATTING CONTROLS PRESENT
	.TPFFC==:2		;FORTRAN CONTROLS PRESENT
	.TPFNC==:3		;NO CONTROLS PRESENT
	.TPFMX==:3		;MAX VALUE OF FIELD
.MOSDS==:52			;SET DEFERRED VOLUME-SWITCH MODE
.MOPSI==:27			;SET ERROR PSI FOR LPT AND CDR
   MO%MSG==:1B0			;SUPPRESS STANDARD CTY MESSAGES
.MOSID==:27			;SET REEL I.D.
.MOIEL==:30			;INHIBIT ERROR LOGGING
.MOSHV==:45			;SET HDR1 AND HDR2 VALUES FOR MT
	.MOFMT==:1		;OFFSET FOR FORMAT
	.MOEPD==:2		;EXPIRATION DATE
	.MOBSZ==:3		;BLOCK SIZE
	.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.

.VMCOD==:0			;CODE FOR THIS MESSAGE
				; IS SUBCODE OF .IPCTR FUNCTION
	.VMABT==:1		;ABORT CLOSE
	.VMICN==:2		;INTERNAL ERROR (HOPEFULLY NOT USED)
	.VMERR==:3		;LABEL R/W ERROR
	.VMVSM==:4		;VOLUME SWITCH
	.VMSTS==:5		;UNIT STATUS CHANGE (NOT USED YET)
	.VMUNL==:6		;UNIT UNLOAD
	.VMREW==:7		;REWIND
.VSMTN==:1			;MT NUMBER
.VSFLG==:2			;FLAGS
 VS%FLG==:-1B17			;FLAGS PART OF WORD
	VS%WRT==:1B0		;WRITE PREVIOUS VOLUME WAS OPENED FOR WRITE
 VS%COD==:777777		;CODE
	.VSMNV==:1		;MOUNT NTH VOLUME
	.VSFST==:2		;MOUNT FIRST VOLUME
	.VSLST==:3		;MOUNT LAST VOLUME
	.VSMRV==:4		;MOUNT RELATIVE VOLUME NUMBER (SIGNED)
	.VSFLS==:5		;FORCE LABELED TAPE VOLUME-SWITCH
.VSCNT==:3			;VOLUME NUMBER (SIGNED IF VS%MRV IS ON)
.MOLVF==:32			;LOAD DEVICE'S VFU
.MORVF==:33			;READ VFU FILE NAME
.MOLTR==:34			;LOAD TRANSLATION RAM
.MORTR==:35			;READ RAM FILE NAME
.MOSTS==:36			;SET SOFTWARE STATUS
.MORST==:37			;READ SOFTWARE STATUS
   MO%LPC==1			;PAGE COUNTER OVERFLOW
   MO%LCI==2			;CHARACTER INTERRUPT (HARD ERROR)
   MO%LVF==4			;VFU ERROR.  PAPER MUST BE RE-ALIGNED
   MO%LVU==20			;LINE PRINTER HAS OPTICAL VFU
   MO%RPE==40			;RAM PARITY ERROR

   MO%RCK==:1			;READ CHECK
   MO%PCK==:2			;PICK CHECK
   MO%SCK==:4			;STACK CHECK
   MO%HEM==:10			;HOPPER EMPTY
   MO%SFL==:20			;STACKER FULL

   MO%FNX==:1B17		;NON-EXISTENT DEVICE
   MO%OL==:1B16			;DEVICE IS OFF-LINE
   MO%HE==:1B15			;HARDWARE ERROR
   MO%SER==:1B14		;SOFTWARE ERROR
   MO%IOP==:1B13		;I/O IN PROGRESS
   MO%EOF==:1B12		;END OF FILE
;  1B11				;RESERVED
   MO%FER==:1B10		;FATAL ERROR
   MO%LCP==:1B0			;LOWER CASE PRINTER
   MO%RLD==:1B1			;FRONT-END WAS RELOADED
.MOFLO==:40			;FLUSH OUTPUT

;SEE SETJB FOR VARIOUS ARGUMENT VALUES

.MOSNT==:34			;SET TTY NON-TERMINAL STATUS
   .MOSMN==:1			;NO SYSTEM MESSAGES(I.E. SUPPRESS)
   .MOSMY==:0			;YES SYSTEM MESSAGES(DEFAULT)
.MORNT==:35			;READ TTY NON-TERMINAL STATUS

;PTY MTOPR NUMBERS

.MOAPI==:24			;ASSIGN PTY INTERRUPT CHANNELS
   MO%WFI==:1B0			;ENABLE WAITING FOR INPUT
   MO%OIR==:1B1			;ENABLE OUTPUT IS WAITING
   MO%SIC==:77B17		;SOFTWARE INTERRUPT CHANNEL
.MOPIH==:25			;TEST PTY INPUT HUNGRY
   .MONWI==:0			;NOT WAITING FOR INPUT
   .MOWFI==:-1			;WAITING FOR INPUT
.MOBAT==:26			;SET BATCH BIT
  .MOJCB==:1			;JOB CONTROLLED BY BATCH
  .MONCB==:0			;JOB NOT CONTROLLED BY BATCH
;TTY MODE DEFINITIONS

.MORLW==:30			;READ WIDTH
.MOSLW==:31			;SET WIDTH
.MORLL==:32			;READ LENGTH
.MOSLL==:33			;SET LENGTH
.MOSIG==:36			;SET "IGNORE INPUT WHEN INACTIVE" BIT
.MORBM==:37			;READ 128 CHARACTER BREAK MASK

	MO%WN1==:776117,,777740	;BIT DEFINITIONS FOR NON-FORMATTING CONTROL
	MO%WN2==:0		;FOR ASCII CODES 40-777
	MO%WN3==:0		;FOR ASCII CODES 100-137
	MO%WN4==:20		;FOR ASCII CODES 137-177

	MO%WF1==:001260,,000420	;FORMATTING CONTROL BITS
	MO%WF2==:0		;FOR ASCII CODES 40-77
	MO%WF3==:0		;FOR ASCII CODES 100-137
	MO%WF4==:20		;FOR ASCII CODES 140-177

	MO%WP1==:000400,,400	;PUNCTUATION BIT DEFINITIONS
	MO%WP2==:777774,,001760	; FOR ASCII CODES 40-77
	MO%WP3==:400000,,000760	; FOR ASCII CODES 100-137
	MO%WP4==:400000,,000760	; FOR ASCII CODES 140-177

	MO%WA1==:400		;ALPHANUMERICS DEFINITIONS
	MO%WA2==:000003,,776000	; FOR ASCII CODES 40-77
	MO%WA3==:377777,,777000	; FOR ASCII CODES 100-137
	MO%WA4==:377777,,777020	; FOR ASCII CODES 140-177
.MOSBM==:40			;SET 128 CHARACTER BREAK MASK
.MORFW==:41			;READ FIELD WIDTH
.MOSFW==:42			;SET FIELD WIDTH
.MOXOF==:43			;SET/CLEAR XOFF/XON HANDLING
	.MOOFF==:0		;TURN OFF XON/XOFF PROCESSING
	.MOONX==:1		;TURN ON XON/XOFF PROCESSING
.MORXO==:44			;READ VALUE OF XOFF BIT
.MOSLC==:45			;SET LINE COUNTER
.MORLC==:46			;READ LINE COUNTER
.MOSLM==:47			;SET LINE COUNTER MAXIMUM
.MORLM==:50			;READ LINE COUNTER MAXIMUM
.MOTPS==:51			;PSI FOR NON-CONTROLLING TERMINAL
.MOPCS==:52			;SET PAGE PAUSE CHARACTER
.MOPCR==:53			;READ PAGE PAUSE CHARACTER
.MOFCI==:60			;221 Read full 12-bit character

;NET MTOPR NUMBERS

.MOACP==:20	      ;TOPS20AN	;ACCEPT CONNECTION ON SOCKET
.MOSND==:21	      ;TOPS20AN	;SEND ALL CURENTLY BUFFERED BYTES
.MOSIN==:22	      ;TOPS20AN	;SEND INS/INR COMMAND
.MOAIN==:24	      ;TOPS20AN	;ASSIGN INS/INR AND FSM PSI CHANNELS
   MO%NIN==:77B5      ;TOPS20AN	;INS/INR SOFTWARE INTERRUPT CHANNEL
   MO%FSM==:77B17     ;TOPS20AN	;FSM CHANGE OF STATE INTERRUPT CHANNEL


;DEFINITIONS FOR DECNET

.MOACN==:24			;ASSIGN CONNECT INTERRUPT CHANNEL
   MO%CDN==:777B8		;CONNECT INTERRUPT CHANNEL
   MO%INA==:777B17		;INTERRUPT MESSAGE CHANNEL
   MO%DAV==:777B26		;DATA AVAILABLE CHANNEL
     .MONCI==:777		;NO CHANGE
     .MOCIA==:776		;CLEAR INTERRUPT ASSIGNMENT

.MORLS==:25			;READ LINK STATUS
   MO%CON==:1B0			;LINK IS CONNECTED
   MO%SRV==:1B1			;LINK IS A SERVER
   MO%WFC==:1B2			;WAITING FOR A CONNECT
   MO%WCC==:1B3			;WAITING FOR THIS LINK TO CONFIRM
   MO%EOM==:1B4			;EOM PRESENT IN INPUT BUFFER
   MO%ABT==:1B5			;CONNECTION ABORTED
   MO%SYN==:1B6			;SYNCH DI RECIEVED
   MO%INT==:1B7			;INT MESSAGE AVAILABLE
   MO%LWC==:1B8			;LINK WAS CONNECTED
.MORHN==:26			;READ HOST NAME
.MORTN==:27			;READ TASK NAME
.MORUS==:30			;READ USER DATA
.MORPW==:31			;READ PASSWORD
.MORAC==:32			;READ ACCOUNT
.MORDA==:33			;READ OPTIONAL DATA
.MORCN==:34			;READ CONNECT OBJECT NUMBER
.MORIM==:35			;READ INTERRUPT MESSAGE
.MOSIM==:36			;SEND INTERRUPT MESSAGE
.MOROD==:37			;READ OBJ-DESC OF CONNECTION
.MOCLZ==:40			;CLOSE/REJECT A CONNECTION
.MOCC==:41			;ACCEPT A CONNECTION
.MORSS==:42			;READ SEGMENT SIZE
.MOANT==:43			;ATTACH NETWORK TERMINAL
.MOSNH==:44			;SET NETWORK HOST
 .SHTTY==:1			;ARG BLOCK - TTY IDENT
 .SHESC==:2			; - FLAGS,,ESC CHAR
  SH%LPM==:1B0			; FLAG - LOCAL PAGE MODE

;DEFINITIONS FOR ATS

;FUNCTION CODES FOR MTOPR ARE IN COLUMN 1

.MOAMO==:1			;SET MODE WORD
	.MOAMM==:1		;MESSAGE MODE
	.MOADM==:2		;DATA MODE
.MOAAT==:2			;ACQUIRE TERMINAL
	MO%AER==:1B0		;HTN FIELD CONTAINS AN ERROR CODE
.MOASI==:3			;ENABLE INTERRUPTS
	MO%IFL==:777B8		;FUNCTION TO BE PERFORMED
	  .MOAAI==:0		;ASSIGN INTERRUPT CHANNEL
	  .MOADI==:1		;DEASSIGN INTERRUPT CHANNEL
	MO%IEV==:777B17		;EVENT BEING ASSIGNED OR DEASSIGNED
	  .MOADT==:0		;DATA ARRIVAL
	  .MOAST==:1		;STATUS ARRIVAL
	MO%ACH==:777777B35	;CHANNEL NUMBER
.MORCD==:4			;GET STATUS
	MO%WDV==:777B35		;WHICH DEVICES TO REPORT ON
	  .MOALD==:0		;ALL TERMINALS
	  .MOCHG==:1		;TERMINALS WHOSE STATUS HAS CHANGED
	  .MOLST==:2		;TERMINALS SPECIFIED IN LIST
	MO%ARM==:1B0		;ASK THE RESOURCE MANAGER
	MO%MDA==:1B1		;MORE DATA AVAILABLE FOR THIS JFN
		AT%OPN==:1B0	;HTN IS OPEN AND USABLE
		AT%TCL==:1B1	;NRM CLOSED TERMINAL VIA STATUS-REPORT
		AT%DHT==:1B2	;DEASSIGNING HTN
		AT%TXF==:1B3	;TERMINAL IS XOFF'D
		AT%UND==:1B4	;DEVICE REQUESTED IS UNDEFINED
		AT%NAV==:1B5	;DEVICE REQUESTED IS NOT AVAILABLE
		AT%OFL==:1B6	;DEVICE REQUESTED IS OFFLINE
		AT%FUL==:1B7	;SERVER IS FULL
		AT%UNS==:1B8	;DEVICE TYPE IS UNSUPPORTED
		AT%REJ==:1B9	;NODE NRM REJECTED THE REQUEST
		AT%MIE==:1B10	;MONITOR INTERNAL ERROR (NODE OR HOST)
		AT%STF==:1B11	;VT62 START-UP FAILED
		AT%CRJ==:1B12	;CONNECTION WAS REJECTED
		AT%NDP==:1B13	;DATA PIPE IS NOT OPEN
		AT%SER==:777777B35 ;STATUS REPORT ERROR CODE (18 BITS)
.MOADE==:5			;DEASSIGN TERMINAL
	MO%AAB==:1B0		;DON'T SEND REMAINING DATA

;FUNCTION CODES FOR AYDIN DISPLAY MTOPR

.MOFLE==:0			;FLUSH ERRORS
.MORER==:1			;RETURN AYDIN ERROR CODE
.MOWAT==:2			;WAIT FOR ACTIVITY TO STOP
	MO%RWC==:777777B17	;REMAINING WORD COUNT
	MO%LER==:777777B35	;LAST AYDIN ERROR CODE
;DEFS FOR MTU JSYS

;FUNCTIONS:

.MTNVV==:1			;SET NO VOLUME VALID
	.MTCNT==:0		;COUNT WORD
	.MTCOD==:1		;ERROR CODE
	.MTPTR==:2		;SP TO OPERATOR RESPONSE

.MTRAL==:2			;READ ALL LABELS
	.MTVL1==:1		;SP TO VOL1 AREA
	.MTVL2==:2		;SP TO VOL2 AREA
	.MTHD1==:3		;SP TO HDR1 AREA
	.MTHD2==:4		;SP TO HDR2 AREA
.MTASI==:3			;RETURN MT TO MTA ASSOCIATION
	.MTPHU==:1		;RETURN MTA UNIT NUMBER HERE
		.MTNUL==:-1	;NO ASSIGNMENT CODE
.MTCVV==:4			;CLEAR VV
;MUTIL JSYS FUNCTION CODES

.MUENB==:1			;ENABLE PID FOR RECEIVING
.MUDIS==:2			;DISABLE PID FROM RECEIVING
.MUGTI==:3			;GET PID OF [SYSTEM]INFO
.MUCPI==:4			;CREATE A PRIVATE INFO FOR A JOB
.MUDES==:5			;DESTROY A PID
.MUCRE==:6			;CREATE A PID
.MUSSQ==:7			;SET SEND AND RECEIVE QUOTAS
.MUCHO==:10			;CHANGE OWNER OF A PID
.MUFOJ==:11			;FIND OWNER'S JOB NUMBER
.MUFJP==:12			;FIND JOB'S PIDS
.MUFSQ==:13			;FIND SEND AND RECEIVE QUOTAS
.MUFFP==:15			;FIND FORK'S PIDS
.MUSPQ==:16			;SET PID QUOTA
.MUFPQ==:17			;FIND PID QUOTA
.MUQRY==:20			;QUERY
.MUAPF==:21			;ASSOCIATE A PID WITH A FORK
.MUPIC==:22			;PUT PID ON AN INTERRUPT CHANNEL
.MUDFI==:23			;DEFINE PID OF [SYSTEM]INFO
.MUSSP==:24			;SET SYSTEM PID TABLE
.MURSP==:25			;READ SYSTEM PID TABLE
.MUMPS==:26			;GET MAXIMUM PACKET SIZE
.MUSKP==:27			;SET PID TO RECEIVE KILLED PID MESSAGE
.MURKP==:30			;READ PID THAT RECEIVES KILLED PID MESSAGES
.MUSPS==:31			;Get system maximum packet size


;SYSTEM PID TABLE INDEX VALUES

.SPIPC==:0			;PID OF IPCC
.SPINF==:1			;PID OF INFO
.SPQSR==:2			;PID OF QUASAR
.SPMDA==:3			;PID OF QSRMDA
.SPOPR==:4			;PID OF OPERATOR JOB (ORION)
.SPNSR==:5			;PID OF NETSER


;NODE

.NDSLN==:0			;SET LOCAL NODE NAME
.NDGLN==:1			;GET LOCAL NODE NAME
   .NDNOD==:0			;POINTER TO NODE NAME
.NDSNM==:2			;SET LOCAL NODE NUMBER
	.NDMAX==:377		;MAXIMUM NODE NUMBER
.NDGNM==:3			;GET LOCAL NODE NUMBER
.NDSLP==:4			;SET LOOPBACK ON PORT
	.NDPRT==:0		;PORT TO SET IN LOOPBACK
.NDCLP==:5			;CLEAR LOOPBACK ON PORT
.NDFLP==:6			;FIND LOOPBACK PORT
	ND%LPR==1B0		;LOOPBACK RUNNING
	ND%LPA==1B1		;LOOPBACK ASSIGNED TO PORT
.NDSNT==:7			;SET NETWORK TOPOLOGY INFORMATION
	.NDNNO==:0		;NUMBER OF NODES REPRESENTED IN BIT MASK
	.NDMSK==:1		;FIRST WORD OF REACHABLE NODES BIT MASK
.NDGNT==:10			;GET NETWORK TOPOLOGY INFORMATION
	.NDNND==:0		;NUMBER OF NODE BLOCK POINTERS FOLLOWING
	.NDCNT==:1		;NUMBER OF WORDS IN A NODE BLOCK
	.NDBK1==2		;FIRST ADDRESS OF A NODE BLOCK

	;NODE BLOCK DEFINITIONS
	.NDNAM==:0		;POINTER TO ASCIZ NODE NAME
	.NDSTA==:1		;NODE STATE
		.NDSON==:0	;ON
		.NDSOF==:1	;OFF
	.NDNXT==:2		;POINTER TO ASCIZ NEARER NEIGHBOR STRING
	.NDNBS==:3		;NODE BLOCK SIZE

.NDSIC==:11			;SET TOPOLOGY CHANGE INTERRUPT CHANNEL
	.NDCHN==:0		;CHANNEL NUMBER
.NDCIC==:12			;CLEAR NETWORK TOPOLOGY INTERRUPT
.NDGVR==:13			;GET NSP VERSION INFORMATION
	.NDNVR==:0		;NUMBER OF VERSIONS RETURNED
	.NDCVR==:1		;POINTER TO COMMUNICATONS VERSION BLOCK
	.NDRVR==:2		;POINTER TO ROUTING VERSION BLOCK

	.NDVER==:0		;VERSION NUMBER
	.NDECO==:1		;ECO NUMBER
	.NDCST==:2		;CUSTOMER LEVEL
.NDGLI==:14			;GET LINE INFORMATION
	.NDNLN==:0		;<# OF ENTRIES FOLLOWING>,,<# LINE RETURNED>
	.NDCNT==:1		;NUMBER OF WORDS IN A LINE BLOCK

	; LINE BLOCK DEFINITION
	.NDLNM==:0		;NSP PORT (LINE) NUMBER
	.NDLST==:1		;STATE OF LINE
		.NDLON==:1	;ON
		.NDLOF==:2	;OFF
		.NDLCN==:3	;CONTROLLER LOOPBACK
		.NDLCB==:4	;CABLE LOOPBACK
	.NDLND==:2		;BYTE POINTER NODE AT END OF LINE
	.NDLSZ==:3		;SIZE OF BLOCK
.NDVFY==:15			;VERIFY NODE NAME
	.NDFLG==:1		;FLAGS RETURNED BY MONITOR
		ND%EXM==:1B0	;NODE SPECFIED EXACTLY MATCHES A KNOWN NODE
.NDRNM==:16			;GIVEN A NODE NUMBER, RETURN THE NODE NAME

;NOUT

NO%MAG==:1B0			;OUTPUT MAGNITUDE
NO%SGN==:1B1			;OUTPUT SIGN
NO%LFL==:1B2			;LEADING FILLER
NO%ZRO==:1B3			;FILL WITH ZERO'S
NO%OOV==:1B4			;OUTPUT ON COLUMN OVERFLOW
NO%AST==:1B5			;OUTPUT ASTERISKS ON OVERFLOW
NO%COL==:177B17			;NUMBER OF COLUMNS TO USE
NO%RDX==:777777			;RADIX


;NTMAN% ARGUMENT BLOCK

.NTCNT==:0			;NUMBER OF WORDS IN ARGUMENT BLOCK
.NTENT==:1			;ENTITY
	.NTNOD==:0			;NODE
	.NTLIN==:1			;LINE
	.NTLOG==:2			;LOGGING
	.NTCKT==:3			;CIRCUIT
	.NTMOD==:4			;MODULE
.NTEID==:2			;BYTE POINTER TO ENTITY ID
.NTFNC==:3			;FUNCTION
	LOWFNC==:-2			;VALUE OF FIRST FUNCTION VALUE
	.NTMAP==:-2			;MAP NODE NUMBER/NODE NAME
	.NTREX==:-1			;RETURN EXECUTOR NODE ID
	.NTSET==:0			;SET PARAMETER
	.NTCLR==:1			;CLEAR PARAMETER
	.NTZRO==:2			;ZERO ALL COUNTERS
	.NTSHO==:3			;SHOW SELECTED ITEMS
	.NTSZC==:4			;SHOW AND ZERO ALL COUNTERS
	.NTRET==:5			;RETURN LIST OF ITEMS
.NTSEL==:4			;SELECTION CRITERION

	;SELECTORS FOR .NTSHO FUNCTION

	.NTSUM==:0			;SUMMARY
	.NTSTA==:1			;STATUS
	.NTCHA==:2			;CHARACTERISTICS
	.NTCOU==:3			;COUNTERS
	.NTEVT==:4			;EVENT

	;SELECTORS FOR .NTRET FUNCTION

	.NTKNO==:-1			;KNOWN ITEMS
	.NTACT==:-2			;ACTIVE ITEMS
	.NTLOP==:-3			;LOOP

.NTQUA==:5			;BYTE POINTER TO FUNCTION QUALIFIER
.NTBPT==:6			;BYTE POINTER TO PARAMETER OR LIST DATA
.NTBYT==:7			;NUMBER OF BYTES IN RETURNED DATA
.NTERR==:10			;ERROR RETURN STATUS

	;MISCELLANEOUS NTMAN% SYMBOLS

	.NTARG==:11		;LENGTH OF NTMAN% ARGUMENT BLOCK
	.NDALN==:2		;NUMBER OF BYTES IN A NODE ADDRESS
	.NDPLN==:2		;NUMBER OF BYTES IN A PARAMETER NUMBER
	.NDAMX==:^D255		;MAXIMUM NODE ADDRESS
	.NDNMX==:7		;MAXIMUM NUMBER OF BYTES IN A NODE NAME
OF%FDT==:1B33			;FORCE DATE UPDATE

;ODCNV -- SEE IDCNV FOR BITS


;ODTIM

OT%NDA==:1B0			;DO NOT OUTPUT DATE
OT%DAY==:1B1			;OUTPUT DAY OF WEEK
OT%FDY==:1B2			;OUTPUT NUMERIC MONTH
OT%NMN==:1B3			;OUTPUT NUMERIC MONTH
OT%FMN==:1B4			;OUTPUT MONTH IN FULL
OT%4YR==:1B5			;OUTPUT 4-DIGIT YEAR
OT%DAM==:1B6			;OUTPUT DAY AFTER MONTH
OT%SPA==:1B7			;OUTPUT SPACES IN DATE
OT%SLA==:1B8			;OUTPUT SLASHES IN DATE
OT%NTM==:1B9			;DO NOT OUTPUT TIME
OT%NSC==:1B10			;DO NOT OUTPUT SECONDS
OT%12H==:1B11			;OUTPUT 12-HOUR FORMAT
OT%NCO==:1B12			;DO NOT OUTPUT COLON
OT%TMZ==:1B13			;OUTPUT TIME ZONE
OT%SCL==:1B17			;SUPPRESS COLUMNIZATION


;ODTNC -- SEE IDCNV FOR BITS


;OPENF

OF%BSZ==:77B5			;BYTE SIZE
OF%MOD==:17B9			;MODE
OF%HER==:1B18			;HALT ON IO ERROR
OF%RD==:1B19			;READ
OF%WR==:1B20			;WRITE
OF%EX==:1B21			;EXECUTE (RESERVED FOR THE FUTURE)
OF%APP==:1B22			;APPEND
OF%RDU==:1B23			;READ UNRESTRICTED
OF%THW==:1B25			;THAWED
OF%AWT==:1B26			;ALWAYS WAIT
OF%PDT==:1B27			;PRESERVE DATES
OF%NWT==:1B28			;NEVER WAIT
OF%RTD==:1B29			;RESTRICTED
OF%PLN==:1B30			;SET TO DISABLE LINE NUMBER CHECKING FOR
				; NON-LINE NUMBER FILES
OF%DUD==:1B31			;DON'T UPDATE TO DISK BY DDMP
OF%OFL==:1B32			;ALLOW OPENING THE DEVICE EVEN IF OFFLINE
OF%FDT==:1B33			;FORCE DATE UPDATE
OF%RAR==:1B34			; Wait if file is off-line
;PDVOP MANIPULATES PROGRAM DATA VECTORS

;FUNCTION CODES ACCEPTED IN AC1:

.POGET==:0			;GET A SET OF PDVAS (PROGRAM DATA VECTOR ADDRESSES)
.POADD==:1			;ADD A SET OF PDVAS
.POREM==:2			;REMOVE A SET
.PONAM==:3			;GET NAME OF A PROGRAM
.POVER==:4			;GET VERSION NUMBER OF A PROGRAM
.POLOC==:5			;LOCATE PDVS HAVING SPECIFIED NAME

;ARG BLOCK OFFSETS FOR BLOCK ADDRESSED BY AC2

.POCT1==:0			;SIZE OF ARG BLOCK INCLUDING THIS WORD
.POPHD==:1			;PROCESS HANDLE
.POCT2==:2			;SIZE OF DATA BLOCK (AND SIZE OF RETURNED DATA)
.PODAT==:3			;ADDRESS OF DATA BLOCK
.POADR==:4			;SMALL ADDRESS OF DATA VECTOR
.POADE==:5			;LARGE ADDRESS OF DATA VECTOR ADDRESS RANGE

;OFFSETS DEFINED WITHIN PROGRAM DATA VECTORS

.PVCNT==:0			;Length of vector
.PVNAM==:1			;Address of a word-aligned ASCIZ program name
.PVSTR==:2			;Program starting address
.PVREE==:3			;Program reenter address
.PVVER==:4			;Program version number
.PVMEM==:5			;Address of a block describing program memory
.PVSYM==:6			;Address of the program symbol table
.PVCTM==:7			;Time of program compilation
.PVCVR==:10			;Version number of compiler
.PVLTM==:11			;Time of program loading
.PVLVR==:12			;Version number of LINK
.PVMON==:13			;Address of a monitor data block
.PVPRG==:14			;Address of a program data block
.PVCST==:15			;Address of a customer-defined block

;PMAP BIT DEFINITIONS

PM%CNT==:1B0			;RH WORD CONTAINS A COUNT
PM%MVP==:1B1			;MOVE PAGE INSTEAD OF INDIRECT POINTER
				; (NOT IMPLEMENTED
PM%RD==:1B2			;READ
PM%WT==:1B3			;WRITE
PM%WR==:1B3			; (ANOTHER NAME FOR ABOVE)
PM%EX==:1B4			;EXECUTE (RESERVED FOR THE FUTURE)
PM%RWX==:7B4			;CONVENIENT ABBREV FOR RD+WT+EX
PM%PLD==:1B5			;PRELOAD PAGES BEING MAPPED
PM%IND==:1B6			;USE INDIRECT PTRS (RESERVED FOR THE FUTURE)
PM%TPU==:1B8			;TRAP TO USER
				; (NOT IMPLEMENTED -- OBSOLETE)
PM%CPY==:1B9			;COPY ON WRITE
PM%EPN==:1B10			;EXTENDED PAGE NUMBER (18 BITS)
PM%ABT==:1B11			;ABORT UNMAP.
PM%RPT==:777777B35		;REPEAT COUNT


;PMCTL - PHYSICAL MEMORY CONTROL

.MCRCE==:0			;READ CACHE ENABLE
.MCSCE==:1			;SET CACHE ENABLE
 .MCCST==:0			;ARGLIST OFFSET FOR CACHE STATE
 MC%CEN==:1			;CACHE ENABLED
.MCRPS==:2			;READ PAGE STATUS
.MCSPS==:3			;SET PAGE STATUS
 .MCPPN==:0			;ARGLIST OFFSET FOR PHYSICAL PAGE NUMBER
 .MCPST==:1			;ARGLIST OFFSET FOR PAGE STATE
 .MCPSA==:0			;PAGE AVAILABLE
 .MCPSS==:1			;PAGE IN TRANSITION STATE
 .MCPSO==:2			;PAGE OFFLINE
 .MCPSE==:3			;PAGE OFFLINE DUE TO ERROR
.MCRME==:4			;READ MEMORY ERROR INFORMATION
 .PMMER==:1			;MOS MEMORY ERROR
 .PMMTP==:0			;ENTRY HEADER AND TYPE
 .PMMRG==:1			;ERROR REGISTER
 .PMMSY==:2			;SYNDROME
 .PMMBN==:3			;BLOCK NUMBER
 .PMMSB==:4			;SPARE BIT NUMBER
 .PMMEA==:5			;ERROR ADDRESS
 .PMMSN==:6			;START OF SERIAL NUMBERS
  .PMMNS==:4			;# OF SERIAL NUMBERS TO STORE


;PRARG - PROCESS ARGUMENTS

;FUNCTION CODE DEFINITIONS

.PRARD==:1			;READ ARGUMENT BLOCK
.PRAST==:2			;SET ARGUMENT BLOCK
;RCUSR AND RCDIR

; FLAGS SUPPLIED ON CALL

RC%PAR==:1B14			;PARTIAL RECOGNITION IS ALLOWED
RC%STP==:1B15			;STEP WILDCARD (RCDIR ONLY)
RC%AWL==:1B16			;ALLOW WILDCARDS (RCDIR ONLY)
RC%EMO==:1B17			;EXACT MATCH ONLY

; FLAGS RETURNED

RC%DIR==1B0			;FILES-ONLY DIRECTORY
RC%ANA==1B1			;ALPHANUMERIC ACCOUNTS ALLOWED
RC%RLM==1B2			;REPEAT LOGIN MESSAGE
RC%NOM==:1B3			;NO MATCH FOUND
RC%AMB==:1B4			;AMBIGUOUS
RC%NMD==:1B5			;NO MORE DIRS - RETURNED IF STP IS REQUESTED
RC%WLD==:1B6			;WILDCARD DIR WAS INPUT



;RCVOK

.RCFCJ==:0			;FUNCTION CODE,, JOB NUMBER
.RCUNO==:1			;USER NUMBER
.RCCDR==:2			;CONNECTED DIRECTORY
.RCRQN==:3			;REQUEST NUMBER
.RCNUA==:4			;NUMBER OF USER ARGS
.RCARA==:5			;POINTER TO USER ARGS
.RCCAP==:6			;CURRENT CAPABILITIES
.RCTER==:7			;TERMINAL NUMBER
.RCRJB==:10			;REQUESTED JOB

;RDTTY AND TEXTI

RD%BRK==:1B0			;BREAK ON REGULAR BREAK SET
RD%TOP==:1B1			;BREAK ON TOPS10 BREAK SET
RD%PUN==:1B2			;BREAK ON PUNCTUATION
RD%BEL==:1B3			;BREAK ON END OF LINE
RD%CRF==:1B4			;SUPPRESS CR (RETURNS LF ONLY)
RD%RND==:1B5			;RETURN IF NOTHING TO DELETE
RD%JFN==:1B6			;JFNS GIVEN FOR SOURCE
RD%RIE==:1B7			;RETURN ON INPUT (BUFFER) EMPTY
RD%BBG==:1B8			;BEGINNING OF (DEST) BUFFER GIVEN
RD%BEG==:1B9			;RETURN IMMEDIATELY WHEN TYPIST EDITS TO .RDBKL
RD%RAI==:1B10			;RAISE LOWERCASE INPUT
RD%SUI==:1B11			;SUPPRESS ^U INDICATION
RD%BTM==:1B12			;BREAK CHARACTER TERMINATED INPUT
RD%BFE==:1B13			;RETURNED BECAUSE BUFFER EMPTY
RD%BLR==:1B14			;BACKUP LIMIT REACHED

;TEXTI ARG BLOCK

.RDCWB==:0			;COUNT OF WORDS IN BLOCK
.RDFLG==:1			;FLAGS
.RDIOJ==:2			;IO JFNS
.RDDBP==:3			;DEST BYTE POINTER
.RDDBC==:4			;DEST BYTE COUNT
.RDBFP==:5			;TOP OF BUFFER POINTER
.RDRTY==:6			;RETYPE (^R) POINTER
.RDBRK==:7			;BREAK SET MASK POINTER
.RDBKL==:10			;BACKUP LIMIT POINTER
;RFSTS

RF%LNG==:1B0			;LONG FORM OF RFSTS CALL, ARG BLOCK IN 2
RF%PRH==:777777B35		;PROCESS HANDLE

;RFSTS ARG BLOCK

.RFCNT==:0			;XWD COUNT OF WORDS RETURNED,
				; MAXIMUM WORDS TO RETURN
.RFPSW==:1			;PROCESS STATUS WORD
.RFPFL==:2			;PROCESS' PC FLAGS
.RFPPC==:3			;PROCESS' PC
.RFSFL==:4			;STATUS FLAGS FOR PROCESS:
  RF%EXO==1B0			;PROCESS IS EXECUTE-ONLY

;PROCESS STATUS WORD

RF%FRZ==:1B0			;PROCESS IS FROZEN
RF%STS==:377777B17		;PROCESS STATUS CODE
   .RFRUN==:0			;RUNNABLE
   .RFIO==:1			;DISMISSED FOR I/O
   .RFHLT==:2			;HALTED
   .RFFPT==:3			;FORCED PROCESS TERMINATION
   .RFWAT==:4			;WAITING FOR INFERIOR PROCESS
   .RFSLP==:5			;SLEEP
   .RFTRP==:6			;JSYS TRAPPED
   .RFABK==:7			;ADDRESS BREAK FREEZE
   .RFSIG==:10			;27 SIGNAL JFN FREEZE
RF%SIC==:777777B35		;SOFTWARE INTERRUPT CHANNNEL


;RFTAD/SFTAD

.RSWRT==:0			;WRITE DATE WORD
.RSCRV==:1			;CREATION DATE WORD
.RSREF==:2			;REFERENCE DATE WORD
.RSCRE==:3			;INTERNAL SYSTEM WRITE DATE WORD
.RSTDT==:4			; Tape write date word
.RSNET==:5			; Online expiration date/interval word
.RSFET==:6			; Offline expiration date/interval word


;RMAP

RM%RD==1B2			;READ ACCESS ALLOWED
RM%WR==:1B3			;WRITE ACCESS ALLOWED
RM%EX==:1B4			;EXECUTE ACCESS ALLOWED
RM%PEX==:1B5			;PAGE EXISTS
RM%CPY==:1B9			;COPY ON WRITE

;RSMAP/SMAP

SM%RD==:1B2			;READ ACCESS ALLOWED
SM%WR==:1B3			;WRITE ACCESS ALLOWED
SM%EX==:1B4			;EXECUTE ACCESS ALLOWED
SM%IND==:1B6			;INDIRECT POINTER


;RPACS/SPACS BIT DEFINITIONS

PA%RD==:1B2			;READ ACCESS ALLOWED
PA%WT==:1B3			;WRITE ACCESS ALLOWED
PA%WR==:1B3			; (ANOTHER NAME FOR ABOVE)
PA%EX==:1B4			;EXECUTE ACCESS ALLOWED
				; (RESERVED FOR THE FUTURE)
PA%PEX==:1B5			;PAGE EXISTS
PA%IND==:1B6			;INDIRECT POINTER
PA%TPU==:1B8			;TRAP TO USER
				; (NOT IMPLEMENTED -- OBSOLETE)
PA%CPY==:1B9			;COPY ON WRITE
PA%PRV==:1B10			;PRIVATE
P1%RD==:1B20			;READ ACCESS ALLOWED IN 1ST POINTER
P1%WR==:1B21			;WRITE ACCESS ALLOWED IN 1ST POINTER
P1%WT==:1B21			; (ANOTHER NAME FOR ABOVE)
P1%EX==:1B22			;EXECUTE ACCESS ALLOWED IN 1ST POINTER
				; (RESERVED FOR THE FUTURE)
P1%PEX==:1B23			;PAGE EXISTS IN 1ST POINTER
P1%CPY==:1B27			;COPY-ON-WRITE IN 1ST POINTER
;RSCAN

.RSINI==:0			;MAKE RESCAN BUFFER AVAILABLE FOR INPUT
.RSCNT==:1			;COUNT CHARACTERS LEFT TO READ FROM RESCAN BUFFER


;RTIW

RT%DIM==:1B0			;DEFERRED TERMINAL INTERRUPT MASK GIVEN
RT%PRH==:777777			;PROCESS HANDLE


;SCTTY

.SCRET==:0			;RETURN DESIGNATOR (CTTY) FOR FORK
.SCSET==:1			;SET SCTTY FOR FORK
.SCRST==:2			;CLEAR FORK CTTY (RESTORE JOB CTTY)

;SCVEC

.SVEAD==:0			;ENTRY ADDRESS
.SVINE==:1			;INITIAL ENTRY FOR SETUP
.SVGET==:2			;ENTRY ADDRESS FOR GET SHARE FILE ROUTINE
.SV40==:3			;ADDRESS TO GET LOCATION 40
.SVRPC==:4			;ADDRESS TO GET RETURN PC
.SVMAK==:5			;ENTRY FOR MAKE SHARE FILE ROUTINE
.SVCST==:6			;2 WORD BLOCK FOR CONTROL-C/START PROCESSING


;SDVEC

.SDEAD==:0			;ENTRY ADDRESS
.SDINE==:1			;INITIAL ENTRY
.SDVER==:2			;DMS VERSION
.SDDMS==:3			;ADDRESS TO STORE DMS JSYS
.SDRPC==:4			;ADDRESS TO STORE RETURN PC
;SETJB FUNCTION CODES

.SJDEN==:0			;SET DEFAULT MAGTAPE DENSITY
 .SJDDN==:0			;SYSTEM DEFAULT DENSITY
 .SJDN2==:1			;200 BPI
 .SJDN5==:2			;556 BPI
 .SJDN8==:3			;800 BPI
 .SJD16==:4			;1600 BPI
 .SJD62==:5			;6250 BPI
.SJPAR==:1			;SET DEFAULT MAGTAPE PARITY
 .SJPRO==:0			;ODD PARITY
 .SJPRE==:1			;EVEN PARITY
.SJDM==:2			;SET DEFAULT MAGTAPE DATA MODE
 .SJDDM==:0			;SYSTEM DEFAULT DATA MODE
 .SJDMC==:1			;CORE DUMP MODE
 .SJDM6==:2			;SIX BIT BYTE MODE (FOR 7-TRACK DRIVES)
 .SJDMA==:3			;ANSI ASCII MODE (7 BITS IN 8 BIT BYTE)
 .SJDM8==:4			;INDUSTRY COMPATIBLE MODE
 .SJDMH==:5			;HI-DENSITY MODE (9 EIGHT BIT
				; BYTES IN 2 WORDS)
.SJRS==:3			;SET DEFAULT MAGTAPE RECORD SIZE
.SJDFS==:4			;SET DEFERRED SPOOLING
 .SJSPI==:0			;IMMEDIATE MODE SPOOLING
 .SJSPD==:1			;DEFERRED MODE SPOOLING
.SJSRM==:5			;SET JOB SESSION REMARK
.SJT20==:6			;DECLARE WHETHER TOPS20 COMMAND LEVEL OR NOT
.SJDFR==:7			; Set default job retrieval mode
 .SJRFA==:0			; OPENF should always fail
 .SJRWA==:1			; OPENF should always request & wait
.SJBAT==:10			;SET BATCH FLAGS AND STREAM
				;SEE .JIBCH FOR FIELD DEFINITIONS
.SJLLO==:11			;SET JOB LOCATION


;SFORK

SF%CON==:1B0			;CONTINUE PROCESS, IGNORE PC IN AC2
SF%PRH==:777777B35		;PROCESS HANDLE


;SFUST

.SFAUT==:0			;SET AUTHOR STRING
.SFLWR==:1			;SET LAST WRITER STRING
;SMON FUNCTION CODES AND BIT DEFINITIONS (SYSTEM FLAGS)

.SFFAC==:0			;ALLOW FACT ENTRIES
.SFCDE==:1			;CHECKDISK FOUND ERRORS
.SFCDR==:2			;CHECKDISK RUNNING
.SFMST==:3			;MANUAL START IN PROGRESS
.SFRMT==:4			;REMOTE LOGINS ALLOWED
.SFPTY==:5			;PTY LOGINS ALLOWED
.SFCTY==:6			;CTY LOGIN ALLOWED
.SFOPR==:7			;OPERATOR IN ATTENDANCE
.SFLCL==:10			;LOCAL LOGINS ALLOWED
.SFBTE==:11			;BIT TABLE ERRORS FOUND ON STARTUP
.SFCRD==:12			;USER CAN CHANGE DIRECTORY CHARACTERISTICS
.SFNVT==:13	      ;TOPS20AN	;NVT LOGIN ALLOWED
.SFWCT==:14			;WHEEL LOGIN ON CTY ALLOWED
.SFWLC==:15			;WHEEL LOGIN ON LOCAL TERMINALS ALLOWED
.SFWRM==:16			;WHEEL LOGIN ON REMOTE TERMINALS ALLOWED
.SFWPT==:17			;WHEEL LOGIN ON PTY'S ALLOWED
.SFWNV==:20	      ;TOPS20AN	;WHEEL LOGIN ON NVT'S ALLOWED
.SFUSG==:21			;USAGE FILE IN USE
.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.

.SFMTA==:23			;MAGTAPE ALLOCATION ENABLED
.SFMS0==:24			;SYSTEM MESSAGE LEVEL 0
.SFMS1==:25			;SYSTEM MESSAGE LEVEL 1
;BELOW ARE FUNCTION CODES THAT DO NOT MAP DIRECTLY INTO BITS


.SFNTN==:44	      ;TOPS20AN	;NETWORK ON/OFF CONTROL
.SFNDU==:45	      ;TOPS20AN	;NET DOWN/UP REQUEST
.SFNHI==:46	      ;TOPS20AN	;NET HOST TABLE INITIALIZE
.SFTMZ==:47			;SET TIME ZONE THIS SYSTEM IS IN
.SFLHN==:50	      ;TOPS20AN	;SET LOCAL HOST NUMBER OF THIS NET SITE
.SFAVR==:51			;ACCOUNT VALIDATION ON/OFF
.SFSTS==:52			;ENABLE/DISABLE STATUS REPORTING
.SFSOK==:53			;GETOK/GIVOK DEFAULT SETTING
.SFMCY==:54			;SET MAX ORDINARY OFFLINE EXP PERIOD
.SFRDU==:55			;READ DATE UPDATE FUNCTION
.SFACY==:56			;SET MAX ARCHIVE EXP PERIOD
.SFRTW==:57			;SET [NO] RETRIEVAL WAITS NON-0 => NO WAIT
.SFTDF==:60			;TAPE MOUNT CONTROLS
  MT%UUT==1B0			;UNLOAD UNREADABLE TAPES
.SFWSP==:61			;WORKING SET PRELOADING
;206 Begin addition
.SFCHA==:65			;Turn on and off Chaos Net Access needed flag
;206 End addition

SF%FAC==:1B<.SFFAC>		;FACT ENTRIES ALLOWED
SF%CDE==:1B<.SFCDE>		;CHECKDISK FOUND ERRORS
SF%CDR==:1B<.SFCDR>		;CHECKDISK RUNNING
SF%MST==:1B<.SFMST>		;MANUAL START IN PROGRESS
SF%RMT==:1B<.SFRMT>		;REMOTE LOGINS ALLOWED
SF%PTY==:1B<.SFPTY>		;PTY LOGINS ALLOWED
SF%CTY==:1B<.SFCTY>		;CTY LOGIN ALLOWED
SF%OPR==:1B<.SFOPR>		;OPERATOR IN ATTENDANCE
SF%LCL==:1B<.SFLCL>		;LOCAL LOGINS ALLOWED
SF%BTE==:1B<.SFBTE>		;BIT TABLE ERRORS FOUND ON STARTUP
SF%CRD==:1B<.SFCRD>		;USER CAN CHANGE DIRECTORY CHARACTERISTICS
SF%NVT==:1B<.SFNVT>   ;TOPS20AN	;NVT LOGINS ALLOWED
SF%USG==:1B<.SFUSG>		;USAGE FILE IN USE
SF%FLO==:1B<.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.
SF%MTA==:1B<.SFMTA>		;MAGTAPE ALLOCATION ENABLED
SF%MS0==:1B<.SFMS0>		;SYSTEM MESSAGE LEVEL 0
SF%MS1==:1B<.SFMS1>		;SYSTEM MESSAGE LEVEL 1


SF%EOK==:1B0			;ENABLE ACCESS CHECKING
SF%DOK==:1B1			;ALLOW ACCESS IF CHECKING DISABLED


;SINM JSYS DEFINITIONS

SI%TMG==:1B0			;TRUNCATE MESSAGE
SI%EOM==:1B1			;END-OF-MESSAGE FOUND

;SIR JSYS (NEW FORM)

SI%VER==:7B17			;VERSION OF SIR IN T1
SI%LEV==:77B5			;LEVEL FIELD IN CHNTAB
SI%ADR==:7777,,-1		;ADDRESS OF INTERRUPT ROUTINE IN CHNTAB

;SKED JSYS

	.SACNT==:0		;ARGUMENT BLOCK OFFSET FOR COUNT

	;FUNCTION CODES

.SKRBC==:1			;READ BIAS CONTROL KNOB
	.SAKNB==:1		;OFFSET FOR KNOB VALUE
.SKSBC==:2			;SET BIAS CONTROL KNOB
.SKRCS==:3			;READ SHARE OF A CLASS
	.SACLS==:1		;CLASS
	.SASHR==:2		;SHARE
	.SAUSE==:3		;USE
	.SA1ML==:4		;1 MINUTE LOAD AVERAGE
	.SA5ML==:5		;5 MINUTE LOAD AVERAGE
	.SA15L==:6		;15 MINUTE LOAD
.SKSCS==:4			;SET SHARE OF A CLASS
.SKICS==:5			;START OR STOP CLASS SCHEDULING
	.SACTL==:1		;WORD FOR CONTROL BITS
.SKSCJ==:6			;SET CLASS OF A JOB
	.SAJOB==:1		;JOB
	.SAJCL==:2		;CLASS OF JOB
	.SAWA==:3		;WA ON/OFF SWITCH
.SKRJP==:7			;READ CLASS PARAMETERS FOR A JOB
	.SAJSH==:3		;JOB'S SHARE ALLOTMENT
	.SAJUS==:4		;JOB'S CURRENT USE
.SKBCR==:10			;READ CLASS SETTING FOR BATCH JOBS
	.SABCL==:1		;BATCH CLASS
.SKBCS==:11			;SET CLASS FOR BATCH JOBS
.SKBBG==:12			;RUN BATCH JOBS ON DREGS QUEUE
	.SADRG==:1		;WORD TO SPECIFY DREGS OR NOT
.SKDDC==:13			;SET SYSTEM CLASS DEFAULT
	.SADCL==:1		;DEFAULT CLASS WORD
.SKRCV==:14			;READ STATUS
	SK%ACT==:1B0		;CLASS BY ACCOUNTS
	SK%WDF==:1B1		;WITHHOLD WINDFALL
	SK%STP==:1B2		;CLASS SCHEDULER OFF
	SK%DRG==:1B3		;BATCH JOBS ARE BEING RUN ON DREGS QUEUE

;SJPRI, SPRIW - PRIORITY WORD

JP%RTG==:177B17			;RUN TIME GUARANTEE PERCENTAGE
JP%SYS==:1B18			;SYSTEM FORK (PRIORITY ABOVE ALL CLASSES)
JP%MNQ==:77B29			;MINIMUM QUEUE
JP%MXQ==:77B35			;MAXIMUM QUEUE
;SNOOP JSYS DEFINITIONS

;SNOOP FUNCTION CODES

.SNPLC==:0			;LOCK CODE INTO MONITOR VIRT MEMORY
.SNPLS==:1			;LOCK DOWN THE SWAPPABLE MONITOR
.SNPDB==:2			;DEFINE A BREAK POINT
.SNPIB==:3			;INSERT THE BREAK POINTS
.SNPRB==:4			;REMOVE THE BREAK POINTS
.SNPUL==:5			;UNLOCK AND RELEASE ALL SNOOP RESOURCES
.SNPSY==:6			;LOOK UP A MONITOR SYMBOL
.SNPAD==:7			;LOOK UP ADDRESS IN SYMBOL TABLE
.SNRMA==:10			;26 READ MONITOR ADDRESS-BREAK
.SNSMA==:11			;26 SET MONITOR ADDRESS BREAK
	SN%XCT==:1B9		;26 TRAP XCT ACCESS
	SN%RD==:1B10		;26 TRAP READ ACCESS
	SN%WR==:1B11		;26 TRAP WRITE ACCESS
	SN%UM==:1B12		;26 TRAP USERMODE ACCESS
	SN%ADR==:37777777	;26 TRAP ADDRESS (23 BITS)
;SOUTM JSYS DEFINITIONS

SO%WMG==1B0			;WRITE END-OF-MESSAGE

;SPOOL JSYS FUNCTION CODES

.SPLDI==:0			;DEFINE AN INPUT SPOOLING DEVICE
.SPLSD==:1			;SET DIRECTORY OF SPOOLED DEVICE
.SPLRD==:2			;READ DIRECTORY OF SPOOLED DEVICE

;FLAGS IN SPOOL MESSAGE ON LOGOUT AND SPOOLED FILE CLOSE

SP%BAT==:1B0			;JOB IS A BATCH JOB
SP%DFS==:1B1			;SPOOLING IS DEFERRED
SP%ELO==:1B2			;JOB EXECUTED LGOUT JSYS ITSELF
SP%FLO==:1B3			;JOB FORCED TO LOG OUT BY TRAP IN TOP FK
SP%OLO==:1B4			;OTHER JOB AIMED LGOUT AT THIS ONE

;SPOOL ARGUMENT BLOCK

.SPLDV==:0			;DEVICE DESIGNATOR
.SPLNA==:1			;NAME STRING
.SPLDR==:1			;DIRECTORY NUMBER
.SPLGN==:2			;GENERATION NUMBER


;SSAVE

SS%NNP==777777B17		;NEGATIVE NUMBER OF PAGES
SS%CPY==:1B18			;ALLOW COPY-ON-WRITE
SS%UCA==:1B19			;USE CURRENT ACCESS
SS%RD==:1B20			;ALLOW READ ACCESS
SS%WR==:1B21			;ALLOW WRITE ACCESS
SS%EXE==:1B22			;ALLOW EXECUTE ACCESS
SS%EPN==:1B23			;TABLE ENTRY IS TWO WORDS (PAGE NUMBER IN SECOND WORD)
SS%FPN==:1B27+377B35			;FIRST PAGE NUMBER


;STCMP

SC%LSS==:1B0			;T1 LESS THAN T2
SC%SUB==:1B1			;T1 SUBSTRING OF T2
SC%GTR==:1B2			;T1 GREATER THAN T2
;STDIR

ST%DIR==:1B0			;FILES ONLY DIRECTORY
ST%ANA==:1B1			;ALPHANUMERIC ACCOUNTS
ST%RLM==:1B2			;REPEAT LOGIN MESSAGE


;STIW

ST%DIM==:1B0			;SET DEFERRED INTERRUPT MASK
ST%PRH==:777777B35		;PROCESS HANDLE

;17 STTYP FLAGS IN T2
SY%PRM==:1B0			;MAKE THIS TYPE PERMANENT
SY%NTS==:1B1			;NO FURTHER TYPE SETTING ALLOWED FOR THIS LINE
SY%NSS==:1B2			;NO FURTHER SPEED SETTING ALLOWED "   "    "
;17 END

;SWTRP DEFINITIONS

.SWART==:0			;SET ARITHMETIC TRAP
.SWRAT==:1			;READ ARITHMETIC TRAP
.SWLUT==:2			;SET LUUO ADDRESS
.SWRLT==:3			;READ LUUO ADDRESS
	.ARPFL==:0		;OFFSET IN TRAP BLOCK FOR PC FLAGS
	.AROPC==:1		;OFFSET FOR OLD PC VALUE
	.AREFA==:2		;OFFSET FOR E
	.ARNPC==:3		;OFFSET FOR NEW PC WORD

;TBLUK

TL%NOM==:1B0			;NO MATCH
TL%AMB==:1B1			;AMBIGUOUS
TL%ABR==:1B2			;LEGAL ABBREVIATION
TL%EXM==:1B3			;EXACT MATCH


;TFORK

;FUNCTION CODES IN LH AC1

.TFSET==:0			;SET TRAPS AS SPEC'D BY BIT TABLE
.TFRAL==:1			;REMOVE ALL TRAPS SET BY THIS FORK
.TFRTP==:2			;REMOVE TRAPS SET BY THIS FORK
.TFSPS==:3			;SET JSYS TRAP PSI CHAN IN LH(2)
.TFRPS==:4			;READ JSYS TRAP PSI CHAN INTO LH(2)
.TFTST==:5			;TEST IF SELF MONITORED
.TFRES==:6			;REMOVE TRAPS FROM ALL INFERIORS, CLR PSI
.TFUUO==:7			;SET UUO TRAPS FOR FORK
.TFSJU==:8			;SET BOTH UUO AND JSYS TRAPS
.TFRUU==:9			;REMOVE UUO TRAPS

;TIMER DEFINITIONS

.TIMRT==:0			;SET TIME LIMIT
.TIMEL==:1			;SET ELAPSED TIME CLOCK
.TIMDT==:2			;SET DATE & TIME CLOCK
.TIMDD==:3			;DELETE AN EXPLICT DATE & TIME CLOCK
.TIMBF==:4			;DELETE ALL ENTIRES BEFORE D&T
.TIMAL==:5			;DELETE ALL (INCLUDES TIME LIMIT)
;TLINK

TL%CRO==:1B0			;CLEAR REMOTE TO OBJECT LINK
TL%COR==:1B1			;CLEAR OBJECT TO REMOTE LINK
TL%EOR==:1B2			;ESTABLIST OBJECT TO REMOTE LINK
TL%ERO==:1B3			;ESTABLISH REMOTE TO OBJECT LINK
TL%SAB==:1B4			;SET ACCEPT BIT FOR OBJECT
TL%ABS==:1B5			;ACCEPT BIT STATE
TL%STA==:1B6			;SET OR CLEAR ADVICE
TL%AAD==:1B7			;ACCEPT ADVICE
TL%OBJ==:777777B35		;OBJECT DESIGNATOR



;UFPGS

UF%NOW==:1B0			;NO WAIT ON UPDATE

;UTEST FUNCTION CODES

.UTSET==:0			;START TESTING
.UTCLR==:1			;STOP TESTING AND RETURN RESULTS

;UTEST ARGUMENT BLOCK

.UTADR==:0			;STARTING ADDRESS OF CODE
.UTLEN==:1			;LENGTH OF CODE
.UTMAP==:2			;START OF BIT MAP

;USAGE

.USENT==:0			;WRITE ENTRY
.USCLS==:1			;CLOSE OUT CURRENT FILE
.USCKP==:2			;PERFORM CHECKPOINT
.USLGI==:3			;LOGIN
.USLGO==:4			;LOGOUT
.USSEN==:5			;SESSION END
.USCKI==:6			;SET CHECKPOINT INTERVAL
.USENA==:7			;ENABLE ACCOUNT VALIDATION
.USCAS==:10			;CHANGE ACCOUNTING SHIFT NOW
.USSAS==:11			;SET AUTOMATIC ACCOUNTING SHIFT CHANGE TIMES
.USRAS==:12			;READ AUTOMATIC ACCOUNTING SHIFT CHANGE TIMES
				;TABLE ENTRY FORMAT FOR .USSAS/.USRAS:
 US%DOW==:177B6			;DAY-OF-WEEK BITS
 US%SSM==:777777		;TIME IN SECONDS SINCE MIDNIGHT

;UTFRK

UT%TRP==:1B0			;ITRAP (OR DO ERJMP/ERCAL) TRAPPED JSYS
;WILD FUNCTIONS

.WLSTR==:0			;COMPARE TWO STRINGS
.WLJFN==:1			;COMPARE TWO JFNS

;WILD FLAGS AND BITS

WL%LCD==:1B0			;DON'T CONVERT LOWER CASE TO UPPER CASE
WL%NOM==:1B0			;STRINGS DID NOT MATCH
WL%ABR==:1B1			;NON-WILD STRING IS ABBREVIATION OF WILD STRING
WL%DEV==:1B1			;DEVICE FIELD DID NOT MATCH
WL%DIR==:1B2			;DIRECTORY FIELD DID NOT MATCH
WL%NAM==:1B3			;NAME FIELD DID NOT MATCH
WL%EXT==:1B4			;FILE TYPE DID NOT MATCH
WL%GEN==:1B5			;GENERATION NUMBER DID NOT MATCH

;ARGUMENT BLOCK OFFSETS FOR XSIR AND XRIR JSYS'S

.SICNT==:0			;LENGTH OF BLOCK
.SILVT==:1			;ADDRESS OF LEVEL TABLE
.SICHT==:2			;ADDRESS OF CHANNEL TABLE


;SCHEDULER CONTROL FLAGS (JSYS NOT YET DEFINED)

SK%CYT==:1B18			;CYCLE TIME
SK%IOC==:1B19			;IO QUANTUM CHARGE
SK%HT1==:1B20			;LIMIT HOLD TIME
SK%HT2==:1B21			;NO HOLD TIME AFTER SKIPPED FORK
SK%HQR==:1B22			;HIGH QUEUE FORK HAVE PRIORITY UNDER LOAD
SK%CL1==:1B23			;CLASS SKED, USE NORMAL QUEUE PRIORITIES IF 1
;SK%BQE==:1B24			;BALSET QUEUE ON ENTRY
SK%RSQ==:1B25			;QUICK RESCHEDULE ON WAKEUPS
SK%RQ1==:1B26			;REQUEUE TO QUEUE 1
SK%TTP==:1B27			;TTY PREFERENCE
SK%WCF==:1B28			;WAIT CREDIT PROPORTIONAL TO LOAD AV
SK%TOP==:1B29			;TTY OUTPUT PREFERENCE
SK%RQM==:1B30			;REQUEUE DEPENDS ON MEM DEMAND

;XSSEV, XGSEV

.XSEVC==:0			;TOPS10 COMPATIBILITY VECTOR
.XSEVD==:1			;RMS VECTOR

XS%EEV==:1B1			;ENTENDED ENTRY VECTOR

;1001 Begin addition

;OPEN - TCP connection establishment
;AC1 LH flags:
TCP%JS==1B0	; JCN Supplied in RH instead of connection block adr
		; This bit must be zero for OPEN
TCP%WT==1B1	; Wait for completion
TCP%FS==1B5	; Force Synchronization (active OPEN)
TCP%PS==1B6	; Persistent open (retry on error) (OPEN)
TCP%ST==1B7	; Return statistics (STAT)
TCP%SC==1B8	; Secure connection (OPEN, SEND)
TCP%HP==1B9	; High priority (OPEN, SEND) (OBSOLETE)
TCP%SY==1B9	; Symbolic name list given (STAT)
TCP%VT==1B10	; TCP Virtual Terminal (OPEN)
TCP%TV==1B11	; TVT Supplied (STAT)
TCP%NT==1B12	; Return AOBJN pointer over TVTs (STAT)
TCP%IX==1B13	; Connection index supplied (STAT)
TCP%NI==1B14	; Return AOBJN pointer over connections (STAT)
TCP%SD==1B15	; Return STAT definitions instead of values (STAT)
TCP%ET==1B16	; ERROR info flag
TCP%PT==1B17	; Packet trace flag
; The connection block format is
.TCPLH==^D0	;reserved Local host (internet format), bits 5-35
.TCPLP==^D1	; Local port, bits 20-35
.TCPFH==^D2	; Foreign host (internet format), bits 5-35
.TCPFP==^D3	; Foreign port, bits 20-35
.TCPOP==^D4	; LH - Address of IP options, or 0 if none
		; RH - Address of TCP options, or 0 if none
  .TCPOW==^D10	; Size (w) of each.  Both are read with a POINT 8,adr
.TCPIP==^D5	; IP parameters (Flag=3B1, TTL=377B17, TOS=377B35)
.TCPCS==^D6	; Size of connection block

;RCVIN - IP receive datagram
;AC1 flags:
RIQ%NW==1B0	; Return with Error code -1 if no message is waiting
		; Otherwise wait for a message
; Message buffer format:
.INQBH==^D0	; Buffer head, LH set to actual length, RH max length
		; Lengths include buffer header (IP + message + .INQIH)
.INQIH==^D1	; First word of IP header and message

;RECV - TCP buffer receive
; The header block format is
.TCPBF==^D0	; Buffer flag word, RH for use by user
TCP%ER==1B0	; ERROR
TCP%LE==1B1	; Local error flag (0 is remote)
TCP%PE==1B2	; Permanent error (0 is temporary)
TCP%EC==37B7	; Error code w/o flags
TCP%DN==1B12	; DONE
TCP%UR==1B15	; URGENT data
TCP%EL==1B16	;obsolete	; PUSH buffered data
TCP%PU==1B16	; PUSH buffered data
TCP%WM==1B17	; WORD mode (unimplemented)
.TCPBA==^D1	; Buffer address, data in bits 0-31
.TCPBC==^D2	; Buffer octet count
		; Octets to send, octets unsent (SEND)
		; Octets available, octets unused (RECV)
.TCPBO==^D3	; Buffer option addresses
 .TCPOW==^D10	; Buffer option address word count
.TCPBI==^D4	; Buffer IP info
.TCPBS==^D5	; Size of buffer header
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY MANY JSYSES
;***********************************************


;GENERAL FORK HANDLES

.FHSLF==:400000			;SELF
 FH%EPN==:1B19			;EXTENDED PAGE NUMBER
.FHSUP==:<Z -1>			;SUPERIOR
.FHTOP==:<Z -2>			;TOP IN JOB
.FHSAI==:<Z -3>			;SELF AND INFERIORS
.FHINF==:<Z -4>			;INFERIORS
.FHJOB==:<Z -5>			;ALL IN JOB


;FIELDS OF JFN MODE WORD

TT%OSP==:1B0			;OUTPUT SUPPRESS
TT%MFF==:1B1			;MECHANICAL FORMFEED PRESENT
TT%TAB==:1B2			;MECHANICAL TAB PRESENT
TT%LCA==:1B3			;LOWER CASE CAPABILITIES PRESENT
TT%LEN==:177B10			;PAGE LENGTH
TT%WID==:177B17			;PAGE WIDTH
TT%WAK==:17B23			;WAKEUP FIELD
TT%WK0==:1B18			;WAKEUP CLASS 0 (UNUSED)
TT%IGN==:1B19			;IGNORE TT%WAK ON SFMOD
TT%WKF==:1B20			;WAKEUP ON FORMATING CONTROL CHARS
TT%WKN==:1B21			;WAKEUP ON NON-FORMATTING CONTROLS
TT%WKP==:1B22			;WAKEUP ON PUNCTUATION
TT%WKA==:1B23			;WAKEUP ON ALPHANUMERICS
TT%ECO==:1B24			;ECHOS ON
TT%ECM==:1B25			;ECHO MODE
TT%ALK==:1B26			;ALLOW LINKS
TT%AAD==:1B27			;ALLOW ADVICE (NOT IMPLEMENTED)
TT%DAM==:3B29			;DATA MODE
.TTBIN==:0			;BINARY
.TTASC==:1			;ASCII
.TTATO==:2			;ASCII AND TRANSLATE OUTPUT ONLY
.TTATE==:3			;ASCII AND TRANSLATE ECHOS ONLY
TT%UOC==:1B30			;UPPER CASE OUTPUT CONTROL
TT%LIC==:1B31			;LOWER CASE INPUT CONTROL
TT%DUM==:3B33			;DUPLEX MODE
.TTFDX==:0			;FULL DUPLEX
.TT0DX==:1			;NOT USED, RESERVED
.TTHDX==:2			;HALF DUPLEX (CHARACTER)
.TTLDX==:3			;LINE HALF DUPLEX
TT%PGM==:1B34			;PAGE MODE
TT%CAR==:1B35			;CARRIER STATE

;99 Begin addition
; Terminal characteristics word
TC%MOV==1B0			; Absolute or relative cursor motion
TC%BS== 1B1			; Cursor back at least (backspace)
TC%HOM==1B2			; Home to top left hand corner
TC%CLR==1B3			; Clear entire screen at least
TC%SCL==1B4			; Clear selective portions of screen
TC%LID==1B5			; Line insert/delete
TC%CID==1B6			; Character insert/delete
TC%VBL==1B7			; Visible bell
TC%MET==1B8			; Has META (8-bit) key
TC%SCR==1B9			; Scrolls on down from bottom line
TC%RSC==1B10			; Reverse-scrolls on up from top-line
TC%OVR==1B11			; Overwrites
TC%FCI==1B12			;221 Has full 12-bit input capability

TC%PRT==1B17			; Printing terminal
TC%WRP==1B18			; Outputting in last line pos will CRLF
; Terminal mode word
TM%DPY==1B0			; Process ^P codes
TM%SCR==1B1			; Scroll mode / Wrap mode
TM%MOR==1B2			; More processing enabled
TM%MVR==1B3			; Verbose sort of more
TM%MSM==1B4			; Smart about more
TM%VBL==1B5			; Use visible bell for ^G
TM%GRF==1B6			;289 Perform Graphics Functions
TM%RSU==1B7			;+++

TM%ITP==1B17			; Intelligent terminal protocol in use
;99 End addition
;290 Begin Addition
; Terminal Graphics Variable Bits

TQ%GRF==:1B17			;TERMINAL UNDERSTANDS GRAPHICS PROTOCOL
TQ%SET==:1B16			;TERMINAL SUPPORTS MULTIPLE SETS
TQ%REC==:1B15			;TERMINAL IMPLEMENTS RECTANGLE COMMANDS
TQ%XOR==:1B14			;TERMINAL IMPLEMENTS XOR'ING
TQ%BNK==:1B13			;TERMINAL IMPLEMENTS A STAND-OUT MODE
TQ%VIR==:1B12			;TERMINAL IMPLEMENTS VIRTUAL COORDS
TQ%WID==:17B11			;CHARACTER WIDTH IN GRAPHIC UNITS
TQ%HGT==:76B7			;CHARACTER HEIGHT IN GRAPHIC UNITS
			; THESE NEXT TWO ARE LIKELY TO GET MOVED TO THE
			; LEFT HALFWORD SOME DAY
TR%GIN==:1B18			;TERMINAL HAS A GRAPHICS INPUT DEVICE
TR%GHC==:1B19			;TERMINAL HAS A HARDCOPY OUTPUT DEVICE

;290 End Addition
;DIRECTORY PROTECTION DEFINITIONS (3 6-BIT FIELDS: OWNER, GROUP, WORLD)

DP%RD==:40			;READING DIRECTORY IS ALLOWED
DP%CN==:10			;CONNECT TO DIR, OR CHANGE PROT/ACCOUNT
DP%CF==:4			;CREATING FILES IN DIR IS ALLOWED

;FILE PROTECTION DEFINITIONS (3 6-BIT FIELDS: OWNER, GROUP, WORLD)

FP%DIR==:2			;DIRECTORY LISTING
FP%APP==:4			;APPEND
FP%EX==:10			;EXECUTE
FP%WR==:20			;WRITE
FP%RD==:40			;READ


;INPUT AND OUTPUT IDENTIFIERS

.PRIIN==:100			;PRIMARY INPUT
.PRIOU==:101			;PRIMARY OUTPUT
.NULIO==:377777			;NULL DESIGNATOR
.SIGIO==:677777			;27 SIGNAL JFN
.CTTRM==:777777			;JOB'S CONTROLLING TERMINAL
.DVDES==:600000			;UNIVERSAL DEVICE CODE
.TTDES==:400000			;UNIVERSAL TERMINAL CODE


;MAGTAPE DEVICE STATUS BITS

MT%ILW==:1B18			;ILLEGAL WRITE
MT%DVE==:1B19			;DEVICE ERROR
MT%DAE==:1B20			;DATA ERROR
MT%SER==:1B21			;SUPPRESS ERROR RECOVERY PROCEDURES
MT%EOF==:1B22			;EOF (FILE MARK)
MT%IRL==:1B23			;INCORRECT RECORD LENGTH
MT%BOT==:1B24			;BEGINNING OF TAPE
MT%EOT==:1B25			;END OF TAPE
MT%EVP==:1B26			;EVEN PARITY
MT%DEN==:3B28			;DENSITY (0 IS 'NORMAL')
.MTLOD==:1			;LOW DENSITY (200 BPI)
.MTMED==:2			;MEDIUM DENSITY (556 BPI)
.MTHID==:3			;HIGH DENSITY (800 BPI)
MT%CCT==:7B31			;CHARACTER COUNTER
MT%NSH==:1B32			;DATA MODE OR DENSITY NOT SUPPORTED BY HARDWARE


;DEVICE DATA MODES

.DMASC==:1			;ASCII
.DMIMG==:10			;IMAGE
.DMIMB==:13			;IMAGE BINARY
.DMBIN==:14			;BINARY
;DEFINED PSI CHANNELS

.ICAOV==:6			;ARITHMETIC OVERFLOW
.ICFOV==:7			;FLOATING OVERFLOW
.ICPOV==:^D9			;PDL OVERFLOW
.ICEOF==:^D10			;END OF FILE
.ICDAE==:^D11			;DATA ERROR
.ICQTA==:^D12			;QUOTA/DISK EXCEEDED
.ICTOD==:^D14			;TIME OF DAY (NOT IMPLEMENTED)
.ICILI==:^D15			;ILLEG INSTRUCTION
.ICIRD==:^D16			;ILLEGAL READ
.ICIWR==:^D17			;ILLEGAL WRITE
.ICIEX==:^D18			;ILLEGAL EXECUTE (NOT IMPLEMENTED)
.ICIFT==:^D19			;INFERIOR FORK TERMINATION
.ICMSE==:^D20			;MACHINE SIZE EXCEEDED
.ICTRU==:^D21			;TRAP TO USER (NOT IMPLEMENTED)
.ICNXP==:^D22			;NONEXISTENT PAGE REFERENCED
;TERMINAL TYPE NUMBERS

.TT33==:0			;MODEL 33
.TT35==:1			;MODEL 35
.TT37==:2			;MODEL 37
.TTTI==:3			;2 TI
.TTIMX==:4			;2 IMLAX
.TTDM==:5			;2 DM2500
.TTHP==:6			;2 HP2640
.TTNVT==:7			;2 NVT
.TTDEF==:^D8			;DEFAULT
.TTIDL==:^D9			;IDEAL
.TTV05==:^D10			;VT05
.TTV50==:^D11			;VT50
.TTL30==:^D12			;LA30
.TTG40==:^D13			;GT40
.TTL36==:^D14			;LA36
.TTV52==:^D15			;VT52
repeat 0,<			;400 use MIT standard numbers instead
.TT100==:^D16			;VT100
.TTL38==:^D17			;LA38
.TT120==:^D18			;LA120
> ;400 Remove these lines
;& Begin modification
.TTGLS==:^D16			;2 GLASS TTY
.TTFOX==:^D17			;35 FOX 1100
.TTV10==:^D18			;105 VT100 (in VT52 mode)
.TTT10==:^D19			;126 Teleray 1061
.TTH19==:^D20			;131 Heath 19
.TTC10==:^D21			;141 Concept 100
.TT100==:^D22			;VT100 (in ANSI mode)
.TTL38==:^D23			;LA38
.TT120==:^D24			;LA120
.TTPTV==:^D25			;Plasma TV
.TTSUP==:^D26			;99 SUPDUP VT
.TTHP0==:^D27			;207 HP2645
.TTAMB==:^D28			;289 Ann Arbor Ambassador
.TTAAA==:.TTAMB			;289 Alternate name
.TTBBN==:^D29			;289 BBN Bitgraph
;& End modification

.TT125==:^D35			;VT125
.TTK10==:^D36			;VK100 - GIGI

;DEFINED TERMINAL CODES

.TICBK==:0			;BREAK
.TICCA==:1			;^A
.TICCB==:2			;^B
.TICCC==:3			;^C
.TICCD==:4			;^D
.TICCE==:5			;^E
.TICCF==:6			;^F
.TICCG==:7			;^G
.TICCH==:^D8			;^H
.TICCI==:^D9			;^I
.TICCJ==:^D10			;^J
.TICCK==:^D11			;^K
.TICCL==:^D12			;^L
.TICCM==:^D13			;^M
.TICCN==:^D14			;^N
.TICCO==:^D15			;^O
.TICCP==:^D16			;^P
.TICCQ==:^D17			;^Q
.TICCR==:^D18			;^R
.TICCS==:^D19			;^S
.TICCT==:^D20			;^T
.TICCU==:^D21			;^U
.TICCV==:^D22			;^V
.TICCW==:^D23			;^W
.TICCX==:^D24			;^X
.TICCY==:^D25			;^Y
.TICCZ==:^D26			;^Z
.TICES==:^D27			;ESC
.TICRB==:^D28			;RUBOUT
.TICSP==:^D29			;SPACE
.TICRF==:^D30			;CARRIER OFF
.TICTI==:^D31			;TYPEIN
.TICTO==:^D32			;TYPEOUT

.TICMR==:^D35			;3002 FLUSH TYPEOUT

;CAPABILITIES

SC%CTC==:1B0			;CONTROL-C
SC%GTB==:1B1			;GETAB
SC%MMN==:1B2			;MAP MONITOR
SC%LOG==:1B3			;LOGGING FUNCTIONS
SC%MPP==:1B4			;MAP PRIVILEGED PAGES
SC%SDV==:1B5			;SPECIAL DEVICES
SC%SCT==:1B6			;ASSIGN TTY AS CONTROLLING FOR FORK (SCTTY)

SC%SUP==:1B9			;SUPERIOR ACCESS

SC%FRZ==:1B17			;FREEZE ON TERMINATING CONDITIONS

SC%WHL==:1B18			;WHEEL
SC%OPR==:1B19			;OPERATOR
SC%CNF==:1B20			;CONFIDENTIAL INFORMATION ACCESS
SC%MNT==:1B21			;MAINTENANCE
SC%IPC==:1B22			;IPCF PRIVILEGES
SC%ENQ==:1B23			;ENQ/DEQ PRIVILEGES
SC%NWZ==:1B24	      ;TOPS20AN	;NET WIZARD PRIVILEGES (ASNSQ, ETC.)
SC%NAS==:1B25	      ;TOPS20AN	;NETWORK ABSOLUTE SOCKET PRIVILEGE
SC%DNA==:1B26			;DECNET ACCESS ALLOWED
SC%ANA==:1B27	      ;TOPS20AN ;ARPANET ACCESS ALLOWED

SC%CHA==:1B34			;206 LOCAL MIT ;CHAOS NET PRIVILEGES
SC%LSA==:1B35			;221 build login dirs privilege


;OUTMODED NAMES FOR BITS IN DIRECTORY MODE WORD - USE CD%XXX
;EQUIVALENTS

MD%FO==:CD%DIR			;FILES ONLY DIRECTORY
MD%SA==:CD%ANA			;STRING ACCOUNT ALLOWED
MD%RLM==:CD%RLM			;REPEAT LOGIN MESSAGE
;FDB DEFINITIONS


.FBHDR==:0			;HEADER WORD
	FB%LEN==:177B35		;LENGTH OF THIS FDB
.FBCTL==:1			;FLAGS
	FB%TMP==:1B0		;FILE IS TEMPORARY
	FB%PRM==:1B1		;FILE IS PERMANENT
	FB%NEX==:1B2		;FILE DOES NOT HAVE AN EXTENSION YET
	FB%DEL==:1B3		;FILE IS DELETED
	FB%NXF==:1B4		;FILE IS NONEXISTENT
	FB%LNG==:1B5		;FILE IS A LONG FILE
	FB%SHT==:1B6		;FILE HAS COMPRESSED PAGE TABLE
	FB%DIR==:1B7		;FILE IS A DIRECTORY FILE
	FB%NOD==:1B8		;FILE IS NOT TO BE DUMPED BY BACKUP SYSTEM
	FB%BAT==:1B9		;FILE HAS AT LEAST ONE BAD PAGE IN IT
	FB%SDR==:1B10		;THIS DIRECTORY HAS SUBDIRECTORIES
	FB%ARC==:1B11		; File has archive status
	FB%INV==:1B12		; File is invisible
	FB%OFF==:1B13		; File is offline
	FB%FCF==:17B17		;FILE CLASS FIELD
	  .FBNRM==:0		;NON-RMS
	  .FBRMS==:1		;RMS FILES
;& Begin modification
	  .FBKEP==:3		; KEEP THIS PROGRAM
	  .FBEPH==:4		; EPHEMERAL
; Note:  Our local bits have been squeezed into the RH, not so sure
; this is a Good Thing.
	FB%UND==:1B35		;5 PERPETUAL FILE
;& End modification
	FB%NDL==:1B18		;FILE CANNOT BE DELETED
	FB%WNC==:1B19		;LAST WRITE NOT CLOSED
.FBEXL==:2			;LINK TO FDB OF NEXT EXTENSION
.FBADR==:3			;DISK ADDRESS OF INDEX BLOCK
.FBPRT==:4			;PROTECTION OF THE FILE
.FBCRE==:5			;TIME AND DATE OF LAST WRITE
.FBUSE==:6			;LAST WRITER ,, AUTHOR (OBS)
.FBAUT==:6			;POINTER TO AUTHOR STRING
.FBGEN==:7			;GENERATION ,, DIR #
	FB%GEN==:777777B17	;GENERATION NUMBER
.FBDRN==:7			;GENERATION ,, DIR #
	FB%DRN==:777777		;DIR NUMBER
.FBACT==:10			;ACCOUNT
.FBBYV==:11			;RETENTION+BYTE SIZE+MODE ,, # OF PAGES
	FB%RET==:77B5		;RETENTION COUNT
 	FB%BSZ==:77B11		;BYTE SIZE
	FB%MOD==:17B17		;LAST OPENF MODE
	FB%PGC==:777777	;PAGE COUNT
.FBSIZ==:12			;EOF POINTER
.FBCRV==:13			;TIME AND DATE OF CREATION OF FILE
.FBWRT==:14			;TIME AND DATE OF LAST USER WRITE
.FBREF==:15			;TIME AND DATE OF LAST NON-WRITE ACCESS
.FBCNT==:16			;# OF WRITES ,, # OF REFERENCES
.FBBK0==:17			;BACKUP WORDS (5)
.FBBK1==:20
.FBBK2==:21
.FBBBT==:22			; Bits,,#pages in offline file
	AR%RAR==:1B1		; Request archive by user
	AR%RIV==:1B2		; Request invol migration by system
	AR%NDL==:1B3		; Do not delete contents of file when archived
	AR%NAR==:1B4		; Please don't migrate this file
	AR%EXM==:1B5		; File exempt from migration
	AR%1ST==:1B6		; 1st pass of archive/collection run complete
	AR%RFL==:1B7		; Retrieve failed
	AR%WRN==:1B8		; USER WARNED OF APPROACHING EXPIRATION
	AR%RSN==:7B17		; Reason pushed offline
	  .AREXP==:1		; File expired
	  .ARARR==:2		; Archive was requested
	  .ARRIR==:3		; Migration was requested
	AR%PSZ==:777777	; RH is pg count when file went offline
.FBNET==:23			; On-line expiration date/interval
.FBUSW==:24			;USER SETTABLE WORD
.FBGNL==:25			;LINK TO NEXT GENERATION FILE
.FBNAM==:26			;POINTER TO NAME BLOCK
.FBEXT==:27			;POINTER TO EXTENSION BLOCK
.FBLWR==:30			;POINTER TO LAST WRITER STRING
.FBTDT==:31			; Archive or collection date & time
.FBFET==:32			; Offline expiration date/interval
.FBTP1==:33			; Tape ID for run 1 tape
.FBSS1==:34			; Saveset #,,Tape file # for run 1 tape
.FBTP2==:35			; Tape ID for run 2 tape
.FBSS2==:36			; Saveset #,,Tape file # for run 2 tape

.FBLN0==:30			;LENGTH OF VERSION 0 FDB
.FBLN1==:31			;LENGTH OF VERSION 1 FDB
.FBLXT==:37			; Minimum length for archive/virtual dsk sys
.FBLEN==:37			;LENGTH OF THE FDB
;CARD READER DEFINITIONS

.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

NMFLG==:7B2
NUMVAL==:5


;MAGTAPE LABEL TYPES

.LTUNL==:1			;UNLABELED
.LTANS==:2			;ANSI STANDARD
.LTEBC==:3			;EBCDIC
.LTT20==:4			;TOPS-20
.LTMAX==:4			;MAXIMUM LABEL TYPE

;MAGTAPE LABEL STATES

.LSUNL==:0			;UNLABELLED VOLUME
.LSPRI==:1			;PRIVATE VOLUME
.LSSCR==:2			;SCRATCH VOLUME
.LSUSC==:3			;USER SCRATCH VOLUME

; MAGTAPE DRIVE TYPES

.TMDR9==:1			;9-TRACK
.TMDR7==:2			;7-TRACK
.TMDMX==:2			;MAXIMUM DRIVE-TYPE VALUE



;DEFINITIONS FOR COMMUNICATIONS PROTOCOLS

;DEFINE THE SUPPORTED PROTOCOL TYPES

.VN20F==:0			;RSX20F PROTOCOL
.VNMCB==:1			;MCB DECNET PROTOCOL
.VND60==:2			;DN60 PROTOCOL
.VNDDC==:2			;DDCMP PROTOCOL
.VNMOP==:3			;MOP (DDCMP MAINTENANCE) MODE
.VNCNL==:4			;CONTROLLER LOOPBACK
.VNCBL==:5			;CABLE LOOPBACK

;DEFINE BITS USED WHEN RELOADING AN -11

RM%ROM==:1B0			;IF SET, ACTIVATE ROM

;99 Begin addition
; VTS function codes

	.VTCNT==:1		; First arg is repeat count unless otherwise
				;  defined

.VTNOP==:0			; NOP - force cursor update
.VTFWD==:1			; Cursor forward
.VTBCK==:2			; Cursor back
.VTUP==:3			; Cursor up
.VTDWN==:4			; Cursor down
.VTHRZ==:5			; Set horizontal pos
	.VTHRA==:1			; value
.VTVRT==:6			; Set vertical pos
	.VTVRA==:1			; value
.VTMOV==:7			; Move cursor (x and y)
	.VTPOS==:1			; Y coord,,X coord
.VTHOM==:10			; Home up
.VTHMD==:11			; Home down
.VTADV==:12			; Advance to next line
.VTSAV==:13			; Save pos
.VTRES==:14			; Restore pos
.VTCLR==:15			; Clear window
.VTCEW==:16			; Clear to end-of-window
.VTCEL==:17			; Clear to end-of-line
.VTERA==:20			; Erase character ???
.VTBEC==:21			; Backspace and erase
.VTLID==:22			; Line insert/delete
;	.VTCNT==:1			; Repeat count
	.VTYLM==:2			; First line,,Last line
.VTCID==:23			; Character insert/delete
;	.VTCNT==:1			; Repeat count
	.VTXLM==:2			; First char,,Last char
.VTESC==:24			; Output VTS escape
; DPYOP JSYS (this should really be in the proper alphabetical place)

; Flags in AC2

DP%AG1==1B1			; First arg (in 3) exists
DP%AG2==1B2			; 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.

.NSCZD==:01			;CLOSED
.NSPND==:02			;PENDING
.NSLSN==:03			;LISTENING
.NSRCR==:04			;REQUEST FOR CONNECTION RECEIVED
.NSCW1==:05			;CLOSE WAIT SUB ONE (NCP CLOSE)
.NSRCS==:06			;REQUEST FOR CONNECTION SENT
.NSOPN==:07			;OPENED
.NSCSW==:10			;CLOSE WAIT (NCP CLOSE)
.NSDTW==:11			;FINAL DATA WAIT
.NSRF1==:12			;RFNM WAIT SUB ONE (NORMAL NCP CLOSE)
.NSCZW==:13			;CLOSE WAIT (PROGRAM CLOSE)
.NSRF2==:14			;RFNM WAIT SUB TWO (UNEXPECTED NCP CLOSE)
.NSFRE==:16			;FREE

;HOST STATUS BITS

HS%UP==1B0			;HOST IS UP
HS%VAL==1B1			;VALID STATUS
HS%DAY==7B4			;DAY WHEN UP IF DOWN
HS%HR==37B9			;HOUR
HS%MIN==17B13			;5 MIN INTERVAL
HS%RSN==17B17			;REASON
HS%SRV==1B18			;HOST IS SERVER
HS%USR==1B19			;HOST IS USER
HS%NCK==1B20			;HOST NAME STRING WAS NICKNAME
HS%STY==77B26			;SYSTEM TYPE MASK
HS%NEW==1B27			;HOST DOES NEW PROTOCOL
HS%NAM==1B28			;HOST HAS NAME
HS%SLF==1B29			;1001 Host is one of my alias'

.HS10X==1B26			;TENEX
.HSITS==2B26			;ITS
.HSDEC==3B26			;TOPS-10
.HSTIP==4B26			;TIP
.HSMTP==5B26			;MTIP
.HSELF==6B26			;ELF
.HSANT==7B26			;ANTS
.HSMLT==10B26			;MULTICS
.HST20==11B26			;TOPS-20
.HSUNX==12B26			;UNIX
.HSNET==13B26			;1001 Network
;ERROR CODE DEFINITIONS

	.ERBAS==:600000		;BASE VALUE FOR ALL ERROR CODES

DEFINE .ERCOD <

.ERR (10,LGINX1,<>)
.ERR (11,LGINX2,<>)
.ERR (12,LGINX3,<>)
.ERR (13,LGINX4,<>)
.ERR (14,LGINX5,<>)
.ERR (15,LGINX7,<>)

.ERR (20,CRJBX1,<>)
.ERR (21,CRJBX2,<>)
.ERR (22,CRJBX3,<>)
.ERR (23,CRJBX4,<>)
.ERR (24,CRJBX5,<>)
.ERR (25,CRJBX6,<>)
.ERR (26,CRJBX7,<>)
.ERR (35,LOUTX1,<>)
.ERR (36,LOUTX2,<>)
.ERR (45,CACTX1,<>)
.ERR (46,CACTX2,<>)
.ERR (50,EFCTX1,<>)
.ERR (51,EFCTX2,<>)
.ERR (52,EFCTX3,<>)
.ERR (55,GJFX1,<>)
.ERR (56,GJFX2,<>)
.ERR (57,GJFX3,<>)
.ERR (60,GJFX4,<>)
.ERR (61,GJFX5,<>)
.ERR (62,GJFX6,<>)
.ERR (63,GJFX7,<>)
.ERR (64,GJFX8,<>)
.ERR (65,GJFX9,<>)
.ERR (66,GJFX10,<>)
.ERR (67,GJFX11,<>)
.ERR (70,GJFX12,<>)
.ERR (71,GJFX13,<>)
.ERR (72,GJFX14,<>)
.ERR (73,GJFX15,<>)
.ERR (74,GJFX16,<>)
.ERR (75,GJFX17,<>)
.ERR (76,GJFX18,<>)
.ERR (77,GJFX19,<>)
.ERR (100,GJFX20,<>)
.ERR (101,GJFX21,<>)
.ERR (102,GJFX22,<>)
.ERR (103,GJFX23,<>)
.ERR (104,GJFX24,<>)
.ERR (107,GJFX27,<>)
.ERR (110,GJFX28,<>)
.ERR (111,GJFX29,<>)
.ERR (112,GJFX30,<>)
.ERR (113,GJFX31,<>)
.ERR (114,GJFX32,<>)
.ERR (115,GJFX33,<>)
.ERR (116,GJFX34,<>)
.ERR (117,GJFX35,<>)
.ERR (120,OPNX1,<>)
.ERR (121,OPNX2,<>)
.ERR (122,OPNX3,<>)
.ERR (123,OPNX4,<>)
.ERR (124,OPNX5,<>)
.ERR (125,OPNX6,<>)
.ERR (126,OPNX7,<>)
.ERR (127,OPNX8,<>)
.ERR (130,OPNX9,<>)
.ERR (131,OPNX10,<>)
.ERR (133,OPNX12,<>)
.ERR (134,OPNX13,<>)
.ERR (135,OPNX14,<>)
.ERR (136,OPNX15,<>)
.ERR (137,OPNX16,<>)
.ERR (140,OPNX17,<>)
.ERR (141,OPNX18,<>)
.ERR (142,OPNX19,<>)
.ERR (143,OPNX20,<>)
.ERR (144,OPNX21,<>)
.ERR (145,OPNX22,<>)
.ERR (150,DESX1,<>)
.ERR (151,DESX2,<>)
.ERR (152,DESX3,<>)
.ERR (153,DESX4,<>)
.ERR (154,DESX5,<>)
.ERR (155,DESX6,<>)
.ERR (156,DESX7,<>)
.ERR (157,DESX8,<>)
.ERR (160,CLSX1,<>)
.ERR (161,CLSX2,<>)
.ERR (165,RJFNX1,<>)
.ERR (166,RJFNX2,<>)
.ERR (167,RJFNX3,<>)
.ERR (170,DELFX1,<>)
.ERR (175,SFPTX1,<>)
.ERR (176,SFPTX2,<>)
.ERR (177,SFPTX3,<>)
.ERR (200,CNDIX1,<>)
.ERR (202,CNDIX3,<>)
.ERR (204,CNDIX5,<>)
.ERR (210,SFBSX1,<>)
.ERR (211,SFBSX2,<>)
.ERR (215,IOX1,<>)
.ERR (216,IOX2,<>)
.ERR (217,IOX3,<>)
.ERR (220,IOX4,<>)
.ERR (221,IOX5,<>)
.ERR (222,IOX6,<>)
.ERR (240,PMAPX1,<>)
.ERR (241,PMAPX2,<>)
.ERR (245,SPACX1,<>)
.ERR (250,FRKHX1,<>)
.ERR (251,FRKHX2,<>)
.ERR (252,FRKHX3,<>)
.ERR (253,FRKHX4,<>)
.ERR (254,FRKHX5,<>)
.ERR (255,FRKHX6,<>)
.ERR (260,SPLFX1,<>)
.ERR (261,SPLFX2,<>)
.ERR (262,SPLFX3,<>)
.ERR (267,GTABX1,<>)
.ERR (270,GTABX2,<>)
.ERR (271,GTABX3,<>)
.ERR (273,RUNTX1,<>)
.ERR (275,STADX1,<>)
.ERR (276,STADX2,<>)
.ERR (300,ASNDX1,<>)
.ERR (301,ASNDX2,<>)
.ERR (302,ASNDX3,<>)
.ERR (320,ATACX1,<>)
.ERR (321,ATACX2,<>)
.ERR (322,ATACX3,<>)
.ERR (323,ATACX4,<>)
.ERR (324,ATACX5,<>)
.ERR (332,STDVX1,<>)
.ERR (335,DEVX1,<>)
.ERR (336,DEVX2,<>)
.ERR (337,DEVX3,<>)
.ERR (345,MNTX1,<>)
.ERR (346,MNTX2,<>)
.ERR (347,MNTX3,<>)
.ERR (350,TERMX1,<>)
.ERR (351,TLNKX1,<>)
.ERR (352,ATIX1,<>)
.ERR (353,ATIX2,<>)
.ERR (356,TLNKX2,<>)
.ERR (357,TLNKX3,<>)
.ERR (360,TTYX1,<>)
.ERR (361,RSCNX1,<>)
.ERR (362,RSCNX2,<>)
.ERR (363,CFRKX3,<>)
.ERR (365,KFRKX1,<>)
.ERR (366,KFRKX2,<>)
.ERR (367,RFRKX1,<>)
.ERR (370,HFRKX1,<>)
.ERR (371,GFRKX1,<>)
.ERR (373,GETX1,<>)
.ERR (374,GETX2,<>)
.ERR (375,TFRKX1,<>)
.ERR (376,TFRKX2,<>)
.ERR (377,SFRVX1,<>)
.ERR (401,OPRFX1,<>)
.ERR (402,OPRFX2,<>)
.ERR (403,OPRFX3,<>)
.ERR (407,NOUTX1,<>)
.ERR (410,NOUTX2,<>)
.ERR (411,TFRKX3,<>)
.ERR (414,IFIXX1,<>)
.ERR (415,IFIXX2,<>)
.ERR (416,IFIXX3,<>)
.ERR (424,GFDBX1,<>)
.ERR (425,GFDBX2,<>)
.ERR (426,GFDBX3,<>)
.ERR (430,CFDBX1,<>)
.ERR (431,CFDBX2,<>)
.ERR (432,CFDBX3,<>)
.ERR (433,CFDBX4,<>)
.ERR (440,DUMPX1,<>)
.ERR (441,DUMPX2,<>)
.ERR (442,DUMPX3,<>)
.ERR (443,DUMPX4,<>)
.ERR (450,RNAMX1,<>)
.ERR (451,RNAMX2,<>)
.ERR (452,RNAMX3,<>)
.ERR (453,RNAMX4,<>)
.ERR (454,BKJFX1,<>)
.ERR (460,TIMEX1,<>)
.ERR (461,ZONEX1,<>)
.ERR (462,ODTNX1,<>)
.ERR (464,DILFX1,<>)
.ERR (465,TILFX1,<>)
.ERR (466,DATEX1,<>)
.ERR (467,DATEX2,<>)
.ERR (470,DATEX3,<>)
.ERR (471,DATEX4,<>)
.ERR (472,DATEX5,<>)
.ERR (473,DATEX6,<>)
.ERR (516,SMONX1,<>)
.ERR (530,SACTX1,<>)
.ERR (531,SACTX2,<>)
.ERR (532,SACTX3,<>)
.ERR (533,SACTX4,<>)
.ERR (540,GACTX1,<>)
.ERR (541,GACTX2,<>)
.ERR (544,FFUFX1,<>)
.ERR (545,FFUFX2,<>)
.ERR (546,FFUFX3,<>)
.ERR (555,DSMX1,<>)
.ERR (560,RDDIX1,<>)
.ERR (570,SIRX1,<>)
.ERR (600,SSAVX1,<>)
.ERR (601,SSAVX2,<>)
.ERR (610,SEVEX1,<>)
.ERR (614,WHELX1,<>)
.ERR (615,CAPX1,<>)
.ERR (617,PEEKX2,<>)
.ERR (620,CRDIX1,<>)
.ERR (621,CRDIX2,<>)
.ERR (622,CRDIX3,<>)
.ERR (623,CRDIX4,<>)
.ERR (624,CRDIX5,<>)
.ERR (626,CRDIX7,<>)
.ERR (640,GTDIX1,<>)
.ERR (641,GTDIX2,<>)
.ERR (650,FLINX1,<>)
.ERR (651,FLINX2,<>)
.ERR (652,FLINX3,<>)
.ERR (653,FLINX4,<>)
.ERR (660,FLOTX1,<>)
.ERR (661,FLOTX2,<>)
.ERR (662,FLOTX3,<>)
.ERR (670,HPTX1,<>)
.ERR (700,FDFRX1,<>)
.ERR (701,FDFRX2,<>)
.ERR (703,GTHSX1,<>)
.ERR (704,GTHSX2,<>)
.ERR (705,GTHSX3,<>)
.ERR (706,GTHSX4,<>)
.ERR (707,GTHSX5,<>)
.ERR (710,ATNX1,<>)
.ERR (711,ATNX2,<>)
.ERR (712,ATNX3,<>)
.ERR (713,ATNX4,<>)
.ERR (714,ATNX5,<>)
.ERR (715,ATNX6,<>)
.ERR (716,ATNX7,<>)
.ERR (717,ATNX8,<>)
.ERR (720,ATNX9,<>)
.ERR (721,ATNX10,<>)
.ERR (722,ATNX11,<>)
.ERR (723,ATNX12,<>)
.ERR (724,ATNX13,<>)
.ERR (727,CVHST1,<>)
.ERR (730,CVSKX1,<>)
.ERR (731,CVSKX2,<>)
.ERR (732,SNDIX1,<>)
.ERR (733,SNDIX2,<>)
.ERR (734,SNDIX3,<>)
.ERR (735,SNDIX4,<>)
.ERR (736,SNDIX5,<>)
.ERR (737,NTWZX1,<>)
.ERR (740,ASNSX1,<>)
.ERR (741,ASNSX2,<>)
.ERR (742,SQX1,<>)
.ERR (743,SQX2,<>)
.ERR (744,GTNCX1,<>)
.ERR (745,GTNCX2,<>)
.ERR (746,GTNCX1,<>)
.ERR (747,GTNCX2,<>)
.ERR (750,RNAMX5,<>)
.ERR (751,RNAMX6,<>)
.ERR (752,RNAMX7,<>)
.ERR (753,RNAMX8,<>)
.ERR (754,RNAMX9,<>)
.ERR (755,RNMX10,<>)
.ERR (756,RNMX11,<>)
.ERR (757,RNMX12,<>)
.ERR (760,GJFX36,<>)
.ERR (770,ILINS1,<>)
.ERR (771,ILINS2,<>)
.ERR (772,ILINS3,<>)
.ERR (1000,CRLNX1,<>)
.ERR (1001,INLNX1,<>)
.ERR (1002,LNSTX1,<>)
.ERR (1003,MLKBX1,<>)
.ERR (1004,MLKBX2,<>)
.ERR (1005,MLKBX3,<>)
.ERR (1006,MLKBX4,<>)
.ERR (1007,VBCX1,<>)
.ERR (1010,RDTX1,<>)
.ERR (1011,GFKSX1,<>)
.ERR (1013,GTJIX1,<>)
.ERR (1014,GTJIX2,<>)
.ERR (1015,GTJIX3,<>)
.ERR (1016,IPCFX1,<>)
.ERR (1017,IPCFX2,<>)
.ERR (1020,IPCFX3,<>)
.ERR (1021,IPCFX4,<>)
.ERR (1022,IPCFX5,<>)
.ERR (1023,IPCFX6,<>)
.ERR (1024,IPCFX7,<>)
.ERR (1025,IPCFX8,<>)
.ERR (1026,IPCFX9,<>)
.ERR (1027,IPCF10,<>)
.ERR (1030,IPCF11,<>)
.ERR (1031,IPCF12,<>)
.ERR (1032,IPCF13,<>)
.ERR (1033,IPCF14,<>)
.ERR (1034,IPCF15,<>)
.ERR (1035,IPCF16,<>)
.ERR (1036,IPCF17,<>)
.ERR (1037,IPCF18,<>)
.ERR (1040,IPCF19,<>)
.ERR (1041,IPCF20,<>)
.ERR (1042,IPCF21,<>)
.ERR (1043,IPCF22,<>)
.ERR (1044,IPCF23,<>)
.ERR (1045,IPCF24,<>)
.ERR (1046,IPCF25,<>)
.ERR (1047,IPCF26,<>)
.ERR (1050,IPCF27,<>)
.ERR (1051,IPCF28,<>)
.ERR (1052,IPCF29,<>)
.ERR (1053,IPCF30,<>)
.ERR (1054,GNJFX1,<>)
.ERR (1055,ENQX1,<>)
.ERR (1056,ENQX2,<>)
.ERR (1057,ENQX3,<>)
.ERR (1060,ENQX4,<>)
.ERR (1061,ENQX5,<>)
.ERR (1062,ENQX6,<>)
.ERR (1063,ENQX7,<>)
.ERR (1064,ENQX8,<>)
.ERR (1065,ENQX9,<>)
.ERR (1066,ENQX10,<>)
.ERR (1067,ENQX11,<>)
.ERR (1070,ENQX12,<>)
.ERR (1071,ENQX13,<>)
.ERR (1072,ENQX14,<>)
.ERR (1073,ENQX15,<>)
.ERR (1074,ENQX16,<>)
.ERR (1075,ENQX17,<>)
.ERR (1076,ENQX18,<>)
.ERR (1077,ENQX19,<>)
.ERR (1100,ENQX20,<>)
.ERR (1101,ENQX21,<>)
.ERR (1102,IPCF31,<>)
.ERR (1103,IPCF32,<>)
.ERR (1104,PMAPX3,<>)
.ERR (1105,PMAPX4,<>)
.ERR (1106,PMAPX5,<>)
.ERR (1107,PMAPX6,<>)
.ERR (1110,SNOPX1,<>)
.ERR (1111,SNOPX2,<>)
.ERR (1112,SNOPX3,<>)
.ERR (1113,SNOPX4,<>)
.ERR (1114,SNOPX5,<>)
.ERR (1115,SNOPX6,<>)
.ERR (1116,SNOPX7,<>)
.ERR (1117,SNOPX8,<>)
.ERR (1120,SNOPX9,<>)
.ERR (1121,SNOP10,<>)
.ERR (1122,SNOP11,<>)
.ERR (1123,SNOP12,<>)
.ERR (1124,SNOP13,<>)
.ERR (1125,SNOP14,<>)
.ERR (1126,SNOP15,<>)
.ERR (1127,SNOP16,<>)
.ERR (1130,IPCF33,<>)
.ERR (1131,SNOP17,<>)
.ERR (1132,OPNX23,<>)
.ERR (1133,GJFX37,<>)
.ERR (1134,CRLNX2,<>)
.ERR (1135,INLNX2,<>)
.ERR (1136,LNSTX2,<>)
.ERR (1137,ALCX1,<>)
.ERR (1140,ALCX2,<>)
.ERR (1141,ALCX3,<>)
.ERR (1142,ALCX4,<>)
.ERR (1143,ALCX5,<>)
.ERR (1144,SPLX1,<>)
.ERR (1145,SPLX2,<>)
.ERR (1146,SPLX3,<>)
.ERR (1147,SPLX4,<>)
.ERR (1150,SPLX5,<>)
.ERR (1151,CLSX3,<>)
.ERR (1152,CRLNX3,<>)
.ERR (1153,ALCX6,<>)
.ERR (1154,CKAX1,<>)
.ERR (1155,CKAX2,<>)
.ERR (1156,CKAX3,<>)
.ERR (1157,TIMX1,<>)
.ERR (1160,TIMX2,<>)
.ERR (1161,TIMX3,<>)
.ERR (1162,TIMX4,<>)
.ERR (1163,SNOP18,<>)
.ERR (1164,GJFX38,<>)
.ERR (1165,GJFX39,<>)
.ERR (1166,CRDIX8,<>)
.ERR (1167,CRDIX9,<>)
.ERR (1170,CRDI10,<>)
.ERR (1171,DELDX1,<>)
.ERR (1172,DELDX2,<>)
.ERR (1173,GACTX3,<>)
.ERR (1174,DIAGX1,<>)
.ERR (1175,DIAGX2,<>)
.ERR (1176,DIAGX3,<>)
.ERR (1177,DIAGX4,<>)
.ERR (1200,DIAGX5,<>)
.ERR (1201,DIAGX6,<>)
.ERR (1202,DIAGX7,<>)
.ERR (1203,DIAGX8,<>)
.ERR (1204,DIAGX9,<>)
.ERR (1205,DIAG10,<>)
.ERR (1206,SYEX1,<>)
.ERR (1207,SYEX2,<>)
.ERR (1210,MTOX1,<>)
.ERR (1211,IOX7,<>)
.ERR (1212,IOX8,<>)
.ERR (1213,MTOX5,<>)
.ERR (1214,DUMPX5,<>)
.ERR (1215,DUMPX6,<>)
.ERR (1216,IOX9,<>)
.ERR (1217,CLSX4,<>)
.ERR (1220,MTOX2,<>)
.ERR (1221,MTOX3,<>)
.ERR (1222,MTOX4,<>)
.ERR (1223,MTOX6,<>)
.ERR (1224,OPNX25,<>)
.ERR (1225,GJFX40,<>)
.ERR (1226,MTOX7,<>)
.ERR (1227,LOUTX3,<>)
.ERR (1230,LOUTX4,<>)
.ERR (1231,CAPX2,<>)
.ERR (1232,SSAVX3,<>)
.ERR (1233,SSAVX4,<>)
.ERR (1234,TDELX1,<>)
.ERR (1235,TADDX1,<>)
.ERR (1236,TADDX2,<>)
.ERR (1237,TLUKX1,<>)
.ERR (1240,IOX10,<>)
.ERR (1241,CNDIX2,<>)
.ERR (1242,CNDIX4,<>)
.ERR (1243,CNDIX6,<>)
.ERR (1244,SJBX1,<>)
.ERR (1245,SJBX2,<>)
.ERR (1246,SJBX3,<>)
.ERR (1247,TMONX1,<>)
.ERR (1250,SMONX2,<>)
.ERR (1251,SJBX4,<>)
.ERR (1252,SJBX5,<>)
.ERR (1253,SJBX6,<>)
.ERR (1254,GTJIX4,<>)
.ERR (1255,ILINS4,<>)
.ERR (1256,ILINS5,<>)
.ERR (1257,COMNX1,<>)
.ERR (1260,COMNX2,<>)
.ERR (1261,COMNX3,<>)
.ERR (1262,COMNX4,<>)
.ERR (1263,PRAX1,<>)
.ERR (1264,PRAX2,<>)
.ERR (1265,COMNX5,<>)
.ERR (1266,COMNX6,<>)
.ERR (1267,COMNX7,<>)
.ERR (1270,PRAX3,<>)
.ERR (1271,CKAX4,<>)
.ERR (1272,GACCX1,<>)
.ERR (1273,GACCX2,<>)
.ERR (1274,MTOX8,<>)
.ERR (1275,DBRKX1,<>)
.ERR (1276,SJPRX1,<>)
.ERR (1277,GJFX41,<>)
.ERR (1300,GJFX42,<>)
.ERR (1301,GACCX3,<>)
.ERR (1302,TIMEX2,<>)
.ERR (1303,DELFX2,<>)
.ERR (1304,DELFX3,<>)
.ERR (1305,DELFX4,<>)
.ERR (1306,DELFX5,<>)
.ERR (1307,DELFX6,<>)
.ERR (1310,DELFX7,<>)
.ERR (1311,DELFX8,<>)
.ERR (1312,FRKHX7,<>)
.ERR (1313,DIRX1,<>)
.ERR (1314,DIRX2,<>)
.ERR (1315,DIRX3,<>)
.ERR (1316,UFPGX1,<>)
.ERR (1317,LNGFX1,<>)
.ERR (1320,IPCF34,<>)
.ERR (1321,COMNX8,<>)
.ERR (1322,MTOX9,<>)
.ERR (1323,MTOX10,<>)
.ERR (1324,MTOX11,<>)
.ERR (1325,MTOX12,<>)
.ERR (1326,MTOX13,<>)
.ERR (1327,MTOX14,<>)
.ERR (1330,SAVX1,<>)
.ERR (1331,MTOX15,<>)
.ERR (1332,MTOX16,<>)
.ERR (1333,LPINX1,<>)
.ERR (1334,LPINX2,<>)
.ERR (1335,LPINX3,<>)
.ERR (1336,MTOX17,<>)
.ERR (1337,LGINX6,<>)
.ERR (1340,DESX9,<>)
.ERR (1341,ACESX1,<>)
.ERR (1342,ACESX2,<>)
.ERR (1343,DSKOX1,<>)
.ERR (1344,DSKOX2,<>)
.ERR (1345,MSTRX1,<>)
.ERR (1346,MSTRX2,<>)
.ERR (1347,MSTRX3,<>)
.ERR (1350,MSTRX4,<>)
.ERR (1351,MSTRX5,<>)
.ERR (1352,MSTRX6,<>)
.ERR (1353,MSTRX7,<>)
.ERR (1354,MSTRX8,<>)
.ERR (1355,MSTRX9,<>)
.ERR (1356,MSTX10,<>)
.ERR (1357,MSTX11,<>)
.ERR (1360,MSTX12,<>)
.ERR (1361,MSTX13,<>)
.ERR (1362,MSTX14,<>)
.ERR (1363,MSTX15,<>)
.ERR (1364,MSTX16,<>)
.ERR (1365,DSKX01,<>)
.ERR (1366,DSKX02,<>)
.ERR (1367,DSKX03,<>)
.ERR (1370,DSKX04,<>)
.ERR (1371,GFUSX1,<>)
.ERR (1372,GFUSX2,<>)
.ERR (1373,SFUSX1,<>)
.ERR (1374,SFUSX2,<>)
.ERR (1375,SFUSX3,<>)
.ERR (1376,RCDIX1,<>)
.ERR (1377,RCDIX2,<>)
.ERR (1400,RCDIX3,<>)
.ERR (1401,RCDIX4,<>)
.ERR (1402,RCUSX1,<>)
.ERR (1403,TDELX2,<>)
.ERR (1404,TIMX5,<>)
.ERR (1405,LSTRX1,<>)
.ERR (1406,SWJFX1,<>)
.ERR (1407,MTOX18,<>)
.ERR (1410,OPNX26,<>)
.ERR (1411,DELFX9,<>)
.ERR (1412,CRDIX6,<>)
.ERR (1413,COMNX9,<>)
.ERR (1414,STYPX1,<>)
.ERR (1415,PMAPX7,<>)
.ERR (1416,DSKOX3,<>)
.ERR (1417,DESX10,<>)
.ERR (1420,DSKOX4,<>)
.ERR (1421,MSTX17,<>)
.ERR (1422,MSTX18,<>)
.ERR (1423,MSTX19,<>)
.ERR (1424,MSTX20,<>)
.ERR (1425,MSTX21,<>)
.ERR (1426,MSTX22,<>)
.ERR (1427,CRDI11,<>)
.ERR (1430,MSTX23,<>)
.ERR (1431,ACESX3,<>)
.ERR (1432,ACESX4,<>)
.ERR (1433,ACESX5,<>)
.ERR (1434,STRX05,<>)
.ERR (1435,ACESX6,<>)
.ERR (1436,STRX01,<>)
.ERR (1437,STRX02,<>)
.ERR (1440,IOX11,<>)
.ERR (1441,IOX12,<>)
.ERR (1442,STRX03,<>)
.ERR (1443,STRX04,<>)
.ERR (1444,PPNX1,<>)
.ERR (1445,PPNX2,<>)
.ERR (1446,PPNX3,<>)
.ERR (1447,PPNX4,<>)
.ERR (1450,SPLX6,<>)
.ERR (1451,CRDI12,<>)
.ERR (1452,GFUSX3,<>)
.ERR (1453,GFUSX4,<>)
.ERR (1454,RNMX13,<>)
.ERR (1455,SJBX8,<>)
.ERR (1456,DECRSV,<>)
.ERR (1457,FFFFX1,<>)
.ERR (1460,WILDX1,<>)
.ERR (1461,MSTX41,<>)
.ERR (1462,MSTX42,<>)
.ERR (1463,CIMXND,<>)
.ERR (1464,CINOND,<>)
.ERR (1465,CIBDOF,<>)
.ERR (1466,CINOFQ,<>)
.ERR (1467,CINOPG,<>)
.ERR (1470,CINPTH,<>)
.ERR (1471,CIBDCD,<>)
.ERR (1472,CIUNOP,<>)
.ERR (1473,CINOND,<>)
.ERR (1474,CILNER,<>)
.ERR (1475,LCBDBP,<>)
.ERR (1476,LCLNER,<>)
.ERR (1477,LCNOND,<>)
.ERR (1500,SSAVX5,<>)
.ERR (1501,CIBDFQ,<>)
.ERR (1502,ATACX6,<>)
.ERR (1503,ATACX7,<>)

.ERR (1525,SNOP20,<>)
.ERR (1526,SNOP19,<>)
.ERR (1527,DELX13,<>)

; ERROR CODES 1504-1532 ARE AVAILABLE******

.ERR (1533,DSKOX5,<>)
.ERR (1534,DSKOX6,<>)
.ERR (1535,TIMX6,<>)
.ERR (1536,TIMX7,<>)
.ERR (1537,TIMX8,<>)
.ERR (1540,TIMX9,<>)
.ERR (1541,TIMX10,<>)

.ERR (1550,SCTX1,<>)
.ERR (1551,SCTX2,<>)
.ERR (1552,SCTX3,<>)
.ERR (1553,SCTX4,<>)

.ERR (1554,PDVX01,<>)
.ERR (1555,PDVX02,<>)
.ERR (1556,PDVX03,<>)
.ERR (1557,GETX4,<>)
.ERR (1560,GETX5,<>)
; Note: Error codes are available here!

.ERR (1700,SFUSX4,<>)
.ERR (1701,SFUSX5,<>)
.ERR (1702,SFUSX6,<>)
.ERR (1703,GETX3,<>)
.ERR (1704,FILX01,<>)
.ERR (1705,ARGX01,<>)
.ERR (1706,CAPX3,<>)
.ERR (1707,CAPX4,<>)
.ERR (1711,CAPX6,<>)
.ERR (1712,CAPX7,<>)
.ERR (1713,ARGX02,<>)
.ERR (1714,ARGX03,<>)
.ERR (1715,ARGX04,<>)
.ERR (1716,ARGX05,<>)
.ERR (1717,ARGX06,<>)
.ERR (1720,ARGX07,<>)
.ERR (1721,ARGX08,<>)
.ERR (1722,ARGX09,<>)
.ERR (1723,ARGX10,<>)
.ERR (1724,ARGX11,<>)
.ERR (1725,ARGX12,<>)
.ERR (1726,ARGX13,<>)
.ERR (1727,MONX01,<>)
.ERR (1730,MONX02,<>)
.ERR (1731,MONX03,<>)
.ERR (1732,MONX04,<>)
.ERR (1733,ARGX14,<>)
.ERR (1734,ARGX15,<>)
.ERR (1735,FILX02,<>)
.ERR (1736,FILX03,<>)
.ERR (1737,DEVX4,<>)
.ERR (1740,FILX04,<>)
.ERR (1741,ARGX16,<>)
.ERR (1742,ARGX17,<>)
.ERR (1743,ARGX18,<>)
.ERR (1744,DEVX5,<>)
.ERR (1745,DIRX4,<>)
.ERR (1746,FILX05,<>)
.ERR (1747,STRX06,<>)
.ERR (1750,MSTX24,<>)
.ERR (1751,MSTX25,<>)
.ERR (1752,MSTX26,<>)
.ERR (1753,LOUTX5,<>)
.ERR (1754,GJFX43,<>)
.ERR (1755,MTOX19,<>)
.ERR (1756,MTOX20,<>)
.ERR (1757,MSTX27,<>)
.ERR (1760,MSTX28,<>)
.ERR (1761,MSTX29,<>)
.ERR (1763,DSKX05,<>)
.ERR (1764,DSKX06,<>)
.ERR (1765,DSKX07,<>)
.ERR (1766,DSKX08,<>)
.ERR (1767,COMX10,<>)
.ERR (1770,MSTX30,<>)
.ERR (1771,LOCKX1,<>)
.ERR (1772,LOCKX2,<>)
.ERR (1773,LOCKX3,<>)
.ERR (1774,ILLX01,<>)
.ERR (1775,ILLX02,<>)
.ERR (1776,ILLX03,<>)
.ERR (1777,ILLX04,<>)
.ERR (2000,MSTX31,<>)
.ERR (2001,MSTX32,<>)
.ERR (2002,MSTX33,<>)
.ERR (2003,STDIX1,<>)
.ERR (2004,CNDIX7,<>)
.ERR (2005,PMCLX1,<>)
.ERR (2006,PMCLX2,<>)
.ERR (2007,PMCLX3,<>)
.ERR (2010,DLFX10,<>)
.ERR (2011,DLFX11,<>)
.ERR (2012,GJFX44,<>)
.ERR (2013,UTSTX1,<>)
.ERR (2014,UTSTX2,<>)
.ERR (2015,UTSTX3,<>)
.ERR (2016,BOTX01,<>)
.ERR (2017,BOTX02,<>)
.ERR (2020,DCNX1,<>)
.ERR (2021,DCNX5,<>)
.ERR (2022,DCNX3,<>)
.ERR (2023,DCNX4,<>)
.ERR (2024,DCNX9,<>)
.ERR (2025,DCNX8,<>)
.ERR (2026,DCNX11,<>)
.ERR (2027,DCNX12,<>)
.ERR (2030,TTYX01,<>)
.ERR (2031,BOTX03,<>)
.ERR (2032,MONX05,<>)
.ERR (2033,ARGX19,<>)
.ERR (2035,COMX11,<>)
.ERR (2036,COMX12,<>)
.ERR (2037,COMX13,<>)
.ERR (2040,COMX14,<>)
.ERR (2041,COMX15,<>)
.ERR (2042,COMX16,<>)
.ERR (2043,COMX17,<>)
.ERR (2044,NPXAMB,<>)
.ERR (2045,NPXNSW,<>)
.ERR (2046,NPXNOM,<>)
.ERR (2047,NPXNUL,<>)
.ERR (2050,NPXINW,<>)
.ERR (2051,NPXNC,<>)
.ERR (2052,NPXICN,<>)
.ERR (2053,NPXIDT,<>)
.ERR (2054,NPXNQS,<>)
.ERR (2055,NPXNMT,<>)
.ERR (2056,NPXNMD,<>)
.ERR (2057,NPXCMA,<>)
.ERR (2060,GJFX45,<>)
.ERR (2061,GJFX46,<>)
.ERR (2062,GJFX47,<>)
.ERR (2063,MSTX34,<>)
.ERR (2064,GJFX48,<>)
.ERR (2065,GJFX49,<>)
.ERR (2077,SJBX7,<>)
.ERR (2100,DELF10,<>)
.ERR (2101,CRDI13,<>)
.ERR (2102,CRDI14,<>)
.ERR (2103,CRDI15,<>)
.ERR (2104,CRDI16,<>)
.ERR (2105,ENACX1,<>)
.ERR (2106,ENACX2,<>)
.ERR (2107,ENACX3,<>)
.ERR (2110,ENACX4,<>)
.ERR (2111,VACCX0,<>)
.ERR (2112,VACCX1,<>)
.ERR (2113,USGX01,<>)
.ERR (2114,BOTX04,<>)
.ERR (2115,NODX01,<>)
.ERR (2116,USGX02,<>)
.ERR (2117,CRDI17,<>)
.ERR (2120,ENQX23,<>)
.ERR (2121,ENQX22,<>)
.ERR (2122,DCNX2,<>)
.ERR (2123,ABRKX1,<>)
.ERR (2124,USGX03,<>)
.ERR (2125,IPCF35,<>)
.ERR (2126,VACCX2,<>)
.ERR (2127,CRDI18,<>)
.ERR (2130,CRDI19,<>)
.ERR (2132,BOTX05,<>)
.ERR (2133,CRDI20,<>)
.ERR (2134,COMX18,<>)
.ERR (2135,COMX19,<>)
.ERR (2136,CRDI21,<>)
.ERR (2137,ACESX7,<>)
.ERR (2140,CRDI22,<>)
.ERR (2141,CRDI23,<>)
.ERR (2142,STRX07,<>)
.ERR (2143,STRX08,<>)
.ERR (2144,CRDI24,<>)
.ERR (2146,ATSX01,<>)
.ERR (2147,ATSX02,<>)
.ERR (2150,ATSX03,<>)
.ERR (2151,ATSX04,<>)
.ERR (2152,ATSX05,<>)
.ERR (2153,ATSX06,<>)
.ERR (2154,ATSX07,<>)
.ERR (2155,ATSX08,<>)
.ERR (2156,ATSX09,<>)
.ERR (2157,ATSX10,<>)
.ERR (2160,ATSX11,<>)
.ERR (2161,ATSX12,<>)
.ERR (2162,ATSX13,<>)
.err (2163,ATSX14,<>)
.ERR (2164,ATSX15,<>)
.ERR (2165,PMCLX4,<>)
.ERR (2166,ATSX16,<>)
.ERR (2167,ATSX17,<>)
.ERR (2170,FRKHX8,<>)
.ERR (2171,ARGX20,<>)
.ERR (2172,ARGX21,<>)
.ERR (2173,ARGX22,<>)
.ERR (2174,ATSX18,<>)
.ERR (2175,ATSX19,<>)
.ERR (2176,ATSX20,<>)
.ERR (2177,ARGX23,<>)
.ERR (2200,ARGX24,<>)
.ERR (2201,MSTX35,<>)
.ERR (2202,DCNX13,<>)
.ERR (2203,DCNX14,<>)
.ERR (2204,DCNX15,<>)
.ERR (2205,GJFX50,<>)
.ERR (2206,KDPX01,<>)
.ERR (2207,NODX02,<>)
.ERR (2210,NODX03,<>)
.ERR (2211,GJFX51,<>)
.ERR (2212,COMX20,<>)
.ERR (2213,ATSX21,<>)
.ERR (2214,ATSX22,<>)
.ERR (2215,ATSX23,<>)
.ERR (2216,ATSX24,<>)
.ERR (2217,ATSX25,<>)
.ERR (2220,GOKER1,<>)
.ERR (2221,GOKER2,<>)
.ERR (2222,STRX09,<>)
.ERR (2223,MSTX36,<>)
.ERR (2224,MSTX37,<>)
.ERR (2225,MSTX40,<>)
.ERR (2226,ATSX26,<>)
.ERR (2227,IOX13,<>)
.ERR (2230,IOX14,<>)
.ERR (2231,IOX15,<>)
.ERR (2232,IOX16,<>)
.ERR (2233,IOX17,<>)
.ERR (2234,IOX20,<>)
.ERR (2235,IOX21,<>)
.ERR (2236,IOX22,<>)
.ERR (2237,IOX23,<>)
.ERR (2240,IOX24,<>)
.ERR (2241,IOX25,<>)
.ERR (2242,SWJFX2,<>)
.ERR (2243,IOX26,<>)
.ERR (2244,IOX27,<>)
.ERR (2245,IOX30,<>)
.ERR (2246,ARGX25,<>)
.ERR (2247,SKDX1,<>)
.ERR (2250,MREQX1,<>)
.ERR (2251,MREQX2,<>)
.ERR (2252,MREQX3,<>)
.ERR (2253,MREQX4,<>)
.ERR (2254,MREQX5,<>)
.ERR (2255,MREQX6,<>)
.ERR (2256,MREQX7,<>)
.ERR (2257,MREQX8,<>)
.ERR (2260,MREQX9,<>)
.ERR (2261,MREQ10,<>)
.ERR (2262,MREQ11,<>)
.ERR (2263,MREQ12,<>)
.ERR (2264,MREQ13,<>)
.ERR (2265,MREQ14,<>)
.ERR (2266,MREQ15,<>)
.ERR (2267,MREQ16,<>)
.ERR (2270,MREQ17,<>)
.ERR (2271,MREQ18,<>)
.ERR (2272,MREQ19,<>)
.ERR (2273,MREQ20,<>)
.ERR (2274,MREQ21,<>)
.ERR (2275,DEVX6,<>)
.ERR (2276,ATSX27,<>)
.ERR (2277,ATSX28,<>)
.ERR (2300,ATSX29,<>)
.ERR (2301,ATSX30,<>)
.ERR (2302,ATSX31,<>)
.ERR (2303,ATSX32,<>)
.ERR (2304,ATSX33,<>)
.ERR (2305,ATSX34,<>)
.ERR (2306,ATSX35,<>)
.ERR (2307,ATSX36,<>)
.ERR (2310,DATEX7,<>)
.ERR (2311,MREQ22,<>)
.ERR (2312,ARCFX2,<>)
.ERR (2313,ARCFX3,<>)
.ERR (2314,ARCFX4,<>)
.ERR (2315,ARCFX5,<>)
.ERR (2316,ARCFX6,<>)
.ERR (2317,ARCFX7,<>)
.ERR (2320,ARCFX8,<>)
.ERR (2321,ARCFX9,<>)
.ERR (2322,ARCX10,<>)
.ERR (2323,ARCX11,<>)
.ERR (2324,ARCX12,<>)
.ERR (2325,ARCX13,<>)
.ERR (2326,OPNX30,<>)
.ERR (2327,OPNX31,<>)
.ERR (2330,DELX11,<>)
.ERR (2331,DELX12,<>)
.ERR (2332,ARCX14,<>)
.ERR (2333,ARCX15,<>)
.ERR (2334,ARCX16,<>)
.ERR (2335,ARCX17,<>)
.ERR (2336,ARCX18,<>)
.ERR (2337,ARCX19,<>)
.ERR (2340,ARGX26,<>)
.ERR (2341,ARGX27,<>)
.ERR (2342,DIRX5,<>)
.ERR (2343,IOX31,<>)
.ERR (2344,MREQ23,<>)
.ERR (2345,MREQ24,<>)
.ERR (2346,MREQ25,<>)
.ERR (2347,LTLBLX,<>)
.ERR (2350,LTLBX1,<>)
.ERR (2351,MREQ26,<>)
.ERR (2352,METRX1,<>)
.ERR (2353,NSPX00,<>)
.ERR (2354,NSPX01,<>)
.ERR (2355,NSPX02,<>)
.ERR (2356,NSPX03,<>)
.ERR (2357,NSPX04,<>)
.ERR (2360,NSPX05,<>)
.ERR (2361,NSPX06,<>)
.ERR (2362,NSPX07,<>)
.ERR (2363,NSPX08,<>)
.ERR (2364,NSPX09,<>)
.ERR (2365,NSPX10,<>)
.ERR (2366,NSPX11,<>)
.ERR (2367,NSPX12,<>)
.ERR (2370,NSPX13,<>)
.ERR (2371,NSPX14,<>)
.ERR (2372,NSPX15,<>)
.ERR (2373,NSPX16,<>)
.ERR (2374,NSPX17,<>)
.ERR (2375,NSPX18,<>)
.ERR (2376,NSPX19,<>)
.ERR (2377,NSPX20,<>)
.ERR (2400,NSPX21,<>)
.ERR (2401,NSPX22,<>)
.ERR (2402,MREQ27,<>)
.ERR (2403,MREQ28,<>)
.ERR (2404,MREQ29,<>)
.ERR (2405,MREQ30,<>)
.ERR (2406,DIAG11,<>)
.ERR (2407,DIAG12,<>)
.ERR (2410,DESX11,<>)
.ERR (2411,NSPX23,<>)
.ERR (2412,ARGX28,<>)
.ERR (2413,NPX2CL,<>)
.ERR (2414,ARGX29,<>)
.ERR (2415,ARGX30,<>)
.ERR (2416,ARGX31,<>)
.ERR (2417,DEVX7,<>)
.ERR (2420,GJFX52,<>)
.ERR (2421,GOKER3,<>)
.ERR (2422,IOX32,<>)
.ERR (2423,IOX33,<>)
.ERR (2424,XSIRX1,<>)
.ERR (2425,SIRX2,<>)
.ERR (2426,RIRX1,<>)
.ERR (2427,XSIRX2,<>)
.ERR (2430,MREQ31,<>)
.ERR (2431,SMAPX1,<>)
;@@@
.ERR (3044,CHAOX1,<>)
.ERR (3045,CHAOX2,<>)
.ERR (3046,CHAOX3,<>)
.ERR (3047,CHAOX4,<>)
;206 Begin addition
.ERR (3050,CHAOX5,<>)
;206 End addition
;@@@

;99 Begin addition
.ERR (3060,VTSX01,<>)
.ERR (3061,VTSX02,<>)
.ERR (3062,VTSX03,<>)
;99 End addition
;336 new crdir codes
.ERR (3070,CRDX01,<>)
.ERR (3071,CRDX02,<>)
.ERR (3073,CRDX03,<>)
;267 ACJ denial
.ERR (3072,ACJX01,<>)
.ERR (2432,TTMSX1,<>)
.ERR (2433,MONX06,<>)
.ERR (2434,BOTX06,<>)
.ERR (2435,BOTX07,<>)
.ERR (2436,BOTX08,<>)
.ERR (2437,BOTX09,<>)
.ERR (2440,BOTX10,<>)
.ERR (2441,BOTX11,<>)
.ERR (2442,BOTX12,<>)
.ERR (2443,BOTX13,<>)
.ERR (2444,BOTX14,<>)
.ERR (2445,BOTX15,<>)
.ERR (2446,BOTX16,<>)
.ERR (2447,BOTX17,<>)
.ERR (2450,BOTX18,<>)
.ERR (2451,NTMX1,<>)
.ERR (2452,COMX21,<>)
.ERR (2453,DELX13,<>)
.ERR (2454,ANTX01,<>)
.ERR (2455,TTYX02,<>)
.ERR (2456,NSPX24,<>)
.ERR (2457,NSPX25,<>)
.ERR (2460,NSPX26,<>)
.ERR (2461,GJFX53,<>)
.ERR (2462,IOX34,<>)
.ERR (2463,IOX35,<>)
.ERR (2464,PMAPX8,<>)
.ERR (2465,SMAPX2,<>)
.ERR (2466,GJFX54,<>)
.ERR (2467,BOTX19,<>)
.ERR (2470,BOTX20,<>)
.ERR (2471,ILLX05,<>)
.ERR (2472,XSEVX1,<>)
.ERR (2473,XSEVX2,<>)
.ERR (2474,XSEVX3,<>)
;3031 Begin Addition
.ERR (3100,CHNX01,<Invalid or Unknown Chaosnet Host Name>)
.ERR (3101,CHNX02,<Invalid or Unknown Chaosnet Host Number>)
.ERR (3102,CHNX03,<Local Chaosnet host information not set>)
;3031 End
>				;END OF .ERCOD DEFINITION


;DEFINE THE ERROR CODE VALUES

DEFINE .ERR (N,E,S) <
	E==:.ERBAS+N
	IFG <N-.ERMAX>,<.ERMAX==:N>>

	.ERMAX==:0

.ERCOD
;THIS SECTION CONSISTS OF SPECIAL CODE TO WRITE THE ERRMES.BIN FILE
; THE CODE IS ONLY ASSEMBLED IF .ERBLD IS PREVIOUSLY
; DEFINED TO BE NON-ZERO.

IFNDEF .ERBLD,<.ERBLD==0>

IFN .ERBLD,<

.ERGO:	MOVSI 1,(GJ%FOU!GJ%SHT)	;GET A JFN ON ERROR FILE
	HRROI 2,[ASCIZ/ERRMES.BIN/]
	GTJFN
	 JRST .ERER
	MOVE 2,[440000,,OF%WR]
	OPENF			;OPEN THE FILE FOR WRITE
	 JRST .ERER
	MOVNI 3,.ERSTE-.ERTAB	;GET LENGTH OF FILE
	MOVE 2,[POINT 36,.ERTAB]
	SOUT			;OUTPUT THE ERROR FILE DATA
	CLOSF			;CLOSE THE FILE
	 JRST .ERER
	HALTF			;DONE

.ERER:	MOVEI 1,101		;TYPE OUT ERROR CODE
	HRLOI 2,400000
	SETZ 3,
	ERSTR
	 JFCL
	 JFCL
	HALTF

LIT

DEFINE .ERR (N,E,S) <
	.ERQQ==<.-.ERTAB>*5
	.ERQQ2==N&37777
	.ERRM1 \.ERQQ2,N,.ERQQ
	ASCII \S'@\
>

DEFINE .ERRM1 (NN,N,.ERQQ)<
   IF1,<IFDEF EZ'NN,<
	PRINTX ERROR N=NN HAS ALREADY BEEN USED
   >>
   EZ'NN==1
   RELOC .ERTAB+NN
	.ERQQ
   RELOC
>

.ERTAB:	.ERMAX			;FIRST WORD OF TABLE IS THE LENGTH
				; OF THE TABLE FOR ERSTR TO USE AS
				; A BOUNDS CHECK.
	BLOCK .ERMAX		;LEAVE ROOM FOR POINTERS

.ERST:	.ERCOD			;BUILD STRINGS AND .ERTAB
.ERSTE:				;END OF STRINGS

	END .ERGO

>				;END OF IFN .ERBLD CONDITIONAL

IFDEF FOR,<IFE REL,<ASUPPRESS>> ;198 Supress all symbols

PURGE .ERR,REL

END