//	M050 : ubN
option unsigned;

define	fEnd	= _FALSE;

//------------------------------------------------------------------------------//
//	ubN																//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	define	bno;
	define	nArr[2];
	define	$Arr[2];

	_Cls();										//	ʃNA[

	bno = _MemAlloc(16);						//	ubN蓖

	_PrintF("<<< Little endian >>>\n\n");

	_Print("Put 8 Bytes , 0x0102030405060708\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 8, 0x0102030405060708);
	_PrintF("Get 8 Bytes = 0x%016X\n", _GetMemBlk(bno, 0, 8));
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("Put 4 Bytes , 0x01020304\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 4, 0x01020304);
	_PrintF("Get 4 Bytes = 0x%08X\n", _GetMemBlk(bno, 0, 4));
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("Put 2 Bytes , 0x0102\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 2, 0x0102);
	_PrintF("Get 2 Bytes = 0x%04X\n", _GetMemBlk(bno, 0, 2));
	_DumpMemBlk(bno);
	_Print("\n");


	_PrintF("<<< Big endian >>>\n\n");

	_Print("Put 8 Bytes , 0x0102030405060708\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 8, 0x0102030405060708, _TRUE);
	_PrintF("Get 8 Bytes = 0x%016X\n", _GetMemBlk(bno, 0, 8, _TRUE));
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("Put 4 Bytes , 0x01020304\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 4, 0x01020304, _TRUE);
	_PrintF("Get 4 Bytes = 0x%08X\n", _GetMemBlk(bno, 0, 4, _TRUE));
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("Put 2 Bytes , 0x0102\n");
	_ClrMemBlk(bno, 0xFF);
	_PutMemBlk(bno, 0, 2, 0x0102, _TRUE);
	_PrintF("Get 2 Bytes = 0x%04X\n", _GetMemBlk(bno, 0, 2, _TRUE));
	_DumpMemBlk(bno);
	_Print("\n");

	_Print("<<< Clear All 0x78 >>>\n");
	_ClrMemBlk(bno, 0x78);
	_DumpMemBlk(bno);
	_Print("\n");

	_MemFree(bno);								//	ubN
}
