a script to read the ADC on Trb3sc

diff --git a/users/frankfurt_test/trb3scadc.pl b/users/frankfurt_test/trb3scadc.pl
new file mode 100755 (executable)
index 0000000..1b245b2
--- /dev/null
+++ b/users/frankfurt_test/trb3scadc.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use lib "../../perllibs";
+use Dmon;
+use Data::Dumper;
+use HADES::TrbNet;
+use Time::HiRes qq|usleep|;
+
+trb_init_ports() or die trb_strerror();
+
+#2 MHz SPI
+system("trbcmd w 0xf3cc 0xd41a 25");
+
+my $cmd; my $s;
+
+$cmd = 0xc3830000;
+$s = Dmon::PadiwaSendCmd($cmd,0xf3cc,7);
+
+usleep(1000);
+$cmd = 0xd3830000;
+$s = Dmon::PadiwaSendCmd($cmd,0xf3cc,7);
+printf("0x%08x\t%i mV\n",$s->{62412},($s->{62412}>>19&0xfff)*2);
+
+usleep(1000);
+$cmd = 0xe5830000;
+$s = Dmon::PadiwaSendCmd($cmd,0xf3cc,7);
+printf("0x%08x\t%i mV\n",$s->{62412},($s->{62412}>>19)&0xfff);
+
+usleep(1000);
+$cmd = 0xf3830000;
+$s = Dmon::PadiwaSendCmd($cmd,0xf3cc,7);
+printf("0x%08x\t%i mV\n",$s->{62412},($s->{62412}>>19&0xfff)/2);
+
+
+usleep(1000);
+$cmd = 0xf3930000;
+$s = Dmon::PadiwaSendCmd($cmd,0xf3cc,7);
+printf("0x%08x\t%i mV\n",$s->{62412},($s->{62412}>>19&0xfff)*2);
+
+usleep(1000);
+$s = Dmon::PadiwaSendCmd(0,0xf3cc,7);
+printf("0x%08x\t%.2f °C\n",$s->{62412},(($s->{62412}>>19)&0xfff)/16.);
+
+#back to normal SPI speed
+system("trbcmd w 0xf3cc 0xd41a 7");
\ No newline at end of file