make hcp writeable

tcl/drivers/hcp.tcl

@@ -12,7 +12,9 @@ proc stdConfig::hcp {} {
   prop update hcp::update
   prop complete hcp::complete
 
-  obj hcp rd
+  obj hcp wr
+  prop check hcp::setMain
+  prop write hcp::writeMain
   prop reg M0
   kids "high voltage" {
 
@@ -53,6 +55,14 @@ proc stdConfig::hcp {} {
 }
 
 
+proc hcp::setMain {} {
+  hset [sct]/set [sct target]
+}
+
+proc hcp::writeMain {} {
+  return hcp::read
+}
+
 proc hcp::read {} {
   sct send ">[sct reg]?"
   return update