From 38bed5b607a55f7f30f5d000c06206e858f87f76 Mon Sep 17 00:00:00 2001
From: Michael Traxler <hadaq@kp1pc105.gsi.de>
Date: Mon, 28 Oct 2013 16:16:27 +0100
Subject: [PATCH] Up to 90

---
 base/addresses_trb3.db         |  7 ++++++
 base/serials_trb3.db           | 17 ++++++++++----
 tools/generate_serial_table.pl | 42 ++++++++++++++++++++++++++++++++++
 3 files changed, 61 insertions(+), 5 deletions(-)
 create mode 100755 tools/generate_serial_table.pl

diff --git a/base/addresses_trb3.db b/base/addresses_trb3.db
index 17b7f36..a621652 100644
--- a/base/addresses_trb3.db
+++ b/base/addresses_trb3.db
@@ -470,3 +470,10 @@
 0xc002 	    89	   2
 0xc003 	    89	   3
 0x8000      89     5
+
+0xc000 	    90     0
+0xc001 	    90 	   1
+0xc002 	    90	   2
+0xc003 	    90	   3
+0x8000      90     5
+
diff --git a/base/serials_trb3.db b/base/serials_trb3.db
index 8edc56b..4d678ee 100644
--- a/base/serials_trb3.db
+++ b/base/serials_trb3.db
@@ -442,11 +442,11 @@
    0733        0xfb000003134d3328
    0735        0xdd0000031324e328
 
-#  0740        power supply error
-#  0741        
-#  0742        
-#  0743        
-#  0745        
+   0740        0x6800000313245528
+   0741        0x6e00000313246028
+   0742        0xa700000313245f28
+   0743        0x3100000313245628
+   0745        0x010000031323a828
 
    0750        0x25000003131f8928
    0751        0xe5000003131f7f28
@@ -537,3 +537,10 @@
    0892       0x0500000313102728 
    0893       0x5c00000313102428 
    0895       0xa4000003131fa828  
+
+   0900	      0xa50000046f398628
+   0901	      0x810000046f398928
+   0902	      0x220000046f399228
+   0903	      0x290000046f075428
+   0905	      0x2f0000046f397d28
+
diff --git a/tools/generate_serial_table.pl b/tools/generate_serial_table.pl
new file mode 100755
index 0000000..ae6fbc8
--- /dev/null
+++ b/tools/generate_serial_table.pl
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use Data::Dumper;
+
+my $sernr = $ARGV[0];
+
+if(!$sernr) {
+    print "usage: generate_serial_table.pl <serial number>\n";
+    exit;
+
+}
+
+my %e;
+
+my @r = qx(trbcmd i 0xffff);
+#my @r = qx(~/trbsoft/trbnettools/libtrbnet/trbcmd i 0xffff);
+
+foreach my $cur_line (@r) {
+
+    my @s=split /\s+/, $cur_line; 
+    #print Dumper \@s;
+    my $o=sprintf("%x", 0xc000 + hex($s[2])); 
+    if(hex($s[2]) == 5) {
+	$o="8000";
+    }
+
+#    my $c="~/trbsoft/trbnettools/libtrbnet/trbcmd s $s[1] $s[2] 0x$o"; 
+    my $c="trbcmd s $s[1] $s[2] 0x$o"; 
+    #print $c . "\n"; 
+    print qx($c); 
+    $e{hex($s[2])} = "   0" . $sernr . hex($s[2]) . "        $s[1]\n"; 
+
+}
+
+
+foreach $_ (sort {$a cmp $b} keys (%e)) { 
+    print $e{$_}; 
+}
+
+print "\n";
-- 
2.43.0