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

?? PUSH (LISTEXT := ON) ??

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

  PROCEND pfp$convert_density_to_dm;

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