home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w048 / 2.ddi / MSSRC.ARC / INT24.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-21  |  923 b   |  46 lines
  1. {                            INT24.PAS
  2.                                MS 4.0
  3.                 Copyright (c) 1985, 87 by Borland International, Inc.         }
  4.  
  5. {$I-}
  6. {$R-}
  7. {$S-}
  8. {$V-}
  9. {$D-}
  10.  
  11. unit Int24;
  12.  
  13. interface
  14.  
  15. uses
  16.   Dos;                       {DOS calls - standard unit}
  17.  
  18. function EdINT24Result : Word;
  19.   {-Return the latest result from the int 24 checker}
  20.  
  21. procedure EdINT24On;
  22.   {-Install our critical error handler (hidden in INT24.OBJ)}
  23.  
  24. procedure EdINT24Off;
  25.   {-Restore previous critical error handler}
  26.  
  27.   {==========================================================================}
  28.  
  29. implementation
  30.  
  31.   function IoResultPrim : Word;
  32.     {-Calls IoResult for EdInt24Result}
  33.   begin
  34.     IoResultPrim := IoResult;
  35.   end;
  36.  
  37.   {$L INT24}
  38.  
  39.   function EdINT24Result : Word; external;
  40.   procedure EdINT24On; external;
  41.   procedure EdINT24Off; external;
  42.  
  43. begin
  44.   EdINT24On;
  45. end.
  46.