Table of Contents

CSLOSS

Table Of Contents

  • [00005] PRGM CSLOSS
  • [00010] OPERATOR SUPERVISION SM OVERLAY.
  • [00041] PROC CSSDPE
  • [00042] PROC CSSDOS

Source Code

CSLOSS.txt 
  1. *DECK     CSLOSS
  2. OVERLAY(05,00)
  3. USETEXT          TEXTCS 
  4. USETEXT          TEXTSS 
  5. PRGM CSLOSS;
  6. #     TITLE CSLOSS - OPERATOR SUPERVISION SM OVERLAY.     # 
  7.  
  8.       BEGIN  # CSLOSS # 
  9. # 
  10. **    CSLOSS - OPERATOR SUPERVISION SM OVERLAY. 
  11. * 
  12. *     A. LIM     82/06/15.
  13. * 
  14. *     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
  15. *     OPERATOR SUPERVISION SM OVERLAY (05,00) AND TRANSFER
  16. *     CONTROL TO THE APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON
  17. *     BLOCK IN TEXTSS).   UPON EXIT, CONTROL TRANSFERS TO SERVICE 
  18. *     AND SCHEDULOR THROUGH *SSORTN*. 
  19. * 
  20. *     PRGM CSLOSS 
  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 CSLOSS - XREF LIST.
  37. # 
  38.  
  39.       XREF
  40.         BEGIN 
  41.         PROC CSSDPE;                   # DISPATCH PROTOCOL EVENT       #
  42.         PROC CSSDOS;                   # DISPATCH OPERATOR SUPERVISION #
  43.         LABEL SSORTN;                  # SS- OVERLAY RETURN            #
  44.         END 
  45.  
  46. # 
  47. ****
  48. # 
  49.  
  50.  
  51.       SWITCH EPSWT:EPOSS
  52.                LLSDPE : CSDPE,         # LABEL FOR ENTRY PT 0- CSSDPE  #
  53.                LLSDOS : CSDOS;         # LABEL FOR ENTRY PT 1- CSSDOS  #
  54.  
  55.  
  56.  
  57. CONTROL EJECT;
  58. # 
  59. *     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
  60. *     POINT NUMBER IN *OVENUM*. 
  61. # 
  62.  
  63.       GOTO EPSWT[OVENUM]; 
  64.  
  65. LLSDPE:                                # 5,0 OVL - PROCESSOR OF *PEQ*  #
  66.  
  67.       CSSDPE;                          # DISPATCH PROTOCOL EVENT       #
  68.       GOTO ENDCASE; 
  69.  
  70. LLSDOS:                                # 5,1 OVL - PROCESSOR OF *RCQ*  #
  71.  
  72.       CSSDOS;                          # DISPATCH OPERATOR SUPERVISION #
  73.  
  74. ENDCASE:                               # END CASE ON SWITCH            #
  75.  
  76.       GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  77.  
  78.       END  # CSLOSS # 
  79.  
  80. TERM