Tcl之load

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