SlaveID:=0; // Сброс в 0, для каждый цикл
IF enable THEN up:=FALSE; // Проверяем стартовое условие, если FALSE - ничего дальше не делаем
IF Write_Command <> Prev_Command THEN ex:=81; END_IF; // Проверяем наличие команд на запись
CASE ex OF // Последовательный опрос регистров
0: BlockRead ....
50:
BlockRead (Enable:=Enable, Mode:=MB_RTU, DevAddr:=DevAdr, FirstAddr:=8309, Quantity:=1, ComHandle:=CHandle, TimeOut:=TOut, Buffer:=abyRead_buffer);
IF BlockRead.Complete THEN
IF BlockRead.Exception=0 THEN
//B2W.IN2Byte[0]:=abyRead_buffer[1];
//B2W.IN2Byte[1]:=abyRead_buffer[0];
SlaveID:=abyRead_buffer[1]; // передаю в переменную вычитанное значение из буфера
END_IF;