*DECK     FERRS - FRONT END ERROR TEXTS.
          IDENT  FERRS
 FERRS    SECT   (FRONT END ERROR TEXTS.) 
 FERRS    SPACE  4,10 
*         IN DATA 
          EXT    DATA2,DAT.Z
  
*         IN DECL 
          EXT    EQS80,LVL80,LVL90,PRMERR,SAVERR
  
*         IN FEC
          EXT    CUS.RET,FEC.RTN
  
*         IN HEADER 
          EXT    PPA130 
  
*         IN IO 
          EXT    BLWA,BUFERR,LST
  
*         IN KEY
          EXT    END23,IFS11
  
*         IN LABEL
          EXT    PSL
  
*         IN PEM
          EXT    PDM,PEMS,PEMV,PEM
  
*         IN PUC
          EXT    ERR.A,ERR.D,ERR.F,ERR.T,ERR.W,SCR
  
*         IN STMTF
          EXT    SFDEX
  
*         IN TYPE 
          EXT    IMP.ER 
          TITLE  MACROS AND DEFINTIONS. 
*CALL     COMSSYC            NAMES OF SYMBOL CLASSES
  
 CLAS     MACRO  ADDR,NAME         INTERFACE TO COMSSYC 
 S        MICRO  1,,)NAME)
          ERRMIC S
 ADDR     LIT    10H"S""A"
 CLAS     ENDM
*CALL     COMAERR            ERROR PROCESSOR MACROS 
*CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR 
 CLASS    HERE               (NAMES OF SYMBOL CLASSES)
 CLASS    EQUENT "CLAS1"P 
  
 DO.DPC   ERRLIT CONTROL     NAMES OF DO PARAMETERS 
          ERRLIT INITIAL
          ERRLIT LIMIT
          ERRLIT INCREMENT
  
 MOD.DPC  ERRLIT BOOLEAN     NAMES OF TYPES 
          ERRLIT LOGICAL
          ERRLIT INTEGER
          ERRLIT REAL 
          ERRLIT DOUBLE 
          ERRLIT COMPLEX
          ERRLIT CHARACTER
 .T       IFEQ   TEST,ON,1
          ERRLIT MODE=7 
  
 ERL=XPR  ERRLIT EXPRESSION 
 ERL=CON  ERRLIT CONSTANT 
          TITLE  ERROR MESSAGE TEXTS
 GENERAL  EJECT 
**        GENERAL DIAGNOSTICS.  REFERENCED BY MORE THAN ONE PROCESSOR 
*         USING EQUATED SYMBOLS.
  
  
 E.GE     ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL
,.) 
 E.GE1    ERROR  FV,*,(EXPECTED COMMA -- FOUND FILL.) 
 E.GE2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FI
,LL.) 
 E.GE3    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.) 
 E.GE4    ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)
 E.GE5    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2
,)
 E.GE6    ERROR  FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)
 ANSI     SPACE  4,10 
**        ASSORTED ANSI DIAGNOSTICS.
  
  
 E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI) 
 E.ANS1   ERROR  A,*,(SEQUENCE MODE IS NON- ANSI) 
 E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI) 
 E.ANS3   ERROR  A,PSL,(RETURN IN MAIN PROGRAM -- ACTS AS END)
 E.ANS4   ERROR  A,*,(DOUBLE PRECISION AND COMPLEX OPERANDS ARE MIXED)
 E.ANS5   ERROR  A,*,(FUNCTION REFERENCE IN CONSTANT EXPRESSION)
 E.ANS6   ERROR  A,*,(COMMON CAN BE PRESET IN BLOCK DATA ONLY)
 ARG      SPACE  4,10 
**        ARGUMENT PROCESSOR. 
  
  
 E.AG00   ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E
,XCESS IGNORED) 
 E.AG01   ERROR  F,*,(FUNCTION REQUIRES EXPLICIT NULL ARGUMENT LIST)
 E.AG02   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.AG03   ERROR  FS,*,(MULTIPLE OCCURANCES OF DUMMY ARGUMENT FILL.) 
 E.AG04   ERROR  FV,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER OR __
,STAR)
 E.AG07   ERROR  FV,*,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST FOUND __
,FILL.) 
 E.AG08   ERROR  FV,PSL,(EXPECTED COMMA OR RIGHT PAREN -- FOUND FILL.)
 E.AG11   ERROR  FV,*,(STAR DUMMY ARGUMENT ILLEGAL IN FUNCTION) 
 E.AG12   ERROR  FS,*,(FILL. PREVIOUSLY USED IN EXECUTABLE OR CONFLICTIN
,G DECLARATIVE) 
 ASSIGN   SPACE  4,10 
**        ASSIGN STATEMENT. 
  
  
 E.AS1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)
 E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)
 E.AS4    ERROR  FV,PSL,(STATEMENT LABEL FILL. MUST BE NUMERIC) 
 E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)
 E.AS6    ERROR  FS,*,(OBJECT OF GO TO FILL. DID NOT APPEAR IN ASSIGN ST
,ATEMENT) 
 E.AS7    EQUENT E.GE5             FS,*,(USEAGE CONFLICT ...) 
 ARITH    EJECT 
**        ARITH PROCESSOR.
  
  
 E.AT01   ERROR  F,*,(OPERAND HAS MODE NOT ALLOWED IN THIS CONTEXT) 
 E.AT02   ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2
,)
 E.AT03   ERROR  W,*,(HOLLERITH CONSTANT EXCEEDS 10 CHARACTERS) 
 E.AT04   ERROR  FS,*,(FILL. MUST BE A DUMMY-ARG) 
 E.AT05   ERROR  F,*,(INVALID FORM INVOLVING THE USE OF A COMMA OR REDUN
,DANT PARENS) 
 E.AT06   ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR) 
 E.AT07   ERROR  A,*,(MASK EXPRESSION NON- ANSI)
 E.AT08   ERROR  A,*,(HOLLERITH CONSTANT NON- ANSI) 
 E.AT09   ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI) 
 E.AT10   ERROR  FV,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION) 
 E.AT11   ERROR  W,*,(TARGET / SOURCE OVERLAP IN CHARACTER ASSIGNMENT)
 E.AT13   ERROR  F,*,(CHARACTER AND OTHER TYPE OPERANDS MAY NOT BE MIXED
,)
 E.AT14   ERROR  FS,*,(CHARACTER OPERAND FILL. USED WITH OPERATOR FILL.2
,)
 E.AT15   ERROR  F,*,(OPERAND OF // OPERATOR MUST BE TYPE CHARACTER)
 E.AT16   ERROR  FS,*,(SUBSTRING ILLEGAL FOR OPERAND FILL.) 
 E.AT17   ERROR  A,*,(SUBSTRING EXPRESSION NOT INTEGER) 
 E.AT18   ERROR  FS,*,(SUBSTRING ILLEGAL FOR PARAMETER FILL.) 
 E.AT19   ERROR  FS,*,(FILL.2 OPERAND CANNOT BE CONVERTED TO TYPE FILL.3
,)
 E.AT20   ERROR  FS,*,(ILLEGAL USE OF PARAMETER FILL.)
 E.AT21   ERROR  A,*,(OPERATOR .XOR. NOT DEFINED IN ANSI) 
 CALL     SPACE  4,20 
**        CALL STATEMENTS.
  
  
 E.CL1    EQUENT E.AG07      EXPECTED ARGUMENT LIST LEFT PAREN
 E.CL2    ERROR  F,PSL,(CALL STATEMENT MISSING ROUTINE NAME)
 E.CL3    ERROR  WS,*,(FUNCTION FILL. REFERENCE AS SUBROUTINE)
 E.CL4    ERROR  WS,*,(SUBROUTINE FILL. APPEARED IN TYPE DECLARATION) 
 COMMON   SPACE  4,20 
**        COMMON STATEMENT. 
  
  
 E.CM     ERROR  F,FEC.RTN,(SYNTAX ERROR IN BLOCK NAME) 
 E.CM1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)
 E.CM2    ERROR  F,FEC.RTN,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)
 E.CM3    ERROR  FV,FEC.RTN,(EXPECTED COMMA OR SLASH FOUND FILL.) 
 E.CM5    ERROR  F,FEC.RTN,(ILLEGAL BLOCK NAME IN COMMON STATEMENT) 
 E.CM6    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED SYMBOL OR SLASH
