
  PROCEDURE [XREF] iop$locate_block (
        logical_unit: iot$logical_unit;
        block_id: iot$cartridge_tape_bid;
        bid_recovery: boolean;
        tape_mark_reset: integer;
        locate_block_option: iot$locate_block_option;
    VAR io_status: iot$tape_io_status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc iot$logical_unit
*copyc iot$tape_io_status
*copyc iot$tape_block_id_area
*copyc ost$status
?? POP ??
