// Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
// e32test\misc\strataflash.cpp
// 
//

#include <e32def.h>
#include <e32def_private.h>
#include "flash.h"

class StrataFlash : public Flash
	{
public:
	virtual TInt Read(TUint32 anAddr, TUint32 aSize, TUint8* aDest);
	virtual TInt BlankCheck(TUint32 anAddr, TUint32 aSize);
	virtual TInt Erase(TUint32 anAddr, TUint32 aSize);
	virtual TInt Write(TUint32 anAddr, TUint32 aSize, const TUint8* aSrc);
	};


Flash* Flash::New(TUint32 /*anAddr*/)
	{
	return new StrataFlash;
	}

TInt StrataFlash::Read(TUint32 anAddr, TUint32 aSize, TUint8* aDest)
	{
	Mem::Copy(aDest,(const TUint8*)anAddr,aSize);
	return KErrNone;
	}

TInt StrataFlash::BlankCheck(TUint32 anAddr, TUint32 aSize)
	{
	const TUint8* p=(const TUint8*)anAddr;
	const TUint8* pE=p+aSize;
	while(p<pE)
		{
		if (*p++!=0xff)
			return (TUint32)p-anAddr;
		}
	return 0;
	}

TInt StrataFlash::Erase(TUint32 anAddr, TUint32 aSize)
	{
	TUint32 base=anAddr&~0x1ffff;	// round base address down to block
	TUint32 end=anAddr+aSize;
	end=(end+0x1ffff)&~0x1ffff;	// round end address up to block
	TUint32 size=end-base;
	for (; size; size-=0x20000, base+=0x20000)
		{
		volatile TUint8* p=(volatile TUint8*)base;
		*p=0x20;		// block erase
		*p=0xd0;		// block erase confirm
		TUint s=0;
		while ((s&0x80)==0)
			s=*p;
		*p=0x50;		// clear status reg
		*p=0xff;		// read mode
		if (s&0x20)
			{
			// error
			return (TUint32)p-anAddr+1;
			}
		}
	return 0;
	}

TInt StrataFlash::Write(TUint32 anAddr, TUint32 aSize, const TUint8* aSrc)
	{
	volatile TUint8* p=(volatile TUint8*)anAddr;
	const TUint8* pE=aSrc+aSize;
	for (; aSrc<pE; aSrc++, p++)
		{
		*p=0x40;		// byte write
		*p=*aSrc;		// write data
		TUint s=0;
		while ((s&0x80)==0)
			s=*p;
		*p=0x50;		// clear status reg
		*p=0xff;		// read mode
		if (s&0x10)
			{
			// error
			return (TUint32)p-anAddr+1;
			}
		}
	return 0;
	}