,)
  
  
**        COMMON PROCESSING AT END OF DECLARATIVES. 
  
  
 E.CM8    ERROR  AS,*,(COMMON BLOCK NAME FILL. CANNOT BE FILL.2)
 E.CM9    ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX BLOCK ____________
,LENGTH "MAX.SPCM") 
 E.CM10   ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX LCM=G BLOCK ______
,LENGTH "MAX.SPLC") 
 E.CM11   ERROR  FS,*,(CHARACTER DECLARATION CONFLICT EXISTS IN COMMON B
,LOCK FILL.)
 E.CM12   ERROR  FS,*,(EMPTY COMMON BLOCK FILL.)
 CONTINUE SPACE  4,10 
**        CONTINUE STATEMENT PROCESSOR. 
  
  
 E.CT     ERROR  T,FEC.RTN,(CONTINUE WITH NO STATEMENT LABEL -- IGNORED)
 E.CT1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 C$       SPACE  4,10 
**        C$ DIRECTIVE PROCESSING.
  
  
 E.C$00   ERROR  FS,FEC.RTN,(FILL.2 IS UNKNOWN C$ PARAMETER FOR FILL.)
 E.C$01   ERROR  F,FEC.RTN,(NO PREVIOUS C$ IF DIRECTIVE)
 E.C$02   ERROR  FV,FEC.RTN,(EXPECTED C$ DIRECTIVE LABEL -- FOUND FILL.)
 E.C$03   ERROR  FS,FEC.RTN,(C$ FILL. LABEL FILL.2 DIFFERENT FROM C$ IF 
,LABEL) 
 E.C$04   ERROR  F,FEC.RTN,(ONLY ONE C$ ELSE ALLOWED IN C$ IF GROUP)
 E.C$05   ERROR  WS,*,(C$ PARAMETER VALUE FOR FILL.2 ON FILL. MUST BE 0 
,OR 1)
 E.C$06   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.) 
 E.C$07   ERROR  FV,FEC.RTN,(EXPECTED C$ PARAMETER -- FOUND FILL.)
 E.C$08   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN -- FOUND FILL.)
 E.C$09   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.) 
 E.C$10   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.C$11   ERROR  F,FEC.RTN,(C$ IF EXPRESSION MUST BE LOGICAL) 
 E.C$15   ERROR  FS,*,(FILL. C$ IF(S) NOT TERMINATED) 
 DATA     SPACE  4,30 
**        DATA   STATEMENT PROCESSOR. 
  
  
 E.DABC   ERROR  FS,*,(FILL. IS IN BLANK COMMON -- DATA IGNORED)
 E.DABL   ERROR  WS,*,(LOCAL FILL. IN BLOCK DATA -- IGNORED)
 E.DACV   ERROR  W,DATA2,(EXCESS CONSTANTS IGNORED) 
 E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. NOT
, INITIALIZED)
 E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED) 
 E.DAUC   ERROR  FS,*,(DATA INTO FILL. IS ILLEGAL)
 E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)
 E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST) 
 E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)
 E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST 
,IS ILLEGAL)
 E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)
 E.DIL4   ERROR  FS,DAT.Z,(NAME FILL. IN DATA CONSTANT LIST MUST BE ____
,PARAMETER) 
 E.DSE    ERROR  F,*,(SYNTAX ERROR IN DATA STATEMENT) 
 E.DVL1   ERROR  F,*,(DATA VARIABLE LIST CONTAINS FILL.3) 
 E.DVR1   ERROR  FS,*,(FILL. MUST BE DO CONTROL VARIABLE) 
 E.DVR2   ERROR  FS,*,(FILL. SUBSCRIPT OUTSIDE OF ARRAY BOUNDS) 
 E.DVR3   ERROR  FS,*,(TRIP COUNT OF FILL. MUST BE POSITIVE)
 E.DVR4   ERROR  F,*,(SUBSCRIPTS IN DATA MUST BE INTEGER) 
 E.DVR5   ERROR  F,*,(STATEMENT FUNCTION INVALID IN DATA VARIABLE LIST) 
 DEC      EJECT 
**        CONVERSION OF CONSTANT SECTION. 
  
  
 E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED) 
 E.DC1    ERROR  A,*,(OCT/HEX DATA TYPE NOT DEFINED IN ANSI)
 E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)
 E.DC4    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE
,)
 E.DC6    ERROR  W,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)
 E.DC7    ERROR  F,*,(ILL- FORMED COMPLEX CONSTANT) 
 E.DC8    ERROR  T,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)
 E.DC9    ERROR  W,*,(NON- OCT/HEX DIGIT IN OCT/HEX CONSTANT -- IGNORED)
 E.DC10   ERROR  A,*,(SYMBOLIC CONSTANT IN COMPLEX CONSTANT NOT ANSI) 
 DIM      EJECT 
**        DIMENSION PROCESSOR.
  
  
 E.DM00   ERROR  F,*,(SYNTAX ERROR IN DIMENSION DECLARATION)
 E.DM01   ERROR  FS,*,(ARRAY FILL. DIMENSION BOUND FILL.2 NOT INTEGER)
 E.DM02   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- LOWER BOUND EXCEE
,DS UPPER BOUND)
 E.DM03   ERROR  FS,*,(ASSUMED SIZE OR ADJUSTABLE ARRAY FILL. MUST BE DU
,MMY-ARG) 
 E.DM04   ERROR  FS,*,(ADJUSTABLE BOUND FILL. MUST BE DUMMY-ARG OR IN CO
,MMON)
 E.DM05   ERROR  WS,*,(VARIABLE FILL. HAS NO DIMENSION BOUND -- IGNORED)
 E.DM06   ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)
 E.DM07   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- EXCEEDS "MAX.SPAN
,") 
 E.DM08   ERROR  FS,*,(ARRAY FILL. SIZE EXCEEDS "MAX.SPAN") 
 E.DM09   ERROR  FS,*,(DIMENSION ON FILL. IGNORED -- PRIOR DIMENSION RET
,AINED) 
 E.DM10   ERROR  FS,FEC.RTN,(ARRAY DECLARATION FOR FILL. MISSING RIGHT P
,AREN)
 E.DM11   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E
