xerox MakeImage.mesa Oct77 free download

File name MakeImage.mesa_Oct77.pdf

makeiMAGE.mESA 24-0CT-77 18:38:25 Page 1 -- Makelmage.Mesa Edited by Sandman on October 6, 1977 5:35 PM DIRECTORY AltoDefs: FROM "altodefs", AltoFileDefs: FROM "altofiledefs", 8cdDefs: FROM "BcdDefs", BcdMergeDefs: FROM "BcdMergeDefs", BcdTnbDefs: FROM "bcdtabdefs", BcdTableDefs: FROM "bcdtabledefs", BFSDefs: FROM "bfsdefs", BootDefs: FROM "bootdefs", ControlDefs: FROM "controldefs", CoreSwapDefs: FROM "coreswapdefs", DirectoryDefs: FROM "directorydefs", DiskDefs: FROM "diskdefs", DiskKDDefs: FROM "diskkddefs", FrameDefs: FROM "framedefs", ImageDefs: FROM "imagedeFs", InlineDefs: FROM "inlinedefs", LoaderBcdUtilDefs: FROM "LoaderBcdUtilDefs", LoadStateDefs: FROM "LoadStateDefs", MakeImageUtilDefs: FROM "makeimageutildefs", MiscDefs: FROM "miscdefs", OsStnticDefs: FROM "osstaticdefs", ProcessDefs: FROM "processdefs", SegmentDefs: FROM "segmentdefs", StreamDefs: FROM "streamdefs", StringDefs: FROM "stringdefs", SystemDefs: FROM "systemdefs", TimeDefs: FROM "timedefs"; DEFINITIONS FROM LoadStateDefs, OiskDefs, ImageDefs, ControlDefs. SegmentDefs, MakeImageUtilDefs; MakeImage: PROGRAM IMPORTS BcdMergeDefs, BcdTabDefs, BcdTableDefs, BFSDefs, BootDefs, CoreSwapDefs, DirectoryDefs, DiskDefs, DiskKDDefs, FrameDefs, ImageDefs, LoaderBcdUtilDefs, LoadStateDefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs. SystemDefs, MakelmageUtilDefs EXPORTS ImageDefs SHARES ProcessDefs, DiskDefs, SegmentDefs, ControlDefs. ImageDefs BEGIN CFA: TYPE = AltoFileDefs.CFA; DataSegmentHandle: TYPE = SegmentDefs.DataSegmentHandle; FP: TYPE = AltoFileDefs.FP; FileHandle: TYPE = SegmentDefs.FileHandle; FileSegmentHandle: TYPE = SegmentDefs.FileSegmentHandle; PageCount: TYPF = AltoDefs.PageCount: PageNumber: TYPE = AltoDefs.PageNumber; ProcessRegister: TYPE = ProcessDefs.ProcessRegister: ProcessHandle: TYPE = ProcessDefs.ProcessHandle: ProcessVeetor: TYPE = ProcessDefs.ProcessVector: shortFileRequest: TYPE = short ImageDefs.FileRequest: vDA: TYPE = AltoFileDefs.vDA: GlobalrrameHandle: TYPE = ControlDefs.GlobalFrameHandle: LoadStateGFT: TYPE = LoadStateDefs.LoadStateGFT; ConfigIndex: TYPE = LoadSlateDeFs.Configlndex: S t reamlland 1e: TYPE = S t reamDefs. S treamHand 1 e: ProcDesc: TYPE = ConlrolDeFs.ProcDesc: -- Bcd Merging Management MergeAllBeds: PRDCrDURF [initialgft: LoadStateGrT. code. symbols: BOOLEAN. names: OrSCRIPTOR fOR ARRAY Of STRING] = B[GIN OprN loadSlaleOefs. BcdMergeDefs: MergeloadedBcds: PRocroURr [config: ConfigIndex. addr: BedAddress] RETURNS [BOOlrAN] BfGIN OPfN LoaderBcdUlilOers. LoadStateOefs; rel: Relocalion +- Inllial iloRolocation[config]; bcdseg: rileSegml'lllllandle +- BcdSegrl'omLoadSlale[collfig]: bed: BedRase P SetUpBcd[bcdseg]; MergeBcd[bcd. rel. O. lnitialgft. code. symbols. names[config]]; ReleaseBcdSeg[bcdseg]; ReleaseReloealion[rel]; RrTURN [r