writeram via libtrbnet for debugging

diff --git a/soft/toolbox/jtag_atomic/ui_writeram.pl b/soft/toolbox/jtag_atomic/ui_writeram.pl
index dfde2dc9f959282a98e0fd5a0cef872bd948ce8d..180bd915eea4cf1826563e0ef8a8dde096d5933d 100755 (executable)
--- a/soft/toolbox/jtag_atomic/ui_writeram.pl
+++ b/soft/toolbox/jtag_atomic/ui_writeram.pl
@@ -67,7 +67,17 @@ my $string = "  \t  Hello world!   ";
 #print trim($string)."\n";
 #print ltrim($string)."\n";
 #print rtrim($string)."\n";
-
+sub any2dec { # converts numeric expressions 0x, 0b or decimal to decimal
+  
+  my $argument = $_[0];
+  #print "any2dec input argument $argument\n";  
+
+  if ( $argument =~ m/0[bxBX]/) { 
+    return oct $argument;
+  } else {
+    return $argument;
+  }
+}
 # Perl trim function to remove whitespace from the start and end of the string
 sub trim($)
 {