home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
L.ZIP
/
LITBLA.LZH
/
RPART_C.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-01
|
400b
|
18 lines
program read_boot; {Read the partition boot sector on drive C:}
uses dos;
var
boot :array[0..511] of byte;
r :registers;
fout :file;
begin
r.ax:=$0201;
r.bx:=ofs(boot);
r.es:=seg(boot);
r.dx:=$0080;
r.cx:=$0001;
intr($13,r);
assign(fout,'boot.sec');
rewrite(fout,512);
blockwrite(fout,boot,1);
close(fout);
end.