Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

452 lines
24 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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