module: StorMem
private: _

	structsize ( -- size ) \  
	Init ( size preallot -- sm ) 
	Open ( MemHandle here preallot -- sm )
	Close ( sm -- MemHandle )
	Done ( sm -- )
	Addr>rel ( sm-addr sm -- addr )
	Used ( sm -- size )
	SetUsed ( size sm -- )
	Move ( addr sm-addr u sm -- )
	Here ( sm -- here )
	Allot ( size sm -- )
	! ( n sm-addr sm -- )
	w! ( n sm-addr sm -- )
	c! ( n sm-addr sm -- )
	@ ( n sm-addr sm -- )
	w@ ( n sm-addr sm -- )
	c@ ( n sm-addr sm -- )
	, ( n sm -- )
	w, ( n sm -- )
	c, ( n sm -- )
	s, ( addr u sm -- )
	Align ( sm -- )
	csz, ( addr u sm -- )
