Text preview for : FrameDefs.mesa_Oct77.pdf part of xerox FrameDefs.mesa Oct77 xerox mesa 3.0_1977 listing FrameDefs.mesa_Oct77.pdf
Back to : FrameDefs.mesa_Oct77.pdf | Home
framedefs.mESA 24-0CT-77 18:23:01 Page 1
-- FrameDefs.Mesa
-- Edited by Sandman on August 23, 1977 9:14 PM
DIRECTORY
AltoDefs: FROM "altodefs",
ControlDefs: FROM "controlders",
Mopcodes: FROM "mopcodes",
SegmentDefs: FROM "segmentdefs":
DEFINITIONS FROM SegmentDefs, ControlDefs:
FrameOefs: DEFINITIONS = BEGIN
-- Global Frame Table management
FrameClass: TYPE = ControlDefs.FrameClass:
EnumerateGlobalFrames: PROCEDURE [
proc: PROCEDURE [GlobaIFrameHandle] RETURNS [BOOLEAN]]
RETURNS [GlobalFrameHandle]:
NoGlobalFrameSlots: SIGNAL [CARDINAL]:
EnterGlobalFrame: PROCEDURE [frame: GlobalFrameHandle, nslots: CARDINAL]
RETURNS [entryindex: GFTIndex]:
RemoveGlobalFrame: PROCEDURE [Frame: GlobalFrameHandle];
ReleaseFrame: PROCEDURE [frame: GlobaIFrameHandle];
GlobalFrame: PROCEDURE [link: UNSPECIFIED] RETURNS [GlobalFrameHandle];
DeletedFrame: PROCEDURE [gfi: GFTIndex] RETURNS [BOOLEAN];
Class: PROCEDURE [frame: FrameHandle] RETURNS [FrameClass];
New: MACHINE CODE [name: STRING] RETURNS [frame: GlobalFrameHandle]
INLINE[Mopcodes.zKFCB, sNew];
Copy: MACHINE CODE [oldframe: GlobalFrameHandle] RETURNS [newframe: GlobalFrameHandle]
INLINE[Mopcodes.zKFCB, sCopy]:
UnNew: ~lACHINE CODE [frame: GlobalFrameHandle. freeframe: BOOLEMJ] =
INLINE[Mopcodes.zKFCB, sUnNew]:
-- Frame Size
FrameSize: PROCEDURE [CARDINAL] RETURNS [CARDINAL]:
-- Code StuFf
SwapOutCode: PROCEDURE [f: GlobaIFrameHandle]:
SwapInCode: PROCEDURE [f: GlobalFrameHandle];
lockCode: PROCEDURE [link: UNSPECIFIED];
UnlockCode: PROCEDURE [link: UNSPECIFIED]:
CodeSegment: PROCEDURE [Frame: FrameHandle] RETURNS [codeseg: SegmentDefs.FileSegmentHandle]:
ReturnByte: PROCEDURE [frame: FrameHandle. byteoffset: INTEGER] RETURNS [byte: AltoDefs.BYTE];
-- Signal Stuff
SendMsgSignal: SIGNAL RETURNS [UNSPECIFIED. UNSPECIFIED];
ResumeError: SIGNAL;
MultiLevelUnwind: ERROR;
END ...