home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / dossys / reboot / reboot.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-04-30  |  778 b   |  27 lines
  1. program reboot;
  2.  
  3.    { Make sure that DOS wrote everything out }
  4.  
  5. PROCEDURE Flush_DOS_Buffers;
  6. begin
  7.    Inline(   $B8/$40/$00           {MOV AX,0040   }
  8.             /$8E/$D8               {MOV DS,AX     }
  9.             /$89/$C3               {MOV BX,AX     }
  10.             /$B8/$34/$12           {MOV AX,1234   }
  11.             /$A3/$72/$00           {MOV [0072],AX }
  12.             /$EA/$00/$00/$FF/$FF   {JMP FFFF:0000 }
  13.          );
  14. END;  { Procedure Boot_PC }
  15.  
  16. {
  17.    Flush DOS' internal file buffers to insure that all data has been
  18.    physically written to disk.
  19. }
  20.  
  21. BEGIN
  22.   flush_dos_buffers;
  23.   INLINE($B4/$0D/       { MOV  AH,0DH      ;function to flush }
  24.          $CD/$21);      { INT  21H         ;perform it        }
  25. END.  { Procedure Flush_DOS_Buffers }
  26.  
  27.