[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]

    {
    HAGEN LEHMANN

    This Procedure flushes the SMARTDRV.EXE-cache.
    }

    Procedure FlushChache; Assembler;
    Asm
      mov   ax,$4A10
      mov   bx,$0002
      int   $2F
    end;

    {
    MARCO MILTENBURG

    Flushing SmartDrive: It's written by Max Maischein (2:249/6.17) and Norbert
    Igl (2:2402/300.3), both from Germany (if I'm not mistaken).
    }

    Procedure FlushSD_sys; Far;
    Var
      F : File;
      B : Byte;
    begin
      Assign(F, 'SMARTAAR');
      Reset(F);
      B := 0;
      Asm
        push  ds
        mov   ax, 04403h
        mov   bx, FileRec(F).Handle
        mov   cx, 1
        int   21h
        pop   ds
      end;
    end;

    Procedure FlushSD_exe; Far;
    begin
      Asm
        mov   ax, 04A10h
        mov   bx, 1
        int   2Fh
      end;
    end;

[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]