home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DISKPARM.ZIP / DISKPARM.PAS
Encoding:
Pascal/Delphi Source File  |  1985-10-03  |  1.3 KB  |  38 lines
  1. program diskparm(input,output);
  2.   type
  3.      parms = array[0 .. 3] of
  4.             record
  5.               cylinders       : integer;
  6.               no_heads        : byte;
  7.               reduced_write   : integer;
  8.               write_precomp   : integer;
  9.               max_ecc         : byte;
  10.               control_byte    : byte;
  11.               time_out        : byte;
  12.               time_out_format : byte;
  13.               time_out_check  : byte;
  14.               reserved        : array [0 ..3] of byte
  15.              end;
  16.    var
  17.       i : integer;
  18.       disk_pointer : ^parms absolute 0:$104;
  19.    begin
  20.     for i := 0 to 3 do
  21.     with disk_pointer^[i] do
  22.      begin
  23.       writeln(' hard disk parameters  type:',i:5);
  24.       writeln;
  25.  
  26.       writeln(' cylinders            : ',cylinders:5,
  27.          ' heads :                ',no_heads:5);
  28.       writeln(' reduced write        : ',reduced_write:5,
  29.          ' write precompensation :',write_precomp:5);
  30.       writeln(' max ecc burst        : ',max_ecc:5,
  31.          ' control byte :         ',control_byte:5);
  32.       writeln(' standard time out    : ',time_out:5,
  33.          ' format drive time out :',time_out_format:5);
  34.       writeln(' check drive time out : ',time_out_check:5);
  35.  
  36.       readln;
  37.      end;
  38.    end.