(*Открываем порт*)
IF NOT port_opened THEN
com_handle:=SysComOpen(com_num);
IF com_handle<>16#FFFFFFFF THEN
port_init:=TRUE;
ELSE
SysComClose( com_num);
com_handle:=SysComOpen( com_num);
port_init:=TRUE;
END_IF

(*Настраиваем скорость*)
com_set.Port:=com_num;
com_set.dwBaudRate:=9600;
com_set.byParity:=0;
com_set.dwTimeout:=0;
com_set.byStopBits:=0; (* *)
com_set.dwBufferSize:=0;
com_set.dwScan:=0;
res:=SysComSetSettings(com_num,ADR(com_set));
(*Успешно открыли*)
IF NOT res THEN
port_opened:=TRUE;
END_IF
(* Установка PDU*)
strSetMsgMode:STRING:='AT$R';
SysComWrite(com_num,ADR(strSetMsgMode),LEN(strSetM sgMode),0);
rcvstr:='';
END_IF
незнаю где Вы всё это нашли настраивать модем вроде не нужно (у Вас же не GSM-модуль), Вам необходимо открыть порт и отправить туда какой нибудь текст, как в приведенном коде