Browse Source

* GiveUpTimeSlice for Dos improved for better cooperation with some TSRs on plain DOS

Tomas Hajny 20 years ago
parent
commit
7a97d2ff0a
1 changed files with 5 additions and 1 deletions
  1. 5 1
      ide/wutils.pas

+ 5 - 1
ide/wutils.pas

@@ -1327,6 +1327,7 @@ procedure GiveUpTimeSlice;
 {$ifdef DOS}
 {$ifdef DOS}
 var r: registers;
 var r: registers;
 begin
 begin
+  Intr ($28, R); (* This is supported everywhere. *)
   r.ax:=$1680;
   r.ax:=$1680;
   intr($2f,r);
   intr($2f,r);
 end;
 end;
@@ -1378,7 +1379,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.19  2004-12-19 13:55:42  florian
+  Revision 1.20  2004-12-19 20:31:16  hajny
+    * GiveUpTimeSlice for Dos improved for better cooperation with some TSRs on plain DOS
+
+  Revision 1.19  2004/12/19 13:55:42  florian
     * x86_64 compilation fixed
     * x86_64 compilation fixed
 
 
   Revision 1.18  2004/09/16 22:08:13  armin
   Revision 1.18  2004/09/16 22:08:13  armin