xerox RunImage.mesa Sep78 free download

File name RunImage.mesa_Sep78.pdf

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]]