
{ Define Active Segment Table - (AST)}

  TYPE
    mmt$active_segment_table_entry = record
      pft_link: mmt$link,
      pages_in_memory: 0 .. osc$max_page_frames,
      ijl_ordinal: jmt$ijl_ordinal,
      case in_use: boolean of
      = FALSE =
        time_freed: ost$free_running_clock,
        asid: ost$asid,        {???}
      = TRUE =
        queue_id: mmt$page_frame_queue_id,
        sfid: gft$system_file_identifier,
        include_pages_in_dump: boolean,
      casend,
    recend,

    mmt$active_segment_table = array [0 .. * ] of
      mmt$active_segment_table_entry;

*copyc gft$system_file_identifier
*copyc jmt$ijl_ordinal
*copyc mmt$link
*copyc mmt$page_frame_queue_id
*copyc ost$free_running_clock

