added threshold set script and added more baselines and MBO serials

diff --git a/scripts/pasttrec_set_threshold.pl b/scripts/pasttrec_set_threshold.pl
new file mode 100755 (executable)
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);