use Dmon;
-if(!defined $ENV{'DAQOPSERVER'}) {
+if (!defined $ENV{'DAQOPSERVER'}) {
die "DAQOPSERVER not set in environment";
}
-
+
if (!defined &trb_init_ports()) {
die("can not connect to trbnet-daemon on the $ENV{'DAQOPSERVER'}");
}
-if(!(defined $ARGV[0]) || !(defined $ARGV[1]) || !(defined $ARGV[2])) {
- print "usage: padiwa.pl \$FPGA \$chain \$command \$options\n\n";
- print "\t uid \t\t read unique ID, no options\n";
- print "\t time \t\t read compile time. no options\n";
- print "\t temp \t\t read temperature, no options\n";
- print "\t resettemp \t resets the 1-wire logic\n";
- print "\t dac \t\t set LTC-DAC value. options: \$channel, \$value\n";
- print "\t pwm \t\t set PWM value. options: \$channel, \$value\n";
- print "\t comp \t\t set temperature compensation value. options: \$value\n";
- print "\t discdisable \t set input diable. options: \$mask\n";
- print "\t discharge \t Disables the discharge signal if set. options: \$mask\n";
- print "\t discoverride \t Set discharge signal if disabled. options: \$mask\n";
- print "\t dischighz \t Set discharge signal to highZ. options: \$mask\n";
- print "\t discdelayinvert \t Invert signal used for delay generation. options: \$mask\n";
- print "\t input \t\t read input status. no options\n";
- print "\t counter\t input signal counter. options: \$channel\n";
- print "\t invert \t set invert status. options: \$mask\n";
- print "\t led \t\t set led status. options: mask (5 bit, highest bit is override enable)\n";
- print "\t \t\t read LED status. no options\n";
- print "\t monitor \t set input for monitor output. options: mask (4 bit). \n\t\t\t 0x10: OR of all channels, 0x18: or of all channels, extended to 16ns\n";
- print "\t stretch \t set stretcher status.\n";
- print "\t ram \t\t writes the RAM content, options: 16 byte in hex notation, separated by space, no 0x.\n";
- print "\t \t\t read the RAM content (16 Byte)\n";
- print "\t flash \t\t execute flash command, options: \$command, \$page. See manual for commands.\n";
- print "\t enablecfg\t enable or disable access to configuration flash, options: 1/0\n";
- print "\t dumpcfg \t Dump content of configuration flash. Pipe output to file\n";
- print "\t writecfg \t Write content of configuration flash. options: \$filename\n";
- print "\t fifo \t\t Read a byte from the test fifo (if present, no options\n";
+if (!(defined $ARGV[0]) || !(defined $ARGV[1]) || !(defined $ARGV[2])) {
+ print "usage: padiwa.pl \$FPGA \$chain \$command \$options
+
+\t uid \t\t read unique ID, no options
+\t time \t\t read compile time. no options
+\t temp \t\t read temperature, no optionsy
+\t resettemp \t resets the 1-wire logic
+\t dac \t\t set LTC-DAC value. options: \$channel, \$value
+\t pwm \t\t set PWM value. options: \$channel, \$value
+\t comp \t\t set temperature compensation value. options: \$value
+\t discdisable \t set input diable. options: \$mask
+\t discharge \t Disables the discharge signal if set. options: \$mask
+\t discoverride \t Set discharge signal if disabled. options: \$mask
+\t dischighz \t Set discharge signal to highZ. options: \$mask
+\t discdelayinvert \t Invert signal used for delay generation. options: \$mask
+\t input \t\t read input status. no options
+\t counter\t input signal counter. options: \$channel
+\t invert \t set invert status. options: \$mask
+\t led \t\t set led status. options: mask (5 bit, highest bit is override enable)
+\t \t\t read LED status. no options
+\t ledoff\t\t turn off LEDs: First reads firmware-version and according to that turns
+\t monitor \t set input for monitor output. options: mask (4 bit).
+\t\t\t 0x10: OR of all channels, 0x18: or of all channels, extended to 16ns
+\t stretch \t set stretcher status.
+\t ram \t\t writes the RAM content, options: 16 byte in hex notation, separated by space, no 0x.
+\t \t\t read the RAM content (16 Byte)
+\t flash \t\t execute flash command, options: \$command, \$page. See manual for commands.
+\t enablecfg\t enable or disable access to configuration flash, options: 1/0
+\t dumpcfg \t Dump content of configuration flash. Pipe output to file
+\t writecfg \t Write content of configuration flash. options: \$filename
+\t fifo \t\t Read a byte from the test fifo (if present, no options
+";
exit;
- }
+}
my $board, my $value, my $mask;
-
+
($board) = $ARGV[0] =~ /^0?x?(\w+)/;
$board = hex($board);
-my $chain = hex($ARGV[1]);
+my $chain = hex($ARGV[1]);
-if (defined $ARGV[3] && $ARGV[2] ne "writecfg") {
+if (defined $ARGV[3] && $ARGV[2] ne "writecfg") {
($mask) = $ARGV[3] =~ /^0?x?(\w+)/;
$mask = hex($mask) if defined $mask;
- }
+}
-if (defined $ARGV[4]) {
+if (defined $ARGV[4]) {
($value) = $ARGV[4] =~ /^0?x?(\w+)/;
$value = hex($value);
- }
-
-
+}
+
sub sendcmd16 {
my @cmd = @_;
my $c = [@cmd,1<<$chain,16+0x80];
-# print Dumper $c;
+ # print Dumper $c;
trb_register_write_mem($board,0xd400,0,$c,scalar @{$c});
usleep(1000);
- }
-
+}
+
sub sendcmd {
my ($cmd) = @_;
return Dmon::PadiwaSendCmd($cmd,$board,$chain);
-# my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,1];
-# trb_register_write_mem($board,0xd400,0,$c,scalar @{$c});
-# trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror();
-# trb_register_write($board,0xd411,1);
-# usleep(1000);
-# return trb_register_read($board,0xd412);
- }
-
-
+ # my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,1];
+ # trb_register_write_mem($board,0xd400,0,$c,scalar @{$c});
+ # trb_register_write($board,0xd410,1<<$chain) or die "trb_register_write: ", trb_strerror();
+ # trb_register_write($board,0xd411,1);
+ # usleep(1000);
+ # return trb_register_read($board,0xd412);
+}
-
-if($ARGV[2] eq "temp") {
+
+
+if ($ARGV[2] eq "temp") {
my $b = sendcmd(0x10040000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t%2.1f\n",$e,$chain,($b->{$e}&0xfff)/16);
- }
}
+}
-if($ARGV[2] eq "resettemp") {
+if ($ARGV[2] eq "resettemp") {
sendcmd(0x10800001);
usleep(100000);
sendcmd(0x10800000);
- }
+}
+
-
-
-if($ARGV[2] eq "uid") {
+
+if ($ARGV[2] eq "uid") {
my $ids;
- for(my $i = 0; $i <= 3; $i++) {
+ for (my $i = 0; $i <= 3; $i++) {
my $b = sendcmd(0x10000000 + $i*0x10000);
foreach my $e (sort keys %$b) {
$ids->{$e}->{$i} = $b->{$e}&0xffff;
- }
}
+ }
foreach my $e (sort keys %$ids) {
printf("0x%04x\t%d\t0x%04x%04x%04x%04x\n",$e,$chain,$ids->{$e}->{3},$ids->{$e}->{2},$ids->{$e}->{1},$ids->{$e}->{0});
- }
}
+}
-if($ARGV[2] eq "dac" && defined $ARGV[4]) {
+if ($ARGV[2] eq "dac" && defined $ARGV[4]) {
my $b = sendcmd(0x00300000+$ARGV[3]*0x10000+($value&0xffff));
print "Wrote PWM settings.\n";
- }
-
-if($ARGV[2] eq "pwm" && defined $ARGV[4]) {
+}
+
+if ($ARGV[2] eq "pwm" && defined $ARGV[4]) {
my $b = sendcmd(0x00800000+$ARGV[3]*0x10000+($value&0xffff));
print "Wrote PWM settings.\n";
- }
-
-if($ARGV[2] eq "pwm") {
+}
+
+if ($ARGV[2] eq "pwm") {
my $b = sendcmd(0x00000000+$ARGV[3]*0x10000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t%d\t0x%04x\t%4.2f\n",$e,$chain,$ARGV[3],$b->{$e}&0xffff,($b->{$e}&0xffff)*3300/65536);
- }
- }
+ }
+}
-if($ARGV[2] eq "comp" && defined $ARGV[3]) {
+if ($ARGV[2] eq "comp" && defined $ARGV[3]) {
my $b = sendcmd(0x20860000+($mask&0xffff));
print "Wrote Temperature Compensation settings.\n";
- }
-
-if($ARGV[2] eq "comp") {
+}
+
+if ($ARGV[2] eq "comp") {
my $b = sendcmd(0x20060000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
+ }
+}
-if($ARGV[2] eq "discdisable" && defined $ARGV[3]) {
+if ($ARGV[2] eq "discdisable" && defined $ARGV[3]) {
my $b = sendcmd(0x20870000+($mask&0x00ff));
print "Wrote Discharge Disable settings.\n";
- }
-
-if($ARGV[2] eq "discdisable") {
+}
+
+if ($ARGV[2] eq "discdisable") {
my $b = sendcmd(0x20070000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xff);
- }
- }
+ }
+}
-if($ARGV[2] eq "discoverride" && defined $ARGV[3]) {
+if ($ARGV[2] eq "discoverride" && defined $ARGV[3]) {
my $b = sendcmd(0x20880000+($mask&0x00ff));
print "Wrote Discharge Disable settings.\n";
- }
-
-if($ARGV[2] eq "discoverride") {
+}
+
+if ($ARGV[2] eq "discoverride") {
my $b = sendcmd(0x20080000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xff);
- }
- }
-
-if($ARGV[2] eq "dischighz" && defined $ARGV[3]) {
+ }
+}
+
+if ($ARGV[2] eq "dischighz" && defined $ARGV[3]) {
my $b = sendcmd(0x20890000+($mask&0x00ff));
print "Wrote Discharge Disable settings.\n";
- }
-
-if($ARGV[2] eq "dischighz") {
+}
+
+if ($ARGV[2] eq "dischighz") {
my $b = sendcmd(0x20090000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xff);
- }
- }
+ }
+}
+
-
-if($ARGV[2] eq "discdelayinvert" && defined $ARGV[3]) {
+if ($ARGV[2] eq "discdelayinvert" && defined $ARGV[3]) {
my $b = sendcmd(0x208a0000+($mask&0x00ff));
print "Wrote Discharge Disable settings.\n";
- }
-
-if($ARGV[2] eq "discdelayinvert") {
+}
+
+if ($ARGV[2] eq "discdelayinvert") {
my $b = sendcmd(0x200a0000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xff);
- }
- }
+ }
+}
-
-if($ARGV[2] eq "disable" && defined $ARGV[3]) {
+
+if ($ARGV[2] eq "disable" && defined $ARGV[3]) {
my $b = sendcmd(0x20800000+($mask&0xffff));
print "Wrote Input Disable settings.\n";
- }
-
-if($ARGV[2] eq "disable") {
+}
+
+if ($ARGV[2] eq "disable") {
my $b = sendcmd(0x20000000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
+ }
+}
-
-if($ARGV[2] eq "invert" && defined $ARGV[3]) {
+
+if ($ARGV[2] eq "invert" && defined $ARGV[3]) {
my $b = sendcmd(0x20840000+($mask&0xffff));
print "Wrote Input Invert settings.\n";
- }
-
-if($ARGV[2] eq "invert") {
+}
+
+if ($ARGV[2] eq "invert") {
my $b = sendcmd(0x20040000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
-
+ }
+}
+
-if($ARGV[2] eq "stretch" && defined $ARGV[3]) {
+if ($ARGV[2] eq "stretch" && defined $ARGV[3]) {
my $b = sendcmd(0x20850000+($mask&0xffff));
print "Wrote Input Stretcher settings.\n";
- }
-
-if($ARGV[2] eq "stretch") {
+}
+
+if ($ARGV[2] eq "stretch") {
my $b = sendcmd(0x20050000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
-
-if($ARGV[2] eq "input") {
+ }
+}
+
+if ($ARGV[2] eq "input") {
my $b = sendcmd(0x20010000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
+ }
+}
-if($ARGV[2] eq "led" && defined $ARGV[3]) {
+if ($ARGV[2] eq "ledoff") {
+ my $ids;
+ for (my $i = 0; $i <= 1; $i++) {
+ my $b = sendcmd(0x21000000 + $i*0x10000);
+ #print Dumper $b;
+ $ids->{$board}->{$i} = $b->{$board}&0xffff;
+ }
+
+ my $unix_compile_time = $ids->{$board}->{1}*2**16+$ids->{$board}->{0};
+ if ($unix_compile_time >= 0x546f1960) {
+ $mask = 0x1;
+ }
+ else {
+ $mask =0x10;
+ }
+
+ my $b = sendcmd(0x20820000+($mask&0x1ff));
+ printf "turned LEDs off with command 0x%02x after reading firmware version\n",$mask;
+}
+
+
+if ($ARGV[2] eq "led" && defined $ARGV[3]) {
my $b = sendcmd(0x20820000+($mask&0x1ff));
print "Wrote LED settings.\n";
- }
-
-if($ARGV[2] eq "led") {
+}
+
+if ($ARGV[2] eq "led") {
my $b = sendcmd(0x20020000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0x1ff);
- }
- }
+ }
+}
-if($ARGV[2] eq "counter" && defined $ARGV[3]) {
+if ($ARGV[2] eq "counter" && defined $ARGV[3]) {
my $b = sendcmd(0x22000000+(($mask&0x1f)<< 16));
my $c = sendcmd(0x23000000+(($mask&0x1f)<< 16));
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t%8x\n",$e,$chain,($b->{$e}&0xffff)+($c->{$e}&0xff)*2**16);
- }
- }
-
-
-if($ARGV[2] eq "monitor" && defined $ARGV[3]) {
+ }
+}
+
+
+if ($ARGV[2] eq "monitor" && defined $ARGV[3]) {
my $b = sendcmd(0x20830000+($mask&0x1f));
print "Wrote monitor settings.\n";
- }
-
-if($ARGV[2] eq "monitor") {
+}
+
+if ($ARGV[2] eq "monitor") {
my $b = sendcmd(0x20030000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0x1f);
- }
- }
+ }
+}
-if($ARGV[2] eq "time") {
+if ($ARGV[2] eq "time") {
my $ids;
- for(my $i = 0; $i <= 1; $i++) {
+ for (my $i = 0; $i <= 1; $i++) {
my $b = sendcmd(0x21000000 + $i*0x10000);
foreach my $e (sort keys %$b) {
$ids->{$e}->{$i} = $b->{$e}&0xffff;
- }
}
+ }
foreach my $e (sort keys %$ids) {
printf("0x%04x\t%d\t0x%04x%04x\t%s\n",$e,$chain,$ids->{$e}->{1},$ids->{$e}->{0},time2str('%Y-%m-%d %H:%M',($ids->{$e}->{1}*2**16+$ids->{$e}->{0})));
- }
- }
-
-if($ARGV[2] eq "ram" && defined $ARGV[18]) {
+ }
+}
+
+if ($ARGV[2] eq "ram" && defined $ARGV[18]) {
my @a;
- for(my $i=0;$i<16;$i++) {
+ for (my $i=0;$i<16;$i++) {
push(@a,0x40800000+hex($ARGV[3+$i])+($i << 16));
- }
+ }
sendcmd16(@a);
printf("Wrote RAM\n");
- }
+}
-if($ARGV[2] eq "ram") {
- for(my $i=0;$i<16;$i++) {
+if ($ARGV[2] eq "ram") {
+ for (my $i=0;$i<16;$i++) {
my $b = sendcmd(0x40000000 + ($i << 16));
- foreach my $e (sort keys %$b) {
+ foreach my $e (sort keys %$b) {
printf(" %02x ",$b->{$e}&0xff);
- }
}
- printf("\n");
}
-
-if($ARGV[2] eq "flash" && defined $ARGV[4]) {
+ printf("\n");
+}
+
+if ($ARGV[2] eq "flash" && defined $ARGV[4]) {
my $c = 0x50800000+(($mask&0xe)<< 12)+($value&0x1fff);
my $b = sendcmd($c);
printf("Sent command\n");
- }
-
-if($ARGV[2] eq "dumpcfg") {
- for(my $p = 0; $p<5760; $p++) { #5758
+}
+
+if ($ARGV[2] eq "dumpcfg") {
+ for (my $p = 0; $p<5760; $p++) { #5758
sendcmd(0x50800000 + $p);
printf("0x%04x:\t",$p);
- for(my $i=0;$i<16;$i++) {
+ for (my $i=0;$i<16;$i++) {
my $b = sendcmd(0x40000000 + ($i << 16));
- foreach my $e (sort keys %$b) {
+ foreach my $e (sort keys %$b) {
printf(" %02x ",$b->{$e}&0xff);
- }
}
- printf("\n");
- printf(STDERR "\r%d / 5760",$p) if(!($p%10));
}
+ printf("\n");
+ printf(STDERR "\r%d / 5760",$p) if(!($p%10));
}
+}
-if($ARGV[2] eq "enablecfg" && defined $ARGV[3]) {
+if ($ARGV[2] eq "enablecfg" && defined $ARGV[3]) {
my $c = 0x5C800000 + $ARGV[3];
my $b = sendcmd($c);
printf("Sent command.\n");
- }
-
-if($ARGV[2] eq "writecfg" && defined $ARGV[3]) {
+}
+
+if ($ARGV[2] eq "writecfg" && defined $ARGV[3]) {
open(INF,$ARGV[3]) or die "Couldn't read file : $!\n";
my $p = 0;
- while(my $s = <INF>) {
+ while (my $s = <INF>) {
my @t = split(' ',$s);
my @a;
- for(my $i=0;$i<16;$i++) {
+ for (my $i=0;$i<16;$i++) {
push(@a,0x40800000 + (hex($t[$i+1]) & 0xff) + ($i << 16));
- }
+ }
sendcmd16(@a);
sendcmd(0x50804000 + $p);
$p++;
- printf(STDERR "\r%d / 5760",$p) if(!($p%10));
- }
- }
+ printf(STDERR "\r%d / 5760",$p) if(!($p%10));
+ }
+}
-if($ARGV[2] eq "fifo" || $ARGV[2] eq "ffarr") {
+if ($ARGV[2] eq "fifo" || $ARGV[2] eq "ffarr") {
my $b = sendcmd(0x200f0000);
foreach my $e (sort keys %$b) {
printf("0x%04x\t%d\t0x%04x\n",$e,$chain,$b->{$e}&0xffff);
- }
- }
+ }
+}
jspc29 / daqtools.git / commitdiff