# pg9520.db   Uwe Hoppe   Fritz-Haber-Institut der MPG   1/2013

record(stringin, "$(P)$(R)GetVersion") {

    field(DESC, "Get Contr. Firmware Version")

    field(DTYP, "stream")

    field(INP, "@pg9520.proto getVersion $(BUS)")

}

record(ao, "$(P)$(R)Recall") {

    field(DESC, "Restores the state of PG")

    field(DTYP, "stream")

    field(OUT, "@pg9520.proto recall $(BUS)")

    field(DRVL, "0")

    field(DRVH, "12")

}

record(ao, "$(P)$(R)Save") {

    field(DESC, "Store current state of PG")

    field(DTYP, "stream")

    field(OUT, "@pg9520.proto save $(BUS)")

    field(DRVL, "1")

    field(DRVH, "12")

}

record(bo, "$(P)$(R)State") {

    field(DESC, "En-/Disables all channels")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setState $(BUS)")

    field(ZNAM, "Off")

    field(ONAM, "On")

}

record(bi, "$(P)$(R)GetState") {

    field(DESC, "Get state of all channels")

    field(DTYP, "stream")

    field(INP,  "@pg9520.proto getState $(BUS)")

    field(ZNAM, "Off")

    field(ONAM, "On")

    field(SCAN, "2 second")

# Some commands can stop the generator

    field(FLNK, "$(P)$(R)CheckState")

}

record(calcout,"$(P)$(R)CheckState") {

    field(DESC, "Update state button")

    field(OOPT, "On Change")

    field(INPA,"$(P)$(R)GetState NPP NMS")

    field(CALC,"A")

    field(OUT, "$(P)$(R)State PP NMS")

}

record(ao, "$(P)$(R)Period") {

    field(DESC, "Sets the T0 period")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPeriod $(BUS)")

    field(PREC, "4")

    field(DRVL, "100e-9")

    field(DRVH, "5000")

    field(EGU,  "sec")

}

record(ao, "$(P)$(R)UserPeriod") {

    field(DESC, "Sets the T0 user period")

    field(OUT, "$(P)$(R)Period2BaseUnit PP NMS")

    field(PREC, "6")

    field(DRVL, "100e-6")

    field(DRVH, "5000000")

    field(EGU,  "ms")

}

record(calcout,"$(P)$(R)Period2BaseUnit") {

    field(DESC, "Convert Period to base unit")

    field(INPA,"$(P)$(R)UserPeriod NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A/B")

    field(OUT, "$(P)$(R)Period PP NMS")

}

record(calcout,"$(P)$(R)Period2UserUnit") {

    field(DESC, "Convert Period to user unit")

    field(PINI, "YES")

    field(INPA,"$(P)$(R)Period NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A*B")

    field(OUT, "$(P)$(R)UserPeriod NPP NMS")

}

record(ao,"$(P)$(R)PeriodTweak") {

    field(DESC, "Step of Up/Down PeriodTweak")

    field(VAL, "1e0")

    field(PREC,"5")

}

record(calcout,"$(P)$(R)PeriodTweakDown") {

    field(DESC, "New period after Down Tweak")

    field(INPA,"$(P)$(R)PeriodTweak NPP NMS")

    field(INPB,"$(P)$(R)UserPeriod NPP NMS")

    field(CALC,"B-A")

    field(OUT, "$(P)$(R)UserPeriod PP NMS")

}

record(calcout,"$(P)$(R)PeriodTweakUp") {

    field(DESC, "New period after Up Tweak")

    field(INPA,"$(P)$(R)PeriodTweak NPP NMS")

    field(INPB,"$(P)$(R)UserPeriod NPP NMS")

    field(CALC,"B+A")

    field(OUT, "$(P)$(R)UserPeriod PP NMS")

}

record(mbbo, "$(P)$(R)Mode") {

    field(DESC, "Sets the T0 mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setMode $(BUS)")

    field(ZRST, "Normal")

    field(ZRVL, "0")

    field(ONST, "Single")

    field(ONVL, "1")

    field(TWST, "Burst")

    field(TWVL, "2")

    field(THST, "Duty Cycle")

    field(THVL, "3")

}

record(mbbo, "$(P)$(R)GateMode") {

    field(DESC, "Sets Global Gate Mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setGateMode $(BUS)")

    field(ZRST, "Disable")

    field(ZRVL, "0")

    field(ONST, "Pulse inhibit")

    field(ONVL, "1")

    field(TWST, "Output inhibit")

    field(TWVL, "2")

    field(THST, "Channel")

    field(THVL, "3")

}

