
  PROCEDURE [XREF] bap$tape_bm_unwritten_blk_count
    (    file_id: amt$file_identifier;
     VAR blocks_currently_buffered: bat$tape_block_buffer_count;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc bat$tape_block_buffer_count
*copyc ost$status
?? POP ??
