soederqvist_a
f7d4292d68
This PR implements a software based proton counterbox implementation supporting only 1 channel, the proton current that is typically propagated over channel access. It also changes a minor convention of how to signal low rate, but this wasn't used by the client Nicos so this shouldn't affect anything. Reviewed-on: #5
57 lines
1.7 KiB
Plaintext
57 lines
1.7 KiB
Plaintext
# EPICS Database for streamdevice support 1st gen systems with 8 channels
|
|
#
|
|
# Macros
|
|
# INSTR - Prefix
|
|
# NAME - the device name, e.g. EL737
|
|
# PROTO - Stream device protocol file
|
|
# ASYN_PORT - Low level Asyn IP Port to DAQ
|
|
|
|
################################################################################
|
|
# Status Variables
|
|
|
|
record(longout, "$(INSTR)$(NAME):MONITOR-CHANNEL")
|
|
{
|
|
field(DESC, "PRESET-COUNT Monitors this channel")
|
|
field(VAL, 1)
|
|
field(DRVL, 0) # Smallest Monitor Channel (should really be 1)
|
|
field(DRVH, 1) # Largest Monitor Channel
|
|
field(DISP, 1)
|
|
}
|
|
|
|
record(longin, "$(INSTR)$(NAME):MONITOR-CHANNEL_RBV")
|
|
{
|
|
field(DESC, "PRESET-COUNT Monitors this channel")
|
|
field(VAL, 1)
|
|
field(DISP, 1)
|
|
}
|
|
|
|
record(calc, "$(INSTR)$(NAME):RATE_MAP")
|
|
{
|
|
field(DESC, "Want a consistent lowrate pv")
|
|
field(INPA, "$(INSTR)$(NAME):RAW-STATUS.B2 NPP")
|
|
field(CALC, "(A=0)?0:1")
|
|
}
|
|
|
|
################################################################################
|
|
# Count Commands
|
|
|
|
# The hardware stores a separate threshold for each channel, which is somewhat
|
|
# unintuitive for the user, as only one can actually be made use of at a time.
|
|
# So, we just write the threshold value to all channels when it is changed.
|
|
record(dfanout,"$(INSTR)$(NAME):THRESHOLD-F")
|
|
{
|
|
field(OMSL, "supervisory")
|
|
field(SELM, "All")
|
|
field(OUTA, "$(INSTR)$(NAME):THRESH1 PP")
|
|
field(OUTB, "$(INSTR)$(NAME):THRESH2 PP")
|
|
field(OUTC, "$(INSTR)$(NAME):THRESH3 PP")
|
|
field(OUTD, "$(INSTR)$(NAME):THRESH4 PP")
|
|
field(OUTE, "$(INSTR)$(NAME):THRESH5 PP")
|
|
field(OUTF, "$(INSTR)$(NAME):THRESH6 PP")
|
|
field(OUTG, "$(INSTR)$(NAME):THRESH7 PP")
|
|
field(OUTH, "$(INSTR)$(NAME):THRESH8 PP")
|
|
}
|
|
|
|
################################################################################
|
|
# Read all monitors values
|