
{ IODTWTD }

  TYPE
     iot$write_tape_description = array[iot$tape_block_count] of
        iot$write_block_descriptor;

  TYPE
     iot$write_block_descriptor = PACKED RECORD
*IF $true(osv$unix)
       fill : ALIGNED [0 MOD 8] integer,
*ELSE
       fill : ALIGNED [0 MOD 8] 0..0ffffffff(16),
*IFEND
       transfer_length: iot$transfer_count,
       fill2: 0..0ffff(16),
       buffer_area: ^cell,
     RECEND;

*copyc IOT$TAPE_BLOCK_COUNT
*copyc IOT$TRANSFER_COUNT
