 CONST
    ioc$disk_type_count = 37;

  TYPE
    iot$disk_type_table = packed record
      unit_type: iot$unit_type,
      sectors_per_mau: iot$sectors_per_mau,
      sectors_per_track: iot$sectors_per_track,
      tracks_per_cylinder: iot$tracks_per_cylinder,
      cylinders_per_unit: iot$cylinders_per_unit,
      bytes_per_mau: iot$bytes_per_mau,
      mau_time: integer,
    recend,

    iot$sectors_per_mau = 1 .. 10,
    iot$sectors_per_track = 4 .. 80,
    iot$tracks_per_cylinder = 4 .. 80,
    iot$cylinders_per_unit = 500 .. 6828,
    iot$bytes_per_mau = 512 .. 8192;

*copyc iot$unit_type
