Update Frankfurt test scripts and configs

diff --git a/users/frankfurt_test/register_configgbe.db b/users/frankfurt_test/register_configgbe.db
index 1010382fb0df40034e6516d69facbe0e9641a333..b0e62678bf575deaff50a0493551e726d1b4d61b 100755 (executable)
--- a/users/frankfurt_test/register_configgbe.db
+++ b/users/frankfurt_test/register_configgbe.db
@@ -20,6 +20,7 @@
   0xc000      0       0x8000        1            1        0xffffff         1
   0xc002      0       0xc002        1            0        0xffffff         1
   0xc148      0       0xc148        1            0        0xffffff         1
+  0x83cc      0       0x83cc        1            0        0xffffff         1
 
   
 

diff --git a/users/frankfurt_test/register_configgbe_ip.db b/users/frankfurt_test/register_configgbe_ip.db
index acca3c72e36c2da6796849704a43a58cb2cbead3..d2756bca3bc6d361aad61465e7d8ea4a17f8ab46 100755 (executable)
--- a/users/frankfurt_test/register_configgbe_ip.db
+++ b/users/frankfurt_test/register_configgbe_ip.db
@@ -36,6 +36,7 @@
  0xc000        0    0x546C5E8B     0x0008      0xc0a800fe      0xc351     0xc350
  0xc002        0    0x546C5E8B     0x0008      0xc0a800fe      0xc362     0xc350
  0xc148        0    0x546C5E8B     0x0008      0xc0a800fe      50148      0xc350
+ 0x83cc        0    0x546C5E8B     0x0008      0xc0a800fe      50030      0xc350
 
 
 

diff --git a/users/frankfurt_test/spi.pl b/users/frankfurt_test/spi.pl
new file mode 100755 (executable)
index 0000000..06f6a83
--- /dev/null
+++ b/users/frankfurt_test/spi.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+
+use warnings;
+use HADES::TrbNet;
+use Dmon;
+use Data::Dumper;
+
+
+trb_init_ports() or die trb_strerror();
+
+my $s = Dmon::PadiwaSendCmd(0x1a804444,0x1000,0);
+
+foreach my $k (keys $s) {
+  printf("%04x %08x\n",$k,$s->{$k});
+  }
+
+sleep 1;
+$s = Dmon::PadiwaSendCmd(0x20800000,0x1000,0);
+
+foreach my $k (keys $s) {
+  printf("%04x %08x\n",$k,$s->{$k});
+  }
+
+sleep 1;
+$s = Dmon::PadiwaSendCmd(0x1a80000a,0x1000,0);
+
+foreach my $k (keys $s) {
+  printf("%04x %08x\n",$k,$s->{$k});
+  }
+
+sleep 1;
+
+$s = Dmon::PadiwaSendCmd(0x21800000,0x1000,0);
+
+foreach my $k (keys $s) {
+  printf("%04x %08x\n",$k,$s->{$k});
+  }
+
+sleep 1;
+
+$s = Dmon::PadiwaSendCmd(0x1a000000,0x1000,0);
+
+foreach my $k (keys $s) {
+  printf("%04x %08x\n",$k,$s->{$k});
+  }
+
+#f3d1

diff --git a/users/frankfurt_test/startup.sh b/users/frankfurt_test/startup.sh
index 29b287b62b706470eaa3c4944734925bca71e8ae..652b4658aecd3c974c0acbab00de82dc4391eb3f 100755 (executable)
--- a/users/frankfurt_test/startup.sh
+++ b/users/frankfurt_test/startup.sh
@@ -50,12 +50,17 @@ trbcmd s  0x58000007125dbc28  0x01 0xf3d2
 #ADC AddOn
 trbcmd s  0x7a0000050df02428  0x01 0xf4cc
 
+trbcmd s 0x820000050dec0a28 0x01 0x83cc
+
+
 echo "Hubs"
 trbcmd w 0xfffe 0xc5 0x50ff
 trbcmd w 0xfc00 0xc5 0x50ff
 
-#trbcmd w 0x8000 0xc0 0x0fef
-#trbcmd w 0x8000 0xc1 0x0fef
+trbcmd w 0xc000 0xc0 0x0ffb
+trbcmd w 0xc000 0xc1 0x0ffb
+trbcmd w 0xc000 0xc3 0x0ffb
+
 
 ../../tools/loadregisterdb.pl register_configgbe.db
 ../../tools/loadregisterdb.pl register_configgbe_ip.db