*COMDECK  COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR 
          CTEXT  COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR 
 VALUES   SPACE  4,20 
**        DISPLAY CODE VALUES OF ASSEMBLY CONSTANTS.
  
  
 ANS.CONT DECMIC ANS.CONT    MAX CONTINUATION LINES ALLOWED BY ANSI 
 L.IOBUF6 OCTMIC L.IOBUF6    DEFAULT IO BUFFER LENGTH 
 MAX.BLK  DECMIC MAX.BLK     MAX COMMON BLOCKS ALLOWED
 MAX.BUFL OCTMIC MAX.BUFL    MAX IO BUFFER LENGTH 
 MAX.DIM  DECMIC MAX.DIM     MAX DIMENSIONS ALLOWED 
 MAX.SARG DECMIC MAX.SARG    MAX SUBPROGRAM ARGUMENTS 
 MAX.PARG DECMIC MAX.PARG    MAX MAIN PROGRAM ARGUMENTS 
 MAX.LFN  DECMIC MAX.LFN     MAX CHARACTERS IN LOGICAL FILE NAME
 MAX.RECL OCTMIC MAX.RECL    MAX RECORD LENGTH
 NOR.RECL DECMIC NOR.RECL    NORMAL RECORD LENGTH 
 MAX.CL   MICRO  1,, 2**15-1 MAX CHARACTER LENGTH 
          ERRNZ  1S15-1-MAX.CL     MAX.CL OUT OF SYNCH WITH TEXT
 MAX.SPAN MICRO  1,, 2**23-1 MAX DIMENSION SPAN 
          ERRNZ  23-MAX.SPAN
 MAX.SPCM DECMIC MAX.SPCM 
 MAX.SPLC DECMIC MAX.SPLC 
 ERRSKEL  SPACE  4,10 
****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.
* 
*         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE
*         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE
*         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS 
*         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.
  
  
 N.ER1ST  EQU    4
 N.ERREST EQU    6
          DESCRIBE ER.,60 
 TYP      DEFINE 5,23        ERROR TYPE INDICATOR 
 XIT      DEFINE 18          EXIT ADDRESS 
 ER.WORDL EQU    9           LENGTH OF EACH ORDINAL BYTE
 MORE     DEFINE 1,5         CONTINUATION FLAG
****
 L=ERWORD EQU    ER.WORDL 
 L=ERTYPE EQU    ER.TYPL
 P=ERTYPE EQU    ER.TYPP+ER.TYPL
 L=ERMORE EQU    ER.TYPL
 L=ERXIT  EQU    ER.XITL
          NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT
 DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC 
 COMSERR  ENDX
