#    This is the module register Group Enable Mask 0x8120


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

proc GetGrpEnable {} {
     variable GrpEnableMask
     for {set i 0} {$i < 8} {incr i} {variable GrpEnableMask$i}

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

proc SetGrpEnable {} {
     variable GrpEnableMask
     for {set i 0} {$i < 8} {incr i} {variable GrpEnableMask$i}

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

     WriteRegister Enable $GrpEnableMask
}


proc DrawGrpEnable {} {

   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%>Group</td>"
   append html  "<td  align=center width=50%>Group 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 ::V1740::GrpEnableMask$i] == 1} {set x "Checked value=0"} else {set x "value=1"}] \
              onClick=\"click_MSETTING(document.V1740, 'GrpEnableMask$i', document.MSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"
}

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

     return $html
}