home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / i / ifp1s156.zip / PAGE_15.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-30  |  6KB  |  206 lines
  1. unit page_15;
  2.  
  3. interface
  4.  
  5. uses crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page15;
  8.  
  9. implementation
  10.  
  11. procedure page15;
  12.  
  13. var
  14.   i : byte;
  15.   j : 0..3;
  16.   k : byte;
  17.   part : array[0..secsiz - 1] of byte;
  18.   xbool1 : boolean;
  19.   xbool2 : boolean;
  20.   xbool3 : boolean;
  21.   xbool4 : boolean;
  22.   xbyte : byte;
  23.   xlong : longint;
  24.   xword : word;
  25.  
  26.   begin
  27.   caption2('Partition table data');
  28.   if ReadPartitionTable then
  29.     begin
  30.     i:=$80;
  31.     xbool1:=false;
  32.     xbool2:=false;
  33.     repeat
  34.       with regs do
  35.         begin
  36.         AX:=$0201;
  37.         CX:=$0001;
  38.         DX:=i;
  39.         ES:=seg(part);
  40.         BX:=ofs(part);
  41.         intr($13, regs);
  42.         if nocarry(regs) then
  43.           begin
  44.           xbool1:=true;
  45.           xbool2:=true
  46.           end
  47.         else
  48.           if i < $99 then
  49.             inc(i)
  50.           else
  51.             xbool1:=true
  52.         end
  53.     until xbool1;
  54.     if xbool2 then
  55.       begin
  56.       writeln;
  57.       caption3('Unit');
  58.       writeln;
  59.       caption3('Partition');
  60.       writeln;
  61.       caption3('Bootable');
  62.       writeln;
  63.       caption3('Starting head');
  64.       writeln;
  65.       caption3('Starting sector');
  66.       writeln;
  67.       caption3('Starting cylinder');
  68.       writeln;
  69.       caption3('System ID');
  70.       writeln;
  71.       caption3('Ending head');
  72.       writeln;
  73.       caption3('Ending sector');
  74.       writeln;
  75.       caption3('Ending cylinder');
  76.       writeln;
  77.       caption3('First partition sector');
  78.       writeln;
  79.       caption3('Sectors in partition');
  80.       writeln;
  81.       xbool3:=false;
  82.       repeat
  83.         window(9, 4, twidth, tlength - 2);
  84.         writeln(i);
  85.         window(27, 5, twidth, tlength - 2);
  86.         clrscr;
  87.         for j:=0 to 3 do
  88.           begin
  89.           window(27 + 12 * j, 5, 38 + 12 * j, tlength - 2);
  90.           writeln(j + 1);
  91.           xword:=$01BE + j shl 4;
  92.           xbyte:=part[xword];
  93.           case xbyte of
  94.             $00 : writeln('no');
  95.             $80 : writeln('yes')
  96.           else
  97.               writeln('(', hex(xbyte, 2), ')')
  98.           end;
  99.           xbyte:=part[xword + 4];
  100.           if xbyte > $00 then
  101.             begin
  102.             writeln(part[xword + 1]);
  103.             writeln(part[xword + 2] and $3F);
  104.             writeln(part[xword + 3] +
  105.               word(part[xword + 2] shr 6 * 256));
  106.             case xbyte of
  107.               $00 : Write('None');
  108.               $01 : Write('DOS-12');
  109.               $02 : Write('XENIX root');
  110.               $03 : Write('XENIX /usr');
  111.               $04 : Write('DOS-16');
  112.               $05 : Write('Ext DOS-16');
  113.               $06 : Write('Big DOS-16');
  114.               $07 : Write('OS/2 HPFS');
  115.               $08 : Write('AIX data');
  116.               $09 : Write('AIX boot');
  117.               $0A : Write('OS/2 BtMngr');
  118.               $10 : Write('OPUS');
  119.               $40 : Write('VENIX 286');
  120.               $44 : Write('386BSD');
  121.               $50 : Write('DskMngrR/O');
  122.               $51 : Write('Dsk Managr');
  123.               $52 : Write('CP/M');
  124.               $56 : Write('GB Vfeatre');
  125.               $61 : Write('Speedstor');
  126.               $63 : Write('SysV/386');
  127.               $64 : Write('NOVELL');
  128.               $75 : Write('PC/IX');
  129.               $80 : Write('Minix v1.3-');
  130.               $81 : Write('Minix v1.4+');
  131.               $82 : Write('Minix Swap');
  132.               $83 : Write('Linux extd');
  133.               $93 : Write('Amoeba file');
  134.               $94 : Write('Amoeba BBT');
  135.               $B7 : Write('BSDI file');
  136.               $BB : Write('BSDI swap');
  137.               $C6 : Write('DRDOSsecure');
  138.               $C7 : Write('Cyrnix boot');
  139.               $DB : Write('CP/M');
  140.               $E1 : Write('SpdStr-12');
  141.               $E3 : Write('SpdStr R/O');
  142.               $E4 : Write('SpdStr-16');
  143.               $F2 : Write('DOS secndry');
  144.               $FE : Write('LANstep');
  145.               $FF : Write('Xenix BBT')
  146.             else
  147.               write('(', hex(xbyte, 2), ')')
  148.             end;
  149.             Writeln;
  150.             writeln(part[xword + 5]);
  151.             xbyte:=part[xword + 6];
  152.             writeln(xbyte and $3F);
  153.             writeln(cbw(part[xword + 7], xbyte shr 6));
  154.             xlong:=0;
  155.             for k:=11 downto 8 do
  156.               xlong:=xlong shl 8 + part[xword + k];
  157.             writeln(xlong);
  158.             xlong:=0;
  159.             for k:=15 downto 12 do
  160.               xlong:=xlong shl 8 + part[xword + k];
  161.             writeln(xlong)
  162.           end
  163.         else
  164.            for k:=1 to 9 do
  165.              writeln('-')
  166.         end;
  167.         xbool4:=false;
  168.         repeat
  169.           if i < $99 then
  170.             begin
  171.             inc(i);
  172.             with regs do
  173.               begin
  174.               AX:=$0201;
  175.               CX:=$0001;
  176.               DX:=i;
  177.               ES:=seg(part);
  178.               BX:=ofs(part);
  179.               intr($13, regs);
  180.               if nocarry(regs) then
  181.                 begin
  182.                 xbool4:=true;
  183.                 pause1;
  184.                 if endit then
  185.                   Exit;
  186.                 end
  187.               end
  188.             end
  189.           else
  190.             begin
  191.             xbool3:=true;
  192.             xbool4:=true
  193.             end
  194.         until xbool4
  195.       until xbool3
  196.       end
  197.     else
  198.       Writeln('(no fixed disks)')
  199.     end
  200.   else
  201.     begin
  202.     Writeln;
  203.     Writeln('Reading of Partition Table blocked by NP command-line switch!!');
  204.     end;
  205.   end;
  206. end.