PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   1


ISIS-II PL/M-86 V2.0 COMPILATION OF MODULE ERRORM
OBJECT MODULE PLACED IN ERMOD.OBJ
COMPILER INVOKED BY:  :F0: ERMOD.PLM DEBUG OPTIMIZE(2) DATE(10/5/81) PAGEWIDTH(100) XREF



              $title ('ERROR MESSAGE MODULE')
   1          errorm:
              do;

              /*

                modified  3/28/81  R. Silberstein
                modified  3/30/81  R. Silberstein
                modified  4/7/81   R. Silberstein
                modified  4/24/81  R. Silberstein

              */

              /*
                      This is the module to perform error message
                      printout to the print file. The interface from
                      other modules goes through the subroutine

                              ERRMSG ( errornumber )

                      This routine also increments the global variable
                      "ERRORS" which contains the accumulated number
                      of errors throughout the assembly.
              */

              $include (:f1:macro.lit)
          =   $nolist
              $include (:f1:struc.lit)
          =   $nolist
              $include (:f1:ermod.lit)
          =   $nolist
              $include (:f1:subr1.ext)
          =   $nolist
              $include (:f1:subr2.ext)
          =   $nolist
              $include (:f1:print.ext)
          =   $nolist
              $include (:f1:global.ext)
          =   $nolist


              /*       Error messages :       */

  69   1      dcl
              nulltext(1) byte data (0),       /* dummy text */
              tex00(*)    byte data ('ILLEGAL FIRST ITEM',0),
              tex01(*)    byte data ('MISSING PSEUDO INSTRUCTION',0),
              tex02(*)    byte data ('ILLEGAL PSEUDO INSTRUCTION',0),
              tex03(*)    byte data ('DOUBLE DEFINED VARIABLE',0),
              tex04(*)    byte data ('DOUBLE DEFINED LABEL',0),
              tex05(*)    byte data ('UNDEFINED INSTRUCTION',0),
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   2


              tex06(*)    byte data ('GARBAGE AT END OF LINE - IGNORED',0),
              tex07(*)    byte data ('OPERAND(S) MISMATCH INSTRUCTION',0),
              tex08(*)    byte data ('ILLEGAL INSTRUCTION OPERANDS',0),
              tex09(*)     byte data ('MISSING INSTRUCTION',0),
              tex10(*)    byte data ('UNDEFINED ELEMENT OF EXPRESSION',0),
              tex11(*)    byte data ('ILLEGAL PSEUDO OPERAND',0),
              tex12(*)    byte data ('NESTED "IF" ILLEGAL - "IF" IGNORED',0),
              tex13(*)    byte data ('ILLEGAL "IF" OPERAND - "IF" IGNORED',0),
              tex14(*)    byte data ('NO MATCHING "IF" FOR "ENDIF"',0),
              tex15(*)    byte data ('SYMBOL ILLEGALLY FORWARD REFERENCED - ',
                                     'NEGLECTED',0),
              tex16(*)    byte data ('DOUBLE DEFINED SYMBOL - ',
                                     'TREATED AS UNDEFINED',0),
              tex17(*)    byte data ('INSTRUCTION NOT IN CODE SEGMENT',0),
              tex18(*)    byte data ('FILE NAME SYNTAX ERROR',0),
              tex19(*)    byte data ('NESTED INCLUDE NOT ALLOWED',0),
              tex20(*)    byte data ('ILLEGAL EXPRESSION ELEMENT',0),
              tex21(*)    byte data ('MISSING TYPE INFORMATION IN OPERAND(S)',0),
              tex22(*)    byte data ('LABEL OUT OF RANGE',0),
              tex23(*)    byte data ('MISSING SEGMENT INFORMATION IN OPERAND',0),
              tex24(*)    byte data ('ERROR IN CODEMACROBUILDING',0),

              /*       Error-message pointer table:       */

              texttab(*) address data (.tex00,.tex01,.tex02,.tex03,.tex04,
                                       .tex05,.tex06,.tex07,.tex08,
                                       .tex09,.tex10,.tex11,.tex12,.tex13,
                                       .tex14,.tex15,.tex16,.tex17,.tex18,
                                       .tex19,.tex20,.tex21,.tex22,.tex23,
                                       .tex24,.nulltext);

              /*       Additional text strings:       */

  70   1      dcl
              errnotext(*)   byte data ('** ERROR NO:',0),
              neartext(*)    byte data (' **  NEAR: "',0),
              spacetext(*)   byte data ('   ',0);

              /*       Table of defined error numbers:      */

  71   1      dcl
              errtab (*) byte data (firstitem,missingpseudo,
                                    illegalpseudo,doubledefvar,doubledeflab,
                                    illegalmacro,end$of$line$err,opmismatch,
                                    illioper,missinstr,udefsymbol,
                                    pseudooperr,nestediferr,ifparerr,
                                    missiferr,neglecterr,doubledefsymb,
                                    instrerr,filesynterr,
                                    nestedincludeerr,illexprelem,misstypeinfo,
                                    laboutofrange,misssegminfo,codemacroerr);

              /*          Subroutines:        */

  72   1      printtext: proc(txt);
  73   2        dcl txt address,ch based txt (1) byte,i byte;
  74   2        i=0ffh;
  75   2        do while ch(i:=i+1) <> 0;
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   3


  76   3          call printsinglebyte(ch(i));
  77   3        end$while;
  78   2      end printtext;

  79   1      locerrmsg: proc(erno);
  80   2        dcl t address,help(5) byte,(helpstop,erno,i) byte;

  81   2        errortype: proc byte;
  82   3          i=0ffh;
  83   3          do while (i:=i+1) < length(errtab);
  84   4            if erno = errtab(i) then return i;
                  end$while;
  87   3          return length(errtab);
  88   3        end errortype;

  89   2        helpstop,accum(acclen)=0;
  90   2        call decout(erno,.help(0));

  91   2        t=texttab(errortype);    /* pick up correct error text */

  92   2        call printtext(.errnotext); /* print error message line */
  93   2        call printtext(.help(2));
  94   2        if accum(0) <> cr then$do
  96   3          call printtext(.neartext);
  97   3          call printtext(.accum(0));  /* (print current token) */
  98   3          CALL PRINTSINGLEBYTE ('"');
  99   3        end$if;
 100   2        call printtext(.spacetext);
 101   2        call printtext(t);
 102   2        call printcrlf;
 103   2      end locerrmsg;

              /*      Public routine:      */

 104   1      errmsg: proc(erno) public;
 105   2        dcl erno byte;
 106   2        if print$on OR PRINTSWITCHOFF then$do
 108   3          if not errorprinted then$do
 110   4            errorprinted=true;
 111   4            call locerrmsg(erno);
 112   4            errors=errors+1;
 113   4          end$if;
                end$if;
 115   2      end errmsg;

 116   1      end$module errorm;
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   4


