/**
 * \file progP18F.c - algorithms to program the PIC18 family of microcontrollers
 * Copyright (C) 2009-2023 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/>
 */

//This cannot be executed conditionally on MSVC
//#include "stdafx.h"

#include "common.h"

struct ID18{
	int id;
	char *device;
	int revmask;
} PIC18LIST[]={
	{0x0400,"18F252/2539 rev%d\r\n",0x1F},
	{0x0420,"18F452/4539 rev%d\r\n",0x1F},
	{0x0480,"18F242/2439 rev%d\r\n",0x1F},
	{0x04A0,"18F442/4439 rev%d\r\n",0x1F},
	{0x0500,"18F2320 rev%d\r\n",0x1F},
	{0x0520,"18F4320 rev%d\r\n",0x1F},
	{0x0580,"18F2220 rev%d\r\n",0x1F},
	{0x05A0,"18F4220 rev%d\r\n",0x1F},
	{0x0600,"18F8720 rev%d\r\n",0x1F},
	{0x0620,"18F6720 rev%d\r\n",0x1F},
	{0x0640,"18F8620 rev%d\r\n",0x1F},
	{0x0660,"18F6620 rev%d\r\n",0x1F},
	{0x07C0,"18F1320 rev%d\r\n",0x1F},
	{0x07E0,"18F1220 rev%d\r\n",0x1F},
	{0x0800,"18F248 rev%d\r\n",0x1F},
	{0x0820,"18F448 rev%d\r\n",0x1F},
	{0x0840,"18F258 rev%d\r\n",0x1F},
	{0x0860,"18F458 rev%d\r\n",0x1F},
	{0x0880,"18F4431 rev%d\r\n",0x1F},
	{0x08A0,"18F4331 rev%d\r\n",0x1F},
	{0x08C0,"18F2431 rev%d\r\n",0x1F},
	{0x08E0,"18F2331 rev%d\r\n",0x1F},
	{0x0B20,"18F6520 rev%d\r\n",0x1F},
	{0x0B00,"18F8520 rev%d\r\n",0x1F},
	{0x0C00,"18F4620 rev%d\r\n",0x1F},
	{0x0C20,"18F4610 rev%d\r\n",0x1F},
	{0x0C40,"18F4525 rev%d\r\n",0x1F},
	{0x0C60,"18F4515 rev%d\r\n",0x1F},
	{0x0C80,"18F2620 rev%d\r\n",0x1F},
	{0x0CA0,"18F2610 rev%d\r\n",0x1F},
	{0x0CC0,"18F2525 rev%d\r\n",0x1F},
	{0x0CE0,"18F2515 rev%d\r\n",0x1F},
	{0x0E80,"18F4680 rev%d\r\n",0x1F},
	{0x0EA0,"18F4585 rev%d\r\n",0x1F},
	{0x0EC0,"18F2680 rev%d\r\n",0x1F},
	{0x0EE0,"18F2585 rev%d\r\n",0x1F},
	{0x1081,"18F4523 rev%d\r\n",0x0F},
	{0x1080,"18F4520 rev%d\r\n",0x0F},
	{0x10A0,"18F4510 rev%d\r\n",0x1F},
	{0x10C1,"18F4423 rev%d\r\n",0x0F},
	{0x10C0,"18F4420 rev%d\r\n",0x0F},
	{0x10E0,"18F4410 rev%d\r\n",0x1F},
	{0x1100,"18F2523 rev%d\r\n",0x0F},
	{0x1100,"18F2520 rev%d\r\n",0x0F},
	{0x1120,"18F2510 rev%d\r\n",0x1F},
	{0x1140,"18F2423 rev%d\r\n",0x0F},
	{0x1140,"18F2420 rev%d\r\n",0x0F},
	{0x1160,"18F2410 rev%d\r\n",0x1F},
	{0x1200,"18F4550 rev%d\r\n",0x1F},
	{0x1220,"18F4455 rev%d\r\n",0x1F},
	{0x1240,"18F2550 rev%d\r\n",0x1F},
	{0x1260,"18F2455 rev%d\r\n",0x1F},
	{0x1340,"18F6527 rev%d\r\n",0x1F},
	{0x1360,"18F8527 rev%d\r\n",0x1F},
	{0x1380,"18F6622 rev%d\r\n",0x1F},
	{0x13A0,"18F8622 rev%d\r\n",0x1F},
	{0x13C0,"18F6627 rev%d\r\n",0x1F},
	{0x13E0,"18F8627 rev%d\r\n",0x1F},
	{0x1400,"18F6722 rev%d\r\n",0x1F},
	{0x1420,"18F8722 rev%d\r\n",0x1F},
	{0x1520,"18F65J10 rev%d\r\n",0x1F},
	{0x1540,"18F65J15 rev%d\r\n",0x1F},
	{0x1560,"18F66J10 rev%d\r\n",0x1F},
	{0x1580,"18F66J15 rev%d\r\n",0x1F},
	{0x15A0,"18F67J10 rev%d\r\n",0x1F},
	{0x15E0,"18F85J10 rev%d\r\n",0x1F},
	{0x1700,"18F85J15 rev%d\r\n",0x1F},
	{0x1720,"18F86J10 rev%d\r\n",0x1F},
	{0x1740,"18F86J15 rev%d\r\n",0x1F},
	{0x1760,"18F87J10 rev%d\r\n",0x1F},
	{0x1800,"18F66J60 rev%d\r\n",0x1F},
	{0x1820,"18F86J60 rev%d\r\n",0x1F},
	{0x1840,"18F96J60 rev%d\r\n",0x1F},
	{0x1A80,"18F4580 rev%d\r\n",0x1F},
	{0x1AA0,"18F4480 rev%d\r\n",0x1F},
	{0x1AC0,"18F2580 rev%d\r\n",0x1F},
	{0x1AE0,"18F2480 rev%d\r\n",0x1F},
	{0x1C00,"18F25J10 rev%d\r\n",0x1F},
	{0x1C20,"18F45J10 rev%d\r\n",0x1F},
	{0x1C40,"18LF25J10 rev%d\r\n",0x1F},
	{0x1C60,"18LF45J10 rev%d\r\n",0x1F},
	{0x1D00,"18F24J10 rev%d\r\n",0x1F},
	{0x1D20,"18F44J10 rev%d\r\n",0x1F},
	{0x1D40,"18LF24J10 rev%d\r\n",0x1F},
	{0x1D60,"18LF44J10 rev%d\r\n",0x1F},
	{0x1E00,"18F1230 rev%d\r\n",0x1F},
	{0x1E20,"18F1330 rev%d\r\n",0x1F},
	{0x1F00,"18F66J65 rev%d\r\n",0x1F},
	{0x1F20,"18F67J60 rev%d\r\n",0x1F},
	{0x1F40,"18F86J65 rev%d\r\n",0x1F},
	{0x1F60,"18F87J60 rev%d\r\n",0x1F},
	{0x1F80,"18F96J65 rev%d\r\n",0x1F},
	{0x1FA0,"18F97J60 rev%d\r\n",0x1F},
	{0x1FE0,"18F1330-ICD rev%d\r\n",0x1F},
	{0x2000,"18F46K20 rev%d\r\n",0x1F},
	{0x2020,"18F26K20 rev%d\r\n",0x1F},
	{0x2040,"18F45K20 rev%d\r\n",0x1F},
	{0x2060,"18F25K20 rev%d\r\n",0x1F},
	{0x2080,"18F44K20 rev%d\r\n",0x1F},
	{0x20A0,"18F24K20 rev%d\r\n",0x1F},
	{0x20C0,"18F43K20 rev%d\r\n",0x1F},
	{0x20E0,"18F23K20 rev%d\r\n",0x1F},
	{0x2100,"18F4321 rev%d\r\n",0x1F},
	{0x2120,"18F2321 rev%d\r\n",0x1F},
	{0x2140,"18F4221 rev%d\r\n",0x1F},
	{0x2160,"18F2221 rev%d\r\n",0x1F},
	{0x2400,"18F4450 rev%d\r\n",0x1F},
	{0x2420,"18F2450 rev%d\r\n",0x1F},
	{0x2700,"18F2682 rev%d\r\n",0x1F},
	{0x2720,"18F2685 rev%d\r\n",0x1F},
	{0x2740,"18F4682 rev%d\r\n",0x1F},
	{0x2760,"18F4685 rev%d\r\n",0x1F},
	{0x2A00,"18F4553 rev%d\r\n",0x1F},
	{0x2A20,"18F4458 rev%d\r\n",0x1F},
	{0x2A40,"18F2553 rev%d\r\n",0x1F},
	{0x2A60,"18F2458 rev%d\r\n",0x1F},
	{0x3800,"18F63J90 rev%d\r\n",0x1F},
	{0x3820,"18F64J90 rev%d\r\n",0x1F},
	{0x3860,"18F65J90 rev%d\r\n",0x1F},
	{0x3880,"18F83J90 rev%d\r\n",0x1F},
	{0x38A0,"18F84J90 rev%d\r\n",0x1F},
	{0x38E0,"18F85J90 rev%d\r\n",0x1F},
	{0x3900,"18F63J11 rev%d\r\n",0x1F},
	{0x3920,"18F64J11 rev%d\r\n",0x1F},
	{0x3960,"18F65J11 rev%d\r\n",0x1F},
	{0x3980,"18F83J11 rev%d\r\n",0x1F},
	{0x39A0,"18F84J11 rev%d\r\n",0x1F},
	{0x39E0,"18F85J11 rev%d\r\n",0x1F},
	{0x4100,"18F65J50 rev%d\r\n",0x1F},
	{0x4140,"18F66J50 rev%d\r\n",0x1F},
	{0x4160,"18F66J55 rev%d\r\n",0x1F},
	{0x4180,"18F67J50 rev%d\r\n",0x1F},
	{0x41A0,"18F85J50 rev%d\r\n",0x1F},
	{0x41E0,"18F86J50 rev%d\r\n",0x1F},
	{0x4200,"18F86J55 rev%d\r\n",0x1F},
	{0x4220,"18F87J50 rev%d\r\n",0x1F},
	{0x4440,"18F66J11 rev%d\r\n",0x1F},
	{0x4460,"18F66J16 rev%d\r\n",0x1F},
	{0x4480,"18F67J11 rev%d\r\n",0x1F},
	{0x44E0,"18F86J11 rev%d\r\n",0x1F},
	{0x4500,"18F86J16 rev%d\r\n",0x1F},
	{0x4520,"18F87J11 rev%d\r\n",0x1F},
	{0x4700,"18LF13K50 rev%d\r\n",0x1F},
	{0x4720,"18LF14K50 rev%d\r\n",0x1F},
	{0x4740,"18F13K50 rev%d\r\n",0x1F},
	{0x4760,"18F14K50 rev%d\r\n",0x1F},
	{0x49C0,"18F6628 rev%d\r\n",0x1F},
	{0x49E0,"18F8628 rev%d\r\n",0x1F},
	{0x4A00,"18F6723 rev%d\r\n",0x1F},
	{0x4A20,"18F8723 rev%d\r\n",0x1F},
	{0x4C00,"18F24J50 rev%d\r\n",0x1F},
	{0x4C20,"18F25J50 rev%d\r\n",0x1F},
	{0x4C40,"18F26J50 rev%d\r\n",0x1F},
	{0x4C60,"18F44J50 rev%d\r\n",0x1F},
	{0x4C80,"18F45J50 rev%d\r\n",0x1F},
	{0x4D80,"18F24J11 rev%d\r\n",0x1F},
	{0x4DA0,"18F25J11 rev%d\r\n",0x1F},
	{0x4DC0,"18F26J11 rev%d\r\n",0x1F},
	{0x4DE0,"18F44J11 rev%d\r\n",0x1F},
	{0x4E00,"18F45J11 rev%d\r\n",0x1F},
	{0x4E20,"18F46J11 rev%d\r\n",0x1F},
	{0x4E60,"18LF25J11 rev%d\r\n",0x1F},
	{0x4E80,"18LF26J11 rev%d\r\n",0x1F},
	{0x4EA0,"18LF44J11 rev%d\r\n",0x1F},
	{0x4EC0,"18LF45J11 rev%d\r\n",0x1F},
	{0x4EE0,"18LF46J11 rev%d\r\n",0x1F},
	{0x4F20,"18F14K22 rev%d\r\n",0x1F},
	{0x4F40,"18F13K22 rev%d\r\n",0x1F},
	{0x4F60,"18LF14K22 rev%d\r\n",0x1F},
	{0x4F80,"18LF13K22 rev%d\r\n",0x1F},
	{0x5000,"18F66J90 rev%d\r\n",0x1F},
	{0x5020,"18F67J90 rev%d\r\n",0x1F},
	{0x5040,"18F66J93/86J72 rev%d\r\n",0x1F},
	{0x5060,"18F67J93/87J72 rev%d\r\n",0x1F},
	{0x5080,"18F86J90 rev%d\r\n",0x1F},
	{0x50A0,"18F87J90 rev%d\r\n",0x1F},
	{0x50C0,"18F86J93 rev%d\r\n",0x1F},
	{0x50E0,"18F87J93 rev%d\r\n",0x1F},
	{0x5400,"18F46K22 rev%d\r\n",0x1F},
	{0x5420,"18LF46K22 rev%d\r\n",0x1F},
	{0x5440,"18F26K22 rev%d\r\n",0x1F},
	{0x5460,"18LF26K22 rev%d\r\n",0x1F},
	{0x5500,"18F45K22 rev%d\r\n",0x1F},
	{0x5520,"18LF45K22 rev%d\r\n",0x1F},
	{0x5540,"18F25K22 rev%d\r\n",0x1F},
	{0x5560,"18LF25K22 rev%d\r\n",0x1F},
	{0x5600,"18F44K22 rev%d\r\n",0x1F},
	{0x5620,"18LF44K22 rev%d\r\n",0x1F},
	{0x5640,"18F24K22 rev%d\r\n",0x1F},
	{0x5660,"18LF24K22 rev%d\r\n",0x1F},
	{0x5700,"18F43K22 rev%d\r\n",0x1F},
	{0x5720,"18LF43K22 rev%d\r\n",0x1F},
	{0x5740,"18F23K22 rev%d\r\n",0x1F},
	{0x5760,"18LF23K22 rev%d\r\n",0x1F},
	{0x5820,"18F26J53 rev%d\r\n",0x1F},
	{0x5860,"18F27J53 rev%d\r\n",0x1F},
	{0x58A0,"18F46J53 rev%d\r\n",0x1F},
	{0x58E0,"18F47J53 rev%d\r\n",0x1F},
	{0x5920,"18F26J13 rev%d\r\n",0x1F},
	{0x5960,"18F27J13 rev%d\r\n",0x1F},
	{0x59A0,"18F46J13 rev%d\r\n",0x1F},
	{0x59E0,"18F47J13 rev%d\r\n",0x1F},
	{0x5A20,"18LF26J53 rev%d\r\n",0x1F},
	{0x5A60,"18LF27J53 rev%d\r\n",0x1F},
	{0x5AA0,"18LF46J53 rev%d\r\n",0x1F},
	{0x5AE0,"18LF47J53 rev%d\r\n",0x1F},
	{0x5B20,"18LF26J13 rev%d\r\n",0x1F},
	{0x5B60,"18LF27J13 rev%d\r\n",0x1F},
	{0x5BA0,"18LF46J13 rev%d\r\n",0x1F},
	{0x5BE0,"18LF47J13 rev%d\r\n",0x1F},
	{0x5C00,"18F45K50 rev%d\r\n",0x1F},
	{0x5C20,"18F25K50 rev%d\r\n",0x1F},
	{0x5C60,"18F24K50 rev%d\r\n",0x1F},
	{0x5C80,"18LF45K50 rev%d\r\n",0x1F},
	{0x5CA0,"18LF25K50 rev%d\r\n",0x1F},
	{0x5CE0,"18LF24K50 rev%d\r\n",0x1F},
	{0x5D00,"18F46K50 rev%d\r\n",0x1F},
	{0x5D20,"18F26K50 rev%d\r\n",0x1F},
	{0x5D40,"18LF46K50 rev%d\r\n",0x1F},
	{0x5D60,"18LF26K50 rev%d\r\n",0x1F},
	{0x60E0,"18F66K80 rev%d\r\n",0x1F},
	{0x6100,"18F46K80 rev%d\r\n",0x1F},
	{0x6120,"18F26K80 rev%d\r\n",0x1F},
	{0x6140,"18F65K80 rev%d\r\n",0x1F},
	{0x6160,"18F45K80 rev%d\r\n",0x1F},
	{0x6180,"18F25K80 rev%d\r\n",0x1F},
	{0x61C0,"18LF66K80 rev%d\r\n",0x1F},
	{0x61E0,"18LF46K80 rev%d\r\n",0x1F},
	{0x6200,"18LF26K80 rev%d\r\n",0x1F},
	{0x6220,"18LF65K80 rev%d\r\n",0x1F},
	{0x6240,"18LF45K80 rev%d\r\n",0x1F},
	{0x6260,"18LF25K80 rev%d\r\n",0x1F},
	{0x6B80,"18F57K42 rev%c%d\r\n",0xFFFF},
	{0x6BA0,"18F56K42 rev%c%d\r\n",0xFFFF},
	{0x6BC0,"18F55K42 rev%c%d\r\n",0xFFFF},
	{0x6BE0,"18F47K42 rev%c%d\r\n",0xFFFF},
	{0x6C00,"18F46K42 rev%c%d\r\n",0xFFFF},
	{0x6C20,"18F45K42 rev%c%d\r\n",0xFFFF},
	{0x6C40,"18F27K42 rev%c%d\r\n",0xFFFF},
	{0x6C60,"18F26K42 rev%c%d\r\n",0xFFFF},
	{0x6CC0,"18LF57K42 rev%c%d\r\n",0xFFFF},
	{0x6CE0,"18LF56K42 rev%c%d\r\n",0xFFFF},
	{0x6D00,"18LF55K42 rev%c%d\r\n",0xFFFF},
	{0x6D20,"18LF47K42 rev%c%d\r\n",0xFFFF},
	{0x6D40,"18LF46K42 rev%c%d\r\n",0xFFFF},
	{0x6D60,"18LF45K42 rev%c%d\r\n",0xFFFF},
	{0x6D80,"18LF27K42 rev%c%d\r\n",0xFFFF},
	{0x6DA0,"18LF26K42 rev%c%d\r\n",0xFFFF},
	{0x6EC0,"18F26K83 rev%c%d\r\n",0xFFFF},
	{0x6EE0,"18F25K83 rev%c%d\r\n",0xFFFF},
	{0x6F00,"18LF26K83 rev%c%d\r\n",0xFFFF},
	{0x6F20,"18LF25K83 rev%c%d\r\n",0xFFFF},
	{0x73C0,"18F25Q43 rev%c%d\r\n",0xFFFF},
	{0x73E0,"18F45Q43 rev%c%d\r\n",0xFFFF},
	{0x7400,"18F55Q43 rev%c%d\r\n",0xFFFF},
	{0x7420,"18F26Q43 rev%c%d\r\n",0xFFFF},
	{0x7440,"18F46Q43 rev%c%d\r\n",0xFFFF},
	{0x7460,"18F56Q43 rev%c%d\r\n",0xFFFF},
	{0x7480,"18F27Q43 rev%c%d\r\n",0xFFFF},
	{0x74A0,"18F47Q43 rev%c%d\r\n",0xFFFF},
	{0x74C0,"18F57Q43 rev%c%d\r\n",0xFFFF},
	{0x74E0,"18F15Q41 rev%c%d\r\n",0xFFFF},
	{0x7500,"18F05Q41 rev%c%d\r\n",0xFFFF},
	{0x7520,"18F14Q41 rev%c%d\r\n",0xFFFF},
	{0x7540,"18F04Q41 rev%c%d\r\n",0xFFFF},
	{0x7560,"18F16Q41 rev%c%d\r\n",0xFFFF},
	{0x7580,"18F06Q41 rev%c%d\r\n",0xFFFF},
	{0x75A0,"18F16Q40 rev%c%d\r\n",0xFFFF},
	{0x75C0,"18F06Q40 rev%c%d\r\n",0xFFFF},
	{0x75E0,"18F15Q40 rev%c%d\r\n",0xFFFF},
	{0x7600,"18F05Q40 rev%c%d\r\n",0xFFFF},
	{0x7620,"18F14Q40 rev%c%d\r\n",0xFFFF},
	{0x7640,"18F04Q40 rev%c%d\r\n",0xFFFF},
	{0x7660,"18F24Q71 rev%c%d\r\n",0xFFFF},
	{0x76A0,"18F25Q71 rev%c%d\r\n",0xFFFF},
	{0x76E0,"18F26Q71 rev%c%d\r\n",0xFFFF},
	{0x7720,"18F46Q71 rev%c%d\r\n",0xFFFF},
	{0x7760,"18F56Q71 rev%c%d\r\n",0xFFFF},
	{0x77A0,"18F44Q71 rev%c%d\r\n",0xFFFF},
	{0x77E0,"18F45Q71 rev%c%d\r\n",0xFFFF},
	{0x7820,"18F54Q71 rev%c%d\r\n",0xFFFF},
	{0x7860,"18F55Q71 rev%c%d\r\n",0xFFFF},
	{0x9900,"18F26Q84 rev%c%d\r\n",0xFFFF},
	{0x9901,"18F46Q84 rev%c%d\r\n",0xFFFF},
	{0x9902,"18F56Q84 rev%c%d\r\n",0xFFFF},
	{0x9903,"18F27Q84 rev%c%d\r\n",0xFFFF},
	{0x9904,"18F47Q84 rev%c%d\r\n",0xFFFF},
	{0x9905,"18F57Q84 rev%c%d\r\n",0xFFFF},
	{0x9906,"18F26Q83 rev%c%d\r\n",0xFFFF},
	{0x9907,"18F46Q83 rev%c%d\r\n",0xFFFF},
	{0x9908,"18F56Q83 rev%c%d\r\n",0xFFFF},
	{0x9909,"18F27Q83 rev%c%d\r\n",0xFFFF},
	{0x990A,"18F47Q83 rev%c%d\r\n",0xFFFF},
	{0x990B,"18F57Q83 rev%c%d\r\n",0xFFFF},
};

