
  TYPE
    pmt$task_template = record
      xcb: ost$execution_control_block,
      segment: array [1 .. * ] of pmt$task_private_descriptor,
    recend,

    pmt$task_private_descriptor = record
      number: ost$segment,
      content: ^array [ * ] of cell,
    recend;

*copyc OST$EXECUTION_CONTROL_BLOCK
*copyc OSD$VIRTUAL_ADDRESS
