From: Jan Michel Date: Fri, 22 Jul 2016 12:41:30 +0000 (+0200) Subject: add MVD CTS module X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=5794baffe97aca26cb93d7cdbe0a74c947a23ea9;p=daqtools.git add MVD CTS module --- diff --git a/tools/determine_noiseband_dirich.pl b/tools/determine_noiseband_dirich.pl index 9524268..3b80d3a 100755 --- 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 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;