
 TYPE
    pmt$end_handler_ring_list = array [osc$min_ring .. osc$max_ring] of
      ^pmt$end_handler_desc,

    pmt$end_handler_desc = record
      link: ^pmt$end_handler_desc,
      end_handler: pmt$end_handler,
      disestablished: boolean,
      called: boolean,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc pmt$end_handler
?? POP ??
