]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
add register definition for CTS on TRB3sc
authorJan Michel <j.michel@gsi.de>
Tue, 15 Jan 2019 13:39:06 +0000 (14:39 +0100)
committerJan Michel <j.michel@gsi.de>
Tue, 15 Jan 2019 13:39:25 +0000 (14:39 +0100)
web/CtsPlugins/CtsMod16.pm [new file with mode: 0644]

diff --git a/web/CtsPlugins/CtsMod16.pm b/web/CtsPlugins/CtsMod16.pm
new file mode 100644 (file)
index 0000000..71613cc
--- /dev/null
@@ -0,0 +1,62 @@
+# Module: Unified AddOn Module for TRB3sc with KEL connectors
+package CtsMod16;
+
+@ISA = (CtsBaseModule);
+
+use warnings;
+use strict;
+use TrbRegister;
+use Data::Dumper;
+
+sub moduleName {"AddOn Input Multiplexer"}
+
+sub init {
+   my $self    = $_[0];
+   my $address = $_[1];
+   
+   my $trb  = $self->{'_cts'}{'_trb'};
+   
+   my $regs = $self->{'_registers'};
+   my $prop = $self->{'_properties'};
+   
+   my $cprop = $self->{'_cts'}{'_properties'};
+   my $header = $self->{'_cts'}{'_enum'}{0x16}->read();
+
+   print "Trigger Modules 0x12 and 0x16 cannot be instantiated in the same design\n" if exists $self->{'_cts'}{'_enum'}{0x12};
+   
+# registers
+   for(my $i = 0; $i < $header->{'len'}; $i++) {
+      my $key = "trg_input_mux$i";
+      
+      $regs->{$key} = new TrbRegister($address + 1 + $i, $trb, {
+         'input'  => {'lower' =>  0, 'len' => 7, 'type' => 'enum', 'enum' => 
+            {
+              0 => 'trig_rj[3]', 1 => 'trig_rj[4]', 
+              42 => 'int_trg[0]', 43 => 'int_trg[1]'
+            }
+         }
+      }, {
+         'accessmode' => "rw",
+         'export'     => 1,
+         'monitor' => '1',
+         'label' => "Input Multiplexer $i"
+      });
+      
+      my $chanStart = 2;
+      for(my $k=0; $k<40; $k++) {
+        $regs->{$key}{'_defs'}{'input'}{'enum'}{$k+$chanStart} = "kel[$k]";
+        }
+
+   }
+   
+
+   for(my $i = 0; $i < $header->{'itc_len'}; $i++) {
+      $self->{'_cts'}->getProperties->{'itc_assignments'}[$i + $header->{'itc_base'}] = "AddOn Multiplexer $i";
+   }
+
+# properties
+   $prop->{"trg_inp_mux_count"} = $header->{'len'};
+   $prop->{"trg_inp_mux_itc_base"} = $header->{'itc_base'};
+}
+
+1;