帮我看看这个程序的功能。

这是个串口通信中的子过程，但是功能不明。procedure GetData(portn: integer; str: pchar);//portn: COM号
var
  rec_temp:byte;
  time_start,time_end:TDateTime;
begin
    time_start:=now;
    repeat  rec_temp:=sio_iqueue(portn);//
    time_end:=now;
    if time_end-time_start>0.0000057 then//这个地方不理解
    begin
      application.MessageBox(str,'出错提示框',0);
      beep();
      exit;
    end;
    until rec_temp>0;
end;