
<<LoaderPrivate.mesa
-- private interface between the loader and the modeler.
-- Last edited by: John Maxwell on: February 28, 1983 1:39 pm>>

DIRECTORY
BcdOps USING [BcdBase],
File USING [Capability, PageNumber],
Inline USING [BITAND],
PilotLoaderOps USING [FrameItem],
PilotLoadStateOps USING [ConfigIndex, Map],
PrincOps USING [ControlLink, ControlModule, NullLink],
Space USING [Handle];

LoaderPrivate: DEFINITIONS IMPORTS Inline = BEGIN
OPEN BcdOps, PilotLoadStateOps;

FrameList: TYPE = POINTER TO PilotLoaderOps.FrameItem;

CreateGlobalFrames: PROC[
bcd: BcdBase, map: Map, config: ConfigIndex, allframelinks: BOOLEAN]
RETURNS[fl: FrameList _ NIL];

AssignCodeToFrames: PROC [
bcd: BcdBase, bcdCap: File.Capability, bcdSpaceBase: File.PageNumber, map: Map];

AssignControlModules: PROC[bcd: BcdBase, map: Map]
RETURNS [cm: PrincOps.ControlModule];

FindMappedSpace: PROC [space: Space.Handle] RETURNS [Space.Handle];

NextMultipleOfFour: PROC [n: UNSPECIFIED] RETURNS [UNSPECIFIED] =
INLINE {RETURN[n + Inline.BITAND[-LOOPHOLE[n, INTEGER], 3B]]};

GetModuleLink: PROC[atom: ATOM]  -- exported by CedarLinkerImpl
RETURNS[link: PrincOps.ControlLink _ PrincOps.NullLink]

END . . .