Retro1.org codex

*DECK COMPCON 
USETEXT NIPDEF
USETEXT PARAMP
USETEXT PARAMS
PRGM COMPCON ;
STARTIMS ;
 #
*1DC  COMPCON 
* 
*     1. PROC NAME        AUTHOR           DATE 
*        COMPCON          A.BEN-ARTZI      82/07/07 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THIS IS ONLY A SWITCHING ROUTINE THAT COMBINE THE
*        LOAD OF SEVERAL OVERLAYS 
* 
*     3. METHOD USED
*        CALL THE PROPER ROUTINE ACCORDING TO A SWITCH VALUE. 
*        WHEN THIS OVERLAY IS LOADED IT IS LOADED WITH ALL
*        RELATED ROUTINES, THUS SAVES LOAD TIME IN CASE WHERE 
*        THE ROUTINES ARE TO BE EXECUTED ONE AFTER THE OTHER. 
* 
*        THE ROUTINES LOADED WITH THIS OVERLAY ARE :  
*        UPDACNB,NICNTEN,NRELBLK,NICNAPX
* 
*     4. ENTRY PARAMETERS 
*        PARAMS9 - SWITCH VALUE 
*        OTHER PARAMS AS REQUIRED BY EACH ROUTINE 
*              SEE IMS OF EACH ROUTINE FOR DETAILS
* 
*     5. FOR INFORMATION ABOUT OUTPUT PARAMETERS, AS WELL AS
*            DAYFILE MESSAGES,TEXTS ETC. REFER TO THE 
*            IMS OF EACH SPECIFIC ROUTINE.
* 
 #
STOPIMS ; 
    XREF
      BEGIN 
      PROC UPDACNB ;
      PROC NICNTEN ;
      PROC NRELBLK ;
      PROC NICNAPX ;
      LABEL RJMAIN ;
      END 
# 
      INTERNAL VARIABLES
# 
      SWITCH LAB U$ACNB,ICN$TE,REL$BLK,ICN$AP ; 
 
      BEGIN 
      GOTO LAB[PARAMS9] ; 
 
U$ACNB: 
      UPDACNB ; 
      GOTO EXIT;
 
ICN$TE: 
      NICNTEN ; 
      GOTO EXIT;
 
REL$BLK:  
      NRELBLK  ;
      GOTO EXIT;
 
ICN$AP: 
      NICNAPX  ;
      GOTO EXIT;
 
EXIT: 
      GOTO RJMAIN ; 
      END 
TERM