 PROCEDURE [INLINE] syp$establish_condition_handler (handler:
    syt$condition_handler);
?? PUSH (LISTEXT := ON) ??

    VAR
      csf: ^^syt$established_handler,
      eh: ^syt$established_handler;

    csf := #current_stack_frame ();
    PUSH eh;
    eh^.handler := handler;
    csf^ := eh;
    #write_register (0e2(16), 1);

  PROCEND syp$establish_condition_handler;
?? POP ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$stack_frame_save_area
*copyc syt$established_handler
*copyc syt$condition_handler
?? POP ??
