/*
extern?unsigned?char?ReadChar(unsigned?char?address);
extern?void?WriteChar(unsigned?char?address,unsigned?char?InData);
extern?void?ReadString(unsigned?char?data?*RamAddress,unsigned?char?RomAddress,
unsigned?char?Number);
extern?void?WriteString(unsigned?char?data?*RamAddress,unsigned?char?RomAddress,unsigned?char?Number);
*/

//?Write?enable?must?precede?all?programming?modes.
void?Ewen(void)?{
  unsigned?char?temp,InData;
  CS=0;?
  SK=0;
  CS=1;
   InData=0x98;?//?10011XXXX
   for(temp=9;temp!=0;temp--)?{?//?9
   DI=InData&0x80;
   SK=1;?SK=0;
   InData<<=1;
   }
  CS=0;
}

//?Disables?all?programming?instructions.
void?Ewds(void)?{
   unsigned?char?temp,InData;
   CS=0;
   SK=0;
   CS=1;
   InData=0x80;?//?10000XXXX
   for(temp=9;temp!=0;temp--)?{?//?9
   DI=InData&0x80;
   SK=1;?SK=0;
   InData<<=1;
   }
   CS=0;
}

// Reads?data?stored?in?memory,?at?specified?address.
unsigned?int?Read(unsigned?char?address)?{
  unsigned?char?temp;
  unsigned?int?result;
  Ewen();
  SK=0;?DI=1;?//?110?A5-A0
  CS=0;?CS=1;
  SK=1;?SK=0;???//?1
   address=address&0x3f|0x80;
   for(temp=8;temp!=0;temp--)?{?//?8
   DI=address&0x80;
   SK=1;?SK=0;
   address<<=1;
  }
  DO=1;
   for(temp=16;temp!=0;temp--)?{?//?16
   SK=1;
   result=(result<<1)|DO;
   SK=0;
   }
   CS=0;
  Ewds();
   return(result);
}

//?Writes?memory?location?An?-?A0.
void?Write(unsigned?char?address,unsigned?int?InData)?{
   unsigned?char?temp;
   Ewen();
  SK=0;?DI=1;?//?101?A5-A0
   CS=0;?CS=1;
   SK=1;?SK=0;???//?1
   address=address&0x3f|0x40;
   for(temp=8;temp!=0;temp--)?{?//?8
    DI=address&0x80;
    SK=1;?SK=0;
  address<<=1;
  }
  for(temp=16;temp!=0;temp--)?{?//?16
    DI=InData&0x8000;
    SK=1;?SK=0;
    InData<<=1;
   }
    CS=0;?DO=1;
    CS=1;?SK=1;
   while(DO==0)?{???//?busy?test
    SK=0;?SK=1;
   }
   SK=0;?CS=0;
   Ewds();
}

/*
//?Erase?memory?location?An?-?A0.
void?Erase(unsigned?char?address)?{
   unsigned?char?temp;
   Ewen();
   SK=0;?DI=1;?//?111?A5-A0
   CS=0;?CS=1;
   SK=1;?SK=0;???//?1
   address|=0xc0;
   for(temp=8;temp!=0;temp--)?{?//?8
   DI=address&0x80;
   SK=1;?SK=0;
   address<<=1;
   }
  CS=0;?DO=1;
   CS=1;?SK=1;
  while(DO==0)?{
   SK=0;?SK=1;
   }
   SK=0;?CS=0;
   Ewds();
}

//?Erases?all?memory?locations.?Valid?only?at?VCC?=?4.5V?to?5.5V.
void?Eral(void)?{
   unsigned?char?temp,InData;
    Ewen();
    CS=0;
    SK=0;
    CS=1;
   InData=0x90;?//?10010XXXX
   for(temp=9;temp!=0;temp--)?{?//?9
    DI=InData&0x80;
    SK=1;?SK=0;
     InData<<=1;
  }
   CS=0;?DO=1;
     CS=1;?SK=1;
    while(DO==0)?{
   SK=0;?SK=1;
  }
   SK=0;?CS=0;
   Ewds();
}

//?Writes?all?memory?locations.?Valid?only?at?VCC?=?4.5V?to?5.5V.
void?Wral(unsigned?int?InData)?{
   unsigned?char?temp,address;
   Ewen();
   CS=0;
   SK=0;
   CS=1;
   address=0x88;?//?10001XXXX
   for(temp=9;temp!=0;temp--)?{?//?9
    DI=address&0x80;
    SK=1;?SK=0;
    address<<=1;
   }
   for(temp=16;temp!=0;temp--)?{?//?16
   DI=InData&0x8000;
   SK=1;?SK=0;
   InData<<=1;
  }
   CS=0;?DO=1;
   CS=1;?SK=1;
   while(DO==0)?{
    SK=0;?SK=1;
   }
    SK=0;?CS=0;
   Ewds();
}

*/

unsigned?char?ReadChar(unsigned?char?address)?{
    unsigned?char?temp=address>>1;
    if(address&0x01)?return((unsigned?char)(Read(temp)>>8));
    else?return((unsigned?char)(Read(temp)));
}

void?WriteChar(unsigned?char?address,unsigned?char?InData)?{
   unsigned?char?temp=address>>1;
    if(address&0x01)?Write(temp,(unsigned?int)(Read(temp)&0x00ff|(InData<<8)));
    else?Write(temp,(unsigned?int)(Read(temp)&0xff00|InData));
}

void?ReadString(unsigned?char?data?*RamAddress,unsigned?char?RomAddress,unsigned?char?Number)?{
    while(Number!=0)?{
     *RamAddress=ReadChar(RomAddress);
     RamAddress++;
     RomAddress++;
    Number--;
  }
}

void?WriteString(unsigned?char?data?*RamAddress,unsigned?char?RomAddress,unsigned?char?Number)?{
    unsigned?int?temp;
   if(Number==0)?return;
  if(RomAddress&0x01)?{
    WriteChar(RomAddress,*RamAddress);
   RamAddress++;
   RomAddress++;
   Number--;
   }
   if(Number==0)?return;
  while(Number>>1)?{
   temp=*RamAddress;
   RamAddress++;
   temp=temp|(*RamAddress)<<8;
   RamAddress++;
   Write(RomAddress>>1,temp);
   RomAddress++;
   RomAddress++;
   Number--;
    Number--;
   }
   if(Number)?WriteChar(RomAddress,*RamAddress);