static bool PIC18_ID(int id)
{
	char s[128];
	int i;
	for(i=0;i<sizeof(PIC18LIST)/sizeof(PIC18LIST[0]);i++){
		if(PIC18LIST[i].revmask!=0xFFFF&&PIC18LIST[i].id==(id&~PIC18LIST[i].revmask)){
			sprintf(s,PIC18LIST[i].device,id&PIC18LIST[i].revmask);
			PrintMessage(s);
			return true;
		}
		else if(PIC18LIST[i].revmask==0xFFFF&&PIC18LIST[i].id==(id&0xFFFF)){
			int MJrev=(id>>22)&0x3F;
			int MNrev=(id>>16)&0x3F;
			sprintf(s,PIC18LIST[i].device,MJrev+'A',MNrev);
			PrintMessage(s);
			return true;
		}
	}
	PrintMessage(strings[S_nodev]); //"Unknown device\r\n");
	return false;
}

void DisplayCODE18F(int dim){
// display  PIC18F CODE memory
	char s[256]="",t[256]="";
	char* aux=(char*)malloc((dim/COL+1)*(16+COL*6));
	aux[0]=0;
	int valid=0,empty=1,i,j,lines=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);
}

void Read18Fx(int dim,int dim2,int options)
// read 16 bit PIC 18Fxxxx
// dim=program size (bytes) 	dim2=eeprom size (bytes)
// options:
//	bit [3:0]
//   0 = vdd before vpp (12V)
//   1 = vdd before vpp (9V)
//   2 = low voltage entry with 32 bit key
//   3 = vdd before vpp (9V) with 32 bit key
//	bit [7:4]
//     0 = normal control registers address
//     1 = new control registers address (18FxxK80)
{
	int k=0,k2=0,z=0,i,j;
	int entry=options&0xF;
	int newAddr=(options>>4)&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=-1;
	if(entry==0) vpp=12;
	else if(entry==1||entry==3) vpp=8.5;
	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);
	}
	size=dim;
	sizeEE=dim2;
	if(memCODE) free(memCODE);
	memCODE=(unsigned char*)malloc(size);		//CODE
	if(memEE) free(memEE);
	memEE=(unsigned char*)malloc(sizeEE);			//EEPROM
	for(j=0;j<8;j++) memID[j]=0xFF;
	for(j=0;j<14;j++) memCONFIG[j]=0xFF;
	unsigned int start=GetTickCount();
	j=0;
	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;
	}
	if(entry==2||entry==3){			//entry with key
		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;			//CLRF TBLPTRU
	bufferU[j++]=0xF8;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x6A;			//CLRF TBLPTRH
	bufferU[j++]=0xF7;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x6A;			//CLRF TBLPTRL
	bufferU[j++]=0xF6;
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(entry==2?11:4);
	for(z=0;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"
		if (!PIC18_ID(bufferI[z+2]+(bufferI[z+3]<<8))) return;
	}
//****************** read code ********************
	PrintMessage(strings[S_CodeReading1]);		//code read ...
	PrintStatusSetup();
	if(saveLog)	fprintf(logfile,"Read code\n");
	for(i=0,j=0;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;
		PacketIO(2);
		for(z=0;bufferI[z]!=TBLR_INC_N&&z<DIMBUF;z++);
		for(j=z+2;(j<z+2+bufferI[z+1])&&j<DIMBUF;j++) memCODE[k++]=bufferI[j];
		PrintStatus(strings[S_CodeReading2],i*100/(dim+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_ReadCodeErr2],dim,k);	//"Error reading code area, requested %d bytes, read %d\r\n"
	}
	else PrintMessage(strings[S_Compl]);
//****************** read config area ********************
	if(saveLog)	fprintf(logfile,"Read config\n");
	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;
	PacketIO(8);
	for(z=0;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=0;
	if(saveLog){
		fprintf(logfile,strings[S_Log7],i,i,k2,k2);	//"i=%d(0x%X), k=%d(0x%X)\n"
	}
	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 ...
		PrintStatusSetup();
		if(saveLog)	fprintf(logfile,"Read EEPROM\n");
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x9E;				//EEPGD=0
		bufferU[j++]=newAddr==0?0xA6:0x7F;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x9C;				//CFGS=0
		bufferU[j++]=newAddr==0?0xA6:0x7F;
		for(k2=0,i=0;i<dim2;i++){
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;			//MOVLW
			bufferU[j++]=i&0xFF;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;					//MOVWF
			bufferU[j++]=newAddr==0?0xA9:0x74;	//ADDR
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;		//MOVLW
			bufferU[j++]=(i>>8)&0xFF;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;					//MOVWF
			bufferU[j++]=newAddr==0?0xAA:0x75;	//ADDRH
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x80;			//RD=1
			bufferU[j++]=newAddr==0?0xA6:0x7F;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x50;			//MOVF EEDATA,w
			bufferU[j++]=newAddr==0?0xA8:0x73;
			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;
				PacketIO(10);
				for(z=0;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"
				if(RWstop) i=dim2;
				j=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]);
	}
	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;
	PacketIO(1);
	unsigned int stop=GetTickCount();
	PrintStatusClear();
//****************** 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"
	DisplayCODE18F(dim);
	if(dim2){
		DisplayEE();	//visualize
	}
	sprintf(str,strings[S_End],(stop-start)/1000.0);	//"\r\nEnd (%.2f s)\r\n"
	PrintMessage(str);
	if(saveLog){
		fprintf(logfile,str);
		CloseLogFile();
	}
}

