  TYPE
    syt$condition_handler = ^procedure (mf: ost$monitor_fault;
      continue: ^ost$minimum_save_area;
      VAR continue: syt$continue_option);
??PUSH(LISTEXT:=ON)??
*copyc syt$established_handler
*copyc syt$system_core_condition
??POP??
