//Request form:
//<mess addr="1">{req}</mess> - message tag
//  addr - remote station address (1...254)
 
io.setAttr("err","");
addr = io.attr("addr").toInt();
if(addr < 1 || addr > 254) { io.setAttr("err","1:Device address out of range 1...254"); return; }
request = ":"+addr.toString(10)+";"+io.text()+";";
//> Calc KS
KS = 0xFFFF;
for(i = 1; i < request.length; i++)
{
	KS = KS ^ request.charCodeAt(i);
	for(j = 0; j < 8; j++)
		KS = (KS&0x01) ? (KS >> 1)^0xA001 : (KS >> 1);
}
request += KS.toString(10)+"\r";
//SYS.messDebug("PRT","Request: "+request);
 
//Send request
resp = tr.messIO(request);
while(resp.length && resp[resp.length-1] != "\r")
{
	tresp = tr.messIO("");
	if(!tresp.length) break;
  	resp += tresp;
}
if(resp.length && resp.charCodeAt(0) == 0xFF) resp = resp.slice(1);
if(resp.length < 7 || resp[resp.length-1] != "\r" ||
	resp[0] != "!" || resp.slice(1).toInt() != addr || (KSpos=resp.lastIndexOf(";")) < 0)
{ io.setAttr("err","2:No or error respond"); return; }
//SYS.messDebug("PRT","Respond: "+resp);
 
//> Calc KS
KS = 0xFFFF;
for(i = 1; i < min(KSpos+1,resp.length); i++)
{
	KS = KS ^ resp.charCodeAt(i);
	for(j = 0; j < 8; j++)
		KS = (KS&0x01) ? (KS >> 1)^0xA001 : (KS >> 1);
}
if(KS != resp.slice(KSpos+1).toInt(10)) { io.setAttr("err","6:KS error."); return; }
io.setText(resp.slice(resp.indexOf(";")+1,KSpos));

str_inASCII="11 06 00 28 01 f4 ";
 
str_in=Special.FLibSYS.strEnc2Bin(str_inASCII);
 
out = 0xFFFF;
for( i = 0; i < str_in.length; i++ )
{
out = out^str_in.charCodeAt(i);
for( j=0; j<8; j++ ) out = (out&1) ? ((out>>1)^0xA001) : out >> 1;
}
str_out=SYS.strFromCharCode(out&0xFF,(out&0xFF00)>>8 );
 
str_outASCII=str_inASCII + Special.FLibSYS.strDec4Bin(str_out);