void Write18Fx(int dim,int dim2,int wbuf,int eraseW1,int eraseW2,int options)
// write 16 bit PIC 18Fxxxx
// dim=program size  (bytes)	dim2=eeprom size (bytes)	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
//     3 = vdd before vpp (9V) with 32 bit key
//	bit [7:4]
//     0 = normal eeprom write algoritm
//     1 = with unlock sequence 55 AA
//	bit [11:8]
//     0 = 15ms erase delay, 1ms code write time, 5ms EE write, 5ms config write
//     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
//     3 = separate block erase with 5ms delay, 1ms code write, 5ms EE write, 5ms config write
//         + new control registers address (18FxxK80)
{
	int k=0,k2,z=0,i,j;
	int err=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>0&&!CheckV33Regulator()){
		PrintMessage(strings[S_noV33reg]);	//Can't find 3.3V expansion board
		return;
	}
	double vpp=-1;
	if(entry==0) vpp=12;
	else if(entry==1||entry==3) vpp=8.5;
	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){
			size=dim;
			memCODE=(unsigned char*)realloc(memCODE,size);
			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();
	j=0;
	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;
	}
	if(entry==2||entry==3){			//entry with key
		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;
	PacketIO(entry==2?10:3);
	for(z=0;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"
		if (!PIC18_ID(bufferI[z+2]+(bufferI[z+3]<<8))) return;
	}
	j=0;
//****************** erase memory ********************
	PrintMessage(strings[S_StartErase]);	//"Erase ... "
	if(optWrite!=3){	//chip 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;
		}
		if(eraseW2<0x10000){
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;			//04
			bufferU[j++]=0x04;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;			//-> TBLPTRL
			bufferU[j++]=0xF6;
			bufferU[j++]=TABLE_WRITE;		// eraseW2@3C0004
			bufferU[j++]=(eraseW2>>8)&0xFF; 	//0x8F;
			bufferU[j++]=eraseW2&0xFF; 		//0x8F;
		}
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(16);	
		if(optWrite!=0)	msDelay(550);//bulk erase delay
		j=0;
	}
	else{	//separate block erase
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 3C
		bufferU[j++]=0x3C;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRU
		bufferU[j++]=0xF8;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRH
		bufferU[j++]=0xF7;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x04 @ 0x3C0004
		bufferU[j++]=0x04;
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x01 @ 0x3C0005
		bufferU[j++]=0x01;
		bufferU[j++]=0x01;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE BLOCK0\n");
		}
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x04 @ 0x3C0004
		bufferU[j++]=0x04;
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x02 @ 0x3C0005
		bufferU[j++]=0x02;
		bufferU[j++]=0x02;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE BLOCK1\n");
		}
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x04 @ 0x3C0004
		bufferU[j++]=0x04;
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x04 @ 0x3C0005
		bufferU[j++]=0x04;
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE BLOCK2\n");
		}
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x04 @ 0x3C0004
		bufferU[j++]=0x04;
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x08 @ 0x3C0005
		bufferU[j++]=0x08;
		bufferU[j++]=0x08;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE BLOCK3\n");
		}
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x05 @ 0x3C0004
		bufferU[j++]=0x05;
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x00 @ 0x3C0005
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE BOOT BLOCK\n");
		}
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 4
		bufferU[j++]=0x04;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x02 @ 0x3C0004
		bufferU[j++]=0x02;
		bufferU[j++]=0x02;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 5
		bufferU[j++]=0x05;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x00 @ 0x3C0005
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//MOVLW 6
		bufferU[j++]=0x06;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRL
		bufferU[j++]=0xF6;
		bufferU[j++]=TABLE_WRITE;	//0x80 @ 0x3C0006
		bufferU[j++]=0x80;
		bufferU[j++]=0x80;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=CORE_INS;		//NOP
		bufferU[j++]=0x00;
		bufferU[j++]=0x00;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(7);	//block erase delay
		j=0;
		if(saveLog){
			fprintf(logfile,"ERASE CONFIG\n");
		}
		if(programID){
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x8E;			//EEPGD=1
			bufferU[j++]=0x7F;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x9C;			//CFGS=0
			bufferU[j++]=0x7F;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x84;			//WREN=1
			bufferU[j++]=0x7F;
			bufferU[j++]=CORE_INS;		//ID 0x200000
			bufferU[j++]=0x0E;			//MOVLW
			bufferU[j++]=0x20;			//
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;			//MOVWF TBLPTRU
			bufferU[j++]=0xF8;			//
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6A;			//CLRF TBLPTRH
			bufferU[j++]=0xF7;			//CLRF TBLPTRH
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6A;			//CLRF TBLPTRL
			bufferU[j++]=0xF6;			//CLRF TBLPTRL
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x88;			//FREE=1
			bufferU[j++]=0x7F;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x82;			//WR=1
			bufferU[j++]=0x7F;
			bufferU[j++]=CORE_INS;		//NOP
			bufferU[j++]=0x00;
			bufferU[j++]=0x00;
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(7);	//row erase delay
			j=0;
			if(saveLog){
				fprintf(logfile,"ERASE ID\n");
			}
		}
	}
	PrintMessage(strings[S_Compl]);	//"completed\r\n"
