Retro1.org codex

*DECK     CSLCMR
OVERLAY(03,00)
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PRGM CSLCMR;
#     TITLE CSLCMR - COMMAND RECOGNITION OVERLAY.            #
 
      BEGIN  # CSLCMR # 
# 
**    CSLCMR - COMMAND RECOGNITION OVERLAY. 
* 
*     A. LIM     82/06/15.
* 
*     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
*     COMMAND RECOGNITION OVERLAY (03,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 CSLCMR 
* 
*     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 CSLCMR - XREF LIST.
# 
 
      XREF
        BEGIN 
        PROC CSSROC;                   # RECOGNIZE OPERATOR COMMANDS   #
        LABEL SSORTN;                  # SS- OVERLAY RETURN            #
        END 
 
# 
****
# 
 
 
      SWITCH EPSWT:EPCMR
               LLSROC : CSROC;         # LABEL FOR ENTRY PT 0- CSSROC  #
 
 
 
CONTROL EJECT;
# 
*     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
*     POINT NUMBER IN *OVENUM*. 
# 
 
      GOTO EPSWT[OVENUM]; 
 
LLSROC:                                # 3,0 OVL - PROCESSOR OF *OPTQ* #
 
      CSSROC;                          # RECOGNIZE OPERATOR COMMANDS   #
 
ENDCASE:                               # END CASE ON SWITCH            #
 
      GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
 
      END  # CSLCMR # 
 
TERM