RS232 to Modbus TCP - Rego 637

Hello.
I try to. I'm learning. But I don't know how to do it.
I have a Raspberry PI 3B +. I need an RS232 to Modbus TCP converter.
I have a REGO 637 regulation. The protocol is on the web:

[http://rago600.sourceforge.net.] (https: // REGO 637)

I need the resulting Modbus TCP format for control.
I would like to solve this with Node-RED.

Thank you for your help.

for example. I have for the Weintek MT8070iE panel

// Free protokol IVT - Ctení GT1 - Zpatecka
macro_command main()

char command[9], response[5], on_off
int address, data, read_data
short address_pom, data_pom, checksum
short return_value, i
char read_data1, read_data2

FILL(command[0], 0, 9) // init dotaz
FILL(response[0], 0, 5) // init

command[0] = 0x81 // CISLO STANICE - 81
command[1] = 0x02 // READ (CTENI) - 2

address = 0x000409 // READ ADRESA - 0409

HIWORD(address, address_pom)
LOBYTE(address_pom, command[2])
HIBYTE(address, command[3])
LOBYTE(address, command[4])

data = 0x000000 // READ DATA - 000000

HIWORD(data, data_pom)
LOBYTE(data_pom,command[5])
HIBYTE(data, command[6])
LOBYTE(data, command[7])

command[8] = 0x0D // checksum

//short TimeDelayDotaz
//GetData(TimeDelayDotaz, "Local HMI", LW, 302, 1) // Čte čas spoždění mezi dotazem a odpovědí

//INPORT(response[0], "Free Protocol", 5, return_value) //Start přenosu
//DELAY(TimeDelayDotaz) // Pausa
OUTPORT(command[0], "Free Protocol", 9) // Pošli dotaz
INPORT(response[0], "Free Protocol", 5, return_value) // DATA NAVRAT

if return_value > 0 then //bez chyby > 0

read_data = (response[1] * 256) + (response[2] * 128) +  response[3] //  data navrat 00 00 00
SetData(read_data, "Local HMI", LW, 502, 1) 	//read data 0xff ff ff   - Teplota součet kladné
SetData(return_value, "Local HMI", LB, 5800, 1) //Indikace úspěchu čtení 

end if
SetData(return_value, "Local HMI", LB, 5800, 1) //Indikace neúspěchu čtení

//// =================== LOG Terminal ===============
char dotaz[20], navrat[10], ukaz[34]
bool loguj = true //ukazuj ANO

FILL(dotaz[0], 0, 20)
FILL(navrat[0], 0, 10)
FILL(ukaz[0], 0, 34)

GetData(loguj, "Local HMI", LB, 5900, 1) // === Bude se LOGOVAT
if loguj then // Když ano
short x,y
y = 0
for x = 0 to 18
HEX2ASCII(command, dotaz[y], 2) // dotaz
y = y + 2
next x

y = 0
for x = 0 to 10
	HEX2ASCII(response[x], navrat[y], 2) // navrat
	y = y + 2
next x

StringCopy(dotaz[0], ukaz[0])		// =======  Slož String pro zobrazená v LOGu
StringCopy("--", ukaz[18])
StringCopy(navrat[0], ukaz[20])
StringCopy("-GT1", ukaz[30])

StringSet(ukaz[0], "Local HMI", LW, 6000, 34) // =======  Uložení dat pro zobrazení v LOGU
bool z = true
SetDataEx(z, "Local HMI", LB, 5997, 1)		// Čti právě teď
DELAY(10)
z = false
SetDataEx(z, "Local HMI", LB, 5997, 1)		// Dokončení pulzu čtení

end if

end macro_command