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}
}