From 4de53a60d24aeacd2a464c145c52bc467b034a8f Mon Sep 17 00:00:00 2001 From: rhong Date: Thu, 20 Jun 2024 13:47:23 -0500 Subject: [PATCH 1/5] Adding more selection options for Pps source --- evgMrmApp/Db/evgMrm.db | 139 +++++++++++++++++++++++++++++++++++++++-- 1 file changed, 135 insertions(+), 4 deletions(-) diff --git a/evgMrmApp/Db/evgMrm.db b/evgMrmApp/Db/evgMrm.db index 28838001..1e36e45e 100644 --- a/evgMrmApp/Db/evgMrm.db +++ b/evgMrmApp/Db/evgMrm.db @@ -145,7 +145,7 @@ record(mbbo, "$(P)PpsInp-Sel") { field(FFVL, "0x2000") field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") - field(FLNK, "$(P)PpsInp-MbbiDir_") + field(FLNK, "$(P)PpsInp-SQ_") info(autosaveFields_pass0, "VAL") } @@ -158,8 +158,34 @@ record(mbbiDirect, "$(P)PpsInp-MbbiDir_") { field(DESC, "EVG Pps Input") field(INP, "$(P)PpsInp-Sel.RVAL NPP") } + +record(seq, "$(P)PpsInp-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)PpsInpItlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)PpsInp-MbbiDir_.PROC") +} + +record(seq, "$(P)PpsInpItlk-SQ_") { + field(DESC, "Sequence to control 1PPS Select") + field(DOL1, "1") + field(LNK1, "$(P)PpsInp1Itlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)PpsInp2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)PpsInp1-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)PpsInp2-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)PpsInp1Itlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)PpsInp2Itlk-SQ_.DISA NPP NMS") +} + record(mbbo, "$(P)PpsInp1-Sel") { - field(DESC, "EVG Pps Input") + field(DESC, "EVG Pps Input (more)") field(PINI, "YES") field(UDF, "0") field(VAL, "0") @@ -170,6 +196,7 @@ record(mbbo, "$(P)PpsInp1-Sel") { field(FRST, "UnivInp14") field(FVST, "UnivInp15") field(SXST, "EPICS Scan") + field(SVST, "RearInp0") field(ZRVL, "0x0") field(ONVL, "0x1") field(TWVL, "0x2") @@ -177,7 +204,7 @@ record(mbbo, "$(P)PpsInp1-Sel") { field(FRVL, "0x8") field(FVVL, "0x10") field(SXVL, "0x8000") - field(SVSV, "INVALID") + field(SVVL, "0x20") field(EISV, "INVALID") field(NISV, "INVALID") field(TESV, "INVALID") @@ -188,7 +215,7 @@ record(mbbo, "$(P)PpsInp1-Sel") { field(FFSV, "INVALID") field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") - field(FLNK, "$(P)PpsInp1-MbbiDir_") + field(FLNK, "$(P)PpsInp1-SQ_") info(autosaveFields_pass0, "VAL") } @@ -201,6 +228,110 @@ record(mbbiDirect, "$(P)PpsInp1-MbbiDir_") { field(DESC, "EVG Pps Input") field(INP, "$(P)PpsInp1-Sel.RVAL NPP") } + +record(seq, "$(P)PpsInp1-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)PpsInp1Itlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)PpsInp1-MbbiDir_.PROC") +} + +record(seq, "$(P)PpsInp1Itlk-SQ_") { + field(DESC, "Sequence to control 1PPS Select") + field(DOL1, "1") + field(LNK1, "$(P)PpsInpItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)PpsInp2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)PpsInp-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)PpsInp2-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)PpsInpItlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)PpsInp2Itlk-SQ_.DISA NPP NMS") +} + +record(mbbo, "$(P)PpsInp2-Sel") { + field(DESC, "EVG Pps Input (more+)") + field(PINI, "YES") + field(UDF, "0") + field(VAL, "0") + field(ZRST, "None") + field(ONST, "Rear1") + field(TWST, "Rear2") + field(THST, "Rear3") + field(FRST, "Rear4") + field(FVST, "Rear5") + field(SXST, "Rear6") + field(SVST, "Rear7") + field(EIST, "Rear8") + field(NIST, "Rear9") + field(TEST, "Rear10") + field(ELST, "Rear11") + field(TVST, "Rear12") + field(TTST, "Rear13") + field(FTST, "Rear14") + field(FFST, "Rear15") + field(ZRVL, "0x0") + field(ONVL, "0x1") + field(TWVL, "0x2") + field(THVL, "0x4") + field(FRVL, "0x8") + field(FVVL, "0x10") + field(SXVL, "0x20") + field(SVVL, "0x40") + field(EIVL, "0x80") + field(NIVL, "0x100") + field(TEVL, "0x200") + field(ELVL, "0x400") + field(TVVL, "0x800") + field(TTVL, "0x1000") + field(FTVL, "0x2000") + field(FFVL, "0x4000") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(FLNK, "$(P)PpsInp2-SQ_") + info(autosaveFields_pass0, "VAL") +} + +# +# Each bit of the PpsInp-MbbiDir record is used to toggle the external input +# interrupt of the corresponding external input. +# +record(mbbiDirect, "$(P)PpsInp2-MbbiDir_") { + field(ASG, "private") + field(DESC, "EVG Pps Input") + field(INP, "$(P)PpsInp2-Sel.RVAL NPP") +} + +record(seq, "$(P)PpsInp2-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)PpsInp2Itlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)PpsInp2-MbbiDir_.PROC") +} + +record(seq, "$(P)PpsInp2Itlk-SQ_") { + field(DESC, "Sequence to control 1PPS Select") + field(DOL1, "1") + field(LNK1, "$(P)PpsInpItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)PpsInp1Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)PpsInp-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)PpsInp1-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)PpsInpItlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)PpsInp1Itlk-SQ_.DISA NPP NMS") +} + record(longin, "$(P)DbusStatus-RB" ) { field(DESC, "EVG Dbus Status") field(DTYP, "Obj Prop uint32") From 4385b76e07de632d7dbfa6b651edededf880f585 Mon Sep 17 00:00:00 2001 From: rhong Date: Thu, 20 Jun 2024 13:53:47 -0500 Subject: [PATCH 2/5] Adding more selection options for DBussource --- evgMrmApp/Db/evgDbus.db | 390 +++++++++++++++++++++++++++++++++++++++- 1 file changed, 388 insertions(+), 2 deletions(-) diff --git a/evgMrmApp/Db/evgDbus.db b/evgMrmApp/Db/evgDbus.db index 53022c21..4d62e061 100644 --- a/evgMrmApp/Db/evgDbus.db +++ b/evgMrmApp/Db/evgDbus.db @@ -34,12 +34,32 @@ record(mbbo, "$(P)Src-Sel") { field(TTVL, "4096") field(FTVL, "8192") field(FFVL, "16384") - + field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") - field(OUT, "$(P)MapConv-Sel_ PP") + field(FLNK, "$(P)SrcItlk-SQ_.PROC PP") info(autosaveFields_pass0, "VAL") } +record(seq, "$(P)SrcItlk-SQ_") { + field(DESC, "Sequence to control Src Select") + field(DOL1, "1") + field(LNK1, "$(P)Src1Itlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)Src2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)Src1-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)Src2-Sel.VAL PP NMS") + field(DOL5, "$(P)Src-Sel.VAL NPP NMS") + field(LNK5, "$(P)MapConv-Sel_ PP NMS") + field(DLY6, "0.3") + field(DOL6, "0") + field(LNK6, "$(P)Src1Itlk-SQ_.DISA NPP NMS") + field(DOL7, "0") + field(LNK7, "$(P)Src2Itlk-SQ_.DISA NPP NMS") +} + record(mbbo, "$(P)MapConv-Sel_") { field(ASG, "private") field(DTYP, "Raw Soft Channel") @@ -59,7 +79,168 @@ record(mbbo, "$(P)MapConv-Sel_") { field(TTVL, "1") field(FTVL, "2") field(FFVL, "3") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(OUT, "$(P)Map-Sel PP") + info(autosaveFields_pass0, "VAL") +} +record(mbbo, "$(P)Src1-Sel") { + field(DESC, "EVG DBUS Source (more)") + field(PINI, "YES") + field(VAL, "0") + field(ZRST, "Off") + field(ONST, "Rear1") + field(TWST, "Rear2") + field(THST, "Rear3") + field(FRST, "Rear4") + field(FVST, "Rear5") + field(SXST, "Rear6") + field(SVST, "Rear7") + field(EIST, "Rear8") + field(NIST, "Rear9") + field(TEST, "Rear10") + field(ELST, "Rear11") + field(TVST, "Rear12") + field(TTST, "Rear13") + field(FTST, "Rear14") + field(FFST, "Rear15") + field(ZRVL, "0") + field(ONVL, "1") + field(TWVL, "2") + field(THVL, "4") + field(FRVL, "8") + field(FVVL, "16") + field(SXVL, "32") + field(SVVL, "64") + field(EIVL, "128") + field(NIVL, "256") + field(TEVL, "512") + field(ELVL, "1024") + field(TVVL, "2048") + field(TTVL, "4096") + field(FTVL, "8192") + field(FFVL, "16384") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(FLNK, "$(P)Src1Itlk-SQ_.PROC PP") + info(autosaveFields_pass0, "VAL") +} + +record(seq, "$(P)Src1Itlk-SQ_") { + field(DESC, "Sequence to control Src1 Select") + field(DOL1, "1") + field(LNK1, "$(P)SrcItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)Src2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)Src-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)Src2-Sel.VAL PP NMS") + field(DOL5, "$(P)Src1-Sel.VAL NPP NMS") + field(LNK5, "$(P)MapConv1-Sel_ PP NMS") + field(DLY6, "0.3") + field(DOL6, "0") + field(LNK6, "$(P)SrcItlk-SQ_.DISA NPP NMS") + field(DOL7, "0") + field(LNK7, "$(P)Src2Itlk-SQ_.DISA NPP NMS") +} + +record(mbbo, "$(P)MapConv1-Sel_") { + field(ASG, "private") + field(DTYP, "Raw Soft Channel") + field(ZRVL, "0") + field(ONVL, "1") + field(TWVL, "1") + field(THVL, "1") + field(FRVL, "1") + field(FVVL, "1") + field(SXVL, "1") + field(SVVL, "1") + field(EIVL, "1") + field(NIVL, "1") + field(TEVL, "1") + field(ELVL, "1") + field(TVVL, "1") + field(TTVL, "1") + field(FTVL, "1") + field(FFVL, "1") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(OUT, "$(P)Map-Sel PP") + info(autosaveFields_pass0, "VAL") +} + +record(mbbo, "$(P)Src2-Sel") { + field(DESC, "EVG DBUS Source (more+)") + field(PINI, "YES") + field(VAL, "0") + field(ZRST, "Off") + field(ONST, "FrontInp2") + field(TWST, "Rear0") + field(ZRVL, "0") + field(ONVL, "1") + field(TWVL, "2") + field(THSV, "INVALID") + field(FRSV, "INVALID") + field(FVSV, "INVALID") + field(SXSV, "INVALID") + field(SVSV, "INVALID") + field(EISV, "INVALID") + field(NISV, "INVALID") + field(TESV, "INVALID") + field(ELSV, "INVALID") + field(TVSV, "INVALID") + field(TTSV, "INVALID") + field(FTSV, "INVALID") + field(FFSV, "INVALID") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(FLNK, "$(P)Src2Itlk-SQ_.PROC PP") + info(autosaveFields_pass0, "VAL") +} + +record(seq, "$(P)Src2Itlk-SQ_") { + field(DESC, "Sequence to control Src1 Select") + field(DOL1, "1") + field(LNK1, "$(P)SrcItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)Src1Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)Src-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)Src1-Sel.VAL PP NMS") + field(DOL5, "$(P)Src2-Sel.VAL NPP NMS") + field(LNK5, "$(P)MapConv2-Sel_ PP NMS") + field(DLY6, "0.3") + field(DOL6, "0") + field(LNK6, "$(P)SrcItlk-SQ_.DISA NPP NMS") + field(DOL7, "0") + field(LNK7, "$(P)Src1Itlk-SQ_.DISA NPP NMS") +} + +record(mbbo, "$(P)MapConv2-Sel_") { + field(ASG, "private") + field(DTYP, "Raw Soft Channel") + field(ZRVL, "0") + field(ONVL, "1") + field(TWVL, "1") + field(THSV, "INVALID") + field(FRSV, "INVALID") + field(FVSV, "INVALID") + field(SXSV, "INVALID") + field(SVSV, "INVALID") + field(EISV, "INVALID") + field(NISV, "INVALID") + field(TESV, "INVALID") + field(ELSV, "INVALID") + field(TVSV, "INVALID") + field(TTSV, "INVALID") + field(FTSV, "INVALID") + field(FFSV, "INVALID") + field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") field(OUT, "$(P)Map-Sel PP") info(autosaveFields_pass0, "VAL") @@ -126,6 +307,16 @@ record(bo, "$(P)Src$(s=:)FrontInp1-Sel") { field(DOL, "$(P)Src-MbbiDir_.B1 CP") } +record(bo, "$(P)Src$(s=:)FrontInp2-Sel") { + field(DESC, "Front Input1 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):FrontInp2") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src2-MbbiDir_.B0 CP") +} + record(bo, "$(P)Src$(s=:)UnivInp0-Sel") { field(DESC, "Front Univ Input0 on Dbus") field(DTYP, "EVG Dbus") @@ -236,6 +427,166 @@ record(bo, "$(P)Src$(s=:)UnivInp10-Sel") { field(DOL, "$(P)Src-MbbiDir_.BC CP") } +record(bo, "$(P)Src$(s=:)RearInp0-Sel") { + field(DESC, "Front Rear Input0 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp0") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src2-MbbiDir_.B1 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp1-Sel") { + field(DESC, "Front Rear Input1 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp1") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B0 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp2-Sel") { + field(DESC, "Front Rear Input2 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp2") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B1 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp3-Sel") { + field(DESC, "Front Rear Input3 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp3") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B2 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp4-Sel") { + field(DESC, "Front Rear Input4 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp4") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B3 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp5-Sel") { + field(DESC, "Front Rear Input5 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp5") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B4 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp6-Sel") { + field(DESC, "Front Rear Input6 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp6") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B5 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp7-Sel") { + field(DESC, "Front Rear Input7 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp7") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B6 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp8-Sel") { + field(DESC, "Front Rear Input8 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp8") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B7 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp9-Sel") { + field(DESC, "Front Rear Input9 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp9") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B8 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp10-Sel") { + field(DESC, "Front Rear Input10 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp10") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.B9 CP") +} + +record(bo, "$(P)Src$(s=:)RearInp11-Sel") { + field(DESC, "Front Rear Input11 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp11") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.BA CP") +} + +record(bo, "$(P)Src$(s=:)RearInp12-Sel") { + field(DESC, "Front Rear Input12 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp12") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.BB CP") +} + +record(bo, "$(P)Src$(s=:)RearInp13-Sel") { + field(DESC, "Front Rear Input13 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp13") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.BC CP") +} + +record(bo, "$(P)Src$(s=:)RearInp14-Sel") { + field(DESC, "Front Rear Input14 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp14") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.BD CP") +} + +record(bo, "$(P)Src$(s=:)RearInp15-Sel") { + field(DESC, "Front Rear Input15 on Dbus") + field(DTYP, "EVG Dbus") + field(OUT , "#C0 S$(dbusBit) @$(EVG):RearInp15") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)Src1-MbbiDir_.BE CP") +} + # # By default OMSL field for the *Src* records is "closed_loop" hence # only one Source can be selected due of MBBO record. If you want to select @@ -249,6 +600,8 @@ record(dfanout, "$(P)Omsl-FOut") { field(OMSL, "supervisory") field(OUTA, "$(P)Omsl0-FOut_ PP") field(OUTB, "$(P)Omsl1-FOut_ PP") + field(OUTC, "$(P)Omsl2-FOut_ PP") + field(OUTD, "$(P)Omsl3-FOut_ PP") info(autosaveFields_pass0, "VAL") } @@ -279,6 +632,39 @@ record(dfanout, "$(P)Omsl1-FOut_") { field(OUTC, "$(P)Src$(s=:)UnivInp8-Sel.OMSL") field(OUTD, "$(P)Src$(s=:)UnivInp9-Sel.OMSL") field(OUTE, "$(P)Src$(s=:)UnivInp10-Sel.OMSL") + field(OUTF, "$(P)Src$(s=:)FrontInp2-Sel.OMSL") +} + +record(dfanout, "$(P)Omsl2-FOut_") { + field(ASG, "private") + #field(PINI, "YES") + field(VAL, "1") + field(UDF, "0") + field(OMSL, "supervisory") + field(OUTA, "$(P)Src$(s=:)RearInp0-Sel.OMSL") + field(OUTB, "$(P)Src$(s=:)RearInp1-Sel.OMSL") + field(OUTC, "$(P)Src$(s=:)RearInp2-Sel.OMSL") + field(OUTD, "$(P)Src$(s=:)RearInp3-Sel.OMSL") + field(OUTE, "$(P)Src$(s=:)RearInp4-Sel.OMSL") + field(OUTF, "$(P)Src$(s=:)RearInp5-Sel.OMSL") + field(OUTG, "$(P)Src$(s=:)RearInp6-Sel.OMSL") + field(OUTH, "$(P)Src$(s=:)RearInp7-Sel.OMSL") +} + +record(dfanout, "$(P)Omsl3-FOut_") { + field(ASG, "private") + #field(PINI, "YES") + field(VAL, "1") + field(UDF, "0") + field(OMSL, "supervisory") + field(OUTA, "$(P)Src$(s=:)RearInp8-Sel.OMSL") + field(OUTB, "$(P)Src$(s=:)RearInp9-Sel.OMSL") + field(OUTC, "$(P)Src$(s=:)RearInp10-Sel.OMSL") + field(OUTD, "$(P)Src$(s=:)RearInp11-Sel.OMSL") + field(OUTE, "$(P)Src$(s=:)RearInp12-Sel.OMSL") + field(OUTF, "$(P)Src$(s=:)RearInp13-Sel.OMSL") + field(OUTG, "$(P)Src$(s=:)RearInp14-Sel.OMSL") + field(OUTH, "$(P)Src$(s=:)RearInp15-Sel.OMSL") } record(waveform, "$(P)Label-I") { From 0c3898f2d6ef19558f33781ef8f6604ba0a32083 Mon Sep 17 00:00:00 2001 From: rhong Date: Thu, 20 Jun 2024 14:12:53 -0500 Subject: [PATCH 3/5] Adding more selection options for trigEvt source --- evgMrmApp/Db/evgTrigEvt.db | 311 ++++++++++++++++++++++++++++++++++++- 1 file changed, 303 insertions(+), 8 deletions(-) diff --git a/evgMrmApp/Db/evgTrigEvt.db b/evgMrmApp/Db/evgTrigEvt.db index 3020d37f..189c0d92 100644 --- a/evgMrmApp/Db/evgTrigEvt.db +++ b/evgMrmApp/Db/evgTrigEvt.db @@ -64,6 +64,7 @@ record(mbbo, "$(P)TrigSrc-Sel") { field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") field(FLNK, "$(P)TrigSrc-MbbiDir_") + field(FLNK, "$(P)TrigSrc-SQ_") info(autosaveFields_pass0, "VAL") } @@ -73,8 +74,33 @@ record(mbbiDirect, "$(P)TrigSrc-MbbiDir_") { field(INP, "$(P)TrigSrc-Sel.RVAL") } +record(seq, "$(P)TrigSrc-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)TrigSrcItlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)TrigSrc-MbbiDir_.PROC") +} + +record(seq, "$(P)TrigSrcItlk-SQ_") { + field(DESC, "Sequence to control TrigSrc Select") + field(DOL1, "1") + field(LNK1, "$(P)TrigSrc1Itlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)TrigSrc2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)TrigSrc1-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)TrigSrc2-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)TrigSrc1Itlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)TrigSrc2Itlk-SQ_.DISA NPP NMS") +} + record(mbbo, "$(P)TrigSrc1-Sel") { - field(DESC, "EVG Trig Evt Trig") + field(DESC, "EVG Trig Evt Trig (more)") field(PINI, "YES") field(VAL, "0") field(UDF, "0") @@ -91,6 +117,8 @@ record(mbbo, "$(P)TrigSrc1-Sel") { field(TEST, "Univ13") field(ELST, "Univ14") field(TVST, "Univ15") + field(TTST, "Front2") + field(FTST, "Rear0") field(ZRVL, "0") field(ONVL, "1") field(TWVL, "2") @@ -104,12 +132,12 @@ record(mbbo, "$(P)TrigSrc1-Sel") { field(TEVL, "512") field(ELVL, "1024") field(TVVL, "2048") - field(TTSV, "INVALID") - field(FTSV, "INVALID") + field(TTVL, "4096") + field(FTVL, "8192") field(FFSV, "INVALID") field(UNSV, "INVALID") field(IVOA, "Don't drive outputs") - field(FLNK, "$(P)TrigSrc1-MbbiDir_") + field(FLNK, "$(P)TrigSrc1-SQ_") info(autosaveFields_pass0, "VAL") } @@ -119,6 +147,105 @@ record(mbbiDirect, "$(P)TrigSrc1-MbbiDir_") { field(INP, "$(P)TrigSrc1-Sel.RVAL") } +record(seq, "$(P)TrigSrc1-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)TrigSrc1Itlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)TrigSrc1-MbbiDir_.PROC") +} + +record(seq, "$(P)TrigSrc1Itlk-SQ_") { + field(DESC, "Sequence to control TrigSrc Select") + field(DOL1, "1") + field(LNK1, "$(P)TrigSrcItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)TrigSrc2Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)TrigSrc-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)TrigSrc2-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)TrigSrcItlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)TrigSrc2Itlk-SQ_.DISA NPP NMS") +} + +record(mbbo, "$(P)TrigSrc2-Sel") { + field(DESC, "EVG Trig Evt Trig (more+)") + field(PINI, "YES") + field(VAL, "0") + field(UDF, "0") + field(ZRST, "Off") + field(ONST, "Rear1") + field(TWST, "Rear2") + field(THST, "Rear3") + field(FRST, "Rear4") + field(FVST, "Rear5") + field(SXST, "Rear6") + field(SVST, "Rear7") + field(EIST, "Rear8") + field(NIST, "Rear9") + field(TEST, "Rear10") + field(ELST, "Rear11") + field(TVST, "Rear12") + field(TTST, "Rear13") + field(FTST, "Rear14") + field(FFST, "Rear15") + field(ZRVL, "0") + field(ONVL, "1") + field(TWVL, "2") + field(THVL, "4") + field(FRVL, "8") + field(FVVL, "16") + field(SXVL, "32") + field(SVVL, "64") + field(EIVL, "128") + field(NIVL, "256") + field(TEVL, "512") + field(ELVL, "1024") + field(TVVL, "2048") + field(TTVL, "4096") + field(FTVL, "8192") + field(FFVL, "16384") + field(UNSV, "INVALID") + field(IVOA, "Don't drive outputs") + field(FLNK, "$(P)TrigSrc2-SQ_") + info(autosaveFields_pass0, "VAL") +} + +record(mbbiDirect, "$(P)TrigSrc2-MbbiDir_") { + field(ASG, "private") + field(DESC, "EVG Trig Evt Trig") + field(INP, "$(P)TrigSrc2-Sel.RVAL") +} + +record(seq, "$(P)TrigSrc2-SQ_"){ + field(DOL1, "0") + field(LNK1, "$(P)TrigSrc2Itlk-SQ_.PROC") + field(DOL2, "0") + field(LNK2, "$(P)TrigSrc2-MbbiDir_.PROC") +} + +record(seq, "$(P)TrigSrc2Itlk-SQ_") { + field(DESC, "Sequence to control TrigSrc Select") + field(DOL1, "1") + field(LNK1, "$(P)TrigSrcItlk-SQ_.DISA NPP NMS") + field(DOL2, "1") + field(LNK2, "$(P)TrigSrc1Itlk-SQ_.DISA NPP NMS") + field(DLY3, "0.3") + field(DOL3, "0") + field(LNK3, "$(P)TrigSrc-Sel.VAL PP NMS") + field(DOL4, "0") + field(LNK4, "$(P)TrigSrc1-Sel.VAL PP NMS") + field(DLY5, "0.3") + field(DOL5, "0") + field(LNK5, "$(P)TrigSrcItlk-SQ_.DISA NPP NMS") + field(DOL6, "0") + field(LNK6, "$(P)TrigSrc1Itlk-SQ_.DISA NPP NMS") +} + record(bo, "$(P)TrigSrc$(s=:)Mxc0-Sel") { field(DTYP, "EVG Trig Evt Mxc") field(OUT , "#C0 S$(trigEvtNum) @$(EVG):Mxc0") @@ -346,6 +473,143 @@ record(bo, "$(P)TrigSrc$(s=:)UnivInp15-Sel") { field(DOL, "$(P)TrigSrc1-MbbiDir_.BB CP") } +record(bo, "$(P)TrigSrc$(s=:)FrontInp2-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):FrontInp2") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(OMSL, "closed_loop") + field(DOL, "$(P)TrigSrc1-MbbiDir_.BC CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp0-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp0") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc1-MbbiDir_.BD CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp1-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp1") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B0 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp2-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp2") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B1 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp3-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp3") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B2 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp4-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp4") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B3 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp5-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp5") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B4 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp6-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp6") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B5 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp7-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp7") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B6 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp8-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp8") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B7 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp9-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp9") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B8 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp10-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp10") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.B9 CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp11-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp11") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.BA CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp12-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp12") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.BB CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp13-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp13") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.BC CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp14-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp14") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.BD CP") +} + +record(bo, "$(P)TrigSrc$(s=:)RearInp15-Sel") { + field(DTYP, "EVG TrigEvt") + field(OUT , "#C0 S$(trigEvtNum) @$(EVG):RearInp15") + field(ZNAM, "Clear") + field(ONAM, "Set") + field(DOL, "$(P)TrigSrc2-MbbiDir_.BE CP") +} + # # By default OMSL field for the *TrigSrc* records is "closed_loop" hence # only one Source can be selected due of MBBO record. If you want to select @@ -377,10 +641,11 @@ record(dfanout, "$(P)Omsl$(s=:)Cont-FOut_") { field(OUTA, "$(P)TrigSrc$(s=:)AC-Sel.OMSL") field(OUTB, "$(P)TrigSrc$(s=:)FrontInp0-Sel.OMSL") field(OUTC, "$(P)TrigSrc$(s=:)FrontInp1-Sel.OMSL") - field(OUTD, "$(P)TrigSrc$(s=:)UnivInp0-Sel.OMSL") - field(OUTE, "$(P)TrigSrc$(s=:)UnivInp1-Sel.OMSL") - field(OUTF, "$(P)TrigSrc$(s=:)UnivInp2-Sel.OMSL") - field(OUTG, "$(P)TrigSrc$(s=:)UnivInp3-Sel.OMSL") + field(OUTD, "$(P)TrigSrc$(s=:)FrontInp2-Sel.OMSL") + field(OUTE, "$(P)TrigSrc$(s=:)UnivInp0-Sel.OMSL") + field(OUTF, "$(P)TrigSrc$(s=:)UnivInp1-Sel.OMSL") + field(OUTG, "$(P)TrigSrc$(s=:)UnivInp2-Sel.OMSL") + field(OUTH, "$(P)TrigSrc$(s=:)UnivInp3-Sel.OMSL") field(FLNK, "$(P)Omsl$(s=:)Cont1-FOut_") } @@ -407,6 +672,36 @@ record(dfanout, "$(P)Omsl$(s=:)Cont2-FOut_") { field(OUTB, "$(P)TrigSrc$(s=:)UnivInp13-Sel.OMSL") field(OUTC, "$(P)TrigSrc$(s=:)UnivInp14-Sel.OMSL") field(OUTD, "$(P)TrigSrc$(s=:)UnivInp15-Sel.OMSL") + field(OUTE, "$(P)TrigSrc$(s=:)RearInp0-Sel.OMSL") + field(OUTF, "$(P)TrigSrc$(s=:)RearInp1-Sel.OMSL") + field(OUTG, "$(P)TrigSrc$(s=:)RearInp2-Sel.OMSL") + field(OUTH, "$(P)TrigSrc$(s=:)RearInp3-Sel.OMSL") + field(FLNK, "$(P)Omsl$(s=:)Cont3-FOut_") +} + +record(dfanout, "$(P)Omsl$(s=:)Cont3-FOut_") { + field(ASG, "private") + field(OMSL, "closed_loop") + field(DOL, "$(P)Omsl-FOut") + field(OUTA, "$(P)TrigSrc$(s=:)RearInp4-Sel.OMSL") + field(OUTB, "$(P)TrigSrc$(s=:)RearInp5-Sel.OMSL") + field(OUTC, "$(P)TrigSrc$(s=:)RearInp6-Sel.OMSL") + field(OUTD, "$(P)TrigSrc$(s=:)RearInp7-Sel.OMSL") + field(OUTE, "$(P)TrigSrc$(s=:)RearInp8-Sel.OMSL") + field(OUTF, "$(P)TrigSrc$(s=:)RearInp9-Sel.OMSL") + field(OUTG, "$(P)TrigSrc$(s=:)RearInp10-Sel.OMSL") + field(OUTH, "$(P)TrigSrc$(s=:)RearInp11-Sel.OMSL") + field(FLNK, "$(P)Omsl$(s=:)Cont4-FOut_") +} + +record(dfanout, "$(P)Omsl$(s=:)Cont4-FOut_") { + field(ASG, "private") + field(OMSL, "closed_loop") + field(DOL, "$(P)Omsl-FOut") + field(OUTA, "$(P)TrigSrc$(s=:)RearInp12-Sel.OMSL") + field(OUTB, "$(P)TrigSrc$(s=:)RearInp13-Sel.OMSL") + field(OUTC, "$(P)TrigSrc$(s=:)RearInp14-Sel.OMSL") + field(OUTD, "$(P)TrigSrc$(s=:)RearInp15-Sel.OMSL") } record(waveform, "$(P)Label-I") { From d0946e993a74f087f9f1d9601a1e1f1593424464 Mon Sep 17 00:00:00 2001 From: Jerzy Jamroz Date: Mon, 26 Aug 2024 11:39:37 +0200 Subject: [PATCH 4/5] fix: conf_mtca_evm_300 increased with 16 numRearInp. --- evgMrmApp/src/evgInit.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/evgMrmApp/src/evgInit.cpp b/evgMrmApp/src/evgInit.cpp index 61f0b87f..c0aa6667 100644 --- a/evgMrmApp/src/evgInit.cpp +++ b/evgMrmApp/src/evgInit.cpp @@ -108,7 +108,7 @@ static const evgMrm::Config conf_mtca_evm_300 = { "mTCA-EVM-300", 3, 16, - 0, + 16, }; static bool From 6ddc071134a262c85175c68a62d707d4598a0ea6 Mon Sep 17 00:00:00 2001 From: Jerzy Jamroz Date: Tue, 27 Aug 2024 09:03:16 +0200 Subject: [PATCH 5/5] fix: mbbo selections to follow others. --- evgMrmApp/Db/evgDbus.db | 2 +- evgMrmApp/Db/evgMrm.db | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/evgMrmApp/Db/evgDbus.db b/evgMrmApp/Db/evgDbus.db index 4d62e061..75f5f669 100644 --- a/evgMrmApp/Db/evgDbus.db +++ b/evgMrmApp/Db/evgDbus.db @@ -177,7 +177,7 @@ record(mbbo, "$(P)Src2-Sel") { field(PINI, "YES") field(VAL, "0") field(ZRST, "Off") - field(ONST, "FrontInp2") + field(ONST, "Front2") field(TWST, "Rear0") field(ZRVL, "0") field(ONVL, "1") diff --git a/evgMrmApp/Db/evgMrm.db b/evgMrmApp/Db/evgMrm.db index 1e36e45e..88578dc0 100644 --- a/evgMrmApp/Db/evgMrm.db +++ b/evgMrmApp/Db/evgMrm.db @@ -190,13 +190,13 @@ record(mbbo, "$(P)PpsInp1-Sel") { field(UDF, "0") field(VAL, "0") field(ZRST, "None") - field(ONST, "UnivInp11") - field(TWST, "UnivInp12") - field(THST, "UnivInp13") - field(FRST, "UnivInp14") - field(FVST, "UnivInp15") + field(ONST, "Univ11") + field(TWST, "Univ12") + field(THST, "Univ13") + field(FRST, "Univ14") + field(FVST, "Univ15") field(SXST, "EPICS Scan") - field(SVST, "RearInp0") + field(SVST, "Rear0") field(ZRVL, "0x0") field(ONVL, "0x1") field(TWVL, "0x2")