#    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=>07 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_B15 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_B25  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=>07
        variable Ch$i.AlgorithmControl_B08=>09
        variable Ch$i.AlgorithmControl_B10=>11
        variable Ch$i.AlgorithmControl_B12=>13
        variable Ch$i.AlgorithmControl_B15
        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_B25
        variable Ch$i.AlgorithmControl_B26
        variable Ch$i.AlgorithmControl_B27

        set Ch$i.AlgorithmControl_B00=>07 [expr [set Ch$i.AlgorithmControl] & 255]
        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_B15 [expr ([set Ch$i.AlgorithmControl] >> 15) & 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_B25 [expr ([set Ch$i.AlgorithmControl] >> 25) & 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=>07
        variable Ch$i.AlgorithmControl_B08=>09
        variable Ch$i.AlgorithmControl_B10=>11
        variable Ch$i.AlgorithmControl_B12=>13
        variable Ch$i.AlgorithmControl_B15
        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_B25
        variable Ch$i.AlgorithmControl_B26
        variable Ch$i.AlgorithmControl_B27

      set Ch$i.AlgorithmControl [expr \
         ([set Ch$i.AlgorithmControl_B00=>07] << 0) | \
         ([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_B15] << 15) | \
         ([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_B25] << 25) | \
         ([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=>07
        variable Ch$i.AlgorithmControl_B08=>09 
        variable Ch$i.AlgorithmControl_B10=>11 
        variable Ch$i.AlgorithmControl_B12=>13 
        variable Ch$i.AlgorithmControl_B15 
        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_B25
        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>"

   append html "<tr>"
   append html  "<td  align=center width=10%>Channel</td>"
   append html  "<td  align=center width=90%>Trapezoid Rescaling</td>"
   append html  "</tr>"

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

   append html "<tr>"
   append html "<td align=center width=10%>$i</td>"
   append html "<td align=center width=90%><div id=\"Offset$i\"></div>&nbsp;</td>"
   append html  "</tr>"
}
   append html  "</table>"

   append html "<script>"

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

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

   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=7%>Decimation</td>"
   append html  "<td  align=center width=7%>Digital Gain</td>"
   append html  "<td  align=center width=7%>Peak Mean</td>"
   append html  "<td  align=center width=7%>Enable Noise Rejection</td>"
   append html  "<td  align=center width=7%>Invert Input</td>"
   append html  "<td  align=center width=7%>Trigger on RC-CR or RC-CR2</td>"
   append html  "<td  align=center width=7%>Trigger Mode</td>"
   append html  "<td  align=center width=7%>Baseline average</td>"
   append html  "<td  align=center width=7%>Self Trigger</td>"
   append html  "<td  align=center width=7%>Pseudo Event #1</td>"
   append html  "<td  align=center width=7%>Pseudo Event #2</td>"
   append html  "<td  align=center width=7%>Pile Up Energy</td>"
   append html  "</tr>"

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

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


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

   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=7%>"

   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=7%>"

   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=7%>"

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

   set j 0
   foreach item {disable enable}  {

     if {$j == [set Ch$i.AlgorithmControl_B15]} {
        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=7%>"

   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=7%>"

   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=7%>"

   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 neighbour coincidence 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=7%>"

   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=7%>"

      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 {enable disable} {

        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=7%>"

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

      set j 0
      foreach item {disable enable} {

        if {$j == [set Ch$i.AlgorithmControl_B25]} {
           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=7%>"

      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 {disable enable} {

        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 "<td align=center width=7%>"

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

      set j 0
      foreach item {disable enable} {

        if {$j == [set Ch$i.AlgorithmControl_B27]} {
           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
}