#    This is the group register Channel Enable Mask  0x1na8

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


proc GetChEnable {} {

    for {set i 0} {$i < 8} {incr i} {
        variable Grp$i.ChEnable
        set Grp$i.ChEnable [ReadRegister Grp$i.ChEnable]
    }
}

proc SetChEnable {} {

    for {set i 0} {$i < 8} {incr i} {
        variable Grp$i.ChEnable
        WriteRegister Grp$i.ChEnable [set Grp$i.ChEnable]
    }
}

    proc SaveChEnable {} {

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

           DBSetValue Grp$i.ChEnable [ReadRegister Grp$i.ChEnable]
      }
    }

    proc RestChEnable {} {

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

           WriteRegister Grp$i.ChEnable  [DBGetValue Grp$i.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%>Group</td>"
   append html  "<td  align=center width=50%>Channel Enable Mask</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=text name=P$i size=10 value=[set ::V1740::Grp$i.ChEnable]  \
          onMouseOver=\"activateEntry(document.CHSETTINGS.P$i)\" \  
              onChange=\"click_CHSETTING(document.V1740, 'ChEnable', '$i', document.CHSETTINGS.P$i.value)\">"

   append html "</td>"

   append html  "</tr>"
}

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

     return $html
}