 TYPE
    cmt$pp_definition = record
      accessible_channels : cmt$pp_connectivity,
      concurrent : boolean, { True implies capable of asynchronous transfer. }
      direct_memory_access : boolean, { True implies capable of DMA transfer. }
      iou : cmt$element_name,
      number : ost$physical_pp_number,
      size : cmt$pp_memory_length,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$pp_connectivity
*copyc cmt$element_name
*copyc ost$physical_pp_number
*copyc cmt$pp_memory_length
?? POP ??