,XPRESSION CONTAINS ILLEGAL OPERATION)
 E.DM12   ERROR  FS,*,(ADJUSTABLE DIMENSION BOUND FILL. IS NOT INTEGER) 
 E.DM13   ERROR  F,*,(ASSUMED SIZE CAN ONLY BE ON LAST UPPER BOUND) 
 E.DM14   ERROR  FS,*,(ARRAY FILL. IN PROGRAM CANNOT HAVE ADJUSTABLE DIM
,ENSION)
 E.DM15   EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)
 E.DM16   EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)
 E.DM17   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E
,XPRESSION CONTAINS NON- VARIABLE)
 E.DM18   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E
,XPRESSION CONTAINS ARRAY REFERENCE)
 E.DM19   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPCM")
 E.DM20   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPLC")
 E.DM21   ERROR  FS,*,(ARRAY FILL. IN COMMON CANNOT HAVE ADJUSTABLE DIME
,NSION) 
 DO       EJECT 
**        DO PROCESSOR. 
  
  
 E.DO00   ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2) 
 E.DO01   ERROR  T,*,(THIS DO LOOP WILL NOT EXECUTE)
 E.DO02   ERROR  F,*,(DO LOOP INCREMENT MAY NOT BE ZERO)
 E.DO03   ERROR  FS,*,(FILL.3 TOO HIGH -- SHORT LOOPS SELECTED) 
 E.DO04   ERROR  FS,*,(DO INDEX FILL. MUST BE SIMPLE VARIABLE)
 E.DO05   EQUENT E.AS4       (EXPECTED STATEMENT LABEL -- FOUND FILL.)
 E.DO06   ERROR  FS,*,(ILLEGAL IF BLOCK NESTING WITH DO LOOP FILL.2)
 E.DO07   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)
 E.DO08   ERROR  FS,PSL,(FILL. REDEFINES A DO CONTROL INDEX)
 E.DO09   ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA
,M) 
 E.DO10   ERROR  FV,*,(EXPECTED EQUAL SIGN -- FOUND FILL.)
 E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)
 E.DO13   ERROR  W,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR)
 E.DO14   ERROR  FV,PSL,(EXPECTED DO CONTROL INDEX -- FOUND FILL.)
 E.DO15   ERROR  F,*,(DO INDEX CANNOT BE FILL.3)
 E.DO16   ERROR  F,*,(DO FILL.2 PARAMETER CANNOT BE FILL.3) 
 E.DO17   ERROR  F,*,(DO-IMPLIED LOOPS IN DATA MUST BE INTEGER) 
 E.DO18   ERROR  F,*,(TRIP COUNT IS LESS THAN ONE)
 E.DO19   ERROR  A,*,(TRANSFER INTO RANGE OF DO)
 E.DO20   ERROR  W,*,(ALTERNATE RETURN INTO RANGE OF DO)
 ENTRY    SPACE  4,10 
**        ENTRY PROCESSOR.
  
  
 E.EN     ERROR  WS,*,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMENT 
,IGNORED) 
 E.EN1    ERROR  W,FEC.RTN,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)
 E.EN2    ERROR  F,PSL,(ENTRY INSIDE DO LOOP OR IF BLOCK IS ILLEGAL)
 E.EN3    ERROR  W,PSL,(MISSING NAME -- ENTRY STATEMENT IGNORED)
 E.EN4    ERROR  W,PSL,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)
 E.EN5    ERROR  FS,*,(SUBROUTINE ENTRY FILL. MAY NOT APPEAR IN A DECLAR
,ATIVE STATEMENT) 
 E.EN6    ERROR  FS,*,(FUNCTION ENTRY FILL. MUST BE TYPE CHARACTER) 
 E.EN7    ERROR  FS,*,(CHARACTER LENGTHS OF ENTRY FILL. AND FUNCTION CAN
,NOT DISAGREE)
 E.EN8    ERROR  FS,*,(FUNCTION ENTRY FILL. MAY NOT BE TYPE CHARACTER)
 EQUIV    EJECT 
**        EQUIVALENCE PROCESSOR.
  
  
 E.EQ     ERROR  F,FEC.RTN,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)
 E.EQ1    ERROR  FV,EQS80,(MISSING LEFT PAREN AT FILL.) 
 E.EQ2    ERROR  WV,FEC.RTN,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)
 E.EQ3    ERROR  FV,EQS80,(MISSING COMMA AT FILL.)
 E.EQ4    ERROR  FV,EQS80,(MORE THAN "MAX.DIM" SUBSCRIPTS)
 E.EQ6    ERROR  W,*,(TRIVIAL EQUIVALENCE GROUP WITH ONLY 1 MEMBER IS IG
,NORED) 
  
**        CLOSE OF DECLARATIVES PROCESSING. 
  
 E.EQ7    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT LESS THAN 
,DIMENSION LOWER BOUND) 
 E.EQ8    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT WHICH EXCE
,EDS DIMENSION BOUND) 
 E.EQ10   ERROR  FS,*,(DUMMY ARGUMENT FILL. CANNOT BE EQUIVALENCED) 
 E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.) 
 E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.) 
 E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL.
,)
 E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.) 
 E.EQ15   ERROR  FS,*,(MISSING SUBSCRIPTS SET TO LOWER BOUND FOR EQUIVAL
,ENCE VARIABLE FILL.) 
 E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)
 E.EQ17   ERROR  FS,*,(FILL. CAUSES CHARACTER DECLARATION CONFLICT IN EQ
,UIVALENCE GROUP) 
 EXTERNAL EJECT 
**        EXTERNAL PROCESSOR. 
  
  
 E.EX1    ERROR  WS,*,(FILL. PREVIOUSLY DEFINED EXTERNAL -- IGNORED)
 E.EX2    EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)
 E.EX3    EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)
 E.EX4    ERROR  WS,*,(ENTRY FILL. MUST NOT BE DECLARED EXTERNAL -- IGNO
,RED) 
 FILES    SPACE  4,10 
**        PROGRAM STATEMENT FILE DECLARATION. 
  
  
 E.FD     ERROR  A,*,(FILE DECLARATION LIST NON- ANSI)
 E.FD1    ERROR  FV,*,(EXPECTED FILE NAME, FOUND FILL.) 
 E.FD2    ERROR  FS,PPA130,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED) 
 E.FD3    ERROR  FS,PPA130,(FILE FILL.2 NOT DEFINED -- DEFINITION IGNORE
,D) 
 E.FD4    ERROR  F,PPA130,(EQUAL SIGN MUST BE FOLLOWED BY NAME, NUMBER O
,R SLASH) 
 E.FD5    ERROR  FS,PPA130,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- DEFI
,NITION IGNORED)
 E.FD6    ERROR  FS,PPA130,(BUFFER LENGTH FOR FILE FILL. EXCEEDS "MAX.BU
,FL"B -- DEFINITION IGNORED)
 E.FD7    ERROR  FS,PPA130,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFI
,NITION IGNORED)
 E.FD8    ERROR  F,PPA130,(SLASH MUST BE FOLLOWED BY AN OCTAL OR INTEGER
, CONSTANT) 
 E.FD9    ERROR  FS,PPA130,(RECORD LENGTH FOR FILE FILL. EXCEEDS "MAX.RE
,CL"B -- DEFINITION IGNORED)
 E.FD10   ERROR  FV,*,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL.)
 E.FD11   EQUENT E.GE4             WV,*,(EXPECTED EOS -- FOUND FILL.) 
 E.FD12   ERROR  W,*,(ONLY "MAX.PARG" FILES ARE ALLOWED -- EXCESS IGNORE
,D) 
 FORMAT   SPACE  4,20 
