
  { This deck defines the linked virtual memory image produced by the }
  { Virtual Environment Linker. }
  { This image is a sequence consisting of the following: }
  { 1) The virtual memory image header (PMT$VIRTUAL_MEMORY_IMAGE_HEADER) }
  { 2) For each segment in the image: }
  { 1) A linked segment description (PMT$LINKED_SEGMENT_DESCRIPTION) }
  { 2) The segment image itself. }


  TYPE
    pmt$virtual_memory_image_header = record
      version: pmt$image_version,
      system_core_id: ost$name,
      starting_procedure: ost$external_code_base_pointer,
      number_of_segments: ost$segment,
      pad_for_170_linker: array [1 .. 3] of 0 .. 0ff(16),
      length: ost$segment_length,
      exchange_package: ^ost$exchange_package,
    recend,

    pmt$image_version = string (8),

    pmt$linked_segment_description = record
      name: ost$name,
      segment_number: ost$segment,
      length: ost$segment_length,
      segment_descriptor: ost$segment_descriptor,
      software_attributes: mmt$software_attribute_set,
      pad_for_170_linker: array [1 .. 5] of 0 .. 0ff(16),
    recend;

  CONST
    pmc$image_version = 'VMI_V1.2';

*copyc OSD$VIRTUAL_ADDRESS
*copyc OST$SEGMENT_DESCRIPTOR
*copyc OSD$CODE_BASE_POINTER
*copyc OST$EXCHANGE_PACKAGE
*copyc ost$name
*copyc MMT$ATTRIBUTE_KEYWORD
