Change monitor event depending on the mode

This way the EvtA will always have the right timestamp, and can be
used by any other IOC.

evrisland/evrislandApp/Db/evrisland.template

@@ -407,6 +407,12 @@ record(seq, "$(P)$(R=)#SeqSetMixed"){
     # Unblock Frequency from Mixed mode
     field(DOL4, "0")
     field(LNK4, "$(P)$(R=)MixFreq.DISP")
+
+    # Change the event monitor
+    field(DOL5, "$(P)$(R=)MixFreq")
+    field(LNK5, "$(P)$(R=)#SelEvnMon.SELN" )
+    field(DOL6, "1")
+    field(LNK6, "$(P)$(R=)#SelEvnMon.PROC" )
 }
 
 
@@ -431,6 +437,13 @@ record(seq, "$(P)$(R=)#SeqSetLocal"){
     # Block Frequency from Mixed mode
     field(DOL4, "1")
     field(LNK4, "$(P)$(R=)MixFreq.DISP")
+
+
+    # Change the event monitor
+    field(DOL5, "6")
+    field(LNK5, "$(P)$(R=)#SelEvnMon.SELN" )
+    field(DOL6, "1")
+    field(LNK6, "$(P)$(R=)#SelEvnMon.PROC" )
 }
 
 
@@ -443,6 +456,12 @@ record(seq, "$(P)$(R=)#SeqChgFreqMix"){
     # Commit sequencer 0
     field(DOL1, "1")
     field(LNK1, "$(EVRPREFIX)SoftSeq-0-Commit-Cmd CP")
+
+    # Change the event monitor
+    field(DOL2, "$(P)$(R=)MixFreq")
+    field(LNK2, "$(P)$(R=)#SelEvnMon.SELN" )
+    field(DOL3, "1")
+    field(LNK3, "$(P)$(R=)#SelEvnMon.PROC" )
 }
 
 
@@ -521,6 +540,13 @@ record(seq, "$(P)$(R=)#SeqSetGlobal"){
     field(DOLD, "1")
     field(LNKD, "$(P)$(R=)Seq0-Enable.PROC")
 
+
+    # Change the event monitor
+    field(DOLE, "7")
+    field(LNKE, "$(P)$(R=)#SelEvnMon.SELN" )
+    field(DOLF, "1")
+    field(LNKF, "$(P)$(R=)#SelEvnMon.PROC" )
+
 }
 
 
@@ -562,4 +588,62 @@ record(seq, "$(P)$(R=)#SeqSetNoGlobal"){
     field(LNK8, "$(P)$(R=)Seq0-Enable.PROC")
 }
 
+########
+# Events for timestamp (to be used to set $(EVRPREFIX)EvtA-SP.OUT)
+#######
+
+record(stringout, "$(P)$(R=)#EvnMonIsl") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(Island_event)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMon0Hz5") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F0Hz5)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMon1Hz") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F1Hz)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
 
+record(stringout, "$(P)$(R=)#EvnMon2Hz") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F2Hz)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMon3Hz5") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F3Hz5)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMon7Hz") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F7Hz)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMon14Hz") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(F14Hz)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+record(stringout, "$(P)$(R=)#EvnMonRFSt") {
+    field(VAL, "@OBJ=$(EVROBJ=EVR),Code=$(RFSt)")
+    field(OUT, "$(EVRPREFIX)EvtA-SP.OUT CA")
+}
+
+# Event Monitor Selector
+# First events for Mixed Mode
+# Then Local
+# Then Global
+record(fanout, "$(P)$(R=)#SelEvnMon") {
+    field(SELM, "Specified")
+    field(LNK0, "$(P)$(R=)#EvnMon0Hz5")
+    field(LNK1, "$(P)$(R=)#EvnMon1Hz")
+    field(LNK2, "$(P)$(R=)#EvnMon2Hz")
+    field(LNK3, "$(P)$(R=)#EvnMon3Hz5")
+    field(LNK4, "$(P)$(R=)#EvnMon7Hz")
+    field(LNK5, "$(P)$(R=)#EvnMon14Hz")
+    field(LNK6, "$(P)$(R=)#EvnMonIsl")
+    field(LNK7, "$(P)$(R=)#EvnMonRFSt")
+}

iocsh/island_with_mrfioc.iocsh

@@ -6,7 +6,7 @@ iocshLoad "$(mrfioc2_DIR)/evr.iocsh" "P=$(PREFIX), PCIID=$(PCI_SLOT), $(INITARGS
 # Load list of events
 iocshLoad("$(evrisland_DIR)/events.iocsh")
 # - Load EVR Island application
-dbLoadRecords("evrisland.template", "P=$(PREFIX):, EVRPREFIX=$(PREFIX):, F14Hz=$(F14Hz), RFSt=$(RFSt), BPulseSt=$(BPulseSt), BPulseEnd=$(BPulseEnd), Island_event=$(Island_event)")
+dbLoadRecords("evrisland.template", "P=$(PREFIX):, EVRPREFIX=$(PREFIX):, F14Hz=$(F14Hz), RFSt=$(RFSt), BPulseSt=$(BPulseSt), BPulseEnd=$(BPulseEnd), Island_event=$(Island_event), F0Hz5=$(F0Hz5), F1Hz=$(F1Hz), F2Hz=$(F2Hz), F3Hz5=$(F3Hz5), F7Hz=$(F7Hz)")
 
 iocshLoad("$(evrisland_DIR)/evrisland-base.iocsh")