?? RIGHT := 110 ??

{ The access control record provides the vehicle by which exclusive and nonexclusive
{ access to structures is controlled.  Get and release exclusive/nonexclusive access
{ procedures  are  provided  to support the control mechanics.  In general exclusive
{ access permits an accessor to modify a structure.  Nonexclusive access permits  an
{ accessor to interogate a structure.

  TYPE
    nlt$access_control = record
      case boolean of
      = FALSE =
        nonexclusive_accessors: ALIGNED [0 MOD 8] 0 .. 0ffffffff(16),
        exclusive: boolean,
        fill: 0 .. 0ffffff(16),
      = TRUE =
        value: ALIGNED [0 MOD 8] integer,
      casend,
    recend;

