Up to 90

diff --git a/base/addresses_trb3.db b/base/addresses_trb3.db
index 17b7f3687bfd08b8e2c23a958c733cb9628e4ac4..a6216529d3b3708db23001e8ae48cd62dd966058 100644 (file)
--- 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 8edc56b01ae050f9b337385b234de65e3eb06258..4d678ee466dfdbe5bc457abba13e97e767c589e1 100644 (file)
--- 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 (executable)
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";