
  FUNCTION [INLINE] bai$partial_read_block_exists: boolean;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to determine if there a buffer exists
{ with read data in it.

*copy bah$inline_proc_documentation

    bai$partial_read_block_exists := (block_info^.block_position =
          bac$middle_of_block) AND (tape_descriptor^.get_tape_block_buffer <>
          NIL);

  FUNCEND bai$partial_read_block_exists;

*copyc bat$task_file_table
?? POP ??


