Make the CPU timing more precise
This commit is contained in:
parent
d4720f48c2
commit
13e56f57a7
|
@ -71,7 +71,10 @@ end;
|
||||||
procedure wait;
|
procedure wait;
|
||||||
begin
|
begin
|
||||||
if IC div 500 = 0 then sleep (1)
|
if IC div 500 = 0 then sleep (1)
|
||||||
else sleep (IC div 500);
|
else begin
|
||||||
|
sleep (IC div 500);
|
||||||
|
if IC mod 500 >= 250 then sleep (1);
|
||||||
|
end;
|
||||||
IC := 0;
|
IC := 0;
|
||||||
end;
|
end;
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
Loading…
Reference in New Issue