##########################################################################

# Copyright (c) 2011 Lawrence Berkeley National Laboratory, Accelerator

# Technology Group, Engineering Division

# This code is distributed subject to a Software License Agreement found

# in file LICENSE that is included with this distribution.

##########################################################################

#@writetimeout { disconnect; }

#replytimeout { disconnect; }

#readtimeout  { disconnect; }

#mismatch     { disconnect; }

ReplyTimeout = 600;

ReadTimeout = 100;

InTerminator = "\n";

OutTerminator = "\n";

getIDN {

    out "*IDN?";

    in "%\$1[^\r\n]";

    ExtraInput = Ignore;

}

cmd {

    out "\$1";

}

setArmCount {

    out "\$1 %d";

#    @init { out "\$1?"; in "%d"; }

}

getArmCount {

    out "\$1?";

    in "%d";

    ExtraInput = Ignore;

}

setD {

    out "\$1 %d";

    @init { out "\$1?"; in "%d"; }

}

getD {

    out "\$1?";

    in "%d";

    ExtraInput = Ignore;

}

setF {

    out "\$1 %f";

    @init { out "\$1?"; in "%f"; }

}

getF {

    out "\$1?";

    in "%f";

    ExtraInput = Ignore;

}

setRange {

    out "RANG 2E-%d";

    @init { out "RANG?"; in "%*[^E]E-%d"; }

}

getRange {

    out "RANG?";

    in "%*[^E]E-%d";

    ExtraInput = Ignore;

}

setArmSource {

    out "ARM:SOUR %{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}";

    @init { out "ARM:SOUR?"; in "%{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}"; }

}

getArmSource {

    out "ARM:SOUR?";

    in "%{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}";

    ExtraInput = Ignore;

}

setTriggerSource {

    out "TRIG:SOUR %{IMM|TLIN}";

    @init { out "TRIG:SOUR?"; in "%{IMM|TLIN}"; }

}

getTriggerSource {

    out "TRIG:SOUR?";

    in "%{IMM|TLIN}";

    ExtraInput = Ignore;

}

cancel {

    out "\030ABOR\r";

    in "%*s";

    ExtraInput = Ignore;

}

#

# Measure current

#

measureCurrent {

    ReplyTimeout = 800;

    out "READ?";

    in "%f";

    ExtraInput = Ignore;

    @init { out "FORM:ELEM READ;CONF:CURR:DC"; }

}

fetchBuffered {

    ReplyTimeout = 10000;

    Separator = ",";

    out "FETC?";

    in "%f";

    ExtraInput = Ignore;

}

#

# Source

#

#not on 6485

#setIlimit {

#    out "SOUR:VOLT:ILIM 2.5E-%d";

#    @init { out "SOUR:VOLT:ILIM?"; in "2.5%*[^E]E-%d"; }

#}

#getIlimit {

#    out "SOUR:VOLT:ILIM?";

#    in "2.5%*[^E]E-%d";

#    ExtraInput = Ignore;

#}

#setSourceRange {

#    out "SOUR:VOLT:RANGE %d";

#    @init { out "SOUR:VOLT:RANGE?"; in "%{1.000000E+01|5.000000E+01|5.000000E+02}"; }

#}

#getSourceRange {

#    out "SOUR:VOLT:RANGE?";

#    in "%{1.000000E+01|5.000000E+01|5.000000E+02}";

#    ExtraInput = Ignore;

#}