From: hadeshyp Date: Mon, 26 Nov 2012 17:53:27 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=3a4a44b0cd77450cc0690eb8a6b7d9fb51231ab4;p=daqtools.git *** empty log message *** --- diff --git a/cts/CtsConfig.pm b/cts/CtsConfig.pm index 5863cc4..69fb254 100644 --- a/cts/CtsConfig.pm +++ b/cts/CtsConfig.pm @@ -2,7 +2,7 @@ package CtsConfig; #default cts endpoint. can be overriden by a command line parameter sub getDefaultEndpoint { - return 0x8000; + return 0xf3c0; } 1; diff --git a/cts/cts b/cts/cts index 36f1b90..f859844 100755 --- a/cts/cts +++ b/cts/cts @@ -33,6 +33,7 @@ use lib "./include"; } } + use FileHandle; use CtsPlugins::CtsModStatic; diff --git a/cts/htdocs/thresh/get.pl b/cts/htdocs/thresh/get.pl index b28d114..aaa9a4d 100755 --- a/cts/htdocs/thresh/get.pl +++ b/cts/htdocs/thresh/get.pl @@ -30,8 +30,10 @@ if($amount != 1) { } } else { + my $chunk = int($amount/$split); if($amount%$split) {$chunk++;} + my $i = 0; my @hits; do { diff --git a/padiwa.pl b/padiwa.pl index f6c1c7d..8c4683c 100755 --- a/padiwa.pl +++ b/padiwa.pl @@ -55,15 +55,17 @@ if (defined $ARGV[4]) { sub sendcmd { my ($cmd) = @_; - trb_register_write($board,0xd400,$cmd); - trb_register_write($board,0xd411,1); + my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,1]; + trb_register_write_mem($board,0xd400,0,$c,scalar @{$c}); +# trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror(); +# trb_register_write($board,0xd411,1); return trb_register_read($board,0xd412); } -trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror(); + if($ARGV[2] eq "temp") { my $b = sendcmd(0x10040000);