[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]

{
YC> Does anyone got any unit/code on giving up time slice under DV or OS/2?
Here they are for DOS, Windows, OS/2, DV and DoubleDos.  You will need
to detect the enviroment first (although none should make the system
hang if it's the wrong enviroment, just be ignored)  The key to good
idle release is finding the right spots to put them.  I have gotten my
door making unit that I created to about 97% idle during pauses and 93%
idle while waiting for keyboard input (with no delay in response - much
better than the typical 12% idle pauses and 8% idle keyboard waits)
Here is how... }

Procedure Sleep(Seconds: Word);
Var
  H,M,S,T,Last: Word;
Begin
  If Seconds = 0 Then Exit;
  If Seconds > 999 Then Seconds := Seconds DIV 1000;
  {incase of caller is thinking milliseconds}

  GetTime(H,M,Last,T);
  Repeat
    Repeat
      GetTime(H,M,S,T);
      TimerSlice;
      TimerSlice;
    Until S <> Last;
    Last := S;
    Dec(Seconds);
  Until Seconds = 0;
End;

Function GetChar: Char;
Var
  Counter, Span: Byte;
  Done: Boolean;
Begin
  Span := 0;
  Done := False;
  Repeat
    Inc(Counter);
    If Counter > Span Then
      Begin
        Counter := 0;
        If IsChar Then Done := True
        Else If Span < 50 Then Inc(Span);
      End
    Else TimerSlice;
  Until Done;
  If KeyPressedExtended Then GetChar := Readkey
  Else GetChar := RxChar;
End;

Procedure TimerSlice;
Begin
  Case SystemEnviroment Of
    DOS4:;
    DOS5,
    WINDOWS,
    OS2: Asm
           MOV AX,$1680
           INT $2F
         End;
    DV: Asm
          MOV AX,$1000
          INT $15
        End;
    DOUBLEDOS: Asm
                 MOV AX,$EE01
                 INT $21
               End;
  End;
End;

This is released as public domain, however if you are using it, I'd
appreciate a PRIVATE NETMAIL message to me at 1:2401/123 letting me
know.

Thanks

Pete Rocca
Multiboard Communications Centre @ 1:2401/123

[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]