Text preview for : Miscellaneous.mesa_Oct77.pdf part of xerox Miscellaneous.mesa Oct77 xerox mesa 3.0_1977 listing Miscellaneous.mesa_Oct77.pdf
Back to : Miscellaneous.mesa_Oct77. | Home
miscellaNEOUS.mESA 24-0CT-77 18:38:25 Page 1
Miscellaneous.Mesa Edited by Sandman on October 11, 1977 9:46 AM
DIRECTORY
AltoDefs: FROM "altoders",
BcdDefs: FROM "bcddefs",
ControlDefs: FROM "controldefs",
FrameDefs: FROM "framedefs",
ImageDefs: FROM "imagedefs",
InlineDefs: FROM "inlinedefs",
MiscDefs: FROM "miscdefs",
Mopcodes: FROM "mopcodes",
OsStaticDefs: FROM "osstaticdefs",
ProcessDers: FROM "processdefs",
SegmentDefs: FROM "segmentdefs",
TrapDefs: FROM "trapdefs";
DEFINITIONS FROM ControlOefs;
Miscellaneous: PROGRAM
IMPORTS FrameDefs, SegmentDefs
EXPORTS FrameDeFs, ImageDefs, InlineDefs, MiscDefs, TrapDefs
SHARES ControlDefs, ImageOefs = BEGIN
PORTI: MACHINE CODE = INLINE [Mopcodes.zPORTI]:
gftrover: CARDINAL p 0: -- okay to start a 0 because incremented before used
NoGlobalFrameSlots: PUBLIC SIGNAL [CARDINAL] = CODE:
EnterGlobalFrame: PUBLIC PROCEDURE [frame: GlobalFrameHandle, nslots: CARDINAL] RETURNS [entryindex: