Make the CPU timing more precise
This commit is contained in:
parent
d4720f48c2
commit
13e56f57a7
|
@ -71,7 +71,10 @@ end;
|
|||
procedure wait;
|
||||
begin
|
||||
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;
|
||||
end;
|
||||
{$endif}
|
||||
|
|
Loading…
Reference in New Issue