xerox ListCode.mesa Oct77 free download

File name ListCode.mesa_Oct77.pdf

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