Improve base.iocsh

Remove unecessary sets and include labels

iocsh/evr-island-base.iocsh

@@ -42,35 +42,38 @@ afterInit("dbpf $(PREFIX):OutFPUV3-Src-SP 1")
 
 # Pulser 2 - LLRF Start - TX17
 afterInit("dbpf $(PREFIX):DlyGen2-Evt-Trig0-SP $(Island_event)")
-afterInit("dbpf $(PREFIX):DlyGen2-Delay-SP 2000") # Pre-pulse delay + RF Sync Delay
 afterInit("dbpf $(PREFIX):DlyGen2-Width-SP 100") # time in micro-seconds
 afterInit("dbpf $(PREFIX):OutBack1-Src-SP 2") # trigger from delay generator 2 to TX17
+afterInit("dbpf $(PREFIX):OutBack1-Label-I 'LLRF Start'") # Set labels
+afterInit("dbpf $(PREFIX):DlyGen2-Label-I 'LLRF Start'") # Set labels
 
 #Pulser 3 - LLRF End - TX20
 afterInit("dbpf $(PREFIX):DlyGen3-Evt-Trig0-SP $(Island_event)")
-afterInit("dbpf $(PREFIX):DlyGen3-Delay-SP 5000") # Pre-pulse delay + RF Sync Delay + Rf Sync width
 afterInit("dbpf $(PREFIX):DlyGen3-Width-SP 100") # time in micro-seconds
 afterInit("dbpf $(PREFIX):OutBack7-Src-SP 3") # trigger from delay generator 3 to TX20
+afterInit("dbpf $(PREFIX):OutBack7-Label-I 'LLRF End'") # Set labels
+afterInit("dbpf $(PREFIX):DlyGen3-Label-I 'LLRF End'") # Set labels
 
 #Pulser 4 Beam Start - RX18
 afterInit("dbpf $(PREFIX):DlyGen4-Evt-Trig0-SP $(Island_event)")
-afterInit("dbpf $(PREFIX):DlyGen4-Delay-SP 2300") # Pre-pulse delay + RF Sync Delay + Beam pulse delay
 afterInit("dbpf $(PREFIX):DlyGen4-Width-SP 100") # time in micro-seconds
 afterInit("dbpf $(PREFIX):OutBack2-Src-SP 4") # trigger from delay generator 4 to RX18
-
+afterInit("dbpf $(PREFIX):OutBack2-Label-I 'Beam Start'") # Set labels
+afterInit("dbpf $(PREFIX):DlyGen4-Label-I 'Beam Start'") # Set labels
 
 #Pulser 5 Beam End - TX18
 afterInit("dbpf $(PREFIX):DlyGen5-Evt-Trig0-SP $(Island_event)")
-afterInit("dbpf $(PREFIX):DlyGen5-Delay-SP 5000") # Pre-pulse delay + RF Sync Delay + Beam pulse delay + Beam pulse width
 afterInit("dbpf $(PREFIX):DlyGen5-Width-SP 100") # time in micro-seconds
 afterInit("dbpf $(PREFIX):OutBack3-Src-SP 5") # trigger from delay generator 5 to TX18
+afterInit("dbpf $(PREFIX):OutBack3-Label-I 'Beam End'") # Set labels
+afterInit("dbpf $(PREFIX):DlyGen5-Label-I 'Beam End'") # Set labels
 
 # Pulser 6 - FIM Trigger - RX17
 afterInit("dbpf $(PREFIX):DlyGen6-Evt-Trig0-SP $(Island_event)")
-afterInit("dbpf $(PREFIX):DlyGen6-Delay-SP 6000") # Pre-pulse delay + RF Sync Delay + Rf sync width + fim delay 
 afterInit("dbpf $(PREFIX):DlyGen6-Width-SP 100") # time in micro-seconds
-
 afterInit("dbpf $(PREFIX):OutBack0-Src-SP 6") # trigger from delay generator 6 to RX17
+afterInit("dbpf $(PREFIX):OutBack0-Label-I 'FIM'") # Set labels
+afterInit("dbpf $(PREFIX):DlyGen6-Label-I 'FIM'") # Set labels
 
 # Set Initial values
 afterInit("dbpf $(PREFIX):#SetInitVals.PROC 1")