imat-plc-attn.db

Go to the documentation of this file.

# Control Word: W510       (This word will self-reset to 0)
# W510.00               set true to request Sample Attenuator to Open
# W510.01               set true to request Sample Attenuator to Close
#
# Status Word: W511
# W511.00               true when Sample Attenuator requested to open via HMI or EPICS
# W511.01               true when Sample Attenuator is OPEN
# W511.02               true when Sample Attenuator is CLOSED
#
# 
# Pressures
# The pressure value will be in range 10 to 99 corresponding to 1.0 to 9.9
# The exponent will be something like -3 encoded in two's complement and read back as e.g. 65533 (unsigned) 
# Gauge         Pressure        x10_E   description
# TPG300-1      A1      D100    D101    Section 1 pirani
# TPG300-1      A2      D102    D103    Section 2 pirani
# TPG300-1      B1      D104    D105    Section 3 pirani
# TPG300-1      B2      D106    D107    Spare
# TPG300-2      A1      D108    D109    Section 4 pirani
# TPG300-2      A2      D110    D111    Section 5 pirani
# TPG300-2      B1      D112    D113    Section 6 pirani
# TPG300-2      B2      D114    D115    Spare

record(bo, "$(P)$(Q)SIM")
{
    field(SCAN, "Passive")
    field(DTYP, "Soft Channel")
    field(ZNAM, "NO")
    field(ONAM, "YES")
}


record(mbbi, "$(P)$(Q)STATUS")
{
    field(DESC, "Attenuator Status")
    field(DTYP, "asynInt32")
    field(INP,  "@asynMask($(PORT=PLC), 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=PLC), 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=PLC), 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=PLC), 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")
}