xerox MakeModule.mesa Sep78 free download

File name MakeModule.mesa_Sep78.pdf

MakoModula.masa 2-Sap-78 14:40:55 Page 1 -- MakaModula.Masa Editad by Sandman on April 28, 1978 8:00 AM DIRECTORY AltoDefs: FROM "altodefs", AltoFileDefs: FROM "altofiledafs", BcdDefs: FROM "beddefs", ControlDafs: FROM "ControlDefs", MiscDefs: FROM "misedefs", ImageDafs: FROM "imagedefs", IODefs: FROM "iodefs", OsStaticDafs: FROM "osstaticdafs", SegmentDefs: FROM "segmantdefs", StreamDefs: FROM "streamdafs", StringDefs: FROM "stringdefs", SystemDefs: FROM "systemdefs", TimeDefs: FROM "timedefs"; DEfINITIONS FROM BcdDefs, SegmentDefs; MakeModule: PROGRAM IMPORTS IODefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDafs a PUBLIC BEGIN bcdheader: BcdDefs.BCD; module: BcdDefs.MTRecord; export: POINTER TO BcdDafs.EXPRecord; defsfile: BcdDefs.FTRecord; codeseg, symbolseg: BcdDefs.SGRecord; ssbstring: STRING ~ [60]; ssb: BedDefs.NameString ~ LOOPHOLE[ssbstring]; segmentname: STRING ~ [40]; modulename: STRING ~ [40]; defsfilename: STRING ~ [40]; outfile: STRING ~ [40]; in, out: StreamDefs.StreamHandla; file: SegmentDefs.FileHandle; interfacesize, modulenumber: CARDINAL; dname: BcdDefs.NameRecord; brFile: BOOLEAN; count: CARDINAL; WriteBcd: PROCEDURE [out: StreamDefs.StreamHandle]