|
3
|
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 |
}
|