// $Id: AvrDummy.C,v 1.3 2003/10/07 21:46:13 idgay Exp $/* * $Id: AvrDummy.C,v 1.3 2003/10/07 21:46:13 idgay Exp $ * **************************************************************************** * * uisp - The Micro In-System Programmer for Atmel AVR microcontrollers. * Copyright (C) 1999, 2000, 2001, 2002  Uros Platise * * 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-1307  USA * **************************************************************************** *//*	AvrDummy.C		Dummy device driver for the AVR parallel access	Uros Platise (c) 1999*/#ifndef NO_DAPA#include "config.h"#include "timeradd.h"#include "AvrDummy.h"/* Private Functions*/void TAvrDummy::EnableAvr(){  unsigned char prg  [4] = { 0xAC, 0x53, 0, 0 };  int try_number = 32;  bool no_retry = GetCmdParam("-dno-retry", false);  const char *part_name = GetCmdParam("-dpart");  if (part_name && strcasecmp(part_name, "at90s1200") == 0)    no_retry = true;  /* XXX */  /* Enable AVR programming mode */  do{    prg[0]=0xAC; prg[1]=0x53; prg[2]=prg[3]=0;    Send(prg, 4);    if (no_retry) break;    if (prg[2] == 0x53) break;    PulseSck();  } while (try_number--);    if (try_number>=0){    Info(2,"AVR Direct Parallel Access succeeded after %d retries.\n",       32-try_number);  } else {    Info(2,"AVR Direct Parallel Access failed after 32 retries.\n");  }    /* Get AVR Info */  vendor_code = GetPartInfo(0);  part_family = GetPartInfo(1);  part_number = GetPartInfo(2);  if (part_name)    OverridePart(part_name);  Identify();}TByteTAvrDummy::GetPartInfo(TAddr addr){  TByte info [4] = { 0x30, 0, addr, 0 };  Send(info, 4);  return info[3];}voidTAvrDummy::WriteProgramMemoryPage(){  struct timeval t_start_wr, t_start_poll, t_wait, t_timeout, t_end, t_write;  bool poll_data = use_data_polling && TestFeatures(AVR_PAGE_POLL)		   && (page_poll_byte != 0xFF);  TByte prg_page [4] = { 0x4C,			(TByte)((page_addr >> 9) & 0xff),			(TByte)((page_addr >> 1) & 0xff),			0 };  gettimeofday(&t_start_wr, NULL);  t_wait.tv_sec = 0;  t_wait.tv_usec = Get_t_wd_flash();  Info(4, "Programming page address: %d (%.2x, %.2x, %.2x, %.2x)\n",     page_addr, prg_page[0], prg_page[1], prg_page[2], prg_page[3]);  Send(prg_page, 4);  gettimeofday(&t_start_poll, NULL);  timeradd(&t_start_poll, &t_wait, &t_timeout);  /* Wait */  do {    gettimeofday(&t_end, NULL);    if (poll_data) {      TByte rbyte = ReadByte(page_poll_addr);      if (rbyte == page_poll_byte)	break;    }  } while (timercmp(&t_end, &t_timeout, <));  /* Write Statistics */  timersub(&t_end, &t_start_wr, &t_write);  /* t_write = t_end - t_start_wr */  if (poll_data) {    float write_time = 1.0e-6 * t_write.tv_usec + t_write.tv_sec;    total_poll_time += write_time;    if (max_poll_time < write_time)      max_poll_time = write_time;    if (min_poll_time > write_time)      min_poll_time = write_time;    total_poll_cnt++;  }  page_addr_fetched=false;  page_poll_byte = 0xFF;}/* Device Interface Functions*/TByteTAvrDummy::ReadByte(TAddr addr){  TByte readback = 0xFF;      CheckMemoryRange(addr);  if (segment == SEG_FLASH) {    TByte hl = (addr & 1) ? 0x28 : 0x20;    TByte flash[4] = { hl,		       (TByte)((addr >> 9) & 0xff),		       (TByte)((addr >> 1) & 0xff),			 0 };    Send(flash, 4);    readback = flash[3];  } else if (segment == SEG_EEPROM) {    TByte eeprom [4] = { 0xA0, 			 (TByte)((addr>>8)&0xff), 			 (TByte)(addr&0xff), 			 0 };    Send(eeprom, 4);    readback = eeprom[3];  } else if (segment==SEG_FUSE) {    switch (addr) {    case AVR_FUSE_LOW_ADDR:      if (TestFeatures(AVR_FUSE_RD))	readback = ReadFuseLowBits();#if 0      /* TRoth/2002-06-03: This case is handled by ReadLockBits() so we don't         need it here. Can I delete it completely? */      else if (TestFeatures(AVR_LOCK_RD76))	readback = ReadLockFuseBits();#endif      break;    case AVR_FUSE_HIGH_ADDR:      if (TestFeatures(AVR_FUSE_HIGH))	readback = ReadFuseHighBits();      break;    case AVR_CAL_ADDR:      if (TestFeatures(AVR_CAL_RD))	readback = ReadCalByte(0);      break;    case AVR_LOCK_ADDR:      readback = ReadLockBits();      break;    case AVR_FUSE_EXT_ADDR:      if (TestFeatures(AVR_FUSE_EXT))	readback = ReadFuseExtBits();    }    Info(3, "Read fuse/cal/lock: byte %d = 0x%02X\n",	 (int) addr, (int) readback);  }  return readback;}/* Read Lock/Fuse Bits:           7     6     5     4     3     2     1     0 2333,4433,m103,m603,tn12,tn15: x     x     x     x     x     LB2   LB1   x 2323,8535:                     LB1   LB2   SPIEN x     x     x     x     FSTRT 2343:                          LB1   LB2   SPIEN x     x     x     x     RCEN tn22:                          LB1   LB2   SPIEN x     x     x     x     0 m161,m163,m323,m128:           x     x     BLB12 BLB11 BLB02 BLB01 LB2   LB1 tn26:                          x     x     x     x     x     x     LB2   LB1 */TByteTAvrDummy::ReadLockFuseBits(){  TByte lockfuse[4] = { 0x58, 0, 0, 0 };  Send(lockfuse, 4);  return lockfuse[3];}/* Read Fuse Bits (Low):          7     6     5     4     3     2     1     0 2333,4433:                     x     x     SPIEN BODLV BODEN CKSL2 CKSL1 CKSL0 m103,m603:                     x     x     SPIEN x     EESAV 1     SUT1  SUT0 tn12:                          BODLV BODEN SPIEN RSTDI CKSL3 CKSL2 CKSL1 CKSL0 tn15:                          BODLV BODEN SPIEN RSTDI x     x     CKSL1 CKSL0 m161:                          x     BTRST SPIEN BODLV BODEN CKSL2 CKSL1 CKSL0 m163,m323:                     BODLV BODEN x     x     CKSL3 CKSL2 CKSL1 CKSL0 m8,m16,m32,m64,m128:           BODLV BODEN SUT1  SUT0  CKSL3 CKSL2 CKSL1 CKSL0 tn26:                          PLLCK CKOPT SUT1  SUT0  CKSL3 CKSL2 CKSL1 CKSL0 */TByteTAvrDummy::ReadFuseLowBits(){  TByte fuselow[4] = { 0x50, 0, 0, 0 };  Send(fuselow, 4);  return fuselow[3];}/* Read Fuse Bits High:           7     6     5     4     3     2     1     0 m163:                          x     x     x     x     1     BTSZ1 BTSZ0 BTRST m323:                          OCDEN JTGEN x     x     EESAV BTSZ1 BTSZ0 BTRST m16,m32,m64,m128:              OCDEN JTGEN SPIEN CKOPT EESAV BTSZ1 BTSZ0 BTRST m8:                            RSTDI WDTON SPIEN CKOPT EESAV BTSZ1 BTSZ0 BTRST tn26:                          1     1     1     RSTDI SPIEN EESAV BODLV BODEN */TByteTAvrDummy::ReadFuseHighBits(){  TByte fusehigh[4] = { 0x58, 0x08, 0, 0 };  Send(fusehigh, 4);  return fusehigh[3];}/* Read Extended Fuse Bits:       7     6     5     4     3     2     1     0 m64,m128:                      x     x     x     x     x     x     M103C WDTON */TByteTAvrDummy::ReadFuseExtBits(){  TByte fuseext[4] = { 0x50, 0x08, 0, 0 };  Send(fuseext, 4);  return fuseext[3];}/* Read Calibration Byte (m163, m323, m128, tn12, tn15, tn26)   addr=0...3 for tn26, addr=0 for other devices */TByteTAvrDummy::ReadCalByte(TByte addr){  TByte cal[4] = { 0x38, 0, addr, 0 };  Send(cal, 4);  return cal[3];}/* Write Fuse Bits (old):         7     6     5     4     3     2     1     0 2323,8535:                     x     x     x     1     1     1     1     FSTRT 2343:                          x     x     x     1     1     1     1     RCEN 2333,4433:                     x     x     x     BODLV BODEN CKSL2 CKSL1 CKSL0 m103,m603:                     x     x     x     1     EESAV 1     SUT1  SUT0 */voidTAvrDummy::WriteOldFuseBits(TByte val){  TByte oldfuse[4] = { 0xAC, (val & 0x1F) | 0xA0, 0, 0xD2 };  Send(oldfuse, 4);}/* Write Fuse Bits (Low, new):    7     6     5     4     3     2     1     0 m161:                          1     BTRST 1     BODLV BODEN CKSL2 CKSL1 CKSL0 m163,m323:                     BODLV BODEN 1     1     CKSL3 CKSL2 CKSL1 CKSL0 m8,m16,m64,m128:               BODLV BODEN SUT1  SUT0  CKSL3 CKSL2 CKSL1 CKSL0 tn12:                          BODLV BODEN SPIEN RSTDI CKSL3 CKSL2 CKSL1 CKSL0 tn15:                          BODLV BODEN SPIEN RSTDI 1     1     CKSL1 CKSL0 tn26:                          PLLCK CKOPT SUT1  SUT0  CKSL3 CKSL2 CKSL1 CKSL0 WARNING (tn12,tn15): writing SPIEN=1 disables further low voltage programming! */voidTAvrDummy::WriteFuseLowBits(TByte val){  TByte fuselow[4] = { 0xAC, 0xA0, 0, val };  Send(fuselow, 4);}/* Write Fuse Bits High:          7     6     5     4     3     2     1     0