From 2216eb498375b439b25e02d28181be5c502e76ad Mon Sep 17 00:00:00 2001
From: "c.wendisch" <c.wendisch@gsi.de>
Date: Thu, 1 Sep 2022 17:04:09 +0200
Subject: [PATCH] added threshold set script and added more  baselines and MBO
 serials

---
 scripts/pasttrec_set_threshold.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 scripts/pasttrec_set_threshold.pl

diff --git a/scripts/pasttrec_set_threshold.pl b/scripts/pasttrec_set_threshold.pl
new file mode 100755
index 0000000..70e92b7
--- /dev/null
+++ b/scripts/pasttrec_set_threshold.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+use warnings;
+use HADES::TrbNet;
+use Time::HiRes;
+
+my $threshold = $ARGV[0];
+ 
+trb_init_ports() or die trb_strerror();
+trb_init_ports() or die trb_strerror();
+  
+foreach my $pt (0..3) { 
+        trb_register_write(0xfe91,0xa200+($pt << 4)+3,0x50300+hex($threshold));
+      }
+  
+printf(" Threshold %i set to all available PASTTRECs. \n", $threshold);
-- 
2.43.0