DIRECTORYBcdDefs USING [BcdBase, CTHandle, FPHandle, FTIndex, ModuleIndex, MTHandle, NameRecord, SPHandle],BootFile USING [Header],BootStartList USING [Header, Base, StateVectorCounts],IO USING [STREAM],MBVM USING [Base, BIndex, CodeSeg, DataSeg, FileSeg, nullIndex, Segs],PrincOps USING [ControlLink, FrameSizeIndex, GlobalFrameHandle, PageNumber],Rope USING [ROPE],Segments USING [FHandle, SHandle],Time USING [Packed];MB: DEFINITIONS =BEGINROPE: TYPE = Rope.ROPE;Handle: TYPE = REF Object;Object: TYPE = RECORD [input, output, etherOutput, loadmapName: ROPE _ NIL,buildTime: Time.Packed _ [0],typescript, loadmap: IO.STREAM _ NIL,debug, germ, etherFormat, hexLoadmap: BOOLEAN _ FALSE,inputBCDs: REF InputBCDs _ NIL,lsseg: MBVM.DataSeg _ NIL,  -- loadstate's MBVM segmentbootHeader: REF BootFile.Header _ NIL,bootStream: IO.STREAM _ NIL,header: REF BootStartList.Header _ NIL,  -- header portion of start list in MakeBoot's VMscriptBase: BootStartList.Base _ NIL,  -- entire start list in MakeBoot's VMscriptBaseInVM: BootStartList.Base _ NIL,  -- entire start list in target VMnProcesses, framePages, pdaPages, svSize, gftLength: CARDINAL _ 0,mdsBase, codeBase: MBVM.Base _ 0,vmMap: BitArray _ NIL,lastVMPage: MBVM.Base _ 0,nModules, nGFIs, nFilePages, nResidentPages, nBootLoadedPages: CARDINAL _ 0,stateVectorCounts: BootStartList.StateVectorCounts _ ALL[0]]; BIndex: TYPE = MBVM.BIndex;nullIndex: BIndex = MBVM.nullIndex;BCount: TYPE = [0..LAST[BIndex]-1+1];InputBCDs: TYPE = RECORD[nBcds: BCount _ 0,bcds: SEQUENCE length: BCount OF BHandle _ NULL];BHandle: TYPE = REF BObject;BObject: TYPE = RECORD [name: ROPE,bcd: BcdDefs.BcdBase,bcdSeg: MBVM.FileSeg,  -- in boot file's address spacebcdSegment: Segments.SHandle,  -- in MakeBoot's address spacemt: MT,gfiOffset: CARDINAL,files: FileItem];FileItem: TYPE = REF FileObject;FileObject: TYPE = RECORD [link: FileItem,fti: BcdDefs.FTIndex,handle: Segments.FHandle,create: Time.Packed,ext: BOOL];  -- TRUE => file's name has extensionMT: TYPE = REF ModuleInfoSequence;ModuleInfoSequence: TYPE = RECORD [SEQUENCE length: BcdDefs.ModuleIndex OF ModuleInfo];ModuleInfo: TYPE = RECORD [mth: BcdDefs.MTHandle,frame: PrincOps.GlobalFrameHandle,code: MBVM.CodeSeg];BitArray: TYPE = REF BitArrayObject;BitArrayObject: TYPE = RECORD [PACKED SEQUENCE length: CARDINAL OF BOOL];InitDebug: PROC [h: Handle];FinishDebug: PROC;DumpSegs: PROC [segs: MBVM.Segs, msg: ROPE];DumpFrames: PROC;DumpInputBcds: PROC;DumpBootHeader: PROC;DumpStartList: PROC;MakeBootVersion: PROC RETURNS [ROPE];InitLoader: PROC [h: Handle];FinishLoader: PROC;Load: PROC;Alloc: PROC [fsi: CARDINAL] RETURNS [p: POINTER];AllocFault: ERROR;InitLoadmap: PROC [h: Handle];FinishLoadmap: PROC;OpenLoadmap: PROC;InitMain: PROC [h: Handle];FinishMain: PROC;Abort: SIGNAL;Error: PROC [msg: ROPE];InitMemory: PROC;TurnOffStartTrap: PROC;StartControlLink: PROC RETURNS [PrincOps.ControlLink];GetFrameWeight: PROC [index: PrincOps.FrameSizeIndex] RETURNS [weight: CARDINAL];SetFrameWeight: PROC [index: PrincOps.FrameSizeIndex, weight: CARDINAL];GetFsiChain: PROC [index: PrincOps.FrameSizeIndex]RETURNS [fsiNext: PrincOps.FrameSizeIndex];SetFsiChain: PROC [index: PrincOps.FrameSizeIndex, fsiNext: PrincOps.FrameSizeIndex];AllocateFrames: PROC [size: CARDINAL, single, resident: BOOL]RETURNS [frames: POINTER, inFrameHeap: BOOL];ReportFrameAllocation: PROC;InitOutput: PROC [h: Handle];FinishOutput: PROC;PreScanSegsForOutput: PROC [segs: MBVM.Segs]RETURNS [lastBootedPage: PrincOps.PageNumber];WriteBootFile: PROC;WriteGermFile: PROC;ListType: TYPE = {resident, resDesc, in};InitParse: PROC [h: Handle];FinishParse: PROC;ProcessInput: PROC [file: ROPE];EchoInput: PROC;WartFrame: PROC RETURNS [PrincOps.GlobalFrameHandle];EnumerateCode: PROC [state: ListType, proc: PROC [bh: BHandle, mth: BcdDefs.MTHandle] RETURNS [BOOL]];EnumerateFramePacks: PROC [state: ListType, proc: PROC [bh: BHandle, fph: BcdDefs.FPHandle] RETURNS [BOOL]];EnumerateSpaces: PROC [state: ListType, proc: PROC [bh: BHandle, sph: BcdDefs.SPHandle, index: CARDINAL] RETURNS [BOOL]];EnumerateGlobalFrames: PROC [state: ListType, proc: PROC [bh: BHandle, mth: BcdDefs.MTHandle] RETURNS [BOOL]];EnumerateBCDs: PROC [state: ListType, proc: PROC [bh: BHandle] RETURNS [BOOLEAN]];EnumerateNoTrapModules: PROC [proc: PROC [bh: BHandle, mth: BcdDefs.MTHandle] RETURNS [BOOL]];EnumerateControlList: PROC [proc: PROC [bh: BHandle, cth: BcdDefs.CTHandle] RETURNS [BOOL]];InitScript: PROC [h: Handle];FinishScript: PROC;MakeScript: PROC;InitUtilities: PROC [h: Handle];FinishUtilities: PROC;NameToG: PROC [name: ROPE] RETURNS [PrincOps.GlobalFrameHandle];NameToMTHandle: PROC [name: ROPE] RETURNS [bh: BHandle, mth: BcdDefs.MTHandle];NameToFPHandle: PROC [name: ROPE] RETURNS [bh: BHandle, fph: BcdDefs.FPHandle];NameToSPHandle: PROC [name: ROPE]RETURNS [bh: BHandle, sph: BcdDefs.SPHandle, index: CARDINAL];NameToCTHandle: PROC [name: ROPE] RETURNS [bh: MB.BHandle, cth: BcdDefs.CTHandle];InstanceToMTHandle: PROC [module, instance: ROPE]RETURNS [bh: BHandle, mth: BcdDefs.MTHandle];RopeForNameRecord: PROC [bcd: BcdDefs.BcdBase, name: BcdDefs.NameRecord]RETURNS [ROPE];DoAllModules: PROC [PROC [BHandle, BcdDefs.MTHandle] RETURNS [BOOL]]RETURNS [BOOL];DoAllSpaces: PROC [PROC [BHandle, BcdDefs.SPHandle, CARDINAL] RETURNS [BOOL]]RETURNS [BOOL];DoAllFramePacks: PROC [PROC [BHandle, BcdDefs.FPHandle] RETURNS [BOOL]]RETURNS [BOOL];DoAllBCDs: PROC [PROC [BHandle] RETURNS [BOOL]]RETURNS [BOOL];DoAllTopLevelConfigs: PROC [proc: PROC [MB.BHandle, BcdDefs.CTHandle] RETURNS [BOOL]]RETURNS [BOOL];SetConfig: PROC [name: ROPE];ResetConfig: PROC;VirtualGlobalFrame: PROC [PrincOps.GlobalFrameHandle]RETURNS [PrincOps.GlobalFrameHandle];InitCache: PROC [h: Handle];FinishCache: PROC;InitVM: PROC [h: Handle];FinishVM: PROC;END.   `  MB.mesaLast edited by Sandman on 6-Aug-81 16:06:17 Last edited by Lewis on 17-Sep-81 14:54:32Last edited by Levin on September 30, 1983 11:40 amTypes and Related DeclarationsFrom MBDebugFrom MBDriverFrom MBLoader and friendsFrom MBLoadmapFrom MBMainFrom MBOutputFrom MBParseFrom MBScriptFrom MBUtilitiesFrom MBVMemory and MBCache Э╩	є  Ш JЪЬЩJЪЬ,Щ,JЪЬ*Щ*JЪЬ3Щ3JШ Ъ╧k	Ш	ЪЬЭЬШJЪЬSШSЧJЪЬ	ЭЬ
ШJЪЬЭЬ#Ш6JЪЭЬЭЬЭЬШJЪЭЬЭЬ<ШFJЪЬ	ЭЬ>ШLJЪЬЭЬЭЬШJЪЬ	ЭЬШ"JЪЬЭЬ
ШJШ ЧJЪЭЬЭЬШJШ JЪЭШJШ JЪЬЩJШ JШ JЪЭЬЭЬЭЬШJШ JЪЬЭЬЭЬШЪЬЭЬЭЬШJЪЬ)ЭЬЭЬШ4JШJЪЬЭЬЭЬЭЬШ%JЪЬ&ЭЬЭЬШ6JЪЬЭЬЭЬШJЪЬЭЬЭЬ╧cШ7JЪЬЭЬЭЬШ&JЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЮ0ШYJЪЬ!ЭЬЮ%ШLJЪЬ%ЭЬЮ!ШLJЪЬ5ЭЬШBJЪЬЭЬ
Ш!JЪЬЭЬШJЪЬЭЬ
ШJЪЬ?ЭЬШLJЪЬ5ЭЬШ;JШJШ ЧJЪЬЭЬЭЬШJЪЬЭЬШ#JШ JЪЬЭЬЭЬШ%ЪЬЭЬЭЬШJШJЪЬЭЬЭЬЭШ/JЪЬШJШ ЧJЪЬ	ЭЬЭЬ	ШЪЬ	ЭЬЭЬШJЪЬЭЬШJШJЪЬЭЬЮШ6JЪЬЮШ=JЪЬЭЬШJЪЬЭЬШJШJШJШ ЧJЪЬ
ЭЬЭЬШ ЪЬЭЬЭЬШJШJШJШJШJЪЬЭШ	JЪЬЮ$Ш(JШ ЧJЪЭЬЭЬЭЬШ"ЪЬЭЬЭЬШ#JЪЭЬЭЬШ2JЪЬШЧЪЬЭЬЭЬШJШJШ"JЪЬЭЬШJЪЬШJШ ЧJЪЬ
ЭЬЭЬШ$JЪЬЭЬЭЬЭЬЭЬ	ЭЬЭЬЭЬШIJШ JШ ЪЬЩJШ JЪ╧n	ЬЭЬШJЪЯЬЭЬШJШ JЪЯЬЭЬЭЬЭЬШ,JЪЯ
ЬЭЬШJЪЯЬЭЬШJЪЯЬЭЬШJЪЯЬЭЬШЧJШ JЪЬЩШ JЪЯЬЭЬЭЬЭЬШ%ЧJШ JЪЬЩШ JЪЯ
ЬЭЬШJЪЯЬЭЬШJШ JЪЯЬЭЬШJШ JЪ
ЯЬЭЬЭЬЭЬЭЬШ1JЪЬЭЬШЧJШ JЪЬЩШ JЪЯЬЭЬШJЪЯЬЭЬШЧШ JЪЯЬЭЬШЧJЩ JЪЬЩШ JЪЯЬЭЬШJЪЯ
ЬЭЬШJШ JЪЬЭЬШJЪЯЬЭЬЭЬШJШ JЪЯ
ЬЭЬШJЪЯЬЭЬШJЪЯЬЭЬЭЬШ6JШ JЪЯЬЭЬ"ЭЬ
ЭЬШQJЪЯЬЭЬ*ЭЬШHJШ ЪЯЬЭЬ!Ш2JЪЭЬ$Ш+ЧJЪЯЬЭЬDШUJШ ЪЯЬЭЬЭЬЭЬШ=JЪЭЬ
ЭЬЭЬШ-JШ ЧJЪЯЬЭЬШЧJШ JЪЬЩШ JЪЯ
ЬЭЬШJЪЯЬЭЬШJШ ЪЯЬЭЬЭЬШ,JЪЭЬ'Ш.JШ ЧJЪЯЬЭЬШJЪЯЬЭЬШЧJШ JЪЬЩШ JЪЬ
ЭЬШ)JШ JЪЯ	ЬЭЬШJЪЯЬЭЬШJШ JЪЯЬЭЬЭЬШ JЪЯ	ЬЭЬШJШ JЪЯ	ЬЭЬЭЬШ5ЪЯЬЭЬШJЪЬЭЬ&ЭЬЭЬШQЧЪЯЬЭЬШJЪЬЭЬ&ЭЬЭЬШQЧЪЯЬЭЬШJЪ	ЬЭЬ-ЭЬЭЬЭЬШbЧЪЯЬЭЬШJЪЬЭЬ&ЭЬЭЬШQЧЪЯЬЭЬШJЪЬЭЬЭЬЭЬШ=ЧЪЯЬЭЬШJЪЬЭЬ&ЭЬЭЬШ@ЧЪЯЬЭЬШJЪЬЭЬ&ЭЬЭЬШ@JШ JШ ЧЧJЪЬЩШ JЪЯ
ЬЭЬШJЪЯЬЭЬШJШ JЪЯ
ЬЭЬШЧJШ JЪЬЩШ JЪЯЬЭЬШ JЪЯЬЭЬШJШ JЪЯЬЭЬЭЬЭЬШ@JЪЯЬЭЬЭЬЭЬ&ШOJЪЯЬЭЬЭЬЭЬ&ШOЪЯЬЭЬЭЬШ!JЪЭЬ-ЭЬШ>ЧЪ
ЯЬЭЬЭЬЭЬЭЬ!ШRJШ ЧЪЯЬЭЬЭЬШ1JЪЭЬ&Ш-JШ ЧЪЯЬЭЬ1ШHJЪЭЬЭЬШJШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШDJЪЭЬЭЬШЧЪЯЬЭЬЭЬЭЬЭЬЭЬШMJЪЭЬЭЬШЧЪ
ЯЬЭЬЭЬЭЬЭЬШGJЪЭЬЭЬШЧЪ
Я	ЬЭЬЭЬЭЬЭЬШ/JЪЭЬЭЬШЧЪЯЬЭЬЭЬЭЬЭЬЭЬШUJЪЭЬЭЬШJШ ЧJЪЯ	ЬЭЬЭЬШJЪЯЬЭЬШJШ ЪЯЬЭЬШ5JЪЭЬШ%ЧJШ ЧJЪЬЩШ JЪЯ	ЬЭЬШJЪЯЬЭЬШJШ JЪЯЬЭЬШJЪЯЬЭЬШЧJШ ЪЭЬШJШ JШ ЧЧ ЕЧ    x  "╦  