?? PUSH (LISTEXT := ON) ??
*copyc bat$tape_descriptor
?? POP ??

{
{ The purpose of this request is to reset fields in the tape descriptor
{ to reflect the results of a rewind operation.
{
*copy bah$inline_proc_documentation

  PROCEDURE [INLINE] bai$rewind_tape_descriptor;

    tape_descriptor^.at_eoi := FALSE;
    tape_descriptor^.get_tape_block_buffer := NIL;
    tape_descriptor^.labeled_volume_position := bac$lvp_beginning_of_file_set;
    tape_descriptor^.next_position.file_section_number := 1;
    tape_descriptor^.next_position.file_sequence_number := 1;
    tape_descriptor^.put_tape_block_buffer := NIL;
    tape_descriptor^.volume_number := 1;
    tape_descriptor^.volume_position := amc$bov;

  PROCEND bai$rewind_tape_descriptor;
