  TYPE
     iot$read_tape_description = array[iot$tape_block_count] of
        iot$read_block_descriptor;

  TYPE
     iot$read_block_descriptor = PACKED RECORD
        block_transfer_length: ALIGNED [0 MOD 8] ^iot$tape_transfer_count,
      fill: 0..0ffff(16),
        buffer_area: ^cell,
        fill2: 0..0ffff(16),
     RECEND,

{ NOTE - The store transfer count buffers must all be contained in the same
{ memory page if a read request is issued with multiple blocks.
{ See procedure mmp$build_lock_rma_list_tape.

      iot$tape_transfer_count = PACKED RECORD
        character_fill: BOOLEAN,
        fill: 0..7fffffff(16),
        length: ost$segment_offset,
      RECEND;

*copyc IOT$TAPE_BLOCK_COUNT
*copyc OSD$VIRTUAL_ADDRESS
