From: Hadaq in Frankfurt <hadaq@frankfurt>
Date: Fri, 18 Jan 2013 17:45:13 +0000 (+0100)
Subject: added tools from ./daq
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=8c9af207e83e3bad91fd75856e72103597ba628f;p=daqtools.git

added tools from ./daq
---

diff --git a/README.txt b/README.txt
index eeddcaa..ebae409 100644
--- a/README.txt
+++ b/README.txt
@@ -4,15 +4,18 @@ web		Web-based tools
 files		All temporary files created by scripts, not in CVS
 jan             Jans development directory
 thresholds      Tools to set, determine and retrieve thresholds
-
+tools           General tools
 
 ==Scripts
-dac_progam.pl	Programs a LTC2600 DAC with settings from a db files
+dac_progam.pl		Programs a LTC2600 DAC with settings from a db files
 merge_serial_address.pl	Generate a address list from the id- and serials databases for TrbNet
-padiwa.pl	R/W of all padiwa registers
+padiwa.pl		R/W of all padiwa registers
 
-jan/adcplot.pl	Takes values (measurements from AD9222 and similar) from a TrbNet-Fifo and plots them using the HPlot library
+jan/adcplot.pl		Takes values (measurements from AD9222 and similar) from a TrbNet-Fifo and plots them using the HPlot library
 
+tools/compiletime.pl	Reads the compile time of the designs loaded to FPGAs
+tools/hadplot		Plot the content of any register or set of registers
+tools/loadregisterdb.pl	Loads register settings from a trbnet db-file
 
 
 ==Config Files