record(mbbo, "$(P)$(R)GateLogic") {

    field(DESC, "Sets Chan. Gate Logic Level")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setGateLogic $(BUS)")

    field(ZRST, "Active low")

    field(ZRVL, "0")

    field(ONST, "Active high")

    field(ONVL, "1")

}

record(mbbo, "$(P)$(R)GateEdge") {

    field(DESC, "Select which edge to use")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setGateEdge $(BUS)")

    field(ZRST, "Rising")

    field(ZRVL, "0")

    field(ONST, "Falling")

    field(ONVL, "1")

}

record(ao, "$(P)$(R)GateLevel") {

    field(DESC, "Sets the gate threshold")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setGateLevel $(BUS)")

    field(PREC, "3")

    field(DRVL, "0.2")

    field(DRVH, "15")

    field(EGU,  "V")

}

record(mbbo, "$(P)$(R)TriggerMode") {

    field(DESC, "Sets Global Trigger Mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setTriggerMode $(BUS)")

    field(ZRST, "Disable")

    field(ZRVL, "0")

    field(ONST, "Trigger")

    field(ONVL, "1")

}

record(mbbo, "$(P)$(R)TriggerEdge") {

    field(DESC, "Select which edge to trigger")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setTriggerEdge $(BUS)")

    field(ZRST, "Rising")

    field(ZRVL, "0")

    field(ONST, "Falling")

    field(ONVL, "1")

}

record(ao, "$(P)$(R)TriggerLevel") {

    field(DESC, "Sets the trigger threshold")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setTriggerLevel $(BUS)")

    field(PREC, "3")

    field(DRVL, "0.2")

    field(DRVH, "15")

    field(EGU,  "V")

}

record(ao,"$(P)$(R)TimeUnitCF") {

    field(DESC, "ms")

    field(VAL, "1000.0")

}

#============================== Channel A ==============================

record(bo, "$(P)$(R)StateA") {

    field(DESC, "En-/Disable output pulse A")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPState(1) $(BUS)")

    field(ZNAM, "Off")

    field(ONAM, "On")

}

record(ao, "$(P)$(R)WidthA") {

    field(DESC, "Width of the output pulse")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPWidth(1) $(BUS)")

    field(PREC, "8")

    field(DRVL, "10e-9")

    field(DRVH, "999.99999999975")

    field(EGU,  "sec")

}

record(ao, "$(P)$(R)UserWidthA") {

    field(DESC, "User-Width of the pulse")

    field(OUT, "$(P)$(R)Width2BaseUnitA PP NMS")

    field(PREC, "8")

    field(DRVL, "10e-6")

    field(DRVH, "999999.99999975")

    field(EGU,  "ms")

}

record(calcout,"$(P)$(R)Width2BaseUnitA") {

    field(DESC, "Convert Width to base unit")

    field(INPA,"$(P)$(R)UserWidthA NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A/B")

    field(OUT, "$(P)$(R)WidthA PP NMS")

}

record(calcout,"$(P)$(R)Width2UserUnitA") {

    field(DESC, "Convert Width to user unit")

    field(PINI, "YES")

    field(INPA,"$(P)$(R)WidthA NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A*B")

    field(OUT, "$(P)$(R)UserWidthA NPP NMS")

}

record(ao,"$(P)$(R)WidthTweakA") {

    field(DESC, "Step of Up/Down Width Tweak")

    field(VAL, "1e-1")

    field(PREC,"6")

}

record(calcout,"$(P)$(R)WidthTweakDownA") {

    field(DESC, "New width after Down Tweak")

    field(INPA,"$(P)$(R)WidthTweakA NPP NMS")

    field(INPB,"$(P)$(R)UserWidthA NPP NMS")

    field(CALC,"B-A")

    field(OUT, "$(P)$(R)UserWidthA PP NMS")

}

record(calcout,"$(P)$(R)WidthTweakUpA") {

    field(DESC, "New width after Up Tweak")

    field(INPA,"$(P)$(R)WidthTweakA NPP NMS")

    field(INPB,"$(P)$(R)UserWidthA NPP NMS")

    field(CALC,"B+A")

    field(OUT, "$(P)$(R)UserWidthA PP NMS")

}

record(ao, "$(P)$(R)DelayA") {

    field(DESC, "Time f. start T0 to 1.edge")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPDelay(1) $(BUS)")

    field(PREC, "8")

    field(DRVL, "-999.99999999975")

    field(DRVH, "999.99999999975")

    field(EGU,  "sec")

}

record(ao, "$(P)$(R)UserDelayA") {

    field(DESC, "User-Delay of the pulse")

