Table of Contents

CSLEVT

Table Of Contents

  • [00006] PRGM CSLEVT
  • [00011] EVENT PROCESSING OVERLAY.
  • [00042] PROC CSSRSS
  • [00043] PROC CSEDEQ

Source Code

CSLEVT.txt 
  1. *DECK     CSLEVT
  2. OVERLAY(01,00)
  3. USETEXT          TEXTOV 
  4. USETEXT          TEXTCS 
  5. USETEXT          TEXTSS 
  6. PRGM CSLEVT;
  7. #     TITLE CSLEVT - EVENT PROCESSING OVERLAY.                         #
  8.  
  9.       BEGIN  # CSLEVT # 
  10. # 
  11. **    CSLEVT - EVENT PROCESSING OVERLAY.
  12. * 
  13. *     A. LIM     82/06/14.
  14. * 
  15. *     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
  16. *     EVENT PROCESSING OVERLAY (01,00) AND TRANSFER CONTROL TO THE
  17. *     APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON BLOCK IN TEXTSS). 
  18. *     UPON EXIT, CONTROL TRANSFERS TO SERVICE AND SCHEDULOR THROUGH 
  19. *     *SSORTN*. 
  20. * 
  21. *     PRGM CSLEVT 
  22. * 
  23. *     ENTRY    NEXT OVERLAY ENTRY POINT NUMBER *OVENUM* TO EXECUTE. 
  24. * 
  25. *     EXIT     OVERLAY ENTRY POINT NUMBER *OVENUM* EXECUTED, AND
  26. *              CONTROL RETURNS TO SERVICE AND SCHEDULOR THROUGH 
  27. *              *SSORTN*.
  28. * 
  29. *     METHOD   *OVENUM* IS USED IN A SWITCH ITEM TO SWITCH TO THE 
  30. *              APPROPRIATE ENTRY POINT TO EXECUTE.  UPON RETURNING
  31. *              FROM THE PROC, CONTROL RETURNS TO SERVICE AND
  32. *              SCHEDULOR THROUGH *SSORTN*.
  33. # 
  34.  
  35.  
  36. # 
  37. ****  PRGM CSLEVT - XREF LIST.
  38. # 
  39.  
  40.       XREF
  41.         BEGIN 
  42.         PROC CSSRSS;                   # ROUTE SOLICITED STATUS        #
  43.         PROC CSEDEQ;                   # IDENTIFY EVENT ENTRY          #
  44.         LABEL SSORTN;                  # SS- OVERLAY RETURN            #
  45.         END 
  46.  
  47. # 
  48. ****
  49. # 
  50.  
  51.  
  52.       SWITCH EPSWT:EPEVT
  53.                LLSRSS : CSRSS,         # LABEL FOR ENTRY PT 0- CSSRSS  #
  54.                LLEDEQ : CEDEQ;         # LABEL FOR ENTRY PT 1- CSEDEQ  #
  55.  
  56.  
  57.  
  58. CONTROL EJECT;
  59. # 
  60. *     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
  61. *     POINT NUMBER IN *OVENUM*. 
  62. # 
  63.  
  64.       GOTO EPSWT[OVENUM]; 
  65.  
  66. LLSRSS:                                # 1,0 OVL - PROCESSOR OF *SSQ*  #
  67.  
  68.       CSSRSS;                          # ROUTE SOLICITED STATUS        #
  69.       GOTO ENDCASE; 
  70.  
  71. LLEDEQ:                                # 1,1 OVL - PROCESSOR OF *EVQ*  #
  72.  
  73.       CSEDEQ;                          # IDENTIFY EVENT ENTRY          #
  74.  
  75. ENDCASE:                               # END CASE ON SWITCH            #
  76.  
  77.       GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  78.  
  79.       END  # CSLEVT # 
  80.  
  81. TERM