ListCode.mesa_Oct77.pdf part of xerox ListCode.mesa Oct77 ListCode.mesa_Oct77.pdf, xerox mesa 3.0_1977 listing ListCode.mesa

Text preview for : ListCode.mesa_Oct77.pdf part of xerox ListCode.mesa Oct77 xerox mesa 3.0_1977 listing ListCode.mesa_Oct77.pdf

Back to : ListCode.mesa_Oct77.pdf | Home

ListCode.mesa 25-0CT-77 15:06:18 Page 1

-- file: ListCode.mesa
-- edited by Sandman September 21, 1977 1:27 PM
DIRECTORY
A1toDefs: FROM "a1todefs",
BcdDefs: FROM "bcddefs",
CommanderDefs: FROM "commanderdefs",
Contro1Defs: FROM "contro1defs",
In1ineDefs: FROM "in1inedefs",
IODefs: FROM "iodefs",
ListerDefs: FROM "listerdefs",
Mopcodes: FROM "mopcodes",
OutputDefs: FROM "outputdefs",
SegmentDefs: FROM "segmentdefs",
StreamDefs: FROM "streamdefs",
StringDefs: FROM "stringdefs",
SymDefs: FROM "symdpfs",
Symbo1TableDefs: FROM "symbo1tab1edefs",
TimeDefs: FROM "timedefs";
DEFINITIONS FROM ListerDefs, OutputDefs;
ListCode: PROGRAM
IMPORTS CommanderDefs, ListerDefs, IODefs, OutputDefs, SegmentDefs. StreamDefs.
StringDefs. SymbolTableDefs
EXPORTS ListerDefs SHARES SymbolTab1eDefs =
BEGIN
Address: TYPE = A1toDefs.Address;
BYTE: TYPE = AltoDefs.BYTE;
FileSegmentHand1e: TYPE = SegmentDefs.FileSegmentHand1e;
FrameHandle: TYPE = ControlDefs.FrameHand1e;
NumberFormat: TYPE = IODefs.NumberFormat;
opcode: TYPE = Mopcodes.opcode;
PageCount: TYPE = AltoDefs.PageCount;
WordPC: TYPE = Contro1Defs.WordPC;

JumpOp: TYPE = [Mopcodes.zJnE .. Mopcodes.zJIW];
InstWord: TYPE MACHINE DEPENDENT RECORD[oddbyte. evenbyte: BYTE];
UNSIGNED: TYPE = WORD;
offset: Address;
codebase: POINTER;
codepages: PageCount;
symbols: SymbolTableDefs.SymbolTableBase;
Tinst. Tbytes. Pinst, Pbytes. Bbytes: CARDINAL;
freqing: BOOLEAN ~ FALSE;
absolute: BOOLEAN ~ FALSE;
-- number formats
decimal: NumberFormat = NumberFormat[base:10. columns:1. zerofill :FALSE. unsigned:TRUE];
decima13: NumberFormat = NumberFormat[base:l0, columns:3, zerofill:FALSE, unsigned:TRUE];
octa13: NumberFormat