New databases to support VME EVM-300.

epics-modules · Apr 28, 2021 · a152e24 · a152e24
1 parent 9ce4586
commit a152e24
Show file tree

Hide file tree

Showing 5 changed files with 1,056 additions and 0 deletions.
diff --git a/evgMrmApp/Db/Makefile b/evgMrmApp/Db/Makefile
@@ -20,15 +20,18 @@ DB += evgMrm.db
 DB += evgEvtClk.db
 DB += evgUserEvt.db
 DB += evgTrigEvt.db
+DB += evgTrigEvt-evm300.db
 DB += evgMxc.db
 DB += evgDbus.db
 DB += evgAcTrig.db
 DB += evgInput.db
 DB += evgOutput.db
 DB += evgSoftSeq.db
+DB += evgSoftSeq-evm300.db
 DB += evm-fct.template
 DB += cpci-evg-300.db
 DB += vme-evg230.db
+DB += evm-vme-300.db
 DB += vme-evg230-nsls2.db
 DB += mtca-evm-300.db
 

diff --git a/evgMrmApp/Db/evgSoftSeq-evm300.template b/evgMrmApp/Db/evgSoftSeq-evm300.template
@@ -0,0 +1,148 @@
+# linked from mrmSoftSeq.template
+# $(P)InitSeq:Cont-FOut_
+record(fanout, "$(P)TrigSrc:Init-FOut_") {
+    field( LNK1, "$(P)TrigSrc-Sel_")
+}
+
+record(mbbo, "$(P)TrigSrc-Sel") {
+    field( DTYP, "Raw Soft Channel")
+    field( OUT , "$(P)TrigSrc-Sel_ PP")
+    field( UDF,  "0")
+    field( ZRST, "None")
+    field( ONST, "Mxc0")
+    field( TWST, "Mxc1")
+    field( THST, "Mxc2")
+    field( FRST, "Mxc3")
+    field( FVST, "Mxc4")
+    field( SXST, "Mxc5")
+    field( SVST, "Mxc6")
+    field( EIST, "Mxc7")
+    field( NIST, "AC")
+    field( TEST, "Software")
+    field( ELST, "Front0")
+    field( TVST, "Front1")
+    field( TTST, "Front2")
+    field( FTST, "Univ0")
+    field( FFST, "Univ1")
+    field( ZRVL, "0x03000000")
+    field( ONVL, "0")
+    field( TWVL, "1")
+    field( THVL, "2")
+    field( FRVL, "3")
+    field( FVVL, "4")
+    field( SXVL, "5")
+    field( SVVL, "6")
+    field( EIVL, "7")
+    field( NIVL, "16")
+    field( TEVL, "0x01000000")
+    field( ELVL, "0x02010000")
+    field( TVVL, "0x02010001")
+    field( TTVL, "0x02010002")
+    field( FTVL, "0x02020000")
+    field( FFVL, "0x02020001")
+    info( autosaveFields_pass0, "VAL")
+    alias("$(P)TrigSrc:0-Sel")
+}
+
+record(mbbo, "$(P)TrigSrc:1-Sel") {
+    field( DTYP, "Raw Soft Channel")
+    field( OUT , "$(P)TrigSrc-Sel_ PP")
+    field( UDF,  "0")
+    field( ZRST, "Univ2")
+    field( ONST, "Univ3")
+    field( TWST, "Univ4")
+    field( THST, "Univ5")
+    field( FRST, "Univ6")
+    field( FVST, "Univ7")
+    field( SXST, "Univ8")
+    field( SVST, "Univ9")
+    field( EIST, "Univ10")
+    field( NIST, "Univ11")
+    field( TEST, "Univ12")
+    field( ELST, "Univ13")
+    field( TVST, "Univ14")
+    field( TTST, "Univ15")
+    field( ZRVL, "0x02020002")
+    field( ONVL, "0x02020003")
+    field( TWVL, "0x02020004")
+    field( THVL, "0x02020005")
+    field( FRVL, "0x02020006")
+    field( FVVL, "0x02020007")
+    field( SXVL, "0x02020008")
+    field( SVVL, "0x02020009")
+    field( EIVL, "0x0202000a")
+    field( NIVL, "0x0202000b")
+    field( TEVL, "0x0202000c")
+    field( ELVL, "0x0202000d")
+    field( TVVL, "0x0202000e")
+    field( TTVL, "0x0202000f")
+    info( autosaveFields_pass0, "VAL")
+}
+
+# placeholder to OPIs
+record(mbbo, "$(P)TrigSrc:2-Sel") {
+    field(DISP, "1")
+}
+
+record(longout, "$(P)TrigSrc-Sel_") {
+    field( DTYP, "Obj Prop uint32")
+    field( OUT , "@OBJ=$(EVG):SEQ$(seqNum), CLASS=SeqManager, PARENT=$(EVG):SEQMGR, PROP=TRIG_SRC")
+    field( VAL , "0x03000000") # default to None
+    info( autosaveFields_pass0, "VAL")
+}
+
+record(longin, "$(P)TrigSrc-RB_") {
+    field( DTYP, "Obj Prop uint32")
+    field( INP , "@OBJ=$(EVG):SEQ$(seqNum), CLASS=SeqManager, PARENT=$(EVG):SEQMGR, PROP=TRIG_SRC")
+    field( SCAN, "I/O Intr")
+    field( FLNK, "$(P)TrigSrc-RB")
+}
+
+record(stringin, "$(P)TrigSrc-RB") {
+  field( DTYP, "LUT uint32 -> string")
+  field(  INP, "$(P)TrigSrc-RB_")
+  info(lut0 , " 0  = Mxc0")
+  info(lut1 , " 1  = Mxc1")
+  info(lut2 , " 2  = Mxc2")
+  info(lut3 , " 3  = Mxc3")
+  info(lut4 , " 4  = Mxc4")
+  info(lut5 , " 5  = Mxc5")
+  info(lut6 , " 6  = Mxc6")
+  info(lut7 , " 7  = Mxc7")
+  info(lut8 , " 16 = AC")
+  info(lut9 , " 0x01000000 = Software")
+  info(luta , " 0x02010000 = Front0")
+  info(lutb , " 0x02010001 = Front1")
+  info(lutc , " 0x02010002 = Front2")
+  info(lutd , " 0x02020000 = Univ0")
+  info(lute , " 0x02020001 = Univ1")
+  info(lutf , " 0x02020002 = Univ2")
+  info(lutg , " 0x02020003 = Univ3")
+  info(luth , " 0x02020004 = Univ4")
+  info(luti , " 0x02020005 = Univ5")
+  info(lutj , " 0x02020006 = Univ6")
+  info(lutk , " 0x02020007 = Univ7")
+  info(lutl , " 0x02020008 = Univ8")
+  info(lutm , " 0x02020009 = Univ9")
+  info(lutn , " 0x0202000a = Univ10")
+  info(luto , " 0x0202000b = Univ11")
+  info(lutp , " 0x0202000c = Univ12")
+  info(lutq , " 0x0202000d = Univ13")
+  info(lutr , " 0x0202000e = Univ14")
+  info(luts , " 0x0202000f = Univ15")
+  info(lutY , " 0x03000000 = None")
+}
+
+#
+# When Evt Clock Frequency changes, Sequencer Timestamp changes
+#(only if TsInpMode = EGU).
+#
+record(ai, "$(P)EvtClkFreq-RB_") {
+    field( INP,  "$(SYS){$(D)-EvtClk}Frequency-RB CP")
+    field( FLNK, "$(P)EvtClkFreq:Cont-RB_")
+}
+
+record(ao, "$(P)EvtClkFreq:Cont-RB_") {
+    field( OUT,  "$(P)Timestamp-RB.PROC")
+    field( VAL,  "1")
+}