imat-plc-attn-main.template

Go to the documentation of this file.

record(mbbi, "$(P)$(Q)STATUS")
{
    field(DESC, "Attenuator Status")
    field(DTYP, "asynInt32")
    field(INP,  "@asynMask($(PORT), 511, 16, 5.0) FINS_WR_READ")
    field(SCAN, ".1 second")
        # we right shift by 1 to drop the "open request" status bit 
        field(SHFT, 1)
        field(ZRVL, 0)
        field(ZRST, "MOVING")
        field(ONVL, 1)
        field(ONST, "OPEN")
        field(TWVL, 2)
        field(TWST, "CLOSED")
        field(UNSV, "MINOR")
    field(SIML, "$(P)$(Q)SIM")
    field(SIOL, "$(P)$(Q)SIM:STATUS")
        field(FLNK, "$(P)$(Q)_STATUSD.PROC")
    info(INTEREST, "HIGH")
    info(alarm, "Attenuator")
        info(archive, "VAL")
}

record(mbbiDirect, "$(P)$(Q)_STATUSD")
{
    field(DESC, "Attenuator Bits")
    field(DTYP, "Soft Channel")
    field(INP,  "$(P)$(Q)STATUS NPP")
        field(FLNK, "$(P)$(Q)OPEN.PROC")
}

record(bi, "$(P)$(Q)OPEN")
{
    field(DESC, "Attenuator Open")
    field(ZNAM, "NO")
    field(ONAM, "YES")
    field(INP,  "$(P)$(Q)_STATUSD.B0 NPP")
    info(INTEREST, "HIGH")
    info(alarm, "Attenuator Open")
        field(FLNK, "$(P)$(Q)CLOSED.PROC")
}

record(bi, "$(P)$(Q)CLOSED")
{
    field(DESC, "Attenuator Closed")
    field(ZNAM, "NO")
    field(ONAM, "YES")
    field(INP,  "$(P)$(Q)_STATUSD.B1 NPP")
    info(INTEREST, "HIGH")
    info(alarm, "Attenuator Open")
}

## write 0 to CLOSE, 1 to OPEN
record(mbbo, "$(P)$(Q)MOVE:SP")
{
    field(DESC, "Move Attenuator")
    field(DTYP, "asynInt32")
    field(ZRST, "CLOSE")
        field(ONST, "OPEN")
    field(ZRVL, 2)
        field(ONVL, 1)
    field(OUT,  "@asyn($(PORT), 510, 5.0) FINS_WR_WRITE")
    field(SIML, "$(P)$(Q)SIM")
    field(SIOL, "$(P)$(Q)SIM:MOVE")
}

record(bo, "$(P)$(Q)OPEN:SP")
{
    field(DESC, "Open Attenuator")
    field(DTYP, "asynInt32")
    field(ZNAM, "...")
    field(ONAM, "OPEN")
    field(OUT,  "@asyn($(PORT), 510, 5.0) FINS_WR_WRITE_B0")
    field(SIML, "$(P)$(Q)SIM")
    field(SIOL, "$(P)$(Q)SIM:OPEN")
}

record(bo, "$(P)$(Q)CLOSED:SP")
{
    field(DESC, "Close Attenuator")
    field(DTYP, "asynInt32")
    field(ZNAM, "...")
    field(ONAM, "CLOSE")
    field(OUT,  "@asyn($(PORT), 510, 5.0) FINS_WR_WRITE_B1")
    field(SIML, "$(P)$(Q)SIM")
    field(SIOL, "$(P)$(Q)SIM:CLOSE")
}


### SIMULATION RECORDS ###

# $(P)$(Q)SIM is in header file

record(bi, "$(P)$(Q)SIM:CLOSE")
{
    field(SCAN, "Passive")
    field(DTYP, "Soft Channel")
    field(VAL, "1")
}

record(bi, "$(P)$(Q)SIM:OPEN")
{
    field(SCAN, "Passive")
    field(DTYP, "Soft Channel")
    field(VAL, "1")
}

record(longin, "$(P)$(Q)SIM:STATUS")
{
    field(SCAN, "Passive")
    field(DTYP, "Soft Channel")
    field(VAL, "1")
}

record(longin, "$(P)$(Q)SIM:MOVE")
{
    field(SCAN, "Passive")
    field(DTYP, "Soft Channel")
    field(VAL, "1")
}