
  TYPE
    ost$register_number = 0 .. 0f(16),
    ost$x_register = integer;

  TYPE
    ost$p_register = PACKED record
      undefined1: 0 .. 3(16),
      global_key: ost$key_lock_value,
      undefined2: 0 .. 3(16),
      local_key: ost$key_lock_value,
      pva: ost$pva,
    recend;

*copyc OSD$VIRTUAL_ADDRESS
