*DECK     CSLCMP
OVERLAY(04,00)
USETEXT          TEXTOV 
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PRGM CSLCMP;
#     TITLE CSLCMP - COMMAND PREPROCESSING OVERLAY.         # 
  
      BEGIN  # CSLCMP # 
# 
**    CSLCMP - COMMAND PREPROCESSING OVERLAY. 
* 
*     A. LIM     82/06/14.
* 
*     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
*     COMMAND PREPROCESSING OVERLAY (04,00) AND TRANSFER CONTROL
*     TO THE APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON BLOCK IN 
*     TEXTSS).   UPON EXIT, CONTROL TRANSFERS TO SERVICE AND SCHEDULOR
*     THROUGH *SSORTN*. 
* 
*     PRGM CSLCMP 
* 
*     ENTRY    NEXT OVERLAY ENTRY POINT NUMBER *OVENUM* TO EXECUTE. 
* 
*     EXIT     OVERLAY ENTRY POINT NUMBER *OVENUM* EXECUTED, AND
*              CONTROL RETURNS TO SERVICE AND SCHEDULOR THROUGH 
*              *SSORTN*.
* 
*     METHOD   *OVENUM* IS USED IN A SWITCH ITEM TO SWITCH TO THE 
*              APPROPRIATE ENTRY POINT TO EXECUTE.  UPON RETURNING
*              FROM THE PROC, CONTROL RETURNS TO SERVICE AND
*              SCHEDULOR THROUGH *SSORTN*.
# 
  
  
# 
****  PRGM CSLCMP - XREF LIST.
# 
  
      XREF
        BEGIN 
        PROC CSSDNR;                   # DETERMINE NPU REQUIREMENT     #
        PROC CSSDRC;                   # DISPATCH ROUTED COMMAND       #
        LABEL SSORTN;                  # SS- OVERLAY RETURN            #
        END 
  
# 
****
# 
  
  
      SWITCH EPSWT:EPCMP
               LLSDNR : CSDNR,         # LABEL FOR ENTRY PT 0- CSSDNR  #
               LLSDRC : CSDRC;         # LABEL FOR ENTRY PT 1- CSSDRC  #
  
  
  
CONTROL EJECT;
# 
*     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
*     POINT NUMBER IN *OVENUM*. 
# 
  
      GOTO EPSWT[OVENUM]; 
  
LLSDNR:                                # 4,0 OVL - PROCESSOR OF *VCQ*  #
  
      CSSDNR;                          # DETERMINE NPU REQUIREMENT     #
      GOTO ENDCASE; 
  
LLSDRC:                                # 4,1 OVL - PROCESSOR OF *RCQ*  #
  
      CSSDRC;                          # DISPATCH ROUTED COMMAND       #
  
ENDCASE:                               # END CASE ON SWITCH            #
  
      GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  
      END  # CSLCMP # 
  
TERM
