
  TYPE
    iot$tusl_entry_access = record
      case operation: iot$tusl_entry_operation of
      = ioc$disable_operator_reassign =
        ,
      = ioc$enable_operator_reassign =
        ,
      = ioc$fetch_operator_reassign =
        fetch_operator_reassign {output} : boolean,
      = ioc$set_operator_reassign =
        ,
      = ioc$store_tape_characteristics =
        store_density {input} : rmt$density,
        store_write_ring {input} : boolean,
      = ioc$store_unit_ready =
        store_unit_ready {input} : boolean,
      casend
    recend;

*copyc iot$tusl_entry_operation
*copyc rmt$density