diff --git a/tools/compiletime.pl b/tools/compiletime.pl
new file mode 100755
index 0000000..250be46
--- /dev/null
+++ b/tools/compiletime.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+
+use Date::Format;
+
+#print("\nCompile time of FPGA designs\n");
+
+my $cmd;
+$cmd = sprintf("trbcmd r %6s 0x40 | sort",@ARGV[0]);
+my @o = qx($cmd);
+
+foreach my $s (@o) {
+  my ($a,$t);
+  if (($a, $t)= $s =~ /0x(\w{4})\s*0x(\w{8})/) {
+    my $str = sprintf("%4s\t%s\t%8s",$a, time2str('%Y-%m-%d %H:%M',hex($t)),$t);
+    print $str."\n";
+    }
+  }
diff --git a/tools/hadplot b/tools/hadplot
new file mode 100755
index 0000000..d1e9277
--- /dev/null
+++ b/tools/hadplot
@@ -0,0 +1,1455 @@
+#!/usr/bin/perl -w
+use warnings;
+
+use FileHandle;
+use Time::HiRes qw( gettimeofday usleep time );
+use Getopt::Long;
+use Data::Dumper;
+use POSIX qw/floor strftime/;
+
+use constant AXISISTIME => 1;
+use constant AXISISNOTIME => 0;
+use constant DIFFY => 1;
+use constant DIFFX => 1;
+use constant NODIFFY => 0;
+use constant NODIFFX => 0;
+use constant NODELAY => 0;
+use constant NO => 0;
+use constant YES => 1;
+use constant NONEWLINE => 1;
+
+my $GPbuffer = "";
+my $buffercount = 0;
+
+my $windowtitle = ""; #Global var to store real name of GUI window
+
+my $PlotBuffer = {};
+my $PlotBufferCnt = 0;
+
+my @PlotBufArr = ();
+
+#my @color = ("#1155bb","#bb1111","#999900","#660000","#006633","#990066","#6633CC","#00CCCC");
+my @color = ("#2222dd","#880000","#00cc00","#ee00dd","#ffcc00","#00cc88","#6633CC","#00CCCC");
+our $write2file = "";
+our $plotendedbefore = 0;
+
+
+
+#################################################
+# Variables...
+#################################################
+my $delay     = 1000;
+my $samples   = 100; 
+my $downscale = 1;
+# my $system    = 0;
+my $address   = [];
+my $register  = [];
+my $regoffset = [];
+my $regwidth  = [];
+my $title     = [];
+my $timeref   = [];
+my $geom      = "700x400";
+my $style     = 0;
+my $nametmp   = "";
+my $regamount = [];
+my $xscale   = [];
+my $yscale   = [];
+my $xtitle   = "";
+my $ytitle   = "";
+my $windowname = "No Name";
+my $xistime  = AXISISNOTIME;
+my $xoverflow = [];
+my $yoverflow = [];
+my $ydiff     = 0;
+my $outputcfg = "";
+my $name      = "HadPlot";
+my $key       ;     
+my $curvestyle= 'points';  #points, steps, histo or histostacked
+my $xticks    = 0;  #show labels on x-axis
+my $yticks    = 1;  #show labels on y-axis
+my $plotoption= ""; #string with additional gnuplot commands
+my $curveoption= []; #options for plot command
+my $xgrid     = 1;
+my $ygrid     = 1;
+my $ymax;
+my $ymin;
+my $xmin;
+my $xmax;
+
+GetOptions('d=i' => \$delay,
+           'n=i' => \$samples,
+           'o=i' => \$downscale,
+           'a=s' => $address,
+           'r=s' => $register,
+           'w=i' => $regwidth,
+           'p=i' => $regoffset,
+           't=s' => $title,
+           'm=i' => $regamount,
+           'g=s' => \$geom,
+           'z=i' => \$style,
+           'output=s'     => \$outputcfg,
+           'windowname=s' => \$windowname,
+           'xscale=f'     => $xscale,
+           'yscale=f'     => $yscale,
+           'xtitle=s'     => \$xtitle,
+           'ytitle=s'     => \$ytitle,
+           'xistime!'     => \$xistime,
+           'timeref=s'    => $timeref,
+           'xoverflow=f'  => $xoverflow,
+           'yoverflow=f'  => $yoverflow,
+           'ydiff!'       => \$ydiff,
+           'name=s'       => \$name,
+           'key!'         => \$key,
+           'xticks!'      => \$xticks,
+           'yticks!'      => \$yticks,
+           'xgrid!'       => \$xgrid,
+           'ygrid!'       => \$ygrid,
+           'ymax=i'       => \$ymax,
+           'ymin=i'       => \$ymin,
+           'xmax=i'       => \$xmax,
+           'xmin=i'       => \$xmin,           
+           'curvestyle=s' => \$curvestyle,
+           'curveoption=s'=> $curveoption,
+           'plotoption=s' => \$plotoption
+           );
+
+for(my $i=0;$i<16;$i++) {
+	$regoffset->[$i]   = 0  unless defined $regoffset->[$i];
+	$regwidth->[$i]    = 32 unless defined $regwidth->[$i];
+	$xoverflow->[$i]   = 2**20 unless defined $xoverflow->[$i];
+	$yoverflow->[$i]   = 2**32 unless defined $yoverflow->[$i];
+	$xscale->[$i]      = 1 unless defined $xscale->[$i];
+	$yscale->[$i]      = 1 unless defined $yscale->[$i];
+	$title->[$i]       = "" unless defined $title->[$i];
+	$curveoption->[$i] = ""  unless defined $curveoption->[$i];
+	}
+
+for(my $i=0;$i < scalar @{$address};$i++) {
+  if(!defined($title->[$i])) {
+		$title->[$i] = hex($address->[$i])." $register->[$i] $regoffset->[$i]..".($regoffset->[$i]+$regwidth->[$i]-1);
+		}
+	}
+
+
+$delay *= 1000;
+if($style == 1) {$curvestyle="points";     $xticks=1;}
+if($style == 2) {$curvestyle="histo";      $xticks=0;}
+if($style == 3) {$curvestyle="histo";      $xticks=1;}
+if($style == 4) {$curvestyle="histostacked";      $xticks=0;}
+if($style == 5) {$curvestyle="histostacked";      $xticks=1;}
+
+
+
+#Open Gnuplot
+our $fh;
+my $fn = "gnuplot -geometry $geom -bg 'ghost white'";
+$fh = new FileHandle ("|$fn") or  die "error: no gnuplot";
+$fh->autoflush(1);
+
+
+sub makeTimeString{
+  return strftime("set label 100 \"%H:%M:%S\" at screen 0.02,0.02 left tc rgb \"#000044\" font \"monospace,8\"\n", localtime())
+  }
+
+#################################################
+# When exiting, close Gnuplot window
+#################################################
+sub finish {
+  print $fh "exit;\n";
+  close $fh;
+  exit;
+}
+
+$SIG{INT} = \&finish;
+$SIG{PIPE} = \&finish;
+
+
+
+my $last_wakeup;
+
+sub max {
+  my $a = shift;
+  my $b = shift;
+  return $a > $b ? $a : $b;
+  }
+
+sub min {
+  my $a = shift;
+  my $b = shift;
+  return $a < $b ? $a : $b;
+  }
+
+sub usleep_total {
+  my $delay = shift;
+  if(defined $last_wakeup) {
+    my $time = time();
+#     printf "%.0f\n",$delay-($time-$last_wakeup)*1E6;
+    usleep(max(0,$delay-($time-$last_wakeup)*1E6));
+    }
+  else {
+    usleep($delay);
+    }
+  $last_wakeup = time();
+  return $last_wakeup;
+  }
+
+
+#################################################
+# Write to gnuplot
+#################################################
+sub plot_write {
+  my ($str,$no) = @_;
+  if(defined($no) && $no) {
+    print $fh $str;
+#     print $str;
+    }
+  else {
+    print $fh $str."\n";
+#     print $str."\n";
+    }
+  }
+
+sub plot_add {
+  my ($x,$y) = @_;
+  $x = $x || $PlotBufferCnt;
+  $PlotBufArr[$PlotBufferCnt]->{x} = $x;
+  $PlotBufArr[$PlotBufferCnt]->{y} = $y;
+  
+  $PlotBufferCnt++;
+#   $PlotBuffer->{$x} = $y;
+#   print $x." ".$y."\n";
+  }
+  
+sub plot_end {
+  my ($single) = @_;
+  for(my $i = 0;$i<scalar @PlotBufArr;$i++) {
+    if($single) {
+      print $fh $PlotBufArr[$i]->{y}."\n";
+      }
+    else {
+      print $fh $PlotBufArr[$i]->{x}." ".$PlotBufArr[$i]->{y}."\n";
+      }
+    }
+#   foreach my $line (sort keys %{$PlotBuffer}) {
+#     if($single) {
+#       print $fh $PlotBuffer->{$line}."\n";
+# #       print     "plot_end: ".$PlotBuffer->{$line}."\n";
+#       }
+#     else {
+#       print $fh $line." ".$PlotBuffer->{$line}."\n";
+# #       print     "plot_end: ".$line." ".$PlotBuffer->{$line}."\n";
+#       }
+#     }
+  @PlotBufArr = ();
+  $PlotBuffer = {};
+  $PlotBufferCnt = 0;
+  print $fh "e\n";
+  $plotendedbefore = 1 unless $plotendedbefore;
+  }  
+
+
+sub plot_reset {
+  if($write2file eq ""){
+    system("xwininfo -name '$windowtitle' >/dev/null 2>/dev/null");
+		#print $?."\n";
+		if($? != 0) {
+			usleep(1E5);
+			system("xwininfo -name '$windowtitle' >/dev/null 2>/dev/null");
+			if($? != 0) {
+				finish();
+				}
+			}
+    if ($plotendedbefore != 0) {
+			$plotendedbefore = 0;
+#                         my $datestring = makeTimeString();
+                        print $fh makeTimeString();			
+                        print $fh "replot\n";
+			}
+		}
+	else {
+    if ($plotendedbefore != 0) {
+			system("mv $write2file.tmp $write2file");
+      plot_write("set out \"$write2file.tmp\"\n");
+      $plotendedbefore = 0;
+#       my $datestring = makeTimeString();
+      print $fh makeTimeString();
+      print $fh "replot\n";
+      
+#       print "reset\n";
+      }
+		}
+  }  
+
+sub plot_finished {
+	my ($store) = @_;
+	if($write2file ne "") {
+		if(defined $store) {
+			if($store->{"initing"} != 2 and $store->{"iteration"} % $store->{"downscale"} == 0) {
+# 				system("mv $write2file.tmp $write2file");
+				}
+			}
+		else {
+			if($write2file ne "") {
+# 				system("mv $write2file.tmp $write2file");
+				}
+			}
+		}
+	}
+
+sub plot_init {
+  my ($xtics) = @_;
+  $windowtitle = $name ." - ".$windowname;
+  if ($outputcfg =~ m$PNG.([/\w]*).(\d+).(\d+)$) {
+		print "Writing PNG to file $1\n";
+		$write2file = $1.".png";
+		plot_write("set term png size $2,$3 font \"monospace,8\"");
+		plot_write("set out \"$write2file.tmp\"");
+		}
+  elsif ($outputcfg =~ m$SVG.([/\w]*).(\d+).(\d+)$) {
+		print "Writing SVG to file $1\n";
+		$write2file = $1.".svg";
+		plot_write("set term svg size ".($2*2).",".($3*2)." dynamic font \"monospace,18\" lw 1.5 \n");
+		plot_write("set out \"$write2file.tmp\"\n");
+		}
+	else {
+    plot_write("set term x11 title '$windowtitle'");
+		}
+  plot_write("set grid");
+  plot_write("set xlabel \"$xtitle\"");
+  plot_write("set ylabel \"$ytitle\"");
+  
+  plot_write(makeTimeString());
+  
+  if(defined $xtics) {
+    plot_write("set xtics $xtics\n");
+    }
+  if(defined $xmin && defined $xmax) {
+    plot_write("set xrange [$xmin:$xmax]");
+    }
+  if(defined $ymin && defined $ymax) {
+    plot_write("set yrange [$ymin:$ymax]");
+    }
+  elsif(defined $ymax) {
+    plot_write("set yrange [:$ymax]");
+    }
+  elsif(defined $ymin) {
+    plot_write("set yrange [$ymin:]");
+    }
+  if (!defined $key || $key == 0) {
+		plot_write("unset key");
+		}
+	if($xgrid == 0) {
+	  plot_write("set grid noxtics");
+		}
+	if($ygrid == 0) {
+	  plot_write("set grid noytics");
+		}
+	if($plotoption ne "") {
+		plot_write($plotoption);
+		}
+  }
+
+sub plot_sleep {
+  my ($delay) = @_;
+  my $t = usleep_total($delay);
+  plot_reset();
+  return $t;
+  }
+
+sub plot_end_sleep {
+  my ($delay,$single) = @_;
+  plot_end($single);
+  return plot_sleep($delay);
+  }
+
+sub plot_storage_end_sleep {
+  my ($store, $single) = @_;
+  my $delay = $store->{"delay"};
+  my $t;
+  if($store->{"initing"} == 0) {
+    if($store->{"iteration"} % $store->{"downscale"} == 0) {
+      plot_end($single);
+      $t = usleep_total($delay);
+      plot_reset();
+      }
+    else {
+      $t = usleep_total($delay);
+      }
+    }
+  return $t;
+  }
+
+sub plot_storage_sleep {
+  my ($store,$noreset) = @_;
+  my $t;
+  my $delay = $store->{"delay"};
+  #print $store->{"initing"}.$store->{"iteration"}.$store->{"downscale"}."\n";
+  if($store->{"initing"} != 2) {
+    if($store->{"iteration"} % $store->{"downscale"} == 0) {
+      $t = usleep_total($delay);
+      plot_storage_reset() unless $noreset;
+      }
+    else {
+      $t = usleep_total($delay);
+      }
+    }
+  return $t;
+  }
+
+sub plot_storage_reset {
+  my ($store) = @_;
+  if(defined $store->{"initing"} && $store->{"initing"} != 2) {
+    if($store->{"iteration"} % $store->{"downscale"} == 0) {
+      plot_reset();
+      }
+    }
+  }
+  
+sub plot_storage_end {
+  my ($store) = @_;
+  if($store->{"initing"} == 0) {
+    if($store->{"iteration"} % $store->{"downscale"} == 0) {
+      plot_end();
+      }
+    }
+  }
+
+#################################################
+# Writes a new value pair to storage
+#################################################
+sub store_push {
+  my ($storage,$x,$y,$divtime) = @_;
+  my $xval = $x;
+  my $yval = $y;  
+  my $curtime = time();
+  
+  if ($storage->{"initing"} != 2) {
+    if (scalar(@{$storage->{"datax"}}) == $storage->{"size"}) {
+      my $tmp = shift(@{$storage->{"datax"}});
+      my $tmpy = shift(@{$storage->{"datay"}});
+      $storage->{"totalx"} -= $tmp;
+#       if($storage->{"initing"} == 0 && (($tmpy <= $storage->{"miny"}) || ($tmpy >= $storage->{"maxy"}))) {
+#         store_calc_range($storage);
+#         }
+      }  
+    if($storage->{"diffx"}) {
+      if(defined($storage->{"xmax"}) && $x < $storage->{"lastx"}) {
+        $xval = ($x - $storage->{"lastx"}  + $storage->{"xmax"});
+        }
+      else {
+        $xval = ($x - $storage->{"lastx"});
+        }
+      if(defined($storage->{"last_push"}) &&  $storage->{"last_push"} != 0) {
+        while (floor($xval/$storage->{"xmax"}) < floor(($curtime - $storage->{"last_push"})/($storage->{"xmax"}/1E6))){
+          $xval += $storage->{"xmax"};
+          }
+        }
+      }
+    if($storage->{"diffy"}) {
+			$yval = $y - $storage->{"lasty"};
+      if(defined($storage->{"ymax"}) && $y < $storage->{"lasty"}) {
+        while($yval < 0) {
+					$yval += $storage->{"ymax"};
+					}
+        }
+      if($divtime) {  
+        $yval /= ($xval?$xval:1)/1000000;
+        }
+      }
+
+    
+    if($storage->{"initing"} == 1) {
+      $storage->{"initing"} = 0;
+      for(my $i = $storage->{"size"}-1; $i>0; $i--) {
+        push(@{$storage->{"datax"}},$storage->{"delay"});
+        push(@{$storage->{"datay"}},$yval);
+        $storage->{"totalx"} += $storage->{"delay"};         
+        }
+      }
+    
+    push(@{$storage->{"datax"}},$xval?$xval:0);
+    push(@{$storage->{"datay"}},$yval?$yval:0);
+    $storage->{"totalx"} += $xval?$xval:0;
+    }
+  else {
+    $storage->{"initing"} = 1;
+    }
+
+  $storage->{"last_push"} = $curtime;
+  $storage->{"lasty"} = $y;
+  $storage->{"lastx"} = $x;
+  }
+
+#################################################
+# Writes storage contents to stream
+#################################################
+sub store_print {
+  my $str = "";
+  my ($storage) = @_;
+  if($storage->{"initing"} != 2) {
+    if($storage->{"iteration"} % $storage->{"downscale"} == 0) {
+      my $xcnt = - $storage->{"totalx"} /1000000.0;
+      for (my $i = 0; $i < $storage->{"size"}; $i++) {
+        my $xval = $storage->{"datax"}->[$i];  #${}[]
+        my $yval = $storage->{"datay"}->[$i];
+        $xval = 0 unless defined($xval);
+        $yval = 0 unless defined($yval);
+        $xcnt += $xval/1000000.0;
+#        $str .= $xcnt." ".$yval."\n";
+        $str .= sprintf "%.3f %.2f\n", $xcnt,$yval;
+        #plot_write($xcnt/1000000.0." ".$yval);
+        }
+      plot_write($str,1);  
+#       print $str;
+      plot_end(1);
+      }
+    $storage->{"iteration"}++;
+    }
+  }
+
+
+#################################################
+# Initialize storage
+#################################################
+sub store_init {
+  my ($storage,$size,$diffx,$diffy,$delay,$downscale,$xmax,$ymax) = @_;
+  
+  $storage->{"datax"} = [];
+  $storage->{"datay"} = [];
+  $storage->{"size"}  = $size;
+  $storage->{"diffx"} = $diffx;
+  $storage->{"diffy"} = $diffy;
+  $storage->{"delay"} = $delay;
+  $storage->{"downscale"} = $downscale;
+  $storage->{"initing"}   = 2;
+  $storage->{"iteration"} = 0;
+  $storage->{"totalx"}    = 0;
+  $storage->{"xmax"}      = $xmax;
+  $storage->{"ymax"}      = $ymax;
+  $storage->{"maxy"} = 0;
+  $storage->{"miny"} = 1E100;
+  $storage->{"last_push"} = 0;
+  $storage->{"last_sleep"}  = 0;
+  }
+
+#################################################
+# Help Message
+#################################################
+sub help {
+  print <<EHELP;
+  hadplot plots values...
+  --------------------------------------------
+  Usage: hadplot [-d int] [-n int] [-o int]
+  \t\t [-a int -r int -w int -p int [-m int] [-t str]]*
+  \t\t [-output str] [-windowname str] [-(no)key] [-g geometry] [-z style]
+  \t\t [-curvestyle str] [-curveoption str] [-plotoption str]
+  \t\t [-xscale int] [-xmax int] [-xtitle str] [-(no)xticks] [-(no)xgrid] [-xoverflow float]
+  \t\t [-yscale int] [-ymax int] [-ytitle str] [-(no)yticks] [-(no)ygrid] [-yoverflow float]
+  \t\t  command
+  
+Options:
+  command         One of the commands listed below
+  -d delay        Time to sleep between readings in milliseconds
+  -n samples      Number of samples to store / display in histogram
+  -d downscaling  Replot histogram only every nth iteration
+  -g geometry     Size of the plot window in pixels
+  -a address      Board address when using generic option 
+  -p register     Register address when using generic option
+  -w regwidth     Width in bits of the value to plot
+  -r regoffset    Offset of the value to plot in the register
+  -z style        Selects one of the possible styles (deprecated)
+  -output         expects a string "(PNG|SVG).\$filename.\$xsize.\$ysize" to write to a file
+  -windowname     Name of window (shown in titlebar after "Hadplot - "
+  -timeref        In a differential plot, the endpoint with this addressis used for timestamping
+  -(x|y)scale     Scaling factor, the x/y values are divided by
+  -(x|y)max       Maximal value for x/y axis
+  -(x|y)title     Label for axes
+  -xistime        Marks x axis as containing time stamps (used for formatting)
+  -(no)(x|y)ticks Switches tick marks on axes on or off (e.g. OEP addresses / values)
+  -(no)(x|y)grid  Switches grid lines on or off
+  -(x|y)overflow  The value at which the register content has an overflow
+  -ydiff          Plot differences of register contents on y-axis
+  -(no)key        Show key for all plots
+  -curvestyle     Plot type: points, histo, histostacked, steps
+  -curveoption    Additional options given to the plot command (per curve)
+  -plotoption     Additional commands given to gnuplot
+  
+EHELP
+
+     
+  print "\nAvailable commands:\n";
+  print "\thelp\t\tPrints this message\n";
+  print "\trpcdatarate\tNumber of sent and received data words (RPC only)\n";
+  print "\toeptemp\t\tDisplays temperatures (OEP only)\n";
+  print "\toep5V\t\tShows the input and output voltages of 5V (OEP only)\n";
+  print "\toep3.3V\t\tShows the input and output voltages of 3.3V (OEP only)\n";
+  print "\toep1.2V\t\tShows the input and output voltages of 1.2V (OEP only)\n";
+  print "\toep3V\t\tShows the input  voltages of +-3V (OEP only)\n";
+  print "\tdatarate\tshows a histogram of data rates\n";
+  print "\teventrate\tHistogram of the trigger rate\n";
+  print "\tbusytime\tHistogram of busy times\n";
+  print "\tbusy\t\tBargraph of busy times\n";
+  print "\tfilllevel\tFill level of data buffers in all endpoints\n";
+  print "\toepfill\t\tFill level of OEP buffers\n";
+  print "\tshowerfill\tFill level of Shower buffers\n";
+  print "\toepspikehist\tSpike histogram of OEP CMS input\n";
+  print "\toepworktime\tStatistics about states of the OEP trigger handler\n";
+  print "\toeptrgerr\tNumbers of errors on CMS for indivual OEP\n";
+  print "\toeptrgerrhist\tHistory of errors on CMS of OEP\n";
+  print "\toepretr\t\tRetransmission statistics for individual OEP\n";
+  print "\toepretrhist\tHistory of retransmissions on OEP\n";
+  print "\toeptokenmiss\tNumber of missing tokens on OEP\n";
+  print "\toepwords\t\tNumber of data words sent by OEP\n";
+  print "\tmdcchannel\tData counters per TDC channel for MDC\n";
+  print "\tmdcchanneldiff\tdata counters per TDC channel for MDC, changes only\n";
+  print "\tgberate\t\tAmount of data sent by GbE links\n";
+  print "\ttimecmslvl1\tTime between CMS and LVL1 trigger on OEP\n";
+#  print "\t\t\n";
+  
+  print "\n";
+  print "\treg\t\tPrint any specified register from addressed boards\n";
+  print "\tregdiff\t\tPrint the changes of any specified register from addressed boards\n";
+  print "\thist\t\tShows a histogram of the specified value \n";
+  print "\thistdiff\tShows a histogram of the changes of the specified value\n";
+  print "\n\n";
+  }
+
+
+
+#################################################
+# Generic Register
+#################################################
+sub bitmap {
+  my ($delay,$address,$register,$regamount,$regoff,$regwidth,$title,$style,$name) = @_;
+  $style = 0 unless defined $style;
+  for(my $i = 0; $i<scalar(@{$address});$i++) {
+#     if(!(defined($title->[$i])) || ($title->[$i] eq "")) {
+#       $title->[$i] = hex($address->[$i])." ".$register->[$i]." ".$regoff->[$i]."..".($regoff->[$i]+$regwidth->[$i]-1);
+#       }
+    if (!(defined $regamount->[$i])) {
+      $regamount->[$i] = 1;
+      }
+    }
+  $ymin = $regoff->[0];
+  $ymax = $regoff->[0]+$regwidth->[0];
+  plot_init(256);  
+#   if ($style == 0) {
+#     plot_write("plot",1);
+#     for(my $i = 0; $i<scalar(@{$address});$i++) {
+#       plot_write("'-' using 1:2 with points pt 5 title \"$title->[$i]\" ",1);
+#       plot_write(", ",1) unless $i == scalar(@{$address})-1;
+#       }
+#     plot_write("");  
+#     }
+#   elsif($style == 1) {
+    plot_write("set xtics rotate by 90 offset .7,-2 scale 0 ");
+    plot_write("set style fill   solid 1.00 border -1");
+    plot_write("set boxwidth 1 absolute");    
+    plot_write("unset key");
+    plot_write('set format x "%x"');
+    plot_write("plot ",1);
+    for(my $i = 0; $i<scalar(@{$address});$i++) {
+      plot_write("'-'  with points pt 5 ps 1 title \"$title->[$i]\" ",1); #using 2:xticlabels(1)
+      plot_write(", ",1) unless $i == scalar(@{$address})-1;
+      }
+    plot_write(""); 
+#     }
+  while(1) {
+    for(my $i = 0; $i<scalar(@{$address});$i++) {
+      my $c;
+      if ($regamount->[$i] == 1) {
+        $c = "trbcmd r $address->[$i] $register->[$i] | sort";  
+        }
+      else {
+        $c = "trbcmd rm $address->[$i] $register->[$i] $regamount->[$i] 0";  
+        }
+      my @out = qx($c);
+      my $addr = undef;
+      my $cnt = 0;
+      foreach my $s (@out) {
+        if($s =~ /^H:\s*0x(\w\w\w\w)/) {
+          $addr = $1;
+          }
+        if($s =~ /^0x(\w\w\w\w)\s*0x(\w{8})/) {
+          $addr = hex($1) if($regamount->[$i] == 1);
+          if ($regamount->[$i] == 1) { plot_add($addr,-1);  }
+          else {                       plot_add("\"$addr.$1\"",-1); }
+          for(my $j = $regoff->[$i]; $j < $regoff->[$i] + $regwidth->[$i];$j++) {
+            if(hex($2) & (1<<$j)) {
+              if ($regamount->[$i] == 1) { plot_add("$addr",$j);  }
+              else {                       plot_add("\"$addr.$1\"",$j); }
+              }          
+            }
+          $cnt++;
+          }
+        }
+      plot_end(1);
+      }
+    plot_sleep($delay);
+    }
+  }
+
+
+
+#################################################
+# Generic Register differences
+#################################################
+sub genreg {
+  my %oldvals;
+
+  plot_init(undef);  
+
+  if($xticks) {
+    plot_write("set xtics rotate by 90 offset .7,-1.7 scale .7 ");
+    }
+  if($curvestyle eq "histo") {
+    plot_write("set style fill   solid 1.00 border -1");
+    plot_write("set boxwidth 2 absolute");    
+    }
+  elsif($curvestyle eq "histostacked") {
+    plot_write("set style fill   solid 1.00 border -1");
+    plot_write("set style histogram rowstacked");
+    plot_write("set boxwidth 1 absolute");   
+    plot_write("set key outside") unless defined $key && $key==0; 
+    plot_write("set autoscale xfix ");    
+    }
+
+  plot_write("plot",1);
+  for(my $i = 0; $i<scalar(@{$address});$i++) {
+    plot_write("'-' ",NONEWLINE);
+    if($xticks) {
+			plot_write("using 2:xticlabels(1) ",NONEWLINE);
+			}
+    if(($curvestyle =~ /histo/)) {
+      plot_write("with histograms lt rgb \"$color[$i]\" title \"$title->[$i]\" ",NONEWLINE);
+      }
+    elsif ($curvestyle eq "steps") {      
+			plot_write("with histeps title \"$title->[$i]\" ",NONEWLINE);
+			}
+    else {
+      plot_write("with points pt 5 title \"$title->[$i]\" ",NONEWLINE);
+      }
+    plot_write(" ".$curveoption->[$i],NONEWLINE);
+    plot_write(", ",NONEWLINE) unless $i == scalar(@{$address})-1;
+    }
+  plot_write(""); 
+
+
+  while(1) {
+    for(my $i = 0; $i<scalar(@{$address});$i++) {
+      my $c;
+      my $cnt;
+      if (!(defined $regamount->[$i]) || $regamount->[$i] == 1) {
+        $c = "trbcmd r $address->[$i] $register->[$i] | sort";  
+        }
+      else {
+        $c = "trbcmd rm $address->[$i] $register->[$i] $regamount->[$i] 0";  
+        }
+      my @out = qx($c);
+      my $addr = undef;
+      foreach my $s (@out) {
+        if($s =~ /^H:\s*0x(\w\w\w\w)/) {
+          $addr = $1;
+          $cnt = -1;
+          }
+        if($s =~ /^0x(\w{4})\s*0x(\w{8})/) {
+          my $tmp = (hex($2)>>$regoffset->[$i])&(2**$regwidth->[$i]-1);
+          my $val = 0;
+          my $board = $1;
+          if(defined $addr) {$board = $addr;}
+          $cnt++;
+          my $reg   = $1;
+          if($ydiff) {
+						if(defined $oldvals{$i}->{$board.$reg}) {
+							if ($oldvals{$i}->{$board.$reg} > $tmp) {
+								$val = $tmp - $oldvals{$i}->{$board.$reg} + 2**$regwidth->[$i];
+								}
+							else {
+								$val = $tmp - $oldvals{$i}->{$board.$reg};
+								}
+							}
+						$oldvals{$i}->{$board.$reg} = $tmp;  
+						}
+				  else {
+						$val = $tmp;
+						}
+          if($xticks) {
+            if (!(defined $regamount->[$i]) || $regamount->[$i] == 1) {
+              plot_add("\"$board\"",$val/($yscale->[$i]||1));
+              }
+            else {
+              plot_add("\"$board.$reg\"",$val/($yscale->[$i]||1));
+              }
+            }
+          else {
+            plot_add("",$val/($yscale->[$i]||1));
+            }
+          }
+        }
+        plot_end(!$xticks);
+      }
+    plot_sleep($delay);
+    }    
+  }
+
+#################################################
+# Generic Histogram
+#################################################
+sub genhist {
+  my %storearr;
+  my %oldvals;
+#   $xtitle = "Time [s]" unless $xtitle ne "";
+  plot_init();
+  plot_write("set autoscale fix");
+  plot_write("plot",1);
+  $diff = 0 unless defined($diff);
+  for(my $i = 0; $i<scalar(@{$address});$i++) {
+    $storearr{$i} = {};
+    store_init($storearr{$i},$samples,DIFFX,$ydiff,$delay,$downscale,$xoverflow->[$i],$yoverflow->[$i]); 
+    plot_write("'-' with lines title \"$title->[$i]\" ",1);
+    plot_write(", ",1) unless $i == scalar(@{$address})-1;
+    }
+  plot_write(""); 
+  
+  while(1) {
+    my $a, my $s, my $t;
+    my $val = 0 , my $time;
+    plot_storage_reset($storearr{0});
+    for(my $i = 0; $i<scalar(@{$address});$i++) {
+      $val = 0;
+      my $c = "trbcmd rt $address->[$i] $register->[$i] | sort";
+      my @out = qx($c);
+      $time += $delay;
+      foreach my $o (@out) {
+        if (($a,$s,$t) = $o =~ /^0x(\w{4})\s*0x(\w{8})\s*0x(\w{4})/) {
+          $val  += ((hex($s)>>($regoffset->[$i]))&(2**($regwidth->[$i])-1));
+          $time = hex($t)*16;
+          }
+        }
+      store_push($storearr{$i},$time/$xscale->[$i],$val/($yscale->[$i]||1),AXISISTIME);
+      store_print($storearr{$i});
+      }
+    plot_storage_sleep($storearr{0});
+		plot_finished($storearr{0});
+    }
+  }
+
+#################################################
+# Deadtime histogram
+#################################################
+sub deadtimehist2 {
+  my %values, my %lastvalues, my %diffvalues;
+  my @keys  = ("33","34","36","31","38","37","3b","35");
+  my @keys2 = ("43","44","46","41","48","47","4b","45");
+  my @names = ("MDC12","MDC34","TOF","RPC","RICH","SHW","Start","FW");
+  my %storearr;
+  
+  if ($style != 0) {
+    for(my $i= 0; $i < scalar(@keys); $i++) {
+      $storearr{$keys[$i]} = {};  
+      store_init($storearr{$keys[$i]},$samples,0,0,$delay*.0,$downscale,2**32,2**32);
+      }
+    for(my $i= 0; $i < scalar(@keys2); $i++) {
+      $storearr{$keys2[$i]} = {};  
+      store_init($storearr{$keys2[$i]},$samples,0,0,$delay*.0,$downscale,2**32,2**32);
+      }
+    }
+  
+  plot_init();
+  plot_write("set key left top Left");
+  plot_write("set autoscale fix");
+  plot_write("set yrange [-1:101]");
+  
+  if ($style != 0) {
+    plot_write("plot ",1);
+    plot_write("\"-\" title \"MDC12\" with lines,",1);
+    plot_write("\"-\" title \"MDC34\" with lines,",1);
+    plot_write("\"-\" title \"TOF\" with lines,",1);  
+    plot_write("\"-\" title \"RPC\" with lines,",1);
+    plot_write("\"-\" title \"RICH\" with lines,",1);
+    plot_write("\"-\" title \"SHW\" with lines,",1);
+    plot_write("\"-\" title \"Start\" with lines,",1);
+    plot_write("\"-\" title \"FW\" with lines");
+    }
+  else {
+    plot_write("set style fill   solid 1.00 border -1");
+    plot_write("set grid noxtics ytics");
+    plot_write("set boxwidth 2 absolute");
+    plot_write("set xtics ('MDC12' 0,'MDC34' 1,'TOF' 2, 'RPC' 3, 'RICH' 4, 'SHW' 5, 'Start' 6, 'FW' 7) offset 2,0 scale 0");
+    plot_write("set style histogram title offset character 0, 0, 0");
+    plot_write("set style data histograms");
+    plot_write("plot \"-\" title 'incl. busy' lt rgb \"#1155bb\", \"-\" title 'excl. busy' lt rgb \"#bb1111\"");
+    }
+	my $cmd = sprintf("trbcmd -n-1 -s%d rmt 0x8001 0x4031 31 0",$delay/1000);
+	if($style != 0) {
+		$cmd =  sprintf("trbcmd -n-1 -s%d rmt 0x8001 0x4031 12 0",$delay/1000);
+		}
+	open(FTRB, "$cmd|");
+
+  while(my $a = <FTRB>) {
+    if($a =~ /^0x\w{2}(\w{2})\s*0x(\w{8})\s*0x(\w{4})/) {
+      $values{$1}   = hex($2);
+      $values{"50"} = hex($3)*16;
+      }
+    if ($a eq "---\n") {
+			$diffvalues{"50"} = 1E6;  
+			if (defined $lastvalues{"50"}) {
+				if ($values{"50"} > $lastvalues{"50"}) {
+					$diffvalues{"50"} = $values{"50"} - $lastvalues{"50"};
+					}
+				else {
+					$diffvalues{"50"} = $values{"50"} - $lastvalues{"50"} + 2**20;
+					}
+				}    
+			#$diffvalues{"50"} = $values{"50"} - $lastvalues{"50"} if defined $lastvalues{"50"};
+			my $time = $diffvalues{"50"};
+			foreach my $key (keys %values) { 
+				next unless hex($key)<0x50;
+				$diffvalues{$key} = 0;
+				if (defined $lastvalues{$key}) {
+					if ($values{$key} >= $lastvalues{$key}) {
+						$diffvalues{$key} = $values{$key} - $lastvalues{$key};
+						}
+					else {
+						$diffvalues{$key} = $values{$key} - $lastvalues{$key} + 2**32;
+						}
+					}
+				$diffvalues{$key} /= $time if $time;
+				#print $key." ".$values{$key}." ".$lastvalues{$key}." ".$diffvalues{$key}."\n";
+				}  
+			#print "=====\n";
+			$diffvalues{"31"} = max($diffvalues{"31"},$diffvalues{"32"});
+			$diffvalues{"38"} = max(max($diffvalues{"38"},$diffvalues{"39"}),$diffvalues{"3a"});
+			if ($style == 0) {
+				$diffvalues{"41"} = max($diffvalues{"41"},$diffvalues{"42"});
+				$diffvalues{"48"} = max(max($diffvalues{"48"},$diffvalues{"49"}),$diffvalues{"4a"});
+				}
+			%lastvalues = %values;
+			if($style != 0) {
+        plot_storage_reset($storearr{$keys[0]});
+				for(my $i= 0; $i < scalar(@keys); $i++) {
+					store_push($storearr{$keys[$i]},$time,$diffvalues{$keys[$i]},0);
+					store_print($storearr{$keys[$i]});
+					}
+				plot_storage_sleep($storearr{$keys[0]},1);      
+				plot_finished($storearr{$keys[0]});
+        }
+			else {
+        plot_reset();
+				for(my $i= 0; $i < scalar(@keys); $i++) {    
+					plot_add("",$diffvalues{$keys[$i]});  #"\"".$names[$i]."\"",
+					}
+				plot_end(1);  
+				for(my $i= 0; $i < scalar(@keys2); $i++) {    
+					plot_add("",$diffvalues{$keys2[$i]});  #"\"".$names[$i]."\"",
+					}
+				plot_end(1);
+				plot_finished();
+        }
+			}
+    }
+  } 
+
+
+#################################################
+# Select Operation
+#################################################
+
+if(!(defined $ARGV[0])  || $ARGV[0] =~ /help/) {help(); exit;}
+
+if($ARGV[0] =~ /oep5V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x8010,0x8011];
+  $regwidth    = [12,12];
+  $regoffset   = [0,0];
+  $yscale      = [.5,.5];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["5.8V input","5V reg."];
+  genreg();
+  }
+
+if($ARGV[0] =~ /oep3.3V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x8012,0x8013];
+  $regwidth    = [12,12];
+  $regoffset   = [0,0];
+  $yscale      = [1,1];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["3.8V input","3.3V reg."];
+  genreg();
+  }
+
+if($ARGV[0] =~ /oep1.2V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x8014,0x8015];
+  $regwidth    = [12,12];
+  $regoffset   = [0,0];
+  $yscale      = [1,1];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["1.8V input","1.2V reg."];
+  genreg();
+  }
+
+if($ARGV[0] =~ /oep3V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x8016,0x8017];
+  $regwidth    = [12,12];
+  $regoffset   = [0,0];
+  $yscale      = [1,1];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["+3V input","-3V reg."];
+  genreg();
+  }
+
+if($ARGV[0] =~ /oepminmaxp3V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x801e,0x801e];
+  $regwidth    = [12,12];
+  $regoffset   = [0,16];
+  $yscale      = [1,1];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["+3V minimum","+3V maximum"];
+  genreg();
+  }  
+
+if($ARGV[0] =~ /oepminmaxn3V/) {
+  $address     = [0xfffd,0xfffd];
+  $register    = [0x801f,0x801f];
+  $regwidth    = [12,12];
+  $regoffset   = [0,16];
+  $yscale      = [1,1];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["-3V minimum","-3V maximum"];
+  genreg();
+  }    
+
+if($ARGV[0] =~ /oepminmax5Vin/) {
+  $address     = [0xfffd,0xfffd,0xfffd];
+  $register    = [0x8018,0x8018,0x8010];
+  $regwidth    = [12,12,12];
+  $regoffset   = [0,16,0];
+  $yscale      = [.5,.5,.5];
+  $xtitle      = "Board";
+  $ytitle      = "Voltage [mV]";
+  $key         = YES;
+  $windowname  = "OEP Voltages";
+  $title       = ["5Vin minimum","5Vin maximum","5Vin"];
+  genreg();
+  }    
+  
+if($ARGV[0] =~ /oeptemp/) {
+  oeptemp(($delay)?$delay:5000000,[$name." - OEP Temperature"]);
+  }
+
+
+if($ARGV[0] =~ /rpcdatarate/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 ;
+	$xtitle      = "Sender ((Sector mod 3)*4+TRB)";
+	$ytitle      = "Data Words /1024";
+  $windowname  = "Data Words sent by RPC";
+  $curvestyle  = "histo";
+  $key         = YES;
+  $ydiff       = DIFFY;
+  $ymin        = 0;
+  $yscale      = [512,512];
+  $address     = [0x8401,0x8411];
+  $register    = [0x4001,0x4001];
+  $regamount   = [12,12];
+  $title       = ["Sector 0,1,2","Sector 3,4,5"];
+  $regoffset   = [0,0];
+  $regwidth    = [32,32]; 
+  genreg();
+  }
+
+#hadplot -a 2 -r 1 -p 0 -w 16 -d 5 -o 200 -n 1000 -yoverflow 65536 genhistdiff
+
+if($ARGV[0] =~ /eventratehighres/) {
+  $delay       = 5000 ; #unless $delay;
+  $samples     = 1000; # unless $samples;
+  $downscale   = 200;#  unless $downscale;
+#   $style       = 0 unless $style;
+  $windowname  = "Eventrate High Resolution";
+  $xistime     = AXISISTIME;
+  $ydiff       = DIFFY;
+  $xoverflow   = [2**20];
+  $title       = ["Event rate"];
+  $address     = [0x2];
+  $register    = [0x1];
+  $regoffset   = [0];
+  $regwidth    = [16];
+  $yoverflow   = [65536];
+  genhist();
+  } 
+  
+  
+if($ARGV[0] =~ /eventrate/) {
+  $address     = [0x2];
+  $register    = [0x1];
+  $regwidth    = [16];
+  $regoffset   = [0];
+  $timeref     = [0x2];
+  $delay       = 100000 unless $delay;
+  $samples     = 500    unless $samples;
+  $downscale   = 10     unless $downscale;
+  $windowname  = "Event rate history"; 
+  $key         = NO;
+	$ytitle      = "Event rate [Hz]" if $ytitle eq "";
+	$xistime     = AXISISTIME;
+	$ydiff       = DIFFY;
+	$xoverflow   = [2**20];
+	$yoverflow   = [2**16] unless $yoverflow->[0] != 2**32;
+	genhist();
+  }
+
+if($ARGV[0] =~ /datarate/) {
+  $address     = [0xff7f];
+  $register    = [0x83f3];
+  $regwidth    = [32];
+  $regoffset   = [0];
+  $timeref     = [0x8000];
+  $delay       = 100000 unless $delay;
+  $samples     = 500    unless $samples;
+  $downscale   = 5      unless $downscale;
+  $windowname  = "Total data rate history"; 
+	$xtitle      = "Time [s]" unless defined $xtitle;
+	$ytitle      = "Data rate [MiByte]" unless defined $ytitle;
+	$xistime     = AXISISTIME;
+	$ydiff       = DIFFY;
+	$xoverflow   = [2**20];
+	$yoverflow   = [2**12];
+	$yscale      = [2**20];
+	$key         = NO;
+	genhist();
+  }  
+
+if($ARGV[0] =~ /busytime/) {
+  $delay       = 100000 unless $delay;
+  $samples     = 100    unless $samples;
+  $downscale   = 5      unless $downscale;
+  $style       = 1;
+  $windowname  = "Busytime history";
+  deadtimehist2();
+  }  
+
+if($ARGV[0] =~ /busy/) {
+  $delay       = 100000 unless $delay;
+  $style       = 0;
+  $windowname  = "Busy time";
+  deadtimehist2();
+  }
+
+if($ARGV[0] =~ /oepspikehist/) {
+  $delay       = 100000 unless $delay;
+  $samples     = 1000 unless $samples;
+  $downscale   = 10   unless $downscale;
+#   $style       = 0 unless $style;
+  $windowname  = "OEP CMS Spikes";
+  $ydiff       = DIFFY;
+  $title       = ["OEP CMS Spikes"];
+  $address     = [0xfffd];
+  $register    = [7];
+  $regoffset   = [0];
+  $regwidth    = [16];
+  genhist();
+  } 
+
+if($ARGV[0] =~ /oepretrhist/) {
+  $delay       = 500000 unless $delay;
+  $samples     = 600 unless $samples;
+  $downscale   = 2   unless $downscale;
+  $style       = 0 unless $style;
+  $windowname  = "OEP Retransmissions";
+  $ydiff       = DIFFY;
+  $title       = ["Retransmit Received","Retransmit Sent"];
+  $address     = [0xfffd,0xfffd];
+  $register    = [4,4];
+  $regoffset   = [16,24];
+  $regwidth    = [8,8];
+  genhist();
+  }
+
+if($ARGV[0] =~ /oeptokenmisshist/) {
+  $delay       = 500000 unless $delay;
+  $samples     = 2000 unless $samples;
+  $downscale   = 4   unless $downscale;
+  $style       = 0 unless $style;
+  $windowname  = "OEP Token Missing";
+  $ydiff       = DIFFY;
+  $title       = ["Missing Tokens"];
+  $address     = [0xfffd];
+  $register    = [0x9101];
+  $regoffset   = [0];
+  $regwidth    = [24];
+  genhist();
+  } 
+
+  
+if($ARGV[0] =~ /oeptrgerrhist/) {
+  $delay       = 500000 unless $delay;
+  $samples     = 2000 unless $samples;
+  $downscale   = 2   unless $downscale;
+  $style       = 0 unless $style;
+  $windowname  = "OEP CMS Errors";
+  $ydiff       = DIFFY;
+  $title       = ["Spikes","Spurious","Invalid","Multiple"];
+  $address     = [0xfffd,0xfffd,0xfffd,0xfffd];
+  $register    = [7,7,6,6];
+  $regoffset   = [0,16,0,16];
+  $regwidth    = [16,16,16,16];  
+  genhist();
+  } 
+
+
+if($ARGV[0] =~ /histdiff/) {
+  $delay       = 1000000 unless $delay;
+  $samples     = 200 unless $samples;
+  $downscale   = 1   unless $downscale;
+  $style       = 0 unless $style;
+  $ydiff       = DIFFY;
+  genhist();
+  } 
+
+if($ARGV[0] =~ /hist/) {
+  $delay       = 1000000 unless $delay;
+  $samples     = 200 unless $samples;
+  $downscale   = 1   unless $downscale;
+  $style       = 0   unless $style;
+  $ydiff       = NODIFFY;
+  genhist();
+  } 
+
+if($ARGV[0] =~ /oepworktime/) {
+  $delay       = 1000000 unless $delay;
+	$curvestyle  = "histostacked";
+	$xticks      = 0 unless $xticks;
+	$ymax        = $delay*1.1/1000;
+	$yscale      = [1000];
+	$xtitle      = "OEP";
+	$ytitle      = "Time [ms]";
+  $windowname  = "OEP Trigger Handling Times";
+  $ydiff       = DIFFY;
+  $title       = ["Readout","Waiting","Initialization","Calibration","Idle"];
+  $address     = [0xfffd,0xfffd,0xfffd,0xfffd,0xfffd];
+  $register    = [0x9113,0x9114,0x9111,0x9112,0x9110];
+  $regoffset   = [0,0,0,0,0];
+  $regwidth    = [32,32,32,32,32]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /gberate/) {
+  $delay       = 1000000 unless $delay;
+	$curvestyle  = "histostacked";
+	$xticks      = 1 unless $xticks;
+	$xtitle      = "Sender";
+	$ytitle      = "Data Rate (kiB)" if $ytitle eq "";
+  $windowname  = "Gbe Data Rate";
+  $key         = NO;
+  $ydiff       = DIFFY;
+  $xgrid       = NO;
+  $address     = [0xff7f];
+  $register    = [0x83f3];
+  $regoffset   = [10];
+  $regwidth    = [22]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /oepwords/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 unless defined $xticks;
+	$xtitle      = "Sender";
+	$ytitle      = "Data Words";
+  $windowname  = "Data Words sent by OEP";
+  $yscale      = [1];
+  $key         = NO;
+  $ydiff       = DIFFY;
+  $address     = [0xfffd];
+  $register    = [0x910B];
+  $regoffset   = [0];
+  $regwidth    = [32]; 
+  genreg();
+  }
+
+
+if($ARGV[0] =~ /mdcchan/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1;
+	$xtitle      = "Sender";
+	$ytitle      = "Data Words";
+  $windowname  = "Data words per TDC channel";
+  $yscale      = [1];
+  $key         = NO;
+  $ydiff       = NODIFFY;
+  if ($ARGV[0] =~ /diff/) {
+		$ydiff       = DIFFY;
+		}
+  $address     = [$address->[0]?$address->[0]:0xfffd];
+  $register    = [0xc088];
+  $regamount   = [96];
+  $regoffset   = [0];
+  $regwidth    = [32]; 
+  genreg();
+  }
+
+
+if($ARGV[0] =~ /regdiff/) {
+  $delay       = 1000000 unless $delay;
+# 	$xticks      = 1 unless $xticks;
+  $ydiff       = DIFFY;
+#   $key         = NO unless defined $key;
+  $windowname  = "General Plot" unless $windowname;
+  genreg();
+  }
+
+if($ARGV[0] =~ /reg/) {
+  $delay       = 1000000 unless $delay;
+# 	$xticks      = 1 unless $xticks;
+  $ydiff       = NODIFFY;
+#   $key         = NO unless defined $key;
+  $windowname  = "General Plot" unless $windowname;
+  genreg();
+  }
+
+if($ARGV[0] =~ /oeptrgerr/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 unless defined $xticks;
+	$xtitle      = "Board";
+	$ytitle      = "# of errors";
+  $windowname  = "OEP CMS Errors";
+  $key         = YES;
+  $ydiff       = NODIFFY;
+  $title       = ["Spikes","Spurious","Invalid","Multiple"];
+  $address     = [0xfffd,0xfffd,0xfffd,0xfffd];
+  $register    = [7,7,6,6];
+  $regoffset   = [0,16,0,16];
+  $regwidth    = [16,16,16,16]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /oepfill/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 unless defined $xticks;
+	$xtitle      = "Board";
+	$ytitle      = "Words in Buffer";
+  $windowname  = "OEP Buffer Fill Level";
+  $key         = NO;
+  $ydiff       = NODIFFY;
+  $address     = [0xfffd];
+  $register    = [0x7100];
+  $regoffset   = [0];
+  $regwidth    = [16]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /showerfill/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 unless defined $xticks;
+	$xtitle      = "Board";
+	$ytitle      = "Words in Buffer";
+  $windowname  = "Shower Data Buffer Fill Level";
+  $key         = $key || NO;
+  $ydiff       = NODIFFY;
+  $address     = [0xfff7,0xfff7,0xfff7,0xfff7,0xfff7,0xfff7];
+  $register    = [0x7100,0x7101,0x7102,0x7103,0x7104,0x7105];
+  $regoffset   = [0,0,0,0,0,0];
+  $regwidth    = [16,16,16,16,16,16]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /filllevel/) {
+  $delay       = 1000000 unless $delay;
+	$xticks      = 1 unless defined $xticks;
+	$xtitle      = "Board";
+	$ytitle      = "Words in Buffer";
+  $windowname  = "Front-end Data Buffer Fill Level";
+  $key         = NO;
+  $ydiff       = NODIFFY;
+  $address     = [0xffff,0xffff,0xffff,0xffff,0xffff,0xffff];
+  $register    = [0x7100,0x7101,0x7102,0x7103,0x7104,0x7105];
+  $regoffset   = [0,0,0,0,0,0];
+  $regwidth    = [16,16,16,16,16,16]; 
+  genreg();
+  }
+
+if($ARGV[0] =~ /oepretr/) {
+  $delay       = 1000000 unless $delay;
+  $windowname  = "OEP Retransmissions";
+  $key         = YES;
+  $ydiff       = NODIFFY;
+  $title       = ["Retransmit Received","Retransmit Sent"];
+  $address     = [0xfffd,0xfffd];
+  $register    = [4,4];
+  $regoffset   = [16,24];
+  $regwidth    = [8,8];
+  genreg();
+  }
+
+if($ARGV[0] =~ /timecmslvl1/) {
+  $delay       = 1000000 unless $delay;
+  $windowname  = "Trigger Delay";
+  $key         = NO;
+  $ydiff       = NODIFFY;
+  $ytitle      = "Time between CMS and LVL1 [10ns]";
+  $address     = [0xfffd];
+  $register    = [2];
+  $regoffset   = [16];
+  $regwidth    = [11];
+  genreg();
+  }
+
+if($ARGV[0] =~ /oeptokenmiss/) {
+  $delay       = 1000000 unless $delay;
+  $windowname  = "OEP Token Missing";
+  $key         = NO;
+  $ydiff       = NODIFFY;
+  $ytitle      = "# of missing token";
+  $address     = [0xfffd];
+  $register    = [0x9101];
+  $regoffset   = [0];
+  $regwidth    = [24];
+  genreg();
+  }
+
+if($ARGV[0] =~ /slowcontrolrate/) {
+  $delay       = 1000000 unless $delay;
+  $samples     = 240 unless $samples;
+  $downscale   = 1   unless $downscale;
+  $style       = 0 unless $style;
+  $windowname  = "Slow Control Data Rate";
+  $ydiff       = DIFFY;
+  $ytitle      = "Slow Control Data / kByte/s";
+  $address     = [0x8000];
+  $register    = [0x4012];
+  $regoffset   = [0];
+  $regwidth    = [32];  
+  $yscale      = [102.4];
+  genhist();
+  } 
+
+
+
+if($ARGV[0] =~ /commonstatus/) {
+  bitmap(($delay)?$delay:1000000,[0xffff],[0],[1],[0],[20],["Common Status Bits"],0,$name." - Common Status Bit");
+  } 
+if($ARGV[0] =~ /genbit/ || $ARGV[0] =~ /bitmap/) {
+  bitmap(($delay)?$delay:1000000,$address,$register,$regamount,$regoffset,$regwidth,$title,$style,$name." - ".$windowname);
+  }   
+
diff --git a/tools/loadregisterdb.pl b/tools/loadregisterdb.pl
new file mode 100755
index 0000000..07e096c
--- /dev/null
+++ b/tools/loadregisterdb.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl -w
+use warnings;
+
+use FileHandle;
+use Getopt::Long;
+use Data::Dumper;
+
+my $cmd;
+my $reglist = {};
+
+open FILE, "$ARGV[0]" or die $!."\nFile name required.";
+
+while (my $a = <FILE>) { 
+  if(my ($set,$str) = $a =~ /^\s*(\d+)\s*((0x\w\w\w\w\s*)*)/) {
+    my @vals = split(/\s+/,$str);
+    my $i = 0;
+    foreach my $t (@vals) {
+       print "$t\n";
+      if($t =~ /0x(\w\w\w\w)/) {
+        $reglist->{$set}->{$i++}=$1;
+        }
+      }
+    }
+#0x2000       1     0x38     0x38     0x38     0x38     0x38     0x38
+  if(my ($addr,$set,$str) = $a =~ /^\s*0x(\w\w\w\w)\s+(\d)+((\s+0x\w+)+)/) {
+      print "$addr : $set : $str\n";
+    my @vals = split(/\s+/,$str);
+    shift(@vals) if($vals[0] eq '');
+    my $i = 0;
+    #print Dumper \@vals;
+    foreach my $t (@vals) {
+      if($t =~ /0x(\w+)/) {
+        $cmd .= "trbcmd w 0x$addr 0x$reglist->{$set}->{$i++} $t\n";
+	#print "cmd: $cmd\n";
+        }
+      }
+    }
+  }
+
+# print Dumper $reglist;
+
+#     if($2==1) {
+# #       printf("%4x\t%1d\t%2x %2x %2x %2x\n",hex($1),$2,hex($3),hex($4),hex($5),hex($6));
+# #       $cmd .= sprintf("trbcmd w 0x%04x 0xa049 0x%02x\n",hex($1),hex($3));
+# #       $cmd .= sprintf("trbcmd w 0x%04x 0xa04b 0x%02x\n",hex($1),hex($4));
+# #       $cmd .= sprintf("trbcmd w 0x%04x 0xa04d 0x%02x\n",hex($1),hex($5));
+# #       $cmd .= sprintf("trbcmd w 0x%04x 0xa04f 0x%02x\n",hex($1),hex($6));
+#       }
+#     if($2==2) {
+# #       printf("%4x\t%1d\t%2x %2x %2x %2x %2x %2x\n",hex($1),$2,hex($3),hex($4),hex($5),hex($6),hex($8),hex($10));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0cd 0x%02x\n",hex($1),hex($3));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0cf 0x%02x\n",hex($1),hex($4));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0d1 0x%02x\n",hex($1),hex($5));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0d3 0x%02x\n",hex($1),hex($6));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0d5 0x%02x\n",hex($1),hex($8));
+#       $cmd .= sprintf("trbcmd w 0x%04x 0xa0d7 0x%02x\n",hex($1),hex($10));
+#       }
+
+  
+#$cmd .= "trbcmd w 0xfffd 0x20 0x200\n";
+# print $cmd;
+system($cmd);
+system("logger -p local1.info -t DAQ MDC \\<N\\> Loaded settings from file $ARGV[0]");
+print "Done.\n\n";