CROSS-REFERENCE LISTING
-----------------------


   DEFN  ADDR   SIZE  NAME, ATTRIBUTES, AND REFERENCES
  ----- ------ -----  --------------------------------


     66  0000H     4  ABSADDR. . . . . .    BYTE ARRAY(4) EXTERNAL(54)
     66  0000H     1  ACCLEN . . . . . .    BYTE EXTERNAL(58)          89 
     66  0000H     1  ACCLENSAVE . . . .    BYTE EXTERNAL(61)
     66  0000H    80  ACCUM. . . . . . .    BYTE ARRAY(80) EXTERNAL(59)          89   94   97
     66  0000H    80  ACCUMSAVE. . . . .    BYTE ARRAY(80) EXTERNAL(60)
      2               ADDR . . . . . . .    LITERALLY         6    9   12   15   21   39   42
                                              45   48   66 
     29  0000H        ALPHANUMERIC . . .    PROCEDURE BYTE EXTERNAL(8) STACK=0000H
     32  0000H        ASCIICHAR. . . . .    PROCEDURE BYTE EXTERNAL(9) STACK=0000H
     66  0008H     1  BASEINDEX. . . . .    BYTE MEMBER(OPERANDS)
     66  0008H     1  BASEINDEX. . . . .    BYTE MEMBER(CURRENTSYMBOL)
      3               BASEREGBIT . . . .    LITERALLY
      3               BASEREGCOUNT . . .    LITERALLY
      3               BREGBIT. . . . . .    LITERALLY
      3               BREGCOUNT. . . . .    LITERALLY
     23  0000H     1  CH . . . . . . . .    BYTE PARAMETER        24 
     32  0000H     1  CH . . . . . . . .    BYTE PARAMETER        33 
     26  0000H     1  CH . . . . . . . .    BYTE PARAMETER        27 
     35  0000H     1  CH . . . . . . . .    BYTE PARAMETER        36 
     20  0000H     1  CH . . . . . . . .    BYTE PARAMETER        21 
     73  0000H     1  CH . . . . . . . .    BYTE BASED(TXT) ARRAY(1)        75   76 
     50  0000H     1  CH . . . . . . . .    BYTE PARAMETER        51 
     29  0000H     1  CH . . . . . . . .    BYTE PARAMETER        30 
     66  0000H     2  CIP. . . . . . . .    WORD EXTERNAL(23)
      4               CODEMACROERR . . .    LITERALLY        71 
     66  0000H     1  CODEMACROFLAG. . .    BYTE EXTERNAL(80)
      3               CODEMACROHEAD. . .    LITERALLY
     66  0000H     2  CODEMACROPTR . . .    WORD EXTERNAL(75)
     11  0000H        COPY . . . . . . .    PROCEDURE EXTERNAL(2) STACK=0000H
      2               CR . . . . . . . .    LITERALLY        94 
     66  0000H     2  CSCIP. . . . . . .    WORD EXTERNAL(28)
     66  0000H     1  CSEGSPEC . . . . .    BYTE EXTERNAL(26)
     66  0000H     1  CSEGTYPE . . . . .    BYTE EXTERNAL(24)
     66  0000H     2  CSEGVALUE. . . . .    WORD EXTERNAL(25)
     66  0000H     1  CSPEC. . . . . . .    BYTE EXTERNAL(35)
     66  0000H     2  CURCSEG. . . . . .    WORD EXTERNAL(31)
     66  0000H     2  CURDSEG. . . . . .    WORD EXTERNAL(32)
     66  0000H     2  CURESEG. . . . . .    WORD EXTERNAL(34)
     66  0000H     9  CURRENTSYMBOL. . .    STRUCTURE EXTERNAL(71)
     66  0000H     2  CURSSEG. . . . . .    WORD EXTERNAL(33)
     47  0000H     2  D. . . . . . . . .    WORD PARAMETER        48 
     38  0000H     2  D. . . . . . . . .    WORD PARAMETER        39 
     41  0000H     2  D. . . . . . . . .    WORD PARAMETER        42 
     11  0000H     2  D. . . . . . . . .    WORD PARAMETER        12 
     44  0000H     2  D. . . . . . . . .    WORD PARAMETER        45 
      2               DCL. . . . . . . .    LITERALLY
     47  0000H        DECOUT . . . . . .    PROCEDURE EXTERNAL(14) STACK=0000H        90 
     66  0000H     1  DEFAULTDRIVE . . .    BYTE EXTERNAL(78)
     66  0001H     1  DESCR. . . . . . .    BYTE MEMBER(TOKEN)
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   5


     23  0000H        DIGIT. . . . . . .    PROCEDURE BYTE EXTERNAL(6) STACK=0000H
      4               DOUBLEDEFLAB . . .    LITERALLY        71 
      4               DOUBLEDEFSYMB. . .    LITERALLY        71 
      4               DOUBLEDEFVAR . . .    LITERALLY        71 
     66  0000H     2  DSCIP. . . . . . .    WORD EXTERNAL(30)
     66  0000H     1  DSPEC. . . . . . .    BYTE EXTERNAL(36)
     64  0000H        EJECT. . . . . . .    PROCEDURE EXTERNAL(21) STACK=0000H
      2               ELSEDO . . . . . .    LITERALLY
      2               ENDCASE. . . . . .    LITERALLY
      2               ENDDO. . . . . . .    LITERALLY
      2               ENDFOREVER . . . .    LITERALLY
      2               ENDIF. . . . . . .    LITERALLY       113 
      2               ENDMODULE. . . . .    LITERALLY
      2               ENDOFFILE. . . . .    LITERALLY
      4               ENDOFLINEERR . . .    LITERALLY        71 
      2               ENDPROC. . . . . .    LITERALLY
      2               ENDWHILE . . . . .    LITERALLY        85 
     66  0000H     1  EOFSET . . . . . .    BYTE EXTERNAL(62)
     38  0000H        EQUAL. . . . . . .    PROCEDURE BYTE EXTERNAL(11) STACK=0000H
     79  0000H     1  ERNO . . . . . . .    BYTE PARAMETER        80   84   90 
    104  0004H     1  ERNO . . . . . . .    BYTE PARAMETER AUTOMATIC       105  111 
    104  00C1H    42  ERRMSG . . . . . .    PROCEDURE PUBLIC STACK=0012H
     70  0314H    13  ERRNOTEXT. . . . .    BYTE ARRAY(13) DATA        92 
      1  0000H        ERRORM . . . . . .    PROCEDURE STACK=0000H
     66  0000H     1  ERRORPRINTED . . .    BYTE EXTERNAL(65)         108  110 
     66  0000H     2  ERRORS . . . . . .    WORD EXTERNAL(55)         112 
     81  0099H    40  ERRORTYPE. . . . .    PROCEDURE BYTE STACK=0002H           91 
     71  0332H    25  ERRTAB . . . . . .    BYTE ARRAY(25) DATA        83   84   87 
     66  0000H     2  ESCIP. . . . . . .    WORD EXTERNAL(27)
     66  0000H     1  ESPEC. . . . . . .    BYTE EXTERNAL(38)
      2               FALSE. . . . . . .    LITERALLY
     17  0000H     2  FCBADR . . . . . .    WORD PARAMETER        18 
     17  0000H        FILEABORT. . . . .    PROCEDURE EXTERNAL(4) STACK=0000H
      3               FILEISTRUCTURE . .    LITERALLY
      3               FILEOSTRUCTURE . .    LITERALLY
      4               FILESYNTERR. . . .    LITERALLY        71 
     20  0000H        FILL . . . . . . .    PROCEDURE EXTERNAL(5) STACK=0000H
      4               FIRSTITEM. . . . .    LITERALLY        71 
     66  0000H     2  FIRSTMACROPTR. . .    WORD EXTERNAL(66)
      2               FOREVER. . . . . .    LITERALLY
      2               FORMFEED . . . . .    LITERALLY
     66  0000H     1  FULLSYMBTAB. . . .    BYTE EXTERNAL(68)
     67  0000H        GLOBALINIT . . . .    PROCEDURE EXTERNAL(81) STACK=0000H
     66  0000H     5  HELP . . . . . . .    BYTE ARRAY(5) EXTERNAL(76)
     80  0005H     5  HELP . . . . . . .    BYTE ARRAY(5)         90   93 
     80  000AH     1  HELPSTOP . . . . .    BYTE        89 
     41  0000H        HEX1OUT. . . . . .    PROCEDURE EXTERNAL(12) STACK=0000H
     44  0000H        HEX2OUT. . . . . .    PROCEDURE EXTERNAL(13) STACK=0000H
     66  0000H     1  I. . . . . . . . .    BYTE EXTERNAL(77)
     80  000BH     1  I. . . . . . . . .    BYTE        82   83   84   85 
     73  0004H     1  I. . . . . . . . .    BYTE        74   75   76 
     66  0000H     1  IFLEVEL. . . . . .    BYTE EXTERNAL(70)
     66  0000H     1  IFLIST . . . . . .    BYTE EXTERNAL(41)
      4               IFPARERR . . . . .    LITERALLY        71 
      4               ILLEGALMACRO . . .    LITERALLY        71 
      4               ILLEGALPSEUDO. . .    LITERALLY        71 
      4               ILLEXPRELEM. . . .    LITERALLY        71 
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   6


      4               ILLIOPER . . . . .    LITERALLY        71 
     66  0000H     1  INCLUDEDEFAULT . .    BYTE EXTERNAL(79)
     66  0000H     1  INCLUDEON. . . . .    BYTE EXTERNAL(69)
      3               INDEXREGBIT. . . .    LITERALLY
      3               INDEXREGCOUNT. . .    LITERALLY
      2               INIT . . . . . . .    LITERALLY
      4               INSTRERR . . . . .    LITERALLY        71 
     66  0000H     1  INTELHEXON . . . .    BYTE EXTERNAL(63)
      3               IREGBIT. . . . . .    LITERALLY
      3               IREGCOUNT. . . . .    LITERALLY
      4               LABOUTOFRANGE. . .    LITERALLY        71 
     66  0000H     2  LENGTH . . . . . .    WORD MEMBER(OPERANDS)
     66  0000H     2  LENGTH . . . . . .    WORD MEMBER(CURRENTSYMBOL)
                      LENGTH . . . . . .    BUILTIN          83   87 
     26  0000H        LETTER . . . . . .    PROCEDURE BYTE EXTERNAL(7) STACK=0000H
      2               LF . . . . . . . .    LITERALLY
      2               LIT. . . . . . . .    LITERALLY         2    3    4 
     79  0027H   114  LOCERRMSG. . . . .    PROCEDURE STACK=000CH          111 
     66  0000H     2  MACROPTR . . . . .    WORD EXTERNAL(67)
     66  0000H     1  MAXCOL . . . . . .    BYTE EXTERNAL(42)
      4               MISSIFERR. . . . .    LITERALLY        71 
      4               MISSINGPSEUDO. . .    LITERALLY        71 
      4               MISSINSTR. . . . .    LITERALLY        71 
      4               MISSSEGMINFO . . .    LITERALLY        71 
      4               MISSTYPEINFO . . .    LITERALLY        71 
     47  0000H     2  N. . . . . . . . .    WORD PARAMETER        48 
     44  0000H     2  N. . . . . . . . .    WORD PARAMETER        45 
     41  0000H     1  N. . . . . . . . .    BYTE PARAMETER        42 
     38  0000H     1  N. . . . . . . . .    BYTE PARAMETER        39 
     20  0000H     1  N. . . . . . . . .    BYTE PARAMETER        21 
     11  0000H     1  N. . . . . . . . .    BYTE PARAMETER        12 
      8  0000H     2  N. . . . . . . . .    WORD PARAMETER         9 
     70  0321H    13  NEARTEXT . . . . .    BYTE ARRAY(13) DATA        96 
      4               NEGLECTERR . . . .    LITERALLY        71 
      4               NESTEDIFERR. . . .    LITERALLY        71 
      4               NESTEDINCLUDEERR .    LITERALLY        71 
     66  0000H     1  NEXTCH . . . . . .    BYTE EXTERNAL(57)
     66  0000H     1  NOERROR. . . . . .    BYTE EXTERNAL(64)
     66  0000H     1  NOOPER . . . . . .    BYTE EXTERNAL(73)
      3               NOOVERCOUNT. . . .    LITERALLY
      3               NOOVERRIDEBIT. . .    LITERALLY
     69  0034H     1  NULLTEXT . . . . .    BYTE ARRAY(1) DATA         69 
     66  0006H     2  OFFSET . . . . . .    WORD MEMBER(OPERANDS)
     66  0006H     2  OFFSET . . . . . .    WORD MEMBER(CURRENTSYMBOL)
     66  0000H    36  OPERANDS . . . . .    STRUCTURE ARRAY(4) EXTERNAL(74)
      3               OPERANDSTRUC . . .    LITERALLY        66 
      4               OPMISMATCH . . . .    LITERALLY        71 
     14  0000H        OUTTEXT. . . . . .    PROCEDURE EXTERNAL(3) STACK=0000H
     66  0000H     1  PAGESIZE . . . . .    BYTE EXTERNAL(48)
     66  0000H     1  PASS . . . . . . .    BYTE EXTERNAL(22)
     66  0000H   240  PREFIX . . . . . .    BYTE ARRAY(240) EXTERNAL(52)
     66  0000H     1  PREFIXPTR. . . . .    BYTE EXTERNAL(53)
     53  0000H        PRINTCRLF. . . . .    PROCEDURE EXTERNAL(16) STACK=0000H       102 
     66  0000H     1  PRINTDEVICE. . . .    BYTE EXTERNAL(45)
     59  0000H        PRINTINIT. . . . .    PROCEDURE EXTERNAL(19) STACK=0000H
     55  0000H        PRINTNEWPAGE . . .    PROCEDURE EXTERNAL(17) STACK=0000H
     66  0000H     1  PRINTON. . . . . .    BYTE EXTERNAL(39)         106 
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   7


     50  0000H        PRINTSINGLEBYTE. .    PROCEDURE EXTERNAL(15) STACK=0000H        76   98
     57  0000H        PRINTSOURCELINE. .    PROCEDURE EXTERNAL(18) STACK=0000H
     66  0000H     1  PRINTSWITCHOFF . .    BYTE EXTERNAL(40)         106 
     61  0000H        PRINTTERMINATE . .    PROCEDURE EXTERNAL(20) STACK=0000H
     72  0000H    39  PRINTTEXT. . . . .    PROCEDURE STACK=0008H           92   93   96   97
                                             100  101 
      2               PROC . . . . . . .    LITERALLY         5    8   29   32   41   44   47
                                              50   53   55   57   59   61   64   72   79   81
                                             104 
      4               PSEUDOOPERR. . . .    LITERALLY        71 
     20  0000H     2  PT . . . . . . . .    WORD PARAMETER        21 
      2               REENT. . . . . . .    LITERALLY
     38  0000H     2  S. . . . . . . . .    WORD PARAMETER        39 
     11  0000H     2  S. . . . . . . . .    WORD PARAMETER        12 
     66  0000H    12  SAVESOURCE . . . .    BYTE ARRAY(12) EXTERNAL(44)
      3               SEGMBIT. . . . . .    LITERALLY
      3               SEGMCOUNT. . . . .    LITERALLY
     66  0004H     2  SEGMENT. . . . . .    WORD MEMBER(OPERANDS)
     66  0004H     2  SEGMENT. . . . . .    WORD MEMBER(CURRENTSYMBOL)
      3               SEGTYPEBIT . . . .    LITERALLY
      3               SEGTYPECOUNT . . .    LITERALLY
     66  0003H     1  SFLAG. . . . . . .    BYTE MEMBER(OPERANDS)
     66  0003H     1  SFLAG. . . . . . .    BYTE MEMBER(CURRENTSYMBOL)
     66  0000H     1  SIMFORM. . . . . .    BYTE EXTERNAL(49)
     66  0000H    80  SOURCEBUF. . . . .    BYTE ARRAY(80) EXTERNAL(50)
     66  0000H    12  SOURCENAME . . . .    BYTE ARRAY(12) EXTERNAL(43)
     66  0000H     1  SOURCEPTR. . . . .    BYTE EXTERNAL(51)
      2               SPACE. . . . . . .    LITERALLY
     70  032EH     4  SPACETEXT. . . . .    BYTE ARRAY(4) DATA        100 
     66  0000H     2  SSCIP. . . . . . .    WORD EXTERNAL(29)
     66  0000H     1  SSPEC. . . . . . .    BYTE EXTERNAL(37)
      2               STRUC. . . . . . .    LITERALLY        66 
     66  0002H     1  STYPE. . . . . . .    BYTE MEMBER(OPERANDS)
     66  0002H     1  STYPE. . . . . . .    BYTE MEMBER(CURRENTSYMBOL)
     66  0000H     1  SYMBOLDEVICE . . .    BYTE EXTERNAL(46)
      3               SYMBOLHEAD . . . .    LITERALLY
      3               SYMBOLSTRUC. . . .    LITERALLY        66 
     66  0000H     2  SYMBTABADR . . . .    WORD EXTERNAL(72)
     80  0002H     2  T. . . . . . . . .    WORD        91  101 
     14  0000H     2  T. . . . . . . . .    WORD PARAMETER        15 
      2               TAB. . . . . . . .    LITERALLY
     69  0035H    19  TEX00. . . . . . .    BYTE ARRAY(19) DATA        69 
     69  0048H    27  TEX01. . . . . . .    BYTE ARRAY(27) DATA        69 
     69  0063H    27  TEX02. . . . . . .    BYTE ARRAY(27) DATA        69 
     69  007EH    24  TEX03. . . . . . .    BYTE ARRAY(24) DATA        69 
     69  0096H    21  TEX04. . . . . . .    BYTE ARRAY(21) DATA        69 
     69  00ABH    22  TEX05. . . . . . .    BYTE ARRAY(22) DATA        69 
     69  00C1H    33  TEX06. . . . . . .    BYTE ARRAY(33) DATA        69 
     69  00E2H    32  TEX07. . . . . . .    BYTE ARRAY(32) DATA        69 
     69  0102H    29  TEX08. . . . . . .    BYTE ARRAY(29) DATA        69 
     69  011FH    20  TEX09. . . . . . .    BYTE ARRAY(20) DATA        69 
     69  0133H    32  TEX10. . . . . . .    BYTE ARRAY(32) DATA        69 
     69  0153H    23  TEX11. . . . . . .    BYTE ARRAY(23) DATA        69 
     69  016AH    35  TEX12. . . . . . .    BYTE ARRAY(35) DATA        69 
     69  018DH    36  TEX13. . . . . . .    BYTE ARRAY(36) DATA        69 
     69  01B1H    29  TEX14. . . . . . .    BYTE ARRAY(29) DATA        69 
     69  01CEH    48  TEX15. . . . . . .    BYTE ARRAY(48) DATA        69 
