MicroGlobalVars.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Willie-sue, February 26, 1986 10:33:52 am PST
-- taken from MicDecl.d
DIRECTORY
IO USING [STREAM],
Rope USING [ROPE],
MicroDefs USING [OutputFile];
MicroGlobalVars: CEDAR DEFINITIONS
= BEGIN
STREAM: TYPE = IO.STREAM;
ROPE: TYPE = Rope.ROPE;
OutputFile: TYPE = MicroDefs.OutputFile;
global variables
-- MicGlob
version: CARDINAL = 120000B+0185; -- Release version, 10-01-85;
compatVersion: CARDINAL = 120000B+0185; -- Compatibility version, 10-01-85
expandedListingFlag: BOOL;
writeBinaryFlag: BOOL;
listTargetOnlyFlag: BOOL;
convertToUpperFlag: BOOL;
lineCount: CARDINAL;    -- Current line count
labelSymIndex: INTEGER;    -- pointer to Last label symbol
labelLineCount: INTEGER;  -- LineCount at last label
stmtLineCount: INTEGER;   -- LineCount at last statement
restoreSymbolsFile: ROPE;
binaryFile: OutputFile;
errorFileRec: OutputFile;
symbolsFileRec: OutputFile;
fixupsFileRec: OutputFile;
listingFileRec: OutputFile;
warningCount: CARDINAL;
errorCount: CARDINAL;
errmax: CARDINAL = 100;  -- quit if this many errors
reportStrm: STREAM;
-- value saved on .ST file ("environment values")
lastMemNum: CARDINAL;   -- Max used memory #
commentChar: CHAR;  -- special * comment character
mbExtn: ROPE;    -- Pointer to extension for binary output
targetSym: CARDINAL;   -- Relative ep of target address symbol
traceCalls: BOOL;   -- If true, trace macro calls
ignore: BOOL;    -- If true, ignore all statements not starting with :
traceSyms: BOOL;   -- If true, trace all lookups/putins
nextMacroIndex: INT;
stmtBufferMax: NAT = 512;
stmtBuffer: LONG POINTER TO WORD;
macroStorageStart: LONG POINTER TO WORD;
 -- MicList
abortFlag: BOOL;
 -- MicProc
stmtBufferTop: NAT;
stmtTailBottom: NAT;
stmtTailTop: NAT;
END.