home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPU2OBJ.ZIP / TPINIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-04-04  |  619 b   |  45 lines
  1. { define CRT}
  2. unit tpinit;
  3. interface
  4. uses
  5. {$ifdef CRTUNIT}
  6.     CRT,
  7. {$endif}
  8.     DOS;
  9.  
  10. procedure tpinit_0;
  11. procedure saveBP_0;
  12. procedure restoreBP_0;
  13.  
  14. implementation
  15.  
  16. var
  17.   BP : word;
  18.  
  19. procedure tpinit_0;
  20.   begin
  21.     setintVec($00,SaveInt00);
  22.  
  23.     setintVec($02,SaveInt02);
  24. {$ifdef CRTUNIT}
  25.     setintVec($1B,SaveInt1B);
  26. {$endif}
  27.     setintVec($23,SaveInt23);
  28.     setintVec($24,SaveInt24);
  29.     setintVec($75,SaveInt75);
  30.   end;
  31.  
  32. procedure SaveBP_0;
  33. begin
  34.   inline( $58/$50/$BF/BP/$89/$05 );
  35. end;
  36.  
  37. procedure RestoreBP_0;
  38. begin
  39.   inline( $58/$BF/BP/$8B/$05/$50 );
  40. end;
  41.  
  42. end.
  43.  
  44.  
  45.