                                                                                                              
?? NEWTITLE := 'abort_handler', EJECT ??                                                                      
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc pmt$condition                                                                                          
*copyc pmt$condition_information                                                                              
*copyc ost$stack_frame_save_area                                                                              
*copyc ost$status                                                                                             
?? POP ??                                                                                                     
                                                                                                              
{ PURPOSE:                                                                                                    
{   This procedure is called from the condition handler to invoke a procedure called CLEAN_UP in the event    
{   that the procedure is aborted.                                                                            
                                                                                                              
    PROCEDURE abort_handler                                                                                   
      (    condition: pmt$condition;                                                                          
           condition_information_p: ^pmt$condition_information;                                               
           save_area_p: ^ost$stack_frame_save_area;                                                           
       VAR handler_status: ost$status);                                                                       
                                                                                                              
      clean_up;                                                                                               
                                                                                                              
    PROCEND abort_handler;                                                                                    
?? OLDTITLE ??                                                                                                
