#    This is the module register Channel Enable Mask 0x8120

     variable NumChans

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

proc GetChEnable {} {
     variable ChEnableMask
     variable NumChans
     for {set i 0} {$i < $NumChans} {incr i} {variable ChEnableMask$i}

     set ChEnableMask [ReadRegister Enable]
     for {set i 0} {$i < $NumChans} {incr i} {set ChEnableMask$i [expr ($ChEnableMask >> $i) & 1]}
}

proc SetChEnable {} {
     variable ChEnableMask
     variable NumChans
     for {set i 0} {$i < $NumChans} {incr i} {variable ChEnableMask$i}

     set ChEnableMask 0
     for {set i 0} {$i < $NumChans} {incr i} {set ChEnableMask [expr $ChEnableMask + ([set ChEnableMask$i] << $i)]}

     WriteRegister Enable $ChEnableMask
}


proc DrawChEnable {} {
   variable Name
   variable NumChans

   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=50%>Channel</td>"
   append html  "<td  align=center width=50%>Channel enabled</td>"
   append html  "</tr>"
  
for {set i 0} {$i < $NumChans} {incr i} {

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

   append html "<td align=center width=50%>"
      append html "<input type=Checkbox name=P$i \
           [if {[set ::[set Name]::ChEnableMask$i] == 1} {set x "Checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.[set Name], 'ChEnableMask$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"
}

   append html  "</table>"
   append html  "</p>"

     return $html
}