
  PROCEDURE [INLINE] iop$determine_density_support (
        unit_type: iot$unit_type;
        requested_density: rmt$density;
    VAR density_supported: boolean);

    density_supported := FALSE;

    CASE requested_density OF

    = rmc$800 =

      IF (unit_type = ioc$dt_mt679_2) OR (unit_type = ioc$dt_mt679_3) OR
            (unit_type = ioc$dt_mt679_4) THEN
        density_supported := TRUE;
      IFEND;

    = rmc$1600 =

      IF (unit_type <> ioc$dt_mt5682_1x) THEN
        density_supported := TRUE;
      IFEND;

    = rmc$6250 =

      IF NOT ((unit_type = ioc$dt_mt679_2) OR (unit_type = ioc$dt_mt679_3) OR
            (unit_type = ioc$dt_mt679_4) OR (unit_type = ioc$dt_mt5682_1x)) THEN
        density_supported := TRUE;
      IFEND;

      = rmc$38000 =

      IF (unit_type = ioc$dt_mt5682_1x) THEN
        density_supported := TRUE;
      IFEND;

    ELSE
    CASEND;

  PROCEND iop$determine_density_support;

?? PUSH (LISTEXT := ON) ??
*copyc iot$unit_type
*copyc rmt$density
?? POP ??
