Skip to content

Commit

Permalink
feat: add sofware and hardware mask/enable for sequencer
Browse files Browse the repository at this point in the history
  • Loading branch information
agaget committed Jan 31, 2024
1 parent 3b1cbe8 commit 5ba3a7b
Show file tree
Hide file tree
Showing 11 changed files with 583 additions and 4 deletions.
13 changes: 13 additions & 0 deletions evgMrmApp/Db/evgInput.db
Original file line number Diff line number Diff line change
Expand Up @@ -18,3 +18,16 @@ record(bi, "$(P)EnaIrq-RB") {
field( ZNAM, "Disabled")
field( ONAM, "Enabled")
}

record(ao, "$(P)FPMask-Sel") {
field( DESC, "FPxMask")
field( DTYP, "Obj Prop uint32")
field( OUT , "@OBJ=$(OBJ), PROP=FPMASK")
field( FLNK, "$(P)FPMask-RB")
}
record(ai, "$(P)FPMask-RB") {
field( DESC, "FPxMask")
field( DTYP, "Obj Prop uint32")
field( INP , "@OBJ=$(OBJ), PROP=FPMASK")
}

124 changes: 124 additions & 0 deletions evgMrmApp/Db/evm-mtca-300-evr.uv.substitutions
Original file line number Diff line number Diff line change
Expand Up @@ -138,6 +138,130 @@ file "evrpulsermap.db"
{31,"\$(P)DlyGen$(PID)EvtTrig0-SP", "$(EVG):EVR$(T):Pul$(PID)", Trig, 0}
{31,"\$(P)DlyGen$(PID)EvtTrig1-SP", "$(EVG):EVR$(T):Pul$(PID)", Trig, 0}
{31,"\$(P)DlyGen$(PID)EvtTrig2-SP", "$(EVG):EVR$(T):Pul$(PID)", Trig, 0}

