From 3a4a44b0cd77450cc0690eb8a6b7d9fb51231ab4 Mon Sep 17 00:00:00 2001 From: hadeshyp Date: Mon, 26 Nov 2012 17:53:27 +0000 Subject: [PATCH] *** empty log message *** --- cts/CtsConfig.pm | 2 +- cts/cts | 1 + cts/htdocs/thresh/get.pl | 2 ++ padiwa.pl | 8 +++++--- 4 files changed, 9 insertions(+), 4 deletions(-) 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); -- 2.43.0