Include a PV to set modulator at 14Hz

evrisland/evrislandApp/Db/evrisland.template

@@ -774,3 +774,29 @@ record(fanout, "$(P)$(R=)#SelEvnMon") {
     field(LNK6, "$(P)$(R=)#EvnMonIsl")
     field(LNK7, "$(P)$(R=)#EvnMonRFSt")
 }
+
+
+#### Use Modulator at 14Hz
+record(bo, "$(P)$(R=)ModulatorMode") {
+    field(DESC, "Choose modulator operation mode")
+    field(ZNAM, "Normal")
+    field(ONAM, "14Hz")
+    field(FLNK, "$(P)$(R=)#ModulatorPulser")
+
+    info(autosaveFields_pass0, "VAL")
+}
+
+record(calc, "$(P)$(R=)#ModulatorPulser"){
+    field(INPA, "$(P)$(R=)ModulatorMode")
+    field(CALC, "A=0?0:7")
+    field(FLNK, "$(P)$(R=)#SetModModeNormal")
+}
+
+record(seq, "$(P)$(R=)#SetModModeNormal") {
+    field(DOL0, "$(P)$(R=)#ModulatorPulser")
+    field(LNK0, "$(EVRPREFIX)Out-FP0-Src-Pulse-SP PP")
+    field(DOL1, "$(P)$(R=)#ModulatorPulser")
+    field(LNK1, "$(EVRPREFIX)Out-FP1-Src-Pulse-SP PP")
+    field(DOL2, "$(P)$(R=)#ModulatorPulser")
+    field(LNK2, "$(EVRPREFIX)Out-FPUV0-Src-Pulse-SP PP")
+}

iocsh/evrisland-base.iocsh

@@ -74,6 +74,13 @@ afterInit("dbpf $(PREFIX):Out-Back0-Src-SP 6") # trigger from delay generator 6
 afterInit("dbpf $(PREFIX):Out-Back0-Label-I 'FIM'") # Set labels
 afterInit("dbpf $(PREFIX):DlyGen-6-Label-I 'FIM'") # Set labels
 
+
+# Pulser 7 - 14Hz for Modulator
+afterInit("dbpf $(PREFIX):DlyGen-7-Evt-Trig0-SP $(F14Hz)")
+afterInit("dbpf $(PREFIX):DlyGen-7-Width-SP 100") # time in micro-seconds
+afterInit("dbpf $(PREFIX):DlyGen-7-Delay-SP 44976.090") # time in micro-seconds
+afterInit("dbpf $(PREFIX):DlyGen-7-Label-I 'Modulator 14Hz'") # Set labels
+
 #######################################################
 ####### Pulsers for Frequency events from Global timing
 #######################################################