diff options
-rw-r--r-- | external/mambo/mambo_utils.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/external/mambo/mambo_utils.tcl b/external/mambo/mambo_utils.tcl index 54b367c4..b503acbf 100644 --- a/external/mambo/mambo_utils.tcl +++ b/external/mambo/mambo_utils.tcl @@ -158,6 +158,17 @@ proc ex { ea { size 8 } } { puts "$pa : $val" } +proc di { location { count 16 } } { + set addr [expr $location & 0xfffffffffffffff0] + set top [expr $addr + ($count * 4)] + for { set i $addr } { $i < $top } { incr i 4 } { + set pc_laddr [mysim cpu 0 util itranslate $i] + set inst [mysim cpu 0 memory display $pc_laddr 4] + set disasm [mysim cpu 0 util ppc_disasm $inst $i] + puts "$pc_laddr: Enc:$inst : $disasm" + } +} + proc hexdump { location count } { set addr [expr $location & 0xfffffffffffffff0] set top [expr $addr + ($count * 15)] |