--- a/pg9520/db/pg9520.db	Mon Mar 10 11:59:21 2014 +0100
+++ b/pg9520/db/pg9520.db	Fri Mar 14 11:07:56 2014 +0100
@@ -1,5 +1,43 @@
 # pg9520.db   Uwe Hoppe   Fritz-Haber-Institut der MPG   1/2013
 
+
+#=========================== Macro Pulse length ========================
+# 3/2014 Uwe Hoppe
+
+record(ao,"$(P)$(R)MPL"){
+  field(DESC,"Macro Pulse length")
+  field(DTYP,"Soft Channel")
+  field(VAL,0.0)
+  field(PREC, "8")
+  field(EGU,  "us")
+  field(FLNK,"$(P)$(R)Sum")
+}
+
+record(ao,"$(P)$(R)PLOffset"){
+  field(DESC,"Pulse Length Offset")
+  field(DTYP,"Soft Channel")
+  field(VAL,0.0405)
+  field(PREC, "8")
+  field(FLNK,"$(P)$(R)Sum")
+}
+
+record(calcout,"$(P)$(R)Sum"){
+  field(INPA,"$(P)$(R)MPL")
+  field(INPB,"$(P)$(R)PLOffset")
+  field(CALC,"A / 1000. + B")
+  field(OUT, "$(P)$(R)UserDelayD PP NMS")
+}
+
+record(calcout,"$(P)$(R)MPLinit"){
+  field(INPA,"$(P)$(R)UserDelayD")
+  field(INPB,"$(P)$(R)PLOffset")
+  field(CALC,"(A - B) * 1000.")
+  field(PINI, "YES")
+  field(OUT, "$(P)$(R)MPL PP NMS")
+}
+
+#=============================== Common ===============================
+
 record(stringin, "$(P)$(R)GetVersion") {
     field(DESC, "Get Contr. Firmware Version")
     field(DTYP, "stream")