]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
Make adc.pl bitbanging aware of $board
authorAndreas Neiser <neiser@kph.uni-mainz.de>
Fri, 25 Jul 2014 07:12:10 +0000 (09:12 +0200)
committerAndreas Neiser <neiser@kph.uni-mainz.de>
Fri, 25 Jul 2014 07:12:10 +0000 (09:12 +0200)
tools/adc.pl

index 8519ac34278916a1d30154a8eac94c00b99dc63d..ce05e7ba885a97e713fecfeda2f891685f84626c 100755 (executable)
@@ -60,15 +60,15 @@ sub sendcmd {
 
 sub bitbangtestsequence {
   #power down
-  trb_register_write(0xf30a,0xe080,0x00);
+  trb_register_write($board,0xe080,0x00);
   usleep(200000);
 
   #power on
-  trb_register_write(0xf30a,0xe080,0x01);
+  trb_register_write($board,0xe080,0x01);
   usleep(100000);
 
   #sck and csb high
-  trb_register_write(0xf30a,0xe080,0x51);
+  trb_register_write($board,0xe080,0x51);
   usleep(100000);
 
 
@@ -78,18 +78,18 @@ sub bitbangtestsequence {
   for my $i (@data) {
 
     #csb low
-    trb_register_write(0xf30a,0xe080,0x11);
+    trb_register_write($board,0xe080,0x11);
 
     for my $j (0..23) {
       my $b = ($i>>(23-$j)) & 1;
         $b = $b << 5;
 
-      trb_register_write(0xf30a,0xe080,0x01 | $b);
-      trb_register_write(0xf30a,0xe080,0x11 | $b);
+      trb_register_write($board,0xe080,0x01 | $b);
+      trb_register_write($board,0xe080,0x11 | $b);
       }
 
     #csb high
-    trb_register_write(0xf30a,0xe080,0x51);
+    trb_register_write($board,0xe080,0x51);
 
     }
   }