То что красным, это ведь к чтению-записи в порт не относится:

ors(enable:=flag);

IF tik.Q THEN
state:=0;
otvet.ref:=ROR(512,8);
otvet.offset:=ROR(2,8);
otvet.crc:=_CRC(IN:=ADR(otvet), N:=6);
END_IF;
tik(IN:=ors.Done AND NOT tik.Q, PT:=T#2S);
CASE state OF
0:
bWrite:=SysComWrite(ors.Handle,ADR(otvet),SIZEOF(o tvet),TimeOut,ADR(Err));
IF bWrite = SIZEOF(otvet) THEN
state:=1;
END_IF;
1:
bRead := SysComRead(hCom:=ors.Handle,pbyBuffer:=ADR(BufBR[1]),ulSize:=8,ulTimeout:=TimeOut,pResult:=ADR(Err));

IF bRead>0 THEN
;
END_IF;
ELSE ;
END_CASE;