HAMEG_HMP4030: {Set,Get}Fuse

diff --git a/HAMEG_HMP4030/HAMEG_HMP4030App/Db/HAMEG_HMP4030_CHANNEL.template b/HAMEG_HMP4030/HAMEG_HMP4030App/Db/HAMEG_HMP4030_CHANNEL.template
index 29bf660bf32692a621df0d491b5cd08cba2a1173..0c0d82c82426a00a9ad7a57be69d7704d35b8efa 100644 (file)
--- a/HAMEG_HMP4030/HAMEG_HMP4030App/Db/HAMEG_HMP4030_CHANNEL.template
+++ b/HAMEG_HMP4030/HAMEG_HMP4030App/Db/HAMEG_HMP4030_CHANNEL.template
@@ -107,19 +107,21 @@ record (bi, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):GetOutput") {
   field (PINI, "YES")
 }
 
-record (bo, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):ActivateFuse") {
+record (bo, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):SetFuse") {
   field (DTYP, "stream")
-  field (OUT,  "@HAMEG_HMP4030.proto ActivateFuse($(CHAN)) $(PORT)")
-}
-
-record (bo, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):DeactivateFuse") {
-  field (DTYP, "stream")
-  field (OUT,  "@HAMEG_HMP4030.proto DeactivateFuse($(CHAN)) $(PORT)")
+  field (OUT,  "@HAMEG_HMP4030.proto SetFuse($(CHAN)) $(PORT)")
+  field (ZNAM, "OFF")
+  field (ONAM, "ON")
+  field (PINI, "YES")
 }
 
-record (bi, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):ReadFuseMode") {
+record (bi, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):GetFuse") {
   field (DTYP, "stream")
-  field (INP,  "@HAMEG_HMP4030.proto ReadFuseMode($(CHAN)) $(PORT)")
+  field (INP,  "@HAMEG_HMP4030.proto GetFuse($(CHAN)) $(PORT)")
+  field (ZNAM, "OFF")
+  field (ONAM, "ON")
+  field (SCAN, "2 second")
+  field (PINI, "YES")
 }
 
 record (ao, "$(sys):$(sub):POWER:$(vsys):$(CHAN_NAME):SetVoltageProtection") {

diff --git a/HAMEG_HMP4030/protocols/HAMEG_HMP4030.proto b/HAMEG_HMP4030/protocols/HAMEG_HMP4030.proto
index d696ec250e58908fda476d813644e89e597eefa5..379e7f66f22c5c141ba034e66a07bb643a304814 100644 (file)
--- a/HAMEG_HMP4030/protocols/HAMEG_HMP4030.proto
+++ b/HAMEG_HMP4030/protocols/HAMEG_HMP4030.proto
@@ -121,20 +121,16 @@ SetOutput {
 
 #---FUSE------------------------------------------------------------------------------
 
-ActivateFuse {
+GetFuse {
   out "INST OUT\$1";
-  out "FUSE ON";
-}
-
-DeactivateFuse {
-  out "INST OUT\$1";
-  out "FUSE OFF";
+  out "FUSE?";
+  in "%i";
 }
 
-ReadFuseMode {
+SetFuse {
   out "INST OUT\$1";
-  out "FUSE?";
-  in "%i";
+  out "FUSE %i";
+  @init { GetFuse; }
 }
 
 #---PROTECTION------------------------------------------------------------------------