ListerRoutines.mesa_Sep78.pdf part of xerox ListerRoutines.mesa Sep78 ListerRoutines.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_Lister ListerRoutines.mesa

Text preview for : ListerRoutines.mesa_Sep78.pdf part of xerox ListerRoutines.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Lister ListerRoutines.mesa_Sep78.pdf

Back to : ListerRoutines.mesa_Sep78 | Home

ListerRoutines.mesa 2-Sep-78 18:18:51 Page 1

-- ListerRoutines.mesa; edited by Johnsson; July 20, 1978 12:10 PM
DIRECTORY
AllocDefs: FROM "allocdefs".
AltoDefs: FROM "altodefs",
BcdDafs: FROM "bcddefs",
BinaryDefs: FROM "binarydefs",
ControlDefs: FROM "controldefs",
ErrorTabDefs: FROM "errortabdefs",
InlineDefs: FROM "inlinedefs",
IODefs: FROM "iodefs",
ListerDefs: FROM "listerdefs",
Mopcodes: FROM "mopcodes",
MiscDefs: FROM "miscdefs",
OpTableDefs: FROM "optabledefs",
OutputDefs: FROM "outputdefs",
SegmentDefs: FROM "segmentdefs",
StringOofs: FROM "stringdefs",
SymbolTableDefs: FROM "symboltabledefs",
SymDefs: FROM "symdefs",
SymSegDefs: FROM "symsegdefs",
SystemDefs: FROM "systemdefs",
TableDefs: FROM "tabledefs".
TimeDefs: FROM "timedefs",
TreeDefs: FROM "treedefs";
DEFINITIONS FROM OutputDefs;
ListerRoutines: PROGRAM
IMPORTS AllocDefs, BinaryDefs, MiscOefs, OutputDefs, SegmentDefs, SystemDefs
EXPORTS LislerDefs, TableDefs SHARES SymbolTableDefs = PUBLIC
BEGIN
BYTE: TYPE = AltoDefs.BYTE;
FileSegmentHandle: TYPE = SegmentDefs.FileSegmentHandle;
FrameHandle: TYPE = ControlDefs.FrameHandle;
NumberFormat: TYPE = IODefs.NumberFormat;
opcode: TYPE = BYTE;
PageCount: TYPE = AltoDefs.PageCount;
WordPC: TYPE = ControlDefs.WordPC;

IncorrectVersion: SIGNAL CODE;
NoFGT: SIGNAL = CODE;
NoCode: SIGNAL = CODE;
NoSymbols: SIGNAL = CODE;
MultipleModules: SIGNAL = CODE;
version, creator: BcdDefs.VersionStamp;
Dstar: BOOLEAN;
filename: STRING;
symbols: SymbolTableDefs.SymbolTableBase;
base: ARRAY [0 .. 15] OF TableDefs.TableBase;
SetRoutineSymbols: PROCEDURE [s: SymbolTableDefs.SymbolTableBase]