Table of Contents

CSLCMP

Table Of Contents

  • [00006] PRGM CSLCMP
  • [00011] COMMAND PREPROCESSING OVERLAY.
  • [00042] PROC CSSDNR
  • [00043] PROC CSSDRC

Source Code

CSLCMP.txt 
  1. *DECK     CSLCMP
  2. OVERLAY(04,00)
  3. USETEXT          TEXTOV 
  4. USETEXT          TEXTCS 
  5. USETEXT          TEXTSS 
  6. PRGM CSLCMP;
  7. #     TITLE CSLCMP - COMMAND PREPROCESSING OVERLAY.         # 
  8.  
  9.       BEGIN  # CSLCMP # 
  10. # 
  11. **    CSLCMP - COMMAND PREPROCESSING OVERLAY. 
  12. * 
  13. *     A. LIM     82/06/14.
  14. * 
  15. *     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
  16. *     COMMAND PREPROCESSING OVERLAY (04,00) AND TRANSFER CONTROL
  17. *     TO THE APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON BLOCK IN 
  18. *     TEXTSS).   UPON EXIT, CONTROL TRANSFERS TO SERVICE AND SCHEDULOR
  19. *     THROUGH *SSORTN*. 
  20. * 
  21. *     PRGM CSLCMP 
  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 CSLCMP - XREF LIST.
  38. # 
  39.  
  40.       XREF
  41.         BEGIN 
  42.         PROC CSSDNR;                   # DETERMINE NPU REQUIREMENT     #
  43.         PROC CSSDRC;                   # DISPATCH ROUTED COMMAND       #
  44.         LABEL SSORTN;                  # SS- OVERLAY RETURN            #
  45.         END 
  46.  
  47. # 
  48. ****
  49. # 
  50.  
  51.  
  52.       SWITCH EPSWT:EPCMP
  53.                LLSDNR : CSDNR,         # LABEL FOR ENTRY PT 0- CSSDNR  #
  54.                LLSDRC : CSDRC;         # LABEL FOR ENTRY PT 1- CSSDRC  #
  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. LLSDNR:                                # 4,0 OVL - PROCESSOR OF *VCQ*  #
  67.  
  68.       CSSDNR;                          # DETERMINE NPU REQUIREMENT     #
  69.       GOTO ENDCASE; 
  70.  
  71. LLSDRC:                                # 4,1 OVL - PROCESSOR OF *RCQ*  #
  72.  
  73.       CSSDRC;                          # DISPATCH ROUTED COMMAND       #
  74.  
  75. ENDCASE:                               # END CASE ON SWITCH            #
  76.  
  77.       GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  78.  
  79.       END  # CSLCMP # 
  80.  
  81. TERM