
  FUNCTION [INLINE] bai$tape_descriptor
    (    file_instance: ^bat$task_file_entry): ^bat$tape_descriptor;

?? PUSH (LISTEXT := ON) ??
{ The purpose of this request is to return a pointer to the
{ tape descriptor for the current instance of open of the
{ file.

    VAR
      tape_descriptor: ^bat$tape_descriptor,
      seq_ptr: ^SEQ ( * );

    seq_ptr := file_instance^.global_file_information^.device_dependent_info.
          tape_descriptor;
    RESET seq_ptr;
    NEXT tape_descriptor IN seq_ptr;
    bai$tape_descriptor := tape_descriptor;

  FUNCEND bai$tape_descriptor;

*copyc bat$task_file_table
*copyc bat$tape_descriptor
?? POP ??
