void COpenProgDlg::Write18Fx(int dim,int dim2,int wbuf=8,int eraseW1=0x10000,int eraseW2=0x10000,int options=0)
// write 16 bit PIC 18Fxxxx
// dim=program size dim2=eeprom size wbuf=write buffer size {<=64}
// eraseW1=erase word @3C0005 (not used if > 0x10000)
// eraseW2=erase word @3C0004 (not used if > 0x10000)
// options:
// bit [3:0]
// 0 = vdd before vpp (12V)
// 1 = vdd before vpp (9V)
// 2 = low voltage entry with 32 bit key
// bit [7:4]
// 0 = normal eeprom write algoritm
// 1 = with unlock sequence 55 AA
// bit [11:8]
// 0 = 5ms erase delay, 1ms code write time, 5ms EE write delay, 5ms config write time
// 1 = 550ms erase delay, 1.2ms code write time, no config or EEPROM
// 2 = 550ms erase delay, 3.4ms code write time, no config or EEPROM
{
CString str;
int size=memCODE.GetSize(),sizeEE=memEE.GetSize();
int k=0,k2,z=0,i,j;
int err=0,devID=0;
int EEalgo=(options>>4)&0xF,entry=options&0xF,optWrite=(options>>8)&0xF;
if(dim>0x1FFFFF||dim<0){
PrintMessage(strings[S_CodeLim]); //"Code size out of limits\r\n"
return;
}
if(dim2>0x800||dim2<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(wbuf>64){
PrintMessage(strings[S_WbufLim]); //"Write buffer size out of limits\r\n"
return;
}
if(entry==2&&!CheckV33Regulator()){
PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board
return;
}
double vpp=entry<2?(entry==0?12:8.5):-1;
if(!StartHVReg(vpp)){
PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"log.txt"
fprintf(logfile,"Write18F(%d,%d,%d,%d) (0x%X,0x%X,0x%X,0x%X)\n",dim,dim2,wbuf,options,dim,dim2,wbuf,options);
}
if(dim>size) dim=size;
if(dim%wbuf){ //grow to an integer number of rows
dim+=wbuf-dim%wbuf;
j=size;
if(j<dim)memCODE.SetSize(dim);
for(;j<dim;j++) memCODE[j]=0xFF;
}
if(dim2>sizeEE) dim2=sizeEE;
if(dim<1){
PrintMessage(strings[S_NoCode]); //"Empty data area\r\n"
return;
}
unsigned int start=GetTickCount();
bufferU[0]=0;
j=1;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T1T2;
bufferU[j++]=1; //T1=1u
bufferU[j++]=100; //T2=100u
bufferU[j++]=EN_VPP_VCC; //enter program mode
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
if(entry==2){ //LV entry with key
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=TX16;
bufferU[j++]=2;
bufferU[j++]=0x4D;
bufferU[j++]=0x43;
bufferU[j++]=0x48;
bufferU[j++]=0x50;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
bufferU[j++]=WAIT_T3;
}
bufferU[j++]=WAIT_T3;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //3F
bufferU[j++]=0x3F;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRU
bufferU[j++]=0xF8;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //FF
bufferU[j++]=0xFF;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRH
bufferU[j++]=0xF7;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //FE
bufferU[j++]=0xFE;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRL
bufferU[j++]=0xF6;
bufferU[j++]=TBLR_INC_N; //DevID1-2 0x3FFFFE-F
bufferU[j++]=2;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T3;
bufferU[j++]=5100>>8;
bufferU[j++]=5100&0xff;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(3);
if(entry==2) msDelay(7);
read();
if(saveLog)WriteLogIO();
for(z=1;bufferI[z]!=TBLR_INC_N&&z<DIMBUF;z++);
if(z<DIMBUF-3){
PrintMessage2(strings[S_DevID2],bufferI[z+3],bufferI[z+2]); //"DevID: 0x%02X%02X\r\n"
PIC18_ID(bufferI[z+2]+(bufferI[z+3]<<8));
}
j=1;
//****************** erase memory ********************
PrintMessage(strings[S_StartErase]); //"Erase ... "
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //3C
bufferU[j++]=0x3C;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRU
bufferU[j++]=0xF8;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRH=0
bufferU[j++]=0xF7;
if(eraseW1<0x10000){
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //05
bufferU[j++]=0x05;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRL
bufferU[j++]=0xF6;
bufferU[j++]=TABLE_WRITE; // eraseW1@3C0005
bufferU[j++]=(eraseW1>>8)&0xFF; //0x3F;
bufferU[j++]=eraseW1&0xFF; //0x3F;
}
void COpenProgDlg::Read12F5xx(int dim, int dim2)
// read 12 bit PIC
// dim=program size dim2=config size
// vdd before vpp
// CONFIG @ 0x7FF (upon entering in program mode)
// OSCCAL in last memory location
// 4 ID + reserved area beyond code memory
{
CString str,aux;
int size;
int k=0,z=0,i,j;
char s[256],t[256];
if(dim2<4) dim2=4;
size=0x1000;
dati_hex.RemoveAll();
dati_hex.SetSize(size);
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Read12F5xx(%d,%d)\n",dim,dim2);
}
unsigned int start=GetTickCount();
bufferU[0]=0;
j=1;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T1T2;
bufferU[j++]=1; //T1=1u
bufferU[j++]=100; //T2=100u
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T3;
bufferU[j++]=2000>>8;
bufferU[j++]=2000&0xff;
bufferU[j++]=EN_VPP_VCC; //enter program mode
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
bufferU[j++]=NOP;
bufferU[j++]=READ_DATA_PROG; //configuration word
bufferU[j++]=INC_ADDR; // 7FF->000
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(2);
read();
if(saveLog)WriteLogIO();
for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++);
if(z<DIMBUF-2){
dati_hex[0xfff]=(bufferI[z+1]<<8)+bufferI[z+2];
PrintMessage("\r\n");
PrintMessage1(strings[S_ConfigWord],dati_hex[0xfff]); //"\r\nConfiguration word: 0x%03X\r\n"
switch(dati_hex[0xfff]&0x03){
case 0:
PrintMessage(strings[S_LPOsc]); //"LP oscillator\r\n"
break;
case 1:
PrintMessage(strings[S_XTOsc]); //"XT oscillator\r\n"
break;
case 2:
PrintMessage(strings[S_IntOsc]); //"Internal osc.\r\n"
break;
case 3:
PrintMessage(strings[S_RCOsc]); //"RC oscillator\r\n"
break;
}
if(dati_hex[0xfff]&0x04) PrintMessage(strings[S_WDTON]); //"WDT ON\r\n"
else PrintMessage(strings[S_WDTOFF]); //"WDT OFF\r\n"
if(dati_hex[0xfff]&0x08) PrintMessage(strings[S_CPOFF]); //"Code protection OFF\r\n"
else PrintMessage(strings[S_CPON]); //"Code protection ON\r\n"
if(dati_hex[0xfff]&0x10) PrintMessage(strings[S_MCLRON]); //"Master clear ON\r\n"
else PrintMessage(strings[S_MCLROFF]); //"Master clear OFF\r\n"
}
else PrintMessage(strings[S_NoConfigW]); //"Impossibile leggere la config word\r\n"
//****************** read code ********************
PrintMessage(strings[S_CodeReading1]); //lettura codice ...
for(i=0,j=1;i<dim+dim2;i++){
bufferU[j++]=READ_DATA_PROG;
bufferU[j++]=INC_ADDR;
if(j>DIMBUF*2/4-2||i==dim+dim2-1){ //2 istruzioni -> 4 risposte
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(5);
read();
for(z=1;z<DIMBUF-2;z++){
if(bufferI[z]==READ_DATA_PROG){
dati_hex[k++]=(bufferI[z+1]<<8)+bufferI[z+2];
z+=2;
}
}
PrintStatus(strings[S_CodeReading],i*100/(dim+dim2),i); //"Read: %d%%, addr. %03X"
j=1;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
WriteLogIO();
}
}
}
bufferU[j++]=NOP; //uscita program mode
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x1;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=WAIT_T3;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(1);
read();
unsigned int stop=GetTickCount();
if(saveLog)CloseLogFile();
for(i=k;i<0xfff;i++) dati_hex[i]=0xfff;
if(k!=dim+dim2){
PrintMessage2(strings[S_ReadErr],dim+dim2,k); //"Errore in lettura: word richieste=%d, lette=%d\r\n"
}
else PrintMessage1(strings[S_Compl],k); //"completed\n"
//****************** visualize ********************
for(i=0;i<4;i+=2){
PrintMessage4(strings[S_ChipID],i,dati_hex[dim+i],i+1,dati_hex[dim+i+1]); //"ID%d: 0x%03X ID%d: 0x%03X\r\n"
}
if(dim2>4){
PrintMessage1(strings[S_BKOsccal],dati_hex[dim+4]); //"Backup OSCCAL: 0x%03X\r\n"
}
PrintMessage("\r\n");
PrintMessage(strings[S_CodeMem]); //"\r\nMemoria programma:\r\n"
s[0]=0;
int valid=0,empty=1;
for(i=0;i<dim;i+=COL){
valid=0;
for(j=i;j<i+COL&&j<dim;j++){
sprintf(t,"%03X ",dati_hex[j]);
strcat(s,t);
if(dati_hex[j]<0xfff) valid=1;
}
if(valid){
sprintf(t,"%04X: %s\r\n",i,s);
empty=0;
aux+=t;
}
s[0]=0;
}
if(empty) PrintMessage(strings[S_Empty]); //empty
else PrintMessage(aux);
aux.Empty();
if(dim2>5){
PrintMessage(strings[S_ConfigResMem]); //"\r\nMemoria configurazione e riservata:\r\n"
empty=1;
for(i=dim;i<dim+dim2;i+=COL){
valid=0;
for(j=i;j<i+COL&&j<dim+64;j++){
sprintf(t,"%03X ",dati_hex[j]);
strcat(s,t);
if(dati_hex[j]<0xfff) valid=1;
}
if(valid){
sprintf(t,"%04X: %s\r\n",i,s);
empty=0;
aux+=t;
}
s[0]=0;
}
if(empty) PrintMessage(strings[S_Empty]); //empty
else PrintMessage(aux);
}
StatusBar.SetWindowText("");
PrintMessage("\r\n");
PrintMessage1(strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
}
void COpenProgDlg::Read18Fx(int dim,int dim2,int options){
// read 16 bit PIC 18Fxxxx
// dim=program size dim2=eeprom size
// options:
// 0 = vdd before vpp (12V)
// 1 = vdd before vpp (9V)
// 2 = low voltage entry with 32 bit key
CString str,aux;
int k=0,k2=0,z=0,i,j;
int entry=options&0xF;
if(dim>0x1FFFFF||dim<0){
PrintMessage(strings[S_CodeLim]); //"Code size out of limits\r\n"
return;
}
if(dim2>0x800||dim2<0){
PrintMessage(strings[S_EELim]); //"EEPROM size out of limits\r\n"
return;
}
if(entry>0&&!CheckV33Regulator()){
PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board
return;
}
double vpp=entry<2?(entry==0?12:8.5):-1;
if(!StartHVReg(vpp)){
PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"log.txt"
fprintf(logfile,"Read18F(%d,%d,%d) (0x%X,0x%X,0x%X)\n",dim,dim2,options,dim,dim2,options);
}
memCODE.RemoveAll();
memCODE.SetSize(dim); //CODE
memEE.RemoveAll();
memEE.SetSize(dim2); //EEPROM
memID.RemoveAll();
memID.SetSize(8); //ID+CONFIG
memCONFIG.RemoveAll();
memCONFIG.SetSize(14); //CONFIG
unsigned int start=GetTickCount();
bufferU[0]=0;
j=1;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T1T2;
bufferU[j++]=1; //T1=1u
bufferU[j++]=100; //T2=100u
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T3;
bufferU[j++]=2000>>8;
bufferU[j++]=2000&0xff;
bufferU[j++]=EN_VPP_VCC; //enter program mode
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=NOP;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
if(entry==2){ //LV entry with key
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=WAIT_T3;
bufferU[j++]=WAIT_T3;
bufferU[j++]=TX16;
bufferU[j++]=2;
bufferU[j++]=0x4D;
bufferU[j++]=0x43;
bufferU[j++]=0x48;
bufferU[j++]=0x50;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
bufferU[j++]=WAIT_T3;
}
bufferU[j++]=WAIT_T3;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //3F
bufferU[j++]=0x3F;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRU
bufferU[j++]=0xF8;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //FF
bufferU[j++]=0xFF;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRH
bufferU[j++]=0xF7;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //FE
bufferU[j++]=0xFE;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //-> TBLPTRL
bufferU[j++]=0xF6;
bufferU[j++]=TBLR_INC_N; //DevID1-2 0x3FFFFE-F
bufferU[j++]=2;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRU
bufferU[j++]=0xF8; //TBLPTRU
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRH
bufferU[j++]=0xF7; //TBLPTRH
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRL
bufferU[j++]=0xF6; //TBLPTRL
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(3);
if(entry==2) msDelay(7);
read();
if(saveLog)WriteLogIO();
for(z=1;bufferI[z]!=TBLR_INC_N&&z<DIMBUF;z++);
if(z<DIMBUF-3){
PrintMessage2(strings[S_DevID2],bufferI[z+3],bufferI[z+2]); //"DevID: 0x%02X%02X\r\n"
PIC18_ID(bufferI[z+2]+(bufferI[z+3]<<8));
}
//****************** read code ********************
PrintMessage(strings[S_CodeReading1]); //code read ...
for(i=0,j=1;i<dim;i+=DIMBUF-4){
bufferU[j++]=TBLR_INC_N;
bufferU[j++]=i<dim-(DIMBUF-4)?DIMBUF-4:dim-i;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(2);
read();
if(bufferI[1]==TBLR_INC_N){
for(z=3;z<bufferI[2]+3&&z<DIMBUF;z++) memCODE[k++]=bufferI[z];
}
PrintStatus(strings[S_CodeReading2],i*100/(dim+dim2),i); //"Read: %d%%, addr. %05X"
j=1;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k,k); //"i=%d(0x%X), k=%d(0x%X)\n"
WriteLogIO();
}
}
if(k!=dim){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadCodeErr2],dim,k); //"Error reading code area, requested %d bytes, read %d\r\n"
}
else PrintMessage(strings[S_Compl]);
//****************** read config area ********************
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //TBLPTRU ID 0x200000
bufferU[j++]=0x20; //TBLPTRU ID 0x200000
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //TBLPTRU
bufferU[j++]=0xF8; //TBLPTRU
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRH
bufferU[j++]=0xF7; //TBLPTRH
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRL
bufferU[j++]=0xF6; //TBLPTRL
bufferU[j++]=TBLR_INC_N;
bufferU[j++]=8;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E; //TBLPTRU CONFIG 0x300000
bufferU[j++]=0x30; //TBLPTRU CONFIG 0x300000
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //TBLPTRU
bufferU[j++]=0xF8; //TBLPTRU
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRH
bufferU[j++]=0xF7; //TBLPTRH
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6A; //TBLPTRL
bufferU[j++]=0xF6; //TBLPTRL
bufferU[j++]=TBLR_INC_N;
bufferU[j++]=14;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(8);
read();
for(z=1;bufferI[z]!=TBLR_INC_N&&z<DIMBUF-28;z++);
if(z<DIMBUF-28){
for(i=0;i<8;i++) memID[k2++]=bufferI[z+i+2];
for(;i<14+8;i++) memCONFIG[-8+k2++]=bufferI[z+i+8];
}
j=1;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k2,k2); //"i=%d(0x%X), k=%d(0x%X)\n"
WriteLogIO();
}
if(k2!=22){
PrintMessage2(strings[S_ReadConfigErr],22,k2); //"Error reading config area, requested %d bytes, read %d\r\n"
}
//****************** read eeprom ********************
if(dim2){
PrintMessage(strings[S_ReadEE]); //read eeprom ...
bufferU[j++]=CORE_INS;
bufferU[j++]=0x9E; //EEPGD=0
bufferU[j++]=0xA6;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x9C; //CFGS=0
bufferU[j++]=0xA6;
for(k2=0,i=0;i<dim2;i++){
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E;
bufferU[j++]=i&0xFF;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //ADDR
bufferU[j++]=0xA9; //ADDR
bufferU[j++]=CORE_INS;
bufferU[j++]=0x0E;
bufferU[j++]=(i>>8)&0xFF;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //ADDRH
bufferU[j++]=0xAA; //ADDRH
bufferU[j++]=CORE_INS;
bufferU[j++]=0x80; //RD=1 :Read
bufferU[j++]=0xA6;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x50; //MOVF EEDATA,W
bufferU[j++]=0xA8;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x6E; //MOVWF TABLAT
bufferU[j++]=0xF5;
bufferU[j++]=CORE_INS;
bufferU[j++]=0x00; //NOP
bufferU[j++]=0x00;
bufferU[j++]=SHIFT_TABLAT;
if(j>DIMBUF-26||i==dim2-1){
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(10);
read();
for(z=1;z<DIMBUF-1;z++){
if(bufferI[z]==SHIFT_TABLAT){
memEE[k2++]=bufferI[z+1];
z+=8;
}
}
PrintStatus(strings[S_CodeReading],(i+dim)*100/(dim+dim2),i); //"Read: %d%%, addr. %03X"
j=1;
if(saveLog){
fprintf(logfile,strings[S_Log7],i,i,k2,k2); //"i=%d(0x%X), k=%d(0x%X)\n"
WriteLogIO();
}
}
}
if(k2!=dim2){
PrintMessage("\r\n");
PrintMessage2(strings[S_ReadEEErr],dim2,k2); //"Error reading EEPROM area, requested %d bytes, read %d\r\n"
}
else PrintMessage(strings[S_Compl]);
}
PrintMessage("\r\n");
//****************** exit ********************
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=1;
bufferU[j++]=EN_VPP_VCC; //0
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(1);
read();
unsigned int stop=GetTickCount();
StatusBar.SetWindowText("");
//****************** visualize ********************
for(i=0;i<8;i+=2){
PrintMessage4(strings[S_ChipID2],i,memID[i],i+1,memID[i+1]); //"ID%d: 0x%02X ID%d: 0x%02X\r\n"
}
for(i=0;i<7;i++){
PrintMessage2(strings[S_ConfigWordH],i+1,memCONFIG[i*2+1]); //"CONFIG%dH: 0x%02X\t"
PrintMessage2(strings[S_ConfigWordL],i+1,memCONFIG[i*2]); //"CONFIG%dL: 0x%02X\r\n"
}
PrintMessage(strings[S_CodeMem]); //"\r\nCode memory:\r\n"
char s[256],t[256];
s[0]=0;
int valid=0,empty=1;
for(i=0;i<dim;i+=COL*2){
valid=0;
for(j=i;j<i+COL*2&&j<dim;j++){
sprintf(t,"%02X ",memCODE[j]);
strcat(s,t);
if(memCODE[j]<0xff) valid=1;
}
if(valid){
sprintf(t,"%04X: %s\r\n",i,s);
aux+=t;
empty=0;
}
s[0]=0;
}
if(empty) PrintMessage(strings[S_Empty]); //empty
else PrintMessage(aux);
if(dim2){
DisplayEE(); //visualize
}
PrintMessage1(strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n"
if(saveLog) CloseLogFile();
}
void COpenProgDlg::Write12F5xx(int dim,int OscAddr)
{
// write 12 bit PIC
// dim=program size max~4300=10CC
// OscAddr=OSCCAL address (saved at the beginning), -1 not to use it
// vdd before vpp
// CONFIG @ 0x7FF upon entering program mode
// BACKUP OSCCAL @ dim+5 (saved at the beginning)
// erase: BULK_ERASE_PROG (1001) +10ms
// write: BEGIN_PROG (1000) + Tprogram 2ms + END_PROG2 (1110);
CString str;
int usa_BKosccal,usa_osccal,size;
int k=0,z=0,i,j,w;
int err=0;
WORD osccal=-1,BKosccal=-1;
if(OscAddr>dim) OscAddr=dim-1;
CButton* b=(CButton*)m_DispoPage.GetDlgItem(IDC_OSC_OSCCAL);
usa_osccal=b->GetCheck();
b=(CButton*)m_DispoPage.GetDlgItem(IDC_OSC_BK);
usa_BKosccal=b->GetCheck();
size=dati_hex.GetSize();
if(OscAddr==-1) usa_BKosccal=usa_osccal=0;
if(size<0x1000){
PrintMessage(strings[S_NoConfigW2]); //"Impossibile trovare la locazione CONFIG (0xFFF)\r\n"
return;
}
if(saveLog){
OpenLogFile(); //"Log.txt"
fprintf(logfile,"Write12F5xx(%d,%d)\n",dim,OscAddr);
}
for(i=0;i<size;i++) dati_hex[i]&=0xFFF;
unsigned int start=GetTickCount();
bufferU[0]=0;
j=1;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T1T2;
bufferU[j++]=1; //T1=1u
bufferU[j++]=100; //T2=100u
bufferU[j++]=EN_VPP_VCC; //enter program mode
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=EN_VPP_VCC; //VDD
bufferU[j++]=0x1;
bufferU[j++]=NOP;
bufferU[j++]=EN_VPP_VCC; //VDD+VPP
bufferU[j++]=0x5;
bufferU[j++]=NOP;
if(OscAddr!=-1){
for(i=-1;i<OscAddr-0xff;i+=0xff){
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=0xff;
}
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=OscAddr-i;
bufferU[j++]=READ_DATA_PROG; // OSCCAL
if(OscAddr<dim){
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=dim-OscAddr;
}
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=0x4; // 400->404
bufferU[j++]=READ_DATA_PROG; // backup OSCCAL
}
bufferU[j++]=NOP; //uscita program mode
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x1;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=SET_CK_D;
bufferU[j++]=0x0;
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T3;
bufferU[j++]=10000>>8;
bufferU[j++]=10000&0xff;
bufferU[j++]=WAIT_T3;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(15);
read();
if(saveLog)WriteLogIO();
if(OscAddr!=-1){
for(z=4;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++);
if(z<DIMBUF-2) osccal=(bufferI[z+1]<<8)+bufferI[z+2];
for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++);
if(z<DIMBUF-2) BKosccal=(bufferI[z+1]<<8)+bufferI[z+2];
if(osccal==-1||BKosccal==-1){
PrintMessage(strings[S_ErrOsccal]); //"Errore in lettura OSCCAL e BKOSCCAL"
PrintMessage("\r\n");
return;
}
PrintMessage1(strings[S_Osccal],osccal); //"OSCCAL: 0x%03X\r\n"
PrintMessage1(strings[S_BKOsccal],BKosccal); //"Backup OSCCAL: 0x%03X\r\n"
}
//****************** erase memory ********************
PrintMessage(strings[S_StartErase]); //"Cancellazione ... "
j=1;
bufferU[j++]=EN_VPP_VCC; // enter program mode
bufferU[j++]=0x1;
bufferU[j++]=NOP;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x5;
if(dim>OscAddr+1){ //12F519 (Flash+EEPROM)
bufferU[j++]=BULK_ERASE_PROG; // Bulk erase
bufferU[j++]=WAIT_T3; // delay T3=10ms
for(i=-1;i<dim-0xff;i+=0xff){ // 0x43F
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=0xff;
}
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=dim-i-1;
bufferU[j++]=BULK_ERASE_PROG; // Bulk erase EEPROM
bufferU[j++]=WAIT_T3; // delay T3=10ms
if(programID){
bufferU[j++]=INC_ADDR;
bufferU[j++]=BULK_ERASE_PROG; // Bulk erase
bufferU[j++]=WAIT_T3; // delay T3=10ms
}
}
else{ //12Fxxx
if(programID){
for(i=-1;i<dim-0xff;i+=0xff){
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=0xff;
}
bufferU[j++]=INC_ADDR_N;
bufferU[j++]=dim-i;
bufferU[j++]=BULK_ERASE_PROG; // Bulk erase
bufferU[j++]=WAIT_T3; // delay T3=10ms
}
else{
bufferU[j++]=BULK_ERASE_PROG; // Bulk erase
bufferU[j++]=WAIT_T3; // delay T3=10ms
}
}
bufferU[j++]=EN_VPP_VCC; // uscita program mode
bufferU[j++]=0x1;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x0;
bufferU[j++]=WAIT_T3; // delay T3=10ms before entering program mode
bufferU[j++]=EN_VPP_VCC; // enter program mode
bufferU[j++]=0x1;
bufferU[j++]=NOP;
bufferU[j++]=EN_VPP_VCC;
bufferU[j++]=0x5;
bufferU[j++]=INC_ADDR; // 7FF->000
bufferU[j++]=SET_PARAMETER;
bufferU[j++]=SET_T3;
bufferU[j++]=2000>>8; //T3=2ms
bufferU[j++]=2000&0xff;
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(30);
if(dim>OscAddr+1) msDelay(20);
read();
PrintMessage(strings[S_Compl]); //"completed\r\n"
if(saveLog)WriteLogIO();
//****************** write code ********************
PrintMessage(strings[S_StartCodeProg]); //"Scrittura codice ... "
int dim1=dim;
if(programID) dim1=dim+5;
if(dati_hex[dim+4]>=0xFFF) dati_hex[dim+4]=BKosccal; //reload BKosccal if not present
if(usa_BKosccal) dati_hex[OscAddr]=BKosccal;
else if(usa_osccal) dati_hex[OscAddr]=osccal;
for(i=k=w=0,j=1;i<dim1;i++){
if(dati_hex[i]<0xfff){
bufferU[j++]=LOAD_DATA_PROG;
bufferU[j++]=dati_hex[i]>>8; //MSB
bufferU[j++]=dati_hex[i]&0xff; //LSB
bufferU[j++]=BEGIN_PROG;
bufferU[j++]=WAIT_T3; //Tprogram 2ms
bufferU[j++]=END_PROG2;
bufferU[j++]=WAIT_T2; //Tdischarge
bufferU[j++]=READ_DATA_PROG;
w++;
}
bufferU[j++]=INC_ADDR;
if(j>DIMBUF-10||i==dim1-1){
PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Write: %d%%, ind. %03X"
bufferU[j++]=FLUSH;
for(;j<DIMBUF;j++) bufferU[j]=0x0;
write();
msDelay(w*3+3);
w=0;
read();
for(z=1;z<DIMBUF-7;z++){
if(bufferI[z]==INC_ADDR&&dati_hex[k]>=0xfff) k++;
else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+5]==READ_DATA_PROG){
if (dati_hex[k]!=(bufferI[z+6]<<8)+bufferI[z+7]){
PrintMessage("\r\n");
PrintMessage3(strings[S_CodeWError],k,dati_hex[k],(bufferI[z+6]<<8)+bufferI[z+7]); //"Errore in scrittura all'indirizzo %3X: scritto %03X, letto %03X\r\n"
err++;
if(max_err&&err>max_err){
PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n"
PrintMessage(strings[S_IntW]); //"write interrupted"
i=dim1;
z=DIMBUF;
}
}
k++;
z+=8;
}
}
j=1;
if(saveLog){
fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errori=%d\n"
WriteLogIO();
}
}
}
