*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