fixed pinout

diff --git a/hmon/hmon_diamond.pl b/hmon/hmon_diamond.pl
index 1824b23f63d6c37cf4400906d30b5b5788d3687c..e102fbfdd6a10db08cc59380460168660f1a8fe4 100755 (executable)
--- a/hmon/hmon_diamond.pl
+++ b/hmon/hmon_diamond.pl
@@ -75,7 +75,7 @@ Hmon::WriteFile("DiamondRate",$str);
 #    4    2    20   1    1    9    9    1    6    5000    0b
 #    4    3    21   2    1    7    7    2    5    5000    19
 #    4    4    22   2    3    13  13    6    8    5003    1f
-#    4    5    23   1    3    7    7    6    5    5003    19 !!!!!!
+#    4    5    23   1    3    7    7    5    5    5003    09 !!!!!!
 #    4    6    24   1    2    13  13    3    8    5002    0f  
 
 #    5    1    25   2    1    5    5    2    4    5000    17
@@ -95,7 +95,7 @@ Hmon::WriteFile("DiamondRate",$str);
 my $fpga = [[0,   2,   2,   2,   2,   2   ],[0,   0,   0,   2,   2,   2   ],[0,   0,   2,   2,   2,   2   ],
             [0,   0,   0,   3,   3,   2   ],[0,   3,   0,   3,   3,   3   ],[0,   0,   3,   3,   3,   3   ]];
 my $chan = [[0x1f,0x17,0x07,0x03,0x19,0x1d],[0x1d,0x1b,0x0f,0x05,0x15,0x1f],[0x05,0x0d,0x13,0x1b,0x0d,0x0b],
-            [0x03,0x0b,0x19,0x1f,0x19,0x0f],[0x17,0x1d,0x07,0x07,0x15,0x17],[0x13,0x15,0x03,0x05,0x1b,0x19]];
+            [0x03,0x0b,0x19,0x1f,0x09,0x0f],[0x17,0x1d,0x07,0x07,0x15,0x17],[0x13,0x15,0x03,0x05,0x1b,0x19]];
 
 my $old;
 my $oldtime = time();