From 4dc2f7db68e5c81dd92a1eb194a32fff43d40062 Mon Sep 17 00:00:00 2001
From: sans <markus.zolliker@psi.ch>
Date: Wed, 6 Sep 2023 08:40:53 +0200
Subject: [PATCH] make hcp writeable

---
 tcl/drivers/hcp.tcl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/tcl/drivers/hcp.tcl b/tcl/drivers/hcp.tcl
index 97a7604..a4e8f65 100644
--- a/tcl/drivers/hcp.tcl
+++ b/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