home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sbutil / misc.exe / MTASK.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-02-25  |  1.5 KB  |  46 lines
  1. {
  2. *****************************************************************************
  3.  
  4.            MTASK.PAS ... Multitasker routines interface to Turbo Pascal
  5.                         Release 1.11 (January 17, 1991)
  6.  
  7.                             Author(s): David Begley
  8.  
  9. *****************************************************************************
  10.  
  11.                     **************************************
  12.                          Turbo Pascal 5.5  - TPU Unit
  13.                      Designed for linking in Machine Code
  14.                     **************************************
  15.  
  16.                       Values returned correspond to:
  17.                         0  no known multitasker found
  18.                         1  DESQview found
  19.                         2  MultiDOS II found
  20.                         3  MultiDOS III found
  21.                         4  DoubleDOS found
  22.                         5  generic TopView compatible detected
  23.                         6  generic TAME-controlled detected
  24.  
  25.                       If DetectMultitasker is not run first, then
  26.                       when TaskSwitch is called, it will automatically
  27.                       execute DetectMultitasker to automate the time-
  28.                       slicing process by selecting the appropriate code
  29.                       depending on the multitasker active.
  30. }
  31.  
  32. unit MTask;
  33.  
  34. interface
  35.  
  36.   function detectmultitasker : byte;
  37.   procedure taskSwitch;
  38.  
  39. implementation
  40.  
  41.   {$L \dev\mtask\MTask}
  42.   function detectmultitasker : byte; external;
  43.   procedure taskswitch; external;
  44.  
  45. end.
  46.