-- File: PressLockCode.mesa.

-- Last Edited: September 1, 1981 2:06 PM By: GWilliams

DIRECTORY

ControlDefs USING [GlobalFrameHandle],

FrameDefs USING [GlobalFrame, MakeCodeResident],

InlineDefs USING [COPY],

MiscDefs USING [Zero],

PressDefs,--just exporting to there

RamDefs USING [StartIO],

SystemDefs USING [AllocateHeapNode],

TridentDefs USING[DefaultTfsCleanupRtn, TfsActOnPages];

PressLockCode: PROGRAM

IMPORTS FrameDefs, InlineDefs, MiscDefs, RamDefs, SystemDefs, TridentDefs

EXPORTS PressDefs=

BEGIN OPEN InlineDefs, MiscDefs, RamDefs, SystemDefs, TridentDefs;

-- Types

LockNeededCode: PUBLIC PROC[]=
{globFrame: ControlDefs.GlobalFrameHandle;

globFrame ← FrameDefs.GlobalFrame[TfsActOnPages];--gets TfsBase1
FrameDefs.MakeCodeResident[globFrame];

globFrame ← FrameDefs.GlobalFrame[DefaultTfsCleanupRtn];--gets TfsBase2
FrameDefs.MakeCodeResident[globFrame];

globFrame ← FrameDefs.GlobalFrame[COPY];--gets [InLineDefs]
FrameDefs.MakeCodeResident[globFrame];

globFrame ← FrameDefs.GlobalFrame[AllocateHeapNode];--gets [SystemDefs]
FrameDefs.MakeCodeResident[globFrame];

globFrame ← FrameDefs.GlobalFrame[Zero];--gets MiscDefs
FrameDefs.MakeCodeResident[globFrame];

globFrame ← FrameDefs.GlobalFrame[StartIO];--gets [RamDefs]
FrameDefs.MakeCodeResident[globFrame];

--optional: TfsCreateFile(gets TfsCreate), TfsCreateDDmgr, TfsOpenFile, TfsInit(gets TfsStart), TfsWritePages


};--LockNeededCode

END...--PressLockCode