**        FORMAT STATEMENT PROCESSOR. 
  
  
 E.FS00   ERROR  F,*,(FORMAT MUST HAVE STATEMENT LABEL) 
 E.FS01   ERROR  FV,*,(D OR M FIELD NOT SPECIFIED FOR EDIT DESCRIPTOR AT
, FILL.)
 E.FS02   ERROR  F,*,(T EDIT DESCRIPTOR FOLLOWED BY ZERO OR NON- DIGIT) 
 E.FS03   ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)
 E.FS04   ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE EDIT DESCR
,IPTOR FILL.) 
 E.FS05   ERROR  FV,*,(FIELD WIDTH NOT SPECIFIED FOR EDIT DESCRIPTOR AT 
,FILL.) 
 E.FS06   ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P EDIT DESCRIPTOR
,)
 E.FS07   ERROR  FS,*,(FILL. EDIT DESCRIPTOR REQUIRES COUNT)
 E.FS08   ERROR  AS,*,(FILL. IS NON- ANSI EDIT DESCRIPTOR)
 E.FS09   ERROR  T,*,(TL EDIT DESCRIPTOR BACKSPACED BEYOND 1ST COLUMN --
, COLUMN POINTER RESET AT 1)
 E.FS10   ERROR  FV,*,(ZERO IS SPECIFIED AS REPEAT COUNT AT FILL.)
 E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS "MAX.RECL" COLUMNS) 
 E.FS12   ERROR  T,*,(RECORD LENGTH EXCEEDS "NOR.RECL" COLUMNS -- MAY EX
,CEED I/O DEVICE) 
 E.FS13   ERROR  FV,*,(FIELD WIDTH OF EDIT DESCRIPTOR AT FILL. IS ZERO O
,R NOT SPECIFIED) 
 E.FS14   ERROR  FS,*,(UNKNOWN EDIT DESCRIPTOR FILL.) 
 E.FS15   ERROR  FV,*,(EXTRANEOUS NUMERIC FIELD IN EDIT DESCRIPTOR AT FI
,LL.) 
 E.FS16   ERROR  FV,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE EDIT DESCR
,IPTOR AT FILL.)
 E.FS17   ERROR  WV,*,(FIELD WIDTH IS LESS THAN MINIMUM REQUIRED ON EDIT
, DESCRIPTOR AT FILL.)
 E.FS18   EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)
 E.FS19   ERROR  F,*,(UNBALANCED PARENS)
 E.FS20   ERROR  W,*,(EXTRANEOUS COMMA IGNORED) 
 E.FS21   ERROR  FV,*,(MULTIPLE DECIMAL POINT IN EDIT DESCRIPTOR AT FILL
,.) 
 E.FS22   ERROR  FV,*,(EDIT DESCRIPTOR MISSING AT FILL.)
 E.FS23   ERROR  FV,*,(DECIMAL POINT REQUIRED IN EDIT DESCRIPTOR AT FILL
,.) 
 E.FS24   ERROR  FV,*,(EXPONENT FIELD ON EDIT DESCRIPTOR AT FILL. IS ZER
,O OR NOT SPECIFIED)
 E.FS25   ERROR  FV,*,(SEPARATOR MISSING AT FILL.)
 E.FS26   ERROR  F,*,(INITIAL LEFT PAREN MISSING) 
 GOTO     SPACE  4,10 
**        GO TO   STATEMENTS. 
  
  
 E.GO     ERROR  F,PSL,(SYNTAX ERROR IN GO TO STATEMENT)
 E.GO1    ERROR  F,PSL,(OBJECT OF GO TO MISSING)
 E.GO2    ERROR  T,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED)
 E.GO3    ERROR  FV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)
 E.GO4    ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE) 
 E.GO5    ERROR  T,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)
 E.GO6    ERROR  A,*,(COMPUTED GO TO INDEX MUST BE INTEGER) 
 E.GO7    ERROR  T,*,(STATEMENT TRANSFERS TO ITSELF)
 E.GO8    ERROR  T,*,(STATEMENT CAN TRANSFER TO ITSELF) 
 E.GO9    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 HOLLER   SPACE  4,30 
**        CONVERSION OF HOLLERITH CONSTANTS.
  
  
 E.HC1    ERROR  F,*,(ZERO LENGTH CHARACTER OR HOLLERITH STRING)
 E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT) 
 E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)
 IF       SPACE  4,10 
**        IF STATEMENT/STRUCTURE PROCESSING.
  
  
 E.IF00   ERROR  F,PSL,(ILLEGAL IF STATEMENT -- OBJECT MISSING) 
 E.IF01   ERROR  F,*,(ELSEIF EXPRESSION MUST BE LOGICAL)
 E.IF02   ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)
 E.IF03   ERROR  FV,PSL,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL
,.) 
 E.IF04   ERROR  T,*,(IF RESULTS IN A SIMPLE TRANSFER)
 E.IF05   ERROR  T,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME
,NT)
 E.IF06   ERROR  F,PSL,(ILLEGAL OBJECT OF LOGICAL IF) 
 E.IF07   ERROR  FS,*,(3 BRANCH IF HAS FILL.3 EXPRESSION) 
 E.IF08   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.IF09   ERROR  F,IFS11,(LOGICAL IF EXPRESSION MUST BE LOGICAL)
 E.IF10   ERROR  F,PSL,(3 BRANCH IF MISSING LABEL)
 E.IF11   ERROR  F,PSL,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)
 E.IF12   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)
 E.IF13   ERROR  F,PSL,(ILLEGAL BLOCK IF STRUCTURE) 
 E.IF14   ERROR  FV,*,(EXPECTED THEN -- FOUND FILL.)
 E.IF15   ERROR  FS,*,(DO LOOP FILL. MUST TERMINATE WITHIN IF BLOCK)
 E.IF16   ERROR  FS,*,(DO LOOP FILL. CONTAINS UNCLOSED IF BLOCK)
 E.IF17   ERROR  FS,*,(FILL. BLOCK IF(S) NOT TERMINATED)
 INT      SPACE  4,10 
**        INTRINSIC STATEMENT PROCESSOR 
  
  
 E.IN     ERROR  FV,FEC.RTN,(EXPECTED INTRINSIC FUNCTION NAME -- FOUND F
,ILL.)
 E.IN1    ERROR  FS,*,(FILL. IS NOT DEFINED AS INTRINSIC) 
 E.IN2    ERROR  WS,*,(FILL. PREVIOUSLY DECLARED INTRINSIC -- IGNORED)
 E.IN3    ERROR  WS,*,(FILL. PREVIOUSLY TYPED NON- CONFIRMING -- PREVIOU
,S TYPE OVERRIDDEN) 
 E.IN4    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.) 
  
  
**        INTRINSIC FUNCTION PROCESSING 
  
  
 E.INF    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE FILL.3) 
 E.INF1   ERROR  W,*,(ARGUMENT TO MASK MUST BE BETWEEN 0 AND 60)
 E.INF2   ERROR  W,*,(SHIFT COUNT MUST BE BETWEEN -60 AND 60) 
 E.INF3   ERROR  F,*,(INTRINSIC LEN MUST NOT APPEAR IN PARAMETER CONSTAN
,T EXPRESSION)
 I/O      EJECT 