//****************** prepare write ********************
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x8E;			//EEPGD=1
	bufferU[j++]=optWrite!=3?0xA6:0x7F;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x9C;			//CFCGS=0
	bufferU[j++]=optWrite!=3?0xA6:0x7F;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x84;			//WREN=1
	bufferU[j++]=optWrite!=3?0xA6:0x7F;
	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;
	PacketIO(1);
	j=0;
//****************** write code ********************
	PrintMessage(strings[S_StartCodeProg]);	//"code write ... "
	PrintStatusSetup();
	int ww;
	double wdly=1.0;
	if(optWrite==1) wdly=1.2;
	if(optWrite==2) wdly=3.4;
	if(saveLog){
		fprintf(logfile,"WRITE CODE\ndim=%d(0x%X)\n",dim,dim);	//
	}
	int valid,i0;
	j=0;
	for(i=k=0;i<dim;){		//write xx instruction words
		if(k==0){				//skip row if empty
			i0=i;
			for(valid=0;!valid&&i<dim;i+=valid?0:wbuf){
				for(k2=0;k2<wbuf&&!valid;k2++) if(memCODE[i+k2]<0xFF) valid=1;
			}
			if(i>=dim) break;
			if(i>i0){				//some rows were skipped; update current address
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x0E;
				bufferU[j++]=(i>>16)&0xFF;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x6E;			//MOVWF TBLPTRU
				bufferU[j++]=0xF8;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x0E;
				bufferU[j++]=(i>>8)&0xFF;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x6E;			//MOVWF TBLPTRH
				bufferU[j++]=0xF7;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x0E;
				bufferU[j++]=i&0xFF;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x6E;			//MOVWF TBLPTRL
				bufferU[j++]=0xF6;
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(2);
				j=0;
			}
		}
		if(DIMBUF-4-j<wbuf-2-k)	ww=(DIMBUF-4-j)/2;	//split data for a total of wbuf-2
		else ww=(wbuf-2-k)/2;
		bufferU[j++]=TBLW_INC_N;
		bufferU[j++]=ww;
		for(z=0;z<ww;z++){
			bufferU[j++]=memCODE[i+1];
			bufferU[j++]=memCODE[i];
			i+=2;
		}
		k+=ww*2;
		if(k==wbuf-2){	//Write row
			if(j>DIMBUF-8){
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(3);
				j=0;
			}
			bufferU[j++]=TBLW_PROG_INC;
			bufferU[j++]=memCODE[i+1];
			bufferU[j++]=memCODE[i];
			if(optWrite==1){	//1.2ms
				bufferU[j++]=1200>>8;
				bufferU[j++]=1200&0xFF;
			}
			else if(optWrite==2){	//3.4ms
				bufferU[j++]=3400>>8;
				bufferU[j++]=3400&0xFF;
			}
			else{				//1ms
				bufferU[j++]=1000>>8;
				bufferU[j++]=1000&0xFF;
			}
			i+=2;
			k=0;
		}
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(k==0?wdly:2);
		j=0;
		PrintStatus(strings[S_CodeWriting2],i*100/(dim+dim2),i/2);	//"Write: %d%%,addr. %04X"
		if(RWstop) i=dim;
		if(saveLog){
			fprintf(logfile,strings[S_Log7],i,i,k,k);	//"i=%d, k=%d 0=%d\n"
		}
	}
	PrintStatusEnd();
	PrintMessage(strings[S_Compl]);	//"completed\r\n"
//****************** write ID ********************
	if(programID&&(optWrite==0||optWrite==3)){
		PrintMessage(strings[S_IDW]);	//"Write ID ... "
		if(saveLog)	fprintf(logfile,"Write ID\n");
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x8E;			//EEPGD=1
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x9C;			//CFCGS=0
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		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;			//CLRF TBLPTRH
		bufferU[j++]=0xF7;			//CLRF TBLPTRH
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRL
		bufferU[j++]=0xF6;			//CLRF TBLPTRL
		bufferU[j++]=TBLW_INC_N;
		bufferU[j++]=3;
		for(i=0;i<3;i++){
			bufferU[j++]=memID[i*2+1];
			bufferU[j++]=memID[i*2];
		}
		bufferU[j++]=TBLW_PROG;
		bufferU[j++]=memID[i*2+1];
		bufferU[j++]=memID[i*2];
		bufferU[j++]=1000>>8;		//only one write so no need to specify different delay
		bufferU[j++]=1000&0xFF;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(5);
		j=0;
		if(saveLog){
			fprintf(logfile,strings[S_Log7],i,i,0,0);	//"i=%d, k=%d 0=%d\n"
		}
		PrintMessage(strings[S_Compl]);	//"completed\r\n"
	}
//****************** write and verify EEPROM ********************
	if(dim2&&(optWrite==0||optWrite==3)){
		PrintMessage(strings[S_EEAreaW]);	//"Write EEPROM ... "
		PrintStatusSetup();
		if(saveLog)	fprintf(logfile,"Write EEPROM\n");
		int errEE=0;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x9E;			//EEPGD=0
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x9C;			//CFGS=0
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x84;			//WREN=1
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		for(i=0;i<dim2&&err<=max_err;i++){
			if(memEE[i]!=0xFF){
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x0E;			//MOVLW
				bufferU[j++]=i&0xFF;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x6E;					//MOVWF
				bufferU[j++]=optWrite!=3?0xA9:0x74;	//ADDR
				if(EEalgo==0){
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x0E;		//MOVLW
					bufferU[j++]=(i>>8)&0xFF;
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x6E;					//MOVWF
					bufferU[j++]=optWrite!=3?0xAA:0x75;	//ADDRH
				}
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x0E;			//MOVLW
				bufferU[j++]=memEE[i];
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x6E;					//MOVWF
				bufferU[j++]=optWrite!=3?0xA8:0x73;	//EEDATA
				if(EEalgo==1){				//memory unlock
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x0E;		//MOVLW
					bufferU[j++]=0x55;
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x6E;		//MOVWF
					bufferU[j++]=0xA7;			//EECON2
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x0E;		//MOVLW
					bufferU[j++]=0xAA;
					bufferU[j++]=CORE_INS;
					bufferU[j++]=0x6E;		//MOVWF
					bufferU[j++]=0xA7;			//EECON2
				}
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x82;
				bufferU[j++]=optWrite!=3?0xA6:0x7F;	//WR=1
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x00;
				bufferU[j++]=0x00;			//NOP
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x00;
				bufferU[j++]=0x00;			//NOP
				bufferU[j++]=WAIT_T3;		//write delay
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x80;			//RD=1
				bufferU[j++]=optWrite!=3?0xA6:0x7F;
				bufferU[j++]=CORE_INS;
				bufferU[j++]=0x50;			//MOVF EEDATA,w
				bufferU[j++]=optWrite!=3?0xA8:0x73;
				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;
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(8);
				PrintStatus(strings[S_CodeWriting],(i+dim)*100/(dim+dim2),i);	//"Writing: %d%%, addr. %03X"
				if(RWstop) i=dim2;
				j=0;
				for(z=DIMBUF-1;z&&!(bufferI[z]==SHIFT_TABLAT&&bufferI[z-1]==CORE_INS);z--);
				if(z&&memEE[i]!=bufferI[z+1]) errEE++;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,errEE);	//"i=%d, k=%d, errors=%d\n"
				}
			}
		}
		PrintStatusEnd();
		PrintMessage1(strings[S_ComplErr],errEE);	//"completed: %d errors \r\n"
		err+=errEE;
	}
