Google
 

Trailing-Edge - PDP-10 Archives - BB-J713A-BM - 4-sources/monsym.mac
There are 74 other files named monsym.mac in the archive. Click here to see a list.
;<4.UTILITIES>MONSYM.MAC.262,  3-Jan-80 15:26:07, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<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 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

SEARCH MACSYM			;SOME SYMBOLS ARE DEFINED VIA MACROS

; TEMP DEFINITION OF XHLLI
OPDEF	 XHLLI [HLLI]		;NOT IN MACRO YET
;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

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

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,,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 SETER,336,MSEC1,,OLD
;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

;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	

DEFJS METER,766,MSEC1		;METER JSYS. FOR KL ONLY
DEFJS SMAP,767,MSEC1,NIM	;RESERVED FOR FUTURE
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,<XMOVEI 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>
.NODDT NOP

;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

;ATNVT		      ;TOPS20AN

AN%NTP==:1B2	      ;TOPS20AN	;NEW TELNET 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
.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


;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%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

;DEFINE BREAK MASKS

	BRINI.			;INITIALIZE BREAK MASK FOR STANDARD FIELD
	BRKCH. (0,37)		;ALL CONTROL CHARACTERS
	BRKCH. (40,54)		;SPACE THROUGH COMMA
	BRKCH. (56,57)		;DOT AND 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

EOLB0.==W0.
EOLB1.==W1.
EOLB2.==W2.
EOLB3.==W3.
;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%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%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
  DOP%UN==:77B12		;UNIT NUMBER
  DOP%UA==:37777777		;UNIT ADDRESS
 .DOPSR==:2			;STRUCTURE AND RELATIVE ADDRESS
  DOP%SN==:777B10		;STRUCTURE NUMBER
  DOP%RA==:177777777		;RELATIVE ADDRESS
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

GT%ADR==:1B19			;USE ADDRESS LIMITS IN AC2
GT%PRL==:1B20			;PRELOAD PAGES
GT%NOV==:1B21			;DON'T OVERLAY EXISTING PAGES
GT%FL2==:1B22			;IF ON, AC3 CONTAINS FLAGS
	G2%FCH==:1B0		;MAKE FAST-CACHE ENTRY
GT%JFN==:7777B35		;JFN
;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
;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			;USER REQUESTING LOGOUT
.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


.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

;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%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
	.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%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

.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


;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
  .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
  .MSRLN==:27			;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
  .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)

.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 

;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

;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
.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
.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

;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
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%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
;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%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
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


;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
;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

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%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
;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

;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%FPN==:777B35			;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

;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%LQR==:1B23			;LOW QUEUE RESERVE
;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
;***********************************************
;GENERAL FIELD AND VALUE DEFINITIONS
;USED BY MANY JSYSES
;***********************************************


;GENERAL FORK HANDLES

.FHSLF==:400000			;SELF
.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
;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
.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

RADIX 5+5

.ICAOV==:6			;ARITHMETIC OVERFLOW
.ICFOV==:7			;FLOATING OVERFLOW
.ICPOV==:9			;PDL OVERFLOW
.ICEOF==:10			;END OF FILE
.ICDAE==:11			;DATA ERROR
.ICQTA==:12			;QUOTA/DISK EXCEEDED
.ICTOD==:14			;TIME OF DAY (NOT IMPLEMENTED)
.ICILI==:15			;ILLEG INSTRUCTION
.ICIRD==:16			;ILLEGAL READ
.ICIWR==:17			;ILLEGAL WRITE
.ICIEX==:18			;ILLEGAL EXECUTE (NOT IMPLEMENTED)
.ICIFT==:19			;INFERIOR FORK TERMINATION
.ICMSE==:20			;MACHINE SIZE EXCEEDED
.ICTRU==:21			;TRAP TO USER (NOT IMPLEMENTED)
.ICNXP==:22			;NONEXISTENT PAGE REFERENCED
;TERMINAL TYPE NUMBERS

.TT33==:0			;MODEL 33
.TT35==:1			;MODEL 35
.TT37==:2			;MODEL 37
.TTEXE==:3			;EXECUPORT
.TTDEF==:^D8			;DEFAULT
.TTIDL==:^D9			;IDEAL
.TTV05==:^D10			;VT05
.TTV50==:^D11			;VT50
.TTL30==:^D12			;LA30
.TTG40==:^D13			;GT40
.TTL36==:^D14			;LA36
.TTV52==:^D15			;VT52
.TT100==:^D16			;VT100
.TTL38==:^D17			;LA38
.TT120==:^D18			;LA120

;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==:8			;^H
.TICCI==:9			;^I
.TICCJ==:10			;^J
.TICCK==:11			;^K
.TICCL==:12			;^L
.TICCM==:13			;^M
.TICCN==:14			;^N
.TICCO==:15			;^O
.TICCP==:16			;^P
.TICCQ==:17			;^Q
.TICCR==:18			;^R
.TICCS==:19			;^S
.TICCT==:20			;^T
.TICCU==:21			;^U
.TICCV==:22			;^V
.TICCW==:23			;^W
.TICCX==:24			;^X
.TICCY==:25			;^Y
.TICCZ==:26			;^Z
.TICES==:27			;ESC
.TICRB==:28			;RUBOUT
.TICSP==:29			;SPACE
.TICRF==:30			;CARRIER OFF
.TICTI==:31			;TYPEIN
.TICTO==:32			;TYPEOUT
RADIX 8

;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


;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
.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==:37			;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 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
.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
;***********************************************
;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

.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
;ERROR CODE DEFINITIONS

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

DEFINE .ERCOD <

