
  TYPE
    pmt$condition_environment = record
      condition: pmt$internal_condition,
      condition_descriptor: ^cell,
      condition_save_area: ^ost$stack_frame_save_area,
      debug_index: 0 .. 31,
      established_descriptor: ^pmt$established_handler,
      handler_save_area: ^ost$stack_frame_save_area,
      next_environment: ^pmt$condition_environment,
    recend;

*copyc PMT$INTERNAL_CONDITION
*copyc OST$STACK_FRAME_SAVE_AREA
*copyc PMT$ESTABLISHED_HANDLER
