Retro1.org codex

*DECK STRTSW
USETEXT NIPDEF
USETEXT PARAMP
USETEXT PARAMS
PRGM STRTSW ; 
STARTIMS ;
 #
*1DC  STRTSW
* 
*     1. PROC NAME        AUTHOR           DATE 
*        STRTSW          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 :  
*        HCRSWHN,HCONREQ,RELACNB
* 
*     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 LABEL RJMAIN;
      XREF
        BEGIN 
        PROC HCRSWHN ;
        PROC HCONREQ ;
        PROC RELACNB ;
        END 
# 
      INTERNAL VARIABLES
# 
      SWITCH LAB CR$SWH,CON$REQ,R$ACNB ;
 
      BEGIN 
      GOTO LAB[PARAMS9] ; 
 
CR$SWH: 
      HCRSWHN ; 
      GOTO EXIT;
 
CON$REQ:  
      HCONREQ ; 
      GOTO EXIT;
 
R$ACNB: 
      RELACNB(PARAMS1,PARAMS5,PARAMS8); 
      GOTO EXIT ; 
 
EXIT: 
      GOTO RJMAIN ; 
      END 
TERM