diff options
| -rw-r--r-- | tcl/mem_helper.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tcl/mem_helper.tcl b/tcl/mem_helper.tcl index 86ad00f7..5955793e 100644 --- a/tcl/mem_helper.tcl +++ b/tcl/mem_helper.tcl @@ -10,6 +10,17 @@ proc mrw {reg} { add_usage_text mrw "address" add_help_text mrw "Returns value of word in memory." +# mrh: "memory read halfword", returns value of $reg +proc mrh {reg} { + set value "" + mem2array value 16 $reg 1 + return $value(0) +} + +add_usage_text mrh "address" +add_help_text mrh "Returns value of halfword in memory." + +# mrb: "memory read byte", returns value of $reg proc mrb {reg} { set value "" mem2array value 8 $reg 1 |