CEASE 
          IDENT  CEASE
  
          ENTRY  CEASE
          TITLE  CEASE - TERMINATE TASK EXECUTION.
*COMMENT  CEASE - TERMINATE TASK EXECUTION. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       CEASE - TERMINATE TASK EXECUTION. 
*         J.C. BOHNHOFF. 72/07/09.
*CALL     COMKMAC 
          SPACE  4
***       CALL FORMAT - 
* 
*         FORTRAN EXTENDED
*                CALL CEASE(A)
*         COBOL 
*                ENTER CEASE USING A
* 
*         WHERE 
*         (A) .LT. - 1 RESERVED FOR CDC.
*             = -1 IF NORMAL CEASE AND TERMINAL IS NOT TO 
*                  BE UNLOCKED. 
*             = 0 IF NORMAL CEASE.
*             = 1 IF ABNORMAL CEASE WITHOUT DUMP. 
*             .GT. 1 IF ABNORMAL CEASE WITH DUMP. 
* 
* 
*         MACROS SYSTEM.
  
  
 CEASE    PS                 ENTRY
          ZR     X1,CEA1     IF NO PARAMETER
          SA1    X1 
 CEA1     CEASE  X1 
          JP     CEASE       RETURN 
  
          END 
