
   TYPE
    gft$system_file_identifier = RECORD
      file_entry_index: gft$file_descriptor_index,
      residence: gft$table_residence,
      file_hash: 0 .. 255,
    recend;

  CONST
    gfc$null_file_hash = 255;

*copyc gft$file_descriptor_index
*copyc gft$table_residence
