
{Define lock word for COMPARE SWAP operations.}

  TYPE
    ost$compare_swap_lock = integer,
    ost$cs_lock = integer, {* * HCS compatibility * * *}
    ost$signature_lock = record
      lock_id: ALIGNED [0 MOD 8] integer,
    recend,


{Define lock byte for TEST_SET bit operations.}

    ost$byte_lock = packed array [0 .. 7] of boolean;

*copyc ost$signature_lock_status
