手工恢复硬盘分区表的原理 (1)

> 手工恢复mbr，其实就是找到扩展分区开始的扇区位置，也就是找末两位是55aa的引导扇区。然后通过计算，把分区表的内容算出来。
谁能看懂下面的程序，就是pascal了。
procedure fixinfo;
var
   ff:boolean;
   dd,dd2:word;
   tt,tt2:longint;
   st11,st22,st33:string;
begin
   color(0,7);
   clear(7,1,23,80);
   color2(0,7);
   cursor(7,1);
   i:=1;
   ff:=false;
   clearkey;
   writeln(' test hdd parameter:');
   repeat
      i:=i+1;
      readdisk($80,i,1,1,result);
      if result
      then begin
            gotoxy(2,8);
            write('total cyl:',i:4);
            if keypressed then if inkey(0)=27 then exit;
           end;
   until (i>=1023) or (not result);
   max_cyl:=i-1;
   i:=1;
   repeat
      i:=i+1;
      readdisk($80,1,i,1,result);
      if result
      then begin
            gotoxy(21,8);
            write('total head:',i:3);
            if keypressed then if inkey(0)=27 then exit;
           end;
   until (i>=255) or (not result);
   max_head:=i-1;
   i:=1;
   dd:=1;
   repeat
      i:=i+1;
      readdisk($80,1,1,i,result);
      if result
      then begin
            gotoxy(40,8);
            write('total sec: ',i:2);
            if keypressed then if inkey(0)=27 then exit;
           end;
   until (i>=63) or (not result);
   max_sec:=i;
   gotoxy(2,9);
   writeln('enter hdd parameter: ');
   writeln(' cyl:[      ]      head:[    ]      sec:[   ]');
   str(max_cyl:4,st11);
   str(max_head:3,st22);
   str(max_sec:2,st33);
   getint(10,8,4,st11)