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)") |