From cc3bcdc8ab2f944529477e484ac9e79d616249af Mon Sep 17 00:00:00 2001
From: Edward Wall <edward.wall@psi.ch>
Date: Wed, 18 Mar 2026 10:53:10 +0100
Subject: [PATCH] this is surely a simpler way to detect a change is still
 occuring

---
 db/shutter.db | 49 +++++--------------------------------------------
 1 file changed, 5 insertions(+), 44 deletions(-)

diff --git a/db/shutter.db b/db/shutter.db
index 66aa230..6cf7372 100644
--- a/db/shutter.db
+++ b/db/shutter.db
@@ -6,41 +6,9 @@ record(bo, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER")
   field(VAL, 0)
   field(ZNAM, "Closed")
   field(ONAM, "Open")
-  field(FLNK, "$(INSTR)$(SPS_REGISTER_NAME):SET-BUSY PP")
-}
-
-record(bo, "$(INSTR)$(SPS_REGISTER_NAME):RESET")
-{
-  field(DESC, "PV For Resetting internal state")
-  field(VAL, 0)
-  field(OUT, "$(INSTR)$(NAME):BUSY PP")
-}
-
-record(bo, "$(INSTR)$(SPS_REGISTER_NAME):SET-BUSY")
-{
-  field(DESC, "Trigger Internal Busy Status")
-  field(VAL, 1)
-  field(OUT, "$(INSTR)$(NAME):BUSY PP")
   field(FLNK, "$(INSTR)$(SPS_REGISTER_NAME):CLEAR-CONTROL PP")
 }
 
-record(seq, "$(INSTR)$(NAME):SET-READY")
-{
-  field(DESC, "Trigger Returned to Ready Status")
-  field(LNK1, "$(INSTR)$(NAME):BUSY PP")
-  field(DO1, 0)
-  field(SELM, "Specified")
-  field(SELL, "$(INSTR)$(NAME):SHUTTER-STATUS.VAL")
-}
-
-record(bi, "$(INSTR)$(SPS_REGISTER_NAME):BUSY")
-{
-  field(DESC, "Internal Busy State")
-  field(VAL, 0)
-  field(ZNAM, "Ready")
-  field(ONAM, "Busy")
-}
-
 # The Exposed SPS Interface has an open register and a close register. You need
 # to write 1 to the corresponding register to perform said action and make sure
 # that the other bit is set back to 0. These two records, in combination with
@@ -65,7 +33,7 @@ record(seq, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER-CONTROL")
   field(LNK1, "$(INSTR)$(SPS_REGISTER_NAME):OPEN-SHUTTER PP")
 }
 
-record(calc, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER-STATUS")
+record(calc, "$(INSTR)$(SPS_REGISTER_NAME):MAP-STATUS")
 {
   field(DESC, "Maps Status Variables to singular status")
   field(INPA, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER-READY NPP")
@@ -76,24 +44,17 @@ record(calc, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER-STATUS")
   field(INPF, "$(INSTR)$(SPS_REGISTER_NAME):MOVES NPP")
   field(INPG, "$(INSTR)$(SPS_REGISTER_NAME):ConnStatusFetch NPP")
   field(INPH, "$(INSTR)$(SPS_REGISTER_NAME):ConnStatusWrite NPP")
-  field(CALC, "(G=0||H=0||E=0||B=0)?3:(A=0||D=0)?2:F=1?1:C=0?3:0")
+  field(INPI, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER NPP")
+  field(INPJ, "$(INSTR)$(SPS_REGISTER_NAME):OPEN NPP")
+  field(CALC, "(G=0||H=0||E=0||B=0)?3:(A=0||D=0)?2:(F=1||I#J)?1:C=0?3:0")
   field(SCAN, ".1 second")
-  field(FLNK, "$(INSTR)$(SPS_REGISTER_NAME):INTERNAL-STATUS PP")
-}
-
-record(calc, "$(INSTR)$(SPS_REGISTER_NAME):INTERNAL-STATUS")
-{
-  field(DESC, "Maps Status Variables to singular status")
-  field(INPA, "$(INSTR)$(SPS_REGISTER_NAME):SHUTTER-STATUS NPP")
-  field(INPB, "$(INSTR)$(SPS_REGISTER_NAME):BUSY NPP")
-  field(CALC, "( A=0 && B=1 )?1:A")
   field(FLNK, "$(INSTR)$(SPS_REGISTER_NAME):STATUS PP")
 }
 
 record(mbbi, "$(INSTR)$(SPS_REGISTER_NAME):STATUS")
 {
   field(DESC, "Status of Shutter")
-  field(INP, "$(INSTR)$(SPS_REGISTER_NAME):INTERNAL-STATUS NPP")
+  field(INP, "$(INSTR)$(SPS_REGISTER_NAME):MAP-STATUS NPP")
   field(ZRVL, "0")
   field(ZRST, "Okay")
   field(ONVL, "1")