Retro1.org codex

*DECK STRTCON 
USETEXT NIPDEF
USETEXT PARAMP
USETEXT PARAMS
PRGM STRTCON ;
STARTIMS ;
 #
*1DC  STRTCON 
* 
*     1. PROC NAME        AUTHOR           DATE 
*        STRTCON          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 :  
*        BLDNCNB,BLDACNB,HCRITER,HCRRAPR
* 
*     4. ENTRY PARAMETERS 
*        PARAMP5 - 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 LABEL RJMAIN;
      XREF
        BEGIN 
        PROC BLDNCNB ;
        PROC BLDACNB ;
        PROC HCRITER ;
        PROC HCRRAPR ;
        END 
# 
      INTERNAL VARIABLES
# 
      SWITCH LAB B$NCNB,B$ACNB,CR$ITE,CR$RAP ;
 
      BEGIN 
      GOTO LAB[PARAMP5] ; 
 
B$NCNB: 
      BLDNCNB ; 
      GOTO EXIT;
 
B$ACNB: 
      BLDACNB ; 
      GOTO EXIT;
 
CR$ITE: 
      HCRITER  ;
      GOTO EXIT;
 
CR$RAP: 
      HCRRAPR  ;
      GOTO EXIT;
 
EXIT: 
      GOTO RJMAIN ; 
      END 
TERM