Retro1.org codex

*DECK     NVFLOPE 
OVERLAY(04,00)
USETEXT TEXTSS
USETEXT TXINNVF 
PRGM NVFLOPE; 
# TITLE NVFLOPE - OPERATOR EVENT PROCESSING OVERLAY.   #
 
      BEGIN  # NVFLOPE #
# 
**    NVFLOPE - OPERATOR EVENT PROCESSING OVERLAY.
* 
*     D. G. DEPEW.           82/06/21.
* 
*     THIS PROGRAM PROVIDES THE SKELETON FOR THE OPERATOR EVENT 
*     PROCESSING OVERLAY AND, WHEN ENTERED, TRANSFERS CONTROL TO THE
*     SPECIFIED ENTRY POINT.
* 
*     PRGM NVFLOPE
* 
*     ENTRY   OVENUM = NUMBER OF ENTRY POINT TO EXECUTE.
* 
*     EXIT    THE SPECIFIED ENTRY POINT HAS BEEN EXECUTED (THAT IS, THE 
*             REQUIRED FUNCTIONS HAVE BEEN PERFORMED).
* 
*     METHOD  *OVENUM* IS SIMPLY USED AS A SWITCH SUBSCRIPT TO TRANSFER 
*             CONTROL TO THE DESIRED ROUTINE.  THIS PROGRAM RETURNS BY
*             JUMPING DIRECTLY TO THE LABEL *SSORTN* IN THE SERVICES
*             AND SCHEDULING OVERLAY EXECUTION ROUTINES.
# 
 
# 
****  PRGM NVFLOPE - XREF LIST. 
# 
      XREF
        BEGIN 
        PROC NVFOAPE;        # ACTION PROTOCOL EVENT                   #
        PROC NVFOFVD;        # FORMAT VCB DATA (INTO USER:/TERM: LINE) #
        PROC NVFOPPC;        # PERFORM PROGRAM CONTROL COMMANDS        #
        LABEL SSORTN;        # OVERLAY RETURN POINT IN SERV + SCHED    #
        END 
# 
****
# 
 
 
      SWITCH EPSWT: EPOPE    # ENTRY POINT SWITCH                      #
        LLOAPE: NOAPE,       # ACTION PROTOCOL EVENT                   #
        LLOPPC: NOPPC,       # PERFORM PROGRAM CONTROL COMMANDS        #
        LLOFVD: NOFVD;       # FORMAT VCB DATA (INTO USER:/TERM: LINE) #
 
 
 
 
 
      GOTO EPSWT[OVENUM]; 
 
 
LLOAPE: 
      NVFOAPE;               # ACTION PROTOCOL EVENT                   #
      GOTO ENDSWT;
 
 
LLOPPC: 
      NVFOPPC;               # PERFORM PROGRAM CONTROL COMMANDS        #
      GOTO ENDSWT;
 
 
LLOFVD: 
      NVFOFVD;               # FORMAT VCB DATA                         #
      GOTO ENDSWT;
 
 
ENDSWT: 
      GOTO SSORTN;
 
 
      END  # NVFLOPE #
 
      TERM