home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / L.ZIP / LITBLA.LZH / RBOOT_C.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-01  |  394b  |  18 lines
  1. program read_boot;       {Read the DOS boot sector on drive C:}
  2. uses dos;
  3. var
  4.   boot             :array[0..511] of byte;
  5.   r                :registers;
  6.   fout             :file;
  7. begin
  8.   r.ax:=$0201;
  9.   r.bx:=ofs(boot);
  10.   r.es:=seg(boot);
  11.   r.dx:=$0180;
  12.   r.cx:=$0001;
  13.   intr($13,r);
  14.   assign(fout,'boot.sec');
  15.   rewrite(fout,512);
  16.   blockwrite(fout,boot,1);
  17.   close(fout);
  18. end.