**        I/O PROCESSOR.
  
  
 E.IO00   ERROR  F,*,(EXTERNAL UNIT SPECIFIER NOT INTEGER EXPRESSION) 
 E.IO01   ERROR  F,PSL,(UNIT SPECIFIER MISSING) 
 E.IO02   ERROR  F,*,(COMMA BEFORE AN I/O LIST IS ALLOWED ONLY ON SHORT 
,FORM READ OR PRINT STATEMENT)
 E.IO03   ERROR  F,*,(UNIT SPECIFIER OUTSIDE RANGE 0-999) 
 E.IO04   ERROR  F,*,(IMPLIED I/O UNIT SPECIFIER NOT ALLOWED FOR THIS ST
,ATEMENT) 
 E.IO05   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 MUST B
,E TYPE FILL.3) 
 E.IO06   ERROR  FV,*,(EXTRA CHARACTERS FILL. AFTER UNIT SPECIFIER IGNOR
,ED)
 E.IO07   ERROR  FV,PSL,(EXPECTED FORMAT SPECIFIER -- FOUND FILL.)
 E.IO08   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O CONTROL LIST) 
 E.IO09   ERROR  WV,*,(EXPECTED COMMA AFTER I/O CONTROL -- FOUND FILL.) 
 E.IO10   ERROR  FS,PSL,(FILL. FILL.2 NOT I/O CONTROL KEYWORD)
 E.IO11   ERROR  FS,PSL,(FILL. FILL.2 NOT LEGAL I/O CONTROL KEYWORD FOR 
,THIS STATEMENT)
 E.IO12   ERROR  FS,PSL,(FILL. FILL.2 I/O CONTROL ALREADY SPECIFIED FOR 
,THIS STATEMENT)
 E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR
,EN)
 E.IO14   ERROR  F,*,(IMPLIED LOOP NOT TERMINATED)
 E.IO15   ERROR  F,PSL,(END OR ERR REQUIRES STATEMENT LABEL)
 E.IO16   ERROR  FV,PSL,(SYNTAX ERROR IN I/O CONTROL LIST AT FILL.) 
 E.IO17   ERROR  FS,PSL,(I/O CONTROL KEYWORD FILL. FILL.2 MUST BE POSITI
,VE INTEGER EXPRESSION) 
 E.IO18   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 CANNOT
, BE FILL.3)
 E.IO19   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)
 E.IO20   ERROR  F,PSL,(INQUIRE MUST SPECIFY UNIT OR FILE)
 E.IO21   ERROR  F,PSL,(INQUIRE CANNOT SPECIFY BOTH UNIT AND FILE)
 E.IO22   ERROR  A,*,(I/O KEYWORD BUFL IS NON- ANSI)
 E.IO23   ERROR  FS,*,(INTERNAL UNIT SPECIFIER CANNOT BE FILL.3)
 E.IO24   ERROR  F,*,(INTERNAL UNIT SPECIFIER CANNOT BE ASSUMED SIZE ARR
,AY)
 E.IO25   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE FREE FORMAT)
 E.IO26   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE FREE FORMAT)
 E.IO28   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE NAMELIST) 
 E.IO29   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT SPECIFY END) 
 E.IO30   ERROR  F,*,(INTERNAL UNIT SPECIFIER NOT ALLOWED FOR THIS STATE
,MENT)
 E.IO31   ERROR  F,*,(UNIT SPECIFIER NOT LEGAL FILE NAME) 
 E.IO32   ERROR  F,*,(UNIT SPECIFIER FILE NAME GREATER THAN 7 CHARACTERS
,)
 E.IO33   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE NAMELIST) 
 E.IO34   ERROR  F,*,(INTERNAL FILE REQUIRES A FORMAT)
 E.IO35   ERROR  F,*,(INTERNAL FILE WITHOUT FORMAT OR MISSING COMMA BEFO
,RE I/O LIST) 
 E.IO36   ERROR  F,*,(LENGTH OF CHARACTER FORMAT SPECIFIER MUST BE GREAT
,ER THAN 1) 
 E.IO37   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 BUFFER   SPACE  4,10 
**        BUFFER IN / OUT 
  
  
 E.IOB0   ERROR  F,BUFERR,(BUFFER I/O ADDRESS CANNOT BE CHARACTER)
 E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION SPECIFIER MUST BE IN OR OUT)
 E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY SPECIFIER MUST BE INTEGER C
,ONSTANT OR VARIABLE) 
 E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.) 
 E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)
 E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)
 E.IOB6   ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL 
,TO FWA)
 E.IOB7   ERROR  F,*,(BUFFER I/O ADDRESS CANNOT BE FILL.3)
 E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER
,O OR 1)
 E.IOB9   ERROR  W,BLWA,(FWA AND LWA NOT IN SAME ARRAY , EQUIVALENCE CLA
,SS , OR COMMON BLOCK)
 IODO     SPACE  4,10 
**        I/O IMPLIED DO
  
  
 E.IOD1   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST)
 E.IOD2   ERROR  F,PSL,(SYNTAX ERROR IN I/O IMPLIED DO) 
 E.IOD3   ERROR  F,PSL,(EXCESS RIGHT PAREN IN I/O LIST) 
 E.IOD4   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.) 
 IOLIST   SPACE  4,10 
**        I/O LIST
  
  
 E.IOL1   ERROR  A,*,(LIST DIRECTED OUTPUT CANNOT END WITH COMMA) 
 E.IOL2   ERROR  F,*,(FILL.3 IN INPUT LIST IS ILLEGAL)
 E.IOL5   ERROR  F,*,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WITH 
,A COMMA) 
 E.IOL6   ERROR  FS,*,(ASSUMED SIZE ARRAY FILL. NOT ALLOWED IN I/O LIST)
 E.IOL7   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O LIST ITEM SUBSCRIPT)
 E.IOL8   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST ITEM SUBSCRIPT) 
 IOFMT    SPACE  4,10 
**        I/O CONTROL VARIABLE FORMAT DESIGNATOR
  
  
 E.IOF    ERROR  F,PSL,(ILLEGAL FORMAT SPECIFIER) 
 E.IOF1   ERROR  A,*,(CHARACTER ARRAY REQUIRED FOR FORMAT SPECIFIER)
 E.IOF2   ERROR  F,PSL,(SCALAR FORMAT SPECIFIER MUST BE INTEGER)
 NAMELIST SPACE  4,10 
**        NAMELIST
  
  
 E.ION    ERROR  W,*,(I/O LIST IGNORED WHEN USING NAMELIST) 
 E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)
 XXCODE   SPACE  4,10 
**        ENCODE / DECODE.
  
  
 E.IOS1   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND F
,ILL.)
 E.IOS2   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.)
 E.IOS3   ERROR  FS,FEC.RTN,(FORMAT SPECIFIER FILL. IS NAMELIST NAME) 
 E.IOS4   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER FORMAT SPECIFIER -- FO
,UND FILL.) 
 E.IOS5   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS -
