Tcl之load

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

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

puts " XXX: loadprogram.tcl"

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

upvar #0 sourceargs args

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

if { [llength $args] <  } 
{

    append ifl "rom.dat"

} 
else 
{

    append ifl [lindex $args ]

}

if { [llength $args] <  } 
{

    set inst "pmem"

} 
else 
{

    set inst [lindex $args ]

}

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

    set msg "load pmem data from file: "

    append msg $ifl

    puts $msg

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

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

}