//****************** verify code ********************
	PrintMessage(strings[S_CodeV]);	//"Verify code ... "
	PrintStatusSetup();
	if(saveLog)fprintf(logfile,"VERIFY CODE\n");
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x8E;			//EEPGD=1
	bufferU[j++]=optWrite!=3?0xA6:0x7F;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x9C;			//CFCGS=0
	bufferU[j++]=optWrite!=3?0xA6:0x7F;
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x6A;			//CLRF TBLPTRU
	bufferU[j++]=0xF8;			//CLRF TBLPTRU
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x6A;			//CLRF TBLPTRH
	bufferU[j++]=0xF7;			//CLRF TBLPTRH
	bufferU[j++]=CORE_INS;
	bufferU[j++]=0x6A;			//CLRF TBLPTRL
	bufferU[j++]=0xF6;			//CLRF TBLPTRL
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(2);
	if(saveLog){
		fprintf(logfile,"\n\n");
	}
	for(i=0,j=0,k=0;i<dim;i+=DIMBUF-4){
		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(memCODE[i+k2]<0xFF) valid=1;
		}
		if(i>=dim) break;
		if(i>i0){				//some data was skipped; update current address
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;
			bufferU[j++]=(i>>16)&0xFF;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;			//MOVWF TBLPTRU
			bufferU[j++]=0xF8;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;
			bufferU[j++]=(i>>8)&0xFF;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;			//MOVWF TBLPTRH
			bufferU[j++]=0xF7;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x0E;
			bufferU[j++]=i&0xFF;
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x6E;			//MOVWF TBLPTRL
			bufferU[j++]=0xF6;
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(2);
			j=0;
		}
		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;
		PacketIO(2);
		if(bufferI[1]==TBLR_INC_N){
			for(z=0;z<bufferI[2]&&z<DIMBUF;z++){
				if(memCODE[i+z]!=bufferI[z+3]){
					PrintMessage4(strings[S_CodeVError],i+z,i+z,memCODE[i+z],bufferI[z+3]);	//"Error writing address %4X: written %02X, read %02X\r\n"
					err++;
				}
				//k++;
			}
		}
		PrintStatus(strings[S_CodeV2],i*100/(dim+dim2),i);	//"Verifica: %d%%, ind. %04X"
		if(RWstop) i=dim;
		j=0;
		if(saveLog){
			fprintf(logfile,strings[S_Log8],i,i,k,k,err);	//"i=%d, k=%d, errors=%d\n"
		}
		if(err>=max_err) break;
	}
	PrintStatusEnd();
	if(i<dim){
		PrintMessage2(strings[S_CodeVError2],dim,i);	//"Error verifying code area, requested %d bytes, read %d\r\n"
	}
	PrintMessage1(strings[S_ComplErr],err);	//"completed: %d errors\r\n"
	if(err>=max_err){
		PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
	}
//****************** verify ID ********************
	if(programID&&err<max_err&&optWrite==0){
		PrintMessage(strings[S_IDV]);	//"Verify ID ... "
		int errID=0;
		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;			//CLRF TBLPTRH
		bufferU[j++]=0xF7;			//CLRF TBLPTRH
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRL
		bufferU[j++]=0xF6;			//CLRF TBLPTRL
		bufferU[j++]=TBLR_INC_N;
		bufferU[j++]=8;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(2);
		for(z=0;bufferI[z]!=TBLR_INC_N&&z<DIMBUF;z++);
		for(i=0;i<8;i++) if(memID[i]!=0xFF&&memID[i]!=bufferI[z+i+2]) errID++;
		PrintMessage1(strings[S_ComplErr],errID);	//"completed: %d errors\r\n"
		err+=errID;
		if(err>=max_err){
			PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
		}
		j=0;
		if(saveLog){
			fprintf(logfile,strings[S_Log8],i,i,0,0,err);	//"i=%d, k=%d, errors=%d\n"
		}
	}
//****************** write CONFIG ********************
	if(err<max_err&&(optWrite==0||optWrite==3)){
		PrintMessage(strings[S_ConfigW]);	//"Write CONFIG ..."
		if(saveLog)	fprintf(logfile,"Write CONFIG\n");
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x8E;			//EEPGD=1
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x8C;			//CFCGS=1
		bufferU[j++]=optWrite!=3?0xA6:0x7F;
		bufferU[j++]=CORE_INS;		//CONFIG 0x300000
		bufferU[j++]=0x0E;			//MOVLW
		bufferU[j++]=0x30;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRU
		bufferU[j++]=0xF8;			//MOVWF TBLPTRU
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRH
		bufferU[j++]=0xF7;			//CLRF TBLPTRH
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRL
		bufferU[j++]=0xF6;			//CLRF TBLPTRL
		for(i=0;i<14;i++){
			if(memCONFIG[i]<0xFF){
				bufferU[j++]=TBLW_PROG;
				bufferU[j++]=0;
				bufferU[j++]=memCONFIG[i];
				bufferU[j++]=5000>>8;
				bufferU[j++]=5000&0xFF;
			}
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x2A;			//INCF
			bufferU[j++]=0xF6;			//TBLPTRL
			i++;
			if(memCONFIG[i]<0xFF){
				bufferU[j++]=TBLW_PROG;
				bufferU[j++]=memCONFIG[i];
				bufferU[j++]=0;
				bufferU[j++]=5000>>8;
				bufferU[j++]=5000&0xFF;
			}
			bufferU[j++]=CORE_INS;
			bufferU[j++]=0x2A;			//INCF
			bufferU[j++]=0xF6;			//TBLPTRL
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(12);
			j=0;
			if(saveLog){
				fprintf(logfile,strings[S_Log7],i,i,0,0);	//"i=%d, k=%d\n"
			}
		}
		PrintMessage(strings[S_Compl]);	//"completed\r\n"
//****************** verify CONFIG ********************
		PrintMessage(strings[S_ConfigV]);	//"Verify CONFIG ... "
		int errC=0;
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x0E;			//TBLPTRU	CONFIG 0x300000
		bufferU[j++]=0x30;			//
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6E;			//MOVWF TBLPTRU
		bufferU[j++]=0xF8;			//MOVWF TBLPTRU
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRH
		bufferU[j++]=0xF7;			//CLRF TBLPTRH
		bufferU[j++]=CORE_INS;
		bufferU[j++]=0x6A;			//CLRF TBLPTRL
		bufferU[j++]=0xF6;			//CLRF TBLPTRL
		bufferU[j++]=TBLR_INC_N;
		bufferU[j++]=14;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(2);
		for(z=0;bufferI[z]!=TBLR_INC_N&&z<DIMBUF-16;z++);
		if(z<DIMBUF-16){
			for(i=0;i<14;i++) if(~memCONFIG[i]&bufferI[z+i+2]) errC++;	//error if written 0 and read 1 (~W&R)
		}
		PrintMessage1(strings[S_ComplErr],errC);	//"completed: %d errors\r\n"
		err+=errC;
		if(err>=max_err){
			PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
		}
		j=0;
		if(saveLog){
			fprintf(logfile,strings[S_Log8],i,i,0,0,err);	//"i=%d, k=%d, errors=%d\n"
		}
	}
	bufferU[j++]=SET_PARAMETER;
	bufferU[j++]=SET_T3;
	bufferU[j++]=2000>>8;
	bufferU[j++]=2000&0xff;
	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;
	PacketIO(1);
	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();			//clear status report
}

#define LOAD_PC_ADDR 0x80
#define BULK_ERASE 0x18
#define ROW_ERASE_PROGRAM_MEM 0xF0
#define LOAD_NVM 0x00
#define LOAD_NVM_INC 0x02
#define READ_NVM 0xFC
#define READ_NVM_INC 0xFE
#define INC_ADDR8 0xF8
#define BEGIN_INT_PROG 0xE0
#define BEGIN_EXT_PROG 0xC0
#define PROGRAM_DATA 0xC0
#define PROGRAM_DATA_INC 0xE0
#define END_EXT_PROG 0x82

