

  TYPE
    dbt$entry_point_table = record
      address: ^array [1 .. * ] of dbt$entry_point_table_item,
      item: array [1 .. * ] of dbt$entry_point_table_item,
    recend,

    dbt$entry_point_table_item = record
      name: pmt$program_name,
      call_bracket,
      loaded_ring: ost$ring,
      global_lock: ost$key_lock_value,
      address: ost$pva,
    recend;

  CONST
    dbc$max_entry_point_items = 0ffffff(16);

*copyc osd$virtual_address
*copyc pmt$program_name
