# mcc.proto   Uwe Hoppe   Fritz-Haber-Institut der MPG   4/2013
#
# 0x05=ENQ
# 0x06=ACK

ReplyTimeout = 2000;
InTerminator = CR LF;
iWT = 20;

getVersion {
  out "PNR\r\n"; in ACK;
  wait $iWT;
  out ENQ; in "%s";
}

getUnit {
  out "UNI\r\n"; in ACK;
  wait $iWT;
  out ENQ; in "%d";
}

getStatPres {
  out "PR\$2\r\n"; in ACK;
  wait $iWT; out ENQ;
  in "%d,%(\$1\$2.VAL)E";
}

getSetpoint {
  out "SP\$2\r\n"; in ACK;
  wait $iWT; out ENQ;
  in "%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E";
}

setPoint {
  out "SP\$2,%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E\r\n"; in ACK;
  wait $iWT; out ENQ;
  in "%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E";
  @init { getSetpoint; }
}