pg9520/db/pg9520.db
changeset 5 069837c56788
parent 2 c68ad80babeb
child 6 3f4c961d93ed
equal deleted inserted replaced
4:8a2328d953f0 5:069837c56788
     1 # pg9520.db   Uwe Hoppe   Fritz-Haber-Institut der MPG   1/2013
     1 # pg9520.db   Uwe Hoppe   Fritz-Haber-Institut der MPG   1/2013
       
     2 
       
     3 
       
     4 #=========================== Macro Pulse length ========================
       
     5 # 3/2014 Uwe Hoppe
       
     6 
       
     7 record(ao,"$(P)$(R)MPL"){
       
     8   field(DESC,"Macro Pulse length")
       
     9   field(DTYP,"Soft Channel")
       
    10   field(VAL,0.0)
       
    11   field(PREC, "8")
       
    12   field(EGU,  "us")
       
    13   field(FLNK,"$(P)$(R)Sum")
       
    14 }
       
    15 
       
    16 record(ao,"$(P)$(R)PLOffset"){
       
    17   field(DESC,"Pulse Length Offset")
       
    18   field(DTYP,"Soft Channel")
       
    19   field(VAL,0.0405)
       
    20   field(PREC, "8")
       
    21   field(FLNK,"$(P)$(R)Sum")
       
    22 }
       
    23 
       
    24 record(calcout,"$(P)$(R)Sum"){
       
    25   field(INPA,"$(P)$(R)MPL")
       
    26   field(INPB,"$(P)$(R)PLOffset")
       
    27   field(CALC,"A / 1000. + B")
       
    28   field(OUT, "$(P)$(R)UserDelayD PP NMS")
       
    29 }
       
    30 
       
    31 record(calcout,"$(P)$(R)MPLinit"){
       
    32   field(INPA,"$(P)$(R)UserDelayD")
       
    33   field(INPB,"$(P)$(R)PLOffset")
       
    34   field(CALC,"(A - B) * 1000.")
       
    35   field(PINI, "YES")
       
    36   field(OUT, "$(P)$(R)MPL PP NMS")
       
    37 }
       
    38 
       
    39 #=============================== Common ===============================
     2 
    40 
     3 record(stringin, "$(P)$(R)GetVersion") {
    41 record(stringin, "$(P)$(R)GetVersion") {
     4     field(DESC, "Get Contr. Firmware Version")
    42     field(DESC, "Get Contr. Firmware Version")
     5     field(DTYP, "stream")
    43     field(DTYP, "stream")
     6     field(INP, "@pg9520.proto getVersion $(BUS)")
    44     field(INP, "@pg9520.proto getVersion $(BUS)")