.ERR (10,LGINX1,<Invalid account identifier>)
.ERR (11,LGINX2,<Directory is "files-only" and cannot be logged in to>)
.ERR (12,LGINX3,<Internal format of directory is incorrect>)
.ERR (13,LGINX4,<Invalid password>)
.ERR (14,LGINX5,<Job is already logged in>)
.ERR (20,CRJBX1,<Invalid parameter or function bit combination>)
.ERR (21,CRJBX2,<Illegal for created job to enter MINI-EXEC>)
.ERR (22,CRJBX3,<Reserved>)
.ERR (23,CRJBX4,<Terminal is not available>)
.ERR (24,CRJBX5,<Unknown name for LOGIN>)
.ERR (25,CRJBX6,<Insufficient system resources>)
.ERR (26,CRJBX7,<Reserved>)
.ERR (35,LOUTX1,<Illegal to specify job number when logging out own job>)
.ERR (36,LOUTX2,<Invalid job number>)
.ERR (45,CACTX1,<Invalid account identifier>)
.ERR (46,CACTX2,<Job is not logged in>)
.ERR (50,EFCTX1,<WHEEL or OPERATOR capability required>)
.ERR (51,EFCTX2,<Entry cannot be longer than 64 words>)
.ERR (52,EFCTX3,<Fatal error when accessing FACT file>)
.ERR (55,GJFX1,<Desired JFN invalid>)
.ERR (56,GJFX2,<Desired JFN not available>)
.ERR (57,GJFX3,<No JFN available>)
.ERR (60,GJFX4,<Invalid character in filename>)
.ERR (61,GJFX5,<Field cannot be longer than 39 characters>)
.ERR (62,GJFX6,<Device field not in a valid position>)
.ERR (63,GJFX7,<Directory field not in a valid position>)
.ERR (64,GJFX8,<Directory terminating delimiter is not preceded by a valid beginning delimiter>)
.ERR (65,GJFX9,<More than one name field is not allowed>)
.ERR (66,GJFX10,<Generation number is not numeric>)
.ERR (67,GJFX11,<More than one generation number field is not allowed>)
.ERR (70,GJFX12,<More than one account field is not allowed>)
.ERR (71,GJFX13,<More than one protection field is not allowed>)
.ERR (72,GJFX14,<Invalid protection>)
.ERR (73,GJFX15,<Invalid confirmation character>)
.ERR (74,GJFX16,<No such device>)
.ERR (75,GJFX17,<No such directory name>)
.ERR (76,GJFX18,<No such filename>)
.ERR (77,GJFX19,<No such file type>)
.ERR (100,GJFX20,<No such generation number>)
.ERR (101,GJFX21,<File was expunged>)
.ERR (102,GJFX22,<Insufficient system resources (Job Storage Block full)>)
.ERR (103,GJFX23,<Exceeded maximum number of files per directory>)
.ERR (104,GJFX24,<File not found>)
.ERR (107,GJFX27,<File already exists (new file required)>)
.ERR (110,GJFX28,<Device is not on line>)
.ERR (111,GJFX29,<Device is not available to this job>)
.ERR (112,GJFX30,<Account is not numeric>)
.ERR (113,GJFX31,<Invalid wildcard designator>)
.ERR (114,GJFX32,<No files match this specification>)
.ERR (115,GJFX33,<Filename was not specified>)
.ERR (116,GJFX34,<Invalid character "?" in file specification>)
.ERR (117,GJFX35,<Directory access privileges required>)
.ERR (120,OPNX1,<File is already open>)
.ERR (121,OPNX2,<File does not exist>)
.ERR (122,OPNX3,<Read access required>)
.ERR (123,OPNX4,<Write access required>)
.ERR (124,OPNX5,<Execute access required>)
.ERR (125,OPNX6,<Append access required>)
.ERR (126,OPNX7,<Device already assigned to another job>)
.ERR (127,OPNX8,<Device is not on line>)
.ERR (130,OPNX9,<Invalid simultaneous access>)
.ERR (131,OPNX10,<Entire file structure full>)
.ERR (133,OPNX12,<List access required>)
.ERR (134,OPNX13,<Invalid access requested>)
.ERR (135,OPNX14,<Invalid mode requested>)
.ERR (136,OPNX15,<Read/write access required>)
.ERR (137,OPNX16,<File has bad index block>)
.ERR (140,OPNX17,<No room in job for long file page table>)
.ERR (141,OPNX18,<Unit Record Devices are not available>)
.ERR (142,OPNX19,<IMP is not up>) ;TOPS20AN
.ERR (143,OPNX20,<Host is not up>) ;TOPS20AN
.ERR (144,OPNX21,<Connection refused>) ;TOPS20AN
.ERR (145,OPNX22,<Connection byte size does not match>) ;TOPS20AN
.ERR (150,DESX1,<Invalid source/destination designator>)
.ERR (151,DESX2,<Terminal is not available to this job>)
.ERR (152,DESX3,<JFN is not assigned>)
.ERR (153,DESX4,<Invalid use of terminal designator or string pointer>)
.ERR (154,DESX5,<File is not open>)
.ERR (155,DESX6,<Device is not a terminal>)
.ERR (156,DESX7,<JFN cannot refer to output wildcard designators>)
.ERR (157,DESX8,<File is not on disk>)
.ERR (160,CLSX1,<File is not open>)
.ERR (161,CLSX2,<File cannot be closed by this process>)
.ERR (165,RJFNX1,<File is not closed>)
.ERR (166,RJFNX2,<JFN is being used to accumulate filename>)
.ERR (167,RJFNX3,<JFN is not accessible by this process>)
.ERR (170,DELFX1,<Delete access required>)
.ERR (175,SFPTX1,<File is not open>)
.ERR (176,SFPTX2,<Illegal to reset pointer for this file>)
.ERR (177,SFPTX3,<Invalid byte number>)
.ERR (200,CNDIX1,<Invalid password>)
.ERR (202,CNDIX3,<Invalid directory number>)
.ERR (204,CNDIX5,<Job is not logged in>)
.ERR (210,SFBSX1,<Illegal to change byte size for this opening of file>)
.ERR (211,SFBSX2,<Invalid byte size>)
.ERR (215,IOX1,<File is not opened for reading>)
.ERR (216,IOX2,<File is not opened for writing>)
.ERR (217,IOX3,<File is not open for random access>)
.ERR (220,IOX4,<End of file reached>)
.ERR (221,IOX5,<Device or data error>)
.ERR (222,IOX6,<Illegal to write beyond absolute end of file>)
.ERR (240,PMAPX1,<Invalid access requested>)
.ERR (241,PMAPX2,<Invalid use of PMAP>)
.ERR (245,SPACX1,<Invalid access requested>)
.ERR (250,FRKHX1,<Invalid process handle>)
.ERR (251,FRKHX2,<Illegal to manipulate a superior process>)
.ERR (252,FRKHX3,<Invalid use of multiple process handle>)
.ERR (253,FRKHX4,<Process is running>)
.ERR (254,FRKHX5,<Process has not been started>)
.ERR (255,FRKHX6,<All relative process handles in use>)
.ERR (260,SPLFX1,<Process is not inferior or equal to self>)
.ERR (261,SPLFX2,<Process is not inferior to self>)
.ERR (262,SPLFX3,<New superior process is inferior to intended inferior>)
.ERR (267,GTABX1,<Invalid table number>)
.ERR (270,GTABX2,<Invalid table index>)
.ERR (271,GTABX3,<GETAB capability required>)
.ERR (273,RUNTX1,<Invalid process handle -3 or -4>)
.ERR (275,STADX1,<WHEEL or OPERATOR capability required>)
.ERR (276,STADX2,<Invalid date or time>)
.ERR (300,ASNDX1,<Device is not assignable>)
.ERR (301,ASNDX2,<Illegal to assign this device >)
.ERR (302,ASNDX3,<No such device>)
.ERR (320,ATACX1,<Invalid job number>)
.ERR (321,ATACX2,<Job already attached>)
.ERR (322,ATACX3,<Incorrect user number>)
.ERR (323,ATACX4,<Invalid password>)
.ERR (324,ATACX5,<This job has no controlling terminal>)
.ERR (332,STDVX1,<No such device>)
.ERR (335,DEVX1,<Invalid device designator>)
.ERR (336,DEVX2,<Device already assigned to another job>)
.ERR (337,DEVX3,<Device is not on line>)
.ERR (345,MNTX1,<Internal format of directory is incorrect>)
.ERR (346,MNTX2,<Device is not on line>)
.ERR (347,MNTX3,<Device is not mountable>)
.ERR (350,TERMX1,<Invalid terminal code>)
.ERR (351,TLNKX1,<Illegal to set remote to object before object to remote>)
.ERR (352,ATIX1,<Invalid software interrupt channel number>)
.ERR (353,ATIX2,<Control-C capability required>)
.ERR (356,TLNKX2,<Link was not received within 15 seconds>)
.ERR (357,TLNKX3,<Links full>)
.ERR (360,TTYX1,<Device is not a terminal>)
.ERR (361,RSCNX1,<Overflowed rescan buffer, input string truncated>)
.ERR (362,RSCNX2,<Invalid function code>)
.ERR (363,CFRKX3,<Insufficient system resources>)
.ERR (365,KFRKX1,<Illegal to kill top level process>)
.ERR (366,KFRKX2,<Illegal to kill self>)
.ERR (367,RFRKX1,<Processes are not frozen>)
.ERR (370,HFRKX1,<Illegal to halt self with HFORK>)
.ERR (371,GFRKX1,<Invalid process handle>)
.ERR (373,GETX1,<Invalid save file format>)
.ERR (374,GETX2,<System Special Pages Table full>)
.ERR (375,TFRKX1,<Undefined function code>)
.ERR (376,TFRKX2,<Unassigned fork handle or not immediate inferior>)
.ERR (377,SFRVX1,<Invalid position in entry vector>)
.ERR (407,NOUTX1,<Radix is not in range 2 to 36 >)
.ERR (410,NOUTX2,<Column overflow>)
.ERR (411,TFRKX3,<Fork(s) not frozen>)
.ERR (414,IFIXX1,<Radix is not in range 2 to 10>)
.ERR (415,IFIXX2,<First nonspace character is not a digit>)
.ERR (416,IFIXX3,<Overflow (number is greater than 2**35 )>)
.ERR (424,GFDBX1,<Invalid displacement>)
.ERR (425,GFDBX2,<Invalid number of words>)
.ERR (426,GFDBX3,<List access required>)
.ERR (430,CFDBX1,<Invalid displacement>)
.ERR (431,CFDBX2,<Illegal to change specified bits>)
.ERR (432,CFDBX3,<Write or owner access required>)
.ERR (433,CFDBX4,<Invalid value for specified bits>)
.ERR (440,DUMPX1,<Command list error>)
.ERR (441,DUMPX2,<JFN is not open in dump mode>)
.ERR (442,DUMPX3,<Address error (too big or crosses end of memory)>)
.ERR (443,DUMPX4,<Access error (cannot read or write data in memory)>)
.ERR (450,RNAMX1,<Files are not on same device>)
.ERR (451,RNAMX2,<Destination file expunged>)
.ERR (452,RNAMX3,<Write or owner access to destination file required>)
.ERR (453,RNAMX4,<Quota exceeded in destination of rename>)
.ERR (454,BKJFX1,<Illegal to back up terminal pointer twice>)
.ERR (460,TIMEX1,<Time cannot be greater than 24 hours>)
.ERR (461,ZONEX1,<Time zone out of range>)
.ERR (462,ODTNX1,<Time zone must be USA or Greenwich>)
.ERR (464,DILFX1,<Invalid date format>)
.ERR (465,TILFX1,<Invalid time format>)
.ERR (466,DATEX1,<Year out of range>)
.ERR (467,DATEX2,<Month is not less than 12>)
.ERR (470,DATEX3,<Day of month too large>)
.ERR (471,DATEX4,<Day of week is not less than 7>)
.ERR (472,DATEX5,<Date out of range>)
.ERR (473,DATEX6,<System date and time are not set>)
.ERR (516,SMONX1,<WHEEL or OPERATOR capability required>)
.ERR (530,SACTX1,<File is not on multiple-directory device>)
.ERR (531,SACTX2,<Insufficient system resources (Job Storage Block full)>)
.ERR (532,SACTX3,<Directory requires numeric account>)
.ERR (533,SACTX4,<Write or owner access required>)
.ERR (540,GACTX1,<File is not on multiple-directory device>)
.ERR (541,GACTX2,<File expunged>)
.ERR (544,FFUFX1,<File is not open>)
.ERR (545,FFUFX2,<File is not on multiple-directory device>)
.ERR (546,FFUFX3,<No used page found>)
.ERR (555,DSMX1,<File(s) not closed>)
.ERR (560,RDDIX1,<Illegal to read directory for this device>)
.ERR (570,SIRX1,<Table address is not greater than 20>)
.ERR (600,SSAVX1,<Illegal to save files on this device>)
.ERR (601,SSAVX2,<Page count is not less than or equal to 1000>)
.ERR (610,SEVEX1,<Entry vector is not less than 1000>)
.ERR (614,WHELX1,<WHEEL or OPERATOR capability required>)
.ERR (615,CAPX1,<WHEEL or OPERATOR capability required>)
.ERR (617,PEEKX2,<Read access failure on monitor page>)
.ERR (620,CRDIX1,<WHEEL or OPERATOR capability required>)
.ERR (621,CRDIX2,<Illegal to change number of old directory>)
.ERR (622,CRDIX3,<Insufficient system resources (Job Storage Block full)>)
.ERR (623,CRDIX4,<Superior directory full>)
.ERR (624,CRDIX5,<Directory name not given>)
.ERR (626,CRDIX7,<File(s) open in directory>)
.ERR (640,GTDIX1,<WHEEL or OPERATOR capability required>)
.ERR (641,GTDIX2,<Invalid directory number>)
.ERR (650,FLINX1,<First character is not blank or numeric>)
.ERR (651,FLINX2,<Number too small>)
.ERR (652,FLINX3,<Number too large>)
.ERR (653,FLINX4,<Invalid format>)
.ERR (660,FLOTX1,<Column overflow in field 1 or 2>)
.ERR (661,FLOTX2,<Column overflow in field 3>)
.ERR (662,FLOTX3,<Invalid format specified>)
.ERR (670,HPTX1,<Undefined clock number>)
.ERR (700,FDFRX1,<Not a multiple-directory device>)
.ERR (701,FDFRX2,<Invalid directory number>)
.ERR (704,GTHSX1,<Unknown host number>) ;TOPS20AN
.ERR (705,GTHSX2,<No number for that host name>) ;TOPS20AN
.ERR (707,GTHSX3,<No string for that Host number>) ;TOPS20AN
.ERR (710,ATNX1,<Invalid receive JFN>) ;TOPS20AN
.ERR (711,ATNX2,<Receive JFN not opened for read>) ;TOPS20AN
.ERR (712,ATNX3,<Receive JFN not open>) ;TOPS20AN
.ERR (713,ATNX4,<Receive JFN is not a NET connection>) ;TOPS20AN
.ERR (714,ATNX5,<Receive JFN has been used>) ;TOPS20AN
.ERR (715,ATNX6,<Receive connection refused>) ;TOPS20AN
.ERR (716,ATNX7,<Invalid send JFN>) ;TOPS20AN
.ERR (717,ATNX8,<Send JFN not opened for write>) ;TOPS20AN
.ERR (720,ATNX9,<Send JFN not open>) ;TOPS20AN
.ERR (721,ATNX10,<Send JFN is not a NET connection>) ;TOPS20AN
.ERR (722,ATNX11,<Send JFN has been used>) ;TOPS20AN
.ERR (723,ATNX12,<Send connection refused>) ;TOPS20AN
.ERR (724,ATNX13,<Insufficient system resources (No NVT's)>) ;TOPS20AN
.ERR (727,CVHST1,<No string for that Host number>) ;TOPS20AN
.ERR (730,CVSKX1,<Invalid network JFN>) ;TOPS20AN
.ERR (731,CVSKX2,<Local socket invalid in this context>) ;TOPS20AN
.ERR (732,SNDIX1,<Invalid message size>) ;TOPS20AN
.ERR (733,SNDIX2,<Insufficient system resources (No buffers available)>) ;TOPS20AN
.ERR (734,SNDIX3,<Illegal to specify NCP links 0 - 72>) ;TOPS20AN
.ERR (735,SNDIX4,<Invalid header value for this queue>) ;TOPS20AN
.ERR (736,SNDIX5,<IMP down>) ;TOPS20AN
.ERR (737,NTWZX1,<NET WIZARD capability  required>) ;TOPS20AN
.ERR (740,ASNSX1,<Insufficient system resources (All special queues in use)>) ;TOPS20AN
.ERR (741,ASNSX2,<Link(s) assigned to another special queue>) ;TOPS20AN
.ERR (742,SQX1,<Special network queue handle out of range>) ;TOPS20AN
.ERR (743,SQX2,<Special network queue not assigned>) ;TOPS20AN
.ERR (746,GTNCX1,<Invalid network JFN>) ;TOPS20AN
.ERR (747,GTNCX2,<Invalid or inactive NVT>) ;TOPS20AN
.ERR (750,RNAMX5,<Destination file is not closed>)
.ERR (751,RNAMX6,<Destination file has bad page table>)
.ERR (752,RNAMX7,<Source file expunged>)
.ERR (753,RNAMX8,<Write or owner access to source file required>)
.ERR (754,RNAMX9,<Source file is nonexistent>)
.ERR (755,RNMX10,<Source file is not closed>)
.ERR (756,RNMX11,<Source file has bad page table>)
.ERR (757,RNMX12,<Illegal to rename to self>)
.ERR (760,GJFX36,<Internal format of directory is incorrect>)
.ERR (770,ILINS1,<Undefined operation code>)
.ERR (771,ILINS2,<Undefined JSYS>)
.ERR (772,ILINS3,<UUO simulation facility not available>)
.ERR (1000,CRLNX1,<Logical name is not defined>)
.ERR (1001,INLNX1,<Index is beyond end of logical name table>)
.ERR (1002,LNSTX1,<No such logical name>)
.ERR (1003,MLKBX1,<Lock facility already in use>)
.ERR (1004,MLKBX2,<Too many pages to be locked>)
.ERR (1005,MLKBX3,<Page is not available>)
.ERR (1006,MLKBX4,<Illegal to remove previous contents of user map>)
.ERR (1007,VBCX1,<Display data area not locked in core>)
.ERR (1010,RDTX1,<Invalid string pointer>)
.ERR (1011,GFKSX1,<Area too small to hold process structure>)
.ERR (1013,GTJIX1,<Invalid index>)
.ERR (1014,GTJIX2,<Invalid terminal line number>)
.ERR (1015,GTJIX3,<Invalid job number>)
.ERR (1016,IPCFX1,<Length of packet descriptor block cannot be less than 4>)
.ERR (1017,IPCFX2,<No message for this PID>)
.ERR (1020,IPCFX3,<Data too long for user's buffer>)
.ERR (1021,IPCFX4,<Receiver's PID invalid>)
.ERR (1022,IPCFX5,<Receiver's PID disabled>)
.ERR (1023,IPCFX6,<Send quota exceeded>)
.ERR (1024,IPCFX7,<Receiver quota exceeded>)
.ERR (1025,IPCFX8,<IPCF free space exhausted>)
.ERR (1026,IPCFX9,<Sender's PID invalid>)
.ERR (1027,IPCF10,<WHEEL capability required>)
.ERR (1030,IPCF11,<WHEEL or IPCF capability required>)
.ERR (1031,IPCF12,<No free PID's available>)
.ERR (1032,IPCF13,<PID quota exceeded>)
.ERR (1033,IPCF14,<No PID's available to this job>)
.ERR (1034,IPCF15,<No PID's available to this process>)
.ERR (1035,IPCF16,<Receive and message data modes do not match>)
.ERR (1036,IPCF17,<Argument block too small>)
.ERR (1037,IPCF18,<Invalid MUTIL JSYS function>)
.ERR (1040,IPCF19,<No PID for [SYSTEM] INFO>)
.ERR (1041,IPCF20,<Invalid process handle>)
.ERR (1042,IPCF21,<Invalid job number>)
.ERR (1043,IPCF22,<Invalid software interrupt channel number>)
.ERR (1044,IPCF23,<[SYSTEM] INFO already exists>)
.ERR (1045,IPCF24,<Invalid message size>)
.ERR (1046,IPCF25,<PID does not belong to this job>)
.ERR (1047,IPCF26,<PID does not belong to this process>)
.ERR (1050,IPCF27,<PID is not defined>)
.ERR (1051,IPCF28,<PID not accessible by this process>)
.ERR (1052,IPCF29,<PID already being used by another process>)
.ERR (1053,IPCF30,<Job is not logged in>)
.ERR (1054,GNJFX1,<No more files in this specification>)
.ERR (1055,ENQX1,<Invalid function>)
.ERR (1056,ENQX2,<Level number too small>)
.ERR (1057,ENQX3,<Request and lock level numbers do not match>)
.ERR (1060,ENQX4,<Number of pool and lock resources do not match>)
.ERR (1061,ENQX5,<Lock already requested>)
.ERR (1062,ENQX6,<Requested locks are not all locked>)
.ERR (1063,ENQX7,<No ENQ on this lock>)
.ERR (1064,ENQX8,<Invalid access change requested>)
.ERR (1065,ENQX9,<Invalid number of blocks specified>)
.ERR (1066,ENQX10,<Invalid argument block length>)
.ERR (1067,ENQX11,<Invalid software interrupt channel number>)
.ERR (1070,ENQX12,<Invalid number of resources requested>)
.ERR (1071,ENQX13,<Indirect or indexed byte pointer not allowed>)
.ERR (1072,ENQX14,<Invalid byte size>)
.ERR (1073,ENQX15,<ENQ/DEQ capability required>)
.ERR (1074,ENQX16,<WHEEL or OPERATOR capability required>)
.ERR (1075,ENQX17,<Invalid JFN>)
.ERR (1076,ENQX18,<Quota exceeded>)
.ERR (1077,ENQX19,<String too long>)
.ERR (1100,ENQX20,<Locked JFN cannot be closed>)
.ERR (1101,ENQX21,<Job is not logged in>)
.ERR (1102,IPCF31,<Invalid page number>)
.ERR (1103,IPCF32,<Page is not private>)
.ERR (1104,PMAPX3,<Illegal to move shared page into file>)
.ERR (1105,PMAPX4,<Illegal to move file page into process>)
.ERR (1106,PMAPX5,<Illegal to move special page into file>)
.ERR (1107,PMAPX6,<Disk quota exceeded>)
.ERR (1110,SNOPX1,<WHEEL or OPERATOR capability required>)
.ERR (1111,SNOPX2,<Invalid function>)
.ERR (1112,SNOPX3,<.SNPLC function must be first>)
.ERR (1113,SNOPX4,<Only one .SNPLC function allowed>)
.ERR (1114,SNOPX5,<Invalid page number>)
.ERR (1115,SNOPX6,<Invalid number of pages to lock>)
.ERR (1116,SNOPX7,<Illegal to define breakpoints after inserting them>)
.ERR (1117,SNOPX8,<Breakpoint is not set on instruction>)
.ERR (1120,SNOPX9,<No more breakpoints allowed>)
.ERR (1121,SNOP10,<Breakpoints already inserted>)
.ERR (1122,SNOP11,<Breakpoints not inserted>)
.ERR (1123,SNOP12,<Invalid format for program name symbol>)
.ERR (1124,SNOP13,<No such program name symbol>)
.ERR (1125,SNOP14,<No such symbol>)
.ERR (1126,SNOP15,<Not enough free pages for snooping>)
.ERR (1127,SNOP16,<Multiply defined symbol>)
.ERR (1130,IPCF33,<Invalid index into system PID table>)
.ERR (1131,SNOP17,<Breakpoint already defined>)
.ERR (1132,OPNX23,<Disk quota exceeded>)
.ERR (1133,GJFX37,<Input deleted>)
.ERR (1134,CRLNX2,<WHEEL or OPERATOR capability required>)
.ERR (1135,INLNX2,<Invalid function>)
.ERR (1136,LNSTX2,<Invalid function>)
.ERR (1137,ALCX1,<Invalid function>)
.ERR (1140,ALCX2,<WHEEL or OPERATOR capability required>)
.ERR (1141,ALCX3,<Device is not assignable>)
.ERR (1142,ALCX4,<Invalid job number>)
.ERR (1143,ALCX5,<Device already assigned to another job>)
.ERR (1144,SPLX1,<Invalid function>)
.ERR (1145,SPLX2,<Argument block too small>)
.ERR (1146,SPLX3,<Invalid device designator>)
.ERR (1147,SPLX4,<WHEEL or OPERATOR capability required>)
.ERR (1150,SPLX5,<Illegal to specify 0 as generation number for first file>)
.ERR (1151,CLSX3,<File still mapped>)
.ERR (1152,CRLNX3,<Invalid function>)
.ERR (1153,ALCX6,<Device assigned to user job, but will be given to allocator when released>)
.ERR (1154,CKAX1,<Argument block too small>)
.ERR (1155,CKAX2,<Invalid directory number>)
.ERR (1156,CKAX3,<Invalid access code>)
.ERR (1157,TIMX1,<Invalid function>)
.ERR (1160,TIMX2,<Invalid process handle>)
.ERR (1161,TIMX3,<Time limit already set>)
.ERR (1162,TIMX4,<Illegal to clear time limit>)
.ERR (1163,SNOP18,<Data page is not private or copy-on-write>)
.ERR (1164,GJFX38,<File not found because output-only device was specified>)
.ERR (1165,GJFX39,<Logical name loop detected>)
.ERR (1166,CRDIX8,<Invalid directory number>)
.ERR (1167,CRDIX9,<Internal format of directory is incorrect>)
.ERR (1170,CRDI10,<Maximum directory number exceeded;  index table needs expanding>)
.ERR (1171,DELDX1,<WHEEL or OPERATOR capability required>)
.ERR (1172,DELDX2,<Invalid directory number>)
.ERR (1173,GACTX3,<Internal format of directory is incorrect>)
.ERR (1174,DIAGX1,<Invalid function>)
.ERR (1175,DIAGX2,<Device is not assigned>)
.ERR (1176,DIAGX3,<Argument block too small>)
.ERR (1177,DIAGX4,<Invalid device type>)
.ERR (1200,DIAGX5,<WHEEL, OPERATOR, or MAINTENANCE capability required>)
.ERR (1201,DIAGX6,<Invalid channel command list>)
.ERR (1202,DIAGX7,<Illegal to do I/O across page boundary>)
.ERR (1203,DIAGX8,<No such device>)
.ERR (1204,DIAGX9,<Unit does not exist>)
.ERR (1205,DIAG10,<Subunit does not exist>)
.ERR (1206,SYEX1,<Unreasonable SYSERR block size>)
.ERR (1207,SYEX2,<No buffer space available for SYSERR>)
.ERR (1210,MTOX1,<Invalid function>)
.ERR (1211,IOX7,<Insufficient system resources (Job Storage Block full)>)
.ERR (1212,IOX8,<Monitor internal error>)
.ERR (1213,MTOX5,<Invalid hardware data mode for magnetic tape>)
.ERR (1214,DUMPX5,<No-wait dump mode not supported for this device>)
.ERR (1215,DUMPX6,<Dump mode not supported for this device>)
.ERR (1216,IOX9,<Function legal for sequential write only>)
.ERR (1217,CLSX4,<Device still active>)
.ERR (1220,MTOX2,<Record size was not set before I/O was done>)
.ERR (1221,MTOX3,<Function not legal in dump mode>)
.ERR (1222,MTOX4,<Invalid record size>)
.ERR (1223,MTOX6,<Invalid magnetic tape density>)
.ERR (1224,OPNX25,<Device is write locked>)
.ERR (1225,GJFX40,<Undefined attribute in file specification>)
.ERR (1226,MTOX7,<WHEEL or OPERATOR capability required>)
.ERR (1227,LOUTX3,<WHEEL or OPERATOR capability required>)
.ERR (1230,LOUTX4,<LOG capability required>)
.ERR (1231,CAPX2,<WHEEL, OPERATOR, or MAINTENANCE capability required>)
.ERR (1232,SSAVX3,<Insufficient system resources (Job Storage Block full)>)
.ERR (1233,SSAVX4,<Directory area of EXE file is more than one page>)
.ERR (1234,TDELX1,<Table is empty>)
.ERR (1235,TADDX1,<Table is full>)
.ERR (1236,TADDX2,<Entry is already in table>)
.ERR (1237,TLUKX1,<Internal format of table is incorrect>)
.ERR (1240,IOX10,<Record is longer than user requested>)
.ERR (1241,CNDIX2,<WHEEL or OPERATOR capability required>)
.ERR (1242,CNDIX4,<Invalid job number>)
.ERR (1243,CNDIX6,<Job is not logged in>)
.ERR (1244,SJBX1,<Invalid function>)
.ERR (1245,SJBX2,<Invalid magnetic tape density>)
.ERR (1246,SJBX3,<Invalid magnetic tape data mode>)
.ERR (1247,TMONX1,<Invalid TMON function>)
.ERR (1250,SMONX2,<Invalid SMON function>)
.ERR (1251,SJBX4,<Invalid job number>)
.ERR (1252,SJBX5,<Job is not logged in>)
.ERR (1253,SJBX6,<WHEEL or OPERATOR capability required>)
.ERR (1254,GTJIX4,<No such job>)
.ERR (1255,ILINS4,<UUO simulation is disabled>)
.ERR (1256,ILINS5,<RMS facility is not available>)
.ERR (1257,COMNX1,<Invalid COMND function code>)
.ERR (1260,COMNX2,<Field too long for internal buffer>)
.ERR (1261,COMNX3,<Command too long for internal buffer>)
.ERR (1262,COMNX4,<Invalid character in input>)
.ERR (1263,PRAX1,<Invalid PRARG function code>)
.ERR (1264,PRAX2,<No room in monitor data base for argument block>)
.ERR (1265,COMNX5,<Invalid string pointer argument>)
.ERR (1266,COMNX6,<Problem in indirect file>)
.ERR (1267,COMNX7,<Error in command>)
.ERR (1270,PRAX3,<PRARG argument block too large>)
.ERR (1271,CKAX4,<File is not on disk>)
.ERR (1272,GACCX1,<Invalid job number>)
.ERR (1273,GACCX2,<No such job>)
.ERR (1274,MTOX8,<Argument block too long>)
.ERR (1275,DBRKX1,<No interrupts in progress>)
.ERR (1276,SJPRX1,<Job is not logged in>)
.ERR (1277,GJFX41,<File name must not exceed 6 characters>)
.ERR (1300,GJFX42,<File type must not exceed 3 characters>)
.ERR (1301,GACCX3,<Confidential Information Access capability required>)
.ERR (1302,TIMEX2,<Downtime cannot be more than 7 days in the future>)
.ERR (1303,DELFX2,<File cannot be expunged because it is currently open>)
.ERR (1304,DELFX3,<System scratch area depleted; file not deleted>)
.ERR (1305,DELFX4,<Directory symbol table could not be rebuilt>)
.ERR (1306,DELFX5,<Directory symbol table needs rebuilding>)
.ERR (1307,DELFX6,<Internal format of directory is incorrect>)
.ERR (1310,DELFX7,<FDB formatted incorrectly; file not deleted>)
.ERR (1311,DELFX8,<FDB not found; file not deleted>)
.ERR (1312,FRKHX7,<Process page cannot exceed 777>)
.ERR (1313,DIRX1,<Invalid directory number>)
.ERR (1314,DIRX2,<Insufficient system resources>)
.ERR (1315,DIRX3,<Internal format of directory is incorrect>)
.ERR (1316,UFPGX1,<File is not open for write>)
.ERR (1317,LNGFX1,<Page table does not exist and file not open for write>)
.ERR (1320,IPCF34,<Cannot receive into an existing page>)
.ERR (1321,COMNX8,<Number base out of range 2-10>)
.ERR (1322,MTOX9,<Output still pending>)
.ERR (1323,MTOX10,<VFU or RAM file cannot be OPENed>)
.ERR (1324,MTOX11,<Data too large for buffers>)
.ERR (1325,MTOX12,<Input error or not all data read>)
.ERR (1326,MTOX13,<Argument block too small>)
.ERR (1327,MTOX14,<Invalid software interrupt channel number>)
.ERR (1330,SAVX1,<Illegal to save files on this device>)
.ERR (1331,MTOX15,<Device does not have Direct Access (programmable) VFU>)
.ERR (1332,MTOX16,<VFU or Translation Ram file must be on disk>)
.ERR (1333,LPINX1,<Invalid unit number>)
.ERR (1334,LPINX2,<WHEEL or OPERATOR capability required>)
.ERR (1335,LPINX3,<Illegal to load RAM or VFU while device is OPEN>)
.ERR (1336,MTOX17,<Device is not on line>)
.ERR (1337,LGINX6,<No more job slots available for logging-in>)
.ERR (1340,DESX9,<Invalid operation for this device>)
.ERR (1341,ACESX1,<Argument block too small>)
.ERR (1342,ACESX2,<Insufficient system resources>)
.ERR (1343,DSKOX1,<Channel number too large>)
.ERR (1344,DSKOX2,<Unit number too large>)
.ERR (1345,MSTRX1,<Invalid function>)
.ERR (1346,MSTRX2,<WHEEL or OPERATOR capability required>)
.ERR (1347,MSTRX3,<Argument block too small>)
.ERR (1350,MSTRX4,<Insufficient system resources>)
.ERR (1351,MSTRX5,<Drive is not on-line>)
.ERR (1352,MSTRX6,<Home blocks are bad>)
.ERR (1353,MSTRX7,<Invalid structure name>)
.ERR (1354,MSTRX8,<Could not get OFN for ROOT-DIRECTORY>)
.ERR (1355,MSTRX9,<Could not MAP ROOT-DIRECTORY>)
.ERR (1356,MSTX10,<ROOT-DIRECTORY bad>)
.ERR (1357,MSTX11,<Could not initialize Index Table>)
.ERR (1360,MSTX12,<Could not OPEN Bit Table File>)
.ERR (1361,MSTX13,<Backup copy of ROOT-DIRECTORY is bad>)
.ERR (1362,MSTX14,<Invalid channel number>)
.ERR (1363,MSTX15,<Invalid unit number>)
.ERR (1364,MSTX16,<Invalid controller number>)
.ERR (1365,DSKX01,<Invalid structure number>)
.ERR (1366,DSKX02,<Bit table is being initialized>)
.ERR (1367,DSKX03,<Bit table has not been initialized>)
.ERR (1370,DSKX04,<Bit table being initialized by another job>)
.ERR (1371,GFUSX1,<Invalid function>)
.ERR (1372,GFUSX2,<Insufficient system resources>)
.ERR (1373,SFUSX1,<Invalid function>)
.ERR (1374,SFUSX2,<Insufficient system resources>)
.ERR (1375,SFUSX3,<No such user name>)
.ERR (1376,RCDIX1,<Insufficient system resources>)
.ERR (1377,RCDIX2,<Invalid directory specification>)
.ERR (1400,RCDIX3,<Invalid structure name>)
.ERR (1401,RCDIX4,<Monitor internal error>)
.ERR (1402,RCUSX1,<Insufficient system resources>)
.ERR (1403,TDELX2,<Invalid table entry location>)
.ERR (1404,TIMX5,<Invalid software interrupt channel number>)
.ERR (1405,LSTRX1,<Process has not encountered any errors>)
.ERR (1406,SWJFX1,<Illegal to swap same JFN>)
.ERR (1407,MTOX18,<Invalid software interrupt channel number>)
.ERR (1410,OPNX26,<Illegal to open a string pointer>)
.ERR (1411,DELFX9,<File is not a directory file>)
.ERR (1412,CRDIX6,<Directory file is mapped>)
.ERR (1413,COMNX9,<End of input file reached>)
.ERR (1414,STYPX1,<Invalid terminal type>)
.ERR (1415,PMAPX7,<Illegal to map file on dismounted structure>)
.ERR (1416,DSKOX3,<Invalid structure number>)
.ERR (1417,DESX10,<Structure is dismounted>)
.ERR (1420,DSKOX4,<Invalid address type specified>)
.ERR (1421,MSTX17,<All units in a structure must be of the same type>)
.ERR (1422,MSTX18,<No more units in system>)
.ERR (1423,MSTX19,<Unit is already part of a mounted structure>)
.ERR (1424,MSTX20,<Data error reading HOME blocks>)
.ERR (1425,MSTX21,<Structure is not mounted>)
.ERR (1426,MSTX22,<Illegal to change specified bits>)
.ERR (1427,CRDI11,<Invalid terminating bracket on directory>)
.ERR (1430,MSTX23,<Could not write HOME blocks>)
.ERR (1431,ACESX3,<Password is required>)
.ERR (1432,ACESX4,<Function not allowed for another job>)
.ERR (1433,ACESX5,<No function specified for ACCES>)
.ERR (1434,STRX05,<No such user name>)
.ERR (1435,ACESX6,<Directory is not accessed>)
.ERR (1436,STRX01,<Structure is not mounted>)
.ERR (1437,STRX02,<Insufficient system resources>)
.ERR (1440,IOX11,<Quota exceeded or disk full>)
.ERR (1441,IOX12,<Insufficient system resources (Swapping space full)>)
.ERR (1442,STRX03,<No such directory name>)
.ERR (1443,STRX04,<Ambiguous directory specification>)
.ERR (1444,PPNX1,<Invalid PPN>)
.ERR (1445,PPNX2,<Structure is not mounted>)
.ERR (1446,PPNX3,<Insufficient system resources>)
.ERR (1447,PPNX4,<Invalid directory number>)
.ERR (1450,SPLX6,<No directory to write spooled files into>)
.ERR (1451,CRDI12,<Structure is not mounted>)
.ERR (1452,GFUSX3,<File expunged>)
.ERR (1453,GFUSX4,<Internal format of directory is incorrect>)
.ERR (1454,RNMX13,<Insufficient system resources>)
.ERR (1455,SJBX8,<Illegal to perform this function>)
.ERR (1456,DECRSV,<DEC reserved bits not zero>)
.ERR (1457,FFFFX1,<No free pages in file>)
.ERR (1460,WILDX1,<Second JFN cannot be wild>)

; ERROR CODES 1461-1534 ARE AVAILABLE******

.ERR (1535,TIMX6,<Time has already passed>)
.ERR (1536,TIMX7,<No space available for a clock>)
.ERR (1537,TIMX8,<User clock allocation exceeded>)
.ERR (1540,TIMX9,<No such clock entry found>)
.ERR (1541,TIMX10,<No system date and time>)

.ERR (1550,SCTX1,<Invalid function code>)
.ERR (1551,SCTX2,<Terminal already in use as controlling terminal>)
.ERR (1552,SCTX3,<Illegal to redefine the job's controlling terminal>)
.ERR (1553,SCTX4,<SC%SCT capability required>)

; Error codes 1554-1677 are available ******

.ERR (1700,SFUSX4,<File expunged>)
.ERR (1701,SFUSX5,<Write or owner access required>)
.ERR (1702,SFUSX6,<No such user name>)
.ERR (1703,GETX3,<Illegal to overlay existing pages>)
.ERR (1704,FILX01,<File is not open>)
.ERR (1705,ARGX01,<Invalid password>)
.ERR (1706,CAPX3,<WHEEL capability required>)
.ERR (1707,CAPX4,<WHEEL or IPCF capability required>)
.ERR (1711,CAPX6,<ENQ/DEQ capability required>)
.ERR (1712,CAPX7,<Confidential Information Access Capability required>)
.ERR (1713,ARGX02,<Invalid function>)
.ERR (1714,ARGX03,<Illegal to change specified bits>)
.ERR (1715,ARGX04,<Argument block too small>)
.ERR (1716,ARGX05,<Argument block too long>)
.ERR (1717,ARGX06,<Invalid page number>)
.ERR (1720,ARGX07,<Invalid job number>)
.ERR (1721,ARGX08,<No such job>)
.ERR (1722,ARGX09,<Invalid byte size>)
.ERR (1723,ARGX10,<Invalid access requested>)
.ERR (1724,ARGX11,<Invalid directory number>)
.ERR (1725,ARGX12,<Invalid process handle>)
.ERR (1726,ARGX13,<Invalid software interrupt channel number>)
.ERR (1727,MONX01,<Insufficient system resources>)
.ERR (1730,MONX02,<Insufficient system resources (JSB full)>)
.ERR (1731,MONX03,<Monitor internal error>)
.ERR (1732,MONX04,<Insufficient system resources (Swapping space full)>)
.ERR (1733,ARGX14,<Invalid account identifier>)
.ERR (1734,ARGX15,<Job is not logged in>)
.ERR (1735,FILX02,<Write or owner access required>)
.ERR (1736,FILX03,<List access required>)
.ERR (1737,DEVX4,<Device is not assignable>)
.ERR (1740,FILX04,<File is not on multiple-directory device>)
.ERR (1741,ARGX16,<Password is required>)
.ERR (1742,ARGX17,<Invalid argument block length>)
.ERR (1743,ARGX18,<Invalid structure name>)
.ERR (1744,DEVX5,<No such device>)
.ERR (1745,DIRX4,<Invalid directory specification>)
.ERR (1746,FILX05,<File expunged>)
.ERR (1747,STRX06,<No such user number>)
.ERR (1750,MSTX24,<Illegal to dismount the Public Structure>)
.ERR (1751,MSTX25,<Invalid number of swapping pages>)
.ERR (1752,MSTX26,<Invalid number of Front-End-Filesystem pages>)
.ERR (1753,LOUTX5,<Illegal to log out job 0>)
.ERR (1754,GJFX43,<More than one ;T specification is not allowed>)
.ERR (1755,MTOX19,<Invalid terminal page width>)
.ERR (1756,MTOX20,<Invalid terminal page length>)
.ERR (1757,MSTX27,<Specified unit is not a disk>)
.ERR (1760,MSTX28,<Could not initialize bit table for structure>)
.ERR (1761,MSTX29,<Could not reconstruct ROOT-DIRECTORY>)
.ERR (1763,DSKX05,<Disk assignments and deassignments are currently prohibited>)
.ERR (1764,DSKX06,<Invalid disk address>)
.ERR (1765,DSKX07,<Address cannot be deassigned because it is not assigned>)
.ERR (1766,DSKX08,<Address cannot be assigned because it is already assigned>)
.ERR (1767,COMX10,<Invalid default string>)
.ERR (1770,MSTX30,<Incorrect Bit Table counts on structure>)
.ERR (1771,LOCKX1,<Illegal to lock other than a private page>)
.ERR (1772,LOCKX2,<Requested page unavailable>)
.ERR (1773,LOCKX3,<Attempt to lock too much memory>)
.ERR (1774,ILLX01,<Illegal memory read>)
.ERR (1775,ILLX02,<Illegal memory write>)
.ERR (1776,ILLX03,<Memory data parity error >)
.ERR (1777,ILLX04,<Reference to non-existent page>)
.ERR (2000,MSTX31,<Structure already mounted>)
.ERR (2001,MSTX32,<Structure was not mounted>)
.ERR (2002,MSTX33,<Structure is unavailable for mounting>)
.ERR (2003,STDIX1,<The STDIR JSYS has been replaced by RCDIR and RCUSR>)
.ERR (2004,CNDIX7,<The CNDIR JSYS has been replaced by ACCES>)
.ERR (2005,PMCLX1,<Illegal page state or state transition>)
.ERR (2006,PMCLX2,<Requested physical page is unavailable>)
.ERR (2007,PMCLX3,<Requested physical page contains errors>)
.ERR (2010,DLFX10,<Cannot delete directory; file still mapped>)
.ERR (2011,DLFX11,<Cannot delete directory file in this manner>)
.ERR (2012,GJFX44,<Account string does not match>)
.ERR (2013,UTSTX1,<Invalid function code>)
.ERR (2014,UTSTX2,<Area of code too large to test>)
.ERR (2015,UTSTX3,<UTEST facility in use by another process>)
.ERR (2016,BOTX01,<Invalid DTE-20 number>)
.ERR (2017,BOTX02,<Invalid byte size>)
.ERR (2020,DCNX1,<Invalid network file name>)
.ERR (2021,DCNX5,<No more logical links available>)
.ERR (2022,DCNX3,<Invalid object>)
.ERR (2023,DCNX4,<Invalid task name>)
.ERR (2024,DCNX9,<Object is already defined>)
.ERR (2025,DCNX8,<Invalid network operation>)
.ERR (2026,DCNX11,<Link aborted>)
.ERR (2027,DCNX12,<String exceeds 16 bytes>)
.ERR (2030,TTYX01,<Line is not active>)
.ERR (2031,BOTX03,<Invalid protocol version number>)
.ERR (2032,MONX05,<Insufficient system resources (no resident free space)>)
.ERR (2033,ARGX19,<Invalid unit number>)
.ERR (2035,COMX11,<Invalid CMRTY pointer>)
.ERR (2036,COMX12,<Invalid CMBFP pointer>)
.ERR (2037,COMX13,<Invalid CMPTR pointer>)
.ERR (2040,COMX14,<Invalid CMABP pointer>)
.ERR (2041,COMX15,<Invalid default string pointer>)
.ERR (2042,COMX16,<Invalid help message pointer>)
.ERR (2043,COMX17,<Invalid byte pointer in function block>)
.ERR (2044,NPXAMB,<Ambiguous>)
.ERR (2045,NPXNSW,<Not a switch - does not begin with slash>)
.ERR (2046,NPXNOM,<Does not match switch or keyword>)
.ERR (2047,NPXNUL,<Null switch or keyword given>)
.ERR (2050,NPXINW,<Invalid guide word>)
.ERR (2051,NPXNC,<Not confirmed>)
.ERR (2052,NPXICN,<Invalid character in number>)
.ERR (2053,NPXIDT,<Invalid device terminator>)
.ERR (2054,NPXNQS,<Not a quoted string - quote missing at beginning or end>)
.ERR (2055,NPXNMT,<Does not match token>)
.ERR (2056,NPXNMD,<Does not match directory or user name>)
.ERR (2057,NPXCMA,<Comma not given>)
.ERR (2060,GJFX45,<Illegal to request multiple specifications for the same attribute>)
.ERR (2061,GJFX46,<Attribute value is required>)
.ERR (2062,GJFX47,<Attribute does not take a value>)
.ERR (2063,MSTX34,<Unit is write-locked>)
.ERR (2064,GJFX48,<GTJFN input buffer is empty>)
.ERR (2065,GJFX49,<Invalid attribute for this device>)
.ERR (2077,SJBX7,<Remark exceeds 39 characters>)
.ERR (2100,DELF10,<Directory still contains subdirectory>)
.ERR (2101,CRDI13,<Request exceeds superior directory working quota>)
.ERR (2102,CRDI14,<Request exceeds superior directory permanent quota>)
.ERR (2103,CRDI15,<Request exceeds superior directory subdirectory quota>)
.ERR (2104,CRDI16,<Invalid user group>)
.ERR (2105,ENACX1,<Account validation data base file not completely closed>)
.ERR (2106,ENACX2,<Cannot get a JFN for <SYSTEM>ACCOUNTS-TABLE.BIN>)
.ERR (2107,ENACX3,<Account validation data base file too long>)
.ERR (2110,ENACX4,<Cannot get an OFN for <SYSTEM>ACCOUNTS-TABLE.BIN>)
.ERR (2111,VACCX0,<Invalid account>)
.ERR (2112,VACCX1,<Account string exceeds 39 characters>)
.ERR (2113,USGX01,<Invalid USAGE entry type code>)
.ERR (2114,BOTX04,<Byte count is not positive>)
.ERR (2115,NODX01,<Node name exceeds 6 characters>)
.ERR (2116,USGX02,<Item not found in argument list>)
.ERR (2117,CRDI17,<Illegal to create non-files-only subdirectory under files-only directory>)
.ERR (2120,ENQX23,<Mismatched mask block lengths>)
.ERR (2121,ENQX22,<Invalid mask block length>)
.ERR (2122,DCNX2,<Interrupt message must be read first>)
.ERR (2123,ABRKX1,<Address break not available on this system>)
.ERR (2124,USGX03,<Default item not allowed>)
.ERR (2125,IPCF35,<Invalid IPCF quota>)
.ERR (2126,VACCX2,<Account has expired>)
.ERR (2127,CRDI18,<Illegal to delete logged-in directory>)
.ERR (2130,CRDI19,<Illegal to delete connected directory>)
.ERR (2132,BOTX05,<Protocol initialization failed>)
.ERR (2133,CRDI20,<WHEEL, OPERATOR, or requested capability required>)
.ERR (2134,COMX18,<Invalid character in node name>)
.ERR (2135,COMX19,<Too many characters in node name>)
.ERR (2136,CRDI21,<Working space insufficient for current allocation>)
.ERR (2137,ACESX7,<Directory is "files-only" and cannot be accessed>)
.ERR (2140,CRDI22,<Subdirectory quota insufficient for existing subdirectories>)
.ERR (2141,CRDI23,<Superior directory does not exist>)
.ERR (2142,STRX07,<Invalid user number>)
.ERR (2143,STRX08,<Invalid user name>)
.ERR (2144,CRDI24,<Invalid subdirectory quota>)
.ERR (2146,ATSX01,<Invalid mode>)
.ERR (2147,ATSX02,<Illegal to declare mode twice>)
.ERR (2150,ATSX03,<Illegal to declare mode after acquiring terminal>)
.ERR (2151,ATSX04,<Invalid event code>)
.ERR (2152,ATSX05,<Invalid function code for channel assignment>)
.ERR (2153,ATSX06,<JFN is not an ATS JFN>)
.ERR (2154,ATSX07,<Table length too small>)
.ERR (2155,ATSX08,<Table lengths must be the same>)
.ERR (2156,ATSX09,<Table length too large>)
.ERR (2157,ATSX10,<Maximum applications terminals for system already assigned>)
.ERR (2160,ATSX11,<Byte count is too large>)
.ERR (2161,ATSX12,<Terminal not assigned to this JFN>)
.ERR (2162,ATSX13,<Terminal is XOFF'd>)
.err (2163,ATSX14,<Terminal has been released>)
.ERR (2164,ATSX15,<Terminal identifier is not assigned>)
.ERR (2165,PMCLX4,<No more error information>)
.ERR (2166,ATSX16,<Invalid Host Terminal Number>)
.ERR (2167,ATSX17,<Output failed -- monitor internal error>)
.ERR (2170,FRKHX8,<Illegal to manipulate an execute-only process>)
.ERR (2171,ARGX20,<Invalid arithmetic trap argument>)
.ERR (2172,ARGX21,<Invalid LUUO trap argument>)
.ERR (2173,ARGX22,<Invalid flags>)
.ERR (2174,ATSX18,<ATS input message too long for internal buffers>)
.ERR (2175,ATSX19,<Monitor internal error - ATS input message truncated>)
.ERR (2176,ATSX20,<Illegal to close JFN with terminal assigned>)
.ERR (2177,ARGX23,<Invalid section number>)
.ERR (2200,ARGX24,<Invalid count>)
.ERR (2201,MSTX35,<Too many units in structure>)
.ERR (2202,DCNX13,<Node not accessible>)
.ERR (2203,DCNX14,<Previous interrupt message outstanding>)
.ERR (2204,DCNX15,<No interrupt message available>)
.ERR (2205,GJFX50,<Invalid argument for attribute>)
.ERR (2206,KDPX01,<KMC11 not running>)
.ERR (2207,NODX02,<Line not turned off>)
.ERR (2210,NODX03,<Another line already looped>)
.ERR (2211,GJFX51,<Byte count too small>)
.ERR (2212,COMX20,<Invalid node name>)
.ERR (2213,ATSX21,<Maximum applications terminals for job already assigned>)
.ERR (2214,ATSX22,<Failed to acquire applications terminal>)
.ERR (2215,ATSX23,<Invalid device name>)
.ERR (2216,ATSX24,<Invalid server name>)
.ERR (2217,ATSX25,<Terminal is already released>)
.ERR (2220,GOKER1,<Illegal function>)
.ERR (2221,GOKER2,<Request denied by Access Control Facility>)
.ERR (2222,STRX09,<Prior structure mount required>)
.ERR (2223,MSTX36,<Illegal while JFNs assigned>)
.ERR (2224,MSTX37,<Illegal while connected to structure>)
.ERR (2225,MSTX40,<Invalid PSI channel number given>)
.ERR (2226,ATSX26,<Invalid host name>)
.ERR (2227,IOX13,<Invalid segment type>)
.ERR (2230,IOX14,<Invalid segment size>)
.ERR (2231,IOX15,<Illegal tape format for dump mode>)
.ERR (2232,IOX16,<Density specified does not match tape density>)
.ERR (2233,IOX17,<Invalid tape label>)
.ERR (2234,IOX20,<Illegal tape record size>)
.ERR (2235,IOX21,<Tape HDR1 missing>)
.ERR (2236,IOX22,<Invalid tape HDR1 sequence number>)
.ERR (2237,IOX23,<Tape label read error>)
.ERR (2240,IOX24,<Logical end of tape encountered>)
.ERR (2241,IOX25,<Invalid tape format>)
.ERR (2242,SWJFX2,<Illegal to swap ATS JFN>)
.ERR (2243,IOX26,<Tape write date has not expired>)
.ERR (2244,IOX27,<Tape is domestic and HDR2 is missing>)
.ERR (2245,IOX30,<Tape has invalid access character>)
.ERR (2246,ARGX25,<Invalid class>)
.ERR (2247,SKDX1,<Cannot change class>)
.ERR (2250,MREQX1,<Request canceled by user>)
.ERR (2251,MREQX2,<Labeled tapes not permitted on 7-track drives>)
.ERR (2252,MREQX3,<Unknown density specified>)
.ERR (2253,MREQX4,<Unknown drive type specified>)
.ERR (2254,MREQX5,<Unknown label type specified>)
.ERR (2255,MREQX6,<Set name illegal or not specified>)
.ERR (2256,MREQX7,<Illegal starting-volume specification>)
.ERR (2257,MREQX8,<Attempt to switch to volume outside set>)
.ERR (2260,MREQX9,<Illegal volume identifier specified>)
.ERR (2261,MREQ10,<Density mismatch between request and volume>)
.ERR (2262,MREQ11,<Drive type mismatch between request and volume>)
.ERR (2263,MREQ12,<Label type mismatch between request and volume>)
.ERR (2264,MREQ13,<Structural error in mount message>)
.ERR (2265,MREQ14,<Setname mismatch between request and volume>)
.ERR (2266,MREQ15,<Mount refused by operator>)
.ERR (2267,MREQ16,<Volume identifiers not supplied by operator>)
.ERR (2270,MREQ17,<Volume-identifier list missing>)
.ERR (2271,MREQ18,<End of volume-identifier list reached while reading>)
.ERR (2272,MREQ19,<Requested tape drive type not available to system>)
.ERR (2273,MREQ20,<Structural error in mount entry>)
.ERR (2274,MREQ21,<Mount requested for unknown device type>)
.ERR (2275,DEVX6,<Job has open JFN on device>)
.ERR (2276,ATSX27,<Terminal is not open>)
.ERR (2277,ATSX28,<Unknown error received>)
.ERR (2300,ATSX29,<Receive error threshold exceeded>)
.ERR (2301,ATSX30,<Reply threshold exceeded>)
.ERR (2302,ATSX31,<NAK threshold exceeded>)
.ERR (2303,ATSX32,<Terminal protocol error>)
.ERR (2304,ATSX33,<Intervention required at terminal>)
.ERR (2305,ATSX34,<Powerfail>)
.ERR (2306,ATSX35,<Data pipe was disconnected>)
.ERR (2307,ATSX36,<Dialup terminal was attached>)
.ERR (2310,DATEX7,<Julian day is out of range>)
.ERR (2311,MREQ22,<Structure name not specified>)
.ERR (2312,ARCFX2,<File already has archive status>)
.ERR (2313,ARCFX3,<Cannot perform ARCF functions on non-multiple directory devices>)
.ERR (2314,ARCFX4,<File is not on-line>)
.ERR (2315,ARCFX5,<Files not on the same device or structure>)
.ERR (2316,ARCFX6,<File does not have archive status>)
.ERR (2317,ARCFX7,<Invalid parameter>)
.ERR (2320,ARCFX8,<Archive not complete>)
.ERR (2321,ARCFX9,<File not off-line>)
.ERR (2322,ARCX10,<Archive prohibited>)
.ERR (2323,ARCX11,<Archive requested, modification prohibited>)
.ERR (2324,ARCX12,<Archive requested, delete prohibited>)
.ERR (2325,ARCX13,<Archive system request not completed>)
.ERR (2326,OPNX30,<File has archive status, modification is prohibited>)
.ERR (2327,OPNX31,<File is off-line>)
.ERR (2330,DELX11,<File has archive status, delete is not permitted>)
.ERR (2331,DELX12,<File has no pointer to offline storage>)
.ERR (2332,ARCX14,<File restore failed>)
.ERR (2333,ARCX15,<Migration prohibited>)
.ERR (2334,ARCX16,<Cannot exempt offline file>)
.ERR (2335,ARCX17,<FDB incorrect format for ARCF JSYS>)
.ERR (2336,ARCX18,<Retrieval request cannot be fulfilled for waiting process>)
.ERR (2337,ARCX19,<Migration already pending>)
.ERR (2340,ARGX26,<File is offline>)
.ERR (2341,ARGX27,<Offline expiration time cannot exceed system maximum>)
.ERR (2342,DIRX5,<Directory too large>)
.ERR (2343,IOX31,<Invalid record descriptor in labeled tape>)
.ERR (2344,MREQ23,<Dismount refused by operator>)
.ERR (2345,MREQ24,<Illegal to dismount connected structure>)
.ERR (2346,MREQ25,<Structure not found>)
.ERR (2347,LTLBLX,<Too many user labels>)
.ERR (2350,LTLBX1,<Undefined record format on non-TOPS20 tape>)
.ERR (2351,MREQ26,<Tape mounting function disabled by installation>)
.ERR (2352,METRX1,<METER% not supported on this processor>)
.ERR (2353,NSPX00,<Connection not accepted>)
.ERR (2354,NSPX01,<Resource allocation failure>)
.ERR (2355,NSPX02,<Destination node does not exist>)
.ERR (2356,NSPX03,<Node shutting down>)
.ERR (2357,NSPX04,<Destination process does not exist>)
.ERR (2360,NSPX05,<Invalid process name>)
.ERR (2361,NSPX06,<Destination process queue overflow>)
.ERR (2362,NSPX07,<Unspecified error>)
.ERR (2363,NSPX08,<Connection aborted by third party>)
.ERR (2364,NSPX09,<Link aborted by process>)
.ERR (2365,NSPX10,<NSP Failure - Flow control violation>)
.ERR (2366,NSPX11,<Too many connections to node>)
.ERR (2367,NSPX12,<Too many connections to destination process>)
.ERR (2370,NSPX13,<Access denied due to unacceptable user name or password>)
.ERR (2371,NSPX14,<NSP failure - invalid SERVICES field>)
.ERR (2372,NSPX15,<Invalid account>)
.ERR (2373,NSPX16,<NSP failure - invalid SEGSIZ field>)
.ERR (2374,NSPX17,<Process aborted, timed out, or cancelled request>)
.ERR (2375,NSPX18,<No path to destination node>)
.ERR (2376,NSPX19,<NSP failure - flow control failure>)
.ERR (2377,NSPX20,<NSP failure - invalid DSTADDR>)
.ERR (2400,NSPX21,<Disconnect confirmation>)
.ERR (2401,NSPX22,<NSP failure - image data field too long>)
.ERR (2402,MREQ27,<Structure is set IGNORED>)
.ERR (2403,MREQ28,<Cannot overwrite volume - first file is not expired>)
.ERR (2404,MREQ29,<Cannot overwrite volume - write access required>)
.ERR (2405,MREQ30,<Tape label format error>)
.ERR (2406,DIAG11,<Unit already online>)
.ERR (2407,DIAG12,<Unit not online>)
.ERR (2410,DESX11,<Invalid operation for this label type>)
.ERR (2411,NSPX23,<Invalid NSP reason code>)
.ERR (2412,ARGX28,<not available on this system>)
.ERR (2413,NPX2CL,<Two colons required on node name>)
.ERR (2414,ARGX29,<Invalid class share>)
.ERR (2415,ARGX30,<Invalid KNOB value>)
.ERR (2416,ARGX31,<Class Scheduler already enabled>)
.ERR (2417,DEVX7,<Null device name given>)
.ERR (2420,GJFX52,<End of tape encountered while searching for file>)
.ERR (2421,GOKER3,<JSYS not executed within ACJ fork>)
.ERR (2422,IOX32,<Tape position is indeterminate>)
.ERR (2423,IOX33,<TTY input buffer full>)
.ERR (2424,XSIRX1,<Channel table crosses section boundary>)
.ERR (2425,SIRX2,<SIR JSYS invoked from non-zero section>)
.ERR (2426,RIRX1,<RIR JSYS incompatible with previous XSIR>)
.ERR (2427,XSIRX2,<Level table crosses section boundary>)
.ERR (2430,MREQ31,<Insufficient MOUNTR resources>)
.ERR (2431,SMAPX1,<Attempt to delete a section still shared>)
>				;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

PURGE .ERR,REL

END
;D