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

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

Back to : RunImage.mesa_Sep78.pdf | Home

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

-- RunImage.mesa: edited by Sandman: July 17, 1978 12:02 PM
DIRECTORY
AllocDefs: FROM "allocdefs" USING [AllocInfo, MakeDataSegment],
AltoDefs: FROM "altodefs" USING [PageSize],
AltoFileDefs: FROM "altofiledefs" USING [CFP],
BFSDefs: FROM "bfsdefs" USING [MakeCFP],
BinaryDefs: FROM "binarydefs" USING [MesaBootLoader],
ControlDefs: FROM "controldefs" USING [
FieldDescriptor, StateVector, SVPointer],
CoreSwapDefs: FROM "coreswapdefs" USING [PuntInfo],
DiskDefs: FROM "diskdefs" USING [DA, RealDA],
ImageDefs: FROM "imagedefs" USING [ImageHeader, MapItem, VersionID],
InlineDefs: FROM "inlinedefs" USING [BITSHIFT],
MiscDefs: FROM "miscdefs" USING [DestroyFakeModule, Zero],
Mopcodes: FROM "mopcodes" USING [zLI4, zRFS, zSHIFT, zWFS],
NovaOps: FROM "novaops" USING [NovaJSR],
ProcessDefs: FROM "processdefs" USING [
ActiveWord, ConditionVector, CV, DIW, SwatLevel],
SegmentDefs: FROM "segmentdefs" USING [
CopyFileToDataSegment, DataSegmentAddl-ess, DataSegmentHandle,
DeleteDataSegment, DeleteFileSegment, FileHandle, FileSegmentAddress,
FileSegmentHandle, GetFileSegmentDA, NewFileSegment, Read, SwapIn,
VMnotFree]:
RunImage: PROGRAM
IMPORTS AllocDefs, BFSDefs, BinaryDefs, DiskDefs, MiscDefs, SegmentDefs
EXPORTS ImageDefs
SHARES DiskDefs, ImageDefs, ProcessDefs, SegmentDefs =
BEGIN OPEN SegmentDefs, ImageDefs:
PageSize: CARDINAL = AltoDefs.PageSize:
BD: PROCEDURE [CARDINAL] RETURNS [ControlDefs.FieldDescriptor] a
MACHINE CODE BEGIN Mopcodes.zLI4; Mopcodes.zSHIFT END;
SetBit: PROCEDURE [[0 .. 1], POINTER, ControlDefs.FieldDescriptor] a
MACHINE CODE BEGIN Mopcodes.zWFS END;
GetBit: PROCEDURE [POINTER, ControlDefs.FieldDescriptor] RETURNS [[0 .. 1]]