Sleep ohne Win32 API

[turboPASCAL]

Schau mal hier vorbei: http://www.merlyn.demon.co.uk/pas-wait.htm

kann z.Z. nix Testen habe nur TP 6 (miniversion) installiert

Delphi-Quellcode:

asm
  hlt
end;

Delphi-Quellcode:

function KWAIT(SecsDelay : integer) : integer ;
var
  Tptr : ^longint ;
  Finish : longint ;
  W : word ;
  Ch : byte ;
begin
  KWAIT := -1 {default} ;
  Tptr := Ptr(Seg0040, $006C);
  Finish := Tptr^ + Round(18.2*SecsDelay) ;
  repeat
    asm { free CPU } 
      push ax;
      mov ax,1680h;
      int 2fh;
      pop ax
    end;
    if KeyPressed then begin
      Ch := Ord(ReadKey);
      if Ch=0 then KWAIT := 256+Ord(ReadKey) else KWAIT := Ch ;
      EXIT ;
    end ;
  until Tptr^ > Finish ;
end {KWAIT} ;