,- FOUND FILL.) 
 E.IOS6   ERROR  F,FEC.RTN,(PREMATURE E.O.S. IN ENCODE OR DECODE) 
 E.IOS7   ERROR  F,*,(STRING ADDRESS CANNOT BE FILL.) 
 E.IOS8   ERROR  FV,FEC.RTN,(ILLEGAL FORMAT SPECIFIER FILL.)
 E.IOS9   ERROR  F,FEC.RTN,(ILLEGAL CHARACTER COUNT)
 E.IOS10  ERROR  F,FEC.RTN,(STRING ADDRESS CANNOT BE CHARACTER) 
 PARENS   EJECT 
**        PARENTHESIS MIS-MATCH.
  
  
 E.LP1    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S
,CAN STOPPED AT FILL.)
 E.LP2    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC
,AN STOPPED AT FILL.) 
 E.LP3    ERROR  FV,*,(EXPRESSION TOO COMPLICATED -- SCAN STOPPED AT ___
,FILL.) 
 CPMLOOP  SPACE  4,30 
**        LEVEL PROCESSING
  
  
 E.LV1    ERROR  F,FEC.RTN,(INTEGER 0, 1 , 2 OR 3 MUST FOLLOW LEVEL)
 E.LV2    ERROR  W,*,(COMMA MUST FOLLOW LEVEL NUMBER) 
 E.LV3    ERROR  F,FEC.RTN,(MISSING NAME IN LEVEL LIST) 
 E.LV4    ERROR  WS,LVL90,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNO
,RED) 
 E.LV5    ERROR  F,FEC.RTN,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME)
 E.LV6    ERROR  FS,*,(NON- DUMMY ARGUMENT FILL. CANNOT BE LEVELED) 
 E.LV7    ERROR  WS,LVL80,(MULTIPLY DEFINED LEVEL FOR COMMON BLOCK NAME 
,FILL. -- IGNORED)
 E.LV8    ERROR  FS,LVL80,(COMMON BLOCK FILL. CANNOT BE DECLARED LEVEL 0
,)
 E.LV9    ERROR  FS,*,(ILLEGAL EXPLICIT LEVEL DECLARATION FOR COMMON MEM
,BER NAME FILL.)
 E.LV11   ERROR  FS,*,(LEVEL 3 NAME FILL. MAY NOT OCCUR IN THIS STATEMEN
,T) 
 FRONT    EJECT 
**        FRONT END CONTROLLER. 
  
  
 E.FM     ERROR  F,FEC.RTN,(THIS IS NOT A FORTRAN STATEMENT)
 E.MA     ERROR  F,FEC.RTN,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEF
,ORE FIRST EXECUTABLE)
 E.MB     ERROR  F,*,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBPROG
,RAM) 
 E.MCA    ERROR  F,*,(ONLY "ANS.CONT" CONTINUATION LINES ARE PERMITTED) 
 E.INI    ERROR  W,*,(THIS STATEMENT HAS NO INITIAL LINE -- INITIAL_____
, ASSUMED)
 E.TLBL   ERROR  F,*,(NON- NULL LABEL FIELD ON CONTINUATION LINE) 
  
 E.MD     ERROR  FS,FEC.RTN,(STATEMENT MISPLACED) 
 E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)
 E.ME     ERROR  F,END23,(END LINE ABSENT)
 E.ME1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.MH     ERROR  F,FEC.RTN,(HEADER CARD NOT FIRST STATEMENT -- IGNORED) 
 E.MI     ERROR  F,FEC.RTN,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARA
,TIVE STATEMENTS) 
 E.MR1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)
 E.MR2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATO
,R FILL.) 
 E.MR3    ERROR  F,FEC.RTN,(PREMATURE E.O.S.) 
 E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED)
  
 E.NP     ERROR  T,*,(NO PATH TO THIS STATEMENT)
 E.NP1    ERROR  T,PSL,(NO PATH TO THE ENTIRE RANGE OF DO)
  
 E.OV1    ERROR  F,FEC.RTN,(OVERLAY DIRECTIVE MUST BEGIN WITH LEFT PAREN
,)
 E.OV2    ERROR  FV,*,(EXPECTED LEFT PAREN OR PERIOD -- FOUND FILL.)
 E.OV3    ERROR  F,FEC.RTN,(THIS STATEMENT MUST BE CONTAINED ON 1 CARD) 
 E.OV4    ERROR  F,*,(OVCAP DIRECTIVE CAN APPEAR ONLY WITH SUBROUTINES) 
  
 E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)
 E.PN3    ERROR  T,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME
,D) 
 E.SEQ    ERROR  F,*,(SEQUENCE NUMBER OUT OF ORDER) 
 E.STO    ERROR  K,*,(SYMBOL TABLE OVERFLOW - REDUCE NUMBER OF SYMBOLS) 
*CALL     COMFERR            COMMON FRONT/REAR DIAGNOSTICS
          TITLE  ERROR MESSAGE TEXTS. 
 MDERR    SPACE  4,10 
**        ASSORTED MACHINE DEPENDENT ERRORS.
  
 E.MDE1   ERROR  M,*,(OVERLAYS ARE MACHINE DEPENDENT) 
 E.MDE2   ERROR  M,*,(BOOLEAN DATA TYPE IS MACHINE DEPENDENT) 
 E.MDE3   ERROR  M,*,(BUFFER I/O IS MACHINE DEPENDENT)
 E.MDE4   ERROR  M,*,(ENCODE/DECODE ARE MACHINE DEPENDENT)
 E.MDE5   ERROR  M,*,(LIBRARY FUNCTIONS DATE, TIME, AND CLOCK ARE MACHIN
,E DEPENDENT) 
 E.MDE6   ERROR  M,*,(OVCAPS ARE MACHINE DEPENDENT) 
 NAMELIST SPACE  4,10 
**        NAMELIST PROCESSING.
  
  
 E.NL     ERROR  F,FEC.RTN,(SYNTAX ERROR IN NAMELIST) 
 E.NL1    ERROR  F,FEC.RTN,(MISSING SLASH ON GROUP NAME)
 E.NL2    ERROR  FV,FEC.RTN,(EXPECTED NAME -- FOUND FILL.)
 E.NL3    ERROR  FS,FEC.RTN,(GROUP NAME FILL. PREVIOUSLY DEFINED) 
 E.NL4    ERROR  F,FEC.RTN,(ASSUMED SIZE ARRAY NOT PERMITTED IN NAMELIST
,)
 E.NL5    ERROR  FV,FEC.RTN,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SC
,AN STOPPED)
 PARAM    SPACE  4,10 
**        PARAMETER AND CONSTANT EXPRESSIONS. 
  
  
 E.PX1    ERROR  FV,*,(FILL. MUST BE INTEGER CONSTANT EXPRESSION) 
 E.PX2    ERROR  WV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)
 E.PX3    ERROR  FV,PRMERR,(EXPECTED NAME -- FOUND FILL.) 
 E.PX4    ERROR  FV,PRMERR,(EXPECTED EQUAL SIGN -- FOUND FILL.) 
 E.PX5    EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)
 E.PX6    ERROR  FV,*,(FILL. EXPRESSION NOT CONSTANT, OR NOT EVALUATABLE
,)
 E.PX7    ERROR  F,*,(PARAMETER REQUIRES INTEGER EXPONENTIATION)
 E.PX8    EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)
 SAVE     SPACE  4,10 
