Experimental Physics and
Industrial Control System

#

# Value of this record is the FPGA power-up status.

#

record(bi, "$(P)$(R)FPGA:Powerup") {

    field(DESC, "Trigger sysmon read. FPGA power-up?")

    field(DTYP, "asynInt32")

    field(INP,  "@asyn($(PORT) 0x0000 0)")

    field(SCAN, "2 second")

    field(ZNAM, "Not restarted")

    field(ONAM, "Restarted")

    field(FLNK, "$(P)$(R)IOC:reconChk_")

}

#

# Monitor the status of the FPGA power-up status record (B) to detect

# reconnection and monitor the value (A) to detect FPGA power up.

# Push output record values to FPGA when required.

#

record(calcout, "$(P)$(R)IOC:reconChk_") {

    field(DESC, "Trigger push on reconnect or power up")

    field(INPA, "$(P)$(R)FPGA:Powerup NPP NMS")

    field(INPB, "$(P)$(R)FPGA:Powerup.STAT NPP NMS")

    field(INPC, "0")

    field(CALC, "B=0&&((C!=0)||A);C:=B")

    field(OOPT, "When Non-zero")

    field(TPRO, 1)

    field(OUT,  "$(P)$(R)IOC:recon_.PROC")

}

record(fanout, "$(P)$(R)IOC:reconA_") {

    field(PINI, "YES”)

. . . Here’s where I have the LNKx records that trigger output record processing . . .

    field(FLNK, “$(P)$(R)IOC:clrPwrup_")

}

record(longout, "$(P)$(R)IOC:clrPwrup_") {

    field(DESC, "Clear FPGA power-up status")

    field(DTYP, "asynInt32")

    field(OUT,  "@asyn($(PORT) 0x1000 0)")

}