#    This is the channel Algorithm Control register which is fields within the register at 0x1n80




    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.AlgorithmControl 0
        variable Ch$i.AlgorithmControl_B00=>05 0
        variable Ch$i.AlgorithmControl_B6 0
        variable Ch$i.AlgorithmControl_B08=>09 0
        variable Ch$i.AlgorithmControl_B10=>11 0
        variable Ch$i.AlgorithmControl_B12=>13 0
        variable Ch$i.AlgorithmControl_B14 0
        variable Ch$i.AlgorithmControl_B16 0
        variable Ch$i.AlgorithmControl_B17 0
        variable Ch$i.AlgorithmControl_B18=>19 0
        variable Ch$i.AlgorithmControl_B20=>22 0
        variable Ch$i.AlgorithmControl_B24  0    
        variable Ch$i.AlgorithmControl_B26  0
        variable Ch$i.AlgorithmControl_B27  0
    }


proc GetAlgorithmControl {} {
     variable NumChans

    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.AlgorithmControl
        set Ch$i.AlgorithmControl [ReadRegister Ch$i.AlgorithmControl]

        variable Ch$i.AlgorithmControl_B00=>05
        variable Ch$i.AlgorithmControl_B6
        variable Ch$i.AlgorithmControl_B08=>09
        variable Ch$i.AlgorithmControl_B10=>11
        variable Ch$i.AlgorithmControl_B12=>13
        variable Ch$i.AlgorithmControl_B14
        variable Ch$i.AlgorithmControl_B16
        variable Ch$i.AlgorithmControl_B17
        variable Ch$i.AlgorithmControl_B18=>19
        variable Ch$i.AlgorithmControl_B20=>22
        variable Ch$i.AlgorithmControl_B24
        variable Ch$i.AlgorithmControl_B26
        variable Ch$i.AlgorithmControl_B27  

        set Ch$i.AlgorithmControl_B00=>05 [expr [set Ch$i.AlgorithmControl] & 0x3f]
        set Ch$i.AlgorithmControl_B6 [expr ([set Ch$i.AlgorithmControl] >> 6) & 1]
        set Ch$i.AlgorithmControl_B08=>09 [expr ([set Ch$i.AlgorithmControl] >> 8) & 3]
        set Ch$i.AlgorithmControl_B10=>11 [expr ([set Ch$i.AlgorithmControl] >> 10) & 3]
        set Ch$i.AlgorithmControl_B12=>13 [expr ([set Ch$i.AlgorithmControl] >> 12) & 3]
        set Ch$i.AlgorithmControl_B14 [expr ([set Ch$i.AlgorithmControl] >> 14) & 1]
        set Ch$i.AlgorithmControl_B16 [expr ([set Ch$i.AlgorithmControl] >> 16) & 1]
        set Ch$i.AlgorithmControl_B17 [expr ([set Ch$i.AlgorithmControl] >> 17) & 1]
        set Ch$i.AlgorithmControl_B18=>19 [expr ([set Ch$i.AlgorithmControl] >> 18) & 3]
        set Ch$i.AlgorithmControl_B20=>22 [expr ([set Ch$i.AlgorithmControl] >> 20) & 7]
        set Ch$i.AlgorithmControl_B24 [expr ([set Ch$i.AlgorithmControl] >> 24) & 1]
        set Ch$i.AlgorithmControl_B26 [expr ([set Ch$i.AlgorithmControl] >> 26) & 1]
        set Ch$i.AlgorithmControl_B27 [expr ([set Ch$i.AlgorithmControl] >> 27) & 1]

    }
}

proc SetAlgorithmControl {w} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.AlgorithmControl

         if {$w < $NumChans && $w != $i} {continue}

        variable Ch$i.AlgorithmControl_B00=>05
        variable Ch$i.AlgorithmControl_B6
        variable Ch$i.AlgorithmControl_B08=>09
        variable Ch$i.AlgorithmControl_B10=>11
        variable Ch$i.AlgorithmControl_B12=>13
        variable Ch$i.AlgorithmControl_B14
        variable Ch$i.AlgorithmControl_B16
        variable Ch$i.AlgorithmControl_B17
        variable Ch$i.AlgorithmControl_B18=>19
        variable Ch$i.AlgorithmControl_B20=>22
        variable Ch$i.AlgorithmControl_B24
        variable Ch$i.AlgorithmControl_B26
        variable Ch$i.AlgorithmControl_B27  

