From: hadeshyp <hadeshyp>
Date: Thu, 13 Sep 2012 12:28:37 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=19defc2eb0406746ae50a91e297c73c08c2ae0c1;p=daqtools.git

*** empty log message ***
---

diff --git a/padiwa.pl b/padiwa.pl
index 6be9131..27d6d5d 100755
--- a/padiwa.pl
+++ b/padiwa.pl
@@ -21,6 +21,8 @@ if(!$ARGV[0]) {
   print "\t disable \t set input diable. options: \$mask\n";
   print "\t disable \t read input disable. no options\n";
   print "\t input \t\t read input status. no options\n";
+  print "\t invert \t\t set invert status. options: \$mask\n";
+  print "\t invert \t\t read invert status. no options\n";
   print "\t led \t\t set led status. options: mask (5 bit, highest bit is override enable)\n";
   print "\t led \t\t read LED status. no options\n";
   print "\t monitor \t set input for monitor output. options: mask (4 bit)\n";
@@ -104,6 +106,19 @@ if($ARGV[2] eq "disable") {
     printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
     }
   }    
+
+  
+if($ARGV[2] eq "invert" && defined $ARGV[3]) {
+  my $b = sendcmd(0x20840000+($mask&0xffff));
+  print "Wrote Input Invert settings.\n";
+  }    
+  
+if($ARGV[2] eq "invert") {
+  my $b = sendcmd(0x20040000);
+  foreach my $e (sort keys $b) {
+    printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
+    }
+  }    
   
   
 if($ARGV[2] eq "input") {