Retro1.org codex

          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