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

     2 #

     3 # 0x05=ENQ

     4 # 0x06=ACK

     5 

     6 ReplyTimeout = 2000;

     7 InTerminator = CR LF;

     8 iWT = 20;

     9 

    10 getVersion {

    11   out "PNR\r\n"; in ACK;

    12   wait $iWT;

    13   out ENQ; in "%s";

    14 }

    15 

    16 getUnit {

    17   out "UNI\r\n"; in ACK;

    18   wait $iWT;

    19   out ENQ; in "%d";

    20 }

    21 

    22 getStatPres {

    23   out "PR\$2\r\n"; in ACK;

    24   wait $iWT; out ENQ;

    25   in "%d,%(\$1\$2.VAL)E";

    26 }

    27 

    28 getSetpoint {

    29   out "SP\$2\r\n"; in ACK;

    30   wait $iWT; out ENQ;

    31   in "%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E";

    32 }

    33 

    34 setPoint {

    35   out "SP\$2,%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E\r\n"; in ACK;

    36   wait $iWT; out ENQ;

    37   in "%(\$1\$2.VAL)d,%(\$1\$2L.VAL)E,%(\$1\$2H.VAL)E";

    38   @init { getSetpoint; }

    39 }