    field(OUT, "$(P)$(R)Delay2BaseUnitA PP NMS")

    field(PREC, "8")

    field(DRVL, "-999999.99999975")

    field(DRVH, "999999.99999975")

    field(EGU,  "ms")

}

record(calcout,"$(P)$(R)Delay2BaseUnitA") {

    field(DESC, "Convert Delay to base unit")

    field(INPA,"$(P)$(R)UserDelayA NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A/B")

    field(OUT, "$(P)$(R)DelayA PP NMS")

}

record(calcout,"$(P)$(R)Delay2UserUnitA") {

    field(DESC, "Convert Delay to user unit")

    field(PINI, "YES")

    field(INPA,"$(P)$(R)DelayA NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A*B")

    field(OUT, "$(P)$(R)UserDelayA NPP NMS")

}

record(ao,"$(P)$(R)DelayTweakA") {

    field(DESC, "Step of Up/Down Delay Tweak")

    field(VAL, "1e-1")

    field(PREC,"6")

}

record(calcout,"$(P)$(R)DelayTweakDownA") {

    field(DESC, "New delay after Down Tweak")

    field(INPA,"$(P)$(R)DelayTweakA NPP NMS")

    field(INPB,"$(P)$(R)UserDelayA NPP NMS")

    field(CALC,"B-A")

    field(OUT, "$(P)$(R)UserDelayA PP NMS")

}

record(calcout,"$(P)$(R)DelayTweakUpA") {

    field(DESC, "New delay after Up Tweak")

    field(INPA,"$(P)$(R)DelayTweakA NPP NMS")

    field(INPB,"$(P)$(R)UserDelayA NPP NMS")

    field(CALC,"B+A")

    field(OUT, "$(P)$(R)UserDelayA PP NMS")

}

record(mbbo, "$(P)$(R)SyncA") {

    field(DESC, "Selects the Sync source")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPSync(1) $(BUS)")

    field(ZRST, "T0")

    field(ZRVL, "0")

    field(ONST, "Error")

    field(ONVL, "1")

    field(TWST, "B")

    field(TWVL, "2")

    field(THST, "C")

    field(THVL, "3")

    field(FRST, "D")

    field(FRVL, "4")

    field(FVST, "E")

    field(FVVL, "5")

    field(SXST, "F")

    field(SXVL, "6")

    field(SVST, "G")

    field(SVVL, "7")

    field(EIST, "H")

    field(EIVL, "8")

}

record(ao, "$(P)$(R)MultiplexerA") {

    field(DESC, "Select which timers are on")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPMux(1) $(BUS)")

    field(DRVL, "0")

    field(DRVH, "255")

}

record(mbbo, "$(P)$(R)PolarityA") {

    field(DESC, "Set polarity of the pulse")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPolarity(1) $(BUS)")

    field(ZRST, "Normal")

    field(ZRVL, "0")

    field(ONST, "Complement")

    field(ONVL, "1")

    field(TWST, "Inverted")

    field(TWVL, "2")

}

record(mbbo, "$(P)$(R)OutputModeA") {

    field(DESC, "Select Amplitude mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setOutputMode(1) $(BUS)")

    field(ZRST, "TTL")

    field(ZRVL, "0")

    field(ONST, "Adjustable")

    field(ONVL, "1")

}

record(ao, "$(P)$(R)OutputAmplitudeA") {

    field(DESC, "Set adjustable output level")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setOutputAmplitude(1) $(BUS)")

    field(PREC, "3")

    field(DRVL, "2")

    field(DRVH, "20")

    field(EGU,  "V")

}

record(mbbo, "$(P)$(R)GateModeA") {

    field(DESC, "Sets Channel Gate Mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPGate(1) $(BUS)")

    field(ZRST, "Disable")

    field(ZRVL, "0")

    field(ONST, "Pulse inhibit")

    field(ONVL, "1")

    field(TWST, "Output inhibit")

    field(TWVL, "2")

}

record(mbbo, "$(P)$(R)GateLogicA") {

    field(DESC, "Set Chan. Gate Logic Level")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPGateLogic(1) $(BUS)")

    field(ZRST, "Active low")

    field(ZRVL, "0")

    field(ONST, "Active high")

    field(ONVL, "1")

}

record(mbbo, "$(P)$(R)ChannelModeA") {

    field(DESC, "Set Chan. pulse series Mode")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPCMode(1) $(BUS)")

    field(ZRST, "Normal")

    field(ZRVL, "0")

    field(ONST, "Single")

    field(ONVL, "1")

    field(TWST, "Burst")

