#include "P89C60X2.h"
#include "hicj6.h"
#include "fm25040.h"

/* here is the instrution of x25045*/
#define WREN 0x06
#define WRDI 0x04
#define RDSR 0x05
#define WRSR 0x01
#define READ 0x03
#define WRITE 0x02
extern union hdd_long {BYTE Hdd_B[4];unsigned long Hdd_L;} Hdd_Str;

unsigned char Read8()
{
  bit bData;
  BYTE cLoop;
  BYTE cData;
  for(cLoop=0;cLoop<8;cLoop++)
  {
   SK=1;
   SK=0;
   SIO=1;
   bData=SIO;
   cData<<=1;
   if(bData)
    {
     cData|=0x01;
     }
   }
   return cData;
 }

void Write8(BYTE cData)
{
  BYTE cLoop;
  for(cLoop=0;cLoop<8;cLoop++)
  {
   if((cData&0x80)==0)    SIO=0;
    else  SIO=1;
   SK=0;
   SK=1;
   cData<<=1;
   }
   SIO=1;
}

BYTE ReadSR()
{
  BYTE cData;
  CS=0;
  Write8(RDSR);
  cData=Read8();
  CS=1;
  return cData;
}
 /*
BYTE WriteSR(BYTE cData)
{
  BYTE cTemp;
  cTemp=ReadSR();
  if((cTemp&0x01)==1)
  return 0;
  CS=0;
  Write8(WREN);
  CS=1;
  CS=0;
  Write8(WRSR);
  Write8(cData);
  CS=1;
  return 1;
}
   */

#ifdef Fm25040
BYTE Read1B(BYTE cAddress)
/* 讀入一個字節，cAddress為讀入地址 */
{
  BYTE cData,a;
  EA=0;
  while((ReadSR()&0x01)==1)
  {}
  CS=0;
  short_delay();
  if(cAddress<0x100)
    {
     a=READ;
    }
   else
    {
     a=READ|0x08;
     }
  Write8(a);
  a=cAddress;   
  Write8(a);
  cData=Read8();
  CS=1;
  EA=1;
  return cData;
}   
   
void Write1B(BYTE cData,WORD cAddress)
/* 寫入一個字節，cData為寫入的數，cAddress為寫入地址 */
{
  BYTE a;
  EA=0;
while((ReadSR()&0x01)==1)
  {}
  CS=0;
  short_delay();
  Write8(WREN);
  SK=0;
  CS=1;
  CS=0;
  if(cAddress<0x100)
  {
   a=WRITE;
  }
  else
  {
   a=WRITE|0x08;
  }
  Write8(a);
  a=cAddress;
  Write8(a);
  Write8(cData);
  SK=0;
  CS=1;
  EA=1;
}
#endif

#ifdef Fm25640
BYTE Read1B(BYTE cAddress)
/* 讀入一個字節，cAddress為讀入地址 */
{
  BYTE cData,a;
  EA=0;
  while((ReadSR()&0x01)==1)
  {}
  CS=0;
  short_delay();
  Write8(READ);
  a=cAddress>>8;   
  Write8(a);
  a=cAddress;
  Write8(a);
  cData=Read8();
  CS=1;
  EA=1;
  return cData;
}   
   
void Write1B(BYTE cData,WORD cAddress)
/* 寫入一個字節，cData為寫入的數，cAddress為寫入地址 */
{
  BYTE a;
  EA=0;
while((ReadSR()&0x01)==1)
  {}
  CS=0;
  short_delay();
  Write8(WREN);
  SK=0;
  CS=1;
  CS=0;

  Write8(WRITE);
  
  a=cAddress>>8;
  Write8(a);
  a=cAddress;
  Write8(a);
  Write8(cData);
  SK=0;
  CS=1;
  EA=1;
}

#endif

unsigned long Read_Hdd(unsigned char i)
{
 i<<=2;
 Hdd_Str.Hdd_B[0]=Read1B(i);
 Hdd_Str.Hdd_B[1]=Read1B(i+1);
 Hdd_Str.Hdd_B[2]=Read1B(i+2);
 Hdd_Str.Hdd_B[3]=Read1B(i+3);
 return Hdd_Str.Hdd_L;
 }
void Write_Hdd(unsigned char i)
{
 i<<=2;
 Write1B(Hdd_Str.Hdd_B[0],i);
 Write1B(Hdd_Str.Hdd_B[1],i+1);
 Write1B(Hdd_Str.Hdd_B[2],i+2);
 Write1B(Hdd_Str.Hdd_B[3],i+3);
 }