From 1407c8336c7788c8622beb18d341de99e9c11c12 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Tue, 14 Jul 2015 16:53:41 +0200 Subject: [PATCH] a script to read the ADC on Trb3sc --- users/frankfurt_test/trb3scadc.pl | 47 +++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100755 users/frankfurt_test/trb3scadc.pl diff --git a/users/frankfurt_test/trb3scadc.pl b/users/frankfurt_test/trb3scadc.pl new file mode 100755 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 -- 2.43.0