**        SAVE PROCESSOR
  
  
 E.SA     ERROR  W,*,(UNIVERSAL SAVE DECLARED -- OTHER SAVE STATEMENTS A
,RE REDUNDANT)
 E.SA1    ERROR  FV,SAVERR,(EXPECTED VARIABLE OR COMMON BLOCK NAME -- FO
,UND FILL.) 
 E.SA2    ERROR  WS,*,(FILL. REDUNDANTLY DECLARED IN SAVE)
 E.SA3    ERROR  FV,SAVERR,(EXPECTED SLASH -- FOUND FILL.)
 E.SA4    ERROR  FV,SAVERR,(EXPECTED COMMA -- FOUND FILL.)
 E.SA5    ERROR  FS,*,(DUMMY ARGUMENT FILL. MAY NOT APPEAR IN SAVE) 
 E.SA6    ERROR  FS,*,(COMMON ELEMENT FILL. MAY NOT APPEAR IN SAVE) 
 SUBSPT   EJECT 
**        SUBSCRIPT PROCESSOR.
  
  
 E.SB2    ERROR  FS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT A NUMERIC TYPE) 
 E.SB3    ERROR  AS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT TYPE INTEGER) 
 E.SB4    ERROR  FS,*,(MAGNITUDE OF SUBSCRIPT FILL.2 OF FILL. EXCEEDS __
,"MAX.SPAN")
 E.SB5    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES LOWER ________
,DIMENSION BOUND) 
 E.SB6    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES UPPER ________
,DIMENSION BOUND) 
 E.SB7    ERROR  FS,*,(ARRAY FILL. SUBSCRIPT COUNT DOES NOT MATCH DIMENS
,ION COUNT) 
 STMTF    EJECT 
**        STATEMENT FUNCTION PROCESSOR / STATEMENT FUNCTION EXPANSION 
  
  
 E.SF00   EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)
 E.SF01   ERROR  FS,FEC.RTN,(STATEMENT FUNCTION FILL.3 -- MISPLACED EQUA
,L SIGN)
 E.SF02   ERROR  WS,FEC.RTN,(STATEMENT FUNCTION FILL.3 HAS NULL DEFINITI
,ON -- IGNORED) 
 E.SF03   ERROR  FS,SFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI
,LL.3)
 E.SF04   ERROR  TS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION
, FILL.3) 
 E.SF05   ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL
,.3 DEFINITION) 
 E.SF06   ERROR  FV,*,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SIMP
,LE VARIABLE) 
 E.SF07   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I
,S OVERRIDDEN)
 E.SF08   ERROR  FS,FEC.RTN,(USAGE CONFLICT -- FILL.3 CANNOT BE STATEMEN
,T FUNCTION)
 E.SF09   ERROR  FS,*,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION F
,ILL.)
 E.SF10   ERROR  FS,*,(STATEMENT FUNCTION FILL. INDIRECTLY REFERENCES IT
,SELF)
 E.SF11   ERROR  AS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B
,E AN ARRAY)
 E.SF12   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 MUST BE 
,USED AS SIMPLE VARIABLE) 
 E.SF13   ERROR  A,*,(STATEMENT FUNCTION ACTUAL ARGUMENT MUST AGREE IN T
,YPE WITH DUMMY ARGUMENT) 
 E.SF14   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B
,E ASSUMED LENGTH)
 E.SF15   ERROR  FS,*,(STATEMENT FUNCTION FILL. OF TYPE FILL.3 CANNOT AC
,CEPT RESULT OF TYPE FILL.2)
 ST.LAB   EJECT 
**        STATEMENT LABEL PROCESSOR.
  
  
 E.SL00   ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)
 E.SL01   ERROR  FS,*,(PREVIOUS REFERENCE TO LABEL FILL. WAS ILLEGAL) 
 E.SL02   ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST
,ING) 
 E.SL03   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO
, TERMINAL) 
 E.SL04   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO
,RMAT)
 E.SL05   ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT) 
 E.SL06   ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F
,ORMAT) 
 E.SL07   ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL)
 E.SL08   ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE
,GAL) 
 E.SL09   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO 
,LOOP OR IF BLOCK)
 E.SL10   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT
, LABEL)
 E.SL11   ERROR  FS,*,(ILLEGAL REFERENCE TO LABEL FILL.2 DEFINED ON NON-
, EXECUTABLE STATEMENT) 
 E.SL12   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT
,EMENT LABEL) 
 E.SL13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM
,AT LABEL)
 E.SL14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)
 E.SL15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT) 
 E.SL16   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT LABEL)
 E.SL17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE
, DO DEFINITION)
 E.SL18   ERROR  F,PSL,(STATEMENT LABEL EXPECTED BUT NOT FOUND) 
 E.SL19   ERROR  F,*,(INVALID STATEMENT LABEL)
 E.SL20   ERROR  WS,*,(FILL.2 -- ALTERNATE RETURN TO INSIDE A CLOSED DO 
,LOOP OR IF BLOCK)
 SUBSTR   SPACE  4,10 
**        SUBSTRING EXPRESSION PROCESSING.
  
  
 E.ST     ERROR  FS,*,(SYNTAX ERROR IN SUBSTRING EXPRESSION FOR FILL.)
 E.ST1    ERROR  FS,*,(SUBSTRINGED VARIABLE FILL. NOT TYPE CHARACTER) 
 STOP     SPACE  4,10 
**        STOP / PAUSE / RETURN PROCESSING. 
  
  
 E.SPR1   ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)
 E.SPR2   ERROR  W,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED) 
 E.SPR4   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.)
 E.SPR5   ERROR  F,*,(ALTERNATE RETURN IS ILLEGAL IN A FUNCTION)
 SUBREF   SPACE  4,20 
**        SUBROUTINE/FUNCTION REFERENCE PROCESSING. 
  
  
 E.SU01   ERROR  F,*,(CONCATENATION OF ASSUMED LENGTH VARIABLE NOT ALLOW
,ED HERE) 
 E.SU02   ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT 
,CONSISTENT)
 E.SU03   ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI
,BRARY FUNCTION FILL.)
 E.SU04   ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)
 E.SU05   ERROR  FS,*,(ARGUMENT COUNT ON INTRINSIC FILL. IS WRONG)
 E.SU06   ERROR  FS,*,(FUNCTION NAME OR ENTRY OF TYPE FILL. WAS NOT ASSI
,GNED A VALUE)
 E.SU07   ERROR  FS,*,(ARGUMENT MODE ILLEGAL FOR GENERIC FUNCTION FILL.)
 E.SU08   ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")
 E.SU09   ERROR  FS,*,(ARGUMENT COUNT ON FILL. MUST BE MORE THAN ONE) 
 E.SU10   ERROR  FV,*,(EXPECTED EOS -- FOUND FILL.) 
 E.SU11   EQUENT E.SPR5      F,*,(ALTERNATE RETURN ILLEGAL IN FUNC.)
 TYPE     EJECT 
