 TYPE
    cmt$pp_program_description = record
      pp_identification: {input} cmt$pp_identification,
      iou_program_name : pmt$program_name,
      pp_program: {input} ^SEQ ( * ),
      master_pp: {input} boolean,
      element_access: {input} ^array [1 .. * ] of cmt$hardware_address,
      communication_buffer_length: {input} 0 .. osc$max_page_size,
      communication_buffer: {input, output} ^SEQ ( * ),
    recend;

?? PUSH(LISTEXT := ON) ??
*copyc cmt$hardware_address
*copyc cmt$pp_identification
*copyc ost$page_size
*copyc pmt$processor_attributes
*copyc pmt$program_name
?? POP ??
