--	File IntVMDefs.mesa
--	March 4, 1980  4:00 PM

IntVMDefs: DEFINITIONS =

BEGIN


	-- Virtual storage package for use by InterpreterStorage.mesa.  Provides routines to allocate and free blocks in a large (24 bit address space) virtual memory.

	VMAddr: TYPE = LONG CARDINAL;
	NilVMAddr: VMAddr = LAST[LONG CARDINAL];
	VMFull: ERROR;

	InitVM: PROCEDURE RETURNS [BOOLEAN];
	FinishVM: PROCEDURE RETURNS [BOOLEAN];

	AllocateBlock: PROCEDURE [size: CARDINAL] RETURNS [VMAddr];
	FreeBlock: PROCEDURE [block: VMAddr];

	-- Put and Get word quantities from VM.
	PutWord: PROCEDURE [where: VMAddr, val: UNSPECIFIED];
	GetWord: PROCEDURE [where: VMAddr] RETURNS [UNSPECIFIED];

	-- Put and Get long quantities from VM.
	PutLong: PROCEDURE [where: VMAddr, val: LONG UNSPECIFIED];
	GetLong: PROCEDURE [where: VMAddr] RETURNS [LONG UNSPECIFIED];

	-- Put and Get block quantities from VM.
	PutBlock: PROCEDURE [src: POINTER TO UNSPECIFIED, dest: VMAddr, size: CARDINAL];
	GetBlock: PROCEDURE [src: VMAddr, dest: POINTER TO UNSPECIFIED, size: CARDINAL];


END.(635)\50b9B188b6B25b9B33b6B11b6B32b8B33b13B48b9B72b7B48b7B94b7B53b7B100b8B74b8B