*COMDECK ALERRMSG 
      SUBROUTINE ERRMSG(MODULE,NUM) 
*CALL ALCOMMON
      DIMENSION MSGS(4,63),PTRS(80) 
C 
C 
      DATA MAXERR/63/ 
      DATA PTRS, UPARROW / 80*1R  , 1R' / 
C 
C 
      DATA (MSGS(1,I),I=1,17) / 
     1    40HINVALID INPUT DIRECTIVE                 ,
     2    40HNON-MOD DIRECTIVE FOLLOWS MOD DIRECTIVE ,
     3    40HINVALID DIRECTIVE SUB-PARAMETER         ,
     4    40HMORE THAN 60 APPLICATIONS DEFINED       ,
     5    40HINVALID (C/NC/ADDRESS) ATTRIBUTE.       ,
     6    40HINVALID DIRECTIVE TERMINATOR            ,
     7    40HINVALID NUMERIC DIGIT                   ,
     8    40HMORE THAN 64 BUFSPSIZE PARAMETERS       ,
     9    40HMULTIPLE CORESIZE DIRECTIVES ENTERED    ,
     X    40HCORESIZE GREATER THAN 128               ,
     1    40HMORE THAN 60 DEF PARAMETERS             ,
     2    40HLAST COMMENT NOT PROPERLY TERMINATED    ,
     3    40HPAGEREG GREATER THAN 31                 ,
     4    40HPAGE SIZE GREATER THAN 64               ,
     5    40HMORE THAN 32 PAGE SIZES                 ,
     6    40HINVALID RESERVE ADDRESS                 ,
     7    40HINVALID REPORT TYPE REQUEST             /
      DATA (MSGS(1,I),I=18,34) /
     8    40HINVALID MOD NAME                        ,
     9    40HINCOMPLETE MOD DIRECTIVE                ,
     X    40HINVALID MOD SUB-PARAMETER               ,
     1    40HINVALID P PARAMETER                     ,
     2    40HP=NP, BUT PAGE=N SPECIFIED              ,
     3    40HINVALID MOD TERMINATOR                  ,
     4    40HINVALID OVERLAY NAME                    ,
     5    40HINVALID NUMERIC DIGIT                   ,
     6    40HINVALID ADDRESS SPECIFICATION           ,
     7    40HINVALID TOPHAT NAME                     ,
     8    40HUNDEFINED APPLICATION NAME              ,
     9    40HEOF ENCOUNTERED, CONTINUATION EXPECTED  ,
     X    40HNO APPLICATIONS GIVEN FOR THESE MODS:   ,
     1    40HNO MODS DEFINED FOR THESE APPLICATIONS: ,
     2    40HOVERLAPPING RESERVED/ABSOLUTE ADDR AREAS,
     3    40H(NC) APPL FORCED TO PAGE WITH OTHER APPL,
     4    40HINSUFFICIENT RESERVED PAGES AVAILABLE   /
      DATA (MSGS(1,I),I=35,51) /
     5    40HPAGE OVERFLOW REQUIRED BY USER          ,
     6    40HNO MOD= FOR THESE DELETED TOPHATS:      ,
     7    40HMAIN MEMORY OVERFLOW                    ,
     8    40HINVALID OR MISSING INPUT DIRECTIVES FILE,
     9    40HINVALID OR MISSING LGO FILE             ,
     X    40HINVALID SECONDARY BINARY FILE           ,
     1    40HINVALID OUTPUT DIRECTIVES FILE          ,
     2    40HINVALID LIST FILE                       ,
     3    40HNO MOD DIRECTIVE FOR THESE OBJECT PGMS: ,
     4    40HREPORTS REQUESTED BUT NO LIST FILE GIVEN,
     5    40HNO OBJECT TEXT FOR THESE REQUIRED MODS: ,
     6    40HMOD ASSIGNED TO OUT-OF-RANGE ADDRESS    ,
     7    40HAPPLICATION FORCED TO DIFFERENT PAGES   ,
     8    40HMULTIPLE OVERLAY AREA ADDRESSES GIVEN   ,
     9    40HMAXIMUM NUMBER OF OVERLAYS EXCEEDED     ,
     X    40HINSUFFICIENT OVERLAY AREA SIZE SPECIFIED,
     1    40HMORE THAN 20 VARIABLE APPLICATIONS      /
      DATA (MSGS(1,I),I=52,53) /
     2    40HNO OBJECT TEXT FOR THESE MOD DIRECTIVES:,
     3    40HMODULES OVERLAP WHEN ADDRESSED          /
      DATA (MSGS(1,I),I=54,57)/ 
     4     40HMORE THAN 60 REPORT APPLICATIONS        , 
     5     40HMORE THAN 14 REPORT NAMES               , 
     6     40HDEFRPT = INVALID APPL NAME              , 
     7     40HDEF = INVALID APPL NAME                 / 
      DATA (MSGS(1,I),I=58,63)/ 
     8     40HMULTIPLE SAM AREA ADDRESSES SPECIFIED   , 
     9     40HINVALID SAM AREA ADDRESS                , 
     X     40HSAM ON MOD CARD BUT AREA NOT SPECIFIED  , 
     1     40HINVALID MODULO ADDRESS                  , 
     2     40HAPPLICATION ALREADY SPECIFIED           , 
     3     40HNOT ENOUGH MEMORY FOR INITIALIZATION    / 
C 
C 
C 
C        PRINT AN ERROR IF THIS IS AN ILLEGAL MESSAGE NUMBER. 
C 
      IF (NUM.LT.1 .OR. NUM.GT.MAXERR) GO TO 900
      IF (.NOT.RPTGEN) GO TO 2
      IF(MEMOVER) RETURN
   2  CONTINUE
C 
C        BRANCH IF THE CARD IMAGE IS NOT TO BE PRINTED. 
C 
      WRITE (ERRFIL,1)
    1 FORMAT (//) 
      IF (.NOT.DIRREAD) GO TO 5 
C 
C        OTHERWISE, PRINT THE CARD IMAGE AND FLAG THE CURRENT 
C        SCAN POINTER.
C 
      WRITE (ERRFIL,100)  CARD
      PTRS(CARDPTR) = UPARROW 
      WRITE (ERRFIL,100) PTRS 
      PTRS(CARDPTR) = BLANK 
C 
C        PRINT THE ERROR MESSAGE. 
C 
    5 IF (WARNING) GO TO 15 
      WRITE (ERRFIL,105) (MSGS(I,NUM),I=1,4)
   10 IF (.NOT.WARNING) ERROR = .TRUE.
      WARNING = .FALSE. 
      RETURN
   15 WRITE (ERRFIL,110) (MSGS(I,NUM),I=1,4)
      GO TO 10
C 
C 
C 
  100 FORMAT (1X,90R1)
  105 FORMAT (1X,17H***** ERROR *****,3X,4A10)
  110 FORMAT (1X,19H***** WARNING *****,3X,4A10)
C 
C 
C 
C 
  900 WRITE (ERRFIL,905) NUM,MODULE 
  905 FORMAT (1X,*ILLEGAL ERROR NUMBER*,I4,* FROM MODULE*,I4) 
      GO TO 10
      END 
C 
C 
