Trailing-Edge
-
PDP-10 Archives
-
bb-d868b-bm_tops20_v3a_2020_dist
-
3a-sources/monsym.mac
There are 74 other files named monsym.mac in the archive. Click here to see a list.
;<3A.UTILITIES>MONSYM.MAC.77, 16-Aug-78 08:54:38, Edit by ENGEL
;FIX MILLER'S MISSPELLING IN GJFX50
;<3A.UTILITIES>MONSYM.MAC.76, 7-Jun-78 13:20:37, Edit by KIRSCHEN
;add comx20
;<3A-NEW>MONSYM.MAC.75, 25-May-78 12:18:28, Edit by FORTMILLER
;ADD 6250 BPI AND HI-DENSITY DEFINITIONS FOR DX20 SUPPORT
;<3A.UTILITIES>MONSYM.MAC.74, 23-May-78 11:48:23, EDIT BY MILLER
;FIX TYPEO IN MAKING SINM AND SOUTM "NIM"
;<3A.UTILITIES>MONSYM.MAC.73, 22-May-78 12:09:13, Edit by HALL
;TCO 1900 - MADE SINM AND SOUTM BE 'NIM' IN 3A (WILL BE IN 4)
;<3A.UTILITIES>MONSYM.MAC.72, 19-May-78 15:35:21, Edit by PORCHER
;ADD RF%PRH
;<3A.UTILITIES>MONSYM.MAC.71, 18-May-78 12:53:57, EDIT BY MILLER
;TCO 1189. ADD .SFSTS FUNCTION TO SMON AND TMON
;<3A.UTILITIES>MONSYM.MAC.70, 17-May-78 13:48:11, EDIT BY OSMAN
;REMOVE .MSHFL
;<3A.UTILITIES>MONSYM.MAC.69, 17-May-78 11:24:19, EDIT BY OSMAN
;ADD .MSHOM FUNCTION OF MSTR
;<3A.UTILITIES>MONSYM.MAC.68, 16-May-78 13:10:35, EDIT BY MILLER
;ADD .NSWPG, NEW GETAB TABLE
;<3A.UTILITIES>MONSYM.MAC.67, 15-May-78 17:44:46, Edit by HALL
;TCO 1900 - MADE SINM AND SOUTM BE PART OF STANDARD MONITOR
;<3A.UTILITIES>MONSYM.MAC.66, 14-May-78 14:14:52, Edit by MCLEAN
;ADD BYTE COUNT TOO SMALL FOR SPR 20-11294
;<3A.UTILITIES>MONSYM.MAC.65, 12-May-78 12:48:35, EDIT BY OSMAN
;ADD .MSHFL
;<3A.UTILITIES>MONSYM.MAC.64, 5-May-78 17:01:38, Edit by MCLEAN
;ADD .MSRP7
;<3A.UTILITIES>MONSYM.MAC.63, 4-May-78 00:26:10, Edit by MCLEAN
;TCO 1879 REMOVE MTOX9 ILLEGAL TO READ BACKWARDS
;<3A.UTILITIES>MONSYM.MAC.62, 4-May-78 00:07:02, Edit by MCLEAN
;ADD .MTTXX DEFINITIONS FOR NEW DRIVE TYPES.
;<3A.UTILITIES>MONSYM.MAC.61, 4-May-78 00:06:00, Edit by MCLEAN
;<3A.UTILITIES>MONSYM.MAC.60, 2-May-78 08:43:33, EDIT BY MILLER
;NOW SPELL THEM CORRECTLY
;<3A.UTILITIES>MONSYM.MAC.59, 2-May-78 07:07:07, EDIT BY MILLER
;ADD DEFINITIONS FOR ARITHMETIC TRAP BLOCK IN SWTRP DEFS
;<3A.UTILITIES>MONSYM.MAC.58, 28-Apr-78 19:07:50, Edit by DBELL
;FIX DEFINITIONS OF .ENQDF, FL%JUS, SS%FPN
;<3A.UTILITIES>MONSYM.MAC.57, 28-Apr-78 12:13:38, Edit by MCCLURE
; Change .BTCNP to .BTCPN
;<3A.UTILITIES>MONSYM.MAC.56, 26-Apr-78 13:12:20, Edit by MCCLURE
; ADD .VNCNL & .VNCBL
;<3A.UTILITIES>MONSYM.MAC.54, 25-Apr-78 13:03:50, EDIT BY MURPHY
;IFIW, EFIW
;<3A.UTILITIES>MONSYM.MAC.52, 24-Apr-78 16:41:06, Edit by MCCLURE
;ADD KDPX01
;<3A.UTILITIES>MONSYM.MAC.51, 24-Apr-78 14:32:08, EDIT BY HURLEY
;<3A.UTILITIES>MONSYM.MAC.50, 16-Apr-78 14:40:25, EDIT BY MILLER
;ADD GJFX50
;<3A.UTILITIES>MONSYM.MAC.49, 12-Apr-78 14:30:53, EDIT BY MURPHY
;TCO #1901 - SCHEDULER CONTROL FLAGS
;<3A.UTILITIES>MONSYM.MAC.48, 12-Apr-78 08:32:01, Edit by KIRSCHEN
;ADD LINK WAS CONNECTED FLAG
;<3A.UTILITIES>MONSYM.MAC.47, 10-Apr-78 14:31:56, Edit by KIRSCHEN
;Add DCNX15
;<3A.UTILITIES>MONSYM.MAC.46, 7-Apr-78 14:33:33, Edit by PORCHER
;ADD LONG RFSTS DEFINITIONS
;<3A.UTILITIES>MONSYM.MAC.45, 4-Apr-78 10:06:41, Edit by KIRSCHEN
;<3A.UTILITIES>MONSYM.MAC.44, 4-Apr-78 09:08:52, Edit by KIRSCHEN
;<3A.UTILITIES>MONSYM.MAC.43, 31-Mar-78 13:20:30, Edit by MCCLURE
;<3A.UTILITIES>MONSYM.MAC.42, 9-Mar-78 11:19:09, Edit by MCCLURE
;<3A.UTILITIES>MONSYM.MAC.41, 2-Mar-78 14:42:18, Edit by MCCLURE
;<3A.UTILITIES>MONSYM.MAC.40, 1-Mar-78 16:53:33, Edit by MCCLURE
;ADD BOOT JSYS AND NODE JSYS STUFF FOR 2020
;<3A.UTILITIES>MONSYM.MAC.39, 28-Feb-78 14:48:51, Edit by PORCHER
;<3A.UTILITIES>MONSYM.MAC.38, 24-Feb-78 10:15:20, Edit by ENGEL
;CHANGE TT%WAK TO 17 (ELIMINATING THE NEW BITS)
;<3A.UTILITIES>MONSYM.MAC.37, 24-Feb-78 10:01:48, Edit by ENGEL
;REMOVE USGX04 AND ADD DECRSV .ERR CODES
;<3A.UTILITIES>MONSYM.MAC.34, 24-Feb-78 09:03:50, EDIT BY MILLER
;DEFINE .NDSNM AND .NDGNM FOR THE NODE JSYS
;<3A.UTILITIES>MONSYM.MAC.32, 23-Feb-78 08:45:13, EDIT BY MILLER
;REDEFINE MS%LIM TO BE 1B5
;<3A.UTILITIES>MONSYM.MAC.31, 22-Feb-78 09:44:20, EDIT BY MILLER
;ADD MS%LIM. STRUCTURE LIMITED TO 2050 DIR SIZES
;<3A.UTILITIES>MONSYM.MAC.30, 21-Feb-78 14:17:40, EDIT BY MILLER
;ADD MSTX35, AGAIN
;<3A.UTILITIES>MONSYM.MAC.29, 16-Feb-78 17:37:29, EDIT BY MILLER
;ADD ARGX23 AND ARGX24 ERROR CODES
;<3A.UTILITIES>MONSYM.MAC.27, 16-Feb-78 13:09:17, Edit by HALL
;ADD ERROR CODE FOR ATS
;<3A.UTILITIES>MONSYM.MAC.26, 15-Feb-78 13:58:56, Edit by PORCHER
;ADD SESSION RUNTIME AND CONSOLE TIME TABLES
;ADD ACCOUNTING SHIFT CHANGE FUNCTIONS FOR USAGE
;<3A.UTILITIES>MONSYM.MAC.25, 15-Feb-78 08:07:18, EDIT BY MILLER
;ADD OFFSETS FOR "MEMORY ERROR BLOCK"
;<3A.UTILITIES>MONSYM.MAC.24, 14-Feb-78 14:41:54, EDIT BY HURLEY
;TCO 1884
;<3A.UTILITIES>MONSYM.MAC.23, 13-Feb-78 09:26:13, Edit by ENGEL
; ADD MTOPR FUNCTIONS FOR FULL WAKE-UP SUPPORT (.MORBM,.MOSBM...)
;<3A.UTILITIES>MONSYM.MAC.22, 2-Feb-78 12:33:09, Edit by HALL
;ERROR CODES
;<3A.UTILITIES>MONSYM.MAC.21, 2-Feb-78 09:34:12, Edit by ENGEL
;CHANGE DEFINITION OF TT%WK1 TO BE TT%IGN (PART OF 128-CHARACTER MASKS)
;<3A.UTILITIES>MONSYM.MAC.20, 31-Jan-78 12:10:43, Edit by HALL
;ADDED SI%EOM
;<3A.UTILITIES>MONSYM.MAC.19, 31-Jan-78 08:15:47, EDIT BY MILLER
;"TURN ON" PLOCK JSYS
;<3A.UTILITIES>MONSYM.MAC.18, 30-Jan-78 14:29:05, Edit by HALL
;ADDED SI%TMG. ADDED ERROR CODE
;<3A.UTILITIES>MONSYM.MAC.17, 30-Jan-78 13:22:45, EDIT BY MILLER
;TCO 1880. ADD DEFINITIONS FOR SWTRP
;<3A.UTILITIES>MONSYM.MAC.16, 28-Jan-78 15:44:36, EDIT BY PORCHER
;<3A.UTILITIES>MONSYM.MAC.15, 19-Jan-78 15:10:36, EDIT BY PORCHER
;Add error code for Execute-Only (FRKHX8)
;<3A.UTILITIES>MONSYM.MAC.14, 17-Jan-78 13:15:29, EDIT BY HALL
;ADD SOUTM DEFINITIONS AND ERROR CODES FOR ATS
;<3A.UTILITIES>MONSYM.MAC.13, 15-Jan-78 14:04:27, EDIT BY MILLER
;ADD .PMMER AND PMCLX4
;<3A.UTILITIES>MONSYM.MAC.12, 11-Jan-78 13:30:20, EDIT BY HALL
;ADDED ERROR MESSAGES FOR ATS
;<3A.UTILITIES>MONSYM.MAC.11, 9-Jan-78 17:06:52, EDIT BY HALL
;MADE SINM AND SOUTM BE 'NOT IN MONITOR'
;<3A.UTILITIES>MONSYM.MAC.10, 9-Jan-78 16:59:47, EDIT BY HALL
;FIXED TYPO IN PREVIOUS EDIT
;<3A.UTILITIES>MONSYM.MAC.9, 9-Jan-78 16:37:58, EDIT BY HALL
;ADDED THINGS FOR ATS - ERROR CODE, .DVATS, SINM, SOUTM
;<3A.UTILITIES>MONSYM.MAC.8, 9-Jan-78 09:25:56, EDIT BY MILLER
;CHANGE LOCK JSYS TO PLOCK.
;<3A.UTILITIES>MONSYM.MAC.7, 5-Jan-78 08:17:53, EDIT BY MILLER
;ADD .DGGEM AND .DGREM
;<3A.UTILITIES>MONSYM.MAC.6, 28-Dec-77 14:59:27, EDIT BY HALL
;CHANGE MTOPR DEFINITIONS FOR ATS
;<4.UTILITIES>MONSYM.MAC.5, 14-Dec-77 11:39:16, EDIT BY MILLER
;MAKE NODE JSYS VALUES GLOBAL
;<4.UTILITIES>MONSYM.MAC.4, 13-Dec-77 16:37:25, EDIT BY MILLER
;ADD .DCX9 AND CHANGE COMMENT ON .DCX11
;<4.UTILITIES>MONSYM.MAC.3, 6-Dec-77 14:28:35, Edit by MCLEAN
;ADD RM03
;<4.UTILITIES>MONSYM.MAC.2, 29-Nov-77 12:56:57, EDIT BY HALL
;MORE ON MTOPR CODES
;<4.UTILITIES>MONSYM.MAC.1, 29-Nov-77 12:27:37, EDIT BY HALL
;ADD MTOPR CODES FOR ATS
;<3-UTILITIES>MONSYM.MAC.307, 21-Nov-77 19:02:23, EDIT BY CROSSLAND
;<3-UTILITIES>MONSYM.MAC.306, 20-Nov-77 22:58:50, EDIT BY CROSSLAND
;<3-UTILITIES>MONSYM.MAC.305, 16-Nov-77 16:59:24, EDIT BY CROSSLAND
;FIX PAGING
;<3-UTILITIES>MONSYM.MAC.304, 15-Nov-77 15:44:52, EDIT BY MILLER
;<3-UTILITIES>MONSYM.MAC.303, 15-Nov-77 12:05:55, EDIT BY KIRSCHEN
;CHANGES FOR DOCUMENTATION
;ADD READ BACKWARDS ILLEGAL
;<3-UTILITIES>MONSYM.MAC.302, 8-Nov-77 10:48:13, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-UTILITIES>MONSYM.MAC.301, 2-Nov-77 01:10:57, Edit by LCAMPBELL
;FIX ADDRESS BREAK
;<3-UTILITIES>MONSYM.MAC.300, 26-Oct-77 11:09:53, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<3-UTILITIES>MONSYM.MAC.299, 12-Oct-77 18:42:57, EDIT BY HURLEY
;DEFINE THE FULL LATENCY OPTIMIZATION BIT IN SMON
;<3-UTILITIES>MONSYM.MAC.298, 5-Oct-77 14:19:14, Edit by HESS
;PUT USAGE JSYS IN SECTION 1
;<3-UTILITIES>MONSYM.MAC.297, 12-Sep-77 23:19:04, EDIT BY MURPHY
;NOP
;<3-UTILITIES>MONSYM.MAC.296, 31-Aug-77 17:23:26, EDIT BY CROSSLAND
;<3-UTILITIES>MONSYM.MAC.295, 31-Aug-77 17:00:34, EDIT BY MILLER
;CHANGE .MOACP TO .MOCC FOR DECNET ACCEPT CONNECTION FUNCTION
;<3-UTILITIES>MONSYM.MAC.294, 31-Aug-77 15:19:58, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.293, 31-Aug-77 12:17:45, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.292, 30-Aug-77 22:27:44, EDIT BY MURPHY
;ADD EXTENDED ADDRESSING INSTRUCTIONS, XJRSTF, XPCW, ETC.
;<3-UTILITIES>MONSYM.MAC.290, 27-Aug-77 12:33:59, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.289, 23-Aug-77 15:46:21, EDIT BY MILLER
;<3-UTILITIES>MONSYM.MAC.288, 23-Aug-77 13:02:06, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.287, 21-Aug-77 14:24:20, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.286, 19-Aug-77 14:40:15, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.285, 18-Aug-77 14:09:13, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.284, 17-Aug-77 15:34:24, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.283, 17-Aug-77 14:29:50, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.282, 12-Aug-77 17:13:56, Edit by LCAMPBELL
;ADD FUNCTION TO ADBRK TO RETURN ADDR OF LAST BROKEN INSTRUCTION
;<3-UTILITIES>MONSYM.MAC.281, 12-Aug-77 10:58:39, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.280, 10-Aug-77 16:41:24, EDIT BY HALL
;CHANGE TEXT FOR CRDI20
;<3-UTILITIES>MONSYM.MAC.279, 9-Aug-77 10:35:17, EDIT BY MILLER
;<3-UTILITIES>MONSYM.MAC.278, 9-Aug-77 10:33:35, EDIT BY MILLER
;ADD DECNET DISCONNECT ERROR CODES
;<3-UTILITIES>MONSYM.MAC.277, 6-Aug-77 21:00:53, Edit by MCLEAN
;REMOVE MSTX35
;<3-UTILITIES>MONSYM.MAC.276, 5-Aug-77 15:59:53, EDIT BY ROMASH
;ADD TCO 1846 -- .CMNOD, COMX18, COMX19
;<3-UTILITIES>MONSYM.MAC.275, 5-Aug-77 15:53:05, EDIT BY HALL
;ADD CRDI20
;<3-UTILITIES>MONSYM.MAC.274, 3-Aug-77 11:35:44, Edit by LCAMPBELL
;MORE TCO 1838 - ADDRESS BREAK
;<3-UTILITIES>MONSYM.MAC.273, 29-Jul-77 22:56:52, EDIT BY CROSSLAND
;ADD GFRKH JSYS
;<3-UTILITIES>MONSYM.MAC.272, 28-Jul-77 08:34:04, EDIT BY MILLER
;ADD BOTX05 ERROR CODE
;<3-UTILITIES>MONSYM.MAC.271, 28-Jul-77 00:01:12, Edit by MCLEAN
;ADD TCO 1845 MSTX35
;<3-UTILITIES>MONSYM.MAC.270, 26-Jul-77 17:22:16, Edit by MACK
;REMOVED ENACT FROM JSLIST
;<3-UTILITIES>MONSYM.MAC.269, 26-Jul-77 16:58:47, Edit by MACK
;TCO 1822 - ADD USAGE JSYS FUNCTION .USENA TO ENABLE ACCOUNT VALIDATION
;<3-UTILITIES>MONSYM.MAC.268, 26-Jul-77 13:55:39, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.267, 26-Jul-77 10:01:56, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.266, 25-Jul-77 21:19:43, EDIT BY CLEMENTS
;<3-NSW-MONITOR>MONSYM.MAC.265, 22-Jul-77 23:54:06, EDIT BY CALVIN
; Definitions for NSW support
;<3-UTILITIES>MONSYM.MAC.264, 22-Jul-77 15:33:33, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.263, 19-Jul-77 16:51:55, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.262, 19-Jul-77 11:36:30, EDIT BY KIRSCHEN
;FIX NODE JSYS FUNCTION CODE DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.261, 15-Jul-77 09:52:43, EDIT BY HALL
;TCO 1813 - ADD RC%PAR FOR RCDIR AND RCUSR
;<3-UTILITIES>MONSYM.MAC.260, 15-Jul-77 09:12:31, EDIT BY MILLER
;ADD MORE DECNET CODES
;<3-UTILITIES>MONSYM.MAC.259, 13-Jul-77 11:50:37, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.258, 12-Jul-77 17:00:07, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.257, 11-Jul-77 14:01:41, Edit by LCAMPBELL
;<3-UTILITIES>MONSYM.MAC.256, 11-Jul-77 13:38:26, Edit by LCAMPBELL
;TCO 1838 - Address break
;<3-UTILITIES>MONSYM.MAC.255, 11-Jul-77 10:05:01, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.254, 8-Jul-77 09:24:59, EDIT BY MILLER
;ADD DCNX2 ERROR CODE
;<3-UTILITIES>MONSYM.MAC.253, 7-Jul-77 17:12:18, EDIT BY OSMAN
;ADD .CMACT
;<3-UTILITIES>MONSYM.MAC.252, 7-Jul-77 09:52:05, EDIT BY MILLER
;ADD MORE DECNET MTOPR DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.251, 6-Jul-77 13:15:19, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.250, 5-Jul-77 17:23:30, EDIT BY HALL
;REDEFINE MO%XXX BITS IN TERMS OF CD%XXX BITS
;<3-UTILITIES>MONSYM.MAC.249, 5-Jul-77 16:07:15, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.248, 3-Jul-77 14:10:34, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.247, 1-Jul-77 14:24:17, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.246, 30-Jun-77 10:49:57, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.245, 29-Jun-77 09:28:40, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.244, 27-Jun-77 10:29:20, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.243, 24-Jun-77 10:04:51, EDIT BY MILLER
;ADD MO%RMT AND MO%AUT
;<3-UTILITIES>MONSYM.MAC.242, 21-Jun-77 15:22:37, EDIT BY OSMAN
;CM%DWC - DIRECTORY WILD CARDING(COMND)
;<3-UTILITIES>MONSYM.MAC.241, 21-Jun-77 04:22:42, EDIT BY CROSSLAND
;REMOVE TCO 1829
;<3-UTILITIES>MONSYM.MAC.240, 20-Jun-77 22:38:01, Edit by HESS
;ADDED USAGE JSYS FUNCTION DEFS
;<3-UTILITIES>MONSYM.MAC.239, 20-Jun-77 09:36:32, EDIT BY MILLER
;ADD MORE DECNET DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.238, 19-Jun-77 21:51:26, EDIT BY CROSSLAND
;TCO 1829 ADD AC%CKP AND AC%NOC BITS TO ACCES
;<3-UTILITIES>MONSYM.MAC.237, 19-Jun-77 17:55:40, Edit by MACK
;TCO 1822 - ENACT AND VACCT JSYSES PUT IN SECTION 1
;<3-UTILITIES>MONSYM.MAC.236, 17-Jun-77 11:53:25, Edit by HESS
;TCO 1821 - ERROR CODES FOR USAGE JSYS
;<3-UTILITIES>MONSYM.MAC.235, 17-Jun-77 10:19:55, Edit by MACK
;TCO 1822 - REMOVED SOME VACCT ERROR CODES
;<3-UTILITIES>MONSYM.MAC.234, 16-Jun-77 23:54:48, EDIT BY CROSSLAND
;MOVE GETAB TABLE DEFINITIONS AND CHANGE COMMENT FROM GTTAB TO GETAB
;MARK TOPS20AN JSYS'S FOR SECTION 1
;<3-UTILITIES>MONSYM.MAC.233, 16-Jun-77 15:24:07, EDIT BY OSMAN
;ADD CD%DAC AND .CDDAC UNDER CRDIR
;<3-UTILITIES>MONSYM.MAC.232, 16-Jun-77 15:17:57, EDIT BY OSMAN
;CHANGE .IPCSA TO .IPCAS TO SOLVE NAME CONFLICT
;<3-UTILITIES>MONSYM.MAC.231, 16-Jun-77 14:18:47, Edit by MACK
;<3-UTILITIES>MONSYM.MAC.230, 16-Jun-77 13:35:41, Edit by MACK
;TCO 1822 - ADDED ERROR CODES FOR VACCT JSYS
;<3-UTILITIES>MONSYM.MAC.229, 15-Jun-77 16:59:47, EDIT BY MILLER
;ADD MORE MTOPR CODES FOR DECNET
;<3-UTILITIES>MONSYM.MAC.228, 15-Jun-77 14:45:07, EDIT BY MILLER
;ADD .MORHN AND .MORHN FOR DECNET SUPPORT
;<3-UTILITIES>MONSYM.MAC.227, 15-Jun-77 12:32:06, EDIT BY MILLER
;ADD .MORLS FOR DECNET SUPPORT
;<3-UTILITIES>MONSYM.MAC.226, 15-Jun-77 11:41:40, Edit by MACK
;ADDED SMON FUNCTION CODE .SFAVR - ACCOUNT VALIDATION ON/OFF
;<3-UTILITIES>MONSYM.MAC.225, 15-Jun-77 11:12:50, Edit by MACK
;<3-UTILITIES>MONSYM.MAC.224, 15-Jun-77 09:02:35, Edit by MACK
;ADDED ENACT AND VACCT JSYS DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.223, 14-Jun-77 20:29:50, EDIT BY OSMAN
;ADD .IPCSA WHICH CONTAINS POINTER TO WHERE TO STORE ACCOUNT STRING OF SENDER
;<3-UTILITIES>MONSYM.MAC.222, 10-Jun-77 16:28:37, EDIT BY OSMAN
;ADD CM%PO BIT TO .CMFNP WORD OF COMND FUNCTION BLOCK
;<3-UTILITIES>MONSYM.MAC.221, 9-Jun-77 23:40:58, EDIT BY MURPHY
;PM%IND
;<3-UTILITIES>MONSYM.MAC.220, 8-Jun-77 10:06:05, Edit by HESS
;ADD USAGE JSYS DEFINITION
;<3-UTILITIES>MONSYM.MAC.219, 6-Jun-77 13:32:05, EDIT BY MILLER
;ADD MORE DECNET DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.218, 6-Jun-77 09:27:10, EDIT BY MILLER
;DEFINE .MOACN FOR DECNET
;<3-UTILITIES>MONSYM.MAC.217, 5-Jun-77 10:48:01, EDIT BY MILLER
;FIX UP NETWORK ERROR CODES
;<3-UTILITIES>MONSYM.MAC.216, 1-Jun-77 10:22:09, EDIT BY MILLER
;ADD .DVDCN AND .DVSRV
;<3-UTILITIES>MONSYM.MAC.215, 31-May-77 23:35:51, EDIT BY BOSACK
;<3-UTILITIES>MONSYM.MAC.214, 31-May-77 00:27:46, EDIT BY BOSACK
;ADD NEW CRDIR ERROR CODES FOR SUPERIOR QUOTAS EXCEEDED
;<3-UTILITIES>MONSYM.MAC.213, 31-May-77 00:06:02, EDIT BY BOSACK
;ADD SUBDIR QUOTA AND CREATABLE USER GROUPS TO CRDIR
;<3-UTILITIES>MONSYM.MAC.212, 30-May-77 19:52:44, EDIT BY BOSACK
;<3-UTILITIES>MONSYM.MAC.211, 30-May-77 16:34:15, EDIT BY BOSACK
;ADD NEW DELF ERROR FOR SUBDIRS ON DELETE ALL
;<3-UTILITIES>MONSYM.MAC.210, 30-May-77 13:20:52, EDIT BY BOSACK
;ADD FDB SUBDIRECTORY FLAG
;<3-UTILITIES>MONSYM.MAC.209, 27-May-77 14:58:24, Edit by MACK
;<MACK>MONSYM.MAC.3, 25-May-77 14:10:11, Edit by MACK
;TCO 1808 - ADDED FUNCTION CODES TO SETJB/GETJI FOR SESSION REMARK
;ADDED ERROR CODE 2066 - SJBX7 FOR ACCOUNT VALIDATION
;<3-UTILITIES>MONSYM.MAC.207, 23-May-77 11:18:09, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.206, 23-May-77 08:38:10, EDIT BY KIRSCHEN
;TCO 1802 - ADD FACILITY TO IGNORE INPUT WHEN LINE IS INACTIVE
;<3-UTILITIES>MONSYM.MAC.205, 6-May-77 12:14:25, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.203, 4-May-77 14:36:05, EDIT BY CROSSLAND
;MORE OF TCO 1742 MERGE ARPANET CODE
;<3-UTILITIES>MONSYM.MAC.202, 2-May-77 18:15:25, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.201, 2-May-77 15:39:44, EDIT BY KIRSCHEN
;TCO 1790 - ADD MSTX34 AND MS%WLK
;<3-UTILITIES>MONSYM.MAC.200, 2-May-77 15:08:46, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.199, 2-May-77 10:24:23, EDIT BY HURLEY
;ADD ATTRIBUTE BIT DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.198, 27-Apr-77 18:18:42, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.197, 13-Apr-77 09:12:09, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.196, 4-Apr-77 14:29:12, EDIT BY HURLEY
;ADD PID FOR ORION TO SYSTEM PID TABLE
;<3-UTILITIES>MONSYM.MAC.195, 29-Mar-77 14:23:13, EDIT BY HALL
;MOVE MS%ASG AND MS%MXB TO PROLOG
;<3-UTILITIES>MONSYM.MAC.194, 28-Mar-77 13:55:55, Edit by HESS
;ADD IC%JUD TO JULIAN DATE CONVERSION
;<3-UTILITIES>MONSYM.MAC.193, 27-Mar-77 16:21:35, EDIT BY BOSACK
;<3-UTILITIES>MONSYM.MAC.192, 20-Mar-77 17:23:13, Edit by MCLEAN
;CORRECT .MSIFB DEFINITION
;<3-UTILITIES>MONSYM.MAC.191, 17-Mar-77 16:13:47, EDIT BY CROSSLAND
;<3-UTILITIES>MONSYM.MAC.190, 17-Mar-77 13:55:09, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.189, 16-Mar-77 18:13:25, EDIT BY MURPHY
;<3-UTILITIES>MONSYM.MAC.188, 15-Mar-77 14:30:32, EDIT BY MURPHY
;<3-UTILITIES>MONSYM.MAC.187, 14-Mar-77 11:26:07, EDIT BY CROSSLAND
;FIX UP FORMAT FOR PRINTING
;<3-UTILITIES>MONSYM.MAC.186, 28-Feb-77 13:17:12, Edit by HESS
;<3-UTILITIES>MONSYM.MAC.185, 28-Feb-77 04:46:05, EDIT BY CROSSLAND
;TCO 1742 MERGE ARPANET CODE
;TCO 1745 ADD AT%TRM FOR ATTACH
;TCO 1743 ADD CRJOB DEFINITIONS
;<3-UTILITIES>MONSYM.MAC.184, 21-Feb-77 17:11:00, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.183, 14-Feb-77 11:15:47, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.182, 9-Feb-77 09:33:36, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.181, 7-Feb-77 14:28:49, EDIT BY HALL
;<3-UTILITIES>MONSYM.MAC.180, 7-Feb-77 08:14:27, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.179, 4-Feb-77 12:51:18, EDIT BY MILLER
;<3-UTILITIES>MONSYM.MAC.178, 4-Feb-77 12:45:29, EDIT BY MILLER
;<3-UTILITIES>MONSYM.MAC.177, 1-Feb-77 15:10:44, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.176, 29-Jan-77 18:03:35, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.175, 26-Jan-77 17:24:39, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.174, 26-Jan-77 17:02:41, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.173, 26-Jan-77 14:09:36, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.172, 25-Jan-77 16:41:16, Edit by MCLEAN
;TCO 1720 ADD BOOTSTRAP.BIN
;<3-UTILITIES>MONSYM.MAC.171, 24-Jan-77 14:15:30, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.170, 24-Jan-77 14:06:25, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.169, 22-Jan-77 17:15:26, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.168, 17-Jan-77 15:59:15, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.167, 16-Jan-77 15:01:04, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.166, 16-Jan-77 14:18:06, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.165, 16-Jan-77 00:10:27, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.164, 15-Jan-77 17:34:25, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.163, 15-Jan-77 01:33:33, Edit by MCLEAN
;<2-UTILITIES>MONSYM.MAC.149, 14-Jan-77 16:17:31, EDIT BY MURPHY
;TCO #1713 - ADD CM%FW
;<3-UTILITIES>MONSYM.MAC.161, 13-Jan-77 16:49:49, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.160, 13-Jan-77 14:34:00, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.159, 6-Jan-77 13:09:45, EDIT BY MILLER
;ADD DEFINTIONS FOR MCB
;<3-UTILITIES>MONSYM.MAC.158, 4-Jan-77 11:48:29, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.157, 27-Dec-76 17:15:16, EDIT BY HURLEY
;<3-UTILITIES>MONSYM.MAC.156, 21-Dec-76 15:14:10, Edit by MCLEAN
;<2-UTILITIES>MONSYM.MAC.147, 18-Dec-76 19:10:14, EDIT BY BOSACK
;ADD DSKOP/UDSKIO (UDSKIO INTERNAL ONLY FOR NOW) BIT FOR ERROR ON OFFLINE
;<2-UTILITIES>MONSYM.MAC.146, 8-Dec-76 14:00:17, EDIT BY BOSACK
;<3-UTILITIES>MONSYM.MAC.153, 6-Dec-76 01:22:20, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.152, 4-Dec-76 03:05:19, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.151, 2-Dec-76 03:25:20, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.150, 1-Dec-76 21:29:18, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.149, 1-Dec-76 11:25:29, EDIT BY HELLIWELL
;<3-UTILITIES>MONSYM.MAC.148, 1-Dec-76 02:20:51, Edit by MCLEAN
;<2-UTILITIES>MONSYM.MAC.144, 30-Nov-76 13:58:33, EDIT BY KIRSCHEN
;<3-UTILITIES>MONSYM.MAC.146, 30-Nov-76 02:41:20, Edit by MCLEAN
;<3-UTILITIES>MONSYM.MAC.145, 30-Nov-76 02:09:44, Edit by MCLEAN
;<2-UTILITIES>MONSYM.MAC.144, 26-Nov-76 14:54:10, Edit by MCLEAN
;<2-UTILITIES>MONSYM.MAC.143, 23-Nov-76 16:52:15, Edit by HESS
;<2-UTILITIES>MONSYM.MAC.142, 23-Nov-76 07:55:31, EDIT BY BLOUNT
;<2-UTILITIES>MONSYM.MAC.140, 17-Nov-76 09:32:09, EDIT BY HURLEY
;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 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;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)<
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 JSYS,0,,NIM
DEFJS LOGIN,1,MSEC1
DEFJS CRJOB,2,MSEC1
DEFJS LGOUT,3,MSEC1
DEFJS CACCT,4,MSEC1
DEFJS EFACT,5,MSEC1
DEFJS SMON,6,MSEC1
DEFJS TMON,7,MSEC1
DEFJS GETAB,10,MSEC1
DEFJS ERSTR,11,MSEC1
DEFJS GETER,12,MSEC1
DEFJS GJINF,13,MSEC1
DEFJS TIME,14,MSEC1
DEFJS RUNTM,15,MSEC1
DEFJS SYSGT,16,MSEC1
DEFJS GNJFN,17,MSEC1
DEFJS GTJFN,20,MSEC1
DEFJS OPENF,21,MSEC1
DEFJS CLOSF,22,MSEC1
DEFJS RLJFN,23,MSEC1
DEFJS GTSTS,24,MSEC1
DEFJS STSTS,25,MSEC1
DEFJS DELF,26,MSEC1
DEFJS SFPTR,27,MSEC1
DEFJS JFNS,30,MSEC1
DEFJS FFFFP,31,MSEC1
DEFJS RDDIR,32,MSEC1 ;OBSOLETE
DEFJS CPRTF,33,,NIM
DEFJS CLZFF,34,MSEC1
DEFJS RNAMF,35,MSEC1
DEFJS SIZEF,36,MSEC1
DEFJS GACTF,37,MSEC1
DEFJS STDIR,40,MSEC1 ;OBSOLETE
DEFJS DIRST,41,MSEC1
DEFJS BKJFN,42,MSEC1
DEFJS RFPTR,43,MSEC1
DEFJS CNDIR,44,,NIM
DEFJS RFBSZ,45,MSEC1
DEFJS SFBSZ,46,MSEC1
DEFJS SWJFN,47,MSEC1
DEFJS BIN,50,MSEC1
DEFJS BOUT,51,MSEC1
DEFJS SIN,52,MSEC1
DEFJS SOUT,53,MSEC1
DEFJS RIN,54,MSEC1
DEFJS ROUT,55,MSEC1
DEFJS PMAP,56,MSEC1
DEFJS RPACS,57,MSEC1
DEFJS SPACS,60,MSEC1
DEFJS RMAP,61,MSEC1
DEFJS SACTF,62,MSEC1
DEFJS GTFDB,63,MSEC1
DEFJS CHFDB,64,MSEC1
DEFJS DUMPI,65,MSEC1
DEFJS DUMPO,66,MSEC1
DEFJS DELDF,67,MSEC1
DEFJS ASND,70,MSEC1
DEFJS RELD,71,MSEC1
DEFJS CSYNO,72,,NIM
DEFJS PBIN,73,MSEC1
DEFJS PBOUT,74,MSEC1
DEFJS PSIN,75,,NIM
DEFJS PSOUT,76,MSEC1
DEFJS MTOPR,77,MSEC1
DEFJS CFIBF,100,MSEC1
DEFJS CFOBF,101,MSEC1
DEFJS SIBE,102,MSEC1
DEFJS SOBE,103,MSEC1
DEFJS DOBE,104,MSEC1
DEFJS GTABS,105,MSEC1 ;OBSOLETE
DEFJS STABS,106,MSEC1 ;OBSOLETE
DEFJS RFMOD,107,MSEC1
DEFJS SFMOD,110,MSEC1
DEFJS RFPOS,111,MSEC1
DEFJS RFCOC,112,MSEC1
DEFJS SFCOC,113,MSEC1
DEFJS STI,114,MSEC1
DEFJS DTACH,115,MSEC1
DEFJS ATACH,116,MSEC1
DEFJS DVCHR,117,MSEC1
DEFJS STDEV,120,MSEC1
DEFJS DEVST,121,MSEC1
DEFJS MOUNT,122,MSEC1 ;OBSOLETE
DEFJS DSMNT,123 ;OBSOLETE
DEFJS INIDR,124,MSEC1 ;OBSOLETE
DEFJS SIR,125,MSEC1
DEFJS EIR,126,MSEC1
DEFJS SKPIR,127,MSEC1
DEFJS DIR,130,MSEC1
DEFJS AIC,131,MSEC1
DEFJS IIC,132,MSEC1
DEFJS DIC,133,MSEC1
DEFJS RCM,134,MSEC1
DEFJS RWM,135,MSEC1
DEFJS DEBRK,136,MSEC1
DEFJS ATI,137,MSEC1
DEFJS DTI,140,MSEC1
DEFJS CIS,141,MSEC1
DEFJS SIRCM,142,MSEC1
DEFJS RIRCM,143,MSEC1
DEFJS RIR,144,MSEC1
DEFJS GDSTS,145,MSEC1
DEFJS SDSTS,146,MSEC1
DEFJS RESET,147,MSEC1
DEFJS RPCAP,150,MSEC1
DEFJS EPCAP,151,MSEC1
DEFJS CFORK,152,MSEC1
DEFJS KFORK,153,MSEC1
DEFJS FFORK,154,MSEC1
DEFJS RFORK,155,MSEC1
DEFJS RFSTS,156,MSEC1
DEFJS SFORK,157,MSEC1
DEFJS SFACS,160,MSEC1
DEFJS RFACS,161,MSEC1
DEFJS HFORK,162,MSEC1
DEFJS WFORK,163,MSEC1
DEFJS GFRKH,164,MSEC1
DEFJS RFRKH,165,MSEC1
DEFJS GFRKS,166,MSEC1
DEFJS DISMS,167,MSEC1
DEFJS HALTF,170,MSEC1
DEFJS GTRPW,171,MSEC1
DEFJS GTRPI,172,MSEC1
DEFJS RTIW,173,MSEC1
DEFJS STIW,174,MSEC1
DEFJS SOBF,175,MSEC1
DEFJS RWSET,176,MSEC1
DEFJS GETNM,177,MSEC1
DEFJS GET,200,MSEC1
DEFJS SFRKV,201,MSEC1
DEFJS SAVE,202,MSEC1
DEFJS SSAVE,203,MSEC1
DEFJS SEVEC,204,MSEC1
DEFJS GEVEC,205,MSEC1
DEFJS GPJFN,206,MSEC1
DEFJS SPJFN,207,MSEC1
DEFJS SETNM,210,MSEC1
DEFJS FFUFP,211,MSEC1
DEFJS DIBE,212,MSEC1
DEFJS FDFRE,213,,NIM
DEFJS GDSKC,214,MSEC1
DEFJS LITES,215,MSEC1 ;OBSOLETE
DEFJS TLINK,216,MSEC1
DEFJS STPAR,217,MSEC1
DEFJS ODTIM,220,MSEC1
DEFJS IDTIM,221,MSEC1
DEFJS ODCNV,222,MSEC1
DEFJS IDCNV,223,MSEC1
DEFJS NOUT,224,MSEC1
DEFJS NIN,225,MSEC1
DEFJS STAD,226,MSEC1
DEFJS GTAD,227,MSEC1
DEFJS ODTNC,230,MSEC1
DEFJS IDTNC,231,MSEC1
DEFJS FLIN,232,MSEC1
DEFJS FLOUT,233,MSEC1
DEFJS DFIN,234,MSEC1
DEFJS DFOUT,235,MSEC1
DEFJS CRDIR,240,MSEC1
DEFJS GTDIR,241,MSEC1
DEFJS DSKOP,242,MSEC1
DEFJS SPRIW,243,MSEC1
DEFJS DSKAS,244,MSEC1
DEFJS SJPRI,245,MSEC1
DEFJS STO,246,MSEC1
DEFJS ASNDP,260,,NIM
DEFJS RELDP,261,,NIM
DEFJS ASNDC,262,,NIM
DEFJS RELDC,263,,NIM
DEFJS STRDP,264,,NIM
DEFJS STPDP,265,,NIM
DEFJS STSDP,266,,NIM
DEFJS RDSDP,267,,NIM
DEFJS WATDP,270,,NIM
DEFJS ATNVT,274,MSEC1 ;TOPS20AN
DEFJS CVSKT,275,MSEC1 ;TOPS20AN
DEFJS CVHST,276,MSEC1 ;TOPS20AN
DEFJS FLHST,277,MSEC1 ;TOPS20AN
DEFJS GCVEC,300,MSEC1
DEFJS SCVEC,301,MSEC1
DEFJS STTYP,302,MSEC1
DEFJS GTTYP,303,MSEC1
DEFJS BPT,304,MSEC1 ;OBSOLETE
DEFJS GTDAL,305,MSEC1
DEFJS WAIT,306,MSEC1
DEFJS HSYS,307,MSEC1
DEFJS USRIO,310,MSEC1
DEFJS PEEK,311,MSEC1
DEFJS MSFRK,312,MSEC1
DEFJS ESOUT,313,MSEC1
DEFJS SPLFK,314,MSEC1
DEFJS ADVIS,315,,NIM
DEFJS JOBTM,316,,NIM
DEFJS DELNF,317,MSEC1
DEFJS SWTCH,320,MSEC1 ;OBSOLETE
DEFJS TFORK,321,MSEC1
DEFJS RTFRK,322,MSEC1
DEFJS UTFRK,323,MSEC1
DEFJS SCTTY,324,MSEC1
DEFJS SETER,336,MSEC1
;NEW (NOT IN BBN TENEX) JSYS'S ADDED STARTING AT 500
DEFJS RSCAN,500,MSEC1
DEFJS HPTIM,501,MSEC1
DEFJS CRLNM,502,MSEC1
DEFJS INLNM,503,MSEC1
DEFJS LNMST,504,MSEC1
DEFJS RDTXT,505,MSEC1 ;OBSOLETED BY RDTTY AND TEXTI
DEFJS SETSN,506,MSEC1
DEFJS GETJI,507,MSEC1
DEFJS MSEND,510,MSEC1
DEFJS MRECV,511,MSEC1
DEFJS MUTIL,512,MSEC1
DEFJS ENQ,513,MSEC1
DEFJS DEQ,514,MSEC1
DEFJS ENQC,515,MSEC1
DEFJS SNOOP,516,MSEC1
DEFJS SPOOL,517,MSEC1
DEFJS ALLOC,520,MSEC1
DEFJS CHKAC,521,MSEC1
DEFJS TIMER,522,MSEC1
DEFJS RDTTY,523,MSEC1
DEFJS TEXTI,524,MSEC1
DEFJS UFPGS,525,MSEC1
DEFJS SFPOS,526,MSEC1
DEFJS SYERR,527,MSEC1
DEFJS DIAG,530,MSEC1
DEFJS SINR,531,MSEC1
DEFJS SOUTR,532,MSEC1
DEFJS RFTAD,533,MSEC1
DEFJS SFTAD,534,MSEC1
DEFJS TBDEL,535,MSEC1
DEFJS TBADD,536,MSEC1
DEFJS TBLUK,537,MSEC1
DEFJS STCMP,540,MSEC1
DEFJS SETJB,541,MSEC1
DEFJS GDVEC,542,MSEC1
DEFJS SDVEC,543,MSEC1
DEFJS COMND,544,MSEC1
DEFJS PRARG,545,MSEC1
DEFJS GACCT,546,MSEC1
DEFJS LPINI,547,MSEC1
DEFJS GFUST,550,MSEC1
DEFJS SFUST,551,MSEC1
DEFJS ACCES,552,MSEC1
DEFJS RCDIR,553,MSEC1
DEFJS RCUSR,554,MSEC1
DEFJS MSTR,555,MSEC1
DEFJS STPPN,556,MSEC1
DEFJS PPNST,557,MSEC1
DEFJS PMCTL,560,MSEC1
DEFJS PLOCK,561,MSEC1
DEFJS BOOT,562,MSEC1
DEFJS UTEST,563
DEFJS USAGE,564,MSEC1
; HOLE - SLOT 565 AVAILABLE
DEFJS VACCT,566,MSEC1
DEFJS NODE,567,MSEC1
DEFJS ADBRK,570,MSEC1
DEFJS SINM,571,,NIM
DEFJS SOUTM,572,,NIM
DEFJS SWTRP,573,,NIM
;TEMPORARY JSYS DEFINITIONS
DEFJS SNDIM,750,MSEC1 ;TOPS20AN
DEFJS RCVIM,751,MSEC1 ;TOPS20AN
DEFJS ASNSQ,752,MSEC1 ;TOPS20AN
DEFJS RELSQ,753,MSEC1 ;TOPS20AN
DEFJS THIBR,770,MSEC1
DEFJS TWAKE,771,MSEC1
DEFJS MRPAC,772,MSEC1
DEFJS SETPV,773,,NIM
DEFJS MTALN,774,MSEC1
DEFJS TTMSG,775,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
DEFINE XBLT (A)<
EXTEND A,[020000,,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>
;SPECIAL LOSEG SYMBOL FOR PAT
.JBHSO==:75 ; 0 ,, HIGHSEG ORIGIN PAGE NUMBER
;*****************************************
;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
;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
;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
;COMND - MACRO FOR BUILDING FUNCTION DESCRIPTOR BLOCK
DEFINE FLDDB. (TYP,FLGS,DATA,HLPM,DEFM,LST)<
..XX==<FLD(TYP,CM%FNC)>+FLGS+<Z LST>
IFNB <HLPM>,<..XX=CM%HPP!..XX>
IFNB <DEFM>,<..XX=CM%DPP!..XX>
..XX
IFNB <DATA>,<DATA>
IFB <DATA>,<0>
IFNB <HLPM>,<POINT 7,[ASCIZ \HLPM\]>
IFB <HLPM>,<IFNB <DEFM>,<0>>
IFNB <DEFM>,<POINT 7,[ASCIZ \DEFM\]>>
;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%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
;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
.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
.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
;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%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 MEM CONTROL FUNCTIONS
.DGGEM==:100 ;LEAVE LARGE HOLE FOR MORE RH20 FUNCTIONS
;GET MEM (FOR TGHA)
.DGREM==:101 ;RELEASE MEM (FOR TGHA)
;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 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%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
.DVDCN==:22 ;DECNET ACTIVE COMPONENT
.DVSRV==:23 ;DECENT PASSIVE COMPONENT
.DVATS==:24 ;APPLICATIONS TERMINAL SERVICE
;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
.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
.DCX32==:^D32 ;TOO MANY CONNECTIONS TO NDOE
.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
;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
;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
;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
;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
;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
;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
;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 ;FILE IS RESTRICTED TO SOME FORK
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
;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%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
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
.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)
.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
.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%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
;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
.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
.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
;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
.MTT70==:17 ;MAGTAPE TYPE TU70
.MTT71==:20 ;MAGTAPE TYPE TU71
.MTT72==:21 ;MAGTAPE TYPE TU72
.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
.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
.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 DEFENITIONS
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
;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
.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
.MOADE==:5 ;DEASSIGN TERMINAL
MO%AAB==:1B0 ;DON'T SEND REMAINING DATA
;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
;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)
;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
;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
;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
;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%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
;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%RBF==:1B9 ;^R BUFFER IS DISJOINT
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
;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==:377777B35 ;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
;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.
;BELOW ARE FUNCTION CODES WHICH 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
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.
;SINM JSYS DEFINITIONS
SI%TMG==:1B0 ;TRUNCATE MESSAGE
SI%EOM==:1B1 ;END-OF-MESSAGE FOUND
;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
.ARNPC==:2 ;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
;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
;SCHEDULER CONTROL FLAGS (JSYS NOT YET DEFINED)
SK%CYT==:1B18 ;CYCLE TIME
SK%IOC==:1B19 ;IO QUANTUM CHARGE
SK%HTF==:3B21 ;BALSET HOLD TIME
SK%HQR==:1B22 ;HIGH QUEUE RESERVE
SK%LQR==:1B23 ;LOW QUEUE RESERVE
SK%BQE==:1B24 ;BALSET QUEUE ON ENTRY
SK%BQR==:1B25 ;BALSET QUEUE ON REQUEUE
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
;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
;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
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%FCF==:17B17 ;FILE CLASS FIELD
.FBNRM==:0 ;NON-RMS
.FBRMS==:1 ;RMS FILES
.FBHDR==:0 ;HEADER WORD
.FBCTL==:1 ;FLAGS
.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
.FBBK3==:22
.FBBK4==:23
.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
.FBLN0==:30 ;LENGTH OF VERSION 0 FDB
.FBLN1==:31 ;LENGTH OF VERSION 1 FDB
.FBLEN==:31 ;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
;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
;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,<Directory full>)
.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 (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 (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 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 (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 smal>)
.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>)
; ERROR CODES 1457-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 line width>)
.ERR (1756,MTOX20,<Invalid terminal line 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 (2034,IOX69,<General temporary TAPE error code>)
.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 - does not begin with double quote>)
.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>)
> ;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