DIRECTORYBasics USING [LongDiv],PrincOps USING [AV, AVItem, FrameSizeIndex, FrameVec, PDA, ProcessStateBlock, PsbHandle, StartPsb, StateVector],PrincOpsUtils USING [DisableInterrupts, EnableInterrupts, FrameSize, LongCOPY, PsbIndexToHandle, ZERO],Process USING [Yield],VM USING [AddressForPageNumber, Allocate, Free, Interval, PageCount, PagesForWords, SwapIn, Unpin, WordsForPages],VMInternal USING [FrameHeapPiece, FrameHeapPieceHeader, frameHeapPieceList, LargeFrame, largeFrameList],VMSideDoor USING [FrameMarker, FramesDescriptor, StateVectorDescriptor],VMStatistics USING [];VMFrameSnapshotImpl: MONITORIMPORTS Basics, PrincOpsUtils, Process, VM, VMInternalEXPORTS VMSideDoor, VMStatistics =BEGINvm: VM.Interval;getFramesCalls, getFramesRetries: PUBLIC INT _ 0;GetFrames: PUBLIC ENTRY PROC RETURNS [frames: VMSideDoor.FramesDescriptor, stateVectors: VMSideDoor.StateVectorDescriptor] = {ZeroFreeFrames: PROC = --INLINE-- {OPEN PrincOps;PrincOpsUtils.DisableInterrupts[];FOR fsi: FrameSizeIndex IN FrameSizeIndex DOFOR avItem: AVItem _ AV[fsi], avItem.link^ UNTIL avItem.tag ~= frame DOPrincOpsUtils.ZERO[where: avItem.frame+1, nwords: FrameVec[fsi]-1];ENDLOOP;ENDLOOP;PrincOpsUtils.EnableInterrupts[];};CopyFramesAndStateVectors: PROC RETURNS [pagesNeeded: INT] = --INLINE-- {OPEN VMInternal;base: LONG ORDERED POINTER = LOOPHOLE[VM.AddressForPageNumber[vm.page]];limit: LONG ORDERED POINTER = base + VM.WordsForPages[vm.count];p: LONG ORDERED POINTER _ base;psb: PrincOps.PsbHandle _ PrincOpsUtils.PsbIndexToHandle[PrincOps.StartPsb];wordsPerSV: CARDINAL = SIZE[PrincOps.StateVector];svWords: LONG CARDINAL;PrincOpsUtils.DisableInterrupts[];THROUGH [0..PrincOps.PDA.count) DOIF PrincOps.PDA[psb].link.vector THEN {IF p + wordsPerSV <= limit THENPrincOpsUtils.LongCOPY[from: @PrincOps.PDA[PrincOps.PDA[psb].context.state], to: p, nwords: wordsPerSV];p _ p + wordsPerSV;};psb _ psb + SIZE[PrincOps.ProcessStateBlock];ENDLOOP;stateVectors _DESCRIPTOR[base, Basics.LongDiv[svWords _ p - base, wordsPerSV]];FOR piece: FrameHeapPiece _ frameHeapPieceList, piece.next UNTIL piece = NIL DOwordsToCopy: CARDINAL = piece.wordsInUse - SIZE[FrameHeapPieceHeader];IF p + wordsToCopy <= limit THENPrincOpsUtils.LongCOPY[from: @piece.fsiFrame, to: p, nwords: wordsToCopy];p _ p + wordsToCopy;ENDLOOP;FOR largeFrame: LargeFrame _ largeFrameList, largeFrame.next UNTIL largeFrame = NIL DOwordsToCopy: CARDINAL = PrincOpsUtils.FrameSize[largeFrame.trueFsi] + SIZE[PrincOps.FrameSizeIndex];IF p + wordsToCopy <= limit THEN {PrincOpsUtils.LongCOPY[from: @largeFrame.fsiFrame, to: p, nwords: wordsToCopy];p^ _ VMSideDoor.FrameMarker[frame[largeFrame.trueFsi]];  -- overwrite "LargeReturnSlot" with FrameMarker};p _ p + wordsToCopy;ENDLOOP;PrincOpsUtils.EnableInterrupts[];frames _ DESCRIPTOR[base + svWords, p - (base + svWords)];RETURN[VM.PagesForWords[p - base]]};--*stats*-- getFramesCalls _ getFramesCalls.SUCC;DOpagesNeeded: VM.PageCount;VM.SwapIn[interval: vm, kill: TRUE, pin: TRUE];ZeroFreeFrames[];Process.Yield[];pagesNeeded _ CopyFramesAndStateVectors[];VM.Unpin[vm];IF pagesNeeded <= vm.count THEN EXIT;VM.Free[vm];--*stats*-- getFramesRetries _ getFramesRetries.SUCC;vm _ VM.Allocate[pagesNeeded];ENDLOOP;};Initialize: PROC = {OPEN VMInternal;slopPages: VM.PageCount = 5;  -- just a guesswordsToCopy: INT _ 0;PrincOpsUtils.DisableInterrupts[];FOR piece: FrameHeapPiece _ frameHeapPieceList, piece.next UNTIL piece = NIL DOwordsToCopy _ wordsToCopy +  (piece.wordsInUse - SIZE[FrameHeapPieceHeader]);ENDLOOP;PrincOpsUtils.EnableInterrupts[];vm _ VM.Allocate[count: VM.PagesForWords[wordsToCopy]+ slopPages];};Initialize[];END.   ~  VMFrameSnapshotImpl.mesalast edited by Levin on August 25, 1983 1:27 pmExports to VMStatisticsExports to VMSideDoor Êd  ˜ Jšœ™J™/J˜ šÏk	˜	Jšœœ˜šœ	œ˜Jšœ^˜`—šœœ˜Jšœ8œœ˜R—Jšœœ˜šœœ˜
Jšœh˜h—šœœ˜JšœV˜V—Jšœœ8˜HJšœœ˜—J˜ šœ˜Jšœœ
˜6Jšœ˜"—J˜ Jš˜J˜ Jšœœ
˜J˜ Jšœ™J˜ Jšœ"
œ˜1J˜ Jšœ™J˜ šÏn	œœœœ˜&JšœX˜XšžœœÏc
œ˜#Jšœ
˜J˜"šœœ˜,šœœœ˜GJšœœ1˜CJšœ˜—Jšœ˜—Jšœ!˜!J˜—š
žœœœœŸ
œ˜IJšœ˜Jšœœœœœœ ˜HJšœœœ
œ˜@Jšœœœ˜JšœL˜LJšœœœ˜2Jšœ	œ˜J˜"šœœ˜"šœ
œœ˜'šœ˜šœ˜Jšœœ
œ1˜Q——Jšœ˜J˜—Jšœœ˜-Jšœ˜—šœ˜Jš
œ7˜A—šœ8œ	œ˜OJšœœœ˜Fšœ˜ J˜J—Jšœ˜Jšœ˜—šœ:œœ˜VJšœœ1œ˜dšœœ˜"JšœO˜OJšœ9Ÿ/˜hJ˜—Jšœ˜Jšœ˜—Jšœ!˜!Jšœ	
œ'˜:Jšœœ˜"J˜—JšŸœ!œ˜1š˜Jšœœ˜Jšœœœ˜/Jšœ˜J˜Jšœ*˜*Jšœ˜Jšœœœ˜%Jšœ
˜JšŸœ%œ˜5Jšœœ˜—Jšœ˜Jšœ˜—J˜ šž
œœ˜Jšœ˜JšœœŸ˜-Jšœœ˜Jšœ"˜"šœ8œ	œ˜OJšœ1œ˜MJšœ˜—Jšœ!˜!Jšœœœ(˜BJ˜—J˜ J˜J˜ Jšœ˜— …—    ”  v  