set Ch$i.AlgorithmControl_B27  0

      set Ch$i.AlgorithmControl [expr \
         ([set Ch$i.AlgorithmControl_B00=>05] << 0) | \
         ([set Ch$i.AlgorithmControl_B6] << 6) | \
         ([set Ch$i.AlgorithmControl_B08=>09] << 8) | \
         ([set Ch$i.AlgorithmControl_B10=>11] << 10) | \
         ([set Ch$i.AlgorithmControl_B12=>13] << 12) | \
         ([set Ch$i.AlgorithmControl_B14] << 14) | \
         ([set Ch$i.AlgorithmControl_B16] << 16) | \
         ([set Ch$i.AlgorithmControl_B17] << 17) | \
         ([set Ch$i.AlgorithmControl_B18=>19] << 18) | \
         ([set Ch$i.AlgorithmControl_B20=>22] << 20) | \
         ([set Ch$i.AlgorithmControl_B24] << 24) | \
         ([set Ch$i.AlgorithmControl_B26] << 26) | \
         ([set Ch$i.AlgorithmControl_B27] << 27)]

         WriteRegister Ch$i.AlgorithmControl [set Ch$i.AlgorithmControl]

     }

}

    proc SaveAlgorithmControl {} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {

           DBSetValue Ch$i.AlgorithmControl [ReadRegister Ch$i.AlgorithmControl]
      }
    }

    proc RestAlgorithmControl {} {
      variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {

           variable Ch$i.AlgorithmControl
           set Ch$i.AlgorithmControl  [DBGetValue Ch$i.AlgorithmControl]
           WriteRegister Ch$i.AlgorithmControl  [DBGetValue Ch$i.AlgorithmControl]
      }

        GetAlgorithmControl

    }

proc DrawAlgorithmControl {} {
   variable NumChans
   variable Name

    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.AlgorithmControl 

        variable Ch$i.AlgorithmControl_B00=>05
        variable Ch$i.AlgorithmControl_B6
        variable Ch$i.AlgorithmControl_B08=>09 
        variable Ch$i.AlgorithmControl_B10=>11 
        variable Ch$i.AlgorithmControl_B12=>13 
        variable Ch$i.AlgorithmControl_B14
        variable Ch$i.AlgorithmControl_B16 
        variable Ch$i.AlgorithmControl_B17
        variable Ch$i.AlgorithmControl_B18=>19
        variable Ch$i.AlgorithmControl_B20=>22
        variable Ch$i.AlgorithmControl_B24      
        variable Ch$i.AlgorithmControl_B26
        variable Ch$i.AlgorithmControl_B27  
     }


   set html ""

   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   set j [expr $NumChans/4]

   append html "<tr>"
   for {set i 0} {$i < $j} {incr i} {
   append html  "<td  align=center width=5%>Channel</td>"
   append html  "<td  align=center width=20%>Trapezoid Rescaling</td>"
   }
   append html  "</tr>"

   append html "<tr>"
   for {set i 0} {$i < $j} {incr i} {
   append html "<td align=center width=5%>$i</td>"
   append html "<td align=center width=20%><div id=\"Offset$i\"></div>&nbsp;</td>"
   }
   append html "</tr>"

   append html "<tr>"
   for {} {$i < [expr 2*$j]} {incr i} {
   append html "<td align=center width=5%>$i</td>"
   append html "<td align=center width=20%><div id=\"Offset$i\"></div>&nbsp;</td>"
   }
   append html "</tr>"

   append html "<tr>"
   for {} {$i < [expr 3*$j]} {incr i} {
   append html "<td align=center width=5%>$i</td>"
   append html "<td align=center width=20%><div id=\"Offset$i\"></div>&nbsp;</td>"
   }
   append html "</tr>"

   append html "<tr>"
   for {} {$i < [expr 4*$j]} {incr i} {
   append html "<td align=center width=5%>$i</td>"
   append html "<td align=center width=20%><div id=\"Offset$i\"></div>&nbsp;</td>"
   }
   append html "</tr>"

   append html  "</table>"

   append html "<script>"

   append html "SliderID('AlgorithmControl_B00=>05');"

