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

ReplyTimeout = 2000;
Terminator = CR LF;
iWT = 35;

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

recall {
   out "*RCL %i";
   in "ok";
}

save {
   out "*SAV %i";
   in "ok";
}

getState {
   out ":PULSE0:STATE?";
   in  "%d";
   wait $iWT;
}

setState {
   out ":PULSE0:STATE %d";
   in  "ok";
   @init {getState;}
}

getPeriod {
   out ":PULSE0:PERIOD?";
   in  "%f";
}

setPeriod {
   out ":PULSE0:PERIOD %e";
   in  "ok";
   @init {getPeriod; wait $iWT;}
}

getMode {
   out ":PULSE0:MODE?";
   in  "%{NORM|SING|BURS|DCYC}";
}

setMode {
   out ":PULSE0:MODE %{NORM|SING|BURS|DCYC}";
   in  "ok";
   @init {getMode; wait $iWT;}
}

getGateMode {
   out ":PULSE0:GATE:MODE?";
   in  "%{DIS|PULS|OUTP|CHAN}";
}

setGateMode {
   out ":PULSE0:GATE:MODE %{DIS|PULS|OUTP|CHAN}";
   in  "ok";
   @init {getGateMode; wait $iWT;}
}

getGateLogic {
   out ":PULSE0:GATE:LOGIC?";
   in  "%{LOW|HIGH}";
}

setGateLogic {
   out ":PULSE0:GATE:LOGIC %{LOW|HIGH}";
   in  "ok";
   @init {getGateLogic; wait $iWT;}
}

getGateEdge {
   out ":PULSE0:GATE:EDGE?";
   in  "%{RIS|FALL}";
}

setGateEdge {
   out ":PULSE0:GATE:EDGE %{RIS|FALL}";
   in  "ok";
   @init {getGateEdge; wait $iWT;}
}

getGateLevel {
   out ":PULSE0:GATE:LEVEL?";
   in  "%f";
}

setGateLevel {
   out ":PULSE0:GATE:LEVEL %f";
   in  "ok";
   @init {getGateLevel; wait $iWT;}
}

getTriggerMode {
   out ":PULSE0:TRIGGER:MODE?";
   in  "%{DIS|TRIG}";
}

setTriggerMode {
   out ":PULSE0:TRIGGER:MODE %{DIS|TRIG}";
   in  "ok";
   @init {getTriggerMode; wait $iWT;}
}

getTriggerEdge {
   out ":PULSE0:TRIGGER:EDGE?";
   in  "%{RIS|FALL}";
}

setTriggerEdge {
   out ":PULSE0:TRIGGER:EDGE %{RIS|FALL}";
   in  "ok";
   @init {getTriggerEdge; wait $iWT;}
}

getTriggerLevel {
   out ":PULSE0:TRIGGER:LEVEL?";
   in  "%f";
}

setTriggerLevel {
   out ":PULSE0:TRIGGER:LEVEL %f";
   in  "ok";
   @init {getTriggerLevel; wait $iWT;}
}

#=================================================

getPState {
   out ":PULSE\$1:STATE?";
   in  "%d";
}

setPState {
   out ":PULSE\$1:STATE %d";
   in  "ok";
   @init {getPState; wait $iWT;}
}

getPWidth {
   out ":PULSE\$1:WIDTH?";
   in  "%f";
}

setPWidth {
   out ":PULSE\$1:WIDTH %e";
   in  "ok";
   @init {getPWidth; wait $iWT;}
}

getPDelay {
   out ":PULSE\$1:DELAY?";
   in  "%f";
}

setPDelay {
   out ":PULSE\$1:DELAY %e";
   in  "ok";
   @init {getPDelay; wait $iWT;}
}

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

setPSync {
   out ":PULSE\$1:SYNC %{T0|CHA|CHB|CHC|CHD|CHE|CHF|CHG|CHH}";
   in  "ok";
   @init {getPSync; wait $iWT;}
}

getPMux {
   out ":PULSE\$1:MUX?";
   in  "%u";
}

setPMux {
   out ":PULSE\$1:MUX %u";
   in  "ok";
   @init {getPMux; wait $iWT;}
}

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

setPolarity {
   out ":PULSE\$1:POLARITY %{NORM|COMP|INV}";
   in  "ok";
   @init {getPolarity; wait $iWT;}
}

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

setOutputMode {
   out ":PULSE\$1:OUTPUT:MODE %{TTL|ADJ}";
   in  "ok";
   @init {getOutputMode; wait $iWT;}
}

getOutputAmplitude {
   out ":PULSE\$1:OUTPUT:AMPLITUDE?";
   in  "%f";
}

setOutputAmplitude {
   out ":PULSE\$1:OUTPUT:AMPLITUDE %f";
   in  "ok";
   @init {getOutputAmplitude; wait $iWT;}
}

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

setPCMode {
   out ":PULSE\$1:CMODE %{NORM|SING|BURS|DCYC}";
   in  "ok";
   @init {getPCMode; wait 50}
}

getPBCounter {
   out ":PULSE\$1:BCOUNTER?";
   in  "%u";
}

setPBCounter {
   out ":PULSE\$1:BCOUNTER %u";
   in  "ok";
   @init {getPBCounter; wait $iWT;}
}

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

setPGate {
   out ":PULSE\$1:CGATE %{DIS|PULS|OUTP}";
   in  "ok";
   @init {getPGate; wait 50}
}

getPGateLogic {
   out ":PULSE\$1:CLOGIC?";
   in  "%{LOW|HIGH}";
}

setPGateLogic {
   out ":PULSE\$1:CLOGIC %{LOW|HIGH}";
   in  "ok";
   @init {getPGateLogic; wait $iWT;}
}