PL/M-86 COMPILER    ERROR MESSAGE MODULE                                         10/5/81    PAGE   8


     69  01FEH    45  TEX16. . . . . . .    BYTE ARRAY(45) DATA        69 
     69  022BH    32  TEX17. . . . . . .    BYTE ARRAY(32) DATA        69 
     69  024BH    23  TEX18. . . . . . .    BYTE ARRAY(23) DATA        69 
     69  0262H    27  TEX19. . . . . . .    BYTE ARRAY(27) DATA        69 
     69  027DH    27  TEX20. . . . . . .    BYTE ARRAY(27) DATA        69 
     69  0298H    39  TEX21. . . . . . .    BYTE ARRAY(39) DATA        69 
     69  02BFH    19  TEX22. . . . . . .    BYTE ARRAY(19) DATA        69 
     69  02D2H    39  TEX23. . . . . . .    BYTE ARRAY(39) DATA        69 
     69  02F9H    27  TEX24. . . . . . .    BYTE ARRAY(27) DATA        69 
     17  0000H     2  TEXTADR. . . . . .    WORD PARAMETER        18 
     69  0000H    52  TEXTTAB. . . . . .    WORD ARRAY(26) DATA        91 
      2               THENDO . . . . . .    LITERALLY        94  106  108 
     66  0000H    30  TITLE. . . . . . .    BYTE ARRAY(30) EXTERNAL(47)
     66  0000H     4  TOKEN. . . . . . .    STRUCTURE EXTERNAL(56)
      2               TRUE . . . . . . .    LITERALLY       110 
     72  0004H     2  TXT. . . . . . . .    WORD PARAMETER AUTOMATIC        73   75   76 
     66  0000H     1  TYPE . . . . . . .    BYTE MEMBER(TOKEN)
      3               TYPEBIT. . . . . .    LITERALLY
      5  0000H        TYPECALC . . . . .    PROCEDURE BYTE EXTERNAL(0) STACK=0000H
      3               TYPECOUNT. . . . .    LITERALLY
      4               UDEFSYMBOL . . . .    LITERALLY        71 
     35  0000H        UPPER. . . . . . .    PROCEDURE BYTE EXTERNAL(10) STACK=0000H
     61  0000H     1  USEFACT. . . . . .    BYTE PARAMETER        62 
      5  0000H     2  VAL. . . . . . . .    WORD PARAMETER         6 
     66  0002H     2  VALUE. . . . . . .    WORD MEMBER(TOKEN)
      8  0000H        WRDTEST. . . . . .    PROCEDURE BYTE EXTERNAL(1) STACK=0000H



MODULE INFORMATION:

     CODE AREA SIZE     = 00EBH    235D
     CONSTANT AREA SIZE = 034BH    843D
     VARIABLE AREA SIZE = 000CH     12D
     MAXIMUM STACK SIZE = 0012H     18D
     523 LINES READ
     0 PROGRAM ERROR(S)

END OF PL/M-86 COMPILATION
