
  PROCEDURE [XREF] iop$read_tape ALIAS 'iomtrd'
    (    system_file_id: gft$system_file_identifier;
         inhibit_error_recovery: boolean;
         max_byte_count: iot$tape_block_length;
         block_description: ^iot$read_tape_description;
         no_of_blocks_to_read: iot$tape_block_count;
     VAR io_id: iot$io_id;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc iot$tape_block_count
*copyc iot$read_tape_description
*copyc gft$system_file_identifier
*copyc iot$io_id
?? POP ??

