#    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=>02 0
        variable Ch$i.AlgorithmControl_B04 0
        variable Ch$i.AlgorithmControl_B06 0
        variable Ch$i.AlgorithmControl_B11=>13 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
        variable Ch$i.AlgorithmControl_B28 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=>02
        variable Ch$i.AlgorithmControl_B04
        variable Ch$i.AlgorithmControl_B06
        variable Ch$i.AlgorithmControl_B11=>13
        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
        variable Ch$i.AlgorithmControl_B28

        set Ch$i.AlgorithmControl_B00=>02 [expr [set Ch$i.AlgorithmControl] & 7]
        set Ch$i.AlgorithmControl_B04 [expr ([set Ch$i.AlgorithmControl] >> 4) & 1]
        set Ch$i.AlgorithmControl_B06 [expr ([set Ch$i.AlgorithmControl] >> 6) & 1]
        set Ch$i.AlgorithmControl_B11=>13 [expr ([set Ch$i.AlgorithmControl] >> 11) & 3]
        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]
        set Ch$i.AlgorithmControl_B28 [expr ([set Ch$i.AlgorithmControl] >> 28) & 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=>02
        variable Ch$i.AlgorithmControl_B04
        variable Ch$i.AlgorithmControl_B06
        variable Ch$i.AlgorithmControl_B11=>13
        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
        variable Ch$i.AlgorithmControl_B28

      set Ch$i.AlgorithmControl [expr \
         ([set Ch$i.AlgorithmControl_B00=>02] << 0) | \
         ([set Ch$i.AlgorithmControl_B04] << 4) | \
         ([set Ch$i.AlgorithmControl_B06] << 6) | \
         ([set Ch$i.AlgorithmControl_B11=>13] << 11) | \
         ([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) | \
         ([set Ch$i.AlgorithmControl_B28] << 28) ]

         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=>02
        variable Ch$i.AlgorithmControl_B04
        variable Ch$i.AlgorithmControl_B06
        variable Ch$i.AlgorithmControl_B11=>13
        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
        variable Ch$i.AlgorithmControl_B28

     }


   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=4%>Channel</td>"

   append html  "<td  align=center width=7%>Charge Sensitivity</td>"
   append html  "<td  align=center width=7%>Charge Pedestal</td>"
   append html  "<td  align=center width=7%>CFD</td>"
   append html  "<td  align=center width=7%>Extras Word Options</td>"
   append html  "<td  align=center width=7%>Pulse Polarity</td>"
   append html  "<td  align=center width=7%>Shaped Trigger Duration</td>"
   append html  "<td  align=center width=7%>Trigger Mode</td>"
   append html  "<td  align=center width=7%>Baseline Mean</td>"
   append html  "<td  align=center width=7%>Self Trigger</td>"
   append html  "<td  align=center width=7%>Pile-Up ReTrigger</td>"
   append html  "<td  align=center width=7%>Pile-Up Rejection</td>"
   append html  "<td  align=center width=7%>PSD cut below threshold</td>"
   append html  "<td  align=center width=7%>PSD cut above threshold</td>"
   append html  "</tr>"

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

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


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

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

   set j 0
   foreach item {20fc 40fc 80fc 160fc 320fc 640fc}  {

     if {$j == [set Ch$i.AlgorithmControl_B00=>02]} {
        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=P04$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B04', $i, document.CHSETTINGS.P04$i.value)\">"

   set j 0
   foreach item {disabled enabled}  {

     if {$j == [set Ch$i.AlgorithmControl_B04]} {
        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=P06$i size=1 \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B06', $i, document.CHSETTINGS.P06$i.value)\">"

   set j 0
   foreach item {disabled enabled}  {

     if {$j == [set Ch$i.AlgorithmControl_B06]} {
        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=P1113$i size=1  \
       onChange=\"click_CHSETTING(document.[set Name], 'AlgorithmControl_B11=>13', $i, document.CHSETTINGS.P1113$i.value)\">"

   set j 0
   foreach item {"extended time stamp + baseline*8" "extended time stamp + flags" "extended time stamp + flags + fine time stamp" "flags + fine time stamp + baseline*8" reserved "CFD Xing" reserved debug}  {

     if {$j == [set Ch$i.AlgorithmControl_B11=>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=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 {programmable over-threshold}  {

     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 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=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 {fixed 8 16 32 64 128 256 512}  {

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

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

   set j 0
   foreach item {disable enable}  {

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