Make the CPU timing more precise

This commit is contained in:
CrazyEttin 2022-09-12 20:32:15 +03:00
parent d4720f48c2
commit 13e56f57a7
1 changed files with 4 additions and 1 deletions

View File

@ -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}