{0, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{0, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{0, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{1, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{1, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{1, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{2, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{2, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{2, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{3, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{3, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{3, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{4, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{4, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{4, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{5, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{5, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{5, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{6, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{6, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{6, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{7, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{7, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{7, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{8, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{8, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{8, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{9, "\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{9, "\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{9, "\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{10,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{10,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{10,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{11,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{11,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{11,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{12,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{12,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{12,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{13,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{13,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{13,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{14,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{14,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{14,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{15,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{15,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{15,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
# gate generators mappings
{28,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{28,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{28,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{29,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{29,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{29,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{30,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{30,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{30,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{31,"\$(P)DlyGen$(PID)EvtSet0-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{31,"\$(P)DlyGen$(PID)EvtSet1-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}
{31,"\$(P)DlyGen$(PID)EvtSet2-SP", "$(EVG):EVR$(T):Pul$(PID)", Set, 0}

{0, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{0, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{0, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{1, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{1, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{1, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{2, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{2, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{2, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{3, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{3, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{3, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{4, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{4, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{4, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{5, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{5, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{5, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{6, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{6, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{6, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{7, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{7, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{7, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{8, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{8, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{8, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{9, "\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{9, "\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{9, "\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{10,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{10,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{10,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{11,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{11,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{11,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{12,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{12,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{12,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{13,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{13,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{13,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{14,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{14,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{14,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{15,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{15,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{15,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
# gate generators mappings
{28,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{28,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{28,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{29,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{29,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{29,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{30,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{30,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{30,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{31,"\$(P)DlyGen$(PID)EvtReset0-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{31,"\$(P)DlyGen$(PID)EvtReset1-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
{31,"\$(P)DlyGen$(PID)EvtReset2-SP", "$(EVG):EVR$(T):Pul$(PID)", Reset, 0}
}

# pulser masking controls
Expand Down
5 changes: 4 additions & 1 deletion evgMrmApp/src/evg.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,10 @@ OBJECT_BEGIN(evgDbus) {
} OBJECT_END(evgDbus)

OBJECT_BEGIN(evgInput) {
OBJECT_PROP2("IRQ", &evgInput::getExtIrq, &evgInput::setExtIrq);
OBJECT_PROP2("IRQ", &evgInput::getExtIrq, &evgInput::setExtIrq);
OBJECT_PROP2("FPMASK", &evgInput::getHwMask, &evgInput::setHwMask);
OBJECT_PROP1("FPMASK", &evgInput::stateChange);

} OBJECT_END(evgInput)

OBJECT_BEGIN(evgMxc) {
Expand Down
20 changes: 19 additions & 1 deletion evgMrmApp/src/evgInput.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,9 @@ evgInput::evgInput(const std::string& name, const epicsUInt32 num,
,m_num(num)
,m_type(type)
,m_pInReg(pInReg)
{}
{
scanIoInit(&changed);
}

evgInput::~evgInput() {
}
Expand Down Expand Up @@ -46,6 +48,22 @@ evgInput::getExtIrq() const {
return (nat_ioread32(m_pInReg) & (epicsUInt32)EVG_EXT_INP_IRQ_ENA) != 0;
}

epicsUInt32 evgInput::getHwMask() const
{
epicsUInt32 val;
val = (nat_ioread32(m_pInReg) & EVG_INP_FP_MASK) >> EVG_INP_FP_MASK_shift;
return val;
}

void evgInput::setHwMask(epicsUInt32 src)
{
epicsUInt32 inReg=nat_ioread32(m_pInReg) & ~(EVG_INP_FP_MASK);
nat_iowrite32(m_pInReg, inReg | (src<<EVG_INP_FP_MASK_shift));
scanIoRequest(changed);
}



void
evgInput::setDbusMap(epicsUInt16 dbus, bool ena) {
if(dbus > 7)
Expand Down
8 changes: 8 additions & 0 deletions evgMrmApp/src/evgInput.h
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,8 @@

#include <epicsTypes.h>
#include "mrf/object.h"
#include <dbScan.h>


enum InputType {
NoneInp = 0,
Expand All @@ -31,6 +33,9 @@ class evgInput : public mrf::ObjectInst<evgInput> {
void setExtIrq(bool);
bool getExtIrq() const;

void setHwMask(epicsUInt32);
epicsUInt32 getHwMask() const;

void setDbusMap(epicsUInt16, bool);
bool getDbusMap(epicsUInt16) const;

Expand All @@ -40,9 +45,12 @@ class evgInput : public mrf::ObjectInst<evgInput> {
void setTrigEvtMap(epicsUInt16, bool);
bool getTrigEvtMap(epicsUInt16) const;

IOSCANPVT stateChange() const { return changed; }

private:
const epicsUInt32 m_num;
const InputType m_type;
volatile epicsUInt8* const m_pInReg;
IOSCANPVT changed;
};
#endif //EVG_INPUT_H
10 changes: 10 additions & 0 deletions evgMrmApp/src/evgRegMap.h
Original file line number Diff line number Diff line change
Expand Up @@ -259,6 +259,12 @@
#define EVG_SEQ_RAM_SINGLE 0x00100000 // Single-Shot Mode: Disable on completion
#define EVG_SEQ_RAM_RECYCLE 0x00080000 // Continuous Mode: Repeat on completion

//Mask registers
#define EVG_SEQ_RAM_SWMASK 0x0000F000 // Sequence RAM Software mask
#define EVG_SEQ_RAM_SWMASK_shift 12
#define EVG_SEQ_RAM_SWENABLE 0x00000F00 // Sequence RAM Software enable
#define EVG_SEQ_RAM_SWENABLE_shift 8

/**************************************************************************************************/
/* Control Register flags */
/**************************************************************************************************/
Expand All @@ -275,6 +281,10 @@
/**************************************************************************************************/

#define EVG_EXT_INP_IRQ_ENA 0x01000000
#define EVG_INP_FP_ENA 0x0F000000
#define EVG_INP_FP_ENA_shift 24
#define EVG_INP_FP_MASK 0xF0000000
#define EVG_INP_FP_MASK_shift 28

#ifndef EVG_CONSTANTS
#define EVG_CONSTANTS
Expand Down
5 changes: 5 additions & 0 deletions iocBoot/iocseqmask/Makefile
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
TOP = ../..
include $(TOP)/configure/CONFIG
ARCH = linux-x86_64
TARGETS = envPaths
include $(TOP)/configure/RULES.ioc
80 changes: 80 additions & 0 deletions iocBoot/iocseqmask/st_EVM.cmd
Original file line number Diff line number Diff line change
@@ -0,0 +1,80 @@
#!../../bin/linux-x86_64/mrf

< envPaths

## Register all support components
dbLoadDatabase("../../dbd/mrf.dbd")
mrf_registerRecordDeviceDriver(pdbbase)

epicsEnvSet("IOCSH_PS1","EVM SeqMask> ")
epicsEnvSet("P","Ether-Realm:EVM")
epicsEnvSet("ENGINEER","agaget")
epicsEnvSet("LOCATION","Etheric Realm")

epicsEnvSet("EPICS_CA_MAX_ARRAY_BYTES","10000000")

epicsEnvSet("EVM_PCI","0000:0e:00.0")
epicsEnvSet("PORT","EVM-MTCA")
epicsEnvSet(FREQ, "88")

mrmEvgSetupPCI("$(PORT)", "$(EVM_PCI)")

## Load record instances
cd $(TOP)
dbLoadRecords("db/evm-mtca-300.uv.db","P=$(P):,s=,EVG=$(PORT),FRF=$(FREQ),FEVT=$(FREQ)")
dbLoadRecords("db/evm-mtca-300-evr.uv.db","P=$(P)U:,EVG=$(PORT),T=U,FRF=$(FREQ),FEVT=$(FREQ)")
dbLoadRecords("db/evm-mtca-300-evr.uv.db","P=$(P)D:,EVG=$(PORT),T=D,FRF=$(FREQ),FEVT=$(FREQ)")

iocInit()

##### Configure the EVM
dbpf $(P):Mxc0Frequency-SP 1
dbpf $(P):Mxc0Prescaler-SP 88000000
## Configure the sequencer
dbpf $(P):SoftSeq0TrigSrc0-Sel "Mxc0"
dbpf $(P):SoftSeq0TsResolution-Sel "uSec"
dbpf $(P):SoftSeq0RunMode-Sel "Normal"

dbpf $(P):SoftSeq0Timestamp-SP "[100, 200]"
#Can't dbpf waveform of UCHAR so we use this. Change architecture if needed.
#Event 11 is just used for example
system("$(EPICS_BASE)/bin/linux-x86_64/caput -a $(P):SoftSeq0EvtCode-SP 2 1 11")
system("$(EPICS_BASE)/bin/linux-x86_64/caput -a $(P):SoftSeq0EvtMask-SP 2 1 0")
# Due to this 'enable' settings, event 11 will not b triggered by default
system("$(EPICS_BASE)/bin/linux-x86_64/caput -a $(P):SoftSeq0EvtEna-SP 2 0 3")

# To fully understand mask and enable I suggest you to play with software mask an enable an watch counter of the EVR:
# $(P):SoftSeq0SwMask-Sel
# $(P):SoftSeq0SwEna-Sel
# If you put soft mask to 1 or 3 or 5 etc... it will mask event 1 of the sequence
# because mask of the sequencer is 1, and it's (binary) included in the software mask number
# For enable, soft ena to 3 or 7 or 11.. will enable event 11 of the sequencer
# because ena of the sequencer is 3 and it's (binary) included in the software ena number

## Configure the EVRU
dbpf $(P)U:DlyGen0EvtSet0-SP 13
dbpf $(P)U:DlyGen0EvtReset0-SP 14
dbpf $(P)U:OutFP0SrcPulse-SP "Pulser 0"
# FP0 of the EVRU is the equivalent of Univ8 of the EVM
# So this triggered the Mask 1 when FP0/Univ8 is High.
dbpf $(P):InpUniv8FPMask-Sel "1"


epicsThreadSleep(1)

dbtr $(P):SoftSeq0Commit-Cmd

epicsThreadSleep(1)

dbpf $(P):SoftSeq0Load-Cmd 1
dbpf $(P):SoftSeq0Enable-Cmd 1

# dbpf $(P):TrigEvt1TrigSrc0-Sel Mxc0
# dbpf $(P):TrigEvt0EvtCode-SP 1

## Push event 13 just to see that upstream/downstream is working
dbpf $(P):TrigEvt1TrigSrc1-Sel Univ8
dbpf $(P):TrigEvt1EvtCode-SP 13

##

61 changes: 61 additions & 0 deletions iocBoot/iocseqmask/st_EVR.cmd
Original file line number Diff line number Diff line change
@@ -0,0 +1,61 @@
#!../../bin/linux-x86_64/mrf

< envPaths

## Register all support components
dbLoadDatabase("../../dbd/mrf.dbd")
mrf_registerRecordDeviceDriver(pdbbase)

epicsEnvSet("IOCSH_PS1","EVR SeqMask> ")
epicsEnvSet("P","Ether-Realm:EVR")
epicsEnvSet("ENGINEER","agaget")
epicsEnvSet("LOCATION","Etheric Realm")

epicsEnvSet("EPICS_CA_MAX_ARRAY_BYTES","10000000")

epicsEnvSet("EVR_PCI","0000:0c:00.0")


mrmEvrSetupPCI("EVR-MTCA", "$(EVR_PCI)")

cd $(TOP)
## Load record instances
dbLoadRecords("db/evr-mtca-300u.uv.db","P=$(P):,EVR=EVR-MTCA,PNDELAY=PNDELAY,PNWIDTH=PNWIDTH,FRF=88,FEVT=88")


iocInit()

## we use Backplane of the MTCA card here to upstream event through input, like that no need for any other phyical installation.
## Events 2 and 3 will be use to mask and unmask the event 1 in the sequencer. You can send them softwarely through the EVM.
## Indeed You can remove that part and use analogic signal in other inputs if you prefer.
### When we receive event 2 Pulser 1-> backplane 1 is triggered
dbpf $(P):DlyGen1Width-SP 100
dbpf $(P):DlyGen1Width-RB
dbpf $(P):DlyGen1EvtTrig0-SP 2
dbpf $(P):OutBack1SrcPulse-SP "Pulser 1"

#When we receive event 3 Pulser 2-> backplane 2 is triggered
dbpf $(P):DlyGen2Width-SP 100
dbpf $(P):DlyGen2Width-RB
dbpf $(P):DlyGen2EvtTrig0-SP 3
dbpf $(P):OutBack2SrcPulse-SP "Pulser 2"

###Backplane channel 1 use for masking
dbpf $(P):BPIn1TrigBack-Sel "Edge"
dbpf $(P):BPIn1CodeBack-SP 13

###Backplane channel 2 use for unmasking
dbpf $(P):BPIn2TrigBack-Sel "Edge"
dbpf $(P):BPIn2CodeBack-SP 14

## Monitoring events. When your sequencer is running normally, counter A should increment at 1Hz.
## When event 2 is send to this EVR, counterA will stop incrementing, counterB will increment + 1, and counterD will increment +1
## When event 3 is send to this EVR, counterA will restart incrementing, counterC will increment + 1
dbpf $(P):EvtA-SP.OUT "@OBJ=EVR-MTCA,Code=1"
dbpf $(P):EvtB-SP.OUT "@OBJ=EVR-MTCA,Code=2"
dbpf $(P):EvtC-SP.OUT "@OBJ=EVR-MTCA,Code=3"
dbpf $(P):EvtD-SP.OUT "@OBJ=EVR-MTCA,Code=13"
dbpf $(P):EvtE-SP.OUT "@OBJ=EVR-MTCA,Code=11"

##

Loading

0 comments on commit 5ba3a7b

Please sign in to comment.