Retro1.org codex

*DECK     CSLOIO
OVERLAY(02,00)
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PRGM CSLOIO;
#     TITLE CSLOIO - OPERATOR INPUT/OUTPUT PROCESSING OVERLAY.         #
 
      BEGIN  # CSLOIO # 
# 
**    CSLOIO - OPERATOR INPUT/OUTPUT PROCESSING OVERLAY.
* 
*     A. LIM     82/06/14.
* 
*     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
*     OPERATOR I/O PROCESSING OVERLAY (02,00) AND TRANSFER CONTROL
*     TO THE APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON BLOCK IN 
*     TEXTSS).   UPON EXIT, CONTROL TRANSFERS TO SERVICE AND SCHEDULOR
*     THROUGH *SSORTN*. 
* 
*     PRGM CSLOIO 
* 
*     ENTRY    NEXT OVERLAY ENTRY POINT NUMBER *OVENUM* TO EXECUTE. 
* 
*     EXIT     OVERLAY ENTRY POINT NUMBER *OVENUM* EXECUTED, AND
*              CONTROL RETURNS TO SERVICE AND SCHEDULOR THROUGH 
*              *SSORTN*.
* 
*     METHOD   *OVENUM* IS USED IN A SWITCH ITEM TO SWITCH TO THE 
*              APPROPRIATE ENTRY POINT TO EXECUTE.  UPON RETURNING
*              FROM THE PROC, CONTROL RETURNS TO SERVICE AND
*              SCHEDULOR THROUGH *SSORTN*.
# 
 
 
# 
****  PRGM CSLOIO - XREF LIST.
# 
 
      XREF
        BEGIN 
        PROC CSCDQE;                   # DISPATCH CONNECTION TRAFFIC   #
        PROC CSOBOE;                   # BROADCAST OPERATOR EVENT      #
        PROC CSOGHL;                   # GENERATE HISTORY LINE         #
        PROC CSOROO;                   # ROUTE OPERATOR OUTPUT         #
        LABEL SSORTN;                  # SS- OVERLAY RETURN            #
        END 
 
# 
****
# 
 
 
      SWITCH EPSWT:EPOIO
               LLCDQE : CCDQE,         # LABEL FOR ENTRY PT 0- CSCDQE  #
               LLOBOE : COBOE,         # LABEL FOR ENTRY PT 1- CSOBOE  #
               LLOGHL : COGHL,         # LABEL FOR ENTRY 2- CSOGHL     #
               LLOROO : COROO;         # LABEL FOR ENTRY 3- CSOROO     #
 
 
 
CONTROL EJECT;
# 
*     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
*     POINT NUMBER IN *OVENUM*. 
# 
 
      GOTO EPSWT[OVENUM]; 
 
LLCDQE:                                # 2,0 OVL - PROCESSOR OF *CNQ*  #
 
      CSCDQE;                          # DISPATCH CONNECTION TRAFFIC   #
      GOTO ENDCASE; 
 
LLOBOE:                                # 2,1 OVL - PROCESSOR OF *ORQ*  #
 
      CSOBOE;                          # BROADCAST OPERATOR EVENT      #
      GOTO ENDCASE; 
 
LLOGHL:                                # 2,2 OVL - PROCESSOR OF *HRQ*  #
 
      CSOGHL;                          # GENERATE HISTORY LINE         #
      GOTO ENDCASE; 
 
LLOROO:                                # 2,3 OVL - PROCESSOR OF *ODEQ* #
 
      CSOROO;                          # ROUTE OPERATOR OUTPUT         #
 
ENDCASE:                               # END CASE ON SWITCH            #
 
      GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
 
      END  # CSLOIO # 
 
TERM