void Read18FKx(int dim,int dim2,int options)
// read 16 bit PIC 18FxxKx3 with new 8b commands
// dim=program size (bytes)
// dim2=if>0 use eeprom, size is automatic when reading DCI
// options:
//	bit [3:0]
//   	0 = vpp before vdd (8.5V)
//	bit [7:4] 	memory layout
//		code	config	EE			DCI			DIA			model
//		 0		5		0x310000	0x3FFF00	0x3F0000	K42 K83
//		 1		10		0x380000	0x3C0000	0x2C0000	Q40-43
//		 2		35		0x380000	0x3C0000	0x2C0000	Q83-84
{
	int k=0,k2=0,z=0,i,j;
	int devID=0,devREV=0;
	int MemAddr;
	int EEaddr=0,DCIaddr=0,DIAaddr=0,DIAlen=0,UIDlen=0,CONFIGlen=0;
	int type=(options>>4)&0xF;
	if(type==0){		//K42 K83
		EEaddr=0x310000;
		DCIaddr=0x3FFF00;
		DIAaddr=0x3F0000;
		DIAlen=0x40;
		UIDlen=0x10;
		CONFIGlen=5;
	}
	else if(type==1){		//Q43
		EEaddr=0x380000;
		DCIaddr=0x3C0000;
		DIAaddr=0x2C0000;
		DIAlen=0x100;
		UIDlen=0x40;
		CONFIGlen=10;
	}
	else if(type==2){		//Q83-84
		EEaddr=0x380000;
		DCIaddr=0x3C0000;
		DIAaddr=0x2C0000;
		DIAlen=0x100;
		UIDlen=0x40;
		CONFIGlen=35;
	}
	else PrintMessage("unexpected parameter");
	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(!CheckV33Regulator()){
		PrintMessage(strings[S_noV33reg]);	//Can't find 3.3V expansion board
		return;
	}
	double vpp=8.5;
	if(!StartHVReg(vpp)){
		PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
		return;
	}
	if(saveLog){
		OpenLogFile();	//"log.txt"
		fprintf(logfile,"Read18FKx(%d,%d,%d)    (0x%X,0x%X,0x%X)\n",dim,dim2,options,dim,dim2,options);
	}
	size=dim;
	if(memCODE) free(memCODE);
	memCODE=(unsigned char*)malloc(size);		//CODE
	unsigned char* memDIA=(unsigned char*)malloc(DIAlen);		//DIA
	for(j=0;j<64;j++) memID[j]=0xFF;
	for(j=0;j<14;j++) memCONFIG[j]=0xFF;
	for(j=0;j<DIAlen;j++) memDIA[j]=0xFF;
	unsigned int start=GetTickCount();
	j=0;
	bufferU[j++]=SET_PARAMETER;
	bufferU[j++]=SET_T1T2;
	bufferU[j++]=2;						//T1=2u
	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;		//VPP
	bufferU[j++]=0x4;
	bufferU[j++]=EN_VPP_VCC;		//VDD+VPP
	bufferU[j++]=0x5;
	bufferU[j++]=WAIT_T3;
	MemAddr=0x3FFFFc<<1;		//devREV
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	MemAddr=DCIaddr<<1;		//DCI
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=0x0;
	bufferU[j++]=0x0;
	bufferU[j++]=0x0;
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(4);
	for(z=0;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		devREV=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		devID=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	PrintMessage1("DevID: 0x%04X\r\n",devID);
	PrintMessage1("RevID: 0x%04X\r\n",devREV);
	if(!PIC18_ID(devID+(devREV<<16))) return;
	PrintMessage("Device Configuration Information:\r\n");
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("Erase row size: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("Write latches per row: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("User rows: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("EEPROM size: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
		sizeEE=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-3){
		PrintMessage1("Pin count: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
//****************** read code ********************
	PrintMessage(strings[S_CodeReading1]);		//read code ...
	if(saveLog) fprintf(logfile,"%s\n",strings[S_CodeReading1]);		//read code ...
	PrintStatusSetup();
	for(i=0,j=0;i<dim;i+=2){		//2 bytes per read
		bufferU[j++]=ICSP8_READ;
		bufferU[j++]=READ_NVM_INC;
		if((j+1)/2*3+3>DIMBUF||i==dim-2){		//2B cmd -> 3B data
			bufferU[j++]=FLUSH;				//remember: FLUSH generates a response (even empty)!
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(5);
			for(z=0;z<DIMBUF-2;z++){
				if(bufferI[z]==ICSP8_READ){
					memCODE[k++]=bufferI[z+2];	//Low byte
					memCODE[k++]=bufferI[z+1];	//High byte
					z+=2;
				}
			}
			PrintStatus(strings[S_CodeReading],(i+sizeEE+10+UIDlen+DIAlen)*100/(dim+sizeEE+10+UIDlen+DIAlen),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_ReadCodeErr2],dim,k);	//"Error reading code area, requested %d bytes, read %d\r\n"
	}
	else PrintMessage(strings[S_Compl]);
//****************** read config area ********************
	PrintMessage(strings[S_Read_CONFIG_A]);		//read config ...
	if(saveLog) fprintf(logfile,"%s\n",strings[S_Read_CONFIG_A]);		//read config ...
	MemAddr=0x300000<<1;		//config area
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	k2=0;
	for(i=0;i<CONFIGlen;i++){		//Config
		bufferU[j++]=ICSP8_READ;
		bufferU[j++]=READ_NVM_INC;
		if((j+1)/2*3+3>DIMBUF||i==CONFIGlen-1){		//2B cmd -> 3B data
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(5);
			for(z=0;z<DIMBUF-2;z++){
				if(bufferI[z]==ICSP8_READ){
					memCONFIG[k2++]=bufferI[z+2];	//LSB
					if(type==0) memCONFIG[k2++]=bufferI[z+1];	//MSB
					z+=2;
				}
			}
			PrintStatus(strings[S_CodeReading],(dim+sizeEE+i+UIDlen+DIAlen)*100/(dim+sizeEE+CONFIGlen+UIDlen+DIAlen),i);	//"Read: %d%%, addr %03X"
			j=0;
			if(saveLog){
				fprintf(logfile,strings[S_Log7],i,i,k2,k2);	//"i=%d(0x%X), k=%d(0x%X)\n"
			}
		}
	}
	if(k2!=10){
		PrintMessage("\r\n");
		PrintMessage2(strings[S_ReadConfigErr],10,k2);	//"Error reading config area, requested %d bytes, read %d\r\n"
	}
	else PrintMessage(strings[S_Compl]);
//****************** read user ID ********************
	if(saveLog) fprintf(logfile,"Read user ID\n");
	MemAddr=0x200000<<1;		//user ID
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	k2=0;
	for(i=0;i<UIDlen;i+=2){
		bufferU[j++]=ICSP8_READ;
		bufferU[j++]=READ_NVM_INC;
		if((j+1)/2*3+3>DIMBUF||i==UIDlen-2){		//2B cmd -> 3B data
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(5);
			for(z=0;z<DIMBUF-2;z++){
				if(bufferI[z]==ICSP8_READ){
					memID[k2++]=bufferI[z+2];	//Low byte
					memID[k2++]=bufferI[z+1];	//High byte
					z+=2;
				}
			}
			PrintStatus(strings[S_CodeReading],(dim+sizeEE+10+i+DIAlen)*100/(dim+sizeEE+10+UIDlen+DIAlen),i);	//"Read: %d%%, addr. %03X"
			j=0;
			if(saveLog){
				fprintf(logfile,strings[S_Log7],i,i,k2,k2);	//"i=%d(0x%X), k=%d(0x%X)\n"
			}
		}
	}
	if(k2!=UIDlen){
		PrintMessage("\r\n");
		PrintMessage2(strings[S_ReadConfigErr],UIDlen,k2);	//"Error reading config area, requested %d bytes, read %d\r\n"
	}
//****************** read device info area (DIA) ********************
	if(saveLog) fprintf(logfile,"Read device info area\n");
	MemAddr=DIAaddr<<1;		//DIA
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	k2=0;
	for(i=0;i<DIAlen;i+=2){		//DIA
		bufferU[j++]=ICSP8_READ;
		bufferU[j++]=READ_NVM_INC;
		if((j+1)/2*3+3>DIMBUF||i==DIAlen-2){		//2B cmd -> 3B data
			bufferU[j++]=FLUSH;
			for(;j<DIMBUF;j++) bufferU[j]=0x0;
			PacketIO(5);
			for(z=0;z<DIMBUF-2;z++){
				if(bufferI[z]==ICSP8_READ){
					memDIA[k2++]=bufferI[z+2];
					memDIA[k2++]=bufferI[z+1];
					z+=2;
				}
			}
			PrintStatus(strings[S_CodeReading],(dim+sizeEE+10+UIDlen+i)*100/(dim+sizeEE+10+UIDlen+DIAlen),i);	//"Read: %d%%, addr. %03X"
			j=0;
			if(saveLog){
				fprintf(logfile,strings[S_Log7],i,i,k2,k2);	//"i=%d(0x%X), k=%d(0x%X)\n"
			}
		}
	}
	if(k2!=DIAlen){
		PrintMessage("\r\n");
		PrintMessage2(strings[S_ReadConfigErr],DIAlen,k2);	//"Error reading config area, requested %d bytes, read %d\r\n"
	}
	//****************** read eeprom ********************
	if(dim2){					//EEPROM
		if(sizeEE>0x1000||sizeEE<0){		//Max 4K
			PrintMessage(strings[S_EELim]);	//"EEPROM size exceeds limits\r\n"
			return;
		}
		if(memEE) free(memEE);
		memEE=(unsigned char*)malloc(sizeEE);			//EEPROM
		for(i=0;i<sizeEE;i++) memEE[i]=0xFF;
		PrintMessage(strings[S_ReadEE]);		//Read EEPROM ...
		if(saveLog) fprintf(logfile,"%s\n",strings[S_ReadEE]);		//Read EEPROM ...
		MemAddr=EEaddr<<1;		//EE base address
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		for(i=k=0;i<sizeEE;i++){
			bufferU[j++]=ICSP8_READ;
			bufferU[j++]=READ_NVM_INC;
			if((j+1)/2*3+3>DIMBUF||i==sizeEE-1){		//2B cmd -> 3B answer
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(5);
				for(z=0;z<DIMBUF-2;z++){
					if(bufferI[z]==ICSP8_READ){
						memEE[k++]=bufferI[z+2];	//LSB
						z+=2;
					}
				}
				PrintStatus(strings[S_CodeReading],(dim+i+10+UIDlen+DIAlen)*100/(dim+sizeEE+10+UIDlen+DIAlen),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!=sizeEE){
			PrintMessage("\r\n");
			PrintMessage2(strings[S_ReadEEErr],sizeEE,k);	//"Error reading EE area, ..."
		}
		else PrintMessage(strings[S_Compl]);
	}
//****************** 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;
	PacketIO(1);
	unsigned int stop=GetTickCount();
	PrintStatusClear();
//****************** visualize ********************
	PrintMessage(strings[S_ConfigMem]);	//"CONFIG"
	for(i=0;i<UIDlen;i+=2){
		if(memID[i]<0xFF||memID[i+1]<0xFF) PrintMessage4(strings[S_ChipID2],i,memID[i],i+1,memID[i+1]);	//"ID%d: 0x%02X   ID%d: 0x%02X\r\n"
	}
	if(type==0){	//K42 K83 etc.
		for(i=0;i<5;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"
		}
	}
	else if(type==1){	//Q43 etc.
		for(i=0;i<10;i++)	PrintMessage2("CONFIG%d: 0x%02X\r\n",i+1,memCONFIG[i]);
	}
	PrintMessage(strings[S_CodeMem]);	//"\r\nCode memory:\r\n"
	DisplayCODE18F(dim);
	if(dim2){
		DisplayEE();	//visualize
	}
	sprintf(str,strings[S_End],(stop-start)/1000.0);	//"\r\nEnd (%.2f s)\r\n"
	PrintMessage(str);
	if(saveLog){
		fprintf(logfile,str);
		CloseLogFile();
	}
}

void Write18FKx(int dim,int dim2,int options,int nu1,int nu2, int nu3)
// write 16 bit PIC 18FxxKx3 with new 8b commands
// dim=program size (bytes) 	dim2=eeprom size (bytes)
// options:
//	bit [3:0]
//   	0 = vpp before vdd (8.5V)
//	bit [7:4] 	memory layout
//		code	config	EE			DCI			DIA			model	program cycle	delays ms (E,W,EE)
//		 0		5		0x310000	0x3FFF00	0x3F0000	K42 K83	multiple-word	25.5 2.8 5.6
//		 1		10		0x380000	0x3C0000	0x2C0000	Q40-43  one-word 		11 0.075 11
//		 2		35		0x380000	0x3C0000	0x2C0000	Q83-84	one-word 		11 0.075 11
{
	int k=0,z=0,i,j,x=0,w=0;
	int err=0;
	int devID=0,devREV=0;
	int MemAddr,rowN=0;
	int EEaddr=0,DCIaddr=0,DIAaddr=0,DIAlen=0,UIDlen=0,CONFIGlen=0;
	int type=(options>>4)&0xF;
	if(type==0){		//K42 K83
		EEaddr=0x310000;
		DCIaddr=0x3FFF00;
		DIAaddr=0x3F0000;
		DIAlen=0x40;
		UIDlen=0x10;
		CONFIGlen=5;
	}
	else if(type==1){		//Q43
		EEaddr=0x380000;
		DCIaddr=0x3C0000;
		DIAaddr=0x2C0000;
		DIAlen=0x100;
		UIDlen=0x40;
		CONFIGlen=10;
	}
	else if(type==2){		//Q83-84
		EEaddr=0x380000;
		DCIaddr=0x3C0000;
		DIAaddr=0x2C0000;
		DIAlen=0x100;
		UIDlen=0x40;
		CONFIGlen=35;
	}
	else PrintMessage("unexpected parameter");
	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(!CheckV33Regulator()){
		PrintMessage(strings[S_noV33reg]);	//Can't find 3.3V expansion board
		return;
	}
	double vpp=8.5;
	if(!StartHVReg(vpp)){
		PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n"
		return;
	}
	if(saveLog){
		OpenLogFile();	//"log.txt"
		fprintf(logfile,"Write18FKx(%d,%d,%d)    (0x%X,0x%X,0x%X)\n",dim,dim2,options,dim,dim2,options);
	}
	if(dim>size) dim=size;
	if(dim2>sizeEE) dim2=sizeEE;
	if(dim<1){
		PrintMessage(strings[S_NoCode]);	//"Empty data area\r\n"
		return;
	}
	unsigned int start=GetTickCount();
	j=0;
	bufferU[j++]=SET_PARAMETER;
	bufferU[j++]=SET_T1T2;
	bufferU[j++]=2;						//T1=2u
	bufferU[j++]=35;					//T2 adjusted to obtain ~80us when needed
	bufferU[j++]=SET_PARAMETER;
	bufferU[j++]=SET_T3;
	bufferU[j++]=11000>>8;
	bufferU[j++]=11000&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;		//VPP
	bufferU[j++]=0x4;
	bufferU[j++]=EN_VPP_VCC;		//VDD+VPP
	bufferU[j++]=0x5;
	bufferU[j++]=WAIT_T3;
	MemAddr=0x3FFFFc<<1;		//devREV
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	MemAddr=DCIaddr<<1;		//DCI
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=MemAddr>>16;
	bufferU[j++]=(MemAddr>>8)&0xFF;
	bufferU[j++]=MemAddr&0xFF;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=ICSP8_READ;
	bufferU[j++]=READ_NVM_INC;
	bufferU[j++]=TX16;
	bufferU[j++]=2;
	bufferU[j++]=0x80;
	bufferU[j++]=0x0;
	bufferU[j++]=0x0;
	bufferU[j++]=0x0;
	bufferU[j++]=FLUSH;
	for(;j<DIMBUF;j++) bufferU[j]=0x0;
	PacketIO(14);
	for(z=0;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		devREV=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		devID=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	PrintMessage1("DevID: 0x%04X\r\n",devID);
	PrintMessage1("RevID: 0x%04X\r\n",devREV);
	if(!PIC18_ID(devID+(devREV<<16))) return;
	PrintMessage("Device Configuration Information:\r\n");
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("Erase row size: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		rowN=(bufferI[z+1]<<8)+bufferI[z+2];
		PrintMessage1("Write latches per row: %d\r\n",rowN);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("User rows: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-2){
		PrintMessage1("EEPROM size: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
		sizeEE=(bufferI[z+1]<<8)+bufferI[z+2];
	}
	for(z+=3;bufferI[z]!=ICSP8_READ&&z<DIMBUF;z++);
	if(z<DIMBUF-3){
		PrintMessage1("Pin count: %d\r\n",(bufferI[z+1]<<8)+bufferI[z+2]);
	}
	j=0;
//****************** erase memory ********************
	PrintMessage(strings[S_StartErase]);	//"Erase ... "
	if(type==0){		//K42 K83
		bufferU[j++]=SET_PARAMETER;
		bufferU[j++]=SET_T3;
		bufferU[j++]=25500>>8;
		bufferU[j++]=25500&0xff;
		MemAddr=0x300000<<1;	//address to erase Flash+User+Config
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		bufferU[j++]=ICSP8_SHORT;
		bufferU[j++]=BULK_ERASE;
		bufferU[j++]=WAIT_T3;	//TERAB
		MemAddr=0x310000<<1;	//address to erase EEPROM
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		bufferU[j++]=ICSP8_SHORT;
		bufferU[j++]=BULK_ERASE;
		bufferU[j++]=WAIT_T3;	//TERAB
		bufferU[j++]=SET_PARAMETER;
		bufferU[j++]=SET_T3;
		bufferU[j++]=2800>>8;
		bufferU[j++]=2800&0xff;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(52);
	}
	else if(type==1){	//Q43
		bufferU[j++]=ICSP8_LOAD;
		bufferU[j++]=BULK_ERASE;
		bufferU[j++]=0;
		bufferU[j++]=0xF;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(1);
		msDelay(12);		//bulk erase delay
	}
	PrintMessage(strings[S_Compl]);	//"completed\r\n"
//****************** write code ********************
	PrintMessage(strings[S_StartCodeProg]);	//"code write ... "
	PrintStatusSetup();
	if(saveLog){
		fprintf(logfile,"WRITE CODE\ndim=%d(0x%X)\n",dim,dim);	//
	}
	if(type==1){	//Q43
		j=0;
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=0x0;
		bufferU[j++]=0x0;
		bufferU[j++]=0x0;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(2);
		j=0;
		for(i=k=0;i<dim;i+=2){
			if(memCODE[i]<0xFF||memCODE[i+1]<0xFF){
				bufferU[j++]=ICSP8_LOAD;
				bufferU[j++]=PROGRAM_DATA;
				bufferU[j++]=memCODE[i+1];	//High byte
				bufferU[j++]=memCODE[i];	//Low byte
				bufferU[j++]=WAIT_T2;		//Tprogram 75us
				bufferU[j++]=ICSP8_READ;
				bufferU[j++]=READ_NVM_INC;
			}
			else{
				for(x=0;i+x<dim&&memCODE[i+x]==0xFF&&memCODE[i+x+1]==0xFF;x+=2);
				if(x>9){	//set new address
					i+=x;
					MemAddr=i<<1;
					bufferU[j++]=TX16;
					bufferU[j++]=2;
					bufferU[j++]=0x80;
					bufferU[j++]=MemAddr>>16;
					bufferU[j++]=(MemAddr>>8)&0xFF;
					bufferU[j++]=MemAddr&0xFF;
					i-=2;
				}
				else{
					bufferU[j++]=ICSP8_SHORT;
					bufferU[j++]=INC_ADDR8;
				}
			}
			if(j>DIMBUF-8||i==dim-2){
				PrintStatus(strings[S_CodeWriting],i*100/(dim+dim2),i);	//"Writing: %d%%, add. %03X"
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(2);
				for(z=0;z<DIMBUF-4;z++){
					if(bufferI[z]==ICSP8_SHORT&&memCODE[k]==0xff&&memCODE[k+1]==0xff) k+=2;
					else if(bufferI[z]==TX16){		//need to find the next valid address
						for(;k<dim&&memCODE[k]==0xFF&&memCODE[k+1]==0xFF;k+=2);
					}
					else if(bufferI[z]==ICSP8_LOAD&&bufferI[z+2]==ICSP8_READ){
						if(memCODE[k]!=bufferI[z+4]||memCODE[k+1]!=bufferI[z+3]){
							PrintMessage("\r\n");
							PrintMessage3(strings[S_CodeWError2],k,(memCODE[k+1]<<8)+memCODE[k],(bufferI[z+3]<<8)+bufferI[z+4]);	//"Error writing address %3X: written %04X, read %04X\r\n"
							err++;
							if(max_err&&err>max_err){
								PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
								i=dim;
								z=DIMBUF;
							}
						}
						k+=2;
						z+=4;
					}
				}
				j=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,err);	//"i=%d, k=%d, errors=%d,\n"
				}
			}
		}
		err+=i-k;
	}
	else if(type==0){		//K42 K83
		int valid;
		for(;dim>0&&memCODE[dim-1]==0xff&&memCODE[dim-2]==0xff;dim-=2); //skip empty space at end
		if(dim%rowN) dim+=rowN-dim%rowN;		//grow to N byte multiple
		if(dim>size){
			memCODE=(unsigned char*)realloc(memCODE,dim);
			for(;size<dim;size++) memCODE[size]=0xFF;
		}
		for(i=k=0,j=0;i<dim;i+=rowN){
			for(valid=0;i<dim&&!valid;i+=valid?0:rowN){	//skip empty locations (N words)
				valid=0;
				for(k=0;k<rowN;k++){	//check row
					if(memCODE[i+k]<0xff){
						valid=1;
						k=rowN;
					}
				}
			}
			MemAddr=i<<1;
			bufferU[j++]=TX16;	//load new address
			bufferU[j++]=2;
			bufferU[j++]=0x80;
			bufferU[j++]=MemAddr>>16;
			bufferU[j++]=(MemAddr>>8)&0xFF;
			bufferU[j++]=MemAddr&0xFF;
			for(k=0;k<rowN;k+=2){	//load all latches
				bufferU[j++]=ICSP8_LOAD;
				bufferU[j++]=k<(rowN-2)?LOAD_NVM_INC:LOAD_NVM;
				bufferU[j++]=memCODE[i+k+1];	//High byte
				bufferU[j++]=memCODE[i+k];	//Low byte
				if(j>DIMBUF-5){
					bufferU[j++]=FLUSH;
					for(;j<DIMBUF;j++) bufferU[j]=0x0;
					PacketIO(2);
					j=0;
				}
			}
			if(i<dim){
				bufferU[j++]=ICSP8_SHORT;
				bufferU[j++]=BEGIN_INT_PROG;			//internally timed, T=2.8ms
				bufferU[j++]=WAIT_T3;
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(6);
				j=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log7],i,i,0,0);	//"i=%d, k=%d 0=%d\n"
				}
				PrintStatus(strings[S_CodeWriting],i*100/(dim*2+dim2),i);	//"Writing: %d%%, addr. %03X"
			}
		}
		PrintStatusEnd();
		PrintMessage(strings[S_Compl]);	//"completed\r\n"
		//****************** verify code ********************
		PrintMessage(strings[S_CodeV]);	//"Verifying code ... "
		PrintStatusSetup();
		if(saveLog)	fprintf(logfile,"%s\n",strings[S_CodeV]);
		j=0;
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=0x0;
		bufferU[j++]=0x0;
		bufferU[j++]=0x0;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(2);
		j=0;
		for(i=k=0;i<dim;i+=2){
			if(j==0){				//skip empty locations (only at the beginning of a packet)
				for(x=0;i+x<dim&&memCODE[i+x]==0xFF&&memCODE[i+x+1]==0xFF;x+=2);
				if(x>9){	//set new address
					i+=x;
					k=i;
					MemAddr=i<<1;
					bufferU[j++]=TX16;
					bufferU[j++]=2;
					bufferU[j++]=0x80;
					bufferU[j++]=MemAddr>>16;
					bufferU[j++]=(MemAddr>>8)&0xFF;
					bufferU[j++]=MemAddr&0xFF;
				}
			}
			bufferU[j++]=ICSP8_READ;
			bufferU[j++]=READ_NVM_INC;
			if((j+1)/2*3+3>DIMBUF||i==dim-2){		//2B cmd -> 3B data
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(2);
				for(z=0;z<DIMBUF-2;z++){
					if(bufferI[z]==ICSP8_READ){
						if(memCODE[k]!=bufferI[z+2]||memCODE[k+1]!=bufferI[z+1]){
							PrintMessage3(strings[S_CodeWError2],k,memCODE[k]+(memCODE[k+1]<<8),(bufferI[z+1]<<8)+bufferI[z+2]);	//"Error writing address %3X: written %04X, read %04X\r\n"
							err++;
						}
						z+=2;
						k+=2;
					}
				}
				PrintStatus(strings[S_CodeV2],(i+dim)/(dim*2+dim2)*100,i);	//"Verify: %d%%, addr. %04X"
				j=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,err);	//"i=%d, k=%d, errors=%d\n"
				}
				if(err>=max_err){
					PrintMessage1(strings[S_MaxErr],err);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
					i=dim;
				}	
			}
		}
		bufferU[j++]=SET_PARAMETER;
		bufferU[j++]=SET_T3;
		bufferU[j++]=5600>>8;
		bufferU[j++]=5600&0xff;
		bufferU[j++]=FLUSH;
		for(;j<DIMBUF;j++) bufferU[j]=0x0;
		PacketIO(1);
		j=0;
	}
	PrintStatusEnd();
	PrintMessage1(strings[S_ComplErr],err);	//"completed, %d errors\r\n"
//****************** write and verify EEPROM ********************
	if(dim2){
		PrintMessage(strings[S_EEAreaW]);	//"Write EEPROM ... "
		PrintStatusSetup();
		if(saveLog)	fprintf(logfile,"WRITE EEPROM\ndim2=%d(0x%X)\n",dim2,dim2);
		int errEE=0;
		j=0;
		MemAddr=EEaddr<<1;
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		for(i=k=0;i<dim2;i++){
			if(memEE[i]<0xFF){
				if(type==1){	//Q43
					bufferU[j++]=ICSP8_LOAD;
					bufferU[j++]=PROGRAM_DATA;
					bufferU[j++]=0;
					bufferU[j++]=memEE[i];
				}
				else if(type==0){		//K42 K83
					bufferU[j++]=ICSP8_LOAD;
					bufferU[j++]=LOAD_NVM;
					bufferU[j++]=0;	//High byte
					bufferU[j++]=memEE[i];	//Low byte
					bufferU[j++]=ICSP8_SHORT;
					bufferU[j++]=BEGIN_INT_PROG;			//internally timed
				}
				bufferU[j++]=WAIT_T3;				//Tprogram 11ms or 5.6ms
				bufferU[j++]=ICSP8_READ;
				bufferU[j++]=READ_NVM_INC;
				w++;
			}
			else{
				bufferU[j++]=ICSP8_SHORT;
				bufferU[j++]=INC_ADDR8;
			}
			if(j>DIMBUF-8||i==dim2-1){
				PrintStatus(strings[S_CodeWriting],(i+dim)*100/(dim+dim2),i+EEaddr);	//"Writing: %d%%, addr. %03X"
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				w*=type==1?11:5.6;	//total write time
				PacketIO(w+10);
				for(z=0;z<DIMBUF-4;z++){
					if(bufferI[z]==ICSP8_SHORT&&memEE[k]==0xff) k++;
					else if(bufferI[z]==ICSP8_LOAD){
						w=type==1?bufferI[z+4]:bufferI[z+5];
						if(memEE[k]!=w){
							PrintMessage("\r\n");
							PrintMessage3(strings[S_CodeWError2],k,memEE[k],w);	//"Error writing address %3X: written %04X, read %04X\r\n"
							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;
								z=DIMBUF;
							}
						}
						k++;
						z+=type==1?4:5;
					}
				}
				j=0;
				w=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,errEE);	//"i=%d, k=%d, errors=%d,\n"
				}
			}
		}
		errEE+=i-k;
		err+=errEE;
		PrintStatusEnd();
		PrintMessage1(strings[S_ComplErr],errEE);	//"completed, %d errors\r\n"
	}
