
  PROCEDURE [INLINE] fsp$convert_device_class_to_fs
    (    rm_device_class: rmt$device_class;
     VAR fs_device_class: fst$device_class);

?? PUSH (LISTEXT := ON) ??

    CASE rm_device_class OF
    = rmc$connected_file_device =
      fs_device_class := fsc$connected_file_device;
    = rmc$interstate_link_device =
      fs_device_class := fsc$interstate_link_device;
    = rmc$local_queue_device =
      fs_device_class := fsc$local_queue_device;
    = rmc$log_device =
      fs_device_class := fsc$log_device;
    = rmc$magnetic_tape_device =
      fs_device_class := fsc$magnetic_tape_device;
    = rmc$mass_storage_device =
      fs_device_class := fsc$mass_storage_device;
    = rmc$memory_resident_device =
      fs_device_class := fsc$memory_resident_device;
    = rmc$network_device =
      fs_device_class := fsc$network_device;
    = rmc$null_device =
      fs_device_class := fsc$null_device;
    = rmc$pipeline_device =
      fs_device_class := fsc$pipeline_device;
    = rmc$rhfam_device =
      fs_device_class := fsc$rhfam_device;
    = rmc$terminal_device =
      fs_device_class := fsc$terminal_device;
    ELSE
      fs_device_class := fsc$mass_storage_device;
    CASEND;

  PROCEND fsp$convert_device_class_to_fs;

*copyc fst$device_class
*copyc rmt$device_class
?? POP ??
