Text preview for : CheckPoint.mesa_Sep78.pdf part of xerox CheckPoint.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System CheckPoint.mesa_Sep78.pdf
Back to : CheckPoint.mesa_Sep78.pdf | Home
CheckPoint.mesa 2-Sep-78 13:58:17 Page 1
CheckPoint.Mesa
Edited by:
Sandman on Jul 25, 1978 9:23 AM
DIRECTORY
AllocDefs: FROM "allocdefs" USING [
AddSwapStrategy, RemoveSwapStrategy, SwappingProcedure, SwapStrategy],
AltoDefs: FROM "altodefs" USING [
BytesPerPage, PageCount, PageNumber, PageSize],
AltoFileDefs: FROM "altofiledefs" USING [CFA, FA, fillinDA, FP, TIME, vDA],
BcdDefs: FROM "bcddefs" USING [VersionStamp],
BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextDA],
ControlDefs: FROM "controldefs" USING [
Alloc, AllocationVector, AllocationVectorSize, ATPreg, AV, Control Link,
EntryVectorItem, FrameHandle, FrameVec, Free, GetReturnLink, GFT,
GFTIndex, GlobalFrameHandle, Greg, Lreg, MaxAllocSlot, OTPreg, ProcDesc,
SO, StateVector, SVPointer, WDCreg, XTSreg],
CoreSwapDefs: FROM "coreswapdefs" USING [PuntInfo, GetLevel, SetLevel],
DirectoryDefs: FROM "directorydefs" USING [EnumerateDirectory],
DiskDefs: FROM "diskdefs" USING [DA, DiskRequest, RealDA],
DiskKDDefs: FROM "diskkddefs" USING [CloseDiskKD],
FrameDefs: FROM "framedefs" USING [MakeCodeResident, SwapInCode, SwapOutCode],
ImageDefs: FROM "imagedefs" USING [
FileRequest, FirstImageDataPage, HeaderPages, ImageHeader, ImagePrefix,
ImageVersion, MapItem, PuntMesa, UserCleanupProc, VersionID],
InlineDefs: FROM "inlinedefs" USING [BITAND, COpy],
LoadStateDefs: FROM "loadstatedefs" USING [
ConfigIndex, GetInitialLoadState, GetLoadState, InputLoadState,
ReleaseLoadState],
MiscDefs: FROM "miscdefs" USING [DAYTIME, GetNetworkNumber, SetBlock, Zero],
OsStaticDefs: FROM "osstaticdefs" USING [OsStatics],
ProcessDefs: FROM "processdefs" USING [
ActiveWord, CurrentPSB, CurrentState, CV, DisableInterrupts, DIW,
EnableInterrupts, ProcessHandle, Queue, ReadyList, SOC, WakeupsWaiting],
SDDefs: FROM "sddefs" USING [sAllocTrap, sSwapTrap, sXferTrap],
SegmentDefs: FROM "segmentdefs" USING [
AddressFromPage, Append, CloseFile, DataSegmentAddress, DataSegmentHandle,
DefaultBase, DefaultVersion, DeleteDataSegment, EnumerateDataSegments,
EnumerateFiles, EnumerateFileSegments, FileError, FileHandle,
FileSegmentAddress. FileSegmentHandle, GetFileSegmentDA, JumpToPage,
MapFileSegment, NewDataSegment, NewFile, Read, SetEndOfFile, SwapIn,
SwapOut, Unlock, Write],
StreamDefs: FROM "streamdefs" USING [
CreateWordStream, ReadBlock, StreamHandle].
StringDefs: FROM "stringdefs" USING [EquivalentString],
SystemDefs: FROM "systemdefs" USING [AllocatePages, FreePages, PruneHeap].
TimeDefs: FROM "timedefs" USING [PackedTime];
DEFINITIONS FROM
LoadStateDefs. DiskDefs. ImageDefs. ControlDefs. SegmentDefs;
CheckPoint: PROGRAM
IMPORTS AllocDefs, BFSDefs, CoreSwapDefs,
DirectoryDefs, DiskDefs. DiskKDDefs, FrameDefs, ImageDefs.
'LoadStateDefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs
EXPORTS ImageDefs
SHARES ProcessDefs. DiskDefs, SegmentDefs, ControlDefs, ImageDefs =
BEGIN
CFA: TYPE = AltoFileDefs.CFA;
DataSegmentHandle: TYPE = SegmentDefs.DataSegmentHandle;
FP: TYPE = AltoFileDefs.FP;
FileHandle: TYPE = SegmentDefs.FileHandle;
FileSegmentHandle: TYPE = SegmentDefs.FileSegmentHandle;
PageSize: CARDINAL = AltoDefs.PageSize;
PageCount: TYPE = AltoDefs.PageCount;
PageNumber: TYPE = AltoDefs.PageNumber;
shortFileRequest: TYPE