From 925d0670c45e1100e412070fa0ce2405604f219a Mon Sep 17 00:00:00 2001
From: Attila Veghelyi <aveghelyi@dension.com>
Date: Thu, 29 Jun 2023 16:24:54 +0200
Subject: Init repo

---
 progAVR.c | 2450 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 2450 insertions(+)
 create mode 100644 progAVR.c

(limited to 'progAVR.c')

diff --git a/progAVR.c b/progAVR.c
new file mode 100644
index 0000000..47fdcc4
--- /dev/null
+++ b/progAVR.c
@@ -0,0 +1,2450 @@
+/*
+ * progAVR.c - algorithms to program the Atmel AVR family of microcontrollers
+ * Copyright (C) 2009-2021 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"
+
+#define  LOCK	1
+#define  FUSE	2
+#define  FUSE_H 4
+#define  FUSE_X	8
+#define  CAL	16
+#define  SLOW	256
+#define  RST 0x40
+
+struct AVRID{
+	int id;
+	char *device;
+} AVRLIST[]={
+	//1K
+	{0x9001,"AT90S1200"},
+	{0x9004,"ATtiny11"},
+	{0x9005,"ATtiny12"},
+	{0x9007,"ATtiny13"},
+	//2K
+	{0x9101,"AT90S2313"},
+	{0x9109,"ATtiny26"},
+	{0x910A,"ATtiny2313"},
+	{0x910B,"ATtiny24"},
+	{0x910C,"ATtiny261"},
+	//4K
+	{0x9205,"ATmega48"},
+	{0x920A,"ATmega48PA"},
+	{0x9207,"ATtiny44"},
+	{0x9208,"ATtiny461"},
+	{0x9209,"ATtiny48"},
+	{0x920D,"ATtiny4313"},
+	//8K
+	{0x9301,"AT90S8515"},
+	{0x9303,"AT90S8535"},
+	{0x9306,"ATmega8515"},
+	{0x9307,"ATmega8"},
+	{0x9308,"ATmega8535"},
+	{0x930A,"ATmega88"},
+	{0x930C,"ATtiny84"},
+	{0x930D,"ATtiny861"},
+	{0x930F,"ATmega88PA"},
+	{0x9311,"ATtiny88"},
+	//16K
+	{0x9403,"ATmega16"},
+	{0x9406,"ATmega168"},
+	{0x940A,"ATmega164PA"},
+	{0x940B,"ATmega168PA"},
+	{0x940F,"ATmega164A"},
+	//32K
+	{0x950F,"ATmega328P"},
+	{0x9511,"ATmega324PA"},
+	{0x9514,"ATmega328"},
+	{0x9515,"ATmega324A"},
+	//64K
+	{0x9602,"ATmega64"},
+	{0x9609,"ATmega644A"},
+	{0x960A,"ATmega644PA"},
+	//128K
+	{0x9705,"ATmega1284P"},
+	{0x9706,"ATmega1284"},
+};
+
+void AtmelID(BYTE id[])
+{
+	char str[128]="";
+	int i,idw=(id[1]<<8)+id[2];
+	if(id[0]==0&&id[1]==1&&id[2]==2){
+		PrintMessage(strings[S_Protected]);		//"Device protected"
+		return;
+	}
+	if(id[0]==0x1E) strcat(str,"Atmel ");
+	for(i=0;i<sizeof(AVRLIST)/sizeof(AVRLIST[0]);i++){
+		if(idw==AVRLIST[i].id){
+			strcat(str,AVRLIST[i].device);
+			i=1000;
+		}
+	}
+	switch(id[1]){
+		case 0x90:
+			strcat(str," 1KB Flash");
+			break;
+		case 0x91:
+			strcat(str," 2KB Flash");
+			break;
+		case 0x92:
+			strcat(str," 4KB Flash");
+			break;
+		case 0x93:
+			strcat(str," 8KB Flash");
+			break;
+		case 0x94:
+			strcat(str," 16KB Flash");
+			break;
+		case 0x95:
+			strcat(str," 32KB Flash");
+			break;
+		case 0x96:
+			strcat(str," 64KB Flash");
+			break;
+		case 0x97:
+			strcat(str," 128KB Flash");
+			break;
+	}
+	if(i!=1001) strcat(str,strings[S_nodev]); //"Unknown device\r\n");
+	else strcat(str,"\r\n");
+	PrintMessage(str);
+}
+
+void DisplayCODEAVR(int dim){
+// display AVR CODE memory
+	char s[256]="",t[256]="";
+	int valid=0,empty=1,i,j,lines=0;
+	char* aux=(char*)malloc((dim/COL+1)*(16+COL*6));
+	aux[0]=0;
+	s[0]=0;
+	for(i=0;i<dim&&i<size;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);
+			strcat(aux,t);
+			empty=0;
+			lines++;
+			if(lines>500){	//limit number of lines printed
+				strcat(aux,"(...)\r\n");
+				i=(dim<size?dim:size)-COL*4;
+				lines=490;
+			}
+		}
+		s[0]=0;
+	}
+	if(empty) PrintMessage(strings[S_Empty]);	//empty
+	else PrintMessage(aux);
+	free(aux);
+}
+
+//Software SPI for very slow speed
+//RB1=CLK, RB0=MISO, RC7=MOSI, RC6=RESET
+//speed in bit/s  min 10
+int SWSPI(int data, int speed){
+	int i,j,din=0;
+	double Tbit=1.0/speed*1e6;		//Tbit in us
+	if(saveLog)	fprintf(logfile,"SWSPI(0x%X,%d)\n",data,speed);
+	j=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=(int)(Tbit/2)>>8;
+	bufferU[j++]=(int)(Tbit/2)&0xff;
+	bufferU[j++]=SET_PORT_DIR;
+	bufferU[j++]=0xF5;	//TRISB
+	bufferU[j++]=0x3F;	//TRISA-C  (RC7:RC6:RA5:RA4:RA3:X:X:X)
+	for(i=0;i<4;i++){	//first nibble
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;			//PORTB CLK=0
+		bufferU[j++]=data&0x80;	//PORTA-C
+		bufferU[j++]=WAIT_T3;	//half bit delay
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=2;			//PORTB CLK=1
+		bufferU[j++]=data&0x80;	//PORTA-C
+		bufferU[j++]=READ_B;
+		bufferU[j++]=WAIT_T3;	//half bit delay
+		data<<=1;
+	}
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1+4*(Tbit/1000.0+0.5));
+	for(j=0;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	j=0;
+	for(i=0;i<4;i++){	//second nibble
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;			//PORTB CLK=0
+		bufferU[j++]=data&0x80;	//PORTA-C
+		bufferU[j++]=WAIT_T3;	//half bit delay
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=2;			//PORTB CLK=1
+		bufferU[j++]=data&0x80;	//PORTA-C
+		bufferU[j++]=READ_B;
+		bufferU[j++]=WAIT_T3;	//half bit delay
+		data<<=1;
+	}
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;			//PORTB CLK=0
+	bufferU[j++]=0;			//PORTA-C
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1+4*(Tbit/1000.0+0.5));
+	for(j=0;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	din<<=1;
+	for(j+=2;j<DIMBUF-1&&bufferI[j]!=READ_B;j++);
+	din+=bufferI[j+1]&1;
+	if(saveLog)	fprintf(logfile,"Read 0x%X\n",din);
+	return din;
+}
+
+//Write fuse at low speed
+//speed in bit/s  min 10
+void WriteATfuseSlow(int fuse){
+#define SPEED 3000
+	int j,d;
+	fuse&=0xFF;
+	if(FWVersion<0x900){
+		PrintMessage1(strings[S_FWver2old],"0.9.0");	//"This firmware is too old. Version %s is required\r\n"
+		return;
+	}
+	if(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"WriteATfuseSlow(0x%X)\n",fuse);
+	}
+	PrintMessage(strings[S_FuseAreaW]);	//"Write Fuse ... "
+	j=0;
+	bufferU[j++]=VREG_DIS;		//Disable HV reg
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PORT_DIR;
+	bufferU[j++]=0xF5;	//TRISB
+	bufferU[j++]=0x3F;	//TRISA-C  (RC7:RC6:RA5:RA4:RA3:X:X:X)
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x1;
+	bufferU[j++]=WAIT_T3;
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=1;				//0=100k,200k,500k,1M,2M,3M
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(5);
+	msDelay(20);	//min 20ms from VDD
+	SWSPI(0xAC,SPEED);
+	SWSPI(0x53,SPEED);
+	d=SWSPI(0,SPEED);
+	SWSPI(0,SPEED);
+	if(d!=0x53){	//does not respond
+		j=0;
+		bufferU[j++]=EN_VPP_VCC;	//VDD
+		bufferU[j++]=0x0;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		PrintMessage(strings[S_SyncErr]);	//"Synchronization error\r\n"
+		if(saveLog) CloseLogFile();
+		return;
+	}
+	SWSPI(0xAC,SPEED);		//Write fuse
+	SWSPI(0xA0,SPEED);
+	SWSPI(0x00,SPEED);
+	SWSPI(fuse,SPEED);
+	msDelay(9);
+	SWSPI(0x50,SPEED);		//Read fuse
+	SWSPI(0x00,SPEED);
+	SWSPI(0x00,SPEED);
+	d=SWSPI(0,SPEED);
+	if(d!=fuse){
+		PrintMessage3(strings[S_WErr1],"fuse",fuse,d);	//"Error writing %s: written %02X, read %02X" NL;
+	}
+	j=0;
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	PrintMessage(strings[S_Compl]);	//"completed\r\n"
+}
+
+//Find right SPI speed to enter
+//test mode and synchronize with AVR
+//return Tbyte or 0 when sync was not found
+double SyncSPI(){
+	int z=0,i,j;
+	double Tbyte;	//byte delay in ms
+	j=0;
+	bufferU[j++]=SPI_INIT;
+	bufferU[j++]=2;				//0~=100k, 1~=200k, 2~=300k but really is 200k
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	for(i=1;i<256;i++){		//increase T more than linearly; Tmin=1
+		if(i>10) i++;
+		if(i>20) i+=2;
+		if(i>40) i+=4;
+		if(i>80) i+=4;
+		if(i>160) i+=8;
+		Tbyte=(20+i*4)/1000.0;  //from firmware simulation
+		j=0;
+		bufferU[j++]=CLOCK_GEN;	//reset with clock at 0
+		bufferU[j++]=0xFF;
+		bufferU[j++]=EN_VPP_VCC;	//VDD=0
+		bufferU[j++]=0x0;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=WAIT_T3;
+		bufferU[j++]=EN_VPP_VCC;	//VDD
+		bufferU[j++]=0x1;
+		bufferU[j++]=WAIT_T3;
+		bufferU[j++]=SET_PARAMETER;
+		bufferU[j++]=SET_T1T2;
+		bufferU[j++]=i;			//force T
+		bufferU[j++]=0;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=RST;
+		bufferU[j++]=WAIT_T3;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=CLOCK_GEN;
+		bufferU[j++]=5;				//0=100k,200k,500k,1M,2M,3M
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(9);
+		msDelay(20); 	//min 20ms from reset
+		j=0;
+		bufferU[j++]=SPI_WRITE;		//Programming enable
+		bufferU[j++]=2;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0x53;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=2;
+		bufferU[j++]=SPI_WRITE;		//just to test communication
+		bufferU[j++]=11;
+		bufferU[j++]=0x55;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0xAA;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x55;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0xAA;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;		//Programming enable
+		bufferU[j++]=2;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0x53;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=2;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x30;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x00;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(1.5+32*Tbyte*1.1);
+		int d0,d1,d2,d3,d4,d5,d6,d7;
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		//if(bufferI[z+2]==0x53) break;
+		d0=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d1=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d2=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d3=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d4=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d5=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d6=bufferI[z+2];
+		for(z+=bufferI[z+1]+1;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		d7=bufferI[z+2];
+		//verify that received data is correct
+		if(d0==0x53&&d6==0x53&&d1==d2&&d1==d3&&d1==d4&&d1==d5&&d1==d7) break;
+	}
+	if(i>256){
+		PrintMessage(strings[S_SyncErr]);	//"Synchronization error\r\n"
+		if(saveLog) fprintf(logfile,strings[S_SyncErr]);
+		return 0;
+	}
+	//Add some margin
+	i++;
+	i+=i/10;
+	if(i>255) i=255;
+	Tbyte=(20+i*4)/1000.0;  //from firmware simulation
+	j=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T1T2;
+	bufferU[j++]=i;			//force T
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	sprintf(str,strings_it[I_AT_COMM],8/Tbyte);	//"Communicating @ %.0f kbps\r\n"
+	PrintMessage(str);
+	if(saveLog)	fprintf(logfile,str);
+	return Tbyte;
+}
+
+void ReadAT(int dim, int dim2, int options)
+// read ATMEL AVR
+// dim=FLASH size in bytes, dim2=EEPROM size
+// options: LOCK,FUSE,FUSE_H,FUSE_X,CAL
+{
+	int k=0,k2=0,z=0,i,j;
+	double Tbyte;	//byte delay in ms
+	BYTE signature[]={0,0,0};
+	if(dim>0x20000||dim<0){
+		PrintMessage(strings[S_CodeLim]);	//"Code size out of limits\r\n"
+		return;
+	}
+	if(dim2>0x1000||dim2<0){
+		PrintMessage(strings[S_EELim]);	//"EEPROM size out of limits\r\n"
+		return;
+	}
+	if(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"ReadAT(0x%X,0x%X,0x%X)\n",dim,dim2,options);
+	}
+	size=dim;
+	sizeEE=dim2;
+	if(memCODE) free(memCODE);
+	memCODE=(unsigned char*)malloc(dim);		//CODE
+	if(memEE) free(memEE);
+	memEE=(unsigned char*)malloc(dim2);			//EEPROM
+	for(j=0;j<size;j++) memCODE[j]=0xFF;
+	for(j=0;j<sizeEE;j++) memEE[j]=0xFF;
+	unsigned int start=GetTickCount();
+	j=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=2000>>8;
+	bufferU[j++]=2000&0xff;
+	bufferU[j++]=VREG_DIS;		//Disable HV reg
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	Tbyte=SyncSPI();
+	if(Tbyte==0){
+		if(saveLog) CloseLogFile();
+		return;
+	}
+	j=0;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=2;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	if(options&LOCK){			//LOCK byte
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x58;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+	}
+	if(options&FUSE){			//FUSE byte
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x50;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+	}
+	if(options&FUSE_H){			//FUSE high byte
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x58;
+		bufferU[j++]=8;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+	}
+	if(options&FUSE_X){			//extended FUSE byte
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x50;
+		bufferU[j++]=8;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+	}
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1.5+7*4.5*Tbyte);
+	for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[0]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[1]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[2]=bufferI[z+2];
+	PrintMessage3("CHIP ID:%02X%02X%02X\r\n",signature[0],signature[1],signature[2]);
+	AtmelID(signature);
+	if(options&LOCK){			//LOCK byte
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1("LOCK bits:\t  0x%02X\r\n",bufferI[z+2]);
+	}
+	if(options&FUSE){			//FUSE byte
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1("FUSE bits:\t  0x%02X\r\n",bufferI[z+2]);
+	}
+	if(options&FUSE_H){			//FUSE high byte
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1("FUSE HIGH bits:\t  0x%02X\r\n",bufferI[z+2]);
+	}
+	if(options&FUSE_X){			//extended FUSE byte
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1("Extended FUSE bits: 0x%02X\r\n",bufferI[z+2]);
+	}
+	if(options&CAL){			//calibration byte
+		j=0;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x38;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x38;
+		bufferU[j++]=0;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x38;
+		bufferU[j++]=0;
+		bufferU[j++]=2;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x38;
+		bufferU[j++]=0;
+		bufferU[j++]=3;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(1.5+4.5*4*Tbyte);
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1("Calibration bits:\t  0x%02X",bufferI[z+2]);
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1(",0x%02X",bufferI[z+2]);
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1(",0x%02X",bufferI[z+2]);
+		for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		PrintMessage1(",0x%02X\r\n",bufferI[z+2]);
+	}
+//****************** read code ********************
+	PrintMessage(strings[S_CodeReading1]);		//read code ...
+	if(saveLog) fprintf(logfile,"%s\n",strings[S_CodeReading1]);		//read code ...
+	PrintStatusSetup();
+	int c=(DIMBUF-5)/2;
+	for(i=0,j=0;i<dim;i+=c*2){
+		bufferU[j++]=AT_READ_DATA;
+		bufferU[j++]=i<(dim-2*c)?c:(dim-i)/2;
+		bufferU[j++]=i>>9;
+		bufferU[j++]=i>>1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(1.5+240*Tbyte);
+		if(bufferI[0]==AT_READ_DATA){	//static references, verify!!
+			for(z=2;z<bufferI[1]*2+2&&z<DIMBUF;z++) memCODE[k++]=bufferI[z];
+		}
+		PrintStatus(strings[S_CodeReading],i*100/(dim+dim2),i);	//"Reading: %3d%%, add. %03X"
+		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_ReadCodeErr2],dim,k);	//"Errore in lettura area programma, richiesti %d byte, letti %d\r\n"
+	}
+	else PrintMessage(strings[S_Compl]);	//"completed\r\n"
+//****************** read eeprom ********************
+	if(dim2){
+		PrintMessage(strings[S_ReadEE]);		//read EE ...
+		if(saveLog) fprintf(logfile,"%s\n",strings[S_ReadEE]);		//Read EEPROM ...
+		PrintStatusSetup();
+		int n=0;
+		for(k2=0,i=0,j=0;i<dim2;i++){
+			bufferU[j++]=SPI_WRITE;		//Read eeprom memory
+			bufferU[j++]=3;
+			bufferU[j++]=0xA0;
+			bufferU[j++]=i>>8;
+			bufferU[j++]=i;
+			bufferU[j++]=SPI_READ;
+			bufferU[j++]=1;
+			n++;
+			if(j>DIMBUF-9||i==dim-1){
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(1.5+4*n*Tbyte*1.3);
+				for(z=0;z<DIMBUF-2;z++){
+					if(bufferI[z]==SPI_READ&&bufferI[z+1]==1){
+						memEE[k2++]=bufferI[z+2];
+						z+=3;
+					}
+				}
+				PrintStatus(strings[S_CodeReading],(i+dim)*100/(dim+dim2),i);	//"Reading: %3d%%, add. %03X"
+				if(RWstop) i=dim2;
+				j=0;
+				n=0;
+				if(saveLog){
+					fprintf(logfile,strings[S_Log7],i,i,k2,k2);	//"i=%d(0x%X), k=%d(0x%X)\n"
+				}
+			}
+		}
+		PrintStatusEnd();
+		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]);	//"completed\r\n"
+	}
+//****************** exit program mode ********************
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=SPI_WRITE;
+	bufferU[j++]=1;
+	bufferU[j++]=0;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	unsigned int stop=GetTickCount();
+	PrintStatusClear();
+//****************** visualize ********************
+	PrintMessage(strings[S_CodeMem]);	//"\r\nProgram memory\r\n"
+	DisplayCODEAVR(dim);
+	if(dim2){
+		DisplayEE();	//visualize EE
+	}
+	sprintf(str,strings[S_End],(stop-start)/1000.0);	//"\r\nEnd (%.2f s)\r\n"
+	PrintMessage(str);
+	if(saveLog){
+		fprintf(logfile,str);
+		CloseLogFile();
+	}
+}
+
+// function 18F ATtiny1x ATtiny84
+// SCI (I)  RC6   PB3      PB0
+// SII (I)  RB0   PB1      PA5
+// SDI (I)  RC7   PB0      PA6
+// SDO (O)  RB1   PB2      PA4
+#define SDI 0x10
+#define SII 0x1
+#define SDO 0x2
+#define SCI 0x8
+/// read ATMEL AVR using HV serial programming
+/// dim=FLASH size in bytes, dim2=EEPROM size
+/// options: LOCK,FUSE,FUSE_H,FUSE_X,CAL
+void ReadAT_HV(int dim, int dim2, int options)
+{
+	int k=0,z=0,i,j;
+	BYTE signature[]={0,0,0};
+	if(FWVersion<0x900){
+		PrintMessage1(strings[S_FWver2old],"0.9.0");	//"This firmware is too old. Version %s is required\r\n"
+		return;
+	}
+	if(dim>0x20000||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(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"ReadAT_HV(0x%X,0x%X,0x%X)\n",dim,dim2,options);
+	}
+	size=dim;
+	sizeEE=dim2;
+	if(memCODE) free(memCODE);
+	memCODE=(unsigned char*)malloc(dim);		//CODE
+	if(memEE) free(memEE);
+	memEE=(unsigned char*)malloc(dim2);			//EEPROM
+	for(j=0;j<size;j++) memCODE[j]=0xFF;
+	for(j=0;j<sizeEE;j++) memEE[j]=0xFF;
+	if(!StartHVReg(12)){
+		PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
+		return;
+	}
+	unsigned int start=GetTickCount();
+	j=0;
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PORT_DIR;
+	bufferU[j++]=0xFC;
+	bufferU[j++]=0x7;
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x1;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EN_VPP_VCC;	//VDD + VPP
+	bufferU[j++]=0x5;
+	bufferU[j++]=SET_PORT_DIR;	//RELEASE SDO
+	bufferU[j++]=0xFE;
+	bufferU[j++]=0x7;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(5);
+	j=0;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x01;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x02;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	if(options&LOCK){			//LOCK byte
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x78;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7C;
+		bufferU[j++]=0x00;
+	}
+	if(options&FUSE){			//FUSE byte
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x68;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6C;
+		bufferU[j++]=0x00;
+	}
+	if(options&FUSE_H){			//FUSE high byte
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x7A;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7E;
+		bufferU[j++]=0x00;
+	}
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	j=0;
+	for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[0]=bufferI[z+1];
+	for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[1]=bufferI[z+1];
+	for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[2]=bufferI[z+1];
+	PrintMessage3("CHIP ID:%02X%02X%02X\r\n",signature[0],signature[1],signature[2]);
+	AtmelID(signature);
+	if(options&LOCK){			//LOCK byte
+		for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		PrintMessage1("LOCK byte:\t  0x%02X\r\n",bufferI[z+1]);
+	}
+	if(options&FUSE){			//FUSE byte
+		for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		PrintMessage1("FUSE byte:\t  0x%02X\r\n",bufferI[z+1]);
+	}
+	if(options&FUSE_H){			//FUSE high byte
+		for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		PrintMessage1("FUSE HIGH byte:\t  0x%02X\r\n",bufferI[z+1]);
+	}
+	if(options&FUSE_X){			//extended FUSE byte
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x6A;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6E;
+		bufferU[j++]=0x00;
+	}
+	if(options&CAL){			//calibration byte
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=4;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x08;
+		bufferU[j++]=0x0C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x78;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7C;
+		bufferU[j++]=0x00;
+	}
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	j=0;
+	PacketIO(2);
+	z=0;
+	if(options&FUSE_X){			//extended FUSE byte
+		for(;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		PrintMessage1("Extended FUSE byte: 0x%02X\r\n",bufferI[z+1]);
+		z+=2;
+	}
+	if(options&CAL){			//calibration byte
+		for(;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		PrintMessage1("Calibration byte: 0x%02X\r\n",bufferI[z+1]);
+	}
+//****************** read code ********************
+	if(saveLog)fprintf(logfile,"READ CODE\n");
+	PrintMessage(strings[S_CodeReading1]);		//read code ...
+	PrintStatusSetup();
+	j=0;
+	bufferU[j++]=AT_HV_RTX;		//Read FLASH
+	bufferU[j++]=1;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x02;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	j=0;
+	for(i=0;i<dim;){
+		if((i&511)==0){ //change high address after 256 words
+			bufferU[j++]=AT_HV_RTX;
+			bufferU[j++]=1;
+			bufferU[j++]=0x1C;
+			bufferU[j++]=i>>9;
+			bufferU[j++]=FLUSH;
+			for(;j<DIMBUF;j++) bufferU[j]=0x0;
+			PacketIO(2);
+			j=0;
+		}
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x0C;
+		bufferU[j++]=(i>>1)&0xFF;
+		bufferU[j++]=0x68;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=2;
+		bufferU[j++]=0x78;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7C;
+		bufferU[j++]=0x00;
+		i+=2;
+		if(j>DIMBUF-14||i>=dim-2){
+			bufferU[j++]=FLUSH;
+			for(;j<DIMBUF;j++) bufferU[j]=0x0;
+			PacketIO(2);
+			for(z=0;z<DIMBUF-1;z++){
+				if(bufferI[z]==AT_HV_RTX){
+					memCODE[k++]=bufferI[z+1];
+					z+=1;
+				}
+			}
+			PrintStatus(strings[S_CodeReading],i*100/(dim+dim2),i);	//"Read: %d%%, addr. %03X"
+			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_ReadCodeErr],dim,k);	//"Error reading code area, requested %d words, read %d\r\n"
+	}
+	else PrintMessage(strings[S_Compl]);
+//****************** read eeprom ********************
+	if(dim2){
+		if(saveLog)fprintf(logfile,"READ EEPROM\n");
+		PrintMessage(strings[S_ReadEE]);		//read EE ...
+		PrintStatusSetup();
+		j=0;
+		k=0;
+		bufferU[j++]=AT_HV_RTX;		//Read EEPROM
+		bufferU[j++]=1;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x03;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		j=0;
+		for(i=0;i<dim2;i++){
+			if((i&255)==0){
+				bufferU[j++]=AT_HV_RTX;
+				bufferU[j++]=1;
+				bufferU[j++]=0x1C;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				j=0;
+			}
+			bufferU[j++]=AT_HV_RTX;
+			bufferU[j++]=3;
+			bufferU[j++]=0x0C;
+			bufferU[j++]=i&0xFF;
+			bufferU[j++]=0x68;
+			bufferU[j++]=0x00;
+			bufferU[j++]=0x6C;
+			bufferU[j++]=0x00;
+			if(j>DIMBUF-8||i>=dim2-2){
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				for(z=0;z<DIMBUF-1;z++){
+					if(bufferI[z]==AT_HV_RTX){
+						memEE[k++]=bufferI[z+1];
+						z+=1;
+					}
+				}
+				PrintStatus(strings[S_CodeReading],i*100/(dim+dim2),i);	//"Read: %d%%, addr. %03X"
+				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!=dim2){
+			PrintMessage("\r\n");
+			PrintMessage2(strings[S_ReadEEErr],dim2,k);	//"Error reading EEPROM area, requested %d bytes, read %d\r\n"
+		}
+		else PrintMessage(strings[S_Compl]);
+	}
+//****************** exit program mode ********************
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PORT_DIR; //All input
+	bufferU[j++]=0xFF;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	unsigned int stop=GetTickCount();
+	PrintStatusClear();
+//****************** visualize ********************
+	PrintMessage(strings[S_CodeMem]);	//"\r\nProgram memory\r\n"
+	DisplayCODEAVR(dim);
+	if(dim2){
+		DisplayEE();	//visualize EE
+	}
+	sprintf(str,strings[S_End],(stop-start)/1000.0);	//"\r\nEnd (%.2f s)\r\n"
+	PrintMessage(str);
+	if(saveLog){
+		fprintf(logfile,str);
+		CloseLogFile();
+	}
+}
+
+void WriteAT(int dim, int dim2, int dummy1, int dummy2)
+// write ATMEL micro
+// dim=FLASH size in bytes, dim2=EEPROM size
+{
+	int k=0,z=0,i,j;
+	int err=0;//,Rtry=0,maxTry=0;
+	double Tbyte;
+	BYTE signature[]={0,0,0};
+	if(dim>0x8000||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(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"WriteAT(0x%X,0x%X)\n",dim,dim2);
+	}
+	if(dim>size) dim=size;
+	if(dim2>sizeEE) dim2=sizeEE;
+	if(dim<1){
+		PrintMessage(strings[S_NoCode]);	//"Data area is empty\r\n"
+		return;
+	}
+	unsigned int start=GetTickCount();
+	j=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=2000>>8;
+	bufferU[j++]=2000&0xff;
+	bufferU[j++]=VREG_DIS;		//Disable HV reg
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	Tbyte=SyncSPI();
+	if(Tbyte==0){
+		if(saveLog) CloseLogFile();
+		return;
+	}
+	j=0;
+
+/*	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=20000>>8;
+	bufferU[j++]=20000&0xff;
+	bufferU[j++]=VREG_DIS;		//Disable HV reg
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=SPI_INIT;
+	bufferU[j++]=1;
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=5;
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=WAIT_T3;		//20ms
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x1;
+	bufferU[j++]=WAIT_T3;		//20ms
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	writeP();
+	msDelay(50);
+	readP();
+	if(saveLog)WriteLogIO();
+	for(i=0;i<32;i++){
+		j=0;
+		bufferU[j++]=CLOCK_GEN;
+		bufferU[j++]=0xFF;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=RST;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=CLOCK_GEN;
+		bufferU[j++]=5;
+		bufferU[j++]=WAIT_T3;		//20ms
+		bufferU[j++]=SPI_WRITE;		//Programming enable
+		bufferU[j++]=2;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0x53;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=2;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		writeP();
+		msDelay(25);
+		readP();
+		if(saveLog)WriteLogIO();
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		//PrintMessage("i=%d z=%d   rx:%02X%02X\r\n",i,z,bufferI[z+2],bufferI[z+3]);
+		if(bufferI[z+2]==0x53) i=32;
+	}
+	if(i<33){
+		j=0;
+		bufferU[j++]=EN_VPP_VCC;	//VDD
+		bufferU[j++]=0x0;
+		bufferU[j++]=SPI_INIT;
+		bufferU[j++]=0xFF;
+		bufferU[j++]=CLOCK_GEN;
+		bufferU[j++]=0xFF;
+		bufferU[j++]=EXT_PORT;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		writeP();
+		msDelay(1);
+		readP();
+		if(saveLog)WriteLogIO();
+		PrintMessage(strings[S_SyncErr]);	//"Synchronization error\r\n"
+		if(saveLog) CloseLogFile();
+		return;
+	}
+	j=0;*/
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=2;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1+3*4*Tbyte);
+	for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[0]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[1]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[2]=bufferI[z+2];
+	PrintMessage3("CHIP ID:%02X%02X%02X\r\n",signature[0],signature[1],signature[2]);
+	AtmelID(signature);
+//****************** erase memory ********************
+	PrintMessage(strings[S_StartErase]);	//"Erase ... "
+	if(saveLog)	fprintf(logfile,"%s\n",strings[S_StartErase]);
+	j=0;
+	bufferU[j++]=SPI_WRITE;		//Chip erase
+	bufferU[j++]=4;
+	bufferU[j++]=0xAC;
+	bufferU[j++]=0x80;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=2000>>8;
+	bufferU[j++]=2000&0xff;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1+4*Tbyte);
+	msDelay(25);	//Erase time
+	PrintMessage(strings[S_Compl]);	//"completed\r\n"
+//****************** write code ********************
+	PrintMessage(strings[S_StartCodeProg]);	//"Write code ... "
+	if(saveLog)	fprintf(logfile,"%s\n",strings[S_StartCodeProg]);
+	PrintStatusSetup();
+	for(i=0,j=0;i<dim;i++){
+		if(memCODE[i]!=0xFF){
+			bufferU[j++]=SPI_WRITE;		//Write program memory
+			bufferU[j++]=4;
+			bufferU[j++]=0x40+(i&1?8:0);
+			bufferU[j++]=i>>9;
+			bufferU[j++]=i>>1;
+			bufferU[j++]=memCODE[i];
+			bufferU[j++]=WAIT_T3;		//6ms
+			bufferU[j++]=WAIT_T3;
+			bufferU[j++]=WAIT_T3;
+			bufferU[j++]=SPI_WRITE;		//Read program memory
+			bufferU[j++]=3;
+			bufferU[j++]=0x20+(i&1?8:0);
+			bufferU[j++]=i>>9;
+			bufferU[j++]=i>>1;
+			bufferU[j++]=SPI_READ;
+			bufferU[j++]=1;
+			bufferU[j++]=FLUSH;
+			for(;j<DIMBUF;j++) bufferU[j]=0x0;
+			j=0;
+			PacketIO(7+2*4*Tbyte);
+			PrintStatus(strings[S_CodeWriting],i*100/dim,i);	//"Write: %d%%, addr. %03X"
+			for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+			if(z==DIMBUF-2||memCODE[i]!=bufferI[z+2]){
+					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=dim;
+			}
+			if(saveLog){
+				fprintf(logfile,strings[S_Log8],i,i,k,k,err);	//"i=%d, k=%d, err=%d\n"
+			}
+		}
+	}
+	PrintStatusEnd();
+	PrintMessage1(strings[S_ComplErr],err);	//"completed, %d errors\r\n"
+//****************** write eeprom ********************
+	if(dim2){
+		PrintMessage(strings[S_EEAreaW]);	//"Write EEPROM ... "
+		if(saveLog)	fprintf(logfile,"%s\n",strings[S_EEAreaW]);
+		PrintStatusSetup();
+		int errEE=0;
+		for(i=0,j=0;i<dim2;i++){
+			if(memEE[i]!=0xFF){
+				bufferU[j++]=SPI_WRITE;		//Write EEPROM memory
+				bufferU[j++]=4;
+				bufferU[j++]=0xC0;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=i;
+				bufferU[j++]=memEE[i];
+				bufferU[j++]=WAIT_T3;		//6ms
+				bufferU[j++]=WAIT_T3;
+				bufferU[j++]=WAIT_T3;
+				bufferU[j++]=SPI_WRITE;		//Read EEPROM memory
+				bufferU[j++]=3;
+				bufferU[j++]=0xA0;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=i;
+				bufferU[j++]=SPI_READ;
+				bufferU[j++]=1;
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				PacketIO(7+2*4*Tbyte);
+				PrintStatus(strings[S_CodeWriting],i*100/dim2,i);	//"Write: %d%%, addr. %03X"
+				for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+				if(z==DIMBUF-2||memEE[i]!=bufferI[z+2]){
+						errEE++;
+				}
+				if(max_err&&err+errEE>max_err){
+					PrintMessage1(strings[S_MaxErr],err+errEE);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
+					PrintMessage(strings[S_IntW]);	//"Write interrupted"
+					i=dim2;
+				}
+				if(saveLog){
+					fprintf(logfile,strings[S_Log8],i,i,k,k,errEE);	//"i=%d, k=%d, err=%d\n"
+				}
+			}
+		}
+		PrintStatusEnd();
+		PrintMessage1(strings[S_ComplErr],errEE);	//"completed, %d errors\r\n"
+		err+=errEE;
+	}
+//	if(maxTry) PrintMessage1(strings[S_MaxRetry],maxTry); 	//"Max retries in writing: %d\r\n"
+//****************** write FUSE ********************
+	if(AVRlock<0x100){
+		PrintMessage(strings[S_FuseAreaW]);	//"Write Fuse ... "
+		if(saveLog)	fprintf(logfile,"%s\n",strings[S_FuseAreaW]);
+		bufferU[j++]=SPI_WRITE;		//Write lock
+		bufferU[j++]=4;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0xF9+(AVRlock&0x06);
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=WAIT_T3;		//9ms
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(3+4*Tbyte);
+		msDelay(15);
+		PrintMessage(strings[S_Compl]);	//"completed\r\n"
+	}
+//****************** exit program mode ********************
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	unsigned int stop=GetTickCount();
+	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();
+	}
+	PrintStatusClear();
+}
+
+
+void WriteATmega(int dim, int dim2, int page, int options)
+// write ATMEL micro
+// dim=FLASH size in bytes, dim2=EEPROM, page=FLASH page size in bytes
+{
+	int k=0,z=0,i,j;
+	double Tbyte;	//byte delay in ms
+	int err=0,Rtry=0,maxTry=0;
+	BYTE signature[]={0,0,0};
+	if(dim>0x20000||dim<0){
+		PrintMessage(strings[S_CodeLim]);	//"Code size out of limits\r\n"
+		return;
+	}
+	if(dim2>0x1000||dim2<0){
+		PrintMessage(strings[S_EELim]);	//"EEPROM size out of limits\r\n"
+		return;
+	}
+	if(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"WriteATmega(0x%X,0x%X,0x%X,0x%X)\n",dim,dim2,page,options);
+	}
+	if(dim>size) dim=size;
+	else{
+		size=dim;
+		memCODE=(unsigned char*)realloc(memCODE,dim);
+	}
+	if(size%(page*2)){	//grow to an integer number of pages
+		j=size;
+		dim=(j/(page*2)+1)*page*2;
+		memCODE=(unsigned char*)realloc(memCODE,dim);
+		for(;j<dim;j++) memCODE[j]=0xFF;
+	}
+	if(dim2>sizeEE) dim2=sizeEE;
+	if(dim<1){
+		PrintMessage(strings[S_NoCode]);	//"Data area is empty\r\n"
+		return;
+	}
+	unsigned int start=GetTickCount();
+	j=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=2000>>8;
+	bufferU[j++]=2000&0xff;
+	bufferU[j++]=VREG_DIS;		//Disable HV reg
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	Tbyte=SyncSPI();
+	if(Tbyte==0){
+		if(saveLog) CloseLogFile();
+		return;
+	}
+	j=0;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=SPI_WRITE;		//Read signature bytes
+	bufferU[j++]=3;
+	bufferU[j++]=0x30;
+	bufferU[j++]=0;
+	bufferU[j++]=2;
+	bufferU[j++]=SPI_READ;
+	bufferU[j++]=1;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1.5+3*4.5*Tbyte);
+	if(saveLog)WriteLogIO();
+	for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[0]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[1]=bufferI[z+2];
+	for(z+=3;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+	signature[2]=bufferI[z+2];
+	PrintMessage3("CHIP ID:%02X%02X%02X\r\n",signature[0],signature[1],signature[2]);
+	AtmelID(signature);
+//****************** erase memory ********************
+	PrintMessage(strings[S_StartErase]);	//"Erase ... "
+	if(saveLog)	fprintf(logfile,"%s\n",strings[S_StartErase]);
+	j=0;
+	bufferU[j++]=SPI_WRITE;		//Chip erase
+	bufferU[j++]=4;
+	bufferU[j++]=0xAC;
+	bufferU[j++]=0x80;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PARAMETER;
+	bufferU[j++]=SET_T3;
+	bufferU[j++]=5000>>8;
+	bufferU[j++]=5000&0xff;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(1+4*Tbyte);
+	msDelay(15);	//erase time 9ms min
+	PrintMessage(strings[S_Compl]);	//"completed\r\n"
+//****************** write code ********************
+	PrintMessage(strings[S_StartCodeProg]);	//"Write code ... "
+	if(saveLog)	fprintf(logfile,"%s\n",strings[S_StartCodeProg]);
+	PrintStatusSetup();
+	int w=0,v,c;
+	for(i=0;i<dim;i+=page*2){
+		for(z=i,v=0;z<i+page*2;z++) if(memCODE[z]<0xFF)v=1;
+		if(v){
+			for(k=0,j=0,v=0;k<page;k+=w){
+				w=(page-k)<(DIMBUF-6)/2?(page-k):(DIMBUF-6)/2;
+				bufferU[j++]=AT_LOAD_DATA;
+				bufferU[j++]=w;
+				bufferU[j++]=k>>8;
+				bufferU[j++]=k;
+				for(z=0;z<w*2;z++)	bufferU[j++]=memCODE[i+k*2+z];
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				PacketIO(1.5+w*9*Tbyte);
+			}
+			bufferU[j++]=SPI_WRITE;		//Write program memory page
+			bufferU[j++]=4;
+			bufferU[j++]=0x4C;
+			bufferU[j++]=i>>9;
+			bufferU[j++]=i>>1;
+			bufferU[j++]=0;
+			bufferU[j++]=WAIT_T3;		//5ms
+			bufferU[j++]=FLUSH;
+			for(;j<DIMBUF;j++) bufferU[j]=0x0;
+			j=0;
+			PacketIO(6+4*Tbyte);
+			//msDelay(5);
+			PrintStatus(strings[S_CodeWriting],i*100/dim,i);	//"Write: %d%%, addr. %03X"
+			if(RWstop) i=dim;
+			//write verification
+			c=(DIMBUF-5)/2;
+			for(k=0,j=0;k<page;k+=c){
+				for(Rtry=0;Rtry<5;Rtry++){		//Try to read a few times
+					bufferU[j++]=AT_READ_DATA;
+					bufferU[j++]=k<(page-c)?c:page-k;
+					bufferU[j++]=(i+k*2)>>9;
+					bufferU[j++]=(i+k*2)>>1;
+					bufferU[j++]=FLUSH;
+					for(;j<DIMBUF;j++) bufferU[j]=0x0;
+					PacketIO(1.5+240*Tbyte);
+					if(bufferI[0]==AT_READ_DATA){	//Fixed reference!!
+						for(w=0,z=2;z<bufferI[1]*2+2&&z<DIMBUF;z++){
+							if(memCODE[i+k*2+w]!=bufferI[z]){
+								if(Rtry<4)	z=DIMBUF;
+								else err++;
+							}
+							w++;
+						}
+						if(z<DIMBUF) Rtry=100;
+					}
+					j=0;
+				}
+			}
+			if(saveLog){
+				fprintf(logfile,strings[S_Log8],i,i,w,w,err);	//"i=%d, k=%d, err=%d\n"
+			}
+			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=dim;
+			}
+		}
+	}
+	PrintStatusEnd();
+	PrintMessage1(strings[S_ComplErr],err);	//"completed, %d errors\r\n"
+//****************** write eeprom ********************
+	if(dim2){
+		PrintMessage(strings[S_EEAreaW]);	//"Write EEPROM ... "
+		if(saveLog)	fprintf(logfile,"%s\n",strings[S_EEAreaW]);
+		PrintStatusSetup();
+		int errEE=0;
+		for(i=0,j=0;i<dim2;i++){
+			if(memEE[i]!=0xFF){
+				bufferU[j++]=SPI_WRITE;		//Write EEPROM memory
+				bufferU[j++]=4;
+				bufferU[j++]=0xC0;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=i;
+				bufferU[j++]=memEE[i];
+				bufferU[j++]=WAIT_T3;		//5ms
+				bufferU[j++]=WAIT_T3;		//5ms
+				bufferU[j++]=SPI_WRITE;		//Read EEPROM memory
+				bufferU[j++]=3;
+				bufferU[j++]=0xA0;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=i;
+				bufferU[j++]=SPI_READ;
+				bufferU[j++]=1;
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				PacketIO(11+8.5*Tbyte);
+				PrintStatus(strings[S_CodeWriting],i*100/dim2,i);	//"Write: %d%%, addr. %03X"
+				for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+				if(z==DIMBUF-2||memEE[i]!=bufferI[z+2]){
+					if(Rtry<4){
+						Rtry++;
+						if (Rtry>maxTry) maxTry=Rtry;
+						i--;
+					}
+					else{
+						errEE++;
+						Rtry=0;
+					}
+				}
+				if(max_err&&err+errEE>max_err){
+					PrintMessage1(strings[S_MaxErr],err+errEE);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
+					PrintMessage(strings[S_IntW]);	//"Write interrupted"
+					i=dim2;
+				}
+				if(saveLog){
+					fprintf(logfile,strings[S_Log8],i,i,k,k,errEE);	//"i=%d, k=%d, err=%d\n"
+				}
+			}
+		}
+		PrintStatusEnd();
+		PrintMessage1(strings[S_ComplErr],errEE);	//"completed, %d errors\r\n"
+		err+=errEE;
+	}
+//****************** write FUSE ********************
+	int err_f=0;
+	if(AVRlock<0x100||AVRfuse<0x100||AVRfuse_h<0x100||AVRfuse_x<0x100){
+		PrintMessage(strings[S_FuseAreaW]);	//"Write Fuse ... "
+		if(saveLog)	fprintf(logfile,"%s\n",strings[S_FuseAreaW]);
+	}
+	if(AVRfuse<0x100){
+		bufferU[j++]=SPI_WRITE;		//Write fuse
+		bufferU[j++]=4;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0xA0;
+		bufferU[j++]=0;
+		bufferU[j++]=AVRfuse;
+		bufferU[j++]=WAIT_T3;		//5ms
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x50;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(6+8.5*Tbyte);
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		if(z==DIMBUF-2||AVRfuse!=bufferI[z+2]) err_f++;
+	}
+	if(AVRfuse_h<0x100){
+		bufferU[j++]=SPI_WRITE;		//Write fuse_h
+		bufferU[j++]=4;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0xA8;
+		bufferU[j++]=0;
+		bufferU[j++]=AVRfuse_h;
+		bufferU[j++]=WAIT_T3;		//5ms
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x58;
+		bufferU[j++]=8;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(6+8.5*Tbyte);
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		if(z==DIMBUF-2||AVRfuse_h!=bufferI[z+2]) err_f++;
+	}
+	if(AVRfuse_x<0x100){
+		bufferU[j++]=SPI_WRITE;		//Write ext fuse
+		bufferU[j++]=4;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0xA4;
+		bufferU[j++]=0;
+		bufferU[j++]=AVRfuse_x;
+		bufferU[j++]=WAIT_T3;		//5ms
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x50;
+		bufferU[j++]=8;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(6+8.5*Tbyte);
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		if(z==DIMBUF-2||AVRfuse_x!=bufferI[z+2]) err_f++;
+	}
+	if(AVRlock<0x100){
+		bufferU[j++]=SPI_WRITE;		//Write lock
+		bufferU[j++]=4;
+		bufferU[j++]=0xAC;
+		bufferU[j++]=0xE0;
+		bufferU[j++]=0;
+		bufferU[j++]=AVRlock;
+		bufferU[j++]=WAIT_T3;		//5ms
+		bufferU[j++]=SPI_WRITE;
+		bufferU[j++]=3;
+		bufferU[j++]=0x58;
+		bufferU[j++]=0;
+		bufferU[j++]=0;
+		bufferU[j++]=SPI_READ;
+		bufferU[j++]=1;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(6+8.5*Tbyte);
+		for(z=0;z<DIMBUF-2&&bufferI[z]!=SPI_READ;z++);
+		if(z==DIMBUF-2||AVRlock!=bufferI[z+2]) err_f++;
+	}
+	err+=err_f;
+	if(AVRlock<0x100||AVRfuse<0x100||AVRfuse_h<0x100||AVRfuse_x<0x100){
+		PrintMessage1(strings[S_ComplErr],err_f);	//"completed, %d errors\r\n"
+	}
+//	if(maxTry) PrintMessage(strings[S_MaxRetry],maxTry); 	//"Max retries in writing: %d\r\n"
+//****************** exit program mode ********************
+	bufferU[j++]=CLOCK_GEN;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=SPI_WRITE;
+	bufferU[j++]=1;
+	bufferU[j++]=0;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	unsigned int stop=GetTickCount();
+	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();
+	}
+	PrintStatusClear();
+}
+
+/// Write ATMEL AVR using HV serial programming
+/// dim=FLASH size in bytes, dim2=EEPROM, page=FLASH page size in words (0 if page write not supported)
+/// options: not used
+void WriteAT_HV(int dim, int dim2, int page, int options)
+{
+	int k=0,z=0,i,j,t,sdo,err=0;
+	BYTE signature[]={0,0,0};
+	if(FWVersion<0x900){
+		PrintMessage1(strings[S_FWver2old],"0.9.0");	//"This firmware is too old. Version %s is required\r\n"
+		return;
+	}
+	if(dim>0x10000||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(saveLog){
+		OpenLogFile();	//"Log.txt"
+		fprintf(logfile,"WriteAT_HV(0x%X,0x%X,0x%X,0x%X)\n",dim,dim2,page,options);
+	}
+	if(dim>size) dim=size;
+	else{
+		size=dim;
+		memCODE=(unsigned char*)realloc(memCODE,dim);
+	}
+	if(page&&(size%(page*2))){	//grow to an integer number of pages
+		j=size;
+		dim=(j/(page*2)+1)*page*2;
+		memCODE=(unsigned char*)realloc(memCODE,dim);
+		for(;j<dim;j++) memCODE[j]=0xFF;
+	}
+	if(dim2>sizeEE) dim2=sizeEE;
+	if(dim<1){
+		PrintMessage(strings[S_NoCode]);	//"Data area is empty\r\n"
+		return;
+	}
+	if(!StartHVReg(12)){
+		PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
+		return;
+	}
+	unsigned int start=GetTickCount();
+	j=0;
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PORT_DIR;
+	bufferU[j++]=0xFC;
+	bufferU[j++]=0x7;
+	bufferU[j++]=EN_VPP_VCC;	//VDD
+	bufferU[j++]=0x1;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=SCI;
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=EN_VPP_VCC;	//VDD + VPP
+	bufferU[j++]=0x5;
+	bufferU[j++]=SET_PORT_DIR;	//RELEASE SDO
+	bufferU[j++]=0xFE;
+	bufferU[j++]=0x7;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(5);
+	j=0;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x01;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=AT_HV_RTX;		//Read signature bytes
+	bufferU[j++]=4;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x08;
+	bufferU[j++]=0x0C;
+	bufferU[j++]=0x02;
+	bufferU[j++]=0x68;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(8);
+	for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[0]=bufferI[z+1];
+	for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[1]=bufferI[z+1];
+	for(z+=2;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+	signature[2]=bufferI[z+1];
+	PrintMessage3("CHIP ID:%02X%02X%02X\r\n",signature[0],signature[1],signature[2]);
+	AtmelID(signature);
+//****************** erase memory ********************
+	if(saveLog)fprintf(logfile,"CHIP ERASE\n");
+	j=0;
+	bufferU[j++]=AT_HV_RTX;	//Chip erase
+	bufferU[j++]=3;
+	bufferU[j++]=0x4C;
+	bufferU[j++]=0x80;
+	bufferU[j++]=0x64;
+	bufferU[j++]=0x00;
+	bufferU[j++]=0x6C;
+	bufferU[j++]=0x00;
+	bufferU[j++]=READ_B;	//check SDO
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	j=0;
+	bufferU[j++]=READ_B;	//check SDO
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	for(t=0,sdo=0;t<20&&sdo==0;t++){
+		PacketIO(2);
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+		sdo=bufferI[z+1]&2;
+	}
+	if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+	PrintMessage(strings[S_Compl]);	//"completed\r\n"
+//****************** write code ********************
+	PrintMessage(strings[S_StartCodeProg]);	//"Write code ... "
+	PrintStatusSetup();
+	if(saveLog)fprintf(logfile,"WRITE CODE\n");
+	int currPage=-1;
+	j=0;
+	if(page==0){		//byte write
+		for(i=0,k=0;i<dim;i+=2){
+			if(memCODE[i]!=0xFF||memCODE[i+1]!=0xFF){
+				bufferU[j++]=AT_HV_RTX;
+				bufferU[j++]=6;
+				bufferU[j++]=0x4C;	//Write FLASH
+				bufferU[j++]=0x10;
+				bufferU[j++]=0x1C;
+				bufferU[j++]=i>>9;
+				bufferU[j++]=0x0C;
+				bufferU[j++]=(i/2)&0xFF;
+				bufferU[j++]=0x2C;
+				bufferU[j++]=memCODE[i];
+				bufferU[j++]=0x64;		//write data low
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x6C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				j=0;
+				if(saveLog){
+					fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d(0x%X), k=%d(0x%X)\n"
+				}
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				for(t=0,sdo=0;t<20&&sdo==0;t++){
+					PacketIO(2);
+					for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+					sdo=bufferI[z+1]&2;
+				}
+				if(saveLog&&sdo==0) fprintf(logfile,"SDO=0\r\n");
+				bufferU[j++]=AT_HV_RTX;
+				bufferU[j++]=3;
+				bufferU[j++]=0x3C;
+				bufferU[j++]=memCODE[i+1];
+				bufferU[j++]=0x74;		//write data high
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x7C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				j=0;
+				if(saveLog){
+					fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d(0x%X), k=%d(0x%X)\n"
+				}
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				for(t=0,sdo=0;t<20&&sdo==0;t++){
+					PacketIO(2);
+					for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+					sdo=bufferI[z+1]&2;
+				}
+				if(saveLog&&sdo==0) fprintf(logfile,"SDO=0\r\n");
+				PrintStatus(strings[S_CodeWriting],i*100/dim,i);	//"Write: %d%%, addr. %03X"
+				//write verification
+				bufferU[j++]=AT_HV_RTX;		//Read FLASH
+				bufferU[j++]=3;
+				bufferU[j++]=0x4C;
+				bufferU[j++]=0x02;
+				bufferU[j++]=0x68;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x6C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=AT_HV_RTX;
+				bufferU[j++]=2;
+				bufferU[j++]=0x78;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x7C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				j=0;
+				k=i;
+				for(z=0;z<DIMBUF-1;z++){
+					if(bufferI[z]==AT_HV_RTX){
+						if(memCODE[k]!=bufferI[z+1]){
+							PrintMessage4(strings[S_CodeVError],k,k,memCODE[k],bufferI[z+1]);	//"Error writing address %4X: written %02X, read %02X\r\n"
+							err++;
+						}
+						k++;
+						z++;
+					}
+				}
+				if(saveLog){
+					fprintf(logfile,strings[S_Log8],i,i,k,k,err);	//"i=%d, k=%d, err=%d\n"
+				}
+				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=dim;
+				}
+			}
+		}
+	}
+	else{		//page write
+		for(i=0;i<dim;i+=page*2){	//page in words
+			for(k=0;k<page;k++){
+				if(memCODE[i+k*2]!=0xFF||memCODE[i+k*2+1]!=0xFF) k=page;
+			}
+			if(k>page){	//only pages with data!=0xFF
+				bufferU[j++]=AT_HV_RTX;
+				bufferU[j++]=1;
+				bufferU[j++]=0x4C;	//Write FLASH
+				bufferU[j++]=0x10;
+				for(k=0;k<page;k++){
+					bufferU[j++]=AT_HV_RTX;
+					bufferU[j++]=5;
+					bufferU[j++]=0x0C;
+					bufferU[j++]=(i/2+k)&0xFF;
+					bufferU[j++]=0x2C;
+					bufferU[j++]=memCODE[i+k*2];	//data low
+					bufferU[j++]=0x3C;
+					bufferU[j++]=memCODE[i+k*2+1];	//data high
+					bufferU[j++]=0x7D;
+					bufferU[j++]=0x00;
+					bufferU[j++]=0x7C;
+					bufferU[j++]=0x00;
+					if(j>DIMBUF-13||k>=page||i>=dim-2){
+						bufferU[j++]=FLUSH;
+						for(;j<DIMBUF;j++) bufferU[j]=0x0;
+						PacketIO(2);
+						j=0;
+						if(saveLog){
+							fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d(0x%X), k=%d(0x%X)\n"
+						}
+					}
+				}
+				if((i>>9)!=currPage){	//change high address if changed
+					bufferU[j++]=AT_HV_RTX;
+					bufferU[j++]=1;
+					bufferU[j++]=0x1C;
+					bufferU[j++]=i>>9;
+					currPage=i>>9;
+				}
+				bufferU[j++]=AT_HV_RTX;	//write page
+				bufferU[j++]=2;
+				bufferU[j++]=0x64;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x6C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				j=0;
+				if(saveLog){
+					fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d(0x%X), k=%d(0x%X)\n"
+				}
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				for(t=0,sdo=0;t<20&&sdo==0;t++){
+					PacketIO(2);
+					for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+					sdo=bufferI[z+1]&2;
+				}
+				if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+				PrintStatus(strings[S_CodeWriting],i*100/dim,i);	//"Write: %d%%, addr. %03X"
+				j=0;
+				//write verification
+				int m=0;
+				for(k=0;k<page;k++){
+					if(k==0){
+						bufferU[j++]=AT_HV_RTX;		//Read FLASH
+						bufferU[j++]=4;
+						bufferU[j++]=0x4C;
+						bufferU[j++]=0x02;
+					}
+					else{
+						bufferU[j++]=AT_HV_RTX;
+						bufferU[j++]=3;
+					}
+					bufferU[j++]=0x0C;
+					bufferU[j++]=(i/2+k)&0xFF;
+					bufferU[j++]=0x68;
+					bufferU[j++]=0x00;
+					bufferU[j++]=0x6C;
+					bufferU[j++]=0x00;
+					bufferU[j++]=AT_HV_RTX;
+					bufferU[j++]=2;
+					bufferU[j++]=0x78;
+					bufferU[j++]=0x00;
+					bufferU[j++]=0x7C;
+					bufferU[j++]=0x00;
+					if(j>DIMBUF-14||k>=page||i>=dim-2){
+						bufferU[j++]=FLUSH;
+						for(;j<DIMBUF;j++) bufferU[j]=0x0;
+						PacketIO(2);
+						j=0;
+						for(z=0;z<DIMBUF-1;z++){
+							if(bufferI[z]==AT_HV_RTX){
+								if(memCODE[i+m]!=bufferI[z+1]){
+									PrintMessage4(strings[S_CodeVError],i+m,i+m,memCODE[i+m],bufferI[z+1]);	//"Error writing address %4X: written %02X, read %02X\r\n"
+									err++;
+								}
+								m++;
+								z++;
+							}
+						}
+						if(saveLog){
+							fprintf(logfile,strings[S_Log8],i,i,m,m,err);	//"i=%d, k=%d, err=%d\n"
+						}
+						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=dim;
+						}
+					}
+				}
+			}
+		}
+	}
+	PrintStatusEnd();
+	PrintMessage1(strings[S_ComplErr],err);	//"completed, %d errors\r\n"
+//****************** write eeprom ********************
+	if(dim2){
+		int errEE=0;
+		PrintMessage(strings[S_EEAreaW]);	//"Write EEPROM ... "
+		PrintStatusSetup();
+		if(saveLog)fprintf(logfile,"WRITE EEPROM\n");
+		j=0;
+		for(i=0;i<dim2;i++){
+			if(memEE[i]!=0xFF){
+				bufferU[j++]=AT_HV_RTX;		//Write EEPROM
+				bufferU[j++]=7;
+				bufferU[j++]=0x4C;
+				bufferU[j++]=0x11;
+				bufferU[j++]=0x0C;
+				bufferU[j++]=i&0xFF;
+				bufferU[j++]=0x1C;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=0x2C;
+				bufferU[j++]=memEE[i];
+				bufferU[j++]=0x6D;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x64;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x6C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				PacketIO(2);
+				PrintStatus(strings[S_CodeWriting],i*100/dim2,i);	//"Write: %d%%, addr. %03X"
+				if(saveLog){
+					fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d(0x%X), k=%d(0x%X)\n"
+				}
+				bufferU[j++]=READ_B;	//check SDO
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				j=0;
+				for(t=0,sdo=0;t<20&&sdo==0;t++){
+					PacketIO(2);
+					for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+					sdo=bufferI[z+1]&2;
+				}
+				if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+				//write verification
+				bufferU[j++]=AT_HV_RTX;		//Read EEPROM
+				bufferU[j++]=5;
+				bufferU[j++]=0x4C;
+				bufferU[j++]=0x03;
+				bufferU[j++]=0x1C;
+				bufferU[j++]=i>>8;
+				bufferU[j++]=0x0C;
+				bufferU[j++]=i&0xFF;
+				bufferU[j++]=0x68;
+				bufferU[j++]=0x00;
+				bufferU[j++]=0x6C;
+				bufferU[j++]=0x00;
+				bufferU[j++]=FLUSH;
+				for(;j<DIMBUF;j++) bufferU[j]=0x0;
+				PacketIO(2);
+				for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+				if(memEE[i]!=bufferI[z+1]){
+					PrintMessage4(strings[S_CodeVError],i,i,memEE[i],bufferI[z+1]);	//"Error writing address %4X: written %02X, read %02X\r\n"
+					errEE++;
+				}
+				j=0;
+				if(saveLog){
+					fprintf(logfile,strings[S_Log8],i,i,k,k,errEE);	//"i=%d, k=%d, errors=%d\n"
+				}
+				if(err+errEE>=max_err) break;
+			}
+		}
+		PrintStatusEnd();
+		err+=errEE;
+		if(err>=max_err){
+			PrintMessage("\r\n");
+			PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
+		}
+		PrintMessage1(strings[S_ComplErr],errEE);	//"completed: %d errors\r\n"
+	}
+//****************** write FUSE ********************
+	int err_f=0;
+	if(AVRlock<0x100||AVRfuse<0x100||AVRfuse_h<0x100||AVRfuse_x<0x100)PrintMessage(strings[S_FuseAreaW]);	//"Write Fuse ... "
+	if(AVRfuse<0x100){
+		if(saveLog)fprintf(logfile,"WRITE FUSE\n");
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=4;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x40;
+		bufferU[j++]=0x2C;
+		bufferU[j++]=AVRfuse;
+		bufferU[j++]=0x64;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(2);
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+		sdo=bufferI[z+1]&2;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		for(i=0;i<20&&sdo==0;i++){
+			PacketIO(2);
+			for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+			sdo=bufferI[z+1]&2;
+		}
+		if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+		j=0;
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x68;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		j=0;
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		if(z==DIMBUF-1||AVRfuse!=bufferI[z+1]){
+			PrintMessage3(strings[S_WErr1],"fuse",AVRfuse,bufferI[z+1]);	//"Error writing %s: written %02X, read %02X"
+			err_f++;
+		}
+	}
+	if(AVRfuse_h<0x100){
+		if(saveLog)fprintf(logfile,"WRITE FUSEH\n");
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=4;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x40;
+		bufferU[j++]=0x2C;
+		bufferU[j++]=AVRfuse_h;
+		bufferU[j++]=0x74;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(2);
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+		sdo=bufferI[z+1]&2;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		for(i=0;i<20&&sdo==0;i++){
+			PacketIO(2);
+			for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+			sdo=bufferI[z+1]&2;
+		}
+		if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+		j=0;
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x7A;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7E;
+		bufferU[j++]=0x00;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		j=0;
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		if(z==DIMBUF-1||AVRfuse_h!=bufferI[z+1]){
+			PrintMessage3(strings[S_WErr1],"fuseH",AVRfuse_h,bufferI[z+1]);	//"Error writing %s: written %02X, read %02X"
+			err_f++;
+		}
+	}
+	if(AVRfuse_x<0x100){
+		if(saveLog)fprintf(logfile,"WRITE FUSEX\n");
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=4;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x40;
+		bufferU[j++]=0x2C;
+		bufferU[j++]=AVRfuse_x;
+		bufferU[j++]=0x66;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6E;
+		bufferU[j++]=0x00;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(2);
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+		sdo=bufferI[z+1]&2;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		for(i=0;i<20&&sdo==0;i++){
+			PacketIO(2);
+			for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+			sdo=bufferI[z+1]&2;
+		}
+		if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+		j=0;
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x6A;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6E;
+		bufferU[j++]=0x00;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		j=0;
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		if(z==DIMBUF-1||AVRfuse_x!=bufferI[z+1]){
+			PrintMessage3(strings[S_WErr1],"fuseX",AVRfuse_x,bufferI[z+1]);	//"Error writing %s: written %02X, read %02X"
+			err_f++;
+		}
+	}
+	if(AVRlock<0x100){
+		if(saveLog)fprintf(logfile,"WRITE LOCK\n");
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=4;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x20;
+		bufferU[j++]=0x2C;
+		bufferU[j++]=AVRlock;
+		bufferU[j++]=0x64;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x6C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		j=0;
+		PacketIO(2);
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+		sdo=bufferI[z+1]&2;
+		bufferU[j++]=READ_B;	//check SDO
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		for(i=0;i<20&&sdo==0;i++){
+			PacketIO(2);
+			for(z=0;z<DIMBUF-1&&bufferI[z]!=READ_B;z++);
+			sdo=bufferI[z+1]&2;
+		}
+		if(sdo==0&&saveLog) fprintf(logfile,"SDO=0\r\n");
+		j=0;
+		bufferU[j++]=AT_HV_RTX;
+		bufferU[j++]=3;
+		bufferU[j++]=0x4C;
+		bufferU[j++]=0x04;
+		bufferU[j++]=0x78;
+		bufferU[j++]=0x00;
+		bufferU[j++]=0x7C;
+		bufferU[j++]=0x00;
+		bufferU[j++]=FLUSH;
+		for(;j<DIMBUF;j++) bufferU[j]=0x0;
+		PacketIO(2);
+		j=0;
+		for(z=0;z<DIMBUF-1&&bufferI[z]!=AT_HV_RTX;z++);
+		if(z==DIMBUF-1||AVRlock!=bufferI[z+1]){
+			PrintMessage3(strings[S_WErr1],"lock",AVRlock,bufferI[z+1]);	//"Error writing %s: written %02X, read %02X"
+			err_f++;
+		}
+	}
+	err+=err_f;
+	if(AVRlock<0x100||AVRfuse<0x100||AVRfuse_h<0x100||AVRfuse_x<0x100){
+		PrintMessage1(strings[S_ComplErr],err_f);	//"completed, %d errors\r\n"
+	}
+//****************** exit program mode ********************
+	bufferU[j++]=EXT_PORT;
+	bufferU[j++]=0;
+	bufferU[j++]=0;
+	bufferU[j++]=SET_PORT_DIR; //All input
+	bufferU[j++]=0xFF;
+	bufferU[j++]=0xFF;
+	bufferU[j++]=EN_VPP_VCC;		//VDD
+	bufferU[j++]=0;
+	bufferU[j++]=FLUSH;
+	for(;j<DIMBUF;j++) bufferU[j]=0x0;
+	PacketIO(2);
+	unsigned int stop=GetTickCount();
+	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();
+	}
+	PrintStatusClear();
+}
-- 
cgit v1.2.3-54-g00ecf