diff options
Diffstat (limited to 'progP16.c')
-rw-r--r-- | progP16.c | 6546 |
1 files changed, 6546 insertions, 0 deletions
diff --git a/progP16.c b/progP16.c new file mode 100644 index 0000000..3871494 --- /dev/null +++ b/progP16.c @@ -0,0 +1,6546 @@ +/** + * \file progP16.c - algorithms to program the PIC16 (14 bit word) family of microcontrollers + * Copyright (C) 2009-2022 Alberto Maccioni + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA + * or see <http://www.gnu.org/licenses/> + */ + +#include "common.h" + +struct ID16{ + int id; + char *device; + int revmask; +} PIC16LIST[]={ + {0x00A>>1,"16F72 rev%d\r\n",0x1F}, //00 0000 101x xxxx + {0x046>>1,"12F683 rev%d\r\n",0x1F}, //00 0100 011x xxxx + {0x04A>>1,"16F685 rev%d\r\n",0x1F}, //00 0100 101x xxxx + {0x04C>>1,"16F818 rev%d\r\n",0x1F}, //00 0100 110x xxxx + {0x04E>>1,"16F819 rev%d\r\n",0x1F}, //00 0100 111x xxxx + {0x056>>1,"16F84A rev%d\r\n",0x1F}, //00 0101 011x xxxx + {0x060>>1,"16F73 rev%d\r\n",0x1F}, //00 0110 000x xxxx + {0x062>>1,"16F74 rev%d\r\n",0x1F}, //00 0110 001x xxxx + {0x064>>1,"16F76 rev%d\r\n",0x1F}, //00 0110 010x xxxx + {0x066>>1,"16F77 rev%d\r\n",0x1F}, //00 0110 011x xxxx + {0x072>>1,"16F87 rev%d\r\n",0x1F}, //00 0111 001x xxxx + {0x076>>1,"16F88 rev%d\r\n",0x1F}, //00 0111 011x xxxx + {0x07A>>1,"16F627 rev%d\r\n",0x1F}, //00 0111 101x xxxx + {0x07C>>1,"16F628 rev%d\r\n",0x1F}, //00 0111 110x xxxx + {0x08E>>1,"16F872 rev%d\r\n",0x1F}, //00 1000 111x xxxx + {0x092>>1,"16F874 rev%d\r\n",0x1F}, //00 1001 001x xxxx + {0x096>>1,"16F873 rev%d\r\n",0x1F}, //00 1001 011x xxxx + {0x09A>>1,"16F877 rev%d\r\n",0x1F}, //00 1001 101x xxxx + {0x09E>>1,"16F876 rev%d\r\n",0x1F}, //00 1001 111x xxxx + {0x0BA>>1,"16F737 rev%d\r\n",0x1F}, //00 1011 101x xxxx + {0x0BE>>1,"16F747 rev%d\r\n",0x1F}, //00 1011 111x xxxx + {0x0D0>>1,"16F870 rev%d\r\n",0x1F}, //00 1101 000x xxxx + {0x0D2>>1,"16F871 rev%d\r\n",0x1F}, //00 1101 001x xxxx + {0x0DE>>1,"16F777 rev%d\r\n",0x1F}, //00 1101 111x xxxx + {0x0E0>>1,"16F876A rev%d\r\n",0xF}, //00 1110 0000 xxxx + {0x0E2>>1,"16F877A rev%d\r\n",0xF}, //00 1110 0010 xxxx + {0x0E4>>1,"16F873A rev%d\r\n",0xF}, //00 1110 0100 xxxx + {0x0E6>>1,"16F874A rev%d\r\n",0xF}, //00 1110 0110 xxxx + {0x0EA>>1,"16F767 rev%d\r\n",0x1F}, //00 1110 101x xxxx + {0x0F8>>1,"12F629 rev%d\r\n",0x1F}, //00 1111 100x xxxx + {0x0FA>>1,"12F635 rev%d\r\n",0x1F}, //00 1111 101x xxxx + {0x0FC>>1,"12F675 rev%d\r\n",0x1F}, //00 1111 110x xxxx + {0x104>>1,"16F627A rev%d\r\n",0x1F}, //01 0000 010x xxxx + {0x106>>1,"16F628A rev%d\r\n",0x1F}, //01 0000 011x xxxx + {0x108>>1,"16F684 rev%d\r\n",0x1F}, //01 0000 100x xxxx + {0x110>>1,"16F648A rev%d\r\n",0x1F}, //01 0001 000x xxxx + {0x10A>>1,"16F636-639 rev%d\r\n",0x1F}, //01 0000 101x xxxx + {0x10C>>1,"16F630 rev%d\r\n",0x1F}, //01 0000 110x xxxx + {0x10E>>1,"16F676 rev%d\r\n",0x1F}, //01 0000 111x xxxx + {0x114>>1,"16F716 rev%d\r\n",0x1F}, //01 0001 010x xxxx + {0x118>>1,"16F688 rev%d\r\n",0x1F}, //01 0001 100x xxxx + {0x120>>1,"16F785 rev%d\r\n",0x1F}, //01 0010 000x xxxx + {0x122>>1,"16HV785 rev%d\r\n",0x1F}, //01 0010 001x xxxx + {0x124>>1,"16F616 rev%d\r\n",0x1F}, //01 0010 010x xxxx + {0x126>>1,"16HV616 rev%d\r\n",0x1F}, //01 0010 011x xxxx + {0x132>>1,"16F687 rev%d\r\n",0x1F}, //01 0011 001x xxxx + {0x134>>1,"16F689 rev%d\r\n",0x1F}, //01 0011 010x xxxx + {0x138>>1,"16F917 rev%d\r\n",0xF}, //01 0011 1000 xxxx + {0x13A>>1,"16F916 rev%d\r\n",0xF}, //01 0011 1010 xxxx + {0x13C>>1,"16F914 rev%d\r\n",0xF}, //01 0011 1100 xxxx + {0x13E>>1,"16F913 rev%d\r\n",0xF}, //01 0011 1110 xxxx + {0x140>>1,"16F690 rev%d\r\n",0x1F}, //01 0100 000x xxxx + {0x142>>1,"16F631 rev%d\r\n",0x1F}, //01 0100 001x xxxx + {0x144>>1,"16F677 rev%d\r\n",0x1F}, //01 0100 010x xxxx + {0x146>>1,"16F946 rev%d\r\n",0xF}, //01 0100 0110 xxxx + {0x148>>1,"16F1847 rev%d\r\n",0x1F}, //01 0100 100x xxxx + {0x14A>>1,"16LF1847 rev%d\r\n",0x1F}, //01 0100 101x xxxx + {0x150>>1,"12F752 rev%d\r\n",0x1F}, //01 0101 000x xxxx + {0x152>>1,"12HV752 rev%d\r\n",0x1F}, //01 0101 001x xxxx + {0x158>>1,"16F1526 rev%d\r\n",0x1F}, //01 0101 100x xxxx + {0x15A>>1,"16F1527 rev%d\r\n",0x1F}, //01 0101 101x xxxx + {0x15C>>1,"16LF1526 rev%d\r\n",0x1F}, //01 0101 110x xxxx + {0x15E>>1,"16LF1527 rev%d\r\n",0x1F}, //01 0101 111x xxxx + {0x164>>1,"16F1513 rev%d\r\n",0x1F}, //01 0110 010x xxxx + {0x168>>1,"16F1516 rev%d\r\n",0x1F}, //01 0110 100x xxxx + {0x16A>>1,"16F1517 rev%d\r\n",0x1F}, //01 0110 101x xxxx + {0x16C>>1,"16F1518 rev%d\r\n",0x1F}, //01 0110 110x xxxx + {0x16E>>1,"16F1519 rev%d\r\n",0x1F}, //01 0110 111x xxxx + {0x170>>1,"16F1512 rev%d\r\n",0x1F}, //01 0111 000x xxxx + {0x172>>1,"16LF1512 rev%d\r\n",0x1F}, //01 0111 001x xxxx + {0x174>>1,"16LF1513 rev%d\r\n",0x1F}, //01 0111 010x xxxx + {0x178>>1,"16LF1516 rev%d\r\n",0x1F}, //01 0111 100x xxxx + {0x17A>>1,"16LF1517 rev%d\r\n",0x1F}, //01 0111 101x xxxx + {0x17C>>1,"16LF1518 rev%d\r\n",0x1F}, //01 0111 110x xxxx + {0x17E>>1,"16LF1519 rev%d\r\n",0x1F}, //01 0111 111x xxxx + {0x180>>1,"16F727 rev%d\r\n",0x1F}, //01 1000 000x xxxx + {0x182>>1,"16F726 rev%d\r\n",0x1F}, //01 1000 001x xxxx + {0x184>>1,"16F724 rev%d\r\n",0x1F}, //01 1000 010x xxxx + {0x186>>1,"16F723 rev%d\r\n",0x1F}, //01 1000 011x xxxx + {0x188>>1,"16F722 rev%d\r\n",0x1F}, //01 1000 100x xxxx + {0x190>>1,"16LF727 rev%d\r\n",0x1F}, //01 1001 000x xxxx + {0x192>>1,"16LF726 rev%d\r\n",0x1F}, //01 1001 001x xxxx + {0x194>>1,"16LF724 rev%d\r\n",0x1F}, //01 1001 010x xxxx + {0x196>>1,"16LF723 rev%d\r\n",0x1F}, //01 1001 011x xxxx + {0x198>>1,"16LF722 rev%d\r\n",0x1F}, //01 1001 100x xxxx + {0x1AC>>1,"16F707 rev%d\r\n",0x1F}, //01 1010 110x xxxx + {0x1AE>>1,"16LF707 rev%d\r\n",0x1F}, //01 1010 111x xxxx + {0x1B0>>1,"16F723A rev%d\r\n",0x1F}, //01 1011 000x xxxx + {0x1B2>>1,"16F722A rev%d\r\n",0x1F}, //01 1011 001x xxxx + {0x1B4>>1,"16LF723A rev%d\r\n",0x1F}, //01 1011 010x xxxx + {0x1B6>>1,"16LF722A rev%d\r\n",0x1F}, //01 1011 011x xxxx + {0x1B8>>1,"12F1840 rev%d\r\n",0x1F}, //01 1011 100x xxxx + {0x1BA>>1,"12LF1840 rev%d\r\n",0x1F}, //01 1011 101x xxxx + {0x1C0>>1,"16F720 rev%d\r\n",0x1F}, //01 1100 000x xxxx + {0x1C2>>1,"16F721 rev%d\r\n",0x1F}, //01 1100 001x xxxx + {0x1C4>>1,"16LF720 rev%d\r\n",0x1F}, //01 1100 010x xxxx + {0x1C6>>1,"16LF721 rev%d\r\n",0x1F}, //01 1100 011x xxxx + {0x200>>1,"16F882 rev%d\r\n",0x1F}, //10 0000 000x xxxx + {0x202>>1,"16F883 rev%d\r\n",0x1F}, //10 0000 001x xxxx + {0x204>>1,"16F884 rev%d\r\n",0x1F}, //10 0000 010x xxxx + {0x206>>1,"16F886 rev%d\r\n",0x1F}, //10 0000 011x xxxx + {0x208>>1,"16F887 rev%d\r\n",0x1F}, //10 0000 100x xxxx + {0x218>>1,"12F615 rev%d\r\n",0x1F}, //10 0001 100x xxxx + {0x21A>>1,"12HV615 rev%d\r\n",0x1F}, //10 0001 101x xxxx + {0x224>>1,"12F609 rev%d\r\n",0x1F}, //10 0010 010x xxxx + {0x226>>1,"16F610 rev%d\r\n",0x1F}, //10 0010 011x xxxx + {0x228>>1,"12HV609 rev%d\r\n",0x1F}, //10 0010 100x xxxx + {0x22A>>1,"16HV610 rev%d\r\n",0x1F}, //10 0010 101x xxxx + {0x232>>1,"16F1933 rev%d\r\n",0x1F}, //10 0011 001x xxxx + {0x234>>1,"16F1934 rev%d\r\n",0x1F}, //10 0011 010x xxxx + {0x236>>1,"16F1936 rev%d\r\n",0x1F}, //10 0011 011x xxxx + {0x238>>1,"16F1937 rev%d\r\n",0x1F}, //10 0011 100x xxxx + {0x23A>>1,"16F1938 rev%d\r\n",0x1F}, //10 0011 101x xxxx + {0x23C>>1,"16F1939 rev%d\r\n",0x1F}, //10 0011 110x xxxx + {0x242>>1,"16LF1933 rev%d\r\n",0x1F}, //10 0100 001x xxxx + {0x244>>1,"16LF1934 rev%d\r\n",0x1F}, //10 0100 010x xxxx + {0x246>>1,"16LF1936 rev%d\r\n",0x1F}, //10 0100 011x xxxx + {0x248>>1,"16LF1937 rev%d\r\n",0x1F}, //10 0100 100x xxxx + {0x24A>>1,"16LF1938 rev%d\r\n",0x1F}, //10 0100 101x xxxx + {0x24C>>1,"16LF1939 rev%d\r\n",0x1F}, //10 0100 110x xxxx + {0x250>>1,"16F1946 rev%d\r\n",0x1F}, //10 0101 000x xxxx + {0x252>>1,"16F1947 rev%d\r\n",0x1F}, //10 0101 001x xxxx + {0x258>>1,"16LF1946 rev%d\r\n",0x1F}, //10 0101 100x xxxx + {0x25A>>1,"16LF1947 rev%d\r\n",0x1F}, //10 0101 101x xxxx + {0x270>>1,"12F1822 rev%d\r\n",0x1F}, //10 0111 000x xxxx + {0x272>>1,"16F1823 rev%d\r\n",0x1F}, //10 0111 001x xxxx + {0x274>>1,"16F1824 rev%d\r\n",0x1F}, //10 0111 010x xxxx + {0x276>>1,"16F1825 rev%d\r\n",0x1F}, //10 0111 011x xxxx + {0x278>>1,"16F1826 rev%d\r\n",0x1F}, //10 0111 100x xxxx + {0x27A>>1,"16F1827 rev%d\r\n",0x1F}, //10 0111 101x xxxx + {0x280>>1,"12LF1822 rev%d\r\n",0x1F}, //10 1000 000x xxxx + {0x282>>1,"16LF1823 rev%d\r\n",0x1F}, //10 1000 001x xxxx + {0x284>>1,"16LF1824 rev%d\r\n",0x1F}, //10 1000 010x xxxx + {0x286>>1,"16LF1825 rev%d\r\n",0x1F}, //10 1000 011x xxxx + {0x288>>1,"16LF1826 rev%d\r\n",0x1F}, //10 1000 100x xxxx + {0x28A>>1,"16LF1827 rev%d\r\n",0x1F}, //10 1000 101x xxxx + {0x298>>1,"10F322 rev%d\r\n",0x1F}, //10 1001 100x xxxx + {0x29A>>1,"10F320 rev%d\r\n",0x1F}, //10 1001 101x xxxx + {0x29C>>1,"10LF322 rev%d\r\n",0x1F}, //10 1001 110x xxxx + {0x29E>>1,"10LF320 rev%d\r\n",0x1F}, //10 1001 111x xxxx + {0x2A0>>1,"16F1782 rev%d\r\n",0x1F}, //10 1010 000x xxxx + {0x2A2>>1,"16F1783 rev%d\r\n",0x1F}, //10 1010 001x xxxx + {0x2A4>>1,"16F1784 rev%d\r\n",0x1F}, //10 1010 010x xxxx + {0x2A6>>1,"16F1786 rev%d\r\n",0x1F}, //10 1010 011x xxxx + {0x2A8>>1,"16F1787 rev%d\r\n",0x1F}, //10 1010 100x xxxx + {0x2AA>>1,"16LF1782 rev%d\r\n",0x1F}, //10 1010 101x xxxx + {0x2AC>>1,"16LF1783 rev%d\r\n",0x1F}, //10 1010 110x xxxx + {0x2AE>>1,"16LF1784 rev%d\r\n",0x1F}, //10 1010 111x xxxx + {0x2B0>>1,"16LF1786 rev%d\r\n",0x1F}, //10 1011 000x xxxx + {0x2B2>>1,"16LF1787 rev%d\r\n",0x1F}, //10 1011 001x xxxx + {0x2C0>>1,"16LF1903 rev%d\r\n",0x1F}, //10 1100 000x xxxx + {0x2C2>>1,"16LF1902 rev%d\r\n",0x1F}, //10 1100 001x xxxx + {0x2C4>>1,"16LF1907 rev%d\r\n",0x1F}, //10 1100 010x xxxx + {0x2C6>>1,"16LF1906 rev%d\r\n",0x1F}, //10 1100 011x xxxx + {0x2C8>>1,"16LF1904 rev%d\r\n",0x1F}, //10 1100 100x xxxx + {0x2CC>>1,"12F1501 rev%d\r\n",0x1F}, //10 1100 110x xxxx + {0x2CE>>1,"16F1503 rev%d\r\n",0x1F}, //10 1100 111x xxxx + {0x2D0>>1,"16F1507 rev%d\r\n",0x1F}, //10 1101 000x xxxx + {0x2D2>>1,"16F1508 rev%d\r\n",0x1F}, //10 1101 001x xxxx + {0x2D4>>1,"16F1509 rev%d\r\n",0x1F}, //10 1101 010x xxxx + {0x2D8>>1,"12LF1501 rev%d\r\n",0x1F}, //10 1101 100x xxxx + {0x2DA>>1,"16LF1503 rev%d\r\n",0x1F}, //10 1101 101x xxxx + {0x2DC>>1,"16LF1507 rev%d\r\n",0x1F}, //10 1101 110x xxxx + {0x2DE>>1,"16LF1508 rev%d\r\n",0x1F}, //10 1101 111x xxxx + {0x2E0>>1,"16LF1509 rev%d\r\n",0x1F}, //10 1110 000x xxxx + {0x2F0>>1,"16LF1554 rev%d\r\n",0x1F}, //10 1111 000x xxxx + {0x2F2>>1,"16LF1559 rev%d\r\n",0x1F}, //10 1111 001x xxxx +// New devices with DevID & DevRev in different locations: + {0x3000,"16F1574\r\n",0}, + {0x3001,"16F1575\r\n",0}, + {0x3002,"16F1578\r\n",0}, + {0x3003,"16F1579\r\n",0}, + {0x3004,"16LF1574\r\n",0}, + {0x3005,"16LF1575\r\n",0}, + {0x3006,"16LF1578\r\n",0}, + {0x3007,"16LF1579\r\n",0}, + {0x3020,"16F1454\r\n",0}, + {0x3021,"16F1455\r\n",0}, + {0x3023,"16F1459\r\n",0}, + {0x3024,"16LF1454\r\n",0}, + {0x3025,"16LF1455\r\n",0}, + {0x3027,"16LF1459\r\n",0}, + {0x302A,"16F1789\r\n",0}, + {0x302B,"16F1788\r\n",0}, + {0x302C,"16LF1789\r\n",0}, + {0x302D,"16LF1788\r\n",0}, + {0x3030,"16F753\r\n",0}, + {0x3031,"16HV753\r\n",0}, + {0x303A,"16F18324\r\n",0}, + {0x303B,"16F18344\r\n",0}, + {0x303C,"16LF18324\r\n",0}, + {0x303D,"16LF18344\r\n",0}, + {0x303E,"16F18325\r\n",0}, + {0x303F,"16F18345\r\n",0}, + {0x3040,"16LF18325\r\n",0}, + {0x3041,"16LF18345\r\n",0}, + {0x3042,"16F1708\r\n",0}, + {0x3043,"16F1704\r\n",0}, + {0x3044,"16LF1708\r\n",0}, + {0x3045,"16LF1704\r\n",0}, + {0x3048,"16F1716\r\n",0}, + {0x3049,"16F1713\r\n",0}, + {0x304A,"16LF1716\r\n",0}, + {0x304B,"16LF1713\r\n",0}, + {0x304C,"16F1613\r\n",0}, + {0x304D,"16LF1613\r\n",0}, + {0x3050,"12F1572\r\n",0}, + {0x3051,"12F1571\r\n",0}, + {0x3052,"12LF1572\r\n",0}, + {0x3053,"12LF1571\r\n",0}, + {0x3054,"16F1709\r\n",0}, + {0x3055,"16F1705\r\n",0}, + {0x3056,"16LF1709\r\n",0}, + {0x3057,"16LF1705\r\n",0}, + {0x3058,"12F1612\r\n",0}, + {0x3059,"12LF1612\r\n",0}, + {0x305A,"16F1719\r\n",0}, + {0x305B,"16F1718\r\n",0}, + {0x305C,"16F1717\r\n",0}, + {0x305D,"16LF1719\r\n",0}, + {0x305E,"16LF1718\r\n",0}, + {0x305F,"16LF1717\r\n",0}, + {0x3060,"16F1707\r\n",0}, + {0x3061,"16F1703\r\n",0}, + {0x3062,"16LF1707\r\n",0}, + {0x3063,"16LF1703\r\n",0}, + {0x3066,"16F18313\r\n",0}, + {0x3067,"16F18323\r\n",0}, + {0x3068,"16LF18313\r\n",0}, + {0x3069,"16LF18323\r\n",0}, + {0x306A,"16F18854\r\n",0}, + {0x306B,"16LF18854\r\n",0}, + {0x306C,"16F18855\r\n",0}, + {0x306D,"16F18875\r\n",0}, + {0x306E,"16LF18855\r\n",0}, + {0x306F,"16LF18875\r\n",0}, + {0x3070,"16F18856\r\n",0}, + {0x3071,"16F18876\r\n",0}, + {0x3072,"16LF18856\r\n",0}, + {0x3073,"16LF18876\r\n",0}, + {0x3074,"16F18857\r\n",0}, + {0x3075,"16F18877\r\n",0}, + {0x3076,"16LF18857\r\n",0}, + {0x3077,"16LF18877\r\n",0}, + {0x3078,"16F1614\r\n",0}, + {0x3079,"16F1618\r\n",0}, + {0x307A,"16LF1614\r\n",0}, + {0x307B,"16LF1618\r\n",0}, + {0x307C,"16F1615\r\n",0}, + {0x307D,"16F1619\r\n",0}, + {0x307E,"16LF1615\r\n",0}, + {0x307F,"16LF1619\r\n",0}, + {0x3080,"16F1764\r\n",0}, + {0x3081,"16F1765\r\n",0}, + {0x3082,"16LF1764\r\n",0}, + {0x3083,"16LF1765\r\n",0}, + {0x3084,"16F1768\r\n",0}, + {0x3085,"16F1769\r\n",0}, + {0x3086,"16LF1768\r\n",0}, + {0x3087,"16LF1769\r\n",0}, + {0x308A,"16F1773\r\n",0}, + {0x308B,"16F1776\r\n",0}, + {0x308C,"16LF1773\r\n",0}, + {0x308D,"16LF1776\r\n",0}, + {0x308E,"16F1777\r\n",0}, + {0x308F,"16F1778\r\n",0}, + {0x3090,"16F1779\r\n",0}, + {0x3091,"16LF1777\r\n",0}, + {0x3092,"16LF1778\r\n",0}, + {0x3093,"16LF1779\r\n",0}, + {0x3096,"16F19155\r\n",0}, + {0x3097,"16LF19155\r\n",0}, + {0x3098,"16F19156\r\n",0}, + {0x3099,"16LF19156\r\n",0}, + {0x309A,"16F19175\r\n",0}, + {0x309B,"16LF19175\r\n",0}, + {0x309C,"16F19176\r\n",0}, + {0x309D,"16LF19176\r\n",0}, + {0x309E,"16F19195\r\n",0}, + {0x309F,"16LF19195\r\n",0}, + {0x30A0,"16F19196\r\n",0}, + {0x30A1,"16LF19196\r\n",0}, + {0x30A2,"16F19197\r\n",0}, + {0x30A3,"16LF19197\r\n",0}, + {0x30A4,"16F18326\r\n",0}, + {0x30A5,"16F18346\r\n",0}, + {0x30A6,"16LF18326\r\n",0}, + {0x30A7,"16LF18346\r\n",0}, + {0x30AC,"16F15354\r\n",0}, + {0x30AD,"16LF15354\r\n",0}, + {0x30AE,"16F15355\r\n",0}, + {0x30AF,"16LF15355\r\n",0}, + {0x30B0,"16F15356\r\n",0}, + {0x30B1,"16LF15356\r\n",0}, + {0x30B2,"16F15375\r\n",0}, + {0x30B3,"16LF15375\r\n",0}, + {0x30B4,"16F15376\r\n",0}, + {0x30B5,"16LF15376\r\n",0}, + {0x30B6,"16F15385\r\n",0}, + {0x30B7,"16LF15385\r\n",0}, + {0x30B8,"16F15386\r\n",0}, + {0x30B9,"16LF15386\r\n",0}, + {0x30BE,"16F15313\r\n",0}, + {0x30BF,"16LF15313\r\n",0}, + {0x30BA,"16F19185\r\n",0}, + {0x30BB,"16LF19185\r\n",0}, + {0x30BC,"16F19186\r\n",0}, + {0x30BD,"16LF19186\r\n",0}, + {0x30C0,"16F15323\r\n",0}, + {0x30C1,"16LF15323\r\n",0}, + {0x30C2,"16F15324\r\n",0}, + {0x30C3,"16LF15324\r\n",0}, + {0x30C4,"16F15344\r\n",0}, + {0x30C5,"16LF15344\r\n",0}, + {0x30C6,"16F15325\r\n",0}, + {0x30C7,"16LF15325\r\n",0}, + {0x30C8,"16F15345\r\n",0}, + {0x30C9,"16LF15345\r\n",0}, + {0x30CA,"16F18424\r\n",0}, + {0x30CB,"16LF18424\r\n",0}, + {0x30CC,"16F18425\r\n",0}, + {0x30CD,"16LF18425\r\n",0}, + {0x30CE,"16F18444\r\n",0}, + {0x30CF,"16LF18444\r\n",0}, + {0x30D0,"16F18445\r\n",0}, + {0x30D1,"16LF18445\r\n",0}, + {0x30D2,"16F18426\r\n",0}, + {0x30D3,"16LF18426\r\n",0}, + {0x30D4,"16F18446\r\n",0}, + {0x30D5,"16LF18446\r\n",0}, + {0x30D7,"16F18455\r\n",0}, + {0x30D8,"16LF18455\r\n",0}, + {0x30D9,"16F18456\r\n",0}, + {0x30DA,"16LF18456\r\n",0}, + {0x30DB,"16F17114\r\n",0}, + {0x30DC,"16F17124\r\n",0}, + {0x30DD,"16F17144\r\n",0}, + {0x30DE,"16F17125\r\n",0}, + {0x30DF,"16F17145\r\n",0}, + {0x30E0,"16F17126\r\n",0}, + {0x30E1,"16F17146\r\n",0}, + {0x30E2,"16F17115\r\n",0}, + {0x30E3,"16F15213\r\n",0}, + {0x30E4,"16F15223\r\n",0}, + {0x30E5,"16F15243\r\n",0}, + {0x30E6,"16F15214\r\n",0}, + {0x30E7,"16F15224\r\n",0}, + {0x30E8,"16F15244\r\n",0}, + {0x30E9,"16F15225\r\n",0}, + {0x30EA,"16F15245\r\n",0}, + {0x30EB,"16F15256\r\n",0}, + {0x30EC,"16F15276\r\n",0}, + {0x30ED,"16F15275\r\n",0}, + {0x30EE,"16F15274\r\n",0}, + {0x30EF,"16F15255\r\n",0}, + {0x30F0,"16F15254\r\n",0}, + {0x30F1,"16F18013\r\n",0}, + {0x30F2,"16F18014\r\n",0}, + {0x30F3,"16F18023\r\n",0}, + {0x30F4,"16F18024\r\n",0}, + {0x30F5,"16F18015\r\n",0}, + {0x30F6,"16F18025\r\n",0}, + {0x30F7,"16F18044\r\n",0}, + {0x30F8,"16F18045\r\n",0}, + {0x30F9,"16F18026\r\n",0}, + {0x30FA,"16F18046\r\n",0}, + {0x30FB,"16F18054\r\n",0}, + {0x30FC,"16F18055\r\n",0}, + {0x30FD,"16F18074\r\n",0}, + {0x30FE,"16F18075\r\n",0}, + {0x30FF,"16F18056\r\n",0}, + {0x3100,"16F18076\r\n",0}, + {0x3107,"16F18114\r\n",0}, + {0x3108,"16F18124\r\n",0}, + {0x3109,"16F18144\r\n",0}, + {0x310A,"16F18154\r\n",0}, + {0x310B,"16F18174\r\n",0}, + {0x310C,"16F18115\r\n",0}, + {0x310D,"16F18125\r\n",0}, + {0x310E,"16F18145\r\n",0}, + {0x310F,"16F18155\r\n",0}, + {0x3110,"16F18175\r\n",0}, + {0x3111,"16F18126\r\n",0}, + {0x3112,"16F18146\r\n",0}, + {0x3113,"16F18156\r\n",0}, + {0x3114,"16F18176\r\n",0}, + {0x3101,"16F17154\r\n",0}, + {0x3102,"16F17174\r\n",0}, + {0x3103,"16F17155\r\n",0}, + {0x3104,"16F17175\r\n",0}, + {0x3105,"16F17156\r\n",0}, + {0x3106,"16F17176\r\n",0}, +}; + +void PIC16_ID(int id) +{ + char s[64]; + int i; + for(i=0;i<sizeof(PIC16LIST)/sizeof(PIC16LIST[0]);i++){ + if(PIC16LIST[i].revmask&&(id>>5)==PIC16LIST[i].id){ //id + rev in same location + sprintf(s,PIC16LIST[i].device,id&PIC16LIST[i].revmask); + PrintMessage(s); + return; + } + else if(!PIC16LIST[i].revmask&&id==PIC16LIST[i].id){ //id separate from rev + sprintf(s,PIC16LIST[i].device); + PrintMessage(s); + return; + } + } + sprintf(s,"%s",strings[S_nodev]); //"Unknown device\r\n"); + PrintMessage(s); +} + +void DisplayCODE16F(int size){ +// display 14 bit PIC CODE memory + char s[256]="",t[256]=""; + char* aux=(char*)malloc((size/COL+1)*(16+COL*5)); + aux[0]=0; + int valid=0,empty=1,i,j,lines=0; + for(i=0;i<size&&i<sizeW;i+=COL){ + valid=0; + for(j=i;j<i+COL&&j<sizeW&&i<size;j++){ + sprintf(t,"%04X ",memCODE_W[j]); + strcat(s,t); + if((memCODE_W[j]&0x3fff)<0x3fff) valid=1; + } + if(valid){ + sprintf(t,"%04X: %s\r\n",i,s); + empty=0; + strcat(aux,t); + lines++; + if(lines>500){ //limit number of lines printed + strcat(aux,"(...)\r\n"); + i=(sizeW<size?sizeW:size)-COL*2; + lines=490; + } + } + s[0]=0; + } + if(empty) PrintMessage(strings[S_Empty]); //empty + else PrintMessage(aux); + free(aux); +} + +void DisplayEE16F(int size){ +// display 14 bit PIC EEPROM memory + int valid=0,empty=1,i,j; + char s[256]="",t[256]="",v[256]=""; + char* aux=(char*)malloc((size/COL+1)*(16+COL*5)); + aux[0]=0; +#ifdef __GTK_H__ + char *g; +#endif + empty=1; + v[0]=0; + for(i=0x2100;i<0x2100+size&&i<sizeW;i+=COL){ + valid=0; + for(j=i;j<i+COL&&j<0x2100+size&&j<sizeW;j++){ + sprintf(t,"%02X ",memCODE_W[j]&0xff); + strcat(s,t); + sprintf(t,"%c",isprint(memCODE_W[j]&0xFF)&&(memCODE_W[j]&0xFF)<0xFF?memCODE_W[j]&0xFF:'.'); +#ifdef __GTK_H__ + g=g_locale_to_utf8(t,-1,NULL,NULL,NULL); + if(g) strcat(v,g); + g_free(g); +#else + strcat(v,t); +#endif + if((memCODE_W[j]&0xFF)<0xff) valid=1;/**/ + } + if(valid){ + sprintf(t,"%04X: %s %s\r\n",i,s,v); + empty=0; + strcat(aux,t); + } + s[0]=0; + v[0]=0; + } + if(empty) PrintMessage(strings[S_Empty]); //empty + else PrintMessage(aux); + free(aux); +} + +void Read16Fxxx(int dim,int dim2,int dim3,int vdd) +// read 14 bit PIC +// dim=program size dim2=eeprom size dim3=config size +// dim2<0 -> eeprom @ 0x2200 +// vdd=0 -> vpp before vdd +// vdd=1 -> vdd (+50ms) before vpp +// vdd=2 -> vdd before vpp +// DevREV@0x2005 +// DevID@0x2006 +// Config@0x2007 +// Calib1/Config2@0x2008 +// Calib2/Calib1@0x2009 +// eeprom@0x2100 +{ + int k=0,k2=0,z=0,i,j,ee2200=0; + char s[512],t[256],*aux; + if(dim2<0){ + dim2=-dim2; + ee2200=1; + } + if(dim>0x2000||dim<0){ + PrintMessage(strings[S_CodeLim]); //"Code size exceeds limits\r\n" + return; + } + if(dim2>0x400||dim2<0){ //Max 1K + PrintMessage(strings[S_EELim]); //"EEPROM size exceeds limits\r\n" + return; + } + if(dim3>0x100||dim3<0){ + PrintMessage(strings[S_ConfigLim]); //"Config area size exceeds limits\r\n" + return; + } + if(dim3<8)dim3=8; + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Read16Fxxx(%d,%d,%d,%d)\n",dim,dim2,dim3,vdd); + } + sizeW=0x2100+dim2; + if(memCODE_W) free(memCODE_W); + memCODE_W=(WORD*)malloc(sizeof(WORD)*sizeW); + 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; + if(vdd==0){ //VPP before VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else if(vdd==1){ //VDD before VPP with delay 50ms + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=25000>>8; + bufferU[j++]=25000&0xff; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else if(vdd==2){ //VDD before VPP without delay + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(vdd?55:5); +//****************** 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++){ + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/4-3||i==dim-1){ //2B cmd -> 4B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-2;z++){ + if(bufferI[z]==READ_DATA_PROG){ + memCODE_W[k++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],i*100/(dim+dim2+dim3),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]); + for(i=k;i<0x2000;i++) memCODE_W[i]=0x3fff; +//****************** read config area ******************** + PrintMessage(strings[S_Read_CONFIG_A]); //read config ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_Read_CONFIG_A]); //read config ... + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + for(i=0x2000;i<0x2000+dim3;i++){ //Config + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/4-3||i==0x2000+dim3-1){ //2B cmd -> 4B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-2;z++){ + if(bufferI[z]==READ_DATA_PROG){ + memCODE_W[0x2000+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],(i-0x2000+dim)*100/(dim+dim2+dim3),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!=dim3){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],dim3,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + else PrintMessage(strings[S_Compl]); + for(i=0x2000+k2;i<0x2000+dim3;i++) memCODE_W[i]=0x3fff; +//****************** read eeprom ******************** + if(dim2){ + PrintMessage(strings[S_ReadEE]); //Read EEPROM ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_ReadEE]); //Read EEPROM ... + PrintStatusSetup(); + if(ee2200){ //eeprom a 0x2200 + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x100-dim3; + for(k2=0,i=0x2100;i<0x2100+dim2;i++){ + bufferU[j++]=READ_DATA_DATA; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/3-3||i==0x2100+dim2-1){ //2B cmd -> 3B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(8); + for(z=0;z<DIMBUF-1;z++){ + if(bufferI[z]==READ_DATA_DATA){ + memCODE_W[0x2100+k2++]=bufferI[z+1]; + z++; + } + } + PrintStatus(strings[S_CodeReading],(i-0x2100+dim)*100/(dim+dim2+dim3),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" + } + } + } + PrintStatusEnd(); + if(k2!=dim2){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ReadEEErr],dim2,k2); //"Error reading EE area, ..." + for(i=0x2100+k2;i<0x2100+dim2;i++) memCODE_W[i]=0x3fff; + } + else PrintMessage(strings[S_Compl]); + } + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(2); + unsigned int stop=GetTickCount(); + PrintStatusClear(); //clear status report +//****************** visualize ******************** + for(i=0;i<4;i+=2){ + PrintMessage4("ID%d: 0x%04X\tID%d: 0x%04X\r\n",i,memCODE_W[0x2000+i],i+1,memCODE_W[0x2000+i+1]); + } + PrintMessage1(strings[S_DevID],memCODE_W[0x2006]); //"DevID: 0x%04X\r\n" + if(memCODE_W[0x2005]<0x3FFF) PrintMessage1(strings[S_DevREV],memCODE_W[0x2005]); //"DevREV: 0x%04X\r\n" + PIC16_ID(memCODE_W[0x2006]); + PrintMessage1(strings[S_ConfigWord],memCODE_W[0x2007]); //"Configuration word: 0x%04X\r\n" + if(dim3>8){ + PrintMessage1(strings[S_Config2Cal1],memCODE_W[0x2008]); //"Config2 or Cal1: 0x%04X\r\n" + } + if(dim3>9){ + PrintMessage1(strings[S_Calib1_2],memCODE_W[0x2009]); //"Calibration word 1 or 2: 0x%04X\r\n" + } + PrintMessage(strings[S_CodeMem2]); //"\r\nCode memory\r\n" + DisplayCODE16F(dim); + s[0]=0; + int valid=0,empty=1; + if(dim3>8){ + aux=(char*)malloc((dim3/COL+1)*(16+COL*5)); + aux[0]=0; + empty=1; + PrintMessage(strings[S_ConfigResMem]); //"\r\nConfig and reserved memory:\r\n" + for(i=0x2000;i<0x2000+dim3;i+=COL){ + valid=0; + for(j=i;j<i+COL&&j<0x2000+dim3;j++){ + sprintf(t,"%04X ",memCODE_W[j]); + strcat(s,t); + if(memCODE_W[j]<0x3fff) valid=1; + } + if(valid){ + snprintf(t,sizeof(t),"%04X: %s\r\n",i,s); + empty=0; + strcat(aux,t); + } + s[0]=0; + } + if(empty) PrintMessage(strings[S_Empty]); //empty + else PrintMessage(aux); + free(aux); + } + if(dim2){ + PrintMessage(strings[S_EEMem]); //"\r\nEEPROM memory:\r\n" + DisplayEE16F(dim2); + } + sprintf(str,strings[S_End],(stop-start)/1000.0); //"\r\nEnd (%.2f s)\r\n" + PrintMessage(str); + if(saveLog){ + fprintf(logfile,str); + CloseLogFile(); + } + PrintStatusClear(); //clear status report +} + +void Read16F1xxx(int dim,int dim2,int dim3,int options) +// read 14 bit enhanced PIC +// dim=program size (up to 0x8000) +// dim2=eeprom size (up to 0x400) +// dim3=config area size @0x8000 +// options: +// bit0=0 -> vpp before vdd +// bit0=1 -> vdd before vpp +// bit1=1 -> LVP programming +// bit2=1 -> Config3@0x8009 +// bit3=1 -> Config4@0x800A +// bit4=1 -> PIC16F18xxx (calib words @0xE000 + new commands) +// DevREV@0x8005 DevID@0x8006 +// Config1@0x8007 Config2@0x8008 +// Config3@0x8009 Config4@0x800A +// Calib1@0x8009/A Calib2@0x800A/B Calib3@0x800B/C +// eeprom@0x0 or 0xF000 +{ + int k=0,k2=0,z=0,i,j; + int F18x=options&16; + if(F18x&&FWVersion<0xA00){ //only for 16F18xxx + PrintMessage1(strings[S_FWver2old],"0.10.0"); //"This firmware is too old. Version %s is required\r\n" + return; + } + if(!CheckV33Regulator()){ + PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board + return; + } + char s[256],t[256],*aux; + if(dim>0x8000||dim<0){ + PrintMessage(strings[S_CodeLim]); //"Code size exceeds limits\r\n" + return; + } + if(dim2>0x400||dim2<0){ //Max 1K + PrintMessage(strings[S_EELim]); //"EEPROM size exceeds limits\r\n" + return; + } + if(dim3>0x200||dim3<0){ + PrintMessage(strings[S_ConfigLim]); //"Config area size exceeds limits\r\n" + return; + } + if(dim3<11)dim3=11; //at least config1-2 + calib1-2 + if(saveLog){ + OpenLogFile(); //"Log.txt" + fprintf(logfile,"Read16F1xxx(%d,%d,%d,%d)\n",dim,dim2,dim3,options); + } + if((options&2)==0){ //HV entry + if(!StartHVReg(8.5)){ + PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n" + return; + } + else hvreg=8.5; + } + else StartHVReg(-1); //LVP mode, turn off HV + sizeW=0x8200; + if(F18x) sizeW=0xE004; + sizeEE=dim2; + if(memCODE_W) free(memCODE_W); + memCODE_W=(WORD*)malloc(sizeof(WORD)*sizeW); + for(i=0;i<sizeW;i++) memCODE_W[i]=0x3fff; + if(memEE) free(memEE); + memEE=(unsigned char*)malloc(sizeEE); //EEPROM + for(i=0;i<sizeEE;i++) memEE[i]=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; + if((options&2)==0){ //HV entry + if((options&1)==0){ //VPP before VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else{ //VDD before VPP without delay + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + } + else{ //Low voltage programming + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=WAIT_T3; + bufferU[j++]=TX16; //0000 1010 0001 0010 1100 0010 1011 0010 = 0A12C2B2 + bufferU[j++]=2; + bufferU[j++]=0x0A; + bufferU[j++]=0x12; + bufferU[j++]=0xC2; + bufferU[j++]=0xB2; + bufferU[j++]=SET_CK_D; //Clock pulse + bufferU[j++]=0x4; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(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++){ + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/4-3||i==dim-1){ //2B cmd -> 4B 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]==READ_DATA_PROG){ + memCODE_W[k++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],i*100/(dim+dim2+dim3),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 config area ******************** + PrintMessage(strings[S_Read_CONFIG_A]); //read config ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_Read_CONFIG_A]); //read config ... + bufferU[j++]=LOAD_CONF; //counter at 0x8000 + bufferU[j++]=0xFF; + bufferU[j++]=0xFF; + for(i=0x8000;i<0x8000+dim3;i++){ //Config + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/4-3||i==0x8000+dim3-1){ //2B cmd -> 4B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-2;z++){ + if(bufferI[z]==READ_DATA_PROG){ + memCODE_W[0x8000+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],(i-0x8000+dim)*100/(dim+dim2+dim3),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!=dim3){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],dim3,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + else PrintMessage(strings[S_Compl]); +// for(i=0x8000+k2;i<0x8000+dim3;i++) memCODE_W[i]=0x3fff; +//****************** read calibration area ******************** + if(F18x){ + k2=0; + PrintMessage(strings[S_Read_CONFIG_A]); //read config ... + bufferU[j++]=LOAD_PC; //counter at 0xE000 + bufferU[j++]=0xE0; + bufferU[j++]=0x00; + for(i=0;i<4;i++) bufferU[j++]=READ_DATA_INC; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-2;z++){ + if(bufferI[z]==READ_DATA_INC){ + memCODE_W[0xE000+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + j=0; + if(saveLog){ + fprintf(logfile,"Calibration area @0xE000\n"); + } + if(k2!=4){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],dim3,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + else PrintMessage(strings[S_Compl]); + } +//****************** read eeprom ******************** + if(dim2&&!F18x){ //16F1xxx + PrintMessage(strings[S_ReadEE]); //Read EEPROM ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_ReadEE]); //Read EEPROM ... + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + for(i=k=0;i<dim2;i++){ + bufferU[j++]=READ_DATA_DATA; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/3-3||i==dim2-1){ //2B cmd -> 3B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-1;z++){ + if(bufferI[z]==READ_DATA_DATA){ + memEE[k++]=bufferI[z+1]; + z++; + } + } + PrintStatus(strings[S_CodeReading],i*100/(dim+dim2+dim3),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(i!=dim2){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ReadEEErr],dim2,i); //"Error reading EE area, ..." + for(;i<dim2;i++) memEE[i]=0xff; + } + else PrintMessage(strings[S_Compl]); + } + else if(dim2&&F18x){ //16F18xxx + PrintMessage(strings[S_ReadEE]); //Read EEPROM ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_ReadEE]); //Read EEPROM ... + bufferU[j++]=LOAD_PC; //counter at 0xF000 + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + for(i=k=0;i<dim2;i++){ + bufferU[j++]=READ_DATA_INC; + if(j>DIMBUF/3-3||i==dim2-1){ //1B cmd -> 3B answer + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-1;z++){ + if(bufferI[z]==READ_DATA_INC){ + memEE[k++]=bufferI[z+2]; //LSB + z+=2; + } + } + PrintStatus(strings[S_CodeReading],i*100/(dim+dim2+dim3),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(i!=dim2){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ReadEEErr],dim2,i); //"Error reading EE area, ..." + for(;i<dim2;i++) memEE[i]=0xff; + } + else PrintMessage(strings[S_Compl]); + } +/***********************************/ + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(2); + unsigned int stop=GetTickCount(); + PrintStatusClear(); //clear status report +//****************** visualize ******************** + for(i=0;i<4;i+=2){ + PrintMessage4("ID%d: 0x%04X\tID%d: 0x%04X\r\n",i,memCODE_W[0x8000+i],i+1,memCODE_W[0x8000+i+1]); + } + PrintMessage1(strings[S_DevID],memCODE_W[0x8006]); //"DevID: 0x%04X\r\n" + if(memCODE_W[0x8005]<0x3FFF) PrintMessage1(strings[S_DevREV],memCODE_W[0x8005]); //"DevREV: 0x%04X\r\n" + PIC16_ID(memCODE_W[0x8006]); + PrintMessage2(strings[S_ConfigWordX],1,memCODE_W[0x8007]); //"Configuration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_ConfigWordX],2,memCODE_W[0x8008]); //"Configuration word %d: 0x%04X\r\n" + if((options&0xC)==0&&F18x==0){ //2 config + 2/3 calib words + PrintMessage2(strings[S_CalibWordX],1,memCODE_W[0x8009]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],2,memCODE_W[0x800A]); //"Calibration word %d: 0x%04X\r\n" + if(memCODE_W[0x800B]<0x3FFF) PrintMessage2(strings[S_CalibWordX],3,memCODE_W[0x800B]); //"Calibration word %d: 0x%04X\r\n" + } + else if((options&0xC)==4&&F18x==0){ //3 config + 3 calib words + PrintMessage2(strings[S_ConfigWordX],3,memCODE_W[0x8009]); //"Configuration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],1,memCODE_W[0x800A]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],2,memCODE_W[0x800B]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],3,memCODE_W[0x800C]); //"Calibration word %d: 0x%04X\r\n" + } + else if((options&0xC)==8){ //4 config + PrintMessage2(strings[S_ConfigWordX],3,memCODE_W[0x8009]); //"Configuration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_ConfigWordX],4,memCODE_W[0x800A]); //"Configuration word %d: 0x%04X\r\n" + } + if(F18x){ //4 calib words @0xE000 + PrintMessage2(strings[S_CalibWordX],1,memCODE_W[0xE000]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],2,memCODE_W[0xE001]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],3,memCODE_W[0xE002]); //"Calibration word %d: 0x%04X\r\n" + PrintMessage2(strings[S_CalibWordX],4,memCODE_W[0xE003]); //"Calibration word %d: 0x%04X\r\n" + } + PrintMessage(strings[S_CodeMem2]); //"\r\nCode memory:\r\n" + DisplayCODE16F(dim); + if(dim3>15){ + int valid=0,empty=1; + s[0]=0; + aux=(char*)malloc(dim3/COL*(16+COL*5)); + aux[0]=0; + empty=1; + PrintMessage(strings[S_ConfigResMem]); //"\r\nConfig and reserved memory:\r\n" + for(i=0x8000;i<0x8000+dim3;i+=COL){ + valid=0; + for(j=i;j<i+COL&&j<0x8000+dim3;j++){ + sprintf(t,"%04X ",memCODE_W[j]); + strcat(s,t); + if(memCODE_W[j]<0x3fff) valid=1; + } + if(valid){ + sprintf(t,"%04X: %s\r\n",i,s); + empty=0; + strcat(aux,t); + } + s[0]=0; + } + if(empty) PrintMessage(strings[S_Empty]); //empty + else PrintMessage(aux); + free(aux); + } + 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(); + } + PrintStatusClear(); //clear status report +} + +#define LOAD_PC_ADDR 0x80 +#define BULK_ERASE_PROGRAM_MEM 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 END_EXT_PROG 0x82 + +void Read16F18xxx(int dim,int dim2,int dim3,int options) +// read 14 bit enhanced PIC with new 8b commands +// dim=program size (up to 0x8000) +// dim2=if>0 use eeprom, size is automatic when reading DCI +// dim3=not used +// options: +// bit0=0 -> vpp before vdd +// bit0=1 -> vdd before vpp +// bit1=1 -> LVP programming +// bit4=1 -> do not use DIA&DCI +// DevREV@0x8005 DevID@0x8006 +// Config1@0x8007 Config2@0x8008 ... +// Device info area @0x8100 +// Device configuration info area @0x8200 +{ + int k=0,k2=0,z=0,i,j; + int useDCI=(options&0x10)==0?1:0; + if(FWVersion<0xB00){ //only for 16F18xxx + PrintMessage1(strings[S_FWver2old],"0.11.0"); //"This firmware is too old. Version %s is required\r\n" + return; + } + if(!CheckV33Regulator()){ + PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board + return; + } + char s[256],t[256],*aux; + if(dim>0x8000||dim<0){ + PrintMessage(strings[S_CodeLim]); //"Code size exceeds limits\r\n" + return; + } + if(saveLog){ + OpenLogFile(); //"Log.txt" + fprintf(logfile,"Read16F18xxx(%d,%d,%d,%d)\n",dim,dim2,dim3,options); + } + if((options&2)==0){ //HV entry + if(!StartHVReg(8.5)){ + PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n" + return; + } + else hvreg=8.5; + } + else StartHVReg(-1); //LVP mode, turn off HV + sizeW=0x8220; + if(memCODE_W) free(memCODE_W); + memCODE_W=(WORD*)malloc(sizeof(WORD)*sizeW); + for(i=0;i<sizeW;i++) memCODE_W[i]=0x3fff; + 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; + if((options&2)==0){ //HV entry + if((options&1)==0){ //VPP before VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else{ //VDD before VPP without delay + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + } + else{ //Low voltage programming + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=WAIT_T3; + bufferU[j++]=TX16; //0000 1010 0001 0010 1100 0010 1011 0010 = 0A12C2B2 + bufferU[j++]=2; + bufferU[j++]=0x0A; + bufferU[j++]=0x12; + bufferU[j++]=0xC2; + bufferU[j++]=0xB2; + bufferU[j++]=SET_CK_D; //Clock pulse + bufferU[j++]=0x4; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(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++){ + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==dim-1){ //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_W[k++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],i*100/(dim+dim2+0x60),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 config area ******************** + PrintMessage(strings[S_Read_CONFIG_A]); //read config ... + if(saveLog) fprintf(logfile,"%s\n",strings[S_Read_CONFIG_A]); //read config ... + bufferU[j++]=ICSP8_LOAD; //counter at 0x8000 + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x80; + bufferU[j++]=0x00; + k2=0; + for(i=0x8000;i<0x8010;i++){ //Config + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==0x800F){ //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){ + memCODE_W[0x8000+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],(i-0x8000+dim)*100/(dim+dim2+0x60),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!=0x10){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],0x10,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + else PrintMessage(strings[S_Compl]); +//****************** read device info area ******************** + if(useDCI){ //if not disabled + if(saveLog) fprintf(logfile,"Read device info area @0x8100\n"); + bufferU[j++]=ICSP8_LOAD; //counter at 0x8000 + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x81; + bufferU[j++]=0x00; + k2=0; + for(i=0x8100;i<0x8120;i++){ //DIA + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==0x811F){ //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){ + memCODE_W[0x8100+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],(i-0x8100+dim+0x20)*100/(dim+dim2+0x60),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!=0x20){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],0x20,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + //****************** read calibration area (Device Configuration Information) ******************** + if(saveLog) fprintf(logfile,"Read Device Configuration Information @0x8200\n"); + bufferU[j++]=ICSP8_LOAD; //counter at 0x8200 + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x82; + bufferU[j++]=0x00; + k2=0; + for(i=0x8200;i<0x8220;i++){ //DCI + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==0x821F){ //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){ + memCODE_W[0x8200+k2++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + PrintStatus(strings[S_CodeReading],(i-0x8200+dim+0x40)*100/(dim+dim2+0x60),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!=0x20){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],0x20,k2); //"Error reading config area, requested %d words, read %d\r\n" + } + } +//****************** read eeprom ******************** + if(dim2){ //EEPROM + if(useDCI) dim2=memCODE_W[0x8203]; //EEPROM size from DCI + if(dim2>0x1000||dim2<0){ //Max 4K + PrintMessage(strings[S_EELim]); //"EEPROM size exceeds limits\r\n" + return; + } + sizeEE=dim2; + 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 ... + bufferU[j++]=ICSP8_LOAD; //counter at 0xF000 + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + for(i=k=0;i<dim2;i++){ + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==dim2-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],i*100+dim+0x60/(dim+dim2+0x60),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(i!=dim2){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ReadEEErr],dim2,i); //"Error reading EE area, ..." + for(;i<dim2;i++) memEE[i]=0xff; + } + else PrintMessage(strings[S_Compl]); + } +/***********************************/ + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(2); + unsigned int stop=GetTickCount(); + PrintStatusClear(); //clear status report +//****************** visualize ******************** + for(i=0;i<4;i+=2){ + PrintMessage4("ID%d: 0x%04X\tID%d: 0x%04X\r\n",i,memCODE_W[0x8000+i],i+1,memCODE_W[0x8000+i+1]); + } + PrintMessage1(strings[S_DevID],memCODE_W[0x8006]); //"DevID: 0x%04X\r\n" + if(memCODE_W[0x8005]<0x3FFF) PrintMessage1(strings[S_DevREV],memCODE_W[0x8005]); //"DevREV: 0x%04X\r\n" + PIC16_ID(memCODE_W[0x8006]); + for(i=0;i<5;i++){ + PrintMessage2(strings[S_ConfigWordX],i+1,memCODE_W[0x8007+i]); //"Configuration word %d: 0x%04X\r\n" + } + if(useDCI){ //if not disabled + PrintMessage("Device Information Area @0x8100\r\n"); + s[0]=0; + for(i=0;i<0x20;i+=COL){ + sprintf(t,"%04X: ",0x8100+i); + strcat(s,t); + for(j=i;j<i+COL&&j<0x20;j++){ + sprintf(t,"%04X ",memCODE_W[0x8100+j]); + strcat(s,t); + } + strcat(s,"\r\n"); + } + PrintMessage(s); + PrintMessage("Device Configuration Information @0x8200\r\n"); + s[0]=0; + for(i=0;i<0x20;i+=COL){ + sprintf(t,"%04X: ",0x8200+i); + strcat(s,t); + for(j=i;j<i+COL&&j<0x20;j++){ + sprintf(t,"%04X ",memCODE_W[0x8200+j]); + strcat(s,t); + } + strcat(s,"\r\n"); + } + PrintMessage(s); + PrintMessage1("Erase row size: %d words\r\n",memCODE_W[0x8200]); + PrintMessage1("Write latches: %d\r\n",memCODE_W[0x8201]); + PrintMessage1("User rows: %d\r\n",memCODE_W[0x8202]); + PrintMessage1("->%d Flash words\r\n",memCODE_W[0x8200]*memCODE_W[0x8202]); + PrintMessage1("EE data memory size: %d\r\n",memCODE_W[0x8203]); + PrintMessage1("Pin count: %d\r\n",memCODE_W[0x8204]); + if(dim!=memCODE_W[0x8200]*memCODE_W[0x8202]) PrintMessage(strings[S_WarnFlashSize]); //"Warning, flash size is different from the expected value" + } + PrintMessage(strings[S_CodeMem2]); //"\r\nCode memory:\r\n" + DisplayCODE16F(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(); + } + PrintStatusClear(); //clear status report +} + +void Write12F6xx(int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// vpp before vdd +// DevID@0x2006 +// Config@0x2007 +// Calib1@0x2008 (save) +// Calib2@0x2009 (save) +// eeprom@0x2100 +// erase: BULK_ERASE_PROG (1001) +10ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 4ms +// eeprom: BULK_ERASE_DATA (1011) + 16ms +// LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 8ms +// verify during write +{ + int err=0; + WORD devID=0x3fff,calib1=0x3fff,calib2=0x3fff; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(load_calibword){ + if(sizeW>0x2009) load_calibword=2; + else if(sizeW>0x2008) load_calibword=1; + else{ + PrintMessage(strings[S_NoCalibW]); //"Can't find calibration data\r\n" + load_calibword=0; + } + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write12F6xx(%d,%d)\n",dim,dim2); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; //VPP + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib1 + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib2 + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=10000>>8; + bufferU[j++]=10000&0xff; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib1=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib1<0x3fff){ + PrintMessage1(strings[S_CalibWord1],calib1); //"Calib1: 0x%04X\r\n" + } + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib2=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib2<0x3fff){ + PrintMessage1(strings[S_CalibWord2],calib2); //"Calib2: 0x%04X\r\n" + } +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=EN_VPP_VCC; //VPP + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=WAIT_T3; //necessary when erasing fully written 16F62xA + //not mentioned in the prog spec! + if(programID||load_calibword||ICDenable){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(load_calibword){ + bufferU[j++]=INC_ADDR_N; + if(load_calibword==2) bufferU[j++]=0x09; + else bufferU[j++]=0x08; + } + } + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0xFF; + bufferU[j++]=0xFF; + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=10ms + if(dim2){ + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=WAIT_T3; // delay T3=10ms + } + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=EN_VPP_VCC; //enter program mode + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=4000>>8; + bufferU[j++]=4000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(50); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*5+2); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + int err_e=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=8000>>8; + bufferU[j++]=8000&0xff; + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=WAIT_T3; // delay T3=8ms + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=1; + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x2100-0x2001; //EEPROM area: counter at 0x2100 + for(w=2,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG; //internally timed, T=6ms min + bufferU[j++]=WAIT_T3; //Tprogram 8ms + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*9+2); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err_e++; + if(max_err&&err+err_e>max_err){ + PrintMessage1(strings[S_MaxErr],err+err_e); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err_e+=i-k; + err+=err_e; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err_e); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=4000>>8; + bufferU[j++]=4000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(load_calibword){ + bufferU[j++]=LOAD_DATA_PROG; //Calib word 1 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + bufferU[j++]=LOAD_DATA_PROG; //Calib word 2 + bufferU[j++]=memCODE_W[0x2009]>>8; //MSB + bufferU[j++]=memCODE_W[0x2009]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(load_calibword){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2008]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_Calib1Err],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing Calib1: written %04X, read %04X\r\n" + err_c++; + } + if(load_calibword==2){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2009]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_Calib2Err],memCODE_W[0x2009],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing Calib2: written %04X, read %04X\r\n" + err_c++; + } + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F8x (int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// vdd + 50ms + vdd&vpp +// DevID@0x2006 +// Config@0x2007 +// eeprom@0x2100 +// erase if protected: +// LOAD_CONF (0)(0x3FFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 10ms +// + CUST_CMD (0001) + CUST_CMD (0111) +// erase if not protected and DevID=16F84A: +// LOAD_DATA_PROG (0010)(0x3FFF) + BULK_ERASE_PROG (1001) +10ms +// LOAD_DATA_DATA (0011)(0xFF) + BULK_ERASE_DATA (1011) + BEGIN_PROG (1000) + 10ms +// erase if not protected and DevID!=16F84A: +// LOAD_DATA_PROG (0010)(0x3FFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 10ms + CUST_CMD (0001) + CUST_CMD (0111) +// LOAD_DATA_DATA (0011)(0xFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 10ms + CUST_CMD (0001) + CUST_CMD (0111) +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 20ms or 8ms(16F84A) +// write eeprom: LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 20ms or 8ms(16F84A) +// verify during write +{ + int err=0; + WORD devID,config; + int k=0,z=0,i,j,w,r; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F8x(%d,%d)\n",dim,dim2); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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++]=25000>>8; + bufferU[j++]=25000&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++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=WAIT_T3; //50ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(140); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_ConfigWord],config); //"Config word: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=10000>>8; + bufferU[j++]=10000&0xff; + if(config<0x3FF0){ + PrintMessage(strings[S_ProtErase]); //"Override write protection\r\n" + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x07; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + } + else if(devID>>5==0x2B){ //16F84A + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0x3f; //MSB + bufferU[j++]=0xff; //LSB + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + if(dim2){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=0xff; //LSB + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + } + } + else{ //altri + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0x3f; //MSB + bufferU[j++]=0xff; //LSB + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + if(dim2){ + bufferU[j++]=LOAD_DATA_DATA; //EEPROM: spec error? + bufferU[j++]=0xff; //LSB + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + } + } + if(!programID){ //back to program memory + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=WAIT_T3; //50ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + } + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + r=(devID>>5==0x2B)?8000:20000; + bufferU[j++]=r>>8; + bufferU[j++]=r&0xff; + bufferU[j++]=FLUSH; + r/=1000; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(!programID?140:60); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*r+4); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; //EEPROM: counter at 0x2100 + bufferU[j++]=1; + for(w=0,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*r+5); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err++; + if(max_err&&err>max_err){ + PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],i-k); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(programID?125:35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + 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(); //clear status report +} + +void Write16F62x (int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// vpp before vdd +// DevID@0x2006 +// Config@0x2007 +// eeprom@0x2200 +// erase if protected: +// LOAD_CONF (0000)(0) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 15ms + CUST_CMD (0001) + CUST_CMD (0111) +// erase if not protected: +// LOAD_DATA_PROG (0010)(0x3FFF) + BULK_ERASE_PROG (1001) +5ms +// LOAD_DATA_DATA (0011)(0xFF) + BULK_ERASE_DATA (1011) + BEGIN_PROG (1000) + 5ms +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 8ms +// write ID: LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 16ms +// write CONFIG: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 8ms +// eeprom: LOAD_DATA_DATA (0011) + BEGIN_PROG2 (11000) + 8ms +// verify during write +{ + int err=0; + WORD devID,config; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F62x(%d,%d)\n",dim,dim2); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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++]=10000>>8; + bufferU[j++]=10000&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++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=EN_VPP_VCC; //VPP + bufferU[j++]=0x4; + bufferU[j++]=EN_VPP_VCC; //0 + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay exit-enter prog mode + bufferU[j++]=EN_VPP_VCC; //VPP + bufferU[j++]=0x4; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(12); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_ConfigWord],config); //"Config word: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=5000>>8; + bufferU[j++]=5000&0xff; + if(config<0x3C00){ + PrintMessage(strings[S_ProtErase]); //"Override write protection\r\n" + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config spec ERROR!!! is written data=0!! + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x07; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; //Tera+Tprog=5+8 ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + } + else{ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0x3f; //MSB + bufferU[j++]=0xff; //LSB + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=BEGIN_PROG; //Tera=5ms + bufferU[j++]=WAIT_T3; + if(dim2){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=0xff; //LSB + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=BEGIN_PROG; //Tera=5ms + bufferU[j++]=WAIT_T3; + } + } + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x4; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=8000>>8; + bufferU[j++]=8000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(60); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //program only, internally timed + bufferU[j++]=WAIT_T3; //Tprogram=8ms + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*9+2); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; //20FF + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0xFF; //21FE + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x2; //EEPROM: counter at 0x2200 + for(w=0,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG2; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram=8ms + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*14+1); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err++; + if(max_err&&err>max_err){ + PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],i-k); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //erase + prog internally timed, T=8+5 ms + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //prog only, internally timed, T=8 ms + bufferU[j++]=WAIT_T3; //Tprogram 8ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(programID?125:35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d\n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + 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(); //clear status report +} + +void Write12F62x(int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// vpp before vdd +// save OSCCAL @ dim-1 +// CONFIG@0x2007 includes 2 calibration bits +// DevID@0x2006 +// eeprom@0x2100 +// erase: BULK_ERASE_PROG (1001) +10ms +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 3ms +// eeprom: BULK_ERASE_DATA (1011) + 9ms +// LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 6ms +// verify during write +{ + int err=0; + WORD devID,config,osccal; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write12F62x(%d,%d)\n",dim,dim2); + } + for(i=0;i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; //VPP + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + for(i=0;i<dim-0xff;i+=0xff){ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0xff; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=dim-1-i; + bufferU[j++]=READ_DATA_PROG; // OSCCAL + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=10000>>8; + bufferU[j++]=10000&0xff; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + osccal=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+1]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + 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++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + if(programID){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + } + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; // delay T3=10ms after exiting program mode + bufferU[j++]=EN_VPP_VCC; //enter program mode + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=3000>>8; + bufferU[j++]=3000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(40); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + if(!load_osccal) memCODE_W[dim-1]=osccal; //backup osccal + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*6.5+j*0.1); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + PrintStatusEnd(); + err+=i-k; + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=6000>>8; + bufferU[j++]=6000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; //EEPROM: counter at 0x2100 + bufferU[j++]=1; + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=WAIT_T3; // delay=12ms + bufferU[j++]=WAIT_T3; + for(w=3,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG; //internally timed, T=6ms + bufferU[j++]=WAIT_T3; //Tprogram 6ms + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*7+2); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err++; + if(max_err&&err>max_err){ + PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],i-k); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + if(!load_calibword) memCODE_W[0x2007]=(memCODE_W[0x2007]&0xfff)+(config&0x3000); + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + 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(); //clear status report +} + +void Write16F87x (int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// dim2<0 -> eeprom @ 0x2200 +// vdd + (50ms?) + vdd&vpp +// DevID@0x2006 +// Config@0x2007 +// eeprom@0x2100 +// erase if protected: +// LOAD_CONF (0000)(0x3FFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 8ms +// + CUST_CMD (0001) + CUST_CMD (0111) +// erase if not protected: +// LOAD_DATA_PROG (0010)(0x3FFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 8ms + CUST_CMD (0001) + CUST_CMD (0111) +// LOAD_DATA_DATA (0011)(0xFF) + CUST_CMD (0001) + CUST_CMD (0111) +// + BEGIN_PROG (1000) + 8ms + CUST_CMD (0001) + CUST_CMD (0111) +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 4ms +// write eeprom: LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 8ms +// verify during write +{ + int err=0; + WORD devID,config; + int k=0,z=0,i,j,w,ee2200=0; + if(dim2<0){ + dim2=-dim2; + ee2200=1; + } + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F87x(%d,%d)\n",dim,dim2); + } + for(i=0;i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(60); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_ConfigWord],config); //"Config word: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=8000>>8; + bufferU[j++]=8000&0xff; + if((config&0x3130)!=0x3130){ + PrintMessage(strings[S_ProtErase]); //"override write protection\r\n" + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x07; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + } + else{ + if(ICDenable||programID){ //erase 0x2000-2004 also + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config + bufferU[j++]=0xFF; //fake config + } + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0x3f; //MSB + bufferU[j++]=0xff; //LSB + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + if(dim2){ + bufferU[j++]=LOAD_DATA_DATA; //EEPROM: spec error? + bufferU[j++]=0xff; //LSB + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x01; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x07; + } + if(ICDenable||programID){ //back to addr 0 + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + } + } + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=4000>>8; + bufferU[j++]=4000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(60); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*5+2); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + int err_e=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=1; //EEPROM: counter at 0x2100 + if(ee2200){ //eeprom at 0x2200 + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=1; + } + for(w=0,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG2; //internally timed ????? + bufferU[j++]=WAIT_T3; //Tprogram ????? + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*8+5); + w=0; + for(z=0;z<DIMBUF;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err_e++; + if(max_err&&err+err_e>max_err){ + PrintMessage1(strings[S_MaxErr],err+err_e); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err_e+=i-k; + err+=err_e; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err_e); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=8000>>8; + bufferU[j++]=8000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG2; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //internally timed + bufferU[j++]=WAIT_T3; + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(programID?125:35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F87xA (int dim,int dim2,int seq) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// seq=0: vdd + (50ms) + vdd&vpp +// seq=1: vdd + (50us) + vdd&vpp +// DevID@0x2006 +// Config@0x2007 +// write CONFIG2@0x2008 if different from 3FFF +// eeprom@0x2100 +// erase: +// CHIP ERASE (11111) + 15ms +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 1.2ms + END_PROGX (10111) +// write eeprom: LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 12ms +// verify during write +{ + int err=0; + WORD devID,config; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F87xA(%d,%d,%d)\n",dim,dim2,seq); + } + for(i=0;i<sizeW;i++) memCODE_W[i]&=0x3FFF; + unsigned int start=GetTickCount(); + bufferU[0]=0; + 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++]=25000>>8; + bufferU[j++]=25000&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; + if(seq==0){ + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(seq==0?90:40); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_ConfigWord],config); //"Config word: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=15000>>8; + bufferU[j++]=15000&0xff; + if(ICDenable||programID){ //erase 0x2000-2004 also + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config + bufferU[j++]=0xFF; //fake config + } + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x1F; // CHIP_ERASE (11111) + bufferU[j++]=WAIT_T3; + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=1200>>8; + bufferU[j++]=1200&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(60); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-11||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*1.5+(6-w)*0.2+2); + w=0; + for(z=0;z<DIMBUF-6;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+4]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+5]<<8)+bufferI[z+6]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+5]<<8)+bufferI[z+6]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=7; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + int err_e=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=12000>>8; + bufferU[j++]=12000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; //EEPROM: counter at 0x2100 + bufferU[j++]=1; + for(w=0,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 8ms + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*12.5+5); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err_e++; + 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=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err_e+=i-k; + err+=err_e; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err_e); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=12000>>8; + bufferU[j++]=12000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(sizeW>0x2008&&memCODE_W[0x2008]!=0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; //Config word2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + i=28; + if(programID) i+=50; + if(ICDenable) i+=13; + PacketIO(i); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(sizeW>0x2008&&memCODE_W[0x2008]!=0x3fff){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F81x (int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// seq=0: vdd + (50ms) + vdd&vpp +// seq=1: vdd + (50us) + vdd&vpp +// DevID@0x2006 +// Config@0x2007 +// write CONFIG2@0x2008 if different from 3FFF +// erase if protected: CHIP ERASE (11111) + 8ms +// erase if not protected: +// BULK_ERASE_PROG (1001) + BEGIN_PROG (1001) + 2ms + END_PROGX (10111) +// BULK_ERASE_DATA (1011) + BEGIN_PROG (1001) + 2ms + END_PROGX (10111) +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 1.5ms + END_PROGX (10111) +// write eeprom: LOAD_DATA_DATA (0011) + BEGIN_PROG2 (11000) + 1.5ms + END_PROGX (10111) +// verify during write +{ + int err=0; + WORD devID,config; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F81x(%d,%d)\n",dim,dim2); + } + for(i=0;i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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++]=25000>>8; + bufferU[j++]=25000&0xff; + bufferU[j++]=EN_VPP_VCC; //enter program mode + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Config + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(40); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + config=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_ConfigWord],config); //"Config word: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + if(programID||ICDenable){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0x3F; //fake config + bufferU[j++]=0xFF; //fake config + } + if((config&0x2100)!=0x2100){ + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x1F; // CHIP_ERASE (11111) + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + } + else{ + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + } + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=WAIT_T3; + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-11||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*2.5+3); + w=0; + for(z=0;z<DIMBUF-6;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+4]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+5]<<8)+bufferI[z+6]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+5]<<8)+bufferI[z+6]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=7; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + int err_e=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=0x01; + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=BEGIN_PROG; + bufferU[j++]=WAIT_T3; + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + j=0; + for(w=0,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*2.5+5); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+4]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+5]); //"Error writing address %4X: written %02X, read %02X\r\n" + err_e++; + 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=0x2200; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err_e+=i-k; + err+=err_e; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err_e); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(sizeW>0x2008&&memCODE_W[0x2008]!=0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; //Config word2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x17; //END_PROGX (10111) + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=7; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=7; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(sizeW>0x2008&&memCODE_W[0x2008]!=0x3fff){ + for(z+=7;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write12F61x(int dim, int d, int d2) +// write 14 bit PIC +// dim=program size +// d not used +// vpp before vdd +// DevREV@0x2005 +// DevID@0x2006 +// Config@0x2007 +// Calib1@0x2008 (save) +// Calib2@0x2009 +// erase: BULK_ERASE_PROG (1001) +10ms +// write: LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 4ms + END_PROG (1010) +// verify during write +{ + int err=0; + WORD devID=0x3fff,devREV=0x3fff,calib1=0x3fff,calib2=0x3fff; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(load_calibword){ + if(sizeW>0x2008) load_calibword=1; + else{ + PrintMessage(strings[S_NoCalibW]); //"Can't find calibration data\r\n" + load_calibword=0; + } + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write12F61x(%d)\n",dim); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; //VPP + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x05; + bufferU[j++]=READ_DATA_PROG; //DevREV + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib1 + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib2 + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=10000>>8; + bufferU[j++]=10000&0xff; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devREV=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + if(devREV<0x3FFF) PrintMessage1(strings[S_DevREV],devREV); //"DevREV: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib1=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib2=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib1<0x3fff) PrintMessage1(strings[S_CalibWord1],calib1); //"Calib1: 0x%04X\r\n" + if(calib2<0x3fff) PrintMessage1(strings[S_CalibWord2],calib2); //"Calib2: 0x%04X\r\n" +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + 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++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + if(programID||load_calibword){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(load_calibword){ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x08; + } + } + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; // delay T3=10ms after exiting program mode + bufferU[j++]=EN_VPP_VCC; //enter program mode + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=4000>>8; + bufferU[j++]=4000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(40); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=END_PROG; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*5+2.5); + w=0; + for(z=0;z<DIMBUF-7;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+5]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+6]<<8)+bufferI[z+7]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=8; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=END_PROG; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=END_PROG; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(load_calibword){ + bufferU[j++]=LOAD_DATA_PROG; //Calib word 1 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 4ms + bufferU[j++]=END_PROG; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=8; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(load_calibword){ + for(z+=8;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2008]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_Calib1Err],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing Calib1: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F88x(int dim,int dim2) +// write 14 bit PIC +// dim=program size dim2=eeprom size +// vpp before vdd +// DevID@0x2006 +// Config@0x2007 +// Config2@0x2008 +// Calib1@0x2009 (salva) +// eeprom@0x2100 +// erase: BULK_ERASE_PROG (1001) +6ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 3ms +// eeprom: BULK_ERASE_DATA (1011) + 6ms +// LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 6ms +// verify during write +{ + int err=0; + WORD devID=0x3fff,calib1=0x3fff; + int k=0,z=0,i,j,w; + if(sizeW<0x2009){ + PrintMessage(strings[S_NoConfigW4]); //"Can't find CONFIG (0x2008)\r\nEnd\r\n" + return; + } + if(load_calibword){ + if(sizeW>0x200A) load_calibword=1; + else{ + PrintMessage(strings[S_NoCalibW]); //"Can't find calibration data\r\n" + load_calibword=0; + } + } + if(dim2){ + if(sizeW<0x2100){ + dim2=0; + PrintMessage(strings[S_NoEEMem]); //"Can't find EEPROM data\r\n" + } + else if(dim2>sizeW-0x2100) dim2=sizeW-0x2100; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F88x(%d,%d)\n",dim,dim2); + } + for(i=0;i<0x200A&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; //VPP + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib1 + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=6000>>8; + bufferU[j++]=6000&0xff; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib1=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib1<0x3fff){ + PrintMessage1(strings[S_CalibWord1],calib1); //"Calib1: 0x%04X\r\n" + } +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + 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++]=NOP; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + if(programID||load_calibword||ICDenable){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(load_calibword){ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=9; + } + } + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=6ms + bufferU[j++]=EN_VPP_VCC; //exit program mode + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; // delay T3=6ms after exiting program mode + bufferU[j++]=EN_VPP_VCC; //enter program mode + bufferU[j++]=0x4; + bufferU[j++]=NOP; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=3000>>8; + bufferU[j++]=3000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(40); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*3+2); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write eeprom ******************** + if(dim2){ + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=6000>>8; + bufferU[j++]=6000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=WAIT_T3; // delay T3=6ms + bufferU[j++]=INC_ADDR_N; //use only INC_ADDR_N so verification does not look at it + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; //EEPROM: counter at 0x2100 + bufferU[j++]=1; + for(w=2,i=k=0x2100;i<0x2100+dim2;i++){ + if(memCODE_W[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memCODE_W[i]&0xff; + bufferU[j++]=BEGIN_PROG; //internally timed, T=6ms min + bufferU[j++]=WAIT_T3; //Tprogram 6ms + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==0x2100+dim2-1){ + PrintStatus(strings[S_CodeWriting],(i-0x2100+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*6.5+2); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memCODE_W[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memCODE_W[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\r\n" + err++; + if(max_err&&err>max_err){ + PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=0x2200; + z=DIMBUF; + } + } + k++; + z+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d \n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],i-k); //"completed, %d errors\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=3000>>8; + bufferU[j++]=3000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + bufferU[j++]=LOAD_DATA_PROG; //Config word2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(load_calibword){ + bufferU[j++]=LOAD_DATA_PROG; //Calib word 1 + bufferU[j++]=memCODE_W[0x2009]>>8; //MSB + bufferU[j++]=memCODE_W[0x2009]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(35); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"\r\n" + err_c++; + } + if(load_calibword){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2009]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_Calib1Err],memCODE_W[0x2009],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing Calib1: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + 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(); //clear status report +} + +void Write16F7x(int dim,int vdd) +// dim=program size +// write 14 bit PIC +// vdd=0 vdd +50ms before vpp +// vdd=1 vdd before vpp +// DevID@0x2006 +// Config@0x2007 +// Config2@0x2008 +// erase: BULK_ERASE_PROG (1001) +30ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 1ms + END_PROG2(1110) +// verify during write +{ + int err=0; + WORD devID=0x3fff; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F7x(%d,%d)\n",dim,vdd); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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++]=10000>>8; + bufferU[j++]=10000&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; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(vdd?20:70); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + //enter program mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(vdd?50:100); + PrintMessage(strings[S_Compl]); //"completed\r\n" + j=0; + //enter program mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=1000>>8; + bufferU[j++]=1000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(vdd?2:52); +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms min + bufferU[j++]=END_PROG2; + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-10||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*1.5+2); + w=0; + for(z=0;z<DIMBUF-6;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+4]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+5]<<8)+bufferI[z+6]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+5]<<8)+bufferI[z+6]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=7; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(sizeW>0x2008&&memCODE_W[0x2008]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; //Config word 2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(sizeW>0x2008&&memCODE_W[0x2008]<0x3fff){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F71x(int dim,int vdd) +// write 14 bit PIC +// dim=program size +// vdd=0 vdd +50ms before vpp +// vdd=1 vdd before vpp +// DevID@0x2006 +// Config@0x2007 +// erase: BULK_ERASE_PROG (1001) +6ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG2 (11000) + 2ms + END_PROG2(1110) +// verify during write +{ + int err=0; + WORD devID=0x3fff; + int k=0,z=0,i,j,w; + if(sizeW<0x2007){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F71x(%d,%d)\n",dim,vdd); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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++]=10000>>8; + bufferU[j++]=10000&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; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(vdd?20:70); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + //enter program mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=NOP; + if(programID){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + } + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=10ms + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=WAIT_T3; //delay after exiting prog mode + //enter program mode + bufferU[j++]=EN_VPP_VCC; //VDD + bufferU[j++]=0x1; + if(vdd==0){ + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + bufferU[j++]=WAIT_T3; //delay between vdd and vpp + } + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + 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(vdd?30:130); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms min + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-11||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*2.5+2); + w=0; + for(z=0;z<DIMBUF-7;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+5]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+6]<<8)+bufferI[z+7]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+6]<<8)+bufferI[z+7]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=8; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(sizeW>0x2008&&memCODE_W[0x2008]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; //Config word 2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG2; //externally timed, T=1ms min + bufferU[j++]=WAIT_T3; //Tprogram 1ms + bufferU[j++]=END_PROG2; + bufferU[j++]=WAIT_T2; //Tdischarge 100us + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(15); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(sizeW>0x2008&&memCODE_W[0x2008]<0x3fff){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + +void Write16F72x(int dim, int d, int d2) +// write 14 bit PIC +// dim=program size +// d not used +// vpp before vdd +// DevID@0x2006 +// Config@0x2007 +// Config2@0x2008 (not used on LF devices) +// erase: BULK_ERASE_PROG (1001) +6ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 2.5ms +// verify during write +{ + int err=0; + WORD devID=0x3fff; + int k=0,z=0,i,j,w; + if(!CheckV33Regulator()){ + PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board + return; + } + if(!StartHVReg(8.5)){ + PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n" + return; + } + if(sizeW<0x2008){ + PrintMessage(strings[S_NoConfigW3]); //"Can't find CONFIG (0x2007)\r\nEnd\r\n" + return; + } + if(saveLog){ + OpenLogFile(); //"log.txt" + fprintf(logfile,"Write16F72x(%d)\n",dim); + } + for(i=0;i<0x2009&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; //VPP + bufferU[j++]=0x4; + bufferU[j++]=EN_VPP_VCC; //VDD+VPP + bufferU[j++]=0x5; + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x06; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=6000>>8; + bufferU[j++]=6000&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3); + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + PIC16_ID(devID); +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erase ... " + j=0; + if(programID||ICDenable){ + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + } + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // delay T3=6ms + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2500>>8; + bufferU[j++]=2500&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(18); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + for(w=i=k=0,j=0;i<dim;i++){ + if(memCODE_W[i]<0x3fff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim-1){ + PrintStatus(strings[S_CodeWriting],i*100/dim,i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*2.5+2); + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==INC_ADDR&&memCODE_W[k]>=0x3fff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memCODE_W[k]!=(bufferI[z+4]<<8)+bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+4]<<8)+bufferI[z+5]); //"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" + PrintMessage(strings[S_IntW]); //"Write interrupted" + i=dim; + z=DIMBUF; + } + } + k++; + z+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,err); //"i=%d, k=%d, errors=%d,\n" + } + } + } + err+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],err); //"completed, %d errors\r\n" +//****************** write ID, CONFIG, CALIB ******************** + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + int err_c=0; + int ICDgoto=0x2800+(ICDaddr&0x7FF); //GOTO ICD routine (0x28xx) + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=6000>>8; + bufferU[j++]=6000&0xff; + bufferU[j++]=LOAD_CONF; //counter at 0x2000 + bufferU[j++]=0xFF; //fake config + bufferU[j++]=0xFF; //fake config + if(programID){ + for(i=0x2000;i<0x2004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=4; + } + if(ICDenable){ //write a GOTO ICD routine (0x28xx) + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=ICDgoto>>8; //MSB + bufferU[j++]=ICDgoto&0xFF; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=3ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x2007 + bufferU[j++]=memCODE_W[0x2007]>>8; //MSB + bufferU[j++]=memCODE_W[0x2007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=5ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(sizeW>0x2008){ //only if Config2 is present + bufferU[j++]=LOAD_DATA_PROG; //Config word 2 0x2008 + bufferU[j++]=memCODE_W[0x2008]>>8; //MSB + bufferU[j++]=memCODE_W[0x2008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed, T=5ms min + bufferU[j++]=WAIT_T3; //Tprogram 3ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=FLUSH; + } + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(45); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x2000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x2000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + if(ICDenable){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (ICDgoto!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage4(strings[S_ICDErr],0x2004,i,ICDgoto,(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ICD (0x%X): written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(sizeW>0x2008){ //only if Config2 is present + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x2008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x2008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Area config. errors=%d \n" + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + 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(); //clear status report +} + +void Write16F1xxx(int dim,int dim2,int options) +// write 14 bit enhanced PIC +// dim=program size +// dim2=eeprom size +// options: +// bit0=0 -> vpp before vdd +// bit0=1 -> vdd before vpp +// bit1=1 -> LVP programming +// bit2=1 -> Config3@0x8009 +// bit3=1 -> Config4@0x800A +// bit4=1 -> PIC16F18xxx (calib words @0xE000 + new commands) +// DevREV@0x8005 DevID@0x8006 +// Config1@0x8007 Config2@0x8008 +// Config3@0x8009 Config4@0x800A +// Calib1@0x8009/A Calib2@0x800A/B Calib3@0x800B/C +// eeprom@0x0 or 0xF000 +// erase: BULK_ERASE_PROG (1001) +5ms +// write:LOAD_DATA_PROG (0010) + BEGIN_PROG (1000) + 2.5ms (8 word algorithm) +// config write time 5ms +// eeprom: BULK_ERASE_DATA (1011) + 5ms +// LOAD_DATA_DATA (0011) + BEGIN_PROG (1000) + 2.5ms +// verify after write +// write (16F18xxx): LOAD_DATA_INC (100010) + BEGIN_PROG (1000) + 2.5ms (32 word algorithm) +{ + int err=0; + WORD devID=0x3fff,devREV=0x3fff,calib1=0x3fff,calib2=0x3fff,calib3=0x3fff; + int k=0,k2=0,z=0,i,j,w; + int F18x=options&16; + if(F18x&&FWVersion<0xA00){ //only for 16F18xxx + PrintMessage1(strings[S_FWver2old],"0.10.0"); //"This firmware is too old. Version %s is required\r\n" + return; + } + if(!CheckV33Regulator()){ + PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board + return; + } + if(sizeW<0x8009){ + PrintMessage(strings[S_NoConfigW5]); //"Can't find CONFIG (0x8007-0x8008)\r\n" + PrintMessage(strings[S_End]); + return; + } + if((options&4)&&sizeW<0x800A){ //Config3 defaults to 0x3FFF + sizeW=0x800A; + memCODE_W=(WORD*)realloc(memCODE_W,sizeof(WORD)*sizeW); + memCODE_W[0x8009]=0x3FFF; + } + if((options&8)&&sizeW<0x800B){ //Config4 defaults to 0x3FFF + sizeW=0x800B; + memCODE_W=(WORD*)realloc(memCODE_W,sizeof(WORD)*sizeW); + memCODE_W[0x800A]=0x3FFF; + } + if(saveLog){ + OpenLogFile(); //"Log.txt" + fprintf(logfile,"Write16F1xxx(%d,%d,%d)\n",dim,dim2,options); + } + if(dim2>sizeEE) dim2=sizeEE; + if((options&2)==0){ //HV entry + if(!StartHVReg(8.5)){ + PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n" + return; + } + } + else StartHVReg(-1); //LVP mode, turn off HV + for(i=0;i<0x800C&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + unsigned int start=GetTickCount(); +// bufferU[0]=0; + 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; + if((options&2)==0){ //HV entry + if((options&1)==0){ //VPP before VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else{ //VDD before VPP without delay + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + } + else{ //Low voltage programming + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=WAIT_T3; + bufferU[j++]=TX16; //0000 1010 0001 0010 1100 0010 1011 0010 = 0A12C2B2 + bufferU[j++]=2; + bufferU[j++]=0x0A; + bufferU[j++]=0x12; + bufferU[j++]=0xC2; + bufferU[j++]=0xB2; + bufferU[j++]=SET_CK_D; //Clock pulse + bufferU[j++]=0x4; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + } + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=LOAD_CONF; //counter at 0x8000 + bufferU[j++]=0xFF; + bufferU[j++]=0xFF; + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=0x05; + bufferU[j++]=READ_DATA_PROG; //DevREV + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //DevID + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + bufferU[j++]=INC_ADDR; + if(options&4) bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib1 + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib2 + bufferU[j++]=INC_ADDR; + bufferU[j++]=READ_DATA_PROG; //Calib3 +// bufferU[j++]=CUST_CMD; +// bufferU[j++]=0x16; //Reset address + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2500>>8; + bufferU[j++]=2500&0xff; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + j=0; + for(z=0;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devREV=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + if(devREV<0x3FFF) PrintMessage1(strings[S_DevREV],devREV); //"DevREV: 0x%04X\r\n" + PIC16_ID(devID); + if(memCODE_W[0x8006]<0x3FFF&&devID!=memCODE_W[0x8006]) PrintMessage(strings[S_DevMismatch]); //"Warning: the device is different from what specified in source data" + if(!F18x){ //16F1xxx + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib1=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib1<0x3fff) PrintMessage2(strings[S_CalibWordX],1,calib1); //"Calibration word %d: 0x%04X\r\n" + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib2=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib2<0x3fff) PrintMessage2(strings[S_CalibWordX],2,calib2); //"Calibration word %d: 0x%04X\r\n" + for(z+=3;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + calib3=(bufferI[z+1]<<8)+bufferI[z+2]; + if(calib3<0x3fff) PrintMessage2(strings[S_CalibWordX],3,calib3); //"Calibration word %d: 0x%04X\r\n" + } + else{ //16F18xxx + WORD calib[4]={0x3FFF,0x3FFF,0x3FFF,0x3FFF}; + bufferU[j++]=LOAD_PC; //counter at 0xE000 + bufferU[j++]=0xE0; + bufferU[j++]=0x00; + for(i=0;i<4;i++) bufferU[j++]=READ_DATA_INC; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + j=0; + if(saveLog){ + fprintf(logfile,"Calibration area @0xE000\n"); + } + for(z=0,i=0;z<DIMBUF-2&&i<4;z++){ + if(bufferI[z]==READ_DATA_INC){ + calib[i++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + if(i!=4){ + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigErr],4,i); //"Error reading config area, requested %d words, read %d\r\n" + } + else{ + for(i=0;i<4;i++) PrintMessage2(strings[S_CalibWordX],i+1,calib[i]); //"Calibration word %d: 0x%04X\r\n" + } + } +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erasing ... " + if(saveLog) fprintf(logfile,"%s\n",strings[S_StartErase]); + int dly=8; + j=0; + if(programID){ + bufferU[j++]=LOAD_CONF; //PC @ 0x8000 + bufferU[j++]=0xFF; + bufferU[j++]=0xFF; + } + else if(!F18x){ + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + } + else{ //18F18xxx + bufferU[j++]=LOAD_PC; //counter at 0 + bufferU[j++]=0x00; + bufferU[j++]=0x00; + } + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // wait 5ms + bufferU[j++]=WAIT_T3; + if(F18x){ //18F18xxx: EEPROM@0xF000 + bufferU[j++]=LOAD_PC; //counter at 0xF000 + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + bufferU[j++]=BULK_ERASE_PROG; + bufferU[j++]=WAIT_T3; // wait 5ms + bufferU[j++]=WAIT_T3; + dly+=6; + } + if(!F18x){ + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + } + else{ //18F18xxx + bufferU[j++]=LOAD_PC; //counter at 0 + bufferU[j++]=0x00; + bufferU[j++]=0x00; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(dly); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + if(saveLog) fprintf(logfile,"%s\n",strings[S_StartCodeProg]); + fflush(logfile); + int valid,inc; + for(;dim>0&&memCODE_W[dim]>=0x3fff;dim--); //skip empty space at end + if(!F18x){ //16F1xxx + if(dim%8) dim+=8-dim%8; //grow to 8 word multiple + for(i=k=0,j=0;i<dim;i+=8){ + valid=inc=0; + for(;i<dim&&!valid;){ //skip empty locations (8 words) + valid=0; + for(k=0;k<8;k++) if(memCODE_W[i+k]<0x3fff) valid=1; + if(!valid){ + inc+=8; + i+=8; + } + if(inc&&(valid||inc==248)){ //increase address to skip empty words + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=k=inc; + inc=0; + } + if(j>DIMBUF-4||(valid&&j>1)){ + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3+k/2); + j=0; + } + } + if(valid){ + k=0; + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i+k]>>8; //MSB + bufferU[j++]=memCODE_W[i+k]&0xff; //LSB + for(k=1;k<8;k++){ + bufferU[j++]=INC_ADDR; + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i+k]>>8; //MSB + bufferU[j++]=memCODE_W[i+k]&0xff; //LSB + } + bufferU[j++]=BEGIN_PROG; //internally timed, T=2.5ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=INC_ADDR; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3); + 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,i); //"Writing: %d%%, addr. %03X" + } + } + } + else{ //16F18xxx 32 word algorithm + if(dim%32) dim+=32-dim%32; //grow to 32 word multiple + for(i=k=0,j=0;i<dim;i+=32){ + for(valid=0;i<dim&&!valid;i+=valid?0:32){ //skip empty locations (32 words) + valid=0; + for(k=0;k<32;k++) if(memCODE_W[i+k]<0x3fff) valid=1; + } + bufferU[j++]=LOAD_PC; //update counter + bufferU[j++]=i>>8; + bufferU[j++]=i&0xFF; + for(k=0;k<32&&i<dim;k++){ + bufferU[j++]=k<31?LOAD_DATA_INC:LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i+k]>>8; //MSB + bufferU[j++]=memCODE_W[i+k]&0xff; //LSB + if(j>DIMBUF-4){ + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3); + j=0; + } + } + if(i<dim){ + bufferU[j++]=BEGIN_PROG; //internally timed, T=2.5ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3); + 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,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; + if(!F18x){ + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + } + else{ //18F18xxx + bufferU[j++]=LOAD_PC; //counter at 0 + bufferU[j++]=0x00; + bufferU[j++]=0x00; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(2); + j=0; + for(i=k=0;i<dim;i++){ + if(j==0){ //skip empty locations (only after a write) + for(valid=0;i<dim&&!valid;){ + for(k2=0;k2<255&&!valid;k2++) if(memCODE_W[i+k2]<0x3fff) valid=1; + if(k2>16){ //increase address to skip empty words, if enough are found + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=k2; + i+=k2; + k+=k2; + } + if(j>DIMBUF-4||(valid&&j>1)){ //if buffer is full or last skip + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3+j/2*0.1); + j=0; + } + } + } + if(memCODE_W[i]<0x3FFF) bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(j>DIMBUF*2/4-3||i==dim-1){ //2B cmd -> 4B data + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(5); + for(z=0;z<DIMBUF-2;z++){ + if(bufferI[z]==INC_ADDR) k++; + else if(bufferI[z]==READ_DATA_PROG){ + if(memCODE_W[k]<0x3FFF&&(memCODE_W[k]!=(bufferI[z+1]<<8)+bufferI[z+2])){ + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing address %3X: written %04X, read %04X\r\n" + err++; + } + z+=2; + } + } + PrintStatus(strings[S_CodeV2],i*100/(dim+dim2),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) i=dim; + } + } + PrintStatusEnd(); + if(k<dim){ + PrintMessage2(strings[S_CodeVError3],dim,k); //"Error verifying code area, requested %d words, 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" + } +//****************** write eeprom ******************** + if(dim2&&err<max_err&&!F18x){ + int errEE=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + if(saveLog) fprintf(logfile,"%s\n",strings[S_EEAreaW]); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=5000>>8; + bufferU[j++]=5000&0xff; + bufferU[j++]=BULK_ERASE_DATA; + bufferU[j++]=WAIT_T3; // wait 5ms + bufferU[j++]=CUST_CMD; + bufferU[j++]=0x16; //Reset address + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(7); + j=0; + for(w=i=k=0;i<dim2;i++){ + if(memEE[i]<0xff){ + bufferU[j++]=LOAD_DATA_DATA; + bufferU[j++]=memEE[i]; + bufferU[j++]=BEGIN_PROG; //internally timed, T=5ms max + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_DATA; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim2-1){ + PrintStatus(strings[S_CodeWriting],(i+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*5+2); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memEE[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_DATA&&bufferI[z+3]==READ_DATA_DATA){ + if (memEE[k]!=bufferI[z+4]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memEE[k],bufferI[z+4]); //"Error writing address %4X: written %02X, read %02X\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+=5; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,errEE); //"i=%d, k=%d, errors=%d\n" + } + } + } + errEE+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],errEE); //"completed, %d errors\r\n" + err+=errEE; + } + else if(dim2&&err<max_err&&F18x){ //16F18xxx + int errEE=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + if(saveLog) fprintf(logfile,"%s\n",strings[S_EEAreaW]); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=5000>>8; + bufferU[j++]=5000&0xff; + bufferU[j++]=LOAD_PC; //update counter + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(7); + j=0; + for(w=i=k=0;i<dim2;i++){ + if(memEE[i]<0xff){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=0; + bufferU[j++]=memEE[i]; + bufferU[j++]=BEGIN_PROG; //internally timed, T=2.5ms max + bufferU[j++]=WAIT_T3; //Tprogram + bufferU[j++]=READ_DATA_PROG; + w++; + } + bufferU[j++]=INC_ADDR; + if(j>DIMBUF-12||i==dim2-1){ + PrintStatus(strings[S_CodeWriting],(i+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*5+2); + w=0; + for(z=0;z<DIMBUF-4;z++){ + if(bufferI[z]==INC_ADDR&&memEE[k]>=0xff) k++; + else if(bufferI[z]==LOAD_DATA_PROG&&bufferI[z+3]==READ_DATA_PROG){ + if (memEE[k]!=bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memEE[k],bufferI[z+5]); //"Error writing address %4X: written %02X, read %02X\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+=6; + } + } + j=0; + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,errEE); //"i=%d, k=%d, errors=%d\n" + } + } + } + errEE+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],errEE); //"completed, %d errors\r\n" + err+=errEE; + + } + if(err>=max_err){ + PrintMessage1(strings[S_MaxErr],err); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + } +//****************** write ID, CONFIG, CALIB ******************** + if(max_err&&err<max_err){ + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + if(saveLog) fprintf(logfile,"%s\n",strings[S_ConfigAreaW]); + int err_c=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=5000>>8; + bufferU[j++]=5000&0xff; + bufferU[j++]=LOAD_CONF; //PC @ 0x8000 + bufferU[j++]=0xFF; + bufferU[j++]=0xFF; + if(programID){ + for(i=0x8000;i<0x8004;i++){ + bufferU[j++]=LOAD_DATA_PROG; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 5ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=3; + } + else{ + bufferU[j++]=INC_ADDR_N; + bufferU[j++]=7; + } + bufferU[j++]=LOAD_DATA_PROG; //Config word 0x8007 + bufferU[j++]=memCODE_W[0x8007]>>8; //MSB + bufferU[j++]=memCODE_W[0x8007]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 5ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + bufferU[j++]=LOAD_DATA_PROG; //Config word 2 + bufferU[j++]=memCODE_W[0x8008]>>8; //MSB + bufferU[j++]=memCODE_W[0x8008]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 5ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + if(options&0xC){ + bufferU[j++]=LOAD_DATA_PROG; //Config word 3 + bufferU[j++]=memCODE_W[0x8009]>>8; //MSB + bufferU[j++]=memCODE_W[0x8009]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 5ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + if(options&8){ + bufferU[j++]=LOAD_DATA_PROG; //Config word 4 + bufferU[j++]=memCODE_W[0x800A]>>8; //MSB + bufferU[j++]=memCODE_W[0x800A]&0xff; //LSB + bufferU[j++]=BEGIN_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 5ms + bufferU[j++]=READ_DATA_PROG; + bufferU[j++]=INC_ADDR; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + j=(programID?22:0)+(options&0xC?10:0); + PacketIO(18+j); + for(i=0,z=0;programID&&i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if (memCODE_W[0x8000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x8000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + for(;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x8007]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x8007],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x8008]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x8008],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + if(options&0xC){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x8009]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x8009],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + if(options&8){ + for(z+=6;z<DIMBUF-2&&bufferI[z]!=READ_DATA_PROG;z++); + if(~memCODE_W[0x800A]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + PrintMessage("\r\n"); + PrintMessage2(strings[S_ConfigWErr3],memCODE_W[0x800A],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing config area: written %04X, read %04X\r\n" + err_c++; + } + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err); //"Config area errors=%d \n" + } + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + + + +void Write16F18xxx(int dim,int dim2,int options) +// write 14 bit enhanced PIC +// dim=program size (words) +// dim2=eeprom size (bytes) +// options: +// bit0=0 -> vpp before vdd +// bit0=1 -> vdd before vpp +// bit1=1 -> LVP programming +// bit4=1 -> do not use DIA&DCI +// DevREV@0x8005 DevID@0x8006 +// Config@0x8007-800B +// Device info area @0x8100 +// Device configuration info area @0x8200 +// erase: BULK_ERASE_PROGRAM_MEM (0x18) +14ms +// EEPROM erase: idem +// write flash: LOAD_NVM (0x0/2) + BEGIN_INT_PROG (0xE0) + 2.8ms (32 word algorithm) +// EEPROM write: one word, 6ms +// config write: one word, 10ms +// verify after write +{ + int err=0; + WORD devID=0x3fff,devREV=0x3fff; + int k=0,k2=0,z=0,i,j,w; + int useDCI=(options&0x10)==0?1:0; + int rowN=32; //32 word algorithm + if(FWVersion<0xB00){ + PrintMessage1(strings[S_FWver2old],"0.11.0"); //"This firmware is too old. Version %s is required\r\n" + return; + } + if(!CheckV33Regulator()){ + PrintMessage(strings[S_noV33reg]); //Can't find 3.3V expansion board + return; + } + if(sizeW<0x800C){ + PrintMessage(strings[S_NoConfigW6]); //"Can't find CONFIG (0x8007-0x800B)\r\n" + PrintMessage1(strings[S_End],0); + return; + } + if(saveLog){ + OpenLogFile(); //"Log.txt" + fprintf(logfile,"Write16F18xxx(%d,%d,%d)\n",dim,dim2,options); + } + if(dim2>0) dim2=sizeEE; + if(dim2>0x1000) dim2=0x100; + if((options&2)==0){ //HV entry + if(!StartHVReg(8.5)){ + PrintMessage(strings[S_HVregErr]); //"HV regulator error\r\n" + return; + } + } + else StartHVReg(-1); //LVP mode, turn off HV + for(i=0;i<0x800C&&i<sizeW;i++) memCODE_W[i]&=0x3FFF; + 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; + if((options&2)==0){ //HV entry + if((options&1)==0){ //VPP before VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + else{ //VDD before VPP without delay + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=1; //VDD + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x5; //VDD+VPP + } + } + else{ //Low voltage programming + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=4; //VPP + bufferU[j++]=WAIT_T3; + bufferU[j++]=TX16; //0000 1010 0001 0010 1100 0010 1011 0010 = 0A12C2B2 + bufferU[j++]=2; + bufferU[j++]=0x0A; + bufferU[j++]=0x12; + bufferU[j++]=0xC2; + bufferU[j++]=0xB2; + bufferU[j++]=SET_CK_D; //Clock pulse + bufferU[j++]=0x4; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + } + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=WAIT_T2; + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x80; + bufferU[j++]=0x05; + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; //DevREV + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; //DevID + 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(5); + j=0; + for(z=0;z<DIMBUF-2&&bufferI[z]!=ICSP8_READ;z++); + devREV=(bufferI[z+1]<<8)+bufferI[z+2]; + for(z+=3;z<DIMBUF-2&&bufferI[z]!=ICSP8_READ;z++); + devID=(bufferI[z+1]<<8)+bufferI[z+2]; + PrintMessage1(strings[S_DevID],devID); //"DevID: 0x%04X\r\n" + if(devREV<0x3FFF) PrintMessage1(strings[S_DevREV],devREV); //"DevREV: 0x%04X\r\n" + PIC16_ID(devID); + if(memCODE_W[0x8006]<0x3FFF&&devID!=memCODE_W[0x8006]) PrintMessage(strings[S_DevMismatch]); //"Warning: the device is different from what specified in source data" +//****************** DIA-DCI ******************** + if(useDCI){ //if not disabled + if(saveLog) fprintf(logfile,"Device Information Area @0x8100\n"); + WORD DIA[0x20]; + bufferU[j++]=ICSP8_LOAD; //counter at 0x8100 + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x81; + bufferU[j++]=0x00; + k=0; + for(i=0;i<0x20;i++){ //DIA + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==0x1F){ //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){ + DIA[k++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + j=0; + } + } + PrintMessage("Device Information Area @0x8100\r\n"); + char s[256],t[256]; + s[0]=0; + for(i=0;i<0x20;i+=COL){ + sprintf(t,"%04X: ",0x8100+i); + strcat(s,t); + for(j=i;j<i+COL&&j<0x20;j++){ + sprintf(t,"%04X ",DIA[j]); + strcat(s,t); + } + strcat(s,"\r\n"); + } + PrintMessage(s); + if(saveLog) fprintf(logfile,"Device Configuration Information @0x8200\n"); + WORD DCI[0x20]; + j=0; + k=0; + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0x82; + bufferU[j++]=0x00; + for(i=0;i<0x20;i++){ //DCI + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==0x1F){ //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){ + DCI[k++]=(bufferI[z+1]<<8)+bufferI[z+2]; + z+=2; + } + } + j=0; + } + } + PrintMessage("Device Configuration Information @0x8200\r\n"); + s[0]=0; + for(i=0;i<0x20;i+=COL){ + sprintf(t,"%04X: ",0x8200+i); + strcat(s,t); + for(j=i;j<i+COL&&j<0x20;j++){ + sprintf(t,"%04X ",DCI[j]); + strcat(s,t); + } + strcat(s,"\r\n"); + } + PrintMessage(s); + PrintMessage1("Erase row size: %d words\r\n",DCI[0]); + PrintMessage1("Write latches: %d\r\n",DCI[1]); + PrintMessage1("User rows: %d\r\n",DCI[2]); + PrintMessage1("->%d Flash words\r\n",DCI[0]*DCI[2]); + PrintMessage1("EE data memory size: %d\r\n",DCI[3]); + PrintMessage1("Pin count: %d\r\n",DCI[4]); + if(DCI[0]*DCI[2]!=dim) PrintMessage(strings[S_WarnFlashSize]); //"Warning, flash size is different from the expected value" + if(dim2>DCI[3]) dim2=DCI[3]; //limit EE to the real one + } +//****************** erase memory ******************** + PrintMessage(strings[S_StartErase]); //"Erasing ... " + if(saveLog) fprintf(logfile,"%s\n",strings[S_StartErase]); + j=0; + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; + if(programID){ //0x8000 to erase UserID + bufferU[j++]=0x80; + bufferU[j++]=0x00; + } + else{ + bufferU[j++]=0x00; + bufferU[j++]=0x00; + } + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=BULK_ERASE_PROGRAM_MEM; + bufferU[j++]=WAIT_T3; // wait ~14ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + //separate EEPROM erase (undocumented on 16F184xx devices) + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=BULK_ERASE_PROGRAM_MEM; + bufferU[j++]=WAIT_T3; // wait ~14ms + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=WAIT_T3; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(30); + PrintMessage(strings[S_Compl]); //"completed\r\n" +//****************** write code ******************** + PrintMessage(strings[S_StartCodeProg]); //"Write code ... " + PrintStatusSetup(); + if(saveLog) fprintf(logfile,"%s\n",strings[S_StartCodeProg]); + fflush(logfile); + int valid,inc; + for(;dim>0&&memCODE_W[dim-1]>=0x3fff;dim--); //skip empty space at end + if(dim%rowN) dim+=rowN-dim%rowN; //grow to 32 word multiple + for(i=k=0,j=0;i<dim;i+=rowN){ + for(valid=0;i<dim&&!valid;i+=valid?0:rowN){ //skip empty locations (32 words) + valid=0; + for(k=0;k<rowN;k++) if(memCODE_W[i+k]<0x3fff) valid=1; + } + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //update counter + bufferU[j++]=i>>8; + bufferU[j++]=i&0xFF; + for(k=0;k<rowN&&i<dim;k++){ //load all latches + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=k<(rowN-1)?LOAD_NVM_INC:LOAD_NVM; + bufferU[j++]=memCODE_W[i+k]>>8; //MSB + bufferU[j++]=memCODE_W[i+k]&0xff; //LSB + if(j>DIMBUF-5){ + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(3); + 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(3); + 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,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++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //update counter + bufferU[j++]=0x00; + bufferU[j++]=0x00; + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(2); + j=0; + for(i=k=0;i<dim;i++){ + if(j==0){ //skip empty locations (only at the beginning of a packet) + for(k2=i;k2<dim&&memCODE_W[k2]>=0x3fff;k2++); + if(k2>i+10){ //at least 10 skipped + i=k2; + k=i; + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //update counter + bufferU[j++]=(i>>8)&0xFF; + bufferU[j++]=i&0xFF; + } + } + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + if((j+1)/2*3+3>DIMBUF||i==dim-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){ + if(memCODE_W[k]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_CodeWError2],k,memCODE_W[k],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing address %3X: written %04X, read %04X\r\n" + err++; + } + z+=2; + k++; + } + } + PrintStatus(strings[S_CodeV2],i*100/(dim+dim2),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) i=dim; + } + } + PrintStatusEnd(); + 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" + } +//****************** write eeprom ******************** + else if(dim2&&err<max_err){ + int errEE=0; + PrintMessage(strings[S_EEAreaW]); //"Writing EEPROM ... " + PrintStatusSetup(); + if(saveLog) fprintf(logfile,"%s\n",strings[S_EEAreaW]); + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=5600>>8; //5.6ms in datasheet? + bufferU[j++]=5600&0xff; + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //load address + bufferU[j++]=0xF0; + bufferU[j++]=0x00; + for(w=i=k=0;i<dim2;i++){ + if(memEE[i]<0xff){ + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_NVM; + bufferU[j++]=0; //MSB + bufferU[j++]=memEE[i]&0xff; //LSB + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=BEGIN_INT_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram XXms + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + w++; + } + else{ + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=INC_ADDR8; + } + if(j>DIMBUF-10||i==dim2-1){ + PrintStatus(strings[S_CodeWriting],(i+dim)*100/(dim+dim2),i); //"Writing: %d%%, add. %03X" + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(w*6+2); + j=0; + w=0; + for(z=0;z<DIMBUF-5;z++){ + if(bufferI[z]==ICSP8_SHORT&&memEE[k]>=0xff) k++; + else if(bufferI[z]==ICSP8_LOAD&&bufferI[z+3]==ICSP8_READ){ + if(memEE[k]!=bufferI[z+5]){ + PrintMessage("\r\n"); + PrintMessage3(strings[S_CodeWError3],k,memEE[k],bufferI[z+5]); //"Error writing address %4X: written %02X, read %02X\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+=5; + } + } + if(saveLog){ + fprintf(logfile,strings[S_Log8],i,i,k,k,errEE); //"i=%d, k=%d, errors=%d\n" + } + } + } + errEE+=i-k; + PrintStatusEnd(); + PrintMessage1(strings[S_ComplErr],errEE); //"completed, %d errors\r\n" + if(max_err&&err+errEE>max_err){ + PrintMessage1(strings[S_MaxErr],err+errEE); //"Exceeded maximum number of errors (%d), write interrupted\r\n" + } + err+=errEE; + } +//****************** write ID, CONFIG, CALIB ******************** + if(max_err&&err<max_err){ + char t[256]; + PrintMessage(strings[S_ConfigAreaW]); //"Writing CONFIG area ... " + PrintMessage("\r\n"); + if(saveLog) fprintf(logfile,"%s\n",strings[S_ConfigAreaW]); + int err_c=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=10000>>8; //5.6ms in datasheet, but requires more in practice + bufferU[j++]=10000&0xff; + if(programID){ + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //load address + bufferU[j++]=0x80; + bufferU[j++]=0x00; + for(i=0x8000;i<0x8004;i++){ + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_NVM; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=BEGIN_INT_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 10ms + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(45); + for(i=0,z=0;i<4;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=ICSP8_READ;z++); + if (memCODE_W[0x8000+i]!=(bufferI[z+1]<<8)+bufferI[z+2]){ + PrintMessage3(strings[S_IDErr],i,memCODE_W[0x8000+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing ID%d: written %04X, read %04X\r\n" + err_c++; + } + z+=6; + } + j=0; + } + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_PC_ADDR; //load address + bufferU[j++]=0x80; + bufferU[j++]=0x07; + for(i=0x8007;i<0x800C;i++){ //5 config words + bufferU[j++]=ICSP8_LOAD; + bufferU[j++]=LOAD_NVM; + bufferU[j++]=memCODE_W[i]>>8; //MSB + bufferU[j++]=memCODE_W[i]&0xff; //LSB + bufferU[j++]=ICSP8_SHORT; + bufferU[j++]=BEGIN_INT_PROG; //internally timed + bufferU[j++]=WAIT_T3; //Tprogram 10ms + bufferU[j++]=ICSP8_READ; + bufferU[j++]=READ_NVM_INC; + } + bufferU[j++]=FLUSH; + for(;j<DIMBUF;j++) bufferU[j]=0x0; + PacketIO(55); + for(i=0,z=0;i<5;i++){ + for(;z<DIMBUF-2&&bufferI[z]!=ICSP8_READ;z++); + if (~memCODE_W[0x8007+i]&((bufferI[z+1]<<8)+bufferI[z+2])){ //error if written 0 and read 1 (~W&R) + + sprintf(t,"config%d",i+1); + PrintMessage3(strings[S_WErr2],t,memCODE_W[0x8007+i],(bufferI[z+1]<<8)+bufferI[z+2]); //"Error writing %s: written %04X, read %04X" + err_c++; + } + z+=6; + } + err+=err_c; + PrintMessage1(strings[S_ComplErr],err_c); //"completed, %d errors\r\n" + if(saveLog){ + fprintf(logfile,strings[S_Log9],err_c); //"Config area errors=%d \n" + } + } +//****************** exit ******************** + j=0; + bufferU[j++]=SET_PARAMETER; + bufferU[j++]=SET_T3; + bufferU[j++]=2000>>8; + bufferU[j++]=2000&0xff; + bufferU[j++]=NOP; //exit program mode + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x1; + bufferU[j++]=EN_VPP_VCC; + bufferU[j++]=0x0; + bufferU[j++]=SET_CK_D; + bufferU[j++]=0x0; + bufferU[j++]=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(); //clear status report +} + |