Поискав решение в интернете, получилось реализовать так:
1. Добавляем в проект стандартное устройство (адаптер) Ethernet. Настраиваем его.
2. Подключаем библиотеку ModbusServer.
3. Добавляем подпрограмму:
// Сервер(слейв) Modbus TCP
PROGRAM MB_TCP_SLAVE
VAR
mb_server : ModbusServer;
mbPort : WORD := 502;
hReg : ARRAY[0..9] OF WORD;
iReg : ARRAY[0..24] OF WORD;
hSize : UINT:= 10;
iSize : UINT:= 25;
mbTimeout : UINT:= 0;
mbReset : BOOL;
mbBusy : BOOL;
mbError : BOOL;
clientConns : BYTE;
xTimeout : BOOL;
END_VAR
-------------------------------------
mb_server( wPort := mbPort,
pInputData := ADR(iReg),
uiInputDataSize := iSize,
pOutputData := ADR(hReg),
uiOutputDataSize := hSize,
xEnable := TRUE,
xReset := mbReset,
tTimeout := mbTimeout,
InterfaceName := "eth0", //Имя сетевого адаптера Ethernet - не обязательно
tTimeout := 0,
xbusy => mbBusy,
xError => mbError,
byClientConnections => clientConns,
xTimeout => xTimeout);
3. Адрес нашего слейв устройства для опроса = 0 или 255.
