# tv301sf.proto   Uwe Hoppe   Fritz-Haber-Institut der MPG   3/2014
#
# Stream Device Protocol for the Agilent TV 301SF Navigator pumping system.

locktimeout = 5000;
outTerminator = CR;
inTerminator = "";
replytimeout = 1500;
readtimeout  = 100;
extrainput   = Ignore;
iWT          = 175;

### Uses "Window Meanings" protocol
# Format <STX>+<ADDR>+<WIN>+<COM>+<DATA>+<ETX>+<CRC>
# Where
#    <ADDR> (Unit address) = 0x80 (for RS 232) 
#    <ADDR> (Unit address) = 0x80 + device number (0 to 31) (for RS 485) 
#    <WIN> (Window) = string of 3 numeric char indicating the window # ( ‘000’ #to ‘999’)
#    <COM> (Command) = 0x30 to read the window, 0x31 to write into the window 
#    <DATA> = an alphanumeric ASCII string with the data to be written into the window. 
#ADDR = $1
RCOM = 0x30;
WCOM = 0x31;

getStartStop { WIN = "000"; #1=default=Start; 0=Stop
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,"%b"ETX"%01<xor>"; 
                    }

setStartStop { WIN = "000"; #1=default=Start; 0=Stop
                    out STX,$1,$WIN,$WCOM,"%d",ETX"%01<xor>";
                    in  STX,$1,ACK,ETX"%01<xor>";
                    @init { wait $iWT; getStartStop; }
                    }                             

getRemote { WIN = "008"; #1=default=Remote; 0=Serial
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,"%b"ETX"%01<xor>";
                    }

setRemote { WIN = "008"; #1=default=Remote; 0=Serial
                    out STX,$1,$WIN,$WCOM,"%d",ETX"%01<xor>";
                    in  STX,$1,ACK,ETX"%01<xor>";
                    @init { wait $iWT; getRemote; }
                    }                             

getRotFreqSetting { WIN = "120";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

setRotFreqSetting { WIN = "120"; CDATA= "955";
                    out STX,$1,$WIN,$WCOM,"000%u",ETX"%01<xor>";
                    in  STX,$1,ACK,ETX"%01<xor>";
                    @init { wait $iWT; getRotFreqSetting; wait $iWT; }
                    }

getVentValve { WIN = "122"; #1=default=ON=CLOSE; 0=OPEN=OFF
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,"%b"ETX"%01<xor>"; 
                    }

setVentValve { WIN = "122"; #1=default=ON=CLOSE; 0=OPEN=OFF
                    out STX,$1,$WIN,$WCOM,"%d",ETX"%01<xor>";
                    in  STX,$1,ACK,ETX"%01<xor>";
                    @init { wait $iWT; getVentValve; }
                    }                             

getVentValveOperation {  WIN = "125"; #Automatic = 0
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,"%b"ETX"%01<xor>"; 
                    }

setVentValveOperation { WIN = "125"; #Automatic = 0
                    out STX,$1,$WIN,$WCOM,"%d",ETX"%01<xor>";
                    in  STX,$1,ACK,ETX"%01<xor>";
                    @init { wait $iWT; getVentValveOperation; }
                    }                             

getPumpCurrent { WIN = "200";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

getPumpVoltage { WIN = "201";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

getPumpPower { WIN = "202";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

getDrivingFrequency { WIN = "203";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

getPumpTemperature { WIN = "204";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6d"ETX"%01<xor>";
                    }

getPumpStatus { WIN = "205";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%6i"ETX"%01<xor>";
                    }

getErrorCode { WIN = "206";
                    out STX,$1,$WIN,$RCOM,ETX"%01<xor>";
                    in  STX,$1,$WIN,$RCOM,"%o"ETX"%01<xor>";
                    }