SINQSW-107 draft streamdevice based counterbox driver

2024-10-17 17:09:49 +02:00
parent 39098fd0d1
commit af61358351
10 changed files with 525 additions and 9 deletions
--- a/sinqEPICSApp/Db/counterbox_common.db
+++ b/sinqEPICSApp/Db/counterbox_common.db
@ -0,0 +1,211 @@
+# EL737 EPICS Database for streamdevice support
+# Macros
+# P - Prefix
+# NAME - just a name, e.g. EL737
+# PROTO - Stream device protocol file
+# ASYN_PORT - Low level Asyn IP Port to EL737
+
+# Send initial initialisation commands
+record(bo, "$(P):$(NAME):INIT-CONF")
+{
+ field(DESC, "Initialises the Counterbox")
+ field(OUT, "@$(PROTO) initialise($(P):$(NAME):) $(ASYN_PORT)")
+ field(PINI, "YES") # Run at init
+ field(DTYP, "stream")
+}
+
+record(longout, "$(P):$(NAME):FULL-RESET")
+{
+ field(DESC, "Reset the Counterbox")
+ field(OUT, "@$(PROTO) fullReset($(P):$(NAME):) $(ASYN_PORT)")
+ field(DTYP, "stream")
+}
+
+record(seq, "$(P):$(NAME):REINIT-CONF")
+{
+ field(LNK1, "$(P):$(NAME):INIT-CONF PP")
+ field(DO1, 1)
+ field(SELM, "Specified")
+ field(SELL, "$(P):$(NAME):INVALID-CONFIG.VAL")
+}
+
+################################################################################
+# Status Variables
+
+record(stringin, "$(P):$(NAME):MsgTxt")
+{
+ field(DESC, "Unexpected received response")
+ field(DTYP, "devCounterBoxStringError")
+ field(FLNK, "$(P):$(NAME):INVALID-CONFIG")
+}
+
+record(scalcout, "$(P):$(NAME):INVALID-CONFIG")
+{
+ field(DESC, "Has the counterbox been configured?")
+ field(CALC, "AA[0,2] == '?OF'")
+ field(INAA, "$(P):$(NAME):MsgTxt")
+ field(FLNK, "$(P):$(NAME):REINIT-CONF")
+}
+
+record(longin, "$(P):$(NAME):RAW-STATUS")
+{
+ field(DESC, "Raw returned status value")
+ field(DTYP, "stream")
+ field(SCAN, ".2 second")
+ field(INP, "@$(PROTO) readStatus($(P):$(NAME):) $(ASYN_PORT)")
+ field(FLNK, "$(P):$(NAME):MAP-STATUS")
+}
+
+record(bi, "$(P):$(NAME):COUNTING")
+{
+ field(DESC, "Counterbox is Counting")
+ field(VAL, 0)
+}
+
+record(calc, "$(P):$(NAME):MAP-STATUS")
+{
+ field(DESC, "Maps Raw Status to State")
+ field(INPA, "$(P):$(NAME):RAW-STATUS NPP")
+ field(INPB, "$(P):$(NAME):INVALID-CONFIG NPP")
+ field(INPC, "$(P):$(NAME):COUNTING NPP")
+ field(CALC, "B=1?4:(C=1&&A=0)||A=1||A=2?1:A=0?0:A=5||A=6?2:A=9||A=13||A=10||A=14?3:4")
+ field(FLNK, "$(P):$(NAME):SET-COUNTING")
+}
+
+record(seq, "$(P):$(NAME):SET-COUNTING")
+{
+ field(LNK1, "$(P):$(NAME):COUNTING PP")
+ field(DO1, 1)
+ field(SELM, "Specified")
+ field(SELL, "$(P):$(NAME):MAP-STATUS.VAL")
+ field(FLNK, "$(P):$(NAME):STATUS")
+}
+
+record(seq, "$(P):$(NAME):UNSET-COUNTING")
+{
+ field(LNK0, "$(P):$(NAME):COUNTING PP")
+ field(DO0, 0)
+ field(SELM, "Specified")
+ field(SELL, "$(P):$(NAME):RAW-STATUS.VAL")
+ field(FLNK, "$(P):$(NAME):MAP-STATUS")
+}
+
+record(mbbi, "$(P):$(NAME):STATUS")
+{
+ field(DESC, "Counterbox Status")
+ field(INP, "$(P):$(NAME):MAP-STATUS NPP") 
+ field(ZRVL, "0")
+ field(ZRST, "Idle")
+ field(ONVL, "1")
+ field(ONST, "Counting")
+ field(TWVL, "2")
+ field(TWST, "Low rate")
+ field(THVL, "3")
+ field(THST, "Paused")
+ # 4 should never happen, if it does it means the counter box reports undocumented statusbits
+ field(FRVL, "4")
+ field(FRST, "INVALID")
+}
+
+################################################################################
+# Count Commands
+
+record(ao,"$(P):$(NAME):PRESET-COUNT")
+{
+ field(DESC, "Count until preset reached")
+ field(DTYP, "stream")
+ field(OUT, "@$(PROTO) startWithCountPreset($(P):$(NAME):) $(ASYN_PORT)")
+ field(VAL, 0)
+ field(PREC, 2)
+}
+
+record(ao,"$(P):$(NAME):PRESET-TIME")
+{
+ field(DESC, "Count for specified time")
+ field(DTYP, "stream")
+ field(OUT, "@$(PROTO) startWithTimePreset($(P):$(NAME):) $(ASYN_PORT)")
+ field(VAL, 0)
+ field(PREC, 2)
+ field(EGU, "seconds")
+}
+
+record(bo,"$(P):$(NAME):PAUSE")
+{
+ field(DESC, "Pause the current count")
+ field(DTYP, "stream")
+ field(OUT, "@$(PROTO) pauseCount($(P):$(NAME):) $(ASYN_PORT)")
+ field(VAL, "0")
+}
+
+record(bo,"$(P):$(NAME):CONTINUE")
+{
+ field(DESC, "Continue with a count that was paused")
+ field(DTYP, "stream")
+ field(OUT, "@$(PROTO) continueCount($(P):$(NAME):) $(ASYN_PORT)")
+ field(VAL, "0")
+}
+
+record(bo, "$(P):$(NAME):STOP")
+{
+ field(DESC, "Stop the current counting operation")
+ field(DTYP, "stream")
+ field(PINI, "YES")
+ field(OUT, "@$(PROTO) stopCount($(P):$(NAME):) $(ASYN_PORT)")
+}
+
+################################################################################
+# Read all monitors values
+
+record(ai,"$(P):$(NAME):ELAPSED-TIME")
+{
+ field(DESC, "Counterbox Measured Time")
+ field(EGU, "seconds")
+}
+
+record(longin, "$(P):$(NAME):M1")
+{
+ field(DESC, "Counterbox CH1")
+}
+
+record(longin, "$(P):$(NAME):M2")
+{
+ field(DESC, "Counterbox CH2")
+}
+
+record(longin, "$(P):$(NAME):M3")
+{
+ field(DESC, "Counterbox CH3")
+}
+
+record(longin, "$(P):$(NAME):M4")
+{
+ field(DESC, "Counterbox CH4")
+}
+
+record(longin, "$(P):$(NAME):M5")
+{
+ field(DESC, "Counterbox CH5")
+}
+
+record(longin, "$(P):$(NAME):M6")
+{
+ field(DESC, "Counterbox CH6")
+}
+
+record(longin, "$(P):$(NAME):M7")
+{
+ field(DESC, "Counterbox CH7")
+}
+
+record(longin, "$(P):$(NAME):M8")
+{
+ field(DESC, "Counterbox CH8")
+}
+
+record(longin, "$(P):$(NAME):R1")
+{
+ field(DESC, "Counterbox Rate CH1")
+ field(INP, "@$(PROTO) readRate($(P):$(NAME):, 1) $(ASYN_PORT)")
+ field(SCAN, ".2 second")
+ field(DTYP, "stream")
+}