#Plane Sector Board Long Serial
##########################################
-0 0 0 0 0
-0 0 1 1 0
-0 0 2 1 0
+0 0 0 0 001
+0 0 1 1 013
+0 0 2 1 008
0 0 3 0 0
0 0 4 0 0
0 0 5 0 0
0 0 7 1 0
0 0 8 0 0
0 0 9 0 0
-0 0 10 1 0
-0 0 11 0 0
-0 0 12 1 0
-0 0 13 0 0
+0 0 10 1 012
+0 0 11 0 002
+0 0 12 1 011
+0 0 13 0 010
0 1 0 0 0
0 1 1 1 0
70131 1 25 18 18 21 23 20 21 22
70131 2 20 20 18 17 21 15 16 22
70131 3 16 27 27 20 22 16 18 20
-
-
+
+ 60151 0 77 17 22 77 16 77 18 19
+ 60151 1 77 15 77 77 77 13 26 77
+ 60151 2 17 77 18 17 15 77 20 15
+ 60151 3 77 77 23 77 20 15 18 20
+
+ 70151 0 17 20 15 16 13 17 16 13
+ 70151 1 18 77 21 18 18 19 19 77
+ 70151 2 21 77 77 21 23 22 25 20
+ 70151 3 77 25 23 77 16 77 21 16
60161 0 15 19 22 21 22 19 22 25
60161 1 24 26 19 22 26 21 19 19
60161 2 20 22 22 25 20 21 21 23
60161 3 21 20 20 24 24 23 20 22
+
70161 0 22 25 24 22 23 28 21 29
70161 1 23 24 21 16 23 24 19 18
70161 2 14 22 21 18 20 20 19 25
}
}
close FILE;
-
- my $hostname = sprintf("mdcpd%03x",$id);
+
+ my $hostname = sprintf("mdcpd%03i",$id);
return(-1,0,0) if $id==-1;
open FILE, "../installation/power_outputs.db" or die $!."\npower_outputs.db not found.";
if($newset>7) { $newset = 7; print "Out of range.\n";}
if($newset<0) { $newset = 0; print "Out of range.\n";}
print("Change Settings\n");
- my $ret = MDCPower::set_voltage($board,$channel,$setting,0);
+ my $ret = MDCPower::set_voltage($board,$channel,$newset,0);
die "Invalid Settings\n" if $ret == -1;
die "Power Output not found\n" if $ret == -2;
#first version misses endpoint IDs, prefix with 8 (oep) and 6/7 (near and far tdc)
80011 0x0000e4b3001f2941
60011 0x0000f34c001f2941
-70011
+70011 0x00009c7d00202941
80021 0x0000e6cf001f2941
60021 0x0000f069001f2941
80141
-80151
+80151 0x0000fe5c001f2941
+60151 0x00009b7400202941
+70151 0x0000f5a1001f2941
+
@ GU
80161 0x000084d200202941
60161 0x00004f3800202941
# Address # Voltage 1 # Voltage 2
########################################
- 0x8e00 2 2
- 0x8e01 2 2
+ 0x8e00 7 2
+ 0x8e01 7 2
0x8e02 2 2
0x8e03 2 2
0x8e04 2 2