MACRO                                                                  
&N       CRASH                                                                  
* ******************************************************************* *         
*                                                                     *         
*                           C R A S H                                 *         
*                                                                     *         
*        Fail the program with a SOC3 abend which leaves the          *         
*        register contents unchanged                                  *         
*                                                                     *         
         GBLA  &K                                                               
         AIF   ('&K' GT '1').GO2                                                
&K       SETA  1                                                                
.GO2     AIF   (K'&K EQ 0).BOOM                                                 
&N       DS    0H                                                               
.BOOM    ANOP                                                                   
ASLCR&K  EX    R15,ASLCR&K          Crash out with SOC3                         
&K       SETA  &K+1                                                             
         MEXIT                                                                  
*                                                                     *         
*  Copyright - Abbydale Systems LLC.                                  *         
* ******************************************************************* *         
         MEND