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