/**
* \file progEEPROM.c
* algorithms to program various EEPROM types
* Copyright (C) 2009-2022 Alberto Maccioni
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
* or see <http://www.gnu.org/licenses/>
*/
#include "common.h"
void ReadI2C(int dim,int addr)
// read I2C memories
// dim=size in bytes
// addr:
// [3:0] =0: 1 byte address =1: 2 byte address
// [7:4] A2:A0 value
// [11:8] 17th address bit location (added to control byte)
{
int k=0,z=0,i,j;
int AX=(addr>>4)&7;
int addr17=(addr>>8)&0xF;
addr&=1;
if(dim>0x30000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"ReadI2C(%d,%d) (0x%X,0x%X)\n",dim,addr,dim,addr);
}
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
hvreg=0;
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=I2C_INIT;
bufferU[j++]=AX; //100k
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
//****************** read ********************
PrintMessage(strings[S_ReadEE]); //read EEPROM ...
PrintStatusSetup();
int inc;
for(i=0,j=0;i<dim;i+=inc){
if(i<0x10000&&i>0x10000-(DIMBUF-4)) inc=0x10000-i; //do not cross 64KB boundary
else inc=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
if(!addr){ //1 byte address
bufferU[j++]=I2C_READ;
bufferU[j++]=inc;
bufferU[j++]=0xA0+((i>>7)&0x0E);
bufferU[j++]=i&0xFF;
}
else{ //2 byte address
bufferU[j++]=I2C_READ2;
bufferU[j++]=inc;
bufferU[j++]=0xA0+(i>0xFFFF?addr17:0); //17th bit if>64K
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=i&0xFF;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(8);
for(j=0;j<DIMBUF-1&&bufferI[j]!=I2C_READ&&bufferI[j]!=I2C_READ2;j++);
if(j<DIMBUF-1&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++) memEE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim),i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
else PrintMessage(strings[S_Compl]);
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC; //0
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
void WriteI2C(int dim,int addr,int page)
// write I2C memories
// dim=size in bytes
// addr:
// [3:0] =0: 1 byte address =1: 2 byte address
// [7:4] A2:A0 value
// [11:8] 17th address bit location (added to control byte)
// page=page size
{
int k=0,z=0,i,j;
int err=0;
int AX=(addr>>4)&7;
int addr17=(addr>>8)&0xF;
addr&=1;
hvreg=0;
if(dim>0x30000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"WriteI2C(%d,%d,%d) (0x%X,0x%X)\n",dim,addr,page,dim,addr);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=I2C_INIT;
bufferU[j++]=AX; //100k
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
PrintStatusSetup();
for(;page>=DIMBUF-6;page>>=1);
for(i=0,j=0;i<dim;i+=page){
bufferU[j++]=I2C_WRITE;
if(!addr){ //1 byte address
bufferU[j++]=page;
bufferU[j++]=0xA0+((i>>7)&0x0E);
bufferU[j++]=i&0xFF;
}
else{ //2 byte address
bufferU[j++]=page+1;
bufferU[j++]=0xA0+(i>0xFFFF?addr17:0); //17th bit if>64K
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=i&0xFF;
}
for(k=0;k<page;k++) bufferU[j++]=memEE[i+k];
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(3);
for(j=0;j<DIMBUF-1&&bufferI[j]!=I2C_WRITE;j++);
if(bufferI[j]!=I2C_WRITE||bufferI[j+1]>=0xFA) i=dim+10;
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
}
bufferU[j++]=I2C_WRITE;
bufferU[j++]=0;
bufferU[j++]=0xA0; //ACK polling
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
int ack=0xFD;
for(j=0;ack==0xFD&&j<20;j++){ //ACK polling until write complete
PacketIO(2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=I2C_WRITE;j++);
if(bufferI[j]!=I2C_WRITE||bufferI[j+1]>=0xFA) ack=0xFD;
else ack=bufferI[j+1];
}
j=0;
}
PrintStatusEnd();
PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
k=0;
int inc;
for(i=0,j=0;i<dim;i+=inc){
if(i<0x10000&&i>0x10000-(DIMBUF-4)) inc=0x10000-i; //do not cross 64KB boundary
else inc=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
if(!addr){ //1 byte address
bufferU[j++]=I2C_READ;
bufferU[j++]=inc;
bufferU[j++]=0xA0+((i>>7)&0x0E);
bufferU[j++]=i&0xFF;
}
else{ //2 byte address
bufferU[j++]=I2C_READ2;
bufferU[j++]=inc;
bufferU[j++]=0xA0+(i>0xFFFF?addr17:0); //17th bit if>64K
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=i&0xFF;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(8);
for(j=0;j<DIMBUF-1&&bufferI[j]!=I2C_READ&&bufferI[j]!=I2C_READ2;j++);
if((bufferI[j]==I2C_READ||bufferI[j]==I2C_READ2)&&bufferI[j+1]<0xFA){
for(z=j+2;z<(j+2+bufferI[j+1])&&z<DIMBUF;z++){
if(memEE[k++]!=bufferI[z]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],i+z-3,i+z-3,memEE[k-1],bufferI[z]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
}
}
PrintStatus(strings[S_CodeV2],i*100/(dim),i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
#define PRE 0x08 //RB3
#define S 0x10 //RB4
#define W 0x20 //RB5
#define ORG 0x20 //RB5
void Read93x(int dim,int na,int options)
// read 93Sx6 uW memories
// dim=size in bytes
// na=address bits
// options=0: x16 organization =1: x8 organization
{
int k=0,z=0,i,j,x8;
hvreg=0;
if(dim>0x3000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(na>13) na=13;
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Read93x(%d,%d,%d) (0x%X,0x%X)\n",dim,na,options,dim,na);
}
x8=options&1;
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=uW_INIT;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=EXT_PORT;
bufferU[j++]=x8?S:S+ORG;
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
//****************** read ********************
PrintMessage(strings[S_ReadEE]); //read EEPROM ...
PrintStatusSetup();
int dim2=x8?dim:dim/2;
for(i=0;i<dim2;){
for(j=0;j<DIMBUF-14&&i<dim2;){
bufferU[j++]=uWTX;
bufferU[j++]=na+3; //READ
bufferU[j++]=0xC0+((i>>(na-5))&0x1F); //110aaaaa aaax0000
bufferU[j++]=(i<<(13-na))&0xFF;
bufferU[j++]=uWRX;
bufferU[j++]=x8?8:16;
bufferU[j++]=EXT_PORT;
bufferU[j++]=x8?0:ORG;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=x8?S:S+ORG;
bufferU[j++]=0;
i++;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
for(z=0;z<DIMBUF-3;z++){
for(;bufferI[z]!=uWRX&&z<DIMBUF-3;z++);
if(bufferI[z]==uWRX){
if(x8) memEE[k++]=bufferI[z+2];
else{
memEE[k+1]=bufferI[z+2];
memEE[k]=bufferI[z+3];
k+=2;
}
z+=3;
}
}
PrintStatus(strings[S_CodeReading2],i*100/dim2,i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
else PrintMessage(strings[S_Compl]);
//****************** exit ********************
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC; //0
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
void Write93Sx(int dim,int na,int page)
// write 93Sx6 uW memories
// dim=size in bytes
// na=address bits
// page=page size (bytes)
// automatic write delay
{
int k=0,z=0,i,j;
int err=0;
hvreg=0;
if(dim>0x1000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(na>13) na=13;
if(page>48) page=48;
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Write93Sx(%d,%d,%d) (0x%X,0x%X)\n",dim,na,page,dim,na);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=uW_INIT;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0x98; //100 11xxx write enable
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=W;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0x98; //100 11xxx Prot. reg. enable
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=W+PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0xFF; //111 11111111 Prot. reg. clear
bufferU[j++]=0xF0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=W+PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0x98; //100 11xxx write enable
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=W;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0xC0; //110 xxxxx Prot. reg. read
bufferU[j++]=0;
bufferU[j++]=uWRX;
bufferU[j++]=10;
bufferU[j++]=EXT_PORT;
bufferU[j++]=W+PRE;
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
PrintStatusSetup();
int addr=0;
for(i=0,j=0;i<dim;i+=page,addr+=(0x10000>>na)*page/2){
bufferU[j++]=EXT_PORT;
bufferU[j++]=W; //make sure to start with S=0
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=3;
bufferU[j++]=0xE0; //111aaaaa aaa(a) D page write
bufferU[j++]=uWTX;
bufferU[j++]=na;
bufferU[j++]=addr>>8;
if(na>8) bufferU[j++]=addr&0xFF;
bufferU[j++]=uWTX;
bufferU[j++]=8*page;
for(k=0;k<page;k+=2){
bufferU[j++]=memEE[i+k+1];
bufferU[j++]=memEE[i+k];
}
bufferU[j++]=EXT_PORT;
bufferU[j++]=W;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S+W; //S=1 to check status
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
j=0;
for(j=0;j<DIMBUF-1&&bufferI[j]!=uWTX;j++);
if(bufferI[j]!=uWTX||bufferI[j+1]>=0xFA) i=dim+10;
bufferU[j++]=uWRX;
bufferU[j++]=1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
for(z=0,k=0;z<30&&!k;z++){ //Wait until ready
PacketIO(2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=uWRX;j++);
if(bufferI[j]==uWRX) k=bufferI[j+2];
}
j=0;
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
}
}
PrintStatusEnd();
PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
j=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=S;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3; //READ (16bit)
bufferU[j++]=0xC0; //110aaaaa aaax0000
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
k=0;
int n=(DIMBUF-2);
if(n>30) n=30; //max 240 bit = 30 Byte
for(i=0,j=0;i<dim;i+=n){
bufferU[j++]=uWRX;
bufferU[j++]=i<(dim-n)?n*8:(dim-i)*8;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
for(j=0;bufferI[j]!=uWRX&&j<DIMBUF-1;j++);
if(bufferI[j]==uWRX){
for(z=j+2;z<j+2+bufferI[j+1]/8&&z<DIMBUF;z+=2,k+=2){
if(memEE[k+1]!=bufferI[z]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],i+z-3,i+z-3,memEE[k+1],bufferI[z]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
if(memEE[k]!=bufferI[z+1]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],i+z-3,i+z-3,memEE[k],bufferI[z+1]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
}
}
PrintStatus(strings[S_CodeV2],i*100/(dim),i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
void Write93Cx(int dim,int na, int options)
// write 93Cx6 uW memories
// dim=size in bytes
// na=address bits
// options=0: x16 organization =1: x8 organization
{
int k=0,z=0,i,j;
int err=0;
hvreg=0;
if(dim>0x1000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(na>13) na=13;
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Write93Cx(%d,%d,%d) (0x%X,0x%X)\n",dim,na,options,dim,na);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=uW_INIT;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0x98; //100 11xxx EWEN
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG+PRE:PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=na+3;
bufferU[j++]=0x90; //100 10xxx ERAL
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG+PRE:PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=uWRX;
bufferU[j++]=1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
j=0;
bufferU[j++]=uWRX;
bufferU[j++]=1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
for(i=0,k=0;i<30&&!k;i++){ //Wait until ready
PacketIO(2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=uWRX;j++);
if(bufferI[j]==uWRX) k=bufferI[j+2];
}
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
PrintStatusSetup();
int addr=0;
j=0;
for(i=0;i<dim;i+=options==0?2:1,addr+=0x10000>>na){
if(memEE[i]<0xFF||(options==0&&memEE[i+1]<0xFF)){
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG+PRE:PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=uWTX;
bufferU[j++]=3;
bufferU[j++]=0xA0; //101aaaaa aaa(a) write
bufferU[j++]=uWTX;
bufferU[j++]=na;
bufferU[j++]=addr>>8;
if(na>8) bufferU[j++]=addr&0xFF;
bufferU[j++]=uWTX;
if(options==0){ //x16
bufferU[j++]=16;
bufferU[j++]=memEE[i+1];
bufferU[j++]=memEE[i];
}
else{ //x8
bufferU[j++]=8;
bufferU[j++]=memEE[i];
}
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG+PRE:PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=uWRX;
bufferU[j++]=1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
}
bufferU[j++]=uWRX;
bufferU[j++]=1;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
for(z=0,k=0;z<30&&!k;z++){ //Wait until ready
PacketIO(2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=uWRX;j++);
if(bufferI[j]==uWRX) k=bufferI[j+2];
}
j=0;
}
}
msDelay(2);
PrintStatusEnd();
if(i!=dim){
PrintMessage2(strings[S_CodeWError4],i,dim); //"Error writing code area, requested %d bytes, read %d\r\n"
}
else PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
j=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG+PRE:PRE;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG+PRE:S+PRE;
bufferU[j++]=0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
k=0;
int dim2=options==0?dim/2:dim;
for(i=0;i<dim2;){
for(j=0;j<DIMBUF-14&&i<dim2;){
bufferU[j++]=uWTX;
bufferU[j++]=na+3; //READ
bufferU[j++]=0xC0+((i>>(na-5))&0x1F); //110aaaaa aaax0000
bufferU[j++]=(i<<(13-na))&0xFF;
bufferU[j++]=uWRX;
bufferU[j++]=options==0?16:8;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?ORG:0;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT;
bufferU[j++]=options==0?S+ORG:S;
bufferU[j++]=0;
i++;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
for(z=0;z<DIMBUF-3;z++){
for(;bufferI[z]!=uWRX&&z<DIMBUF-3;z++);
if(bufferI[z]==uWRX){
if(options==1){ //x8
if(memEE[k]!=bufferI[z+2]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],k,k,memEE[k],bufferI[z+2]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
k++;
}
else{ //x16
if(memEE[k]!=bufferI[z+3]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],k,k,memEE[k],bufferI[z+3]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
if(memEE[k+1]!=bufferI[z+2]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],k+1,k+1,memEE[k+1],bufferI[z+2]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
k+=2;
}
z+=3;
}
}
PrintStatus(strings[S_CodeV2],i*100/dim2,i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
#define CS 8
#define HLD 16 //Hold
#define WP 0x40 //Write protect
void Read25xx(int dim)
// read 25xx SPI memories
// dim=size in bytes
{
int k=0,z=0,i,j,ID;
hvreg=0;
if(dim>0x1000000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Read25xx(%d) (0x%X)\n",dim,dim);
}
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=SPI_INIT;
bufferU[j++]=3; //0=100k, 1=200k, 2=300k, 3=500k (in reality 200k)
// bufferU[j++]=SET_T1T2;
// bufferU[j++]=2; //force T=28us -> 286 kbps
// bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=0
bufferU[j++]=CS+HLD;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //READ ID
bufferU[j++]=1;
bufferU[j++]=0x9F;
bufferU[j++]=SPI_READ;
bufferU[j++]=3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=0
bufferU[j++]=CS+HLD;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //Read
if(dim>0x10000){ //24 bit address
bufferU[j++]=4;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=0;
}
else if(dim>0x200){ //16 bit address
bufferU[j++]=3;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
}
else{ //8 bit address
bufferU[j++]=2;
bufferU[j++]=3;
bufferU[j++]=0;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
for(z=0;z<DIMBUF-4&&bufferI[z]!=SPI_READ;z++);
ID=(bufferI[z+2]<<16)+(bufferI[z+3]<<8)+bufferI[z+4];
if(ID>0&&ID!=0xFFFFFF) PrintMessage1("DEVICE ID=0x%06X\r\n",ID);
//****************** read ********************
PrintMessage(strings[S_ReadEE]); //read EEPROM ...
PrintStatusSetup();
for(i=0,j=0;i<dim;i+=DIMBUF-4){
bufferU[j++]=SPI_READ;
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(4);
for(j=0;j<DIMBUF-1&&bufferI[j]!=SPI_READ;j++);
if(bufferI[j]==SPI_READ&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++) memEE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim),i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
else PrintMessage(strings[S_Compl]);
//****************** exit ********************
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC; //0
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
/*void Read25xxFast(int dim)
// read 25xx SPI memories
// dim=size in bytes
{
int k=0,z=0,i,j,ID;
hvreg=0;
if(dim>0x1000000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Read25xxF(%d) (0x%X)\n",dim,dim);
}
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=SPI_INIT;
bufferU[j++]=3; //0=100k, 1=200k, 2=300k, 3=500k (in reality 200k)
// bufferU[j++]=SET_T1T2;
// bufferU[j++]=2; //force T=28us -> 286 kbps
// bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=0
bufferU[j++]=CS+HLD;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ ID
bufferU[j++]=1;
bufferU[j++]=0x9F;
bufferU[j++]=SPI_READ;
bufferU[j++]=3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //Read
if(dim>0x10000){ //24 bit address
bufferU[j++]=4;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=0;
}
else if(dim>0x200){ //16 bit address
bufferU[j++]=3;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
}
else{ //8 bit address
bufferU[j++]=2;
bufferU[j++]=3;
bufferU[j++]=0;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
for(z=0;z<DIMBUF-4&&bufferI[z]!=SPI_READ;z++);
ID=(bufferI[z+2]<<16)+(bufferI[z+3]<<8)+bufferI[z+4];
if(ID>0&&ID!=0xFFFFFF) PrintMessage1("DEVICE ID=0x%06X\r\n",ID);
//****************** read ********************
PrintMessage(strings[S_ReadEE]); //read EEPROM ...
PrintStatusSetup();
#define rSize (DIMBUF-5-2)
#define npack 255
j=0;
bufferU[j++]=0xF6;
bufferU[j++]=npack;
bufferU[j++]=SPI_READ;
bufferU[j++]=rSize;
bufferU[j++]=0xF7;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
for(i=0;i<dim;i+=rSize*npack){
#define TIMEOUT 50
ULONG Result;
__int64 start,stop,freq,timeout;
QueryPerformanceCounter((LARGE_INTEGER *)&start);
QueryPerformanceFrequency((LARGE_INTEGER *)&freq);
//write
Result = WriteFile(WriteHandle,bufferU0,DIMBUF+1,&BytesWritten,NULL);
// QueryPerformanceCounter((LARGE_INTEGER *)&stop);
// timeout=stop+delay*freq/1000.0;
// while(stop<timeout) QueryPerformanceCounter((LARGE_INTEGER *)&stop);
//read
fprintf(logfile,"bufferU=[");
for(int i=0;i<DIMBUF;i++){
if(i%32==0) fprintf(logfile,"\n");
fprintf(logfile,"%02X ",bufferU[i]);
}
fprintf(logfile,"]\n");
for(int r=0;r<npack;r++){
Result = ReadFile(ReadHandle,bufferI0,DIMBUF+1,&NumberOfBytesRead,(LPOVERLAPPED) &HIDOverlapped);
Result = WaitForSingleObject(hEventObject,TIMEOUT);
// if(saveLog&&logfile) WriteLogIO();
fprintf(logfile,"bufferI=[");
for(int i=0;i<DIMBUF;i++){
if(i%32==0) fprintf(logfile,"\n");
fprintf(logfile,"%02X ",bufferI[i]);
}
fprintf(logfile,"]\n");
ResetEvent(hEventObject);
if(Result!=WAIT_OBJECT_0){
PrintMessage(strings[S_comTimeout]); //"comm timeout\r\n"
if(saveLog&&logfile) fprintf(logfile,strings[S_comTimeout]);
}
QueryPerformanceCounter((LARGE_INTEGER *)&stop);
if(saveLog&&logfile) fprintf(logfile,"T=%.2f ms (%+.2f ms)\n",(stop-start)*1000.0/freq,(stop-start)*1000.0/freq);
QueryPerformanceCounter((LARGE_INTEGER *)&start);
for(j=0;j<DIMBUF-1&&bufferI[j]!=SPI_READ;j++);
if(bufferI[j]==SPI_READ&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF&&k<dim;z++) memEE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim),i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
else PrintMessage(strings[S_Compl]);
//****************** exit ********************
bufferU[j++]=EXT_PORT;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=EN_VPP_VCC; //0
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
*/
void Write25xx(int dim,int options)
// write SPI memories
// dim=size in bytes
// options:
// [11:0]=page size
// [12]=erase before write
// [13]=use status register 2
// automatic write delay
{
int k=0,z=0,i,j,ID;
int err=0;
hvreg=0;
int page=options&0xFFF;
if(dim>0x1000000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Write25xx(%d,%d) (0x%X,0x%X)\n",dim,options,dim,options);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=SPI_INIT;
bufferU[j++]=3; //0=100k, 1=200k, 2=300k, 3=500k
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=0
bufferU[j++]=CS+HLD;
bufferU[j++]=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //READ ID
bufferU[j++]=1;
bufferU[j++]=0x9F;
bufferU[j++]=SPI_READ;
bufferU[j++]=3;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
if(options&0x2000){
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS2
bufferU[j++]=1;
bufferU[j++]=0x35;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
j=0;
for(z=0;z<DIMBUF-4&&bufferI[z]!=SPI_READ;z++);
ID=(bufferI[z+2]<<16)+(bufferI[z+3]<<8)+bufferI[z+4];
if(ID>0&&ID!=0xFFFFFF){
PrintMessage1("DEVICE ID=0x%06X\r\n",ID);
if(saveLog) fprintf(logfile,"DEVICE ID=0x%06X\n",ID);
}
msDelay(10); //wait power-up timer in some devices
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //WRITE ENABLE
bufferU[j++]=1;
bufferU[j++]=6;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
if(options&0x2000){ //status 1+2
bufferU[j++]=SPI_WRITE; //WRITE STATUS
bufferU[j++]=3;
bufferU[j++]=1;
bufferU[j++]=0;
bufferU[j++]=0;
}
else{
bufferU[j++]=SPI_WRITE; //WRITE STATUS
bufferU[j++]=2;
bufferU[j++]=1;
bufferU[j++]=0;
}
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
j=0;
if(options&0x1000){ //erase before write
PrintMessage(strings[S_StartErase]); //"Erasing ... "
if(saveLog) fprintf(logfile,"%s\n",strings[S_StartErase]); //"Erasing ... "
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
if(options&0x2000){
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS2
bufferU[j++]=1;
bufferU[j++]=0x35;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
}
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //WRITE ENABLE
bufferU[j++]=1;
bufferU[j++]=6;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //CHIP ERASE
bufferU[j++]=1;
bufferU[j++]=0xC7;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
j=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
int pp;
for(pp=1,j=0;pp&&j<400;j++){ //wait for erase completion max 40s
PacketIO(2);
msDelay(100);
for(z=0;z<DIMBUF-1&&bufferI[z]!=SPI_READ;z++);
pp=bufferI[z+2]&1; //WIP bit
PrintStatus(strings[S_StartErase],0,0); //"Erasing ... " Also allows the gui loop to run
}
if(saveLog) fprintf(logfile,"Erase time %d ms\n",j*100);
PrintMessage(strings[S_Compl]); //"completed"
PrintStatus(strings[S_Compl],0,0); //"completed"
// msDelay(100);
}
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
if(saveLog) fprintf(logfile,"%s\n",strings[S_EEAreaW]); //"Write EEPROM ... "
int pp;
for(i=0,j=0;i<dim;i+=page){
if(options&0x1000){ //if chip erase skip empty pages
for(k=page;k==page&&i<dim-page;){
for(k=0;k<page;k++){ if(memEE[i+k]<0xFF) k=page;}
if(k==page) i+=page;
}
}
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //WRITE ENABLE
bufferU[j++]=1;
bufferU[j++]=6;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //WRITE
if(dim>0x10000){ //24 bit address
bufferU[j++]=4;
bufferU[j++]=2;
bufferU[j++]=i>>16;
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=i&0xFF;
}
else if(dim>0x200){ //16 bit address
bufferU[j++]=3;
bufferU[j++]=2;
bufferU[j++]=i>>8;
bufferU[j++]=i&0xFF;
}
else{ //8 bit address
bufferU[j++]=2;
bufferU[j++]=2+(i&0x100?8:0);
bufferU[j++]=i&0xFF;
}
pp=page<DIMBUF-j-4?page:DIMBUF-j-4;
for(k=0;k<page;){
bufferU[j++]=SPI_WRITE;
bufferU[j++]=pp;
for(;k<page&&pp;k++,pp--) bufferU[j++]=memEE[i+k];
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
for(z=0;z<DIMBUF-1&&bufferI[z]!=SPI_WRITE;z++);
if(bufferI[z+1]>=0xFA) k=i=dim+10;
pp=(page-k)<DIMBUF-4?page-k:DIMBUF-4;
j=0;
}
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
j=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=1
bufferU[j++]=HLD;
bufferU[j++]=WP;
bufferU[j++]=SPI_WRITE; //READ STATUS
bufferU[j++]=1;
bufferU[j++]=5;
bufferU[j++]=SPI_READ;
bufferU[j++]=1;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
for(pp=1,j=0;pp&&j<50;j++){ //wait for write completion
PacketIO(2);
for(z=0;z<DIMBUF-1&&bufferI[z]!=SPI_READ;z++);
pp=bufferI[z+2]&1; //WIP bit
}
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,0,0); //"i=%d(0x%X), k=%d(0x%X)\n"
}
}
PrintStatusEnd();
PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
if(saveLog) fprintf(logfile,"%s\n",strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
j=0;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //Read
if(dim>0x10000){ //24 bit address
bufferU[j++]=4;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
bufferU[j++]=0;
}
else if(dim>0x200){ //16 bit address
bufferU[j++]=3;
bufferU[j++]=3;
bufferU[j++]=0;
bufferU[j++]=0;
}
else{ //8 bit address
bufferU[j++]=2;
bufferU[j++]=3;
bufferU[j++]=0;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
int i0,k2,valid;
k=0;
for(i=0,j=0;i<dim;i+=DIMBUF-4){
if(options&0x1000){ //skip empty space if erase before write
i0=i;
for(valid=0;!valid&&i<dim;i+=valid?0:DIMBUF-4){ //skip verification if 0xFF
for(k2=0;k2<DIMBUF-4&&!valid&&i+k2<dim;k2++) if(memEE[i+k2]<0xFF) valid=1;
}
if(i>=dim) break;
if(i>i0){ //some data was skipped; update current address
j=0;
bufferU[j++]=EXT_PORT; //CS=1, HLD=1, WP=1
bufferU[j++]=CS+HLD;
bufferU[j++]=WP;
bufferU[j++]=EXT_PORT; //CS=0, HLD=1, WP=0
bufferU[j++]=HLD;
bufferU[j++]=0;
bufferU[j++]=SPI_WRITE; //Read
if(dim>0x10000){ //24 bit address
bufferU[j++]=4;
bufferU[j++]=3;
bufferU[j++]=i>>16;
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=i&0xFF;
}
else if(dim>0x200){ //16 bit address
bufferU[j++]=3;
bufferU[j++]=3;
bufferU[j++]=i>>8;
bufferU[j++]=i&0xFF;
}
else{ //8 bit address
bufferU[j++]=2;
bufferU[j++]=3+(i&0x100?8:0);
bufferU[j++]=i&0xFF;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
j=0;
}
}
bufferU[j++]=SPI_READ;
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(4);
for(j=0;j<DIMBUF-1&&bufferI[j]!=SPI_READ;j++);
if(bufferI[j]==SPI_READ&&bufferI[j+1]<0xFA){
for(z=0;z<bufferI[j+1]&&z<DIMBUF;z++){
if(memEE[i+z]!=bufferI[z+j+2]){
PrintMessage4(strings[S_CodeVError],i+z,i+z,memEE[i+z],bufferI[z+3]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
}
}
PrintStatus(strings[S_CodeV2],i*100/(dim),i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(i<dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,i); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
struct ID_OW{
int id;
char *device;
} OW_LIST[]={
{0x10,"DS1820\r\n"},
{0x14,"DS2430\r\n"},
{0x23,"DS2433\r\n"},
{0x28,"DS18B20\r\n"},
{0x2D,"DS2431\r\n"},
{0x43,"DS28EC20\r\n"},
};
static bool OW_ID(int id)
{
char s[64];
int i;
for(i=0;i<sizeof(OW_LIST)/sizeof(OW_LIST[0]);i++){
if(id==OW_LIST[i].id){
sprintf(s,OW_LIST[i].device,id);
PrintMessage(s);
return true;
}
}
PrintMessage(strings[S_nodev]); //"Unknown device\r\n");
return false;
}
#define READ_ROM 0x33
#define MATCH_ROM 0x55
#define SKIP_ROM 0xCC
#define SEARCH_ROM 0xF0
#define WRITE_SCRATCHPAD 0x0F
#define READ_SCRATCHPAD 0xAA
#define COPY_SCRATCHPAD 0x55
#define READ_MEMORY 0xF0
#define WRITE_APP_REGISTER 0x99
#define READ_STAT_REGISTER 0x66
#define READ_APP_REGISTER 0xC3
#define COPY_LOCK_APP_REGISTER 0x5A
void ReadOneWireMem(int dim,int options)
// read OneWire memories
// dim=size in bytes
// options:
// 1=status register + application register
// 2=protection bytes + ID after memory area
{
int k=0,z=0,i,j;
hvreg=0;
if(FWVersion<0x800){
PrintMessage1(strings[S_FWver2old],"0.8.0"); //"This firmware is too old. Version %s is required\r\n"
return;
}
if(dim>0x10000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"ReadOneWireMem(%d) (0x%X)\n",dim,dim);
}
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=uW_INIT; //set RB1=0 to use as GND terminal beside RB0
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=1;
bufferU[j++]=READ_ROM;
bufferU[j++]=OW_READ;
bufferU[j++]=8;
if(dim<=32){ //1 byte address
bufferU[j++]=OW_WRITE;
bufferU[j++]=2;
bufferU[j++]=READ_MEMORY;
bufferU[j++]=0; //address
}
else{ //2 byte address
bufferU[j++]=OW_WRITE;
bufferU[j++]=3;
bufferU[j++]=READ_MEMORY;
bufferU[j++]=0; //address
bufferU[j++]=0; //address
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(12);
j=0;
for(z=0;bufferI[z]!=OW_RESET&&z<DIMBUF;z++);
if(bufferI[z]==OW_RESET&&bufferI[z+1]==0){ //no presence pulse
PrintMessage(strings[S_ComErr]); //communication error
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
return;
}
for(;bufferI[z]!=OW_READ&&z<DIMBUF;z++);
if(bufferI[z]==OW_READ&&z<DIMBUF-9){
PrintMessage1("Family code: 0x%02X ",bufferI[z+2]);
OW_ID(bufferI[z+2]);
PrintMessage3("Serial ID: 0x%02X%02X%02X",bufferI[z+3],bufferI[z+4],bufferI[z+5]);
PrintMessage3("%02X%02X%02X",bufferI[z+6],bufferI[z+7],bufferI[z+8]);
PrintMessage1("\r\nCRC: 0x%02X\r\n",bufferI[z+9]);
}
//****************** read ********************
PrintStatusSetup();
for(i=0,j=0;i<dim;i+=DIMBUF-4){
bufferU[j++]=OW_READ;
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(37);
for(j=0;bufferI[j]!=OW_READ&&j<DIMBUF;j++);
if(bufferI[j]==OW_READ&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++) memEE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim),i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
if(options==1){ //read status register + application register
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=3;
bufferU[j++]=SKIP_ROM;
bufferU[j++]=READ_STAT_REGISTER;
bufferU[j++]=0;
bufferU[j++]=OW_READ;
bufferU[j++]=1;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=3;
bufferU[j++]=SKIP_ROM;
bufferU[j++]=READ_APP_REGISTER;
bufferU[j++]=0;
bufferU[j++]=OW_READ;
bufferU[j++]=8;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(15);
j=0;
for(z=0;bufferI[z]!=OW_READ&&z<DIMBUF-2;z++);
if(z<DIMBUF-2) PrintMessage1("Status register: 0x%02X\r\n",bufferI[z+2]);
for(z+=2;bufferI[z]!=OW_READ&&z<DIMBUF-10;z++);
PrintMessage("Application register: 0x");
for(i=z+2;i<z+10&&i<DIMBUF;i++) PrintMessage1("%02X",bufferI[i]);
PrintMessage("\r\n");
}
else if(options==2){ //read protection & ID bytes
bufferU[j++]=OW_READ;
if(dim==0xA00) bufferU[j++]=0x24;
else bufferU[j++]=8;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(25);
j=0;
for(z=0;bufferI[z]!=OW_READ&&z<DIMBUF-2;z++);
if(bufferI[z]==OW_READ&&bufferI[z+1]<0xFA){
if(dim==0xA00){
for(i=0;i<10;i++) PrintMessage2("Protection Control Byte Block %d: 0x%02X\r\n",i,bufferI[z+2+i]);
PrintMessage("User EEPROM:\r\n");
for(i=0;i<10;i++) PrintMessage1("%02X",bufferI[z+2+i+10]);
PrintMessage("\r\n");
for(i=0;i<10;i++) PrintMessage1("%02X",bufferI[z+2+i+20]);
PrintMessage1("\r\nMemory Block Lock: 0x%02X\r\n",bufferI[z+2+30]);
PrintMessage1("Register Page Lock: 0x%02X\r\n",bufferI[z+2+31]);
PrintMessage1("Factory Byte: 0x%02X\r\n",bufferI[z+2+32]);
PrintMessage2("Factory Trim Bytes: 0x%02X%02X\r\n",bufferI[z+2+33],bufferI[z+2+34]);
PrintMessage2("Manufacturer ID: 0x%02X%02X\r\n",bufferI[z+2+35],bufferI[z+2+36]);
}
else{
PrintMessage1("Protection Control Byte Page 0: 0x%02X\r\n",bufferI[z+2]);
PrintMessage1("Protection Control Byte Page 1: 0x%02X\r\n",bufferI[z+2+1]);
PrintMessage1("Protection Control Byte Page 2: 0x%02X\r\n",bufferI[z+2+2]);
PrintMessage1("Protection Control Byte Page 3: 0x%02X\r\n",bufferI[z+2+3]);
PrintMessage1("Copy Protection Byte: 0x%02X\r\n",bufferI[z+2+4]);
PrintMessage1("Factory Byte: 0x%02X\r\n",bufferI[z+2+5]);
PrintMessage2("User Bytes/Manufacturer ID: 0x%02X%02X\r\n",bufferI[z+2+6],bufferI[z+2+7]);
}
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
void WriteOneWireMem(int dim,int options)
// write OneWire memories
// dim=size in bytes
// options:
// 0 = 8 byte scratchpad
// 1 = 32 byte scratchpad
{
int k=0,z=0,i,j;
int err=0;
hvreg=0;
if(FWVersion<0x800){
PrintMessage1(strings[S_FWver2old],"0.8.0"); //"This firmware is too old. Version %s is required\r\n"
return;
}
if(dim>0x10000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"WriteOneWireMem(%d,%d) (0x%X,0x%X)\n",dim,options,dim,options);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=uW_INIT; //set RB1=0 to use as GND terminal beside RB0
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=1;
bufferU[j++]=READ_ROM;
bufferU[j++]=OW_READ;
bufferU[j++]=8;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(12);
j=0;
for(z=0;bufferI[z]!=OW_RESET&&z<DIMBUF;z++);
if(bufferI[z]==OW_RESET&&bufferI[z+1]==0){ //no presence pulse
PrintMessage(strings[S_ComErr]); //communication error
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
j=0;
if(saveLog) CloseLogFile();
return;
}
for(z=0;bufferI[z]!=OW_READ&&z<DIMBUF;z++);
if(bufferI[z]==OW_READ){
PrintMessage1("Family code: 0x%02X ",bufferI[z+2]);
OW_ID(bufferI[z+2]);
PrintMessage3("Serial ID: 0x%02X%02X%02X",bufferI[z+3],bufferI[z+4],bufferI[z+5]);
PrintMessage3("%02X%02X%02X",bufferI[z+6],bufferI[z+7],bufferI[z+8]);
PrintMessage1("\r\nCRC: 0x%02X\r\n",bufferI[z+9]);
}
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
int page=options==0?8:32;
for(i=0,j=0;i<dim;i+=page){
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=page+(dim<=32?3:4);
bufferU[j++]=SKIP_ROM;
bufferU[j++]=WRITE_SCRATCHPAD;
bufferU[j++]=i&0xFF;
if(dim>32) bufferU[j++]=i>>8;
for(k=0;k<page;k++) bufferU[j++]=memEE[i+k];
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=dim<=32?3:5;
bufferU[j++]=SKIP_ROM;
bufferU[j++]=COPY_SCRATCHPAD;
if(dim<=32) bufferU[j++]=0xA5;
else{
bufferU[j++]=i&0xFF;
bufferU[j++]=i>>8;
bufferU[j++]=page-1;
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(6+0.8*page);
msDelay(10); //TPROG
j=0;
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,0,0); //"i=%d(0x%X), k=%d(0x%X)\n"
}
}
PrintStatusEnd();
PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
if(saveLog) fprintf(logfile,"%s\n",strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
k=0;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=1;
bufferU[j++]=SKIP_ROM;
if(dim<=32){ //1 byte address
bufferU[j++]=OW_WRITE;
bufferU[j++]=2;
bufferU[j++]=READ_MEMORY;
bufferU[j++]=0; //address
}
else{ //2 byte address
bufferU[j++]=OW_WRITE;
bufferU[j++]=3;
bufferU[j++]=READ_MEMORY;
bufferU[j++]=0; //address
bufferU[j++]=0; //address
}
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(10);
j=0;
for(i=0,j=0;i<dim;i+=DIMBUF-4){
bufferU[j++]=OW_READ;
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(37);
for(j=0;bufferI[j]!=OW_READ&&j<DIMBUF;j++);
if(bufferI[j]==OW_READ&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++){
if(memEE[k++]!=bufferI[z]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],i+z-(j+2),i+z-(j+2),memEE[k-1],bufferI[z]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
}
}
PrintStatus(strings[S_CodeV2],i*100/(dim),i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
#define READ_SCRATCHPAD2 0xBE
#define CONVERT_TEMP 0x44
#define RECALL_EE 0xB8
#define READ_PWSUP 0xB4
void ReadDS1820()
// read DS1820 one-wire digital thermometer
{
int z=0,j;
double TLSB=0.5;
hvreg=0;
if(FWVersion<0x800){
PrintMessage1(strings[S_FWver2old],"0.8.0"); //"This firmware is too old. Version %s is required\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"ReadDS1820()\n");
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=uW_INIT; //set RB1=0 to use as GND terminal beside RB0
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=1;
bufferU[j++]=READ_ROM;
bufferU[j++]=OW_READ;
bufferU[j++]=8;
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=2;
bufferU[j++]=SKIP_ROM;
bufferU[j++]=CONVERT_TEMP;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(16);
j=0;
for(z=0;bufferI[z]!=OW_RESET&&z<DIMBUF;z++);
if(bufferI[z]==OW_RESET&&bufferI[z+1]==0){ //no presence pulse
PrintMessage(strings[S_ComErr]); //communication error
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
if(saveLog) CloseLogFile();
return;
}
for(z=0;bufferI[z]!=OW_READ&&z<DIMBUF;z++);
if(z<DIMBUF-9){
PrintMessage1("Family code: 0x%02X ",bufferI[z+2]);
OW_ID(bufferI[z+2]);
if(bufferI[z+2]==0x10) TLSB=0.5; //DS1820
else if(bufferI[z+2]==0x28) TLSB=0.0625; //DS18B20
PrintMessage3("Serial ID: 0x%02X%02X%02X",bufferI[z+3],bufferI[z+4],bufferI[z+5]);
PrintMessage3("%02X%02X%02X",bufferI[z+6],bufferI[z+7],bufferI[z+8]);
PrintMessage1("\r\nCRC: 0x%02X\r\n",bufferI[z+9]);
}
//****************** read ********************
msDelay(800);
bufferU[j++]=OW_RESET;
bufferU[j++]=OW_WRITE;
bufferU[j++]=2;
bufferU[j++]=SKIP_ROM;
bufferU[j++]=READ_SCRATCHPAD2;
bufferU[j++]=OW_READ;
bufferU[j++]=8;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(10);
j=0;
for(z=0;bufferI[z]!=OW_READ&&z<DIMBUF-2;z++);
//PrintMessage("0x");
//for(i=z+2;i<z+10&&i<DIMBUF;i++) PrintMessage1("%02X",bufferI[i]);
//PrintMessage("\r\n");
int T=bufferI[z+2]+(bufferI[z+3]<<8);
if(T>0xF000) T|=0xFFFF0000; //adjust negative value
#ifdef _MSC_VER
PrintMessage2("T=%.4f°C (0x%04X)\r\n",T*TLSB,T);
#else
PrintMessage2("T=%.4f°C (0x%04X)\r\n",T*TLSB,T);
#endif
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC; //turn off
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
#define UNIO_READ 0x03
#define UNIO_CRRD 0x06
#define UNIO_WRITE 0x6C
#define UNIO_WREN 0x96
#define UNIO_WRDI 0x91
#define UNIO_RDSR 0x05
#define UNIO_WRSR 0x6E
#define UNIO_ERAL 0x6D
#define UNIO_SETAL 0x67
void Read11xx(int dim)
// read 11xx UNIO memories
// dim=size in bytes
{
int k=0,z=0,i,j;
hvreg=0;
if(FWVersion<0x800){
PrintMessage1(strings[S_FWver2old],"0.8.0"); //"This firmware is too old. Version %s is required\r\n"
return;
}
if(dim>=0x10000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Read11xx(%d) (0x%X)\n",dim,dim);
}
sizeEE=dim;
if(memEE) free(memEE);
memEE=(unsigned char*)malloc(dim); //EEPROM
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=1; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_RDSR;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(5);
//****************** read ********************
PrintMessage(strings[S_ReadEE]); //read EEPROM ...
PrintStatusSetup();
for(i=0,j=0;i<dim;i+=DIMBUF-5){
bufferU[j++]=UNIO_COM;
bufferU[j++]=4; //write x bytes
bufferU[j++]=i<dim-(DIMBUF-5)?DIMBUF-5:dim-i; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_READ;
bufferU[j++]=i>>8;
bufferU[j++]=i&0xFF;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(14);
for(j=0;j<DIMBUF-1&&bufferI[j]!=UNIO_COM;j++);
if(bufferI[j]==UNIO_COM&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++) memEE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim),i); //"Read: %d%%, addr. %05X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X) \n"
}
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
sizeEE=k;
}
else PrintMessage(strings[S_Compl]);
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
DisplayEE(); //visualize
int sum=0;
for(i=0;i<sizeEE;i++) sum+=memEE[i];
PrintMessage1("Checksum: 0x%X\r\n",sum&0xFFFF);
sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
void Write11xx(int dim,int page)
// write 11xx UNIO memories
// dim=size in bytes
// page=page size
{
int k=0,z=0,i,j;
int err=0;
if(FWVersion<0x800){
PrintMessage1(strings[S_FWver2old],"0.8.0"); //"This firmware is too old. Version %s is required\r\n"
return;
}
hvreg=0;
if(dim>=0x10000||dim<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Write11xx(%d,%d) (0x%X,0x%X)\n",dim,page,dim,page);
}
if(dim>sizeEE){
i=sizeEE;
memEE=(unsigned char*)realloc(memEE,dim);
for(;i<dim;i++) memEE[i]=0xFF;
sizeEE=dim;
}
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Data area is empty\r\n"
return;
}
unsigned int start=GetTickCount();
j=0;
bufferU[j++]=VREG_DIS;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=UNIO_STBY;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=0; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_WREN;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=1; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_RDSR;
bufferU[j++]=UNIO_COM;
bufferU[j++]=3; //write x bytes
bufferU[j++]=0; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_WRSR;
bufferU[j++]=0;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=1; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_RDSR;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=0; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_WREN;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(25);
//****************** write ********************
PrintMessage(strings[S_EEAreaW]); //"Write EEPROM ... "
PrintStatusSetup();
for(;page>=DIMBUF-8;page>>=1);
for(i=0,j=0;i<dim;i+=page){
bufferU[j++]=UNIO_COM;
bufferU[j++]=4+page; //write x bytes
bufferU[j++]=0; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_WRITE;
bufferU[j++]=i>>8;
bufferU[j++]=i&0xFF;
for(k=0;k<page;k++) bufferU[j++]=memEE[i+k];
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO((5+page)*0.2+2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=UNIO_COM;j++);
if(bufferI[j]!=UNIO_COM||bufferI[j+1]>=0xFA) i=dim+10;
PrintStatus(strings[S_CodeWriting2],i*100/(dim),i); //"Write: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
}
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=1; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_RDSR;
bufferU[j++]=UNIO_COM;
bufferU[j++]=2; //write x bytes
bufferU[j++]=0; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_WREN;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
int status=1;
for(k=0;status&&k<20;k++){ //status polling until write complete
PacketIO(2);
for(j=0;j<DIMBUF-1&&bufferI[j]!=UNIO_COM;j++);
if(bufferI[j]==UNIO_COM) status=bufferI[j+2]&1;
}
j=0;
}
PrintStatusEnd();
PrintMessage(strings[S_Compl]); //"completed\r\n"
//****************** verify EEPROM ********************
PrintMessage(strings[S_EEV]); //"Verify EEPROM ... "
PrintStatusSetup();
k=0;
for(i=0,j=0;i<dim;i+=DIMBUF-4){
bufferU[j++]=UNIO_COM;
bufferU[j++]=4; //write x bytes
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i; //read x bytes
bufferU[j++]=0xA0;
bufferU[j++]=UNIO_READ;
bufferU[j++]=i>>8;
bufferU[j++]=i&0xFF;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(14);
for(j=0;j<DIMBUF-1&&bufferI[j]!=UNIO_COM;j++);
if(bufferI[j]==UNIO_COM&&bufferI[j+1]<0xFA){
for(z=j+2;z<j+2+bufferI[j+1]&&z<DIMBUF;z++){
if(memEE[k++]!=bufferI[z]){
PrintMessage("\r\n");
PrintMessage4(strings[S_CodeVError],i+z-3,i+z-3,memEE[k-1],bufferI[z]); //"Error verifying address %04X (%d), written %02X, read %02X\r\n"
err++;
}
}
}
PrintStatus(strings[S_CodeV2],i*100/(dim),i); //"Verify: %d%%, addr. %04X"
if(RWstop) i=dim;
j=0;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, err=%d\n"
}
if(err>=max_err) break;
}
PrintStatusEnd();
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim,k); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
PrintMessage1(strings[S_ComplErr],err); //"completed: %d errors\r\n"
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
PacketIO(2);
unsigned int stop=GetTickCount();
PrintStatusClear();
sprintf(str,strings[S_EndErr],(stop-start)/1000.0,err,err!=1?strings[S_ErrPlur]:strings[S_ErrSing]); //"\r\nEnd (%.2f s) %d %s\r\n\r\n"
PrintMessage(str);
if(saveLog){
fprintf(logfile,str);
CloseLogFile();
}
}
