{
{ PMD$PROGRAM_STATE:
{
{   This deck contains type definitions for use in saving the state of
{ a program.
{

  TYPE
    pmt$program_state = record
      p_save_area: ^cell,
      segment_count: pmt$segment_count,
    recend,

    pmt$segment_count = 0 .. osc$maximum_segment + 1,

    pmt$segment_directory = array [1 .. * ] of pmt$segment_directory_entry,

    pmt$segment_directory_entry = record
      segment_allocation: lot$segment_allocation,
      saved_length: ost$segment_length,
      segment_offset: ost$segment_length,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc lot$loader_type_definitions
*copyc osd$virtual_address
?? POP ??
