add MVD CTS module

diff --git a/tools/determine_noiseband_dirich.pl b/tools/determine_noiseband_dirich.pl
index 952426882bb13c56f12081e3f3dccd75aa95e0a3..3b80d3a2c2a13e42c8aa671c34b9f129d3e0f7ce 100755 (executable)
--- a/tools/determine_noiseband_dirich.pl
+++ b/tools/determine_noiseband_dirich.pl
@@ -5,11 +5,15 @@ use HADES::TrbNet;
 use Time::HiRes qw(usleep);
 use Data::Dumper;
 
-my $dirich = 0x1200;
+my $dirich = 0xf3d1;
 my $throffset = 0xa000;
 my $monitor = 0xdfc0;
 
+<<<<<<< Updated upstream
 my $last_channel = 31;
+=======
+my $last_channel = 28;
+>>>>>>> Stashed changes
 
 my $default_threshold = 0x4000;
 
@@ -41,13 +45,16 @@ for my $channel (0 .. $last_channel) {
 
     my $hit_zero_diff_flag = 0;
 
-    my $lower_threshold = 0x6e00;
-    my $upper_threshold = 0xd000;
+    my $lower_threshold = 0x6800;
+    my $upper_threshold = 0xa000;
     my $reasonable_upper_threshold = 0x8000;
     my $thresh_increment = 0x40;
+#  trb_register_write($dirich, $throffset + $channel , $lower_threshold);
+#  usleep(1e6);
     
   THRESH_LOOP:    for (my $thresh = $lower_threshold ; $thresh <= $upper_threshold; $thresh += $thresh_increment) {
       trb_register_write($dirich, $throffset + $channel , $thresh);
+#      usleep(100E3);
       undef $rh_res;
       my @hits = ();
       foreach (1..2) {

diff --git a/web/CtsPlugins/CtsMod63.pm b/web/CtsPlugins/CtsMod63.pm
new file mode 100644 (file)
index 0000000..2251e4d
--- /dev/null
+++ b/web/CtsPlugins/CtsMod63.pm
@@ -0,0 +1,28 @@
+# Module: CBM DLM ETM
+# 
+
+package CtsMod63;
+
+@ISA = (CtsBaseModule);
+
+use warnings;
+use strict;
+
+sub moduleName {"M26 MVD ETM"}
+
+sub init {
+return;
+   my $self    = $_[0];
+   my $address = $_[1];
+   
+   my $trb  = $self->{'_cts'}{'_trb'};
+   
+   my $regs = $self->{'_registers'};
+   my $expo = $self->{'_exportRegs'};
+   my $prop = $self->{'_properties'};
+
+   my $header = $self->{'_cts'}{'_enum'}{0x63}->read();
+   
+}
+
+1;