*
*  NAME   ERCLASS   VALUE
*
*         THIS MACRO DEFINES THE VALUE OF AN E.ERRORCLASS SYMBOL.
*
          MACRO     ERCLASS,NAME,VALUE
          ORG       VALUE
NAME      BSS       1
CLASS     SET       NAME
          USE       *
          ENDM      .. END ERCLASS MACRO
*
*  NAME   ERRNUM    VALUE
*         THIS MACRO DEFINES THE VALUE OF E.ERRNUM
*
*         THE ^PEELED^ SYMBOL AND THE C.ERRORNUMBER SYMBOL ARE CREATED
*         AND GIVEN THE ERROR NUMBER AND ERROR CLASS VALUES,RESPECTIVELY.
*
          MACRO     ERRNUM,NAME,VALUE
          ORG       VALUE
NAME      BSS       1
DEX       MICRO     3,,/NAME/
C._'DEX'  EQU       CLASS
          USE       *
          ENDM
*
*         ERROR     MODIFIER,WHERE
*
*         B4:= MODIFIER
*         SETS      B4 AND JUMPS TO ^WHERE^ *PRESUMABLY DEFINED IN
*                             THE ERRCODE ROUTINE
*
*
******************************
*    THIS MACRO HAS TO BE    *
*    DEFINED SOMEWHERE ELSE  *
*    SINCE IT CONFLICTS      *
*     WITH AN ERROR MACRO IN *
*     THE DISK SYSTEM.       *
*              -DAVE,BRUCE   *
******************************
*ERROR     MACRO     MODIFIER,WHERE
*         SB4       MODIFIER
*         EQ        =X_WHERE
*         ENDM
*
*
*
*
*                  ***   ERROR CLASSES AND NUMBERS
*
****************
E.CHIP    ERCLASS      0               SCOPE CALL ERROR CLASS
*
*
****************
E.ARITH   ERCLASS      1               ARITH ERROR CLASS
*
*
****************
E.PARMS   ERCLASS   2
*
E.NEGPAR  ERRNUM    0              PARAMETER TOO SMALL
E.BIGPAR  ERRNUM    1              PARAMETER TOO LARGE
*                                  PARAM NUMBER IS MASKED INTO ERRNUM
E.NEGPT   ERRNUM      2               POINTER IS NEGATIVE
E.BIGPT   ERRNUM      3               POINTER IS TOO LARGE
*                                  POINTER IS MASKED INTO ERRNUM
E.NEGIX   ERRNUM      4               C-LIST INDEX IS NEGATIVE
E.BIGIX   ERRNUM      5               C-LIST INDEX IS TOO LARGE
E.NOTCL   ERRNUM      6               INDIRECT C-LIST REFERENCE DOES
*                                  NOT GO THRU A C-LIST
*                                  PARAM NUM IS MASKED INTO ERRNUM
E.BDTBLK  ERRNUM       7                   DATA BLOCK EXTENDS PAST FL
E.BCPBLK  ERRNUM       8                   CAPABILITY BLK GOES PAST LEN
E.NEGPCT  ERRNUM       9                   P COUNTER IS NEGATIVE
E.BIGPCT  ERRNUM       10                  P COUNTER > OR = FL
*                                       OF FULL C-LIST
*
*
****************
E.FILES   ERCLASS      3               FILE-PROCESSING ERROR CLASS
*
E.NOFIL   ERRNUM      0               FILE DOESNT EXIST
E.ISBLK   ERRNUM      1               BLOCK TO BE CREATED EXISTS
E.INMAPS  ERRNUM      2               BLOCK IS IN MAP
E.NOBLK   ERRNUM      3               BLOCK TO BE MOVED DOESNT EXIST
E.MISMCH  ERRNUM      4               BLOCK SIZES NOT EQUAL FOR MOVE
E.NOBKD   ERRNUM      5               BLOCK TO BE DESTROYED DOESNT EXIST
E.NOTEMP  ERRNUM      6               FILE TO BE DESTROYED IS NONEMPTY
E.NEGSIZ  ERRNUM      7               NEGATIVE SHAPE NUMBER (OR TOO SMALL)
E.BIGSIZ  ERRNUM      8               SHAPE NUMBER IS TOO LARGE
E.NOTPOW  ERRNUM      9               SHAPE NUMBER IS NOT POWER OF TWO
E.BIGFIL  ERRNUM      10              FILE SIZE IS TOO GREAT
E.IOERR   ERRNUM       11                  ECS I/O ERROR
*
E.LLEV    ERRNUM       20                  TOO MANY LEVELS
E.NODFIL  ERRNUM       21                  NO SUCH OPEN DISK FILE
E.NABR    ERRNUM       22                  NO ATTACHED BLOCK RECORD
E.DIOERR  ERRNUM       23                  DISK I/0 ERROR
E.TMA     ERRNUM       24                  TOO MANY ATTACHES
E.TMD     ERRNUM       25                  TOO MANY DETACHES
E.NATH    ERRNUM       26                  BLOCK NOT ATTACHED
E.ZLEV    ERRNUM       27
E.TMOPN   ERRNUM       28                  TOO MANY OPENS(LOCAL OR GLOBAL)
E.EXCLAM  ERRNUM       29                  ALREADY EXCLUSIVE CLAIM
E.SHCLAM  ERRNUM       30                  ALREADY LOCAL SHARED CLAIM
E.CLOCK   ERRNUM       31                  CLAIM QUEUE LOCK UP(TIME OUT)
E.NOCLAM  ERRNUM       32                  NO LOCAL CLAIM ON RELEASE
E.NOLFH   ERRNUM       33                  NO LOCAL FILE HEADER SPACE
E.TMGA    ERRNUM       34                  TOO MANY GLOBAL ATTACHES
E.FULL    ERRNUM       35                  DISK SYSTEM TABLES FULL
E.SAME    ERRNUM       36                  ATTEMPT TO SHAZAMFILE WITH ITSELF
E.FROZ    ERRNUM       37                  FILE IS FROZEN
E.IFROZ   ERRNUM       38                  LOCAL ^I-FROZ-IT^ FLAG WRONG
E.UNCLE   ERRNUM       39                  SHUTDOWN TRIED IN BAD STATE
E.SHUT    ERRNUM       40                  DISK SYS CALLED AFTER SHUTDOWN
*
*
****************
E.SUBP    ERCLASS      4               ERROR CLASS FOR SUBPROCESS
*                                  CREATION, CALL, AND RETURN
*
E.SAMNA   ERRNUM      0               DUPLICATE SUBP NAME
E.NOFATH  ERRNUM      1               NAMED FATHER DOESNT EXIST
E.NOBLOC  ERRNUM      2               BLOCK IN SWAPPING DIRECTIVE MISSING
E.COMP    ERRNUM      3               NOT ENOUGH ROOM FOR MAP
E.MACSZ   ERRNUM      4               PROCESS BECOMES TOO BIG
E.NOFIND  ERRNUM      5               NAMED SUBP DOESNT EXIST
E.FULSTK  ERRNUM      6               NO ROOM FOR SUBP IN STACK
E.ROOM    ERRNUM      7               NO ROOM FOR PARAMETERS
E.NCAP    ERRNUM      8               TOO MANY CAPABILITY PARAMS
E.ESTK    ERRNUM      9               EMPTY STACK(ON RETURN)
E.STK     ERRNUM      10              EMPTY STACK(ON FRETURN)
E.NLEAF   ERRNUM       11             ATTEMPT TO DELETE SUBP AT ROOT OR NOT
E.IFRET   ERRNUM       12                  ILLEGAL FRETURN
E.NOXJ    ERRNUM       13                  NO CEJ WHERE EXPECTED
E.BIGER   ERRNUM       14        . ERROR CLASS LARGER THAN POSSIBLE
*                                  LEAF OF SUBP TREE
E.INSTK   ERRNUM       12             ATTEMPT TO DELETE SUBP IN STACK
*
*
****************
E.PROC    ERCLASS      5               ERROR CLASS FOR PROCESS 
*
E.BLMISS  ERRNUM      0               BLOCK MISSING IN SWAPPING DIRECTIVE
E.NOROOM  ERRNUM      1               NOT ENOUGH ROOM FOR MAP
E.PGONE   ERRNUM      3             PROCESS GONE FROM MOT
E.CGONE   ERRNUM       4         . LOCAL C-LIST GONE AT SWAPIN
E.MAPER   ERRNUM       5         . MAP ERROR AT SWAPIN
E.BOTH    ERRNUM       6         . BOTH OF THE ABOVE
*
*
****************
E.ABLOCK  ERCLASS      6               ALLOCATION BLOCK ERROR CLASS
*
E.NOABLK  ERRNUM      0               NO ALLOCATION BLOCK
E.NOECS   ERRNUM      1               NOT ENOUGH RESERVED SPACE FOR OBJECT
E.NOSLOT  ERRNUM      2               NO MOT SLOT FOR OBJECT
E.NOSWP   ERRNUM       3                   NO SWAPPED ECS SPACE
E.NODSK   ERRNUM       4                   NO DISK SPACE
E.NORES   ERRNUM       5         INSUFFICINET RESERVED SPACE FOR DONATION
E.NOCP    ERRNUM       6         INSUFFICINET CP TIME FOR DONATION
E.NOMOT   ERRNUM       7         INSUFFICINET MOT SLOTS FOR DONATION
E.NORLC   ERRNUM       8         NOT ENUF RESERVED SPACE TO COVER DOUBLY-
*                             CHARGED SPACE DURING REALLOCATION 
E.FATSON  ERRNUM       9         DONATE NOT BETWEEN FATHER/SON PAIR
E.CRGER   ERRNUM       10        INCREMENT WOULD LEAVE CHARGE RATE ILLEGAL
E.NOTAN   ERRNUM       11        AP3 NOT ANCESTOR ON GRAB
E.GREDY   ERRNUM       12        IN USE TOO SMALL ON GRAB
*
E.BADSN   ERRNUM       20        BAD SERVICE NUMBER 
E.NODDS   ERRNUM       21        GOOD LORD..OUT OF DDS RECORDS
E.BUSY    ERRNUM       22        CANNOT DESTROY ACCOUNTING BLOCK
E.RESV    ERRNUM       23        ACCOUNTING BLOCK HOLDING RESERVED SPACE
E.ACTIV   ERRNUM       24        ACCOUNTING BLOCK ALREADY ACTIVE
E.NOFUND  ERRNUM       25        NO FIXED ECS ALLOCBLK SUPPLIED TO DISK SYS
*
*
****************
E.OPER    ERCLASS      7               ERROR IN INTERPRETING OPERATION
*
E.IP0     ERRNUM      0               IP0 NOT CAPABILITY FOR OPERATION
E.NOOP    ERRNUM      1               OPERATION NOT IN MOT
E.CAPTY   ERRNUM      2               CAPABILITY TYPE OR OPTIONS BAD
E.PSANY   ERRNUM      3               PARAM SPEC (ANY) ENCOUNTERED
E.NOTANY  ERRNUM      4               PARAM SPEC (ANY) NOT ENCOUNTERED
E.USER    ERRNUM      5               SHOULD BE USER-SUPPLIED PARAMETER
E.BIGORD  ERRNUM      6               ORDER TOO BIG FOR SCRATCH AREA
E.MANPAR  ERRNUM      7               TOO MANY PARAMETERS
E.BIGCNT  ERRNUM       8                   BLK PARAM EXCEDES COUNT IN
*                                       PARAMETER SPECIFICATION IN OPER
*
*
****************
E.MISCE   ERCLASS      8               MISCELLANEOUS ERROR CLASS
*
E.CLMOT   ERRNUM      0               CAPABILITY LIST NOT IN MOT
E.MISSOB  ERRNUM      1               MISC OBJECT NOT IN MOT
E.NOAUTH  ERRNUM       2              NO MORE CAPABILITY AUCREATING
*                                  AUTHORIZATIONS ARE AVAILABLE
*
*
****************
E.EVENT   ERCLASS      9               EVENT CHANNEL ERROR CLASS
*
E.NEGQ    ERRNUM      0               EVENT QUEUE TOO SHORT
E.BIGQ    ERRNUM      1               EVENT QUEUE TOO LONG
E.NOCHAN  ERRNUM      2               EVENT CHANNEL NOT IN MOT
*
*
****************
E.NOERR   ERCLASS      10              NO SUBP TO TAKE ERROR CLASS
*
*E.NOERR1  EQU      THE ERROR WHICH CAUSED THIS ERROR
*
*
****************
E.MAPS    ERCLASS      11              . ERROR CLASS FOR MAPS
*
E.ISDAE   ERRNUM      0               . ATTEMPT TO CHANGE OR ZERO DAE
E.NT1BLK  ERRNUM      1               . DAE ATTEMPTS TO BRIDGE BLOCKS
E.NOTDAE  ERRNUM      2               . DAE ACTION APPLIED TO SWAPPING DIR.
E.BADNWS  ERRNUM      3               . REFER ARETURN - BAD WORD COUNT OR
E.PRENT   ERRNUM       4         . PREVIOUS ENTRY DURING MAKE MAP
E.WRGFL   ERRNUM       5         . WRONG CAP FOR PREVIOUS FILE
E.MAPOF   ERRNUM       6         . MAP IS TURNED OFF
*                             . ON CHANGE OR ZERO MAP ENTRY
*                                  . MISSING FILE
E.WRFIL   ERRNUM       4                   WRONG FILE ON DELETE MAP ENTRY
*
*
*
****************
E.PANIC   ERCLASS       12        . ERROR CLASS FOR PANICS ( INTERRUPTS )
*
E.MLDP    ERRNUM       0      . MILD PANIC ( ZR TEST USED BY SOME CODE )
E.MJRP    ERRNUM       1      . MAJOR PANIC ( NZ TEST USED BY SOME CODE )
*
*
*
****************
EC.DIRCT  EQU       13        . ERROR CLASS FOR DIRECTORY ERRORS
*
EN.BADNM  EQU       0      . BAD NAME GIVEN
EN.IMPOT  EQU       1      . ACCESS-KEY NOT IN ACCESS-LIST
EN.NTOWN  EQU       2      . WRONG ACTIONS USED TO DELETE LINK ENTRY
EN.DUPNM  EQU       3      . CAN NOT HAVE DUPLICATE NAMES
EN.NOSPC  EQU       4      . DIRECTORY IS FULL
EN.LOOP1  EQU       5      . SOFTLINK CHAIN TOO LONG
EN.LOOP2  EQU       6      . SUCCESSOR LINK CHAIN TOO LONG
EN.NTDSK  EQU       7      . ONLY DISK SYSTEM OBJECTS CAN BE HARDLINKED
EN.ISOWN  EQU       8      . WRONG ACTION TO DELETE OWNERSHIP ENTRY
EN.BGOPT  EQU       9      . MORE THAN 42 OPTIONS GIVEN TO -ADD PAIR-
EN.ISLCK  EQU       10     . DUPLICATE LOCK FOR NEW ACCESS PAIR
EN.NTLCK  EQU       11     . NO SUCH LOCK FOR ACCESS PAIR TO BE DELETED
EN.NTDIR  EQU       12     . EVEN SCANLIST ENTRIES MUST BE DIRECTORIES
EN.NTKEY  EQU       13     . ODD SCANLIST ENTRIES MUST BE ACCESS-KEYS
EN.OWNS   EQU       14     . DIRECTORY TO BE DELETED OWNS SOMETHING
EN.RSRV   EQU       15     . DIRECTORY IS CURRENTLY RESERVED (EX. OPEN)
*
*
*
****************
EC.DYNTG  EQU       14        . ERROR CLASS FOR DYNAMIC NAME TAG ERRORS
*
EN.FLOL   EQU       0      . FULL LOCAL OPEN LIST
EN.BLOC   EQU       1      . TOO MANY LOCAL OPNS
EN.FDNT   EQU       2      . FULL GLOBAL TABLE
EN.BGOC   EQU       3      . TOO MANY GLOBAL OPENS
EN.NTOP   EQU       4      . NO SUCH LOCALLY OPEN TAG
*
*
*
****************
EC.BEADS  EQU       15        . ERROR CLASS FOR BEADS ERRORS
*