# $Source: /cvs/G/DRV/SATECO/cfg/SATECO_lakeshore331.ptcols,v $
# $Date: 2012/12/06 10:32:25 $
# $Revision: 1.9 $
# $Author: wang_x1 $
#----------------------------------------------
InTerminator  = CR LF;
OutTerminator = CR LF;
ReplyTimeout  =  500;
ReadTimeout   =  100;
WriteTimeout  =  100;
ExtraInput    = Ignore;

GET_VERSION     { out "*IDN?";      in "%39c";      wait 50; }

GET_MODE        { out "MODE?";      in "%{0|1|2}";  wait 50; }
SET_MODE        { out "MODE %{0|1|2}";              wait 50; }

GET_TEMP-SP     { out "SETP? 1";    in "%f";        wait 50; }
GET_TEMP        { out "KRDG? A";    in "%f";        wait 50; }
SET_TEMP        { out "SETP 1,%f";  wait 50; }

GET_TEMP-B      { out "KRDG? B";    in "%f";        wait 50; }
GET_TEMP-C      { out "KRDG? C";    in "%f";        wait 50; }
GET_TEMP-D      { out "KRDG? D";    in "%f";        wait 50; }

GET_HEAT-RANGE  { out "RANGE?";     in "%{0|1|2|3}";wait 50; }
SET_HEAT-RANGE  { out "RANGE %{0|1|2|3}";           wait 50; }

GET_HEAT-STAT   { out "HTRST?";     in "%{0|1|2}";  wait 50; }

GET_MHP         { out "MOUT? 1";    in "%f";        wait 50; }
SET_MHP         { out "MOUT 1, %f"; wait 50; }

GET_HEAT-LEVEL  { out "HTR?";    in "%f";           wait 50; }
SET_HEAT-LEVEL  {}

GET_P { out "PID? 1";  in "%f,%*f,%*f";             wait 50;}
SET_P { out "PID 1,%f,%(\$1:I_RBV.VAL)f,%(\$1:D_RBV.VAL)f"; wait 50;}

GET_I { out "PID? 1";  in "%*f,%f,%*f";             wait 50;}
SET_I { out "PID 1,%(\$1:P_RBV.VAL)f,%f,%(\$1:D_RBV.VAL)f"; wait 50; }

GET_D { out "PID? 1";  in "%*f,%*f,%f";             wait 50;}
SET_D { out "PID 1,%(\$1:P_RBV.VAL)f,%(\$1:I_RBV.VAL)f,%f"; wait 50;}

GET_CONTROL-MODE { out "CMODE? 1"; in "%{1|2|3|4|5|6}"; wait 50; }
SET_CONTROL-MODE { out "CMODE 1, %{1|2|3|4|5|6}";       wait 50; }

GET_RAMP        { out "RAMP? 1";    in "%{0|1},%(\$1:RMP-RT_RBV.VAL)f"; wait 50; }
GET_RAMP-STAT   { out "RAMPST? 1";  in "%{0|1}";                        wait 50; }
SET_RAMP-RATE   { out "RAMP 1, %(\$1:RMP-MD_RBV.VAL)d, %f";             wait 50; }
SET_RAMP-MODE   { out "RAMP 1, %d, %(\$1:RMP-RT_RBV.VAL)f";             wait 50; }

QUERY {out "%s"; in "%(\$1)39c";}