MakeModule.mesa_Sep78.pdf part of xerox MakeModule.mesa Sep78 MakeModule.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_Utilities MakeModule.mesa

Text preview for : MakeModule.mesa_Sep78.pdf part of xerox MakeModule.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Utilities MakeModule.mesa_Sep78.pdf

Back to : MakeModule.mesa_Sep78.pdf | Home

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]