external // entries for VMEM [ CleanupLocks PageType PageGroupSize PageGroupBase PageGroupAlign DOPAGEIO ] external // links to ISF [ InitFmap IndexedPageIO ] static [ MyFmap // pointer to work area for ISF ] // To initialize ISF, set MyFmap to point to a work area // of size MyFmapLength, and then call // InitFmap(MyFmap, MyFmapLength, FilePtr, true) // where FilePtr is a FP (see the O.S. manual) // for the paging file. A reasonable value for // MyFmapLength is 80 -- see the ISF writeup. let CleanupLocks() be [ ] let PageType(vp) = 1 let PageGroupSize(vp) = 1 let PageGroupBase(vp) = vp let PageGroupAlign(vp) = 0 let DOPAGEIO(vp, core, np, wflag) be [ IndexedPageIO(MyFmap, vp+2, core, np, (wflag? -1, 1)) ]