
  PROCEDURE [XREF] iop$write_tape ALIAS 'iomtwr'
    (    system_file_id: gft$system_file_identifier;
         inhibit_error_recovery: boolean;
         block_description: ^iot$write_tape_description;
         no_of_blocks_to_write: iot$tape_block_count;
     VAR io_id: iot$io_id;
     VAR status: ost$status);

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