ADC reader - add TRB5sc

diff --git a/users/frankfurt_test/trb3scadc.pl b/users/frankfurt_test/trb3scadc.pl
index 7da9fda7e498106f7f845f71f7eb7c59c376b578..2bf8a9c265a8f332b10f40c4c75fd7a15d82c869 100755 (executable)
--- a/users/frankfurt_test/trb3scadc.pl
+++ b/users/frankfurt_test/trb3scadc.pl
@@ -12,19 +12,20 @@ trb_init_ports() or die trb_strerror();
 
 my $board = hex($ARGV[0]);
 
-#0 for TRB3sc, 1 for DiRich, 2 for Concentrator, 3 for PowerVoltages, 4 for PowerCurrents
+#0 for TRB3sc, 1 for DiRich, 2 for Concentrator, 3 for PowerVoltages, 4 for PowerCurrents, 5 for Trb5sc
 my $mode = $ARGV[1] || 0;
 my $t = [['mV (3.3)','mV (2.5)','mV (1.2)','mV (6)'],
          ['mV (3.3)','mV (2.5)','mV (1.1)',''],
          ['mV (3.3)','mV (2.5)','mV (1.2)','mA (@1.2)'],
          ['mV (3.3)','mV (2.5)','mV (1.2)','mV (1.1)'],
-         ['mA (@1.1)','mA (@1.2)','mA (@2.5)','mA (@3.3)']];
-my $channel = [7,7,7,6,5]; #SPI interface number
+         ['mA (@1.1)','mA (@1.2)','mA (@2.5)','mA (@3.3)'],
+         ['mV (5)','mV (1.1)','mV (2.5)','mV (3.3)']];
+my $channel = [7,7,7,6,5,7]; #SPI interface number
 
 #1:4V, 2:2V, 3:1V
-my $resolution = [[2,1,2,1],  [2,2,2,1],  [2,2,2,4],      [2,2,2,2],       [3,3,2,2]];
-my $multiplier=  [[1,1,0.5,2],[1,1,0.5,0],[1,1,0.5,3.125],[1,1,0.5,0.5],   [2.5,1.25,1,0.5]];
-my $modedesc =   [ 'Trb3sc',  'DiRich',   'Concentrator', 'Power-Voltages','Power-Currents'];
+my $resolution = [[2,1,2,1],  [2,2,2,1],  [2,2,2,4],      [2,2,2,2],       [3,3,2,2],        [1,2,1,2]];
+my $multiplier=  [[1,1,0.5,2],[1,1,0.5,0],[1,1,0.5,3.125],[1,1,0.5,0.5],   [2.5,1.25,1,0.5], [2,0.5,1,1]];
+my $modedesc =   [ 'Trb3sc',  'DiRich',   'Concentrator', 'Power-Voltages','Power-Currents', 'Trb5sc'];
 
 print "\nRunning in mode ".$modedesc->[$mode]."\n\n";
 
@@ -63,4 +64,4 @@ printf("0x%08x\t%.2f °C\n",$s->{$board},(($s->{$board}>>19)&0xfff)/16.);
 
 #back to normal SPI speed
 system("trbcmd w $board 0xd41a 7");
-print "\n";
\ No newline at end of file
+print "\n";