  FUNCTION [INLINE] fsp$default_file_class
    (    pf_path: pft$path): rmt$mass_storage_class;

?? PUSH (LISTEXT := ON) ??
    IF pf_path [pfc$family_name_index] = fsc$local THEN
      IF jmp$system_job () THEN
        fsp$default_file_class := rmc$msc_system_critical_files;
      ELSE
        fsp$default_file_class := rmc$msc_user_temporary_files;
      IFEND;
    ELSEIF jmp$system_job () OR (pf_path [pfc$master_catalog_name_index] = '$SYSTEM') THEN
      fsp$default_file_class := rmc$msc_system_permanent_files;
    ELSE
      fsp$default_file_class := rmc$msc_user_permanent_files;
    IFEND;

  FUNCEND fsp$default_file_class;

*copyc fsc$local
*copyc jmp$system_job
*copyc pft$path
*copyc rmt$mass_storage_class
?? POP ??
