From 15dbd6305ecc2610669e7f8806f3a9212c1e319b Mon Sep 17 00:00:00 2001
From: Maps <maps@ikf>
Date: Thu, 12 Dec 2024 11:32:51 +0100
Subject: [PATCH] changes in legacy stuff

---
 scripts/legacy/gbtsc/adc-i2c-test.sh |  3 ++-
 scripts/legacy/gbtsc/getSCAid.sh     |  5 +++++
 scripts/legacy/gbtsc/sca-main.pl     | 11 +++++------
 3 files changed, 12 insertions(+), 7 deletions(-)
 create mode 100755 scripts/legacy/gbtsc/getSCAid.sh

diff --git a/scripts/legacy/gbtsc/adc-i2c-test.sh b/scripts/legacy/gbtsc/adc-i2c-test.sh
index 8bd30f6..ac3b5e7 100755
--- a/scripts/legacy/gbtsc/adc-i2c-test.sh
+++ b/scripts/legacy/gbtsc/adc-i2c-test.sh
@@ -1,6 +1,7 @@
 #!/bin/bash
 
-fpga=0xa001
+#fpga=0xa001
+fpga=0xf575
 addr=0x0
 trid=0x1
 i2cN=0x03
diff --git a/scripts/legacy/gbtsc/getSCAid.sh b/scripts/legacy/gbtsc/getSCAid.sh
new file mode 100755
index 0000000..399535b
--- /dev/null
+++ b/scripts/legacy/gbtsc/getSCAid.sh
@@ -0,0 +1,5 @@
+#/bin/bash
+
+./sca-main.pl -f 0xf575 -d 0x0 0x1 0x14 0x91 1;
+sleep 1;
+./sca-main.pl -f 0xf575 -d 0x0 -e;
diff --git a/scripts/legacy/gbtsc/sca-main.pl b/scripts/legacy/gbtsc/sca-main.pl
index 3f9bf91..6ee4c30 100755
--- a/scripts/legacy/gbtsc/sca-main.pl
+++ b/scripts/legacy/gbtsc/sca-main.pl
@@ -2,7 +2,6 @@
 
 use Getopt::Long;
 use HADES::TrbNet;
-use lib '/d/jspc37/mimosis/scripts/';
 use Mimosis;
 use Time::HiRes qw(usleep sleep);
 use Data::Dump qw(dump);
@@ -22,7 +21,7 @@ GetOptions(
     "help|h"   => \$help,
 );
 
-if ($help)
+if ($help) {
     my $message = <<'END_MESSAGE';
 -f, --fpga HEX       ->  Hex address of the FPGA. Optional. Default is 0xa000.
 -s, --slow=NUM       ->  Execute I2C commands with a pause of NUM microseconds in between.
@@ -63,7 +62,7 @@ elsif ( defined $read )
     my $address = ( $val0->{$fpga} ) & 0xff;
     my $control = ( ( $val0->{$fpga} ) >> 8 ) & 0xff;
 
-    #    dump($val0);
+    # dump($val0);
 
     my $val1 = trb_register_read( $fpga, 0xd60b ); usleep($slow);
     my $transID = ( $val1->{$fpga} ) & 0xff;
@@ -71,12 +70,12 @@ elsif ( defined $read )
     my $error   = ( $val1->{$fpga} >> 16 ) & 0xff;
     my $length  = ( $val1->{$fpga} >> 24 ) & 0xff;
 
-    #    dump($val1);
+    # dump($val1);
 
     my $val2 = trb_register_read( $fpga, 0xd60c ); usleep($slow);
     my $data = ( $val2->{$fpga} ) & 0xffffffff;
 
-    #    dump($val2);
+    # dump($val2);
 
     printf("Address: 0x%x\nControl: 0x%x\nTransID: 0x%x\nChannel: 0x%x\nError:   0x%x\nLength:  0x%x\nData:    0x%x\n", $address, $control, $transID, $channel, $error, $length, $data);
 }
@@ -96,7 +95,7 @@ else
 
     trb_register_write( $fpga, 0xd600, $scaAddress); usleep($slow);
     my $payload = ($command << 16) + ($channel << 8) + $transID;
-    # printf( "%x %x %x %x %x\n", $transID, $channel, $command, $data, $payload );
+    printf( "%x %x %x %x %x\n", $transID, $channel, $command, $data, $payload );
     trb_register_write( $fpga, 0xd602, $payload); usleep($slow);
     trb_register_write( $fpga, 0xd603, $data); usleep($slow);
     trb_register_write( $fpga, 0xd601, 0x4); usleep($slow);
-- 
2.43.0