Table of Contents

CSLOIO

Table Of Contents

  • [00005] PRGM CSLOIO
  • [00010] OPERATOR INPUT/OUTPUT PROCESSING OVERLAY.
  • [00041] PROC CSCDQE
  • [00042] PROC CSOBOE
  • [00043] PROC CSOGHL
  • [00044] PROC CSOROO

Source Code

CSLOIO.txt 
  1. *DECK     CSLOIO
  2. OVERLAY(02,00)
  3. USETEXT          TEXTCS 
  4. USETEXT          TEXTSS 
  5. PRGM CSLOIO;
  6. #     TITLE CSLOIO - OPERATOR INPUT/OUTPUT PROCESSING OVERLAY.         #
  7.  
  8.       BEGIN  # CSLOIO # 
  9. # 
  10. **    CSLOIO - OPERATOR INPUT/OUTPUT PROCESSING OVERLAY.
  11. * 
  12. *     A. LIM     82/06/14.
  13. * 
  14. *     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
  15. *     OPERATOR I/O PROCESSING OVERLAY (02,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 CSLOIO 
  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 CSLOIO - XREF LIST.
  37. # 
  38.  
  39.       XREF
  40.         BEGIN 
  41.         PROC CSCDQE;                   # DISPATCH CONNECTION TRAFFIC   #
  42.         PROC CSOBOE;                   # BROADCAST OPERATOR EVENT      #
  43.         PROC CSOGHL;                   # GENERATE HISTORY LINE         #
  44.         PROC CSOROO;                   # ROUTE OPERATOR OUTPUT         #
  45.         LABEL SSORTN;                  # SS- OVERLAY RETURN            #
  46.         END 
  47.  
  48. # 
  49. ****
  50. # 
  51.  
  52.  
  53.       SWITCH EPSWT:EPOIO
  54.                LLCDQE : CCDQE,         # LABEL FOR ENTRY PT 0- CSCDQE  #
  55.                LLOBOE : COBOE,         # LABEL FOR ENTRY PT 1- CSOBOE  #
  56.                LLOGHL : COGHL,         # LABEL FOR ENTRY 2- CSOGHL     #
  57.                LLOROO : COROO;         # LABEL FOR ENTRY 3- CSOROO     #
  58.  
  59.  
  60.  
  61. CONTROL EJECT;
  62. # 
  63. *     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
  64. *     POINT NUMBER IN *OVENUM*. 
  65. # 
  66.  
  67.       GOTO EPSWT[OVENUM]; 
  68.  
  69. LLCDQE:                                # 2,0 OVL - PROCESSOR OF *CNQ*  #
  70.  
  71.       CSCDQE;                          # DISPATCH CONNECTION TRAFFIC   #
  72.       GOTO ENDCASE; 
  73.  
  74. LLOBOE:                                # 2,1 OVL - PROCESSOR OF *ORQ*  #
  75.  
  76.       CSOBOE;                          # BROADCAST OPERATOR EVENT      #
  77.       GOTO ENDCASE; 
  78.  
  79. LLOGHL:                                # 2,2 OVL - PROCESSOR OF *HRQ*  #
  80.  
  81.       CSOGHL;                          # GENERATE HISTORY LINE         #
  82.       GOTO ENDCASE; 
  83.  
  84. LLOROO:                                # 2,3 OVL - PROCESSOR OF *ODEQ* #
  85.  
  86.       CSOROO;                          # ROUTE OPERATOR OUTPUT         #
  87.  
  88. ENDCASE:                               # END CASE ON SWITCH            #
  89.  
  90.       GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  91.  
  92.       END  # CSLOIO # 
  93.  
  94. TERM