Table of Contents

CSLCMR

Table Of Contents

  • [00005] PRGM CSLCMR
  • [00010] COMMAND RECOGNITION OVERLAY.
  • [00041] PROC CSSROC

Source Code

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