From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Tue, 21 Apr 2015 06:08:52 +0000 (+0200)
Subject: adc.pl: Minor changes
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=9b64032a345dd8af8e67a5732c11d4ccfa3d9d4d;p=daqtools.git

adc.pl: Minor changes
---

diff --git a/tools/adc.pl b/tools/adc.pl
index 968d027..9ad645d 100755
--- a/tools/adc.pl
+++ b/tools/adc.pl
@@ -372,9 +372,9 @@ sub adc_testall {
   my $phases =  shift || [-1];  # by default dont change phases
 
   my @tests = (
-               [0b0100, 0x815502aa],
-               [0b0001, 0x82000200],
-               [0b0100, 0x815502aa]
+               [0b0100, 0x815502aa], # checkerboard, sends 0x2aa and 0x155 as ADC words
+               [0b0001, 0x82000200], # midscale short
+               [0b0100, 0x815502aa]  # checkerboard again
               );
   my @good_ranges;
 
@@ -402,12 +402,9 @@ sub adc_testall_single {
   my @phases =  @{(shift)};
   my $test = shift;
 
-  # checkerboard, sends 0x2aa and 0x155 as ADC words
+  # set the testio mode
   adc_testio($test->[0]);
   trb_register_write($board, 0xa019, $test->[1]);
-  # midscale short
-  #adc_testio(0b0001);
-  #trb_register_write($board, 0xa019, 0x82000200);
 
   my @good_ranges;
   for my $phase (@phases) {