    field(TWVL, "2")

#    field(THST, "D-Cycle")

#    field(THVL, "3")

}

record(ao, "$(P)$(R)BurstCounterA") {

    field(DESC, "Set no. of pulses in Burst")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPBCounter(1) $(BUS)")

#    field(PREC, "8")

    field(DRVL, "1")

    field(DRVH, "9999999")

}

#============================== Channel B ==============================

record(bo, "$(P)$(R)StateB") {

    field(DESC, "En-/Disable output pulse B")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPState(2) $(BUS)")

    field(ZNAM, "Off")

    field(ONAM, "On")

}

record(ao, "$(P)$(R)WidthB") {

    field(DESC, "Width of the output pulse")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPWidth(2) $(BUS)")

    field(PREC, "8")

    field(DRVL, "10e-9")

    field(DRVH, "999.99999999975")

    field(EGU,  "sec")

}

record(ao, "$(P)$(R)UserWidthB") {

    field(DESC, "User-Width of the pulse")

    field(OUT, "$(P)$(R)Width2BaseUnitB PP NMS")

    field(PREC, "8")

    field(DRVL, "10e-6")

    field(DRVH, "999999.99999975")

    field(EGU,  "ms")

}

record(calcout,"$(P)$(R)Width2BaseUnitB") {

    field(DESC, "Convert Width to base unit")

    field(INPA,"$(P)$(R)UserWidthB NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A/B")

    field(OUT, "$(P)$(R)WidthB PP NMS")

}

record(calcout,"$(P)$(R)Width2UserUnitB") {

    field(DESC, "Convert Width to user unit")

    field(PINI, "YES")

    field(INPA,"$(P)$(R)WidthB NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A*B")

    field(OUT, "$(P)$(R)UserWidthB NPP NMS")

}

record(ao,"$(P)$(R)WidthTweakB") {

    field(DESC, "Step of Up/Down Width Tweak")

    field(VAL, "1e-1")

    field(PREC,"6")

}

record(calcout,"$(P)$(R)WidthTweakDownB") {

    field(DESC, "New width after Down Tweak")

    field(INPA,"$(P)$(R)WidthTweakB NPP NMS")

    field(INPB,"$(P)$(R)UserWidthB NPP NMS")

    field(CALC,"B-A")

    field(OUT, "$(P)$(R)UserWidthB PP NMS")

}

record(calcout,"$(P)$(R)WidthTweakUpB") {

    field(DESC, "New width after Up Tweak")

    field(INPA,"$(P)$(R)WidthTweakB NPP NMS")

    field(INPB,"$(P)$(R)UserWidthB NPP NMS")

    field(CALC,"B+A")

    field(OUT, "$(P)$(R)UserWidthB PP NMS")

}

record(ao, "$(P)$(R)DelayB") {

    field(DESC, "Time f. start T0 to 1.edge")

    field(DTYP, "stream")

    field(OUT,  "@pg9520.proto setPDelay(2) $(BUS)")

    field(PREC, "8")

    field(DRVL, "-999.99999999975")

    field(DRVH, "999.99999999975")

    field(EGU,  "sec")

}

record(ao, "$(P)$(R)UserDelayB") {

    field(DESC, "User-Delay of the pulse")

    field(OUT, "$(P)$(R)Delay2BaseUnitB PP NMS")

    field(PREC, "8")

    field(DRVL, "-999999.99999975")

    field(DRVH, "999999.99999975")

    field(EGU,  "ms")

}

record(calcout,"$(P)$(R)Delay2BaseUnitB") {

    field(DESC, "Convert Delay to base unit")

    field(INPA,"$(P)$(R)UserDelayB NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A/B")

    field(OUT, "$(P)$(R)DelayB PP NMS")

}

record(calcout,"$(P)$(R)Delay2UserUnitB") {

    field(DESC, "Convert Delay to user unit")

    field(PINI, "YES")

    field(INPA,"$(P)$(R)DelayB NPP NMS")

    field(INPB,"$(P)$(R)TimeUnitCF NPP NMS")

    field(CALC,"A*B")

    field(OUT, "$(P)$(R)UserDelayB NPP NMS")

}

record(ao,"$(P)$(R)DelayTweakB") {

    field(DESC, "Step of Up/Down Delay Tweak")

    field(VAL, "1e-1")

    field(PREC,"6")

}

record(calcout,"$(P)$(R)DelayTweakDownB") {

    field(DESC, "New delay after Down Tweak")

    field(INPA,"$(P)$(R)DelayTweakB NPP NMS")

    field(INPB,"$(P)$(R)UserDelayB NPP NMS")