**        TYPE PROCESSOR. 
* 
*         EXPLICIT DECLARATIONS 
  
  
 E.TY     EQUENT E.GE1             FV,*,(EXPECTED COMMA FOUND FILL.)
 E.TY0    ERROR  WS,*,(SUBROUTINE FILL. CANNOT BE TYPED -- TYPING IGNORE
,D) 
 E.TY1    ERROR  TS,*,(CONFIRMING RETYPING OF FILL. -- IGNORED) 
 E.TY2    ERROR  WS,*,(INTRINSIC FILL. TYPED NON- CONFIRMING -- TYPING I
,GNORED)
 E.TY3    ERROR  F,*,(CHAR LENGTH NOT POSITIVE CONSTANT, ( POSITIVE CONS
,TANT EXPRESSION ) OR ( * ) ) 
 E.TY4    ERROR  F,*,(CHARACTER LENGTH GREATER THAN "MAX.CL") 
 E.TY5    ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.) 
 E.TY6    ERROR  F,*,(CHARACTER LENGTH ZERO ILLEGAL)
 E.TY7    ERROR  FS,*,(FILL. CANNOT HAVE ASSUMED CHARACTER LENGTH)
 E.TY8    ERROR  FS,*,(PARAMETER FILL. TYPE OR CHARACTER LENGTH CANNOT B
,E MODIFIED AFTER PARAMETER STATEMENT)
 E.TY9    ERROR  WS,*,(GENERIC ONLY INTRINSIC FILL. TYPED -- TYPING INGN
,ORED)
 E.TY10   ERROR  FS,*,(NON- CONFIRMING RETYPING OF FILL.) 
  
*         IMPLICIT DECLARATIONS 
  
 E.TYI    ERROR  F,FEC.RTN,(IMPLICIT MUST BE FOLLOWED BY A TYPE INDICATO
,R) 
 E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.) 
 E.TYI2   ERROR  FV,IMP.ER,(EXPECTED RANGE INDICATOR -- FOUND FILL.)
 E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T
,O FILL.3)
 E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR
,UNCATED) 
 E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.) 
 E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)
 E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.) 
 E.TYI8   ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)
 E.TYI9   ERROR  F,*,(ASSUMED CHARACTER LENGTH ILLEGAL FOR IMPLICIT)
 VARIABLE EJECT 
**        TRANSLATION OF VARIABLE SECTION.
  
  
 E.VA00   EQUENT E.GE5             (USEAGE CONFLICT ...)
 E.VA01   ERROR  FS,*,(ILLEGAL USE OF ENTRY FILL.)
 E.VA02   ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F
,ILL.3) 
 E.VA03   ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA
,Y) 
 E.VA04   ERROR  FS,*,(REFERENCE TO EXTERNAL FILL. REQUIRES AN ARGUMENT 
,LIST)
 E.VA05   ERROR  FS,*,(UNDECLARED INTRINSIC OR EXTERNAL FUNCTION FILL. _
,USED AS ACTUAL ARGUMENT) 
 E.VA06   ERROR  FS,*,(INTRINSIC FUNCTION FILL. NOT ALLOWED AS ACTUAL __
,ARGUMENT)
 E.VA07   ERROR  WS,*,(SUBROUTINE FILL. REFERENCE AS FUNCTION)
 E.VA08   ERROR  FS,*,(ARRAY FILL. MISSING SUBSCRIPT) 
 E.VA09   ERROR  FV,PSL,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SCAN S
,TOPPED)
 E.VA10   ERROR  FS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.) 
 E.VA11   ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL) 
 E.VA12   ERROR  FS,*,(DUMMY-ARG FUNCTION FILL. CANNOT HAVE ASSUMED CHAR
,ACTER LENGTH)
 E.VA13   ERROR  FS,FEC.RTN,(ILLEGAL USE OF NAMELIST GROUP NAME FILL.)
 EXP      SPACE  4,10 
**        EXPONENTIATION PROCESSOR. 
  
  
 E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL) 
 E.XP3    ERROR  T,*,(ZERO ** ZERO -- RESULTS INDEFINITE) 
 E.XP4    ERROR  T,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO) 
 E.XP5    ERROR  T,*,(CONSTANT ** CONSTANT CANNOT BE EVALUATED) 
 E.XP6    ERROR  F,*,(OPERAND OF ** OPERATOR MUST NOT BE TYPE CHARACTER)
 E.XP7    ERROR  T,*,(VARIABLE ** ZERO -- RESULT ASSUMED ONE) 
 FTN5     SPACE  4,10 
**        TEMPORARY ERROR MESSAGES. 
  
  
 .T       IFEQ   TEST,ON
 E.ZEMT   ERROR  F,*,(FOLLOWING TURPLE ILL SKEL)
 .T       ENDIF 
  
  
*** END 
          TITLE  FRONT END ERROR PROCESSING ROUTINES
 OSE      SPACE  4,20 
**        OSE -  OUTPUT SUBSCRIPT ERROR.
* 
*         NOTE   ALL ERRORS USING THIS ROUTINE MUST USE --
*                            FILL.  AS ARRAY NAME.
*                            FILL.2 AS SUBSCRIPT NUMBER.
*                ALL ERRORS MUST HAVE EXIT ADDRESS AS = * 
* 
*                THIS ROUTINE IS TO BE CONSIDERED AS PART OF *PDM*
* 
*         ENTRY  (B7) = ADDRESS OF ERROR. 
*                (X1) = ARRAY NAME, *ARGMIS/AS.* FORMAT 
*                (X4) = 42/IGNORED , 18/SUBSCRIPT NUMBER
* 
*         EXIT   ERROR OUTPUTTED. 
* 
*         USES   X - 1,6,7.    A - 1,6,7.    B - 7. 
  
  
 OSE      SUBR   =           ENTRY/EXIT...
          SA1    SCR+AS.W    ARRAY NAME, *ARGMIS* (-L-) FORMAT
          SX7    B7 
          BX6    X1 
          SA6    FILL.
          SA1    OSEX 
          SB7    OSEA        SET EXIT ADDRESS FOR CURRENT ENTRY TO PWE
          BX6    X1 
          =A7    B7+1        SAVE ERROR 
          SA6    PDM         SET RETURN ADDRESS 
          LX4    -AC.CNTP 
          SX6    X4 
          ERRNZ  AC.CNTL-18 
          LX4    AC.CNTP
          =A6    A7+1        SAVE SUBSCRIPT NUMBER
          EQ     PDM+1       ENTER REGISTER SAVE ROUTINE
  
*         RETURN AFTER SAVING REGISTERS 
  
 OSE2     EQ     "BLOWUP"    **NOTICE** - PDM JUMPS TO NEXT WORD
          SA1    OSEB+1      SUBSCRIPT NUMBER 
          SB7    10*CHAR
          MX0    -3 
          BX2    0
          SB2    1R0
  
**        CONVERT SUBSCRIPT NUMBER TO *DPC*.
*         (X0) = MASK OF 3. 
*         (X1) = SUBSCRIPT NUMBER IN LOWER 18 BITS. 
  
 OSE5     BX6    -X0*X1      EXTRACT DIGIT
          SB7    B7-CHAR
          SX6    X6+B2       CONVERT TO *DPC* 
          AX1    3           DOWN ONE DIGIT 
          BX2    X2+X6       ACCUMULATE 
          NZ     X1,OSE5     IF NOT FINISHED. 
          LX6    X2,B7       LEFT JUSTIFY 
          SA1    OSEB 
          SA6    FILL.2      NUMBER TO ERROR
  
**        OUTPUT SELECTED ERROR.
  
          SB7    X1 
          EQ     PEMS+1      OUTPUT DIAGNOSTIC (SKIPPING SVR= CALL) 
  
 OSEA     CON    OSE2+4S15   EXIT ADDR FOR REGISTER SAVE
 OSEB     DATA   0,0         ERROR ADDRESS
  
          LIST   D
          END 
