#    This is the module register Channel Enable Mask 0x8120



     variable ChEnable 0
     for {set i 0} {$i < 8} {incr i} {variable ChEnable$i 0}
 

proc GetChEnable {} {
     variable ChEnable
     for {set i 0} {$i < 8} {incr i} {variable ChEnable$i}


     set ChEnable [ReadRegister ChEnable]
     for {set i 0} {$i < 8} {incr i} {set ChEnable$i [expr ($ChEnable >> $i) & 1]}

}

proc SetChEnable {} {
     variable ChEnable
     for {set i 0} {$i < 8} {incr i} {variable ChEnable$i}

     set ChEnable 0
     for {set i 0} {$i < 8} {incr i} {set ChEnable [expr $ChEnable + ([set ChEnable$i] << $i)]}

     WriteRegister ChEnable $ChEnable
}


proc DrawChEnable {} {

   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 < 8} {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 ::V1751::ChEnable$i] == 1} {set x "checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.V1751, 'ChEnable$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"
}

   append html  "</table>"

   append html  "</p>"

   return $html
}