for {set i 0} {$i < $NumChans} {incr i} {
   append html "SelectSlider($i); SetSlider(0,63,25,125);"
   append html "MakeSlider(document.[set Name], $i, [set ::[set Name]::Ch$i.AlgorithmControl_B00=>05]);"
}

   append html "</script>"

   append html  "</p>"


   append html  "<p align=center>"
   append html  "<table cellpadding=0 cellspacing=0 border=1>"

   append html "<tr>"
   append html  "<td  align=center width=8%>Channel</td>"

   append html  "<td  align=center width=8%>Discr Mode</td>"
   append html  "<td  align=center width=8%>Decimation</td>"
   append html  "<td  align=center width=8%>Digital Gain</td>"
   append html  "<td  align=center width=8%>Peak Mean</td>"
   append html  "<td  align=center width=8%>Internal Test Pulse</td>"
   append html  "<td  align=center width=8%>Invert Input</td>"
   append html  "<td  align=center width=8%>Trigger on RC-CR or RC-CR2</td>"
   append html  "<td  align=center width=8%>Trigger Mode</td>"
   append html  "<td  align=center width=8%>Baseline average</td>"
   append html  "<td  align=center width=8%>Self Trigger</td>"
   append html  "<td  align=center width=8%>Pseudo Event #1</td>"
   append html  "</tr>"

for {set i 0} {$i < $NumChans} {incr i} {

   append html "<tr>"
   append html "<td align=center width=8%>$i</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P6$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B6', $i, document.CHSETTINGS.P6$i.value)\">"

   set j 0
   foreach item {CFD LED}  {

     if {$j == [set Ch$i.AlgorithmControl_B6]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P0809$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B08=>09', $i, document.CHSETTINGS.P0809$i.value)\">"

   set j 0
   foreach item {disabled 2 4 8}  {

     if {$j == [set Ch$i.AlgorithmControl_B08=>09]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"


   append html "<td align=center width=8%>"

   append html "<select name=P1011$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B10=>11', $i, document.CHSETTINGS.P1011$i.value)\">"

   set j 0
   foreach item {1 2 4 8}  {

     if {$j == [set Ch$i.AlgorithmControl_B10=>11]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P1214$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B12=>13', $i, document.CHSETTINGS.P1214$i.value)\">"

   set j 0
   foreach item {1 4 16 64}  {

     if {$j == [set Ch$i.AlgorithmControl_B12=>13]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P14$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B14', $i, document.CHSETTINGS.P14$i.value)\">"

   set j 0
   foreach item {disable enable}  {

     if {$j == [set Ch$i.AlgorithmControl_B14]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P16$i size=1  \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B16', $i, document.CHSETTINGS.P16$i.value)\">"

   set j 0
   foreach item {positive negative}  {

     if {$j == [set Ch$i.AlgorithmControl_B16]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P17$i size=1  \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B17', $i, document.CHSETTINGS.P17$i.value)\">"

   set j 0
   foreach item {RC-CR2 RC-CR}  {

     if {$j == [set Ch$i.AlgorithmControl_B17]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P1819$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B18=>19', $i, document.CHSETTINGS.P1819$i.value)\">"

   set j 0
   foreach item {normal coincidence reserved anti-coincidence}  {

     if {$j == [set Ch$i.AlgorithmControl_B18=>19]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P2022$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B20=>22', $i, document.CHSETTINGS.P2022$i.value)\">"

   set j 0
   foreach item {disabled 16 64 256 1024 4096 16384}  {

     if {$j == [set Ch$i.AlgorithmControl_B20=>22]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P24$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B24', $i, document.CHSETTINGS.P24$i.value)\">"

   set j 0
   foreach item {enabled disabled}  {

     if {$j == [set Ch$i.AlgorithmControl_B24]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"

   append html "<td align=center width=8%>"

   append html "<select name=P26$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B26', $i, document.CHSETTINGS.P26$i.value)\">"

   set j 0
   foreach item {disabled enabled}  {

     if {$j == [set Ch$i.AlgorithmControl_B26]} {
        append html "<option value=$j selected>$item</option>"
     } else {
        append html "<option value=$j>$item</option>"
     }
     incr j
   }

   append html "</select>"

   append html  "</td>"


   append html  "</tr>"
}
   append html  "</table>"

   append html  "</p>"

   return $html
}