#    This is the register Channel n HV POWER 0x1n34

if {$Name == "V1724PHA"} {return}

    variable NumChans

    for {set i 0} {$i < $NumChans} {incr i} {
        variable Ch$i.HVPOWER 0
        variable Ch$i.HVPOWER.B0 0
    }


    proc GetHVPOWER {} {
       variable NumChans

        for {set i 0} {$i < $NumChans} {incr i} {
           variable Ch$i.HVPOWER
           variable Ch$i.HVPOWER.B0

           set Ch$i.HVPOWER [ReadRegister Ch$i.HV_POWER]
           set Ch$i.HVPOWER.B0 [expr ([set Ch$i.HVPOWER]) & 1]
           
        }
   }


proc SetHVPOWER {w} {
    variable NumChans

      for {set i 0} {$i < $NumChans} {incr i} {
          variable Ch$i.HVPOWER
          variable Ch$i.HVPOWER.B0

         if {$w < $NumChans && $w != $i} {continue}

         WriteRegister Ch$i.HV_POWER [set Ch$i.HVPOWER.B0]
      }

}

    proc SaveHVPOWER {} {
      variable NumChans

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

           DBSetValue Ch$i.HVPOWER [ReadRegister Ch$i.HV_POWER]
      }
    }

    proc RestHVPOWER {} {
       variable NumChans

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

           variable Ch$i.HVPOWER
           set Ch$i.HVPOWER  [DBGetValue Ch$i.HVPOWER]
           WriteRegister Ch$i.HV_POWER  [DBGetValue Ch$i.HVPOWER]
      }

    }


proc DrawHVPOWER {} {
   variable NumChans
   variable Name

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

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

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

   append html "<select name=P$i size=1 \
       onChange=\"click_HVSETTING(document.[set Name], 'HVPOWER.B0', '[expr 4+$i]', document.HVSETTINGS.P$i.value)\">"

   set j 0
   foreach item {"off" "on"}  {
     if {$j == [set ::[set Name]::Ch$i.HVPOWER.B0]} {
        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

}