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

     2 

     3 ReplyTimeout = 2000;

     4 Terminator = CR LF;

     5 iWT = 35;

     6 

     7 getVersion {

     8    out "*IDN?";

     9    in "%s";

    10    @init {out "*IDN?"; in "%s"; wait $iWT;}

    11 }

    12 

    13 recall {

    14    out "*RCL %i";

    15    in "ok";

    16 }

    17 

    18 save {

    19    out "*SAV %i";

    20    in "ok";

    21 }

    22 

    23 getState {

    24    out ":PULSE0:STATE?";

    25    in  "%d";

    26    wait $iWT;

    27 }

    28 

    29 setState {

    30    out ":PULSE0:STATE %d";

    31    in  "ok";

    32    @init {getState;}

    33 }

    34 

    35 getPeriod {

    36    out ":PULSE0:PERIOD?";

    37    in  "%f";

    38 }

    39 

    40 setPeriod {

    41    out ":PULSE0:PERIOD %e";

    42    in  "ok";

    43    @init {getPeriod; wait $iWT;}

    44 }

    45 

    46 getMode {

    47    out ":PULSE0:MODE?";

    48    in  "%{NORM|SING|BURS|DCYC}";

    49 }

    50 

    51 setMode {

    52    out ":PULSE0:MODE %{NORM|SING|BURS|DCYC}";

    53    in  "ok";

    54    @init {getMode; wait $iWT;}

    55 }

    56 

    57 getGateMode {

    58    out ":PULSE0:GATE:MODE?";

    59    in  "%{DIS|PULS|OUTP|CHAN}";

    60 }

    61 

    62 setGateMode {

    63    out ":PULSE0:GATE:MODE %{DIS|PULS|OUTP|CHAN}";

    64    in  "ok";

    65    @init {getGateMode; wait $iWT;}

    66 }

    67 

    68 getGateLogic {

    69    out ":PULSE0:GATE:LOGIC?";

    70    in  "%{LOW|HIGH}";

    71 }

    72 

    73 setGateLogic {

    74    out ":PULSE0:GATE:LOGIC %{LOW|HIGH}";

    75    in  "ok";

    76    @init {getGateLogic; wait $iWT;}

    77 }

    78 

    79 getGateLevel {

    80    out ":PULSE0:GATE:LEVEL?";

    81    in  "%f";

    82 }

    83 

    84 setGateLevel {

    85    out ":PULSE0:GATE:LEVEL %f";

    86    in  "ok";

    87    @init {getGateLevel; wait $iWT;}

    88 }

    89 

    90 #=================================================

    91 

    92 getPState {

    93    out ":PULSE\$1:STATE?";

    94    in  "%d";

    95 }

    96 

    97 setPState {

    98    out ":PULSE\$1:STATE %d";

    99    in  "ok";

   100    @init {getPState; wait $iWT;}

   101 }

   102 

   103 getPWidth {

   104    out ":PULSE\$1:WIDTH?";

   105    in  "%f";

   106 }

   107 

   108 setPWidth {

   109    out ":PULSE\$1:WIDTH %e";

   110    in  "ok";

   111    @init {getPWidth; wait $iWT;}

   112 }

   113 

   114 getPDelay {

   115    out ":PULSE\$1:DELAY?";

   116    in  "%f";

   117 }

   118 

   119 setPDelay {

   120    out ":PULSE\$1:DELAY %e";

   121    in  "ok";

   122    @init {getPDelay; wait $iWT;}

   123 }

   124 

   125 getPSync {

   126    out ":PULSE\$1:SYNC?";

   127    in  "%{T0|CHA|CHB|CHC|CHD|CHE|CHF|CHG|CHH}";

   128 }

   129 

   130 setPSync {

   131    out ":PULSE\$1:SYNC %{T0|CHA|CHB|CHC|CHD|CHE|CHF|CHG|CHH}";

   132    in  "ok";

   133    @init {getPSync; wait $iWT;}

   134 }

   135 

   136 getPMux {

   137    out ":PULSE\$1:MUX?";

   138    in  "%u";

   139 }

   140 

   141 setPMux {

   142    out ":PULSE\$1:MUX %u";

   143    in  "ok";

   144    @init {getPMux; wait $iWT;}

   145 }

   146 

   147 getPolarity {

   148    out ":PULSE\$1:POLARITY?";

   149    in  "%{NORM|COMP|INV}";

   150 }

   151 

   152 setPolarity {

   153    out ":PULSE\$1:POLARITY %{NORM|COMP|INV}";

   154    in  "ok";

   155    @init {getPolarity; wait $iWT;}

   156 }

   157 

   158 getOutputMode {

   159    out ":PULSE\$1:OUTPUT:MODE?";

   160    in  "%{TTL|ADJ}";

   161 }

   162 

   163 setOutputMode {

   164    out ":PULSE\$1:OUTPUT:MODE %{TTL|ADJ}";

   165    in  "ok";

   166    @init {getOutputMode; wait $iWT;}

   167 }

   168 

   169 getOutputAmplitude {

   170    out ":PULSE\$1:OUTPUT:AMPLITUDE?";

   171    in  "%f";

   172 }

   173 

   174 setOutputAmplitude {

   175    out ":PULSE\$1:OUTPUT:AMPLITUDE %f";

   176    in  "ok";

   177    @init {getOutputAmplitude; wait $iWT;}

   178 }

   179 

   180 getPCMode {

   181    out ":PULSE\$1:CMODE?";

   182    in  "%{NORM|SING|BURS|DCYC}";

   183 }

   184 

   185 setPCMode {

   186    out ":PULSE\$1:CMODE %{NORM|SING|BURS|DCYC}";

   187    in  "ok";

   188    @init {getPCMode; wait 50}

   189 }

   190 

   191 getPBCounter {

   192    out ":PULSE\$1:BCOUNTER?";

   193    in  "%u";

   194 }

   195 

   196 setPBCounter {

   197    out ":PULSE\$1:BCOUNTER %u";

   198    in  "ok";

   199    @init {getPBCounter; wait $iWT;}

   200 }

   201 

   202 getPGate {

   203    out ":PULSE\$1:CGATE?";

   204    in  "%{DIS|PULS|OUTP}";

   205 }

   206 

   207 setPGate {

   208    out ":PULSE\$1:CGATE %{DIS|PULS|OUTP}";

   209    in  "ok";

   210    @init {getPGate; wait 50}

   211 }

   212 

   213 getPGateLogic {

   214    out ":PULSE\$1:CLOGIC?";

   215    in  "%{LOW|HIGH}";

   216 }

   217 

   218 setPGateLogic {

   219    out ":PULSE\$1:CLOGIC %{LOW|HIGH}";

   220    in  "ok";

   221    @init {getPGateLogic; wait $iWT;}

   222 }