Miscellaneous.mesa_Sep78.pdf part of xerox Miscellaneous.mesa Sep78 Miscellaneous.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_System Miscellaneous.mesa

Text preview for : Miscellaneous.mesa_Sep78.pdf part of xerox Miscellaneous.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System Miscellaneous.mesa_Sep78.pdf

Back to : Miscellaneous.mesa_Sep78. | Home

Miscellaneous.mesa 2-Sep-78 13:58:17 Page 1

-- Miscellaneous.mesa; edited by Sandman, July 17, 1978 11:47 AM
DIRECTORY
AlloeDefs: FROM "alloedefs" USING [AllocInfo, MakeSwappedIn],
AltoDefs: FROM "altodefs" USING [PageSize],
BedDefs: FROM "beddefs" USING [VersionStamp],
ControlDefs: FROM "controldefs" USING [
FrameHandle, GFT, GFTIndex, GlobalFrameHandle, NullEpBase,
NullGlobalFrame],
FrameDefs: FROM "framedefs" USING [
GlobalFrame, RemoveGlobalFrame, SwapInCode, SwapOutCode,
ValidateGlobalFrame],
ImageDefs: FROM "imagedefs" USING [
AbortMesa, CleanupItem, CleanupMask, CleanupProcedure, ImageHeader,
StopMesa],
InlineDefs: FROM "inlinedefs" USING [BITAND, COPY],
MiscDefs: FROM "misedefs",
Mopcodes: FROM "mopcodes" USING [zSTARTIO],
NueleusDefs: FROM "nucleusdefs" USING [Resident],
OsStaticDefs: FROM "osstaticdefs" USING [OsStatics],
ProcessDefs: FROM "proeessdefs" USING [DisableInterrupts, EnableInterrupts],
SDDefs: FROM "sddefs" USING [SD, sGoingAway],
SegmentDeFs: FROM "segmentdefs" USING [
DefaultBase, DeleteFileSegment, FileHandle, FileSegmentAddress,
FileSegmentHandle, NewFileSegment, Read, SwapIn, Unlock],
TrapDeFs: FROM "trapdefs";
DEFINITIONS FROM ControlDefs;
Miscellaneous: PROGRAM
IMPORTS AllocOefs, FrameOefs, SegmentDefs, NueleusDefs
EXPORTS FrameDefs, ImageDefs, MiscDefs, NueleusDefs, TrapDefs
SHARES ControlDefs, ImageDefs = BEGIN
DeletedFrame: PUBLIC PROCEDURE [gfi: GFTIndex] RETURNS [BOOLEAN]
BEGIN
RETURN[GFT[gfi] = [frame: NullGlobalFrame, epbase: NullEpBase]];
END;
LockCode: PUBLIC PROCEDURE [link: UNSPECIFIED] =
BEGIN
FrameDefs.SwapInCode[FrameDefs.GlobalFrame[link]];
RETURN
END;
UnloekCode: PUBLIC PROCEDURE [link: UNSPECIFIED] =
BEGIN
SegmentDefs.Unlock[FrameDefs.GlobalFrame[link].codesegment];
RETURN
END;
CodeSegment: PUBLIC PROCEDURE [frame:FrameHandle]
RETURNS [codeseg: SegmentDefs.FileSegmentHandle]