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

{
MARCO MILTENBURG

>> if you find SOURCE to detect/give up time slices For Windows/OS/2/Desqview,
>> could you post it? I have stuff For Desqview, I believe.

>  Procedure GiveTimeSlice; Inline( $cd/$28 );

This is nice, but you have to be sure that you have enough stack space left,
because Dos or TSR's that hook this interrupt will use SS:SP For their own
stack. I use the following in my multitasker detect Unit :
}

Procedure TimeSlice;
Var
  Regs : Registers;
begin
  Case OS_Type Of
    _Dos :
      begin
      end;

    _DV,
    _DVX :
       begin
         Regs.AX := $1000;
         Intr($15, Regs);
       end;

    _OS2,
    _WINS,
    _WIN3:
      begin
        Regs.AX := $1680;
        Intr($2F, Regs);
      end;
  end;
end;

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