*DECK     CSLEVT
OVERLAY(01,00)
USETEXT          TEXTOV 
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PRGM CSLEVT;
#     TITLE CSLEVT - EVENT PROCESSING OVERLAY.                         #
  
      BEGIN  # CSLEVT # 
# 
**    CSLEVT - EVENT PROCESSING OVERLAY.
* 
*     A. LIM     82/06/14.
* 
*     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
*     EVENT PROCESSING OVERLAY (01,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 CSLEVT 
* 
*     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 CSLEVT - XREF LIST.
# 
  
      XREF
        BEGIN 
        PROC CSSRSS;                   # ROUTE SOLICITED STATUS        #
        PROC CSEDEQ;                   # IDENTIFY EVENT ENTRY          #
        LABEL SSORTN;                  # SS- OVERLAY RETURN            #
        END 
  
# 
****
# 
  
  
      SWITCH EPSWT:EPEVT
               LLSRSS : CSRSS,         # LABEL FOR ENTRY PT 0- CSSRSS  #
               LLEDEQ : CEDEQ;         # LABEL FOR ENTRY PT 1- CSEDEQ  #
  
  
  
CONTROL EJECT;
# 
*     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
*     POINT NUMBER IN *OVENUM*. 
# 
  
      GOTO EPSWT[OVENUM]; 
  
LLSRSS:                                # 1,0 OVL - PROCESSOR OF *SSQ*  #
  
      CSSRSS;                          # ROUTE SOLICITED STATUS        #
      GOTO ENDCASE; 
  
LLEDEQ:                                # 1,1 OVL - PROCESSOR OF *EVQ*  #
  
      CSEDEQ;                          # IDENTIFY EVENT ENTRY          #
  
ENDCASE:                               # END CASE ON SWITCH            #
  
      GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  
      END  # CSLEVT # 
  
TERM