//****************** write and verify ID ********************
	#define IDaddr 0x200000
	if(programID){
		PrintMessage(strings[S_IDW]);	//"Write ID ... "
		if(saveLog)	fprintf(logfile,"Write ID\n");
		int errID=0;
		j=0;
		MemAddr=IDaddr<<1;
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		for(i=k=0;i<UIDlen;i+=2){
			if(memID[i]<0xFF||memID[i+1]<0xFF){
				if(type==1){	//Q43
					bufferU[j++]=ICSP8_LOAD;
					bufferU[j++]=PROGRAM_DATA;
					bufferU[j++]=memID[i+1];
					bufferU[j++]=memID[i];
				}
				else if(type==0){		//K42 K83
					bufferU[j++]=ICSP8_LOAD;
					bufferU[j++]=LOAD_NVM;
					bufferU[j++]=memID[i+1];
					bufferU[j++]=memID[i];
					bufferU[j++]=ICSP8_SHORT;
					bufferU[j++]=BEGIN_INT_PROG;			//internally timed
				}
				bufferU[j++]=WAIT_T3;				//Tprogram 11ms or 5.6ms
				bufferU[j++]=ICSP8_READ;
				bufferU[j++]=READ_NVM_INC;
			}
			else{
				bufferU[j++]=ICSP8_SHORT;
				bufferU[j++]=INC_ADDR8;
			}
			if(j>DIMBUF-8||i==UIDlen-2){
				PrintStatus(strings[S_CodeWriting],99,IDaddr+i);	//"Writing: %d%%, add. %03X"
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(80);
				for(z=0;z<DIMBUF-4;z++){
					if(bufferI[z]==ICSP8_SHORT&&memID[k]==0xff&&memID[k+1]==0xff) k+=2;
					else if(bufferI[z]==ICSP8_LOAD){
						if(type==1) w=(bufferI[z+3]<<8)+bufferI[z+4];
						else if(type==0) w=(bufferI[z+4]<<8)+bufferI[z+5];
						x=(memID[k+1]<<8)+memID[k];
						if(x!=w){
							PrintMessage("\r\n");
							PrintMessage3(strings[S_CodeWError2],k,x,w);	//"Error writing address %3X: written %04X, read %04X\r\n"
							errID++;
							if(max_err&&err+errID>max_err){
								PrintMessage1(strings[S_MaxErr],err+errID);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
								PrintMessage(strings[S_IntW]);	//"Write interrupted"
								i=UIDlen;
								z=DIMBUF;
							}
						}
						k+=2;
						z+=type==1?4:5;
					}
				}
				j=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,errID);	//"i=%d, k=%d, errors=%d,\n"
				}
			}
		}
		errID+=i-k;
		err+=errID;
		PrintStatusEnd();
		PrintMessage1(strings[S_ComplErr],errID);	//"completed, %d errors\r\n"
	}
