xerox Miscellaneous.mesa Sep78 free download

File name Miscellaneous.mesa_Sep78.pdf

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]