Tcl之load

做一个ASIC项目，基本结构是MCU+ROM+RAM。目前想把单片机程序下载到ROM中，然后在ModelSim中仿真程序，得到运行结果。好二哥给出的Tcl下载文件如下，细细研读中...

 

puts "===================================================================" 

puts " XXX: loadprogram.tcl"

puts "==================================================================="

upvar #0 sourceargs args



set ifl "...程序文件路径..."

if { [llength $args] < 1 } 
{

    append ifl "rom.dat"

} 
else 
{

    append ifl [lindex $args 0]

}



if { [llength $args] < 2 } 
{

    set inst "pmem"

} 
else 
{

    set inst [lindex $args 1]

}



if { [llength [find instances ${inst} ]] > 0 } 
{ 

    set msg "load pmem data from file: "

    append msg $ifl

    puts $msg

    mem load -format hex -filldata 16'HDEAD ${inst}

    mem load -infile $ifl -format hex ${inst}

}