moves the gating configuration logic to epics
This commit is contained in:
@ -25,7 +25,17 @@ record(longin, "$(INSTR)$(NAME):MONITOR-CHANNEL_RBV")
|
||||
field(DESC, "PRESET-COUNT Monitors this channel")
|
||||
field(DTYP, "stream")
|
||||
field(INP, "@$(PROTO) readPresetMonitor($(INSTR)$(NAME):) $(ASYN_PORT)")
|
||||
field(SCAN, "5 second")
|
||||
field(SCAN, "1 second")
|
||||
}
|
||||
|
||||
# Force back to 1 if it is 0, as 0 has no meaning...
|
||||
record(seq, "$(INSTR)$(NAME):CORRECT-MONITOR-CHANNEL")
|
||||
{
|
||||
field(SELM, "Specified")
|
||||
field(SELL, "$(INSTR)$(NAME):MONITOR-CHANNEL_RBV.VAL NPP")
|
||||
field(DO0, 1)
|
||||
field(LNK0, "$(INSTR)$(NAME):MONITOR-CHANNEL PP")
|
||||
field(SCAN, ".5 second")
|
||||
}
|
||||
|
||||
################################################################################
|
||||
@ -33,76 +43,3 @@ record(longin, "$(INSTR)$(NAME):MONITOR-CHANNEL_RBV")
|
||||
|
||||
################################################################################
|
||||
# Read all monitors values
|
||||
|
||||
################################################################################
|
||||
# Gating Settings
|
||||
|
||||
record(bo, "$(INSTR)$(NAME):GATE-1")
|
||||
{
|
||||
field(DESC, "First Gating Channel")
|
||||
field(ZNAM, "Disabled")
|
||||
field(ONAM, "Enabled")
|
||||
field(DTYP, "stream")
|
||||
field(OUT, "@$(PROTO) setGateStatus($(INSTR)$(NAME):, 1) $(ASYN_PORT)")
|
||||
}
|
||||
|
||||
record(bo, "$(INSTR)$(NAME):GATE-ON-1")
|
||||
{
|
||||
field(DESC, "Count when first Gate high/low")
|
||||
field(ZNAM, "Low")
|
||||
field(ONAM, "High")
|
||||
field(DTYP, "stream")
|
||||
field(OUT, "@$(PROTO) setGateStatus($(INSTR)$(NAME):, 1) $(ASYN_PORT)")
|
||||
}
|
||||
|
||||
record(bi, "$(INSTR)$(NAME):GATE-1_RBV")
|
||||
{
|
||||
field(DESC, "First Gating Channel")
|
||||
field(ZNAM, "Disabled")
|
||||
field(ONAM, "Enabled")
|
||||
field(DTYP, "stream")
|
||||
field(INP, "@$(PROTO) getGateStatus($(INSTR)$(NAME):, 1) $(ASYN_PORT)")
|
||||
field(SCAN, "2 second")
|
||||
}
|
||||
|
||||
record(bi, "$(INSTR)$(NAME):GATE-ON-1_RBV")
|
||||
{
|
||||
field(DESC, "Count when first Gate high/low")
|
||||
field(ZNAM, "Low")
|
||||
field(ONAM, "High")
|
||||
}
|
||||
|
||||
record(bo, "$(INSTR)$(NAME):GATE-2")
|
||||
{
|
||||
field(DESC, "First Gating Channel")
|
||||
field(ZNAM, "Disabled")
|
||||
field(ONAM, "Enabled")
|
||||
field(DTYP, "stream")
|
||||
field(OUT, "@$(PROTO) setGateStatus($(INSTR)$(NAME):, 2) $(ASYN_PORT)")
|
||||
}
|
||||
|
||||
record(bo, "$(INSTR)$(NAME):GATE-ON-2")
|
||||
{
|
||||
field(DESC, "Count when first Gate high/low")
|
||||
field(ZNAM, "Low")
|
||||
field(ONAM, "High")
|
||||
field(DTYP, "stream")
|
||||
field(OUT, "@$(PROTO) setGateStatus($(INSTR)$(NAME):, 2) $(ASYN_PORT)")
|
||||
}
|
||||
|
||||
record(bi, "$(INSTR)$(NAME):GATE-2_RBV")
|
||||
{
|
||||
field(DESC, "Second Gating Channel")
|
||||
field(ZNAM, "Disabled")
|
||||
field(ONAM, "Enabled")
|
||||
field(DTYP, "stream")
|
||||
field(INP, "@$(PROTO) getGateStatus($(INSTR)$(NAME):, 2) $(ASYN_PORT)")
|
||||
field(SCAN, "2 second")
|
||||
}
|
||||
|
||||
record(bi, "$(INSTR)$(NAME):GATE-ON-2_RBV")
|
||||
{
|
||||
field(DESC, "Count when second Gate high/low")
|
||||
field(ZNAM, "Low")
|
||||
field(ONAM, "High")
|
||||
}
|
||||
|
Reference in New Issue
Block a user