home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / memory.swg / 0013_SDRVFLSH.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  704 b   |  47 lines
  1. {
  2. HAGEN LEHMANN
  3.  
  4. This Procedure flushes the SMARTDRV.EXE-cache.
  5. }
  6.  
  7. Procedure FlushChache; Assembler;
  8. Asm
  9.   mov   ax,$4A10
  10.   mov   bx,$0002
  11.   int   $2F
  12. end;
  13.  
  14. {
  15. MARCO MILTENBURG
  16.  
  17. Flushing SmartDrive: It's written by Max Maischein (2:249/6.17) and Norbert
  18. Igl (2:2402/300.3), both from Germany (if I'm not mistaken).
  19. }
  20.  
  21. Procedure FlushSD_sys; Far;
  22. Var
  23.   F : File;
  24.   B : Byte;
  25. begin
  26.   Assign(F, 'SMARTAAR');
  27.   Reset(F);
  28.   B := 0;
  29.   Asm
  30.     push  ds
  31.     mov   ax, 04403h
  32.     mov   bx, FileRec(F).Handle
  33.     mov   cx, 1
  34.     int   21h
  35.     pop   ds
  36.   end;
  37. end;
  38.  
  39. Procedure FlushSD_exe; Far;
  40. begin
  41.   Asm
  42.     mov   ax, 04A10h
  43.     mov   bx, 1
  44.     int   2Fh
  45.   end;
  46. end;
  47.