//	M052 : Memory block (real number)
option double;

//------------------------------------------------------------------------------//
//	Memory block (real number)													//
//																				//
//	Return : None																//
//------------------------------------------------------------------------------//
function main()
{
	define bno;

	bno = _MemAlloc(10);						//	Memory block allocation

	_Cls();

	_Print("Clear memory block with 0x01\n");
	_ClrMemBlk(bno, 0x01);
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("Memory block read (offset = 2, 4 bytes)\n");
	_Ph("Read Data = 0x"); _Ph(_GetMemBlk(bno, 2, 4), 8); _Ph("\n");	//	
	_Print("\n");

	_Print("Set value(0x12345678) to memory block and read\n");
	_PutMemBlk(bno, 2, 4, 0x12345678);
	_DumpMemBlk(bno);
	_Ph("Read Data = 0x"); _Ph(_GetMemBlk(bno, 2, 4), 8); _Ph("\n");

	_MemFree(bno);								//	Memory block release

}
