From: Jan Michel Date: Tue, 14 Jul 2015 14:53:41 +0000 (+0200) Subject: a script to read the ADC on Trb3sc X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=1407c8336c7788c8622beb18d341de99e9c11c12;p=daqtools.git 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 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