From: hadeshyp <hadeshyp>
Date: Mon, 8 Oct 2012 14:04:57 +0000 (+0000)
Subject: Timestamp in RO
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=adb1226a802be697c5a2350f53fc3a674f9f09e1;p=daqtools.git

Timestamp in RO
---

diff --git a/cts/CtsPlugins/CtsMod60.pm b/cts/CtsPlugins/CtsMod60.pm
new file mode 100644
index 0000000..1a259b2
--- /dev/null
+++ b/cts/CtsPlugins/CtsMod60.pm
@@ -0,0 +1,44 @@
+# Module: CBM Module
+# 
+
+package CtsMod60;
+
+@ISA = (CtsBaseModule);
+
+use warnings;
+use strict;
+
+sub moduleName {"CBM"}
+
+sub init {
+   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'}{0x60}->read();
+   
+   $regs->{'trg_cbm_status'} = new TrbRegister($address + 1, $trb, {
+         'value' => {'lower' =>  0, 'len' => 32, 'type' => 'hex'},
+      }, {
+         'accessmode' => "ro",
+         'label' => "CBM Status Register",
+         'monitor' => '1'
+      });
+
+   $regs->{'trg_cbm_control'} = new TrbRegister($address + 2, $trb, {},
+      {
+         'accessmode' => "rw",
+         'label' => "CBM Control Register",
+         'monitor' => '1',
+         'export' => 1
+      });
+
+   $self->{'_cts'}->getProperties->{'itc_assignments'}[$header->{'itc_base'}] = "Ext. Logic - CBM";
+}
+
+1;
\ No newline at end of file