From b3e634ac85f63ad4e485201ae936e9233fb9f229 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Tue, 28 Nov 2023 22:38:37 +0100
Subject: [PATCH] longer wait time for more stable operation
---
tools/dac_program.pl | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/tools/dac_program.pl b/tools/dac_program.pl
index 49bd95e..ed016af 100755
--- a/tools/dac_program.pl
+++ b/tools/dac_program.pl
@@ -53,7 +53,7 @@ while (my $a = <$fh>) {
printf(STDERR "Error, value %i with offset %i is higher or lower than reference %i\n",$val,$offset,$reference);
next;
}
-
+
$o = $cmd << 20;
$o |= $chan << 16;
$o |= (($val*1.+$offset)/$reference*65536.) & 0xFFFF;
@@ -68,8 +68,8 @@ while (my $a = <$fh>) {
$values[17] = 16;
trb_register_write($board,0xd417, $chain | ($chain << 16));
trb_register_write_mem($board,0xd400,0,\@values,18) or die "trb_register_write_mem: ", trb_strerror();
- usleep(5*$chainlen);
- }
+ usleep(50*$chainlen);
+ }
foreach my $i (0..15) {
@@ -80,7 +80,7 @@ while (my $a = <$fh>) {
# print Dumper @values;
# print "\n";
trb_register_write_mem($board,0xd400,0,\@values,18) or die "trb_register_write_mem: ", trb_strerror();
- usleep(5*$chainlen);
+ usleep(50*$chainlen);
if($dac == 16) {
trb_register_write($board,0xd417,0);
--
2.43.0