原创 ATmega328P Xplained Mini的mEDBG故障分析和修复

这个方法是有效的，另外还有EEPROM的文件，可以完全修复。

atmel提供了的这个修复软件，下载好慢，希望有效果，

上午拿你的例子，即老版ug的第一个例子，直接quartus_stp -t *.tcl 是可行的。新版ug例子的tcl中仅仅使用了proc例如：proc push {value}，好像就不行了。

喔，这里回复怎么不能编辑啊。 上面是一个tcl例子，在bat中加入 quartus_stp -t *.tcl quartus_stp -s 两句，发现该tcl似乎没有执行，还是需要source一下

set usbblaster [lindex [get_hardware_names] 0] set device_name [lindex [get_device_names -hardware_name $usbblaster] 0] #IR scan codes: 001 -> push # 010 -> pop # 011 -> flush # 100 -> reset # 111 -> normal proc push {value} { global device_name usbblaster open_device -device_name $device_name -hardware_name $usbblaster if {$value > 256} { return "value entered exceeds 8 bits" } set push_value [int2bits $value] set diff [expr {8 - [string length $push_value]%8}] if {$diff != 8} { set push_value [format %0${diff}d$push_value 0] } puts $push_value device_lock -timeout 10000 device_virtual_ir_shift -instance_index 0 -ir_value 1 -no_captured_ir_value device_virtual_dr_shift -instance_index 0 -dr_value $push_value -length 8 -no_captured_dr_value device_unlock close_device } proc pop {} { global device_name usbblaster variable x open_device -device_name $device_name -hardware_name $usbblaster device_lock -timeout 10000 device_virtual_ir_shift -instance_index 0 -ir_value 2 -no_captured_ir_value set x [device_virtual_dr_shift -instance_index 0 -length 8] device_unlock close_device puts $x } proc flushfifo {} { global device_name usbblaster open_device -device_name $device_name -hardware_name $usbblaster device_lock -timeout 10000 device_virtual_ir_shift -instance_index 0 -ir_value 3 -no_captured_ir_value device_virtual_ir_shift -instance_index 0 -ir_value 7 -no_captured_ir_value device_unlock close_device } proc end {} { close_device } proc int2bits {i} { set res "" while {$i>0} { set res [expr {$i%2}]$res set i [expr {$i/2}] } if {$res==""} {set res 0} return $res } proc bin2hex bin { ## No sanity checking is done array set t { 0000 0 0001 1 0010 2 0011 3 0100 4 0101 5 0110 6 0111 7 1000 8 1001 9 1010 a 1011 b 1100 c 1101 d 1110 e 1111 f } set diff [expr {4-[string length $bin]%4}] if {$diff != 4} { set bin [format %0${diff}d$bin 0] } regsub -all .... $bin {$t(&)} hex return [subst $hex] }

加pause只是停顿一下，“按任意键继续”以后就推出shell了，：（。

把这句话写到bat里：quartus_stp -t my_jtag.tcl 。最好再添加一个pause在后面，便于调试。

谢谢，另外还有一个问题，就是tcl文件的执行除了在QII的consol以及通过command shell下用source命令执行以外。能不能直接写bat文件实现？我试了一下，似乎找不到这样的选项。只能先quartus_stp -s进入tcl shell，然后source *.tcl来实现，这样必须需要两步。

应该可以，可以查找并输出所有的*Blaster为列表，然后由用户自己选择一个。

有没有可能让tcl自适应下载电缆?