xerox ListerRoutines.mesa Sep78 free download

File name ListerRoutines.mesa_Sep78.pdf

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]