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