//****************** write and verify CONFIG ********************
	#define CONFIGaddr 0x300000
	if(err<max_err){
		PrintMessage(strings[S_ConfigW]);	//"Write CONFIG ..."
		if(saveLog)	fprintf(logfile,"Write CONFIG\n");
		int errC=0;
		j=0;
		MemAddr=CONFIGaddr<<1;
		bufferU[j++]=TX16;
		bufferU[j++]=2;
		bufferU[j++]=0x80;
		bufferU[j++]=MemAddr>>16;
		bufferU[j++]=(MemAddr>>8)&0xFF;
		bufferU[j++]=MemAddr&0xFF;
		for(i=k=0;i<CONFIGlen;i++){
			if(type==1){	//Q43
				bufferU[j++]=ICSP8_LOAD;
				bufferU[j++]=PROGRAM_DATA;
				bufferU[j++]=0;
				bufferU[j++]=memCONFIG[i];
			}
			else if(type==0){		//K42 K83
				bufferU[j++]=ICSP8_LOAD;
				bufferU[j++]=LOAD_NVM;
				bufferU[j++]=memCONFIG[i*2+1];	//High byte
				bufferU[j++]=memCONFIG[i*2];	//Low byte
				bufferU[j++]=ICSP8_SHORT;
				bufferU[j++]=BEGIN_INT_PROG;			//internally timed
			}
			bufferU[j++]=WAIT_T3;				//Tprogram 11ms or 5.6ms
			bufferU[j++]=ICSP8_READ;
			bufferU[j++]=READ_NVM_INC;
			if(j>DIMBUF-8||i==CONFIGlen-1){
				PrintStatus(strings[S_CodeWriting],99,i+CONFIGaddr);	//"Writing: %d%%, addr. %03X"
				bufferU[j++]=FLUSH;
				for(;j<DIMBUF;j++) bufferU[j]=0x0;
				PacketIO(80);
				for(z=0;z<DIMBUF-4;z++){
					if(bufferI[z]==ICSP8_LOAD){
						if(type==1){	//Q43 single byte
							w=bufferI[z+4];
							x=memCONFIG[k];
						}
						else if(type==0){	//K42 K83 2 bytes
							w=(bufferI[z+4]<<8)+bufferI[z+5];
							x=(memCONFIG[k+1]<<8)+memCONFIG[k];
						}
						if(~x&w){	//error if written 0 and read 1 (~Written&Read)
							PrintMessage("\r\n");
							PrintMessage3(strings[S_CodeWError2],k+CONFIGaddr,x,w);	//"Error writing address %3X: written %04X, read %04X\r\n"
							errC++;
							if(max_err&&err+errC>max_err){
								PrintMessage1(strings[S_MaxErr],err+errC);	//"Exceeded maximum number of errors (%d), write interrupted\r\n"
								PrintMessage(strings[S_IntW]);	//"Write interrupted"
								i=dim2;
								z=DIMBUF;
							}
						}
						if(type==1){	//Q43 single byte
							k++;
							z+=4;
						}
						else if(type==0){	//K42 K83 2 bytes
							k+=2;
							z+=5;
						}
					}
				}
				j=0;
				if(saveLog){
					fprintf(logfile,strings[S_Log8],i,i,k,k,errC);	//"i=%d, k=%d, errors=%d,\n"
				}
			}
		}
		errC+=10-k;
		err+=errC;
		PrintStatusEnd();
		PrintMessage1(strings[S_ComplErr],errC);	//"completed, %d errors\r\n"
	}
	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;
	PacketIO(1);
	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();			//clear status report
}