<> <> <> <<>> <<-- 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; <> << -- 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.