
  TYPE
    iot$lockword = packed record
      lock: boolean,
      fill: 0 .. 7fffffff(16),
      lock_owner: iot$lock_owner,
    recend,

    iot$lock_owner = packed record
      case cpu_lock: boolean of
      = TRUE =
        processor_id: boolean,
        module_id: 0 .. 7fff(16),
        condition_handler: 0 .. 7fff(16),
      = FALSE =
        fill: 0 .. 07fff(16),
        pp_number: iot$pp_number,
      casend
    recend;

*copyc IOT$PP_NUMBER
