First start-up script for TrbNet settings

diff --git a/tools/start.pl b/tools/start.pl
new file mode 100755 (executable)
index 0000000..55a23d9
--- /dev/null
+++ b/tools/start.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl
+
+use warnings;
+use File::chdir;
+use XML::LibXML;
+use Getopt::Long;
+use Data::Dumper;
+use FileHandle;
+use Pod::Usage;
+$Data::Dumper::Terse = 1;
+$Data::Dumper::Useqq = 0;
+
+use FindBin;
+use lib "$FindBin::Bin/..";
+use Environment;
+use HADES::TrbNet;
+trb_init_ports() or die trb_strerror();
+
+sub trb_write {
+  my($a,$r,$v) = @_;
+  trb_register_write($a,$r,$v) or print trb_strerror();
+  }
+
+#Set addresses
+print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_hub.db ".CONFIGPATH."/network/addresses_hub.db");
+print "\n";
+print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_mapsaddon.db ".CONFIGPATH."/network/addresses_mapsaddon.db");
+print "\n";
+print(DAQTOOLSPATH."/tools/merge_serial_address.pl ".CONFIGPATH."/network/serials_arbiter.db ".CONFIGPATH."/network/addresses_arbiter.db");
+print "\n";
+
+
+#Set GbE Configuration
+print(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_mvd.db");
+print "\n";
+print(DAQTOOLSPATH."/tools/loadregisterdb.pl ".CONFIGPATH."/network/register_configgbe_ip_mvd.db");
+print "\n";
+
+trb_write(0xff7f,0x8000,0x8000);
+trb_write(0xff7f,0x8000,0x0000);
+
+
+trb_write(0xfffe,0x00c5,0x20ff);   #Timeouts
+
+
+trb_write(0x8c00,0x00c0,0xffff);   #Enable ports of Hub2
+trb_write(0x8c00,0x00c1,0xffff);
+trb_write(0x8c00,0x00c3,0xffff);
+trb_write(0x8c01,0x00c0,0xffff);
+trb_write(0x8c01,0x00c1,0xffff);
+trb_write(0x8c01,0x00c3,0xffff);
+
+trb_write(0xf30c,0x00c0,0x00f0);   #No trigger for TRB3 ROC a.t.m.
+trb_write(0xf30c,0x00c1,0x00f0);
+
+
+#Set Sensor IDs
+trb_write(0xc002,0x00c1,0xccc1ccc0);
+
+#Set JTAG switches
+trb_write(0xc002,0x00c2,0x00000000);
+
+#Send arbiter start signal
+trb_write(0xf30c,0xa000,0x00000001);
\ No newline at end of file