
  PROCEDURE [INLINE] pfp$convert_density_to_rm
    (    dm_density: dmt$stored_tape_density;
     VAR rm_density: rmt$density);

?? PUSH (LISTEXT := ON) ??

    CASE dm_density OF
    = dmc$stored_density_800 =
      rm_density := rmc$800;
    = dmc$stored_density_1600 =
      rm_density := rmc$1600;
    = dmc$stored_density_6250 =
      rm_density := rmc$6250;
    = dmc$stored_density_38000 =
      rm_density := rmc$38000;
    ELSE
      rm_density := rmc$6250;
    CASEND;

  PROCEND pfp$convert_density_to_rm;

*copyc dmt$stored_tape_density
*copyc rmt$density
?? POP ??
